E equ p1.0
cseg at 8000h

jmp SHOW

;???????????? ?????? ??????? ? ?????????? ???

WRITE_COMMAND:
    call    WAIT_BF     ; ???????? ???? ?????????
    push    acc
    push    b

    mov b,a     ; ????????? ???????? ??? ???????
        anl a,#11110000b    ; ???????? ??????? ??????? ? ????????????? C/D=0,R/W=0,E=0
    mov p1,a            ; ????? ??????(??.???????)

    setb    E       ; ????????? E=1
    nop
    clr E       ; ????????? E=0

    mov a, b        ; ??????????????? ???????? ??? ???????
    swap    a       ; ?????? ??????? ???????(?????.->?????.)
    anl a, #11110000b   ; ???????? ??????? ??????? ? ????????????? C/D=0,R/W=0,E=0
    mov p1,a            ; ????? ??????(??.???????)

    setb    E       ; ????????? E=1
    nop
    clr E       ; ????????? E=0

    mov p1, #11110000b
    pop     b
    pop     acc
ret

;???????????? ?????? ????? ?????? ? ?????????? ???

WRITE_DATA:
    push    acc
    push    b
    call    WAIT_BF     ; ???????? ???? ?????????

    mov b, a        ; ????????? ???????? ??????
    anl a, #11110000b   ; ???????? ??????? ???????
    orl     a, #00000010b   ; ? ????????????? C/D=1, R/W=0,E=0
    mov p1, a           ; ????? ??????(??.???????)

    setb    E       ; ????????? E=1
    nop
    clr E       ; ????????? E=0

    mov a, b            ; ??????????????? ???????? ??? ???????
    swap    a               ; ?????? ??????? ???????(?????.->?????.)
    anl a, #11110000b   ; ??????? ??????? ???????
    orl     a, #00000010b
    mov p1, a           ; ????? ??????(??.???????)

    setb    E       ; ????????? E=1
    nop
    clr E       ; ????????? E=0

    mov p1, #11110000b
    pop  b
    pop acc
ret

;???????????? ????????????? ???

LCD_INIT:
    clr E

    mov a, #28h         ; ??????? ??? ? 4-? ?????????, 2???????? ????? 00101000
    call    WRITE_COMMAND

    mov a, #03h         ; ?????? ?????? ????????????? ?????? DRAM, AC=0  00000011
    call    WRITE_COMMAND

    mov a, #0Dh     ; ??????????? ???????? ???????? ? ????????
                ; ??????????? ??????? ? ???? ?????????? ??????????
    call    WRITE_COMMAND

    mov a, #06h     ; ????? ??????????????? ??????????? ??????? ?????
                ; ??????? ????? ?????? ??????? ???????
    call    WRITE_COMMAND

    mov     a, #01h         ; ??????? ??????
    call    WRITE_COMMAND

        mov p1, #11110000b

ret

;------------------------------------------------------------------------------------------------

;???????????? ???????? ???? ?????????

WAIT_BF:
    push    acc
WAIT_LL:
    mov p1,#11110100b   ; ????????? C/D=0, R/W=1,E=0
    setb    E           ; ????????? E=1
    mov a, p1       ; ?????? ??????? ??????? ???????? IR
    clr E           ; ????????? E=0
    mov b, a        ; ????????? ???????? ??????? ???????
    setb    E           ; ????????? E=1
    mov a, p1           ; ?????? ??????? ???????
    clr E
    mov a, b
    jb  acc.7, wait_ll  ; ???????? ???? ????????? BF
    pop acc
ret
;------------------------------------------------------------------------------------------------

;???????????? ?????? ???

SHOW:

    call    LCD_INIT

    push    acc
    push    b
                ; ??? ??????? ????????? ?? ??????? ? ???????? ????
    mov a,#44h          ; ?
    call write_data
    mov a,#04Ah         ; ?
    call write_data
    mov a,#20h          ; ?
    call write_data
    mov a,#04Dh         ; ?
    call write_data
    mov a,#49h          ; ?
    call write_data
    mov a,#54h          ; ?
    call write_data
    mov a,#43h          ; ?
    call write_data
    mov a, #48h
    call write_data

    mov a,#11000000b    ; ??????? ?? 2?? ??????
    call write_command

    mov a,#59h          ; ?
    call write_data
    mov a,#75h          ; -
    call write_data
    mov a,#6Eh          ; 0
    call write_data
    mov a,#67h          ; 7
    call write_data
    mov a,#20h          ; -
    call write_data
    mov a,#4Eh          ; 1
    call write_data
    mov a,#49h          ; 5
    call write_data
    mov a,#67h          ; 1
    call write_data
    mov a,#6Fh          ; 5
    call write_data
    mov a,#72h          ; 5
    call write_data
    pop b
    pop acc
    m1: jmp m1 ; --------------
end