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

  1.  ;-----------------------------------¢ ;SOURCE CODE LINK FILE¢ ;-----------------------------------¢ ¢ ;CLOWN WILL FALL TO BOTTOM OF SCREEN¢ ;DRAW FALLING IMAGE¢ ¢FDEAD: LDY CY0¢ LDX #0¢FD1: LDA FDATA,X¢ STA (PAD0),Y¢ INY¢ INX¢ CPX #12¢ BNE FD1¢ ¢ ;SET DISTORTION & VOLUME¢ ¢ LDA #160+15¢ STA AUDC1¢ ¢ ¢ ;MOVE CLOWN TO BOTTOM OF SCREEN¢ LDA #0¢ STA TFLAG8¢ ¢FD2: JSR NDELAY¢ LDA #2¢ JSR YMOVE¢ ¢ INC TFLAG8¢ LDA TFLAG8¢ STA AUDF1¢ ¢ LDA CY0¢ CMP #250¢ BNE FD2¢ ¢ ;CLOWN HAS REACHED BOTTOM SUBTRACT¢ ;ONE MAN FROM SCREEN¢ ¢ LDA #0¢ LDY MPOINT¢ STA (88),Y¢ DEC MPOINT¢ DEC MEN¢ LDA MEN¢ CMP #255¢ BNE FD3¢ ¢ ;GAME OVER MARKER¢ ¢FD4: LDA #0¢ STA AUDF1¢ STA AUDC1¢ STA MCOLL1¢ JSR GAMEO¢ ¢ ;INIT. FOR DEFAULT SETUP OF CLOWN¢ ¢FD3: LDA #65¢ STA CX0¢ SEC¢ LDA PY2¢ SBC #12¢ STA CY0¢ ¢ LDA #0¢ STA COMP¢ STA CFALL¢ LDA #3¢ STA PFORM¢ ¢ STA EXD2¢ LDA #45¢ STA PX2¢ ¢ JSR CRASE¢ JSR DRC¢ JSR CORZ¢ ¢ ;KILL SOUND¢ ¢ LDA #0¢ STA AUDC1¢ STA AUDF1¢ STA MCOLL1¢ RTS¢ ¢