Filip to ogórek

SEG_ON EQU P1.6

F_CSDS EQU 0FF30H ;bufor wyboru wskaźnika
F_CSDB EQU 0FF38H ;bufor danych wskaźnika

KEY_COD_LEFT EQU 100000B
KEY_COD_RIGHT EQU 000100B

M EQU 00110111B
I EQU 00000110B
CC EQU 00111001B
H EQU 01110110B
AA EQU 01110111B
L EQU 00111000B
BB EQU 01111100B
E EQU 01111001B
R EQU 01010000B
S EQU 01101101B
K EQU 01110100B
SPC EQU 00000000B
    LJMP START
    ORG 100H

SET_LEFT:
    MOV A, #0100000B
    MOVX @R0, A
    JB P3.5, SHIFT_LEFT
    LJMP WM

SET_RIGHT:
    MOV A, #0000100B
    MOVX @R0, A
    JB P3.5, SHIFT_RIGHT
    LJMP WM

SHIFT_RIGHT:
    INC R2
    LJMP LOOP2

SHIFT_LEFT:
    DEC R2

LOOP2:
    JNB P3.5, WM
    LJMP LOOP2

START:
    MOV R0, #CSDS
    MOV R1, #CSDB
    MOV R2, #0                          ;R2 PAMIETA PRZESUNIECIE

LOOP:
    MOV R4, #00100000B                  ;R4 PAMIETA AKTUALNY WSKAZNIK

    MOV A, R5
    CPL A
    MOV R5, A
    CJNE A, #0, SET_RIGHT
    LJMP SET_LEFT

WM:
    MOV A, R2
    MOV R3, A

    JZ WM_DO
    DEC R3
    LJMP WI
WM_DO:
    MOV A, #M
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A

    LCALL SHOW
    CALL NEXT_LETTER

WI:
    MOV A, R3
    JZ WI_DO
    DEC R3
    LJMP WC
WI_DO:
    MOV A, #I
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A

    LCALL SHOW
    LCALL NEXT_LETTER

WC:
    MOV A, R3
    JZ WC_DO
    DEC R3
    LJMP WH
WC_DO:
    MOV A, #CC
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A

    LCALL SHOW
    LCALL NEXT_LETTER
WH:
    MOV A, R3
    JZ WH_DO
    DEC R3
    LJMP WA
WH_DO:
    MOV A, #H
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A

    LCALL SHOW
    LCALL NEXT_LETTER
WA:
    MOV A, R3
    JZ WA_DO
    DEC R3
    LJMP WL
WA_DO:
    MOV A, #AA
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A

    LCALL SHOW
    LCALL NEXT_LETTER
WL:
    MOV A, R3
    JZ WL_DO
    DEC R3
    LJMP WSPC
WL_DO:
    MOV A, #L
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A

    LCALL SHOW
    LCALL NEXT_LETTER
WSPC:
    MOV A, R3
    JZ WSPC_DO
    DEC R3
    LJMP WB
WSPC_DO:
    MOV A, #SPC
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A

    LCALL SHOW
    LCALL NEXT_LETTER
WB:
    MOV A, R3
    JZ WB_DO
    DEC R3
    LJMP WA2
WB_DO:
    MOV A, #BB
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER

WA2:
    MOV A, R3
    JZ WA2_DO
    DEC R3
    LJMP WL2
WA2_DO:
    MOV A, #AA
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER
WL2:
    MOV A, R3
    JZ WL2_DO
    DEC R3
    LJMP WC2
WL2_DO:
    MOV A, #L
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER
WC2:
    MOV A, R3
    JZ WC2_DO
    DEC R3
    LJMP WE
WC2_DO:
    MOV A, #CC
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER

WE:
    MOV A, R3
    JZ WE_DO
    DEC R3
    LJMP WRR
WE_DO:
    MOV A, #E
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER
WRR:
    MOV A, R3
    JZ WR_DO
    DEC R3
    LJMP WS
WR_DO:
    MOV A, #R
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER
WS:
    MOV A, R3
    JZ WS_DO
    DEC R3
    LJMP WK
WS_DO:
    MOV A, #S
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER
WK:
    MOV A, R3
    JZ WK_DO
    DEC R3
    LJMP WI2
WK_DO:
    MOV A, #K
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER
WI2:
    MOV A, R3
    JZ WI2_DO
    DEC R3
    LJMP END
WI2_DO:
    MOV A, #I
    MOVX @R1, A
    MOV A, R4
    MOVX @R0, A
    LCALL SHOW
    LCALL NEXT_LETTER
END:
    LJMP LOOP

SHOW:
    CLR SEG_ON
    SETB SEG_ON

    RET

NEXT_LETTER:
    MOV A, R4
    MOV B, #2
    DIV AB
    MOV R4, A
    RET

    NOP