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 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 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,$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 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 $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 " aa SAE aa ",254 dc.b " (SHARE&ENJOY) PRESENTS THE WALKER DEMO, " dc.b "FOR ALL YOU LUCKY PEOPLE (UNLIKE ME!) WHO HAVE " dc.b "AT LEAST 2 MEGABYTES OF MEMORY! IF YOU DON'T, THEN " dc.b "FORGET IT! THANK'S TO L'DISQUE FOR SUPPLYING IT, AND " dc.b "GREETS TO THE ARCADE MASTER, THE ONLY OTHER PERSON I KNOW WHO CAN RUN IT! " dc.b "SHORT OF SPACE TODAY (THAT'S WHY NO TUNE ON THIS INTRO), SO BYEEEE!" dc.b " ",255 string2 dc.b "------ IF YOU WANT TO CONTACT SHARE AND ENJOY, GRAB A WRITING IMPLEMENT " DC.B "AND MAKE CAREFUL NOTE OF THE FOLLOWING ADDRESS. " DC.B " SHARE&ENJOY ",254 DC.B " ROSEMOUNT ",254 DC.B " 48 MOUNTPLEASANT RD," DC.B " LEWISHAM ",254 DC.B " LONDON ",254 DC.B " SE13, 6RE ",254 DC.B " ENGLAND ",254 DC.B " NO LAMERS PLEASE!, AND NOW BACK TO THE MAIN TEXT ------" 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