kx A,10000~'"*M'" ORG $1010$'"T1 =$D0.'"T2 =$D18'"T3 =$D2B'"T4 =$D3L'"T5 =$D4V'"T6 =$D5 `'"CHRST =$D6;2Bj'"CHRIX =$E8-t'"REMA =$334;2BA~'"DIVIS =$336;2BU'"QUOT =$338;2Bi'"DIVID =$33A;2Bz'"XCOORD=$33C'"YCOORD=$33D'"X1 =$33E'"Y1 =$33F'"XDIRE =$340'"YDIRE =$341'"IX =$342;2B'"IY =$344;2B'"LOOPN =$346'"LOOPC =$347*("XFRAC =$348; ("YFRAC =$349L("WINDOW=$34A]("FUNCTI=$34Bn(("COLOR =$34Ct2("<("XWIND =$350;8BF("YWIND =$358;8BP("XMIND =$360;8BZ("YMIND =$368;8Bd("XSAVE =$370;8Bn("YSAVE =$378;8Bx("y("NPAR =$380z("XPAR =$381%{("YPAR =$3826|("APAR =$383<}("K(" JMP EXEC[(" JMP BEGINh N"JUMPTB:z*N"WOR INITGR;04N"WOR LINETO>N"WOR SETWINHN"WOR SELWINRN"WOR PLOT\N"WOR CLEARWfN"WOR CLEARSpN"WOR MOVETOzN"WOR SAVECN"WOR LOADCN"WOR SETFUN&N"WOR SCREEN5N"WOR PLOTSCN"WOR TEXTSN"WOR DRAWTX`N"WOR BOXpN"WOR COLOURN"WOR DRAWCH;18N"WOR READPXN"WOR CSETN"WOR INVERTN"WOR INVERNN"WOR OLDN"JMAX =22N"U"BEGIN: JSR $802E U" LDA #LAST+2:V" STA 44G"V" LDA #0X,V" STA LAST+1h6V" JSR $8117x@V" JSR $8A7BJV" JSR $80C2TV" JSR INITGRYV" LDX #$80ZV" JMP ($300)^V"]"OLD: LDY #1]" TYA]" STA ($2B),Y]" JSR $8818]" JSR $884B]" STA $2F+]" STY $309^" STA $31G^" STY $32Q^" RTSW$^"ka"EXEC: LDA #0za" STA NPARa" STA XPARa" STA YPARa" STA APARa" JSR GETPARa" LDA NPARa" CMP #JMAX+1a" BCS EXEXb" ASLA b" TAXb" LDA JUMPTB,X b" STA GO+14*b" LDA JUMPTB+1,XC4b" STA GO+2R>b" LDX XPARaHb" LDY YPARpRb" LDA APAR\b"GO: JMP $FFFFfb"EXEX: JMP $991Cpb"Hq"GETPAR: JSR $A897Rq" STX NPAR\q" JSR $A89Dfq" JSR $A897pq" STX XPAR zq" JSR $A89Dq" JSR $A897(q" STX YPAR8q" JSR $A89DHq" JSR $A897Wq" STX APARaq" RTSgq"&u"INVERT: LDX WINDOW0u"INVERN: LDA WINDOW5u" PHA8u" STX WINDOW:u" LDA XMIND,XDu" CLCNu" SBC XWIND,XXu" STA CHRSTbu" LDA YMIND,X lu" SECvu" SBC YWIND,X0u" STA CHRST+16u"Gu" LDA FUNCTIQu" PHA`u" LDA #$40qu" STA FUNCTIu"INV1: LDX CHRSTu" LDY #0u" JSR MOVETOu" LDX CHRSTu" LDY CHRST+1u" JSR LINETOu" DEC CHRSTv" BPL INV1 v" PLAv" STA FUNCTIv" PLA.v" STA WINDOW8 v" RTS>*v"T@"READPX: LDA #$4CdJ" STA FIXADsT" JSR PLOT}^" PHPh" LDA #$20r" STA FIXAD|" PLP" BNE READ1" LDY T3" LDA BSET,Y" STX T1" AND T1" RTS œ"READ1: LDA #$80 ̜" RTS ֜"5 "CSET: STX CBASE? " RTSE "\ "COLOUR: STX COLORm "PIXEX: RTSs " "PLOT: TXA &" BMI PIXEX 0" LDX WINDOW :" CLC D" ADC XWIND,X N" CMP XMIND,X X" BCS PIXEX b" TAX l" TYA!v" BMI PIXEX!" LDY WINDOW"!" CLC4!" ADC YWIND,YF!" CMP YMIND,YV!" BCS PIXEX`!" TAYq!" JSR GETLOC!Ɲ" JMP FIXLOC!Н"!ڝ"GETLOC: TYA!" AND #1!" STA T3!" TYA!" AND #$FE! " TAY!" LDA PTAB,Y! " STA T1"*" LDA PTAB+1,Y"4" STA T2">" TXA)"H" LSRA3"R" PHP="\" CLCJ"f" ADC T1W"p" STA T1f"z" BCC GET1s"" INC T2""GET1: PLP"" BCC GET2"" LDA T3"" ORA #2"" STA T3""GET2: RTS"ʞ""Ԟ"FIXLOC: LDY #0"ޞ" LDA (T1),Y#"FIXAD: JSR SEARCH#" BNE GET2*#" STX T47#" LDY T3H#" BIT FUNCTIW#" BMI FIX2f#$" BVS FIX3w#." LDA BSET,Y#8" ORA T4#B" JMP FUCK#L"#V"FIX2: LDA BCLR,Y#`" AND T4#j" JMP FUCK#t"#~"FIX3: LDA BSET,Y#" EOR T4$" AND #15$"FUCK: TAX"$" LDA PCDE,X/$" LDY #0@$" STA (T1),YM$ğ" LDA T2Z$Ο" EOR #4g$؟" STA T2w$" LDA COLOR$" STA (T1),Y$" RTS$"$ "SEARCH: LDX #15$"SEA0: CMP PCDE,X$" BEQ SEA1$(" DEX$2" BPL SEA0$<"SEA1: RTS%F"%P"DIVID1: STA DIVID-%Z" STY DIVID+1=%d" STX DIVISJ%n" LDX #0\%x" STX DIVIS+1m%" JSR DIVIDE|%" LDA QUOT%" LDY QUOT+1%" LDX REMA%" RTS%"%"DIVIDE: LDA #0%Ƞ" STA REMA%Ҡ" STA REMA+1%ܠ" STA QUOT&" STA QUOT+1&" LDX #16%&"DIVID0: ASL DIVID7&" ROL DIVID+1F&" ROL REMAW&" ROL REMA+1f&"" ROL QUOTw&," ROL QUOT+1&6" SEC&@" LDA REMA&J" SBC DIVIS&T" TAY&^" LDA REMA+1&h" SBC DIVIS+1&r" BMI DIVID3&|" STA REMA+1&" STY REMA '" INC QUOT'" BNE DIVID3/'" INC QUOT+1@'"DIVID3: DEXQ'" BNE DIVID0['¡" RTSa'̡"u'֡"LINETO: STX X1'" STY Y1'" LDY #0'" TXA'" SEC'" SBC XCOORD'" BPL LIN1'" EOR #255'&" CLC'0" ADC #1':" INY(D"LIN1: STA T3(N" STY XDIRE$(X" LDY #01(b" LDA Y1;(l" SECL(v" SBC YCOORD[(" BPL LIN2j(" EOR #255t(" CLC(" ADC #1(" INY("LIN2: STA T4(" STY YDIRE(Ƣ" CMP T3(Т" BCS LIN3(ڢ" LDA T3("LIN3: STA LOOPN(" TAX)" LDA #0)" LDY T3$) " JSR DIVID13)" LDA QUOT@) " STA IXQ)*" LDA QUOT+1`)4" STA IX+1p)>" LDX LOOPN})H" LDA #0)R" LDY T4)\" JSR DIVID1)f" LDA QUOT)p" STA IY)z" LDA QUOT+1)" STA IY+1)" LDA #0)" STA XFRAC*" STA YFRAC*" LDA #0!*" STA LOOPC8*"LINST: CMP LOOPNH*ʣ" BEQ LINEXY*ԣ" LDX XCOORDi*ޣ" BIT XFRACy*" BPL LINS5*" INX*"LINS5: LDY YCOORD*" BIT YFRAC*" BPL LINS6*" INY*$"LINS6:*." JSR PLOT*8" LDA XDIRE+B" BEQ POSITX+L" LDA XFRAC+V" SEC(+`" SBC IX8+j" STA XFRACI+t" LDA XCOORDX+~" SBC IX+1i+" STA XCOORDy+" JMP LINS9+"POSITX: LDA XFRAC+" CLC+" ADC IX+" STA XFRAC+Ĥ" LDA XCOORD+Τ" ADC IX+1+ؤ" STA XCOORD+"LINS9: LDA YDIRE," BEQ POSITY ," LDA YFRAC*," SEC7, " SBC IYG," STA YFRACX," LDA YCOORDg,(" SBC IY+1x,2" STA YCOORD,<" JMP LINS10,F"POSITY: LDA YFRAC,P" CLC,Z" ADC IY,d" STA YFRAC,n" LDA YCOORD,x" ADC IY+1," STA YCOORD-"LINS10: INC LOOPC-" LDA LOOPC/-" JMP LINST@-"LINEX: RTSF-"Z-"SETWIN: STX T1d-ȥ" TAXu-ҥ" LDA XCOORD-ܥ" AND #$FE-" STA XWIND,X-" LDA YCOORD-" AND #$FE-" STA YWIND,X-" LDA T1-" AND #$FE-"" STA XMIND,X.," TYA.6" AND #$FE!.@" STA YMIND,X+.J" RTS1.T"H.^"SELWIN: STX COLORY.h" STY FUNCTIc.r" PHAs.|" JSR SAVEC}." PLA." STA WINDOW." JMP LOADC."."INITGR: LDA #0." STA WINDOW.¦" STA XWIND.̦" STA YWIND.֦" LDA #80/" STA XMIND/" LDA #50%/" STA YMIND//" RTS5/"M/"CLEARW: LDX WINDOWa/"CLEARS: STX T6s/&" LDA YWIND,X}/0" TAY/:" LDA XWIND,X/D" TAX/N" JSR GETLOC/S" LDX T6/X" LDA YMIND,X/b" SEC/l" SBC YWIND,X/v" LSRA0" STA YDIRE0" LDA XMIND,X0" CLC.0" SBC XWIND,X90" LSRAI0" STA XDIREO0"_0Ƨ" LDA YDIREo0Ч" BEQ CLEA20ڧ" LDA PCDE+150" BIT FUNCTI0" BVS CLEA00" BMI CLEA00" LDA PCDE0 "CLEA0: STA T30"CLEA1: LDY XDIRE0 " BEQ CLEA2 1*"CLEA3: LDA T314" STA (T1),Y+1>" LDA T251H" TAXB1R" EOR #4O1\" STA T2_1f" LDA COLORp1p" STA (T1),Y}1z" STX T21" DEY1" BPL CLEA31" LDA T11" CLC1" ADC #401" STA T11" BCC CLEA41ʨ" INC T21Ԩ"CLEA4: DEC YDIRE 2ި" BNE CLEA12"CLEA2: RTS"2"92"SAVEC: LDX WINDOWJ2" LDA XCOORD\2" STA XSAVE,Xm2" LDA YCOORD2$" STA YSAVE,X2." RTS28"2B"LOADC: LDX WINDOW2L" LDA XSAVE,X2V" STA XCOORD2`" LDA YSAVE,X2j" STA YCOORD2t" RTS2~"3"SETFUN: STX FUNCTI3" RTS$3"<3"MOVETO: STX XCOORDM3" STY YCOORDW3" RTS]3ĩ"t3Ω"SCREEN: STX $FF153ة" STY $FF193" RTS3"3"DRAWTX: STX CHRST3" STY CHRST+13 " STA IY3" JSR SAVEC3" LDY #03("DRAWED: STY CHRIX42" LDA (CHRST),Y#4<" BEQ DRAWEX44F" JSR CHARACD4P" LDY CHRIXN4Z" INY_4d" BNE DRAWEDv4n"DRAWEX: JMP LOADC|4x"4"DRAWCH: STY IY4" TXA4"CHARAC: STA DRAWL+14" LDA #04" STA DRAWL+24" ASL DRAWL+14" ROL DRAWL+25Ȫ" ASL DRAWL+15Ҫ" ROL DRAWL+2,5ܪ" ASL DRAWL+1>5" ROL DRAWL+2N5" LDA CBASE]5" AND #$FCg5" CLCy5" ADC DRAWL+25" STA DRAWL+25""DRAW3: LDA YCOORD5," PHA56" LDY #75@"DRAWL: LDA $FFFF5J" BIT IY5T" BVC DRAW555^" EOR #2556h"DRAW55: STA IX#6r" LDA XCOORD-6|" PHA:6" LDX #7R6"DRAW5: LDA BSET,X_6" AND IXo6" BEQ DRAW4|6" BIT IY6" BPL DRAW516«" LDA #06̫" STA FUNCTI6֫" JMP DRAW516"DRAW4: BIT IY6" BPL DRAW526" LDA #$807" STA FUNCTI7"DRAW51: JSR PLOTS07"DRAW52: INC XCOORD:7" DEXJ7&" BPL DRAW5T70" PLAe7:" STA XCOORDv7D" INC YCOORD7N" INC DRAWL+17X" BNE DRAW67b" INC DRAWL+27l"DRAW6: DEY7v" BPL DRAWL7" PLA7" STA YCOORD7" LDA IY8" AND #18" BEQ LEFRIG"8" LDA YCOORD,8" CLC98Ƭ" ADC #8J8Ь" STA YCOORDT8ڬ" RTSl8"LEFRIG: LDA XCOORDv8" CLC8" ADC #88" STA XCOORD8 " RTS8"8 "PLOTS: TXA8*" PHA84" TYA8>" PHA8H" LDX XCOORD8R" LDY YCOORD9\" JSR PLOT 9f" PLA9p" TAY!9z" PLA+9" TAX59" RTS;9"Q9"TEXT: STX CHRSTc9" STY CHRST+1t9" LDX XCOORD9" LDY YCOORD9ʭ" JSR GETLOC9ԭ" LDY #09ޭ"TEXT1: LDA (CHRST),Y9" BEQ TEXT29" LDX FUNCTI9" CPX #$409" BCC TEXT3 :" EOR #128#:"TEXT3: STA (T1),Y-:$" INY=:." BNE TEXT1M:8"TEXT2: RTSS:B"g:L"BOX: STX CHRSTy:V" STY CHRST+1:`" LDA YCOORD:j" STA CHRIX:t" LDA XCOORD:~" STA T6:":" LDX CHRST:" LDY CHRIX:" JSR LINETO:" LDX CHRST;" LDY CHRST+1";Į" JSR LINETO/;ή" LDX T6A;خ" LDY CHRST+1R;" JSR LINETO_;" LDX T6o;" LDY CHRIX;" JMP LINETO; ";"PTAB:;"WOR3072,3112,3152,3192,3232;("WOR3272,3312,3352,3392,3432;2"WOR3472,3512,3552,3592,3632<<"WOR3672,3712,3752,3792,38326