VV A,10000VV'"*MV'"PPLAY =$E31BV$'"PRECO =$E319V.'"RAMON =$FF3F W8'"ROMON =$FF3EWB'"LOCK =$7FC,WL'"TIM2 =$FF02>WV'"TINT =$FF09NW`'"SYNC =$16\Wj'"PIO =1nWt'"BGD =$FF19tW~'"W'"FNLEN =$D0W'"FFIRST=$D1W'"FLAST =$D3W'"DATA =$D5W'"CNT =$D6W'"CHKSUM=$D7W'"TEMP =$D8W'"TOP =$D9W'" X'"FNAM=$200X'"TAPEB=FNAMX'"6X(" ORG $1008JX ("BEGIN: LDX #7WX(" LDA #0eX(" STA BTM}X(("CLF: STA $55F,XX2(" DEXX<(" BPL CLFXF(" JMP SETUP1XP("XZ("THIN:BYT 32,225,97,160Xd("READ: JSR PPLAYXn(" SEIYx(" LDX #1Y("RETRY: LDA #0-Y(" STA BGDEY(" STA CHKSUMZY(" STA PIOpY(" LDY #255|Y("SYNCT:Y(" JSR READBY(" CMP #SYNCY(" BEQ GOTSYNY("Y(" STX DATAY(" JSR SKIPB Z(" BCC SYNCTZ)"GOTSYN:0Z)" JSR READBGZ)" CMP #SYNC_Z")" BEQ GOTSYNeZ,)"|Z6)" CMP FNLENZ@)" BNE RETRYZJ)" STA FNLENZT)"Z^)"NAMCHK: INYZh)" CPY FNLENZr)" BCS NMEND[|)" JSR READC[)" CMP FNAM,Y6[)" BEQ NAMCHKM[)" BNE RETRYb[)"NMEND: LDA #42x[)" STA 3552[)" LDY #3[)"GADDR: JSR READC[)" STA FFIRST,Y[)" DEY[)" BPL GADDR[)"\)" JSR READC\)" CMP CHKSUM1\*" BNE ERROR7\*"O\*" LDY FFIRSTc\&*" LDA #0{\0*" STA FFIRST\:*" STA TOP\D*"\N*"RBLOCK: LDA FFIRST+1\X*" CMP FLAST +1\b*" PHP\l*" BCC NOTYT ]v*" LDA FLAST ]*" BEQ RDONE5]*" STA TOPA]*"NOTYT:X]*" JSR READCt]*" STA (FFIRST),Y]*" INY]*" CPY TOP]*" BNE NOTYT]*"]*" JSR READC]*" CMP CHKSUM]*" BNE ERROR^*"^+" INC FFIRST+1.^ +" PLPF^+" BNE RBLOCKL^ +"]^*+"RDONE: CLCr^4+" BYT $24^>+"ERROR: SEC^H+" LDA #$88^R+" STA PIO^\+" STA LOCK^f+" CLI^p+" RTS^z+"_+"READC: LDA DATA_+" EOR CHKSUM2_+" STA CHKSUMH_+"READB: LDA #$FE^_+" STA DATAs_+" INC BGD_+" JSR STOPT_+"SKIPB: STY TEMP_+" LDY #$38_+"READ0: LDA #$10_+"READ1: BIT PIO_+" BNE READ1`+" STY TIM2&`," STX TIM2+1;`,"READ2: BIT PIOR`," BEQ READ2j`$," LDA TIM2+1}`.," ASL A`8," ROL DATA`B," BCS READ0`L," LDY TEMP`V," LDA DATA``," RTS`j,"at,"WRITE: JSR PRECOa~," SEI,a," STA RAMON@a," LDA #2Ua," STA PIO[a,"oa," LDA #0a," STA CHKSUMa," STA BGDa," LDA #4a," JSR GAITa,"a," LDX #16a,"WSYNC: LDA #SYNCb-" JSR WRITEB!b -" DEX8b-" BNE WSYNC>b-"Ub(-" LDA FNLENmb2-" JSR WRITEBb<-" LDA FNLENbF-" BEQ NONAMEbP-"bZ-" LDY #0bd-"WNAME: LDA FNAM,Ybn-" JSR WRITEBbx-" INYc-" CPY FNLEN%c-" BCC WNAME:c-"NONAME: LDA #42Pc-" STA 3552dc-" LDX #3~c-"WADDR: LDA FFIRST,Xc-" JSR WRITEBc-" DEXc-" BPL WADDRc-"c-" LDA CHKSUMc-" JSR WRITEBc-"d." LDY FFIRST&d." LDA #0>d." STA FFIRSTSd"." STA TOPYd,."od6."BLOCK: JSR DELLd@." LDA FFIRST+1dJ." CMP FLAST +1dT." PHPd^." BCC NOTYETdh." LDA FLASTdr." BEQ WDONEe|." STA TOPe."NOTYET:8e." LDA (FFIRST),YPe." JSR WRITEBae." INYve." CPY TOPe." BNE NOTYETe."e." LDA CHKSUMe." JSR WRITEBe."e." INC FFIRST+1e." PLP f." BNE BLOCKf/"(f/"WDONE: LDA #$88=f/" STA PIOSf&/" STA LOCKjf0/" STA ROMON{f:/" CLIfD/" RTSfN/"fX/"WRITEB: STA DATAfb/" EOR CHKSUMfl/" STA CHKSUMfv/" INC BGDg/" JSR STOPTg/" TYA&g/" PHA:g/" LDY #8Ng/"WRT1: LDA #0cg/" STA PIOyg/" JSR DELSg/" ASL DATAg/" BCC ZEROg/" JSR DELLg/"ZERO: LDA #2g/" STA PIOg/" JSR DELL h0" DEY!h 0" BNE WRT12h0" PLACh 0" TAYTh*0" RTSZh40"oh>0"GAIT: STA CNThH0" LDX #0hR0" LDY #0h\0"GAIT1: DEYhf0" BNE GAIT1hp0" DEXhz0" BNE GAIT1h0" DEC CNTi0" BNE GAIT1$i0" RTS*i0"@i0"DELL: LDA #$E0Ui0" BYT $2Cki0"DELS: LDA #$60i0" STA TIM2i0" LDA #0i0" STA TIM2+1i0" LDA #16i0" STA TINTi0"DEL11: BIT TINTj1" BEQ DEL11j1" STA TINT,j1" RTS2j$1"8j.1"Fj81"SCR=$C00TjB1"COL=3110ajL1"VEC=$DAnjV1"CMV=$DC{j`1"VC2=$DEjj1"VC3=$E0jt1"FLB=$E2j~1"DIR=$E3j1"BTC=$E4j1"YTP=$E5j1"XPIX=$E6j1"DEL1=$E7j1"DEL2=$E8j1"MODE=$61k1"IND=$62k1"BUFAD=$63k1"BTC2=$65+k1"BTM=$668k1"VC4=$67Fk1"MESP=$69Rk2"RAST=2`k 2"RASB=130fk2"sk2"NLIN=16k(2"CMEM=$1E00k22"k<2"LEFT: LDX #NLINkF2" LDA #SCRkd2" STA VEC+1kn2"LEFT0: LDY #0lx2"LEFT1: INYl2" LDA (VEC),Yl2" DEY1l2" STA (VEC),Y;l2" INYIl2" CPY #39Yl2" BCC LEFT1cl2" CLCql2" LDA VECl2" ADC #40l2" STA VECl2" BCC LEFT2l2" INC VEC+1l2"LEFT2: DEXl3" BNE LEFT0l3" RTSl3"l"3"DELAY: LDA DEL2m,3" STA VC2m63" LDA DEL1!m@3" STA VC2+16mJ3"DELBOY: LDA VC2FmT3" ORA VC2+1Wm^3" BEQ DONIITlmh3"NOWAY: LDA VC2vmr3" SECm|3" SBC #1m3" STA VC2m3" LDA VC2+1m3" SBC #0m3" STA VC2+1m3" JMP DELBOYm3"DONIIT: RTSm3"m3"GOL: LDA XPIX n3" BEQ SHLn3" DEC XPIX)n3" JSR DELAY7n3" JMP GOLKn3"SHL: LDA #2Yn4" STA DIRnn4"GOL1: LDA DIR}n4" BNE GOL1n&4" JSR LEFTn04" LDA #7n:4" STA XPIXnD4" RTSnN4"nX4"IRQ: LDA $FF09nb4" STA $FF09nl4" LDA $FF0Bnv4" CMP #RASBo4" BEQ IRQ2o4" LDA $FF07-o4" AND #$F05" LDA #0GpH5" STA DIR]pR5"TOPI2: LDA #$45mp\5" STA $FF15}pf5" STA $FF19pp5" LDA FLBpz5" BEQ FLOFp5" CMP #1p5" BNE NSWAPp5" JSR IRSWAPp5" JMP FLOTp5"NSWAP: CMP #2p5" BNE FLOT q5" JSR CLSCRq5"FLOT: LDA #0,q5" STA FLBCq5"FLOF: LDA #RASTSq5" STA $FF0Bcq5" JMP $FCC3iq5"q6"SETUP1:LDA #MESSGq$6" STA MESP+1q.6"SETUP: LDX #255q86" TXSqB6" LDA MESPqL6" STA GETCH+1rV6" LDA MESP+1r`6" STA GETCH+2&rj6" JSR $FBD8>rt6"BYT 27,'N',142,8,0Kr~6" LDY #0^r6" LDA (MESP),Ymr6" CMP #255~r6" BNE SETUP0r6" JSR EDITMDr6" JMP SETUPr6"SETUP0: SEIr6" LDA #IRQr6" STA $315r6" JSR DRWBOXs6" LDA #$D1s7" STA $FF13+s 7" LDA #09s7" STA FLBHs7" STA DEL1Ws(7" LDA #$88fs27" STA DEL2ls<7"sF7"FIND: LDA #7sP7" STA XPIXsZ7" CLIsd7"GETI: JSR GETCHsn7" CMP #30;^sx7" BNE GETI3s7" JSR COMMANs7" JMP OPTIO4 t7"GETI3: JSR DLINE t7"GETI33: JSR WRIIT.t7" JSR GOLMESSGv09" JMP STRSTv:9"TTT4: CMP #59;'2'vD9" BNE TTT5wN9" LDA #MESSG+1024;wb9" JMP STRSTSwl9"TTT5: CMP #8;'3'bwv9" BNE TTT6yw9" LDA #MESSG+2048w9" JMP STRSTw9"TTT6: CMP #11;'4'w9" BNE GOBAKw9" LDA #MESSG+3072 x9"STRST: STA MESPx9" STY MESP+1.x9" JMP SETUP4x9"Mx9"EDITTP: LDA #TAPEBnx:" LDX #255~x :" STX TAPEBx:" JMP SKIPx :"x*:"EDITMD: JSR $FBD8x4:"BYT 147,'EDIT MODE',0x>:" LDA MESPxH:" LDY MESP+1xR:"SKIP: STA BUFADy\:" STY BUFAD+1%yf:"EDIM9: LDA BUFAD3yp:" STA VECEyz:" LDA BUFAD+1Uy:" STA VEC+1_y:" SEIpy:" LDX #IRQ3y:" STX $315y:" CLIy:" LDA #0y:" STA 239y:" STA MODEy:" JSR STTUSy:" LDA #<3512z:" STA $FF0Dz;" LDA #>3512%z;" STA $FF0C+z;"?z$;"EDI1: LDY #0Xz.;"EDI2: LDA (VEC),Ygz8;" CMP #255wzB;" BEQ BLANKzL;" AND #$3FzV;" STA 3512,Yz`;" INYzj;" CPY #20zt;" BCC EDI2z~;"BLANK: LDA #32z;"BLAN2: CPY #20z;" BEQ EDI9{;" STA 3512,Y{;" INY"{;" JMP BLAN2({;"@{;"EDI9: JSR GETPOSP{;" JSR $FFE4m{;" CMP #27 ;ESCAPE|{;" BNE EGGH{;" JMP TOGMD{;"EGGH: CMP #157;LEFT{<" BNE EGG44{ <" JMP LEFTC{<"EGG44: CMP #29 ;RIGHT{<" BNE EGGI|(<" JMP RGHTC|2<"EGGI: CMP #13 ;RETURN/|<<" BNE NOFIN<|F<" LDY #0P|P<" LDA (BUFAD),Y_|Z<" CMP #255n|d<" BEQ EDI9}|n<" LDA #255|x<" STA $FF0C|<" STA $FF0D|<" RTS|<"NOFIN: CMP #19 ;HOME|<" BEQ EDIM9|<" CMP #147 ;CLEAR|<" BNE EGG0 }<" JMP CLER)}<"EGG0: CMP #20 ;DELETE8}<" BNE EGG8G}<" JMP KILLc}<"EGG8: CMP #32 ;SPACE}<" BCC EDI9 ;" BNE MDFINDA>" INC CMV+1R>" JMP MDFINDk&>"MDSHF: LDA (CMV),Yu0>" INY:>" STA (CMV),YD>" DEYN>" LDA CMVX>" BNE MDDECb>" DEC CMV+1l>"MDDEC: DEC CMVv>" SEC>" LDA CMV>" SBC VC2 >" LDA CMV+1>" SBC VC2+1*>" BPL MDSHF4>" PLAF>" STA (VC2),YV>" JMP RGHTC\>"p>"KILL: LDA VC2>" CMP BUFAD>" BNE KILL0>" LDA VC2+1?" CMP BUFAD+1À ?" BEQ KILL00ր?"KILL0: LDY #0 ?"KILL2: LDA (VC2),Y*?" TAX4?" LDA VC2>?" BNE JJJJJJ'H?" DEC VC2+1;R?"JJJJJJ:DEC VC2E\?" TXAWf?" STA (VC2),Yep?" LDA VC2oz?" CLC|?" ADC #2?" STA VC2?" BNE IIIIII?" INC VC2+1?"IIIIII: CPX #255Ё?" BNE KILL?" JMP LEFTC?"KILL00: JMP EDI9?"?"CLER: LDA #255?" LDY #03?" STA (BUFAD),YC?" JMP EDIM9I@"^@"LEFTC: LDA VC2n@" CMP BUFAD~$@" BNE OKLLL.@" LDA VC2+18@" CMP BUFAD+1B@" BEQ OKL9ƂL@"OKLLL: LDA $FF0DՂV@" CMP #185`@" BCC OKL2j@" DEC $FF0Dt@" JMP EDI1~@"OKL2: LDA VEC)@" BNE OKLLLL9@" DEC VEC+1N@"OKLLLL: DEC VECd@"OKL9: JMP EDI1j@"~@"RGHTC: LDY #0@" LDA (VC2),Y@" CMP #255@" BEQ RG3ă@"RG1: LDA $FF0DӃ@" CMP #203@" BCS RG2A" INC $FF0D A" JMP EDI1A"RG2: INC VEC$A" BNE RG34(A" INC VEC+1K2A"RG3: JMP EDI1QD" SEC'HD" SBC #16RD" STA DEL2E\D" LDA DEL1RfD" SBC #0apD" STA DEL1kzD" RTSqD"D"ADD40: PHAD" LDA VC2D" CLCD" ADC #40D" STA VC2ƉD" LDA VC2+1ӉD" ADC #0D" STA VC2+1D" PLAD" RTSD"D"TOASC: PHAE" LDY #0'E" LSR A3E" LSR A?$E" LSR AK.E" LSR AY8E" JSR TO1cBE" PLAqLE" AND #15VE"TO1: CMP #10`E" BCC DIGITjE" SECtE" SBC #9~E" JMP TO2ЊE"DIGIT: ORA #48銒E"TO2: STA (VEC),YE" INYE" RTSE"E"SPEED: LDA #<4033)E" STA VEC:E" LDA #>4033JE" STA VEC+1YE" LDA DEL1iE" JSR TOASCwE" INC VECF" INC VEC F" LDA DEL2F" JSR TOASCF" LDA MESP+1(F" SECы2F" SBC #>MESSG݋F" STA BOX1+1NF" LDA #>BOX_F" STA BOX1+2pF" LDA #<3712F" STA BOX2+1F" LDA #>3712F" STA BOX2+2F"BOX1: LDA $FFFFˌF" BEQ DRWEND܌F" JSR CONVETF"BOX2: STA $FFFFF" INC BOX1+1F" BNE BOX3$G" INC BOX1+2<G"BOX3: INC BOX2+1KG" BNE BOX1\"G" INC BOX2+2k,G" JMP BOX1|6G"DRWEND: RTS@G"JG"EDEND: LDA #255TG" STA $FF0C^G" STA $FF0DhG" RTSڍrG"EDBOT: LDA #<3712|G" STA $FF0DG" LDA #>3712 G" STA $FF0CG" LDA #BOXIG" STA VC3+1VG" LDA #0dG" STA 239{G"EDBK: JSR $FFE4G" CMP #0G" BEQ EDBK;NO KEYG" CMP #147;CLEARG" BNE OKBΎG" JMP C1G"OKB: CMP #13 ;RETURNH" BEQ EDENDH" CMP #157;LEFTH" BEQ L11&H" CMP #29 ;RIGHT>0H" BEQ R1P:H" CMP #145;UP]DH" BEQ U1qNH" CMP #17 ;DOWN~XH" BEQ D1H" LDY #0H" STA (VC3),YH" JSR DRWBOXH"ɏH"R1: LDA VC3ݏH" CMP #BOX+319H" BEQ EDBK4H"R2: INC $FF0DAH" BNE R3QI" INC $FF0Cf I"R3: INC VC3sI" BNE R4 I" INC VC3+1*I"R4: JMP EDBK4I">I"L1: LDA VC3ĐHI" CMP #BOXpI" BEQ EDBKzI"L2: LDA $FF0D$I" BNE L34I" DEC $FF0CKI"L3: DEC $FF0DYI" LDA VC3fI" BNE L4vI" DEC VC3+1I"L4: DEC VC3I" JMP EDBKI"I"U1: LDA VC3I" SECґI" SBC #BOX+40J" BMI EDBKJ" LDA VC3$J" SEC*.J" SBC #4088J" STA VC3HBJ" LDA VC3+1ULJ" SBC #0eVJ" STA VC3+1u`J" LDA $FF0DjJ" SECtJ" SBC #40~J" STA $FF0DJ" LDA $FF0CJ" SBC #0ʒJ" STA $FF0CJ"DD2: JMP EDBK撰J"J"D1: LDA #BOX+279=J" SBC VC3+1KJ" BMI DD2YJ" LDA VC3cK" CLCq K" ADC #40K" STA VC3K" LDA VC3+1(K" ADC #02K" STA VC3+1BOXvJL" STA FFIRST+1TL" LDA #MESSG+3072ƕrL" STA FLAST+1ӕ|L" LDY #0L"SVSE: LDA (FLAST),YL" INC FLAST L" BNE SV1L" INC FLAST+14L"SV1: CMP #255CL" BNE SVSESL" JSR WRITE]L" RTScL"zL"LOADDT: JSR $FBD8L"BYT 147,'ENTER NAME FOR LOAD',0L" JSR EDITTPL" JSR HUNTLEіM" STY FNLENM" JSR POSTM" JSR READ&M" BCS RERR0M" RTS:M"RERR: JSR $FBD8RDM"BYT 13,'PROCEDURE ABORTED, PRESS SPACE BAR',0aNM" LDA #$88pXM" STA LOCK~bM" STA PIOlM"RE1: LDA 198vM" CMP #60M" BNE RE1M" JMP SETUPŗM"ٗM"HUNTLE: LDY #1M"HUNT1: LDA TAPEB,YM" CMP #255M" BEQ HENDM" INY*M" JMP HUNT1;M"HEND: RTSAM"WM"POST: JSR $FBD8M"BYT 13,'POSITION TAPE AND PRESS SPACE BAR',0N" LDA PIO N" AND #$F7N" STA PIOȘ N"POS1: LDA 198֘*N" CMP #604N" BNE POS1>N" LDA PIOHN" ORA #8RN" STA PIO\N" RTSfN"4pN"STOPT: LDA #$7FDzN" STA $FD30TN" STA $FF08dN" LDA $FF08sN" CMP #$7FN" BEQ ST1N" RTSN"ST1: STA ROMONN" CLIN" JMP RERRN"ՙN"DLINE: LDY #0N" STY CMV+1N" AND #$3FN" ASL AO" ROL CMV+1O" ASL A,O" ROL CMV+18$O" ASL AH.O" ROL CMV+1R8O" CLCcBO" ADC #CMEM`O" ADC CMV+1jO" STA CMV+1tO" LDA BTM~O" BEQ WIDE̚O" LDA #3ۚO" STA BTC2ꚜO" LDA #$C0O" BNE WIDE1O"WIDE: LDA #$80%O"WIDE1: STA BTC/O" RTS5O"LO"WRIIT: LDA #COLqO"WRT12: STA VC2O" STY VC2+1P" LDY #0 P"WRT11: LDA (CMV),YP" STY YTPÛP" AND BTCћ(P" LDY BTM2P" BEQ WID1Q" CPY #8NQ" BCC WRT11X"Q" RTS^,Q"t6Q"REDO: LDA MESP@Q" STA GETCH+1JQ" LDA MESP+1TQ" STA GETCH+2^Q"GETCH: LDA $FFFFϝhQ" CMP #255ޝrQ" BEQ REDO|Q" INC GETCH+1Q" BNE GETI2Q" INC GETCH+2#Q"GETI2: RTS)Q"@Q"GETVL: JSR GETCHOQ" AND #$3F^Q" BEQ IREYlQ" CMP #27{Q" BCS IREYQ" RTSQ"IREY: LDA #1Q" RTSQ"R"COMMAN: JSR GETCH՞R"COM1: CMP #'1R" BNE CONE&R" LDA #00R" STA BTM :R" RTSDR"CONE: CMP #'2-NR" BNE CTWO:XR" LDA #1HbR" STA BTMRlR" RTSgvR"CTWO: CMP #'3vR" BNE CTHRR" JSR GETVLR" LDX #0R" LDY #64R"CTWO1: DEXŸR" BNE CTWO1̟R" DEYܟR" BNE CTWO1R" SECR" SBC #1R" BNE CTWO1 R" RTS"R"CTHR: CMP #'42S" BNE CHFIVB S" JSR FLASHPS" JMP FL1e S"CHFIV: CMP #'5u*S" BNE CHSIX4S" JSR FLASH>S" JSR DRINWHS" JMP FL1RS"CHSIX: CMP #'6Ƞ\S" BNE CHSEV٠fS" JMP SPCAGEpS"CHSEV: CMP#'7zS" BNE CHEIG S" LDA #2S" JMP WAIT.S"CHEIG: CMP #'8>S" BNE CHNINNS" JSR DRINW[S" LDA #1jS" JMP WAIT~S"CHNIN: CMP#'9S" BNE CHTANS" JSR DRINWS" JMP EFFE1S"CHTAN: CMP#1ѡS" BNE CHBBBT" JSR DRINWT" JMP EFFE2T"CHBBB: CMP #2$T" BNE CHCCC%.T" JSR DRINW58T" JMP EFFE3HBT"CHCCC: CMP #3XLT" BNE CHDDDhVT" JSR DRINWx`T" JMP EFFE4jT"CHDDD: CMP #4tT" BNE CHEEE~T" JSR DRINWT" JMP EFFE5΢T"CHEEE: CMP #5ޢT" BNE CHFFFT" JSR DRINWT" JMP EFFE6T"CHFFF: RTST"*T"FLASH: JSR CLWIN@T"FL99: JSR GETVLQT" STA FFIRSTaT" JSR GETVLqT" STA FNLEN{T" RTST"FL1: LDA #1T" JSR WAITT" LDA FNLENU" LDY #64ȣ U" LDX #0أU"FL2: DEXU" BNE FL2(U" DEY2U" BNE FL2WINDOW-2oNW" STA VC3+1XW"DR1: JSR GETCHbW" JSR DLINElW"DR99: LDA VC3vW" LDY VC3+1ɧW" JSR WRT12קW" INC VC3委W" BNE DR2W" INC VC3+1 W"DR2: LSR BTCW" LDA BTM%W" BEQ DR34W" DEC BTC2BW" LSR BTCWW"DR3: BCC DR99eW" LDA VC3oW" SECW" SBC #WINDOW+38X" BMI DR1Ǩ X" LDA #32ܨ*X" STA WINDOW+6384X" STA WINDOW+639>X" RTSHX"RX"SPCAGE: JSR GETVL(\X" STA FNLEN8fX" JSR DRINWHpX" LDA #<640VzX" STA VC3fX" LDA #>640vX" STA VC3+1X"SPCAG2: LDA $FF02X" AND #3X" CMP #3X" BCS SPCAG2©X" PHA̩X" TAYܩX" LDA $FF00X" CPY #2X" BNE SPC1X" AND #$7FX"SPC1: STA VC2&Y" CLC9Y" ADC #WINDOWBY" STA VC4+1LY" LDY #0VY" LDA (VC4),Y`Y" CMP #255êjY" BEQ SPCAG2ͪtY" PHAܪ~Y" LDA #255Y" STA (VC4),YY"Y" LDA VC2 Y" CLCY" ADC #SCRZY" STA VC4+1dY" PLAvY" STA (VC4),Y|Y"Z" LDA VC3 Z" BNE GGGGZ" DEC VC3+1Z"GGGG: DEC VC3ͫ(Z" LDA VC3+1ݫ2Z" BNE GGCONSCRv[" ADC #0[" STA VC4+1["NOADJ: TXA\" CLC\" ADC #WINDOW0\" ADC #0:\" STA VC3+1D\"N\" CPY #0X\" BEQ PLO1%b\"PLO3: PLP/l\" PHP@v\" BCS NOADJ2N\" LDA VC4X\" CLCf\" ADC #40t\" STA VC4\" LDA VC4+1\" ADC #0\" STA VC4+1\"NOADJ2: LDA VC3\" CLCί\" ADC #40ܯ\" STA VC3\" LDA VC3+1\" ADC #0 ]" STA VC3+1 ]" DEY"]" BNE PLO36 ]"PLO1: LDY #0H*]" LDA (VC3),YZ4]" STA (VC4),Yd>]" PLPtH]" LDY FNLEN~R]" RTS\]"f]"EFFE1: LDY #0p]"EF0: LDX #39İz]"EF1: JSR PLONTΰ]" DEXܰ]" BPL EF1氘]" INY]" CPY #16]" BCC EF0 ]" RTS]"']"EFFE2: LDY #15<]"EFF0: LDX #39S]"EFF1: JSR PLONT]]" DEXl]" BPL EFF1v]" DEY^" BPL EFF0^" RTS^"$^"EFFE3: LDX #0.^"EFFF0: LDY #15ձ8^"EFFF1: JSR PLONT߱B^" DEYL^" BPL EFFF1V^" INX`^" CPX#40j^" BCC EFFF0 t^" RTS&~^";^"EFFE4: LDX #39P^"EFFFF0: LDY #15g^"EFFFF1: JSR PLONTq^" DEY^" BPL EFFFF1^" DEX^" BPL EFFFF0^" RTS^"²^"EFFE5: LDY #15Ӳ^" STY FFIRST^"FE3: LDA #SCR_" STA VC4+1,_"FE2: LDX #0C(_"FE0: JSR PLONSQ2_" INC VC4_<_" BNE FE1oF_" INC VC4+1P_"FE1: INXZ_" CPX #40d_" BCC FE0n_" INYx_" CPY #16³_" BCC FE2ӳ_" DEC FFIRST䳖_" LDY FFIRST_" BPL FE3_" RTS_"_"EFFE6: LDA #0'_" STA FFIRST7_" STA FLASTE_" LDA #13X_" STA FFIRST+1f_" LDA #37x_" STA FLAST+1`"FAD0: LDX FLAST+1`" LDY FFIRST`"FAD1: JSR PLONYô"`" DEXӴ,`" CPX FLAST6`" BNE FAD1@`"FAD2: JSR PLONYJ`" INYT`" CPY FFIRST+1%^`" BNE FAD2