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

📄 wanjt2.lst

📁 一个用嵌入c写的万年历程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
文件:WANJT2.c     盛群编译器版本 2.86 页次1



;  19: const char week[42]="mondaytuesdawednesthursdfridaysaturdsunday";
  19  0000              rombank 0 _week
  19  0000              _week .SECTION INPAGE'CODE'
  19  0000              l_week:
  19  0000  0086        MOV [06h],A
  19  0001              _week:
  19  0001  096D        RET A,109
  19  0002  096F        RET A,111
  19  0003  096E        RET A,110
  19  0004  0964        RET A,100
  19  0005  0961        RET A,97
  19  0006  0979        RET A,121
  19  0007  0974        RET A,116
  19  0008  0975        RET A,117
  19  0009  0965        RET A,101
  19  000A  0973        RET A,115
  19  000B  0964        RET A,100
  19  000C  0961        RET A,97
  19  000D  0977        RET A,119
  19  000E  0965        RET A,101
  19  000F  0964        RET A,100
  19  0010  096E        RET A,110
  19  0011  0965        RET A,101
  19  0012  0973        RET A,115
  19  0013  0974        RET A,116
  19  0014  0968        RET A,104
  19  0015  0975        RET A,117
  19  0016  0972        RET A,114
  19  0017  0973        RET A,115
  19  0018  0964        RET A,100
  19  0019  0966        RET A,102
  19  001A  0972        RET A,114
  19  001B  0969        RET A,105
  19  001C  0964        RET A,100
  19  001D  0961        RET A,97
  19  001E  0979        RET A,121
  19  001F  0973        RET A,115
  19  0020  0961        RET A,97
  19  0021  0974        RET A,116
  19  0022  0975        RET A,117
  19  0023  0972        RET A,114
  19  0024  0964        RET A,100
  19  0025  0973        RET A,115
  19  0026  0975        RET A,117
  19  0027  096E        RET A,110
  19  0028  0964        RET A,100
  19  0029  0961        RET A,97
  19  002A  0979        RET A,121

;  86: { 
  86  002B              __tbhp EQU [01fH]
  86  002B              __scc EQU [01cH]
  86  002B              __usr EQU [01bH]
  86  002B              __usc EQU [01aH]
  86  002B              __pdc EQU [019H]
  86  002B              __pd EQU [018H]
  86  002B              __pcc EQU [017H]
文件:WANJT2.c     盛群编译器版本 2.86 页次2 

  86  002B              __pc EQU [016H]
文件:WANJT2.C     盛群编译器版本 2.86 页次2

  86  002B              __pbc EQU [015H]
  86  002B              __pb EQU [014H]
  86  002B              __pac EQU [013H]
  86  002B              __pa EQU [012H]
  86  002B              __tmr1c EQU [011H]
  86  002B              __tmr1l EQU [010H]
  86  002B              __tmr1h EQU [0fH]
  86  002B              __tmr0c EQU [0eH]
  86  002B              __tmr0 EQU [0dH]
  86  002B              __intc EQU [0bH]
  86  002B              __status EQU [0aH]
  86  002B              __wdts EQU [09H]
  86  002B              __tblh EQU [08H]
  86  002B              __tblp EQU [07H]
  86  002B              __pcl EQU [06H]
  86  002B              __acc EQU [05H]
  86  002B              __bp EQU [04H]
  86  002B              __mp1 EQU [03H]
  86  002B              __iar1 EQU [02H]
  86  002B              __mp0 EQU [01H]
  86  002B              __iar0 EQU [00H]
  86  0000              @delay .SECTION 'CODE'
  86  0000              PUBLIC _delay
  86  0000              _delay PROC

;  85: void delay (uint us)   //delay time 
  85  0000              PUBLIC delay0
  85  0000  00          LOCAL delay0 DB ? ; us
  85  0000              L2:
  85  0000              L3:

;  87:   while(--us); 
  87  0000  1500     R  DECA delay0
  87  0001  0080     R  MOV b0_1,A
  87  0002  0700     R  MOV A,b0_1
  87  0003  0080     R  MOV delay0,A
  87  0004  1080     R  SZ b0_1
  87  0005  2800     R  JMP L2
  87  0006              L1:
  87  0006  0003        RET
  87  0001  00          LOCAL b0_1 DB ?
  87  0007              _delay ENDP

;  90: { 
  90  0000              @delay1 .SECTION 'CODE'
  90  0000              PUBLIC _delay1
  90  0000              _delay1 PROC

;  89: void delay1 (uint ms) 
  89  0000              PUBLIC delay10
  89  0000  00          LOCAL delay10 DB ? ; ms

;  91:   v1=0;
  91  0000  0F00     R  MOV A,BANK _v1
  91  0001  0084        MOV [04H],A
  91  0002  0F00     R  MOV A,OFFSET _v1
  91  0003  0083        MOV [03H],A
文件:WANJT2.c     盛群编译器版本 2.86 页次3 

  91  0004  1F02        CLR [02H]

;  92:   v2=0; 
文件:WANJT2.C     盛群编译器版本 2.86 页次3

  92  0005  0F00     R  MOV A,BANK _v2
  92  0006  0084        MOV [04H],A
  92  0007  0F00     R  MOV A,OFFSET _v2
  92  0008  0083        MOV [03H],A
  92  0009  1F02        CLR [02H]
  92  000A  2800     R  JMP L7
  92  000B              L9:

;  95:   delay(1); 
  95  000B  0F01        MOV A,01h
  95  000C  0080     R  MOV delay0,A
  95  000D  2000     R  CALL _delay
  95  000E              L10:

;  94:   {while(++v2<=15) 
  94  000E  0F00     R  MOV A,BANK _v2
  94  000F  0084        MOV [04H],A
  94  0010  0F00     R  MOV A,OFFSET _v2
  94  0011  0083        MOV [03H],A
  94  0012  1402        INCA [02H]
  94  0013  0080     R  MOV b0_2,A
  94  0014  0F00     R  MOV A,BANK _v2
  94  0015  0084        MOV [04H],A
  94  0016  0F00     R  MOV A,OFFSET _v2
  94  0017  0083        MOV [03H],A
  94  0018  0700     R  MOV A,b0_2
  94  0019  0082        MOV [02H],A
  94  001A  0F0F        MOV A,0fh
  94  001B  0200     R  SUB A,b0_2
  94  001C  3C0A        SZ [0ah].0
  94  001D  2800     R  JMP L9
  94  001E              L7:

;  93:   while(++v1<=ms) 
  93  001E  0F00     R  MOV A,BANK _v1
  93  001F  0084        MOV [04H],A
  93  0020  0F00     R  MOV A,OFFSET _v1
  93  0021  0083        MOV [03H],A
  93  0022  1402        INCA [02H]
  93  0023  0080     R  MOV b0_2,A
  93  0024  0F00     R  MOV A,BANK _v1
  93  0025  0084        MOV [04H],A
  93  0026  0F00     R  MOV A,OFFSET _v1
  93  0027  0083        MOV [03H],A
  93  0028  0700     R  MOV A,b0_2
  93  0029  0082        MOV [02H],A
  93  002A  0700     R  MOV A,delay10
  93  002B  0200     R  SUB A,b0_2
  93  002C  3C0A        SZ [0ah].0
  93  002D  2800     R  JMP L10
  93  002E              L5:
  93  002E  0003        RET
  93  0001  00          LOCAL b0_2 DB ?
  93  002F              _delay1 ENDP

;  99: { 
文件:WANJT2.c     盛群编译器版本 2.86 页次4 

  99  0000              @wr_lcd .SECTION 'CODE'
  99  0000              PUBLIC _wr_lcd
  99  0000              _wr_lcd PROC

;  98: void wr_lcd (uchar dat_comm,uchar content) 
文件:WANJT2.C     盛群编译器版本 2.86 页次4

  98  0000              PUBLIC wr_lcd0
  98  0000  00          LOCAL wr_lcd0 DB ? ; dat_comm
  98  0000              PUBLIC wr_lcd1
  98  0001  00          LOCAL wr_lcd1 DB ? ; content

; 102:   v1=content; 
 102  0000  0F00     R  MOV A,BANK _v1
 102  0001  0084        MOV [04H],A
 102  0002  0F00     R  MOV A,OFFSET _v1
 102  0003  0083        MOV [03H],A
 102  0004  0700     R  MOV A,wr_lcd1
 102  0005  0082        MOV [02H],A

; 103:   cs=1; 
 103  0006  3116        SET [016H].2

; 104:   sclk=0; 
 104  0007  3416        CLR [016H].0

; 105:   std=1; 
 105  0008  3196        SET [016H].3

; 106:   for(v2=0;v2<5;v2++) 
 106  0009  0F00     R  MOV A,BANK _v2
 106  000A  0084        MOV [04H],A
 106  000B  0F00     R  MOV A,OFFSET _v2
 106  000C  0083        MOV [03H],A
 106  000D  1F02        CLR [02H]
 106  000E  2800     R  JMP L16
 106  000F              L13:

; 108:     sclk=1; 
 108  000F  3016        SET [016H].0

; 109:     sclk=0; 
 109  0010  3416        CLR [016H].0
 109  0011              L14:

; 106:   for(v2=0;v2<5;v2++) 
 106  0011  0F00     R  MOV A,BANK _v2
 106  0012  0084        MOV [04H],A
 106  0013  0F00     R  MOV A,OFFSET _v2
 106  0014  0083        MOV [03H],A
 106  0015  1482        INC [02H]
 106  0016              L16:
 106  0016  0F00     R  MOV A,BANK _v2
 106  0017  0084        MOV [04H],A
 106  0018  0F00     R  MOV A,OFFSET _v2
 106  0019  0083        MOV [03H],A
 106  001A  0702        MOV A,[02H]
 106  001B  0A05        SUB A,05h
 106  001C  380A        SNZ [0AH].0
 106  001D  2800     R  JMP L13
文件:WANJT2.c     盛群编译器版本 2.86 页次5 


; 111:   std=0; 
 111  001E  3596        CLR [016H].3

; 112:   sclk=1; 
 112  001F  3016        SET [016H].0

; 113:   sclk=0; 
 113  0020  3416        CLR [016H].0

; 114:   if(dat_comm) 
文件:WANJT2.C     盛群编译器版本 2.86 页次5

 114  0021  1080     R  SZ wr_lcd0
 114  0022  2800     R  JMP L31
 114  0023  2800     R  JMP L17
 114  0024              L31:

; 115:     std=1;   //data 
 115  0024  3196        SET [016H].3
 115  0025  2800     R  JMP L18
 115  0026              L17:

; 117:     std=0;   //command 
 117  0026  3596        CLR [016H].3
 117  0027              L18:

; 118:   sclk=1; 
 118  0027  3016        SET [016H].0

; 119:   sclk=0; 
 119  0028  3416        CLR [016H].0

; 120:   std=0; 
 120  0029  3596        CLR [016H].3

; 121:   sclk=1; 
 121  002A  3016        SET [016H].0

; 122:   sclk=0; 
 122  002B  3416        CLR [016H].0

; 123:   for(v3=0;v3<2;v3++) 
 123  002C  0F00     R  MOV A,BANK _v3
 123  002D  0084        MOV [04H],A
 123  002E  0F00     R  MOV A,OFFSET _v3
 123  002F  0083        MOV [03H],A
 123  0030  1F02        CLR [02H]
 123  0031  2800     R  JMP L22
 123  0032              L19:

; 125:     for(v2=0;v2<4;v2++) 
 125  0032  0F00     R  MOV A,BANK _v2
 125  0033  0084        MOV [04H],A
 125  0034  0F00     R  MOV A,OFFSET _v2
 125  0035  0083        MOV [03H],A
 125  0036  1F02        CLR [02H]
 125  0037  2800     R  JMP L26
 125  0038              L23:

; 127:       v1=v1<<1; 
文件:WANJT2.c     盛群编译器版本 2.86 页次6 

 127  0038  0F00     R  MOV A,BANK _v1
 127  0039  0084        MOV [04H],A
 127  003A  0F00     R  MOV A,OFFSET _v1
 127  003B  0083        MOV [03H],A
 127  003C  340A        CLR [0AH].0
 127  003D  1A82        RLC [02H]

; 128:       std=_c; 
 128  003E  0716        MOV A,[016H]
 128  003F  3585        CLR [05H].3
 128  0040  3C0A        SZ [0AH].0
 128  0041  3185        SET [05H].3
 128  0042  0096        MOV [016H],A

; 129:       sclk=1; 
 129  0043  3016        SET [016H].0

; 130:       sclk=0; 
 130  0044  3416        CLR [016H].0
 130  0045              L24:
文件:WANJT2.C     盛群编译器版本 2.86 页次6


; 125:     for(v2=0;v2<4;v2++) 
 125  0045  0F00     R  MOV A,BANK _v2
 125  0046  0084        MOV [04H],A
 125  0047  0F00     R  MOV A,OFFSET _v2
 125  0048  0083        MOV [03H],A
 125  0049  1482        INC [02H]
 125  004A              L26:
 125  004A  0F00     R  MOV A,BANK _v2
 125  004B  0084        MOV [04H],A
 125  004C  0F00     R  MOV A,OFFSET _v2
 125  004D  0083        MOV [03H],A
 125  004E  0702        MOV A,[02H]
 125  004F  0A04        SUB A,04h
 125  0050  380A        SNZ [0AH].0
 125  0051  2800     R  JMP L23

; 132:     std=0; 
 132  0052  3596        CLR [016H].3

; 133:     for(v2=0;v2<4;v2++) 
 133  0053  0F00     R  MOV A,BANK _v2
 133  0054  0084        MOV [04H],A
 133  0055  0F00     R  MOV A,OFFSET _v2
 133  0056  0083        MOV [03H],A
 133  0057  1F02        CLR [02H]
 133  0058  2800     R  JMP L30
 133  0059              L27:

; 135:       sclk=1; 
 135  0059  3016        SET [016H].0

; 136:       sclk=0; 
 136  005A  3416        CLR [016H].0
 136  005B              L28:

; 133:     for(v2=0;v2<4;v2++) 
 133  005B  0F00     R  MOV A,BANK _v2
文件:WANJT2.c     盛群编译器版本 2.86 页次7 

 133  005C  0084        MOV [04H],A
 133  005D  0F00     R  MOV A,OFFSET _v2
 133  005E  0083        MOV [03H],A
 133  005F  1482        INC [02H]
 133  0060              L30:
 133  0060  0F00     R  MOV A,BANK _v2
 133  0061  0084        MOV [04H],A
 133  0062  0F00     R  MOV A,OFFSET _v2
 133  0063  0083        MOV [03H],A
 133  0064  0702        MOV A,[02H]
 133  0065  0A04        SUB A,04h
 133  0066  380A        SNZ [0AH].0
 133  0067  2800     R  JMP L27
 133  0068              L20:

; 123:   for(v3=0;v3<2;v3++) 

⌨️ 快捷键说明

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