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

📄 wanjtest.lst

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



;  21: const uchar msg[41] = "mondaymondaymonday  2006.05.02 16:41:23 ";
  21  0000              rombank 0 _msg
  21  0000              _msg .SECTION INPAGE'CODE'
  21  0000              l_msg:
  21  0000  0086        MOV [06h],A
  21  0001              _msg:
  21  0001  096D        RET A,109
  21  0002  096F        RET A,111
  21  0003  096E        RET A,110
  21  0004  0964        RET A,100
  21  0005  0961        RET A,97
  21  0006  0979        RET A,121
  21  0007  096D        RET A,109
  21  0008  096F        RET A,111
  21  0009  096E        RET A,110
  21  000A  0964        RET A,100
  21  000B  0961        RET A,97
  21  000C  0979        RET A,121
  21  000D  096D        RET A,109
  21  000E  096F        RET A,111
  21  000F  096E        RET A,110
  21  0010  0964        RET A,100
  21  0011  0961        RET A,97
  21  0012  0979        RET A,121
  21  0013  0920        RET A,32
  21  0014  0920        RET A,32
  21  0015  0932        RET A,50
  21  0016  0930        RET A,48
  21  0017  0930        RET A,48
  21  0018  0936        RET A,54
  21  0019  092E        RET A,46
  21  001A  0930        RET A,48
  21  001B  0935        RET A,53
  21  001C  092E        RET A,46
  21  001D  0930        RET A,48
  21  001E  0932        RET A,50
  21  001F  0920        RET A,32
  21  0020  0931        RET A,49
  21  0021  0936        RET A,54
  21  0022  093A        RET A,58
  21  0023  0934        RET A,52
  21  0024  0931        RET A,49
  21  0025  093A        RET A,58
  21  0026  0932        RET A,50
  21  0027  0933        RET A,51
  21  0028  0920        RET A,32
  21  0029  0900        RET A,0

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

  25  002A              __pbc EQU [015H]
文件:WANJTEST.C   盛群编译器版本 2.86 页次2

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

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

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

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

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

;  29: { 
  29  0000  2800     R  JMP L7
  29  0001              L9:

;  33:   delay(1); 
  33  0001  0F01        MOV A,01h
文件:WANJTEST.c   盛群编译器版本 2.86 页次3 

  33  0002  0080     R  MOV delay0,A
  33  0003  2000     R  CALL _delay
文件:WANJTEST.C   盛群编译器版本 2.86 页次3

  33  0004              L10:

;  32:   {while(++j<=1115) 
  32  0004  1400     R  INCA CR2
  32  0005  0080     R  MOV b0_2,A
  32  0006  0700     R  MOV A,b0_2
  32  0007  0080     R  MOV CR2,A
  32  0008  1F00     R  CLR b0_2[1]
  32  0009  0F80        MOV A,80h
  32  000A  0400     R  XOR A,b0_2[1]
  32  000B  0A84        SUB A,084h
  32  000C  380A        SNZ [0AH].0
  32  000D  2800     R  JMP L9
  32  000E  390A        SNZ [0AH].2
  32  000F  2800     R  JMP L12
  32  0010  0F5B        MOV A,05bh
  32  0011  0200     R  SUB A,b0_2
  32  0012  3C0A        SZ [0AH].0
  32  0013  2800     R  JMP L9
  32  0014              L12:
  32  0014              L7:

;  31:   while(++i<=(1000*ms)) 
  31  0014  1400     R  INCA CR3
  31  0015  0080     R  MOV b0_2,A
  31  0016  0700     R  MOV A,b0_2
  31  0017  0080     R  MOV CR3,A
  31  0018  1F00     R  CLR b0_2[1]
  31  0019  0700     R  MOV A,delay10
  31  001A  0080     R  MOV b1_2,A
  31  001B  1F00     R  CLR b1_2[1]
  31  001C  0700     R  MOV A,b1_2
  31  001D  0080     E  MOV T2,A
  31  001E  0700     R  MOV A,b1_2[1]
  31  001F  0080     E  MOV RH,A
  31  0020  0F03        MOV A,03h
  31  0021  0080     E  MOV T4,A
  31  0022  0FE8        MOV A,0e8h
  31  0023  2000     E  CALL MULL
  31  0024  0080     R  MOV b1_2[1],A
  31  0025  0700     E  MOV A,T6
  31  0026  0080     R  MOV b1_2,A
  31  0027  0F80        MOV A,80h
  31  0028  0400     R  XOR A,b1_2[1]
  31  0029  0080     E  MOV RH,A
  31  002A  0F80        MOV A,80h
  31  002B  0400     R  XOR A,b0_2[1]
  31  002C  0200     E  SUB A,RH
  31  002D  380A        SNZ [0AH].0
  31  002E  2800     R  JMP L10
  31  002F  390A        SNZ [0AH].2
  31  0030  2800     R  JMP L13
  31  0031  0700     R  MOV A,b1_2
  31  0032  0200     R  SUB A,b0_2
  31  0033  3C0A        SZ [0AH].0
  31  0034  2800     R  JMP L10
文件:WANJTEST.c   盛群编译器版本 2.86 页次4 

  31  0035              L13:
  31  0035              L5:
  31  0035  0003        RET
  31  0001  0002[       LOCAL b0_2 DB 2 DUP(?)
            00
文件:WANJTEST.C   盛群编译器版本 2.86 页次4

            ]
  31  0003  0002[       LOCAL b1_2 DB 2 DUP(?)
            00
            ]

;  30:   uint i,j; 
  30  0005  00          LOCAL CR2 DB ? ; j
  30  0006  00          LOCAL CR3 DB ? ; i
  30  0036              _delay1 ENDP

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

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

;  41:   a=content; 
  41  0000  0700     R  MOV A,wr_lcd1
  41  0001  0080     R  MOV CR7,A

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

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

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

;  45:   for(i=0;i<5;i++) 
  45  0005  1F00     R  CLR CR6
  45  0006  2800     R  JMP L18
  45  0007              L15:

;  47:     sclk=1; 
  47  0007  3016        SET [016H].0

;  48:     sclk=0; 
  48  0008  3416        CLR [016H].0
  48  0009              L16:

;  45:   for(i=0;i<5;i++) 
  45  0009  1480     R  INC CR6
  45  000A              L18:
  45  000A  0700     R  MOV A,CR6
  45  000B  0A05        SUB A,05h
  45  000C  380A        SNZ [0ah].0
  45  000D  2800     R  JMP L15
文件:WANJTEST.c   盛群编译器版本 2.86 页次5 


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

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

;  52:   sclk=0; 
  52  0010  3416        CLR [016H].0
文件:WANJTEST.C   盛群编译器版本 2.86 页次5


;  53:   if(dat_comm) 
  53  0011  1080     R  SZ wr_lcd0
  53  0012  2800     R  JMP L33
  53  0013  2800     R  JMP L19
  53  0014              L33:

;  54:     std=1;   //data 
  54  0014  3196        SET [016H].3
  54  0015  2800     R  JMP L20
  54  0016              L19:

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

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

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

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

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

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

;  62:   for(j=0;j<2;j++) 
  62  001C  1F00     R  CLR CR8
  62  001D  2800     R  JMP L24
  62  001E              L21:

;  64:     for(i=0;i<4;i++) 
  64  001E  1F00     R  CLR CR6
  64  001F  2800     R  JMP L28
  64  0020              L25:

;  66:       a=a<<1; 
  66  0020  340A        CLR [0AH].0
  66  0021  1A80     R  RLC CR7

;  67:       std=_c; 
  67  0022  0716        MOV A,[016H]
  67  0023  3585        CLR [05H].3
  67  0024  3C0A        SZ [0AH].0
文件:WANJTEST.c   盛群编译器版本 2.86 页次6 

  67  0025  3185        SET [05H].3
  67  0026  0096        MOV [016H],A

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

;  69:       sclk=0; 
  69  0028  3416        CLR [016H].0
  69  0029              L26:

;  64:     for(i=0;i<4;i++) 
  64  0029  1480     R  INC CR6
  64  002A              L28:
  64  002A  0700     R  MOV A,CR6
  64  002B  0A04        SUB A,04h
  64  002C  380A        SNZ [0ah].0
  64  002D  2800     R  JMP L25

;  71:     std=0; 
  71  002E  3596        CLR [016H].3
文件:WANJTEST.C   盛群编译器版本 2.86 页次6


;  72:     for(i=0;i<4;i++) 
  72  002F  1F00     R  CLR CR6
  72  0030  2800     R  JMP L32
  72  0031              L29:

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

;  75:       sclk=0; 
  75  0032  3416        CLR [016H].0
  75  0033              L30:

;  72:     for(i=0;i<4;i++) 
  72  0033  1480     R  INC CR6
  72  0034              L32:
  72  0034  0700     R  MOV A,CR6
  72  0035  0A04        SUB A,04h
  72  0036  380A        SNZ [0ah].0
  72  0037  2800     R  JMP L29
  72  0038              L22:

;  62:   for(j=0;j<2;j++) 
  62  0038  1480     R  INC CR8
  62  0039              L24:
  62  0039  0700     R  MOV A,CR8
  62  003A  0A02        SUB A,02h
  62  003B  380A        SNZ [0ah].0
  62  003C  2800     R  JMP L21
  62  003D              L14:
  62  003D  0003        RET

;  39:   uchar a,i,j; 
  39  0002  00          LOCAL CR6 DB ? ; i
  39  0003  00          LOCAL CR7 DB ? ; a
  39  0004  00          LOCAL CR8 DB ? ; j
  39  003E              _wr_lcd ENDP

;  81: { 
文件:WANJTEST.c   盛群编译器版本 2.86 页次7 

  81  0000              @init_lcd .SECTION 'CODE'
  81  0000              PUBLIC _init_lcd
  81  0000              _init_lcd PROC

;  82:   rst=1; 
  82  0000  3216        SET [016H].4

;  84:   wr_lcd (comm,0x30);  /*30---基本指令动作*/    
  84  0001  0F00        MOV A,00h
  84  0002  0080     R  MOV wr_lcd0,A
  84  0003  0F30        MOV A,030h
  84  0004  0080     R  MOV wr_lcd1,A
  84  0005  2000     R  CALL _wr_lcd

;  85:   wr_lcd (comm,0x01);  /*清屏,地址指针指向00H*/ 
  85  0006  0F00        MOV A,00h
  85  0007  0080     R  MOV wr_lcd0,A
  85  0008  0F01        MOV A,01h

⌨️ 快捷键说明

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