yardım lütfen

Başlatan ozgurgune1, 22 Mayıs 2012, 21:48:28

ozgurgune1

arkadaşlar elimde assembly ile yazılmış pic kodları var ama ne anlama geldiğini bilmiyorum. bana bunları anlatabilecek birisi var mı acaba?

malpaslan1979

şemayı bir resim sitesine yükle linkini buraya koy birde şu bahsettiğin kodlarıda buraya kopyala yapıştır yap ondan sonra duruma göre cevap alırsın.

ozgurgune1


; PICBASIC PRO(TM) Compiler 2.60, (c) 1998, 2009 microEngineering Labs, Inc. All Rights Reserved.
PM_USED         EQU   1

   INCLUDE   "16F88.INC"


; Define statements.
#define      CODE_SIZE       4
#define      OSC       4

RAM_START             EQU   00020h
RAM_END               EQU   001EFh
RAM_BANKS             EQU   00004h
BANK0_START           EQU   00020h
BANK0_END             EQU   0007Fh
BANK1_START           EQU   000A0h
BANK1_END             EQU   000EFh
BANK2_START           EQU   00110h
BANK2_END             EQU   0016Fh
BANK3_START           EQU   00190h
BANK3_END             EQU   001EFh
EEPROM_START          EQU   02100h
EEPROM_END            EQU   021FFh

R0                    EQU   RAM_START + 000h
R1                    EQU   RAM_START + 002h
R2                    EQU   RAM_START + 004h
R3                    EQU   RAM_START + 006h
R4                    EQU   RAM_START + 008h
R5                    EQU   RAM_START + 00Ah
R6                    EQU   RAM_START + 00Ch
R7                    EQU   RAM_START + 00Eh
R8                    EQU   RAM_START + 010h
FLAGS                 EQU   RAM_START + 012h
GOP                   EQU   RAM_START + 013h
RM1                   EQU   RAM_START + 014h
RM2                   EQU   RAM_START + 015h
RR1                   EQU   RAM_START + 016h
RR2                   EQU   RAM_START + 017h
_Float                 EQU   RAM_START + 018h
_FOREND                EQU   RAM_START + 01Ah
_HAM                   EQU   RAM_START + 01Ch
_I                     EQU   RAM_START + 01Eh
_ISI                   EQU   RAM_START + 020h
_ISIF                  EQU   RAM_START + 022h
_ISIK                  EQU   RAM_START + 024h
_ISIN                  EQU   RAM_START + 026h
_ISIP                  EQU   RAM_START + 028h
_ISIS                  EQU   RAM_START + 02Ah
_ISIZ                  EQU   RAM_START + 02Ch
T1                    EQU   RAM_START + 02Eh
T2                    EQU   RAM_START + 030h
_TERM                  EQU   RAM_START + 032h
_AKTAR1                EQU   RAM_START + 034h
_AKTAR2                EQU   RAM_START + 035h
_AKTAR3                EQU   RAM_START + 036h
_ISARET                EQU   RAM_START + 037h
_ISIH                  EQU   RAM_START + 038h
_ISIL                  EQU   RAM_START + 039h
_NSIGN                 EQU   RAM_START + 03Ah
_ONDA                  EQU   RAM_START + 03Bh
PB01                  EQU   RAM_START + 03Ch
_POZ                   EQU   RAM_START + 03Dh
_PSIGN                 EQU   RAM_START + 03Eh
_SAYAC                 EQU   RAM_START + 03Fh
_SAYI                  EQU   RAM_START + 040h
_SIGN                  EQU   RAM_START + 041h
_SIRA                  EQU   RAM_START + 042h
_SNS                   EQU   RAM_START + 043h
_SNY                   EQU   RAM_START + 044h
_SYC                   EQU   RAM_START + 045h
_TEMP                  EQU   RAM_START + 046h
_TUS                   EQU   RAM_START + 047h
_X                     EQU   RAM_START + 048h
_Z                     EQU   RAM_START + 049h
_ZNS                   EQU   RAM_START + 04Ah
_PORTL                 EQU    PORTB
_PORTH                 EQU    PORTA
_TRISL                 EQU    TRISB
_TRISH                 EQU    TRISA
_HAM??LOWBYTE          EQU   _HAM
_HAM??HIGHBYTE         EQU   _HAM + 001h
#define _GIEH               _INTCON??7
#define _SET                _PORTA??5
#define _YUKARI             _PORTA??4
#define _ASAGI              _PORTA??3
#define _DIG0               _PORTA??0
#define _DIG1               _PORTA??1
#define _DIG2               _PORTA??2
#define _ROLE               _PORTA??6
#define _AYR                 PB01, 000h
#define _DP                  PB01, 002h
#define _SP                  PB01, 003h
#define _W                   PB01, 005h
#define _U                   PB01, 004h
#define _Busy                PB01, 001h
#define _ISARET_BITI        _HAM??11
#define _Comm_Pin           _PORTA??7
#define _INTCON??7           INTCON, 007h
#define _PORTA??5            PORTA, 005h
#define _PORTA??4            PORTA, 004h
#define _PORTA??3            PORTA, 003h
#define _PORTA??0            PORTA, 000h
#define _PORTA??1            PORTA, 001h
#define _PORTA??2            PORTA, 002h
#define _PORTA??6            PORTA, 006h
#define _HAM??11            _HAM + 001h, 003h
#define _PORTA??7            PORTA, 007h
#define _TEMP??0            _TEMP, 000h
#define _PORTB??7            PORTB, 007h
#define _INTCON??2           INTCON, 002h
   INCLUDE   "TERMOE~1.MAC"
   INCLUDE   "PBPPIC14.LIB"


   ASM?
DEVICE pic16F88                     

   ENDASM?


   ASM?
DEVICE pic16F88, WDT_OFF             

   ENDASM?


   ASM?
DEVICE pic16F88, PWRT_ON             

   ENDASM?


   ASM?
DEVICE pic16F88, PROTECT_OFF         

   ENDASM?


   ASM?
DEVICE pic16F88, LVP_OFF             

   ENDASM?


   ASM?
DEVICE pic16F88, BOD_ON             

   ENDASM?


   ASM?
DEVICE pic16F88, MCLR_off           

   ENDASM?


   ASM?
DEVICE pic16F88, FCMEN_OFF           

   ENDASM?


   ASM?
DEVICE pic16F88, IESO_OFF           

   ENDASM?


   ASM?
DEVICE pic16F88, CCPMX_OFF           

   ENDASM?


   ASM?
DEVICE pic16F88, DEBUG_OFF           

   ENDASM?


   ASM?
DEVICE pic16F88, WRT_OFF             

   ENDASM?


   ASM?
DEVICE pic16F88, CPD_OFF             

   ENDASM?


   ASM?
DEVICE pic16F88, INTRC_OSC_NOCLKOUT 

   ENDASM?

   MOVE?CB   0B8h, TRISA
   MOVE?CB   000h, TRISB
   MOVE?CB   000h, PORTA
   MOVE?CB   000h, PORTB
   MOVE?CB   007h, CMCON
   MOVE?CB   000h, ANSEL
   MOVE?CB   060h, OSCCON
   ONINT?LL   _KESME, L00001
   ICALL?L   L00001
   MOVE?CB   003h, OPTION_REG
   ICALL?L   L00001
   MOVE?CB   020h, INTCON
   ICALL?L   L00001
   MOVE?CB   063h, TMR0
   ICALL?L   L00001
   CLEAR?   
   ICALL?L   L00001
   GOSUB?L   _SENSORYAZ
   ICALL?L   L00001
   GOSUB?L   _EKRAN3
   ICALL?L   L00001
   MOVE?CT   001h, _GIEH

   LABEL?L   _BASLANGIC   
   ICALL?L   L00001
   GOSUB?L   _SENSOROKU
   ICALL?L   L00001
   GOSUB?L   _SENSOROKU
   ICALL?L   L00001
   READADDRESS?C   000h
   READ?B   _ISIL
   ICALL?L   L00001
   READADDRESS?C   001h
   READ?B   _ISIH
   ICALL?L   L00001
   READADDRESS?C   002h
   READ?B   _SNS
   ICALL?L   L00001
   READADDRESS?C   003h
   READ?B   _ZNS
   ICALL?L   L00001
   READADDRESS?C   004h
   READ?B   _SIGN
   ICALL?L   L00001
   READADDRESS?C   005h
   READ?B   _TEMP
   ICALL?L   L00001
   CMPLE?BCL   _ISIL, 063h, L00003
   MOVE?CB   000h, _ISIL
   LABEL?L   L00003   
   ICALL?L   L00001
   CMPLE?BCL   _ISIH, 009h, L00005
   MOVE?CB   000h, _ISIH
   LABEL?L   L00005   
   ICALL?L   L00001
   CMPLE?BCL   _SNS, 032h, L00007
   MOVE?CB   000h, _SNS
   LABEL?L   L00007   
   ICALL?L   L00001
   CMPLE?BCL   _ZNS, 005h, L00009
   MOVE?CB   000h, _ZNS
   LABEL?L   L00009   
   ICALL?L   L00001
   CMPLE?BCL   _SIGN, 02Dh, L00011
   MOVE?CB   02Bh, _SIGN
   LABEL?L   L00011   
   ICALL?L   L00001
   CMPLE?BCL   _TEMP, 001h, L00013
   MOVE?CB   001h, _TEMP
   LABEL?L   L00013   
   ICALL?L   L00001
   MUL?BCW   _ISIL, 00Ah, T1
   ADD?WBW   T1, _ISIH, _TERM
   ICALL?L   L00001
   SUB?WBW   _TERM, _SNS, _ISIS
   ICALL?L   L00001
   ADD?WBW   _TERM, _SNS, _ISIP
   ICALL?L   L00001
   ADD?WBW   _TERM, _ZNS, _ISIZ
   ICALL?L   L00001
   SUB?WBW   _TERM, _ZNS, _ISIN
   ICALL?L   L00001
   CMPLE?BWL   _SNS, _TERM, L00015
   ICALL?L   L00001
   MOVE?CW   000h, _ISIS
   ICALL?L   L00001
   MOVE?CB   02Dh, _PSIGN
   ICALL?L   L00001
   SUB?BWW   _SNS, _TERM, _ISIF
   ICALL?L   L00001
   GOTO?L   L00016
   LABEL?L   L00015   
   ICALL?L   L00001
   MOVE?CB   02Bh, _PSIGN
   ICALL?L   L00001
   LABEL?L   L00016   
   ICALL?L   L00001
   CMPLE?BWL   _ZNS, _TERM, L00017
   ICALL?L   L00001
   MOVE?CW   000h, _ISIN
   ICALL?L   L00001
   MOVE?CB   02Bh, _NSIGN
   ICALL?L   L00001
   SUB?BWW   _ZNS, _TERM, _ISIK
   ICALL?L   L00001
   GOTO?L   L00018
   LABEL?L   L00017   
   ICALL?L   L00001
   MOVE?CB   02Dh, _NSIGN
   ICALL?L   L00001
   LABEL?L   L00018   
   ICALL?L   L00001
   MOVE?CW   03A98h, _FOREND
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   MOVE?CT   000h, _AYR
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND

   LABEL?L   _BASLA   
   ICALL?L   L00001
   GOSUB?L   _EKRAN
   ICALL?L   L00001
   GOSUB?L   _SENSOROKU
   ICALL?L   L00001
   GOSUB?L   _KONTROL
   ICALL?L   L00001
   CMPNE?TCL   _SET, 000h, L00019
   ICALL?L   L00001
   LABEL?L   L00021   
   CMPNE?TCL   _SET, 000h, L00022
   ICALL?L   L00001
   ADD?BCB   _SYC, 001h, _SYC
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   CMPGT?BCB   _SYC, 00Ah, T1
   CMPLT?BCB   _SYC, 051h, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00023
   ICALL?L   L00001
   MOVE?CT   000h, _DP
   ICALL?L   L00001
   GOSUB?L   _EKRAN1
   ICALL?L   L00001
   CMPNE?TCL   _SET, 001h, L00025
   GOTO?L   _AYAR
   LABEL?L   L00025   
   ICALL?L   L00001
   LABEL?L   L00023   
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 064h, L00027
   ICALL?L   L00001
   MOVE?CT   000h, _DP
   ICALL?L   L00001
   MOVE?CT   001h, _SP
   ICALL?L   L00001
   GOSUB?L   _EKRAN5
   ICALL?L   L00001
   CMPNE?TCL   _SET, 001h, L00029
   GOTO?L   _AYAR2
   LABEL?L   L00029   
   ICALL?L   L00001
   LABEL?L   L00027   
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 064h, L00031
   MOVE?CB   065h, _SYC
   LABEL?L   L00031   
   ICALL?L   L00001
   GOTO?L   L00021
   LABEL?L   L00022   
   ICALL?L   L00001
   GOTO?L   L00020
   LABEL?L   L00019   
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   LABEL?L   L00020   
   ICALL?L   L00001
   GOTO?L   _BASLA

   LABEL?L   _SENSORYAZ   
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   001h
   OWOUT?C   0CCh
   OWOUT?C   04Eh
   OWOUT?C   0FFh
   OWOUT?C   0FFh
   OWOUT?C   07Fh
   OWEND?   
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   001h
   OWOUT?C   0CCh
   OWOUT?C   048h
   OWEND?   
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   001h
   OWOUT?C   0CCh
   OWOUT?C   0B8h
   OWEND?   
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   001h
   OWOUT?C   0CCh
   OWOUT?C   0BEh
   OWEND?   
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _SENSOROKU   
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   001h
   OWOUT?C   0CCh
   OWOUT?C   044h
   OWEND?   

   LABEL?L   _Bekle   
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   004h
   OWIN?T   _Busy
   OWEND?   
   ICALL?L   L00001
   CMPEQ?TCL   _Busy, 000h, _Bekle
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   001h
   OWOUT?C   0CCh
   OWOUT?C   0BEh
   OWEND?   
   ICALL?L   L00001
   OWPIN?T   _Comm_Pin
   OWMODE?C   002h
   OWIN?B   _HAM??LOWBYTE
   OWIN?B   _HAM??HIGHBYTE
   OWEND?   
   ICALL?L   L00001
   GOSUB?L   _Hesapla
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _Hesapla   
   ICALL?L   L00001
   CMPNE?TCL   _ISARET_BITI, 001h, L00033
   ICALL?L   L00001
   MOVE?CB   02Dh, _ISARET
   ICALL?L   L00001
   NOT?WW   _HAM, T1
   ADD?WCW   T1, 002h, _HAM
   ICALL?L   L00001
   GOTO?L   _CIK
   ICALL?L   L00001
   LABEL?L   L00033   
   ICALL?L   L00001
   MOVE?CB   02Bh, _ISARET

   LABEL?L   _CIK   
   ICALL?L   L00001
   MUL?WCW   _HAM, 00Ah, T1
   DIV?WCW   T1, 010h, _Float
   ICALL?L   L00001
   DIV?WCW   _Float, 00Ah, _ISI
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _KONTROL   
   ICALL?L   L00001
   CMPNE?BCL   _TEMP, 001h, L00035
   ICALL?L   L00001
   CMPNE?BCL   _SIGN, 02Bh, L00037
   ICALL?L   L00001
   CMPNE?BCL   _PSIGN, 02Bh, L00039
   ICALL?L   L00001
   CMPLT?WWL   _ISIS, _Float, L00041
   ICALL?L   L00001
   ADD?BCB   _POZ, 001h, _POZ
   ICALL?L   L00001
   CMPLT?BCL   _POZ, 003h, L00043
   ICALL?L   L00001
   MOVE?CB   003h, _POZ
   ICALL?L   L00001
   HIGH?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00043   
   ICALL?L   L00001
   LABEL?L   L00041   
   ICALL?L   L00001
   CMPLT?WWL   _Float, _TERM, L00045
   ICALL?L   L00001
   MOVE?CB   000h, _POZ
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00045   
   ICALL?L   L00001
   LABEL?L   L00039   
   ICALL?L   L00001
   CMPEQ?BCB   _PSIGN, 02Bh, T1
   CMPEQ?BCB   _ISARET, 02Dh, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00047
   ICALL?L   L00001
   HIGH?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00047   
   ICALL?L   L00001
   CMPNE?BCL   _PSIGN, 02Dh, L00049
   ICALL?L   L00001
   CMPGE?WWB   _Float, _ISIF, T1
   CMPEQ?BCB   _ISARET, 02Dh, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00051
   ICALL?L   L00001
   ADD?BCB   _POZ, 001h, _POZ
   ICALL?L   L00001
   CMPLT?BCL   _POZ, 003h, L00053
   ICALL?L   L00001
   MOVE?CB   003h, _POZ
   ICALL?L   L00001
   HIGH?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00053   
   ICALL?L   L00001
   LABEL?L   L00051   
   ICALL?L   L00001
   CMPGE?WWB   _Float, _TERM, T1
   CMPEQ?BCB   _ISARET, 02Bh, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00055
   ICALL?L   L00001
   MOVE?CB   000h, _POZ
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00055   
   ICALL?L   L00001
   LABEL?L   L00049   
   ICALL?L   L00001
   GOTO?L   L00038
   LABEL?L   L00037   
   ICALL?L   L00001
   CMPGE?WWB   _ISI, _ISIZ, T1
   CMPEQ?BCB   _ISARET, 02Dh, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00057
   ICALL?L   L00001
   ADD?BCB   _POZ, 001h, _POZ
   ICALL?L   L00001
   CMPLT?BCL   _POZ, 003h, L00059
   ICALL?L   L00001
   MOVE?CB   003h, _POZ
   ICALL?L   L00001
   HIGH?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00059   
   ICALL?L   L00001
   LABEL?L   L00057   
   ICALL?L   L00001
   CMPGE?WWB   _TERM, _ISI, T1
   CMPEQ?BCB   _ISARET, 02Bh, T2
   LOR?BBW   T1, T2, T2
   CMPF?WL   T2, L00061
   ICALL?L   L00001
   MOVE?CB   000h, _POZ
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00061   
   ICALL?L   L00001
   LABEL?L   L00038   
   ICALL?L   L00001
   GOTO?L   L00036
   LABEL?L   L00035   
   ICALL?L   L00001
   CMPNE?BCL   _SIGN, 02Bh, L00063
   ICALL?L   L00001
   CMPNE?BCL   _ISARET, 02Dh, L00065
   LOW?T   _ROLE
   LABEL?L   L00065   
   ICALL?L   L00001
   CMPNE?BCL   _NSIGN, 02Dh, L00067
   ICALL?L   L00001
   CMPLT?WWL   _Float, _ISIP, L00069
   ICALL?L   L00001
   ADD?BCB   _POZ, 001h, _POZ
   ICALL?L   L00001
   CMPLT?BCL   _POZ, 003h, L00071
   ICALL?L   L00001
   MOVE?CB   003h, _POZ
   ICALL?L   L00001
   HIGH?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00071   
   ICALL?L   L00001
   LABEL?L   L00069   
   ICALL?L   L00001
   CMPLT?WWL   _TERM, _Float, L00073
   ICALL?L   L00001
   MOVE?CB   000h, _POZ
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00073   
   ICALL?L   L00001
   LABEL?L   L00067   
   ICALL?L   L00001
   GOTO?L   L00064
   LABEL?L   L00063   
   ICALL?L   L00001
   CMPEQ?BCB   _NSIGN, 02Dh, T1
   CMPEQ?BCB   _ISARET, 02Bh, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00075
   LOW?T   _ROLE
   LABEL?L   L00075   
   ICALL?L   L00001
   CMPNE?BCL   _NSIGN, 02Bh, L00077
   ICALL?L   L00001
   CMPGE?WWB   _ISI, _ISIK, T1
   CMPEQ?BCB   _ISARET, 02Bh, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00079
   ICALL?L   L00001
   ADD?BCB   _POZ, 001h, _POZ
   ICALL?L   L00001
   CMPLT?BCL   _POZ, 003h, L00081
   ICALL?L   L00001
   MOVE?CB   003h, _POZ
   ICALL?L   L00001
   HIGH?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00081   
   ICALL?L   L00001
   LABEL?L   L00079   
   ICALL?L   L00001
   CMPGE?WWB   _ISI, _TERM, T1
   CMPEQ?BCB   _ISARET, 02Dh, T2
   LAND?BBW   T1, T2, T2
   CMPF?WL   T2, L00083
   ICALL?L   L00001
   MOVE?CB   000h, _POZ
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00083   
   ICALL?L   L00001
   LABEL?L   L00077   
   ICALL?L   L00001
   CMPNE?BCL   _NSIGN, 02Dh, L00085
   ICALL?L   L00001
   CMPLT?WWL   _ISIN, _ISI, L00087
   ICALL?L   L00001
   ADD?BCB   _POZ, 001h, _POZ
   ICALL?L   L00001
   CMPLT?BCL   _POZ, 003h, L00089
   ICALL?L   L00001
   MOVE?CB   003h, _POZ
   ICALL?L   L00001
   HIGH?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00089   
   ICALL?L   L00001
   LABEL?L   L00087   
   ICALL?L   L00001
   CMPLT?WWL   _ISI, _TERM, L00091
   ICALL?L   L00001
   MOVE?CB   000h, _POZ
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   LABEL?L   L00091   
   ICALL?L   L00001
   LABEL?L   L00085   
   ICALL?L   L00001
   LABEL?L   L00064   
   ICALL?L   L00001
   LABEL?L   L00036   
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _DELAY   
   ICALL?L   L00001
   MOVE?CW   000h, _I
   LABEL?L   L00093   
   CMPGT?WWL   _I, _FOREND, L00094
   ICALL?L   L00001
   NEXT?WCL   _I, 001h, L00093
   LABEL?L   L00094   
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _EKRAN   
   ICALL?L   L00001
   CMPNE?BCL   _ISARET, 02Bh, L00095
   ICALL?L   L00001
   MOVE?CT   001h, _DP
   ICALL?L   L00001
   DIG?WCB   _Float, 000h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   DIG?WCB   _Float, 001h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   DIG?WCB   _Float, 002h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR3
   ICALL?L   L00001
   GOTO?L   L00096
   LABEL?L   L00095   
   ICALL?L   L00001
   MOVE?CT   000h, _DP
   ICALL?L   L00001
   DIG?WCB   _Float, 001h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   DIG?WCB   _Float, 002h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   040h, _AKTAR3
   ICALL?L   L00001
   LABEL?L   L00096   
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _EKRAN1   
   ICALL?L   L00001
   MOVE?CB   00Eh, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   MOVE?CB   00Dh, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   005h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR3
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _EKRAN2   
   ICALL?L   L00001
   CMPNE?BCL   _SIGN, 02Bh, L00097
   ICALL?L   L00001
   MOVE?CT   001h, _DP
   ICALL?L   L00001
   DIG?WCB   _TERM, 000h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   CMPNE?TCL   _U, 001h, L00099
   MOVE?CB   000h, _AKTAR1
   LABEL?L   L00099   
   ICALL?L   L00001
   DIG?WCB   _TERM, 001h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   DIG?WCB   _TERM, 002h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR3
   ICALL?L   L00001
   GOTO?L   L00098
   LABEL?L   L00097   
   ICALL?L   L00001
   MOVE?CT   000h, _DP
   ICALL?L   L00001
   DIG?WCB   _TERM, 000h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   CMPNE?TCL   _U, 001h, L00101
   MOVE?CB   000h, _AKTAR1
   LABEL?L   L00101   
   ICALL?L   L00001
   DIG?WCB   _TERM, 001h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   040h, _AKTAR3
   ICALL?L   L00001
   LABEL?L   L00098   
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _EKRAN3   
   ICALL?L   L00001
   MOVE?CT   000h, _DP
   ICALL?L   L00001
   MOVE?CT   000h, _SP
   ICALL?L   L00001
   MOVE?CB   040h, _AKTAR1
   ICALL?L   L00001
   MOVE?CB   040h, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   040h, _AKTAR3
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _EKRAN4   
   ICALL?L   L00001
   DIG?BCB   _SNS, 000h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   CMPNE?TCL   _U, 001h, L00103
   MOVE?CB   000h, _AKTAR1
   LABEL?L   L00103   
   ICALL?L   L00001
   DIG?BCB   _SNS, 001h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR3
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _EKRAN5   
   ICALL?L   L00001
   CMPNE?TCL   _TEMP??0, 001h, L00105
   ICALL?L   L00001
   CMPNE?TCL   _U, 001h, L00107
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR1
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR3
   ICALL?L   L00001
   MOVE?CT   000h, _SP
   ICALL?L   L00001
   GOTO?L   L00108
   LABEL?L   L00107   
   ICALL?L   L00001
   MOVE?CT   001h, _SP
   ICALL?L   L00001
   MOVE?CB   00Fh, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR3
   ICALL?L   L00001
   MOVE?CB   000h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   002h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   LABEL?L   L00108   
   ICALL?L   L00001
   GOTO?L   L00106
   LABEL?L   L00105   
   ICALL?L   L00001
   CMPNE?TCL   _U, 001h, L00109
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR1
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR3
   ICALL?L   L00001
   MOVE?CT   000h, _SP
   ICALL?L   L00001
   GOTO?L   L00110
   LABEL?L   L00109   
   ICALL?L   L00001
   MOVE?CT   001h, _SP
   ICALL?L   L00001
   MOVE?CB   010h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR3
   ICALL?L   L00001
   MOVE?CB   00Dh, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   009h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   LABEL?L   L00110   
   ICALL?L   L00001
   LABEL?L   L00106   
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _EKRAN6   
   ICALL?L   L00001
   DIG?BCB   _ZNS, 000h, _Z
   ICALL?L   L00001
   GOSUB?L   _AL
   ICALL?L   L00001
   MOVE?BB   _SAYI, _AKTAR1
   ICALL?L   L00001
   CMPNE?TCL   _U, 001h, L00111
   MOVE?CB   000h, _AKTAR1
   LABEL?L   L00111   
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR2
   ICALL?L   L00001
   MOVE?CB   000h, _AKTAR3
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _AL   
   ICALL?L   L00001
   LOOKUP?BCLB   _Z, 011h, L00002, _SAYI
   LURET?C   03Fh
   LURET?C   006h
   LURET?C   05Bh
   LURET?C   04Fh
   LURET?C   066h
   LURET?C   06Dh
   LURET?C   07Dh
   LURET?C   007h
   LURET?C   07Fh
   LURET?C   06Fh
   LURET?C   063h
   LURET?C   039h
   LURET?C   040h
   LURET?C   079h
   LURET?C   078h
   LURET?C   073h
   LURET?C   037h

   LABEL?L   L00002   
   ICALL?L   L00001
   RETURN?   

   LABEL?L   _KAYDET   
   ICALL?L   L00001
   LABEL?L   L00113   
   CMPNE?TCL   _SET, 000h, L00114
   ICALL?L   L00001
   GOTO?L   L00113
   LABEL?L   L00114   
   ICALL?L   L00001
   DIV?WCB   _TERM, 00Ah, _ISIL
   ICALL?L   L00001
   MOD?WCB   _TERM, 00Ah, _ISIH
   ICALL?L   L00001
   WRITEADDRESS?C   000h
   WRITE?B   _ISIL
   ICALL?L   L00001
   PAUSEUS?C   00Ah
   ICALL?L   L00001
   WRITEADDRESS?C   001h
   WRITE?B   _ISIH
   ICALL?L   L00001
   PAUSEUS?C   00Ah
   ICALL?L   L00001
   WRITEADDRESS?C   002h
   WRITE?B   _SNS
   ICALL?L   L00001
   PAUSEUS?C   00Ah
   ICALL?L   L00001
   WRITEADDRESS?C   003h
   WRITE?B   _ZNS
   ICALL?L   L00001
   PAUSEUS?C   00Ah
   ICALL?L   L00001
   WRITEADDRESS?C   004h
   WRITE?B   _SIGN
   ICALL?L   L00001
   PAUSEUS?C   00Ah
   ICALL?L   L00001
   GOTO?L   _BASLANGIC

   LABEL?L   _AYAR   
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   READADDRESS?C   000h
   READ?B   _ISIL
   ICALL?L   L00001
   READADDRESS?C   001h
   READ?B   _ISIH
   ICALL?L   L00001
   READADDRESS?C   004h
   READ?B   _SIGN
   ICALL?L   L00001
   CMPLE?BCL   _ISIL, 063h, L00115
   MOVE?CB   000h, _ISIL
   LABEL?L   L00115   
   ICALL?L   L00001
   CMPLE?BCL   _ISIH, 009h, L00117
   MOVE?CB   000h, _ISIH
   LABEL?L   L00117   
   ICALL?L   L00001
   CMPLE?BCL   _SIGN, 02Dh, L00119
   MOVE?CB   02Bh, _SIGN
   LABEL?L   L00119   
   ICALL?L   L00001
   MUL?BCW   _ISIL, 00Ah, T1
   ADD?WBW   T1, _ISIH, _TERM
   ICALL?L   L00001
   MOVE?CW   01388h, _FOREND
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND

   LABEL?L   _MENU   
   ICALL?L   L00001
   CMPNE?TCL   _YUKARI, 000h, L00121
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   CMPNE?BCL   _SIGN, 02Bh, L00123
   ICALL?L   L00001
   ADD?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   LABEL?L   L00125   
   CMPNE?TCL   _YUKARI, 000h, L00126
   ICALL?L   L00001
   ADD?BCB   _SYC, 001h, _SYC
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 028h, L00127
   ICALL?L   L00001
   MOVE?CB   032h, _SYC
   ICALL?L   L00001
   ADD?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   LABEL?L   L00127   
   ICALL?L   L00001
   GOSUB?L   _EKRAN2
   ICALL?L   L00001
   CMPLE?WCL   _TERM, 003DEh, L00129
   MOVE?CW   003DEh, _TERM
   LABEL?L   L00129   
   ICALL?L   L00001
   GOTO?L   L00125
   LABEL?L   L00126   
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   CMPLE?WCL   _TERM, 003E7h, L00131
   MOVE?CW   003DEh, _TERM
   LABEL?L   L00131   
   ICALL?L   L00001
   GOTO?L   L00124
   LABEL?L   L00123   
   ICALL?L   L00001
   SUB?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   LABEL?L   L00133   
   CMPNE?TCL   _YUKARI, 000h, L00134
   ICALL?L   L00001
   ADD?BCB   _SYC, 001h, _SYC
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 028h, L00135
   ICALL?L   L00001
   MOVE?CW   0012Ch, _FOREND
   ICALL?L   L00001
   MOVE?CB   032h, _SYC
   ICALL?L   L00001
   SUB?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   LABEL?L   L00135   
   ICALL?L   L00001
   GOSUB?L   _EKRAN2
   ICALL?L   L00001
   CMPEQ?WCB   _TERM, 000h, T1
   CMPGT?WCB   _TERM, 032h, T2
   LOR?BBW   T1, T2, T2
   CMPF?WL   T2, L00137
   ICALL?L   L00001
   MOVE?CW   000h, _TERM
   ICALL?L   L00001
   MOVE?CB   02Bh, _SIGN
   ICALL?L   L00001
   GOSUB?L   _EKRAN2
   ICALL?L   L00001
   GOTO?L   _MENU
   ICALL?L   L00001
   LABEL?L   L00137   
   ICALL?L   L00001
   GOTO?L   L00133
   LABEL?L   L00134   
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND
   ICALL?L   L00001
   LABEL?L   L00124   
   ICALL?L   L00001
   GOTO?L   L00122
   LABEL?L   L00121   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND
   ICALL?L   L00001
   LABEL?L   L00122   

   LABEL?L   _MENU2   
   ICALL?L   L00001
   CMPNE?TCL   _ASAGI, 000h, L00139
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   CMPNE?BCL   _SIGN, 02Bh, L00141
   ICALL?L   L00001
   SUB?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   LABEL?L   L00143   
   CMPNE?TCL   _ASAGI, 000h, L00144
   ICALL?L   L00001
   ADD?BCB   _SYC, 001h, _SYC
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 028h, L00145
   ICALL?L   L00001
   MOVE?CB   032h, _SYC
   ICALL?L   L00001
   SUB?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   LABEL?L   L00145   
   ICALL?L   L00001
   GOSUB?L   _EKRAN2
   ICALL?L   L00001
   CMPLE?WCL   _TERM, 003E7h, L00147
   ICALL?L   L00001
   MOVE?CW   000h, _TERM
   ICALL?L   L00001
   MOVE?CB   02Dh, _SIGN
   ICALL?L   L00001
   GOTO?L   _MENU2
   ICALL?L   L00001
   LABEL?L   L00147   
   ICALL?L   L00001
   GOTO?L   L00143
   LABEL?L   L00144   
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   CMPLE?WCL   _TERM, 003E7h, L00149
   ICALL?L   L00001
   MOVE?CW   000h, _TERM
   ICALL?L   L00001
   MOVE?CB   02Dh, _SIGN
   ICALL?L   L00001
   GOTO?L   _MENU2
   ICALL?L   L00001
   LABEL?L   L00149   
   ICALL?L   L00001
   GOTO?L   L00142
   LABEL?L   L00141   
   ICALL?L   L00001
   ADD?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   GOSUB?L   _EKRAN2
   ICALL?L   L00001
   LABEL?L   L00151   
   CMPNE?TCL   _ASAGI, 000h, L00152
   ICALL?L   L00001
   ADD?BCB   _SYC, 001h, _SYC
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 028h, L00153
   ICALL?L   L00001
   MOVE?CW   0012Ch, _FOREND
   ICALL?L   L00001
   MOVE?CB   032h, _SYC
   ICALL?L   L00001
   ADD?WCW   _TERM, 001h, _TERM
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   LABEL?L   L00153   
   ICALL?L   L00001
   CMPLE?WCL   _TERM, 031h, L00155
   MOVE?CW   032h, _TERM
   LABEL?L   L00155   
   ICALL?L   L00001
   GOSUB?L   _EKRAN2
   ICALL?L   L00001
   GOTO?L   L00151
   LABEL?L   L00152   
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND
   ICALL?L   L00001
   CMPLE?WCL   _TERM, 031h, L00157
   MOVE?CW   032h, _TERM
   LABEL?L   L00157   
   ICALL?L   L00001
   LABEL?L   L00142   
   ICALL?L   L00001
   GOTO?L   L00140
   LABEL?L   L00139   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND
   ICALL?L   L00001
   LABEL?L   L00140   
   ICALL?L   L00001
   GOSUB?L   _EKRAN2
   ICALL?L   L00001
   CMPNE?TCL   _SET, 000h, L00159
   ICALL?L   L00001
   LABEL?L   L00161   
   CMPNE?TCL   _SET, 000h, L00162
   ICALL?L   L00001
   GOTO?L   L00161
   LABEL?L   L00162   
   ICALL?L   L00001
   GOTO?L   _SENSIVITY
   ICALL?L   L00001
   LABEL?L   L00159   
   ICALL?L   L00001
   GOTO?L   _MENU

   LABEL?L   _SENSIVITY   
   ICALL?L   L00001
   READADDRESS?C   002h
   READ?B   _SNS
   ICALL?L   L00001
   READADDRESS?C   003h
   READ?B   _ZNS
   ICALL?L   L00001
   CMPLE?BCL   _SNS, 032h, L00163
   MOVE?CB   000h, _SNS
   LABEL?L   L00163   
   ICALL?L   L00001
   CMPLE?BCL   _ZNS, 005h, L00165
   MOVE?CB   000h, _ZNS
   LABEL?L   L00165   
   ICALL?L   L00001
   MOVE?CB   000h, _SNY

   LABEL?L   _SENS   
   ICALL?L   L00001
   CMPNE?BCL   _SIGN, 02Bh, L00167
   ICALL?L   L00001
   MOVE?CT   001h, _DP
   ICALL?L   L00001
   GOSUB?L   _EKRAN4
   ICALL?L   L00001
   CMPNE?TCL   _YUKARI, 000h, L00169
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   ADD?BCB   _SNS, 001h, _SNS
   ICALL?L   L00001
   LABEL?L   L00171   
   CMPNE?TCL   _YUKARI, 000h, L00172
   ICALL?L   L00001
   ADD?BCB   _SYC, 001h, _SYC
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 028h, L00173
   ICALL?L   L00001
   MOVE?CW   07Dh, _FOREND
   ICALL?L   L00001
   MOVE?CB   028h, _SYC
   ICALL?L   L00001
   ADD?BCB   _SNS, 001h, _SNS
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   LABEL?L   L00173   
   ICALL?L   L00001
   GOSUB?L   _EKRAN4
   ICALL?L   L00001
   CMPLT?BCL   _SNS, 032h, L00175
   MOVE?CB   032h, _SNS
   LABEL?L   L00175   
   ICALL?L   L00001
   GOTO?L   L00171
   LABEL?L   L00172   
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND
   ICALL?L   L00001
   CMPLT?BCL   _SNS, 032h, L00177
   MOVE?CB   032h, _SNS
   LABEL?L   L00177   
   ICALL?L   L00001
   GOTO?L   L00170
   LABEL?L   L00169   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   LABEL?L   L00170   
   ICALL?L   L00001
   CMPNE?TCL   _ASAGI, 000h, L00179
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   SUB?BCB   _SNS, 001h, _SNS
   ICALL?L   L00001
   LABEL?L   L00181   
   CMPNE?TCL   _ASAGI, 000h, L00182
   ICALL?L   L00001
   ADD?BCB   _SYC, 001h, _SYC
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   CMPLE?BCL   _SYC, 028h, L00183
   ICALL?L   L00001
   MOVE?CW   07Dh, _FOREND
   ICALL?L   L00001
   MOVE?CB   028h, _SYC
   ICALL?L   L00001
   SUB?BCB   _SNS, 001h, _SNS
   ICALL?L   L00001
   GOSUB?L   _DELAY
   ICALL?L   L00001
   LABEL?L   L00183   
   ICALL?L   L00001
   GOSUB?L   _EKRAN4
   ICALL?L   L00001
   CMPLE?BCL   _SNS, 032h, L00185
   MOVE?CB   000h, _SNS
   LABEL?L   L00185   
   ICALL?L   L00001
   GOTO?L   L00181
   LABEL?L   L00182   
   ICALL?L   L00001
   MOVE?CB   000h, _SYC
   ICALL?L   L00001
   MOVE?CW   096h, _FOREND
   ICALL?L   L00001
   CMPLE?BCL   _SNS, 032h, L00187
   MOVE?CB   000h, _SNS
   LABEL?L   L00187   
   ICALL?L   L00001
   GOTO?L   L00180
   LABEL?L   L00179   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   LABEL?L   L00180   
   ICALL?L   L00001
   GOTO?L   L00168
   LABEL?L   L00167   
   ICALL?L   L00001
   MOVE?CT   000h, _DP
   ICALL?L   L00001
   GOSUB?L   _EKRAN6
   ICALL?L   L00001
   CMPNE?TCL   _YUKARI, 000h, L00189
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   ADD?BCB   _ZNS, 001h, _ZNS
   ICALL?L   L00001
   CMPLT?BCL   _ZNS, 005h, L00191
   MOVE?CB   005h, _ZNS
   LABEL?L   L00191   
   ICALL?L   L00001
   GOSUB?L   _EKRAN6
   ICALL?L   L00001
   LABEL?L   L00193   
   CMPNE?TCL   _YUKARI, 000h, L00194
   ICALL?L   L00001
   GOTO?L   L00193
   LABEL?L   L00194   
   ICALL?L   L00001
   GOTO?L   L00190
   LABEL?L   L00189   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   LABEL?L   L00190   
   ICALL?L   L00001
   CMPNE?TCL   _ASAGI, 000h, L00195
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   SUB?BCB   _ZNS, 001h, _ZNS
   ICALL?L   L00001
   CMPLE?BCL   _ZNS, 005h, L00197
   MOVE?CB   000h, _ZNS
   LABEL?L   L00197   
   ICALL?L   L00001
   GOSUB?L   _EKRAN6
   ICALL?L   L00001
   LABEL?L   L00199   
   CMPNE?TCL   _ASAGI, 000h, L00200
   ICALL?L   L00001
   GOTO?L   L00199
   LABEL?L   L00200   
   ICALL?L   L00001
   GOTO?L   L00196
   LABEL?L   L00195   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   LABEL?L   L00196   
   ICALL?L   L00001
   LABEL?L   L00168   
   ICALL?L   L00001
   CMPNE?TCL   _SET, 000h, L00201
   ICALL?L   L00001
   MOVE?CT   000h, _DP
   ICALL?L   L00001
   GOSUB?L   _EKRAN3
   ICALL?L   L00001
   GOTO?L   _KAYDET
   ICALL?L   L00001
   LABEL?L   L00201   
   ICALL?L   L00001
   GOTO?L   _SENS

   LABEL?L   _AYAR2   
   ICALL?L   L00001
   LOW?T   _ROLE
   ICALL?L   L00001
   READADDRESS?C   005h
   READ?B   _TEMP
   ICALL?L   L00001
   CMPLE?BCL   _TEMP, 001h, L00203
   MOVE?CB   001h, _TEMP
   LABEL?L   L00203   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   MOVE?CT   001h, _SP

   LABEL?L   _POZ_AYAR   
   ICALL?L   L00001
   CMPNE?TCL   _YUKARI, 000h, L00205
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   ADD?BCB   _TEMP, 001h, _TEMP
   ICALL?L   L00001
   CMPLE?BCL   _TEMP, 001h, L00207
   MOVE?CB   000h, _TEMP
   LABEL?L   L00207   
   ICALL?L   L00001
   GOSUB?L   _EKRAN5
   ICALL?L   L00001
   LABEL?L   L00209   
   CMPNE?TCL   _YUKARI, 000h, L00210
   ICALL?L   L00001
   GOTO?L   L00209
   LABEL?L   L00210   
   ICALL?L   L00001
   GOTO?L   L00206
   LABEL?L   L00205   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   LABEL?L   L00206   
   ICALL?L   L00001
   CMPNE?TCL   _ASAGI, 000h, L00211
   ICALL?L   L00001
   MOVE?CT   001h, _W
   ICALL?L   L00001
   MOVE?CT   000h, _U
   ICALL?L   L00001
   MOVE?CB   000h, _SNY
   ICALL?L   L00001
   SUB?BCB   _TEMP, 001h, _TEMP
   ICALL?L   L00001
   CMPLE?BCL   _TEMP, 001h, L00213
   MOVE?CB   001h, _TEMP
   LABEL?L   L00213   
   ICALL?L   L00001
   GOSUB?L   _EKRAN5
   ICALL?L   L00001
   LABEL?L   L00215   
   CMPNE?TCL   _ASAGI, 000h, L00216
   ICALL?L   L00001
   GOTO?L   L00215
   LABEL?L   L00216   
   ICALL?L   L00001
   GOTO?L   L00212
   LABEL?L   L00211   
   ICALL?L   L00001
   MOVE?CT   000h, _W
   ICALL?L   L00001
   LABEL?L   L00212   
   ICALL?L   L00001
   GOSUB?L   _EKRAN5
   ICALL?L   L00001
   CMPNE?TCL   _SET, 000h, L00217
   ICALL?L   L00001
   LABEL?L   L00219   
   CMPNE?TCL   _SET, 000h, L00220
   ICALL?L   L00001
   GOTO?L   L00219
   LABEL?L   L00220   
   ICALL?L   L00001
   WRITEADDRESS?C   005h
   WRITE?B   _TEMP
   ICALL?L   L00001
   PAUSEUS?C   00Ah
   ICALL?L   L00001
   GOSUB?L   _EKRAN3
   ICALL?L   L00001
   GOTO?L   _BASLANGIC
   ICALL?L   L00001
   LABEL?L   L00217   
   ICALL?L   L00001
   GOTO?L   _POZ_AYAR
   DISABLE?   

   LABEL?L   _KESME   
   CMPNE?TCL   _W, 000h, L00221
   ADD?BCB   _SNY, 001h, _SNY
   CMPLT?BCL   _SNY, 078h, L00223
   MOVE?CT   001h, _U
   GOTO?L   L00224
   LABEL?L   L00223   
   MOVE?CT   000h, _U
   LABEL?L   L00224   
   LABEL?L   L00221   
   CMPLT?BCL   _SNY, 0F0h, L00225
   MOVE?CB   000h, _SNY
   LABEL?L   L00225   
   ADD?BCB   _SAYAC, 001h, _SAYAC
   CMPLE?BCL   _SAYAC, 002h, L00227
   MOVE?CB   000h, _SAYAC
   LABEL?L   L00227   
   CMPNE?BCL   _SAYAC, 000h, L00229
   MOVE?CT   000h, _DIG2
   MOVE?BB   _AKTAR1, PORTB
   MOVE?TT   _SP, _PORTB??7
   MOVE?CT   001h, _DIG0
   PAUSEUS?C   002h
   LABEL?L   L00229   
   CMPNE?BCL   _SAYAC, 001h, L00231
   MOVE?CT   000h, _DIG0
   MOVE?BB   _AKTA

Okan AKÇA


esensoy

ds18b20 var, demek ki pic zamanı ondan okuyor,
4 dijit var, demek ki 2 dijit saat 2 dijit dakika,
ya da 2 dijit dakika 2 dijit saniye,
3 tuş var set + ve -, + - belli zaten set ile de saati ya da dakikayı seçtiriyor,
ya da bir alarm ayarlıyor ve altta ki röleyi çektiriyor,
şimdi o yazdığın kodu tersine hiç kimse okuyup çevirmez,
yenisini baştan yazmak daha kolaydır,
sende devre var, istediğin işlevleri de iyice belirle, kodunu kendin yaz,
kolay gele
En tehlikeli an "zafer" anıdır.

jrcapa

Sıcaklığa bağlı cihaz kontrolu de olabilir..

esensoy

haklısın, ben bakmadan ds18b20 yi rtc diye düşündüm, sıcaklık sensörü imiş,
şimdi bu devre içinde pid algoritma da vardır kesin,
al sana öğrenmek gerekne bir şey daha
En tehlikeli an "zafer" anıdır.

Logan

Bu program assembly ile yazılmamış. Muhtemelen basic ile yazılmış ve sonradan disassembly edilmiş. DS18B20 kontrollü dijital termometre devresi bu.
İmza.

diversant

Alıntı yapılan: Logan - 23 Mayıs 2012, 17:45:44
Bu program assembly ile yazılmamış. Muhtemelen basic ile yazılmış ve sonradan disassembly edilmiş. DS18B20 kontrollü dijital termometre devresi bu.

Katılıyorum PBP ile yazılmış ve digital termostat devresi . Ben de kafayı yemiş durumdayım bu konuda zaten. ütü küçük geldiği için kendime bir A4 formatında bir ocak yaptım büyük PCB leri basmak için. ve ona termokupllu termostat  devresi yaptım - bunun dosyaları zannedersem arşivimde mevcut