home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
dexion
/
up_scroll2.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
7KB
|
292 lines
start:
move.l #$50100,$dff0a0
move.w #[37560/2],$dff0a4
move.w #360,$dff0a6
move.w #64,$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 #200,d2
jsr -390(a6)
move.l #$60000,plane1
lea rastport,a1
jsr -198(a6)
move.l #bitmap,r_bitmap
lea rastport,a1
jsr -48(a6)
move.l #text,taller
move.l #textx,tallerx
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
clr.l d0
move.l #1,d1
clr.l d2
move.l #1,d3
move.l #336,d4
move.l #95,d5
jsr -396(a6)
sub.b #1,rows
bne.s exit
move.b #20,rows
lea rastport,a1
move.l #8,d0
move.l #95,d1
jsr -240(a6)
lea rastport,a1
move.l taller,a0
move.l #38,d0
jsr -60(a6)
add.l #38,taller
cmp.l #textx,taller
blt.s exit
move.l #text,taller
exit:
move.w #$0000,d0
cmp.w #0,d0
beq ikkpause
subq.w #$0001,exit+2
jmp exit1
;
ikkpause:
lea rastport,a1
speed:
move.l #2,d0
clr.l d1
clr.l d2
move.l #190,d3
move.l #336,d4
move.l #204,d5
jsr -396(a6)
sub.b #1,rowsx
bne.s exit1
speed1:
move.b #4,rowsx
lea rastport,a1
move.l #320,d0
move.l #198,d1
jsr -240(a6)
lea rastport,a1
move.l tallerx,a0
cmp.b #$f0,(a0)
bpl vidre
bsr temposkift
vidre:
move.l tallerx,a0
move.l #1,d0
jsr -60(a6)
addq.l #1,tallerx
cmp.l #endx,tallerx
blt.s exit1
move.l #textx,tallerx
exit1:
movem.l (sp)+,d0-d7/a0-a6
oldirq:
jmp $00000000
slut:
move.w #$0001,$dff096
move.l oldirq+2,$6c
move.l gfxbase,a0
move.l oldclist,50(a0)
move.l $04,a6
jmp -414(a6)
rts
;
;
temposkift:
move.b (a0),d0
sub.b #$f0,d0
beq pause
move.b d0,speed+5
move.b d0,devide+3
move.l #8,d0
devide:
divu #1,d0
move.b d0,speed1+3
rts
pause:
rts
newclist:
dc.w $008e,$1c11,$0090,$41f0,$0092,$0038,$0094,$00d0
dc.w $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
dc.w $0100,$1200,$0180,$0000,$0182,$0fff
dc.w $00e0,$0006,$00e2,$0000
dc.w $1511,$fffe,$182,$000
dc.w $2011,$fffe,$182,$111
dc.w $2211,$fffe,$182,$222
dc.w $2411,$fffe,$182,$333
dc.w $2611,$fffe,$182,$444
dc.w $2811,$fffe,$182,$555
dc.w $2a11,$fffe,$182,$666
dc.w $2c11,$fffe,$182,$777
dc.w $2e11,$fffe,$182,$888
dc.w $3011,$fffe,$182,$999
dc.w $3211,$fffe,$182,$aaa
dc.w $3411,$fffe,$182,$bbb
dc.w $3611,$fffe,$182,$ccc
dc.w $3811,$fffe,$182,$ddd
dc.w $5611,$fffe,$182,$ddd
dc.w $5811,$fffe,$182,$ccc
dc.w $5a11,$fffe,$182,$bbb
dc.w $5c11,$fffe,$182,$aaa
dc.w $5e11,$fffe,$182,$999
dc.w $6011,$fffe,$182,$888
dc.w $6211,$fffe,$182,$777
dc.w $6411,$fffe,$182,$666
dc.w $6611,$fffe,$182,$555
dc.w $6811,$fffe,$182,$444
dc.w $6a11,$fffe,$182,$333
dc.w $6c11,$fffe,$182,$222
dc.w $6e11,$fffe,$182,$111
dc.w $7011,$fffe,$180,$111
dc.w $7111,$fffe,$180,$222,$182,$222
dc.w $7211,$fffe,$180,$333,$182,$333
dc.w $7311,$fffe,$180,$444,$182,$444
dc.w $7411,$fffe,$180,$555,$182,$555
dc.w $7511,$fffe,$180,$666,$182,$666
dc.w $7611,$fffe,$180,$777,$182,$777
dc.w $7711,$fffe,$180,$888,$182,$888
dc.w $7811,$fffe,$180,$999,$182,$999
dc.w $7911,$fffe,$180,$aaa,$182,$aaa
dc.w $7a11,$fffe,$180,$999,$182,$999
dc.w $7b11,$fffe,$180,$888,$182,$888
dc.w $7c11,$fffe,$180,$777,$182,$777
dc.w $7d11,$fffe,$180,$666,$182,$666
dc.w $7e11,$fffe,$180,$555,$182,$555
dc.w $7f11,$fffe,$180,$444,$182,$444
dc.w $8011,$fffe,$180,$333,$182,$333
dc.w $8111,$fffe,$180,$222,$182,$222
dc.w $8211,$fffe,$180,$111,$182,$111
dc.w $8311,$fffe,$180,$000,$182,$fff
dc.w $180,$200,$182,$300,$184,$444
dc.w $186,$200,$188,$300,$18a,$444
dc.w $18c,$200,$18e,$300,$190,$444
dc.w $192,$200,$194,$300,$196,$444
;
dc.w $100,$5200
dc.w $00e0,$0005,$00e2,$0000
dc.w $00e4,$0005,$00e6,$1000
dc.w $00e8,$0005,$00ea,$2000
dc.w $00ec,$0005,$00ee,$3000
dc.w $00f0,$0005,$00f2,$4000
dc.w $d311,$fffe,$100,$200
dc.w $d411,$fffe,$180,$300
dc.w $d511,$fffe,$180,$400
dc.w $d611,$fffe,$180,$500
dc.w $d711,$fffe,$180,$600
dc.w $d811,$fffe,$180,$700
dc.w $d911,$fffe,$180,$800
dc.w $da11,$fffe,$180,$900,$100,$1200
dc.w $00e0,$6,$00e2,$1f2c
dc.w $db11,$fffe,$180,$a00,$182,$7
dc.w $e411,$fffe,$100,$200,$180,$900
dc.w $e511,$fffe,$180,$800
dc.w $e611,$fffe,$180,$700
dc.w $e711,$fffe,$180,$600
dc.w $e811,$fffe,$180,$500
dc.w $e911,$fffe,$180,$400
dc.w $ea11,$fffe,$180,$300
dc.w $eb11,$fffe,$180,$000
dc.w $ffff,$fffe
text:
dc.b " THE DANISH DEMO DUO 1987 "
dc.b " ARE PROUD TO PRESENT "
dc.b " THE FIRST REAL DDD AMIGA DEMO "
dc.b " IF YOU THINK THIS IS GREAT THEN JUST "
dc.b " WAIT TO WE WILL PRESENT OUR 2ND DEMO "
dc.b "--------------------------------------"
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
dc.b " "
textx:
dc.b "THE DANISH DEMO DUO 1987 ARE PET & TOX .......... "
dc.b " THE BEST THING WITH THIS DEMO IS THAT WE ARE AMONG "
dc.b "FEW IN DENMARK THERE KNOW HOW TO PROGRAM THIS 68000"
dc.b $f8
dc.b " M. CODE IN A GOOD WAY .............. "
dc.b "HEY AMIGA FREAK, DON'T YOU THINK THIS DEMO IS GREAT "
dc.b "IF YOU WANTS TO SWAP DEMOS & ROUTINES WITH US THEN "
dc.b "CONTACT ME : PETER OLSEN MØLLEAGER 14 "
dc.b " 2640 HEDEHUSENE DENMARK "
dc.b " GREETINGS IN THIS SCROLL MUST GO TO : HQC, TOM(on the ST), "
dc.b "PCT, 2000 AD, DEXION, C64CG, LCC and ANCOR ........"
dc.b " THE SPECIAL GREETS ARE TO REFLEX CRACKING SQUAD (HEY MY "
dc.b "DEAR FREIND : BAD BOY, YOU A VERY GOOD FREIND) "
dc.b " THE NORMAL HELLOS WILL BE IN THE SCROLL ABOVE ........... "
dc.b " Bye .. Bye .. scroll restarts .. "
endx:
even
taller:
dc.l 0
tallerx:
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 2
even
rowsx:
dc.b 2