eerw.asm

c语言写的读写24的holtek程序

INC CR2
L10:
#line 104 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,CR2
SUB A,08h
SNZ [0ah].0
JMP L7
L6:
RET
LOCAL b0_6 DB ?
#line 102 "E:\ZHAO\产品程序\EE2\EERW.C"
LOCAL CR1 DB ? ; temp
#pragma debug variable 8 7 CR1 temp
#line 102 "E:\ZHAO\产品程序\EE2\EERW.C"
LOCAL CR2 DB ? ; i
#pragma debug variable 8 7 CR2 i
_send ENDP
#line 119 "E:\ZHAO\产品程序\EE2\EERW.C"
@Read .SECTION 'CODE'
PUBLIC _Read
_Read PROC
#pragma debug scope 9 1 ; 120 "E:\ZHAO\产品程序\EE2\EERW.C"
#line 120 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR CR3
#line 121 "E:\ZHAO\产品程序\EE2\EERW.C"
SET [019H].0
#line 122 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR CR4
#line 122 "E:\ZHAO\产品程序\EE2\EERW.C"
JMP L15
L12:
#pragma debug scope 10 9 ; 124 "E:\ZHAO\产品程序\EE2\EERW.C"
#line 124 "E:\ZHAO\产品程序\EE2\EERW.C"
SET [014H].3
#line 125 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR [0AH].0
RLC CR3
#line 126 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR b0_7
SZ [018H].0
SET b0_7.0
MOV A,b0_7
ORM A,CR3
#line 127 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR [014H].3
L13:
#line 122 "E:\ZHAO\产品程序\EE2\EERW.C"
#pragma debug scope 9 1 ; 122 "E:\ZHAO\产品程序\EE2\EERW.C"
INC CR4
L15:
#line 122 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,CR4
SUB A,08h
SNZ [0ah].0
JMP L12
#line 129 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR [019H].0
#line 130 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _Ack
#line 131 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,CR3
L11:
RET
LOCAL b0_7 DB ?
#line 120 "E:\ZHAO\产品程序\EE2\EERW.C"
LOCAL CR3 DB ? ; BYTE
#pragma debug variable 8 9 CR3 BYTE
#line 120 "E:\ZHAO\产品程序\EE2\EERW.C"
LOCAL CR4 DB ? ; i
#pragma debug variable 8 9 CR4 i
_Read ENDP
#line 136 "E:\ZHAO\产品程序\EE2\EERW.C"
@delay_ms .SECTION 'CODE'
PUBLIC _delay_ms
_delay_ms PROC
#pragma debug scope 11 1
#line 135 "E:\ZHAO\产品程序\EE2\EERW.C"
PUBLIC delay_ms0
LOCAL delay_ms0 DB ? ; n
#pragma debug variable 8 11 delay_ms0 n
#pragma debug scope 11 1 ; 138 "E:\ZHAO\产品程序\EE2\EERW.C"
#line 138 "E:\ZHAO\产品程序\EE2\EERW.C"
JMP L20
L17:
#pragma debug scope 12 11 ; 140 "E:\ZHAO\产品程序\EE2\EERW.C"
#line 140 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,060h
MOV CR5,A
#line 140 "E:\ZHAO\产品程序\EE2\EERW.C"
JMP L24
L21:
L22:
#line 140 "E:\ZHAO\产品程序\EE2\EERW.C"
DEC CR5
L24:
#line 140 "E:\ZHAO\产品程序\EE2\EERW.C"
SZ CR5
JMP L21
L18:
#line 138 "E:\ZHAO\产品程序\EE2\EERW.C"
#pragma debug scope 11 1 ; 138 "E:\ZHAO\产品程序\EE2\EERW.C"
DEC delay_ms0
L20:
#line 138 "E:\ZHAO\产品程序\EE2\EERW.C"
SZ delay_ms0
JMP L17
L16:
RET
#line 137 "E:\ZHAO\产品程序\EE2\EERW.C"
LOCAL CR5 DB ? ; temp
#pragma debug variable 8 11 CR5 temp
_delay_ms ENDP
#line 145 "E:\ZHAO\产品程序\EE2\EERW.C"
@iic_write .SECTION 'CODE'
PUBLIC _iic_write
_iic_write PROC
#pragma debug scope 13 1
#line 144 "E:\ZHAO\产品程序\EE2\EERW.C"
PUBLIC iic_write0
LOCAL iic_write0 DB ? ; Wr_Address
#pragma debug variable 8 13 iic_write0 Wr_Address
#line 144 "E:\ZHAO\产品程序\EE2\EERW.C"
PUBLIC iic_write1
LOCAL iic_write1 DB ? ; WrData_Address
#pragma debug variable 8 13 iic_write1 WrData_Address
#line 144 "E:\ZHAO\产品程序\EE2\EERW.C"
PUBLIC iic_write2
LOCAL iic_write2 DB ? ; data
#pragma debug variable 8 13 iic_write2 data
#pragma debug scope 13 1 ; 146 "E:\ZHAO\产品程序\EE2\EERW.C"
#line 146 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _start
#line 147 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,iic_write0
MOV send0,A
CALL _send
#line 148 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _testack
#line 149 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,_WrData_address
MOV send0,A
CALL _send
#line 150 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _testack
#line 151 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,iic_write2
MOV send0,A
CALL _send
#line 152 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _testack
#line 153 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _stp
#line 154 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0ah
MOV delay_ms0,A
CALL _delay_ms
L25:
RET
_iic_write ENDP
#line 158 "E:\ZHAO\产品程序\EE2\EERW.C"
@iic_read .SECTION 'CODE'
PUBLIC _iic_read
_iic_read PROC
#pragma debug scope 14 1
#line 157 "E:\ZHAO\产品程序\EE2\EERW.C"
PUBLIC iic_read0
LOCAL iic_read0 DB ? ; Wr_Address
#pragma debug variable 8 14 iic_read0 Wr_Address
#line 157 "E:\ZHAO\产品程序\EE2\EERW.C"
PUBLIC iic_read1
LOCAL iic_read1 DB ? ; WrData_Address
#pragma debug variable 8 14 iic_read1 WrData_Address
#pragma debug scope 14 1 ; 160 "E:\ZHAO\产品程序\EE2\EERW.C"
#line 160 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _start
#line 161 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,iic_read0
MOV send0,A
CALL _send
#line 162 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _testack
#line 163 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,_WrData_address
MOV send0,A
CALL _send
#line 164 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _testack
#line 165 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _start
#line 166 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0a1h
MOV send0,A
CALL _send
#line 167 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _testack
#line 168 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _Read
MOV CR6,A
#line 169 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _NoAck
#line 170 "E:\ZHAO\产品程序\EE2\EERW.C"
CALL _stp
#line 171 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,CR6
L26:
RET
#line 159 "E:\ZHAO\产品程序\EE2\EERW.C"
LOCAL CR6 DB ? ; a
#pragma debug variable 8 14 CR6 a
_iic_read ENDP
#line 178 "E:\ZHAO\产品程序\EE2\EERW.C"
@MAIN .SECTION 'CODE'
_main PROC
begin:
#pragma debug scope 15 1 ; 180 "E:\ZHAO\产品程序\EE2\EERW.C"
#line 180 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR __pac
#line 181 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR __pbc
#line 182 "E:\ZHAO\产品程序\EE2\EERW.C"
CLR __pdc
#line 183 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0a0h
MOV iic_write0,A
MOV A,00h
MOV iic_write1,A
MOV A,041h
MOV iic_write2,A
CALL _iic_write
#line 184 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,064h
MOV delay_ms0,A
CALL _delay_ms
#line 185 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0a0h
MOV iic_write0,A
MOV A,010h
MOV iic_write1,A
MOV A,05fh
MOV iic_write2,A
CALL _iic_write
#line 186 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,064h
MOV delay_ms0,A
CALL _delay_ms
#line 187 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0a0h
MOV iic_write0,A
MOV A,020h
MOV iic_write1,A
MOV A,0b4h
MOV iic_write2,A
CALL _iic_write
#line 188 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,064h
MOV delay_ms0,A
CALL _delay_ms
#line 189 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0a0h
MOV iic_read0,A
MOV A,010h
MOV iic_read1,A
CALL _iic_read
MOV _ration_setsgl,A
#line 191 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,023h
SUB A,_ration_setsgl
SNZ [0ah].0
JMP L28
#line 191 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,062h
MOV _ration_setsgl,A
L28:
#line 193 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0a0h
MOV iic_read0,A
MOV A,020h
MOV iic_read1,A
CALL _iic_read
MOV _ration_setdou,A
#line 195 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,064h
SUB A,_ration_setdou
SNZ [0ah].0
JMP L30
#line 195 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0aeh
MOV _ration_setdou,A
L30:
#line 197 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,0a0h
MOV iic_read0,A
MOV A,00h
MOV iic_read1,A
CALL _iic_read
MOV _temp_set,A
#line 198 "E:\ZHAO\产品程序\EE2\EERW.C"
SNZ _ErrorBit
JMP L35
#line 198 "E:\ZHAO\产品程序\EE2\EERW.C"
MOV A,03eh
MOV _temp_set,A
L34:
L35:
#line 199 "E:\ZHAO\产品程序\EE2\EERW.C"
JMP L34
L27:
#line 201 "E:\ZHAO\产品程序\EE2\EERW.C"
JMP $
_main ENDP
PUBLIC _ration_setdou
@ration_setdou .SECTION 'DATA'
#line 14 "E:\ZHAO\产品程序\EE2\EERW.C"
_ration_setdou DB ? ; ration_setdou
#pragma debug variable 8 1 _ration_setdou ration_setdou
PUBLIC _ration_setsgl
@ration_setsgl .SECTION 'DATA'
#line 13 "E:\ZHAO\产品程序\EE2\EERW.C"
_ration_setsgl DB ? ; ration_setsgl
#pragma debug variable 8 1 _ration_setsgl ration_setsgl
PUBLIC _temp_set
@temp_set .SECTION 'DATA'
#line 12 "E:\ZHAO\产品程序\EE2\EERW.C"
_temp_set DB ? ; temp_set
#pragma debug variable 8 1 _temp_set temp_set
PUBLIC _WrData_address
@WrData_address .SECTION 'DATA'
#line 11 "E:\ZHAO\产品程序\EE2\EERW.C"
_WrData_address DB ? ; WrData_address
#pragma debug variable 8 1 _WrData_address WrData_address
PUBLIC _Wr_Address
@Wr_Address .SECTION 'DATA'
#line 10 "E:\ZHAO\产品程序\EE2\EERW.C"
_Wr_Address DB ? ; Wr_Address
#pragma debug variable 8 1 _Wr_Address Wr_Address
BITDATASEC .SECTION 'DATA'
PUBLIC _ErrorBit
#line 16 "E:\ZHAO\产品程序\EE2\EERW.C"
_ErrorBit DBIT ; ErrorBit
#pragma debug variable 2 1 _ErrorBit ErrorBit
#line 177 "E:\ZHAO\产品程序\EE2\EERW.C"
STARTSEC .SECTION 'CODE'
STARTUP:
RET
#line 177 "E:\ZHAO\产品程序\EE2\EERW.C"
@CODE .SECTION AT 0 'CODE'
JMP begin
@DUMMY PROC
CALL _main
@DUMMY ENDP
ROMBANK 0 @DUMMYNOP 
@DUMMYNOP .SECTION AT 07ffh 'CODE'
nop