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

📄 wanjtest.lst

📁 一个用嵌入c写的万年历程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
 214  0014              RAMBANK 0 @isr_c
 214  0000              @isr_c .SECTION 'DATA'

; 216: {if(wan_t==96)
 216  0000              @arrt .SECTION 'CODE'
 216  0000              PUBLIC _arrt
 216  0000              _arrt PROC
文件:WANJTEST.C   盛群编译器版本 2.86 页次13

 216  0000  0F00     R  MOV A,BANK _wan_t
 216  0001  0084        MOV [04H],A
 216  0002  0F00     R  MOV A,OFFSET _wan_t
 216  0003  0083        MOV [03H],A
 216  0004  0702        MOV A,[02H]
 216  0005  0C60        XOR A,060h
 216  0006  390A        SNZ [0AH].2
 216  0007  2800     R  JMP L60

; 217:  {wan_t=0;
 217  0008  0F00     R  MOV A,BANK _wan_t
 217  0009  0084        MOV [04H],A
 217  000A  0F00     R  MOV A,OFFSET _wan_t
 217  000B  0083        MOV [03H],A
 217  000C  1F02        CLR [02H]
文件:WANJTEST.c   盛群编译器版本 2.86 页次14 


; 218:   if(++hfcursec==120)
 218  000D  0F00     R  MOV A,BANK _curtime[6]
 218  000E  0084        MOV [04H],A
 218  000F  0F00     R  MOV A,OFFSET _curtime[6]
 218  0010  0083        MOV [03H],A
 218  0011  1402        INCA [02H]
 218  0012  0080     R  MOV b0_15,A
 218  0013  0F00     R  MOV A,BANK _curtime[6]
 218  0014  0084        MOV [04H],A
 218  0015  0F00     R  MOV A,OFFSET _curtime[6]
 218  0016  0083        MOV [03H],A
 218  0017  0700     R  MOV A,b0_15
 218  0018  0082        MOV [02H],A
 218  0019  0700     R  MOV A,b0_15
 218  001A  0C78        XOR A,078h
 218  001B  390A        SNZ [0ah].2
 218  001C  2800     R  JMP L62

; 219:     {hfcursec=0;
 219  001D  0F00     R  MOV A,BANK _curtime[6]
 219  001E  0084        MOV [04H],A
 219  001F  0F00     R  MOV A,OFFSET _curtime[6]
 219  0020  0083        MOV [03H],A
 219  0021  1F02        CLR [02H]

; 220:        if(++curmin==60)
 220  0022  0F00     R  MOV A,BANK _curtime[5]
 220  0023  0084        MOV [04H],A
 220  0024  0F00     R  MOV A,OFFSET _curtime[5]
 220  0025  0083        MOV [03H],A
 220  0026  1402        INCA [02H]
 220  0027  0080     R  MOV b0_15,A
 220  0028  0F00     R  MOV A,BANK _curtime[5]
 220  0029  0084        MOV [04H],A
 220  002A  0F00     R  MOV A,OFFSET _curtime[5]
 220  002B  0083        MOV [03H],A
 220  002C  0700     R  MOV A,b0_15
 220  002D  0082        MOV [02H],A
 220  002E  0700     R  MOV A,b0_15
 220  002F  0C3C        XOR A,03ch
 220  0030  390A        SNZ [0ah].2
 220  0031  2800     R  JMP L68

; 221:         {curmin=0;
 221  0032  0F00     R  MOV A,BANK _curtime[5]
 221  0033  0084        MOV [04H],A
文件:WANJTEST.C   盛群编译器版本 2.86 页次14

 221  0034  0F00     R  MOV A,OFFSET _curtime[5]
 221  0035  0083        MOV [03H],A
 221  0036  1F02        CLR [02H]

; 222:           if(++curhou==24)
 222  0037  0F00     R  MOV A,BANK _curtime[4]
 222  0038  0084        MOV [04H],A
 222  0039  0F00     R  MOV A,OFFSET _curtime[4]
 222  003A  0083        MOV [03H],A
 222  003B  1402        INCA [02H]
 222  003C  0080     R  MOV b0_15,A
文件:WANJTEST.c   盛群编译器版本 2.86 页次15 

 222  003D  0F00     R  MOV A,BANK _curtime[4]
 222  003E  0084        MOV [04H],A
 222  003F  0F00     R  MOV A,OFFSET _curtime[4]
 222  0040  0083        MOV [03H],A
 222  0041  0700     R  MOV A,b0_15
 222  0042  0082        MOV [02H],A
 222  0043  0700     R  MOV A,b0_15
 222  0044  0C18        XOR A,018h
 222  0045  390A        SNZ [0ah].2
 222  0046  2800     R  JMP L74

; 223:            {curhou=0;
 223  0047  0F00     R  MOV A,BANK _curtime[4]
 223  0048  0084        MOV [04H],A
 223  0049  0F00     R  MOV A,OFFSET _curtime[4]
 223  004A  0083        MOV [03H],A
 223  004B  1F02        CLR [02H]

; 224:             if(++curwda==7)
 224  004C  0F00     R  MOV A,BANK _curtime[2]
 224  004D  0084        MOV [04H],A
 224  004E  0F00     R  MOV A,OFFSET _curtime[2]
 224  004F  0083        MOV [03H],A
 224  0050  1402        INCA [02H]
 224  0051  0080     R  MOV b0_15,A
 224  0052  0F00     R  MOV A,BANK _curtime[2]
 224  0053  0084        MOV [04H],A
 224  0054  0F00     R  MOV A,OFFSET _curtime[2]
 224  0055  0083        MOV [03H],A
 224  0056  0700     R  MOV A,b0_15
 224  0057  0082        MOV [02H],A
 224  0058  0700     R  MOV A,b0_15
 224  0059  0C07        XOR A,07h
 224  005A  390A        SNZ [0ah].2
 224  005B  2800     R  JMP L78

; 226:               curwda=0;
 226  005C  0F00     R  MOV A,BANK _curtime[2]
 226  005D  0084        MOV [04H],A
 226  005E  0F00     R  MOV A,OFFSET _curtime[2]
 226  005F  0083        MOV [03H],A
 226  0060  1F02        CLR [02H]
 226  0061              L78:

; 228:             if(++curday==begdaysinm(curtime))
 228  0061  0F00     R  MOV A,BANK _curtime[3]
 228  0062  0084        MOV [04H],A
 228  0063  0F00     R  MOV A,OFFSET _curtime[3]
 228  0064  0083        MOV [03H],A
 228  0065  1402        INCA [02H]
 228  0066  0080     R  MOV b0_15,A
文件:WANJTEST.C   盛群编译器版本 2.86 页次15

 228  0067  0F00     R  MOV A,BANK _curtime[3]
 228  0068  0084        MOV [04H],A
 228  0069  0F00     R  MOV A,OFFSET _curtime[3]
 228  006A  0083        MOV [03H],A
 228  006B  0700     R  MOV A,b0_15
 228  006C  0082        MOV [02H],A
 228  006D  0F07        MOV A,7
文件:WANJTEST.c   盛群编译器版本 2.86 页次16 

 228  006E  0080     E  MOV RH,A
 228  006F  0F00     R  MOV A,OFFSET begdaysinm0
 228  0070  0081        MOV [01H],A
 228  0071  0F00     R  MOV A,OFFSET _curtime
 228  0072  0083        MOV [03H],A
 228  0073  0F00     R  MOV A,BANK _curtime
 228  0074  0084        MOV [04H],A
 228  0075              ASB92:
 228  0075  0702        MOV A,[02H]
 228  0076  0080        MOV [00H],A
 228  0077  1481        INC [01H]
 228  0078  1483        INC [03H]
 228  0079  1780     E  SDZ RH
 228  007A  2800     R  JMP ASB92
 228  007B  2000     R  CALL _begdaysinm
 228  007C  0080     R  MOV b1_15,A
 228  007D  0700     R  MOV A,b0_15
 228  007E  0400     R  XOR A,b1_15
 228  007F  390A        SNZ [0ah].2
 228  0080  2800     R  JMP L82

; 229:              {curday=0;
 229  0081  0F00     R  MOV A,BANK _curtime[3]
 229  0082  0084        MOV [04H],A
 229  0083  0F00     R  MOV A,OFFSET _curtime[3]
 229  0084  0083        MOV [03H],A
 229  0085  1F02        CLR [02H]

; 230:                if(++curmon==12)
 230  0086  0F00     R  MOV A,BANK _curtime[1]
 230  0087  0084        MOV [04H],A
 230  0088  0F00     R  MOV A,OFFSET _curtime[1]
 230  0089  0083        MOV [03H],A
 230  008A  1402        INCA [02H]
 230  008B  0080     R  MOV b0_15,A
 230  008C  0F00     R  MOV A,BANK _curtime[1]
 230  008D  0084        MOV [04H],A
 230  008E  0F00     R  MOV A,OFFSET _curtime[1]
 230  008F  0083        MOV [03H],A
 230  0090  0700     R  MOV A,b0_15
 230  0091  0082        MOV [02H],A
 230  0092  0700     R  MOV A,b0_15
 230  0093  0C0C        XOR A,0ch
 230  0094  390A        SNZ [0ah].2
 230  0095  2800     R  JMP L86

; 231:                { curmon=0;
 231  0096  0F00     R  MOV A,BANK _curtime[1]
 231  0097  0084        MOV [04H],A
 231  0098  0F00     R  MOV A,OFFSET _curtime[1]
 231  0099  0083        MOV [03H],A
 231  009A  1F02        CLR [02H]

; 232:                  ++curyea; 
 232  009B  0F00     R  MOV A,BANK _curtime
文件:WANJTEST.C   盛群编译器版本 2.86 页次16

 232  009C  0084        MOV [04H],A
 232  009D  0F00     R  MOV A,OFFSET _curtime
 232  009E  0083        MOV [03H],A
文件:WANJTEST.c   盛群编译器版本 2.86 页次17 

 232  009F  1482        INC [02H]
 232  00A0              L86:
 232  00A0              L82:
 232  00A0              L74:
 232  00A0              L68:
 232  00A0              L62:
 232  00A0              L60:

; 238: if(wan_dispen==1)
 238  00A0  0F00     R  MOV A,BANK _wan_dispen
 238  00A1  0084        MOV [04H],A
 238  00A2  0F00     R  MOV A,OFFSET _wan_dispen
 238  00A3  0083        MOV [03H],A
 238  00A4  0702        MOV A,[02H]
 238  00A5  0C01        XOR A,01h
 238  00A6  390A        SNZ [0AH].2
 238  00A7  2800     R  JMP L90

; 240:      showp(); //调用lcd接口输入为curtime 将显示对应的画面
 240  00A8  2000     R  CALL _showp
 240  00A9              L90:
 240  00A9              L59:
 240  00A9  0003        RET
 240  0000  00          LOCAL b0_15 DB ?
 240  0001  00          LOCAL b1_15 DB ?
 240  00AA              _arrt ENDP

; 244: {
 244  0000              @wan_testkb .SECTION 'CODE'
 244  0000              PUBLIC _wan_testkb
 244  0000              _wan_testkb PROC

; 245:    if(getkey())
 245  0000  2000     R  CALL _getkey
 245  0001  0080     R  MOV b0_16,A
 245  0002  1080     R  SZ b0_16
 245  0003  2800     R  JMP L131
 245  0004  2800     R  JMP L94
 245  0005              L131:

; 247:      switch(keyvalue)
 247  0005  0F00     R  MOV A,BANK _keyvalue
 247  0006  0084        MOV [04H],A
 247  0007  0F00     R  MOV A,OFFSET _keyvalue
 247  0008  0083        MOV [03H],A
 247  0009  0702        MOV A,[02H]
 247  000A  0080     R  MOV b0_16,A
 247  000B  1080     R  SZ b0_16
 247  000C  2800     R  JMP L132
 247  000D  2800     R  JMP L130
 247  000E              L132:
 247  000E  0700     R  MOV A,b0_16
 247  000F  0C01        XOR A,01h
 247  0010  3D0A        SZ [0ah].2
 247  0011  2800     R  JMP L129
 247  0012  0700     R  MOV A,b0_16
 247  0013  0C02        XOR A,02h
 247  0014  3D0A        SZ [0ah].2
文件:WANJTEST.C   盛群编译器版本 2.86 页次17

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

 247  0015  2800     R  JMP L124
 247  0016  0700     R  MOV A,b0_16
 247  0017  0C03        XOR A,03h
 247  0018  3D0A        SZ [0ah].2
 247  0019  2800     R  JMP L125
 247  001A  0700     R  MOV A,b0_16
 247  001B  0C04        XOR A,04h
 247  001C  3D0A        SZ [0ah].2
 247  001D  2800     R  JMP L123
 247  001E  0700     R  MOV A,b0_16
 247  001F  0C05        XOR A,05h
 247  0020  3D0A        SZ [0ah].2
 247  0021  2800     R  JMP L99
 247  0022  0700     R  MOV A,b0_16
 247  0023  0C06        XOR A,06h
 247  0024  3D0A        SZ [0ah].2
 247  0025  2800     R  JMP L98
 247  0026  2800     R  JMP L97
 247  0027              L98:

; 250:            picnb=2;
 250  0027  0F00     R  MOV A,BANK _picnb
 250  0028  0084        MOV [04H],A
 250  0029  0F00     R  MOV A,OFFSET _picnb
 250  002A  0083        MOV [03H],A
 250  002B  0F02        MOV A,02h
 250  002C  0082        MOV [02H],A

; 251:            showpn();//调用lcd接口输入为以上数组 将显示对应的画面
 251  002D  2000     R  CALL _showpn

; 252:            break;
 252  002E  2800     R  JMP L97
 252  002F              L99:

; 254:               if(picnb==2)
 254  002F  0F00     R  MOV A,BANK _picnb
 254  0030  0084        MOV [04H],A
 254  0031  0F00     R  MOV A,OFFSET _picnb
 254  0032  0083        MOV [03H],A
 254  0033  0702        MOV A,[02H]
 254  0034  0C02        XOR A,02h
 254  0035  390A        SNZ [0AH].2
 254  0036  2800     R  JMP L100

; 256:                   	  if(focnb==0)
 256  0037  0F00     R  MOV A,BANK _focnb
 256  0038  0084        MOV [04H],A
 256  0039  0F00     R  MOV A,OFFSET _focnb
 256  003A  0083        MOV [03H],A
 256  003B  1082        SZ [02H]
 256  003C  2800     R  JMP L102

; 258:               	        pflag1=0;//time the curtime
 258  003D  0F00     R  MOV A,BANK _pflag1
 258  003E  0084        MOV [04H],A
 258  003F  0F00     R  MOV A,OFFSET _pflag1
 258  0040  0083        MOV [03H],A
 258  0041  1F02        CLR [02H]

; 259:               	      }
文件:WANJTEST.c   盛群编译器版本 2.86 页次19 

 259  0042  2800     R  JMP L103
文件:WANJTEST.C   盛群编译器版本 2.86 页次18

 259  0043              L102:

; 260:                       else if(focnb==1)
 260  0043  0F00     R  MOV A,BANK _focnb
 260  0044  0084        MOV [04H],A
 260  0045  0F00     R  MOV A,OFFSET _focnb
 260  0046  0083        MOV [03H],A
 260  0047  0702        MOV A,[02H]
 260  0048  0C01        XOR A,01h
 260  0049  390A        SNZ [0AH].2
 260  004A  2800     R  JMP L104

; 261:               	      {pflag1=1;}//time the task
 261  004B  0F00     R  MOV A,BANK _pflag1
 261  004C  0084        MOV [04H],A
 261  004D  0F00     R  MOV A,OFFSET _pflag1
 261  004E  0083        MOV [03H],A
 261  004F  0F01        MOV A,01h
 261  0050  0082        MOV [02H],A
 261  0051  2800     R  JMP L105
 261  0052              L104:

; 262:                       else if(focnb==2)
 262  0052  0F00     R  MOV A,BANK _focnb
 262  0053  0084        MOV [04H],A
 262  0054  0F00     R  MOV A,OFFSET _focnb
 262  0055  0083        MOV [03H],A
 262  0056  0702        MOV A,[02H]
 262  0057  0C02        XOR A,02h
 262  0058  390A        SNZ [0AH].2
 262  0059  2800     R  JMP L106

; 263:               	      {pflag1=2;}//del the task
 263  005A  0F00     R  MOV A,BANK _pflag1
 263  005B  0084        MOV [04H],A
 263  005C  0F00     R  MOV A,OFFSET _pflag1
 263  005D  0083        MOV [03H],A
 263  005E  0F02        MOV A,02h
 263  005F  0082        MOV [02H],A
 263  0060              L106:
 263  0060              L105:
 263  0060              L103:
 263  0060              L100:

; 265:                   if((pflag1==1)&&(picnb==5))
 265  0060  0F00     R  MOV A,BANK _pflag1
 265  0061  0084        MOV [04H],A
 265  0062  0F00     R  MOV A,OFFSET _pflag1
 265  0063  0083        MOV [03H],A
 265  0064  0702        MOV A,[02H]
 265  0065  0C01        XOR A,01h
 265  0066  390A        SNZ [0AH].2

⌨️ 快捷键说明

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