jrled2.asm

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

#pragma debug scope 1 1
#line 7 "E:\MY_PROJECT\CHO\JRLED\JRLED2.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 17 "E:\MY_PROJECT\CHO\JRLED\JRLED2.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 ; 17 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_4 ENDP
@isr_4 .SECTION 'DATA'
#line 18 "E:\MY_PROJECT\CHO\JRLED\JRLED2.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 ; 18 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_8 ENDP
@isr_8 .SECTION 'DATA'
#line 19 "E:\MY_PROJECT\CHO\JRLED\JRLED2.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 ; 19 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_c ENDP
@isr_c .SECTION 'DATA'
#line 22 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
@safeguard_init .SECTION 'CODE'
PUBLIC _safeguard_init
_safeguard_init PROC
#pragma debug scope 5 1 ; 23 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 23 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR __intc
#line 24 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,080h
MOV __tmrc,A
#line 25 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR __tmr
#line 27 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SET __pbc
#line 28 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SET __pcc
L4:
RET
_safeguard_init ENDP
#line 33 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
@delay20ms .SECTION 'CODE'
PUBLIC _delay20ms
_delay20ms PROC
#pragma debug scope 6 1 ; 34 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 34 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,020h
MOV CR1,A
L6:
L7:
#line 35 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,CR1
MOV b0_5,A
DEC CR1
SZ b0_5
JMP L6
L5:
RET
LOCAL b0_5 DB ?
#line 34 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
LOCAL CR1 DB ? ; i
#pragma debug variable 7 6 CR1 i
_delay20ms ENDP
#line 39 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 40 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
L10 .SECTION INPAGE'CODE'
l_10:
MOV [06h],A
_10:
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
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 7 1 ; 40 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 40 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,16
MOV RH,A
MOV A,OFFSET CR7
MOV [01H],A
MOV A,1
ADD A,OFFSET l_10
MOV T2,A
ASB43:
MOV A,T2
CALL l_10
MOV [00H],A
INC [01H]
INC T2
SDZ RH
JMP ASB43
#line 45 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CALL _safeguard_init
#line 46 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR CR4
#line 47 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR __pac
#line 48 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SET __pa
#line 48 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
JMP L12
L11:
#pragma debug scope 8 7 ; 50 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 50 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SZ [014H].0
JMP L14
#pragma debug scope 9 8 ; 52 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 52 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CALL _delay20ms
#line 53 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SZ [014H].0
JMP L16
#pragma debug scope 10 9 ; 55 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 55 "E:\MY_PROJECT\CHO\JRLED\JRLED2.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\JRLED2.C"
INC CR4
#line 57 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,CR4
XOR A,0ch
SNZ [0ah].2
JMP L18
#pragma debug scope 11 10 ; 59 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 59 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR CR5
#line 60 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,0fah
MOV CR6,A
#line 61 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,CR5
ADD A,OFFSET CR7
MOV b0_6,A
MOV A,b0_6
MOV [01H],A
MOV A,[00H]
MOV b0_6,A
MOV A,b0_6
MOV __pa,A
#line 62 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR __tmr
#line 63 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,097h
MOV __tmrc,A
L18:
#line 65 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#pragma debug scope 10 9 ; 65 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,CR4
XOR A,0dh
SNZ [0ah].2
JMP L20
#pragma debug scope 12 10 ; 67 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 67 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR CR4
#line 68 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,1
ADD A,CR4
ADD A,OFFSET l_table
CALL l_table
MOV __pa,A
L20:
#line 70 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#pragma debug scope 10 9 ; 70 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,01eh
MOV CR3,A
#line 71 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR __tmr
#line 72 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,097h
MOV __tmrc,A
L16:
L22:
#pragma debug scope 13 9 ; 76 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 76 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SNZ [014H].0
JMP L25
#pragma debug scope 14 13 ; 78 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 78 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CALL _delay20ms
#line 79 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SNZ [014H].0
JMP L27
#line 79 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
JMP L24
L27:
L25:
#line 81 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#pragma debug scope 13 9 ; 81 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SNZ [0BH].5
JMP L29
#pragma debug scope 15 13 ; 83 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 83 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR [0BH].5
#line 84 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR __tmr
#line 85 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
DEC CR3
L29:
L23:
#line 87 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#pragma debug scope 9 8 ; 87 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SZ CR3
JMP L22
L24:
#line 89 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SZ CR3
JMP L15
SZ [014H].0
JMP L15
#pragma debug scope 16 9 ; 91 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 91 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SET __pa
#line 92 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR CR4
L36:
L37:
#pragma debug scope 17 16 ; 94 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 94 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SNZ [014H].0
JMP L36
#line 95 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CALL _delay20ms
L34:
#line 96 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#pragma debug scope 16 9 ; 96 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
SNZ [014H].0
JMP L37
#line 98 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#pragma debug scope 8 7 ; 98 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
JMP L15
L14:
#pragma debug scope 18 8 ; 101 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 101 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,CR4
XOR A,0ch
SNZ [0ah].2
JMP L39
MOV A,__tmr
SUB A,0f0h
SNZ [0ah].0
JMP L39
#pragma debug scope 19 18 ; 103 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 103 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
CLR __tmr
#line 104 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
DECA CR6
MOV b0_6,A
MOV A,b0_6
MOV CR6,A
SZ b0_6
JMP L41
#pragma debug scope 20 19 ; 106 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#line 106 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,0fah
MOV CR6,A
#line 107 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
INC CR5
#line 108 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,0fh
ANDM A,CR5
#line 109 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
MOV A,CR5
ADD A,OFFSET CR7
MOV b0_6,A
MOV A,b0_6
MOV [01H],A
MOV A,[00H]
MOV b0_6,A
MOV A,b0_6
MOV __pa,A
L41:
L39:
L15:
L12:
#line 49 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
#pragma debug scope 7 1 ; 49 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
JMP L11
L9:
#line 115 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
JMP $
LOCAL b0_6 DB ?
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
LOCAL CR3 DB ? ; sec_count
#pragma debug variable 8 7 CR3 sec_count
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
LOCAL CR4 DB ? ; idx
#pragma debug variable 8 7 CR4 idx
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
LOCAL CR5 DB ? ; ScanCount
#pragma debug variable 8 7 CR5 ScanCount
#line 43 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
LOCAL CR6 DB ? ; ScanDelay
#pragma debug variable 8 7 CR6 ScanDelay
#line 40 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
LOCAL CR7 DB 16 DUP (?) ; ScanTable
#pragma debug variable 4 7 CR7 ScanTable
_main ENDP
#line 38 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
EXTERN RH:BYTE
EXTERN T2:BYTE
EXTERN VA:BYTE
EXTERN VS:BYTE
#line 38 "E:\MY_PROJECT\CHO\JRLED\JRLED2.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP
ROMBANK 0 @DUMMYNOP 
@DUMMYNOP .SECTION AT 01ffh 'CODE'
nop