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

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

 ;----------------------------------¢ ;SOURCE CODE LINK FILE¢ ;----------------------------------¢ ¢ ;SET UP ALL PLAYERS ON SCREEN¢ ¢PMINT: LDA #HIGH PMBASE¢ STA 54279¢ ¢ ;ENABLE PM GRAPHICS¢ ¢ LDA #3¢ STA 53277¢ ¢ ;SET FOR SINGLE LINE RES.¢ ¢ LDA #62¢ STA 559¢ ¢ ;CLEAR OUT PM ALL PM MEMORY¢ ¢ LDA #LOW PMI¢ STA WORKP¢ LDA #HIGH PMI¢ STA WORKP+1¢ LDY #0¢ LDX #6¢ TYA¢CL1: STA (WORKP),Y¢ INY¢ BNE CL1¢ INC WORKP+1¢ DEX¢ BNE CL1¢ ¢ ;SET UP CLOWN¢ ;SET PLAYER 0 ADDRESS IN ZERO PAGE¢ ¢ LDA #LOW PM0¢ STA PAD0¢ LDA #HIGH PM0¢ STA PAD0+1¢ ¢ ;SET PLAYER 1 ADDRESS IN ZER0 PAGE¢ ¢ LDA #LOW PM1¢ STA PAD1¢ LDA #HIGH PM1¢ STA PAD1+1¢ ¢ ;SET THE CLOWN'S COLOR¢ ¢ LDA #64+6¢ STA 704¢ ¢ ;SET CLOWN'S LEGS COLOR¢ ¢ LDA #128+4¢ STA 705¢ ¢ ;DRAW BOTH PLATFORMS¢ ¢PDR1: LDA #LOW PM2¢ STA WORKP¢ LDA #HIGH PM2¢ STA WORKP+1¢ ¢ ;INCREMENT MSB TO GET TO PLAYER 2¢ ¢ LDY PY2¢ LDX #3¢ LDA #255¢DR1: STA (WORKP),Y¢ INY¢ DEX¢ BNE DR1¢ ¢ ;DO PLAYER THREE¢ ¢ INC WORKP+1¢ LDY PY3¢ LDX #3¢DR2: STA (WORKP),Y¢ INY¢ DEX¢ BNE DR2¢ ¢ LDA GFLAG3¢ BEQ DRC¢ RTS¢ ¢ ;DRAW CLOWN¢ ¢DRC: LDY CY0¢ LDX #0¢ ¢DR3: LDA PDATA,X¢ STA (PAD0),Y¢ INY¢ INX¢ CPX #12¢ BNE DR3¢ ¢ DEY¢ DEY¢ ¢ ;DO LEGS¢ ¢DR4: LDA PDATA,X¢ STA (PAD1),Y¢ INY¢ INX¢ CPX #16¢ BNE DR4¢ ¢ ;SET ALL CORDINATES TO ZERO¢ ¢ LDA #0¢ STA HPOSP0¢ STA HPOSP1¢ STA HPOSP2¢ STA HPOSP3¢ RTS¢ ¢ ;SET HORIZONTAL POSITIONS OF CLOWN¢ ;AND PLATFORMS.ALSO,SET PLATFORMS¢ ;SIZE¢ ¢CORZ: LDA CX0¢ STA HPOSP0¢ STA HPOSP1¢ ¢ ;SET HORIZONTAL POSITIONS OF PLAYER¢ ;TWO & THREE¢ ¢ ;TWO¢ ¢ LDA PX2¢ STA HPOSP2¢ ¢ ;THREE¢ ¢ LDA PX3¢ STA HPOSP3¢ ¢ ;EXPAND PLATFORMS TO MAXIMUM SIZE¢ ¢ LDA #3¢ STA 53258¢ ¢ STA 53259¢ ¢ ;SET COLOR OF PLAYERS¢ ¢ LDA #112+6¢ STA 706;PLAYER TWO¢ ¢ STA 707;PLAYER THREE¢ RTS¢ ¢