WYSW_LED_STATE DATA 02Fh
SUPER_FLAGA BIT 0000h
WYSW_POWER BIT P1.6
CSDS XDATA 0FF30h
CSDB XDATA 0FF38h
WYSW_INDEKS DATA 036h
WYSW_W6 DATA 030h
WYSW_W5 DATA 031h
WYSW_W4 DATA 032h
WYSW_W3 DATA 033h
WYSW_W2 DATA 034h
WYSW_W1 DATA 035h
WYSW_W7 DATA 037h
WYSW_W8 DATA 038h
WYSW_W9 DATA 039h
WYSW_W0 DATA 03Ah
LICZNIK DATA 03Bh

ORG 000Bh
    _FAJNA_OBSLUGA_PRZERWANIA:
    SETB SUPER_FLAGA
    RETI

ORG 0000h
_RESET:
    LJMP _INIT

ORG 0100h
_INIT:
    LCALL WYSW_INIT
    MOV TMOD, #00000001B
    CLR SUPER_FLAGA
    MOV IE, #10000010B
    SETB TR0
_LOOP:
    JNB SUPER_FLAGA, _LOOP
    CLR SUPER_FLAGA
    LCALL OBSLUGA_FLAGI
    LCALL WYSW_REFRESH
    LJMP _LOOP

WYSW_INIT:
    SETB WYSW_POWER
    MOV WYSW_W1,#00000110b;
    MOV WYSW_W2,#01011011b;
    MOV WYSW_W3,#01001111b;
    MOV WYSW_W4,#01100110b;
    MOV WYSW_W5,#01101101b;
    MOV WYSW_W6,#01111101b;
    MOV WYSW_W7,#00000111b;
    MOV WYSW_W8,#01111111b;
    MOV WYSW_W9,#01101111b;
    MOV WYSW_W0,#00111111b;
    MOV WYSW_INDEKS,#00000001b;
    MOV LICZNIK,#00000000b;
    MOV DPTR,#CSDS
    MOV A,WYSW_INDEKS
    MOVX @DPTR,A
    MOV WYSW_LED_STATE,#00111111b
    MOV DPTR,#CSDB
    MOV A,#WYSW_LED_STATE
    MOVX @DPTR,A
    CLR WYSW_POWER
    RET
WYSW_REFRESH:
    SETB WYSW_POWER
    MOV A,LICZNIK
    INC A
    MOV LICZNIK,A
    MOV DPTR,#CSDS
    MOV A,WYSW_INDEKS
    MOVX @DPTR, A
    MOV A, LICZNIK
    _IF_W10:
        CJNE A,#00001010b,_IF_W0
        MOV A, LICZNIK
        MOV A, #00000000b
        MOV LICZNIK, A
        JMP _IF_W0

    _IF_W0:
        CJNE A,#00000000b,_IF_W9
        MOV A,WYSW_W0
        JMP _WYKONAJ
    _IF_W9:
        CJNE A,#00001001b,_IF_W8
        MOV A,WYSW_W9
        JMP _WYKONAJ
    _IF_W8:
        CJNE A,#00001000b,_IF_W7
        MOV A,WYSW_W8
        JMP _WYKONAJ
    _IF_W7:
        CJNE A,#00000111b,_IF_W6
        MOV A,WYSW_W7
        JMP _WYKONAJ
    _IF_W6:
        CJNE A,#00000110b,_IF_W5
        MOV A,WYSW_W6
        JMP _WYKONAJ
    _IF_W5:
        CJNE A,#00000101b,_IF_W4
        MOV A,WYSW_W5
        JMP _WYKONAJ
    _IF_W4:
        CJNE A,#00000100b,_IF_W3
        MOV A,WYSW_W4
        JMP _WYKONAJ
    _IF_W3:
        CJNE A,#00000011b,_IF_W2
        MOV A,WYSW_W3
        JMP _WYKONAJ
    _IF_W2:
        CJNE A,#00000010b,_IF_W1
        MOV A,WYSW_W2
        JMP _WYKONAJ
    _IF_W1:
        CJNE A,#00000001b,_WYKONAJ
        MOV A,WYSW_W1
        JMP _WYKONAJ
    _WYKONAJ:
    MOV DPTR,#CSDB
    MOVX @DPTR,A
    CLR WYSW_POWER
    RET

OBSLUGA_FLAGI:
    NOP
    RET

END