.include "m8535def.inc"

LDI R16, low(RAMEND)
OUT SPL, R16
LDI R16, high(RAMEND)
OUT SPH, R16

LDI R16, 0b11111111
OUT DDRB, R16
LDI R16, 0b01010001
OUT SPCR, R16
SBI PORTB, PB4

CBI PORTB ,PB4
LDI R16, 0b00001001 //DECODE
RCALL WAIT
LDI R16, 0b11111111
RCALL WAIT
SBI PORTB, PB4

CBI PORTB ,PB4
LDI R16, 0b00001010 // INTENSITY
RCALL WAIT
LDI R16, 0b00001000
RCALL WAIT
SBI PORTB, PB4

CBI PORTB ,PB4
LDI R16, 0b00001011 //SCAN LIMIT
RCALL WAIT
LDI R16, 0b00000001
RCALL WAIT
SBI PORTB, PB4

CBI PORTB ,PB4
LDI R16, 0b00001100 // SHUTDOWN
RCALL WAIT
LDI R16, 0b00000001
RCALL WAIT
SBI PORTB, PB4

CBI PORTB ,PB4
LDI R16, 0b00001111 //DISP TEST
RCALL WAIT
LDI R16, 0b00000000
RCALL WAIT
SBI PORTB, PB4



licz:

LDI R28, 9
		OP9:
	LDI R29, 9
		OP8:

CBI PORTB ,PB4
LDI R16, 0b00000010 // 1 DIGIT
RCALL WAIT
LDI R19, 0
RCALL WAIT
SBI PORTB, PB4

CBI PORTB ,PB4
LDI R16, 0b00000001 // O DIGIT
RCALL WAIT
LDI R18, 0
RCALL WAIT
SBI PORTB, PB4

RCALL CZAS
RCALL CZAS

	DEC R29
	INC R18
	BRNE OP8
	INC R19
	DEC R28
	BRNE OP9






STOP:
RJMP STOP

WAIT:
	OUT SPDR, R16
WYSYLANIE:
	SBIS SPSR, SPIF
	RJMP WYSYLANIE
	RET


CZAS:
	LDI R21, 8
		OP4:
	LDI R22, 125
		OP3:
	LDI R23, 250
		OP2:
	DEC R23
	BRNE OP2
	DEC R22
	BRNE OP3
	DEC R21
	BRNE OP4
RET