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

📄 wanjt2.lst

📁 一个用嵌入c写的万年历程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
 243  007C  0700     R  MOV A,b0_11
 243  007D  0080     R  MOV wr_lcd1,A
 243  007E  2000     R  CALL _wr_lcd
 243  007F              L81:

; 236:     for(v1=0;v1<xl;v1++) 
 236  007F  0F00     R  MOV A,BANK _v1
 236  0080  0084        MOV [04H],A
 236  0081  0F00     R  MOV A,OFFSET _v1
 236  0082  0083        MOV [03H],A
 236  0083  1482        INC [02H]
 236  0084              L83:
 236  0084  0F00     R  MOV A,BANK _v1
 236  0085  0084        MOV [04H],A
 236  0086  0F00     R  MOV A,OFFSET _v1
 236  0087  0083        MOV [03H],A
 236  0088  0702        MOV A,[02H]
 236  0089  0200     R  SUB A,con_disp24
 236  008A  380A        SNZ [0AH].0
 236  008B  2800     R  JMP L80
 236  008C              L77:

; 234:   for(v2=0;v2<yl;v2++) 
 234  008C  0F00     R  MOV A,BANK _v2
 234  008D  0084        MOV [04H],A
 234  008E  0F00     R  MOV A,OFFSET _v2
 234  008F  0083        MOV [03H],A
 234  0090  1482        INC [02H]
 234  0091              L79:
 234  0091  0F00     R  MOV A,BANK _v2
 234  0092  0084        MOV [04H],A
 234  0093  0F00     R  MOV A,OFFSET _v2
 234  0094  0083        MOV [03H],A
 234  0095  0702        MOV A,[02H]
 234  0096  0200     R  SUB A,con_disp25
 234  0097  380A        SNZ [0AH].0
 234  0098  2800     R  JMP L76

; 246:   wr_lcd (comm,0x36); 
 246  0099  0F00        MOV A,00h
 246  009A  0080     R  MOV wr_lcd0,A
 246  009B  0F36        MOV A,036h
 246  009C  0080     R  MOV wr_lcd1,A
 246  009D  2000     R  CALL _wr_lcd
 246  009E              L75:
 246  009E  0003        RET
 246  0008  0002[       LOCAL b0_11 DB 2 DUP(?)
            00
            ]
文件:WANJT2.c     盛群编译器版本 2.86 页次27 

 246  000A  00          LOCAL b1_11 DB ?
 246  009F              _con_disp2 ENDP

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

 268  0000              _loc1 PROC

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

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

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

; 271:     wr_lcd (comm,0x0c);//为showcur()量身定做不翻白显示
 271  000A  0F00        MOV A,00h
 271  000B  0080     R  MOV wr_lcd0,A
 271  000C  0F0C        MOV A,0ch
 271  000D  0080     R  MOV wr_lcd1,A
 271  000E  2000     R  CALL _wr_lcd

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

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

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

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


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

; 278:     wr_lcd (comm,0x0d);
 278  000A  0F00        MOV A,00h
 278  000B  0080     R  MOV wr_lcd0,A
 278  000C  0F0D        MOV A,0dh
文件:WANJT2.C     盛群编译器版本 2.86 页次27

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

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

; 282: {
 282  0000              @rep .SECTION 'CODE'
 282  0000              PUBLIC _rep
 282  0000              _rep PROC

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

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

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

; 285:     wr_lcd (dat,data2);
 285  000A  0F01        MOV A,01h
 285  000B  0080     R  MOV wr_lcd0,A
 285  000C  0700     R  MOV A,rep1
 285  000D  0080     R  MOV wr_lcd1,A
 285  000E  2000     R  CALL _wr_lcd
 285  000F              L86:
 285  000F  0003        RET
文件:WANJT2.c     盛群编译器版本 2.86 页次29 

 285  0010              _rep ENDP

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

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

; 290: 	wr_lcd (comm,0x34);
 290  0000  0F00        MOV A,00h
 290  0001  0080     R  MOV wr_lcd0,A
 290  0002  0F34        MOV A,034h
文件:WANJT2.C     盛群编译器版本 2.86 页次28

 290  0003  0080     R  MOV wr_lcd1,A
 290  0004  2000     R  CALL _wr_lcd

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

; 292:     wr_lcd (comm,0x87); 
 292  000A  0F00        MOV A,00h
 292  000B  0080     R  MOV wr_lcd0,A
 292  000C  0F87        MOV A,087h
 292  000D  0080     R  MOV wr_lcd1,A
 292  000E  2000     R  CALL _wr_lcd

; 293:     v4=0; 
 293  000F  0F00     R  MOV A,BANK _v4
 293  0010  0084        MOV [04H],A
 293  0011  0F00     R  MOV A,OFFSET _v4
 293  0012  0083        MOV [03H],A
 293  0013  1F02        CLR [02H]

; 294:     for (;v4<6;v4++) 
 294  0014  2800     R  JMP L91
 294  0015              L88:

; 295:     wr_lcd (dat,week[nnn*6+v4]);
 295  0015  0F01        MOV A,01h
 295  0016  0080     R  MOV wr_lcd0,A
 295  0017  0700     R  MOV A,showw0
 295  0018  0080     E  MOV T2,A
 295  0019  0F06        MOV A,06h
 295  001A  2000     E  CALL MULI
 295  001B  0080     R  MOV b0_15,A
 295  001C  0F00     R  MOV A,BANK _v4
 295  001D  0084        MOV [04H],A
 295  001E  0F00     R  MOV A,OFFSET _v4
 295  001F  0083        MOV [03H],A
 295  0020  0702        MOV A,[02H]
 295  0021  0080     R  MOV b1_15,A
 295  0022  0700     R  MOV A,b0_15
文件:WANJT2.c     盛群编译器版本 2.86 页次30 

 295  0023  0300     R  ADD A,b1_15
 295  0024  0080     R  MOV b0_15,A
 295  0025  0F01        MOV A,1
 295  0026  0300     R  ADD A,b0_15
 295  0027  0B00     R  ADD A,OFFSET l_week
 295  0028  2000     R  CALL l_week
 295  0029  0080     R  MOV b0_15,A
 295  002A  0700     R  MOV A,b0_15
 295  002B  0080     R  MOV wr_lcd1,A
 295  002C  2000     R  CALL _wr_lcd
 295  002D              L89:

; 294:     for (;v4<6;v4++) 
 294  002D  0F00     R  MOV A,BANK _v4
 294  002E  0084        MOV [04H],A
 294  002F  0F00     R  MOV A,OFFSET _v4
 294  0030  0083        MOV [03H],A
 294  0031  1482        INC [02H]
 294  0032              L91:
 294  0032  0F00     R  MOV A,BANK _v4
 294  0033  0084        MOV [04H],A
 294  0034  0F00     R  MOV A,OFFSET _v4
文件:WANJT2.C     盛群编译器版本 2.86 页次29

 294  0035  0083        MOV [03H],A
 294  0036  0702        MOV A,[02H]
 294  0037  0A06        SUB A,06h
 294  0038  380A        SNZ [0AH].0
 294  0039  2800     R  JMP L88
 294  003A              L87:
 294  003A  0003        RET
 294  0001  0002[       LOCAL b0_15 DB 2 DUP(?)
            00
            ]
 294  0003  0002[       LOCAL b1_15 DB 2 DUP(?)
            00
            ]
 294  003B              _showw ENDP

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

; 298: void showcur(uint nnn)
 298  0000              PUBLIC showcur0
 298  0000  00          LOCAL showcur0 DB ? ; nnn

; 302: 	  switch(nnn)
 302  0000  0700     R  MOV A,showcur0
 302  0001  0080     R  MOV b0_16,A
 302  0002  1080     R  SZ b0_16
 302  0003  2800     R  JMP L128
 302  0004  2800     R  JMP L95
 302  0005              L128:
 302  0005  0700     R  MOV A,b0_16
 302  0006  0C01        XOR A,01h
 302  0007  3D0A        SZ [0ah].2
 302  0008  2800     R  JMP L96
 302  0009  0700     R  MOV A,b0_16
文件:WANJT2.c     盛群编译器版本 2.86 页次31 

 302  000A  0C02        XOR A,02h
 302  000B  3D0A        SZ [0ah].2
 302  000C  2800     R  JMP L99
 302  000D  0700     R  MOV A,b0_16
 302  000E  0C03        XOR A,03h
 302  000F  3D0A        SZ [0ah].2
 302  0010  2800     R  JMP L102
 302  0011  0700     R  MOV A,b0_16
 302  0012  0C04        XOR A,04h
 302  0013  3D0A        SZ [0ah].2
 302  0014  2800     R  JMP L115
 302  0015  0700     R  MOV A,b0_16
 302  0016  0C05        XOR A,05h
 302  0017  3D0A        SZ [0ah].2
 302  0018  2800     R  JMP L118
 302  0019  0700     R  MOV A,b0_16
 302  001A  0C06        XOR A,06h
 302  001B  3D0A        SZ [0ah].2
 302  001C  2800     R  JMP L123
 302  001D  2800     R  JMP L94
 302  001E              L95:

; 305:       	      v1=curtime.wan_yearhi/10;
文件:WANJT2.C     盛群编译器版本 2.86 页次30

 305  001E  0F00     R  MOV A,BANK _curtime
 305  001F  0084        MOV [04H],A
 305  0020  0F00     R  MOV A,OFFSET _curtime
 305  0021  0083        MOV [03H],A
 305  0022  0702        MOV A,[02H]
 305  0023  0080     R  MOV b0_16,A
 305  0024  0F0A        MOV A,0ah
 305  0025  0080     E  MOV RH,A
 305  0026  0700     R  MOV A,b0_16
 305  0027  2000     E  CALL DIVUI
 305  0028  0080     R  MOV b0_16,A
 305  0029  0F00     R  MOV A,BANK _v1
 305  002A  0084        MOV [04H],A
 305  002B  0F00     R  MOV A,OFFSET _v1
 305  002C  0083        MOV [03H],A
 305  002D  0700     R  MOV A,b0_16
 305  002E  0082        MOV [02H],A

; 306:       	      v2=curtime.wan_yearhi%10;
 306  002F  0F00     R  MOV A,BANK _curtime
 306  0030  0084        MOV [04H],A
 306  0031  0F00     R  MOV A,OFFSET _curtime
 306  0032  0083        MOV [03H],A
 306  0033  0702        MOV A,[02H]
 306  0034  0080     R  MOV b0_16,A
 306  0035  0F0A        MOV A,0ah
 306  0036  0080     E  MOV RH,A
 306  0037  0700     R  MOV A,b0_16
 306  0038  2000     E  CALL DIVUI
 306  0039  0700     E  MOV A,T3
 306  003A  0080     R  MOV b0_16,A
 306  003B  0F00     R  MOV A,BANK _v2
 306  003C  0084        MOV [04H],A
 306  003D  0F00     R  MOV A,OFFSET _v2
 306  003E  0083        MOV [03H],A
文件:WANJT2.c     盛群编译器版本 2.86 页次32 

 306  003F  0700     R  MOV A,b0_16
 306  0040  0082        MOV [02H],A

; 307:       	      loc1(0x80);rep(v1,v2);break;
 307  0041  0F80        MOV A,080h
 307  0042  0080     R  MOV loc10,A
 307  0043  2000     R  CALL _loc1
 307  0044  0F00     R  MOV A,BANK _v1
 307  0045  0084        MOV [04H],A
 307  0046  0F00     R  MOV A,OFFSET _v1
 307  0047  0083        MOV [03H],A
 307  0048  0702        MOV A,[02H]
 307  0049  0080     R  MOV b0_16,A
 307  004A  0700     R  MOV A,b0_16
 307  004B  0080     R  MOV rep0,A
 307  004C  0F00     R  MOV A,BANK _v2
 307  004D  0084        MOV [04H],A
 307  004E  0F00     R  MOV A,OFFSET _v2
 307  004F  0083        MOV [03H],A
 307  0050  0702        MOV A,[02H]
 307  0051  0080     R  MOV b0_16,A
 307  0052  0700     R  MOV A,b0_16
 307  0053  0080     R  MOV rep1,A
 307  0054  2000     R  CALL _rep
 307  0055  2800     R  JMP L94
文件:WANJT2.C     盛群编译器版本 2.86 页次31

 307  0056   

⌨️ 快捷键说明

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