A.N.A.L.O.G. Magazine 1989 May/89_may.atr/link1.lnk

Text File | 2023-02-26 | 3KB | 1 lines

 ;-----------------------------------¢ ;SOURCE CODE LINK FILE¢ ;-----------------------------------¢ ¢ ;CLOSE IOCB SIX¢ ¢CLOSIO: LDX #96¢ LDA #CLOSE¢ STA ICCOM,X¢ JSR CIOV¢ RTS¢ ¢ ;PREFORM GRAPHICS STATEMENT¢ ¢ ;OPEN IOCB SIX¢GRAPH: LDX #96¢ LDA #OPEN¢ STA ICCOM,X¢ ;EXCUTE STATEMENT¢ LDA #12¢ STA AUX1,X¢ LDA #0;GRAPHIC MODE¢ STA AUX2,X¢ LDA #LOW DEV¢ STA ICBAL,X¢ LDA #HIGH DEV¢ STA ICBAH,X¢ JSR CIOV¢ RTS¢DEV: DB 'S:',EOL¢ ¢ ;CHARACTER SET RELOCATER¢ ¢CHAR: LDA #LOW RAMSET¢ STA WORKP¢ LDA #HIGH RAMSET¢ STA WORKP+1¢ LDA #LOW ROMSET¢ STA WORKP+2¢ LDA #HIGH ROMSET¢ STA WORKP+3¢ LDY #0¢ LDX #2¢LOOP1: LDA (WORKP+2),Y¢ STA (WORKP),Y¢ INY¢ BNE LOOP1¢ INC WORKP+1¢ INC WORKP+3¢ DEX¢ BNE LOOP1¢ ¢ ;REDFINE CHARACTER ONE, TWO & THREE¢ ¢ LDA #8 ;LOW RAMSET¢ STA WORKP¢ LDA #HIGH RAMSET¢ STA WORKP+1¢ LDY #0¢CH1: LDA CDATA,Y¢ STA (WORKP),Y¢ INY¢ CPY #16¢ BNE CH1¢ ¢ ;DO LAST CHARACTER¢ ¢ LDX #0¢CH2: LDA MDATA,X¢ STA (WORKP),Y¢ INY¢ INX¢ CPX #8¢ BNE CH2¢ ¢ ;TELL WHERE FONT IS¢ ¢ LDA #HIGH RAMSET¢ STA 756¢ RTS¢ ¢ ;......ENTRY PARAMETERS.....¢ ;A-REGISTER CONTAIN THE DIRECTION¢ ;THE CLOWN IS GO TO MOVE IN¢ ;0 = NO MOVE,1 = MOVE UP¢ ;2 = MOVE DOWN,3=MOVE UP, NO DELAY¢ ;MOVE CLOWN (PLAYER 0) AND MOVE ¢ ;CLOWN'S LEGS VERTICALY¢ ¢YMOVE: CMP #0¢ BEQ CCC1;NO MOVE¢ CMP #1¢ BEQ UPM;MOVE PLAYER UP BY ONE¢ CMP #2¢ BEQ DOWNM;MOVE PLAYER DOWN BY ONE¢ CMP #3¢ BNE CCC3¢ LDA #1¢ STA TFLAG3¢ BNE UPM¢ ¢CCC3: RTS¢ ¢ ;MOVE CLOWN UP BY ONE¢ ¢UPM: LDY CY0¢ LDX #12¢YM1: LDA (PAD0),Y¢ DEY¢ STA (PAD0),Y¢ INY¢ INY¢ DEX¢ BNE YM1¢ ¢ ;MOVE CLOWN'S LEG UP BY ONE¢ ¢ CLC¢ LDA CY0¢ ADC #10¢ TAY¢ LDX #4¢ ¢YM2: LDA (PAD1),Y¢ DEY¢ STA (PAD1),Y¢ INY¢ INY¢ DEX¢ BNE YM2¢ ¢ DEC CY0¢ ¢ ;DONE, GO TEST COLLSION REG.¢ ¢ BNE COLT¢ ¢ ;MOVE CLOWN DOWN BY ONE¢ ;FIRST MOVE CLOWN'S BODY, THEN¢ ;MOVE ITS LEGS¢ ¢ ;MOVE THE CLOWN'S BODY¢ ¢DOWNM: CLC¢ LDA CY0¢ ADC #11¢ TAY¢ LDX #12¢ ¢DM2: LDA (PAD0),Y¢ INY¢ STA (PAD0),Y¢ DEY¢ DEY¢ DEX¢ BNE DM2¢ ¢ ;NOW, MOVE ITS LEGS¢ ¢ CLC¢ LDA CY0¢ ADC #13¢ TAY¢ LDX #4¢ ¢DM1: LDA (PAD1),Y¢ INY¢ STA (PAD1),Y¢ DEY¢ DEY¢ DEX¢ BNE DM1¢ ¢ INC CY0¢ ¢ BNE COLT¢CCC1: BEQ COLT¢ ¢ ;.....ENTRY PARAMETERS......¢ ;A-REGISTER HOLDS THE DIRECTION¢ ;THE CLOWN WILL BE MOVED IN¢ ;0 = NO MOVE, 1 = MOVE LEFT¢ ;2 = MOVE RIGHT¢ ¢ ;MOVE CLOWN LEFT OF RIGHT¢ ¢XMOVE: CMP #0¢ BEQ COLT;NO MOVE¢ CMP #1¢ BEQ XLEFT;MOVE LEFT¢ CMP #2¢ BEQ XRIGHT;MOVE RIGHT¢ RTS¢ ¢ ;MOVE LEFT¢ ¢XLEFT: DEC CX0¢ LDA CX0¢ STA HPOSP0¢ STA HPOSP1¢ BNE COLT¢ ¢ ;MOVE RIGHT¢XRIGHT: INC CX0¢ LDA CX0¢ STA HPOSP0¢ STA HPOSP1¢ ¢ ;SEED COLLISION BYTES¢ ¢ ;PLAYER TO PLAYER¢ ¢COLT: LDA TFLAG3¢ BEQ CCC5¢ LDA #0¢ STA TFLAG3¢ RTS¢¢CCC5: JSR NDELAY¢  ¢ LDA #0¢ STA PCOLL1¢ STA COLL1¢ ¢ LDA P1PL¢ STA PCOLL1¢ ¢ ;PLAYER TO PLAYFEILD¢ ¢ LDA P1PF¢ STA COLL1¢ ¢ ;MISSLE TO CLOWN¢ ¢ LDX #0¢CLL1: LDA M0PL,X¢ BEQ CLL2¢ ¢ STA MCOLL1¢ BNE CLL3¢ ¢CLL2: INX¢ CPX #4¢ BNE CLL1¢ ¢ ;CLEAR COLLISION REGISTERS¢ ¢CLL3: LDA #0¢ STA HITCLR¢ RTS¢ ¢