wykrzyknik_biniaka

.org 0x00
.nolist
.include "m16def.inc"
.list

.equ zero   = 0b11111100
.equ jeden	= 0b01100000
.equ dwa	= 0b11011010
.equ trzy	= 0b11110010
.equ cztery	= 0b01100110
.equ piec	= 0b10110110
.equ szesc	= 0b10111110
.equ siedem	= 0b11100000
.equ osiem	= 0b11111110
.equ dziew  = 0b11110110
.equ wyksz  = 0b01100001
.equ stol   = 0b00101010
.equ kreska = 0b00000010
.equ sloik  = 0b00111000

;ustawianie początkowej wartości rejestru Z
ldi ZH, high(2*Table)
ldi ZL, low(2*Table)


;ładowanie PORTB
ldi R16,0xff
out DDRB,R16
out PORTB,R16

ldi R16,high(RAMEND)
out SPH,R16
ldi R16,low(RAMEND)
out SPL,R16

Main:
ldi R20,16

Petla:
lpm R21,Z+
out PORTB,R21
call Delay
dec R20
brne Petla



END:
rjmp END

Delay:

ldi R18,52
ldi R17,105
ldi R16,240

E3:
E2:
E1: dec R16
brne E1

dec R17
nop
nop
nop
nop
nop
nop
nop
nop
nop
ldi R16,240

brne E2

dec R18
ldi R17,105

brne E3
ret

Table:
.db	wyksz,dziew
.db osiem,siedem
.db szesc,piec
.db cztery,trzy
.db dwa,jeden
.db zero,stol
.db kreska,stol
.db kreska,sloik