wanjtest.asm

一个用嵌入c写的万年历程序

MOV A,BANK _key[4]
MOV [04H],A
MOV A,OFFSET _key[4]
MOV [03H],A
MOV A,072h
MOV [02H],A
#line 199 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _key[5]
MOV [04H],A
MOV A,OFFSET _key[5]
MOV [03H],A
MOV A,075h
MOV [02H],A
#line 199 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _key[6]
MOV [04H],A
MOV A,OFFSET _key[6]
MOV [03H],A
MOV A,064h
MOV [02H],A
L50:
RET
_init ENDP
#line 207 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
@set_timer .SECTION 'CODE'
PUBLIC _set_timer
_set_timer PROC
#pragma debug scope 19 1 ; 208 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 208 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [011H].4
#line 209 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,0b0h
MOV __tmr1l,A
#line 210 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,03ch
MOV __tmr1h,A
#line 211 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
SET [011H].4
L57:
RET
_set_timer ENDP
#line 214 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.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
MOV A,[03H]
MOV VMP1,A
MOV A,[04H]
MOV VBP,A
#pragma debug scope 20 1 ; 214 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 214 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _wan_t
MOV [04H],A
MOV A,OFFSET _wan_t
MOV [03H],A
INC [02H]
L58:
MOV A,VMP1
MOV [03H],A
MOV A,VBP
MOV [04H],A
MOV A,VS
MOV [0AH],A
MOV A,VA
RETI
_isr_c ENDP
RAMBANK 0 @isr_c
@isr_c .SECTION 'DATA'
#line 216 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
@arrt .SECTION 'CODE'
PUBLIC _arrt
_arrt PROC
#pragma debug scope 21 1 ; 216 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 216 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _wan_t
MOV [04H],A
MOV A,OFFSET _wan_t
MOV [03H],A
MOV A,[02H]
XOR A,060h
SNZ [0AH].2
JMP L60
#pragma debug scope 22 21 ; 217 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 217 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _wan_t
MOV [04H],A
MOV A,OFFSET _wan_t
MOV [03H],A
CLR [02H]
#line 218 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[6]
MOV [04H],A
MOV A,OFFSET _curtime[6]
MOV [03H],A
INCA [02H]
MOV b0_15,A
MOV A,BANK _curtime[6]
MOV [04H],A
MOV A,OFFSET _curtime[6]
MOV [03H],A
MOV A,b0_15
MOV [02H],A
MOV A,b0_15
XOR A,078h
SNZ [0ah].2
JMP L62
#pragma debug scope 23 22 ; 219 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 219 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[6]
MOV [04H],A
MOV A,OFFSET _curtime[6]
MOV [03H],A
CLR [02H]
#line 220 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[5]
MOV [04H],A
MOV A,OFFSET _curtime[5]
MOV [03H],A
INCA [02H]
MOV b0_15,A
MOV A,BANK _curtime[5]
MOV [04H],A
MOV A,OFFSET _curtime[5]
MOV [03H],A
MOV A,b0_15
MOV [02H],A
MOV A,b0_15
XOR A,03ch
SNZ [0ah].2
JMP L68
#pragma debug scope 24 23 ; 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[5]
MOV [04H],A
MOV A,OFFSET _curtime[5]
MOV [03H],A
CLR [02H]
#line 222 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[4]
MOV [04H],A
MOV A,OFFSET _curtime[4]
MOV [03H],A
INCA [02H]
MOV b0_15,A
MOV A,BANK _curtime[4]
MOV [04H],A
MOV A,OFFSET _curtime[4]
MOV [03H],A
MOV A,b0_15
MOV [02H],A
MOV A,b0_15
XOR A,018h
SNZ [0ah].2
JMP L74
#pragma debug scope 25 24 ; 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[4]
MOV [04H],A
MOV A,OFFSET _curtime[4]
MOV [03H],A
CLR [02H]
#line 224 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[2]
MOV [04H],A
MOV A,OFFSET _curtime[2]
MOV [03H],A
INCA [02H]
MOV b0_15,A
MOV A,BANK _curtime[2]
MOV [04H],A
MOV A,OFFSET _curtime[2]
MOV [03H],A
MOV A,b0_15
MOV [02H],A
MOV A,b0_15
XOR A,07h
SNZ [0ah].2
JMP L78
#pragma debug scope 26 25 ; 226 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 226 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[2]
MOV [04H],A
MOV A,OFFSET _curtime[2]
MOV [03H],A
CLR [02H]
L78:
#line 228 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 25 24 ; 228 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[3]
MOV [04H],A
MOV A,OFFSET _curtime[3]
MOV [03H],A
INCA [02H]
MOV b0_15,A
MOV A,BANK _curtime[3]
MOV [04H],A
MOV A,OFFSET _curtime[3]
MOV [03H],A
MOV A,b0_15
MOV [02H],A
MOV A,7
MOV RH,A
MOV A,OFFSET begdaysinm0
MOV [01H],A
MOV A,OFFSET _curtime
MOV [03H],A
MOV A,BANK _curtime
MOV [04H],A
ASB92:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB92
CALL _begdaysinm
MOV b1_15,A
MOV A,b0_15
XOR A,b1_15
SNZ [0ah].2
JMP L82
#pragma debug scope 27 25 ; 229 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 229 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[3]
MOV [04H],A
MOV A,OFFSET _curtime[3]
MOV [03H],A
CLR [02H]
#line 230 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[1]
MOV [04H],A
MOV A,OFFSET _curtime[1]
MOV [03H],A
INCA [02H]
MOV b0_15,A
MOV A,BANK _curtime[1]
MOV [04H],A
MOV A,OFFSET _curtime[1]
MOV [03H],A
MOV A,b0_15
MOV [02H],A
MOV A,b0_15
XOR A,0ch
SNZ [0ah].2
JMP L86
#pragma debug scope 28 27 ; 231 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 231 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime[1]
MOV [04H],A
MOV A,OFFSET _curtime[1]
MOV [03H],A
CLR [02H]
#line 232 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _curtime
MOV [04H],A
MOV A,OFFSET _curtime
MOV [03H],A
INC [02H]
L86:
L82:
L74:
L68:
L62:
L60:
#line 238 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 21 1 ; 238 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _wan_dispen
MOV [04H],A
MOV A,OFFSET _wan_dispen
MOV [03H],A
MOV A,[02H]
XOR A,01h
SNZ [0AH].2
JMP L90
#pragma debug scope 29 21 ; 240 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 240 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _showp
L90:
L59:
RET
LOCAL b0_15 DB ?
LOCAL b1_15 DB ?
_arrt ENDP
#line 244 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
@wan_testkb .SECTION 'CODE'
PUBLIC _wan_testkb
_wan_testkb PROC
#pragma debug scope 30 1 ; 245 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 245 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _getkey
MOV b0_16,A
SZ b0_16
JMP L131
JMP L94
L131:
#pragma debug scope 31 30 ; 247 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 247 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _keyvalue
MOV [04H],A
MOV A,OFFSET _keyvalue
MOV [03H],A
MOV A,[02H]
MOV b0_16,A
SZ b0_16
JMP L132
JMP L130
L132:
MOV A,b0_16
XOR A,01h
SZ [0ah].2
JMP L129
MOV A,b0_16
XOR A,02h
SZ [0ah].2
JMP L124
MOV A,b0_16
XOR A,03h
SZ [0ah].2
JMP L125
MOV A,b0_16
XOR A,04h
SZ [0ah].2
JMP L123
MOV A,b0_16
XOR A,05h
SZ [0ah].2
JMP L99
MOV A,b0_16
XOR A,06h
SZ [0ah].2
JMP L98
#line 247 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L97
L98:
#pragma debug scope 32 31 ; 250 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 250 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
MOV A,02h
MOV [02H],A
#line 251 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _showpn
#line 252 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L97
L99:
#line 254 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
MOV A,[02H]
XOR A,02h
SNZ [0AH].2
JMP L100
#pragma debug scope 33 32 ; 256 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 256 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _focnb
MOV [04H],A
MOV A,OFFSET _focnb
MOV [03H],A
SZ [02H]
JMP L102
#pragma debug scope 34 33 ; 258 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 258 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
CLR [02H]
#line 259 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 33 32 ; 259 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L103
L102:
#line 260 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _focnb
MOV [04H],A
MOV A,OFFSET _focnb
MOV [03H],A
MOV A,[02H]
XOR A,01h
SNZ [0AH].2
JMP L104
#pragma debug scope 35 33 ; 261 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 261 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
MOV A,01h
MOV [02H],A
#line 261 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 33 32 ; 261 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L105
L104:
#line 262 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _focnb
MOV [04H],A
MOV A,OFFSET _focnb
MOV [03H],A
MOV A,[02H]
XOR A,02h
SNZ [0AH].2
JMP L106
#pragma debug scope 36 33 ; 263 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 263 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
MOV A,02h
MOV [02H],A
L106:
L105:
L103:
L100:
#line 265 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 32 31 ; 265 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
MOV A,[02H]
XOR A,01h
SNZ [0AH].2
JMP L108
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
MOV A,[02H]
XOR A,05h
SNZ [0AH].2
JMP L108
#pragma debug scope 37 32 ; 267 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 267 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _focnb
MOV [04H],A
MOV A,OFFSET _focnb
MOV [03H],A
MOV A,[02H]
MOV b0_16,A
SZ b0_16
JMP L133
JMP L112
L133:
MOV A,b0_16
XOR A,01h
SZ [0ah].2
JMP L113
MOV A,b0_16
XOR A,02h
SZ [0ah].2
JMP L114
#line 267 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L111
L112:
#pragma debug scope 38 37 ; 269 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 269 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag2
MOV [04H],A
MOV A,OFFSET _pflag2
MOV [03H],A
CLR [02H]
#line 270 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L111
L113:
#line 272 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag2
MOV [04H],A
MOV A,OFFSET _pflag2
MOV [03H],A
MOV A,01h
MOV [02H],A
#line 273 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L111
L114:
#line 275 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag2
MOV [04H],A
MOV A,OFFSET _pflag2
MOV [03H],A
MOV A,02h
MOV [02H],A
L111:
L108:
#line 282 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 32 31 ; 282 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
SZ [02H]
JMP L115
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
MOV A,[02H]
XOR A,02h
SNZ [0AH].2
JMP L115
#pragma debug scope 39 32 ; 284 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 284 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
INC [02H]
#line 285 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _showpn
#line 286 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _savetesk
#line 287 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L97
L115:
#line 289 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 32 31 ; 289 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
MOV A,[02H]
XOR A,01h
SNZ [0AH].2
JMP L118
MOV A,BANK _pflag2
MOV [04H],A
MOV A,OFFSET _pflag2
MOV [03H],A
MOV A,[02H]
XOR A,01h
SNZ [0AH].2
JMP L118
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
MOV A,[02H]
XOR A,04h
SNZ [0AH].2
JMP L118
#pragma debug scope 40 32 ; 291 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 291 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
INC [02H]
#line 292 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _showpn
#line 293 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _savetesk
#line 294 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L97
L118:
#line 296 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 32 31 ; 296 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
MOV A,[02H]
XOR A,01h
SNZ [0AH].2
JMP L120
MOV A,BANK _pflag2
MOV [04H],A
MOV A,OFFSET _pflag2
MOV [03H],A
MOV A,[02H]
MOV b0_16,A
SZ b0_16
JMP L134
JMP L122
L134:
MOV A,b0_16
XOR A,02h
SNZ [0ah].2
JMP L120
L122:
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
MOV A,[02H]
XOR A,05h
SNZ [0AH].2
JMP L120
#pragma debug scope 41 32 ; 298 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 298 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
INC [02H]
#line 299 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _showpn
#line 300 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _savetesk
#line 301 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L97
L120:
#line 303 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 32 31 ; 303 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
INC [02H]
#line 304 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _showpn
#line 305 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L97
L123:
#line 308 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _picnb
MOV [04H],A
MOV A,OFFSET _picnb
MOV [03H],A
DEC [02H]