home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
dexion
/
soft_stopper.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
581b
|
51 lines
start:
even
move.l d0-d7/a0-a6,-(a7)
lea bstart(pc),a0
lea ende(pc),a1
move.l #$100,a2
move.l a2,a3
copyschl:
move.w (a0)+,(a2)+
cmp.l a0,a1
bne.s copyschl
jsr (a3)
move.l (a7)+,d0-d7/a0-a6
rts
bstart:
lea.l irbuffer+2(pc),a0
move.l $68,(a0)
lea newir(pc),a0
move.l a0,$68
rts
newir:
move.l d0-d7/a0-a6,-(a7)
move.b $bfec01,d1
cmp.b #121,d0
bne.s nospkey
bsr prgstop
nospkey:
move.l (a7)+,d0-d7/a0-a6
irbuffer:
jmp $ffffffff
prgstop:
move.w sr,d0
move.w #$2700,sr
prgstopwait:
move.b #120,$bfec01
erstloslassen:
btst #6,$bfe001
beq.s erstloslassen
move.w d0,sr
rts
ende: