>EXTERN "DF0:files/REBELSLOGO.RAW",REBELSLOGO >EXTERN "DF0:files/8*8.2FONT.RAW",FONT >EXTERN "DF0:files/STATICBALLS.RAW",BOBGFX3 >EXTERN "DF0:files/8*8FONT.RAW",SMALLFONT >EXTERN "DF0:files/blasterfloyd.fab",MUSIC >EXTERN "DF0:files/SINUS8",SINUS0 >EXTERN "DF0:files/SINUS5",SINUS1 >EXTERN "DF0:files/VMASKS.RAW",BOBMASK >EXTERN "DF0:files/VBOBS.RAW",BOBGFX >EXTERN "DF0:files/16*16BOB.RAW",BOBGFX2 >EXTERN "DF0:files/16*16MASK.RAW",BOBMASK2 >EXTERN "DF0:files/COSINE",COS CODE= $40000 SINUS0= $44000 SINUS1= $44100 COS= $44200 BOBGFX= $44800 ;2532 BOBMASK= $45200 ;780 BOBGFX2= $4550C ;780 BOBMASK2= $45818 ;180 BOBGFX3= $458CC ;924 SORTTABLE= $46000 REBELSLOGO= $48000 ;19360 STARS= $4CC00 TEXTMENU= $4D000 ;8400 FONT= $4F300 ;2592 SMALLFONT= $4FD40 ;640 MUSIC= $70000 ;CA 54500 SCROLLAREA= $5F000 ;320 MENUCHOICE= $00080 SIN= COS+720 ORG CODE LOAD CODE ;-------------------------- J: MOVEM.L D0-D7/A0-A6,-(A7) MOVE.W $DFF01C,STOP+2 OR.W #$8000,STOP+2 MOVE.W #$3FFF,D0 BCLR #5,D0 MOVE.W D0,$DFF09A MOVE.L 4,A6 MOVE.L 156(A6),A1 MOVE.L 38(A1),OLDC LEA $DFF000,A6 MOVE.L #$50000,BLTDPT(A6) CLR.W BLTDMOD(A6) MOVE.L #$01000000,BLTCON0(A6) MOVE.W #512*64+60,BLTSIZE(A6) LEA SCROLLAREA,A0 MOVE.W #300,D0 SCRCLRLOOP: CLR.W (A0)+ DBF D0,SCRCLRLOOP WB: BTST #14,$DFF002 BNE.S WB JSR MAKEOB0 JSR WRITEMENU JSR INITSTARS JSR CLRSORTTABLE MOVE.L #COPLIST,$DFF080 MOVE.W #$87A0,$DFF096 MOVEQ #1,D0 JSR MUSIC MOVEQ #0,D0 JSR MUSIC MOVE.L $6C,OLDINT MOVE.L #MYINT,$6C ;------------------------------------------ TRYK: TST.B $DFF005 BEQ.S TRYK TRYK2: TST.B $DFF005 BNE.S TRYK2 ;------------------------------------------ JSR CLRBOBS JSR CONTROLMENU JSR ROTATE JSR PUTBOBS JSR SWAPBUFS ;------------------------------------------ ; MOVE.W #$00F0,$DFF180 ;------------------------------------------ BTST #$06,$BFE001 BNE.L TRYK TST.W TEXTFLAG BEQ.L TRYK MOVE.L OLDC,$DFF080 MOVE.W #$8020,$DFF096 MOVE.W #$000F,$DFF096 MOVE.L OLDINT,$6C STOP: MOVE.W #$0000,$DFF09A MOVEM.L (A7)+,D0-D7/A0-A6 RTS ;------------------------------------------ MYINT: MOVEM.L D0-D7/A0-A6,-(SP) MOVE.W $DFF01E,D0 BTST #5,D0 BNE.S GOINT MOVE.W D0,$DFF09C JMP OUTINT GOINT: JSR MOVEBALLS MOVE.W D0,$DFF09C ADDQ.W #1,INTCHECK JSR MOVESTARS MOVEQ #0,D0 ; ADDQ.W #1,MUSICCOUNT ; CMP.W #10500,MUSICCOUNT ; BNE.S NORESTART ; CLR.W MUSICCOUNT ; MOVEQ #1,D0 ;NORESTART: JSR MUSIC JSR SCROLL OUTINT: MOVEM.L (SP)+,D0-D7/A0-A6 MOVE.W #0,A2 RTE INTCHECK: DC.W 0 ;------------------------------------------ VECTORWAIT: DC.W 0 MUSICCOUNT: DC.W 0 ;------------------------------------------ WBLT: MACRO WB?0: BTST #14,$DFF002 BNE.S WB?0 ENDM ;------------------------------------------ SCROLL: TST.W SCRSTOP BEQ.S GOSCROLL SUBQ.W #1,SCRSTOP RTS GOSCROLL: LEA $DFF000,A6 WBLT MOVE.L #SCROLLAREA+8,BLTAPT(A6) MOVE.L #SCROLLAREA+6,BLTDPT(A6) MOVE.W #10,BLTAMOD(A6) MOVE.W #10,BLTDMOD(A6) MOVE.L #$07FFFFFF,BLTAFWM(A6) MOVE.W SCRSPEED(PC),D0 SUBQ.W #1,D0 ROR.W #4,D0 EOR.W #$F9F0,D0 MOVE.W D0,BLTCON0(A6) CLR.W BLTCON1(A6) MOVE.W #7*64+15,BLTSIZE(A6) MOVE.W SCRSPEED(PC),D0 ADD.W D0,SCRCOUNT CMP.W #8,SCRCOUNT BNE.L SCROUT CLR.W SCRCOUNT LEA SMALLFONT,A0 LEA SCROLLAREA+32,A1 RESTART: LEA SCRTEXT,A2 ADD.W SCRPTR(PC),A2 CLR.W D0 MOVE.B (A2),D0 TST.W D0 BNE.S NOTYET CLR.W SCRPTR JMP RESTART NOTYET: CMP.B #"#",D0 BNE.S NOSPEED CLR.W D1 MOVE.B 1(A2),D1 SUB.W #"0",D1 MOVE.W D1,SCRSPEED ADDQ.W #2,SCRPTR JMP RESTART NOSPEED: CMP.B #"|",D0 BNE.S NOSTOP MOVE.W #100,SCRSTOP ADDQ.W #1,SCRPTR RTS NOSTOP: MOVE.W #-1,D1 LEA SCRMAP,A3 SCRCONVLOOP: ADD.W #1,D1 CMP.B (A3)+,D0 BNE.S SCRCONVLOOP LSL.W #3,D1 ADD.W D1,A0 MOVE.B (A0),(A1) MOVE.B 1(A0),40(A1) MOVE.B 2(A0),80(A1) MOVE.B 3(A0),120(A1) MOVE.B 4(A0),160(A1) MOVE.B 5(A0),200(A1) MOVE.B 6(A0),240(A1) MOVE.B 7(A0),280(A1) ADD.W #1,SCRPTR SCROUT: RTS SCRSTOP: DC.W 0 SCRCOUNT: DC.W 0 SCRPTR: DC.W 0 SCRSPEED: DC.W 1 ;------------------------------------------ YBALLS: DC.W 0 MOVEBALLS: MOVE.W YBALLS,YCENTER TST.W TEXTFLAG BNE.S CONTBALLS MOVE.W #$7F,YCENTER RTS CONTBALLS: MOVE.W OBJECTNR,D1 LEA COLORS,A0 LEA BALLSCOP,A1 LSL.W #4,D1 MOVE.W 2(A0,D1.W),2(A1) MOVE.W 4(A0,D1.W),6(A1) MOVE.W 6(A0,D1.W),10(A1) MOVE.W 8(A0,D1.W),14(A1) MOVE.W 10(A0,D1.W),18(A1) MOVE.W 12(A0,D1.W),22(A1) MOVE.W 14(A0,D1.W),26(A1) TST.W VECTORWAIT BNE.S WAITING CMP.W #300,YBALLS BLE.S NOCHANGE ADDQ.W #1,OBJECTNR AND.W #$3,OBJECTNR CLR.W YBALLS NOCHANGE: CMP.W #$80,YBALLS BNE.S NOWAIT MOVE.W #250,VECTORWAIT NOWAIT: ADD.W #1,YBALLS RTS WAITING: SUBQ.W #1,VECTORWAIT RTS ;------------------------------------------ CONTROLMENU: BTST #10,$DFF016 BNE.S NOMOUSE0 MOVE.W #1,MENUSTATUS NOMOUSE0: TST.W MENUSTATUS BEQ.S NORMALMENU CMP.W #1,MENUSTATUS BEQ.S INFOMENU ADDQ.B #1,COPENDLINE ADDQ.B #1,COPENDLINE+12 CMP.B #$FE,COPENDLINE BEQ.S NORMALMENU RTS INFOMENU: CLR.B HIGHLIGHTCOP CLR.B HIGHLIGHTCOP+12 CMP.B #$95,COPENDLINE BEQ.S MENUOUT SUBQ.B #1,COPENDLINE SUBQ.B #1,COPENDLINE+12 RTS MENUOUT: MOVE.W #2,MENUSTATUS JSR WRITEMENU RTS NORMALMENU: CLR.W MENUSTATUS CLR.W D0 MOVE.B $DFF00A,D0 MOVE.W D0,D1 SUB.W OLDMOUSE(PC),D0 MOVE.W D1,OLDMOUSE EXT.W D0 MOVE.W ACTMOUSE,D2 ADD.W D0,D2 CMP.W #$9F+[FIRSTLINE*$10],D2 BGE.S NOCORRECTU MOVE.W #$9F+[FIRSTLINE*$10],D2 NOCORRECTU: CMP.W #$9F+[LASTLINE*$10]-$10,D2 BLE.S NOCORRECTL MOVE.W #$9F+[LASTLINE*$10]-$10,D2 NOCORRECTL: MOVE.W D2,ACTMOUSE MOVE.W ACTMOUSE,D0 LSR.W #4,D0 MOVE.W D0,MENUCHOICE SUB.W #FIRSTLINE,MENUCHOICE SUB.W #9,MENUCHOICE MULU #9,D0 ADD.W #72,D0 TST.W TEXTFLAG BNE.S MENUON CLR.B HIGHLIGHTCOP CLR.B HIGHLIGHTCOP+12 RTS MENUON: MOVE.B D0,HIGHLIGHTCOP ADD.B #9,D0 MOVE.B D0,HIGHLIGHTCOP+12 RTS MENUSTATUS: DC.W 0 ;MENUCHOICE: DC.W 0 ACTMOUSE: DC.W 0 OLDMOUSE: DC.W 0 TEXTFLAG: DC.W 0 INTTEST: DC.W 0 ;------------------------------------------ WRITEMENU: TST.W TEXTFLAG LEA MENUTEXT,A0 BEQ.S TYPEMENU LEA INFOTEXT,A0 MOVE.W MENUCHOICE,D0 MULU #385,D0 ADD.W D0,A0 TYPEMENU: NOT.W TEXTFLAG MOVE.W INTCHECK,INTTEST WBLT LEA $DFF000,A6 MOVE.L #TEXTMENU,BLTDPT(A6) CLR.W BLTDMOD(A6) MOVE.L #$01000000,BLTCON0(A6) MOVE.W #105*64+40,BLTSIZE(A6) WBLT MOVE.W #4,D4 MOVE.W #10,D6 WRITELOOP0: MOVE.W #34,D7 MOVE.W #3,D0 WRITELOOP1: MOVE.W #-1,A2 MOVE.B (A0)+,D3 MOVE.W #-1,D5 LEA CHARMAP,A3 CHARLOOP: ADDQ.W #1,D5 CMP.B (A3)+,D3 BNE.S CHARLOOP MOVE.W D5,D3 LSL.W #5,D3 ADD.W #FONT,D3 MOVE.W D0,D1 MOVE.W D1,D2 LSR.W #3,D1 MOVE.W D4,D5 MULU #80,D5 ADD.W D5,D1 ADD.W #TEXTMENU,D1 AND.W #$000F,D2 ROR.W #4,D2 OR.W #$0BFA,D2 MOVE.W #-2,BLTAMOD(A6) MOVE.W #36,BLTCMOD(A6) MOVE.W #36,BLTDMOD(A6) MOVE.L #$FF000000,BLTAFWM(A6) MOVE.L #FONT,BLTAPT(A6) MOVE.L #TEXTMENU,BLTCPT(A6) MOVE.L #TEXTMENU,BLTDPT(A6) CLR.W BLTCON1(A6) MOVE.W D3,BLTAPT+2(A6) MOVE.W D1,BLTCPT+2(A6) MOVE.W D1,BLTDPT+2(A6) MOVE.W D2,BLTCON0(A6) MOVE.W INTTEST,D1 CMP.W #0,A2 BNE.S GOODINT SUBQ.W #1,A0 JMP WRITELOOP1 GOODINT: MOVE.W #16*64+2,BLTSIZE(A6) WBLT ADD.W #9,D0 DBF D7,WRITELOOP1 ADD.W #9,D4 DBF D6,WRITELOOP0 WBLT RTS FIRSTLINE= 3 ;Fĝrste aktive valg-linie LASTLINE= 8 ;Sidste ditto ;" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdeŞfghijklmnopqrstuvwŞxyz" ;DC.B "./=,<>?!*%'():Ż012Ş3456789Ş " MENUTEXT: DC.B " " DC.B " " DC.B " ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ " DC.B " Vectory............. (73236 bytes)" DC.B " The 64 Demo......... (41308 bytes)" dc.b " Coma................(225228 bytes)" DC.B " Waterproof..........(113228 bytes)" DC.B " Last Dimension......(201540 bytes)" DC.B " " DC.B " Press Left/Right mousebutton! " DC.B " " INFOTEXT: DC.B " " DC.B " Vectory: " DC.B " ŻŻŻŻŻŻŻŻŻŻ " DC.B " " DC.B "Yeah... this cool demo was made by " DC.B "Droopy and Static nearly a year " DC.B "ago. Even today, it is still rare " dc.b "that you come over a demo of this " dc.b "quality. " DC.B " " DC.B " " DC.B " " DC.B " The 64 Demo: " DC.B " ŻŻŻŻŻŻŻŻŻŻŻŻŻŻ " DC.B " " DC.B " We were surprised that so many " DC.B " people actually liked this one. " DC.B " Not that it aint cool, it is, but " DC.B " as the title might tell, it looks " DC.B " pretty much as a 64 demo. " DC.B " " DC.B " " DC.B " " DC.B " Coma: " DC.B " ŻŻŻŻŻŻŻ " dc.b " Coma from Vandal and Static is one" dc.b " of those trend making demos. Many " dc.b " groups got inspiration from this. " dc.b " Budbrain to mention one. We prefer" dc.b " to call it a music video. Coma II " dc.b " is under development by the way. " dc.b " " dc.b " " dc.b " Waterproof: " dc.b " ŻŻŻŻŻŻŻŻŻŻŻŻŻ " dc.b " " dc.b " Not the best demo ever made, just " dc.b " a quick try in the multipart genre" dc.b " and actually I think it worked out" dc.b " very fine. " dc.b " " dc.b " " dc.b " " dc.b " " dc.b " " dc.b " Last Dimension: " dc.b " ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ " dc.b " " dc.b " This demo consists of many small " dc.b " routines. Quite average I think, " dc.b " not bad though. " dc.b " " dc.b " " dc.b " " dc.b " " BLK.B 100," " SCRTEXT: DC.B "#2 JAKE OF REBELS BID YOU WELCOME TO ANOTHER HIGH QUALITY" DC.B "PRODUCTION. " DC.B "#2 CREDITS: CODING BY PALEFACE, LOGO+" DC.B "9X9 FONT+SOME OF THE BALLS BY STATIC AND MUSIC BY FAB. " DC.B "THE DANISH REBELS ARE: " DC.B "BOZO, CONAN, CRUNCHER, FAB, JAKE, JANITOR, JP, NEWTON, OZONE," DC.B " PALEFACE, STATIC, VANDAL, XOD AND YOYO. " DC.B "MAKE IMPACT: #4REBELS WHQ |" DC.B " POSTE RESTANTE | 2670 GREVE |" DC.B " DENMARK | #2OR GIVE THESE BOARDS A RING:" DC.B " THE FLYING SAUCER (FRIENDSHIP BBS): " DC.B " +32 87-86-68-08 |THE 79TH TRAC(G.O.D USA HQ): " DC.B " +412 695 3647 |" DC.B " #4" DC.B "MY WARMEST REGARDS GOES TO: CONQUEROR AND ZIKE, RAY JACKSON, " DC.B "ACCESSION (HAWKWIND), ADDONIC (DR.SKID), ADVANCE (JUDGE)" DC.B ", ALIVE (TECHNOTRONNY), ALPHA FLIGHT (ZYLON), ANARCHY" dc.b " (KREATOR), ANGELS AND GENESIS (MARCO AND STARTRACK), ARCANE" DC.B " (MIKE AND MERLIN), AURORA (ZCANDALER), BOUNTY, BRAINSTORM" DC.B " (TRUXION), DEXION (TRIX), DUAL CREW (THE GNN AND RASTER), " DC.B "CASCADE 1733 (M:ET), CELTIC (CONAN), CHROMANCE (JEAN), " DC.B "CINEFEX DESIGNS (FALLOS), CLASSIC, CRUSADERS (BUSTMAN), " DC.B "CRYPTOBURNERS, COMPLEX (MIC DAIR), COOL X, ECSTASY (BIG AL," DC.B " ZOOT AND HAVOK), FRAXION (XANDU), G.O.D (DAMAGE INC.), " DC.B "HORIZON, ILLUSION (OBERON), IMAGE, INNER CITY, KEFRENS " DC.B "(DEFLEX), THE LINK (WARLORD AND SKYWIZE), MIRACLE, MIRAGE," DC.B " NETWORK (ALF), NEXT (THE SURFER), NO LIMITS (FLASHER), " DC.B "A.C.U (PORSCHE), PARADOX (CLASH)," DC.B " PRIME EVIL (GILLI), SCOOPEX, SHARE AND ENJOY (T.I.W), " DC.B "SILENTS (ALTA AND MOGWIE), SPREADPOINT (COCAINE AND MUNSTER)," DC.B " STARLIGHT, SUBWAY (SLAYER, STEEL AND BISCROCK), " DC.B " SUPPLEX (DEFCON 5), TECHNOFLIGHT (DANIEL), THE SPECIAL " DC.B "BROTHERS, TREACL, TRISTAR AND RED SECTOR (MICRONIX), " DC.B "UNITED FORCES (GUARDIAN), VENOM (VULGAR), VISION (FACET), " DC.B "VISION FACTORY, WARFALCONS (DISKRUNNER) AND ALL " DC.B "FRIENDSHIPPERS." dc.b " " DC.B " #2 R E S T A R T I N G |" DC.B " ",0 DC.B 0 SCRMAP: DC.B "ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]'-ğĞİ`()*+,-./0123456789:;<=>?" DC.B 0 EVEN CHARMAP: DC.B "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdeŞfghijklmnopqrstuvwŞxyz" DC.B "./=,<>?!*%'():Ż012Ş3456789Ş " EVEN ************************************************************************* ;------------------------------------------ MAKEOB0: LEA SINUS0,A0 LEA SINUS0+64,A1 LEA OBJECT0+4,A2 MOVE.W #BOBS-1,D7 MOVE.W #-50,D5 MOVE.W #$F000,D4 MAKEOB0LOOP: CLR.W D0 MOVE.B (A0),D0 SUB.W #20,D0 MOVE.W D0,(A2) CLR.W D0 MOVE.B (A1),D0 SUB.W #20,D0 MOVE.W D0,2(A2) MOVE.W D5,4(A2) MOVE.W D4,6(A2) ; BCHG #12,D4 ADDQ.W #3,D5 MOVE.L A0,D0 ADD.B #26,D0 MOVE.L D0,A0 MOVE.L A1,D0 ADD.B #26,D0 MOVE.L D0,A1 ADDQ.W #8,A2 DBF D7,MAKEOB0LOOP RTS ;------------------------------------------ OBJECT0HANDLE: MOVEM.L D0-D7/A0-A6,-(A7) CLR.W D0 HANDLE0SIN: MOVE.B SINUS1,D0 ; ADD.W #-40,D0 ADD.B #5,HANDLE0SIN+5 LEA OBJECT0+4+4,A2 MOVE.W #BOBS-1,D7 MOVE.W #0000,D1 MOVE.W #-40,D3 HANDLEOB0LOOP: ADD.W D0,D1 MOVE.W D1,D2 LSR.W #5,D2 SUB.W #20,D2 MOVE.W D2,(A2) ADDQ.W #8,A2 DBF D7,HANDLEOB0LOOP MOVEM.L (A7)+,D0-D7/A0-A6 RTS ;------------------------------------------ BOBS= 25 OBJECT0: DC.L OBJECT0HANDLE BLK.W 4*BOBS,0 DC.W 0,0,-40,$E000 DC.W 0,0,-15,$D000 DC.W 0,0,10,$D000 DC.W 0,0,35,$D000 DC.W 0,0,60,$D000 DC.W $8888 OBJECT1: DC.L OBJECT1HANDLE DC.W 0,15,20,$7000 DC.W 0,15,-20,$7000 DC.W -15,0,-5,$F000 DC.W -5,0,-5,$F000 DC.W 5,0,-5,$F000 DC.W 15,0,-5,$F000 DC.W -15,10,-5,$F000 DC.W -5,10,-5,$F000 DC.W 5,10,-5,$F000 DC.W 15,10,-5,$F000 DC.W -15,20,-5,$F000 DC.W -5,20,-5,$F000 DC.W 5,20,-5,$F000 DC.W 15,20,-5,$F000 DC.W -15,30,-5,$F000 DC.W -5,30,-5,$F000 DC.W 5,30,-5,$F000 DC.W 15,30,-5,$F000 DC.W -15,0,5,$F000 DC.W -5,0,5,$F000 DC.W 5,0,5,$F000 DC.W 15,0,5,$F000 DC.W -15,10,5,$F000 DC.W -5,10,5,$F000 DC.W 5,10,5,$F000 DC.W 15,10,5,$F000 DC.W -15,20,5,$F000 DC.W -5,20,5,$F000 DC.W 5,20,5,$F000 DC.W 15,20,5,$F000 DC.W -15,30,5,$F000 DC.W -5,30,5,$F000 DC.W 5,30,5,$F000 DC.W 15,30,5,$F000 DC.W $8888 OBJECT2: DC.L 0 DC.W 0,0,30,$E000 DC.W 0,0,10,$F000 DC.W 0,0,0,$F000 DC.W 0,0,-10,$F000 DC.W 0,0,-30,$E000 DC.W -40,0,0,$D000 DC.W -20,0,0,$D000 DC.W 20,0,0,$D000 DC.W 40,0,0,$D000 DC.W 0,-40,0,$D000 DC.W 0,-20,0,$D000 DC.W 0,20,0,$D000 DC.W 0,40,0,$D000 DC.W -40,-40,0,$6000 DC.W -20,-20,0,$6000 DC.W 20,20,0,$6000 DC.W 40,40,0,$6000 DC.W 40,-40,0,$6000 DC.W 20,-20,0,$6000 DC.W -20,20,0,$6000 DC.W -40,40,0,$6000 DC.W $8888 OBJECT3: DC.L 0 DC.W 0,0,0,$6000 DC.W 0,22,0,$8000 DC.W -6,0,-7,$3000 DC.W 6,0,-7,$3000 DC.W 15,0,0,$2000 DC.W 17,10,0,$2000 DC.W 20,15,-5,$2000 DC.W 20,20,-10,$0000 DC.W -15,0,0,$2000 DC.W -17,10,0,$2000 DC.W -20,15,-5,$2000 DC.W -20,20,-10,$0000 DC.W 10,27,0,$1000 DC.W 10,37,-3,$1000 DC.W 10,47,-6,$1000 DC.W 10,57,-3,$1000 DC.W 10,67,-3,$0000 DC.W 12,67,-10,$0000 DC.W -10,27,0,$1000 DC.W -10,37,-3,$1000 DC.W -10,47,-6,$1000 DC.W -10,57,-3,$1000 DC.W -10,67,-3,$0000 DC.W -12,67,-10,$0000 DC.W 4,-22,-7,$C000 DC.W -4,-22,-7,$C000 DC.W 0,-22,0,$7000 DC.W $8888 OBJECT4: DC.L 0 DC.W -40,-15,0,$B000 DC.W -40,-10,0,$B000 DC.W -40,-05,0,$B000 DC.W -40,0,0,$B000 DC.W -40,5,0,$B000 DC.W -30,-15,0,$C000 DC.W -30,-10,0,$C000 DC.W -30,-05,0,$C000 DC.W -30,0,0,$C000 DC.W -30,5,0,$C000 DC.W -25,-10,0,$C000 DC.W -20,-5,0,$C000 DC.W -15,0,0,$C000 DC.W -10,-15,0,$C000 DC.W -10,-10,0,$C000 DC.W -10,-05,0,$C000 DC.W -10,0,0,$C000 DC.W -10,5,0,$C000 DC.W 0,-15,0,$B000 DC.W 0,-10,0,$B000 DC.W 0,-05,0,$B000 DC.W 0,0,0,$B000 DC.W 0,5,0,$B000 DC.W 5,-15,0,$B000 DC.W 10,-15,0,$B000 DC.W 15,-15,0,$B000 DC.W 5,-5,0,$B000 DC.W 10,-5,0,$B000 DC.W 25,-10,0,$C000 DC.W 25,-5,0,$C000 DC.W 25,0,0,$C000 DC.W 30,-15,0,$C000 DC.W 35,-15,0,$C000 DC.W 30,5,0,$C000 DC.W 35,5,0,$C000 DC.W 40,-10,0,$C000 DC.W 40,-5,0,$C000 DC.W 40,0,0,$C000 DC.W $8888 COLORS: DC.W $0000,$0F0F,$0D0D,$0B0B,$0909,$0707,$0505,$0303 DC.W $0000,$080F,$070E,$060D,$050C,$040B,$030A,$0209 DC.W $0000,$0F80,$0E60,$0D40,$0B30,$0A20,$0910,$0800 DC.W $0000,$0FFF,$0FDB,$0DB9,$0B97,$055C,$044A,$0338 DC.W $0000,$0F80,$0E60,$0D40,$0B30,$0A20,$0910,$0800 DC.W $0000,$0FFF,$0F0F,$0D0D,$0B0B,$0CCC,$0AAA,$0888 OBJECTNR: DC.W 0 OBJECTTABLE: DC.L OBJECT0,OBJECT1,OBJECT2,OBJECT3,OBJECT4 ;------------------------------------------ OBJECT1HANDLE: CLR.W D0 SIN0: MOVE.B SINUS0,D0 SUB.W #3,D0 MOVE.W D0,OBJECT1+8 NEG.W D0 MOVE.W D0,OBJECT1+8+8 ADD.B #5,SIN0+5 AND.W #$FF7F,SIN0+4 RTS ;------------------------------------------ VINKEL1: DC.W 0 VINKEL2: DC.W 100 VINKEL3: DC.W 0 SPEED1= 2 SPEED2= 2 SPEED3= 3 ROTATE: CLR.W SORTFLAG LEA OBJECTTABLE,A5 MOVE.W OBJECTNR,D0 TST.W TEXTFLAG BNE.S NORMALOBJECT MOVE.W #4,D0 NORMALOBJECT: LSL.W #2,D0 MOVE.L (A5,D0.W),A5 TST.L (A5) BEQ.S NOHANDLE MOVE.L (A5),A4 JSR (A4) NOHANDLE: ADDQ.W #4,A5 MOVE.W #0,MAXZ MOVE.W #6000,MINZ LEA COS,A3 LEA SIN,A4 MOVE.W VINKEL1,A0 MOVE.W VINKEL2,A1 MOVE.W VINKEL3,A2 ADD.W #SPEED1*2,VINKEL1 ADD.W #SPEED2*2,VINKEL2 ADD.W #SPEED3*2,VINKEL3 CMP.W #720,VINKEL1 BNE.S NOTOVER1 SUB.W #720,VINKEL1 NOTOVER1: CMP.W #720,VINKEL2 BNE.S NOTOVER2 SUB.W #720,VINKEL2 NOTOVER2: CMP.W #720,VINKEL3 BNE.S NOTOVER3 SUB.W #720,VINKEL3 NOTOVER3: ROTCONVLOOP: CLR.L D5 CLR.L D6 CLR.L D7 CMP.W #$8888,(A5) BEQ.L ROTOUT MOVE.W (A5)+,D5 MOVE.W (A5)+,D6 MOVE.W (A5)+,D7 ASL.W #4,D5 ASL.W #4,D6 ASL.W #4,D7 MOVE.W D6,D0 MOVE.W D7,D1 MULS (A3,A0),D0 ;ROTATE X MULS (A4,A0),D1 SUB.L D1,D0 MOVE.W D6,D1 MOVE.W D7,D2 MULS (A4,A0),D1 MULS (A3,A0),D2 ADD.L D2,D1 ADD.L D0,D0 ADD.L D1,D1 SWAP D0 SWAP D1 MOVE.W D0,D6 MOVE.W D1,D7 MOVE.W D5,D0 MOVE.W D6,D1 MULS (A3,A2),D0 ;ROTATE Z MULS (A4,A2),D1 SUB.L D1,D0 MOVE.W D5,D1 MOVE.W D6,D2 MULS (A4,A2),D1 MULS (A3,A2),D2 ADD.L D2,D1 ADD.L D0,D0 ADD.L D1,D1 SWAP D0 SWAP D1 MOVE.W D0,D5 MOVE.W D1,D6 MOVE.W D7,D0 MOVE.W D5,D1 MULS (A3,A1),D0 ;ROTATE Y MULS (A4,A1),D1 SUB.L D1,D0 MOVE.W D7,D1 MOVE.W D5,D2 MULS (A4,A1),D1 MULS (A3,A1),D2 ADD.L D2,D1 ADD.L D0,D0 ADD.L D1,D1 SWAP D0 SWAP D1 MOVE.W D0,D7 MOVE.W D1,D5 MOVE.W D7,D4 ASR.W #4,D4 ADD.W VIEW(PC),D7 MOVE.W ZOOM,D0 MULS D0,D5 MULS D0,D6 TST.W D7 BEQ.S ZZERO DIVS D7,D5 DIVS D7,D6 ZZERO: ADD.W XCENTER(PC),D5 ADD.W YCENTER(PC),D6 MOVE.W (A5)+,D0 CMP.W #10,D6 ;TOP BGE.L CORRECT0 MOVE.W #10,D6 CORRECT0: CMP.W #195,D6 ;BOTTOM BLE.L CORRECT1 MOVE.W #195,D6 CORRECT1: AND.W #$00FF,D6 MOVE.W #1,SORTFLAG LEA SORTTABLE,A6 ADD.W #100,D4 LSL.W #5,D4 ADD.W D4,A6 CMP.W MINZ,D4 BGE.S MINZSMALLER MOVE.W D4,MINZ MINZSMALLER: CMP.W MAXZ,D4 BLE.S MAXZBIGGER MOVE.W D4,MAXZ MAXZBIGGER: OR.W D0,D5 TSTLOOP: TST.L (A6) BEQ.S FREESPACE ADDQ.W #4,A6 JMP TSTLOOP FREESPACE: MOVE.W D5,(A6)+ MOVE.W D6,(A6) JMP ROTCONVLOOP ROTOUT: RTS VIEW: DC.W 1900 XCENTER: DC.W 160-16 YCENTER: DC.W 127-16 ZOOM: DC.W 150 MINZ: DC.W 6400 MAXZ: DC.W 0 SORTFLAG: DC.W 0 ;------------------------------------------ SCREEN: DC.L $50000 PUTBOBS: ; MOVE.W #$060F,$DFF180 TST.W SORTFLAG BEQ.L PUTOUT WBLT LEA $DFF000,A6 LEA SORTTABLE,A0 LEA BOBSTRUCT,A3 ADD.W MAXZ,A0 ADD.W #64,A0 MOVE.L #SORTTABLE,D3 ADD.W MINZ,D3 SUB.W #256,D3 WBLT MOVE.L #$FFFF0000,BLTAFWM(A6) MOVE.L #BOBGFX,BLTAPT(A6) MOVE.L #BOBMASK,BLTBPT(A6) MOVE.L #$50000,BLTCPT(A6) MOVE.L #$50000,BLTDPT(A6) PUTLOOP: CMP.L D3,A0 BLE.L PUTOUT ; MOVE.W #$0F00,$DFF180 SUB.W #32,A0 TST.L (A0) BEQ.S PUTLOOP ; MOVE.W #$00F0,$DFF180 MOVE.L A0,A1 PUTLOOP2: ; WBLT MOVE.W (A1),D0 MOVE.W 2(A1),D1 CLR.L (A1)+ MOVE.W D0,D4 AND.W #$0FFF,D0 AND.W #$F000,D4 MOVE.L A3,A4 LSR.W #8,D4 ADD.W D4,A4 SUB.W 12(A4),D0 SUB.W 14(A4),D1 MOVE.W D0,D2 LSR.W #3,D0 AND.W #$000F,D2 ROR.W #4,D2 MOVE.W D2,BLTCON1(A6) OR.W #$0FCA,D2 MOVE.W D2,BLTCON0(A6) MOVE.W SCREEN+2,D2 ADD.W D0,D2 MULU #120,D1 ADD.W D1,D2 MOVE.W (A4)+,$4E(A6) MOVE.W (A4)+,$52(A6) MOVE.W (A4),$64(A6) MOVE.W (A4)+,$62(A6) MOVE.W (A4),$60(A6) MOVE.W (A4)+,$66(A6) MOVE.W D2,$4A(A6) MOVE.W D2,$56(A6) MOVE.W (A4)+,D0 ;MOVE.W #33,D1 ;LSL.W #6,D1 ; SUB.W D1,D0 MOVE.W D0,$58(A6) TST.L (A1) BNE.L PUTLOOP2 JMP PUTLOOP PUTOUT: RTS BOBSTRUCT: DC.W BOBGFX2,BOBMASK2,0,36,45*64+2,0,0,0 ;16*15 BOBS DC.W BOBGFX2+180,BOBMASK2,0,36,45*64+2,0,0,0 DC.W BOBGFX2+360,BOBMASK2,0,36,45*64+2,0,0,0 DC.W BOBGFX2+540,BOBMASK2,0,36,45*64+2,0,0,0 DC.W BOBGFX,BOBMASK,-2,34,93*64+3,1,8,8 ;32*31 BOBS DC.W BOBGFX+372,BOBMASK,-2,34,93*64+3,1,8,8 DC.W BOBGFX+744,BOBMASK,-2,34,93*64+3,1,8,8 DC.W BOBGFX+1116,BOBMASK+372,-2,34,75*64+3,1,5,5 DC.W BOBGFX+1416,BOBMASK+372,-2,34,75*64+3,1,5,5 DC.W BOBGFX+1716,BOBMASK+372,-2,34,75*64+3,1,5,5 DC.W BOBGFX+2016,BOBMASK+372,-2,34,75*64+3,1,5,5 DC.W BOBGFX+2316,BOBMASK+672,0,36,27*64+2,0,-2,-2 DC.W BOBGFX+2424,BOBMASK+672,0,36,27*64+2,0,-2,-2 DC.W BOBGFX3,BOBMASK,-2,34,93*64+3,1,8,8 ;32*31 BOBS DC.W BOBGFX3+372,BOBMASK,-2,34,93*64+3,1,8,8 DC.W BOBGFX3+744,BOBMASK2,0,36,45*64+2,0,0,0 ;DC.W GFXADR,MASKADR,SOURCEMOD,DESTMOD,BLTSIZE,CLRFLAG,0,0 ;------------------------------------------ CLRSORTTABLE: WBLT MOVE.W #$00FF,$DFF180 MOVE.L #SORTTABLE,BLTDPT(A6) CLR.W BLTDMOD(A6) MOVE.L #$01000000,BLTCON0(A6) MOVE.W #200*64+16,BLTSIZE(A6) WBLT RTS ;------------------------------------------ CLRBOBS: LEA $DFF000,A6 MOVE.L SCREEN,D0 ADD.L #[80*120],D0 MOVE.L D0,BLTDPT(A6) CLR.W BLTDMOD(A6) MOVE.L #$01000000,BLTCON0(A6) MOVE.W #106*64+60,BLTSIZE(A6) RTS ;------------------------------------------ SWAPBUFS: BCHG #0,BUFSEL BEQ.S SCREEN0 SCREEN1: MOVE.L #$57800,SCREEN CLR.W PLPTR0+6 CLR.W PLPTR1+6 CLR.W PLPTR2+6 MOVE.W #[80*120],PLPTR0+6 MOVE.W #[80*120]+$28,PLPTR1+6 MOVE.W #[80*120]+$50,PLPTR2+6 RTS SCREEN0: MOVE.L #$50000,SCREEN CLR.W PLPTR0+6 CLR.W PLPTR1+6 CLR.W PLPTR2+6 MOVE.W #[80*120]+$7800,PLPTR0+6 MOVE.W #[80*120]+$7800+$28,PLPTR1+6 MOVE.W #[80*120]+$7800+$50,PLPTR2+6 RTS BUFSEL: DC.W 0 ;------------------------------------------ WAVELOGO: ;SIN0: LEA SINUS0,A0 ; LEA OBJECT,A1 ; MOVE.W #BOBS,D7 ;WAVELOOP: ; MOVE.W (A1),D0 ; ADD.W #100,D0 ; CLR.W 4(A1) ; MOVE.B (A0,D0.W),5(A1) ; SUB.W #50,4(A1) ; ADD.W #6,A1 ; DBF D7,WAVELOOP ; ADD.B #3,SIN0+5 ; RTS ;------------------------------------------ MOVESTARS: LEA STARS+1,A0 ; MOVE.W #15,D7 MOVE.W #3,D6 MOVESLOOP: MOVE.W D6,D7 ADDQ.W #3,D7 LSR.W #1,D7 ADD.B D7,(A0) ADD.B D7,8(A0) ADD.B D7,16(A0) ADD.B D7,24(A0) ADD.B D7,32(A0) ADD.B D7,40(A0) ADD.B D7,48(A0) ADD.B D7,56(A0) ADD.B D7,64(A0) ADD.B D7,72(A0) ADD.B D7,80(A0) ADD.B D7,88(A0) ADD.B D7,96(A0) ADD.B D7,104(A0) ADD.B D7,112(A0) ADD.B D7,120(A0) ADD.W #132,A0 DBF D6,MOVESLOOP RTS ;------------------------------------------ INITSTARS: LEA STARS,A0 MOVE.W #$92,D4 MOVE.W #3,D7 MOVE.L #$00010000,D5 STARLOOP0: MOVE.W #15,D6 MOVE.W D4,D2 STARLOOP1: MOVE.B $DFF005,D0 MOVE.B $DFF007,D3 MOVE.W D6,D1 ROL.B D0,D1 NOT.W D1 LSL.W D6,D1 ADD.W D3,D1 ADD.W #5,D2 MOVE.B D2,(A0)+ MOVE.B D1,(A0)+ ADD.B #1,D2 MOVE.B D2,(A0)+ CLR.B (A0)+ MOVE.L D5,(A0)+ DBF D6,STARLOOP1 CLR.L (A0)+ SWAP D5 ADD.W #2,D4 DBF D7,STARLOOP0 RTS ;------------------------------------------ OLDINT: DC.L 0 OLDS: DC.L 0 OLDC: DC.L 0 DUMMY: DC.L 0 spr4: dc.w $905F,$9B00 dc.w $2F20,$6FA0 dc.w $17A0,$37B0 dc.w $0BD0,$1BD0 dc.w $05D0,$0DD8 dc.w $02E8,$06E8 dc.w $0168,$036C dc.w $00B0,$01B4 dc.w $0050,$00D4 dc.w $0020,$0064 dc.w $0010,$0034 dc.w $0008,$001C dc.w $0000,$0008 dc.w $0000,$0000 spr5: dc.w $905F,$9B80 dc.w $1FC0,$7FE0 dc.w $0FC0,$3FF0 dc.w $07E0,$1FF0 dc.w $03E0,$0FF8 dc.w $01F0,$07F8 dc.w $00F0,$03FC dc.w $0078,$01FC dc.w $0038,$00FC dc.w $0018,$007C dc.w $0008,$003C dc.w $0000,$001C dc.w $0000,$0008 dc.w $0000,$0000 spr6: dc.w $92B9,$9B00 dc.w $01D7,$094F dc.w $03AF,$029E dc.w $075F,$0537 dc.w $0E38,$0AFF dc.w $1D40,$1578 dc.w $3D00,$1DC0 dc.w $7000,$2800 dc.w $6000,$9000 dc.w $0000,$4000 dc.w $0000,$0000 spr7: dc.w $92B9,$9B80 dc.w $095F,$01BF dc.w $02BF,$037F dc.w $0578,$06FF dc.w $0AC0,$0DFF dc.w $1580,$1BF8 dc.w $3E00,$37C0 dc.w $6C00,$7C00 dc.w $6000,$F000 dc.w $8000,$C000 dc.w $0000,$0000 ;------------------------------------------ COPLIST: DC.W $0120,STARS/$10000,$0122,STARS DC.W $0124,STARS/$10000,$0126,STARS+132 DC.W $0128,STARS/$10000,$012A,STARS+132+132 DC.W $012C,STARS/$10000,$012E,STARS+132+132+132 DC.W $0130,CODE/$10000,$0132,SPR4 DC.W $0134,CODE/$10000,$0136,SPR5 DC.W $0138,CODE/$10000,$013A,SPR6 DC.W $013C,CODE/$10000,$013E,SPR7 DC.W $0100,$4200 DC.W $0102,$0000,$0104,$0041 DC.W $0182,$0FFF DC.W $0108,$0000 DC.W $010A,$0000 DC.W $0092,$0038 ; DFS DC.W $0094,$00D0 ; DFE DC.W $008E,$2381 ; DC.W $0090,$2CC1 DC.W $0096,$8020 ; SPRITE DMA ON DC.W $00E0,REBELSLOGO/$10000,$00E2,REBELSLOGO+$0000 DC.W $00E4,REBELSLOGO/$10000,$00E6,REBELSLOGO+$12E8 DC.W $00E8,REBELSLOGO/$10000,$00EA,REBELSLOGO+$25D0 DC.W $00EC,REBELSLOGO/$10000,$00EE,REBELSLOGO+$38B8 DC.W $0180,$0000,$0182,$0008,$0184,$0305,$0186,$0E00 DC.W $0188,$0C00,$018A,$0900,$018C,$0600,$018E,$0FDF DC.W $0190,$0AAC,$0192,$0DAF,$0194,$0536,$0196,$0547 DC.W $0198,$0658,$019A,$0769,$019C,$077A,$019E,$088B DC.W $01A8,$0C00,$01AE,$0FDF DC.W $01A8,$0C00,$1AA,$0900,$1AC,$0600 DC.W $8C01,$FF00,$0100,$5200,$01A0,$0406 DC.W $00F0,SCROLLAREA/$10000,$00F2,SCROLLAREA DC.W $8E01,$FF00,$01A0,$0507 DC.W $8F01,$FF00,$01A0,$0608 DC.W $9001,$FF00,$01A0,$0709 DC.W $9101,$FF00,$01A0,$080A DC.W $9201,$FF00,$01A0,$0709 DC.W $9301,$FF00,$01A0,$0608 DC.W $01B0,$0AAC,$01B2,$0DAF,$01B4,$0536,$01B6,$0547 DC.W $01B8,$0658,$01BA,$0769,$01BC,$077A,$01BE,$088B DC.W $01A2,$0DDD,$01A4,$0BBB,$01AA,$0999,$01AC,$0777 ;-------------------------------------- DC.W $9411,$FFFE,$0180,$0507,$0100,$1200 DC.W $00E0,$0007,$00E2,$F000 PLPTR1: DC.W $00E8,$0005,$00EA,$0028 PLPTR2: DC.W $00F0,$0005,$00F2,$0050 DC.W $00E4,TEXTMENU/$10000,$00E6,TEXTMENU DC.W $00EC,TEXTMENU/$10000,$00EE,TEXTMENU+$28 DC.W $0108,$0050 DC.W $010A,$0028 BALLSCOP: DC.W $0182,$0FFF DC.W $0184,$0DDD DC.W $0186,$0BBB DC.W $0188,$0999 DC.W $018A,$000D DC.W $018C,$000B DC.W $018E,$0009 DC.W $0192,$0FFF,$0194,$0999,$0196,$0CCC DC.W $94DF,$FFFE,$0100,$5600,$0180,$0003 PLPTR0: DC.W $00E0,$0005,$00E2,$0000 HIGHLIGHTCOP: DC.W $B401,$FF00,$0192,$0F00,$0196,$0C00 DC.W $BC01,$FF00,$0192,$0FFF,$0196,$0CCC COPENDLINE: DC.W $FE11,$FFFE,$0180,$0507 DC.W $0100,$0200 DC.W $FF11,$FFFE,$0180,$0000 ;-------------------------------------------- ;-------------------------------------------- ENDCOPLIST: DC.W $FFFF,$FFFE ;-------------------------------------------- BLTCON0=$040 BLTCON1=$042 BLTAMOD=$064 BLTBMOD=$062 BLTCMOD=$060 BLTDMOD=$066 BLTADAT=$074 BLTBDAT=$072 BLTCDAT=$070 BLTDDAT=$000 BLTAFWM=$044 BLTALWM=$046 BLTAPT=$050 BLTBPT=$04C BLTCPT=$048 BLTDPT=$054 BLTSIZE=$058 END: