wanjtest.asm

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

CALL _hmsequal
MOV b0_21,A
SZ b0_21
JMP L385
JMP L255
L385:
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 L255
#pragma debug scope 75 73 ; 474 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 474 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].2
#line 475 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 73 64 ; 475 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L256
L255:
#line 476 "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
ASB386:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB386
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
ASB387:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB387
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L388
JMP L259
L388:
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 L259
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 L265
MOV A,01h
MOV CR57,A
JMP L266
L265:
CLR CR57
L266:
MOV A,80h
XOR A,CR57
SUB A,087h
SZ [0ah].0
JMP L259
#pragma debug scope 76 73 ; 476 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 476 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].2
L259:
L256:
L253:
L249:
#line 478 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 64 63 ; 478 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,01h
MOV b0_21,A
MOV A,BANK _wan_ints[27]
MOV [04H],A
MOV A,OFFSET _wan_ints[27]
MOV [03H],A
MOV A,01h
MOV [02H],A
SZ b0_21
JMP L389
JMP L267
L389:
#pragma debug scope 77 64 ; 479 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 479 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,03h
MOV CR36,A
#line 480 "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
ASB390:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB390
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
ASB391:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB391
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L392
JMP L270
L392:
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 L270
#pragma debug scope 78 77 ; 482 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 482 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].3
#line 483 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 77 64 ; 483 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L271
L270:
#line 484 "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
ASB393:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB393
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
ASB394:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB394
CALL _hmsequal
MOV b0_21,A
SZ b0_21
JMP L395
JMP L273
L395:
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 L273
#pragma debug scope 79 77 ; 486 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 486 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].3
#line 487 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 77 64 ; 487 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L274
L273:
#line 488 "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
ASB396:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB396
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
ASB397:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB397
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L398
JMP L277
L398:
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 L277
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 L283
MOV A,01h
MOV CR64,A
JMP L284
L283:
CLR CR64
L284:
MOV A,80h
XOR A,CR64
SUB A,087h
SZ [0ah].0
JMP L277
#pragma debug scope 80 77 ; 488 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 488 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].3
L277:
L274:
L271:
L267:
#line 490 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 64 63 ; 490 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,01h
MOV b0_21,A
MOV A,BANK _wan_ints[36]
MOV [04H],A
MOV A,OFFSET _wan_ints[36]
MOV [03H],A
MOV A,01h
MOV [02H],A
SZ b0_21
JMP L399
JMP L285
L399:
#pragma debug scope 81 64 ; 491 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 491 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,04h
MOV CR36,A
#line 492 "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
ASB400:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB400
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
ASB401:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB401
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L402
JMP L288
L402:
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 L288
#pragma debug scope 82 81 ; 494 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 494 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].4
#line 495 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 81 64 ; 495 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L289
L288:
#line 496 "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
ASB403:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB403
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
ASB404:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB404
CALL _hmsequal
MOV b0_21,A
SZ b0_21
JMP L405
JMP L291
L405:
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 L291
#pragma debug scope 83 81 ; 498 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 498 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].4
#line 499 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 81 64 ; 499 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
JMP L292
L291:
#line 500 "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
ASB406:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB406
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
ASB407:
MOV A,[02H]
MOV [00H],A
INC [01H]
INC [03H]
SDZ RH
JMP ASB407
CALL _ftiequal
MOV b0_21,A
SZ b0_21
JMP L408
JMP L295
L408:
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 L295
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 L301
MOV A,01h
MOV CR71,A
JMP L302
L301:
CLR CR71
L302:
MOV A,80h
XOR A,CR71
SUB A,087h
SZ [0ah].0
JMP L295
#pragma debug scope 84 81 ; 500 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 500 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
CLR [014H].4
L295:
L292:
L289:
L285:
#line 502 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#pragma debug scope 64 63 ; 502 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,01h
MOV b0_21,A
MOV A,BANK _wan_ints[45]
MOV [04H],A
MOV A,OFFSET _wan_ints[45]
MOV [03H],A
MOV A,01h
MOV [02H],A
SZ b0_21
JMP L409
JMP L303
L409:
#pragma debug scope 85 64 ; 503 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
#line 503 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJTEST.C"
MOV A,05h
MOV CR36,A
#line