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

📄 wanjt3.lst

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

; 221:   for(v2=0;v2<yl;v2++) 
 221  0032  1480     R  INC _v2
 221  0033              L56:
文件:WANJT3.C     盛群编译器版本 2.86 页次13

 221  0033  0700     R  MOV A,_v2
 221  0034  0200     R  SUB A,con_disp15
 221  0035  380A        SNZ [0ah].0
 221  0036  2800     R  JMP L53
 221  0037              L52:
 221  0037  0003        RET
 221  0006  00          LOCAL b0_8 DB ?
 221  0038              _con_disp1 ENDP

; 237: { //供定位显示用
 237  0000              @con_disp2 .SECTION 'CODE'
 237  0000              PUBLIC _con_disp2
 237  0000              _con_disp2 PROC

; 236: void con_disp2 (uchar *data1,uchar *data2,uchar x0,uchar y0,uchar xl,uchar yl) 
 236  0000              PUBLIC con_disp20
 236  0000  0002[       LOCAL con_disp20 DB 2 DUP (?) ; data1
            00
文件:WANJT3.c     盛群编译器版本 2.86 页次14 

            ]
 236  0000              PUBLIC con_disp21
 236  0002  0002[       LOCAL con_disp21 DB 2 DUP (?) ; data2
            00
            ]
 236  0000              PUBLIC con_disp22
 236  0004  00          LOCAL con_disp22 DB ? ; x0
 236  0000              PUBLIC con_disp23
 236  0005  00          LOCAL con_disp23 DB ? ; y0
 236  0000              PUBLIC con_disp24
 236  0006  00          LOCAL con_disp24 DB ? ; xl
 236  0000              PUBLIC con_disp25
 236  0007  00          LOCAL con_disp25 DB ? ; yl

; 239:   for(v2=0;v2<yl;v2++) 
 239  0000  1F00     R  CLR _v2
 239  0001  2800     R  JMP L65
 239  0002              L62:

; 241:     for(v1=0;v1<xl;v1++) 
 241  0002  1F00     R  CLR _v1
 241  0003  2800     R  JMP L69
 241  0004              L66:

; 243:       wr_lcd (comm,0x34); 
 243  0004  0F00        MOV A,00h
 243  0005  0080     R  MOV wr_lcd0,A
 243  0006  0F34        MOV A,034h
 243  0007  0080     R  MOV wr_lcd1,A
文件:WANJT3.C     盛群编译器版本 2.86 页次14

 243  0008  2000     R  CALL _wr_lcd

; 244:       wr_lcd (comm,y0+v2); 
 244  0009  0F00        MOV A,00h
 244  000A  0080     R  MOV wr_lcd0,A
 244  000B  0700     R  MOV A,con_disp23
 244  000C  0300     R  ADD A,_v2
 244  000D  0080     R  MOV b0_9,A
 244  000E  0700     R  MOV A,b0_9
 244  000F  0080     R  MOV wr_lcd1,A
 244  0010  2000     R  CALL _wr_lcd

; 245:       wr_lcd (comm,x0+v1); 
 245  0011  0F00        MOV A,00h
 245  0012  0080     R  MOV wr_lcd0,A
 245  0013  0700     R  MOV A,con_disp22
 245  0014  0300     R  ADD A,_v1
 245  0015  0080     R  MOV b0_9,A
 245  0016  0700     R  MOV A,b0_9
 245  0017  0080     R  MOV wr_lcd1,A
 245  0018  2000     R  CALL _wr_lcd

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

; 247:       wr_lcd (dat,data1[v2*20+v1*2]); 
文件:WANJT3.c     盛群编译器版本 2.86 页次15 

 247  001E  0F01        MOV A,01h
 247  001F  0080     R  MOV wr_lcd0,A
 247  0020  0700     R  MOV A,_v2
 247  0021  0080     E  MOV T2,A
 247  0022  0F14        MOV A,014h
 247  0023  2000     E  CALL MULI
 247  0024  0080     R  MOV b0_9,A
 247  0025  340A        CLR [0AH].0
 247  0026  1A00     R  RLCA _v1
 247  0027  0080     R  MOV b1_9,A
 247  0028  0700     R  MOV A,b0_9
 247  0029  0300     R  ADD A,b1_9
 247  002A  0080     R  MOV b0_9,A
 247  002B  0700     R  MOV A,b0_9
 247  002C  0300     R  ADD A,con_disp20
 247  002D  0080     R  MOV b0_9,A
 247  002E  0700     R  MOV A,con_disp20[1]
 247  002F  0080     R  MOV b0_9[1],A
 247  0030  0700     R  MOV A,b0_9[1]
 247  0031  0084        MOV [04H],A
 247  0032  0700     R  MOV A,b0_9
 247  0033  0083        MOV [03H],A
 247  0034  0702        MOV A,[02H]
 247  0035  0080     R  MOV b0_9,A
 247  0036  0700     R  MOV A,b0_9
 247  0037  0080     R  MOV wr_lcd1,A
 247  0038  2000     R  CALL _wr_lcd

; 248:       wr_lcd (dat,data2[v2*20+v1*2+1]); 
 248  0039  0F01        MOV A,01h
 248  003A  0080     R  MOV wr_lcd0,A
 248  003B  0700     R  MOV A,_v2
 248  003C  0080     E  MOV T2,A
 248  003D  0F14        MOV A,014h
 248  003E  2000     E  CALL MULI
文件:WANJT3.C     盛群编译器版本 2.86 页次15

 248  003F  0080     R  MOV b0_9,A
 248  0040  340A        CLR [0AH].0
 248  0041  1A00     R  RLCA _v1
 248  0042  0080     R  MOV b1_9,A
 248  0043  0700     R  MOV A,b0_9
 248  0044  0300     R  ADD A,b1_9
 248  0045  0080     R  MOV b0_9,A
 248  0046  1480     R  INC b0_9
 248  0047  0700     R  MOV A,b0_9
 248  0048  0300     R  ADD A,con_disp21
 248  0049  0080     R  MOV b0_9,A
 248  004A  0700     R  MOV A,con_disp21[1]
 248  004B  0080     R  MOV b0_9[1],A
 248  004C  0700     R  MOV A,b0_9[1]
 248  004D  0084        MOV [04H],A
 248  004E  0700     R  MOV A,b0_9
 248  004F  0083        MOV [03H],A
 248  0050  0702        MOV A,[02H]
 248  0051  0080     R  MOV b0_9,A
 248  0052  0700     R  MOV A,b0_9
 248  0053  0080     R  MOV wr_lcd1,A
 248  0054  2000     R  CALL _wr_lcd
 248  0055              L67:
文件:WANJT3.c     盛群编译器版本 2.86 页次16 


; 241:     for(v1=0;v1<xl;v1++) 
 241  0055  1480     R  INC _v1
 241  0056              L69:
 241  0056  0700     R  MOV A,_v1
 241  0057  0200     R  SUB A,con_disp24
 241  0058  380A        SNZ [0ah].0
 241  0059  2800     R  JMP L66
 241  005A              L63:

; 239:   for(v2=0;v2<yl;v2++) 
 239  005A  1480     R  INC _v2
 239  005B              L65:
 239  005B  0700     R  MOV A,_v2
 239  005C  0200     R  SUB A,con_disp25
 239  005D  380A        SNZ [0ah].0
 239  005E  2800     R  JMP L62

; 251:   wr_lcd (comm,0x36); 
 251  005F  0F00        MOV A,00h
 251  0060  0080     R  MOV wr_lcd0,A
 251  0061  0F36        MOV A,036h
 251  0062  0080     R  MOV wr_lcd1,A
 251  0063  2000     R  CALL _wr_lcd
 251  0064              L61:
 251  0064  0003        RET
 251  0008  0002[       LOCAL b0_9 DB 2 DUP(?)
            00
            ]
 251  000A  00          LOCAL b1_9 DB ?
 251  0065              _con_disp2 ENDP

; 273: {   wr_lcd (comm,0x34); 
 273  0000              @loc1 .SECTION 'CODE'
 273  0000              PUBLIC _loc1
 273  0000              _loc1 PROC
文件:WANJT3.C     盛群编译器版本 2.86 页次16


; 272: void loc1(uint mmm)
 272  0000              PUBLIC loc10
 272  0000  00          LOCAL loc10 DB ? ; mmm

; 273: {   wr_lcd (comm,0x34); 
 273  0000  0F00        MOV A,00h
 273  0001  0080     R  MOV wr_lcd0,A
 273  0002  0F34        MOV A,034h
 273  0003  0080     R  MOV wr_lcd1,A
 273  0004  2000     R  CALL _wr_lcd

; 275:     wr_lcd (comm,0x30); 
 275  0005  0F00        MOV A,00h
 275  0006  0080     R  MOV wr_lcd0,A
 275  0007  0F30        MOV A,030h
 275  0008  0080     R  MOV wr_lcd1,A
 275  0009  2000     R  CALL _wr_lcd

; 276:     wr_lcd (comm,0x0c);//为showcur()量身定做不翻白显示
 276  000A  0F00        MOV A,00h
 276  000B  0080     R  MOV wr_lcd0,A
文件:WANJT3.c     盛群编译器版本 2.86 页次17 

 276  000C  0F0C        MOV A,0ch
 276  000D  0080     R  MOV wr_lcd1,A
 276  000E  2000     R  CALL _wr_lcd

; 277:     wr_lcd (comm,mmm);//这只是尝试 两次定位 在按左右键时 为安上下键埋下伏笔
 277  000F  0F00        MOV A,00h
 277  0010  0080     R  MOV wr_lcd0,A
 277  0011  0700     R  MOV A,loc10
 277  0012  0080     R  MOV wr_lcd1,A
 277  0013  2000     R  CALL _wr_lcd
 277  0014              L70:
 277  0014  0003        RET
 277  0015              _loc1 ENDP

; 280: {   wr_lcd (comm,0x34); 
 280  0000              @loc .SECTION 'CODE'
 280  0000              PUBLIC _loc
 280  0000              _loc PROC

; 279: void loc(uint mmm)
 279  0000              PUBLIC loc0
 279  0000  00          LOCAL loc0 DB ? ; mmm

; 280: {   wr_lcd (comm,0x34); 
 280  0000  0F00        MOV A,00h
 280  0001  0080     R  MOV wr_lcd0,A
 280  0002  0F34        MOV A,034h
 280  0003  0080     R  MOV wr_lcd1,A
 280  0004  2000     R  CALL _wr_lcd

; 282:     wr_lcd (comm,0x30); 
 282  0005  0F00        MOV A,00h
 282  0006  0080     R  MOV wr_lcd0,A
 282  0007  0F30        MOV A,030h
 282  0008  0080     R  MOV wr_lcd1,A
 282  0009  2000     R  CALL _wr_lcd

; 283:     wr_lcd (comm,0x0d);
 283  000A  0F00        MOV A,00h
 283  000B  0080     R  MOV wr_lcd0,A
 283  000C  0F0D        MOV A,0dh
 283  000D  0080     R  MOV wr_lcd1,A
 283  000E  2000     R  CALL _wr_lcd
文件:WANJT3.C     盛群编译器版本 2.86 页次17


; 284:     wr_lcd (comm,mmm);//这只是尝试 两次定位 在按左右键时 为安上下键埋下伏笔
 284  000F  0F00        MOV A,00h
 284  0010  0080     R  MOV wr_lcd0,A
 284  0011  0700     R  MOV A,loc0
 284  0012  0080     R  MOV wr_lcd1,A
 284  0013  2000     R  CALL _wr_lcd
 284  0014              L71:
 284  0014  0003        RET
 284  0015              _loc ENDP

; 287: {
 287  0000              @rep .SECTION 'CODE'
 287  0000              PUBLIC _rep
 287  0000              _rep PROC
文件:WANJT3.c     盛群编译器版本 2.86 页次18 


; 286: void rep(uchar data1,uchar data2)
 286  0000              PUBLIC rep0
 286  0000  00          LOCAL rep0 DB ? ; data1
 286  0000              PUBLIC rep1
 286  0001  00          LOCAL rep1 DB ? ; data2

; 288:     wr_lcd (comm,0x06);
 288  0000  0F00        MOV A,00h
 288  0001  0080     R  MOV wr_lcd0,A
 288  0002  0F06        MOV A,06h
 288  0003  0080     R  MOV wr_lcd1,A
 288  0004  2000     R  CALL _wr_lcd

; 289:     wr_lcd (dat,data1);
 289  0005  0F01        MOV A,01h
 289  0006  0080     R  MOV wr_lcd0,A
 289  0007  0700     R  MOV A,rep0
 289  0008  0080     R  MOV wr_lcd1,A
 289  0009  2000     R  CALL _wr_lcd

; 290:     wr_lcd (dat,data2);
 290  000A  0F01        MOV A,01h
 290  000B  0080     R  MOV wr_lcd0,A
 290  000C  0700     R  MOV A,rep1
 290  000D  0080     R  MOV wr_lcd1,A
 290  000E  2000     R  CALL _wr_lcd
 290  000F              L72:
 290  000F  0003        RET
 290  0010              _rep ENDP

; 294: {
 294  0000              @showw .SECTION 'CODE'
 294  0000              PUBLIC _showw
 294  0000              _showw PROC

; 293: void showw(uint nnn)
 293  0000              PUBLIC showw0
 293  0000  00          LOCAL showw0 DB ? ; nnn

; 295:     wr_lcd (comm,0x34);
 295  0000  0F00        MOV A,00h
 295  0001  0080     R  MOV wr_lcd0,A
 295  0002  0F34        MOV A,034h
 295  0003  0080     R  MOV wr_lcd1,A
 295  0004  2000     R  CALL _wr_lcd
文件:WANJT3.C     盛群编译器版本 2.86 页次18


; 296:     wr_lcd (comm,0x30); 
 296  0005  0F00        MOV A,00h
 296  0006  0080     R  MOV wr_lcd0,A
 296  0007  0F30        MOV A,030h
 296  0008  0080     R  MOV wr_lcd1,A
 296  0009  2000     R  CALL _wr_lcd

; 297:     wr_lcd (comm,0x87); 
 297  000A  0F00        MOV A,00h
 297  000B  0080     R  MOV wr_lcd0,A
 297  000C  0F87        MOV A,087h
文件:WANJT3.c     盛群编译器版本 2.86 页次19 

 297  000D  0080     R  MOV wr_lcd1,A
 297  000E  2000     R  CALL _wr_lcd

; 298:     v4=0; 
 298  000F  1F00     R  CLR _v4

; 299:     for (;v4<6;v4++) 
 299  0010  2800     R  JMP L77
 299  0011              L74:

; 300:     wr_lcd (dat,week[nnn*6+v4]);
 300  0011  0F01        MOV A,01h
 300  0012  0080     R  MOV wr_lcd0,A
 300  0013  0700     R  MOV A,showw0
 300  0014  0080     E  MOV T2,A
 300  0015  0F06        MOV A,06h
 300  0016  2000     E  CALL MULI
 300  0017  0080     R  MOV b0_13,A
 300  0018  0700     R  MOV A,_v4
 300  0019  0380     R  ADDM A,b0_13
 300  001A  0F01        MOV A,1
 300  001B  0300     R  ADD A,b0_13
 300  001C  0B00     R  ADD A,OFFSET l_week
 300  001D  2000     R  CALL l_week
 300  001E  0080     R  MOV b0_13,A
 300  001F  0700     R  MOV A,b0_13
 300  0020  0080     R  MOV wr_lcd1,A
 300  0021  2000     R  CALL _wr_lcd
 300  0022              L75:

; 299:     for (;v4<6;v4++) 
 299  0022  1480     R  INC _v4
 299  0023              L77:
 299  0023  0700     R  MOV A,_v4
 299  0024  0A06        SUB A,06h
 299  0025  380A        SNZ [0ah].0
 299  0026  2800     R  JMP L74
 299  0027              L73:
 299  0027  0003        RET
 299  0001  0002[       LOCAL b0_13 DB 2 DUP(?)
            00
            ]
 299  0003  0002[       LOCAL b1_13 DB 2 DUP(?)
            00
            ]
 299  0028              _showw ENDP

; 304: {
 304  0000              @showcur .SECTION 'CODE'
 304  0000              PUBLIC _showcur
 304  0000              _showcur PROC

; 303: void showcur(uint nnn)
 303  0000              PUBLIC showcur0
文件:WANJT3.C     盛群编译器版本 2.86 页次19

⌨️ 快捷键说明

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