LCDWC EQU 0FF80h
LCDWD EQU 0FF81h
LCDRC EQU 0FF82h
LCDRD EQU 0FF83h
_CLEAR_DISPLAY EQU 00000001b


    ORG 0000h
_RESET:
    LJMP _INIT


    ORG 0100h
_INIT:
    MOV R0,#00000001b
    LCALL _EXECUTE_R0_BYTE_LCD

    MOV R0,#00111111b
    LCALL _EXECUTE_R0_BYTE_LCD

    MOV R0,#00001111B
    LCALL _EXECUTE_R0_BYTE_LCD

    MOV R0,#00000111b
    LCALL _EXECUTE_R0_BYTE_LCD

    MOV R1,#00d



_PISZ:
    MOV A,R1
    MOV DPTR,#_STRING
    MOVC A,@A+DPTR

    MOV R0,A
    LCALL _SEND_R0_TO_LCD_AS_CHAR

    INC R1
    CJNE R1,#15d,_PISZ


_LOOP:
    NOP
    LJMP _LOOP



_EXECUTE_R0_BYTE_LCD:
    LCALL _WAIT_WHILE_LCD_BUSY
    MOV DPTR,#LCDWC
    MOV A,R0
    MOVX @DPTR,A
    RET


_SEND_R0_TO_LCD_AS_CHAR:
    LCALL _WAIT_WHILE_LCD_BUSY
    MOV DPTR,#LCDWD
    MOV A,R0
    MOVX @DPTR,A
    RET


_WAIT_WHILE_LCD_BUSY:
    MOV DPTR,#LCDRC
    MOVX A,@DPTR
    JB ACC.7,_WAIT_WHILE_LCD_BUSY
    RET




_STRING:
        DB 65d           ;A
        DB 117d          ;u
        DB 116d          ;t
        DB 111d          ;o
        DB 114d          ;r
        DB 101d          ;e
        DB 109d          ;m
        DB 32d           ;
        DB 112d          ;p
        DB 114d          ;r
        DB 111d          ;o
        DB 103d          ;g
        DB 114d          ;r
        DB 97d           ;a
        DB 109d          ;m
        DB 117d          ;u
        DB 32d           ;
        DB 106d          ;j
        DB 101d          ;e
        DB 115d          ;s
        DB 116d          ;t
        DB 58d           ;:
        DB 32d           ;
        DB 77d           ;M
        DB 105d          ;i
        DB 107d          ;k
        DB 111d          ;o
        DB 108d          ;l
        DB 97d           ;a
        DB 106d          ;j
        DB 32d           ;
        DB 75d           ;K
        DB 111d          ;o
        DB 98d           ;b
        DB 121d          ;y
        DB 108d          ;l
        DB 97d           ;a
        DB 114d          ;r
        DB 122d          ;z



END