12864.lst

lcd t6963 汇编 51 lcd t6963 汇编 51

A51 MACRO ASSEMBLER  12864                                                                08/18/2005 21:41:06 PAGE     1


MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN 12864.OBJ
ASSEMBLER INVOKED BY: D:\KeilC51v750\C51\BIN\A51.EXE 12864.ASM SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

  00B3                 1       WE EQU P3.3
  00B2                 2       RE EQU P3.2
  00B1                 3       A0 EQU P3.1
  00B0                 4       RST EQU P3.0
                       5       ;FS1 EQU P3.5
  0030                 6       X   EQU 30H
  0031                 7       Y   EQU 31H
                       8      
0000                   9       ORG 0000H
                      10          
0000 D2B0             11          SETB RST
0002 7D01             12          MOV R5,#01H
0004 C2B0             13     REST:CLR RST
0006 120189           14          LCALL D1
0009 D2B0             15          SETB RST
000B 120189           16          LCALL D1
000E DDF4             17          DJNZ R5,REST
0010 D2B3             18          SETB WE
0012 D2B2             19          SETB RE
0014 D2B1             20          SETB A0
                      21     ;     CLR  FS1
                      22        ;-----------INIT SET 0
0016                  23     MAIN: 
                      24     
                      25     
                      26     
                      27     
                      28     
                      29     
                      30     
                      31     
                      32     
                      33     
                      34     
                      35     
                      36     
                      37     
                      38     
                      39     
                      40     
                      41     
                      42     
                      43     
                      44     
                      45     
                      46     
                      47     
                      48     
                      49     
                      50     
                      51     
                      52     
                      53     
                      54     
                      55     
                      56     
                      57     
                      58     
A51 MACRO ASSEMBLER  12864                                                                08/18/2005 21:41:06 PAGE     2

                      59     
                      60     
                      61     
                      62     
                      63     
                      64     
                      65     
                      66     
                      67     
                      68     
                      69     
                      70     
                      71     
                      72     
0016                  73      DDZ:     ;SETB FS1
                      74     
0016 75A097           75           MOV P2,#97H
0019 12017F           76           LCALL INS    ;display off
001C 75A080           77            MOV P2,#80H  ;or mode
001F 12017F           78            LCALL INS    
0022 75A0A7           79           MOV P2,#0A7H   ;  8--line cursor
0025 12017F           80           LCALL INS
0028 753100           81           MOV Y,#00H
002B 1200C2           82           LCALL AA1     ;text mode
                      83      
002E 7E10             84            MOV R6,#10H   ;display 16 char  （ 8*8 点阵）
0030 9001BA           85      LOOPP3:MOV DPTR,#TAB6
0033 1200F9           86            LCALL AA5
0036 0531             87            INC Y          ;丛坐标加一  Y，最大有8行
0038 DEF6             88            DJNZ R6,LOOPP3
                      89     
                      90        
                      91     
003A 75A097           92             MOV P2,#97H
003D 12017F           93           LCALL INS    ;display off
0040 75A080           94            MOV P2,#80H  ;or mode
0043 12017F           95            LCALL INS    
0046 75A0A7           96           MOV P2,#0A7H   ;  8--line cursor
0049 12017F           97           LCALL INS
                      98     
004C 753100           99           MOV Y,#00H
004F 12008B          100           LCALL SET_CHAR_ADDRESS     ;text mode
0052 7E10            101          MOV R6,#10H   ;display 16 char  （ 8*8 点阵）
0054 900192          102      LOOP3:MOV DPTR,#TAB1
0057 120060          103            LCALL CHAR
005A 0531            104            INC Y          ;丛坐标加一  Y，最大有8行
005C DEF6            105            DJNZ R6,LOOP3
                     106     
                     107     
                     108          
005E 015E            109       ZHAOEND :  AJMP ZHAOEND     
                     110      
0060 E4              111       CHAR:   CLR A        ;MOV 40 BYTE
0061 7D03            112          MOV R5,#03H
0063 753000          113          MOV X,#00H
0066 E4              114      CDDJ2:CLR A
0067 0530            115           INC X
0069 93              116           MOVC A,@A+DPTR
006A F5A0            117           MOV P2,A
006C 120178          118           LCALL DAT
                     119     
006F 75A0C0          120           MOV P2,#0C0H      ;data write and ADP increment
0072 A3              121           INC DPTR
0073 12017F          122           LCALL INS  
                     123     
0076 8530A0          124           MOV P2,X
A51 MACRO ASSEMBLER  12864                                                                08/18/2005 21:41:06 PAGE     3

0079 120178          125           LCALL DAT
007C 8531A0          126           MOV P2,Y
007F 120178          127           LCALL DAT
0082 75A021          128           MOV P2,#21H
0085 12017F          129            LCALL INS     ;set cursor pointer
                     130     
0088 DDDC            131           DJNZ R5,CDDJ2
008A 22              132           RET
008B 75A0F2          133     SET_CHAR_ADDRESS:MOV P2,#0F2H  ;SET CHAR MODE
008E 120178          134         LCALL DAT
0091 75A017          135         MOV P2,#17H
0094 120178          136         LCALL DAT
0097 75A040          137         MOV P2,#40H   ;set text home address
009A 12017F          138         LCALL INS
                     139     
009D 75A0F2          140         MOV P2,#0F2H
00A0 120178          141         LCALL DAT
00A3 75A017          142         MOV P2,#17H
00A6 120178          143         LCALL DAT
00A9 75A024          144         MOV P2,#24H    ;set address pointer=home address
00AC 12017F          145         LCALL INS
                     146     
00AF 75A028          147         MOV P2,#28H    ; 40 columns
00B2 120178          148         LCALL DAT
00B5 75A000          149         MOV P2,#00H   
00B8 120178          150         LCALL DAT
00BB 75A041          151         MOV P2,#41H     ;set text area 
00BE 12017F          152         LCALL INS
                     153     
00C1 22              154         RET
                     155         
00C2 75A0FF          156     AA1:MOV P2,#0FFH  ;SET CHAR MODE
00C5 120178          157         LCALL DAT
00C8 75A017          158         MOV P2,#17H
00CB 120178          159         LCALL DAT
00CE 75A040          160         MOV P2,#40H   ;set text home address
00D1 12017F          161         LCALL INS
                     162     
00D4 75A0FF          163         MOV P2,#0FFH
00D7 120178          164         LCALL DAT
00DA 75A017          165         MOV P2,#17H
00DD 120178          166         LCALL DAT
00E0 75A024          167         MOV P2,#24H    ;set address pointer=home address
00E3 12017F          168         LCALL INS
                     169     
00E6 75A028          170         MOV P2,#28H    ; 40 columns