home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1989 May / 89_may.atr / platform.lnk < prev    next >
Text File  |  2023-02-26  |  3KB  |  1 lines

  1.  ;-----------------------------------¢ ;SOURCE CODE LINK FILE¢ ;-----------------------------------¢ ¢ ;MOVE BOTH PLATFORMS¢ ;MOVE PLATFORM TWO FIRST¢ ;CHECK ITS SPEED, HAS IT REACHED¢ ;ZERO YET¢ ¢MPLM: DEC PS2¢ BNE PLM6¢ ¢ ;GO DO PLATFORM THREE¢ ¢PLM1: LDA #LOW PM2¢ STA WORKP¢ LDA #HIGH PM2¢ STA WORKP+1¢ ¢ ;SET SPEED BACK UP¢ ¢ LDA PERMP¢ STA PS2¢ ¢ ;FIND ITS DIRECTION¢ ¢PLMA: LDA PD2¢ BEQ PLUP¢ ¢ ;MOVE IT DOWN¢ ¢ ;CHECK TO SEE IF IT NEEDS TO REVERSE¢ ;DIRECTION¢ ¢ INC PY2¢ LDA PY2¢ CMP #200¢ BNE PLM2¢ LDA #0¢ STA PD2¢ BEQ PLMA¢ ¢PLM2: CLC¢ LDA PY2¢ ADC #3¢ TAY¢ JSR PLMD¢ ¢ ;CHECK EXPAND FLAG¢ ¢ LDA MARK2¢ BEQ EXPL1¢ ¢ JSR EXRR¢ ¢EXPL1: JMP PLM6¢ ¢ ;CHECK TO SEE IF NEEDS TO REVERSE¢ ;ITS DIRECTION¢¢PLUP: DEC PY2¢ LDA PY2¢ CMP #50¢ BNE PLM3¢ LDA #1¢ STA PD2¢ BNE PLMA¢ ¢PLM3: LDY PY2¢ JSR PLMU¢ ¢ LDA MARK2¢ BEQ PLM6¢ JSR EXRR¢ ¢ ;MOVE PLATFORM THREE¢ ;CHECK ITS SPEED¢ ¢PLM6: DEC PS3¢ BEQ PLM7¢ RTS¢ ¢ ;SET SPEED BACK UP¢ ¢PLM7: LDA PERMP+1¢ STA PS3¢ ¢ LDA #LOW PM3¢ STA WORKP¢ LDA #HIGH PM3¢ STA WORKP+1¢ ¢PLM8: LDA PD3¢ BEQ PLUP3¢ ¢ ;MOVE PLATFORM THREE DOWN¢ ¢ INC PY3¢ LDA PY3¢ CMP #200¢ BNE PLM10¢ LDA #0¢ STA PD3¢ BEQ PLM8¢ ¢PLM10: CLC¢ LDA PY3¢ ADC #3¢ TAY¢ JSR PLMD¢ ¢ LDA MARK3¢ BEQ PLM15¢ JSR EXRR2¢ ¢PLM15: RTS¢ ¢ ;MOVE PLATFORM UP¢ ¢PLUP3: DEC PY3¢ LDA PY3¢ CMP #50¢ BNE PLM9¢ LDA #1¢ STA PD3¢ BNE PLM8¢ ¢PLM9: LDY PY3¢ JSR PLMU¢ ¢ LDA MARK3¢ BEQ PLM16¢ JSR EXRR2¢ ¢PLM16: RTS¢ ¢ ;PHYSICAL MOVE PLATFORM ROUTINE¢ ;MOVE UP Y-REGISTER CONTAINS¢ ;PLATFORM Y-CORDINATE¢ ¢PLMU: LDX DRMAX¢PMU1: LDA (WORKP),Y¢ DEY¢ STA (WORKP),Y¢ INY¢ INY¢ DEX¢ BNE PMU1¢ RTS¢ ¢ ;MOVE PLATFROM DOWN¢ ;Y-REGISTER CONTAINS Y-CORDINATE¢ ¢PLMD: LDX #6¢ DEY¢PMD1: LDA (WORKP),Y¢ INY¢ STA (WORKP),Y¢ DEY¢ DEY¢ DEX¢ BNE PMD1¢ RTS¢ ¢ ;EXPAND OR CONTRACT PLATFORM TWO¢ ;CHECK ITS DIRECTION¢ ;ON A 0 DECREASE EXPANSION ON A ¢ ;ONE INCREASE EXPANSION¢ ¢EXRR: DEC EXS2¢ BEQ EL8¢ RTS¢ ¢EL8: LDA EXPAN2¢ STA EXS2¢ ¢EL2: LDA EXD2¢ BEQ EXDE¢ ¢ ;INCREASE EXPANSION¢ ¢ INC PX2¢ LDA PX2¢ CMP #46¢ BNE EL1¢ ¢ ;EXPANSION IS DONE FLIP DIRECTION¢ ¢ LDA #0¢ STA EXD2¢ BEQ EL2¢ ¢ ;DO EXPANSION¢ ¢EL1: STA HPOSP2¢ RTS¢ ¢ ;DECREASE PLATFORM TWO¢ ¢EXDE: DEC PX2¢ LDA PX2¢ CMP #19¢ ¢ ;DO DECREASE¢ ¢ BNE EL1¢ ¢ ;IF DONE FLIP DIRECTION ¢ ¢ LDA #1¢ STA EXD2¢ BNE EL2¢ ¢ ;DO DECRESE¢ ¢ ;EL4: STA HPOSP2¢ ; RTS¢ ¢ ;EXPAND OR CONTRACT PLATFORM THREE¢ ¢EXRR2: DEC EXS3¢ BEQ ER1¢ RTS¢ ¢ ;SET SPEED BACK UP¢ ¢ER1: LDA EXPAN3¢ STA EXS3¢ ¢ ;FIND ITS DIRECTION¢ ;ON A 1 EXPAND, ON A 0 DECREASE¢ ¢ER2: LDA EXD3¢ BEQ EXDE2¢ ¢ ;INCREASE EXPANSION¢ ¢ DEC PX3¢ LDA PX3¢ CMP #179¢ BNE ER3¢ ¢ ;DONE, FLIP DIRECTION¢ ¢ LDA #0¢ STA EXD3¢ BEQ ER2¢ ¢ ;DO EXPANSION¢ ¢ER3: STA HPOSP3¢ RTS¢ ¢ ;DECREASE PLATFORM¢ ¢EXDE2: INC PX3¢ LDA PX3¢ CMP #201¢ ¢ ;DO DECREASE¢ ¢ BNE ER3¢ ¢ ;DONE, FLIP DIRECTION¢ ¢ LDA #1¢ STA EXD3¢ BNE ER2¢ ¢