: " --"

: " --"

38 , 9 , 4 , 7 .

, , , , -

: , --.

: , , , , , .


1.

2.

3. AT89C2051

4.

5.

6.

.


, . . . , , , , . . .

() , : , , .

. : , - ( , , ) , , , .

-- .


1.

.

AT89C2051 Atmel. 13-8/7-02. , , . . : , , . 18201. .

, . , 12,0 15,0 , .

1. 

a.  4

b.  ( )

c. 

2. 

a. 

b. 

3. 

a. 

b. 

c. 

d. 

e. 

f. 

g. 

h.  -

2.

. -- . 1.



:  2




. 1. --

3. AT89C2051

AT89C2051 . Flash , MCS-51. Flash - 2 , - 128 . 15 /, 16- / , (UART) , , . Flash - 12 /. Flash . 12 15 6 5,5 3 . ( , , , / ) 5 1. 100 20 6 3 , . AT89C2051 .

U5 7805. , .

, . . . . , , .

AT89C2051 - 8- Flash


.2. AT89C2051

AT89C51 MCS-51, .. . INTEL INTEL , ( ) . (, ).

31 51 () MCS-51 (31 51, P0 P2 - 31 [,,...] = 51 - ). 80 , .

83,87 89 , , ( 1990- , ), 83 - ( - AT-XT), 87 - ( 100 ) .

89 - ( 10000 ) , .

AT- ATMEL http://www.atmel.com/ http://www.atmel.ru/ ( ATMEL).

DS - Dallas, N- Intel, P-Philips...

- ( ) , ( ) , .

, (, UNIPRO).

.3. AT89C2051

4.

pp MPASM, p . MPASM Microchip MPLAB Microchip Technology.

p p p pp:

* HEX -

* LST -

* ERR - pp

* COD

16-p p p , p p. p pp p . pp pp, p p. p .

p pp p "Assembly Successful", , p . .

.


5.

. 4. , , , . , .

" " . , . , - .

. , . . , "" , "". "", .

"" , . (. 5).

.

, . , . "", , . , .


. 4. ()


. 5. ()

. (.. ), .

, , N- . , : , , . (.. , ). , .

N-ro , . , , . " " .

: TMR0. 32 768 32, , 256, , 4, (4x32x256 = 32 768).

6.

18201 [1] 36- 3- . - 20- DIP-. , , ( ) ( ) 3- . 12 . , 36. 3 6 . 18201 1.

1. 18201.

1...3 COB1, COC3, COB3 1, 3, 3
4 CS
5 Ucc -
6 GND -
7 D
8...13 COA2, COB4, COB2, COA1, COC2, COC4 A2, B4, B2, A1, C2, C4
14 C
15 COA/G ( G)
16 COC/G ( G)
17 COB
18...20 COC1, COA3, COA4 B1, A3, A4

18201 : , , . 36- , . 36, . D C (. 6).

. 6. 18201

, .

.7. .

. 7 , 2 .

2.

D0 COA1, COC/G H1 D20 COB3, COC/G D3
D1 COB1, COB G1 D21 COA3,COB C3
D2 COC1,COA/G F1 D22 COA3, COA/G B3
D3 COC1, COB E1 D23 COB3, COA/G A3
D4 COB1, COC/G D1 D24 COA4, COC/G H4
D5 COA1,COB C1 D25 COB4, COB G4
D6 COA1, COA/G B1 D26 COC4,COA/G F4
D7 COB1, COA/G A1 D27 COC4, COB E4
D8 COA2, COC/G H2 D28 COB4, COC/G D4
D9 COB2, COB G2 D29 COA4,COB C4
D10 COC2,COA/G F2 D30 COA4, COA/G B4
D11 COC2, COB E2 D31 COB4, COA/G A4
D12 COB2, COC/G D2 D32 COC1, COC/G P1
D13 COA2,COB C2 D33 COC2, COC/G P2
D14 COA2, COA/G B2 D34 COC3, COC/G P3
D15 COB2, COA/G A2 D35 COC4, COC/G P4
D16 COA3, COC/G H3 D36 -
D17 COB3, COB G3 D37 Q6 -
D18 COC3,COA/G F3 D38 Q7 -
D19 COC3, COB E3 D39 Q8 -

D0..D7 , D8..D15 . . D32..D35 P1...P4. D36 . D37 D38 (Q6 Q7) 3. D39 (Q8) .

:

  CS 0

  -

  : 0|0|1|1|P4|P3|P2|P1

  CS 1


3.

D36 (Q7) D37 (Q6) COC/G COA/G
1 1
0 1
1 0 - -
0 0

40 . :

  CS 0

  32

  : 1|1|1|1|P4|P3|P2|P1 ( , COA/G . )

  CS 1

  CS 0

  32

  : 0|0|0|0||P4|P3|P2|P1 ( COA/G , COC/G . COA/G , )

  CS 1

- , : - . D39 , .

, 5. 3.3 4.0. , . TL431 . .

DS1302 Dallas. , . , , . 31 , . . . Dallas, , 6 . .

DS1302 . CS RST. , DS1302 3- , . . , DS1307 I2C.

DS1821 Dallas. R11-R14, VD1-VD8, R10 . , , . . . , . , . , . . +55 , +99 .

8- . 16- . . 8.


8.

AIN1 , , R2, R3 AIN0. C8 . C9 , VT2, VD9, R6. C9 VT3. , P1.5 , VT3 , C9 . . , C9 ( R2, R3). , . , , . ( ) C9, , . , C9 , , 73-17. R6 , +B. 10. .

- . . . INA3010D SOIC. -30. RC-5 - 1EH. , INA3010 (SAA3010) . , , . . .bin . 7B8H - 7E3H . , ( ) ( ) 4.

4.

( ) ( )
1 TIMER  0CH 00H
2 CLOCK 0DH 01H
3 ALARM 0EH 02H
4 LOCK  0FH 03H
5 7 08H 08H
6 09H 09H
7 9 0AH 0AH
8 LIST 10H 0BH
9 4 05H 10H
10 5 06H 11H
11 6 07H 12H
12 ESCAPE 11H 13H
13 ALARM DISABLE 14H 18H
14 TIMER CLEAR 13H 1AH
15 0 01H 20H
16 BACKSPACE 12H 22H
17 1 02H 28H
18 2 03H 29H
19 3 04H 2AH
20 ENTER 0BH 2BH

:

  CLOCK

  ALARM

  ALARM DISABLE

  TIMER

  TIMER CLEAR

  LIST

  LOCK

  0..9

  ENTER

  ESCAPE

  BACKSPACE

SFH-506 Siemens. , RC R15 C7.

, . HA1, VT1. .

. 9. Accel EDA.


- --. . . , .


1. .. VR -, , 2007 352.

2. / .. [ .]. .: , 1990. 224 .

3. .. Microchip: /... .: , 2002. 296 .

4. .. 10 AVR-. 1 ., 1, -, 2008 224.

5. . , VR-: . ., -, 2006 208.

6. . VR. /. . ., 1, 2006 272.

7. AT89C2051 Atmel. -, , 2002.-184 .


; -- .

; = ABTO.ASM

; : 20-01-07.

; : MPLAB IDE, : 5.70.40.

LIST P=16F676

#INCLUDE P16F676.INC

__CONFIG 31D0H

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

; 32768 .

; 32,

; TMR0 (256) , 4

; 1 (432256=32768).

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

; RA1 - - , RA2 - - ,

; RA3 - ,

; RC5 - LOAD, RC3 - DIN,

; RC4 - DCLK

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

CBLOCK H'20'

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

; .

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

HOU ; .

CL ; .

CH ; .

ML ; .

MH ; .

HL ; .

HH ; .

TCL ; .

TCH ;

TML ;

TMH ;

THL ;

THH ;

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

; .

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

ZPT ; .

TZPT ; .

COUZ ; .

COU ; .

KYPC ; .

KYPCI ;.

PEID ; .

TEMP ;.

EDI ; .

DEI ; .

COI ; .

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

; .

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

WTEMP ; W .

STEMP ; STATUS .

FTEMP ; FSR.

TEKH ;

EDA ;

DEA ;

YCTL ;

YCTLI ;

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

; .

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

FLAG

;

; 0-> .

; 1-> .

; 2-> .

; 3-> .

; 4-> .

; 5-> -.

; 6-> .

; 7-> .

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

FLAG1

;

; 1-> 1 .

; 2-> .

; 4-> .

; 5-> 1 .

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

ENDC

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

; .

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

R1 EQU 50H ; .

R2 EQU 51H ;

R3 EQU 52H ;

R4 EQU 53H ;

R5 EQU 54H ;

R6 EQU 55H ;

R7 EQU 56H ;

R8 EQU 57H ; .

TEKL EQU 58H ;

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

; /.

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

YC EQU 1 ;/.

KY EQU 2 ;/.

LOAD EQU 5 ;.

DIN EQU 3 ;.

DCLK EQU 4 ;.

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

; 1. .

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

ORG 0

GOTO INIT

ORG 4

GOTO PRER

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

; 2. .

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

INIT

BSF STATUS,5 ; 1.

MOVLW 0FFH ;

MOVWF ADCON1^80H ; 500 .

MOVLW B'00000100' ;=32.

MOVWF OPTION_REG^80H ; .

MOVLW B'10100000' ; TMR0.

MOVWF INTCON ;

CLRF PIE1^80H ; .

MOVLW B'00001111' ; . 0 - .

MOVWF TRISA^80H ;

CLRF TRISC^80H ; .

CLRF VRCON^80H ; .

CLRF PCON^80H ; .

MOVLW B'00000110' ;

MOVWF WPUA^80H ; .

CLRF IOCA^80H ; .

MOVLW .1

MOVWF ANSEL^80H ; RA0/AN0.

BCF STATUS,5 ; 0.

CLRF PORTC ; .

CLRF T1CON ; 1 .

MOVLW .7

MOVWF CMCON ; .

CLRF FLAG ; .

CLRF FLAG1

CLRF EDI

CLRF DEI

CLRF COI

CLRF CL

CLRF CH

CLRF ML

CLRF MH

CLRF HL

CLRF HH

CLRF TCL

CLRF TCH

CLRF TML

CLRF TMH

CLRF THL

CLRF THH

CLRF PEID

CLRF ZPT

CLRF COUZ

CLRF COU

CLRF HOU

MOVLW 96H

MOVWF YCTL ; = 15,0 B.

MOVLW 78H

MOVWF YCTLI ; = 12,0 B.

CLRF KYPC

BSF FLAG,4

GOTO PAC

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

; 3. .

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

SEG

;D E G F A B C K

ADDWF PCL,1 ;

RETLW B'11011110' ;0

RETLW B'00000110' ;1

RETLW B'11101100' ;2

RETLW B'10101110' ;3

RETLW B'00110110' ;4

RETLW B'10111010' ;5

RETLW B'11111010' ;6

RETLW B'00001110' ;7

RETLW B'11111110' ;8

RETLW B'10111110' ;9

RETLW B'00000000' ;10-> .

RETLW B'00100000' ;11-> .

RETLW B'10000000' ;12-> .

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

; 4. .

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

KYPCY

MOVFW KYPC ;

ADDWF PCL,1 ;

RETURN ; .

RETLW B'00000100' ;3

RETLW B'00001000' ;4

RETLW B'00010000' ;5

RETLW B'00100000' ;6

RETLW B'01000000' ;7

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

; 5. .

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

VUBOR

MOVFW PEID ; .

ADDWF PCL,1 ;

GOTO INDH ; .

GOTO INDT ;.

GOTO INDU ;.

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

; 6. .

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

YCT

BTFSC PORTA,YC; "" ,

RETURN

MOVFW KYPC ;

ADDWF PCL,1 ; .

RETURN ; .

GOTO YC0 ;.

GOTO YC1 ; .

GOTO YCE ;.

GOTO YC2 ;.

GOTO YC3 ; .

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

; 7. .

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

DEBIN

ADDWF PCL,1 ;

RETLW .0

RETLW .10

RETLW .20

RETLW .30

RETLW .40

RETLW .50

RETLW .60

RETLW .70

RETLW .80

RETLW .90

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

; 8. .

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

KHOP

BTFSS FLAG,1 ; ,

GOTO $+5 ; .

BTFSS PORTA,KY;

CALL KYPCOP ; .

BTFSC FLAG,7 ; ,

GOTO VUBOR ; .

BTFSC PORTA,YC; "" ,

GOTO VUBOR ; .

INCF PEID,1 ; .

MOVLW .3 ;3 .

SUBWF PEID,0 ; ,

BTFSS STATUS,2; .

GOTO VUBOR ; .

CLRF PEID ; .

GOTO VUBOR ; .

RETURN

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

; 9. ( ).

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

KYPCOP

BSF FLAG,7 ;.

BCF FLAG,4 ; .

INCF KYPC,1 ; .

MOVLW .6 ; 5.

SUBWF KYPC,0 ;

SKPC ; 6,

RETURN ;

CLRF KYPC ;.

BSF FLAG,4 ; .

BCF FLAG,7 ; .

RETURN ;

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

; 10. . .

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

KYPVO

BTFSC FLAG,4 ; ,

RETURN ; .

CALL KYPCY ; .

MOVWF KYPCI ; .

RRF KYPCI,1 ; "".

ADDCF R1,1 ; .

RRF KYPCI,1 ; "".

ADDCF R2,1 ; .

RRF KYPCI,1 ;

ADDCF R3,1 ; .

RRF KYPCI,1 ;

ADDCF R4,1 ;

RRF KYPCI,1 ;

ADDCF R5,1 ;

RRF KYPCI,1 ;

ADDCF R6,1 ;

RRF KYPCI,1 ;

ADDCF R7,1 ;

RRF KYPCI,1 ;

ADDCF R8,1 ;

RETURN ;

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

; 11. .

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

IND

CALL KYPVO ; .

MOVFW ZPT ;

MOVWF TZPT ; .

BSF FLAG1,2 ; .

BCF PORTC,DIN ; .

BCF PORTC,LOAD ; (LOAD=0).

RRF TZPT,1 ; .

CALL VUV0 ;

BCF FLAG1,2 ; .

MOVLW R1 ; .

MOVWF FSR ;

MOVFW INDF ;

MOVWF TEMP ; .

BCF PORTC,LOAD ; (LOAD=0).

CALL VUVOD ; .

POVT

BSF FLAG1,2 ; .

RRF TZPT,1 ; .

CALL VUV0 ;

BCF FLAG1,2 ; .

INCF FSR,1 ; .

MOVFW INDF ;

MOVWF TEMP ; .

CALL VUVOD ; .

INCF COUZ,1 ;

MOVLW .7 ;

SUBWF COUZ,0 ;.

BTFSC STATUS,2;

CLRF COUZ ; .

BTFSS STATUS,2;

GOTO POVT ; .

BSF PORTC,LOAD ; .

RETURN ;

CUNX

BSF PORTC,DCLK ; = 1.

CALL PAUS ;.

BCF PORTC,DCLK ; = 0.

RETURN ;.

PAUS

MOVLW .5 ; .

ADDLW -1 ; = 4 .

BTFSS STATUS,2;

GOTO $-2 ;.

RETURN ;.

VUVOD

RRF TEMP,1 ; .

VUV0

BTFSS STATUS,0;

BCF PORTC,DIN ;

BTFSC STATUS,0; 0 1.

BSF PORTC,DIN ;

CALL CUNX ; .

BTFSC FLAG1,2 ; ,

RETURN ; .

INCF COU,1 ; .

MOVLW .8 ;

SUBWF COU,0 ;

BTFSS STATUS,2; ,

GOTO VUVOD ; .

CLRF COU ; .

RETURN ;

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

; 12. .

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

PRER

MOVWF WTEMP ; W,

MOVFW STATUS ;STATUS,

MOVWF STEMP ;

MOVFW FSR ;FSR.

MOVWF FTEMP ;

BSF FLAG1,1 ;1 .

CALL S1 ; .

BTFSC FLAG,2 ;

CALL TAIM ;

REPER ; .

MOVFW STEMP ; :

MOVWF STATUS ;STATUS,

MOVFW FTEMP ;

MOVWF FSR ;FSR,

MOVFW WTEMP ;W.

BCF INTCON,2; TMR0.

RETFIE ; .

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

; 13. .

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

S1

BTFSC FLAG1,5 ;

GOTO $+8 ;

BTFSS FLAG1,4 ;

GOTO $+6 ;

BTFSC PORTC,0 ; .

GOTO $+3 ;

BSF PORTC,0 ; .

GOTO $+2 ;

BCF PORTC,0 ;

MOVLW .9 ; 9 ,

SUBWF CL,0 ;

BC SH ; .

INCF CL,1 ; .

RETURN

SH

CLRF CL ; .

MOVFW CH ;

ADDLW -5H ; 5,

BZ MIL ; .

INCF CH,1 ; .

RETURN

MIL

CLRF CH ; .

MOVFW ML ;

ADDLW -9H ; 9,

BZ MIH ; .

INCF ML,1 ; .

RETURN

MIH

BSF FLAG1,4 ; 10 .

BCF FLAG,7 ; .

CLRF KYPC ; .

CLRF ML ; .

MOVFW MH ;

ADDLW -5H ; 5,

BZ HOL ; .

INCF MH,1 ; .

RETURN

HOL

BCF FLAG1,5 ; .

CLRF MH ; .

MOVFW HH ;

ADDLW -2H ; 2,

BZ HL4 ; .

MOVFW HL ; 9,

ADDLW -9H ;

BZ $+3 ; .

INCF HL,1 ; .

RETURN

CLRF HL ;

INCF HH,1 ;

RETURN

HL4

MOVFW HL ;

ADDLW -3H ; 3,

BZ HOH ; .

INCF HL,1 ; .

RETURN

HOH

CLRF HL ;

CLRF HH ; .

RETURN ;

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

; 14. .

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

TAIM

BSF FLAG,5 ; .

MOVLW .9 ; 9 ,

SUBWF TCL,0 ;

BC $+3 ; .

INCF TCL,1 ; .

RETURN

CLRF TCL ; .

MOVFW TCH ;

ADDLW -5H ; 5,

BZ $+3 ; .

INCF TCH,1 ; .

RETURN

CLRF TCH ; .

MOVFW TML ;

ADDLW -9H ; 9,

BZ $+3 ; .

INCF TML,1 ; .

RETURN

CLRF TML ; .

MOVFW TMH ;

ADDLW -5H ; 5,

BZ $+3 ; .

INCF TMH,1 ; .

RETURN

CLRF TMH ; .

MOVFW THL ; 9,

ADDLW -9H ;

BZ $+3 ; .

INCF THL,1 ; .

RETURN

CLRF THL ; .

MOVFW THH ; 9,

ADDLW -9H ;

BZ $+3 ;.

INCF THH,1 ; .

RETURN

CLRF THH ;

RETURN

T00

BTFSS FLAG,5 ;

GOTO $+4 ;

BCF FLAG,2 ; .

BCF FLAG,5 ; .

RETURN ;

CLRF TCL ; .

CLRF TCH ;

CLRF TML ;

CLRF TMH ;

CLRF THL ;

CLRF THH ;

BSF FLAG,2 ; .

RETURN

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

; 15. - ( ).

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

ADP

MOVLW B'10000001' ; RC

MOVWF ADCON0 ;, 0, (YBX).

CALL ZAD ;

BSF ADCON0,1 ; .

BTFSC ADCON0,1 ;

GOTO $-1 ;.

MOVFW ADRESH ;

MOVWF TEKH ; .

BSF STATUS,5 ; 1.

MOVLW 58 ;

MOVWF FSR ;

MOVFW ADRESL ; .

MOVWF INDF ; TEKL.

BCF STATUS,5 ; 0.

CALL COMPA ;

GOTO BINDEC ; 2_10 .

ZAD

MOVLW .5 ; 20 .

ADDLW -1 ;

BTFSS STATUS,2 ;

GOTO $-2 ;

RETURN

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

; 16. .

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

COMPA

TSTF TEKL ;

BTFSC STATUS,2;

GOTO VUKL ;

MOVFW YCTL ; .

SUBWF TEKL,0 ;,

BTFSC STATUS,0; ,

GOTO VUKL ; .

MOVFW YCTLI ; .

SUBWF TEKL,0 ;,

BTFSS STATUS,0; ,

GOTO VUKL ; .

BTFSC STATUS,2; ,

GOTO VUKL ; .

BCF FLAG1,4 ; .

BCF FLAG1,5 ; .

BCF PORTC,0 ; .

RETURN

VUKL

BTFSC PORTA,KY;

GOTO $+5 ;

BSF FLAG1,5 ; 1 .

BCF PORTC,0 ; .

BTFSC FLAG1,5 ; 1 , .

RETURN

BTFSC FLAG1,4 ; ,

RETURN ; .

BSF PORTC,0 ; .

BSF FLAG1,4 ; .

RETURN

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

; 17. 16- 2- 5- 2-10-.

; 3

; . 1 3 (10=7+3),

; . 16 .

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

BINDEC

MOVLW .16 ;

MOVWF COU ; .

BIDE

BCF STATUS,0 ; "".

RLF TEKL,1 ;

RLF TEKH,1 ;

RLF EDA,1 ;

RLF DEA,1 ;.

DECFSZ COU,1 ; .

GOTO RASDEC ; .

GOTO MESTO ; , .

RASDEC

MOVLW EDA ;

MOVWF FSR ; .

CALL BCD ; 7.

MOVLW DEA ;

MOVWF FSR ; .

CALL BCD ;

GOTO BIDE ; .

BCD

MOVLW 3 ;0000 0011

ADDWF 0,0 ; 3

MOVWF TEMP ; .

BTFSC TEMP,3 ; 3 ,

MOVWF 0 ; .

MOVLW 30 ;48=0011 0000

ADDWF 0,0 ; 3

MOVWF TEMP ; .

BTFSC TEMP,7 ; ,

MOVWF 0 ; .

RETURN ; .

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

; 18. .

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

MESTO

MOVLW B'00001111' ;

ANDWF DEA,0 ; .

MOVWF COI ;

MOVLW B'11110000' ;

ANDWF EDA,0 ;

MOVWF DEI ;

SWAPF DEI,1 ;

MOVLW B'00001111' ;

ANDWF EDA,0 ;

MOVWF EDI ;

CLRF EDA ;

CLRF DEA ;

RETURN ;

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

; 19. .

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

INDH

BTFSC FLAG,7 ; ,

CALL YCT ; .

MOVLW .10 ;.

CALL SEG ; .

MOVWF R1 ;

MOVWF R2 ;

MOVWF R8 ;

BTFSS FLAG,6 ;

GOTO $+6 ;

MOVLW .11 ; .

CALL SEG ;

MOVWF R5 ;

BCF FLAG,6 ;

GOTO $+5 ;

MOVLW .12 ; .

CALL SEG ;

MOVWF R5 ;

BSF FLAG,6 ;

MOVFW ML ;

CALL SEG ;

MOVWF R3 ;

MOVFW MH ;

CALL SEG ;

MOVWF R4 ;

MOVFW HL ;

CALL SEG ;

MOVWF R6 ;

MOVFW HH ;

CALL SEG ;

MOVWF R7 ;

BSF FLAG,1 ; .

CLRF ZPT ;

RETURN ;

INDT

BTFSS PORTA,KY; ,

CALL T00 ; .

MOVFW TCL ;

CALL SEG ; .

MOVWF R1 ;

MOVFW TCH ;

CALL SEG ;

MOVWF R2 ;

MOVFW TML ;

CALL SEG ;

MOVWF R4 ;

MOVFW TMH ;

CALL SEG ;

MOVWF R5 ;

MOVLW .11 ;.

CALL SEG ;

MOVWF R3 ;

MOVWF R6 ;

MOVFW THL ;

CALL SEG ;

MOVWF R7 ;

MOVFW THH ;

CALL SEG ;

MOVWF R8 ;

BCF FLAG,1 ; .

BCF FLAG,7 ; .

RETURN ;

INDU

MOVLW .10 ;.

CALL SEG ; .

MOVWF R1 ;

MOVWF R2 ;

MOVWF R3 ;

MOVWF R7 ;

MOVWF R8 ;

MOVFW COI ;

CALL SEG ;

MOVWF R6 ;

MOVFW DEI ;

CALL SEG ;

MOVWF R5 ;

MOVFW EDI ;

CALL SEG ;

MOVWF R4 ;

BSF ZPT,4 ;

RETURN ;

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

; 20. .

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

PAC

BTFSS FLAG1,1 ; 1 .

GOTO $-1 ;

CALL ADP ;

CALL KHOP ; .

CALL IND ; .

BCF FLAG1,1 ;

GOTO PAC ;.

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

; 21. .

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

YC0

INCF ML,1 ; .

MOVLW .10 ; 9.

SUBWF ML,0 ;

SKPNC ; 10,

CLRF ML ; .

RETURN

YC1

INCF MH,1 ; .

MOVLW .6 ; 5.

SUBWF MH,0 ;

SKPNC ; 6,

CLRF MH ; .

RETURN

YC2

INCF HL,1 ; .

MOVLW .10 ; 9.

SUBWF HL,0 ;

SKPNC ;

CLRF HL ; , .

MOVFW HH ;

CALL DEBIN ; .

ADDWF HL,0 ;

MOVWF HOU ;

ADDLW -18H ; - 24.

SKPC ; 24,

RETURN

CLRF HOU ;

CLRF HL ;

CLRF HH ; .

RETURN

YC3

INCF HH,1 ; .

MOVLW .3 ; 2.

SUBWF HH,0 ;

SKPNC ;

CLRF HH ; , .

MOVFW HH ;

CALL DEBIN ; .

ADDWF HL,0 ;

MOVWF HOU ; .

ADDLW -18H ;

SKPC ; 24,

RETURN

CLRF HOU ;

CLRF HL ;

CLRF HH ; .

RETURN ;.

YCE

CLRF CL ;.

CLRF CH ;

CLRF ML ;

RETURN ;

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

END

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

2011