4-4.asm

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

#pragma debug scope 1 1
#line 6 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.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 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
__pa EQU [012H]
__pac EQU [013H]
@delay .SECTION 'CODE'
PUBLIC _delay
_delay PROC
#pragma debug scope 2 1 ; 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
CLR CR1
CLR CR1[1]
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
JMP L5
L2:
L3:
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
INC CR1
SZ [0AH].2
INC CR1[1]
L5:
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
MOV A,013h
SUB A,CR1[1]
SNZ [0ah].0
JMP L6
SNZ [0ah].2
JMP L2
MOV A,088h
SUB A,CR1
SNZ [0ah].0
JMP L6
SNZ [0ah].2
JMP L2
L6:
L1:
RET
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
LOCAL CR1 DB 2 DUP (?) ; i
#pragma debug variable 2 CR1 i
_delay ENDP
#line 9 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 3 1 ; 9 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
#line 9 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
JMP L9
L8:
#pragma debug scope 4 3 ; 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
#line 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
CLR __pac
#line 14 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
CLR CR2
#line 14 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
JMP L12
L11:
#pragma debug scope 5 4 ; 16 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
#line 16 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
MOV A,1
ADD A,CR2
ADD A,OFFSET l_pattern
CALL l_pattern
MOV __pa,A
#line 17 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
CALL _delay
#line 18 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
INC CR2
#line 19 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
MOV A,CR2
SUB A,0ah
SNZ [0ah].0
JMP L14
#line 19 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
CLR CR2
L14:
L12:
#line 15 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
#pragma debug scope 4 3 ; 15 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
JMP L11
L9:
#line 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
#pragma debug scope 3 1 ; 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
JMP L8
L7:
#line 22 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
JMP $
LOCAL b0_2 DB ?
#line 12 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
LOCAL CR2 DB ? ; j
#pragma debug variable 4 CR2 j
_main ENDP
#line 8 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
#line 8 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\4-4.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP