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

Text File | 2023-02-26 | 919b | 1 lines

 ;-----------------------------------¢ ;SOURCE CODE LINK FILE¢ ;-----------------------------------¢ ¢ ;MOVE DOLLAR SIGN ROUTINE¢ ;FIRST TEST,IS IT ON BALLOON¢ ;IF IT IS NOT ,DON'T MOVE¢ ;IF IT IS, MOVE DOLLAR SIGN¢¢CDOLL: LDA TEMP10+1¢ BEQ DEXIT¢ ¢ DEC DOLLY¢ LDA DOLLY¢ CMP #40¢ BNE DOLMO¢ ¢ ;DOLLAR SIGN HAS REACHED ITS LIMIT¢ ¢DKILL: LDA #0¢ STA DMARK¢ LDA #LOW PMI¢ STA WORKP¢ LDA #HIGH PMI¢ STA WORKP+1¢ LDY #0¢ TYA¢DK1: STA (WORKP),Y¢ INY¢ BNE DK1¢DEXIT: RTS¢ ¢ ;MOVE DOLLAR SIGN¢ ¢DOLMO: LDA #13¢ STA DRMAX¢ LDY DOLLY¢ LDA #LOW PMI¢ STA WORKP¢ LDA #HIGH PMI¢ STA WORKP+1¢ JSR PLMU¢ ¢ LDA #0¢ STA TEMP10+1¢ RTS¢ ¢ ;DRAW DOLLOR ¢ ¢DRAD: LDA #LOW PMI¢ STA WORKP¢ LDA #HIGH PMI¢ STA WORKP+1¢ ¢ ;REDRAW¢ ¢ LDY #208;DOLLAR Y CORDINATE¢ STY DOLLY¢ LDX #0¢DRAD1: LDA DOLLAR,X¢ STA (WORKP),Y¢ INY¢ INX¢ CPX #11¢ BNE DRAD1¢ ¢ ;SET X CORDINATE¢ ¢ LDY DOLLX¢ LDX #4¢DRAD2: TYA¢ STA 53251,X¢ INY¢ INY¢ DEX¢ BNE DRAD2¢ ¢ RTS¢