scan.asm

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

LOCAL CR3 DB ? ; ast
#pragma debug variable 13 CR3 ast
_disp_high ENDP
#line 114 "D:\project\Done\detect current\SCAN.C"
@disp_mid .SECTION 'CODE'
PUBLIC _disp_mid
_disp_mid PROC
#pragma debug scope 14 1
#line 113 "D:\project\Done\detect current\SCAN.C"
PUBLIC disp_mid0
LOCAL disp_mid0 DB ? ; c_mid
#pragma debug variable 14 disp_mid0 c_mid
#pragma debug scope 14 1 ; 117 "D:\project\Done\detect current\SCAN.C"
#line 117 "D:\project\Done\detect current\SCAN.C"
MOV A,1
ADD A,disp_mid0
ADD A,OFFSET l_currentshow
CALL l_currentshow
MOV b0_11,A
MOV A,b0_11
MOV CR4,A
#line 118 "D:\project\Done\detect current\SCAN.C"
MOV A,CR4
AND A,0fh
MOV CR5,A
#line 119 "D:\project\Done\detect current\SCAN.C"
MOV A,01h
MOV __bp,A
#line 120 "D:\project\Done\detect current\SCAN.C"
MOV A,050h
MOV __mp1,A
#line 121 "D:\project\Done\detect current\SCAN.C"
MOV A,CR5
MOV __iar1,A
#line 122 "D:\project\Done\detect current\SCAN.C"
SWAP CR4
#line 123 "D:\project\Done\detect current\SCAN.C"
MOV A,CR4
AND A,0fh
MOV CR5,A
#line 124 "D:\project\Done\detect current\SCAN.C"
MOV A,04fh
MOV __mp1,A
#line 125 "D:\project\Done\detect current\SCAN.C"
MOV A,CR5
OR A,080h
MOV __iar1,A
L16:
RET
LOCAL b0_11 DB 2 DUP(?)
#line 114 "D:\project\Done\detect current\SCAN.C"
LOCAL CR4 DB ? ; mid_show
#pragma debug variable 14 CR4 mid_show
#line 115 "D:\project\Done\detect current\SCAN.C"
LOCAL CR5 DB ? ; ast
#pragma debug variable 14 CR5 ast
_disp_mid ENDP
#line 130 "D:\project\Done\detect current\SCAN.C"
@disp_zero .SECTION 'CODE'
PUBLIC _disp_zero
_disp_zero PROC
#pragma debug scope 15 1
#line 129 "D:\project\Done\detect current\SCAN.C"
PUBLIC disp_zero0
LOCAL disp_zero0 DB ? ; c_mid
#pragma debug variable 15 disp_zero0 c_mid
#pragma debug scope 15 1 ; 133 "D:\project\Done\detect current\SCAN.C"
#line 133 "D:\project\Done\detect current\SCAN.C"
MOV A,1
ADD A,disp_zero0
ADD A,OFFSET l_currentshow
CALL l_currentshow
MOV b0_12,A
MOV A,b0_12
MOV CR7,A
#line 134 "D:\project\Done\detect current\SCAN.C"
MOV A,CR7
AND A,0fh
MOV CR6,A
#line 135 "D:\project\Done\detect current\SCAN.C"
MOV A,01h
MOV __bp,A
#line 136 "D:\project\Done\detect current\SCAN.C"
MOV A,04eh
MOV __mp1,A
#line 137 "D:\project\Done\detect current\SCAN.C"
MOV A,CR6
MOV __iar1,A
#line 138 "D:\project\Done\detect current\SCAN.C"
SWAP CR7
#line 139 "D:\project\Done\detect current\SCAN.C"
MOV A,CR7
AND A,0fh
MOV CR6,A
#line 140 "D:\project\Done\detect current\SCAN.C"
MOV A,04dh
MOV __mp1,A
#line 141 "D:\project\Done\detect current\SCAN.C"
SET CR6.3
#line 142 "D:\project\Done\detect current\SCAN.C"
MOV A,CR6
MOV __acc,A
#line 143 "D:\project\Done\detect current\SCAN.C"
MOV A,CR6
MOV __iar1,A
#line 145 "D:\project\Done\detect current\SCAN.C"
MOV A,__iar1
MOV __acc,A
L17:
RET
LOCAL b0_12 DB 2 DUP(?)
#line 131 "D:\project\Done\detect current\SCAN.C"
LOCAL CR6 DB ? ; ast
#pragma debug variable 15 CR6 ast
#line 130 "D:\project\Done\detect current\SCAN.C"
LOCAL CR7 DB ? ; mid_show
#pragma debug variable 15 CR7 mid_show
_disp_zero ENDP
#line 150 "D:\project\Done\detect current\SCAN.C"
@disp_high_null .SECTION 'CODE'
PUBLIC _disp_high_null
_disp_high_null PROC
#pragma debug scope 16 1 ; 151 "D:\project\Done\detect current\SCAN.C"
#line 151 "D:\project\Done\detect current\SCAN.C"
MOV A,01h
MOV __bp,A
#line 152 "D:\project\Done\detect current\SCAN.C"
MOV A,052h
MOV __mp1,A
#line 153 "D:\project\Done\detect current\SCAN.C"
CLR __iar1
#line 154 "D:\project\Done\detect current\SCAN.C"
MOV A,051h
MOV __mp1,A
#line 155 "D:\project\Done\detect current\SCAN.C"
CLR __iar1
#line 157 "D:\project\Done\detect current\SCAN.C"
MOV A,__iar1
MOV __acc,A
L18:
RET
_disp_high_null ENDP
#line 161 "D:\project\Done\detect current\SCAN.C"
@disp_current_value .SECTION 'CODE'
PUBLIC _disp_current_value
_disp_current_value PROC
#pragma debug scope 17 1
#line 160 "D:\project\Done\detect current\SCAN.C"
PUBLIC disp_current_value0
LOCAL disp_current_value0 DB ? ; c_value
#pragma debug variable 17 disp_current_value0 c_value
#pragma debug scope 17 1 ; 163 "D:\project\Done\detect current\SCAN.C"
#line 163 "D:\project\Done\detect current\SCAN.C"
MOV A,disp_current_value0
AND A,0fh
MOV CR8,A
#line 164 "D:\project\Done\detect current\SCAN.C"
MOV A,CR8
MOV __acc,A
#line 165 "D:\project\Done\detect current\SCAN.C"
SWAP disp_current_value0
#line 166 "D:\project\Done\detect current\SCAN.C"
MOV A,disp_current_value0
MOV __acc,A
#line 167 "D:\project\Done\detect current\SCAN.C"
MOV A,disp_current_value0
AND A,0fh
MOV CR9,A
#line 169 "D:\project\Done\detect current\SCAN.C"
MOV A,CR9
XOR A,03h
SNZ [0ah].2
JMP L20
#pragma debug scope 18 17 ; 170 "D:\project\Done\detect current\SCAN.C"
#line 170 "D:\project\Done\detect current\SCAN.C"
MOV A,03h
MOV disp_high0,A
CALL _disp_high
#line 170 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 17 1 ; 170 "D:\project\Done\detect current\SCAN.C"
JMP L21
L20:
#pragma debug scope 19 17 ; 172 "D:\project\Done\detect current\SCAN.C"
#line 172 "D:\project\Done\detect current\SCAN.C"
MOV A,CR9
XOR A,02h
SNZ [0ah].2
JMP L22
#pragma debug scope 20 19 ; 173 "D:\project\Done\detect current\SCAN.C"
#line 173 "D:\project\Done\detect current\SCAN.C"
MOV A,02h
MOV disp_high0,A
CALL _disp_high
#line 173 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 19 17 ; 173 "D:\project\Done\detect current\SCAN.C"
JMP L23
L22:
#pragma debug scope 21 19 ; 175 "D:\project\Done\detect current\SCAN.C"
#line 175 "D:\project\Done\detect current\SCAN.C"
MOV A,CR9
XOR A,01h
SNZ [0ah].2
JMP L24
#pragma debug scope 22 21 ; 176 "D:\project\Done\detect current\SCAN.C"
#line 176 "D:\project\Done\detect current\SCAN.C"
MOV A,01h
MOV disp_high0,A
CALL _disp_high
#line 176 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 21 19 ; 176 "D:\project\Done\detect current\SCAN.C"
JMP L25
L24:
#pragma debug scope 23 21 ; 179 "D:\project\Done\detect current\SCAN.C"
#line 179 "D:\project\Done\detect current\SCAN.C"
CALL _disp_high_null
L25:
L23:
L21:
#line 182 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 17 1 ; 182 "D:\project\Done\detect current\SCAN.C"
MOV A,CR8
MOV disp_mid0,A
CALL _disp_mid
#line 183 "D:\project\Done\detect current\SCAN.C"
MOV A,00h
MOV disp_zero0,A
CALL _disp_zero
L19:
RET
#line 162 "D:\project\Done\detect current\SCAN.C"
LOCAL CR8 DB ? ; mid
#pragma debug variable 17 CR8 mid
#line 161 "D:\project\Done\detect current\SCAN.C"
LOCAL CR9 DB ? ; high
#pragma debug variable 17 CR9 high
_disp_current_value ENDP
#line 188 "D:\project\Done\detect current\SCAN.C"
@clr_screen .SECTION 'CODE'
PUBLIC _clr_screen
_clr_screen PROC
#pragma debug scope 24 1 ; 189 "D:\project\Done\detect current\SCAN.C"
#line 189 "D:\project\Done\detect current\SCAN.C"
MOV A,01h
MOV __bp,A
#line 190 "D:\project\Done\detect current\SCAN.C"
MOV A,049h
MOV __mp1,A
#line 191 "D:\project\Done\detect current\SCAN.C"
CLR CR10
#line 191 "D:\project\Done\detect current\SCAN.C"
JMP L30
L27:
#line 195 "D:\project\Done\detect current\SCAN.C"
mov a,0h
#line 196 "D:\project\Done\detect current\SCAN.C"
mov [02],a
#pragma debug scope 25 24 ; 200 "D:\project\Done\detect current\SCAN.C"
#line 200 "D:\project\Done\detect current\SCAN.C"
INC __mp1
L28:
#line 191 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 24 1 ; 191 "D:\project\Done\detect current\SCAN.C"
INC CR10
L30:
#line 191 "D:\project\Done\detect current\SCAN.C"
MOV A,CR10
SUB A,0ah
SNZ [0ah].0
JMP L27
L26:
RET
#line 188 "D:\project\Done\detect current\SCAN.C"
LOCAL CR10 DB ? ; i
#pragma debug variable 24 CR10 i
_clr_screen ENDP
#line 208 "D:\project\Done\detect current\SCAN.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 26 1 ; 214 "D:\project\Done\detect current\SCAN.C"
#line 214 "D:\project\Done\detect current\SCAN.C"
MOV A,020h
MOV CR13,A
#line 215 "D:\project\Done\detect current\SCAN.C"
MOV A,028h
MOV _p,A
CLR _p[1]
#line 216 "D:\project\Done\detect current\SCAN.C"
CALL _io_init
#line 217 "D:\project\Done\detect current\SCAN.C"
CALL _int_init
#line 218 "D:\project\Done\detect current\SCAN.C"
CALL _timer_base_interrupt
#line 218 "D:\project\Done\detect current\SCAN.C"
JMP L33
L32:
#pragma debug scope 27 26 ; 221 "D:\project\Done\detect current\SCAN.C"
#line 221 "D:\project\Done\detect current\SCAN.C"
CALL _ad_converter
MOV CR12,A
#line 222 "D:\project\Done\detect current\SCAN.C"
MOV A,CR12
MOV get_currentvalue0,A
CALL _get_currentvalue
MOV CR11,A
#line 223 "D:\project\Done\detect current\SCAN.C"
MOV A,CR11
MOV disp_current_value0,A
CALL _disp_current_value
#line 224 "D:\project\Done\detect current\SCAN.C"
MOV A,06H
MOV RH,A
MOV A,0d1H
CALL __DELAYY3
#line 225 "D:\project\Done\detect current\SCAN.C"
CALL _clr_screen
#line 226 "D:\project\Done\detect current\SCAN.C"
MOV A,018H
CALL __DELAYX0
L33:
#line 219 "D:\project\Done\detect current\SCAN.C"
#pragma debug scope 26 1 ; 219 "D:\project\Done\detect current\SCAN.C"
JMP L32
L31:
#line 229 "D:\project\Done\detect current\SCAN.C"
JMP $
#line 209 "D:\project\Done\detect current\SCAN.C"
LOCAL CR11 DB ? ; curvalue
#pragma debug variable 26 CR11 curvalue
#line 213 "D:\project\Done\detect current\SCAN.C"
LOCAL CR12 DB ? ; pointocurrent
#pragma debug variable 26 CR12 pointocurrent
#line 214 "D:\project\Done\detect current\SCAN.C"
LOCAL CR13 DB ? ; t
#pragma debug variable 26 CR13 t
_main ENDP
PUBLIC _adcurrent
RAMBANK 0 @adcurrent
@adcurrent .SECTION 'DATA'
#line 7 "D:\project\Done\detect current\SCAN.C"
_adcurrent DB ? ; adcurrent
#pragma debug variable 1 _adcurrent adcurrent
PUBLIC _p
RAMBANK 0 @p
@p .SECTION 'DATA'
#line 6 "D:\project\Done\detect current\SCAN.C"
_p DB 2 DUP (?) ;p
#pragma debug variable 1 _p p
PUBLIC _lamp
RAMBANK 0 @lamp
@lamp .SECTION 'DATA'
#line 5 "D:\project\Done\detect current\SCAN.C"
_lamp DB ? ; lamp
#pragma debug variable 1 _lamp lamp
RAMBANK 0 BITDATASEC
BITDATASEC .SECTION 'DATA'
PUBLIC _direction
#line 4 "D:\project\Done\detect current\SCAN.C"
_direction DBIT ; direction
#pragma debug variable 1 _direction direction
#line 207 "D:\project\Done\detect current\SCAN.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
EXTERN RH:BYTE
EXTERN VA:BYTE
EXTERN VS:BYTE
EXTERN __DELAYX0:NEAR
EXTERN __DELAYX1:NEAR
EXTERN __DELAYX2:NEAR
EXTERN __DELAYX3:NEAR
EXTERN __DELAYX4:NEAR
EXTERN __DELAYX5:NEAR
EXTERN __DELAYX6:NEAR
EXTERN __DELAYY0:NEAR
EXTERN __DELAYY1:NEAR
EXTERN __DELAYY2:NEAR
EXTERN __DELAYY3:NEAR
EXTERN __DELAYY4:NEAR
EXTERN __DELAYY5:NEAR
#line 207 "D:\project\Done\detect current\SCAN.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP