PXoX A,10000: ASSEMBLE CODEuX}X'"*MX'"; ASSEMBLY CODEX$'"X.'" ORG $2000X8'"BEGIN: JMP BOBXB'"; DISPLAY SINGLE LINE OFXL'"; EIGHT BITS.XV'"Y`'"; DATA IN 'X'(Yj'"; STORED AT 'VEC1'.Yt'"FY~'"DISP8: STA THISBTWY'" TYAhY'" PHAwY'" LDA MODEY'" BEQ OKNORMY'" JMP MULTIMY'"OKNORM: LDY #7Y'"Y'"DISPL: LSR THISBTY'" LDA #BLANKY'" BCC NOBLOKZ'"Z'" ORA #128$Z("NOBLOK:>Z (" STA (VEC1),YXZ(" LDA VEC1 +1iZ(" PHAZ((" AND #/4 -1Z2(" STA VEC1 +1Z<(" LDA COLOR3Z=(" ORA #8ZF(" STA (VEC1),YZP(" PLA[Z(" STA VEC1 +1[d(" DEY-[n(" BPL DISPL3[x("D[(" PLAU[(" TAYf[(" RTSl[("[("MULTIM: LDA #4[(" STA T1[(" TXA[(" PHA[(" LDY #7[("MULTI: LDA THISBT[(" AND #3[(" LSR THISBT[(" LSR THISBT[)" TAX\)" LDA COLOR0,X\)" STA T04\")" LDA #BLANK+128A\,)" CPX #0R\6)" BNE BOBBBBc\@)" LDA #BLANK\J)"BOBBBB: STA (VEC1),Y\T)" DEY\^)" STA (VEC1),Y\h)" INY\r)" LDA VEC1+1\|)" PHA\)" EOR #4\)" STA VEC1+1\)" LDA T0])" STA (VEC1),Y ])" DEY])" STA (VEC1),Y'])" PLA8])" STA VEC1+1B])" DEYR])" BPL MULTI\])" PLAf])" TAXp])" PLAz]*" TAY]*" RTS]*"]&*"; DISPLAY CHARACTERS]0*"; FROM ADDRESS 'VEC2']:*"; NUMCOL WIDE, NUMROW HIGH]D*"]N*"DISALL: LDX #36^X*" LDY #>SCR'^b*" LDA CNUM?^l*" JSR BINHEXE^v*"Y^*" LDX #0m^*" LDY #0s^*"^*"DIS0: STX TEMP^*" LDA TAB,X^*" STA VEC1^*"^*" LDA #>SCR^*" STA VEC1 +1^*" _*" LDA NUMROW_*" ASL A0_*" ASL AC_+" ASL AT_ +" TAXZ_+"k_ +"DIS1: SEI_*+" STA RAMON_4+" LDA (UDGVEC),Y_>+" STA ROMON_H+" CLI_R+" JSR DISP8_\+"_f+" JSR ADD40 `p+" INY`z+" DEX2`+" BNE DIS18`+"N`+" LDX TEMP_`+" INXw`+" CPX NUMCOL`+" BCC DIS0`+" RTS`+"TAB: BYT ONE,TWO,THR,FOU`+"`+"; FILL 1024 BYTES WITH 'A'`+"; 'X' = FIRST PAGEa+"a+"FIL4PG: STX VEC1 +10a," LDY #0Fa," STY VEC1La,"`a$," LDX #4ka.,"FIL1:a8," STA (VEC1),YaB," INYaL," BNE FIL1aV," INC VEC1 +1a`," DEXaj," BNE FIL1at," RTSb~,"b,"; FILL SCREENb,"3b,"FILSCR: LDX #>SCRKb," JMP FIL4PGQb,"kb,"; FILL SCREEN COLOURqb,"b,"FILCOL: LDX #> SCR-1024b," JMP FIL4PGb,"b,"; SET UP DISPLAYb,"b-"INIT: LDA #$41b -" JSR FILCOLc-" LDA #90+128'c-" JSR FILSCR-c(-"Dc2-" LDA #BACKZc<-" STA COL0qcF-" LDA #BORDcP-" STA COL4cZ-"cd-" LDA #1cn-" STA VEC1cx-" LDA #>SCRc-" STA VEC1+1c-"d-" LDA #40d-" STA VEC2.d-" LDA #>SCRFd-" STA VEC2+1Ld-"`d-" LDY #0fd-"wd-"SET0: TYAd-" AND #7d-" ORA #128d-" CLCd." ADC #1d." STA (VEC1),Yd."d"." CPY #24e,." BCS NOVERTe6."3e@." STA (VEC2),Y9eJ."JeT." CLC`e^." LDA VEC2ueh." ADC #39er." STA VEC2e|." BCC NOVERTe."e." INC VEC2+1e."NOVERT:e." INYe." CPY #32 f." BNE SET0f."'f." LDA #BWIN?f." STA BOTTOMVf." LDA #TWINkf." STA TOPf." LDA #LWINf." STA LEFTf/" LDA #RWINf/" STA RIGHTf/"f&/" LDA #0f0/" STA CURSOR g:/" LDA #41'gD/" STA CURSOR+1;gN/" LDA #1PgX/" STA EDCdgb/" LDA #0ygl/" STA EDYgv/" STA EDXg/"g/" LDA #CDATAg/" STA UDGVEC+1 h/" LDA #0"h/" STA CNUM(h/"=h/" LDA # 4Uh/" STA NUMCOLjh/" LDA # 3h/" STA NUMROWh/" LDA #$71h0" STA COLOR0h 0" LDA #$46h0" STA COLOR1h0" STA $FF16h 0" LDA #$42i*0" STA COLOR2i+0" STA $FF17i40" LDA #$450i>0" STA COLOR3?iH0" LDA #255WiR0" STA MODE;MCM DRAWpi\0" LDA # CHCOLif0" STA CHRCLip0" JMP DISALLiz0"i0"; TIME DELAYi0"i0"TIMDEL: CMP #0i0" BEQ TIM1i0"TIM0: DEXj0" BNE TIM0j0" DEY5j0" BNE TIM0;j0"Lj0" SEC`j0" SBC #1vj0" BNE TIM0j0"TIM1:j1" RTSj1"j1"; OUTPUT A STRINGj$1"j.1"PRSTR: STX VEC1j81" STY VEC1+1jB1"jL1" LDY #0kV1"PR1:!k`1" LDA (VEC1),Y6kj1" BEQ PR2Nkt1" JSR CHROUT_k~1" INYtk1" BNE PR1zk1"k1"PR2: RTSk1"k1"; MULTIPLE CHAR OUTPUTk1"k1"MULCHR: CPX #0k1" BEQ PR2k1"k1" JSR CHROUT l1" DEX#l1" JMP MULCHR)l2"?l 2";SIGN ON MESSAGEEl2"\l2"MESG: LDX #MESl22";SCROLL UP DATAl<2"MESG2: STX VEC1lF2" STY VEC1+1lP2"lZ2" LDA #HOMEld2" JSR CHROUTln2"mx2" LDX #24m2" LDA #CURDWN7m2" JSR MULCHR=m2"Qm2"MES0: LDY #0Wm2"qm2" LDA (VEC1),Ym2" BEQ MES1m2"m2" JSR PR1m2" TYAm2" SECm2" ADC VEC1m2" STA VEC1n3" BCC MES2n3" INC VEC1+1)n3"MES2:=n"3" LDA #1Qn,3" LDX #0fn63" LDY #40~n@3" JSR TIMDELnJ3"nT3" JMP MES0n^3"MES1: RTSnh3"nr3"CARRIG: LDA #13n|3" JMP CHROUTn3"n3";DISPLAY MENUn3"o3"MENDIS: LDX #MENUDo3" JMP MESG2Jo3"ao3"GETKEY: JSR GETINuo3" CMP #0o3" BEQ GETKEYo3" RTSo3"o3";REV VIDEO Y BYTES FROM VEC1o4"o4"INV6: LDY #6o4"INVX:p&4" LDA (VEC1),Yp04" EOR #1285p:4" STA (VEC1),YFpD4" DEY\pN4" BNE INVXmpX4"IN1: RTSspb4"pl4"GETCOM: LDA #MEN1STp4" STA VEC1+1p4"p4" LDA #0q4" STA ACT q4" q4"REVER: JSR INV68q4" JSR GETDIRNq4" JSR INV6bq4" CPX #2xq4" BEQ GOUPq4" CPX #4q4" BEQ GODOWNq5" CPX #5q 5" BNE REVERq5"q 5"ACTION: RTSq*5"GOUP: LDA ACTr45" BNE ADDUPr>5"2rH5" LDA #MENLSTzrf5" STA VEC1+1rp5" LDA #MENMSTrz5" STA ACTr5" JMP REVERr5"ADDUP:r5" SECr5" LDA VEC1s5" SBC #40s5" STA VEC15s5" LDA VEC1+1Is5" SBC #0as5" STA VEC1+1vs5" DEC ACTs5" JMP REVERs5"s5"GODOWN: LDA ACTs6" CMP #MENMSTs6" BNE ADDDWNs6"s$6" LDA #MEN1STAtB6" STA VEC1+1UtL6" LDA #0jtV6" STA ACTt`6" JMP REVERtj6"tt6"ADDDWN: JSR ADD40t~6" INC ACTt6" JMP REVERt6"t6"ADD40: CLCt6" LDA VEC1 u6" ADC #40"u6" STA VEC1:u6" LDA VEC1+1Nu6" ADC #0fu6" STA VEC1+1wu6" RTS}u6"u6"GETDIR: JSR GETINu7" LDX #1u 7" CMP #'Du7" BEQ GET1u7" CMP #CURLEFv(7" BEQ GET1v27" INX(v<7" CMP #'5>vF7" BEQ GET1VvP7" CMP #CURUPlvZ7" BEQ GET1}vd7" INXvn7" CMP #'6vx7" BEQ GET1v7" CMP #CURRIGv7" BEQ GET1v7" INXv7" CMP #'Rw7" BEQ GET1,w7" CMP #CURDWNBw7" BEQ GET1Sw7" INXhw7" CMP #'T~w7" BEQ GET1w7" CMP #' 'w7" BEQ GET1w7" INXw8"GET1: RTSw8"w8"ACTVEC: WOR EDI-1,MOV-1,SIZ-1x"8" WOR PRI-1,INV-15x,8" WOR MIR-1,LOA-1,SAV-1Rx68" WOR SWA-1,ROT-1tx;8" WOR DIS-1,FLI-1,COP-1,LFT-1x@8"WOR INS-1,DIR-1,LOAD-1,SAVE-1,QUI-1xJ8"DOCOM: LDA ACTxT8" ASL Ax^8" TAXxh8" LDA ACTVEC+1,Xyr8" PHAy|8" LDA ACTVEC,X.y8" PHA?y8" RTSEy8"[y8" AND #127oy8"MOV: LDA #0y8" LDY NUMROWy8" CLCy8"MOVC: ADC NUMCOLy8" DEYy8" BNE MOVCy8" STA NOFCHz8" EOR #$FFz8" CLC)z9" ADC #1@z9" STA TEMP1Fz9"^z&9"MOVD: JSR DISALLvz09"MOVE: JSR GETDIR|z:9"zD9" LDY CNUMzN9" CPX #4zX9" BNE MOV1zb9" JSR MOVD8zl9" JMP MOVDzv9"MOV1:{9" CPX #2{9" BNE MOV35{9" JSR MOVP8K{9" JMP MOVDV{9"MOV3:j{9" CPX #3{9" BNE MOV4{9" LDA NOFCH{9" LDX SHIFT{9" BEQ MOV30{9" ASL A{9"MOV30: TAX|9"MOV3A: JSR MOVP8|:" BEQ MOV&| :" DEX=|:" BNE MOV3AS| :" JMP MOVD^|*:"MOV4:r|4:" CPX #1|>:" BNE MOV99|H:" LDA NOFCH|R:" LDX SHIFT|\:" BEQ MOV31|f:" ASL A|p:"MOV31: TAX }z:"MOV4A: JSR MOVD8}:" BEQ MOV/}:" DEXF}:" BNE MOV4A\}:" JMP MOVDb}:"n}:"MOV99:}:" CMP #'F}:" BNE MOV6}:" LDY #0}:" STY CNUM}:" LDA #CDATA'~;" STA UDGVEC+1=~;" JMP MOVDH~;"MOV6:]~$;" CMP #'Ms~.;" BNE MOV8~8;" LDY #128~B;" STY CNUM~L;" LDA #CDATA+1024 j;" STA UDGVEC+1#t;" JMP MOVD.~;"MOV8:C;" CMP #'LY;" BNE MOV9p;" LDA NOFCH;" ASL A;" ASL A;" ASL A;" STA TEMP;" LDA #CDATA+2048N<" SBC #0h <" STA UDGVEC+1<" LDY TEMP1<" STY CNUM(<" JMP MOVD2<"ŀ<<"MOV9: CPX #5܀F<" BEQ MVENDP<" JMP MOVZ<"MVEND: RTSd<"n<"MOVP8: CPY TEMP16x<" BEQ MVERRG<" INY]<" STY CNUMu<" LDA UDGVEC<" CLC<" ADC #8<" STA UDGVEĆ<" LDA UDGVEC+1<" ADC #0<" STA UDGVEC+1<" LDA #1<"MVERR: RTS%<"9<"MOVD8: CPY #0P=" BEQ MVERRa=" DEYw=" STY CNUM"=" LDA UDGVEC,=" SEC6=" SBC #8̂@=" STA UDGVECJ=" LDA UDGVEC+1T=" SBC #0^=" STA UDGVEC+1(h=" LDA #19r=" RTS?|="[="EDI00: STA (UDGVEC),Ys="EDI000: JSR DISALL~="ED00:="EDI: JSR MAP=" JSR GETDIR=" CPX #2Ճ=" BNE EDI1=" LDY EDY=" BEQ EDI=" DEY%=" STY EDY;=" JMP ED00F="EDI1:Z>" CPX #4p>" BNE EDI2>" LDA NUMROW&>" ASL A0>" ASL A:>" ASL A҄D>" SECN>" SBC #1X>" STA TEMPb>" LDY EDY'l>" CPY TEMP" BCS EDIM>" INYb>" STY EDYx>" JMP ED00>"EDI2:>" CPX #1>" BNE EDI3…>" LDY EDXم>" BNE EDI21>" LDY EDC>" CPY #2>" BCC EDI(>" DEY=>" STY EDCQ?" LDY #8b ?"EDI21: DEYw?" STY EDX ?" JMP ED00*?"EDI3:4?" CPX #3†>?" BNE EDI4׆H?" LDY EDXR?" CPY #7\?" BCC EDI31f?" LDY EDC/p?" CPY NUMCOLDz?" BCS EDIU?" INYj?" STY EDC?" LDY #255?"EDI31: INY?" STY EDX?" JMP ED00‡?"ׇ?"EDI4: CMP #'Z?" BNE EDI6?" JSR MAPBY?" SEI,?" STA RAMONH?" ORA (UDGVEC),Y_@" STA ROMONp@" CLI@" JMP EDI00$@".@"EDI6: CMP #'X8@" BNE EDI7ψB@" JSR MAPBYL@" EOR #$FFV@" SEI `@" STA RAMON)j@" AND (UDGVEC),Y@t@" STA ROMONQ~@" CLIh@" JMP EDI00s@"EDI7:@" CMP #'C@" BNE EDI8@" JSR MAPBYˉ@" LDA #$FF@" JMP EDI00@"EDI8:@" CMP #'V@" BNE EDI9/@" JSR MAPBYC@" LDA #0ZA" JMP EDI00e A"EDI9:zA" CMP #'BA" BNE EDI10(A" JSR MAPBY2A" SEIЊA" STA (UDGVEC),YOA" PLA`A" INYqB" DEXB" BNE EDI101B" JMP EDI000"B"EDI11:Œ,B" CMP #'Mٌ6B" BNE EDI12@B" JSR MAPBY1JB" EOR #$FFTB" LDX #8,^B"EDI111: PHA=hB" SEITrB" STA RAMONp|B" AND (UDGVEC),YB" STA ROMONB" CLIB" STA (UDGVEC),YōB" PLA֍B" INY獸B" DEXB" BNE EDI111B" JMP EDI000#B"EDI12:8B" CMP #',OB" BNE EDI13gB" JSR MAPBY1{B" LDX #8C"EDI121: PHAC" SEIC" STA RAMONЎ&C" EOR (UDGVEC),Y0C" STA RAMON:C" CLIDC" STA (UDGVEC),Y%NC" PLA6XC" INYGbC" DEX_lC" BNE EDI121wvC" JMP EDI000C"EDI13:C" CPX #5C" BEQ EDENDÏC" JMP EDIԏC"EDEND: RTSڏC" D"SIZ: JSR GETDIRD" TXA D" CPX #6,*D" BCS SIZD4D" LDY NUMROW\>D" LDX NUMCOLbHD"vRD" CMP #2\D" BNE SIZ1fD" CPY #2pD" BCC SIZƐzD" DEYݐD" BNE SIZ99萎D"SIZ1:D" CMP #4D" BNE SIZ2&D" CPY #3;D" BCS SIZLD" INYcD" BNE SIZ99nD"SIZ2:D" CMP #1D" BNE SIZ3D" CPX #2D" BCC SIZґE" DEXE" BNE SIZ99E"SIZ3:$E" CMP #3 .E" BNE SIZEND48E" CPX #4IBE" BCS SIZZLE" INXfVE"SIZ99:z`E" LDA #0jE" STA EDXtE" STA EDY~E" STA CURSORВE" LDA #1咒E" STA EDCE" LDA #41E" STA CURSOR+1,E" STY NUMROWDE" STX NUMCOLYE" LDA #79pE" JSR CLRCHE" LDA #1E" LDY #160E" LDX #0ƓE" JSR TIMDELޓF" JSR DISALL F" JMP SIZF"SIZEND: RTS F"!(F"QUI: LDA #HOME92F" JSR CHROUTQSCR+ONE-1FF" STA VEC1+1[F" LDX #24eF"SC0:zF" LDY #32F"SC1: LDA TEMPF" STA (VEC1),YF" LDA VEC1+1F" PHAȕF" EOR #4ٕF" STA VEC1+1F"BODGE:LDA #$31F" STA (VEC1),Y F" PLAF" STA VEC1+1,F" DEYAF" BNE SC1XF" JSR ADD40iF" DEX~F" BNE SC0G" RTSG"G"BINHEX: STX VEC1Ö"G" STY VEC1+1ז,G" LDY #0ݖ6G"@G" PHAJG" LSR ATG" LSR A'^G" LSR A:hG" LSR ARrG" JSR BECCLEc|G" PLAxG" AND #15G"BECCLE:G" ORA #'0G" CMP #'9'+1ƗG" BCC OK㗸G" SBC #57 ;VIDEOG"OK:G" ORA #$80G" STA (VEC1),Y-G" INY>G" RTSDG"XG"MAP: LDA #0nH" STA VEC1H" STA VEC1+1H" LDY EDY&H" BEQ MAP1Ș0H"MAP0: JSR ADD40٘:H" DEYDH" BNE MAP0NH"MAP1:XH" LDX EDC bH" CLC9lH" LDA TAB-1,XOvH" ADC VEC1eH" STA VEC1}H" LDA VEC1+1H" ADC #0H" STA VEC1+1H" CLCЙH" LDA VEC1噼H" ADC EDXH" STA CURSOR+1H" LDA VEC1+1+H" ADC #0CH" STA CURSORTH" RTSZH"nI"MAPBY: LDA #0 I" LDY EDCI" DEY I" BEQ NOMULÚ*I" LDA NUMROW֚4I" ASL A>I" ASL AHI" ASL ARI" STA TEMP&\I" LDA #07fI" CLCMpI"MBY00: ADC TEMP^zI" DEYuI" BNE MBY00I"NOMUL: CLCI" ADC EDYI" TAY›I" LDA #$80כI" LDX EDXI" BEQ MBY1I"MBY0: LSR AI" DEX'I" BNE MBY08I"MBY1: RTS>I"UI"MAPBY1: JSR MAPBYfJ" TAXwJ" TYAJ" AND #$F8$J" TAY.J" TXA8J" RTSƜBJ"LJ"MES: BYT 9,142,8,147,13,'',0VJ" BYT ' UDG ',0 `J" BYT 'EDITOR',09jJ" BYT '',0RtJ" BYT 'DARRON',0k~J" BYT ' M ',0J" BYT 'BROAD ',0J" BYT '',0J" BYT 'JAN.86',0ϝJ" BYT 'REV. ',0蝦J" BYT 'APR.89',0J" BYT '',0J" BYT 13,13,13,13,137J" BYT '',0PJ" BYT 'PRESS ',0iJ" BYT ' ANY ',0J" BYT ' KEY ',0J" BYT '',0K" BYT 0 K"ÞK"MENU:BYT 147ܞ2K" BYT '',0FK" BYT 'EDIT ',0PK" BYT 'MOVE ',0'ZK" BYT 'SIZE ',0@dK" BYT 'CLEAR ',0YnK" BYT 'INVERT',0rK" BYT 'SHIFTD',0K" BYT 'MARKER',0K" BYT 'COPY ',0K" BYT 'SWAP ',0֟K" BYT 'MODE ',0K" BYT 'DISPLA',0K" BYT 'FLIP H',0!K" BYT 'SHIFTR',0:K" BYT 'SHIFTL',0SK" BYT 'ROM ',0lK" BYT 'DIR ',0K" BYT 'LOAD ',0K" BYT 'SAVE ',0K" BYT 'QUIT ',0РK" BYT '',0K" BYT 0,0K"MENMST = 19-1K"BOB:K" LDX #255K" TXS&K" LDA #06K" STA CODEUCDATAK" STA COPY+1K" LDA #$1BK" STA $FF06K" LDA #$08K" STA $FF07̡K"JSR INITڡK"JSR MESGK"JSR GETKEYL"JSR MENDIS L"GG:JSR GETCOML"JSR DOCOM("L"JMP GG@,L"; MEMORY REGISTERSF6L"[@L"VEC1 = $D0uJL"VEC2 = VEC1 +2TL"UDGVEC = VEC2 +2^L"COLOR0 = $333hL"COLOR1=COLOR0+1ϢrL"COLOR2=COLOR1+1|L"COLOR3=COLOR2+1L"THISBT = COLOR3+1L"TEMP = THISBT+10L"TEMP1 = TEMP+1JL"NUMCOL = TEMP1 +1dL"NUMROW = NUMCOL+1~L"RAMSWI = NUMROW+1L"ACT = RAMSWI+1L"CNUM = ACT+1ǣL"NOFCH = CNUM+1L"EDX = NOFCH+1L"EDC = EDX+1L"EDY = EDC+1L"T0=EDY+1)M"T1=T0+18M"MODE=T1+1IM"COPY=MODE+1[M"FLIPT=COPY+2nM"FLIPS=FLIPT+4M"FUNK=FLIPS+4M"CODEU=FUNK+1&M"; CONSTANTS0M":M"BLANK = ' 'ҤDM"ONE = 41NM"TWO = 49XM"THR = 57bM"FOU = 65%lM"RAMON = $FF3FN"BORD = 0HN"GETIN = $FFE4N"CHROUT = $FFD20N"MEN1ST = 3185FN"MENLST = 3905[N"CHCOL = $71rN"CDATA = $3800N"CHRCL =$53BN"CURSOR =$FF0CO"SHIFT =$543O"INV: JSR FINNUMܧO"INV11: LDA (UDGVEC),Y$O" EOR #255.O" STA (UDGVEC),Y 8O" DEYBO" BPL INV11+LO" JMP DISALL1VO"I`O"FINNUM: LDY NUMCOLVjO" LDA #0`tO" CLCw~O"FINN1: ADC NUMROWO" DEYO" BNE FINN1O" ASLAO" ASLAO" ASLAO" TAYƨO" DEYШO" RTS֨O"O"PRI: JSR FINNUMO" LDA #0O"PRI1: STA (UDGVEC),YP" DEY+ P" BPL PRI1<P" JMP DISALLBP"L(P"LOA:]2P" LDA UDGVEClS" STA T1HS" LDA UDGVECRS" STA VEC1*\S" LDA UDGVEC+1;fS" STA VEC1+1ApS"RzS"MIR1:LDY T1\S" DEYfS" DEYsS" LDX T1}S" DEXS"MIR2: LDA (VEC1),YS" INYS" STA (VEC1),YS" DEYƬS" DEYЬS" DEX߬S" BNE MIR2S" LDA #0S" INY S" STA (VEC1),YT" LDA VEC1"T" CLC/T" ADC T1>$T" STA VEC1O.T" LDA VEC1+1\8T" ADC #0mBT" STA VEC1+1zLT" DEC T0VT" BNE MIR1`T" JMP DISALLjT"tT"ROT:LDA MODE~T" EOR #255ЭT" STA MODE᭒T" JMP DISALL.u"DIS: LDA BODGE+1/u" PHA0u" LDA COLOR31u" ORA #812u" STA BODGE+1A3u" LDA CODEUQ5u" JSR CLRCH[6u" PLAm7u" STA BODGE+1}9u" LDA $FF07:u" PHA;u" ORA #$80u" ORA #$10ή?u"NORM:ޮCu" STA $FF07Du" LDA $FF12Nu" PHAXu" LDA #8bu" STA $FF12%lu" LDA $FF13/vu" PHAAu" LDA #>CDATAQu" STA $FF13bu" JSR DUMPSTsu" JSR GETKEY}u" PLAu" STA $FF13u" PLAu" STA $FF12u" PLAu" STA $FF07ׯu"WOBBLY: LDA #79u" JSR CLRCHu" JMP DISALLu"@"DUMPST: LDA #<$C29%J" STA VEC16T" LDA #>$C29G^" STA VEC1+1Th" LDA #8cr" STA TEMPp|" LDX #0"DUM1: LDY #0"DUM2: TXA" STA (VEC1),Y" INX" INYȰ" CPY #32װœ" BCC DUM2̜" JSR ADD40֜" DEC TEMP" BNE DUM1" LDA #<$E88%" STA VEC16" LDA #>$E88G" STA VEC1+1T" LDY #0c" LDX CNUMt" LDA NUMCOL" STA TEMP1"FRES:LDA NUMROW&" STA TEMPD" TYAN" PHAʱX"FREW:TXAԱ]" INXb" STA (VEC1),Yl" TYAv" CLC " ADC #40" TAY"" DEC TEMP1" BNE FREW;" PLAE" TAYO" INY_Ɲ" DEC TEMP1nН" BNE FRESxڝ" RTS~""FUCK: LDA NUMROW" ASLA" ASLA " ASLA²" STA T0Ӳ*" LDA UDGVEC4" STA VEC1>" LDA UDGVEC+1H" STA VEC1+1R" LDY #0\"(f"FLI1: TYA2p" PHA?z" LDX #0W"FLI2: LDA (VEC1),Yi" STA FLIPT,Xy" JSR ADYT0" INX" CPX NUMCOL" BNE FLI2" LDA NUMCOL" ASLAʳʞ" ASLAճԞ" ASLA߳ޞ" TAY" JSR FUNCSj" PLAk" PHA t" TAY~" LDX #01"FLI5: LDA FLIPS,XD" STA (VEC1),YT" JSR ADYT0^" INXo" CPX NUMCOL~" BCC FLI5ğ" PLAΟ" TAY؟" INY" CPY T0" BCC FLI1ɴ" JMP DISALLϴ"ߴ "ADYT0: TYA" CLC" ADC T0(" TAY2"GOD: RTS<")"FUNCS: LDA FUNK6" CMP #0G$" BEQ FLIPITV." CMP #255g8" BEQ SHIFRGtC" CMP #1D" BNE GODG"L" JMP SHIFLF"FLIPIT: LDA MODE" BEQ FLIPI9ѵ" LDA NUMCOLܵ"" ASLA," ASLA6" STA TEMP @"FLIPI7: LDA #0J" LDX NUMCOL6T"RLL1: ROL FLIPT-1,X@^" DEXOh" BNE RLL1Zr" ROLAk|" LDX NUMCOL"RLL2: ROL FLIPT-1,X" DEX" BNE RLL2" ROLA" LDX #0ȶ¦" LDY NUMCOLӶ̦" LSRA֦"RRR1: ROR FLIPS,X" INX" DEY" BNE RRR1" LDX #0-&" LDY NUMCOL80" LSRAQ:"RRR2: ROR FLIPS,X[D" INXeN" DEYtl" BNE RRR2" DEC TEMP" BNE FLIPI7" RTS"FLIPI9: CLCʷ"FLIPI1: ROL FLIPT-1,XԷ " DEX" BNE FLIPI1 " PHP*"FLIPI2: PLP4" ROR FLIPS,X>" PHP&H" INX7R" CPX NUMCOLH\" BNE FLIPI2Ra" PLP\f" DEYmp" BNE FLIPI9wz" RTS}""SHIFRG: LDX #0" CLC" PHP"SHIFR:PLPƸ" LDA FLIPT,XѸ" RORA" STA FLIPS,X&" PHP0" INX:" CPX NUMCOLD" BNE SHIFR"N" PLP,X" DEY=b" BNE SHIFRGGl" RTSMv"eȯ"SHIFLF: LDX NUMCOLoү" CLC{"SHIFL:" LDA FLIPT-1,X" ROLA" STA FLIPS-1,X" DEXȹ"" BNE SHIFLҹ," DEY6" BNE SHIFLF@" RTSJ"h"FLI: LDA #0r" STA FUNK"|" JMP FUCK("9"LFT: LDA #1H" STA FUNKW" JMP FUCKnP"INS: LDA #ROMCHRn" STA VEC1+1x" LDA #CDATA庖" STA VEC2+1" LDX #8" LDY #0"INS1: LDA (VEC1),Y*" STA (VEC2),Y4" DEYC" BNE INS1T" INC VEC1+1e" INC VEC2+1o" DEX~" BNE INS1" STX MODE" JMP DISALL"8"DIR: LDA #58ŻB" STA $200һL" LDA #0V" STA $3B`" LDA #2j" STA $3C t" JSR WINDOW" JSR $C8BC2"SPACEG:JSR $C9ACI"SPACET:JSR GETKEYW" CMP #13h" BNE SPACETy" JMP WINCLS" "WINDOW: LDA #$18*" STA $7E54" LDA #1>" STA $7E6ϼH" STA $7E7޼R" LDA #$20\" STA $7E8f" LDA #147 p" JMP CHROUTz"*"WINCLS: LDA #BWIN;" STA BOTTOMK" LDA #TWINY" STA TOPi" LDA #RWINy" STA RIGHT" LDA #LWIN" STA LEFT" JMP WOBBLY"ƽ"GETNAM: JSR GETIN׽ " BNE GETNAM" LDY #0"RD:JSR $FFCF" STA $200,Y&" INY0" CMP #13,:" BNE RD6;" DEYC<" CPY #1R=" BNE OKENa>" LDA $200p?" CMP #' '@" BNE OKENA" DEYB"OKEN:D" RTSN"X"LOAD: JSR WINDOWʾb" JSR $FBD8l" BYT 'ENTER LOAD NAME',13,0v" JSR GETNAM" TYA" BEQ WINCLS$" LDX #01" LDY #2A" JSR $FFBDN" LDA #8X" TAXe" LDY #0u" JSR $FFBA" LDA #0" LDX #CDATA" JSR $FFD5ǿ" JMP SPACEGݿ "SAVE: JSR WINDOW" JSR $FBD8 "BYT'ENTER SAVE NAME',13,0!" JSR GETNAM'"" TYA4#" BNE OXE%" JMP WINCLSU*"OX: LDX #0b4" LDY #2r>" JSR $FFBDH" LDA #8R" TAX\" LDY #255f" JSR $FFBAp" LDA #CDATA" STA VEC1+1" LDA #VEC1" LDX #CDATA+$800:" JSR $FFD8K" JMP SPACEGQ"X`"*