wanjt3.asm

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

MOV A,_v4
SUB A,014h
SNZ [0ah].0
JMP L47
L42:
RET
LOCAL b0_6 DB 2 DUP(?)
_chn_disp ENDP
#line 210 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@clrram .SECTION 'CODE'
PUBLIC _clrram
_clrram PROC
#pragma debug scope 16 1 ; 211 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 211 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 212 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,01h
MOV wr_lcd1,A
CALL _wr_lcd
L51:
RET
_clrram ENDP
#line 219 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@con_disp1 .SECTION 'CODE'
PUBLIC _con_disp1
_con_disp1 PROC
#pragma debug scope 17 1
#line 218 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp10
LOCAL con_disp10 DB ? ; data1
#pragma debug variable 17 con_disp10 data1
#line 218 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp11
LOCAL con_disp11 DB ? ; data2
#pragma debug variable 17 con_disp11 data2
#line 218 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp12
LOCAL con_disp12 DB ? ; x0
#pragma debug variable 17 con_disp12 x0
#line 218 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp13
LOCAL con_disp13 DB ? ; y0
#pragma debug variable 17 con_disp13 y0
#line 218 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp14
LOCAL con_disp14 DB ? ; xl
#pragma debug variable 17 con_disp14 xl
#line 218 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp15
LOCAL con_disp15 DB ? ; yl
#pragma debug variable 17 con_disp15 yl
#pragma debug scope 17 1 ; 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v2
#line 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L56
L53:
#pragma debug scope 18 17 ; 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v1
#line 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L60
L57:
#pragma debug scope 19 18 ; 225 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 225 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,034h
MOV wr_lcd1,A
CALL _wr_lcd
#line 226 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,con_disp13
ADD A,_v2
MOV b0_8,A
MOV A,b0_8
MOV wr_lcd1,A
CALL _wr_lcd
#line 227 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,con_disp12
ADD A,_v1
MOV b0_8,A
MOV A,b0_8
MOV wr_lcd1,A
CALL _wr_lcd
#line 228 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 229 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,0dh
MOV wr_lcd1,A
CALL _wr_lcd
#line 230 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,con_disp10
MOV wr_lcd1,A
CALL _wr_lcd
#line 231 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,con_disp11
MOV wr_lcd1,A
CALL _wr_lcd
L58:
#line 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 18 17 ; 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v1
L60:
#line 223 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v1
SUB A,con_disp14
SNZ [0ah].0
JMP L57
L54:
#line 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 17 1 ; 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v2
L56:
#line 221 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v2
SUB A,con_disp15
SNZ [0ah].0
JMP L53
L52:
RET
LOCAL b0_8 DB ?
_con_disp1 ENDP
#line 237 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@con_disp2 .SECTION 'CODE'
PUBLIC _con_disp2
_con_disp2 PROC
#pragma debug scope 20 1
#line 236 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp20
LOCAL con_disp20 DB 2 DUP (?) ; data1
#pragma debug variable 20 con_disp20 data1
#line 236 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp21
LOCAL con_disp21 DB 2 DUP (?) ; data2
#pragma debug variable 20 con_disp21 data2
#line 236 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp22
LOCAL con_disp22 DB ? ; x0
#pragma debug variable 20 con_disp22 x0
#line 236 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp23
LOCAL con_disp23 DB ? ; y0
#pragma debug variable 20 con_disp23 y0
#line 236 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp24
LOCAL con_disp24 DB ? ; xl
#pragma debug variable 20 con_disp24 xl
#line 236 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC con_disp25
LOCAL con_disp25 DB ? ; yl
#pragma debug variable 20 con_disp25 yl
#pragma debug scope 20 1 ; 239 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 239 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v2
#line 239 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L65
L62:
#pragma debug scope 21 20 ; 241 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 241 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v1
#line 241 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L69
L66:
#pragma debug scope 22 21 ; 243 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 243 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,034h
MOV wr_lcd1,A
CALL _wr_lcd
#line 244 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,con_disp23
ADD A,_v2
MOV b0_9,A
MOV A,b0_9
MOV wr_lcd1,A
CALL _wr_lcd
#line 245 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,con_disp22
ADD A,_v1
MOV b0_9,A
MOV A,b0_9
MOV wr_lcd1,A
CALL _wr_lcd
#line 246 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 247 "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_9,A
CLR [0AH].0
RLCA _v1
MOV b1_9,A
MOV A,b0_9
ADD A,b1_9
MOV b0_9,A
MOV A,b0_9
ADD A,con_disp20
MOV b0_9,A
MOV A,con_disp20[1]
MOV b0_9[1],A
MOV A,b0_9[1]
MOV [04H],A
MOV A,b0_9
MOV [03H],A
MOV A,[02H]
MOV b0_9,A
MOV A,b0_9
MOV wr_lcd1,A
CALL _wr_lcd
#line 248 "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_9,A
CLR [0AH].0
RLCA _v1
MOV b1_9,A
MOV A,b0_9
ADD A,b1_9
MOV b0_9,A
INC b0_9
MOV A,b0_9
ADD A,con_disp21
MOV b0_9,A
MOV A,con_disp21[1]
MOV b0_9[1],A
MOV A,b0_9[1]
MOV [04H],A
MOV A,b0_9
MOV [03H],A
MOV A,[02H]
MOV b0_9,A
MOV A,b0_9
MOV wr_lcd1,A
CALL _wr_lcd
L67:
#line 241 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 21 20 ; 241 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v1
L69:
#line 241 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v1
SUB A,con_disp24
SNZ [0ah].0
JMP L66
L63:
#line 239 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#pragma debug scope 20 1 ; 239 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v2
L65:
#line 239 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v2
SUB A,con_disp25
SNZ [0ah].0
JMP L62
#line 251 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,036h
MOV wr_lcd1,A
CALL _wr_lcd
L61:
RET
LOCAL b0_9 DB 2 DUP(?)
LOCAL b1_9 DB ?
_con_disp2 ENDP
#line 273 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@loc1 .SECTION 'CODE'
PUBLIC _loc1
_loc1 PROC
#pragma debug scope 23 1
#line 272 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC loc10
LOCAL loc10 DB ? ; mmm
#pragma debug variable 23 loc10 mmm
#pragma debug scope 23 1 ; 273 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 273 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,034h
MOV wr_lcd1,A
CALL _wr_lcd
#line 275 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 276 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,0ch
MOV wr_lcd1,A
CALL _wr_lcd
#line 277 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,loc10
MOV wr_lcd1,A
CALL _wr_lcd
L70:
RET
_loc1 ENDP
#line 280 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@loc .SECTION 'CODE'
PUBLIC _loc
_loc PROC
#pragma debug scope 24 1
#line 279 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC loc0
LOCAL loc0 DB ? ; mmm
#pragma debug variable 24 loc0 mmm
#pragma debug scope 24 1 ; 280 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 280 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,034h
MOV wr_lcd1,A
CALL _wr_lcd
#line 282 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 283 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,0dh
MOV wr_lcd1,A
CALL _wr_lcd
#line 284 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,loc0
MOV wr_lcd1,A
CALL _wr_lcd
L71:
RET
_loc ENDP
#line 287 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@rep .SECTION 'CODE'
PUBLIC _rep
_rep PROC
#pragma debug scope 25 1
#line 286 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC rep0
LOCAL rep0 DB ? ; data1
#pragma debug variable 25 rep0 data1
#line 286 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC rep1
LOCAL rep1 DB ? ; data2
#pragma debug variable 25 rep1 data2
#pragma debug scope 25 1 ; 288 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 288 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,06h
MOV wr_lcd1,A
CALL _wr_lcd
#line 289 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,rep0
MOV wr_lcd1,A
CALL _wr_lcd
#line 290 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,rep1
MOV wr_lcd1,A
CALL _wr_lcd
L72:
RET
_rep ENDP
#line 294 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@showw .SECTION 'CODE'
PUBLIC _showw
_showw PROC
#pragma debug scope 26 1
#line 293 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC showw0
LOCAL showw0 DB ? ; nnn
#pragma debug variable 26 showw0 nnn
#pragma debug scope 26 1 ; 295 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 295 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,034h
MOV wr_lcd1,A
CALL _wr_lcd
#line 296 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,030h
MOV wr_lcd1,A
CALL _wr_lcd
#line 297 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,00h
MOV wr_lcd0,A
MOV A,087h
MOV wr_lcd1,A
CALL _wr_lcd
#line 298 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
CLR _v4
#line 299 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L77
L74:
#line 300 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,01h
MOV wr_lcd0,A
MOV A,showw0
MOV T2,A
MOV A,06h
CALL MULI
MOV b0_13,A
MOV A,_v4
ADDM A,b0_13
MOV A,1
ADD A,b0_13
ADD A,OFFSET l_week
CALL l_week
MOV b0_13,A
MOV A,b0_13
MOV wr_lcd1,A
CALL _wr_lcd
L75:
#line 299 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
INC _v4
L77:
#line 299 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v4
SUB A,06h
SNZ [0ah].0
JMP L74
L73:
RET
LOCAL b0_13 DB 2 DUP(?)
LOCAL b1_13 DB 2 DUP(?)
_showw ENDP
#line 304 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
@showcur .SECTION 'CODE'
PUBLIC _showcur
_showcur PROC
#pragma debug scope 27 1
#line 303 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
PUBLIC showcur0
LOCAL showcur0 DB ? ; nnn
#pragma debug variable 27 showcur0 nnn
#pragma debug scope 27 1 ; 307 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 307 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,showcur0
MOV b0_14,A
SZ b0_14
JMP L114
JMP L81
L114:
MOV A,b0_14
XOR A,01h
SZ [0ah].2
JMP L82
MOV A,b0_14
XOR A,02h
SZ [0ah].2
JMP L85
MOV A,b0_14
XOR A,03h
SZ [0ah].2
JMP L88
MOV A,b0_14
XOR A,04h
SZ [0ah].2
JMP L101
MOV A,b0_14
XOR A,05h
SZ [0ah].2
JMP L104
MOV A,b0_14
XOR A,06h
SZ [0ah].2
JMP L109
#line 307 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L80
L81:
#pragma debug scope 28 27 ; 310 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
#line 310 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,0ah
MOV RH,A
MOV A,_curtime
CALL DIVUI
MOV b0_14,A
MOV A,b0_14
ADD A,030h
MOV _v4,A
#line 311 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,0ah
MOV RH,A
MOV A,_curtime
CALL DIVUI
MOV A,T3
MOV b0_14,A
MOV A,b0_14
ADD A,030h
MOV _v5,A
#line 312 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,080h
MOV loc10,A
CALL _loc1
#line 312 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,_v4
MOV rep0,A
MOV A,_v5
MOV rep1,A
CALL _rep
#line 312 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
JMP L80
L82:
#line 314 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,0ah
MOV RH,A
MOV A,_curtime[1]
CALL DIVUI
MOV b0_14,A
MOV A,b0_14
ADD A,030h
MOV _v4,A
#line 315 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,0ah
MOV RH,A
MOV A,_curtime[1]
CALL DIVUI
MOV A,T3
MOV b0_14,A
MOV A,b0_14
ADD A,030h
MOV _v5,A
#line 316 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"
MOV A,081h
MOV loc10,A
CALL _loc1
#line 316 "D:\APPLICATIONSOFT\HOLTEK\WANGNL\WANJT3.C"