, , , , .

, ,
27.12.2009
2,4 M

. ,

, , , , .

HYL1

CALLWUX1; .

MOVLW.125;

ADDLW-1;= 500 .

BTFSSSTATUS,2;

GOTO$-2;

CALLWXO1; .

MOVLW.125; =

ADDLW-1;500 .

BTFSSSTATUS,2;

GOTO$-2;

RETURN

;=======================================

; 20. /.

;=======================================

WUX1

BCFPORTA,DS1;

BSFSTATUS,5; 1.

BCFTRISA^80H,DS1; .

BCFSTATUS,5; 0.

RETURN

WXO1

BSFSTATUS,5; 1.

BSFTRISA^80H,DS1; .

BCFSTATUS,5; 0.

RETURN

;====================================

; 21. 16 DS1.

;====================================

PRIEM1

CALLHYL1; .

MOVLW0xCC; .

CALLPOSIL1;.

MOVLW0xBE; .

CALLPOSIL1;.

BCFINTCON,7; .

CALL PRIE1; .

MOVFWLSBH;

MOVWFLSB; .

BCFINTCON,7; .

CALLPRIE1; .

GOTOCXET1; .

PRIE1

MOVLW.8

MOVWFCOUN; .

CLRFLSBH; .

PRI1

CALLWUX1; .

CALLWXO1; .

MOVLW.2;

CALLX4;8 .

MOVFWPORTA;

MOVWFTEMP; .

BTFSSTEMP,DS1;

BCFSTATUS,0; .

BTFSCTEMP,DS1;

BSFSTATUS,0; .

RRFLSBH,1; .

MOVLW.12; 60 .

CALLX4;

DECFSZCOUN,1; .

GOTOPRI1; .

BSFINTCON,7; .

RETURN;.

;==========================================

; 22. DS1.

;==========================================

POSIL1

BCFINTCON,7; .

MOVWFTEMP; .

MOVLW.8; .

MOVWFCOUN;

POSI1

RRFTEMP,1; .

BTFSSSTATUS,0; ,

GOTOW0_1; .

GOTOW1_1; .

POS1

DECFSZCOUN,1; .

GOTOPOSI1; .

BSFINTCON,7; .

RETURN;.

W0_1

CALLWUX1; .

MOVLW.15; 60 .

CALL X4;

CALLWXO1; = 1 .

GOTOPOS1;.

W1_1

CALLWUX1; .

CALLWXO1; = 1 .

MOVLW.15; 60 .

CALLX4;

GOTOPOS1;.

;==================================

; 23. 1.

;==================================

CXET1

BTFSCFLAG1,4; .

GOTO$+3;

BSFFLAG1,4;

RETURN;

BCFFLAG1,3; .

BTFSCLSBH,3; ,

BSFFLAG1,3; .

BTFSSFLAG1,3; ,

GOTO$+7; .

COMFLSB,1;

COMFLSBH,1; .

BCFSTATUS,0;

INCFLSB,1; .

BTFSCSTATUS,0; ,

INCFLSBH,1; .

MOVFWLSB; .

ANDLWB'00001111';.

CALLDESATI; .

MOVWFDST1; .

MOVLW.4; 4

MOVWFCOUN;

BCFSTATUS,0; .

RRFLSBH,1;

RRFLSB,1;

DECFSZCOUN,1;

GOTO$-4;

MOVLW.251; .

MOVWFSOT1;

BTFSSFLAG1,3; ,

GOTO$+3;

MOVLW.253;.

MOVWFSOT1;

;======================================================

; 24. 1.

;======================================================

MAXZ

MOVFWSOT1; ,

SUBWFSOT1X,0;

SKPZ; .

GOTO$+5;

BTFSSFLAG1,3; ,

GOTOCOPL1X; .

BTFSCFLAG1,3; ,

GOTOCOMI1X; .

SKPNC; (+) ,

GOTOCOXPX; .

MINZ

MOVFWSOT1; ,

SUBWFSOT1N,0;

SKPZ; .

GOTO$+5;

BTFSCFLAG1,3; ,

GOTOCOPL1N; .

BTFSSFLAG1,3; ,

GOTOCOMI1N; .

SKPC; (-) ,

GOTOCOXPN; .

GOTOBDIN1; .

;===================================

; 25. MAX 1.

;===================================

COPL1X

MOVFWLSB1X;

SUBWFLSB,0; ,

BTFSSSTATUS,0; .

GOTOMINZ;.

BTFSSSTATUS,2; ,

GOTO$+5;

MOVFWDST1X; .

SUBWFDST1,0;

BTFSSSTATUS,0; , .

GOTOMINZ; .

COXPX

BTFSSFLAG1,3;-0 .

GOTO$+4;

TSTFLSB;

BZMINZ;

MOVFWSOT1; .

MOVWFSOT1X;.

MOVFWLSB;

MOVWFLSB1X;

MOVFWDST1; .

MOVWFDST1X;

MOVFWMIN;

MOVWFMIN1X;.

MOVFWHOU;

MOVWFHOU1X;.

BTFSCFLAG1,3;

BSFFLAG,0; .

BTFSSFLAG1,3;

BCFFLAG,0;

GOTOMINZ; .

COMI1X

MOVFWLSB1X;

SUBWFLSB,0; ,

BTFSCSTATUS,2; .

GOTO$+3;

BTFSSSTATUS,0; ,

GOTOCOXPX;

MOVFWDST1X; .

SUBWFDST1,0;

BTFSCSTATUS,0; ,

GOTOMINZ; .

GOTOCOXPX; .

;===================================

; 26. MIN 1.

;===================================

COPL1N

MOVFWLSB1N;

SUBWFLSB,0; ,

BTFSSSTATUS,0; .

GOTOBDIN1;.

BTFSSSTATUS,2; ,

GOTO$+5;

MOVFWDST1N; .

SUBWFDST1,0;

BTFSSSTATUS,0; , .

GOTOBDIN1; .

COXPN

BTFSSFLAG1,3;-0 .

GOTO$+4;

TSTFLSB;

BZBDIN1;

MOVFWSOT1; .

MOVWFSOT1N;.

MOVFWLSB;

MOVWFLSB1N;

MOVFWDST1; .

MOVWFDST1N;

MOVFWMIN;

MOVWFMIN1N;.

MOVFWHOU;

MOVWFHOU1N;.

BTFSCFLAG1,3;

BSFFLAG,1; .

BTFSSFLAG1,3;

BCFFLAG,1;

GOTOBDIN1; .

COMI1N

MOVFWLSB1N;

SUBWFLSB,0; ,

BTFSCSTATUS,2;

GOTO$+3; .

BTFSSSTATUS,0; ,

GOTOCOXPN;

MOVFWDST1N; .

SUBWFDST1,0;

BTFSCSTATUS,0; ,

GOTOBDIN1;

GOTOCOXPN; .

;=======================================

; 27. 1 2- 2_10.

;=======================================

BDIN1

CALLPERZAP; .

MOVFWLSB;

GOTOBZT1;

BDIN2

CALLPERZAP; .

MOVFWLSB;

GOTOBZT2;

PERZAP

MOVFWHOU1X;

MOVWFHOUZ1X; .

MOVFWMIN1X

MOVWFMINZ1X

MOVFWHOU1N

MOVWFHOUZ1N

MOVFWMIN1N

MOVWFMINZ1N

MOVFWHOU2X

MOVWFHOUZ2X

MOVFWMIN2X

MOVWFMINZ2X

MOVFWHOU2N

MOVWFHOUZ2N

MOVFWMIN2N

MOVWFMINZ2N

MOVFWLSB1X

MOVWFLSBZ1X

MOVFWDST1X

MOVWFDSTZ1X

MOVFWLSB1N

MOVWFLSBZ1N

MOVFWDST1N

MOVWFDSTZ1N

MOVFWLSB2X

MOVWFLSBZ2X

MOVFWDST2X

MOVWFDSTZ2X

MOVFWLSB2N

MOVWFLSBZ2N

MOVFWDST2N

MOVWFDSTZ2N

RETURN

BDINZ1

BTFSCFLAG1,1; 2 ,

GOTOBDINZ2; 2 .

MOVFWLSBZ1X; - 1 1 .

CALLBZT1;

MOVFWDSTZ1X;

MOVWFDST1;

MOVFWLSBZ1N; - 2 1 .

CALLBZT2;

MOVFWDSTZ1N;

MOVWFDST2;

MOVFWHOUZ1X; 1.

CALLHZ67;

MOVFWMINZ1X; 1.

CALLMZ910;

MOVFWSOT1X;.

MOVWFR12;

RETURN;

BDIN12

BTFSCFLAG1,1; 2 ,

GOTOBDIN22; 2 .

MOVFWHOUZ1N; 1 2 .

CALLHZ67; 1.

MOVFWMINZ1N; 1.

CALLMZ910;

MOVFWSOT1N;.

MOVWFR12;

RETURN;

BDIN22

MOVFWHOUZ2N; 2 2 .

CALLHZ67; 2.

MOVFWMINZ2N; 2.

CALLMZ910;

MOVFWSOT2N;.

MOVWFR12;

RETURN;

BDINZ2

MOVFWLSBZ2X; 2 .

CALLBZT1; - 1 .

MOVFWDSTZ2X;

MOVWFDST1;

MOVFWLSBZ2N;

CALLBZT2; - 2

MOVFWDSTZ2N;

MOVWFDST2;

MOVFWHOUZ2X; 2.

CALLHZ67;

MOVFWMINZ2X; 2.

CALLMZ910;

MOVFWSOT2X;.

MOVWFR12;

RETURN; .

BZT1

MOVWFTEMP; 2- 2_10-.

CALLBIDE; 99!

MOVWFDES1; .

MOVFWTEMP;

MOVWFEDI1;

RETURN;

BZT2

MOVWFTEMP; 2- 2_10-.

CALLBIDE; 99!

MOVWFDES2; .

MOVFWTEMP;

MOVWFEDI2;

RETURN;

HZ67

MOVWFTEMP; 2- 2_10-.

CALLBIDE; 99!

MOVWFR6;6 7 .

MOVFWTEMP;.

MOVWFR7;

RETURN;

MZ910

MOVWFTEMP; 2- 2_10-.

CALLBIDE; 99!

MOVWFR9;9 10 .

MOVFWTEMP;.

MOVWFR10;

RETURN;

;======================

; 28. .

;======================

INIT

BCFSTATUS,6;

BSFSTATUS,5; 1.

MOVLWB'00000011'; , =16 ...11,

MOVWFOPTION_REG^80H; .

MOVLWB'10100000'; .

MOVWFINTCON;

MOVLWB'00100000';RA5 - .

MOVWFTRISA^80H

MOVLWB'00000011';RB0, RB1 - .

MOVWFTRISB^80H

CLRFVRCON^80H; .

CLRFPIE1^80H;

BCFSTATUS,5; 0.

CLRFPORTA;

CLRFPORTB

CLRFT1CON;

CLRFT2CON;

MOVLW7

MOVWFCMCON; .

CLRFTMR0

CLRFFLAG

CLRFFLAG1

CLRFFLAG2

BSFFLAG2,0; ,

CLRFCEK

CLRFMIN

CLRFHOU

CLRFHOUL

CLRFHOUH

CLRFMINL

CLRFMINH

CLRFREID

CLRFKYPC

CLRFCOUN

CLRFCOUZ

CLRFCOUE

CLRFCOYC

CLRFMCK;.

CLRFEDI2; 2.

CLRFDES2; 2.

CLRFDST2; 2.

CLRFEDI1; 1.

CLRFDES1; 1.

CLRFDST1; 1.

CLRFMECDI; .

CLRFDHUDI; .

CLRFMECD; .

CLRFDHUD; .

MOVLW.253;-

MOVWFSOT1; 1.

MOVWFSOT2; 2.

MOVWFSOT2X; 2 MAX.

MOVWFSOT1X; 1 MAX.

MOVLW.251;+

MOVWFSOT1N; 1 MIN.

MOVWFSOT2N; 2 MIN.

MOVLW.1

MOVWFDHU; .

MOVWFDHUE; .

MOVWFMEC; .

MOVWFMECE; .

MOVWFMECEI; .

MOVWFMECZ; /.

MOVWFDHUEI; .

MOVWFDHUZ; /.

CALLPOLNO; .

GOTOJEKINI; .

;=======================================

; 29. , .

;=======================================

YC0

INCFHOUH,1; .

MOVLW.3; 2.

SUBWFHOUH,0;

SKPNC;

CLRFHOUH; , .

MOVFWHOUH;

CALLDEBIN; .

ADDWFHOUL,0;

MOVWFHOU; .

RETURN;.

YC1

INCFHOUL,1; .

MOVLW.10; 9.

SUBWFHOUL,0;

SKPNC;

CLRFHOUL; , .

MOVFWHOUH;

CALLDEBIN; .

ADDWFHOUL,0;

MOVWFHOU;

ADDLW-18H; - 24.

SKPC; 24,

RETURN

CLRFHOU;

CLRFHOUL;

CLRFHOUH; .

RETURN

YC2

INCFMINH,1; .

MOVLW.6; 5.

SUBWFMINH,0;

SKPNC; 6,

CLRFMINH; .

MOVFWMINH;

CALLDEBIN; .

ADDWFMINL,0;

MOVWFMIN; .

RETURN

YC3

INCFMINL,1; .

MOVLW.10; 9.

SUBWFMINL,0;

SKPNC; 10,

CLRFMINL; .

MOVFWMINH;

CALLDEBIN; .

ADDWFMINL,0;

MOVWFMIN; .

RETURN

YC4

INCFDHUD,1; .

MOVLW.4; 3.

SUBWFDHUD,0;

SKPNC;

CLRFDHUD; , .

MOVFWDHUD;

CALLDEBIN; .

ADDWFDHUE,0;

MOVWFDHU; .

MOVFWMEC;

CALLDAYMON; ,

SUBWFDHU,0;

SKPC;

GOTO$+4;

MOVLW.1;

MOVWFDHUE;

GOTO$-0x0B; .

TSTFDHU; ,

BZ$-5; .

MOVFWDHUD;

MOVWFDHUDI;.

MOVFWDHUE;

MOVWFDHUEI;

RETURN;.

YC5

INCFDHUE,1; .

MOVLW.10; 9.

SUBWFDHUE,0;

SKPNC;

CLRFDHUE; , .

MOVFWDHUD;

CALLDEBIN; .

ADDWFDHUE,0;

MOVWFDHU; .

MOVFWMEC;

CALLDAYMON; ,

SUBWFDHU,0;

SKPC;

GOTO$+5;

CLRFDHUD; ,

MOVLW.1;

MOVWFDHUE;

GOTO$-0x0C; .

TSTFDHU; ,

BZ$-5; , .

MOVFWDHUD;

MOVWFDHUDI;.

MOVFWDHUE;

MOVWFDHUEI;

RETURN;.

YC6

INCFMECD,1; .

MOVLW.2; 1.

SUBWFMECD,0;

SKPNC;

CLRFMECD; , .

MOVFWMECD;

CALLDEBIN; .

ADDWFMECE,0;

MOVWFMEC; .

MOVLW.13; 12.

SUBWFMEC,0;

SKPC;

GOTO$+5;

CLRFMECD; , .

MOVLW.1; .

MOVWFMECE;

GOTO$-0x0C;

TSTFMEC; ,

BZ$-5; .

MOVFWMECD;

MOVWFMECDI;.

MOVFWMECE;

MOVWFMECEI;

RETURN;.

YC7

INCFMECE,1; .

MOVLW.10; 9.

SUBWFMECE,0;

SKPNC;

CLRFMECE; , .

MOVFWMECD;

CALLDEBIN; .

ADDWFMECE,0;

MOVWFMEC; .

MOVLW.13; 12.

SUBWFMEC,0;

SKPC;

GOTO$+5;

CLRFMECD; , .

MOVLW.1; .

MOVWFMECE;

GOTO$-0x0C;

TSTFMEC; ,

BZ$-5; .

MOVFWMECD;

MOVWFMECDI;.

MOVFWMECE;

MOVWFMECEI;

RETURN;.

YC8M

DECFDHUEI,1; .

MOVLW.255; 0,

SUBWFDHUEI,0;

BNC$+8;

MOVLW.9; 9.

MOVWFDHUEI;

DECFDHUDI,1;

MOVLW.255; 0,

SUBWFDHUDI,0;

SKPC;

GOTOYC8COY; .

MOVFWDHUEI;

ADDWFDHUDI,0; ,

SKPZ

GOTOYC8COY; .

DECFMECZ,1; .

SKPZ; ,

GOTO$+3;

MOVLW.12; .

MOVWFMECZ;

MOVFWMECZ; .

CALLDAYMON;

MOVWFDHUDI; .

MOVWFTEMP; 2- 2_10-.

CALLBIDE; 99!

MOVWFDHUDI;

MOVFWTEMP;

MOVWFDHUEI;

MOVFWMECZ; .

MOVWFTEMP; 2- 2_10-.

CALLBIDE; 99!

MOVWFMECDI;

MOVFWTEMP;

MOVWFMECEI; 1 ,

GOTOYC8M; .

YC8COY

INCFCOYC,1; .

MOVLW.8; 7.

SUBWFCOYC,0;

SKPC;

GOTOYC8COU; .

CLRFCOYC; .

CALLREGIN; .

BCFFLAG2,6; .

GOTOYC8M; .

YC8COU

BSFFLAG2,5; .

BTFSCFLAG2,6; ,

GOTO$+0x09;

CLRFCOYC;

MOVLW.16; .

SUBWFCOUZ,0;

MOVWFCOUE; 16.

BNC$+7; 0, .112.

BSFFLAG2,6; .

RETURN;.

MOVLW.16;

SUBWFCOUE,1; 16.

SKPNC; 0,

RETURN

MOVLW.112; .112.

MOVWFCOUE;

BSFFLAG2,6; .

RETURN

YC00

CLRFMIN;

CLRFMINL;

CLRFMINH;

CLRFCEK; .

RETURN

;======================================================

; 30. .

;======================================================

REGIN

MOVFWMECD;

MOVWFMECDI;

MOVFWMECE;

MOVWFMECEI;

MOVFWDHUD;

MOVWFDHUDI;

MOVFWDHUE;

MOVWFDHUEI;

MOVFWMEC;

MOVWFMECZ;

RETURN

;=============================================

; 31. MAX, MIN .

;=============================================

POLNO

MOVLW.253;-

MOVWFSOT1X; 1 MAX.

MOVWFSOT2X; 2 MAX.

MOVLW.55;-55.

MOVWFLSB1X; 1 .

MOVWFLSB2X;-"- 2 .

CLRFDST1X; 1 .

CLRFDST2X;-"- 2 .

MOVLW.251;+

MOVWFSOT1N; 1 MIN.

MOVWFSOT2N; 2 MIN.

MOVLW.99;+99.

MOVWFLSB1N; 1 .40

MOVWFLSB2N;-"- 2 .

MOVLW.9;0,9

MOVWFDST1N; 1 .

MOVWFDST2N;-"- 2 .

RETURN

;=========================================

; 32. .

;=========================================

JEKINI

MOVLW03;

CALLJEKOM;

CALLSTROB;

MOVLW03;

CALLJEKOM;

CALLSTROB;

MOVLW03;

CALLJEKOM;

CALLSTROB;

MOVLW03;

CALLJEKOM;

CALLSTROB;

MOVLW10; .

CALLJEKOM;

CALLSTROB;

MOVLW06; .

CALLJEKOM;

CALLSTROB;

MOVLW01; .

CALLJEKOM;

CALLSTROB;

MOVLW28; : 4 ., 57, 2 .

CALLJEKOM;

CALLSTROB;

MOVLW0C; , .

CALLJEKOM;

CALLSTROB;

GOTOMYLTIK; .

;=========================================

; 33. .

;=========================================

STROB

BSF PORTB,E ; -.

NOP

BCF PORTB,E ; .

RETURN ;.

;===============================================

; 34. .

;===============================================

JEKOM

MOVWF TEMP ; .

ANDLW B'11110000'; .

MOVWF PORTB ; "".

CALL STROB ;.

CALL PAUSA ;.

MOVFW TEMP

SWAPF TEMP,W ; .

ANDLW B'11110000'; .

MOVWF PORTB ; "".

CALL STROB ;.

PAUSA

MOVLW .255;1 . .

ADDLW -1

BTFSS STATUS,2

GOTO $-2

RETURN

;=====================================

; 35. .

;=====================================

JEDAT

MOVWF TEMP; .

ANDLW B'11110000'; .

ADDLW 30; ASCII, !

MOVWF PORTB; "".

BSF PORTB,RS; R/S .

CALL STROB;.

CALL PAUS; .

MOVFW TEMP;

SWAPF TEMP,0; .

ANDLW B'11110000'; .

MOVWF PORTB; "".

BSF PORTB,RS; R/S .

CALL STROB;.

PAUS

MOVLW .10;40 . .

ADDLW -1

BTFSS STATUS,2

GOTO $-2

RETURN

;========================================

; 36. .

;========================================

CTP1

BTFSCFLAG2,0;

GOTOTEK1; .

BTFSCFLAG2,1;

GOTOINDYC1; .

GOTOCMOTP1;.

CTP2

BTFSCFLAG2,0;

GOTOTEK2; .

BTFSCFLAG2,1;

GOTOINDYC2; .

GOTOCMOTP2;.

TEK1

MOVFWDHUDI; 1 , .

MOVWFR1;

MOVFWDHUEI; .

MOVWFR2;

MOVLW.240;.

MOVWFR3;

MOVWFR9;

MOVFWHOUH; .

MOVWFR4;

MOVFWHOUL; .

MOVWFR5;

MOVLW.240;.

BTFSCCEK,0; 1 .

MOVLW.10;.

MOVWFR6;

MOVFWMINH; .

MOVWFR7;

MOVFWMINL; .

MOVWFR8;

MOVFWSOT1;.

MOVWFR10;

MOVFWDES1; 1.

MOVWFR11;

MOVFWEDI1; 1.

MOVWFR12;

MOVLW.252; 1.

MOVWFR13;

MOVFWDST1; 1.

MOVWFR14;

MOVLW.14;>.

MOVWFR15;

MOVLW.1;1.

MOVWFR16;

RETURN

TEK2

MOVFWMECDI; 2 , .

MOVWFR1;

MOVFWMECEI; .

MOVWFR2;

MOVLW.240;.

MOVWFR3;

MOVWFR4;

MOVWFR5;

MOVWFR6;

MOVWFR7;

MOVWFR8;

MOVWFR9;

MOVFWSOT2; 2.

MOVWFR10;

MOVFWDES2; 2.

MOVWFR11;

MOVFWEDI2; 2.

MOVWFR12;

MOVLW.252; 2.

MOVWFR13;

MOVFWDST2; 2.

MOVWFR14;

MOVLW.14;>.

MOVWFR15;

MOVLW.2;2.

MOVWFR16;

RETURN

INDYC1

BTFSSPORTA,HOL; "",

CALLYC00; .

MOVLW.123; 1 .

MOVWFR1;.

MOVLW.17;.

MOVWFR2;

MOVLW.19;.

MOVWFR3;

MOVLW.126;.

MOVWFR4;

MOVLW.240;.

MOVWFR5;

MOVWFR11;

MOVWFR12;

MOVWFR13;

MOVWFR14;

MOVWFR15;

MOVWFR16;

MOVFWHOUH; : ,

MOVWFR6;

MOVFWHOUL; .

MOVWFR7;

MOVLW.10;.

MOVWFR8;

MOVFWMINH; .

MOVWFR9;

MOVFWMINL; .

MOVWFR10;

RETURN

INDYC2

MOVLW.176;.

MOVWFR1;

MOVLW.17;.

MOVWFR2;

MOVLW.36;.

MOVWFR3;

MOVLW.17;.

MOVWFR4;

MOVLW.240;.

MOVWFR5;

MOVWFR11;

MOVWFR12;

MOVWFR13;

MOVWFR14;

MOVWFR15;

MOVWFR16;

MOVFWDHUDI; .

MOVWFR6;

MOVFWDHUEI; .

MOVWFR7;

MOVLW.253;.

MOVWFR8;

MOVFWMECDI; .

MOVWFR9;

MOVFWMECEI; .

MOVWFR10;

RETURN

CMOTP1

MOVFWDHUDI;

ADDWFDHUEI,0; ,

SUBWFDHU,0; .

SKPC;

GOTO$+5;

MOVFWMECDI;

ADDWFMECEI,0;

SUBWFMEC,0;

SKPNC;

CALLBDINZ1; 1 .

MOVFWDHUDI; .

MOVWFR1;

MOVFWDHUEI; .

MOVWFR2;

MOVLW.14;>.

MOVWFR3;

MOVLW.1;1.

BTFSCFLAG1,1; ,

MOVLW.2; - 2.

MOVWFR4;

MOVLW.240;.

MOVWFR5;

MOVWFR11;

MOVLW.253;.

MOVWFR8;

MOVFWDES1; .

MOVWFR13;

MOVFWEDI1; .

MOVWFR14;

MOVLW.252; 1.

MOVWFR15;

MOVFWDST1; .

MOVWFR16;

RETURN

CMOTP2

MOVFWDHUDI;

ADDWFDHUEI,0; ,

SUBWFDHU,0; .

SKPC;

GOTO$+5;

MOVFWMECDI;

ADDWFMECEI,0;

SUBWFMEC,0;

SKPNC;

CALLBDIN12; 2 .

MOVFWMECDI; .

MOVWFR1;

MOVFWMECEI; .

MOVWFR2;

MOVLW.240;.

MOVWFR3;

MOVWFR4;

MOVWFR5;

MOVWFR11;

MOVLW.253;.

MOVWFR8;

MOVFWDES2; 2.

MOVWFR13;

MOVFWEDI2; 2.

MOVWFR14;

MOVLW.252; 2.

MOVWFR15;

MOVFWDST2; 2.

MOVWFR16;

RETURN

;======================================================

; 37. .

;======================================================

JEKIND

BSFSTATUS,5; 1.

BCFTRISB^80H,YCMI; .

BCFTRISB^80H,YCPL; .

BCFSTATUS,5; 0.

BTFSSFLAG1,0; ,

GOTO$+3; .

BTFSSFLAG,6; , .

GOTO JEKYC; .

MOVLW 02; .

CALL JEKOM; .

MOVLW B'10000000'; 0 .

CALL JEKOM; .

CALLCTP1; 1 .

CALLJEKCTP; 1 .

MOVLW B'11000000'; . 0x0C0

CALL JEKOM; .

CALLCTP2; 2 .

CALLJEKCTP; 2 .

BCFFLAG,6;

RETURN

JEKCTP

MOVLW.16;

MOVWFCOUN; .

MOVLW R1; .

MOVWFFSR;

MOVFWINDF; .

CALL JEDAT; .

DECFCOUN,1; .

BTFSCSTATUS,2; ,

RETURN;

INCFFSR,1; .

GOTO$-6; .

;=======================================

; 38. .

;=======================================

KHOP

BSFSTATUS,5; 1.

BSFTRISB^80H,YCMI; .

BSFTRISB^80H,YCPL; .

BCFSTATUS,5; 0.

BTFSSFLAG1,0; ,

GOTOKHOP1; .

BTFSCFLAG2,2;

GOTO$+0x0D; .

BTFSCFLAG,3; ,

CALLYCTAL; .

BTFSSPORTB,YCPL; ,

BSFFLAG,3; .

BTFSSPORTB,YCPL; ,

BSFFLAG1,2; .

BTFSCFLAG,5; "",

CALLKYPCY; .

BTFSSPORTB,PAZ; "" ,

BSFFLAG,5; .

BTFSCFLAG2,1;

GOTOKHOP1; .

BTFSCFLAG,2; ,

CALLYCTAM; .

BTFSSPORTB,YCMI; ,

BSFFLAG,2; .

BTFSSPORTB,YCMI; ,

BSFFLAG1,2; .

KHOP1

BTFSSPORTB,PEJ; "" ,

BSFFLAG,4; .

BTFSSFLAG,4; "" ,

GOTOVUBOR; .

BTFSSPORTB,PEJ; "" ,

GOTOVUBOR; .

BCFFLAG,4; .

INCFREID,1; .

MOVLW.3;3 .

SUBWFREID,0; ,

BTFSSSTATUS,2; .

GOTOVUBOR; .

CLRFREID; .

GOTOVUBOR; .

;======================================================

; 39. .

;======================================================

PRER

MOVWFWTEMP; W

MOVFWSTATUS;STATUS,

MOVWFSTEMP;

MOVFWFSR;FSR.

MOVWFFTEMP;

CALLS1;

REPER ; .

MOVFWSTEMP; :

MOVWFSTATUS;STATUS,

MOVFWFTEMP;

MOVWFFSR;FSR,

MOVFWWTEMP;W.

BCFINTCON,2; TMR0.

RETFIE ; .

;=============================================

; 40. --.

;=============================================

S1

INCFMCK,1; 1 .

MOVFWMCK;

ADDLW-0x7D; 125.

BTFSSSTATUS,2;

RETURN;

CLRFMCK;.

BTFSCFLAG,7; 2.

GOTO$+3;

BSFFLAG,7;

RETURN;

BCFFLAG,7; .

MOVFWCEK; . .

ADDLW-3BH; 59.236:4=59-0x0EC;

BZM1; 0, , M1,

INCFCEK,1; 1 .

RETURN;

M1

CLRFCEK; .

MOVFWMIN; . .

ADDLW-3BH;-59.

BZH1; 0, , H1.

INCFMIN,1; 1 .

MOVFWMIN;MIN >W.

MOVWFTEMP;.

CALLBIDE;.

MOVWFMINH;W > .

MOVFWTEMP;

MOVWFMINL; .

RETURN;

H1

CLRFMIN; .

CLRFMINL; .

CLRFMINH; .

MOVFWHOU; . .

ADDLW-17H;- 23.

BZD1; 0, , H10.

INCFHOU,1; 1 .

MOVFWHOU;HOU >W.

MOVWFTEMP;

CALLBIDE;.

MOVWFHOUH;W > .

MOVFWTEMP;

MOVWFHOUL; .

RETURN;

D1

CLRFHOU; .

CLRFHOUL; .

CLRFHOUH; .

CALLSAPIS; .

CALLPOLNO; .

INCFDHU,1; 1 .

MOVFWMEC;

CALLDAYMON; .

SUBWFDHU,0;

SKPNC;

GOTOME1; .

MOVFWDHU;

MOVWFTEMP;

CALLBIDE;.

MOVWFDHUD;W > .

MOVFWTEMP;

MOVWFDHUE; .

RETURN;

ME1

MOVLW.1; .

MOVWFDHU;

MOVWFDHUE;

CLRFDHUD;

INCFMEC,1; .

MOVLW.13; 12.

SUBWFMEC,0;

SKPNC;

GOTOME1ME; , 1 .

MOVFWMEC;

MOVWFTEMP;

CALLBIDE;.

MOVWFMECD;W > .

MOVFWTEMP;

MOVWFMECE; .

RETURN;

ME1ME

MOVLW.1;1 .

MOVWFMEC;01-01.

MOVWFMECE;

CLRFMECD;

RETURN;

;=======================================

; 41. 2- 2_10.

;=======================================

BIDE;

CLRFCOUN; .

ADDLW-.10; 10.

BTFSSSTATUS,0; ,

GOTO$+4; .

MOVWFTEMP; .

INCFCOUN,1; .

GOTO$-5; .

MOVFWCOUN; ( ) .

RETURN;.

;================================

; 42. .

;================================

SAPIS

CALLPERZAP; .

BTFSCFLAG,0; .

BSFLSBZ1X,7;-

BTFSCFLAG,1;

BSFLSBZ1N,7;-

BTFSCFLAG2,3;

BSFLSBZ2X,7;-

BTFSCFLAG2,4;

BSFLSBZ2N,7;-

MOVLWHOUZ1X;

MOVWFFSR; .

MOVFWCOUZ; .

BSFSTATUS,5; 1.

MOVWFEEADR; .

BCFINTCON,7; .

CALLZAPIS; .

INCFEEADR,1; .

INCFFSR,1; .

BTFSSFSR,7; ,

GOTO$-4; .

BCFSTATUS,5; 0.

BSFINTCON,7; .

MOVLW.16;

ADDWFCOUZ,1; .

MOVLW.128; ,

SUBWFCOUZ,0;

SKPNC;

CLRFCOUZ; .

RETURN;.

ZAPIS

MOVFWINDF;

MOVWFEEDATA; .

BSF EECON1,WREN; .

MOVLW 55H;

MOVWF EECON2;/

MOVLW 0AAH;/

MOVWF EECON2;/

BSF EECON1,WR; .

BTFSC EECON1,WR;

GOTO $-1; .

BCF EECON1,WREN; .

RETURN;.

;=========================

; 43. .

;=========================

CXUTKA

MOVLWHOUZ1X;

MOVWFFSR; .

MOVFWCOUE; .

BSFSTATUS,5; 1.

MOVWFEEADR; .

BCFINTCON,7; .

CALLAKT; .

MOVWFINDF; .

INCFEEADR,1; .

INCFFSR,1; .

BTFSSFSR,7; ,

GOTO$-5; .

BCFSTATUS,5; 0.

BSFINTCON,7; .

MOVLW.251; .

MOVWFSOT1X;

BTFSSLSBZ1X,7; 7 .

GOTO$+4;

MOVLW.253;.

MOVWFSOT1X;

BCFLSBZ1X,7; .

MOVLW.251; .

MOVWFSOT1N;

BTFSSLSBZ1N,7;

GOTO$+4;

MOVLW.253;.

MOVWFSOT1N;

BCFLSBZ1N,7;

MOVLW.251; .

MOVWFSOT2X;

BTFSSLSBZ2X,7;

GOTO$+4;

MOVLW.253;.

MOVWFSOT2X;

BCFLSBZ2X,7;

MOVLW.251; .

MOVWFSOT2N;

BTFSSLSBZ2N,7;

GOTO$+4;

MOVLW.253;.

MOVWFSOT2N;

BCFLSBZ2N,7;

BCFFLAG2,5; .

RETURN

AKT

BSFEECON1,RD;.

BTFSCEECON1,RD;

GOTO$-1;

MOVLW.255; ,

SUBWFEEDATA,0; -0.

BTFSCSTATUS,Z;

CLRFEEDATA;, .. 255 .

MOVFWEEDATA; .

RETURN;.

;========================================

; 44. .

;========================================

MYLTIK

CALLKHOP; .

BTFSSFLAG2,0; ,

GOTOCMOTP; .

CALLJEKIND;.

BTFSSCEK,0; .

GOTO$-1;

CALLINIDS1; .

CALLKHOP; .

BTFSSFLAG2,0; ,

GOTOCMOTP; .

CALLJEKIND;.

BTFSCCEK,0; .

GOTO$-1;

CALLINIDS2; .

GOTOMYLTIK; .

CMOTP

BTFSCFLAG2,0; ,

GOTOMYLTIK; .

BTFSCFLAG2,5; .

CALLCXUTKA; .

BTFSCFLAG1,2; , .

GOTO$+4;

BTFSSFLAG,7; 0,5 .

GOTO$-1

CALLJEKIND; .

BTFSCFLAG,7; 0,5 .

GOTO$-1

CALLKHOP; .

GOTOCMOTP;

;========================================

END

;========================================


  • . , . . . .

    [841,4 K], 22.05.2015

  • , , . , , .

    [2,2 M], 02.01.2010

  • . , . . .

    [170,6 K], 12.09.2012

  • 181631. , , .

    [260,4 K], 16.12.2010

  • - . . , . .

    [1,7 M], 19.07.2014

  • , , - DS1620, , , Atmel AT90S2313.

    [755,6 K], 19.06.2010

  • . I16F84A. , , .

    [4,7 M], 27.12.2009

, , ..
PPT, PPTX PDF- .
.