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 0100H

	 LCDcntrlWR MACRO x
        LOCAL loop
    loop: MOV DPTR, #LCDstatus
          MOVX A,@DPTR
          JB ACC.7,loop

          MOV DPTR, #LCDcontrol
          MOV A,x
          MOVX @DPTR,A
          ENDM

    LCDcharWR MACRO
        LOCAL tutu
        PUSH ACC
    tutu:
        MOV DPTR,#LCDstatus
        MOVX A,@DPTR
        JB ACC.7,tutu

        MOV DPTR,#LCDdataWR
        POP ACC
        MOVX @DPTR,A
        ENDM

initLCD MACRO
        LCDcntrlWR #INITDISP
        LCDcntrlWR #CLEAR
        LCDcntrlWR #LCDON
        ENDM

putchar:
        LCDcharWR
        RET

putstring:
        CLR A
        MOVC A, @A+DPTR
        JZ EXIT
        PUSH DPH
        PUSH DPL
        CALL putchar
        POP DPL
        POP DPH
        INC DPTR
        SJMP putstring
    exit: RET

NOWALINIA:
	LCDcntrlWR #HOM2
	RET


CZEKAJ:
	MOV A, #0FFH
LOOP11:
	JZ FINISH1
	MOV R6, #0FFH
	MOV R6, A
	LOOP12:
		MOV A, #0FFH
	NEXT:
		JZ CONT
		DEC	A
		JMP NEXT
CONT:
	MOV A, R6
	DEC A
	JMP LOOP11
	MOV A, #0FFH


FINISH1:
	RET
START:

	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, #07EH
	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



	initLCD
	mov R7, #010H

FIRST:
	MOV R0, #7FH
	MOV A, R0
	MOV P5, A
	MOV A, P7
	ANL A, R0
	MOV R2, A
	CLR C
	SUBB A, R0
	JZ SECOND


	CALL CZEKAJ

	MOV A, R2
	MOV DPH, #80H
	MOV DPL, A
	MOVX A, @DPTR

    call putchar
	DEC R7

SECOND:
	MOV R0, #0BFH
	MOV A, R0
	MOV P5, A
	MOV A, P7
	ANL A, R0
	MOV R2, A
	CLR C
	SUBB A, R0
	JZ THIRD
	CALL CZEKAJ



	MOV A, R2
	MOV DPH, #80H
	MOV DPL, A
	MOVX A, @DPTR
	CALL putchar
	DEC R7
THIRD:
	MOV R0, #0DFH
	MOV A, R0
	MOV P5, A
	MOV A, P7
	ANL A, R0
	MOV R2, A
	CLR C
	SUBB A, R0
	JZ FOURTH

	CALL CZEKAJ

	MOV A, R2
	MOV DPH, #80H
	MOV DPL, A
	MOVX A, @DPTR
	call putchar
	DEC R7
FOURTH:
	MOV R0, #0EFH
	MOV A, R0
	MOV P5, A
	MOV A, P7
	ANL A, R0
	MOV R2, A
	CLR C
	SUBB A, R0
	JZ LONGJUMP

	CALL CZEKAJ

	MOV A, R2
	MOV DPH, #80H
	MOV DPL, A
	MOVX A, @DPTR
	call putchar
	DEC R7


	JMP LONGJUMP

LONGJUMP:
	MOV A, R7
	JZ LON
	LJMP FIRST
LON:
	CALL NOWALINIA
	LJMP FIRST

NOP
NOP
NOP
JMP $
END START