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

📄 wanjt2.lst

📁 一个用嵌入c写的万年历程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
 178  002A  0080     R  MOV b0_6,A
 178  002B  0700     R  MOV A,b0_6
 178  002C  0080     E  MOV T2,A
 178  002D  0F14        MOV A,014h
 178  002E  2000     E  CALL MULI
 178  002F  0080     R  MOV b0_6,A
 178  0030  0F00     R  MOV A,BANK _v5
 178  0031  0084        MOV [04H],A
 178  0032  0F00     R  MOV A,OFFSET _v5
 178  0033  0083        MOV [03H],A
文件:WANJT2.C     盛群编译器版本 2.86 页次13

 178  0034  0702        MOV A,[02H]
 178  0035  0080     R  MOV b1_6,A
 178  0036  0700     R  MOV A,b0_6
 178  0037  0300     R  ADD A,b1_6
 178  0038  0080     R  MOV b0_6,A
 178  0039  0700     R  MOV A,b0_6
 178  003A  0B00     R  ADD A,OFFSET CR5
 178  003B  0080     R  MOV b0_6,A
 178  003C  1F00     R  CLR b0_6[1]
 178  003D  0700     R  MOV A,b0_6[1]
 178  003E  0084        MOV [04H],A
 178  003F  0700     R  MOV A,b0_6
 178  0040  0083        MOV [03H],A
文件:WANJT2.c     盛群编译器版本 2.86 页次14 

 178  0041  0702        MOV A,[02H]
 178  0042  0080     R  MOV b0_6,A
 178  0043  0700     R  MOV A,b0_6
 178  0044  0080     R  MOV wr_lcd1,A
 178  0045  2000     R  CALL _wr_lcd
 178  0046              L45:

; 177:   for (v5=0;v5<20;v5++) 
 177  0046  0F00     R  MOV A,BANK _v5
 177  0047  0084        MOV [04H],A
 177  0048  0F00     R  MOV A,OFFSET _v5
 177  0049  0083        MOV [03H],A
 177  004A  1482        INC [02H]
 177  004B              L47:
 177  004B  0F00     R  MOV A,BANK _v5
 177  004C  0084        MOV [04H],A
 177  004D  0F00     R  MOV A,OFFSET _v5
 177  004E  0083        MOV [03H],A
 177  004F  0702        MOV A,[02H]
 177  0050  0A14        SUB A,014h
 177  0051  380A        SNZ [0AH].0
 177  0052  2800     R  JMP L44
 177  0053              L42:
 177  0053  0003        RET
 177  0000  0002[       LOCAL b0_6 DB 2 DUP(?)
            00
            ]
 177  0002  00          LOCAL b1_6 DB ?

; 172:   uchar msg[40] ="2006. 05. 02  monday16: 41: 23          ";
 172  0003  0028[       LOCAL CR5 DB 40 DUP (?) ; msg
            00
            ]
 172  0054              _chn_disp1 ENDP

; 182: { uchar msg[40] ="2006. 05. 02  monday16: 41: 23          ";
 182  0054              rombank 0 L50
 182  0000              L50 .SECTION INPAGE'CODE'
 182  0000              l_50:
 182  0000  0086        MOV [06h],A
 182  0001              _50:
 182  0001  0932        RET A,50
 182  0002  0930        RET A,48
 182  0003  0930        RET A,48
 182  0004  0936        RET A,54
 182  0005  092E        RET A,46
 182  0006  0920        RET A,32
文件:WANJT2.C     盛群编译器版本 2.86 页次14

 182  0007  0930        RET A,48
 182  0008  0935        RET A,53
 182  0009  092E        RET A,46
 182  000A  0920        RET A,32
 182  000B  0930        RET A,48
 182  000C  0932        RET A,50
 182  000D  0920        RET A,32
 182  000E  0920        RET A,32
 182  000F  096D        RET A,109
 182  0010  096F        RET A,111
 182  0011  096E        RET A,110
文件:WANJT2.c     盛群编译器版本 2.86 页次15 

 182  0012  0964        RET A,100
 182  0013  0961        RET A,97
 182  0014  0979        RET A,121
 182  0015  0931        RET A,49
 182  0016  0936        RET A,54
 182  0017  093A        RET A,58
 182  0018  0920        RET A,32
 182  0019  0934        RET A,52
 182  001A  0931        RET A,49
 182  001B  093A        RET A,58
 182  001C  0920        RET A,32
 182  001D  0932        RET A,50
 182  001E  0933        RET A,51
 182  001F  0920        RET A,32
 182  0020  0920        RET A,32
 182  0021  0920        RET A,32
 182  0022  0920        RET A,32
 182  0023  0920        RET A,32
 182  0024  0920        RET A,32
 182  0025  0920        RET A,32
 182  0026  0920        RET A,32
 182  0027  0920        RET A,32
 182  0028  0920        RET A,32
 182  0000              @chn_disp2 .SECTION 'CODE'
 182  0000              PUBLIC _chn_disp2
 182  0000              _chn_disp2 PROC
 182  0000  0F28        MOV A,40
 182  0001  0080     E  MOV RH,A
 182  0002  0F00     R  MOV A,OFFSET CR6
 182  0003  0081        MOV [01H],A
 182  0004  0F01        MOV A,1
 182  0005  0080     E  MOV T2,A
 182  0006              ASB55:
 182  0006  0700     E  MOV A,T2
 182  0007  0B00     R  ADD A,OFFSET l_50
 182  0008  2000     R  CALL l_50
 182  0009  0080        MOV [00H],A
 182  000A  1481        INC [01H]
 182  000B  1480     E  INC T2
 182  000C  1780     E  SDZ RH
 182  000D  2800     R  JMP ASB55

; 184:   wr_lcd (comm,0x30); 
 184  000E  0F00        MOV A,00h
 184  000F  0080     R  MOV wr_lcd0,A
 184  0010  0F30        MOV A,030h
 184  0011  0080     R  MOV wr_lcd1,A
 184  0012  2000     R  CALL _wr_lcd
文件:WANJT2.C     盛群编译器版本 2.86 页次15


; 185:   wr_lcd (comm,0x90); 
 185  0013  0F00        MOV A,00h
 185  0014  0080     R  MOV wr_lcd0,A
 185  0015  0F90        MOV A,090h
 185  0016  0080     R  MOV wr_lcd1,A
 185  0017  2000     R  CALL _wr_lcd

; 186:   v4=1; 
 186  0018  0F00     R  MOV A,BANK _v4
文件:WANJT2.c     盛群编译器版本 2.86 页次16 

 186  0019  0084        MOV [04H],A
 186  001A  0F00     R  MOV A,OFFSET _v4
 186  001B  0083        MOV [03H],A
 186  001C  0F01        MOV A,01h
 186  001D  0082        MOV [02H],A

; 187:   for (v5=0;v5<18;v5++) 
 187  001E  0F00     R  MOV A,BANK _v5
 187  001F  0084        MOV [04H],A
 187  0020  0F00     R  MOV A,OFFSET _v5
 187  0021  0083        MOV [03H],A
 187  0022  1F02        CLR [02H]
 187  0023  2800     R  JMP L54
 187  0024              L51:

; 188:   wr_lcd (dat,msg[v4*20+v5]);  
 188  0024  0F01        MOV A,01h
 188  0025  0080     R  MOV wr_lcd0,A
 188  0026  0F00     R  MOV A,BANK _v4
 188  0027  0084        MOV [04H],A
 188  0028  0F00     R  MOV A,OFFSET _v4
 188  0029  0083        MOV [03H],A
 188  002A  0702        MOV A,[02H]
 188  002B  0080     R  MOV b0_7,A
 188  002C  0700     R  MOV A,b0_7
 188  002D  0080     E  MOV T2,A
 188  002E  0F14        MOV A,014h
 188  002F  2000     E  CALL MULI
 188  0030  0080     R  MOV b0_7,A
 188  0031  0F00     R  MOV A,BANK _v5
 188  0032  0084        MOV [04H],A
 188  0033  0F00     R  MOV A,OFFSET _v5
 188  0034  0083        MOV [03H],A
 188  0035  0702        MOV A,[02H]
 188  0036  0080     R  MOV b1_7,A
 188  0037  0700     R  MOV A,b0_7
 188  0038  0300     R  ADD A,b1_7
 188  0039  0080     R  MOV b0_7,A
 188  003A  0700     R  MOV A,b0_7
 188  003B  0B00     R  ADD A,OFFSET CR6
 188  003C  0080     R  MOV b0_7,A
 188  003D  1F00     R  CLR b0_7[1]
 188  003E  0700     R  MOV A,b0_7[1]
 188  003F  0084        MOV [04H],A
 188  0040  0700     R  MOV A,b0_7
 188  0041  0083        MOV [03H],A
 188  0042  0702        MOV A,[02H]
 188  0043  0080     R  MOV b0_7,A
 188  0044  0700     R  MOV A,b0_7
 188  0045  0080     R  MOV wr_lcd1,A
 188  0046  2000     R  CALL _wr_lcd
 188  0047              L52:

; 187:   for (v5=0;v5<18;v5++) 
文件:WANJT2.C     盛群编译器版本 2.86 页次16

 187  0047  0F00     R  MOV A,BANK _v5
 187  0048  0084        MOV [04H],A
 187  0049  0F00     R  MOV A,OFFSET _v5
 187  004A  0083        MOV [03H],A
文件:WANJT2.c     盛群编译器版本 2.86 页次17 

 187  004B  1482        INC [02H]
 187  004C              L54:
 187  004C  0F00     R  MOV A,BANK _v5
 187  004D  0084        MOV [04H],A
 187  004E  0F00     R  MOV A,OFFSET _v5
 187  004F  0083        MOV [03H],A
 187  0050  0702        MOV A,[02H]
 187  0051  0A12        SUB A,012h
 187  0052  380A        SNZ [0AH].0
 187  0053  2800     R  JMP L51
 187  0054              L49:
 187  0054  0003        RET
 187  0000  0002[       LOCAL b0_7 DB 2 DUP(?)
            00
            ]
 187  0002  00          LOCAL b1_7 DB ?

; 182: { uchar msg[40] ="2006. 05. 02  monday16: 41: 23          ";
 182  0003  0028[       LOCAL CR6 DB 40 DUP (?) ; msg
            00
            ]
 182  0055              _chn_disp2 ENDP

; 191: { 
 191  0000              @chn_disp .SECTION 'CODE'
 191  0000              PUBLIC _chn_disp
 191  0000              _chn_disp PROC

; 190: void chn_disp (uchar *chn) 
 190  0000              PUBLIC chn_disp0
 190  0000  0002[       LOCAL chn_disp0 DB 2 DUP (?) ; chn
            00
            ]

; 193:   wr_lcd (comm,0x30); 
 193  0000  0F00        MOV A,00h
 193  0001  0080     R  MOV wr_lcd0,A
 193  0002  0F30        MOV A,030h
 193  0003  0080     R  MOV wr_lcd1,A
 193  0004  2000     R  CALL _wr_lcd

; 194:   wr_lcd (comm,0x80); 
 194  0005  0F00        MOV A,00h
 194  0006  0080     R  MOV wr_lcd0,A
 194  0007  0F80        MOV A,080h
 194  0008  0080     R  MOV wr_lcd1,A
 194  0009  2000     R  CALL _wr_lcd

; 195:   v2=0; 
 195  000A  0F00     R  MOV A,BANK _v2
 195  000B  0084        MOV [04H],A
 195  000C  0F00     R  MOV A,OFFSET _v2
 195  000D  0083        MOV [03H],A
 195  000E  1F02        CLR [02H]

; 196:   for (v1=0;v1<20;v1++) 
 196  000F  0F00     R  MOV A,BANK _v1
 196  0010  0084        MOV [04H],A
文件:WANJT2.C     盛群编译器版本 2.86 页次17

文件:WANJT2.c     盛群编译器版本 2.86 页次18 

 196  0011  0F00     R  MOV A,OFFSET _v1
 196  0012  0083        MOV [03H],A
 196  0013  1F02        CLR [02H]
 196  0014  2800     R  JMP L60
 196  0015              L57:

; 197:   wr_lcd (dat,chn[v2*20+v1]); 
 197  0015  0F01        MOV A,01h
 197  0016  0080     R  MOV wr_lcd0,A
 197  0017  0F00     R  MOV A,BANK _v2
 197  0018  0084        MOV [04H],A
 197  0019  0F00     R  MOV A,OFFSET _v2
 197  001A  0083        MOV [03H],A
 197  001B  0702        MOV A,[02H]
 197  001C  0080     R  MOV b0_8,A
 197  001D  0700     R  MOV A,b0_8
 197  001E  0080     E  MOV T2,A
 197  001F  0F14        MOV A,014h
 197  0020  2000     E  CALL MULI
 197  0021  0080     R  MOV b0_8,A
 197  0022  0F00     R  MOV A,BANK _v1
 197  0023  0084        MOV [04H],A
 197  0024  0F00     R  MOV A,OFFSET _v1
 197  0025  0083        MOV [03H],A
 197  0026  0702        MOV A,[02H]
 197  0027  0080     R  MOV b1_8,A
 197  0028  0700     R  MOV A,b0_8
 197  0029  0300     R  ADD A,b1_8
 197  002A  0080     R  MOV b0_8,A
 197  002B  0700     R  MOV A,b0_8
 197  002C  0300     R  ADD A,chn_disp0
 197  002D  0080     R  MOV b0_8,A
 197  002E  0700     R  MOV A,chn_disp0[1]
 197  002F  0080     R  MOV b0_8[1],A
 197  0030  0700     R  MOV A,b0_8[1]
 197  0031  0084        MOV [04H],A
 197  0032  0700     R  MOV A,b0_8
 197  0033  0083        MOV [03H],A
 197  0034  0702        MOV A,[02H]
 197  0035  0080     R  MOV b0_8,A
 197  0036  0700     R  MOV A,b0_8
 197  0037  0080     R  MOV wr_lcd1,A
 197  0038  2000     R  CALL _wr_lcd
 197  0039              L58:

; 196:   for (v1=0;v1<20;v1++) 
 196  0039  0F00     R  MOV A,BANK _v1
 196  003A  0084        MOV [04H],A
 196  003B  0F00     R  MOV A,OFFSET _v1
 196  003C  0083        MOV [03H],A
 196  003D  1482        INC [02H]
 196  003E              L60:
 196  003E  0F00     R  MOV A,BANK _v1
 196  003F  0084        MOV [04H],A
 196  0040  0F00     R  MOV A,OFFSET _v1
 196  0041  0083        MOV [03H],A
 196  0042  0702        MOV A,[02H]
 196  0043  0A14        SUB A,014h
 196  0044  380A        SNZ [0AH].0
 196  0045  2800     R  JMP L57
文件:WANJT2.c     盛群编译器版本 2.86 页次19 

文件:WANJT2.C     盛群编译器版本 2.86 页次18


; 198:   wr_lcd (comm,0x90); 
 198  0046  0F00        MOV A,00h
 198  0047  0080     R  MOV wr_lcd0,A
 198  0048  0F90        MOV A,090h
 198  0049  0080     R  MOV wr_lcd1,A
 198  004A  2000     R  CALL _wr_lcd

; 199:   v2=1; 
 199  004B  0F00     R  MOV A,BANK _v2
 199  004C  0084        MOV [04H],A
 199  004D  0F00     R  MOV A,OFFSET _v2
 199  004E  0083        MOV [03H],A
 199  004F  0F01        MOV A,01h
 199  0050  0082        MOV [02H],A

; 200:   for (v1=0;v1<20;v1++) 
 200  0051  0F00     R  MOV A,BANK _v1
 200  0052  0084        MOV [04H],A
 200  0053  0F00     R  MOV A,OFFSET _v1
 200  0054  0083        MOV [03H],A
 200  0055  1F02        CLR [02H]
 200  0056  2800     R  JMP L64
 200  0057              L61:

; 201:   wr_lcd (dat,chn[v2*20+v1]); 
 201  0057  0F01        MOV A,01h
 201  0058  0080     R  MOV wr_lcd0,A
 201  0059  0F00     R  MOV A,BANK _v2
 201  005A  0084        MOV [04H],A
 201  005B  0F00     R  MOV A,OFFSET _v2
 201  005C  0083        MOV [03H],A
 201  005D  0702        MOV A,[02H]
 201  005E  0080     R  MOV b0_8,A
 201  005F  0700     R  MOV A,b0_8
 201  0060  0080     E  MOV T2,A
 201  0061  0F14        MOV A,014h
 201  0062  2000     E  CALL MULI
 201  0063  0080     R  MOV b0_8,A
 201  0064  0F00     R  MOV A,BANK _v1
 201  0065  0084        MOV [04H],A
 201  0066  0F00     R  MOV A,OFFSET _v1
 201  0067  0083        MOV [03H],A
 201  0068  0702        MOV A,[02H]
 201  0069  0080     R  MOV b1_8,A
 201  006A  0700     R  MOV A,b0_8
 201  006B  0300     R  ADD A,b1_8
 201  006C  0080     R  MOV b0_8,A
 201  006D  0700     R  MOV A,b0_8
 201  006E  0300     R  ADD A,chn_disp0
 201  006F  0080     R  MOV b0_8,A
 201  0070  0700     R  MOV A,chn_disp0[1]

⌨️ 快捷键说明

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