Kaypro 2 - 07-06.TIFF

7.4
ALIQI.MAC LISTING ( C<NITNUED)
i
loop:
call
delay
call
aon
call
delay
call
aoff
call
delay
call
lxJn
call
delay
call
l:x>ff
jp
loop
.
,
aon:
in
a, (01ch)
set 0,a
out
(01ch),a
ret
aoff:
in
a, (01ch)
res 0,a
out
(01ch) ,a
ret
bon:
in
a, (01ch)
set
l,a
out
(01ch) ,a
ret
l:x>ff:
111
a, (01ch)
res l,a
out
(01ch) ,a
ret
i
delay:
Id
be,2
delay0:
Id hl,0
delayl:
dec
hI
Id
a,h
or
1
jp nz,delayl
dec
be
Id a,b
or c
jp nz,delay0
ret
.
,
7-6