4-7.asm

这是HOLTEK HT 48系列单片机应用实例

#pragma debug scope 1 1
#line 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
_Scan_Code .SECTION PARA 'CODE'
l_Scan_Code:
MOV [06h],A
_Scan_Code:
RET A,119
RET A,123
RET A,125
RET A,126
RET A,183
RET A,187
RET A,189
RET A,190
RET A,215
RET A,219
RET A,221
RET A,222
RET A,231
RET A,235
RET A,237
RET A,238
#line 11 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
_Display_Code .SECTION PARA 'CODE'
l_Display_Code:
MOV [06h],A
_Display_Code:
RET A,63
RET A,6
RET A,91
RET A,79
RET A,102
RET A,109
RET A,125
RET A,7
RET A,127
RET A,111
RET A,119
RET A,124
RET A,57
RET A,94
RET A,121
RET A,113
#line 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
__pb EQU [014H]
__pbc EQU [015H]
__pa EQU [012H]
__pac EQU [013H]
@check_key .SECTION 'CODE'
PUBLIC _check_key
_check_key PROC
#pragma debug scope 2 1 ; 14 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
#line 14 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,07fh
MOV __pa,A
#line 15 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,077h
SNZ [0ah].2
JMP L2
#line 15 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,1
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 15 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L2:
#line 16 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,07bh
SNZ [0ah].2
JMP L4
#line 16 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,2
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 16 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L4:
#line 17 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,07dh
SNZ [0ah].2
JMP L6
#line 17 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,3
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 17 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L6:
#line 18 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,07eh
SNZ [0ah].2
JMP L8
#line 18 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,4
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 18 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L8:
#line 19 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,0bfh
MOV __pa,A
#line 20 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0b7h
SNZ [0AH].2
JMP L10
#line 20 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,5
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 20 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L10:
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0bbh
SNZ [0AH].2
JMP L12
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,6
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L12:
#line 22 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0bdh
SNZ [0AH].2
JMP L14
#line 22 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,7
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 22 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L14:
#line 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0beh
SNZ [0AH].2
JMP L16
#line 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,8
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L16:
#line 24 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,0dfh
MOV __pa,A
#line 25 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0d7h
SNZ [0AH].2
JMP L18
#line 25 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,9
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 25 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L18:
#line 26 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0dbh
SNZ [0AH].2
JMP L20
#line 26 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,10
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 26 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L20:
#line 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0ddh
SNZ [0AH].2
JMP L22
#line 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,11
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L22:
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0deh
SNZ [0AH].2
JMP L24
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,12
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L24:
#line 29 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,0efh
MOV __pa,A
#line 30 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0e7h
SNZ [0AH].2
JMP L26
#line 30 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,13
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 30 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L26:
#line 31 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0ebh
SNZ [0AH].2
JMP L28
#line 31 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,14
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 31 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L28:
#line 32 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0edh
SNZ [0AH].2
JMP L30
#line 32 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,15
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 32 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L30:
#line 33 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,__pa
XOR A,0eeh
SNZ [0AH].2
JMP L32
#line 33 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,16
ADD A,OFFSET l_Display_Code
CALL l_Display_Code
MOV b0_1,A
MOV A,b0_1
#line 33 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L1
L32:
#line 34 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,0ffh
L1:
RET
LOCAL b0_1 DB ?
_check_key ENDP
#line 37 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 3 1 ; 38 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
#line 38 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,0fh
MOV __pac,A
#line 39 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
CLR __pbc
#line 39 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L36
L35:
#pragma debug scope 4 3 ; 44 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
#line 44 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
CALL _check_key
MOV CR1,A
#line 45 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,CR1
XOR A,0ffh
SNZ [0AH].2
JMP L38
#pragma debug scope 5 4 ; 46 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
#line 46 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,CR2
MOV __pb,A
#line 46 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
#pragma debug scope 4 3 ; 46 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L39
L38:
#pragma debug scope 6 4 ; 49 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
#line 49 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,CR1
MOV __pb,A
#line 50 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
MOV A,CR1
MOV CR2,A
L39:
L36:
#line 40 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
#pragma debug scope 3 1 ; 40 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP L35
L34:
#line 53 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
JMP $
#line 42 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
LOCAL CR1 DB ? ; i
#pragma debug variable 4 CR1 i
#line 43 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
LOCAL CR2 DB ? ; j
#pragma debug variable 4 CR2 j
_main ENDP
#line 36 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
#line 36 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-7.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP