; gr 5IB
; Mariusz Kowalczyk
; Marcin Rzepka
PROG:
ORG 0000H
LD SP,100H
LD A,10001001B
OUT (11B),A
XOR A,A
OUT (00B),A
OUT (01B),A
LD C,0
LD IX,0
PETLA:
CALL CZEKAJ
LD A,(IX+TABLICA1)
OUT (00B),A
LD A,(IX+TABLICA2)
OUT (01B),A
IN A,(10B)
AND A,1
JP Z,WSTECZ
INC IX
INC C
LD A,12
CP C
JP NZ,PETLA
LD C,0
LD IX,0
JP PETLA
WSTECZ:
LD A,0
CP C
JP NZ,D1
LD C,12
LD IX,12
D1: DEC C
DEC IX
JP PETLA
CZEKAJ:
LD B,212
W1: LD A,B ; 4
LD B,255 ; 7
W2: NOP ; 4
NOP ; 4
NOP ; 4
NOP ; 4
NOP ; 4
NOP ; 4
DJNZ W2 ; 13, 8 254*(13+6*4)+8
LD B,A ; 4
DJNZ W1 ; 13, 8
RET
TABLICA1:
DB 11110000B
DB 01111000B
DB 00111100B
DB 00011110B
DB 00001111B
DB 00000111B
DB 00000011B
DB 00000001B
DB 00000000B
DB 10000000B
DB 11000000B
DB 11100000B
TABLICA2:
DB 00000000B
DB 00000000B
DB 00000000B
DB 00000000B
DB 00000000B
DB 00001000B
DB 00001100B
DB 00001110B
DB 00001111B
DB 00000111B
DB 00000011B
DB 00000001B
END
;****************************************
;tester
PROG:
ORG 0000H
LD A,10000000B
OUT (11B),A
XOR A,A
OUT (00B),A
OUT (01B),A
LD A,10101010B
OUT (00B),A
LD A,00001010B
OUT (01B),A
END