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