home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
dexion
/
scroll8.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
2KB
|
119 lines
s:
move.l #$50100,$dff0a0
move.w #36000,$dff0a4
move.w #300,$dff0a6
move.w #65,$dff0a8
move.w #$8201,$dff096
move.l $04,a6
lea gfxname,a1
jsr -408(a6)
move.l d0,gfxbase
move.l d0,a0
move.l 50(a0),oldclist
move.l #newclist,50(a0)
move.l gfxbase,a6
lea bitmap,a0
move.l #$01,d0
move.l #336,d1
move.l #20,d2
jsr -390(a6)
move.l #$4ff00,plane1
lea rastport,a1
jsr -198(a6)
move.l #bitmap,r_bitmap
lea rastport,a1
jsr -48(a6)
move.l #text,taller
move.l $6c,oldirq+2
move.l #newirq,$6c
wait:
btst #6,$bfe001
bne wait
jmp slut
newirq:
movem.l d0-d7/a0-a6,-(sp)
move.l gfxbase,a6
lea rastport,a1
move.l #$4,d0
clr.l d1
clr.l d2
move.l #01,d3
move.l #336,d4
move.l #20,d5
jsr -396(a6)
sub.b #1,rows
bne.s exit
move.b #2,rows
lea rastport,a1
move.l #320,d0
move.l #12,d1
jsr -240(a6)
lea rastport,a1
move.l taller,a0
move.l #1,d0
jsr -60(a6)
addq.l #1,taller
cmp.l #end,taller
blt.s exit
move.l #text,taller
exit:
movem.l (sp)+,d0-d7/a0-a6
oldirq:
jmp $00000000
slut:
move.w #3,$dff096
move.l oldirq+2,$6c
move.l gfxbase,a0
move.l oldclist,50(a0)
move.l $04,a6
jmp -414(a6)
newclist:
dc.w $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
dc.w $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
dc.w $0100,$4200,$0180,$0000,$0182,$0fff
dc.w $00e0,$0004,$00e2,$ff00,$2e01,$ff00
dc.w $0182,$0000,$0180,$0666,$3001,$ff00
dc.w $0182,$0f00,$0180,$0333,$3601,$ff00
dc.w $0182,$0f80,$3c01,$ff00
dc.w $0182,$0000,$0180,$0888,$3e01,$ff00
dc.w $0182,$0000,$0180,$023a,$0181,$0000,$0182,$0000
dc.w $0183,$0000,$0184,$0000,$0185,$0000
dc.w $0186,$0000,$0187,$0000,$0188,$0000
dc.w $0189,$0000,$018a,$0000,$018b,$0000
dc.w $018c,$0000,$018d,$0000,$018e,$0000
dc.w $0180,$023a,$a301,$ff00,$0180,$023a
dc.w $0180,$0fe1,$a501,$ff00,$0182,$0ff1
dc.w $0180,$0000
poke1:
dc.w $00e0,$0004,$00e2,$ff00
dc.w $00e4,$0004,$00e6,$ff00
dc.w $00e8,$0004,$00ea,$ff00
dc.w $00ec,$0004,$00ee,$ff00
dc.w $fc01,$ff00,$0180,$0000,$0180,$0133
dc.w $fe01,$ff00,$0182,$0000,$0180,$0000
dc.w $ffff,$fffe
text:
dc.b "REFLEX CRACKING SQUAD AND THE DANISH DEMO DUO ARE VERY GOOD"
dc.b " FRIENDS SO THEREFORE PET GOT THIS GREAT SCROLL !!!! "
end:
even
taller:
dc.l 0
oldclist:
dc.l 0
gfxbase:
dc.l 0
gfxname:
dc.b "graphics.library",0
even
bitmap:
blk.w 4,0
plane1:
blk.l 20,0
rastport:
dc.l 0
r_bitmap:
blk.l 30,0
rows:
dc.b 3