5-1.asm

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

#pragma debug scope 1 1
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
__intc EQU [0bH]
__pb EQU [014H]
__pbc EQU [015H]
__pa EQU [012H]
__pac EQU [013H]
@delay .SECTION 'CODE'
PUBLIC _delay
_delay PROC
#pragma debug scope 2 1 ; 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CLR CR1
CLR CR1[1]
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
JMP L5
L2:
L3:
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
INC CR1
SZ [0AH].2
INC CR1[1]
L5:
#line 7 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.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_絛ㄒ\5-1.C"
LOCAL CR1 DB 2 DUP (?) ; i
#pragma debug variable 2 CR1 i
_delay ENDP
#line 9 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
@LED .SECTION 'CODE'
PUBLIC _LED
_LED PROC
#pragma debug scope 3 1 ; 11 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#line 11 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CLR CR2
#line 11 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
JMP L11
L8:
#pragma debug scope 4 3 ; 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#line 13 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
SET __pa
#line 14 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CALL _delay
#line 15 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
MOV A,0feh
MOV __pa,A
#line 16 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CALL _delay
L9:
#line 11 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#pragma debug scope 3 1 ; 11 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
INC CR2
L11:
#line 11 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
MOV A,CR2
SUB A,05h
SNZ [0ah].0
JMP L8
L7:
RET
#line 10 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
LOCAL CR2 DB ? ; a
#pragma debug variable 3 CR2 a
_LED ENDP
#line 20 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
@@timer0 .SECTION AT 04H 'CODE'
JMP _timer0
@timer0 .SECTION 'CODE'
_timer0 PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
#pragma debug scope 5 1 ; 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#line 21 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CALL _LED
L12:
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_timer0 ENDP
@timer0 .SECTION 'DATA'
#line 24 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 6 1 ; 25 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#line 25 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
MOV A,0fh
MOV __intc,A
#line 26 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CLR __pac
#line 26 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
JMP L15
L14:
#pragma debug scope 7 6 ; 29 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#line 29 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
SET __pa
#line 30 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CALL _delay
#line 31 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CLR __pa
#line 32 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
CALL _delay
L15:
#line 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
#pragma debug scope 6 1 ; 27 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
JMP L14
L13:
#line 34 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
JMP $
_main ENDP
#line 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
EXTERN VA:BYTE
EXTERN VS:BYTE
#line 23 "E:\SCHOOL\盡肈\HT48R50_絛ㄒ\5-1.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP