home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
dexion
/
exdemo1.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
6KB
|
264 lines
org $60000
load $60000
s:
move.l #$50000,$dff0a0
move.w #36000,$dff0a4
move.w #300,$dff0a6
move.w #65,$dff0a8
move.w #$83a0,$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 #256,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:
move.l #$646b0,a0
move.w $dff012,d1
l1: cmpi.b #$ff,$dff006
bne l1
move.l (a0)+,$64500
move.l 20(a0),$64548
move.l 40(a0),$64590
move.l 60(a0),$645d8
move.l 80(a0),$64620
move.l 100(a0),$64668
cmp.w $dff012,d1
bne end1
cmpi.l #$696b0,a0
beq wait
l2:cmpi.b #$00,$dff006
bne l2
jmp l1
end1:
jmp slut
newirq:
movem.l d0-d7/a0-a6,-(sp)
move.l gfxbase,a6
lea rastport,a1
move.l #0,d0
move.l #1,d1
move.l #0,d2
move.l #$b0,d3
move.l #336,d4
move.l #200,d5
jsr -396(a6)
lea rastport,a1
move.l #1,d0
clr.l d1
clr.l d2
move.l #0,d3
move.l #9,d4
move.l #30,d5
jsr -396(a6)
lea rastport,a1
move.l #2,d0
clr.l d1
move.l #8,d2
move.l #0,d3
move.l #310,d4
move.l #30,d5
jsr -396(a6)
lea rastport,a1
move.l #1,d0
clr.l d1
move.l #310,d2
move.l #0,d3
move.l #336,d4
move.l #30,d5
jsr -396(a6)
sub.b #1,rows
bne.s exit
move.b #8,rows
lea rastport,a1
move.l #320,d0
move.l #13,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,$2c91,$0090,$41f0,$0092,$0038,$0094,$00d0
dc.w $0120,$0006,$0122,$4500,$0124,$0006,$0126,$4548
dc.w $0128,$0006,$012a,$4590,$012c,$0006,$012e,$45d8
dc.w $0130,$0006,$0132,$4620,$0134,$0006,$0136,$4668
dc.w $0102,$0000,$0104,$0024,$0108,$0002,$010a,$0002
dc.w $0100,$1200,$0180,$0000
dc.w $00e0,$0004,$00e2,$ff00,$2f11,$fffe
dc.w $0180,$0666,$3101,$ff00
dc.w $0182,$0f55,$0180,$0333,$3701,$ff00
dc.w $0182,$0f85,$3d11,$fffe
dc.w $0180,$0888,$3f11,$fffe,$0180,$0000
c1:dc.w $01a2,$0777,$01a4,$0999,$01a6,$0555
c2:dc.w $01aa,$0777,$01ac,$0999,$01ae,$0555
c3:dc.w $01b2,$0777,$01b4,$0999,$01b6,$0555
dc.w $5011,$fffe,$0180,$0100
dc.w $5111,$fffe,$0180,$0111
dc.w $5211,$fffe,$0180,$0222
dc.w $5311,$fffe,$0180,$0333
dc.w $5411,$fffe,$0180,$0444
dc.w $5511,$fffe,$0180,$0555
dc.w $5611,$fffe,$0180,$0666
dc.w $5711,$fffe,$0180,$0777
dc.w $5811,$fffe,$0180,$0888
dc.w $5911,$fffe,$0180,$0999
dc.w $5a11,$fffe,$0180,$0aaa
dc.w $5b11,$fffe,$0180,$0bbb
dc.w $5c11,$fffe,$0180,$0ccc
dc.w $5d11,$fffe,$0180,$0ddd
dc.w $5e11,$fffe,$0180,$0eee
dc.w $5f11,$fffe,$0180,$0fff
dc.w $9011,$fffe,$0180,$0ddd
dc.w $9111,$fffe,$0180,$0ccc
dc.w $9211,$fffe,$0180,$0bbb
dc.w $9311,$fffe,$0180,$0aaa
dc.w $9411,$fffe,$0180,$0999
dc.w $9511,$fffe,$0180,$0888
dc.w $9611,$fffe,$0180,$0777
dc.w $9711,$fffe,$0180,$0666
dc.w $9811,$fffe,$0180,$0555
dc.w $9911,$fffe,$0180,$0444
dc.w $9a11,$fffe,$0180,$0333
dc.w $9b11,$fffe,$0180,$0222
dc.w $9c11,$fffe,$0180,$0111
dc.w $9d11,$fffe,$0180,$0000
dc.w $b011,$fffe,$0180,$0fff
dc.w $b111,$fffe,$0180,$0000
dc.w $b211,$fffe,$0096,$83c0
dc.w $0100,$9500
scr1:
dc.w $00e0,$0002,$00e2,$5200
scr2:
dc.w $00e4,$0002,$00e6,$5200
dc.w $0182,$0fff,$0184,$0eee,$0186,$0ddd
dc.w $ffff,$fffe
text:
dc.b "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
even
slu:
org $64500
load $64500
Spr4a:
da4:
dc.w $70a0,$8000
dc.w $0002FBF8,$0002FBF8
dc.w $0002FBFC,$00028A04,$0002DB06,$0002AAFA
dc.w $0002DBFF,$0002AA01,$0002DBFF,$0002ABFF
dc.w $0002D800,$0002A800,$0002D81F,$0002A81F
dc.w $0002D81F,$0002A811,$0002D81B,$0002A815
dc.w $0002D81F,$0002A81F,$0002D800,$0002A800
dc.w $0002DBFF,$0002ABFF,$0002DBFF,$0002AA01
dc.w $0002DB06,$0002AAFA,$0002FBFC,$00028A04
dc.w $0002FBF8,$0002FBF8
dc.w $0000,$0000
spr4b:
dc.w $7090,$8100
dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
dc.w $0000,$0000
spr4:
dc.w $7080,$8100
dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
dc.w $0000,$0000
Spr3:
dc.w $7060,$8100
dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
dc.w $0000,$0000
spr2:
dc.w $7050,$8100
dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
dc.w $0000,$0000
spr1:
dc.w $7040,$8100
dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
dc.w $000207C0,$000207C0,$000207C0,$00020440
dc.w $000206C0,$00020540,$000206C0,$00020540
dc.w $000206C0,$00020540,$000206C0,$00020540
dc.w $000206C0,$00020540,$000206C0,$00020540
dc.w $000207C0,$00020440,$000207C0,$000207C0
dc.w $0000,$0000
d: