;************************************************
;LEKCJA   6 - WYŚWIETLACZ 7-SEGMENTOWY
;PRZYKŁAD 3    - PRZEGLĄDANIE WYŚWIETLACZA
;************************************************

SEG_ON EQU  P1.6    ;włączenie wyświetlacza 7-segm.

;Stałe używane w programie
ONE EQU 006H        ;kod cyfry 1
TWO EQU 05BH        ;kod cyfry 2
THREE   EQU 04FH        ;kod cyfry 3
FOUR    EQU 066H        ;kod cyfry 4
FIVE    EQU 06DH        ;kod cyfry 5
SIX EQU 07DH        ;kod cyfry 6
SEVEN   EQU 007H        ;kod cyfry 7

;Pamięć wewnętrzna RAM
DISPLAY     EQU 30H

;**************************************
    LJMP    START

    ORG 0BH
    LJMP INT_T0

    ORG 100H
START:
    MOV TMOD,#1
    MOV R7,#20
    MOV TL0,#00H
    MOV TH0,#4CH
    SETB EA
    SETB ET0
    SETB TR0

    MOV DISPLAY,#5       ;wpisz kody cyfr
    MOV DISPLAY+1,#0      ;dla kolejnych
    MOV DISPLAY+2,#3    ;wskaźników
    MOV DISPLAY+3,#4
    MOV DISPLAY+4,#2
    MOV DISPLAY+5,#1
    MOV DISPLAY+6,#SEVEN

LOOP_DISP:          ;ustawienie danych do
                ;wyświetlania na 1-szym
                ;wskaźniku
    MOV R0,#DISPLAY   ;adres pobierania kodów
    MOV R2,#6         ;licznik-il. wskaźników
    MOV R3,#00000001B ;wybór wskaźnika
                  ;-kod 1 z 8

LOOP:
    SETB    SEG_ON      ;wyłącz poprzedni
                ;wskaźnik

    MOV R1,#CSDS    ;adres wyboru wskaźnika
    MOV A,R3        ;aktualny wskaźnik (1z8)
    MOVX    @R1,A       ;wpisz nr wskaźnika

    RL  A       ;obrót w lewo - numer
    MOV R3,A        ;następnego wskaźnika
                ;(kod 1 z 8)

    MOV R1,#CSDB    ;adres danych wskaźnika
    MOV A,@R0       ;kod aktualnego wskaźnika

    LCALL GET_COD7

    MOVX    @R1,A       ;wpisz kod segmentów

    INC R0      ;adres pobierania kodu
                ;dla następnego wskaźnika

    CLR SEG_ON      ;włączenie wskaźnika

    MOV A,#1        ;czas 1ms - świecenie
    LCALL   DELAY_MS    ;jednego wskaźnika

    DJNZ    R2,LOOP     ;kolejne świecenie
                ;siedmiu wskaźników

    SJMP    LOOP_DISP   ;zacznij od wskaźnika 1



INT_T0:
    ORL TL0,#00H
    MOV TH0,#4CH
    DJNZ R7,EXIT
    MOV R7,#20

    CPL P1.7
    MOV R0,#DISPLAY
    INC @R0
    CJNE @R0,#10,EXIT

    MOV @R0,#0
    INC R0
    INC @R0
    CJNE @R0,#6,EXIT

    MOV @R0,#0
    INC R0
    INC @R0


EXIT:
    RETI

;**************************************
;Podprogram zamienia cyfrę na kod 7-segmentowy
GET_COD7:
    ANL A,#0FH      ;tabela kodów 0..15
    INC A       ;pomiń rozkaz RET
    MOVC    A,@A+PC     ;pobierz kod
    RET

COD_7SEG:
    DB  03FH        ;kod znaku 0
    DB  006H        ;kod znaku 1
    DB  05BH        ;kod znaku 2
    DB  04FH        ;kod znaku 3
    DB  066H        ;kod znaku 4
    DB  06DH        ;kod znaku 5
    DB  07DH        ;kod znaku 6
    DB  007H        ;kod znaku 7
    DB  07FH        ;kod znaku 8
    DB  06FH        ;kod znaku 9
    DB  077H        ;kod znaku A
    DB  07CH        ;kod znaku b
    DB  039H        ;kod znaku C
    DB  05EH        ;kod znaku d
    DB  079H        ;kod znaku E
    DB  071H        ;kod znaku F