home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-03-17 | 35.9 KB | 1,426 lines
opt c- incdir "df0:include/" include graphics/gfx.i include graphics/rastport.i include graphics/graphics_lib.i include exec/memory.i include exec/exec_lib.i include hardware/custom.i custom equ $dff000 memory equ MEMF_CHIP+MEMF_CLEAR lea GFXLIB,a1 MOVEQ #0,D0 CALLEXEC OPENLIBRARY TST D0 BEQ ERROR MOVE.L D0,_GFXBASE MOVE.L #MYPICCY,MEMORY_POINTER LEA MYBITMAP,A0 MOVE.L #$05,D0 MOVE.L #352,D1 MOVE.L #256,D2 CALLGRAF INITBITMAP LEA MYRASTPORT,A1 CALLGRAF INITRASTPORT LEA MYRASTPORT,A1 MOVE.L #MYBITMAP,RP_BITMAP(A1) MOVE.L MEMORY_POINTER,D0 MOVE.L D0,D1 ADD.L #11264,D1 MOVE.L D1,D2 ADD.L #11264,D2 MOVE.L D2,D3 add.l #11264,D3 move.l d3,d4 add.l #11264,d4 LEA MYBITMAP,A0 MOVE.L D0,BM_PLANES(a0) MOVE.L D1,BM_PLANES+4(a0) MOVE.L D2,BM_PLANES+8(a0) MOVE.L D3,BM_PLANES+12(A0) move.l d4,BM_PLANES+16(a0) MOVE.W D0,PL0L MOVE.W D1,PL1L MOVE.W D2,PL2L MOVE.W D3,PL3L move.w d4,pl4l SWAP D0 SWAP D1 SWAP D2 SWAP D3 swap d4 MOVE.W D0,PL0H MOVE.W D1,PL1H MOVE.W D2,PL2H MOVE.W D3,PL3H move.w d4,pl4h swap d0 swap d1 swap d2 swap d3 swap d4 move.l #9240,d5 add.l d5,d0 add.l d5,d1 add.l d5,d2 add.l d5,d3 aDD.L d5,d4 MOVE.W D0,zPL0L MOVE.W D1,zPL1L MOVE.W D2,zPL2L MOVE.W D3,zPL3L move.w d4,zpl4l SWAP D0 SWAP D1 SWAP D2 SWAP D3 swap d4 MOVE.W D0,zPL0H MOVE.W D1,zPL1H MOVE.W D2,zPL2H MOVE.W D3,zPL3H move.w d4,zpl4h MOVE.L _GFXBASE,A6 ADD.L #$32,A6 MOVE.W #$80,DMACON MOVE.L (A6),OLDCOPPER MOVE.L #NEWCOPPER,(A6) MOVE.W #$8080,DMACON jsr mt_init move.l #woblist,wobpoint move.l #string,spoint callexec forbid move.b #0,cdown move.w #$8010,$dff09a move.l $6c,old move.l #new,$6c WAIT ANDI.B #$40,$BFE001 BNE WAIT move.l old,$6c callexec permit MOVE.L _GFXBASE,A6 ADD.L #$32,A6 MOVE.W #$80,DMACON MOVE.L OLDCOPPER,(A6) MOVE.W #$8080,DMACON move.w #$8020,$dff096 ERROR clr.l d0 move.w #$f,$dff096 move.w #$0,$dff0a8 move.w #$0,$dff0b8 move.w #$0,$dff0c8 move.w #$0,$dff0d8 RTS subrt lea myfont,a1 clr.l d0 move.l spoint,a2 move.b (a2),d0 ; now has 33 cmp.b #254,d0 beq part2y add.l #1,spoint sub.b #32,d0 ; now =1 zza mulu #512,d0 ; now =512 add.l d0,a1 moveq #4,d0 lea mypiccy,a0 lea mypiccy,a2 ADD.l #9324,a0 add.l #9324,a2 outloop moveq #32,d1 inloop move.l (a1)+,(a0) add.l #44,a0 sub.b #1,d1 cmp.b #0,d1 bne inloop add.l #11264,a2 move.l a2,a0 sub.b #1,d0 cmp.b #0,d0 bne outloop rts part2y add.l #1,spoint move.b #$3a,pauser moveq #0,d0 bra zza new: movem.l d0-d7/a0-a6,-(sp) and #$10,$dff01e beq out move.w #$10,$dff09c ; woplist jsr mt_music lea depmode+3620,a0 move.l #180,d0 move.w 38(a0),tempy fred2 move.w 18(a0),38(a0) sub.l #20,a0 dbf d0,fred2 move.w tempy,38(a0) lea depmode+40,a0 move.l #180,d0 move.w 14(a0),tempz wpit move.w 34(a0),14(a0) add.l #20,a0 dbf d0,wpit move.w tempz,14(a0) lea depmode+40,a0 move.l #192,d0 wpit2 move.w 26(a0),6(a0) move.w 30(a0),10(a0) add.l #20,a0 dbf d0,wpit2 move.l wobpoint,a1 moveq #0,d0 move.w (a1),d0 add.l #2,a1 cmp.w #$1234,(a1) bne wwww move.l #woblist,a1 wwww move.l a1,wobpoint move.w d0,6(a0) move.w d0,10(a0) cmp.b #0,pauser beq zxcv sub.b #1,pauser bra out zxcv cmp.b #0,cdown bne bypass btst #2,$dff016 bne aada move.l #string2,spoint aada move.b #6,cdown bsr subrt move.l spoint,a6 cmp.b #$ff,(a6) bne bypass move.l #string,spoint bypass sub.b #1,cdown moveq #4,d0 lea mypiccy+9324,a0 lea mypiccy+9326,a1 lp80: btst #14,$dff002 ; Thank's to TBY of FREESTYLE ; for the blitter info. bne lp80 move.l a0,$dff054 ;dest move.l a1,$dff050 ;source move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w #0,$dff064 move.w #0,$dff066 move.w #%1100100111110000,$dff040 move.w #%0000000000000000,$dff042 move.w #%0000101000010111,$dff058 ; was 0000101100010111 adda.l #11264,a0 adda.l #11264,a1 dbf d0,lp80 out movem.l (sp)+,d0-d7/a0-a6 dc.w $4ef9 old dc.l 0 tempy dc.w 0 wobpoint dc.l woblist woblist dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,2,2,2,2,2,2,2 dc.w 2,2,2,2,2,$2,$2E,$2E,$2E,$2E,$2,$2 dc.w $FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E,$2E,$2,$2 dc.w $FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2,$2E,$2E,$2E,$2E,$2 dc.w $2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E,$2E,$2 dc.w $2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2,$2E,$2E,$2E,$2E dc.w $2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E,$2E dc.w $2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2,$2E,$2E,$2E dc.w $2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E dc.w $2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E dc.w $2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E dc.w $2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E dc.w $2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E dc.w $2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2 dc.w $2E,$2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2 dc.w $2E,$2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2 dc.w $2,$2E,$2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,2,2,$2e dc.w $2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w $1234 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42 dc.w $1234 count dc.b 0 read dc.l 0 falagz dc.b 0 cdown dc.b 0 pauser dc.b 0 tempz dc.w 0 OLDCOPPER DC.L 0 NEWCOPPER DC.W $0100,$5200,$0102,$0000,$0104,$000A DC.W $0108 topmod dc.w $0002,$010A,$0002 DC.W $0092,$0038,$0094,$00D4 DC.W $008E,$2C81,$0090,$2cC1 dc.w $0096,$0020 DC.W $00E0 PL0H DC.W $0000,$00E2 PL0L DC.W $0000,$00E4 PL1H DC.W $0000,$00E6 PL1L DC.W $0000,$00E8 PL2H DC.W $0000,$00EA PL2L DC.W $0000,$00EC PL3H DC.W $0000,$00EE PL3L DC.W $0000,$00F0 PL4H DC.W $0000,$00F2 PL4L DC.W $0000 DC.W $0180,$0000,$0182,$0fdb DC.W $0184,$0131,$0186,$0c30 DC.W $0188,$0eee,$018A,$0121 DC.W $018C,$0447,$018E,$0740 DC.W $0190,$0db0,$0192,$04a2 DC.W $0194,$0242,$0196,$0372 DC.W $0198,$0252,$019A,$0444 DC.W $019C,$0333,$019E,$04b2 DC.W $01a0,$0392,$01a2,$05c5 DC.W $01a4,$0ccc,$01a6,$0d70 DC.W $01a8,$0382,$01aA,$08c8 DC.W $01aC,$04d2,$01aE,$06c6 DC.W $01b0,$0bcb,$01b2,$0362 DC.W $01b4,$0aca,$01b6,$0a50 DC.W $01b8,$0f5f,$01bA,$0252 DC.W $01bC,$04a2,$01bE,$0210 depmode dc.w $2D09,$FFFE,$0108,2,$10a,2,$1ba,$00f,$1b8,$00f dc.w $2E09,$FFFE,$0108,2,$10a,2,$1ba,$01f,$1b8,$01f dc.w $2F09,$FFFE,$0108,2,$10a,2,$1ba,$02f,$1b8,$02f dc.w $3009,$FFFE,$0108,2,$10a,2,$1ba,$03f,$1b8,$03f dc.w $3109,$FFFE,$0108,2,$10a,2,$1ba,$04f,$1b8,$04f dc.w $3209,$FFFE,$0108,2,$10a,2,$1ba,$05f,$1b8,$05f dc.w $3309,$FFFE,$0108,2,$10a,2,$1ba,$06f,$1b8,$06f dc.w $3409,$FFFE,$0108,2,$10a,2,$1ba,$07f,$1b8,$07f dc.w $3509,$FFFE,$0108,2,$10a,2,$1ba,$08f,$1b8,$08f dc.w $3609,$FFFE,$0108,2,$10a,2,$1ba,$09f,$1b8,$09f dc.w $3709,$FFFE,$0108,2,$10a,2,$1ba,$0af,$1b8,$0af dc.w $3809,$FFFE,$0108,2,$10a,2,$1ba,$0bf,$1b8,$0bf dc.w $3909,$FFFE,$0108,2,$10a,2,$1ba,$0cf,$1b8,$0cf dc.w $3A09,$FFFE,$0108,2,$10a,2,$1ba,$0df,$1b8,$0df dc.w $3B09,$FFFE,$0108,2,$10a,2,$1ba,$0ef,$1b8,$0ef dc.w $3C09,$FFFE,$0108,2,$10a,2,$1ba,$0ff,$1b8,$0ff dc.w $3D09,$FFFE,$0108,2,$10a,2,$1ba,$0fe,$1b8,$0fe dc.w $3E09,$FFFE,$0108,2,$10a,2,$1ba,$0fd,$1b8,$0fd dc.w $3F09,$FFFE,$0108,2,$10a,2,$1ba,$0fc,$1b8,$0fc dc.w $4009,$FFFE,$0108,2,$10a,2,$1ba,$0fb,$1b8,$0fb dc.w $4109,$FFFE,$0108,2,$10a,2,$1ba,$0fa,$1b8,$0fa dc.w $4209,$FFFE,$0108,2,$10a,2,$1ba,$0f9,$1b8,$0f9 dc.w $4309,$FFFE,$0108,2,$10a,2,$1ba,$0f8,$1b8,$0f8 dc.w $4409,$FFFE,$0108,2,$10a,2,$1ba,$0f7,$1b8,$0f7 dc.w $4509,$FFFE,$0108,2,$10a,2,$1ba,$0f6,$1b8,$0f6 dc.w $4609,$FFFE,$0108,2,$10a,2,$1ba,$0f5,$1b8,$0f5 dc.w $4709,$FFFE,$0108,2,$10a,2,$1ba,$0f4,$1b8,$0f4 dc.w $4809,$FFFE,$0108,2,$10a,2,$1ba,$0f3,$1b8,$0f3 dc.w $4909,$FFFE,$0108,2,$10a,2,$1ba,$0f2,$1b8,$0f2 dc.w $4A09,$FFFE,$0108,2,$10a,2,$1ba,$0f1,$1b8,$0f1 dc.w $4B09,$FFFE,$0108,2,$10a,2,$1ba,$0f0,$1b8,$0f0 dc.w $4C09,$FFFE,$0108,2,$10a,2,$1ba,$1f0,$1b8,$1f0 dc.w $4D09,$FFFE,$0108,2,$10a,2,$1ba,$2f0,$1b8,$2f0 dc.w $4E09,$FFFE,$0108,2,$10a,2,$1ba,$3f0,$1b8,$3f0 dc.w $4F09,$FFFE,$0108,2,$10a,2,$1ba,$4f0,$1b8,$4f0 dc.w $5009,$FFFE,$0108,2,$10a,2,$1ba,$5f0,$1b8,$5f0 dc.w $5109,$FFFE,$0108,2,$10a,2,$1ba,$6f0,$1b8,$6f0 dc.w $5209,$FFFE,$0108,2,$10a,2,$1ba,$7f0,$1b8,$7f0 dc.w $5309,$FFFE,$0108,2,$10a,2,$1ba,$8f0,$1b8,$8f0 dc.w $5409,$FFFE,$0108,2,$10a,2,$1ba,$9f0,$1b8,$9f0 dc.w $5509,$FFFE,$0108,2,$10a,2,$1ba,$af0,$1b8,$af0 dc.w $5609,$FFFE,$0108,2,$10a,2,$1ba,$bf0,$1b8,$bf0 dc.w $5709,$FFFE,$0108,2,$10a,2,$1ba,$cf0,$1b8,$cf0 dc.w $5809,$FFFE,$0108,2,$10a,2,$1ba,$df0,$1b8,$df0 dc.w $5909,$FFFE,$0108,2,$10a,2,$1ba,$ef0,$1b8,$ef0 dc.w $5A09,$FFFE,$0108,2,$10a,2,$1ba,$ff0,$1b8,$ff0 dc.w $5B09,$FFFE,$0108,2,$10a,2,$1ba,$fe0,$1b8,$fe0 dc.w $5C09,$FFFE,$0108,2,$10a,2,$1ba,$fd0,$1b8,$fd0 dc.w $5D09,$FFFE,$0108,2,$10a,2,$1ba,$fc0,$1b8,$fc0 dc.w $5E09,$FFFE,$0108,2,$10a,2,$1ba,$fb0,$1b8,$fb0 dc.w $5F09,$FFFE,$0108,2,$10a,2,$1ba,$fa0,$1b8,$fa0 dc.w $6009,$FFFE,$0108,2,$10a,2,$1ba,$f90,$1b8,$f90 dc.w $6109,$FFFE,$0108,2,$10a,2,$1ba,$f80,$1b8,$f80 dc.w $6209,$FFFE,$0108,2,$10a,2,$1ba,$f70,$1b8,$f70 dc.w $6309,$FFFE,$0108,2,$10a,2,$1ba,$f60,$1b8,$f60 dc.w $6409,$FFFE,$0108,2,$10a,2,$1ba,$f50,$1b8,$f50 dc.w $6509,$FFFE,$0108,2,$10a,2,$1ba,$f40,$1b8,$f40 dc.w $6609,$FFFE,$0108,2,$10a,2,$1ba,$f30,$1b8,$f30 dc.w $6709,$FFFE,$0108,2,$10a,2,$1ba,$f20,$1b8,$f20 dc.w $6809,$FFFE,$0108,2,$10a,2,$1ba,$f10,$1b8,$f10 dc.w $6909,$FFFE,$0108,2,$10a,2,$1ba,$f00,$1b8,$f00 dc.w $6A09,$FFFE,$0108,2,$10a,2,$1ba,$f01,$1b8,$f01 dc.w $6B09,$FFFE,$0108,2,$10a,2,$1ba,$f02,$1b8,$f02 dc.w $6C09,$FFFE,$0108,2,$10a,2,$1ba,$f03,$1b8,$f03 dc.w $6D09,$FFFE,$0108,2,$10a,2,$1ba,$f04,$1b8,$f04 dc.w $6E09,$FFFE,$0108,2,$10a,2,$1ba,$f05,$1b8,$f05 dc.w $6F09,$FFFE,$0108,2,$10a,2,$1ba,$f06,$1b8,$f06 dc.w $7009,$FFFE,$0108,2,$10a,2,$1ba,$f07,$1b8,$f07 dc.w $7109,$FFFE,$0108,2,$10a,2,$1ba,$f08,$1b8,$f08 dc.w $7209,$FFFE,$0108,2,$10a,2,$1ba,$f09,$1b8,$f09 dc.w $7309,$FFFE,$0108,2,$10a,2,$1ba,$f0a,$1b8,$f0a dc.w $7409,$FFFE,$0108,2,$10a,2,$1ba,$f0b,$1b8,$f0b dc.w $7509,$FFFE,$0108,2,$10a,2,$1ba,$f0c,$1b8,$f0c dc.w $7609,$FFFE,$0108,2,$10a,2,$1ba,$f0d,$1b8,$f0d dc.w $7709,$FFFE,$0108,2,$10a,2,$1ba,$f0e,$1b8,$f0e dc.w $7809,$FFFE,$0108,2,$10a,2,$1ba,$f0f,$1b8,$f0f dc.w $7909,$FFFE,$0108,2,$10a,2,$1ba,$e0f,$1b8,$e0f dc.w $7A09,$FFFE,$0108,2,$10a,2,$1ba,$d0f,$1b8,$d0f dc.w $7B09,$FFFE,$0108,2,$10a,2,$1ba,$c0f,$1b8,$c0f dc.w $7C09,$FFFE,$0108,2,$10a,2,$1ba,$b0f,$1b8,$b0f dc.w $7D09,$FFFE,$0108,2,$10a,2,$1ba,$a0f,$1b8,$a0f dc.w $7E09,$FFFE,$0108,2,$10a,2,$1ba,$90f,$1b8,$90f dc.w $7F09,$FFFE,$0108,2,$10a,2,$1ba,$80f,$1b8,$80f dc.w $8009,$FFFE,$0108,2,$10a,2,$1ba,$70f,$1b8,$70f dc.w $8109,$FFFE,$0108,2,$10a,2,$1ba,$60f,$1b8,$60f dc.w $8209,$FFFE,$0108,2,$10a,2,$1ba,$50f,$1b8,$50f dc.w $8309,$FFFE,$0108,2,$10a,2,$1ba,$40f,$1b8,$40f dc.w $8409,$FFFE,$0108,2,$10a,2,$1ba,$30f,$1b8,$30f dc.w $8509,$FFFE,$0108,2,$10a,2,$1ba,$20f,$1b8,$20f dc.w $8609,$FFFE,$0108,2,$10a,2,$1ba,$10f,$1b8,$10f dc.w $8709,$FFFE,$0108,2,$10a,2,$1ba,$00f,$1b8,$00f dc.w $8809,$FFFE,$0108,2,$10a,2,$1ba,$01f,$1b8,$01f dc.w $8909,$FFFE,$0108,2,$10a,2,$1ba,$02f,$1b8,$02f dc.w $8A09,$FFFE,$0108,2,$10a,2,$1ba,$03f,$1b8,$03f dc.w $8B09,$FFFE,$0108,2,$10a,2,$1ba,$04f,$1b8,$04f dc.w $8C09,$FFFE,$0108,2,$10a,2,$1ba,$05f,$1b8,$05f dc.w $8D09,$FFFE,$0108,2,$10a,2,$1ba,$06f,$1b8,$06f dc.w $8E09,$FFFE,$0108,2,$10a,2,$1ba,$07f,$1b8,$07f dc.w $8F09,$FFFE,$0108,2,$10a,2,$1ba,$08f,$1b8,$08f dc.w $9009,$FFFE,$0108,2,$10a,2,$1ba,$09f,$1b8,$09f dc.w $9109,$FFFE,$0108,2,$10a,2,$1ba,$0af,$1b8,$0af dc.w $9209,$FFFE,$0108,2,$10a,2,$1ba,$0bf,$1b8,$0bf dc.w $9309,$FFFE,$0108,2,$10a,2,$1ba,$0cf,$1b8,$0cf dc.w $9409,$FFFE,$0108,2,$10a,2,$1ba,$0df,$1b8,$0df dc.w $9509,$FFFE,$0108,2,$10a,2,$1ba,$0ef,$1b8,$0ef dc.w $9609,$FFFE,$0108,2,$10a,2,$1ba,$0ff,$1b8,$0ff dc.w $9709,$FFFE,$0108,2,$10a,2,$1ba,$0fe,$1b8,$0fe dc.w $9809,$FFFE,$0108,2,$10a,2,$1ba,$0fd,$1b8,$0fd dc.w $9909,$FFFE,$0108,2,$10a,2,$1ba,$0fc,$1b8,$0fc dc.w $9A09,$FFFE,$0108,2,$10a,2,$1ba,$0fb,$1b8,$0fb dc.w $9B09,$FFFE,$0108,2,$10a,2,$1ba,$0fa,$1b8,$0fa dc.w $9C09,$FFFE,$0108,2,$10a,2,$1ba,$0f9,$1b8,$0f9 dc.w $9D09,$FFFE,$0108,2,$10a,2,$1ba,$0f8,$1b8,$0f8 dc.w $9E09,$FFFE,$0108,2,$10a,2,$1ba,$0f7,$1b8,$0f7 dc.w $9F09,$FFFE,$0108,2,$10a,2,$1ba,$0f6,$1b8,$0f6 dc.w $A009,$FFFE,$0108,2,$10a,2,$1ba,$0f5,$1b8,$0f5 dc.w $A109,$FFFE,$0108,2,$10a,2,$1ba,$0f4,$1b8,$0f4 dc.w $A209,$FFFE,$0108,2,$10a,2,$1ba,$0f3,$1b8,$0f3 dc.w $A309,$FFFE,$0108,2,$10a,2,$1ba,$0f2,$1b8,$0f2 dc.w $A409,$FFFE,$0108,2,$10a,2,$1ba,$0f1,$1b8,$0f1 dc.w $A509,$FFFE,$0108,2,$10a,2,$1ba,$0f0,$1b8,$0f0 dc.w $A609,$FFFE,$0108,2,$10a,2,$1ba,$1f0,$1b8,$1f0 dc.w $A709,$FFFE,$0108,2,$10a,2,$1ba,$2f0,$1b8,$2f0 dc.w $A809,$FFFE,$0108,2,$10a,2,$1ba,$3f0,$1b8,$3f0 dc.w $A909,$FFFE,$0108,2,$10a,2,$1ba,$4f0,$1b8,$4f0 dc.w $AA09,$FFFE,$0108,2,$10a,2,$1ba,$5f0,$1b8,$5f0 dc.w $AB09,$FFFE,$0108,2,$10a,2,$1ba,$6f0,$1b8,$6f0 dc.w $AC09,$FFFE,$0108,2,$10a,2,$1ba,$7f0,$1b8,$7f0 dc.w $AD09,$FFFE,$0108,2,$10a,2,$1ba,$8f0,$1b8,$8f0 dc.w $AE09,$FFFE,$0108,2,$10a,2,$1ba,$9f0,$1b8,$9f0 dc.w $AF09,$FFFE,$0108,2,$10a,2,$1ba,$af0,$1b8,$af0 dc.w $B009,$FFFE,$0108,2,$10a,2,$1ba,$bf0,$1b8,$bf0 dc.w $B109,$FFFE,$0108,2,$10a,2,$1ba,$cf0,$1b8,$cf0 dc.w $B209,$FFFE,$0108,2,$10a,2,$1ba,$df0,$1b8,$df0 dc.w $B309,$FFFE,$0108,2,$10a,2,$1ba,$ef0,$1b8,$ef0 dc.w $B409,$FFFE,$0108,2,$10a,2,$1ba,$ff0,$1b8,$ff0 dc.w $B509,$FFFE,$0108,2,$10a,2,$1ba,$fe0,$1b8,$fe0 dc.w $B609,$FFFE,$0108,2,$10a,2,$1ba,$fd0,$1b8,$fd0 dc.w $B709,$FFFE,$0108,2,$10a,2,$1ba,$fc0,$1b8,$fc0 dc.w $B809,$FFFE,$0108,2,$10a,2,$1ba,$fb0,$1b8,$fb0 dc.w $B909,$FFFE,$0108,2,$10a,2,$1ba,$fa0,$1b8,$fa0 dc.w $BA09,$FFFE,$0108,2,$10a,2,$1ba,$f90,$1b8,$f90 dc.w $BB09,$FFFE,$0108,2,$10a,2,$1ba,$f80,$1b8,$f80 dc.w $BC09,$FFFE,$0108,2,$10a,2,$1ba,$f70,$1b8,$f70 dc.w $BD09,$FFFE,$0108,2,$10a,2,$1ba,$f60,$1b8,$f60 dc.w $BE09,$FFFE,$0108,2,$10a,2,$1ba,$f50,$1b8,$f50 dc.w $BF09,$FFFE,$0108,2,$10a,2,$1ba,$f40,$1b8,$f40 dc.w $C009,$FFFE,$0108,2,$10a,2,$1ba,$f30,$1b8,$f30 dc.w $C109,$FFFE,$0108,2,$10a,2,$1ba,$f20,$1b8,$f20 dc.w $C209,$FFFE,$0108,2,$10a,2,$1ba,$f10,$1b8,$f10 dc.w $C309,$FFFE,$0108,2,$10a,2,$1ba,$f00,$1b8,$f00 dc.w $C409,$FFFE,$0108,2,$10a,2,$1ba,$f01,$1b8,$f01 dc.w $C509,$FFFE,$0108,2,$10a,2,$1ba,$f02,$1b8,$f02 dc.w $C609,$FFFE,$0108,2,$10a,2,$1ba,$f03,$1b8,$f03 dc.w $C709,$FFFE,$0108,2,$10a,2,$1ba,$f04,$1b8,$f04 dc.w $C809,$FFFE,$0108,2,$10a,2,$1ba,$f05,$1b8,$f05 dc.w $C909,$FFFE,$0108,2,$10a,2,$1ba,$f06,$1b8,$f06 dc.w $CA09,$FFFE,$0108,2,$10a,2,$1ba,$f07,$1b8,$f07 dc.w $CB09,$FFFE,$0108,2,$10a,2,$1ba,$f08,$1b8,$f08 dc.w $CC09,$FFFE,$0108,2,$10a,2,$1ba,$f09,$1b8,$f09 dc.w $CD09,$FFFE,$0108,2,$10a,2,$1ba,$f0a,$1b8,$f0a dc.w $CE09,$FFFE,$0108,2,$10a,2,$1ba,$f0b,$1b8,$f0b dc.w $CF09,$FFFE,$0108,2,$10a,2,$1ba,$f0c,$1b8,$f0c dc.w $D009,$FFFE,$0108,2,$10a,2,$1ba,$f0d,$1b8,$f0d dc.w $D109,$FFFE,$0108,2,$10a,2,$1ba,$f0e,$1b8,$f0e dc.w $D209,$FFFE,$0108,2,$10a,2,$1ba,$f0f,$1b8,$f0f dc.w $D309,$FFFE,$0108,2,$10a,2,$1ba,$e0f,$1b8,$e0f dc.w $D409,$FFFE,$0108,2,$10a,2,$1ba,$d0f,$1b8,$d0f dc.w $D509,$FFFE,$0108,2,$10a,2,$1ba,$c0f,$1b8,$c0f dc.w $D609,$FFFE,$0108,2,$10a,2,$1ba,$b0f,$1b8,$b0f dc.w $D709,$FFFE,$0108,2,$10a,2,$1ba,$a0f,$1b8,$a0f dc.w $D809,$FFFE,$0108,2,$10a,2,$1ba,$90f,$1b8,$90f dc.w $D909,$FFFE,$0108,2,$10a,2,$1ba,$80f,$1b8,$80f dc.w $DA09,$FFFE,$0108,2,$10a,2,$1ba,$70f,$1b8,$70f dc.w $DB09,$FFFE,$0108,2,$10a,2,$1ba,$60f,$1b8,$60f dc.w $DC09,$FFFE,$0108,2,$10a,2,$1ba,$50f,$1b8,$50f dc.w $DD09,$FFFE,$0108,2,$10a,2,$1ba,$40f,$1b8,$40f dc.w $DE09,$FFFE,$0108,2,$10a,2,$1ba,$30f,$1b8,$30f dc.w $DF09,$FFFE,$0108,2,$10a,2,$1ba,$20f,$1b8,$20f dc.w $E009,$FFFE,$0108,2,$10a,2,$1ba,$10f,$1b8,$10f dc.w $E109,$FFFE,$0108,2,$10a,2,$1ba,$00f,$1b8,$00f dc.w $E209,$FFFE,$0108,2,$10a,2,$1ba,$01f,$1b8,$01f dc.w $E309,$FFFE,$0108,2,$10a,2,$1ba,$02f,$1b8,$02f dc.w $E409,$FFFE,$0108,2,$10a,2,$1ba,$03f,$1b8,$03f dc.w $E509,$FFFE,$0108,2,$10a,2,$1ba,$04f,$1b8,$04f dc.w $E609,$FFFE,$0108,2,$10a,2,$1ba,$05f,$1b8,$05f dc.w $E709,$FFFE,$0108,2,$10a,2,$1ba,$06f,$1b8,$06f dc.w $E809,$FFFE,$0108,2,$10a,2,$1ba,$07f,$1b8,$07f dc.w $E909,$FFFE,$0108,2,$10a,2,$1ba,$08f,$1b8,$08f dc.w $EA09,$FFFE,$0108,2,$10a,2,$1ba,$09f,$1b8,$09f dc.w $EB09,$FFFE,$0108,2,$10a,2,$1ba,$0af,$1b8,$0af dc.w $EC09,$FFFE,$0108,2,$10a,2,$1ba,$0bf,$1b8,$0bf dc.w $ED09,$FFFE,$0108,2,$10a,2,$1ba,$0cf,$1b8,$0cf dc.w $EE09,$FFFE,$0108,2,$10a,2,$1ba,$0df,$1b8,$0df dc.w $EF09,$FFFE,$0108,2,$10a,2,$1ba,$0ef,$1b8,$0ef dc.w $F009,$FFFE,$0108,2,$10a,2,$1ba,$0ff,$1b8,$0ff dc.w $F109,$FFFE,$0108,-42,$10a,-42,$1ba,$0fe,$1b8,$0fe dc.w $F209,$FFFE,$0108,-42,$10a,-42,$1ba,$0fd,$1b8,$0fd dc.w $F309,$FFFE,$0108,-42,$10a,-42,$1ba,$0fc,$1b8,$0fc dc.w $F409,$FFFE,$0108,-42,$10a,-42,$1ba,$0fb,$1b8,$0fb dc.w $F509,$FFFE,$0108,-42,$10a,-42,$1ba,$0fa,$1b8,$0fa dc.w $F609,$FFFE,$0108,-42,$10a,-42,$1ba,$0f9,$1b8,$0f9 dc.w $F709,$FFFE,$0108,-42,$10a,-42,$1ba,$0f8,$1b8,$0f8 dc.w $F809,$FFFE,$0108,-42,$10a,-42,$1ba,$0f7,$1b8,$0f7 dc.w $F909,$FFFE,$0108,-42,$10a,-42,$1ba,$0f6,$1b8,$0f6 dc.w $FA09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f5,$1b8,$0f5 dc.w $FB09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f4,$1b8,$0f4 dc.w $FC09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f3,$1b8,$0f3 dc.w $FD09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f2,$1b8,$0f2 dc.w $FE09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f1,$1b8,$0f1 dc.w $ff09,$fffe,$ffdd,$fffe dc.w $0009,$fffe DC.W $00E0 zPL0H DC.W $0000,$00E2 zPL0L DC.W $0000,$00E4 zPL1H DC.W $0000,$00E6 zPL1L DC.W $0000,$00E8 zPL2H DC.W $0000,$00EA zPL2L DC.W $0000,$00EC zPL3H DC.W $0000,$00EE zPL3L DC.W $0000,$00F0 zPL4H DC.W $0000,$00F2 zPL4L DC.W $0000 DC.W $0180,$0000,$0182,$0000 DC.W $0184,$0fff,$0186,$0000 DC.W $0188,$0ddd,$018A,$0bbb DC.W $018C,$0aaa,$018E,$0999 DC.W $0190,$0888,$0192,$0777 DC.W $0194,$0666,$0196,$0555 DC.W $0198,$0333,$019A,$0222 DC.W $019C,$0111,$019E,$0000 dc.w $108,2,$10a,2 dc.w $0109,$fffe,$186,$000 dc.w $0209,$fffe,$186,$000 dc.w $0309,$fffe,$186,$11 dc.w $0409,$fffe,$186,$22 dc.w $0509,$fffe,$186,$33 dc.w $0609,$fffe,$186,$044 dc.w $0709,$fffe,$186,$055 dc.w $0809,$fffe,$186,$066 dc.w $0909,$fffe,$186,$077 dc.w $0a09,$fffe,$186,$088 dc.w $0b09,$fffe,$186,$099 dc.w $0c09,$fffe,$186,$0aa dc.w $0d09,$fffe,$186,$0bb dc.w $0e09,$fffe,$186,$0cc dc.w $0f09,$fffe,$186,$0dd dc.w $1009,$fffe,$186,$0ee dc.w $1109,$fffe,$186,$1ee dc.w $1209,$fffe,$186,$2ee dc.w $1309,$fffe,$186,$3ee dc.w $1409,$fffe,$186,$4ee dc.w $1509,$fffe,$186,$5ee dc.w $1609,$fffe,$186,$6ee dc.w $1709,$fffe,$186,$7Ee DC.W $1809,$fffe,$186,$8ee,$180,$1,$182,$1 dc.w $1909,$fffe,$186,$9ee,$180,$3,$182,$3 dc.w $1a09,$fffe,$186,$aee,$180,$5,$182,$5 dc.w $1b,$fffe,$186,$bee,$180,$7,$182,$7 dc.w $1c09,$fffe,$186,$cee,$180,$9,$182,$9 dc.w $1d09,$fffe,$186,$dee,$180,$b,$182,$b dc.w $1e09,$fffe,$186,$eee,$180,$d,$182,$d dc.w $1f09,$fffe,$186,$0f0,$180,$e,$182,$e dc.w $2109,$fffe,$108,$ff7e,$10a,$ff7e dc.w $2309,$fffe,$186,$ccc woplist dc.w $2409,$fffe,$186,$bcc dc.w $2509,$fffe,$186,$acc dc.w $2609,$fffe,$186,$9cc dc.w $2709,$fffe,$186,$8bb dc.w $2809,$fffe,$186,$7bb dc.w $2909,$fffe,$186,$6bb dc.w $2a09,$fffe,$186,$5aa dc.w $2b09,$fffe,$186,$4aa dc.w $2c09,$fffe,$186,$3aa dc.w $2d09,$fffe,$186,$299 dc.w $2e09,$fffe,$186,$199 dc.w $2f09,$fffe,$186,$099 dc.w $3009,$fffe,$186,$088 dc.w $3109,$fffe,$108,$8c6,$10a,$8c6 dc.w $3209,$fffe,$108,$2,$10a,$2 dc.w $3309,$fffe,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60 dc.w $18a,$b50,$18c,$a50,$18e,$840 dc.w $9c,$8010 DC.W $FFFF,$FFFE gfxlib dc.b "graphics.library",0 EVEN _gfxbase dc.l 0 MEMORY_POINTER dc.l 0 MYRASTPORT ds.b RP_Sizeof MYBITMAP ds.b BM_Sizeof colour dc.w 0 flagz dc.b 0 wopptr dc.l wopdata wopdata dc.w 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,14,13,12,11,10,9,8 dc.w 7,6,5,4,3,2,1,$ffff string ; * dc.b " " dc.b " GENERATE DON'T MEDITATE........ " dc.b " COMRADE J ",254 dc.b "OF SHARE&ENJOY PROUDLY PRESENTS THE " DC.B "LATEST " Dc.b " a SAE DEMO a",254 DC.B "RELEASED ON THE SHARE&ENJOY/ALPHA FLIGHT (FREESTYLE U.K.) " DC.B "COPY PARTY (NOVEMBER 19TH)." dc.b " ALL CODING BY COMRADE J, GRAPHICS BY OZONE, FONT BY TIW, AND TUNE " dc.b "BY WILD COPPER FROM THEIR MEGA DEMO DISK (RIPPED BY " dc.b "COMRADE J, OF COURSE. NORTHSTAR SOUNDTRACKER RIPPER COULDN'T FIND IT, " dc.b "BUT THEN COOOOL PEOPLE DON'T NEED THE RIPPER ANYWAY!) " DC.B " SORRY ABOUT THIS DEMO NOT BEING TOTALLY BRILLIANT, BUT UNIVERSITY IS TAKING UP " DC.B "A LOT OF MY TIME AT THE MOMENT, AND I'M ALWAYS AWAY. SORRY IF YOU PHONE ME AND I'M " DC.B "NEVER IN. >< >< >< >< >< " DC.B " THIS DEMO WAS ORIGINALY CODED ON THE SINCLAIR QL IN FORTH (PORTED FROM AN EARLIER " dc.b "ROUTINE I WROTE ON THE COMMODORE PET). THE GRAPHICS WERE DRAWN USING GRAPHICRAFT, " dc.b "THE TUNE USES THE INSTANT MUSIC PLAY ROUTINE, AND THE DEMO WAS COMPILED USING PUBLIC DOMAIN PROLOG. " dc.b " WOT A LOAD OF BOLLOKZ! (TRY CONVERTING +184619205 INTO HEX). " dc.b " DEVPAC USERS RULE THE WORLD, SEKA LOVERS ROT IN HELL!!!!! " dc.b "SHARE&ENJOY ARE....." dc.b " COMRADE J ",254 dc.b " T.I.W. ",254 dc.b " OVERLORD X ",254 dc.b " OZONE ",254 dc.b " KRS 1 ",254 dc.b " ANARCKY ",254 DC.B " MR KIPLING ",254 dc.b " EKO RANGER ",254 dc.b " SCOOBY DOO ",254 dc.b " ZIT ",254 dc.b " ROMEO ",254 dc.b " DOUBLE M ",254 dc.b " RATH. . .",254 dc.b ". .THE DRUID! " dc.b " ALSO, OUR AFFILIATED GROUPS ARE: " DC.B " THE B.S.S: ",254 dc.b " BRITISH SWAPPING SYNDICATE (GREY AND PHIL), " DC.B " THE N.C.B: ",254 dc.b " THE NATIONAL CRACKING BOARD (CHRIS, ETC). " dc.b " IT'S COMRADE J HERE (AND WHY NOT, I WROTE THIS!), " dc.b " AND WHAT A LOVELY NIGHT IT IS AT THE MOMENT. IT'S THURSDAY AT THE MOMENT (I'M WRITING THIS " dc.b "BEFORE THE COPY PARTY), SORRY, IT'S FRIDAY. I FORGOT. IT'S NOW 04:19AM ON MY BEDSIDE CLOCK AND 04:22AM ON " dc.b "MY WATCH. YEAH, SLEEP IS FOR LAMERS ONLY!!! " DC.B " OH YEAH, IF YOU WANT TO CONTACT SHARE&ENJOY, PRESS THE RIGHT " DC.B "MOUSE BUTTON! (DON'T HESITIATE, DO IT NOW!). COMRADE J SENDS HIS GREETS TO (IN NO PARTICULAR ORDER) " dc.b "ALL SAE MEMBERS (INCLUDING BSS AND NCB), " DC.B " CRACK FORCE FIVE, ASS (PREDATOR), PUBLIC ENEMY (MARIDIAN), ACCUMULATORS (CITYHUNTER + CO.), " dc.b "THE ARCADE MASTER, THE TOP BOYS (VICTORY), THE CULPRITS (XTRO, HYDROS AND ZIGOR), " DC.B "L'DISQUE (SHADOW WARRIOR), THE LOST BOYS (MARKER), CYRUS (R.I.P. PERCEPOLIS!), FREESTYLE U.K./AFL (HAWKY, FROSTY, BIG AL, PARALLAX AND " DC.B "ALL OUR OTHER FRIENDS), STUPID NAME TEAM (YIDDO, SORRY YOU COULDN'T COME TODAY), " dc.b "TC, TBY (WHY DO YOU ALWAYS COME DOWN WHILE I'M AWAY?), CBB (MAZE CHAMPION - SORRY" DC.B " I HAVEN'T WRITTEN FOR FOUR MONTHS!!!), ACES HIGH, NILRAC ENTERPRISES (NEW ZEALAND), SLAC (PHANTOM&MAVERICK), " dc.b "TRICKY, JAY-II (KEEP ON LARFIN'), THE COLONEL(a) (GET A JOB AND BUY ANOTHER AMIGA, THEN YOU CAN JOIN SAE AGAIN!!! [FOR THOSE WHO DON'T KNOW, " dc.b "THE COLONEL FOUNDED SAE WITH ME, COMRADE J]), " DC.B "AND LAST AND aDEFINATELYa LEAST, LIGOTARGE (BUY YOUR OWN OUTRUN!) " DC.B " MEGA HELLOS TO TWO FREAKY PEOPLE, THE MAD DIGGER AND ARMAGEDDON (THE ORGANISERS OF " dc.b "THE SHARE&ENJOY FAN CLUB!!!). SORRY IF I FORGOT YOU, LOOK FURTHER ON! " dc.b " THIS TIME THE MEGA ATARI'S GO TO THE BaSTARD WHO RELEASED ""EDDIE EDWARDS STUPID SKI-ING"" WITH " dc.b "'WORLD OF WANaERS' ON THE LOADER, ALSO TO THE ARSEHOLES WHO HAVE BEEN ANNOYING OUR FRIENDS FREESTYLE U.K. ON THE PHONE (CONTRARY TO RUMOUR SAE AND FUK ARE STILL GOOD FRIENDS). " dc.b " ONE MORE THING, THERE IS A PERSON CALLED 'MORPH' WHO KEEPS ON SAYING HE KNOWS ME, BUT I CAN'T REMEBER EVER MEETING HIM! " dc.b "IF YOU REALLY HAVE MET ME, MEET ME AGAIN. IF YOU ARE SPREADING BULLSHIT, STOP! " dc.b " MY NEXT DEMO WILL BE A MEGADEMO, BUT WON'T BE AVAILABLE UNTIL AFTER XMAS, THIS IS BECAUSE I'M NOT GOING TO RUSH IT (THIS DEMO TOOK 1 WEEK). " dc.b " LET'S HIDE IT HERE WHERE NO-ONE WILL SEE IT! " dc.b " THERE IS A COMPUTER SHOP........." dc.b " IT IS RUN BY WANaERS........." dc.b " IT IS CALLED ",254 dc.b " Ha-VaLaAaE! ",254 dc.b " (I CHICKENED OUT AT THE LAST MOMENT!, HENCE THE aaaa's) " dc.b " BY THE WAY, THE a SYMBOL IS THE OFFICIAL SAE SYMBOL, TAKEN FROM THE " dc.b "'CONCERTS IN CHINA' ALBUM BY JEAN MICHEL JARRE, IT WAS ORIGINALY DRAWN BY " dc.b "THE CO-FOUNDER, THE COLONEL, WHO HAS NOW GOT NO AMIGA DUE TO FINANCIAL NEEDS (HE NEEDED TO EAT) " DC.B " OH WELL, ENOUGH FROM ME, LISTEN TO THIS BORING PERSON INSTEAD......" dc.b 255 ds.b 15000 dc.b 255 string2 dc.b "------ IF U WANT TO CONTACT SHARE&ENJOY, GRAB A WRITING IMPLEMENT " DC.B "AND MAKE CAREFUL NOTE OF THE FOLLOWING ADDRESS. " DC.B " SHARE&ENJOY ",254 DC.B " 26 SOUTHWAY ",254 DC.B " CROYDON ",254 DC.B " SURREY ",254 DC.B " CR0, 8RP ",254 DC.B " ENGLAND ",254 DC.B " NO LAMERS PLEASE!" dc.b " ------" dc.b 255 spoint dc.l string myfont dc.b "fog " ds.b 33788 dc.l 0 mypiccy dc.b "fog " ds.b 56316+100 ;*********************************** ;*********************************** ;** ** ;** SoundTracker V4.0 Playroutine ** ;** ** ;** Coder 1 : Karsten Obarski ** ;** ** ;** Coder 2 : The Exterminator ** ;** ** ;** Coder 3 : Il Scuro ** ;** ** ;** Coder 4 : AFL 1970 ** ;** ** ;** Translator (to DEVPAC) ** ;** Comrade J of Share and ** ;** Enjoy ** ;*********************************** ;*********************************** dc.l 0 mt_speed equ $1f4 bsr mt_init move.w #$4000,$dff09a move.l $00006c,mt_oldirq move.l #mt_newirq,$00006c move.w #$c000,$dff09a mt_wait: btst #6,$bfe001 bne.s mt_wait move.w #$000f,$dff096 move.w #$4000,$dff09a move.l mt_oldirq,$00006c move.w #$c000,$dff09a clr.l d0 rts mt_init: move.l #s1,mt_sample1 move.l #s2,mt_sample2 move.l #s3,mt_sample3 move.l #s4,mt_sample4 move.l #s5,mt_sample5 move.l #s6,mt_sample6 move.l #s7,mt_sample7 move.l #s8,mt_sample8 move.l #s9,mt_sample9 move.l #sa,mt_sample10 move.l #sb,mt_sample11 move.l #sc,mt_sample12 move.l #sd,mt_sample13 move.l #se,mt_sample14 move.l #sf,mt_sample15 move.l #mt_sample1,a0 clr.l d0 mt_clear: move.l (a0,d0),a1 clr.l (a1) addq #4,d0 cmp.l #$3c,d0 bne.s mt_clear move.w #0,$dff0a8 move.w #0,$dff0b8 move.w #0,$dff0c8 move.w #0,$dff0d8 eor.w #$c000,mt_voice0+12 clr.l mt_partnrplay clr.l mt_partnote clr.l mt_partpoint move.b mt_sampleinfo+$1d6,mt_maxpart+1 move.b mt_sampleinfo+$1d7,mt_kn1+1 rts mt_newirq: movem.l d0-d7/a0-a6,-(a7) bsr mt_music movem.l (a7)+,d0-d7/a0-a6 dc.w $4ef9 mt_oldirq: dc.l 0 mt_music: addq.l #1,mt_counter move.l mt_tempo,d0 cmp.l mt_counter,d0 bne.s mt_notsix clr.l mt_counter bra mt_rout2 mt_notsix: lea mt_aud1temp,a6 tst.b 3(a6) beq.s mt_arp1 move.l #$dff0a0,a5 bsr.s mt_arprout mt_arp1: lea mt_aud2temp,a6 tst.b 3(a6) beq.s mt_arp2 move.l #$dff0b0,a5 bsr.s mt_arprout mt_arp2: lea mt_aud3temp,a6 tst.b 3(a6) beq.s mt_arp3 move.l #$dff0c0,a5 bsr.s mt_arprout mt_arp3: lea mt_aud4temp,a6 tst.b 3(a6) beq.s mt_arp4 move.l #$dff0d0,a5 bsr.s mt_arprout mt_arp4: bra mt_stop mt_arprout: tst.w 24(a6) beq.s mt_noslide clr.w d0 move.b 25(a6),d0 lsr.b #4,d0 tst.b d0 beq.s mt_voldwn2 bsr mt_pushvol1 bra.s mt_noslide mt_voldwn2: clr.w d0 move.b 25(a6),d0 bsr mt_pushvol2 mt_noslide: move.b 2(a6),d0 and.b #$0f,d0 tst.b d0 beq.L mt_arpegrt cmp.b #3,d0 beq.L mt_arpegrt cmp.b #4,d0 beq.L mt_arpegrt cmp.b #5,d0 beq.L mt_arpegrt cmp.b #1,d0 beq.s mt_portup cmp.b #6,d0 beq.s mt_portup cmp.b #7,d0 beq.s mt_portup cmp.b #8,d0 beq.s mt_portup cmp.b #2,d0 beq.s mt_portdwn cmp.b #9,d0 beq.s mt_portdwn cmp.b #10,d0 beq.s mt_portdwn cmp.b #11,d0 beq.s mt_portdwn cmp.b #13,d0 beq.s mt_volup rts mt_portup: clr.w d0 move.b 3(a6),d0 sub.w d0,22(a6) cmp.w #$71,22(a6) bpl.s mt_ok1 move.w #$71,22(a6) mt_ok1: move.w 22(a6),6(a5) rts mt_portdwn: clr.w d0 move.b 3(a6),d0 add.w d0,22(a6) cmp.w #$358,22(a6) bmi.s mt_ok2 move.w #$358,22(a6) mt_ok2: move.w 22(a6),6(a5) rts mt_volup: clr.w d0 move.b 3(a6),d0 lsr.b #4,d0 tst.b d0 beq.s mt_voldwn mt_pushvol1: add.w d0,$12(a6) cmp.w #$40,$12(a6) bmi.s mt_ok3 move.w #$40,$12(a6) mt_ok3: move.w $12(a6),8(a5) rts mt_voldwn: clr.w d0 move.b 3(a6),d0 mt_pushvol2: and.b #$0f,d0 sub.w d0,$12(a6) bpl.s mt_ok4 clr.w $12(a6) mt_ok4: move.w $12(a6),8(a5) rts mt_arpegrt: cmp.l #1,mt_counter beq.s mt_loop2 cmp.l #2,mt_counter beq.s mt_loop3 cmp.l #3,mt_counter beq.s mt_loop4 cmp.l #4,mt_counter beq.s mt_loop2 cmp.l #5,mt_counter beq.s mt_loop3 rts mt_loop2: clr.l d0 move.b 3(a6),d0 lsr.b #4,d0 bra.s mt_cont mt_loop3: clr.l d0 move.b 3(a6),d0 and.b #$0f,d0 bra.s mt_cont mt_loop4: move.w 16(a6),d2 bra.s mt_endpart mt_cont: lsl.w #1,d0 clr.l d1 move.w 16(a6),d1 lea mt_arpeggio,a0 mt_loop5: move.w (a0,d0),d2 cmp.w (a0),d1 beq.s mt_endpart addq.l #2,a0 bra.s mt_loop5 mt_endpart: move.w d2,6(a5) rts mt_rout2: lea mt_sampleinfo,a0 move.l a0,a3 add.l #$0c,a3 move.l a0,a2 add.l #$1d8,a2 add.l #$258,a0 move.l mt_partnrplay,d0 clr.l d1 move.b (a2,d0),d1 mulu #$0400,d1 add.l mt_partnote,d1 move.l d1,mt_partpoint clr.w mt_dmacon move.l #$dff0a0,a5 lea mt_aud1temp,a6 bsr mt_playit move.l #$dff0b0,a5 lea mt_aud2temp,a6 bsr mt_playit move.l #$dff0c0,a5 lea mt_aud3temp,a6 bsr mt_playit move.l #$dff0d0,a5 lea mt_aud4temp,a6 bsr mt_playit move.l #mt_speed,d0 mt_rls: dbf d0,mt_rls move.l #$8000,d0 add.w mt_dmacon,d0 move.w d0,$dff096 move.l #mt_aud4temp,a6 cmp.w #1,14(a6) bne.s mt_voice3 move.l 10(a6),$dff0d0 move.w #1,$dff0d4 mt_voice3: move.l #mt_aud3temp,a6 cmp.w #1,14(a6) bne.s mt_voice2 move.l 10(a6),$dff0c0 move.w #1,$dff0c4 mt_voice2: move.l #mt_aud2temp,a6 cmp.w #1,14(a6) bne.s mt_voice1 move.l 10(a6),$dff0b0 move.w #1,$dff0b4 mt_voice1: move.l #mt_aud1temp,a6 cmp.w #1,14(a6) bne.s mt_voice0 move.l 10(a6),$dff0a0 move.w #1,$dff0a4 mt_voice0: lea mt_modulate,a0 move.l mt_partnote,d0 lsl.b #7,d0 add.l #$10,d0 move.l d0,mt_partnote cmp.l #$400,d0 bne.s mt_stop clr.l mt_partnote addq.l #1,mt_partnrplay clr.l d0 move.w mt_maxpart,d0 move.l mt_partnrplay,d1 cmp.l d0,d1 bne.s mt_stop clr.l mt_partnrplay mt_stop: rts mt_playit: move.l (a0,d1),(a6) addq.l #4,d1 clr.l d2 move.b 2(a6),d2 and.b #$f0,d2 lsr.b #4,d2 tst.b d2 beq.s mt_nosamplechange clr.l d3 lea mt_samples,a1 move.l d2,d4 mulu #4,d2 mulu #$1e,d4 move.l (a1,d2),4(a6) move.w (a3,d4),8(a6) move.w 2(a3,d4),18(a6) move.w 4(a3,d4),d3 tst.w d3 beq.s mt_displace move.l 4(a6),d2 add.l d3,d2 move.l d2,4(a6) move.l d2,10(a6) move.w 6(a3,d4),8(a6) move.w 6(a3,d4),14(a6) move.w 18(a6),8(a5) bra.s mt_nosamplechange mt_displace: move.l 4(a6),d2 add.l d3,d2 move.l d2,10(a6) move.w 6(a3,d4),14(a6) move.w 18(a6),8(a5) mt_nosamplechange: tst.w (a6) beq.s mt_retrout move.w (a6),16(a6) move.w 20(a6),$dff096 move.l 4(a6),(a5) move.w 8(a6),4(a5) move.w (a6),6(a5) move.w 20(a6),d0 or.w d0,mt_dmacon mt_retrout: move.w 20(a6),d0 lsl.w #4,d0 add.w 20(a6),d0 move.w d0,$dff09e tst.w (a6) beq.s mt_nonewper move.w (a6),22(a6) mt_nonewper: move.b 2(a6),d0 and.b #$0f,d0 cmp.b #14,d0 beq.s mt_zx1 cmp.b #15,d0 bne.s mt_noset move.w 2(a6),d0 and.l #$f,d0 move.l d0,mt_tempo rts mt_zx1: move.w 2(a6),24(a6) rts mt_noset: tst.b 3(a6) bne.s mt_noclr clr.w 24(a6) mt_noclr: cmp.b #3,d0 beq.s mt_modvol cmp.b #6,d0 beq.s mt_modvol cmp.b #9,d0 beq.s mt_modvol cmp.b #4,d0 beq.s mt_modper cmp.b #7,d0 beq.s mt_modper cmp.b #10,d0 beq.s mt_modper cmp.b #5,d0 beq.s mt_modvolper cmp.b #8,d0 beq.s mt_modvolper cmp.b #11,d0 beq.s mt_modvolper cmp.b #12,d0 bne.s mt_nochnge move.b 3(a6),8(a5) mt_nochnge: rts mt_modvol: move.w 20(a6),d0 bra.s mt_push mt_modper: move.w 20(a6),d0 lsl.w #4,d0 bra.s mt_push mt_modvolper: move.w 20(a6),d0 lsl.w #4,d0 add.w 20(a6),d0 mt_push: add.w #$8000,d0 move.w d0,$dff09e rts mt_aud1temp: dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0001,$0000,$0000 mt_aud2temp: dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0002,$0000,$0000 mt_aud3temp: dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0004,$0000,$0000 mt_aud4temp: dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0008,$0000,$0000 mt_partnote: dc.l 0 mt_partnrplay: dc.l 0 mt_counter: dc.l 0 mt_tempo: dc.l 6 mt_partpoint: dc.l 0 mt_samples: dc.w $0000,$0000 mt_sample1: dc.l 0 mt_sample2: dc.l 0 mt_sample3: dc.l 0 mt_sample4: dc.l 0 mt_sample5: dc.l 0 mt_sample6: dc.l 0 mt_sample7: dc.l 0 mt_sample8: dc.l 0 mt_sample9: dc.l 0 mt_sample10: dc.l 0 mt_sample11: dc.l 0 mt_sample12: dc.l 0 mt_sample13: dc.l 0 mt_sample14: dc.l 0 mt_sample15: dc.l 0 mt_maxpart: dc.w $0000 mt_kn1: dc.w $0000 mt_dmacon: dc.w $0000 mt_modulate: dc.w $0c39,$0039,$00bf,$ec01,$6630,$0839,$0007,$00bf dc.w $e001,$6626,$2c79,$0000,$0004,$43fa,$0020,$4eae dc.w $fe68,$2c40,$4280,$41fa,$0026,$223c,$0000,$0032 dc.w $4eae,$ffa6,$60ee,$0000,$0000,$4e75,$696e,$7475 dc.w $6974,$696f,$6e2e,$6c69,$6272,$6172,$7900,$0104 dc.w $1753,$6f75,$6e64,$5472,$6163,$6b65,$7220,$5632 dc.w $0063,$00f0,$20a9,$2054,$6865,$204a,$756e,$676c dc.w $6520,$436f,$6d6d,$616e,$6400,$0000 mt_arpeggio: dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0 dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097 dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000 dc.l 0 mt_sampleinfo: dc.b "fog " ds.b 16972 s1: ds.b 4000 s2: ds.b 4500 s3: ds.b 3000 s4: ds.b 1900 s5: ds.b 9800 s6: ds.b 2300 s7: ds.b 2300 s8: ds.b 3000 s9: ds.b 8900 sa: ds.b 9800 sb: ds.b 9900 sc: ds.b 0 sd: ds.b 0 se: ds.b 0 sf: ds.b 0 
