4-6.asm

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

#pragma debug scope 1 1
#line 6 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
_pattern .SECTION PARA 'CODE'
l_pattern:
MOV [06h],A
_pattern:
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
#line 8 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
__pb EQU [014H]
__pbc EQU [015H]
__pa EQU [012H]
__pac EQU [013H]
@delay .SECTION 'CODE'
PUBLIC _delay
_delay PROC
#pragma debug scope 2 1 ; 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#line 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
CLR CR1
CLR CR1[1]
#line 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
JMP L5
L2:
L3:
#line 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
INC CR1
SZ [0AH].2
INC CR1[1]
L5:
#line 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
MOV A,CR1[1]
SUB A,0ffh
SNZ [0ah].0
JMP L6
SNZ [0ah].2
JMP L2
MOV A,CR1
SUB A,0dch
SZ [0ah].0
JMP L2
L6:
L1:
RET
#line 9 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
LOCAL CR1 DB 2 DUP (?) ; a
#pragma debug variable 2 CR1 a
_delay ENDP
#line 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 3 1 ; 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#line 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
JMP L9
L8:
#pragma debug scope 4 3 ; 19 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#line 19 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
CLR __pbc
#line 20 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
CLR __pac
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
CLR CR4
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
JMP L14
L11:
#pragma debug scope 5 4 ; 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#line 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
MOV A,011h
MOV CR3,A
#line 24 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
CLR CR2
L15:
#pragma debug scope 6 5 ; 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#line 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
MOV A,CR3
MOV __pa,A
#line 28 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
MOV A,1
ADD A,CR2
ADD A,OFFSET l_pattern
CALL l_pattern
MOV b0_2,A
CPLA b0_2
MOV __pb,A
#line 29 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
RL CR3
#line 30 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
INC CR2
L16:
#line 31 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#pragma debug scope 5 4 ; 31 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
MOV A,CR2
SUB A,04h
SNZ [0ah].0
JMP L15
L12:
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#pragma debug scope 4 3 ; 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
INC CR4
L14:
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
MOV A,CR4
SUB A,064h
SNZ [0ah].0
JMP L11
L9:
#line 14 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
#pragma debug scope 3 1 ; 14 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
JMP L8
L7:
#line 34 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
JMP $
LOCAL b0_2 DB ?
#line 17 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
LOCAL CR2 DB ? ; j
#pragma debug variable 4 CR2 j
#line 16 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
LOCAL CR3 DB ? ; i
#pragma debug variable 4 CR3 i
#line 18 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
LOCAL CR4 DB ? ; k
#pragma debug variable 4 CR4 k
_main ENDP
#line 12 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
#line 12 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-6.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP