licznik

$INCLUDE (REG51.INC)
LED1    EQU     P3.7
ENT     EQU     P1.7
ESC     EQU     P1.4
UP      EQU     P1.5
DOWN    EQU     P1.6
DANE    EQU     P3.0
CLOCK   EQU     P3.1
LOAD    EQU     P3.2
OFF     EQU     P3.3
        ORG     0


        MOV     R1,#21
        MOV     R2,#0
START:
        MOV     A,R2
        ACALL   WPIS
        MOV     A,R1
        ACALL   WPIS
        MOV     A,#21
        ACALL   WPIS
        MOV     A,#21
        ACALL   WPIS
        CLR     LOAD
        SETB    LOAD
        CLR     OFF


LOOP:   JNB     UP, PLUS
        JNB     DOWN, MINUS
        SJMP    LOOP
MINUS:
M:      JNB     DOWN, M
        DEC     R2
        CJNE    R2,#-1,START
        INC     R2
        MOV     R1,#22
        SJMP    START

PLUS:
N:      JNB     UP, N
        INC     R2
        CJNE    R2,#10,START
        DEC     R2
        MOV     R1,#21

        SJMP    START

WPIS:
        MOV     DPTR, #TABLICA
        MOVC    A, @A+DPTR
        MOV     R0,#8
NEXT:
        RLC     A
        MOV     DANE, C
        CLR     CLOCK
        SETB    CLOCK
        DJNZ    R0, NEXT
        RET

TABLICA:
DB  03H; 0
DB  9FH; 1
DB  25H; 2
DB  0DH; 3
DB  99H; 4
DB  49H; 5
DB  41H; 6
DB  1FH; 7
DB  01H; 8
DB  09H; 9
DB  11H; A 10
DB 0C1H; b 11
DB  85H; C 12
DB  61H; E 13
DB  71H; F 14
DB  91H; H 15
DB 0E3H; L 16
DB 0C5H; o 17
DB  39H; o|18
DB  31H; P 19
DB  83H; U 20
DB 0FFH; PUSTY 21
DB 0FDH; minus 22