Mega Magazine 7/Mega_Magazine_07_19xx___nl_Disk_2_of_2_Side_A.atr/vmagic.arc/VMAGIC.SRC

Text File | 1985-10-07 | 9KB | 1 lines

  ; the vectormagic-part of¢  ; the halle project april '93¢  ; (c) 1993 chip special software¢  ; contact: fon/fax: [phone]¢  ; ¢ x2:EQU $D0 ; labels for¢ y2:EQU x2+1 ; quickline¢ x1:EQU y2+1¢ y1:EQU x1+1¢ zae:EQU y1+1¢ dx:EQU zae+1¢ dy:EQU dx+1¢ xs:EQU dy+1¢ ys:EQU xs+1¢ e:EQU ys+1¢ adr:EQU e+1 ; pointers¢ adr2:EQU adr+2¢ vec:EQU adr2+2¢ vzae:EQU vec+2¢ vzae2:EQU vzae+1¢ scr:EQU vzae2+1 ; scrollreg¢  ; ¢ sm1:EQU $E150 ; screenmemory #1¢ sm2:EQU $A150 ; #2¢ links:EQU $3000 ; table of linkbytes¢ vanf:EQU links+52 ; table of coordinates¢ dl:EQU $9E8D ; displaylist¢ bubl:EQU $4B34 ; backgroundgfx¢ buba:EQU bubl+31*40¢ txdl:EQU $9FFB¢  ; ¢ ORG $8000¢ line:STX x2 ; quickline¢ STY y2 ; incl. plotroutine¢ TXA  ; startpoint¢ LDX #1 ; in x1;y1¢ STX xs ; end in X&Y¢ STX ys¢ DEX ¢ STX e¢ SEC ¢ SBC x1¢ STA dx¢ BPL dxok¢ EOR #$FF¢ STA dx¢ INC dx¢ LDA #$FF¢ STA xs¢ dxok:TYA ¢ SEC ¢ SBC y1¢ STA dy¢ BEQ dyzero¢ BPL linloop¢ EOR #$FF¢ STA dy¢ INC dy¢ LDA #$FF¢ STA ys¢ BNE linloop¢ dyzero:LDA #$FF¢ STA e¢ linloop:LDA x1¢ CMP x2¢ BNE linl2¢ LDA y1¢ CMP y2¢ BNE linl2¢ RTS ¢ linl2:LDX x1¢ LDY y1¢ JSR plot¢ LDA e¢ BPL epos¢ LDA x1¢ CLC ¢ ADC xs¢ STA x1¢ LDA e¢ CLC ¢ ADC dy¢ STA e¢ JMP linloop¢ epos:LDA y1¢ CLC ¢ ADC ys¢ STA y1¢ LDA e¢ SEC ¢ SBC dx¢ STA e¢ JMP linloop¢  ; ¢ plot:LDA adrl,Y¢ STA adr¢ plot2:LDA adr1h,Y¢ STA adr+1¢ LDY div4,X¢ TXA ¢ AND #3¢ TAX ¢ LDA (adr),Y¢ ORA bits,X¢ STA (adr),Y¢ RTS ¢  ; ¢ iniplot:LDX #0 ; initialize¢ LDA #<sm1 ; all tables¢ STA adr¢ LDA #>sm1¢ STA adr+1¢ LDA #>sm2¢ STA adr2+1¢ iploop:LDA adr¢ STA adrl,X¢ LDA adr+1¢ STA adr1h,X¢ LDA adr2+1¢ STA adr2h,X¢ LDA adr¢ CLC ¢ ADC #40¢ STA adr¢ BCC ipl1@¢ INC adr+1¢ INC adr2+1¢ ipl1@:INX ¢ CPX #180¢ BNE iploop¢ LDA #<vanf¢ STA adr¢ LDA #>vanf¢ STA adr+1¢ LDX #0¢ ipl2@:LDA adr¢ STA vecl,X¢ LDA adr+1¢ STA vech,X¢ LDA adr¢ CLC ¢ ADC #104¢ STA adr¢ BCC ipl3@¢ INC adr+1¢ ipl3@:INX ¢ CPX #64¢ BNE ipl2@¢ LDX #0¢ iploop2:TXA ¢ LSR  ¢ LSR  ¢ STA div4,X¢ INX ¢ CPX #160¢ BNE iploop2¢ LDA #>sm2¢ STA dl+2¢ LDA #>sm2+15¢ STA dl+$62¢ RTS ¢  ; ¢  ; bitmap for graphics 15¢  ; ¢ bits:DFB $C0,$30,$C,3¢  ; ¢ clr:STX adr+1 ; copy bckgr¢ LDA #<(dl+$A2) ; in screen¢ LDX #>(dl+$A2) ; memory¢ STA adr2¢ STX adr2+1¢ LDX #155¢ LDY #0¢ crl3l:LDA adr1h,X¢ STA (adr2),Y¢ INY ¢ INY ¢ INY ¢ DEX ¢ CPX #87¢ BNE crl3l¢ LDA #<sm1¢ STA adr¢ LDA #<bubl¢ STA adr2¢ LDA #>bubl¢ STA adr2+1¢ LDX #23¢ LDY #0¢ crl1:LDA (adr2),Y¢ STA (adr),Y¢ INY ¢ BNE crl1¢ INC adr+1¢ INC adr2+1¢ DEX ¢ BPL crl1¢ LDY #95¢ crl2:LDA (adr2),Y¢ STA (adr),Y¢ DEY ¢ BPL crl2¢ RTS ¢ switch:LDA plot2+1 ; switching¢ CMP #<adr1h ; between¢ BNE swi1 ; the both¢ LDA #<adr2h ; screen¢ STA plot2+1 ; memories¢ LDA #>adr2h¢ STA plot2+2¢ LDA #<adr1h¢ STA crl3l+1¢ LDA #>adr1h¢ STA crl3l+2¢ LDA #>sm1¢ STA dl+2¢ LDA #>sm1+15¢ STA dl+$62¢ LDX #>sm2¢ BNE clr¢ swi1:LDA #<adr1h¢ STA plot2+1¢ LDA #>adr1h¢ STA plot2+2¢ LDA #<adr2h¢ STA crl3l+1¢ LDA #>adr2h¢ STA crl3l+2¢ LDA #>sm2¢ STA dl+2¢ LDA #>sm2+15¢ STA dl+$62¢ LDX #>sm1¢ JMP clr¢ dli:PHA ¢ TXA ¢ PHA ¢ TYA ¢ PHA ¢ LDX #0¢ dliloop:LDA toen,X¢ STA $D40A¢ STA $D01A¢ AND #15¢ TAY ¢ BEQ dli1@¢ DEY ¢ dli1@:STY $D016¢ STY $D017¢ STY $D018¢ INX ¢ CPX #68¢ BNE dliloop¢ LDA #8¢ LDY #10¢ LDX #14¢ STA $D40A¢ STA $D016¢ STY $D017¢ STX $D018¢ PLA ¢ TAY ¢ PLA ¢ TAX ¢ PLA ¢ STA $D40F¢ RTI ¢ toen:DFB 0¢ ORG toen+68¢ toen2:DFB $60,0,$60,$62,0,$50,$52,$54,$52,0¢ DFB $50,$42,$54,$46,$54,0,$40,$42,$44,$46,$48,$46,0¢ DFB $40,$32,$44,$36,$48,$3A,$48,0¢ DFB $30,$32,$34,$36,$38,$3A,$3C,$3A,0¢ DFB $20,$22,$24,$26,$28,$2A,$2C,$2E,$2C,$2A,0¢ DFB $10,$12,$14,$16,$18,$1A,$1C,$1E,$1E,$1C,$1A,$18,$16,$14,$12,$10,0¢  ; ¢  ; mainprocedure¢  ; ¢ n:LDA #0 ; startlabel¢ STA $D40E¢ STA $D20E¢ LDX #4¢ setc0:STA $D016,X¢ STA 708,X¢ DEX ¢ BPL setc0¢ LDX #67¢ setc01:STA toen,X¢ DEX ¢ BPL setc01¢ LDA #$FE¢ STA $D301¢ LDA #<nmi¢ LDX #>nmi¢ STA $FFFA¢ STX $FFFB¢ LDX #>sm1¢ JSR erase¢ LDX #>sm2¢ JSR erase¢ LDA #<dl¢ LDX #>dl¢ STA $D402¢ STX $D403¢ LDA #$9C¢ STA $D409¢ LDA #<txt¢ LDX #>txt¢ STA txdl¢ STX txdl+1¢ JSR iniplot¢ LDA #0¢ STA vzae2¢ STA scr¢ STA $13¢ STA $14¢ JSR $6407 ; musicinit¢ LDA #$C0¢ STA $D40E¢ iwait:LDA $14¢ CMP #150¢ BNE iwait¢ LDA #0¢ STA $14¢ main:LDX vzae2¢ LDA vecl,X¢ STA vec¢ LDA vech,X¢ STA vec+1¢ JSR switch¢ LDA #0¢ STA vzae¢ mloop:LDA vzae¢ TAX ¢ ASL  ¢ TAY ¢ LDA (vec),Y¢ STA x1¢ INY ¢ LDA (vec),Y¢ STA y1¢ LDA links,X¢ ASL  ¢ TAY ¢ LDA (vec),Y¢ TAX ¢ INY ¢ LDA (vec),Y¢ TAY ¢ JSR line¢ INC vzae¢ LDA vzae¢ CMP #52¢ BNE mloop¢ INC vzae2¢ LDA vzae2¢ AND #$3F¢ STA vzae2¢ LDA $640B¢ BNE ende¢ LDA #8¢ STA $D01F¢ LDA $D01F¢ AND #1¢ BEQ ende¢ JMP main¢ ende:INC $D301¢ JMP $E474¢  ; ¢ nmi:BIT $D40F¢ BPL vbi¢ JMP dli¢ vbi:PHA ¢ TXA ¢ PHA ¢ TYA ¢ PHA ¢ INC $14¢ BNE vbi0¢ INC $13¢ vbi0:LDA $14¢ AND #3¢ BNE vbi1¢ LDA $13¢ CMP #3¢ BNE vbi1¢ LDX #2¢ blend:LDA 708,X¢ ORA col,X¢ STA 708,X¢ CMP rcol,X¢ BEQ bl2¢ INC 708,X¢ INC 708,X¢ bl2:DEX ¢ BPL blend¢ LDX #67¢ blend2:LDA toen2,X¢ AND #$F0¢ ORA toen,X¢ STA toen,X¢ CMP toen2,X¢ BEQ bl22¢ INC toen,X¢ INC toen,X¢ bl22:DEX ¢ BPL blend2¢ vbi1:LDA 708¢ LDY 709¢ LDX 710¢ STA $D016¢ STY $D017¢ STX $D018¢ LDA #0¢ STA $D01A¢ JSR $7BA1 ; musicplay¢ DEC scr¢ BPL noscrl¢ LDA #3¢ STA scr¢ INC txdl¢ BNE noscrl¢ INC txdl+1¢ noscrl:LDA scr¢ STA $D404¢ PLA ¢ TAY ¢ PLA ¢ TAX ¢ PLA ¢ STA $D40F¢ RTI ¢  ; ¢ erase:LDA #<sm1 ; clear¢ STA adr ; any screenmemory¢ STX adr+1¢ LDA #0¢ LDX #$18¢ erl1:LDY #0¢ erl2:STA (adr),Y¢ INY ¢ BNE erl2¢ INC adr+1¢ DEX ¢ BPL erl1¢ RTS ¢ col:DFB $70,$60,$10¢ rcol:DFB $74,$68,$1C¢  ; ¢ adrl:EQU $8CB0¢ adr1h:EQU adrl+180¢ adr2h:EQU adr1h+180¢ vecl:EQU adr2h+180¢ vech:EQU vecl+64¢ div4:EQU vech+64¢  ; ¢ ORG $9000¢ txt:ASC %                                                         %¢ ASC %A ONE   -   A TWO   -   A ONE, TWO, THREE, FOUR...          %¢ ASC %WOW! THAT'S CHIP SPECIAL ALREADY AGAIN (YAWN!).                     %¢ ASC %AND THE NAME OF THIS SMALL PRESENTATION IS...                LOOK ABOVE!!!                       %¢ ASC %                       %¢ ASC %I KNOW, THAT THESE ROUTINES AIN'T "MAGIC" ANYWAY, BUT LIKE FRANKENSTEIN ("THE GREAT"!) ALREADY SAID: %¢ ASC %"IT'S SLOW, BUT GOOD!" AND I THINK, HERE IT'S HIGHEST SUITABLE TOO...      %¢ ASC %BECAUSE OF LACK OF TIME (I STILL HAVE TO PACK AND LINK THE WHOLE DEMO!) AND HAVING NO MIND, %¢ ASC %I WON'T BOTHER YOU WITH SOME TECHNICAL DETAILS OR ANY ELSE CRAPTALK, BUT: WITH GREETINGS!!! %¢ ASC %(HAI EISBAER, SLEEP WELL!!!)                %¢ ASC %PERSONAL GREETINX FROM CHIP SPECIAL FLY (IN A KIND OF ORDER!) TO:    %¢ ASC %ALL MAKERS OF THIS HEAVENLY PROJECT (THIS ARE NOT ONLY GREETZ, A BIG "THANK YOU, PALS!" TOO!!!) - %¢ ASC %HERE A SPECIAL MESSAGE TO EISBAER CORP. AGAIN: I THINK IT'S MORE THAN A SUBSTITUTE, ISN'T IT?      %¢ ASC %FURTHER GREETINX...    ANALOG RESEARCH (UND HEIKE)   WOLFGANG + ABBUC   POKEY   CHAOS CLUB CHEMNITZ %¢ ASC %   PHOENIX SOFTCREW   ARC ANGEL   NONAME-CREW   %¢ ASC %JACOMO LEOPARDI (I HOPE, YOU'LL OVERCOME YOUR MOURNING! IT'S REALLY TRAGIC.)   %¢ ASC %TRSI   ALL DEALERS   %¢ ASC %HORST DEWITZ (DON'T GIVE UP!)   ATREJU (THANX FOR HDI! IT'S GREEAAAT, REALLY!)   %¢ ASC %PETRA OF CFL + SCHWESTERCHEN   PERRIX + ALEC EMPIRE OF L.D.C. %¢ ASC %(THANX FOR YOUR SUPPORT FOR ANXT!)   %¢ ASC %LORD HELMCHEN, FRIDAY AND REST OF %¢ ASC %W.A.F. (CONGRATULATIONS TO YOUR MEGA-(RIP)-DEMO!)   %¢ ASC %U.N.O.   MEISTER FLOPPY (WELCOME!)   SOLO CODER + BEE MAN (STAY!)   %¢ ASC %ATAM-WARRIORS   R.I.K. (MEANS IT: REST IN KOMA? - DER XL LEBT!!!)   AEGAEIS SOFTSCAPE %¢ ASC %(END OF ACTIVE TIME???)   %¢ ASC %STORM OF N.A.S.A.   AND ANDY (ECHT GEILE COMMENTS!)       %¢ ASC %AFTER ALL AND SUNDRY ARE GREETED, YET SOME... OOOOOOOHHHHHHH NNNOOOOO!!!!!!     %¢ ASC %SHAME ABOUT ME!!!   I FORGOT TO GREET: BLUEFLAME-SOFTWARE   HIGH-TECH-TEAM (HI FREDDY!)   %¢ ASC %MAGNUS (WHAT ABOUT THE REST OF THE WORLD FEDERATION?)   OUR 5OFT (COOL GAMES!)   AVALON   MIRAGE   %¢ ASC %ASF   JAKUB HUSAK (BOAH! SUPERB SOUNDS!)   ZUR-SOFT (LOOK JAKUB!)   %¢ ASC %TACF   BEWESOFT   WOSFILM   POKEYSOFT   %¢ ASC %ADVANCED TRANCE PROJECT   TORSTEN FENSLAU   DJ DAG + DANCE 2 TRANCE              %¢ ASC %IF YOU WANNA GET IN TOUCH WITH ME, WRITE TO:   %¢ ASC %CHIP SPECIAL SOFTWARE      KARSTEN SCHMIDT      PAUL-BERTZ-STR.107      %¢ ASC %O-9044 CHEMNITZ (FROM JULY '93 NEW POSTAL CODE: D-09120 CHEMNITZ)   OR FON-FAX: %¢ ASC %GERMANY 0371-223726           TO ORDER "BLACKDISK", THE NEW-GENERATION-DISKMONITOR, %¢ ASC %WRITE TO THIS ADDRESS TOO! (PRICE: 20 DM OR $12.50 + POSTAGE)         %¢ ASC %         NOW THERE'S STILL ONLY ONE FACT LEFT...               THE CREDITS:   %¢ ASC %CODING, GRAPHICS AND MUSIC MADE BY CHIP SPECIAL SOFTWARE (THE BUBBLES AIN'T RIPPED, BUT OF COURSE THE IDEA %¢ ASC %IS FROM "HUMANOID")            %¢ ASC %"BAKER STREET" WAS COMPOSED BY GERRY RAFFERTY + COVERED BY UNDERCOVER AND LATER BY CHIP SPECIAL SOFTWARE%¢ ASC %                                              END OF COMMUNICATION!%¢ ¢