wanjtest.asm

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

MOV A,OFFSET _picnb
MOV [03H],A
CLR [02H]
#line 433 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _focnb
MOV [04H],A
MOV A,OFFSET _focnb
MOV [03H],A
CLR [02H]
#line 434 "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 435 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag1
MOV [04H],A
MOV A,OFFSET _pflag1
MOV [03H],A
CLR [02H]
#line 436 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,BANK _pflag2
MOV [04H],A
MOV A,OFFSET _pflag2
MOV [03H],A
CLR [02H]
#line 437 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _init
#line 438 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CALL _arrt
#line 438 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L212
L211:
#pragma debug scope 64 63 ; 442 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 442 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,01h
MOV b0_21,A
MOV A,BANK _wan_ints
MOV [04H],A
MOV A,OFFSET _wan_ints
MOV [03H],A
MOV A,01h
MOV [02H],A
SZ b0_21
JMP L359
JMP L214
L359:
#pragma debug scope 65 64 ; 443 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 443 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR CR36
#line 444 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal0
MOV [01H],A
MOV A,OFFSET _curtime
MOV [03H],A
MOV A,BANK _curtime
MOV [04H],A
ASB360:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB360
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal1
MOV [01H],A
MOV A,OFFSET CR37
MOV [03H],A
MOV A,BANK CR37
MOV [04H],A
ASB361:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB361
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L362
JMP L216
L362:
MOV A,CR36
MOV T2,A
MOV A,09h
CALL MULI
MOV b0_21,A
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b0_21,A
MOV A,BANK _wan_ints[1]
MOV b0_21[1],A
MOV A,b0_21[1]
MOV [04H],A
MOV A,b0_21
MOV [03H],A
MOV A,[02H]
MOV b0_21,A
MOV A,b0_21
XOR A,08h
SNZ [0ah].2
JMP L216
#pragma debug scope 66 65 ; 446 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 446 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].0
#line 447 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 65 64 ; 447 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L217
L216:
#line 448 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,3
MOV RH,A
MOV A,OFFSET hmsequal0
MOV [01H],A
MOV A,OFFSET _curtime[4]
MOV [03H],A
MOV A,BANK _curtime[4]
MOV [04H],A
ASB363:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB363
MOV A,3
MOV RH,A
MOV A,OFFSET hmsequal1
MOV [01H],A
MOV A,OFFSET CR38
MOV [03H],A
MOV A,BANK CR38
MOV [04H],A
ASB364:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB364
CALL _hmsequal
MOV b0_21,A
SZ b0_21
JMP L365
JMP L219
L365:
MOV A,CR36
MOV T2,A
MOV A,09h
CALL MULI
MOV b0_21,A
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b0_21,A
MOV A,BANK _wan_ints[1]
MOV b0_21[1],A
MOV A,b0_21[1]
MOV [04H],A
MOV A,b0_21
MOV [03H],A
MOV A,[02H]
MOV b0_21,A
SZ b0_21
JMP L219
#pragma debug scope 67 65 ; 450 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 450 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].0
#line 451 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 65 64 ; 451 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L220
L219:
#line 452 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal0
MOV [01H],A
MOV A,OFFSET _curtime
MOV [03H],A
MOV A,BANK _curtime
MOV [04H],A
ASB366:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB366
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal1
MOV [01H],A
MOV A,OFFSET CR37
MOV [03H],A
MOV A,BANK CR37
MOV [04H],A
ASB367:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB367
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L368
JMP L223
L368:
MOV A,CR36
MOV T2,A
MOV A,09h
CALL MULI
MOV b0_21,A
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b1_21,A
MOV A,BANK _wan_ints[1]
MOV b1_21[1],A
MOV A,b1_21[1]
MOV [04H],A
MOV A,b1_21
MOV [03H],A
MOV A,[02H]
MOV b1_21,A
MOV A,BANK _curtime[2]
MOV [04H],A
MOV A,OFFSET _curtime[2]
MOV [03H],A
MOV A,[02H]
MOV b2_21,A
MOV A,b1_21
XOR A,b2_21
SNZ [0ah].2
JMP L223
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b0_21,A
MOV A,BANK _wan_ints[1]
MOV b0_21[1],A
MOV A,b0_21[1]
MOV [04H],A
MOV A,b0_21
MOV [03H],A
MOV A,[02H]
MOV b0_21,A
MOV A,01h
SUB A,b0_21
SZ [0ah].0
JMP L229
MOV A,01h
MOV CR43,A
JMP L230
L229:
CLR CR43
L230:
MOV A,80h
XOR A,CR43
SUB A,087h
SZ [0ah].0
JMP L223
#pragma debug scope 68 65 ; 452 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 452 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].0
L223:
L220:
L217:
L214:
#line 454 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 64 63 ; 454 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,01h
MOV b0_21,A
MOV A,BANK _wan_ints[9]
MOV [04H],A
MOV A,OFFSET _wan_ints[9]
MOV [03H],A
MOV A,01h
MOV [02H],A
SZ b0_21
JMP L369
JMP L231
L369:
#pragma debug scope 69 64 ; 455 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 455 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,01h
MOV CR36,A
#line 456 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal0
MOV [01H],A
MOV A,OFFSET _curtime
MOV [03H],A
MOV A,BANK _curtime
MOV [04H],A
ASB370:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB370
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal1
MOV [01H],A
MOV A,OFFSET CR37
MOV [03H],A
MOV A,BANK CR37
MOV [04H],A
ASB371:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB371
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L372
JMP L234
L372:
MOV A,CR36
MOV T2,A
MOV A,09h
CALL MULI
MOV b0_21,A
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b0_21,A
MOV A,BANK _wan_ints[1]
MOV b0_21[1],A
MOV A,b0_21[1]
MOV [04H],A
MOV A,b0_21
MOV [03H],A
MOV A,[02H]
MOV b0_21,A
MOV A,b0_21
XOR A,08h
SNZ [0ah].2
JMP L234
#pragma debug scope 70 69 ; 458 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 458 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].1
#line 459 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 69 64 ; 459 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L235
L234:
#line 460 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,3
MOV RH,A
MOV A,OFFSET hmsequal0
MOV [01H],A
MOV A,OFFSET _curtime[4]
MOV [03H],A
MOV A,BANK _curtime[4]
MOV [04H],A
ASB373:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB373
MOV A,3
MOV RH,A
MOV A,OFFSET hmsequal1
MOV [01H],A
MOV A,OFFSET CR38
MOV [03H],A
MOV A,BANK CR38
MOV [04H],A
ASB374:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB374
CALL _hmsequal
MOV b0_21,A
SZ b0_21
JMP L375
JMP L237
L375:
MOV A,CR36
MOV T2,A
MOV A,09h
CALL MULI
MOV b0_21,A
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b0_21,A
MOV A,BANK _wan_ints[1]
MOV b0_21[1],A
MOV A,b0_21[1]
MOV [04H],A
MOV A,b0_21
MOV [03H],A
MOV A,[02H]
MOV b0_21,A
SZ b0_21
JMP L237
#pragma debug scope 71 69 ; 462 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 462 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].1
#line 463 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 69 64 ; 463 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L238
L237:
#line 464 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal0
MOV [01H],A
MOV A,OFFSET _curtime
MOV [03H],A
MOV A,BANK _curtime
MOV [04H],A
ASB376:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB376
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal1
MOV [01H],A
MOV A,OFFSET CR37
MOV [03H],A
MOV A,BANK CR37
MOV [04H],A
ASB377:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB377
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L378
JMP L241
L378:
MOV A,CR36
MOV T2,A
MOV A,09h
CALL MULI
MOV b0_21,A
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b1_21,A
MOV A,BANK _wan_ints[1]
MOV b1_21[1],A
MOV A,b1_21[1]
MOV [04H],A
MOV A,b1_21
MOV [03H],A
MOV A,[02H]
MOV b1_21,A
MOV A,BANK _curtime[2]
MOV [04H],A
MOV A,OFFSET _curtime[2]
MOV [03H],A
MOV A,[02H]
MOV b2_21,A
MOV A,b1_21
XOR A,b2_21
SNZ [0ah].2
JMP L241
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b0_21,A
MOV A,BANK _wan_ints[1]
MOV b0_21[1],A
MOV A,b0_21[1]
MOV [04H],A
MOV A,b0_21
MOV [03H],A
MOV A,[02H]
MOV b0_21,A
MOV A,01h
SUB A,b0_21
SZ [0ah].0
JMP L247
MOV A,01h
MOV CR50,A
JMP L248
L247:
CLR CR50
L248:
MOV A,80h
XOR A,CR50
SUB A,087h
SZ [0ah].0
JMP L241
#pragma debug scope 72 69 ; 464 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 464 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].1
L241:
L238:
L235:
L231:
#line 466 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 64 63 ; 466 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,01h
MOV b0_21,A
MOV A,BANK _wan_ints[18]
MOV [04H],A
MOV A,OFFSET _wan_ints[18]
MOV [03H],A
MOV A,01h
MOV [02H],A
SZ b0_21
JMP L379
JMP L249
L379:
#pragma debug scope 73 64 ; 467 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 467 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,02h
MOV CR36,A
#line 468 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal0
MOV [01H],A
MOV A,OFFSET _curtime
MOV [03H],A
MOV A,BANK _curtime
MOV [04H],A
ASB380:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB380
MOV A,7
MOV RH,A
MOV A,OFFSET ftiequal1
MOV [01H],A
MOV A,OFFSET CR37
MOV [03H],A
MOV A,BANK CR37
MOV [04H],A
ASB381:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB381
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L382
JMP L252
L382:
MOV A,CR36
MOV T2,A
MOV A,09h
CALL MULI
MOV b0_21,A
MOV A,b0_21
ADD A,OFFSET _wan_ints[1]
MOV b0_21,A
MOV A,BANK _wan_ints[1]
MOV b0_21[1],A
MOV A,b0_21[1]
MOV [04H],A
MOV A,b0_21
MOV [03H],A
MOV A,[02H]
MOV b0_21,A
MOV A,b0_21
XOR A,08h
SNZ [0ah].2
JMP L252
#pragma debug scope 74 73 ; 470 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 470 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].2
#line 471 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 73 64 ; 471 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L253
L252:
#line 472 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,3
MOV RH,A
MOV A,OFFSET hmsequal0
MOV [01H],A
MOV A,OFFSET _curtime[4]
MOV [03H],A
MOV A,BANK _curtime[4]
MOV [04H],A
ASB383:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB383
MOV A,3
MOV RH,A
MOV A,OFFSET hmsequal1
MOV [01H],A
MOV A,OFFSET CR38
MOV [03H],A
MOV A,BANK CR38
MOV [04H],A
ASB384:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB384