opt c- section sae,code_c ; seka v2.1 source code by Comrade J of Share and Enjoy / Scoopex U.K. go: move.w #$ffff,d0 .loop move.w $dff006,$dff180 dbra d0,.loop move.l #$10001000,d2 move.l #$00001000,d3 move.l #$10000000,d4 move.l #$10000000,d5 move.l #spritelist,a0 move.b #$34,d0 spmk: move.b d0,(a0)+ move.b d1,(a0)+ addi.b #$1,d0 move.b d0,(a0)+ clr.b (a0)+ move.l d2,(a0)+ addi.b #$1,d0 add.l a0,d1 sub.b d0,d1 exg d2,d3 exg d3,d4 exg d4,d5 cmp.b #200,d0 bne.s spmk move.b #2,$bfe001 move.w #$8020,pointer move.l #spritelist,d0 move.w d0,s0l swap d0 move.w d0,s0h ; move.w #$20,$dff096 ; turn off pointer lea GFXLIB,a1 MOVEQ #0,D0 MOVE.L 4,a6 JSR -$228(a6) ; OpenLibrary TST D0 BEQ ERROR MOVE.L D0,GFXBASE move.l #logo,d0 move.w d0,ll0l swap d0 move.w d0,ll0h swap d0 add.l #3320,d0 move.w d0,ll1l swap d0 move.w d0,ll1h move.l #showplane,d0 move.w d0,pl0l swap d0 move.w d0,pl0h move.l #showplane+5250+420,d0 move.w d0,pl1l swap d0 move.w d0,pl1h MOVE.L GFXBASE,A6 ADD.L #$32,A6 MOVE.W #$80,$dff096 move.l (A6),OLDCOPPER move.l #NEWCOPPER,(A6) MOVE.W #$8080,$dff096 move.l 4,a6 jsr -132(a6) move.w #$8010,$dff09a move.l $6c,old move.l #new,$6c WAIT: and.b #$40,$bfe001 bne wait bra byebye cleanup: move.l 4,a6 jsr -138(a6) move.l old,$6c MOVE.L GFXBASE,A6 ADD.L #$32,A6 MOVE.W #$0080,$dff096 MOVE.L a4,(A6) MOVE.W #$8080,$dff096 ERROR: clr.l d0 move.w $8020,pointer move.w $8020,$dff096 move.w #$f,$dff096 move.w #$0,$dff0a8 move.w #$0,$dff0b8 move.w #$0,$dff0c8 move.w #$0,$dff0d8 RTS byebye: move.l oldcopper,a4 jmp cleanup getmodulo: move.l sinpt2,a6 move.b (a6)+,d3 move.b (a6),d4 cmp.b #255,d4 bne okyarb move.l #sintab2,a6 okyarb: move.l a6,sinpt2 move.b d3,sinmodulo rts new: movem.l d0-d7/a0-a6,-(sp) and #$10,$dff01e beq out move.w #$10,$dff09c bsr scrolly bsr spritemove bsr getmodulo out: movem.l (sp)+,d0-d7/a0-a6 dc.w $4ef9 old: dc.l 0 spritemove: lea spritelist,a0 move.b #$15,d0 sdf: addi.b #$1,1(a0) addi.b #$2,9(a0) addi.b #$3,$11(a0) addi.b #$4,$19(a0) adda.l #$20,a0 subi.b #$1,d0 bne sdf rts sinscroll: ; first blit clear the scrolly lea showplane,a0 blitready: btst #14,$dff002 bne blitready move.l a0,$dff054 move.l a0,$dff050 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w #0,$dff064 move.w #0,$dff066 move.w #%0000000100000000,$dff040 move.w #0,$dff042 move.w #%1011010101010,$dff058 move.l sinpt,a3 sub.l #1,a3 move.b (a3),d0 cmp.b #255,d0 bne yaz move.l #sintabend,a3 yaz: move.l a3,sinpt moveq #19,d0 lea scrollplane,a0 lea showplane+84,a1 sloop3: move.l #$dff000,a6 moveq #0,d6 moveq #40,d5 move.w #%0000110111111100,a5 move.w #%100000000001,d7 bsr getsinval zonk: btst #14,$dff002 bne zonk move.l a0,$50(a6) move.l a2,$54(a6) move.l #$c000c000,$44(a6) move.w d5,$64(a6) move.w d5,$66(A6) move.w #%0000100111110000,$40(a6) move.w d6,$42(A6) move.w #%100000000001,$58(A6) bsr getsinval zonk1.5: btst #14,$dff002 bne zonk1.5 move.l a0,$50(a6) move.l a2,$54(a6) move.l a2,$4c(a6) move.l #$30003000,$44(a6) move.w d5,$64(A6) move.w d5,$66(a6) move.w d5,$62(a6) move.w a5,$40(a6) move.w d6,$42(a6) move.w d7,$58(a6) bsr getsinval zonk2: btst #14,$dff002 bne zonk2 move.l a0,$50(a6) move.l a2,$54(a6) move.l a2,$4c(a6) move.l #$c000c00,$44(a6) ; move.w d5,$64(A6) ; move.w d5,$66(a6) ; move.w d5,$62(a6) ; move.w a5,$40(a6) ; move.w d6,$42(a6) move.w d7,$58(a6) bsr getsinval zonk2.5: btst #14,$dff002 bne zonk2.5 move.l a0,$50(a6) move.l a2,$54(a6) move.l a2,$4c(a6) move.l #$3000300,$44(a6) ; move.w d5,$64(A6) ; move.w d5,$66(a6) ; move.w d5,$62(a6) ; move.w a5,$40(a6) ; move.w d6,$42(a6) move.w d7,$58(a6) bsr getsinval zonk3: btst #14,$dff002 bne zonk3 move.l a0,$dff050 move.l a2,$dff054 move.l a2,$dff04c move.l #$c000c0,$dff044 ; move.w d5,$dff064 ; move.w d5,$dff066 ; move.w d5,$dff062 ; move.w a5,$dff040 ; move.w d6,$dff042 move.w d7,$dff058 bsr getsinval zonk3.5: btst #14,$dff002 bne zonk3.5 move.l a0,$50(a6) move.l a2,$54(a6) move.l a2,$4c(a6) move.l #$300030,$44(a6) ; move.w d5,$64(A6) ; move.w d5,$66(a6) ; move.w d5,$62(a6) ; move.w a5,$40(a6) ; move.w d6,$42(a6) move.w d7,$58(a6) bsr getsinval zonk4: btst #14,$dff002 bne zonk4 move.l a0,$dff050 move.l a2,$dff054 move.l a2,$dff04c move.l #$c000c,$dff044 ; move.w d5,$dff064 ; move.w d5,$dff066 ; move.w d5,$dff062 ; move.w a5,$dff040 ;move.w d6,$dff042 move.w d7,$dff058 bsr getsinval zonk4.5: btst #14,$dff002 bne zonk4.5 move.l a0,$50(a6) move.l a2,$54(a6) move.l a2,$4c(a6) move.l #$30003,$44(a6) ; move.w d5,$64(A6) ; move.w d5,$66(a6) ; move.w d5,$62(a6) ; move.w a5,$40(a6) ; move.w d6,$42(a6) move.w d7,$58(a6) add.l #2,a0 add.l #2,a1 dbra d0,sloop3 rts getsinval: moveq #0,d1 move.b (a3)+,d1 move.b (a3),d2 cmp.b #255,d2 bne okyar move.l #sintab,a3 okyar: move.b sinmodulo,d4 add.b d4,d1 bclr #0,d1 mulu #21,d1 move.l a1,a2 add.l d1,a2 rts scrolly: move.b pause,d0 cmp.b #0,d0 beq gopast sub.b #1,d0 move.b d0,pause bra gopast2 gopast: lea scrollplane,a0 lea scrollplane+2,a1 blitready2: btst #14,$dff002 bne blitready2 move.l a0,$dff054 move.l a1,$dff050 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w #0,$dff064 move.w #0,$dff066 move.w #%1100100111110000,$dff040 move.w #0,$dff042 move.w #%101000010111,$dff058 gopast2: bsr sinscroll move.b pause,d0 cmp.b #0,d0 bne iuo move.b countdown,d0 sub.b #1,d0 cmp.b #0,d0 beq mfc move.b d0,countdown iuo: rts sinpt: dc.l sintabend sinpt2: dc.l sintab2 dc.b 255 sintab: dc.b $3C,$3F,$42,$46,$49,$4C,$50,$53,$56,$59 dc.b $5C,$5F,$61,$64,$67,$69,$6B,$6D,$6F,$71 dc.b $72,$73,$75,$76,$76,$77,$77,$77,$77,$77 dc.b $77,$76,$76,$75,$73,$72,$71,$6F,$6D,$6B dc.b $69,$67,$64,$61,$5F,$5C,$59,$56,$53,$50 dc.b $4C,$49,$46,$42,$3F,$3C,$38,$35,$31,$2E dc.b $2B,$27,$24,$21,$1E,$1B,$18,$16,$13,$10 dc.b $E,$C,$A,$8,$6,$5,$4,$2,$1,$1 dc.b $0,$0,$0,$0,$0,$0,$1,$1,$2,$4 dc.b $5,$6,$8,$A,$C,$E,$10,$13,$16,$18 dc.b $1B,$1E,$21,$24,$27,$2B,$2E,$31,$35 sintabend: dc.b $38 dc.b 255,255,255,255 pause: dc.b 0 sinmodulo: dc.b 0 sintab2: dc.b 60,61,62,64,65,66,68,69,70,72,73,74,75,77,78,79,81,82,83,84,86,87 dc.b 88,89,90,91,93,94,95,96,97,98,99,100,101,102,103,104,105,106,106 dc.b 107,108,109,110,110,111,112,112,113,114,114,115,115,116,116,117 dc.b 117,117,118,118,118,119,119,119,119,119,119,119,119,120,119,119 dc.b 119,119,119,119,119,119,118,118,118,117,117,117,116,116,115,115 dc.b 114,114,113,112,112,111,110,110,109,108,107,106,106,105,104,103 dc.b 102,101,100,99,98,97,96,95,94,93,91,90,89,88,87,86,84,83,82,81 dc.b 79,78,77,75,74,73,72,70,69,68,66,65,64,62,61,59,58,57,55,54,53 dc.b 51,50,49,47,46,45,44,42,41,40,38,37,36,35,33,32,31,30,29,28,26 dc.b 25,24,23,22,21,20,19,18,17,16,15,14,13,13,12,11,10,9,9,8,7,7,6,5 dc.b 5,4,4,3,3,2,2,2,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2 dc.b 2,3,3,4,4,5,5,6,7,7,8,9,9,10,11,12,13,13,14,15,16,17,18,19,20,21 dc.b 22,23,24,25,26,28,29,30,31,32,33,35,36,37,38,40,41,42,44,45,46 dc.b 47,49,50,51,53,54,55,57,58 dc.b 255 even mfc: move.b #4,countdown move.w #0,scrollplane+40 move.w #0,scrollplane+82 move.l #scrollplane+124,a1 bsr charaddress moveq #15,d0 zonkin: move.w (a0),(a1) add.l #40,a0 add.l #42,a1 dbra d0,zonkin rts CHARADDRESS: move.l mesptr,a0 moveq #0,d0 move.l d0,d1 move.l d0,d2 move.b (a0)+,d0 cmp.b #$0a,d0 bne wizy move.b #32,d0 wizy: cmp.b #255,d0 bne wazy move.l #message,a0 move.b #32,d0 wazy: cmp.b #254,d0 bne wozy move.b #32,d0 move.b #$60,pause wozy: move.l a0,mesptr sub.b #32,d0 ; d0= 51 move.b d0,d1 ; d1= 51 divu #20,d0 ; d0= 2 move.b d0,d2 ; d2= 2 mulu #20,d0 ; d0= 40 sub.b d0,d1 ; d1= 11 move.l #font,a0 mulu #640,d2 add.l d1,d1 add.l d2,a0 add.l d1,a0 rts testpt: dc.l 0 countdown: dc.b 4 even OLDCOPPER: DC.L 0 NEWCOPPER: dc.w $100,$2200,$102,$0,$104,$a,$108,2,$10a,-82 dc.w $92,$38,$94,$d0,$8e,$2c81,$90,$2cc1,$e0 pl0h: dc.w 0,$e2 pl0l: dc.w 0,$e4 pl1h: dc.w 0,$e6 pl1l: dc.w 0,$1a2,$fff,$1a4,$bbb,$1a6,$888,$1aa,$666,$180 dc.w $0,$182,$dc,$184,$32,$186,$32 dc.w $120 s0h: dc.w 0,$122 s0l: dc.w 0 dc.w $2C09,$fffe,$182,$1f,$186,$1f,$184,$0 dc.w $2D09,$fffe,$182,$2f,$186,$2f,$184,$17 dc.w $2E09,$fffe,$182,$3f,$186,$3f,$184,$0 dc.w $2F09,$fffe,$182,$4f,$186,$4f,$184,$27 dc.w $3009,$fffe,$182,$5f,$186,$5f,$184,$0 dc.w $3109,$fffe,$182,$6f,$186,$6f,$184,$37 dc.w $3209,$fffe,$182,$7f,$186,$7f,$184,$0 dc.w $3309,$fffe,$182,$8f,$186,$8f,$184,$47 dc.w $3409,$fffe,$182,$9f,$186,$9f,$184,$0 dc.w $3509,$fffe,$182,$af,$186,$af,$184,$57 dc.w $3609,$fffe,$182,$bf,$186,$bf,$184,$0 dc.w $3709,$fffe,$182,$cf,$186,$cf,$184,$67 dc.w $3809,$fffe,$182,$df,$186,$df,$184,$0 dc.w $3909,$fffe,$182,$ef,$186,$ef,$184,$77 dc.w $3A09,$fffe,$182,$ff,$186,$ff,$184,$0 dc.w $3B09,$fffe,$182,$fe,$186,$fe,$184,$77 dc.w $3C09,$fffe,$182,$fd,$186,$fd,$184,$0 dc.w $3D09,$fffe,$182,$fc,$186,$fc,$184,$76 dc.w $3E09,$fffe,$182,$fb,$186,$fb,$184,$0 dc.w $3F09,$fffe,$182,$fa,$186,$fa,$184,$75 dc.w $4009,$fffe,$182,$f9,$186,$f9,$184,$0 dc.w $4109,$fffe,$182,$f8,$186,$f8,$184,$74 dc.w $4209,$fffe,$182,$f7,$186,$f7,$184,$0 dc.w $4309,$fffe,$182,$f6,$186,$f6,$184,$73 dc.w $4409,$fffe,$182,$f5,$186,$f5,$184,$0 dc.w $4509,$fffe,$182,$f4,$186,$f4,$184,$72 dc.w $4609,$fffe,$182,$f3,$186,$f3,$184,$0 dc.w $4709,$fffe,$182,$f2,$186,$f2,$184,$71 dc.w $4809,$fffe,$182,$f1,$186,$f1,$184,$0 dc.w $4909,$fffe,$182,$f0,$186,$f0,$184,$70 dc.w $4A09,$fffe,$182,$1f0,$186,$1f0,$184,$0 dc.w $4B09,$fffe,$182,$2f0,$186,$2f0,$184,$170 dc.w $4C09,$fffe,$182,$3f0,$186,$3f0,$184,$0 dc.w $4D09,$fffe,$182,$4f0,$186,$4f0,$184,$270 dc.w $4E09,$fffe,$182,$5f0,$186,$5f0,$184,$0 dc.w $4F09,$fffe,$182,$6f0,$186,$6f0,$184,$370 dc.w $5009,$fffe,$182,$7f0,$186,$7f0,$184,$0 dc.w $5109,$fffe,$182,$8f0,$186,$8f0,$184,$470 dc.w $5209,$fffe,$182,$9f0,$186,$9f0,$184,$0 dc.w $5309,$fffe,$182,$af0,$186,$af0,$184,$570 dc.w $5409,$fffe,$182,$bf0,$186,$bf0,$184,$0 dc.w $5509,$fffe,$182,$cf0,$186,$cf0,$184,$670 dc.w $5609,$fffe,$182,$df0,$186,$df0,$184,$0 dc.w $5709,$fffe,$182,$ef0,$186,$ef0,$184,$770 dc.w $5809,$fffe,$182,$ff0,$186,$ff0,$184,$0 dc.w $5909,$fffe,$182,$fe0,$186,$fe0,$184,$770 dc.w $5A09,$fffe,$182,$fd0,$186,$fd0,$184,$0 dc.w $5B09,$fffe,$182,$fc0,$186,$fc0,$184,$760 dc.w $5C09,$fffe,$182,$fb0,$186,$fb0,$184,$0 dc.w $5D09,$fffe,$182,$fa0,$186,$fa0,$184,$750 dc.w $5E09,$fffe,$182,$f90,$186,$f90,$184,$0 dc.w $5F09,$fffe,$182,$f80,$186,$f80,$184,$740 dc.w $6009,$fffe,$182,$f70,$186,$f70,$184,$0 dc.w $6109,$fffe,$182,$f60,$186,$f60,$184,$730 dc.w $6209,$fffe,$182,$f50,$186,$f50,$184,$0 dc.w $6309,$fffe,$182,$f40,$186,$f40,$184,$720 dc.w $6409,$fffe,$182,$f30,$186,$f30,$184,$0 dc.w $6509,$fffe,$182,$f20,$186,$f20,$184,$710 dc.w $6609,$fffe,$182,$f10,$186,$f10,$184,$0 dc.w $6709,$fffe,$182,$f00,$186,$f00,$184,$700 dc.w $6809,$fffe,$182,$f01,$186,$f01,$184,$0 dc.w $6909,$fffe,$182,$f02,$186,$f02,$184,$701 dc.w $6A09,$fffe,$182,$f03,$186,$f03,$184,$0 dc.w $6B09,$fffe,$182,$f04,$186,$f04,$184,$702 dc.w $6C09,$fffe,$182,$f05,$186,$f05,$184,$0 dc.w $6D09,$fffe,$182,$f06,$186,$f06,$184,$703 dc.w $6E09,$fffe,$182,$f07,$186,$f07,$184,$0 dc.w $6F09,$fffe,$182,$f08,$186,$f08,$184,$704 dc.w $7009,$fffe,$182,$f09,$186,$f09,$184,$0 dc.w $7109,$fffe,$182,$f0a,$186,$f0a,$184,$705 dc.w $7209,$fffe,$182,$f0b,$186,$f0b,$184,$0 dc.w $7309,$fffe,$182,$f0c,$186,$f0c,$184,$706 dc.w $7409,$fffe,$182,$f0d,$186,$f0d,$184,$0 dc.w $7509,$fffe,$182,$f0e,$186,$f0e,$184,$707 dc.w $7609,$fffe,$182,$f0f,$186,$f0f,$184,$0 dc.w $7709,$fffe,$182,$e0f,$186,$e0f,$184,$707 dc.w $7809,$fffe,$182,$d0f,$186,$d0f,$184,$0 dc.w $7909,$fffe,$182,$c0f,$186,$c0f,$184,$607 dc.w $7A09,$fffe,$182,$b0f,$186,$b0f,$184,$0 dc.w $7B09,$fffe,$182,$a0f,$186,$a0f,$184,$507 dc.w $7C09,$fffe,$182,$90f,$186,$90f,$184,$0 dc.w $7D09,$fffe,$182,$80f,$186,$80f,$184,$407 dc.w $7E09,$fffe,$182,$70f,$186,$70f,$184,$0 dc.w $7F09,$fffe,$182,$60f,$186,$60f,$184,$307 dc.w $8009,$fffe,$182,$50f,$186,$50f,$184,$0 dc.w $8109,$fffe,$182,$40f,$186,$40f,$184,$207 dc.w $8209,$fffe,$182,$30f,$186,$30f,$184,$0 dc.w $8309,$fffe,$182,$20f,$186,$20f,$184,$107 dc.w $8409,$fffe,$182,$10f,$186,$10f,$184,$0 dc.w $8509,$fffe,$182,$f,$186,$f,$184,$7 dc.w $8609,$fffe,$182,$1f,$186,$1f,$184,$0 dc.w $8709,$fffe,$182,$2f,$186,$2f,$184,$17 dc.w $8809,$fffe,$182,$3f,$186,$3f,$184,$0 dc.w $8909,$fffe,$182,$4f,$186,$4f,$184,$27 dc.w $8A09,$fffe,$182,$5f,$186,$5f,$184,$0 dc.w $8B09,$fffe,$182,$6f,$186,$6f,$184,$37 dc.w $8C09,$fffe,$182,$7f,$186,$7f,$184,$0 dc.w $8D09,$fffe,$182,$8f,$186,$8f,$184,$47 dc.w $8E09,$fffe,$182,$9f,$186,$9f,$184,$0 dc.w $8F09,$fffe,$182,$af,$186,$af,$184,$57 dc.w $9009,$fffe,$182,$bf,$186,$bf,$184,$0,$9c,$8010 dc.w $9109,$fffe,$182,$cf,$186,$cf,$184,$67 dc.w $9209,$fffe,$182,$df,$186,$df,$184,$0 dc.w $9309,$fffe,$182,$ef,$186,$ef,$184,$77 dc.w $9409,$fffe,$182,$ff,$186,$ff,$184,$0 dc.w $9509,$fffe,$182,$fe,$186,$fe,$184,$77 dc.w $9609,$fffe,$182,$fd,$186,$fd,$184,$0 dc.w $9709,$fffe,$182,$fc,$186,$fc,$184,$76 dc.w $9809,$fffe,$182,$fb,$186,$fb,$184,$0 dc.w $9909,$fffe,$182,$fa,$186,$fa,$184,$75 dc.w $9A09,$fffe,$182,$f9,$186,$f9,$184,$0 dc.w $9B09,$fffe,$182,$f8,$186,$f8,$184,$74 dc.w $9C09,$fffe,$182,$f7,$186,$f7,$184,$0 dc.w $9D09,$fffe,$182,$f6,$186,$f6,$184,$73 dc.w $9E09,$fffe,$182,$f5,$186,$f5,$184,$0 dc.w $9F09,$fffe,$182,$f4,$186,$f4,$184,$72 dc.w $A009,$fffe,$182,$f3,$186,$f3,$184,$0 dc.w $A109,$fffe,$182,$f2,$186,$f2,$184,$71 dc.w $A209,$fffe,$182,$f1,$186,$f1,$184,$0 dc.w $A309,$fffe,$182,$f0,$186,$f0,$184,$70 dc.w $A409,$fffe,$182,$1f0,$186,$1f0,$184,$0 dc.w $A509,$fffe,$182,$2f0,$186,$2f0,$184,$170 dc.w $A609,$fffe,$182,$3f0,$186,$3f0,$184,$0 dc.w $A709,$fffe,$182,$4f0,$186,$4f0,$184,$270 dc.w $A809,$fffe,$182,$5f0,$186,$5f0,$184,$0 dc.w $A909,$fffe,$182,$6f0,$186,$6f0,$184,$370 dc.w $AA09,$fffe,$182,$7f0,$186,$7f0,$184,$0 dc.w $AB09,$fffe,$182,$8f0,$186,$8f0,$184,$470 dc.w $AC09,$fffe,$182,$9f0,$186,$9f0,$184,$0 dc.w $AD09,$fffe,$182,$af0,$186,$af0,$184,$570 dc.w $AE09,$fffe,$182,$bf0,$186,$bf0,$184,$0 dc.w $AF09,$fffe,$182,$cf0,$186,$cf0,$184,$670 dc.w $B009,$fffe,$182,$df0,$186,$df0,$184,$0 dc.w $B109,$fffe,$182,$ef0,$186,$ef0,$184,$770 dc.w $B209,$fffe,$182,$ff0,$186,$ff0,$184,$0 dc.w $B309,$fffe,$182,$fe0,$186,$fe0,$184,$770 dc.w $B409,$fffe,$182,$fd0,$186,$fd0,$184,$0 dc.w $B509,$fffe,$182,$fc0,$186,$fc0,$184,$760 dc.w $B609,$fffe,$182,$fb0,$186,$fb0,$184,$0 dc.w $B709,$fffe,$182,$fa0,$186,$fa0,$184,$750 dc.w $B809,$fffe,$182,$f90,$186,$f90,$184,$0 dc.w $B909,$fffe,$182,$f80,$186,$f80,$184,$740 dc.w $BA09,$fffe,$182,$f70,$186,$f70,$184,$0 dc.w $BB09,$fffe,$182,$0,$186,$0,$184,$0 irq:dc.w $bc09,$fffe dc.w $cf09,$fffe,$180,$fff,$184,$333 dc.w $d009,$fffe,$180,$888,$184,$666 dc.w $d109,$fffe,$180,$444,$184,$333 dc.w $d209,$fffe,$180,$333,$184,$0 waitchg: dc.w $d709,$fffe,$108,0,$10a,0,$182,$fff,$184,$770 dc.w $186,$a70,$e0 ll0h: dc.w $0,$e2 ll0l: dc.w $0,$e4 ll1h: dc.w $0,$e6 ll1l: dc.w $0 dc.w $db09,$fffe,$182,$28 dc.w $dc09,$fffe,$182,$38 dc.w $dd09,$fffe,$182,$48 dc.w $de09,$fffe,$182,$58 dc.w $df09,$fffe,$182,$68 dc.w $e009,$fffe,$182,$78 dc.w $e109,$fffe,$182,$88 dc.w $e209,$fffe,$182,$99 dc.w $e309,$fffe,$182,$aa dc.w $e409,$fffe,$182,$bb dc.w $e509,$fffe,$182,$cc dc.w $e609,$fffe,$182,$dd dc.w $e709,$fffe,$182,$ee dc.w $e809,$fffe,$182,$ff dc.w $f009,$fffe,$182,$1ef dc.w $f109,$fffe,$182,$2df dc.w $f209,$fffe,$182,$3cf dc.w $f309,$fffe,$182,$4bf dc.w $f409,$fffe,$182,$5af dc.w $f509,$fffe,$182,$69f dc.w $f609,$fffe,$182,$78f dc.w $f709,$fffe,$182,$57f dc.w $f809,$fffe,$182,$35b dc.w $f909,$fffe,$182,$24a dc.w $fa09,$fffe,$182,$139 dc.w $fb09,$fffe,$182,$28 dc.w $fc09,$fffe,$182,$38 dc.w $fd09,$fffe,$182,$48 dc.w $fe09,$fffe,$182,$58 dc.w $ff09,$fffe,$182,$68,$ffdf,$fffe dc.w $0009,$fffe,$182,$78 dc.w $0109,$fffe,$182,$88 dc.w $0209,$fffe,$182,$99 dc.w $309,$fffe,$182,$aa dc.w $409,$fffe,$182,$bb dc.w $509,$fffe,$182,$cc dc.w $609,$fffe,$182,$dd dc.w $709,$fffe,$182,$ee dc.w $809,$fffe,$182,$ff dc.w $1009,$fffe,$182,$1ef dc.w $1109,$fffe,$182,$2df dc.w $1209,$fffe,$182,$3cf dc.w $1309,$fffe,$182,$4bf dc.w $1409,$fffe,$182,$5af dc.w $1509,$fffe,$182,$69f dc.w $1609,$fffe,$182,$78f dc.w $1709,$fffe,$182,$87f dc.w $1809,$fffe,$182,$96f dc.w $1909,$fffe,$182,$a5f dc.w $1a09,$fffe,$182,$fff,$186,$220 dc.w $2a09,$fffe,$100,$0200 dc.w $96 pointer: dc.w $20 DC.W $FFFF,$FFFE ; End copper gfxlib: dc.b "graphics.library",0 ; Yeuch! Libraries!!!!! EVEN gfxbase: dc.l 0 bp: dc.l 0 logo: incbin "rad:logo2" dcb.b 400,0 showplane: dcb.b 10240,$0 scrollplane: dcb.b 2500,$0 font: incbin "Rad:fnt" even mesptr: dc.l message ; 123456789012345567890 message: dc.b " JOLYON RALPH ",$fe dc.b " OF STATUS SOFTWARE ",$fe," PRESENTS A " dc.b "NEW 68000 INTRO. THIS ROUTINE USES THE BLITTER " dc.b "TO PRODUCE A SINE WAVE ON THE SCROLLING TEXT. " dc.b " WE SPECIALISE IN 68000 PROGRAMMING ON THE AMIGA, " dc.b "WE DO NOT PROGRAM INFERIOR 68000 MACHINES, ALL OUR " dc.b "CODE TAKES FULL ADVANTAGE OF THE BLITTER, THE COPPER " dc.b "CO-PROCESSOR AND ALL THE OTHER CUSTOM HARDWARE THAT " dc.b "MAKES THE AMIGA SUCH A WONDERFUL MACHINE. A NOTE TO " dc.b "ALL YOU OUT THERE THINKING OF GETTING THE ARCHIMEDES - DON'T " dc.b " IT'S A S**T TO PROGRAM, SO THEY'RE AIN'T GONNA BE MUCH " dc.b "SOFTWARE OUT FOR IT! " dc.b "HELLOS TO: KEVIN COLLIER, DEREK LEIGH-GILCHRIST, JOBY WOOD, " dc.b "STEVE HOGG, RUSS WARK, TONY OF 01 FOR AMIGA, JON OF AIX-386, " dc.b "TUFFTY, FUZZZ, PJ AND YAKKA OF ARGONAUT SOFTWARE. " dc.b " BYEE! " dc.b 255 even spritelist: dcb.b 1000,0 dc.w $a05a,$a400 dc.w $1,0 dc.w 0,0 FINISH: DC.b 0