;************************************************
;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	R0,#127
ZERUJ:	MOV	@R0,#0
	DJNZ	R0,ZERUJ

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

	MOV	DISPLAY,#ONE		;wpisz kody cyfr
	MOV	DISPLAY+1,#TWO		;dla kolejnych
	MOV	DISPLAY+2,#THREE	;wskaźników
	MOV	DISPLAY+3,#FOUR
	MOV	DISPLAY+4,#FIVE
	MOV	DISPLAY+5,#SIX
	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
	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
	DJNZ	R4,LOOP_DISP



	LJMP	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
EXIT:
	RETI