Hata : error program files (88) : block overflow for #endconfig

[transistor]

Hayırlı pazarlar arkadaşlar, 16f877A 'dan 18f452'ye geçtim ancak derleyicide aldığım hata şöyle,

error program files (88) : block overflow for #endconfig

daha önce karşılaşan oldumu?

[ete]

Sigorta ayarlarında bir sorun olduğu görülüyor ama sen maalesef görebilmemiz için bir şey koymamışsın. O zaman soruna cevap vereyim. Bu hata ile daha önce karşılaşmadım.

Ete

[transistor]

Unutmuşum hocam kusuruma bakmayın benim hatam. Sigorta ayarları varken veya yokken de aynı hatayı alıyorum.

Ekran görüntüsü: https://hizliresim.com/saqzq2z

#CONFIG
  CONFIG  OSC = HS          ; HS oscillator
  CONFIG  OSCS = ON          ; Oscillator system clock switch option is enabled (oscillator switching is enabled)
  CONFIG  PWRT = OFF        ; PWRT disabled
  CONFIG  BOR = ON          ; Brown-out Reset enabled
  CONFIG  BORV = 27          ; VBOR set to 2.7V
  CONFIG  WDT = ON          ; WDT enabled
  CONFIG  WDTPS = 128        ; 1:128
  CONFIG  CCP2MUX = OFF      ; CCP2 input/output is multiplexed with RB3
  CONFIG  STVR = OFF        ; Stack Full/Underflow will not cause RESET
  CONFIG  LVP = OFF          ; Low Voltage ICSP disabled
  CONFIG  DEBUG = OFF        ; Background Debugger disabled. RB6 and RB7 configured as general purpose I/O pins.
  CONFIG  CP0 = OFF          ; Block 0 (000200-001FFFh) not code protected
  CONFIG  CP1 = OFF          ; Block 1 (002000-003FFFh) not code protected
  CONFIG  CP2 = OFF          ; Block 2 (004000-005FFFh) not code protected
  CONFIG  CP3 = OFF          ; Block 3 (006000-007FFFh) not code protected
  CONFIG  CPB = OFF          ; Boot Block (000000-0001FFh) not code protected
  CONFIG  CPD = OFF          ; Data EEPROM not code protected
  CONFIG  WRT0 = OFF        ; Block 0 (000200-001FFFh) not write protected
  CONFIG  WRT1 = OFF        ; Block 1 (002000-003FFFh) not write protected
  CONFIG  WRT2 = OFF        ; Block 2 (004000-005FFFh) not write protected
  CONFIG  WRT3 = OFF        ; Block 3 (006000-007FFFh) not write protected
  CONFIG  WRTC = OFF        ; Configuration registers (300000-3000FFh) not write protected
  CONFIG  WRTB = OFF        ; Boot Block (000000-0001FFh) not write protected
  CONFIG  WRTD = OFF        ; Data EEPROM not write protected
  CONFIG  EBTR0 = OFF        ; Block 0 (000200-001FFFh) not protected from Table Reads executed in other blocks
  CONFIG  EBTR1 = OFF        ; Block 1 (002000-003FFFh) not protected from Table Reads executed in other blocks
  CONFIG  EBTR2 = OFF        ; Block 2 (004000-005FFFh) not protected from Table Reads executed in other blocks
  CONFIG  EBTR3 = OFF        ; Block 3 (006000-007FFFh) not protected from Table Reads executed in other blocks
  CONFIG  EBTRB = OFF        ; Boot Block (000000-0001FFh) not protected from Table Reads executed in other blocks
#ENDCONFIG
DEFINE OSC 4
T0CON=$D5 : INTCON=$A0
ON INTERRUPT GoTo KESME
ADCON1 = 7
Include "MODEDEFS.BAS"
DEFINE LCD_DREG        PORTB    
DEFINE LCD_DBIT        4        
DEFINE LCD_RSREG    PORTB    
DEFINE LCD_RSBIT    2    
DEFINE LCD_EREG        PORTB    
DEFINE LCD_EBIT        3        
DEFINE LCD_BITS        4    
DEFINE LCD_LINES    4
DEFINE LCD_COMMANDUS 2000  
DEFINE LCD_DATAUS 50
TRISA=%111111
TRISB=%11      : PORTB=%0  
TRISC=%00000000 : PORTC=$00
TRISD=%00000000 : PORTD=$00
TRISE=%111
START VAR PORTA.5 : UP VAR PORTE.0 : DOWN VAR PORTE.1 : SET VAR PORTE.2
M1A VAR PORTC.0 : M1U VAR PORTC.1 : M1Y VAR PORTC.2 
M2A VAR PORTC.3 : M2U VAR PORTD.0 : M2Y VAR PORTD.1 
M3A VAR PORTD.2 : M3U VAR PORTD.3 : M3Y VAR PORTC.4 
M4A VAR PORTC.5 : M4U VAR PORTC.6 : M4Y VAR PORTC.7 
M5A VAR PORTD.4 : M5U VAR PORTD.5 : M5Y VAR PORTD.6  
'---------------------------
M1SS VAR PORTA.0 : M2SS VAR PORTA.1 : M3SS VAR PORTA.2
M4SS VAR PORTA.3 : M5SS VAR PORTA.4 
VERI VAR PORTB.0 : JMP VAR PORTB.1 : BACKLIGHT VAR PORTD.7
'****************************************************************
SICAKLIK VAR BYTE : SICAKLIK=0
T1 VAR WORD : T2 VAR WORD : T3 VAR WORD : T4 VAR WORD : T5 VAR WORD
O1 VAR WORD : O2 VAR WORD : O3 VAR WORD : O4 VAR WORD : O5 VAR WORD
T1=0 : O1=0 : T2=0 : O2=0 : T3=0 : O3=0 : T4=0 : O4=0 : T5=0 : O5=0 
'****************************************************************
B0 VAR BYTE : B0=0 : B1 VAR BYTE : B1=0 : B2 VAR BYTE : B2=0
'---------------------------
A VAR BIT : P1 VAR BIT : P2 VAR BIT : P3 VAR BIT : P4 VAR BIT : P5 VAR BIT
A=1 : P1=1 : P2=1 : P3=1 : P4=1 : P5=1
'---------------------------
C1 VAR BYTE : C2 VAR BYTE : C3 VAR BYTE : C4 VAR BYTE : C5 VAR BYTE
C1=3 : C2=3 : C3=3 : C4=3 : C5=3 
'---------------------------
SAYAC VAR BYTE : SANIYE VAR BYTE
'---------------------------
HOUR VAR BYTE : MINUTE VAR BYTE : SECOND VAR BYTE : ARASN VAR BYTE : BACKL VAR BYTE
'---------------------------
KUMANDA VAR BIT : KUMANDA=1
SING VAR BYTE : SING=1 
U VAR BIT : U=0
ISI1 VAR BYTE : ISI2 VAR BYTE : ISI3 VAR BYTE : ISI4 VAR BYTE : ISI5 VAR BYTE
ISI1=8 : ISI2=8 : ISI3=8 : ISI4=8 : ISI5=8
'---------------------------
M1 VAR BYTE : M2 VAR BYTE : M3 VAR BYTE : M4 VAR BYTE : M5 VAR BYTE
'---------------------------
Y VAR BYTE : Y=0 : MS VAR WORD : MS=100
GECIKME VAR WORD : G VAR BYTE : GS VAR BYTE
'*****************************************************************
D CON 223                                    ' DERECE
LCDOUT $FE,$40,$4,$4,$4,$4,$15,$E,$4,$0      ' 8 AŞAĞI OK
LCDOUT $FE,$48,$4,$4,$E,$A,$11,$11,$1F,$0    ' 1 UCGEN
LCDOUT $FE,$50,$4,$0,$E,$4,$4,$4,$E,$0        ' 2 İ HARFİ
LCDOUT $FE,$58,$1F,$11,$11,$11,$11,$11,$1F,$0 ' 3 BOŞ KARE
LCDOUT $FE,$60,$1F,$11,$15,$15,$15,$11,$1F,$0 ' 4 DOLU KARE
LCDOUT $FE,$68,$0,$0,$1,$2,$14,$8,$0,$0      ' 5 TAMAM İŞARETİ
LCDOUT $FE,$70,$E,$15,$15,$17,$11,$11,$E,$0  ' 6 SAAT RESMİ
LCDOUT $FE,$78,$4,$E,$15,$4,$4,$4,$4,$0      ' 7 YUKARI OK
'****************************************************************
HIGH BACKLIGHT : LCDOUT $FE,1 : PAUSE 350 : GOSUB READEEPROM
'*****************************************************************
ANAPROGRAM:
GOSUB ANAEKRAN
GOSUB MANUEL
IF SECOND=59 THEN
GOSUB VERIAL 
ENDIF
GOSUB MOTORKAPAT
IF ARASN>=11 THEN ARASN=1
IF BACKL=120 THEN LOW BACKLIGHT
IF SET=1 THEN
  WHILE SET=1 : WEND
    HIGH BACKLIGHT
    GOSUB READEEPROM                                                                                                  
  GOTO SETTIME
ENDIF
IF A=1 AND START=1 THEN
WHILE START=1 : WEND
HIGH BACKLIGHT : GOSUB OTOMATIK
ENDIF
IF A=0 AND START=1 THEN
WHILE START=1 : WEND
PORTC=$00 : PORTD=$00
HIGH BACKLIGHT
LCDOUT $FE,$94,"mk" 
PAUSE 1000
P1=1 : P2=1 : P3=1 : P4=1 : P5=1
A=1 : BACKL=0
ENDIF

IF UP=1 THEN GOSUB MOTOR_SURE

IF DOWN=1 THEN 
 WHILE DOWN=1 : WEND
  HIGH BACKLIGHT
  LCDOUT $FE,1
 GOTO TEMPSCREEN
ENDIF
'---------------------------
IF JMP=1 AND HOUR=8 AND MINUTE=0 AND SECOND=0 THEN GUNBITIMI
'---------------------------

GOTO ANAPROGRAM 

ANAEKRAN:

LCDOut $FE,$80,6,":",DEC2 HOUR,":",DEC2 MINUTE,":",DEC2 SECOND," ISI:",DEC2 SICAKLIK,D,"C"

IF JMP=1 AND U=0 THEN
LCDOut $FE,$C0,"MOTORLAR BASLIYOR..!"
U=1
GOTO GEC
ENDIF

IF ARASN>0 AND ARASN<3 THEN
IF M1A=1 THEN
LCDOut $FE,$C0," 1. MOTOR:CALISIYOR "
C1=4
ELSE
LCDOut $FE,$C0," 1. MOTOR:CALISMIYOR"
C1=3
ENDIF
ENDIF

IF ARASN>=3 AND ARASN<5 THEN
IF M2A=1 THEN
LCDOut $FE,$C0," 2. MOTOR:CALISIYOR "
C2=4
ELSE
LCDOut $FE,$C0," 2. MOTOR:CALISMIYOR"
C2=3
ENDIF
ENDIF

IF ARASN>=5 AND ARASN<7 THEN
IF M3A=1 THEN
LCDOut $FE,$C0," 3. MOTOR:CALISIYOR "
C3=4
ELSE
LCDOut $FE,$C0," 3. MOTOR:CALISMIYOR"
C3=3
ENDIF
ENDIF

IF ARASN>=7 AND ARASN<9 THEN
IF M4A=1 THEN
LCDOut $FE,$C0," 4. MOTOR:CALISIYOR "
C4=4
ELSE
LCDOut $FE,$C0," 4. MOTOR:CALISMIYOR"
C4=3
ENDIF
ENDIF

IF ARASN>=9 AND ARASN<11 THEN
IF M5A=1 THEN
LCDOut $FE,$C0," 5. MOTOR:CALISIYOR "
C5=4
ELSE
LCDOut $FE,$C0," 5. MOTOR:CALISMIYOR"
C5=3
ENDIF
ENDIF

GEC:
LCDOUT $FE,$94," 1:",C1," 2:",C2," 3:",C3," 4:",C4," 5:",C5

IF JMP=1 THEN
LCDOut $FE,$D4,"+OTO"
ELSE
LCDOut $FE,$D4,"-MAN"
ENDIF

LCDOut $FE,$D9,"M1",ISI1,"M2",ISI2,"M3",ISI3,"M4",ISI4,"M5",ISI5

RETURN

OTOMATIK:

WHILE PORTC=%00000000 AND PORTD=%10000000
GOSUB READEEPROM : gosub ANAEKRAN
A=0 : HOUR=0 : MINUTE=0 : SECOND=0 : SANIYE=0
LCDOut $FE,$C0,"MOTORLAR BASLIYOR..!"
'---------------------------
GOSUB GSURE
M1BAS:
 HIGH M1A : LOW M1U : HIGH M1Y
  LCDOUT $FE,$94,"1.MOTOR:YILDIZ-    "
  IF M1=0 THEN
    GOSUB M_SN
    HIGH M1A : LOW M1Y : HIGH M1U
      LCDOUT $FE,$94,"1.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
        GOTO J1
        ENDIF  
          IF SANIYE>=M1 THEN
        HIGH M1A : LOW M1Y : HIGH M1U
        LCDOUT $FE,$94,"1.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
      ELSE
    GOTO M1BAS
    ENDIF
  J1:
  LCDOut $FE,$94,"  ",5," 1.MOTOR ACILDI  "
 PAUSE 1000
GOSUB GSURE
'---------------------------
M2BAS:
 HIGH M2A : LOW M2U : HIGH M2Y
  LCDOUT $FE,$94,"2.MOTOR:YILDIZ-    "
  IF M2=0 THEN
    GOSUB M_SN
    HIGH M2A : LOW M2Y : HIGH M2U
      LCDOUT $FE,$94,"2.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
        GOTO J2
        ENDIF  
          IF SANIYE>=M2 THEN
        HIGH M2A : LOW M2Y : HIGH M2U
        LCDOUT $FE,$94,"2.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
      ELSE
    GOTO M2BAS
    ENDIF
  J2:
  LCDOut $FE,$94,"  ",5," 2.MOTOR ACILDI  "
 PAUSE 1000
GOSUB GSURE 
'---------------------------
M3BAS:
 HIGH M3A : LOW M3U : HIGH M3Y
  LCDOUT $FE,$94,"3.MOTOR:YILDIZ-    "
  IF M3=0 THEN
    GOSUB M_SN
    HIGH M3A : LOW M3Y : HIGH M3U
      LCDOUT $FE,$94,"3.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
        GOTO J3
        ENDIF 
          IF SANIYE>=M3 THEN
        HIGH M3A : LOW M3Y : HIGH M3U
        LCDOUT $FE,$94,"3.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
      ELSE
    GOTO M3BAS
    ENDIF
  J3:
  LCDOut $FE,$94,"  ",5," 3.MOTOR ACILDI  "
 PAUSE 1000
GOSUB GSURE
'---------------------------
M4BAS:
 HIGH M4A : LOW M4U : HIGH M4Y
  LCDOUT $FE,$94,"4.MOTOR:YILDIZ-    "
  IF M4=0 THEN
    GOSUB M_SN
    HIGH M4A : LOW M4Y : HIGH M4U
      LCDOUT $FE,$94,"4.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
        GOTO J4
        ENDIF  
          IF SANIYE>=M4 THEN
        HIGH M4A : LOW M4Y : HIGH M4U
        LCDOUT $FE,$94,"4.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
      ELSE
    GOTO M4BAS
    ENDIF
  J4:
  LCDOut $FE,$94,"  ",5," 4.MOTOR ACILDI  "
 PAUSE 1000
GOSUB GSURE
'---------------------------
M5BAS:
 HIGH M5A : LOW M5U : HIGH M5Y
  LCDOUT $FE,$94,"5.MOTOR:YILDIZ-    "
  IF M5=0 THEN
    GOSUB M_SN
    HIGH M5A : LOW M5Y : HIGH M5U
      LCDOUT $FE,$94,"5.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
        GOTO J5
        ENDIF  
          IF SANIYE>=M5 THEN
        HIGH M5A : LOW M5Y : HIGH M5U
        LCDOUT $FE,$94,"5.MOTOR:YILDIZ-UCGEN"
      PAUSE 1500
      ELSE
    GOTO M5BAS
    ENDIF
  J5:
  LCDOut $FE,$94,"  ",5," 5.MOTOR ACILDI  "
GOSUB GSURE
'---------------------------
LCDOUT $FE,$C0,"MOTOR OFF : 08:00:00"
LCDOUT $FE,$94,"*MOTORLAR CALISIYOR!"
GOSUB DELAY : LCDOUT $FE,1
P1=0 : P2=0 : P3=0 : P4=0 : P5=0
HOUR=0 : MINUTE=0 : SECOND=0 : ARASN=0 : BACKL=0 
'---------------------------
WEND

RETURN
MANUEL:
IF M1SS=1 AND P1=0 THEN
WHILE M1SS=1 : WEND
LOW M1A : LOW M1U : LOW M1Y : HIGH BACKLIGHT
LCDOUT $FE,$94," 1. MOTOR KAPATILDI "
PAUSE 1250
P1=1 : BACKL=0
ENDIF
IF M1SS=1 AND P1=1 THEN
WHILE M1SS=1 : WEND
HIGH M1A : HIGH M1Y : LOW M1U : HIGH BACKLIGHT
LCDOUT $FE,$94,"MOTOR 1:YILDIZ      "
A=0 : P1=0 : SANIYE=0
IF M1=0 THEN
GOSUB M_SN
LOW M1Y : HIGH M1U
LCDOUT $FE,$94,"MOTOR 1:YILDIZ-UCGEN"
PAUSE 1250
GOTO ATLA1
ENDIF
Y1:
IF SANIYE>=M1 THEN
LOW M1Y : HIGH M1U
LCDOUT $FE,$94,"MOTOR 1:YILDIZ-UCGEN"
PAUSE 1250
ELSE
GOTO Y1
BACKL=0
ENDIF
ENDIF
ATLA1:
IF M2SS=1 AND P2=0 THEN
WHILE M2SS=1 : WEND
LOW M2A : LOW M2U : LOW M2Y : HIGH BACKLIGHT
LCDOUT $FE,$94," 2. MOTOR KAPATILDI "
PAUSE 1250
P2=1 : BACKL=0
ENDIF
IF M2SS=1 AND P2=1 THEN
WHILE M2SS=1 : WEND
HIGH M2A : HIGH M2Y : LOW M2U : HIGH BACKLIGHT
LCDOUT $FE,$94,"MOTOR 2:YILDIZ      "
A=0 : P2=0 : SANIYE=0
IF M2=0 THEN
GOSUB M_SN
LOW M2Y : HIGH M2U
LCDOUT $FE,$94,"MOTOR 2:YILDIZ-UCGEN"
PAUSE 1250
GOTO ATLA2
ENDIF 
Y2:  
IF SANIYE>=M2 THEN
LOW M2Y : HIGH M2U
LCDOUT $FE,$94,"MOTOR 2:YILDIZ-UCGEN"
PAUSE 1250
ELSE
GOTO Y2
BACKL=0
ENDIF
ENDIF
ATLA2:
IF M3SS=1 AND P3=0 THEN
WHILE M3SS=1 : WEND
LOW M3A : LOW M3U : LOW M3Y : HIGH BACKLIGHT
LCDOUT $FE,$94," 3. MOTOR KAPATILDI "
PAUSE 1250
P3=1 : BACKL=0
ENDIF
IF M3SS=1 AND P3=1 THEN
WHILE M3SS=1 : WEND
HIGH M3A : HIGH M3Y : LOW M3U : HIGH BACKLIGHT 
LCDOUT $FE,$94,"MOTOR 3:YILDIZ      "
A=0 : P3=0 : SANIYE=0
IF M3=0 THEN
GOSUB M_SN
LOW M3Y : HIGH M3U
LCDOUT $FE,$94,"MOTOR 3:YILDIZ-UCGEN"
PAUSE 1250
GOTO ATLA3
ENDIF 
Y3:  
IF SANIYE>=M3 THEN
LOW M3Y : HIGH M3U
LCDOUT $FE,$94,"MOTOR 3:YILDIZ-UCGEN"
PAUSE 1250
ELSE
GOTO Y3
BACKL=0
ENDIF
ENDIF
ATLA3:
IF M4SS=1 AND P4=0 THEN
WHILE M4SS=1 : WEND
LOW M4A : LOW M4U : LOW M4Y : HIGH BACKLIGHT
LCDOUT $FE,$94," 4. MOTOR KAPATILDI "
PAUSE 1250
P4=1 : BACKL=0
ENDIF
IF M4SS=1 AND P4=1 THEN
WHILE M4SS=1 : WEND
HIGH M4A : HIGH M4Y : LOW M4U : HIGH BACKLIGHT 
LCDOUT $FE,$94,"MOTOR 4:YILDIZ      "
A=0 : P4=0 : SANIYE=0
IF M4=0 THEN
GOSUB M_SN
LOW M4Y : HIGH M4U
LCDOUT $FE,$94,"MOTOR 4:YILDIZ-UCGEN"
PAUSE 1250
GOTO ATLA4
ENDIF
Y4:  
IF SANIYE>=M4 THEN
LOW M4Y : HIGH M4U
LCDOUT $FE,$94,"MOTOR 4:YILDIZ-UCGEN"
PAUSE 1250
ELSE
GOTO Y4
BACKL=0
ENDIF
ENDIF
ATLA4:
IF M5SS=1 AND P5=0 THEN
WHILE M5SS=1 : WEND
LOW M5A : LOW M5U : LOW M5Y : HIGH BACKLIGHT
LCDOUT $FE,$94," 5. MOTOR KAPATILDI "
PAUSE 1250
P5=1 : BACKL=0
ENDIF
IF M5SS=1 AND P5=1 THEN
WHILE M5SS=1 : WEND
HIGH M5A : HIGH M5Y : LOW M5U : HIGH BACKLIGHT
LCDOUT $FE,$94,"MOTOR 5:YILDIZ      "
A=0 : P5=0 : SANIYE=0
IF M5=0 THEN
GOSUB M_SN
LOW M5Y : HIGH M5U
LCDOUT $FE,$94,"MOTOR 5:YILDIZ-UCGEN"
PAUSE 1250
GOTO ATLA5
ENDIF 
Y5:  
IF SANIYE>=M5 THEN
LOW M5Y : HIGH M5U
LCDOUT $FE,$94,"MOTOR 5:YILDIZ-UCGEN"
PAUSE 1250
ELSE
GOTO Y5
BACKL=0
ENDIF
ENDIF
ATLA5:

RETURN

MOTORKAPAT:

READ 6, SICAKLIK

IF T1>SICAKLIK THEN
LOW M1A : LOW M1U : LOW M1Y
ISI1=7
ELSE
ISI1=0
ENDIF

IF T2>SICAKLIK THEN
LOW M2A : LOW M2U : LOW M2Y
ISI2=7
ELSE
ISI2=0
ENDIF

IF T3>SICAKLIK THEN
LOW M3A : LOW M3U : LOW M3Y
ISI3=7
ELSE
ISI3=0
ENDIF

IF T4>SICAKLIK THEN
LOW M4A : LOW M4U : LOW M4Y
ISI4=7
ELSE
ISI4=0
ENDIF

IF T5>SICAKLIK THEN
LOW M5A : LOW M5U : LOW M5Y
ISI5=7
ELSE
ISI5=0
ENDIF

RETURN
TEMPSCREEN:
IF SET=1 THEN
 WHILE SET=1 : WEND
  LCDOUT $FE,1 : ARASN=0 : BACKL=0
 GOTO ANAPROGRAM
ENDIF

IF UP=1 THEN
 WHILE UP=1 : WEND
  SICAKLIK=SICAKLIK+1
    IF SICAKLIK=100 THEN SICAKLIK=1
    WRITE 6, SICAKLIK : PAUSE 10
      ENDIF
    IF DOWN=1 THEN
    WHILE DOWN=1 : WEND
  SICAKLIK=SICAKLIK-1
  IF SICAKLIK=0 THEN SICAKLIK=99
 WRITE 6, SICAKLIK : PAUSE 10
ENDIF 

GOSUB VERIAL
LCDOUT $FE,$80,"M1:",DEC2 T1,".",DEC1 O1,D,"C"
LCDOUT $FE,$C0,"M2:",DEC2 T2,".",DEC1 O2,D,"C"
LCDOUT $FE,$94,"M3:",DEC2 T3,".",DEC1 O3,D,"C  ISI AYARI"
LCDOUT $FE,$D4,"M4:",DEC2 T4,".",DEC1 O4,D,"C    ",DEC3 SICAKLIK,D,"C"
LCDOUT $FE,$8A,"M5:",DEC2 T5,".",DEC1 O5,D,"C"
PAUSE 200

GOTO TEMPSCREEN
SETTIME:

LCDOut $FE,$80,"  YILDIZ - UCGEN  "
LCDOut $FE,$C0,"    GEC",2,"S SURES",2,"    "

IF SING=7 THEN 
GOSUB READEEPROM
LCDOut $FE,1
SING=1 : ARASN=0 : BACKL=0
GOTO ANAPROGRAM
ENDIF

IF START=1 THEN
WHILE START=1 : WEND
READ 7, Y
LCDOUT $FE,1
HIGH BACKLIGHT
GOTO SET_MS
ENDIF

IF SET=1 THEN
WHILE SET=1 : WEND
SING=SING+1
ENDIF

IF SING=1 THEN
IF M1=0 THEN
LCDOut $FE,$94,"      MOTOR 1: *    "
LCDOUT $FE,$D4," ZAMAN: ","(mS)"," SAN",2,"YE "
ELSE
LCDOut $FE,$94,"      MOTOR 1: *    "
LCDOUT $FE,$D4,"  ZAMAN: ",DEC2 M1," SAN",2,"YE  "
ENDIF
ENDIF
 IF SING=1 AND UP=1 THEN
  WHILE UP=1 : WEND
    M1=M1+1
      IF M1=31 THEN M1=0
        WRITE 1, M1 : PAUSE 10 
          ENDIF
        IF SING=1 AND DOWN=1 THEN
      WHILE DOWN=1 : WEND
    M1=M1-1
  IF M1=255 THEN M1=30
WRITE 1, M1 : PAUSE 10 
ENDIF
IF SING=2 THEN
IF M2=0 THEN
LCDOut $FE,$94,"      MOTOR 2: **  "
LCDOUT $FE,$D4," ZAMAN: ","(mS)"," SAN",2,"YE "
ELSE
LCDOut $FE,$94,"      MOTOR 2: **  "
LCDOUT $FE,$D4,"  ZAMAN: ",DEC2 M2," SAN",2,"YE  "
ENDIF
ENDIF
IF SING=2 AND UP=1 THEN
  WHILE UP=1 : WEND
    M2=M2+1
      IF M2=31 THEN M2=0
        WRITE 2, M2 : PAUSE 10 
          ENDIF
        IF SING=2 AND DOWN=1 THEN
      WHILE DOWN=1 : WEND
    M2=M2-1
  IF M2=255 THEN M2=30
WRITE 2, M2 : PAUSE 10 
ENDIF
IF SING=3 THEN
IF M3=0 THEN
LCDOut $FE,$94,"      MOTOR 3: ***  "
LCDOUT $FE,$D4," ZAMAN: ","(mS)"," SAN",2,"YE "
ELSE
LCDOut $FE,$94,"      MOTOR 3: ***  "
LCDOUT $FE,$D4,"  ZAMAN: ",DEC2 M3," SAN",2,"YE  "
ENDIF
ENDIF
IF SING=3 AND UP=1 THEN
  WHILE UP=1 : WEND
    M3=M3+1
      IF M3=31 THEN M3=0
        WRITE 3, M3 : PAUSE 10 
          ENDIF
        IF SING=3 AND DOWN=1 THEN
      WHILE DOWN=1 : WEND
    M3=M3-1
  IF M3=255 THEN M3=30
WRITE 3, M3 : PAUSE 10 
ENDIF
IF SING=4 THEN
IF M4=0 THEN
LCDOut $FE,$94,"      MOTOR 4: **** "
LCDOUT $FE,$D4," ZAMAN: ","(mS)"," SAN",2,"YE "
ELSE
LCDOut $FE,$94,"      MOTOR 4: **** "
LCDOUT $FE,$D4,"  ZAMAN: ",DEC2 M4," SAN",2,"YE  "
ENDIF
ENDIF
IF SING=4 AND UP=1 THEN
  WHILE UP=1 : WEND
    M4=M4+1
      IF M4=31 THEN M4=0
        WRITE 4, M4 : PAUSE 10 
          ENDIF
        IF SING=4 AND DOWN=1 THEN
      WHILE DOWN=1 : WEND
    M4=M4-1
  IF M4=255 THEN M4=30
WRITE 4, M4 : PAUSE 10 
ENDIF
IF SING=5 THEN
IF M5=0 THEN
LCDOut $FE,$94,"      MOTOR 5: *****"
LCDOUT $FE,$D4," ZAMAN: ","(mS)"," SAN",2,"YE "
ELSE
LCDOut $FE,$94,"      MOTOR 5: *****"
LCDOUT $FE,$D4,"  ZAMAN: ",DEC2 M5," SAN",2,"YE  "
ENDIF
ENDIF
IF SING=5 AND UP=1 THEN
  WHILE UP=1 : WEND
    M5=M5+1
      IF M5=31 THEN M5=0
        WRITE 5, M5 : PAUSE 10 
          ENDIF
        IF SING=5 AND DOWN=1 THEN
      WHILE DOWN=1 : WEND
    M5=M5-1
  IF M5=255 THEN M5=30
WRITE 5, M5 : PAUSE 10 
ENDIF

IF SING=6 THEN
SING=SING+1
LCDOUT $FE,$80,"--------------------"
LCDOUT $FE,$C0,"  ZAMAN AYARLARI  "
LCDOUT $FE,$94,"    KAYDEDiLDi    "
LCDOUT $FE,$D4,"--------------------"
PAUSE 1150
ENDIF

GOTO SETTIME
SET_MS:

IF START=1 THEN
WHILE START=1 : WEND
LCDOUT $FE,1
HIGH BACKLIGHT
READ 8, GECIKME
GOTO GECISZAMANI
ENDIF

IF SET=1 THEN
WHILE SET=1 : WEND
LCDOUT $FE,1
ARASN=0 : BACKL=0
GOTO ANAPROGRAM
ENDIF

IF UP=1 THEN
 WHILE UP=1 : WEND
  MS=MS+100
    IF MS=1100 THEN MS=100
      Y=(MS/10)
        WRITE 7, Y : PAUSE 10 
          ENDIF
        IF DOWN=1 THEN
      WHILE DOWN=1 : WEND
      MS=MS-100
    IF MS<99 THEN MS=1000
  Y=(MS/10)
  WRITE 7, Y : PAUSE 10 
ENDIF

MS=(Y*10)

LCDOut $FE,$80," *1 SANiYE ALTINDA  "
LCDOut $FE,$C0,"  ZAMAN AYARI YAP:  "
LCDOUT $FE,$94,"  ZAMAN: ",DEC4 MS," (mS)  " 
LCDOut $FE,$D4,"MIN:100mS-MAX:1000mS"

GOTO SET_MS
GECISZAMANI:

IF SET=1 THEN
WHILE SET=1 : WEND
LCDOUT $FE,1
ARASN=0 : BACKL=0
GOTO ANAPROGRAM
ENDIF

IF UP=1 THEN
 WHILE UP=1 : WEND
  GECIKME=GECIKME+1000
  IF GECIKME=11000 THEN GECIKME=1000
    G=(GECIKME/100)
    WRITE 8, G : PAUSE 10
      ENDIF
      IF DOWN=1 THEN
    WHILE DOWN=1 : WEND
    GECIKME=GECIKME-1000
  IF GECIKME<1000 THEN GECIKME=10000
  G=(GECIKME/100) 
 WRITE 8, G : PAUSE 10
ENDIF

GECIKME=(G*100)
GS=(GECIKME/1000)

LCDOut $FE,$80,"  *MOTORLAR ARASI  "
LCDOut $FE,$C0,"  GECiS SURESi:    "
LCDOUT $FE,$94," ZAMAN: ",DEC5 GECIKME," (mS.) " 
LCDOut $FE,$D4,"  ZAMAN: ",DEC2 GS," SANiYE  "

GOTO GECISZAMANI
VERIAL:
SERIN2 VERI,396,[T1,O1,T2,O2,T3,O3,T4,O4,T5,O5] 
RETURN
M_SN:
PAUSE MS
RETURN
MOTOR_SURE:
HIGH BACKLIGHT
PAUSE 50
LCDOUT $FE,1
WHILE UP=1
LCDOut $FE,$80,"MOT1:",DEC2 M1,"Sn"," MOT5:",DEC2 M5,"Sn"
LCDOut $FE,$C0,"MOT2:",DEC2 M2,"Sn"
LCDOUT $FE,$94,"MOT3:",DEC2 M3,"Sn" 
LCDOut $FE,$D4,"MOT4:",DEC2 M4,"Sn"
WEND
PAUSE 2000
LCDOUT $FE,1
ARASN=0 : BACKL=0
RETURN
GUNBITIMI:
HIGH BACKLIGHT

GOSUB GSURE
low M1A : low M1U : low M1Y
gosub GSURE
low M2A : low M2U : low M2Y
gosub GSURE
low M3A : low M3U : low M3Y
gosub GSURE
low M4A : low M4U : low M4Y
gosub GSURE
low M5A : low M5U : low M5Y
GOSUB GSURE

HOUR=8 : MINUTE=1 : SECOND=0 : BACKL=0

LCDOUT $FE,1

return
DELAY:
PAUSE 3000 : SANIYE=0 : SAYAC=0 
RETURN
GSURE:
PAUSE GECIKME : SANIYE=0 : SAYAC=0 
RETURN
READEEPROM:
READ 1, M1 : PAUSEUS 50
READ 2, M2 : PAUSEUS 50
READ 3, M3 : PAUSEUS 50
READ 4, M4 : PAUSEUS 50
READ 5, M5 : PAUSEUS 50
READ 6, SICAKLIK : PAUSEUS 50
READ 7, MS : PAUSEUS 50
READ 8, G : PAUSEUS 50
RETURN
DISABLE
KESME:
IF KUMANDA=1 THEN 
GOTO SAY    
ELSE
GOTO DEVAM 
ENDIF
SAY:            
SAYAC=SAYAC+1      'kesme sayacı  1 sn= 61(sayac) x 256 (Tmr0) x 64 (bölme)
IF SAYAC=61 then  '61 adet kesme olunca 1 sn. süre geçiyor.(999424 us)
SAYAC=0          'sayaç sıfırlanıyor
BACKL=BACKL+1
ARASN=ARASN+1
SANIYE=SANIYE+1
SECOND=SECOND+1
IF SECOND=60 THEN
SECOND=0
MINUTE=MINUTE+1
IF MINUTE=60 THEN
MINUTE=0
HOUR=HOUR+1
IF HOUR=24 THEN
HOUR=0
ENDIF
ENDIF
ENDIF
ENDIF  
DEVAM:    
INTCON.2=0  
RESUME
ENABLE        
END

[onurinci]

kusursuz derleniyor . sanırım versiyon farkı

[transistor]

kusursuz derleniyor . sanırım versiyon farkı

Benden trial edition yazıyor. Forumdan mi yüklediniz? link var mı bende deneyeyim.

[transistor]

Forumdan indirip yükledim trial versiyon ama derledi.

[onurinci]

Sonsivri'den indirmiştim.paylaşamıyorum.zira kurulum dosyasının olduğu flash bellek bozuldu..

[transistor]

Sonsivri'den indirmiştim.paylaşamıyorum.zira kurulum dosyasının olduğu flash bellek bozuldu..

Bu site davet gibi birşey istiyor kayıt olamadım. Yine de teşekkürler ilginiz için.