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

📄 wanjt2.lst

📁 一个用嵌入c写的万年历程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
 123  0068  0F00     R  MOV A,BANK _v3
 123  0069  0084        MOV [04H],A
 123  006A  0F00     R  MOV A,OFFSET _v3
 123  006B  0083        MOV [03H],A
 123  006C  1482        INC [02H]
 123  006D              L22:
文件:WANJT2.C     盛群编译器版本 2.86 页次7

 123  006D  0F00     R  MOV A,BANK _v3
 123  006E  0084        MOV [04H],A
 123  006F  0F00     R  MOV A,OFFSET _v3
 123  0070  0083        MOV [03H],A
 123  0071  0702        MOV A,[02H]
 123  0072  0A02        SUB A,02h
 123  0073  380A        SNZ [0AH].0
 123  0074  2800     R  JMP L19
 123  0075              L12:
 123  0075  0003        RET
 123  0076              _wr_lcd ENDP

; 142: { 
 142  0000              @img_disp .SECTION 'CODE'
 142  0000              PUBLIC _img_disp
 142  0000              _img_disp PROC

; 141: void img_disp (uchar *img) 
 141  0000              PUBLIC img_disp0
 141  0000  0002[       LOCAL img_disp0 DB 2 DUP (?) ; img
            00
            ]

; 144:   for(v2=0;v2<16;v2++) 
 144  0000  0F00     R  MOV A,BANK _v2
 144  0001  0084        MOV [04H],A
 144  0002  0F00     R  MOV A,OFFSET _v2
 144  0003  0083        MOV [03H],A
 144  0004  1F02        CLR [02H]
 144  0005  2800     R  JMP L36
 144  0006              L33:

; 146:     for(v1=0;v1<10;v1++) 
 146  0006  0F00     R  MOV A,BANK _v1
 146  0007  0084        MOV [04H],A
 146  0008  0F00     R  MOV A,OFFSET _v1
文件:WANJT2.c     盛群编译器版本 2.86 页次8 

 146  0009  0083        MOV [03H],A
 146  000A  1F02        CLR [02H]
 146  000B  2800     R  JMP L40
 146  000C              L37:

; 148:       wr_lcd (comm,0x34); 
 148  000C  0F00        MOV A,00h
 148  000D  0080     R  MOV wr_lcd0,A
 148  000E  0F34        MOV A,034h
 148  000F  0080     R  MOV wr_lcd1,A
 148  0010  2000     R  CALL _wr_lcd

; 149:       wr_lcd (comm,y+v2); 
 149  0011  0F00        MOV A,00h
 149  0012  0080     R  MOV wr_lcd0,A
 149  0013  0F00     R  MOV A,BANK _v2
 149  0014  0084        MOV [04H],A
 149  0015  0F00     R  MOV A,OFFSET _v2
 149  0016  0083        MOV [03H],A
 149  0017  0702        MOV A,[02H]
 149  0018  0B80        ADD A,080h
 149  0019  0080     R  MOV b0_4,A
文件:WANJT2.C     盛群编译器版本 2.86 页次8

 149  001A  0700     R  MOV A,b0_4
 149  001B  0080     R  MOV wr_lcd1,A
 149  001C  2000     R  CALL _wr_lcd

; 150:       wr_lcd (comm,x+v1); 
 150  001D  0F00        MOV A,00h
 150  001E  0080     R  MOV wr_lcd0,A
 150  001F  0F00     R  MOV A,BANK _v1
 150  0020  0084        MOV [04H],A
 150  0021  0F00     R  MOV A,OFFSET _v1
 150  0022  0083        MOV [03H],A
 150  0023  0702        MOV A,[02H]
 150  0024  0B80        ADD A,080h
 150  0025  0080     R  MOV b0_4,A
 150  0026  0700     R  MOV A,b0_4
 150  0027  0080     R  MOV wr_lcd1,A
 150  0028  2000     R  CALL _wr_lcd

; 151:       wr_lcd (comm,0x30); 
 151  0029  0F00        MOV A,00h
 151  002A  0080     R  MOV wr_lcd0,A
 151  002B  0F30        MOV A,030h
 151  002C  0080     R  MOV wr_lcd1,A
 151  002D  2000     R  CALL _wr_lcd

; 152:       wr_lcd (dat,img[v2*20+v1*2]); 
 152  002E  0F01        MOV A,01h
 152  002F  0080     R  MOV wr_lcd0,A
 152  0030  0F00     R  MOV A,BANK _v2
 152  0031  0084        MOV [04H],A
 152  0032  0F00     R  MOV A,OFFSET _v2
 152  0033  0083        MOV [03H],A
 152  0034  0702        MOV A,[02H]
 152  0035  0080     R  MOV b0_4,A
 152  0036  0700     R  MOV A,b0_4
 152  0037  0080     E  MOV T2,A
文件:WANJT2.c     盛群编译器版本 2.86 页次9 

 152  0038  0F14        MOV A,014h
 152  0039  2000     E  CALL MULI
 152  003A  0080     R  MOV b0_4,A
 152  003B  0F00     R  MOV A,BANK _v1
 152  003C  0084        MOV [04H],A
 152  003D  0F00     R  MOV A,OFFSET _v1
 152  003E  0083        MOV [03H],A
 152  003F  0702        MOV A,[02H]
 152  0040  0080     R  MOV b1_4,A
 152  0041  340A        CLR [0AH].0
 152  0042  1A80     R  RLC b1_4
 152  0043  0700     R  MOV A,b0_4
 152  0044  0300     R  ADD A,b1_4
 152  0045  0080     R  MOV b0_4,A
 152  0046  0700     R  MOV A,b0_4
 152  0047  0300     R  ADD A,img_disp0
 152  0048  0080     R  MOV b0_4,A
 152  0049  0700     R  MOV A,img_disp0[1]
 152  004A  0080     R  MOV b0_4[1],A
 152  004B  0700     R  MOV A,b0_4[1]
 152  004C  0084        MOV [04H],A
 152  004D  0700     R  MOV A,b0_4
 152  004E  0083        MOV [03H],A
 152  004F  0702        MOV A,[02H]
 152  0050  0080     R  MOV b0_4,A
 152  0051  0700     R  MOV A,b0_4
 152  0052  0080     R  MOV wr_lcd1,A
文件:WANJT2.C     盛群编译器版本 2.86 页次9

 152  0053  2000     R  CALL _wr_lcd

; 153:       wr_lcd (dat,img[v2*20+v1*2+1]); 
 153  0054  0F01        MOV A,01h
 153  0055  0080     R  MOV wr_lcd0,A
 153  0056  0F00     R  MOV A,BANK _v2
 153  0057  0084        MOV [04H],A
 153  0058  0F00     R  MOV A,OFFSET _v2
 153  0059  0083        MOV [03H],A
 153  005A  0702        MOV A,[02H]
 153  005B  0080     R  MOV b0_4,A
 153  005C  0700     R  MOV A,b0_4
 153  005D  0080     E  MOV T2,A
 153  005E  0F14        MOV A,014h
 153  005F  2000     E  CALL MULI
 153  0060  0080     R  MOV b0_4,A
 153  0061  0F00     R  MOV A,BANK _v1
 153  0062  0084        MOV [04H],A
 153  0063  0F00     R  MOV A,OFFSET _v1
 153  0064  0083        MOV [03H],A
 153  0065  0702        MOV A,[02H]
 153  0066  0080     R  MOV b1_4,A
 153  0067  340A        CLR [0AH].0
 153  0068  1A80     R  RLC b1_4
 153  0069  0700     R  MOV A,b0_4
 153  006A  0300     R  ADD A,b1_4
 153  006B  0080     R  MOV b0_4,A
 153  006C  1480     R  INC b0_4
 153  006D  0700     R  MOV A,b0_4
 153  006E  0300     R  ADD A,img_disp0
 153  006F  0080     R  MOV b0_4,A
文件:WANJT2.c     盛群编译器版本 2.86 页次10 

 153  0070  0700     R  MOV A,img_disp0[1]
 153  0071  0080     R  MOV b0_4[1],A
 153  0072  0700     R  MOV A,b0_4[1]
 153  0073  0084        MOV [04H],A
 153  0074  0700     R  MOV A,b0_4
 153  0075  0083        MOV [03H],A
 153  0076  0702        MOV A,[02H]
 153  0077  0080     R  MOV b0_4,A
 153  0078  0700     R  MOV A,b0_4
 153  0079  0080     R  MOV wr_lcd1,A
 153  007A  2000     R  CALL _wr_lcd
 153  007B              L38:

; 146:     for(v1=0;v1<10;v1++) 
 146  007B  0F00     R  MOV A,BANK _v1
 146  007C  0084        MOV [04H],A
 146  007D  0F00     R  MOV A,OFFSET _v1
 146  007E  0083        MOV [03H],A
 146  007F  1482        INC [02H]
 146  0080              L40:
 146  0080  0F00     R  MOV A,BANK _v1
 146  0081  0084        MOV [04H],A
 146  0082  0F00     R  MOV A,OFFSET _v1
 146  0083  0083        MOV [03H],A
 146  0084  0702        MOV A,[02H]
 146  0085  0A0A        SUB A,0ah
 146  0086  380A        SNZ [0AH].0
 146  0087  2800     R  JMP L37
 146  0088              L34:
文件:WANJT2.C     盛群编译器版本 2.86 页次10


; 144:   for(v2=0;v2<16;v2++) 
 144  0088  0F00     R  MOV A,BANK _v2
 144  0089  0084        MOV [04H],A
 144  008A  0F00     R  MOV A,OFFSET _v2
 144  008B  0083        MOV [03H],A
 144  008C  1482        INC [02H]
 144  008D              L36:
 144  008D  0F00     R  MOV A,BANK _v2
 144  008E  0084        MOV [04H],A
 144  008F  0F00     R  MOV A,OFFSET _v2
 144  0090  0083        MOV [03H],A
 144  0091  0702        MOV A,[02H]
 144  0092  0A10        SUB A,010h
 144  0093  380A        SNZ [0AH].0
 144  0094  2800     R  JMP L33

; 156:   wr_lcd (comm,0x36); //为啥是36而不是34呢
 156  0095  0F00        MOV A,00h
 156  0096  0080     R  MOV wr_lcd0,A
 156  0097  0F36        MOV A,036h
 156  0098  0080     R  MOV wr_lcd1,A
 156  0099  2000     R  CALL _wr_lcd
 156  009A              L32:
 156  009A  0003        RET
 156  0002  0002[       LOCAL b0_4 DB 2 DUP(?)
            00
            ]
 156  0004  00          LOCAL b1_4 DB ?
文件:WANJT2.c     盛群编译器版本 2.86 页次11 

 156  009B              _img_disp ENDP

; 160: { 
 160  0000              @init_lcd .SECTION 'CODE'
 160  0000              PUBLIC _init_lcd
 160  0000              _init_lcd PROC

; 161:   rst=1; 
 161  0000  3216        SET [016H].4

; 163:   wr_lcd (comm,0x30);  /*30---基本指令动作*/    
 163  0001  0F00        MOV A,00h
 163  0002  0080     R  MOV wr_lcd0,A
 163  0003  0F30        MOV A,030h
 163  0004  0080     R  MOV wr_lcd1,A
 163  0005  2000     R  CALL _wr_lcd

; 164:   wr_lcd (comm,0x01);  /*清屏,地址指针指向00H*/ 
 164  0006  0F00        MOV A,00h
 164  0007  0080     R  MOV wr_lcd0,A
 164  0008  0F01        MOV A,01h
 164  0009  0080     R  MOV wr_lcd1,A
 164  000A  2000     R  CALL _wr_lcd

; 165:   delay (80); 
 165  000B  0F50        MOV A,050h
 165  000C  0080     R  MOV delay0,A
 165  000D  2000     R  CALL _delay

; 166:   wr_lcd (comm,0x06);  /*光标的移动方向*/ 
 166  000E  0F00        MOV A,00h
 166  000F  0080     R  MOV wr_lcd0,A
 166  0010  0F06        MOV A,06h
 166  0011  0080     R  MOV wr_lcd1,A
 166  0012  2000     R  CALL _wr_lcd

; 167:   wr_lcd (comm,0x0c);  /*开显示,关游标*/ 
文件:WANJT2.C     盛群编译器版本 2.86 页次11

 167  0013  0F00        MOV A,00h
 167  0014  0080     R  MOV wr_lcd0,A
 167  0015  0F0C        MOV A,0ch
 167  0016  0080     R  MOV wr_lcd1,A
 167  0017  2000     R  CALL _wr_lcd
 167  0018              L41:
 167  0018  0003        RET
 167  0019              _init_lcd ENDP

; 171: { //uchar i,j; 

; 172:   uchar msg[40] ="2006. 05. 02  monday16: 41: 23          ";
 172  0019              rombank 0 L43
 172  0000              L43 .SECTION INPAGE'CODE'
 172  0000              l_43:
 172  0000  0086        MOV [06h],A
 172  0001              _43:
 172  0001  0932        RET A,50
 172  0002  0930        RET A,48
 172  0003  0930        RET A,48
 172  0004  0936        RET A,54
文件:WANJT2.c     盛群编译器版本 2.86 页次12 

 172  0005  092E        RET A,46
 172  0006  0920        RET A,32
 172  0007  0930        RET A,48
 172  0008  0935        RET A,53
 172  0009  092E        RET A,46
 172  000A  0920        RET A,32
 172  000B  0930        RET A,48
 172  000C  0932        RET A,50
 172  000D  0920        RET A,32
 172  000E  0920        RET A,32
 172  000F  096D        RET A,109
 172  0010  096F        RET A,111
 172  0011  096E        RET A,110
 172  0012  0964        RET A,100
 172  0013  0961        RET A,97
 172  0014  0979        RET A,121
 172  0015  0931        RET A,49
 172  0016  0936        RET A,54
 172  0017  093A        RET A,58
 172  0018  0920        RET A,32
 172  0019  0934        RET A,52
 172  001A  0931        RET A,49
 172  001B  093A        RET A,58
 172  001C  0920        RET A,32
 172  001D  0932        RET A,50
 172  001E  0933        RET A,51
 172  001F  0920        RET A,32
 172  0020  0920        RET A,32
 172  0021  0920        RET A,32
 172  0022  0920        RET A,32
 172  0023  0920        RET A,32
 172  0024  0920        RET A,32
 172  0025  0920        RET A,32
 172  0026  0920        RET A,32
 172  0027  0920        RET A,32
 172  0028  0920        RET A,32
 172  0000              @chn_disp1 .SECTION 'CODE'
 172  0000              PUBLIC _chn_disp1
 172  0000              _chn_disp1 PROC
文件:WANJT2.C     盛群编译器版本 2.86 页次12

 172  0000  0F28        MOV A,40
 172  0001  0080     E  MOV RH,A
 172  0002  0F00     R  MOV A,OFFSET CR5
 172  0003  0081        MOV [01H],A
 172  0004  0F01        MOV A,1
 172  0005  0080     E  MOV T2,A
 172  0006              ASB48:
 172  0006  0700     E  MOV A,T2
 172  0007  0B00     R  ADD A,OFFSET l_43
 172  0008  2000     R  CALL l_43
 172  0009  0080        MOV [00H],A
 172  000A  1481        INC [01H]
 172  000B  1480     E  INC T2
 172  000C  1780     E  SDZ RH
 172  000D  2800     R  JMP ASB48

; 174:   wr_lcd (comm,0x30); 
 174  000E  0F00        MOV A,00h
 174  000F  0080     R  MOV wr_lcd0,A
文件:WANJT2.c     盛群编译器版本 2.86 页次13 

 174  0010  0F30        MOV A,030h
 174  0011  0080     R  MOV wr_lcd1,A
 174  0012  2000     R  CALL _wr_lcd

; 175:   wr_lcd (comm,0x80); 
 175  0013  0F00        MOV A,00h
 175  0014  0080     R  MOV wr_lcd0,A
 175  0015  0F80        MOV A,080h
 175  0016  0080     R  MOV wr_lcd1,A
 175  0017  2000     R  CALL _wr_lcd

; 176:   v4=0; 
 176  0018  0F00     R  MOV A,BANK _v4
 176  0019  0084        MOV [04H],A
 176  001A  0F00     R  MOV A,OFFSET _v4
 176  001B  0083        MOV [03H],A
 176  001C  1F02        CLR [02H]

; 177:   for (v5=0;v5<20;v5++) 
 177  001D  0F00     R  MOV A,BANK _v5
 177  001E  0084        MOV [04H],A
 177  001F  0F00     R  MOV A,OFFSET _v5
 177  0020  0083        MOV [03H],A
 177  0021  1F02        CLR [02H]
 177  0022  2800     R  JMP L47
 177  0023              L44:

; 178:   wr_lcd (dat,msg[v4*20+v5]);
 178  0023  0F01        MOV A,01h
 178  0024  0080     R  MOV wr_lcd0,A
 178  0025  0F00     R  MOV A,BANK _v4
 178  0026  0084        MOV [04H],A
 178  0027  0F00     R  MOV A,OFFSET _v4
 178  0028  0083        MOV [03H],A
 178  0029  0702        MOV A,[02H]

⌨️ 快捷键说明

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