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

📄 wanjt3.lst

📁 一个用嵌入c写的万年历程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
文件:WANJT3.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

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

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

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

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

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

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

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

;  94:   v1=0;
  94  0000  1F00     R  CLR _v1

;  95:   v2=0; 
  95  0001  1F00     R  CLR _v2
文件:WANJT3.c     盛群编译器版本 2.86 页次3 

  95  0002  2800     R  JMP L7
  95  0003              L9:
文件:WANJT3.C     盛群编译器版本 2.86 页次3


;  98:   delay(100); 
  98  0003  0F64        MOV A,064h
  98  0004  0080     R  MOV delay0,A
  98  0005  2000     R  CALL _delay
  98  0006              L10:

;  97:   {while(++v2<=10) 
  97  0006  1400     R  INCA _v2
  97  0007  0080     R  MOV b0_2,A
  97  0008  0700     R  MOV A,b0_2
  97  0009  0080     R  MOV _v2,A
  97  000A  0F0A        MOV A,0ah
  97  000B  0200     R  SUB A,b0_2
  97  000C  3C0A        SZ [0ah].0
  97  000D  2800     R  JMP L9
  97  000E              L7:

;  96:   while(++v1<=ms) 
  96  000E  1400     R  INCA _v1
  96  000F  0080     R  MOV b0_2,A
  96  0010  0700     R  MOV A,b0_2
  96  0011  0080     R  MOV _v1,A
  96  0012  0700     R  MOV A,delay10
  96  0013  0200     R  SUB A,b0_2
  96  0014  3C0A        SZ [0ah].0
  96  0015  2800     R  JMP L10
  96  0016              L5:
  96  0016  0003        RET
  96  0001  00          LOCAL b0_2 DB ?
  96  0017              _delay1 ENDP

; 102: { 
 102  0000              @wr_lcd .SECTION 'CODE'
 102  0000              PUBLIC _wr_lcd
 102  0000              _wr_lcd PROC

; 101: void wr_lcd (uchar dat_comm,uchar content) 
 101  0000              PUBLIC wr_lcd0
 101  0000  00          LOCAL wr_lcd0 DB ? ; dat_comm
 101  0000              PUBLIC wr_lcd1
 101  0001  00          LOCAL wr_lcd1 DB ? ; content

; 105:   v1=content; 
 105  0000  0700     R  MOV A,wr_lcd1
 105  0001  0080     R  MOV _v1,A

; 106:   cs=1; 
 106  0002  3116        SET [016H].2

; 107:   sclk=0; 
 107  0003  3416        CLR [016H].0

; 108:   std=1; 
 108  0004  3196        SET [016H].3

; 109:   for(v2=0;v2<5;v2++) 
文件:WANJT3.c     盛群编译器版本 2.86 页次4 

 109  0005  1F00     R  CLR _v2
 109  0006  2800     R  JMP L16
 109  0007              L13:

; 111:     sclk=1; 
文件:WANJT3.C     盛群编译器版本 2.86 页次4

 111  0007  3016        SET [016H].0

; 112:     sclk=0; 
 112  0008  3416        CLR [016H].0
 112  0009              L14:

; 109:   for(v2=0;v2<5;v2++) 
 109  0009  1480     R  INC _v2
 109  000A              L16:
 109  000A  0700     R  MOV A,_v2
 109  000B  0A05        SUB A,05h
 109  000C  380A        SNZ [0ah].0
 109  000D  2800     R  JMP L13

; 114:   std=0; 
 114  000E  3596        CLR [016H].3

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

; 116:   sclk=0; 
 116  0010  3416        CLR [016H].0

; 117:   if(dat_comm) 
 117  0011  1080     R  SZ wr_lcd0
 117  0012  2800     R  JMP L31
 117  0013  2800     R  JMP L17
 117  0014              L31:

; 118:     std=1;   //data 
 118  0014  3196        SET [016H].3
 118  0015  2800     R  JMP L18
 118  0016              L17:

; 120:     std=0;   //command 
 120  0016  3596        CLR [016H].3
 120  0017              L18:

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

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

; 123:   std=0; 
 123  0019  3596        CLR [016H].3

; 124:   sclk=1; 
 124  001A  3016        SET [016H].0

; 125:   sclk=0; 
 125  001B  3416        CLR [016H].0

; 126:   for(v3=0;v3<2;v3++) 
文件:WANJT3.c     盛群编译器版本 2.86 页次5 

 126  001C  1F00     R  CLR _v3
 126  001D  2800     R  JMP L22
 126  001E              L19:

; 128:     for(v2=0;v2<4;v2++) 
 128  001E  1F00     R  CLR _v2
 128  001F  2800     R  JMP L26
 128  0020              L23:

; 130:       v1=v1<<1; 
 130  0020  340A        CLR [0AH].0
 130  0021  1A80     R  RLC _v1

; 131:       std=_c; 
 131  0022  0716        MOV A,[016H]
 131  0023  3585        CLR [05H].3
文件:WANJT3.C     盛群编译器版本 2.86 页次5

 131  0024  3C0A        SZ [0AH].0
 131  0025  3185        SET [05H].3
 131  0026  0096        MOV [016H],A

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

; 133:       sclk=0; 
 133  0028  3416        CLR [016H].0
 133  0029              L24:

; 128:     for(v2=0;v2<4;v2++) 
 128  0029  1480     R  INC _v2
 128  002A              L26:
 128  002A  0700     R  MOV A,_v2
 128  002B  0A04        SUB A,04h
 128  002C  380A        SNZ [0ah].0
 128  002D  2800     R  JMP L23

; 135:     std=0; 
 135  002E  3596        CLR [016H].3

; 136:     for(v2=0;v2<4;v2++) 
 136  002F  1F00     R  CLR _v2
 136  0030  2800     R  JMP L30
 136  0031              L27:

; 138:       sclk=1; 
 138  0031  3016        SET [016H].0

; 139:       sclk=0; 
 139  0032  3416        CLR [016H].0
 139  0033              L28:

; 136:     for(v2=0;v2<4;v2++) 
 136  0033  1480     R  INC _v2
 136  0034              L30:
 136  0034  0700     R  MOV A,_v2
 136  0035  0A04        SUB A,04h
 136  0036  380A        SNZ [0ah].0
 136  0037  2800     R  JMP L27
 136  0038              L20:
文件:WANJT3.c     盛群编译器版本 2.86 页次6 


; 126:   for(v3=0;v3<2;v3++) 
 126  0038  1480     R  INC _v3
 126  0039              L22:
 126  0039  0700     R  MOV A,_v3
 126  003A  0A02        SUB A,02h
 126  003B  380A        SNZ [0ah].0
 126  003C  2800     R  JMP L19
 126  003D              L12:
 126  003D  0003        RET
 126  003E              _wr_lcd ENDP

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

; 144: void img_disp (uchar *img) 
 144  0000              PUBLIC img_disp0
 144  0000  0002[       LOCAL img_disp0 DB 2 DUP (?) ; img
文件:WANJT3.C     盛群编译器版本 2.86 页次6

            00
            ]

; 147:   for(v2=0;v2<16;v2++) 
 147  0000  1F00     R  CLR _v2
 147  0001  2800     R  JMP L36
 147  0002              L33:

; 149:     for(v1=0;v1<10;v1++) 
 149  0002  1F00     R  CLR _v1
 149  0003  2800     R  JMP L40
 149  0004              L37:

; 151:       wr_lcd (comm,0x34); 
 151  0004  0F00        MOV A,00h
 151  0005  0080     R  MOV wr_lcd0,A
 151  0006  0F34        MOV A,034h
 151  0007  0080     R  MOV wr_lcd1,A
 151  0008  2000     R  CALL _wr_lcd

; 152:       wr_lcd (comm,y+v2); 
 152  0009  0F00        MOV A,00h
 152  000A  0080     R  MOV wr_lcd0,A
 152  000B  0700     R  MOV A,_v2
 152  000C  0B80        ADD A,080h
 152  000D  0080     R  MOV b0_4,A
 152  000E  0700     R  MOV A,b0_4
 152  000F  0080     R  MOV wr_lcd1,A
 152  0010  2000     R  CALL _wr_lcd

; 153:       wr_lcd (comm,x+v1); 
 153  0011  0F00        MOV A,00h
 153  0012  0080     R  MOV wr_lcd0,A
 153  0013  0700     R  MOV A,_v1
 153  0014  0B80        ADD A,080h
 153  0015  0080     R  MOV b0_4,A
 153  0016  0700     R  MOV A,b0_4
 153  0017  0080     R  MOV wr_lcd1,A
文件:WANJT3.c     盛群编译器版本 2.86 页次7 

 153  0018  2000     R  CALL _wr_lcd

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

; 155:       wr_lcd (dat,img[v2*20+v1*2]); 
 155  001E  0F01        MOV A,01h
 155  001F  0080     R  MOV wr_lcd0,A
 155  0020  0700     R  MOV A,_v2
 155  0021  0080     E  MOV T2,A
 155  0022  0F14        MOV A,014h
 155  0023  2000     E  CALL MULI
 155  0024  0080     R  MOV b0_4,A

⌨️ 快捷键说明

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