guess.asm

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

#pragma debug scope 1 1
#line 20 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.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 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
_row_1 .SECTION PAGE 'CODE'
l_row_1:
MOV [06h],A
_row_1:
RET A,76
RET A,67
RET A,68
RET A,46
RET A,46
RET A,46
RET A,46
RET A,46
RET A,46
RET A,46
RET A,33
RET A,33
RET A,32
RET A,32
RET A,32
RET A,32
RET A,0
#line 22 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
_row_2 .SECTION PAGE 'CODE'
l_row_2:
MOV [06h],A
_row_2:
RET A,84
RET A,101
RET A,115
RET A,116
RET A,32
RET A,79
RET A,75
RET A,32
RET A,33
RET A,33
RET A,32
RET A,32
RET A,32
RET A,32
RET A,32
RET A,32
RET A,0
#line 26 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
__pcc EQU [017H]
__pc EQU [016H]
__pbc EQU [015H]
__pb EQU [014H]
__pac EQU [013H]
__pa EQU [012H]
@delay .SECTION 'CODE'
PUBLIC _delay
_delay PROC
#pragma debug scope 2 1 ; 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR CR1
CLR CR1[1]
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
JMP L5
L2:
L3:
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
INC CR1
SZ [0AH].2
INC CR1[1]
L5:
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,04eh
SUB A,CR1[1]
SNZ [0ah].0
JMP L6
SNZ [0ah].2
JMP L2
MOV A,020h
SUB A,CR1
SNZ [0ah].0
JMP L6
SNZ [0ah].2
JMP L2
L6:
L1:
RET
#line 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
LOCAL CR1 DB 2 DUP (?) ; i
#pragma debug variable 2 CR1 i
_delay ENDP
#line 31 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
@initial .SECTION 'CODE'
PUBLIC _initial
_initial PROC
#pragma debug scope 3 1 ; 32 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 32 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,01h
MOV write_instruction0,A
CALL _write_instruction
#line 33 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,06h
MOV write_instruction0,A
CALL _write_instruction
#line 34 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,0fh
MOV write_instruction0,A
CALL _write_instruction
#line 35 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,038h
MOV write_instruction0,A
CALL _write_instruction
#line 36 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CALL _delay
L7:
RET
LOCAL b0_2 DB ?
_initial ENDP
#line 39 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
@write_LCDDATA .SECTION 'CODE'
PUBLIC _write_LCDDATA
_write_LCDDATA PROC
#pragma debug scope 4 1 ; 40 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 40 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CALL _busy
#line 41 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,01h
MOV __pc,A
#line 42 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,_ACCregister
MOV __pa,A
#line 43 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
SET [016H].2
#line 44 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR [016H].2
L8:
RET
LOCAL b0_3 DB ?
_write_LCDDATA ENDP
#line 47 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
@busy .SECTION 'CODE'
PUBLIC _busy
_busy PROC
#pragma debug scope 5 1 ; 48 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 48 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,080h
MOV __pac,A
#line 49 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,02h
MOV __pc,A
#line 50 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
SET [016H].2
L10:
L11:
#line 51 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
SZ [012H].7
JMP L10
#line 52 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR __pac
L9:
RET
_busy ENDP
#line 55 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
@write_instruction .SECTION 'CODE'
PUBLIC _write_instruction
_write_instruction PROC
#pragma debug scope 6 1
#line 54 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
PUBLIC write_instruction0
LOCAL write_instruction0 DB ? ; c
#pragma debug variable 6 write_instruction0 c
#pragma debug scope 6 1 ; 56 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 56 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CALL _busy
#line 57 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR __pa
#line 58 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR __pc
#line 59 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,write_instruction0
MOV __pa,A
#line 60 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
SET [016H].2
#line 62 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR [016H].2
L13:
RET
_write_instruction ENDP
#line 65 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 7 1 ; 67 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 67 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,0fh
MOV __pbc,A
#line 68 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR __pac
#line 69 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR __pa
#line 70 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR __pcc
#line 71 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CALL _initial
#line 73 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,080h
MOV write_instruction0,A
CALL _write_instruction
#line 74 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR CR2
L15:
#pragma debug scope 8 7 ; 77 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 77 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,1
ADD A,CR2
ADD A,OFFSET l_row_1
CALL l_row_1
MOV CR3,A
#line 78 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
SZ CR3
JMP L27
JMP L17
L27:
#pragma debug scope 9 8 ; 80 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 80 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,1
ADD A,CR2
ADD A,OFFSET l_row_1
CALL l_row_1
MOV _ACCregister,A
#line 81 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CALL _write_LCDDATA
#line 82 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
INC CR2
#pragma debug scope 10 8 ; 75 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 75 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#pragma debug scope 7 1 ; 75 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
JMP L15
L17:
#line 89 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CLR CR2
#line 90 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,0c0h
MOV write_instruction0,A
CALL _write_instruction
L21:
#pragma debug scope 11 7 ; 93 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 93 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,1
ADD A,CR2
ADD A,OFFSET l_row_2
CALL l_row_2
MOV CR3,A
#line 94 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
SZ CR3
JMP L28
JMP L23
L28:
#pragma debug scope 12 11 ; 96 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 96 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
MOV A,1
ADD A,CR2
ADD A,OFFSET l_row_2
CALL l_row_2
MOV _ACCregister,A
#line 97 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
CALL _write_LCDDATA
#line 98 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
INC CR2
#pragma debug scope 13 11 ; 91 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#line 91 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
#pragma debug scope 7 1 ; 91 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
JMP L21
L23:
L14:
#line 105 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
JMP $
LOCAL b0_6 DB ?
#line 66 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
LOCAL CR2 DB ? ; k
#pragma debug variable 7 CR2 k
#line 66 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
LOCAL CR3 DB ? ; l
#pragma debug variable 7 CR3 l
_main ENDP
#line 107 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
@check_key .SECTION 'CODE'
PUBLIC _check_key
_check_key PROC
RET
_check_key ENDP
PUBLIC _ACCregister
@ACCregister .SECTION 'DATA'
#line 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
_ACCregister DB ? ; ACCregister
#pragma debug variable 1 _ACCregister ACCregister
#line 64 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
#line 64 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\GUESS.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP