⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 wanjt3.lst

📁 一个用嵌入c写的万年历程序
💻 LST
📖 第 1 页 / 共 5 页
字号:

 303  0000  00          LOCAL showcur0 DB ? ; nnn

; 307:       switch(nnn)
 307  0000  0700     R  MOV A,showcur0
文件:WANJT3.c     盛群编译器版本 2.86 页次20 

 307  0001  0080     R  MOV b0_14,A
 307  0002  1080     R  SZ b0_14
 307  0003  2800     R  JMP L114
 307  0004  2800     R  JMP L81
 307  0005              L114:
 307  0005  0700     R  MOV A,b0_14
 307  0006  0C01        XOR A,01h
 307  0007  3D0A        SZ [0ah].2
 307  0008  2800     R  JMP L82
 307  0009  0700     R  MOV A,b0_14
 307  000A  0C02        XOR A,02h
 307  000B  3D0A        SZ [0ah].2
 307  000C  2800     R  JMP L85
 307  000D  0700     R  MOV A,b0_14
 307  000E  0C03        XOR A,03h
 307  000F  3D0A        SZ [0ah].2
 307  0010  2800     R  JMP L88
 307  0011  0700     R  MOV A,b0_14
 307  0012  0C04        XOR A,04h
 307  0013  3D0A        SZ [0ah].2
 307  0014  2800     R  JMP L101
 307  0015  0700     R  MOV A,b0_14
 307  0016  0C05        XOR A,05h
 307  0017  3D0A        SZ [0ah].2
 307  0018  2800     R  JMP L104
 307  0019  0700     R  MOV A,b0_14
 307  001A  0C06        XOR A,06h
 307  001B  3D0A        SZ [0ah].2
 307  001C  2800     R  JMP L109
 307  001D  2800     R  JMP L80
 307  001E              L81:

; 310:               v4=curtime.wan_yearhi/10+0x30;
 310  001E  0F0A        MOV A,0ah
 310  001F  0080     E  MOV RH,A
 310  0020  0700     R  MOV A,_curtime
 310  0021  2000     E  CALL DIVUI
 310  0022  0080     R  MOV b0_14,A
 310  0023  0700     R  MOV A,b0_14
 310  0024  0B30        ADD A,030h
 310  0025  0080     R  MOV _v4,A

; 311:               v5=curtime.wan_yearhi%10+0x30;
 311  0026  0F0A        MOV A,0ah
 311  0027  0080     E  MOV RH,A
 311  0028  0700     R  MOV A,_curtime
 311  0029  2000     E  CALL DIVUI
 311  002A  0700     E  MOV A,T3
 311  002B  0080     R  MOV b0_14,A
 311  002C  0700     R  MOV A,b0_14
 311  002D  0B30        ADD A,030h
 311  002E  0080     R  MOV _v5,A

; 312:               loc1(0x80);rep(v4,v5);break;
 312  002F  0F80        MOV A,080h
 312  0030  0080     R  MOV loc10,A
文件:WANJT3.C     盛群编译器版本 2.86 页次20

 312  0031  2000     R  CALL _loc1
 312  0032  0700     R  MOV A,_v4
文件:WANJT3.c     盛群编译器版本 2.86 页次21 

 312  0033  0080     R  MOV rep0,A
 312  0034  0700     R  MOV A,_v5
 312  0035  0080     R  MOV rep1,A
 312  0036  2000     R  CALL _rep
 312  0037  2800     R  JMP L80
 312  0038              L82:

; 314:               v4=curtime.wan_yearlo/10+0x30;
 314  0038  0F0A        MOV A,0ah
 314  0039  0080     E  MOV RH,A
 314  003A  0700     R  MOV A,_curtime[1]
 314  003B  2000     E  CALL DIVUI
 314  003C  0080     R  MOV b0_14,A
 314  003D  0700     R  MOV A,b0_14
 314  003E  0B30        ADD A,030h
 314  003F  0080     R  MOV _v4,A

; 315:               v5=curtime.wan_yearlo%10+0x30;
 315  0040  0F0A        MOV A,0ah
 315  0041  0080     E  MOV RH,A
 315  0042  0700     R  MOV A,_curtime[1]
 315  0043  2000     E  CALL DIVUI
 315  0044  0700     E  MOV A,T3
 315  0045  0080     R  MOV b0_14,A
 315  0046  0700     R  MOV A,b0_14
 315  0047  0B30        ADD A,030h
 315  0048  0080     R  MOV _v5,A

; 316:               loc1(0x81);rep(v4,v5);break;
 316  0049  0F81        MOV A,081h
 316  004A  0080     R  MOV loc10,A
 316  004B  2000     R  CALL _loc1
 316  004C  0700     R  MOV A,_v4
 316  004D  0080     R  MOV rep0,A
 316  004E  0700     R  MOV A,_v5
 316  004F  0080     R  MOV rep1,A
 316  0050  2000     R  CALL _rep
 316  0051  2800     R  JMP L80
 316  0052              L85:

; 318:               v4=curtime.wan_month/10+0x30;
 318  0052  0F0A        MOV A,0ah
 318  0053  0080     E  MOV RH,A
 318  0054  0700     R  MOV A,_curtime[2]
 318  0055  2000     E  CALL DIVUI
 318  0056  0080     R  MOV b0_14,A
 318  0057  0700     R  MOV A,b0_14
 318  0058  0B30        ADD A,030h
 318  0059  0080     R  MOV _v4,A

; 319:               v5=curtime.wan_month%10+0x30;
 319  005A  0F0A        MOV A,0ah
 319  005B  0080     E  MOV RH,A
 319  005C  0700     R  MOV A,_curtime[2]
 319  005D  2000     E  CALL DIVUI
 319  005E  0700     E  MOV A,T3
 319  005F  0080     R  MOV b0_14,A
 319  0060  0700     R  MOV A,b0_14
 319  0061  0B30        ADD A,030h
文件:WANJT3.C     盛群编译器版本 2.86 页次21
文件:WANJT3.c     盛群编译器版本 2.86 页次22 


 319  0062  0080     R  MOV _v5,A

; 320:               loc1(0x83);rep(v4,v5);break;
 320  0063  0F83        MOV A,083h
 320  0064  0080     R  MOV loc10,A
 320  0065  2000     R  CALL _loc1
 320  0066  0700     R  MOV A,_v4
 320  0067  0080     R  MOV rep0,A
 320  0068  0700     R  MOV A,_v5
 320  0069  0080     R  MOV rep1,A
 320  006A  2000     R  CALL _rep
 320  006B  2800     R  JMP L80
 320  006C              L88:

; 322:               v4=curtime.wan_day/10+0x30;
 322  006C  0F0A        MOV A,0ah
 322  006D  0080     E  MOV RH,A
 322  006E  0700     R  MOV A,_curtime[4]
 322  006F  2000     E  CALL DIVUI
 322  0070  0080     R  MOV b0_14,A
 322  0071  0700     R  MOV A,b0_14
 322  0072  0B30        ADD A,030h
 322  0073  0080     R  MOV _v4,A

; 323:               v5=curtime.wan_day%10+0x30;
 323  0074  0F0A        MOV A,0ah
 323  0075  0080     E  MOV RH,A
 323  0076  0700     R  MOV A,_curtime[4]
 323  0077  2000     E  CALL DIVUI
 323  0078  0700     E  MOV A,T3
 323  0079  0080     R  MOV b0_14,A
 323  007A  0700     R  MOV A,b0_14
 323  007B  0B30        ADD A,030h
 323  007C  0080     R  MOV _v5,A

; 324:               loc1(0x85);rep(v4,v5);
 324  007D  0F85        MOV A,085h
 324  007E  0080     R  MOV loc10,A
 324  007F  2000     R  CALL _loc1
 324  0080  0700     R  MOV A,_v4
 324  0081  0080     R  MOV rep0,A
 324  0082  0700     R  MOV A,_v5
 324  0083  0080     R  MOV rep1,A
 324  0084  2000     R  CALL _rep

; 325:               v7=curtime.wan_week;
 325  0085  0700     R  MOV A,_curtime[3]
 325  0086  0080     R  MOV _v7,A

; 326:               switch(v7)
 326  0087  0700     R  MOV A,_v7
 326  0088  0080     R  MOV b0_14,A
 326  0089  1080     R  SZ b0_14
 326  008A  2800     R  JMP L115
 326  008B  2800     R  JMP L94
 326  008C              L115:
 326  008C  0700     R  MOV A,b0_14
 326  008D  0C01        XOR A,01h
 326  008E  3D0A        SZ [0ah].2
文件:WANJT3.c     盛群编译器版本 2.86 页次23 

 326  008F  2800     R  JMP L95
 326  0090  0700     R  MOV A,b0_14
 326  0091  0C02        XOR A,02h
 326  0092  3D0A        SZ [0ah].2
文件:WANJT3.C     盛群编译器版本 2.86 页次22

 326  0093  2800     R  JMP L96
 326  0094  0700     R  MOV A,b0_14
 326  0095  0C03        XOR A,03h
 326  0096  3D0A        SZ [0ah].2
 326  0097  2800     R  JMP L97
 326  0098  0700     R  MOV A,b0_14
 326  0099  0C04        XOR A,04h
 326  009A  3D0A        SZ [0ah].2
 326  009B  2800     R  JMP L98
 326  009C  0700     R  MOV A,b0_14
 326  009D  0C05        XOR A,05h
 326  009E  3D0A        SZ [0ah].2
 326  009F  2800     R  JMP L99
 326  00A0  0700     R  MOV A,b0_14
 326  00A1  0C06        XOR A,06h
 326  00A2  3D0A        SZ [0ah].2
 326  00A3  2800     R  JMP L100
 326  00A4  2800     R  JMP L80
 326  00A5              L94:

; 327:                  {case 0:showw(0);break;
 327  00A5  0F00        MOV A,00h
 327  00A6  0080     R  MOV showw0,A
 327  00A7  2000     R  CALL _showw
 327  00A8  2800     R  JMP L80
 327  00A9              L95:

; 329:                        showw(1);break;
 329  00A9  0F01        MOV A,01h
 329  00AA  0080     R  MOV showw0,A
 329  00AB  2000     R  CALL _showw
 329  00AC  2800     R  JMP L80
 329  00AD              L96:

; 330:                   case 2:showw(2);break;
 330  00AD  0F02        MOV A,02h
 330  00AE  0080     R  MOV showw0,A
 330  00AF  2000     R  CALL _showw
 330  00B0  2800     R  JMP L80
 330  00B1              L97:

; 331:                   case 3:showw(3);break;
 331  00B1  0F03        MOV A,03h
 331  00B2  0080     R  MOV showw0,A
 331  00B3  2000     R  CALL _showw
 331  00B4  2800     R  JMP L80
 331  00B5              L98:

; 332:                   case 4:showw(4);break;
 332  00B5  0F04        MOV A,04h
 332  00B6  0080     R  MOV showw0,A
 332  00B7  2000     R  CALL _showw
 332  00B8  2800     R  JMP L80
 332  00B9              L99:
文件:WANJT3.c     盛群编译器版本 2.86 页次24 


; 333:                   case 5:showw(5);break;
 333  00B9  0F05        MOV A,05h
 333  00BA  0080     R  MOV showw0,A
 333  00BB  2000     R  CALL _showw
文件:WANJT3.C     盛群编译器版本 2.86 页次23

 333  00BC  2800     R  JMP L80
 333  00BD              L100:

; 334:                   case 6:showw(6);break;
 334  00BD  0F06        MOV A,06h
 334  00BE  0080     R  MOV showw0,A
 334  00BF  2000     R  CALL _showw

; 336:               break;
 336  00C0  2800     R  JMP L80
 336  00C1              L101:

; 338:               v4=curtime.hms.wan_hour/10+0x30;
 338  00C1  0F0A        MOV A,0ah
 338  00C2  0080     E  MOV RH,A
 338  00C3  0700     R  MOV A,_curtime[5]
 338  00C4  2000     E  CALL DIVUI
 338  00C5  0080     R  MOV b0_14,A
 338  00C6  0700     R  MOV A,b0_14
 338  00C7  0B30        ADD A,030h
 338  00C8  0080     R  MOV _v4,A

; 339:               v5=curtime.hms.wan_hour%10+0x30;
 339  00C9  0F0A        MOV A,0ah
 339  00CA  0080     E  MOV RH,A
 339  00CB  0700     R  MOV A,_curtime[5]
 339  00CC  2000     E  CALL DIVUI
 339  00CD  0700     E  MOV A,T3
 339  00CE  0080     R  MOV b0_14,A
 339  00CF  0700     R  MOV A,b0_14
 339  00D0  0B30        ADD A,030h
 339  00D1  0080     R  MOV _v5,A

; 340:               loc1(0x90);rep(v4,v5);break;
 340  00D2  0F90        MOV A,090h
 340  00D3  0080     R  MOV loc10,A
 340  00D4  2000     R  CALL _loc1
 340  00D5  0700     R  MOV A,_v4
 340  00D6  0080     R  MOV rep0,A
 340  00D7  0700     R  MOV A,_v5
 340  00D8  0080     R  MOV rep1,A
 340  00D9  2000     R  CALL _rep
 340  00DA  2800     R  JMP L80
 340  00DB              L104:

; 342:               v4=curtime.hms.wan_minite/10+0x30;
 342  00DB  0F0A        MOV A,0ah
 342  00DC  0080     E  MOV RH,A
 342  00DD  0700     R  MOV A,_curtime[6]
 342  00DE  2000     E  CALL DIVUI
 342  00DF  0080     R  MOV b0_14,A
 342  00E0  0700     R  MOV A,b0_14
 342  00E1  0B30        ADD A,030h
文件:WANJT3.c     盛群编译器版本 2.86 页次25 

 342  00E2  0080     R  MOV _v4,A

; 343:               v5=curtime.hms.wan_minite%10+0x30;
 343  00E3  0F0A        MOV A,0ah
 343  00E4  0080     E  MOV RH,A
 343  00E5  0700     R  MOV A,_curtime[6]
 343  00E6  2000     E  CALL DIVUI
 343  00E7  0700     E  MOV A,T3
 343  00E8  0080     R  MOV b0_14,A
 343  00E9  0700     R  MOV A,b0_14
文件:WANJT3.C     盛群编译器版本 2.86 页次24

 343  00EA  0B30        ADD A,030h
 343  00EB  0080     R  MOV _v5,A

; 344:               loc1(0x92);
 344  00EC  0F92        MOV A,092h
 344  00ED  0080     R  MOV loc10,A
 344  00EE  2000     R  CALL _loc1

; 345:               rep(v4,v5);
 345  00EF  0700     R  MOV A,_v4
 345  00F0  0080     R  MOV rep0,A
 345  00F1  0700     R  MOV A,_v5
 345  00F2  0080     R  MOV rep1,A
 345  00F3  2000     R  CALL _rep

; 346:               break;
 346  00F4  2800     R  JMP L80
 346  00F5              L109:

; 348:               v4=curtime.hms.wan_hfsec/2/10+0x30;
 348  00F5  340A        CLR [0AH].0
 348  00F6  1B00     R  RRCA _curtime[7]
 348  00F7  0080     R  MOV b0_14,A
 348  00F8  0F0A        MOV A,0ah
 348  00F9  0080     E  MOV RH,A
 348  00FA  0700     R  MOV A,b0_14
 348  00FB  2000     E  CALL DIVUI
 348  00FC  0080     R  MOV b0_14,A
 348  00FD  0700     R  MOV A,b0_14
 348  00FE  0B30        ADD A,030h
 348  00FF  0080     R  MOV _v4,A

; 349:               v5=curtime.hms.wan_hfsec/2%10+0x30;
 349  0100  340A        CLR [0AH].0
 349  0101  1B00     R  RRCA _curtime[7]
 349  0102  0080     R  MOV b0_14,A
 349  0103  0F0A        MOV A,0ah
 349  0104  0080     E  MOV RH,A
 349  0105  0700     R  MOV A,b0_14
 349  0106  2000     E  CALL DIVUI
 349  0107  0700     E  MOV A,T3
 349  0108  0080     R  MOV b0_14,A
 349  0109  0700     R  MOV A,b0_14
 349  010A  0B30        ADD A,030h
 349  010B  0080     R  MOV _v5,A

; 350:               loc1(0x94);rep(v4,v5);break;
 350  010C  0F94        MOV A,094h
文件:WANJT3.c     盛群编译器版本 2.86 页次26 

 350  010D  0080     R  MOV loc10,A
 350  010E  2000     R  CALL _loc1
 350  010F  0700     R  MOV A,_v4
 350  0110  0080     R  MOV rep0,A
 350  0111  0700     R  MOV A,_v5
 350  0112  0080     R  MOV rep1,A
 350  0113  2000     R  CALL _rep
 350  0114              L80:
 350  0114              L78:
 350  0114  0003        RET
 350  0001  00          LOCAL b0_14 DB ?
 350  0115              _showcur ENDP

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -