jrled1.asm

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

#pragma debug scope 1 1
#line 7 "E:\MY_PROJECT\CHO\JRLED\JRLED1.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,127
#line 11 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
_ScanTable .SECTION INPAGE'CODE'
l_ScanTable:
MOV [06h],A
_ScanTable:
RET A,127
RET A,191
RET A,223
RET A,239
RET A,247
RET A,251
RET A,253
RET A,254
RET A,254
RET A,253
RET A,251
RET A,247
RET A,239
RET A,223
RET A,191
RET A,127
#line 20 "E:\MY_PROJECT\CHO\JRLED\JRLED1.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\JRLED1.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\JRLED1.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\JRLED1.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\JRLED1.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\JRLED1.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\JRLED1.C"
@safeguard_init .SECTION 'CODE'
PUBLIC _safeguard_init
_safeguard_init PROC
#pragma debug scope 5 1 ; 26 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 26 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR __intc
#line 27 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,080h
MOV __tmrc,A
#line 28 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR __tmr
#line 30 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SET __pbc
#line 31 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SET __pcc
L4:
RET
_safeguard_init ENDP
#line 36 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
@delay20ms .SECTION 'CODE'
PUBLIC _delay20ms
_delay20ms PROC
#pragma debug scope 6 1 ; 37 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 37 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,020h
MOV CR1,A
L6:
L7:
#line 38 "E:\MY_PROJECT\CHO\JRLED\JRLED1.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\JRLED1.C"
LOCAL CR1 DB ? ; i
#pragma debug variable 6 CR1 i
_delay20ms ENDP
#line 42 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 7 1 ; 45 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 45 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CALL _safeguard_init
#line 46 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,0ah
MOV CR4,A
#line 47 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR __pac
#line 48 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SET __pa
#line 48 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
JMP L11
L10:
#pragma debug scope 8 7 ; 50 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 50 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SZ [014H].0
JMP L13
#pragma debug scope 9 8 ; 52 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 52 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CALL _delay20ms
#line 53 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SZ [014H].0
JMP L15
#pragma debug scope 10 9 ; 55 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 55 "E:\MY_PROJECT\CHO\JRLED\JRLED1.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\JRLED1.C"
INC CR4
#line 57 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,CR4
XOR A,0ch
SNZ [0ah].2
JMP L17
#pragma debug scope 11 10 ; 59 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 59 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR CR5
#line 60 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,0fah
MOV CR6,A
#line 61 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,1
ADD A,CR5
ADD A,OFFSET l_ScanTable
CALL l_ScanTable
MOV __pa,A
#line 62 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR __tmr
#line 63 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,097h
MOV __tmrc,A
L17:
#line 65 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#pragma debug scope 10 9 ; 65 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,CR4
SUB A,0dh
SNZ [0ah].0
JMP L19
#line 66 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR CR4
L19:
#line 67 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,01eh
MOV CR3,A
#line 68 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR __tmr
#line 69 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,097h
MOV __tmrc,A
L15:
L21:
#pragma debug scope 12 9 ; 73 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 73 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SNZ [014H].0
JMP L24
#pragma debug scope 13 12 ; 75 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 75 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CALL _delay20ms
#line 76 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SNZ [014H].0
JMP L26
#line 76 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
JMP L23
L26:
L24:
#line 78 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#pragma debug scope 12 9 ; 78 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SNZ [0BH].5
JMP L28
#pragma debug scope 14 12 ; 80 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 80 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR [0BH].5
#line 81 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR __tmr
#line 82 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
DEC CR3
L28:
L22:
#line 84 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#pragma debug scope 9 8 ; 84 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SZ CR3
JMP L21
L23:
#line 86 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SZ CR3
JMP L14
SZ [014H].0
JMP L14
#pragma debug scope 15 9 ; 88 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 88 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SET __pa
#line 89 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR CR4
L35:
L36:
#pragma debug scope 16 15 ; 91 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 91 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SNZ [014H].0
JMP L35
#line 92 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CALL _delay20ms
L33:
#line 93 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#pragma debug scope 15 9 ; 93 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
SNZ [014H].0
JMP L36
#line 95 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#pragma debug scope 8 7 ; 95 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
JMP L14
L13:
#pragma debug scope 17 8 ; 98 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 98 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,CR4
XOR A,0ch
SNZ [0ah].2
JMP L38
#pragma debug scope 18 17 ; 100 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 100 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,__tmr
XOR A,0f0h
SNZ [0ah].2
JMP L40
#pragma debug scope 19 18 ; 102 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 102 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
CLR __tmr
#line 103 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
DECA CR6
MOV b0_6,A
MOV A,b0_6
MOV CR6,A
SZ b0_6
JMP L42
#pragma debug scope 20 19 ; 105 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#line 105 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,0fah
MOV CR6,A
#line 106 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
INC CR5
#line 107 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,0fh
ANDM A,CR5
#line 108 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
MOV A,1
ADD A,CR5
ADD A,OFFSET l_ScanTable
CALL l_ScanTable
MOV __pa,A
L42:
L40:
L38:
L14:
L11:
#line 49 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
#pragma debug scope 7 1 ; 49 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
JMP L10
L9:
#line 115 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
JMP $
LOCAL b0_6 DB ?
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
LOCAL CR3 DB ? ; sec_count
#pragma debug variable 7 CR3 sec_count
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
LOCAL CR4 DB ? ; idx
#pragma debug variable 7 CR4 idx
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
LOCAL CR5 DB ? ; ScanCount
#pragma debug variable 7 CR5 ScanCount
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
LOCAL CR6 DB ? ; ScanDelay
#pragma debug variable 7 CR6 ScanDelay
_main ENDP
#line 41 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
EXTERN VA:BYTE
EXTERN VS:BYTE
#line 41 "E:\MY_PROJECT\CHO\JRLED\JRLED1.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP