ptm4_lcd_test_dupa

LJMP START

P5 EQU 0F8H
P7 EQU 0DBH


    LCDstatus equ 0FF2EH
    LCDcontrol equ 0FF2CH
    LCDdataWR equ 0FF2DH

    #define HOME 0x80
    #define INITDISP 0x38
    #define HOM2 0xc0
    #define LCDON 0x0e
    #define CLEAR 0x01


ORG 100H

 LCDcntrlWR MACRO x
             LOCAL loop
      loop:
             MOV    DPTR,#LCDstatus
             MOVX   A,@DPTR
             JB     ACC.7,loop       ; check if LCD busy

             MOV    DPTR,#LCDcontrol ; write to LCD control
             MOV    A, x
             MOVX   @DPTR,A
            ENDM

  LCDcharWR MACRO
            LOCAL loop1,loop2

            PUSH    ACC
  loop1:    MOV     DPTR,#LCDstatus
            MOVX    A,@DPTR
            JB      ACC.7,loop1            ; check if LCD busy

  loop2:    MOV     DPTR,#LCDdataWR        ; write data to LCD
            POP     ACC
            MOVX    @DPTR,A
            ENDM

  init_LCD  MACRO
             LCDcntrlWR #INITDISP
             LCDcntrlWR #CLEAR
             LCDcntrlWR #LCDON
         ENDM

START:

;ASCII DEFINITION
MOV DPH, #80H
MOV DPL, #77H
MOV A, #31H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #7BH
MOV A, #32H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #7DH
MOV A, #33H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #7EH
MOV A, #41H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0B7H
MOV A, #34H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0BBH
MOV A, #35H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0BDH
MOV A, #36H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0BEH
MOV A, #42H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0D7H
MOV A, #37H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0DBH
MOV A, #38H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0DDH
MOV A, #39H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0DEH
MOV A, #43H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0E7H
MOV A, #2AH
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0EBH
MOV A, #30H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0EDH
MOV A, #23H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0EEH
MOV A, #44H
MOVX @DPTR, A
MOV R4, #0
MOV R5, #0

init_LCD

    NEXT3:
    MOV R0, #7FH
    MOV A, R0
    MOV P5, A
    MOV A, P7
    ANL A, R0
    MOV R1, A
    CLR C
    SUBB A, R0
    JZ NEXT
    MOV A, R1
    MOV DPH, #80H
    MOV DPL, A
    MOVX A, @DPTR
    MOV P1, A

    LCDcharWR

    NEXT:
    MOV R0, #0BFH
    MOV A, R0
    MOV P5, A
    MOV A, P7
    ANL A, R0
    MOV R1, A
    CLR C
    SUBB A, R0
    JZ NEXT1
    MOV A, R1
    MOV DPH, #80H
    MOV DPL, A
    MOVX A, @DPTR
    MOV P1, A

    LCDcharWR


    NEXT1:
    MOV R0, #0DFH
    MOV A, R0
    MOV P5, A
    MOV A, P7
    ANL A, R0
    MOV R1, A
    CLR C
    SUBB A, R0
    JZ NEXT2
    MOV A, R1
        MOV DPH, #80H
    MOV DPL, A
    MOVX A, @DPTR
    MOV P1, A

    LCDcharWR

    NEXT2:
    MOV R0, #0EFH
    MOV A, R0
    MOV P5, A
    MOV A, P7
    ANL A, R0
    MOV R1, A
    CLR C
    SUBB A, R0
    JZ NEXT3
    MOV A, R1
        MOV DPH, #80H
    MOV DPL, A
    MOVX A, @DPTR
    MOV P1, A

    LCDcharWR







    JMP START

    NOP
    NOP
    NOP
    NOP
    END