;***definitionsdatei******
#include<REG515.INC>

.Data

freq dw 1
bA db 5 dup (%0111111,%1000100,%1000100,%1000100,%0111111)
bB: db 5 dup (%1111111,%1001001,%1001001,%1001001,%0110110)
Leer db 5 dup (%0000000,%0000000,%0000000,%0000000,%0000000)


.Code

;***anfangsadresse********
org $0

start:

hp:

mov dptr,bA
acall output
acall pause

mov dptr,leer
acall output

mov c1,5
abstand:
pause
djnz c1, abstand

mov dptr,bB
acall output
acall pause


mov dptr,leer
acall output

warteschleife

jmp hp

;  *** Ausgabe funktionen ***

output:
mov r3,#5

output1:
mov r5,#1
y:mov r4,#200
x:djnz r4,x
djnz r5,y

mov a,#0
movc a,@a+dptr

mov p5,a
mov r4,#100
z:djnz r4,z
mov p5,#0
inc dptr
djnz r3,output1

ret



pause:
mov r4,#50
zeit:djnz r4,zeit
ret

warteschleife:
mov freq, #0
ws:
inc freq	;Umlaufdauer messen für den Spaltenabstand
mov r7,p6.0	;wenn nicht Schranke dann
jz ws		;in der Schleife bleiben

ret
end