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

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

 ;-----------------------------------¢ ;SOURCE CODE LINK FILE¢ ;-----------------------------------¢ ¢ ;FIND OUT WHICH PLATFORM THE CLOWN¢ ;HAS LANDED ON. IF HE LANDS ON THE¢ ;RIGHT ONE HE ADVANCES IN LEVEL¢ ¢PLAT: TAX¢ LDA #0¢ STA CFALL¢ TXA¢ ¢ BEQ PLAT2¢ ¢ ;CLOWN HAS LANDED ON PLATFORM THREE¢ ;IS IT THE RIGHT ON TO GO UP IN ¢ ;LEVEL?¢ ¢ LDA #3¢ CMP PFORM¢ BEQ PL1¢ ¢ ;WRONG PLAT FORM, GO TEST STICK¢ ¢ JMP ST¢ ¢ ;RIGHT PLAT FORM,SEE IF HE HAS MADE¢ ;IT COMPLETLY AROUND¢ ¢PL1: INC COMP¢ ¢ BNE EXITP¢ ¢EXITP: LDA #2¢ STA PFORM¢ JMP ST¢ ¢ ;CLOWN HAS LANDED ON PLATFORM TWO¢ ¢PLAT2: LDA #2¢ CMP PFORM¢ BEQ PL3¢ ¢ ;WRONG PLATFORM¢ ¢ JMP ST¢ ¢ ;RIGHT PLATFORM¢ ¢PL3: INC COMP¢ LDA COMP¢ CMP #2¢ BEQ PL4¢ ¢ ;HAS NOT MADE IT COMPLETLY¢ ¢ BNE EXP1¢ ¢ ;HAS MADE IT AROUND¢ ¢PL4: LDA #0¢ STA COMP¢ INC LEVEL¢ LDA LEVEL¢ CMP #26¢ BNE PL5¢ ¢ DEC LEVEL¢ BNE EXP1¢ ¢PL5: JSR CLML¢ ¢ JSR LEVINT¢ LDA #LOW 500¢ STA TEMP14¢ LDA #HIGH 500¢ STA TEMP14+1¢ JSR DCON¢ ¢EXP1: LDA #3¢ STA PFORM¢ JMP ST¢ ¢CLML: LDY #0¢CLM1: LDA CLINE,Y¢ STA (88),Y¢ INY¢ CPY #40¢ BNE CLM1¢ ¢ ;PRINT LEVEL MINUS ONE¢ ¢ DEC LEVEL¢ LDY #17¢ LDA LEVEL¢ STA (88),Y¢ ¢ LDA #1¢ STA TFLAG1¢ ¢ JSR DKILL¢ ¢ ;DELAY LOOP¢ ¢ LDA #15¢ STA DCOUNT¢ LDY #0¢ LDX #0¢CLM2: INY¢ BNE CLM2¢ INX¢ BNE CLM2¢ ¢ DEC DCOUNT¢ ¢ BNE CLM2¢ ¢ INC LEVEL¢ ¢ LDA #0¢ STA TFLAG1¢ ¢BOARD: LDY #0¢¢BOA2: LDA TLINE,Y¢ STA (88),Y¢ INY¢ CPY #40¢ BNE BOA2¢ ¢ ;PRINT LEVEL¢ ¢ LDY LPOINT¢ LDA LEVEL¢ STA (88),Y¢ ¢ ;PRINT MEN¢ ¢XMEN: LDA MEN¢ BEQ BOA6¢ ¢ LDX #0¢ LDY #30¢ LDA #3¢ ¢BOA1: STA (88),Y¢ INY¢ INX¢ CPX MEN¢ BNE BOA1¢ ¢BOA6: RTS¢¢ ;FIND OUT WHICH LEVEL CLOWN IS ON¢ ;& INCREASE DIFFICULY¢¢LEVINT: LDA LEVEL¢ CMP #17¢ BEQ LE4¢ CMP #18¢ BNE LE1¢ ¢ ;SET LEVEL TWO¢ ¢ LDA #1¢ STA CRITP¢ RTS¢ ¢LE1: CMP #19¢  BNE LE2¢ ¢ ;SET UP LEVEL THREE¢ ¢ DEC PEMPB¢ LDA #1¢ STA MARK2¢ STA MARK3¢ ¢ JSR SUBP¢ RTS¢ ¢LE2: CMP #20¢ BNE LE3¢ ¢ ;SET UP LEVEL FOUR¢ ¢ JSR SUBP¢ RTS¢ ¢LE3: CMP #21¢ BNE LE4¢ ¢ ;SET UP LEVEL FIVE¢ ¢ JSR SUBP¢ RTS¢ ¢LE4: CMP #22¢ BNE LE5¢ ¢ ;SET UP LEVEL SIX¢ ¢ JSR SUBP¢ DEC PEMPB¢ INC MEN¢ INC MPOINT¢ JSR XMEN¢ RTS¢ ¢LE5: CMP #23¢ BNE LE6¢ ¢ ;SET UP LEVEL SEVEN¢ ¢ JSR SUBP¢¢LE6: CMP #24¢ BNE LE7¢ ¢ ;SET FOR LEVEL EIGHT¢ ¢ JSR SUBP¢ RTS¢ ¢LE7: CMP #25¢ BNE LE8¢ ¢ ;SET FOR LEVEL NINE¢ ¢ JSR SUBP¢LE8: RTS¢ ¢ ;SUBTRACT 25 FOR PERMP¢ ¢SUBP: SEC¢ LDA PERMP¢ SBC #25¢ STA PERMP¢ STA PERMP+1¢ ¢ ;DECREASE NUMBER OF BALLOONS¢ ¢ SEC¢ LDA BNUMB¢ SBC #5¢ STA BNUMB¢ ¢ ;INCREASE THE CHANCE OF DOLLAR¢ ¢ CLC¢ LDA DNUMB¢ ADC #10¢ STA DNUMB¢ ¢ RTS¢¢