wanjt3.asm

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

#pragma debug scope 1 1
#line 19 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
rombank 0 _week
_week .SECTION INPAGE'CODE'
l_week:
MOV [06h],A
_week:
RET A,109
RET A,111
RET A,110
RET A,100
RET A,97
RET A,121
RET A,116
RET A,117
RET A,101
RET A,115
RET A,100
RET A,97
RET A,119
RET A,101
RET A,100
RET A,110
RET A,101
RET A,115
RET A,116
RET A,104
RET A,117
RET A,114
RET A,115
RET A,100
RET A,102
RET A,114
RET A,105
RET A,100
RET A,97
RET A,121
RET A,115
RET A,97
RET A,116
RET A,117
RET A,114
RET A,100
RET A,115
RET A,117
RET A,110
RET A,100
RET A,97
RET A,121
#line 89 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
__tbhp EQU [01fH]
__scc EQU [01cH]
__usr EQU [01bH]
__usc EQU [01aH]
__pdc EQU [019H]
__pd EQU [018H]
__pcc EQU [017H]
__pc EQU [016H]
__pbc EQU [015H]
__pb EQU [014H]
__pac EQU [013H]
__pa EQU [012H]
__tmr1c EQU [011H]
__tmr1l EQU [010H]
__tmr1h EQU [0fH]
__tmr0c EQU [0eH]
__tmr0 EQU [0dH]
__intc EQU [0bH]
__status EQU [0aH]
__wdts EQU [09H]
__tblh EQU [08H]
__tblp EQU [07H]
__pcl EQU [06H]
__acc EQU [05H]
__bp EQU [04H]
__mp1 EQU [03H]
__iar1 EQU [02H]
__mp0 EQU [01H]
__iar0 EQU [00H]
@delay .SECTION 'CODE'
PUBLIC _delay
_delay PROC
#pragma debug scope 2 1
#line 88 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC delay0
LOCAL delay0 DB ? ; us
#pragma debug variable 2 delay0 us
L2:
L3:
#pragma debug scope 2 1 ; 90 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 90 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
DECA delay0
MOV b0_1,A
MOV A,b0_1
MOV delay0,A
SZ b0_1
JMP L2
L1:
RET
LOCAL b0_1 DB ?
_delay ENDP
#line 93 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@delay1 .SECTION 'CODE'
PUBLIC _delay1
_delay1 PROC
#pragma debug scope 3 1
#line 92 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC delay10
LOCAL delay10 DB ? ; ms
#pragma debug variable 3 delay10 ms
#pragma debug scope 3 1 ; 94 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 94 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v1
#line 95 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v2
#line 95 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L7
L9:
#pragma debug scope 4 3 ; 98 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 98 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,064h
MOV delay0,A
CALL _delay
L10:
#line 97 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INCA _v2
MOV b0_2,A
MOV A,b0_2
MOV _v2,A
MOV A,0ah
SUB A,b0_2
SZ [0ah].0
JMP L9
L7:
#line 96 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 3 1 ; 96 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INCA _v1
MOV b0_2,A
MOV A,b0_2
MOV _v1,A
MOV A,delay10
SUB A,b0_2
SZ [0ah].0
JMP L10
L5:
RET
LOCAL b0_2 DB ?
_delay1 ENDP
#line 102 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@wr_lcd .SECTION 'CODE'
PUBLIC _wr_lcd
_wr_lcd PROC
#pragma debug scope 5 1
#line 101 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC wr_lcd0
LOCAL wr_lcd0 DB ? ; dat_comm
#pragma debug variable 5 wr_lcd0 dat_comm
#line 101 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC wr_lcd1
LOCAL wr_lcd1 DB ? ; content
#pragma debug variable 5 wr_lcd1 content
#pragma debug scope 5 1 ; 105 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 105 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,wr_lcd1
MOV _v1,A
#line 106 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].2
#line 107 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].0
#line 108 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].3
#line 109 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v2
#line 109 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L16
L13:
#pragma debug scope 6 5 ; 111 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 111 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].0
#line 112 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].0
L14:
#line 109 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 5 1 ; 109 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v2
L16:
#line 109 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v2
SUB A,05h
SNZ [0ah].0
JMP L13
#line 114 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].3
#line 115 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].0
#line 116 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].0
#line 117 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SZ wr_lcd0
JMP L31
JMP L17
L31:
#line 118 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].3
#line 118 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L18
L17:
#line 120 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].3
L18:
#line 121 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].0
#line 122 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].0
#line 123 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].3
#line 124 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].0
#line 125 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].0
#line 126 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v3
#line 126 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L22
L19:
#pragma debug scope 7 5 ; 128 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 128 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v2
#line 128 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L26
L23:
#pragma debug scope 8 7 ; 130 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 130 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [0AH].0
RLC _v1
#line 131 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,[016H]
CLR [05H].3
SZ [0AH].0
SET [05H].3
MOV [016H],A
#line 132 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].0
#line 133 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].0
L24:
#line 128 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 7 5 ; 128 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v2
L26:
#line 128 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v2
SUB A,04h
SNZ [0ah].0
JMP L23
#line 135 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].3
#line 136 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v2
#line 136 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L30
L27:
#pragma debug scope 9 7 ; 138 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 138 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].0
#line 139 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR [016H].0
L28:
#line 136 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 7 5 ; 136 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v2
L30:
#line 136 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v2
SUB A,04h
SNZ [0ah].0
JMP L27
L20:
#line 126 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 5 1 ; 126 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v3
L22:
#line 126 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v3
SUB A,02h
SNZ [0ah].0
JMP L19
L12:
RET
_wr_lcd ENDP
#line 145 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@img_disp .SECTION 'CODE'
PUBLIC _img_disp
_img_disp PROC
#pragma debug scope 10 1
#line 144 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC img_disp0
LOCAL img_disp0 DB 2 DUP (?) ; img
#pragma debug variable 10 img_disp0 img
#pragma debug scope 10 1 ; 147 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 147 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v2
#line 147 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L36
L33:
#pragma debug scope 11 10 ; 149 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 149 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v1
#line 149 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L40
L37:
#pragma debug scope 12 11 ; 151 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 151 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,034h
MOV wr_lcd1,A
CALL _wr_lcd
#line 152 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,_v2
ADD A,080h
MOV b0_4,A
MOV A,b0_4
MOV wr_lcd1,A
CALL _wr_lcd
#line 153 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,_v1
ADD A,080h
MOV b0_4,A
MOV A,b0_4
MOV wr_lcd1,A
CALL _wr_lcd
#line 154 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 155 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,_v2
MOV T2,A
MOV A,014h
CALL MULI
MOV b0_4,A
CLR [0AH].0
RLCA _v1
MOV b1_4,A
MOV A,b0_4
ADD A,b1_4
MOV b0_4,A
MOV A,b0_4
ADD A,img_disp0
MOV b0_4,A
MOV A,img_disp0[1]
MOV b0_4[1],A
MOV A,b0_4[1]
MOV [04H],A
MOV A,b0_4
MOV [03H],A
MOV A,[02H]
MOV b0_4,A
MOV A,b0_4
MOV wr_lcd1,A
CALL _wr_lcd
#line 156 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,_v2
MOV T2,A
MOV A,014h
CALL MULI
MOV b0_4,A
CLR [0AH].0
RLCA _v1
MOV b1_4,A
MOV A,b0_4
ADD A,b1_4
MOV b0_4,A
INC b0_4
MOV A,b0_4
ADD A,img_disp0
MOV b0_4,A
MOV A,img_disp0[1]
MOV b0_4[1],A
MOV A,b0_4[1]
MOV [04H],A
MOV A,b0_4
MOV [03H],A
MOV A,[02H]
MOV b0_4,A
MOV A,b0_4
MOV wr_lcd1,A
CALL _wr_lcd
L38:
#line 149 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 11 10 ; 149 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v1
L40:
#line 149 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v1
SUB A,0ah
SNZ [0ah].0
JMP L37
L34:
#line 147 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 10 1 ; 147 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v2
L36:
#line 147 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v2
SUB A,010h
SNZ [0ah].0
JMP L33
#line 159 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,036h
MOV wr_lcd1,A
CALL _wr_lcd
L32:
RET
LOCAL b0_4 DB 2 DUP(?)
LOCAL b1_4 DB ?
_img_disp ENDP
#line 163 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@init_lcd .SECTION 'CODE'
PUBLIC _init_lcd
_init_lcd PROC
#pragma debug scope 13 1 ; 164 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 164 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
SET [016H].4
#line 166 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 167 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,01h
MOV wr_lcd1,A
CALL _wr_lcd
#line 168 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,050h
MOV delay0,A
CALL _delay
#line 169 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,06h
MOV wr_lcd1,A
CALL _wr_lcd
#line 170 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,0ch
MOV wr_lcd1,A
CALL _wr_lcd
L41:
RET
_init_lcd ENDP
#line 194 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@chn_disp .SECTION 'CODE'
PUBLIC _chn_disp
_chn_disp PROC
#pragma debug scope 14 1
#line 193 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC chn_disp0
LOCAL chn_disp0 DB 2 DUP (?) ; chn
#pragma debug variable 14 chn_disp0 chn
#pragma debug scope 14 1 ; 196 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 196 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 197 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,080h
MOV wr_lcd1,A
CALL _wr_lcd
#line 198 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v5
#line 199 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v4
#line 199 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L46
L43:
#line 200 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,_v5
MOV T2,A
MOV A,014h
CALL MULI
MOV b0_6,A
MOV A,_v4
ADDM A,b0_6
MOV A,b0_6
ADD A,chn_disp0
MOV b0_6,A
MOV A,chn_disp0[1]
MOV b0_6[1],A
MOV A,b0_6[1]
MOV [04H],A
MOV A,b0_6
MOV [03H],A
MOV A,[02H]
MOV b0_6,A
MOV A,b0_6
MOV wr_lcd1,A
CALL _wr_lcd
L44:
#line 199 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v4
L46:
#line 199 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v4
SUB A,014h
SNZ [0ah].0
JMP L43
#line 201 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,090h
MOV wr_lcd1,A
CALL _wr_lcd
#line 202 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV _v5,A
#line 203 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v4
#line 203 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L50
L47:
#pragma debug scope 15 14 ; 204 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 204 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v5
MOV T2,A
MOV A,014h
CALL MULI
MOV b0_6,A
MOV A,b0_6
ADD A,_v4
MOV _v6,A
#line 205 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,_v6
ADD A,chn_disp0
MOV b0_6,A
MOV A,chn_disp0[1]
MOV b0_6[1],A
MOV A,b0_6[1]
MOV [04H],A
MOV A,b0_6
MOV [03H],A
MOV A,[02H]
MOV b0_6,A
MOV A,b0_6
MOV wr_lcd1,A
CALL _wr_lcd
L48:
#line 203 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 14 1 ; 203 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v4
L50:
#line 203 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"