ex10-3.sdi

用PROTEUS仿真LCD-LM032L的汇编程序。

,,,;file name=ex10-3.asm for LCD exercise
,,,;***********************************************
,,,        ORG     00H
0000,01 30,,        AJMP    MAIN
,,,        ORG     30H
0030,,MAIN,MAIN:
0030,75 81 5F,,        MOV     SP,#5FH
0033,11 45,,        ACALL   INIT
0035,11 75,,        ACALL   FIRST
0037,90 00 BC,,        MOV     DPTR,#TABLE1
003A,11 68,,        ACALL   DISPLAY
003C,11 7A,,        ACALL   SECOND
003E,90 00 CE,,        MOV     DPTR,#TABLE2
0041,11 68,,        ACALL   DISPLAY
0043,80 FE,,        JMP     $
,,,;
0045,,INIT,INIT:
0045,11 B3,,        ACALL   DELAY
0047,74 38,,        MOV     A,#38H
0049,11 7F,,        ACALL   WRCOM
004B,74 38,,        MOV     A,#38H
004D,11 7F,,        ACALL   WRCOM
004F,74 38,,        MOV     A,#38H
0051,11 7F,,        ACALL   WRCOM
0053,74 38,,        MOV     A,#38H
0055,11 7F,,        ACALL   WRCOM
,,,;
0057,74 08,,        MOV     A,#08H
0059,11 7F,,        ACALL   WRCOM
,,,;
005B,74 01,,        MOV     A,#01H
005D,11 7F,,        ACALL   WRCOM
,,,;
005F,74 06,,        MOV     A,#06H
0061,11 7F,,        ACALL   WRCOM
,,,;
0063,74 0C,,        MOV     A,#0CH
0065,11 7F,,        ACALL   WRCOM
0067,22,,        RET
,,,;
0068,,DISPLAY,DISPLAY:
0068,79 00,,        MOV     R1,#00H
006A,,NEXT,NEXT:
006A,E9,,        MOV     A,R1
006B,93,,        MOVC    A,@A+DPTR
006C,B4 23 01,,        CJNE    A,#23H,DSP
006F,22,,        RET
0070,,DSP,DSP:
0070,11 90,,        ACALL   WRDATA
0072,09,,        INC     R1
0073,01 6A,,        AJMP    NEXT
0075,,FIRST,FIRST:
0075,74 80,,        MOV     A,#10000000B
0077,11 7F,,        ACALL   WRCOM
0079,22,,        RET
,,,;
007A,,SECOND,SECOND:
007A,74 C0,,        MOV     A,#11000000B
007C,11 7F,,        ACALL   WRCOM
007E,22,,        RET
,,,;
007F,,WRCOM,WRCOM:
007F,11 A1,,        ACALL   BUSY
0081,75 A0 F8,,        MOV     P2,#11111000B
0084,00,,        NOP
0085,D2 A2,,        SETB    P2.2
0087,F5 80,,        MOV     P0,A
0089,00,,        NOP
008A,C2 A2,,        CLR     P2.2
008C,12 00 B3,,        call    delay
008F,22,,        RET
0090,,WRDATA,WRDATA:
0090,11 A1,,        ACALL   BUSY
0092,75 A0 F9,,        MOV     P2,#11111001B
0095,00,,        NOP
0096,D2 A2,,        SETB    P2.2
0098,F5 80,,        MOV     P0,A
009A,00,,        NOP
009B,C2 A2,,        CLR     P2.2
009D,12 00 B3,,        call    delay
00A0,22,,        RET
00A1,,BUSY,BUSY:
00A1,C0 E0,,        PUSH    ACC
00A3,,WAIT,WAIT:
00A3,75 A0 FA,,        MOV     P2,#11111010B
00A6,00,,        NOP
00A7,D2 A2,,        SETB    P2.2
00A9,E5 80,,        MOV     A,P0
00AB,20 E7 F5,,        JB      ACC.7,WAIT
00AE,C2 A2,,        CLR     P2.2
00B0,D0 E0,,        POP     ACC
00B2,22,,        RET
00B3,,DELAY,DELAY:
00B3,7E 80,,        MOV     R6,#80H
00B5,7F 80,DL1,DL1:    MOV     R7,#80H
00B7,DF FE,,        DJNZ    R7,$
00B9,DE FA,,        DJNZ    R6,DL1
00BB,22,,        RET
00BC,4C 43 44 20,TABLE1,TABLE1:  DB      "LCD Char Display."
00CD,23,,        DB      "#"
00CE,49 20 61 6D,TABLE2,TABLE2:  DB      "I am 891234..."
00DC,23,,        DB      "#"
000E,,,        END