home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
german
/
disk.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
242b
|
21 lines
w1: move.b #%11101010,$bfd100
move.b #%11101011,$bfd100
w2: move.b $bfd100,d0
bge w2
btst #4,$bfe001
beq t0
t1: btst #13,$dff01e
bne t1
jsr pause
jmp w1
pause: move.l #5000,d0
p1: dbf d0,p1
rts
t0:
move.b #1,t
illegal
t: dc.b 0