ô > 65Em ô > Startup #î…ö:òClose_All:ñ" at line ";ž:à (NA$=¤OS_GetEnv:ver$="0.13":debug%=0:òInit:A%=¤_DEBUG(Ãdebug%):quiet%=A$<>"" 2€çA$="":ñ"6502 Emulator v"ver$" (C)2006 J.G.Harston"'"Memory start: &"¤h0(mem%,8)" MemSz: &"¤h0(mz%,6)" MemMsk: &"¤h0(mm%,6) "":A%=¤_RUN(A$) Z çrun%:òGo dçquiet%:A%=¤_QUIT("") nõè†"65Em* "A$:òcmd(A$,0):ý0 xà ‚ ÝòInit Œ5d$=".":s$="/":ços%>6:d$="/":s$=".":ços%=32:d$="\" –Frunpath$=run$:çÀrunpath$,1)="""":runpath$=Árunpath$,2,©runpath$-2) /õrunpath$=Àrunpath$):ý§d$+":",Ârunpath$,1)) ªRços%=32:mx%=@vdu%!208:my%=@vdu%!212:mw%=@vdu%!216:mh%=@vdu%!220:mc%=@vdu%?73+1 ´3mz%=¤memsize:mm%=mz%-1:mtop%=mz%:mbot%=0:run%=£ ¾LÞctrl%31,name%79,zp%7,mem%mz%:trace0%=0:trace1%=&FFFF:X%=ctrl%:Y%=X%256 È+ra%=0:rx%=0:ry%=0:rp%=0:rs%=&1FF:rpc%=0 Ò-osw0%=£:err%=&100:escflg%=&FF:prog%=&F800 Ü=ÿ"Load """+¤f_name(runpath$+"TOS64")+""" "+Ã~(mem%+&F800) æ?A%=mem%!&FFB7€&FFFF:ãB%=0¸&35:mem%?(B%+&200)=mem%?(A%+B%):í ð/mem%!&F0=&800:mem%!&F4=&8000:mem%?escflg%=0 úòEscInit:á ;Ý¤memsize:A%=2^¨(ª(“-’-1024)/ª2):çA%<&10000:=A%‹=&10000 *ÝòError:X%=ctrl%:Y%=X%256:ç¦-1:run%=£ Iç¬run%:ö:òClose_All:ñÀ" ("+Ã~B%+") at "+Ãž,Ÿ<128€Ÿ<>17):ç¦-1:òRegDump "FçŸ=25:çrun%:ços%=32:run%=£:ï23,22,mx%;my%;mw%,mh%,mc%,128:run%=¹:á ,2çŸ=17:mem%?255=255:rp%=rp%„(osw0%€1):osw0%=£:á 6Oçrun%:mem%!err%=Ÿ*256:$(mem%+err%+2)=ö$+½0:rpc%=err%:çŸ=17:mem%?escflg%=&FF @á J?Ýòcmd(A$,link%):çA$<>"":çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " TçA$=""„ÀA$,1)="|":á ^çÀA$,1)="*":ÿÁA$,2):á hçÀA$,1)=".":ÿ"."+ÁA$,2):á r çÀA$,1)="/":A$="RUN "+ÁA$,2) |3ç¤uc(ÀA$,2))="FX":ç»ÁA$,3)„(ÁA$,3,1)="0"):ÿA$:á †2A%=§A$+" "," "):C$=¤uc(ÀA$,A%-1)):A$=ÁA$,A%+1) OA%=§" BASIC CORE DEBUG GO HELP LOAD MDUMP MDIS MEDIT QUIT RUN "," "+C$+" ") šçA%:A%= ("FN_"+C$+"(A$)"):á ¤A%=¤_run(C$+" "+A$,¹):á ®;Ý¤_HELP(A$):ñ'"6502 Emulator ";ver$:ç¤uc(A$)<>"6502":=0 ¸bñ" BASIC"'" CORE "'" DEBUG [ [ ]]"'" GO ()"'" HELP" ÂTñ" LOAD "'" MDUMP "'" MDIS "'" QUIT"'" RUN " Ì=0 Ö Ý¤_MDIS(A$):êN%,P%,C%:òEscOn à5P%= ("&"+A$):õ:C%=16:õñ¤h0(P%,4);" ";:A$=¤dis(P%) ê*ãA%=0¸N%-1:ñ¤h0(mem%?(P%+A%),2);" ";:í ô<ñ‰(17-3*N%);:ãA%=0¸N%-1:ñ¤c(mem%?(P%+A%));:í:ñ‰(7-N%);A$ þ%P%=P%+N%:C%=C%-1:ýC%=0:C%=¥:ý0:=0 !Ý¤_MDUMP(A$):êN%,P%,C%:òEscOn /P%= ("&"+A$):N%=16:õ:C%=16:õñ¤h0(P%,4);" "; *ãA%=0¸N%-1:ñ¤h0(mem%?(P%+A%),2);" ";:í &%ãA%=0¸N%-1:ñ¤c(mem%?(P%+A%));:í:ñ 0%P%=P%+N%:C%=C%-1:ýC%=0:C%=¥:ý0:=0 :Ý¤_BASIC(A$) D9ñ"BASIC"':=¤_RUN(""""+runpath$+¤f_name("Basic")+"""") NÝ¤_QUIT(A$):ç»A$:halt%=¹:=0 XòClose_All bÿ"QUIT":=0 lÝ¤_RUN(A$):=¤_run(A$,£) v4Ý¤_run(A$,osc%):È•ÂA$,1)=" ":A$=ÀA$):Î:çA$="":=0 €1çÀA$,1)="""":A%=§A$,"""",2)+1‹A%=§A$+" "," ") ŠC$=A$:F$=¤f_name(ÀA$,A%-1)) ”+X%!2=0:A%=¤file(F$,5):çA%:A%=X%!2‹A%=-1 ž&ç(A%€&FFFFFF00)=&FFFBBC00:A%=&8000 ¨#ç(A%€&FFF00000)=&FFF00000:A%=-1 ²çA%=-1:ÿÀ"/",¬osc%)+C$:=0 ¼ çA%=0Œ Æ1in%=Ž(F$):ògbpb(4,in%,name%,80,0):Ù#in%:in%=0 Ð#A%=name%?7:çname%!A%=&29432800Œ Ú(õA%=A%+1:ýname%?A%=0:A%=name%!(A%+1) ä-ç(name%?6€ 64)=0:…247,"Not a language":=0 î,ç(name%?6€ 15)>3:…247,"Not 6502 code":=0 øç(name%?6€ 32)=0:A%=&8000 ‹ …254,"No file header":=0 Í Í *ÿ"Load "+F$+" "+Ã~(mem%+A%) 4rpc%=A%:=¤_go >Ý¤_LOAD(A$):A%=§A$," ") HBçA%=0:F$=¤f_name(A$)‹F$=¤f_name(ÀA$,A%-1)):A%= ("&"+ÁA$,A%+1)) R1çA%=0:X%!2=0:ç¤file(F$,5):A%=X%!2‹çA%=0:A%=-1 \&ç(A%€&FFFFFF00)=&FFFBBC00:A%=&8000 f çA%=0Œ p1in%=Ž(F$):ògbpb(4,in%,name%,80,0):Ù#in%:in%=0 z#A%=name%?7:çname%!A%=&29432800Œ „(õA%=A%+1:ýname%?A%=0:A%=name%!(A%+1) Ž-ç(name%?6€ 64)=0:…247,"Not a language":=0 ˜,ç(name%?6€ 15)>3:…247,"Not 6502 code":=0 ¢ç(name%?6€ 32)=0:A%=&8000 ¬‹ ¶…254,"No file header":=0 ÀÍ ÊÍ Ô#ÿ"Load "+F$+" "+Ã~(mem%+A%):=A% Þ3Ý¤_GO(A$):çA$="":rpc%=mem%!&FFFC‹rpc%= ("&"+A$) è!Ý¤_go:ra%=0:rx%=0:ry%=0:rp%=0 ò)çmem%!(rpc%+mem%?(rpc%+7))=&29432800Œ ü!prog%=rpc%:A%=rpc%+8:õA%=A%+1 *ýmem%?A%=0:mem%?&FD=A%:mem%?&FE=A%256 %mem%?&EE=prog%:mem%?&EF=prog%256 %mem%?&F4=prog%:mem%?&F5=prog%256 $rs%=&1FF:ra%=1 .Í 8+$(mem%+&236)=A$:mem%?&F2=&36:mem%?&F3=2 B òGo:=0 LÝ¤_CORE(A$) V'A$=¤f_name(¤s(ÀA$,§A$+" "," ")-1))) `$ÿ"Save "+A$+" "+Ã~mem%+"+"+Ã~mz% jòSetType(A$,&FFD) t=0 ~=Ý¤_DEBUG(A$):çA$="":ñ"1=Register Dump"'"3=Single Step":=0 ˆ6debug%=0:trace0%=0:trace1%=&FFFF:ç¤uc(A$)="OFF":=0 ’)debug%= (A$):ç(debug%€1):ç¼<9:õñ:ý¼>8 œ5A%=§A$," "):çA%:trace0%= (ÁA$,A%+1)):A$=ÁA$,A%+1) ¦(A%=§A$," "):çA%:trace1%= (ÁA$,A%+1)) °=0 ºÝòSetType(A$,A%):ços%>8:á Äÿ"SetType "+A$+" "+Ã~A% Îá Ø-Ý¤c(A%):A%=A%€255:çA%<32„A%>126:="."‹=½A% â0Ý¤str0(A%):A$="":õç?A%>31:A$=A$+½?A%:A%=A%+1 ìý?A%<32„©A$>254:=A$ öSÝòRegDump:ñ"A=&"¤h0(ra%,2)" X=&"¤h0(rx%,2)" Y=&"¤h0(ry%,2)" P=&"¤h0(rp%,2);" "; EãA%=7¸0ˆ-1:ñÁ"-CZIDB5VN",(((rp%€(2^A%))<>0)€(A%+1))+1,1);:í:ñ" " %ñ"XY=&";:òDumpLine(rx%+256*ry%):ñ ñ" S=&";:òDumpLine(rs%):ñ ñ"PC=&";:òDumpLine(rpc%) (4A%=¤Dis_Code(65,rpc%,mem%+rpc%):ñ$(X%+4);‰(56-±) 2á 126:="."‹=½A% x0Ý¤str0(A%):A$="":õç?A%>31:A$=A$+½?A%:A%=A%+1 ‚ý?A%<32„©A$>254:=A$ Œ"ÝòEscInit:esch%=esch%:çesch%:á –ços%=32Œ >ÞP%36,L%-1:[OPT 8:.escyes:mov byte[edi-1],0:mov eax,-1:ret ª8.esch%:mov ecx,256:mov edi,[@vdu%-148]:mov al,27:cld ´>repnz scasb:jz escyes:xor eax,eax:ret:.escb%:dw 0:dw 0:]:á ¾Í È7Þesch%31:ãP=0¸1:P%=esch%:[OPT P*2:MOV R11,R11,LSL#1 ÒSLDR R12,escb%:STRB R11,[R12]:MOV PC,R14:.escb%:EQUD mem%+escflg%:]:í:escho%=0:á Ü$ÝòEscOff:escho%=escho%:çescho%:á æIços%<>32:È™"OS_ChangeEnvironment",9,esch%,0,0¸,escho%,escRo%,escbo%:á ð6ÿ"ESC OFF":escho%=¹:î‘çºesch%:mem%?escflg%=&FF:ø‹ø úá %ÝòEscOn:escho%=escho%:çescho%=0:á Gços%<>32:È™"OS_ChangeEnvironment",9,escho%,escRo%,escbo%:escho%=0:á î‘‡:escho%=0:ÿ"ESC ON":á "(ÝòGo:abort%=£:halt%=0:run%=¹:òEscOff ,_õ:ç(debug%€1):çrpc%>=trace0%€ rpc%<=trace1%:x%=±:y%=¼:ï30:òRegDump:ï31,x%,y%:ç(debug%€2):ç¥ 6xB%=mem%?rpc%:rpc%=rpc%+1:ý ("FNm"+Ã~(B%€&1C)+"+FN_"+Ã~(B%€(((B%€1)<>1)„&E3))):òEscOn:run%=£:ç¬quiet%„abort%:òRegDump @á J!Ý¤br(A%):rpc%=rpc%+1:çA%=0:=0 T9çmem%?(rpc%-1)<128:rpc%=(rpc%+mem%?(rpc%-1))€&FFFF:=0 ^*rpc%=(rpc%+mem%?(rpc%-1)-256)€&FFFF:=0 h1Ý¤m0:A%=(mem%!((mem%?rpc%+rx%)€&FF))€&FFFF:=0 rÝ¤m4:A%=mem%?rpc%:=0 |Ý¤m8:A%=rpc%:=0 †,Ý¤mC:A%=(mem%!rpc%)€&FFFF:rpc%=rpc%+1:=0 ,Ý¤m10:A%=(mem%!(mem%?rpc%)+ry%)€&FFFF:=0 š(Ý¤m12:A%=(mem%!(mem%?rpc%))€&FFFF:=0 ¤#Ý¤m14:A%=(mem%?rpc%+rx%)€&FF:=0 ®6Ý¤m18:A%=(mem%!rpc%+ry%)€&FFFF:rpc%=rpc%+(B%€1):=0 ¸1Ý¤m1C:A%=(mem%!rpc%+rx%)€&FFFF:rpc%=rpc%+1:=0 ÂKÝ¤_1:ra%=ra%„mem%?A%:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):rpc%=rpc%+1:=0 ÌLÝ¤_21:ra%=ra%€mem%?A%:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):rpc%=rpc%+1:=0 ÖLÝ¤_41:ra%=ra%‚mem%?A%:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):rpc%=rpc%+1:=0 à‘Ý¤_61:ra%=ra%+mem%?A%+(rp%€1):rp%=(rp%€254)+(ra%256):ra%=ra%€255:rp%=(rp%€&3D)„(ra%€128)„(((ra%€128)2)‚(ra%€64))„((ra%=0)€2):rpc%=rpc%+1:=0 ê3Ý¤_81:çA%=rpc%:=¤_8A‹mem%?A%=ra%:rpc%=rpc%+1:=0 ôHÝ¤_A1:ra%=mem%?A%:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):rpc%=rpc%+1:=0 þvÝ¤_C1:A%=ra%-mem%?A%:rp%=(rp%€254)+(((A%‚256)€256)256):A%=A%€255:rp%=(rp%€&3D)„(A%€128)„((A%=0)€2):rpc%=rpc%+1:=0 ¡Ý¤_E1:ra%=ra%-mem%?A%-(1-(rp%€1)):rp%=(rp%€254)+(((ra%‚256)€256)256):ra%=ra%€255:rp%=(rp%€&3D)„(ra%€128)„(((ra%€128)2)‚(ra%€64))„((ra%=0)€2):rpc%=rpc%+1:=0 Ý¤_12:=¤m12+¤_1 Ý¤_32:=¤m12+¤_21 &Ý¤_52:=¤m12+¤_41 0Ý¤_72:=¤m12+¤_61 :Ý¤_92:=¤m12+¤_81 DÝ¤_B2:=¤m12+¤_A1 NÝ¤_D2:=¤m12+¤_C1 XÝ¤_F2:=¤m12+¤_E1 b"Ý¤_8:mem%?rs%=rp%:rs%=rs%-1:=0 l#Ý¤_28:rs%=rs%+1:rp%=mem%?rs%:=0 v#Ý¤_48:mem%?rs%=ra%:rs%=rs%-1:=0 €#Ý¤_5A:mem%?rs%=ry%:rs%=rs%-1:=0 ŠGÝ¤_68:rs%=rs%+1:ra%=mem%?rs%:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 ”GÝ¤_7A:rs%=rs%+1:ry%=mem%?rs%:rp%=(rp%€&7D)„(ry%€128)„((ry%=0)€2):=0 ž#Ý¤_DA:mem%?rs%=rx%:rs%=rs%-1:=0 ¨GÝ¤_FA:rs%=rs%+1:rx%=mem%?rs%:rp%=(rp%€&7D)„(rx%€128)„((rx%=0)€2):=0 ²Ý¤_10:=¤br((rp%€128)‚128) ¼Ý¤_30:=¤br(rp%€128) ÆÝ¤_50:=¤br((rp%€64)‚64) ÐÝ¤_70:=¤br(rp%€64) ÚÝ¤_80:=¤br(1) äÝ¤_90:=¤br((rp%‚1)€1) îÝ¤_B0:=¤br(rp%€1) øÝ¤_D0:=¤br((rp%€2)‚2) Ý¤_F0:=¤br(rp%€2) Ý¤_18:rp%=rp%€&FE:=0 Ý¤_38:rp%=rp%„1:=0 Ý¤_58:rp%=rp%€&FB:=0 *Ý¤_78:rp%=rp%„4:=0 4Ý¤_B8:rp%=rp%€&BF:=0 >Ý¤_D8:rp%=rp%€&F7:=0 H0Ý¤_F8:rp%=rp%„8:ñ"**BCD not supported***":=0 R€Ý¤_0:rpc%=rpc%+1:rs%=rs%-3:mem%?(rs%+1)=rp%„&10:mem%?(rs%+2)=rpc%:mem%?(rs%+3)=rpc%256:rpc%=(mem%!&FFFE)€&FFFF:rp%=rp%„4:=0 \eÝ¤_20:a%=mem%!rpc%:rpc%=rpc%+1:rs%=rs%-2:mem%?(rs%+1)=rpc%:mem%?(rs%+2)=rpc%256:rpc%=a%€&FFFF:=0 fMÝ¤_40:rp%=mem%?(rs%+1):rpc%=(mem%!(rs%+2))€&FFFF:rs%=rs%+3:rpc%=rpc%+1:=0 pÝ¤_4C:rpc%=A%:=0 z<Ý¤_60:rpc%=(mem%!(rs%+1))€&FFFF:rs%=rs%+2:rpc%=rpc%+1:=0 „!Ý¤_6C:rpc%=(mem%!A%)€&FFFF:=0 Ž!Ý¤_7C:rpc%=(mem%!A%)€&FFFF:=0 ˜Ý¤_EA:=0 ¢8Ý¤_8A:ra%=rx%:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 ¬8Ý¤_98:ra%=ry%:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 ¶Ý¤_9A:rs%=rx%+&100:=0 À8Ý¤_A8:ry%=ra%:rp%=(rp%€&7D)„(ry%€128)„((ry%=0)€2):=0 Ê8Ý¤_AA:rx%=ra%:rp%=(rp%€&7D)„(rx%€128)„((rx%=0)€2):=0 Ô<Ý¤_BA:rx%=rs%€&FF:rp%=(rp%€&7D)„(rx%€128)„((rx%=0)€2):=0 Þ@Ý¤_1A:ra%=(ra%+1)€&FF:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 è@Ý¤_3A:ra%=(ra%-1)€&FF:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 ò@Ý¤_88:ry%=(ry%-1)€&FF:rp%=(rp%€&7D)„(ry%€128)„((ry%=0)€2):=0 ü@Ý¤_C8:ry%=(ry%+1)€&FF:rp%=(rp%€&7D)„(ry%€128)„((ry%=0)€2):=0 @Ý¤_CA:rx%=(rx%-1)€&FF:rp%=(rp%€&7D)„(rx%€128)„((rx%=0)€2):=0 @Ý¤_E8:rx%=(rx%+1)€&FF:rp%=(rp%€&7D)„(rx%€128)„((rx%=0)€2):=0 Ý¤_C6 $ Ý¤_CE . Ý¤_D6 8 Ý¤_DE BXmem%?A%=(mem%?A%-1)€&FF:rp%=(rp%€&7D)„((mem%?A%)€128)„((mem%?A%=0)€2):rpc%=rpc%+1:=0 L Ý¤_E6 V Ý¤_EE ` Ý¤_F6 j Ý¤_FE tXmem%?A%=(mem%?A%+1)€&FF:rp%=(rp%€&7D)„((mem%?A%)€128)„((mem%?A%=0)€2):rpc%=rpc%+1:=0 ~Ý¤_A2:A%=rpc% ˆ Ý¤_A6 ’ Ý¤_AE œ Ý¤_B6:A%=(mem%?rpc%+ry%)€&FF ¦+Ý¤_BE:A%=(A%-rx%+ry%)€&FFFF:rpc%=rpc%+1 °Brx%=mem%?A%:rp%=(rp%€&7D)„(rx%€128)„((rx%=0)€2):rpc%=rpc%+1:=0 ºÝ¤_A0:A%=rpc% Ä Ý¤_A4 Î Ý¤_AC Ø Ý¤_B4 â Ý¤_BC ìBry%=mem%?A%:rp%=(rp%€&7D)„(ry%€128)„((ry%=0)€2):rpc%=rpc%+1:=0 ö Ý¤_86 Ý¤_8E Ý¤_96:A%=(A%-rx%+ry%)€&FFFF mem%?A%=rx%:rpc%=rpc%+1:=0 Ý¤_84 ( Ý¤_8C 2 Ý¤_94 <mem%?A%=ry%:rpc%=rpc%+1:=0 F Ý¤_64 P Ý¤_74 ZÝ¤_9C:A%=(A%-rx%)€&FFFF d Ý¤_9E nmem%?A%=0:rpc%=rpc%+1:=0 x[Ý¤_A:ra%=ra%*2:rp%=(rp%€&FE)+ra%256:ra%=ra%€&FF:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 ‚Ý¤_6 ŒÝ¤_E – Ý¤_16 Ý¤_1E ªka%=mem%?A%*2:rp%=(rp%€&FE)+a%256:mem%?A%=a%:rp%=(rp%€&7D)„(mem%?A%€128)„((mem%?A%=0)€2):rpc%=rpc%+1:=0 ´dÝ¤_2A:ra%=ra%*2+(rp%€1):rp%=(rp%€&FE)+ra%256:ra%=ra%€&FF:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 ¾ Ý¤_26 È Ý¤_2E Ò Ý¤_36 Ü Ý¤_3E æsa%=mem%?A%*2+(rp%€1):rp%=(rp%€&FE)+a%256:mem%?A%=a%:rp%=(rp%€&7D)„(mem%?A%€128)„((mem%?A%=0)€2):rpc%=rpc%+1:=0 ðPÝ¤_4A:rp%=(rp%€&FE)„(ra%€1):ra%=ra%2:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 ú Ý¤_46 Ý¤_4E Ý¤_56 Ý¤_5E "jrp%=(rp%€&FE)„(mem%?A%€1):mem%?A%=mem%?A%2:rp%=(rp%€&7D)„(mem%?A%€128)„((mem%?A%=0)€2):rpc%=rpc%+1:=0 ,dÝ¤_6A:ra%=ra%+256*(rp%€1):rp%=(rp%€&FE)+(ra%€1):ra%=ra%2:rp%=(rp%€&7D)„(ra%€128)„((ra%=0)€2):=0 6 Ý¤_66 @ Ý¤_6E J Ý¤_76 T Ý¤_7E ^wa%=mem%?A%+256*(rp%€1):rp%=(rp%€&FE)+(a%€1):mem%?A%=a%2:rp%=(rp%€&7D)„(mem%?A%€128)„((mem%?A%=0)€2):rpc%=rpc%+1:=0 hÝ¤_89:A%=rpc% r Ý¤_24 | Ý¤_2C † Ý¤_34 Ý¤_3C šDrp%=(rp%€&3D)„(mem%?A%€&C0)„(((mem%?A%€ra%)=0)€2):rpc%=rpc%+1:=0 ¤Ý¤_C0:A%=rpc% ® Ý¤_C4 ¸ Ý¤_CC ÂpA%=ry%-mem%?A%:rp%=(rp%€254)+(((A%‚256)€256)256):A%=A%€255:rp%=(rp%€&3D)„(A%€128)„((A%=0)€2):rpc%=rpc%+1:=0 ÌÝ¤_E0:A%=rpc% Ö Ý¤_E4 à Ý¤_EC êpA%=rx%-mem%?A%:rp%=(rp%€254)+(((A%‚256)€256)256):A%=A%€255:rp%=(rp%€&3D)„(A%€128)„((A%=0)€2):rpc%=rpc%+1:=0 ôÝ¤_4:Z%=¤m4 þÝ¤_C:Z%=¤mC Krp%=(rp%€253)+(((mem%?A%€ ra%)=0)€2):mem%?A%=mem%?A%„ra%:rpc%=rpc%+1:=0 Ý¤_14:Z%=¤m4 Ý¤_1C:Z%=¤mC &Lrp%=(rp%€253)+(((mem%?A%€ ra%)=0)€2):mem%?A%=mem%?A%€¬ra%:rpc%=rpc%+1:=0 0Ý¤_3 : Ý¤_23 D Ý¤_43 N Ý¤_63 X Ý¤_83 b Ý¤_A3 l Ý¤_C3 v Ý¤_E3 €=¤mos(mem%?(rpc%-1)) ŠÝ¤_2 ” Ý¤_22 ž Ý¤_42 ¨ Ý¤_44 ² Ý¤_54 ¼ Ý¤_5C Æ Ý¤_62 Ð Ý¤_82 Ú Ý¤_C2 ä Ý¤_D4 î Ý¤_DC ø Ý¤_E2 Ý¤_F4 Ý¤_FC =0 Ý¤mos(m%):êX%,Y% *-A%=ra%:X%=rx%+256*ry%:Y%=ry%:C%=rp%:rp%=0 4 ÈŽm%Ê >É&13,&FFF4:=¤mos_byte HÉ&33,&FFEE:ïA%:=0 RÉ&FFEC:ï13:=0 \É&FFE7:Ö&FFE7:=0 fÉ&FFE3:Ö&FFE3:=0 p&É&43,&FFE0:ra%=¥:rp%=(ra%=27)€1:=0 zÉ&73,&FFD7:=¤mos_bget „É&83,&FFD4:=¤mos_bput ŽÉ&A3,&FFCE:=¤mos_find ˜É&63,&FFDA:=¤mos_args ¢É&B3:=¤mos_quit ¬É&C3:=¤mos_lang ¶Ë ÀX%=X%+mem%:Y%=X%256 Ê ÈŽm%Ê ÔÉ&03,&FFF7:=¤mos_cli ÞÉ&23,&FFF1:=¤mos_word èÉ&53,&FFDD:=¤mos_file òÉ&93,&FFD1:=¤mos_gbpb üË =0 Ý¤mos_cli:òcmd($X%,¹):=0 Ý¤mos_byte $çA%=&82:rx%=0:ry%=&00:=0 .çA%=&83:rx%=0:ry%=&08:=0 8*çA%=&84:rx%=prog%€255:ry%=prog%256:=0 B3çA%>123:çA%<127:mem%?escflg%=128*(A%€1):ÿ"FX15" Lhços%<>32:X%=X%€255:A%=º&FFF4:rx%=(A%€&FF00)256:ry%=(A%€&FF0000)65536:rp%=(A%€&1000000)&1000000:=0 V>çA%=128:çrx%=7:È—rx%,A%,A%:ry%=(rx%>>8)€255:rx%=rx%€255:=0 `>çA%=128:çrx%=8:È—A%,rx%,A%:ry%=(rx%>>8)€255:rx%=rx%€255:=0 j ÈŽA%Ê tÉ0:rx%=32:=0 ~É127:rx%=Å#rx%:=0 ˆ/É128:A%=–(rx%+256*ry%):rx%=A%:ry%=A%256:=0 ’=É129:A%=¦(rx%+256*ry%):rx%=A%:ry%=A%256:òcarry(A%=-1):=0 œÉ134:rx%=±:ry%=¼:=0 ¦É135:rx%=¥(±,¼):ry%=ë:=0 °É160 ºPry%=rx%+1:ry%=(@vdu%!(((ry%€-4)+»Á"0312",(ry%€3)+1,1)-2)*4))(8*(1+(ry%€1))) ÄIrx%=(@vdu%!(((rx%€-4)+»Á"0312",(rx%€3)+1,1)-2)*4))(8*(1+(rx%€1))):=0 ÎË Ø=0 âÝ¤mos_word ì`çA%=0:A%=!X%€&FFFF:mem%?255=0:osw0%=¹:òEscOn:è†""A$:òEscOff:$(mem%+A%)=A$:osw0%=£:ry%=©A$:=0 öços%<>32„A%=10:Ö&FFF1:=0 ÈŽA%Ê É1:!X%=‘:=0 É2:Ñ=!X%:=0 É7:Ô!X%,X%!2,X%!4,X%!6:=0 (SÉ8:â?X%,X%?1,X%?2,X%?3,X%?4,X%?5,X%?6,X%?7,X%?8,X%?9,X%?10,X%?11,X%?12,X%?13:=0 2É14:$X%=‘$:=0 <É15:Ñ$=$X%:=0 FË P=0 ZÝ¤mos_file d3çA%=254:çX%?5=&FF:X%?5=0‹çA%=254:X%!2=X%!2+mem% n3çA%=255:çX%?5=&FF:X%?5=0‹çA%=255:X%!2=X%!2+mem% xLçA%=0:çX%?13=&FF:X%?13=0:X%?17=0‹çA%=0:X%!10=X%!10+mem%:X%!14=X%!14+mem% ‚fn%=mem%+(!X%€&FFFF) Œbços%<32:È™"OS_File",A%,fn%,X%!2,X%!6,X%!10,X%!14¸ra%,,X%!2,X%!6,X%!10,X%!14‹ra%=¤file($fn%,A%) –=0 6Ý¤mos_bget:ra%=(º&FFD7):rp%=ra%256:ra%=ra%€255:=0 ªÝ¤mos_bput:Ö&FFD7:=0 ´Ý¤mos_find:çA%=0:Ù#Y%:=0 ¾,ç(A%€&C0)=&40:ra%=¤openin($(mem%+X%)):=0 È-ç(A%€&C0)=&80:ra%=¤openout($(mem%+X%)):=0 Ò,ç(A%€&C0)=&C0:ra%=¤openup($(mem%+X%)):=0 ÜÝ¤mos_gbpb æ+ra%=X%?5:çra%=&FF:X%?5=0‹X%!1=X%!1+mem% ð.A%=º&FFD1:çra%=&FF:X%?5=&FF‹X%!1=X%!1-mem% úra%=A%€255:rp%=A%256:=0 Ý¤mos_args çY%=0:çA%=0:ra%=¤fs:=0 *çY%=0:mem%!X%=¤args(ra%,Y%,mem%!X%):=0 "çA%=0:mem%!X%=#Y%:ra%=0:=0 ,çA%=1:Ï#Y%=mem%!X%:ra%=0:=0 6çA%=2:mem%!X%=¢#Y%:ra%=0:=0 @çA%=3:¢#Y%=mem%!X%:ra%=0:=0 JçA%=4:mem%!X%=¢#Y%:ra%=0:=0 T mem%!X%=¤args(A%,Y%,mem%!X%) ^=0 hÝ¤mos_quit:=¹ rÝ¤mos_lang:=0 |ÝòClose_All:*EXEC †"in%=in%:çin%:A%=in%:in%=0:Ù#A% 'out%=out%:çout%:A%=out%:out%=0:Ù#A% šá ¤/Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " ®+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " ¸=A$ ÂÝ¤uc(A$):êB$:çA$="":="" Ì5õB$=B$+½(—A$€((A$<"@")„&DF)):A$=ÁA$,2):ýA$="":=B$ ÖÝ¤lc(A$):êB$:çA$="":="" à5õB$=B$+½(—A$„((A$<"_")€&20)):A$=ÁA$,2):ýA$="":=B$ ê#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) ô"Ý¤h(A%,N%)=Â" "+Ã~A%,N%) þ#Ý¤d0(A%,N%)=Â"00000000"+ÃA%,N%) #Ý¤d(A%,N%)=Â" "+ÃA%,N%) :Ý¤o0(A%,N%):êA$,B$:çA%<0:B$="7":A%=A%€&7FFFFFFF‹B$="0" 2õA$=Ã(A%€ 7)+A$:A%=A%8:ýA%=0:=ÂÄN%,B$)+A$,N%) &9Ý¤o(A%,N%):êA$,B$:çA%<0:B$="7":A%=A%€&7FFFFFFF‹B$=" " 02õA$=Ã(A%€ 7)+A$:A%=A%8:ýA%=0:=ÂÄN%,B$)+A$,N%) ::Ý¤b0(A%,N%):êA$,B$:çA%<0:B$="1":A%=A%€&7FFFFFFF‹B$="0" D2õA$=Ã(A%€ 1)+A$:A%=A%2:ýA%=0:=ÂÄN%,B$)+A$,N%) N9Ý¤b(A%,N%):êA$,B$:çA%<0:B$="1":A%=A%€&7FFFFFFF‹B$=" " X2õA$=Ã(A%€ 1)+A$:A%=A%2:ýA%=0:=ÂÄN%,B$)+A$,N%) bÝ¤drv(A%)=½(48+A%-7*(A%>9)) l"Ý¤Drv(A$)=—A$-48+7*(A$>"9")€31 v:Ý¤OS_GetEnv:êA$,A%:X%=1:os%=((º&FFF4)€&FF00)256:ÞX%-1 €Jços%=32:ç>&FFFF:È™"GetModuleFileName",0,X%,255:A$=$$X%:run$=A$:=@cmd$ Šços%=32:A$=$&100 ”{ç©A$=0:ç>&7FFF:run$=$&8100:È™"OS_GetEnv"¸A$,,A%:È™"OS_WriteEnv","",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ ž0ç©A$=0:ç?(¸P-3):A$=$&600‹ç©A$=0:A$=$(-&300) ¨7A%=§A$+" "," "):run$=ÀA$,A%-1):çrun$<>"":=ÁA$,A%+1) ²bY%=X%256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:Ö&FFD1:A%=X%+16:ç!A%€?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) ¼="" Æ$Ýòos(A$):ç—A$=42:ÿA$‹çA$<>"":×A$ Ðá Ú@Ýòexit(A%):ÿ"FX1,"+ÃA%:quit$=quit$:A$=quit$:quit$="":òos(A$) äços%=32:È˜A% îços%<6:à‹*Quit øá Ý¤Dis_Name(cpu%)="65x02" 6Ý¤Dis_Code(cpu%,Ptr%,Data%):êop%,ins%,md%,b0%,num% @ç(op%€&8F)=&8A:=Á"TXATXSTAXTSXDEXPHXNOPPLX",3*(op%16)-23,3) Hçop%=&20:="JSR "+¤mde(3) R;ç(op%€&9F)=0:X%?2=(op%€64):=Á"BRK***RTIRTS",ins%*3+1,3) \)ç(op%€&DF)=&5A:=Á"PHYPLY",ins%*3-5,3) fçop%=&89:="BIT "+¤mde(2) p$çb0%=1:=¤alu(ins%)+" "+¤mde(md%) z)ç(op%€31)=&12:=¤alu(ins%)+" "+¤mde(8) „$ç(op%€&EF)=&64:="STZ "+¤mde(md%) Ž(ç(op%€&FD)=&9C:="STZ "+¤mde(b0%*2+3) ˜3ç(op%€&D7)=&96:=¤rot(ins%)+" "+¤mde(md%€3)+",Y" ¢(ç(op%€7)=6:=¤rot(ins%)+" "+¤mde(md%) ¬Nç(op%€&1F)=16:num%=2:="B"+Á"PLMIVCVSCCCSNEEQ",1+2*ins%,2)+" "+¤jr(Data%?1) ¶<ç(op%€&8F)=10:=¤rot((ins%+(md%€4)*1.5)‚((md%>4)€1))+" A" À9ç(op%€&E7)=4:="T"+Á"SR",1+(md%4),1)+"B "+¤mde(md%€3) Ê6ç(op%€&D3)=&C0:=¤bxy(ins%)+" "+¤mde(((md%‚3)-1)€3) Ô$ç(op%€&E7)=&24:="BIT "+¤mde(md%) Þ,ç(op%€&C7)=&84:=¤bxy(ins%)+" "+¤mde(md%) è;ç(op%€&FD)=&A0:="LD"+Á"YX",1+((op%€2)2),1)+" "+¤mde(2) òRç(op%€&CF)=&4C:çop%<>&5C:X%?2=64:="JMP "+À"(",op%>&5F)+¤mde(md%)+À")",op%>&5F) ü0çop%=&80:num%=2:X%?2=64:="BRA "+¤jr(Data%?1) !X%?2=128:="EQUB &"+¤h0(op%,2) 3Ý¤alu(A%)=Á"ORAANDEORADCSTALDACMPSBC",A%*3+1,3) 3Ý¤rot(A%)=Á"ASLROLLSRRORSTXLDXDECINC",A%*3+1,3) $3Ý¤bxy(A%)=Á"***BIT***STZSTYLDYCPYCPX",A%*3+1,3) ./Ý¤mde(A%):num%=2:çA%=2:="#&"+¤h0(Data%?1,2) 8>ç(A%€2):num%=3:="&"+¤h0(Data%!1,4)+À",X",A%=7)+À",Y",A%=6) B+ç(A%€1):="&"+¤h0(Data%?1,2)+À",X",A%=5) L4="(&"+¤h0(Data%!1,2)+À",X",A%=0)+")"+À",Y",A%=4) VDÝ¤jr(A%):çA%<128:="&"+¤h0(Ptr%+A%+2,4)‹="&"+¤h0(Ptr%+A%+2-256,4) `JÝ¤file(A$,A%):ços%<32:$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF jç§A$,".")=0:A$=A$+"." t9çA%=255„A%=5:X%!14=Ž(A$):çX%!14:X%!10=¢#X%!14:Ù#X%!14 ~1çA%=255:çX%?6=0:ÿ"LOAD """+A$+""" "+Ã~X%!2:=1 ˆçA%=5:çX%!14:=1‹çA%=5:=0 ’FçA%=0:ÿ"SAVE """+A$+""" "+Ã~X%!10+" "+Ã~X%!14:X%!10=X%!14-X%!10:=1 œBçA%=7:ÿ"SAVE """+A$+""" "+Ã~+"+"+Ã~X%!10:X%!10=X%!14-X%!10:=1 ¦ çA%=8Œ ° ê…:î…ê:=2 ºÿ"MKDIR "+A$:=2 ÄÍ Î=0 Ø#Ýògbpb(A%,chn%,addr%,num%,ptr%) â2)„X%!5<1:á BÝ¤gbpb(A%):X%!1=data%:Ö&FFD1:A%=data%+((1+?data%)€((A%€-2)=6)) A%?(1+?A%)=13:=$(A%+1) EÝ¤gbpb8(ptr%):X%!1=data%:X%!5=1:X%!9=ptr%:A%=8:Ö&FFD1:çX%!5=1:="" (#A%=data%:A%?(1+?A%)=13:=$(A%+1) 23Ý¤args(A%,Y%,ptr%):êX%,E%:ç?(¸P-3)=0:E%=Y%:Y%=0 <.ç<&8000:ê!&70:X%=&70:!X%=ptr%:Ö&FFDA:=!X% F'È™"OS_Args",A%,Y%,ptr%¸,,ptr%:=ptr% P<Ý¤argsA(A%):ç<&8000:êX%,Y%,E%,!&70:X%=&70:=(º&FFDA)€&FF ZÈ™"OS_Args",A%¸A%:=A% d(Ý¤fs:ços%<32:êA%,Y%,E%:=(º&FFDA)€&FF n=29 x'Ýòcdir(A$):ços%=32:A%=¤file(8,A$):á ‚ç¤file(5,A$)=0:ÿ"CDIR "+A$ Œá –Ý¤openin(A$)=Ž(¤f_name(A$)) Ý¤openout(A$)=Ž(¤f_name(A$)) ªÝ¤openup(A$)=Ž(¤f_name(A$)) ´VÝ¤f_name(A$):ços%=32:êA%,B%:õB%=A%:A%=§A$,"\",A%+1):ýA%=0:ç§A$,".",B%)=0:A$=A$+"." ¾=A$ ÿ