scan.asm

用holtek单片机编写的A/D变换程序。

#pragma debug scope 1 1
#line 10 "D:\project\Done\detect current\SCAN.C"
rombank 0 _currentshow
_currentshow .SECTION INPAGE'CODE'
l_currentshow:
MOV [06h],A
_currentshow:
RET A,95
RET A,80
RET A,61
RET A,121
RET A,114
RET A,107
RET A,111
RET A,81
RET A,127
RET A,123
#line 13 "D:\project\Done\detect current\SCAN.C"
rombank 0 _currentvalue
_currentvalue .SECTION INPAGE'CODE'
l_currentvalue:
MOV [06h],A
_currentvalue:
RET A,1
RET A,1
RET A,1
RET A,2
RET A,2
RET A,3
RET A,3
RET A,3
RET A,4
RET A,4
RET A,4
RET A,5
RET A,5
RET A,6
RET A,6
RET A,6
RET A,7
RET A,7
RET A,8
RET A,8
RET A,8
RET A,9
RET A,9
RET A,16
RET A,16
RET A,16
RET A,17
RET A,17
RET A,18
RET A,18
RET A,18
RET A,19
RET A,19
RET A,20
RET A,20
RET A,20
RET A,21
RET A,21
RET A,22
RET A,22
RET A,22
RET A,23
RET A,23
RET A,24
RET A,24
RET A,24
RET A,25
RET A,25
RET A,32
RET A,32
RET A,32
RET A,33
RET A,33
RET A,34
RET A,34
RET A,34
RET A,35
RET A,35
RET A,36
RET A,36
RET A,36
RET A,37
RET A,37
RET A,38
RET A,38
RET A,38
RET A,39
RET A,39
RET A,40
RET A,40
RET A,40
RET A,41
RET A,41
RET A,48
RET A,48
RET A,48
RET A,49
RET A,49
RET A,50
RET A,50
RET A,50
RET A,51
RET A,51
RET A,52
RET A,52
RET A,53
RET A,53
RET A,53
#line 32 "D:\project\Done\detect current\SCAN.C"
__acsr EQU [027H]
__adcr EQU [026H]
__adrh EQU [025H]
__adrl EQU [024H]
__pwm2 EQU [01cH]
__pwm1 EQU [01bH]
__pwm0 EQU [01aH]
__pdc EQU [019H]
__pd EQU [018H]
__pbc EQU [015H]
__pb EQU [014H]
__pac EQU [013H]
__pa EQU [012H]
__tmrc EQU [0eH]
__tmr EQU [0dH]
__intc1 EQU [01eH]
__intc0 EQU [0bH]
__status EQU [0aH]
__rtcc EQU [09H]
__tblh EQU [08H]
__tblp EQU [07H]
__pcl EQU [06H]
__acc EQU [05H]
__bp EQU [04H]
__mp1 EQU [03H]
__iar1 EQU [02H]
__mp0 EQU [01H]
__iar0 EQU [00H]
@@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
L1:
#pragma debug scope 2 1 ; 32 "D:\project\Done\detect current\SCAN.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_8 ENDP
RAMBANK 0 @isr_8
@isr_8 .SECTION 'DATA'
#line 33 "D:\project\Done\detect current\SCAN.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
L2:
#pragma debug scope 3 1 ; 33 "D:\project\Done\detect current\SCAN.C"
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_c ENDP
RAMBANK 0 @isr_c
@isr_c .SECTION 'DATA'
#line 34 "D:\project\Done\detect current\SCAN.C"
@@isr_14 .SECTION AT 014H 'CODE'
JMP _isr_14
@isr_14 .SECTION 'CODE'
_isr_14 PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
#pragma debug scope 4 1 ; 34 "D:\project\Done\detect current\SCAN.C"
#line 34 "D:\project\Done\detect current\SCAN.C"
NOP
#line 35 "D:\project\Done\detect current\SCAN.C"
NOP
#line 36 "D:\project\Done\detect current\SCAN.C"
NOP
L3:
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_14 ENDP
RAMBANK 0 @isr_14
@isr_14 .SECTION 'DATA'
#line 40 "D:\project\Done\detect current\SCAN.C"
@safeguard_init .SECTION 'CODE'
PUBLIC _safeguard_init
_safeguard_init PROC
#pragma debug scope 5 1 ; 41 "D:\project\Done\detect current\SCAN.C"
#line 41 "D:\project\Done\detect current\SCAN.C"
CLR __intc0
#line 42 "D:\project\Done\detect current\SCAN.C"
CLR __tmrc
#line 43 "D:\project\Done\detect current\SCAN.C"
CLR __tmr
#line 44 "D:\project\Done\detect current\SCAN.C"
SET __pac
#line 45 "D:\project\Done\detect current\SCAN.C"
SET __pbc
L4:
RET
_safeguard_init ENDP
#line 51 "D:\project\Done\detect current\SCAN.C"
@io_init .SECTION 'CODE'
PUBLIC _io_init
_io_init PROC
#pragma debug scope 6 1 ; 52 "D:\project\Done\detect current\SCAN.C"
#line 52 "D:\project\Done\detect current\SCAN.C"
MOV A,08h
MOV __pac,A
#line 53 "D:\project\Done\detect current\SCAN.C"
CLR __pa
#line 54 "D:\project\Done\detect current\SCAN.C"
SET __pbc
#line 55 "D:\project\Done\detect current\SCAN.C"
SET __pb
#line 56 "D:\project\Done\detect current\SCAN.C"
CLR __pdc
#line 57 "D:\project\Done\detect current\SCAN.C"
CLR __pd
L5:
RET
_io_init ENDP
#line 62 "D:\project\Done\detect current\SCAN.C"
@int_init .SECTION 'CODE'
PUBLIC _int_init
_int_init PROC
#pragma debug scope 7 1 ; 62 "D:\project\Done\detect current\SCAN.C"
#line 62 "D:\project\Done\detect current\SCAN.C"
SET [0BH].0
#line 63 "D:\project\Done\detect current\SCAN.C"
SET [0BH].1
L6:
RET
_int_init ENDP
#line 68 "D:\project\Done\detect current\SCAN.C"
@timer_base_interrupt .SECTION 'CODE'
PUBLIC _timer_base_interrupt
_timer_base_interrupt PROC
#pragma debug scope 8 1 ; 68 "D:\project\Done\detect current\SCAN.C"
#line 68 "D:\project\Done\detect current\SCAN.C"
MOV A,0ah
MOV __rtcc,A
#line 69 "D:\project\Done\detect current\SCAN.C"
SET [0BH].0
#line 70 "D:\project\Done\detect current\SCAN.C"
SET [01EH].2
#line 71 "D:\project\Done\detect current\SCAN.C"
CLR __acsr
L7:
RET
_timer_base_interrupt ENDP
#line 75 "D:\project\Done\detect current\SCAN.C"
@ad_converter .SECTION 'CODE'
PUBLIC _ad_converter
_ad_converter PROC
#pragma debug scope 9 1 ; 76 "D:\project\Done\detect current\SCAN.C"
#line 76 "D:\project\Done\detect current\SCAN.C"
MOV A,020h
MOV __adcr,A
#line 77 "D:\project\Done\detect current\SCAN.C"
CLR [026H].7
#line 78 "D:\project\Done\detect current\SCAN.C"
SET [026H].7
#line 79 "D:\project\Done\detect current\SCAN.C"
CLR [026H].7
L9:
L10:
#line 80 "D:\project\Done\detect current\SCAN.C"
SZ [026H].6
JMP L9
#line 81 "D:\project\Done\detect current\SCAN.C"
MOV A,__adrh
MOV _adcurrent,A
#line 82 "D:\project\Done\detect current\SCAN.C"
MOV A,_adcurrent
MOV __acc,A
#line 83 "D:\project\Done\detect current\SCAN.C"
MOV A,_adcurrent
L8:
RET
_ad_converter ENDP
#line 87 "D:\project\Done\detect current\SCAN.C"
@get_currentvalue .SECTION 'CODE'
PUBLIC _get_currentvalue
_get_currentvalue PROC
#pragma debug scope 10 1
#line 86 "D:\project\Done\detect current\SCAN.C"
PUBLIC get_currentvalue0
LOCAL get_currentvalue0 DB ? ; value
#pragma debug variable 10 get_currentvalue0 value
#pragma debug scope 10 1 ; 88 "D:\project\Done\detect current\SCAN.C"
#line 88 "D:\project\Done\detect current\SCAN.C"
MOV A,get_currentvalue0
SUB A,058h
SNZ [0ah].0
JMP L13
#pragma debug scope 11 10 ; 89 "D:\project\Done\detect current\SCAN.C"
#line 89 "D:\project\Done\detect current\SCAN.C"
MOV A,057h
MOV CR1,A
#line 89 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 10 1 ; 89 "D:\project\Done\detect current\SCAN.C"
JMP L14
L13:
#pragma debug scope 12 10 ; 91 "D:\project\Done\detect current\SCAN.C"
#line 91 "D:\project\Done\detect current\SCAN.C"
MOV A,get_currentvalue0
MOV CR1,A
L14:
#line 92 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 10 1 ; 92 "D:\project\Done\detect current\SCAN.C"
MOV A,1
ADD A,CR1
ADD A,OFFSET l_currentvalue
CALL l_currentvalue
MOV b0_9,A
MOV A,b0_9
L12:
RET
LOCAL b0_9 DB 2 DUP(?)
#line 87 "D:\project\Done\detect current\SCAN.C"
LOCAL CR1 DB ? ; u
#pragma debug variable 10 CR1 u
_get_currentvalue ENDP
#line 96 "D:\project\Done\detect current\SCAN.C"
@disp_high .SECTION 'CODE'
PUBLIC _disp_high
_disp_high PROC
#pragma debug scope 13 1
#line 95 "D:\project\Done\detect current\SCAN.C"
PUBLIC disp_high0
LOCAL disp_high0 DB ? ; c_high
#pragma debug variable 13 disp_high0 c_high
#pragma debug scope 13 1 ; 100 "D:\project\Done\detect current\SCAN.C"
#line 100 "D:\project\Done\detect current\SCAN.C"
MOV A,1
ADD A,disp_high0
ADD A,OFFSET l_currentshow
CALL l_currentshow
MOV b0_10,A
MOV A,b0_10
MOV CR2,A
#line 101 "D:\project\Done\detect current\SCAN.C"
MOV A,CR2
AND A,0fh
MOV CR3,A
#line 102 "D:\project\Done\detect current\SCAN.C"
MOV A,01h
MOV __bp,A
#line 103 "D:\project\Done\detect current\SCAN.C"
MOV A,052h
MOV __mp1,A
#line 104 "D:\project\Done\detect current\SCAN.C"
MOV A,CR3
MOV __iar1,A
#line 105 "D:\project\Done\detect current\SCAN.C"
SWAP CR2
#line 106 "D:\project\Done\detect current\SCAN.C"
MOV A,CR2
AND A,0fh
MOV CR3,A
#line 107 "D:\project\Done\detect current\SCAN.C"
MOV A,051h
MOV __mp1,A
#line 108 "D:\project\Done\detect current\SCAN.C"
MOV A,CR3
MOV __iar1,A
L15:
RET
LOCAL b0_10 DB 2 DUP(?)
#line 97 "D:\project\Done\detect current\SCAN.C"
LOCAL CR2 DB ? ; high_show
#pragma debug variable 13 CR2 high_show
#line 98 "D:\project\Done\detect current\SCAN.C"