jrled.asm

一個使用HOLTEK做的燈光控制專案

#pragma debug scope 1 1
#line 7 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
_table .SECTION INPAGE'CODE'
l_table:
MOV [06h],A
_table:
RET A,172
RET A,163
RET A,240
RET A,15
RET A,83
RET A,92
RET A,3
RET A,12
RET A,160
RET A,80
RET A,0
RET A,254
#line 11 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
_ScanTable .SECTION INPAGE'CODE'
l_ScanTable:
MOV [06h],A
_ScanTable:
RET A,128
RET A,64
RET A,32
RET A,16
RET A,8
RET A,4
RET A,2
RET A,1
RET A,1
RET A,2
RET A,4
RET A,8
RET A,16
RET A,32
RET A,64
RET A,128
#line 20 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
__pcc EQU [017H]
__pc EQU [016H]
__pbc EQU [015H]
__pb EQU [014H]
__pac EQU [013H]
__pa EQU [012H]
__tmrc EQU [0eH]
__tmr EQU [0dH]
__intc EQU [0bH]
__status EQU [0aH]
__wdts EQU [09H]
__tblh EQU [08H]
__tblp EQU [07H]
__pcl EQU [06H]
__acc EQU [05H]
__mp EQU [01H]
__iar EQU [00H]
@@isr_4 .SECTION AT 04H 'CODE'
JMP _isr_4
@isr_4 .SECTION 'CODE'
_isr_4 PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
L1:
#pragma debug scope 2 1 ; 20 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_4 ENDP
@isr_4 .SECTION 'DATA'
#line 21 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
@@isr_8 .SECTION AT 08H 'CODE'
JMP _isr_8
@isr_8 .SECTION 'CODE'
_isr_8 PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
L2:
#pragma debug scope 3 1 ; 21 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_8 ENDP
@isr_8 .SECTION 'DATA'
#line 22 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
@@isr_c .SECTION AT 0cH 'CODE'
JMP _isr_c
@isr_c .SECTION 'CODE'
_isr_c PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
L3:
#pragma debug scope 4 1 ; 22 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_c ENDP
@isr_c .SECTION 'DATA'
#line 25 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
@safeguard_init .SECTION 'CODE'
PUBLIC _safeguard_init
_safeguard_init PROC
#pragma debug scope 5 1 ; 26 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 26 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR __intc
#line 27 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,080h
MOV __tmrc,A
#line 28 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR __tmr
#line 30 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SET __pbc
#line 31 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SET __pcc
L4:
RET
_safeguard_init ENDP
#line 36 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
@delay20ms .SECTION 'CODE'
PUBLIC _delay20ms
_delay20ms PROC
#pragma debug scope 6 1 ; 37 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 37 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,020h
MOV CR1,A
L6:
L7:
#line 38 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,CR1
MOV b0_5,A
DEC CR1
SZ b0_5
JMP L6
L5:
RET
LOCAL b0_5 DB ?
#line 37 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
LOCAL CR1 DB ? ; i
#pragma debug variable 6 CR1 i
_delay20ms ENDP
#line 42 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 7 1 ; 45 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 45 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CALL _safeguard_init
#line 46 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR CR4
#line 47 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR __pac
#line 48 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SET __pa
#line 48 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
JMP L11
L10:
#pragma debug scope 8 7 ; 50 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 50 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SZ [014H].0
JMP L13
#pragma debug scope 9 8 ; 52 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 52 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CALL _delay20ms
#line 53 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SZ [014H].0
JMP L15
#pragma debug scope 10 9 ; 55 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 55 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,1
ADD A,CR4
ADD A,OFFSET l_table
CALL l_table
MOV __pa,A
#line 56 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
INC CR4
#line 57 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,CR4
XOR A,0bh
SNZ [0ah].2
JMP L17
#pragma debug scope 11 10 ; 59 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 59 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR CR6
#line 60 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,05h
MOV CR5,A
L17:
#line 62 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#pragma debug scope 10 9 ; 62 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,CR4
XOR A,0ch
SNZ [0ah].2
JMP L19
#line 62 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR CR4
L19:
#line 63 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,01eh
MOV CR3,A
#line 65 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR __tmr
#line 66 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,097h
MOV __tmrc,A
L15:
L21:
#pragma debug scope 12 9 ; 70 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 70 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SNZ [014H].0
JMP L24
#pragma debug scope 13 12 ; 72 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 72 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CALL _delay20ms
#line 73 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SNZ [014H].0
JMP L26
#line 73 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
JMP L23
L26:
L24:
#line 75 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#pragma debug scope 12 9 ; 75 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SNZ [0BH].5
JMP L28
#pragma debug scope 14 12 ; 77 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 77 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR [0BH].5
#line 78 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR __tmr
#line 79 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
DEC CR3
L28:
L22:
#line 81 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#pragma debug scope 9 8 ; 81 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SZ CR3
JMP L21
L23:
#line 83 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SZ CR3
JMP L14
SZ [014H].0
JMP L14
#pragma debug scope 15 9 ; 85 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 85 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SET __pa
#line 86 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR CR4
L35:
L36:
#pragma debug scope 16 15 ; 88 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 88 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SNZ [014H].0
JMP L35
#line 89 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CALL _delay20ms
L33:
#line 90 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#pragma debug scope 15 9 ; 90 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SNZ [014H].0
JMP L36
#line 92 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#pragma debug scope 8 7 ; 92 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
JMP L14
L13:
#pragma debug scope 17 8 ; 95 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 95 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,CR4
XOR A,0bh
SNZ [0ah].2
JMP L38
#pragma debug scope 18 17 ; 97 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 97 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
SNZ [0BH].5
JMP L40
#pragma debug scope 19 18 ; 99 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 99 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
CLR [0BH].5
#line 100 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
DECA CR5
MOV b0_6,A
MOV A,b0_6
MOV CR5,A
SZ b0_6
JMP L42
#pragma debug scope 20 19 ; 102 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#line 102 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,05h
MOV CR5,A
#line 103 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,0fh
ANDM A,CR6
#line 104 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
MOV A,1
ADD A,CR6
ADD A,OFFSET l_ScanTable
CALL l_ScanTable
MOV __pa,A
L42:
L40:
L38:
L14:
L11:
#line 49 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
#pragma debug scope 7 1 ; 49 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
JMP L10
L9:
#line 111 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
JMP $
LOCAL b0_6 DB ?
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
LOCAL CR3 DB ? ; sec_count
#pragma debug variable 7 CR3 sec_count
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
LOCAL CR4 DB ? ; idx
#pragma debug variable 7 CR4 idx
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
LOCAL CR5 DB ? ; ScanDelay
#pragma debug variable 7 CR5 ScanDelay
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
LOCAL CR6 DB ? ; ScanCount
#pragma debug variable 7 CR6 ScanCount
_main ENDP
#line 41 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
EXTERN VA:BYTE
EXTERN VS:BYTE
#line 41 "E:\MY_PROJECT\CHO\JRLED\JRLED.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP