Т > Startup )Т 6502 Tube Emulator written in BASIC ,Т v0.10 Initial program based on PDP11Em (+Т v0.11 &x3 opcodes interface with host 2&Т v0.12 Uses runpath for resources <2Т v0.13 Updated with same base code as PDPTube F+Т v0.14 Added more updates from PDPTube P: Z"bugfix%=ё:Т Error in OS_GetEnv d)Н ┘ Рpr:Ж:РClose_All:Я" at line ";·:Ю n@A$=єOS_GetEnv:ver$="0.14":debug%=0:РInit:A%=є_DEBUG(цdebug%) xSГbugfix%:Г░>&FFFFF:х≥ "GetCommandLine" ╦ name%:Гї$$name%,"bbcwin.exe")=0:A$="-" ┌Г A$="-":A$="" ▄quiet%=A$<>"" √│Г A$="":Я"6502 Emulator v"ver$" (C)2006 J.G.Harston"'"Memory start: &"єh0(mem%,8)" MemSz: &"єh0(mz%,6)" MemMsk: &"єh0(mm%,6) ═WГ A$="":Я"Program space: &"єh0(mbot%,6)"-&"єh0(mtop%,6)" ";(mtop%-mbot%);" bytes"' ╙Н ┘ РError:A$="" ЄГ A$<>"":A%=є_RUN(A$) ЎГ run%:РGo хГ quiet%:A%=є_QUIT("") рН ┘ РError:A$="" э*quiet%=╧:У Х ├"65Em> "A$:Рcmd(A$,╧):Щ0 ФЮ П: З щРInit 5d$=".":s$="/":Гos%>6:d$="/":s$=".":Гos%=32:d$="\" %Гbugfix%:Г░>&FFFFF:run$=@dir$+"*" Hrunpath$=run$:Г юrunpath$,1)="""":runpath$=аrunpath$,2,╘ runpath$-2) "1У runpath$=юrunpath$):Щ їd$+":",бrunpath$,1)) ,RГos%=32:mx%=@vdu%!208:my%=@vdu%!212:mw%=@vdu%!216:mh%=@vdu%!220:mc%=@vdu%?73+1 6Kmz%=єmemsize:mm%=mz%-1:mtop%=mz%:mbot%=0:run%=ё:trace0%=0:trace1%=&FFFF @>ч ctrl% 31,name% 255,mem% mz%:zp%=name%:X%=ctrl%:Y%=X%│256 J+ra%=0:rx%=0:ry%=0:rp%=0:rs%=&1FF:rpc%=0 T-osw0%=ё:err%=&100:escflg%=&FF:prog%=&F800 ^Т Initial state: h=Ъ"Load """+єf_name(runpath$+"TOS64")+""" "+ц~(mem%+&F800) rDA%=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%=ё ╦KГ ╛run%:Рpr:Ж:РClose_All:Яю" at line "+ц·,÷<128 ─ ÷<>17):Г і-1:РRegDump бIГ ÷=25:Гrun%:Г os%=32:run%=ё:О 23,22,mx%;my%;mw%,mh%,mc%,128:run%=╧:А л3Г ÷=17:mem%?255=255:rp%=rp%└(osw0%─1):osw0%=ё:А ж┼Г run%:mem%!err%=÷*256:A%=÷<128 ─ ÷<>17:$(mem%+err%+7)=ю"PDPEm: ",A%)+Ж$+ю" at line "+ц·,A%─(·>0))+Ґ0:rpc%=err%:Г÷=17:mem%?escflg%=&FF ЮА ЙщРpr:Г?(╦P-3):А ▀ Я:А Т: Ч5щРcmd(A$,link%):У:A$=єs(A$):ГюA$,1)="*":A$=аA$,2) (Щ юA$,1)<>"*" ─ юA$,1)<>" ":reset%=0 Г A$=""└юA$,1)="|":А 1Т IF LEFT$(A$,1)="*":OSCLI MID$(A$,2):ENDPROC &:Г юA$,1)=".":Ъ "."+аA$,2)+юю"\",╘A$>2)+"*.*",os%=32):А 0!Г юA$,1)="/":A$="RUN "+аA$,2) :7Г єuc(юA$,2))="FX":Г ╩аA$,3) └ (аA$,3,1)="0"):ЪA$:А D2A%=їA$+" "," "):C$=єuc(юA$,A%-1)):T$=аA$,A%+1) NZA%=ї" BASIC CORE DEBUG GO HELP LOAD MDUMP MDIS MEDIT QUIT RUN RESET SAVE "," "+C$+" ") X Г A%:A%=═("FN_"+C$+"(T$)"):А bA%=є_run(C$+" "+T$,link%):А l: v<щє_HELP(A$):Я'"6502 Emulator ";ver$:Г єuc(A$)<>"6502":=0 ─iЯ" BASIC"'" CORE "'" DEBUG ( ( ))";Ґ8'" GO ()"'" HELP" ┼kЯ" LOAD "'" MDUMP "'" MDIS "'" QUIT"'" RESET ()"'" RUN " ■>Я" SAVE |+ ( ())" ·=0 ╗: ╡щє_MDIS(A$):Й N%,P%,C% ╪-Рaddrs:P%=start%:N%=16:Г num%<2:size%=256 ф(У:C%=16:УЯєo0(P%,6);" ";:A$=єdis(P%) п7Ц A%=0 ╦ N%-1 ┬ 2:Яєo0(mem%!(P%+A%)─&FFFF,6);" ";:М зAЯ┴(21-3.5*N%);:Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я┴(7-N%);A$ ДRP%=(P%+N%)─&FFFF:C%=C%-1:size%=size%-N%:Щ C%=0 └ size%<0:Г size%>0:A%=╔ ▀ A%=0 НЩ A%=27 └ size%<0:=0 Ь: щє_MDUMP(A$):Й N%,P%,C% -Рaddrs:P%=start%:N%=16:Г num%<2:size%=256 У:C%=16:УЯєh0(P%,4);" "; -Ц A%=0 ╦ N%-1:Яєh0(mem%?(P%+A%),2);" ";:М *(Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я 4RP%=(P%+N%)─&FFFF:C%=C%-1:size%=size%-N%:Щ C%=0 └ size%<0:Г size%>0:A%=╔ ▀ A%=0 >Щ A%=27 └ size%<0:=0 H: Rщє_MEDIT(A$):=0 \: fщє_SAVE(A$) pРfname:Рaddrs z Г num%<2:┘ 252,"Bad address" └(Г start%>=0:start%=mem%+(start%─mm%) ▌NЪ "SAVE """+єf_name(F$)+""" "+ц~start%+"+"+ц~size%+" "+ц~exec%+" "+ц~load% ≤=0 ╒: ╛щє_LOAD(A$) І#Рfname:Рaddrs:Г num%=0:load%=-1 ю=є_load(F$,load%,╧) й: т!щє_QUIT(A$):Г ╩ A$:halt%=╧:=0 ч=РClose_All:Т IF os%=32:PRINT"Press SPACE to exit";:A%=GET ХЪ"QUIT":=0 Р: Э0щє_BASIC(A$):Т =FN_RUN("<65Tube$Basic> "+A$) 9Я"BASIC"':=є_RUN(""""+runpath$+єf_name("Basic")+"""") : щє_RESET(A$):ш:A%=-1 $jТ IF FNuc(A$)="TUBE":IF client$<>"":OSCLI"Load """+client$+""" "+STR$~(mem%+&F800):memmax%=&F500:A$="" .Т IF memmax%<&F800 THEN 81Т PRINT'$(mem%+&F805):A%=mem%!&F5FC AND &FFFF B Т ELSE L6Я'"6502 Tube Emulator":Г A$<>"":A%=є_load(A$,-1,╧) VТ ENDIF `.Т IF FNuc(A$)="NOTUBE":memmax%=&FF00:A$="" j%Я'"Econet Station 128"':Г A%<0:=0 tIhdr%=mem%+A%:Г hdr%!(hdr%?7)=&29432800:B%=hdr%+9:УО?B%:B%=B%+1:Щ?B%=0 ~Г hdr%-mem%=0:О11,11 ┬Я':F$="":rp%=0:=є_go ▓: °щє_load(Ь F$,A%,F%) іin%=0:size%=0:Г A%=-1 ▄ ╟=in%=єf_openin(F$):Г in%=0:Г F%:F$=F$+s$:in%=єf_openin(F$) ╨Г in% ▄ д'size%=╒#in%:Рgbpb(4,in%,hdr%,256,0) н2Г hdr%!(hdr%?7)=&29432800 ─ (hdr%?6 ─ 32)<>0 ▄ ь0A%=hdr%?7:УA%=A%+1:Щhdr%?A%=0:A%=hdr%!(A%+1) Бл Л1Г A%<0:Г ░<&FFFFF:х≥"XOS_File",5,F$,-1 ╦ ,,A% Жм л A%=-2:Т Not found м м (7Т IF A%<0:IF F%:IF in%=0:ERROR 214,"File not found" 2*Т IF A%<0 OR F%:IF in%:CLOSE#in%:in%=0 <+Т IF A%<0:IF F%:ERROR 252,"Bad address" F"Г in%:Г F% └ A%=-1:ы#in%:in%=0 P'Г A%=-2:Г F%:┘ 214,"File not found" Z0Г A%=-1 └ (A%+size%>mm%):┘ 252,"Bad address" d1Г F%:Ъ"Load """+єf_name(F$)+""" "+ц~(mem%+A%) n=A% x: ┌%щРsyscmd(cli$):Г os%<>32:Ъ cli$:А ▄%Й ch%,err$,tmp$:tmp$=@tmp$+ц▒+"." √-Й ┘:Н ┘ Й:В ┘:Г ÷=214:Ъ cli$:А ▀ ┘ ÷,Ж$:А ═+Ъ cli$+" 2>"+tmp$:ch%=▌(tmp$):Г ch%=0:А ╙@err$=Ў#ch%:ы#ch%:Ъ"Delete "+tmp$:Г бerr$,1)=",":бerr$,1)="." Є┘ 254,err$:А Ў: хщє_RUN(A$) рLГ ░<&FFFFF:х≥"XOS_File",5,A$ ╦ ,,A%:A%=A%─&FFF00:Г A%=&FFB00=є_BASIC(A$) э#Г ░<&FFFFF:Г A%=&BBC00:A%=&8000 Ф=є_run(A$,ё) П(щє_run(A$,osc%):A$=єs(A$):Г A$="":=0 ЗIC$=A$:Рfname:hdr%=zp%:A%=є_load(F$,-1,ё):Г A%<0:Г osc%:Рsyscmd(C$):=0 "Г A%=-2:┘ 214,"File not found" rp%=1:=є_go щє_go ")Т A% = entry address as 6502 address ,/Т hdr%=>Acorn ROM header in mem%+A% address 6!Т in% =open file being loaded @7Т F$ =file being loaded or "" if already in memory J5membot%=base%:err%=memmax%:escflg%=err%+255:B%=A% TГ hdr%!(hdr%?7)=&29432800 ▄ ^Т Acorn ROM header h<Г (hdr%?6 ─ 64)=0 :ы#in%:in%=0:┘ 249,"Not a language":=0 r:Г (hdr%?6 ─ 15)>3:ы#in%:in%=0:┘ 249,"Not 6502 code":=0 |FГ (hdr%?6 ─ 32)<>0:B%=hdr%?7:УB%=B%+1:Щhdr%?B%=0:B%=A%+hdr%!(B%+5) ├м ░:prog%=A%:Г prog%<&8000:memtop%=memmax% ▀ memtop%=prog% %load%=A%:rpc%=A%:Гin%:ы#in%:in%=0 є РGo:=0 ў: ╦щє_GO(A$):Г A$="":=0 б7A%=їA$,";"):rpc%=єhex(A$):Г A%:A$=аA$,A%+1) ▀ A$="" л*F$="":A%=rpc%:hdr%=mem%+A%:rp%=1:=є_go ж: Ющє_CORE(A$):Т Dump core Й8A$=єf_name(єs(юA$,їA$+" "," ")-1))):ГA$="":A$="core" Т$Ъ"Save "+A$+" "+ц~mem%+"+"+ц~mz% ЧРSetType(A$,&FFD) =0 : =щє_DEBUG(A$):ГA$="":Я"1=Register Dump"'"3=Single Step":=0 &7debug%=0:trace0%=0:trace1%=&FFFF:Г єuc(A$)="OFF":=0 0,debug%=═(A$):Г(debug%─1):Г ╪<9:У Я:Щ ╪>8 :9A%=їA$," "):Г A%:trace0%=єhex(аA$,A%+1)):A$=аA$,A%+1) D,A%=їA$," "):Г A%:trace1%=єhex(аA$,A%+1)) N=0 X: bщРSetType(A$,A%):Г os%>8:А lЪ"SetType "+A$+" "+ц~A% vА ─: ┼ щєhex(A$) ■CГєuc(юA$,2))="&O":=═("&"+єh0(єoct(аA$,3)),8)) ▀ =═("&"+єuc(A$)) ·щєoct(A$):Й A%:У ╗0Г A$>"/" ─ A$<":":A%=A%*8+╩ юA$,1):A$=аA$,2) ╡Щ ╛(A$>"/" ─ A$<":"):=A% ╪: фщРfname пRГюA$,1)="""":A%=їA$+"""","""",2):F$=аA$,2,A%-2) ▀ A%=їA$+" "," "):F$=юA$,A%-1) зA$=єs(аA$,A%+1)):А Д: НщРaddrs Ь+num%=0:start%=0:size%=0:load%=0:exec%=0 A$=єs(A$):Г A$="":А ,num%=їA$,"+"):Г num%=0:num%=їA$+" "," ") Wstart%=єhex(юA$,num%-1)):load%=start%:exec%=load%:A$=єs(аA$,num%)):num%=1:Г A$="":А 5Г юA$,1)="+":size%=0:A$=єs(аA$,2)) ▀ size%=start% *Wnum%=їA$+" "," "):size%=єhex(юA$,num%-1))-size%:A$=єs(аA$,num%+1)):num%=2:Г A$="":А 4Qnum%=їA$+" "," "):exec%=єhex(юA$,num%-1)):A$=єs(аA$,num%+1)):num%=3:Г A$="":А >Gnum%=їA$+" "," "):load%=єhex(юA$,num%-1)):A$=єs(аA$,num%+1)):num%=4 HА R: \SщРRegDump:Я"A=&"єh0(ra%,2)" X=&"єh0(rx%,2)" Y=&"єh0(ry%,2)" P=&"єh0(rp%,2);" "; fJЦ A%=7 ╦ 0 ┬ -1:Яа"-CZIDB5VN",(((rp%─(2^A%))<>0)─(A%+1))+1,1);:М:Я" " p&Я "XY=&";:РDumpLine(rx%+256*ry%):Я zЯ " S=&";:РDumpLine(rs%):Я └Я "PC=&";:РDumpLine(rpc%) ▌4A%=єDis_Code(65,rpc%,mem%+rpc%):Я$(X%+4);┴(56-╠) ≤9Т PRINT "2A=&";:PROCDumpLine(mem%!&2A AND&FFFF):PRINT ╒9Т PRINT "0B=&";:PROCDumpLine(mem%!&0B AND&FFFF):PRINT ╛9Т PRINT "39=&";:PROCDumpLine(mem%!&39 AND&FFFF):PRINT І9Т PRINT "19=&";:PROCDumpLine(mem%!&19 AND&FFFF):PRINT ю#Т PRINT "15=&";FNh0(mem%?&15,2) йА т: ч"щРDumpLine(m%):Я єh0(m%,4)" "; Х'Ц B%=m% ╦ m%+7:Я єc(mem%?B%);:М:О32 Р3Ц B%=m% ╦ m%+7:Я єh0(mem%?(B%─mm%)─&FF,2)" ";:М ЭА : 8щєdis(A%):N%=єDis_Code(65,A%,mem%+(A%─mm%)):=$(X%+4) : $3щєc(A%):A%=A%─255:Г A%<32 └ A%>126:="." ▀ =Ґ A% .: 8"щРEscInit:esch%=esch%:Гesch%:А B Гos%=32 ▄ LCч P% 36, L% -1:[OPT 8:.escyes:mov byte [edi-1],0:mov eax,-1:ret V8.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:]:А jм t=ч 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%:А ▓LГos%<>32:х≥ "OS_ChangeEnvironment",9,esch%,0,0 ╦ ,escho%,escRo%,escbo%:А °:Ъ"ESC OFF":escho%=╧:Н ▒ Г╨esch%:mem%?escflg%=&FF:Ь ▀ Ь іА ╟%щРEscOn:escho%=escho%:Гescho%=0:А ╨HГos%<>32:х≥ "OS_ChangeEnvironment",9,escho%,escRo%,escbo%:escho%=0:А дН ▒ ┤:escho%=0:Ъ"ESC ON":А н: Т > 6502 : (щРGo:abort%=ё:halt%=0:run%=╧:РEscOff (bУ:Г(debug%─1):Г rpc%>=trace0% ─ rpc%<=trace1%:x%=╠:y%=╪:О30:РRegDump:О31,x%,y%:Г(debug%─2):Г ╔ 2|B%=mem%?rpc%:rpc%=rpc%+1:Щ ═("FNm"+ц~(B%─&1C)+"+FN_"+ц~(B%─(((B%─1)<>1)└&E3))):РEscOn:run%=ё:Г ╛quiet% └ abort%:РRegDump <А F: P: Z!щєbr(A%):rpc%=rpc%+1:ГA%=0:=0 d9Гmem%?(rpc%-1)<128:rpc%=(rpc%+mem%?(rpc%-1))─&FFFF:=0 n*rpc%=(rpc%+mem%?(rpc%-1)-256)─&FFFF:=0 x: ┌: ▄@щєm0 :A%=(mem%!((mem%?rpc%+rx%)─&FF))─&FFFF:=0 :Т (zp,X) √@щєm4 :A%=mem%?rpc%:=0 :Т zp ═@щєm8 :A%=rpc%:=0 :Т #n ╙?щєmC :A%=(mem%!rpc%)─&FFFF:rpc%=rpc%+1:=0 :Т abs ЄBщєm10:A%=(mem%!(mem%?rpc%)+ry%)─&FFFF:=0 :Т (zp),Y Ў@щєm12:A%=(mem%!(mem%?rpc%))─&FFFF:=0 :Т (zp) х@щєm14:A%=(mem%?rpc%+rx%)─&FF:=0 :Т zp,X р?щєm18:A%=(mem%!rpc%+ry%)─&FFFF:rpc%=rpc%+(B%─1):=0 :Т abs,Y эAщєm1C:A%=(mem%!rpc%+rx%)─&FFFF:rpc%=rpc%+1:=0 :Т abs,X Ф: П: ЗSщє_1 :ra%=ra%└mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0 :Т ORA Rщє_21:ra%=ra%─mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0:Т AND Rщє_41:ra%=ra%┌mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0:Т EOR ╟щє_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 :Т ADC "Wщє_81:ГA%=rpc%:=є_8A ▀ mem%?A%=ra%:rpc%=rpc%+1:=0 :Т STA ,Tщє_A1:ra%=mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0 :Т LDA 6Їщє_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 :Т CMP @╛щє_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 :Т SBC J: T@щє_12:=єm12+є_1 :Т ORA (zp) ^@щє_32:=єm12+є_21 :Т AND (zp) h@щє_52:=єm12+є_41 :Т EOR (zp) r@щє_72:=єm12+є_61 :Т ADC (zp) |@щє_92:=єm12+є_81 :Т STA (zp) ├@щє_B2:=єm12+є_A1 :Т LDA (zp) ░@щє_D2:=єm12+є_C1 :Т CMP (zp) @щє_F2:=єm12+є_E1 :Т SBC (zp) є: ў: ╦Vщє_8 :mem%?rs%=rp%:rs%=rs%-1:=0 :Т PHP бVщє_28:rs%=rs%+1:rp%=mem%?rs%:=0 :Т PLP лVщє_48:mem%?rs%=ra%:rs%=rs%-1:=0 :Т PHA жVщє_5A:mem%?rs%=ry%:rs%=rs%-1:=0 :Т PHY ЮNщє_68:rs%=rs%+1:ra%=mem%?rs%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т PLA ЙNщє_7A:rs%=rs%+1:ry%=mem%?rs%:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т PLY ТVщє_DA:mem%?rs%=rx%:rs%=rs%-1:=0 :Т PHX ЧNщє_FA:rs%=rs%+1:rx%=mem%?rs%:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т PLX : : 8щє_10:=єbr((rp%─128)┌128) :Т BPL &:щє_30:=єbr(rp%─128) :Т BMI 08щє_50:=єbr((rp%─64)┌64) :Т BVC ::щє_70:=єbr(rp%─64) :Т BVS D<щє_80:=єbr(1) :Т BRA N8щє_90:=єbr((rp%┌1)─1) :Т BCC X:щє_B0:=єbr(rp%─1) :Т BCS b8щє_D0:=єbr((rp%─2)┌2) :Т BNE l:щє_F0:=єbr(rp%─2) :Т BEQ v: ─: ┼;щє_18:rp%=rp%─&FE:=0 :Т CLC ■<щє_38:rp%=rp%└1:=0 :Т SEC ·;щє_58:rp%=rp%─&FB:=0 :Т CLI ╗<щє_78:rp%=rp%└4:=0 :Т SEI ╡;щє_B8:rp%=rp%─&BF:=0 :Т CLV ╪;щє_D8:rp%=rp%─&F7:=0 :Т CLD ф8щє_F8:rp%=rp%└8:Я"**BCD not supported***":=0 :Т SED п: з: Д╛щє_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 :Т BRK Нeщє_20:a%=mem%!rpc%:rpc%=rpc%+1:rs%=rs%-2:mem%?(rs%+1)=rpc%:mem%?(rs%+2)=rpc%│256:rpc%=a%─&FFFF:=0 Ь :Т JSR Tщє_40:rp%=mem%?(rs%+1):rpc%=(mem%!(rs%+2))─&FFFF:rs%=rs%+3:rpc%=rpc%+1:=0 :Т RTI Iщє_4C:rpc%=A%:=0 :Т JMP abs Cщє_60:rpc%=(mem%!(rs%+1))─&FFFF:rs%=rs%+2:rpc%=rpc%+1:=0 :Т RTS Iщє_6C:rpc%=(mem%!A%)─&FFFF:=0 :Т JMP (abs) *Kщє_7C:rpc%=(mem%!A%)─&FFFF:=0 :Т JMP (abs,X) 4Eщє_EA:=0 :Т NOP >: H: RKщє_8A:ra%=rx%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т TXA \Kщє_98:ra%=ry%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т TYA fSщє_9A:rs%=rx%+&100:=0 :Т TXS pKщє_A8:ry%=ra%:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т TAY zKщє_AA:rx%=ra%:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т TAX └Iщє_BA:rx%=rs%─&FF:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т TSX ▌: ≤: ╒Iщє_1A:ra%=(ra%+1)─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т INC A ╛Iщє_3A:ra%=(ra%-1)─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т DEC A ІGщє_88:ry%=(ry%-1)─&FF:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т DEY юGщє_C8:ry%=(ry%+1)─&FF:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т INY йGщє_CA:rx%=(rx%-1)─&FF:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т DEX тGщє_E8:rx%=(rx%+1)─&FF:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т INX ч: Хщє_C6: :Т DEC zp Рщє_CE: :Т DEC abs Эщє_D6: :Т DEC zp,X щє_DE: :Т DEC abs,X Xmem%?A%=(mem%?A%-1)─&FF:rp%=(rp%─&7D)└((mem%?A%)─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 : $щє_E6: :Т INC zp .щє_EE: :Т INC abs 8щє_F6: :Т INC zp,X Bщє_FE: :Т INC abs,X LXmem%?A%=(mem%?A%+1)─&FF:rp%=(rp%─&7D)└((mem%?A%)─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 V: `: jщє_A2:A%=rpc% :Т LDX #n tщє_A6: :Т LDX zp ~щє_AE: :Т LDX abs ┬3щє_B6:A%=(mem%?rpc%+ry%)─&FF :Т zp,X ▓4щє_BE:A%=(A%-rx%+ry%)─&FFFF:rpc%=rpc%+1 :Т abs,Y °Brx%=mem%?A%:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):rpc%=rpc%+1:=0 і: ╟щє_A0:A%=rpc% :Т LDY #n ╨щє_A4: :Т LDY zp дщє_AC: :Т LDY abs нщє_B4: :Т LDY zp,X ьщє_BC: :Т LDY abs,X БBry%=mem%?A%:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):rpc%=rpc%+1:=0 Л: Ж: щє_86: :Т STX zp щє_8E: :Т STX abs +щє_96:A%=(A%-rx%+ry%)─&FFFF :Т STX zp,Y mem%?A%=rx%:rpc%=rpc%+1:=0 (: 2щє_84: :Т STY zp <щє_8C: :Т STY abs Fщє_94: :Т STY zp,X Pmem%?A%=ry%:rpc%=rpc%+1:=0 Z: d: n'щє_64: :Т CLR zp x)щє_74: :Т CLR zp,X ┌&щє_9C:A%=(A%-rx%)─&FFFF :Т CLR abs ▄*щє_9E: :Т CLR abs,X √mem%?A%=0:rpc%=rpc%+1:=0 ═: ╙: Єzщє_A :ra%=ra%*2:rp%=(rp%─&FE)+ra%│256:ra%=ra%─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0: :Т ASL A Ўщє_6 : :Т ASL zp хщє_E : :Т ASL abs рщє_16: :Т ASL zp,X эщє_1E: :Т ASL abs,X Ф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 П: Зxщє_2A:ra%=ra%*2+(rp%─1):rp%=(rp%─&FE)+ra%│256:ra%=ra%─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т ROL A щє_26: :Т ROL zp щє_2E: :Т ROL abs щє_36: :Т ROL zp,X "щє_3E: :Т ROL abs,X ,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 6: @sщє_4A:rp%=(rp%─&FE)└(ra%─1):ra%=ra%│2:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т LSR A Jщє_46: :Т LSR zp Tщє_4E: :Т LSR abs ^щє_56: :Т LSR zp,X hщє_5E: :Т LSR abs,X rjrp%=(rp%─&FE)└(mem%?A%─1):mem%?A%=mem%?A%│2:rp%=(rp%─&7D)└(mem%?A%─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 |: ├xщє_6A:ra%=ra%+256*(rp%─1):rp%=(rp%─&FE)+(ra%─1):ra%=ra%│2:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т ROR A ░щє_66: :Т ROR zp щє_6E: :Т ROR abs єщє_76: :Т ROR zp,X ўщє_7E: :Т ROR abs,X ╦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 б: л: жщє_89:A%=rpc% :Т BIT #n Ющє_24: :Т BIT zp Йщє_2C: :Т BIT abs Тщє_34: :Т BIT zp,X Чщє_3C: :Т BIT abs,X Drp%=(rp%─&3D)└(mem%?A%─&C0)└(((mem%?A%─ra%)=0)─2):rpc%=rpc%+1:=0 : : &щє_C0:A%=rpc% :Т CPY #n 0щє_C4: :Т CPY zp :щє_CC: :Т CPY abs DpA%=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 N: Xщє_E0:A%=rpc% :Т CPX #n bщє_E4: :Т CPX zp lщє_EC: :Т CPX abs vpA%=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 :Т TSB zp ■щє_C :Z%=єmC :Т TSB abs ·Nrp%=(rp%─253)+(((mem%?A% ─ ra%)=0)─2):mem%?A%=mem%?A% └ ra%:rpc%=rpc%+1:=0 ╗: ╡щє_14:Z%=єm4 :Т TRB zp ╪щє_1C:Z%=єmC :Т TRB abs фPrp%=(rp%─253)+(((mem%?A% ─ ra%)=0)─2):mem%?A%=mem%?A% ─ ╛ ra%:rpc%=rpc%+1:=0 п: з: ДТ MOS Interface Н#щє_3 : :Т OSCLI /OSBYTE Ь#щє_23: :Т OSWORD/OSWRCH #щє_43: :Т OSRDCH/OSFILE #щє_63: :Т OSARGS/OSBGET #щє_83: :Т OSBPUT/OSGBPB #щє_A3: :Т OSFIND/OSQUIT * щє_C3: :Т OSLANG/ - 4 щє_E3: :Т - / - >=єmos(mem%?(rpc%-1)) H: R: \щє_2 : :Т --- fщє_22: :Т --- pщє_42: :Т --- zщє_44: :Т --- └щє_54: :Т --- ▌щє_5C: :Т --- ≤щє_62: :Т --- ╒щє_82: :Т --- ╛щє_C2: :Т --- Іщє_D4: :Т --- ющє_DC: :Т --- йщє_E2: :Т --- тщє_F4: :Т --- чщє_FC: :Т --- Х=0 Т > MOS щєmos(m%):Й X%,Y% -A%=ra%:X%=rx%+256*ry%:Y%=ry%:C%=rp%:rp%=0 (х▌ m% й 2и &13,&FFF4:=єmos_byte <и &33,&FFEE:О A%:=0 Fи &FFEC:О 13:=0 Pи &FFE7:ж &FFE7:=0 Zи &FFE3:ж &FFE3:=0 d'и &43,&FFE0:ra%=╔:rp%=(ra%=27)─1:=0 nи &73,&FFD7:=єmos_bget xи &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 6Г A%=&83:rx%=0:ry%=&08:=0 @+Г A%=&84:rx%=prog%─255:ry%=prog%│256:=0 JLГ A%>123:ГA%<127:mem%?escflg%=128*(A%─1):Ъ"FX15" :Т Clear/Set/Ack Escape TiГ os%<>32:X%=X%─255:A%=╨&FFF4:rx%=(A%─&FF00)│256:ry%=(A%─&FF0000)│65536:rp%=(A%─&1000000)│&1000000:=0 ^@Г A%=128:Гrx%=7:х≈ rx%,A%,A%:ry%=(rx%>>8)─255:rx%=rx%─255:=0 h@Г A%=128:Гrx%=8:х≈ A%,rx%,A%:ry%=(rx%>>8)─255:rx%=rx%─255:=0 rх▌ A% й |и 0:rx%=32:=0 ├и 127:rx%=е#rx%:=0 ░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 &Uи 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 0и 14:$X%=▒$:=0 :и 15:я$=$X%:=0 Dк N=0 X: bщєmos_file l7ГA%=254:ГX%?5 =&FF:X%?5=0 ▀ Г A%=254:X%!2=X%!2+mem% v7ГA%=255:ГX%?5 =&FF:X%?5=0 ▀ Г A%=255:X%!2=X%!2+mem% ─QГ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) ■hГ 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%) ·_Т SYS "OS_File",A%,mem%+(!X% AND &FFFF),X%!2,X%!6,X%!10,X%!14 TO ra%,,X%!2,X%!6,X%!10,X%!14 ╗=0 ╡5Т DEFPROCaddr(A%):IFX%!A%<&10000:X%!A%=mem%+A%!X% ╪ Т ENDPROC ф: п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 42ra%=X%?5 :Гra%=&FF:X%?5=0 ▀ X%!1=X%!1+mem% >0A%=╨&FFD1:Гra%=&FF:X%?5=&FF ▀ X%!1=X%!1-mem% Hra%=A%─255:rp%=A%│256:=0 R: \щєmos_args fГY%=0:ГA%=0:ra%=єfs:=0 p*ГY%=0:mem%!X%=єargs(ra%,Y%,mem%!X%):=0 zГA%=0:mem%!X%=▐#Y%:ra%=0:=0 └ГA%=1:о#Y%=mem%!X%:ra%=0:=0 ▌ГA%=2:mem%!X%=╒#Y%:ra%=0:=0 ≤ГA%=3:╒#Y%=mem%!X%:ra%=0:=0 ╒ГA%=4:mem%!X%=╒#Y%:ra%=0:=0 ╛ mem%!X%=єargs(A%,Y%,mem%!X%) І=0 ю: йщєmos_quit:=╧ тщєmos_lang:=0 Т > Dis65 зщєDis_Name(cpu%)="65x02" Д6щєDis_Code(cpu%,Ptr%,Data%):Йop%,ins%,md%,b0%,num% НГop%=&89:="BIT "+єmde(2) H$Гb0%=1:=єalu(ins%)+" "+єmde(md%) R)Г(op%─31)=&12:=єalu(ins%)+" "+єmde(8) \$Г(op%─&EF)=&64:="STZ "+єmde(md%) f(Г(op%─&FD)=&9C:="STZ "+єmde(b0%*2+3) p3Г(op%─&D7)=&96:=єrot(ins%)+" "+єmde(md%─3)+",Y" z(Г(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) >Г(A%─2):num%=3:="&"+єh0(Data%!1,4)+ю",X",A%=7)+ю",Y",A%=6) +Г(A%─1):="&"+єh0(Data%?1,2)+ю",X",A%=5) $4="(&"+єh0(Data%!1,2)+ю",X",A%=0)+")"+ю",Y",A%=4) .Dщєjr(A%):ГA%<128:="&"+єh0(Ptr%+A%+2,4)▀="&"+єh0(Ptr%+A%+2-256,4) !Т > BLib.Close 1.00 09Aug1998 : Т Close Handling (Т ~~~~~~~~~~~~~~ 2: <щРClose_All F"in%=in%:Гin%:A%=in%:in%=0:ы#A% P'out%=out%:Гout%:A%=out%:out%=0:ы#A% ZА "Т > BLib.String 1.00 09Aug1998 : #Т String Manipulation Functions (#Т ============================= 2: <7Т FNs() - strip spaces from start and end of string F7Т ------------------------------------------------- P/щєs(A$):ГюA$,1)=" ":УA$=аA$,2):ЩюA$,1)<>" " Z+ГбA$,1)=" ":УA$=юA$,╘A$-1):ЩбA$,1)<>" " d=A$ n: x+Т FNuc() - convert string to upper case ┌+Т ------------------------------------- ▄щєuc(A$):Й B$:ГA$="":="" √5УB$=B$+Ґ(≈A$─((A$<"@")└&DF)):A$=аA$,2):ЩA$="":=B$ ═: ╙+Т FNlc() - convert string to lower case Є+Т ------------------------------------- Ўщєlc(A$):Й B$:ГA$="":="" х5УB$=B$+Ґ(≈A$└((A$<"_")─&20)):A$=аA$,2):ЩA$="":=B$ р: "Т > BLib.Number 1.01 09Aug1988 (Т v1.00 09Aug1988 JGH: First version 1Т v1.01 12Feb1992 JGH: Added Octal and Binary (?Т v1.02 15Sep2009 JGH: Octal and Binary works for &8xxxxxxx 2: <Т Number Output Routines FТ ~~~~~~~~~~~~~~~~~~~~~~ P: Z#Т Hexadecimal padded with zeros d$щєh0(A%,N%):=б"0000000"+ц~A%,N%) n: x$Т Hexadecimal padded with spaces ┌#щєh(A%,N%):=б" "+ц~A%,N%) ▄: √Т Decimal padded with zeros ═$щєd0(A%,N%):=б"00000000"+цA%,N%) ╙: Є Т Decimal padded with spaces Ў$щєd(A%,N%):=б" "+цA%,N%) х: рТ Octal padded with zeros э5щєo0(A%,N%):Й A$,B%,L%:ГA%<0:B%=2:A%=A%─&7FFFFFFF Ф;УA$=ц(A%─7)+A$:A%=A%│8:L%=L%+3:ЩL%>27:=бц(A%+B%)+A$,N%) П: ЗТ Octal padded with spaces %щєo(A%,N%):Й A$:ГA%<0:=єo0(A%,N%) 2УA$=ц(A%─7)+A$:A%=A%│8:ЩA%=0:=бдN%," ")+A$,N%) : "Т Binary padded with zeros ,>щєb0(A%,N%):Й A$,B$,L%:B$="0":ГA%<0:B$="1":A%=A%─&7FFFFFFF 65УA$=ц(A%─1)+A$:A%=A%│2:L%=L%+1:ЩL%>30:=бB$+A$,N%) @: JТ Binary padded with spaces T%щєb(A%,N%):Й A$:ГA%<0:=єb0(A%,N%) ^2УA$=ц(A%─1)+A$:A%=A%│2:ЩA%=0:=бдN%," ")+A$,N%) h: r)Т Drive character for supplied number | щєdrv(A%):=Ґ(48+A%-7*(A%>9)) ├: ░)Т Drive number for supplied character #щєDrv(A$):=≈A$-48+7*(A$>"9")─31 є: #Т > BLib.ProgEnv 1.06 20Apr2020 : #Т Program Environment Functions (#Т ============================= 2: 31:Г░>&FFFFF:чX%Й256:х≥"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ nCA%=&600-&7B00*(░>&8000)-&3F00*(░>&C000):Г!(░-&108)=@%:A%=░-&208 x;Г?(╦P-3)=0:A%=&100:Г⌠<&FFFF:A%=░-&300:Г!(⌠+512)=@%:A%=⌠ ┌cA$=$A%:Г░=&8F00:run$=A$:х≥16╦A$,,A%:х≥72,"",A%:A$=аA$,1+їA$+" "," ",1+їA$," "))):Г╘A$=0:A$=run$ ▄UЦY%=-1╦0:A$=" "+A$:УA$=аA$,2):Щ≈A$<>32:Г≈A$=34:A%=їA$,"""",2)+1 ▀ A%=їA$+" "," ") √9ГY%:run$=аA$,1-(≈A$=34),A%-1+2*(≈A$=34)):A$=аA$,A%+1) ═ М:=A$ ╙: Є.Т Run a program, passing it a command line Ў=Т If program is *Command, called with OSCLI, else CHAINed х=Т ------------------------------------------------------- р#щРos(A$):Г≈A$=42:ЪA$ ▀ Г╘A$:вA$ эА Ф: П(Т Exit program, setting return value З(Т ---------------------------------- FщРexit(A%):Ъ"FX1,"+ц(A%─255):quit$=quit$:A$=quit$:quit$="":Рos(A$) Г░>&FFFFF:х≤ A% ▀ Ю А ": *Т > BLib.Generic.FileIO 1.05 22Mar2008 0Т v1.05 22Mar2009 Optimised CDIR in FNfile() ,Т v1.04 22Mar2008 FNf_scan strips spaces (7Т v1.03 15Feb2008 Add veneer functions in f_ domain 2KТ v1.02 28Apr2007 Added functions to FNfile on DOS, PROCcdir, FNopenout <7Т v1.01 07Sep2006 FNargs avoid zero page on RISC OS F%Т v1.00 09Aug1988 Initial version P: Z%Т General File Interface Routines d%Т =============================== n: x8Т FNfile(), PROCgbpb(), FNfs are callable on Windows ┌8Т -------------------------------------------------- ▄: √,Т Returns file type, file info in X%!... ═,Т -------------------------------------- ╙Sщєfile(A$,A%):ГA%<>8:Г░<&FFFFF:$name%=A$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF ЄTA$=єf_name(A$):ГA%=255 └ A%=5:X%!14=▌(A$):ГX%!14:X%!10=╒#X%!14:ы#X%!14:X%!14=&33 Ў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:=0 П-Г(os%─-24):A$="mkdir "+A$ ▀ A$="cdir "+A$ ЗГ⌠>&FFFF:Й ┘:Н ┘ Й:=0 ЪA$:=2 : Т General OSGBPB call "Т ------------------- ,%щРf_gbpb(A%,chn%,addr%,num%,ptr%) 6>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFFF:ж&FFD1:А @ГA%=1└A%=3:о#?X%=X%!9 J5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% T5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А ^: h#щРgbpb(A%,chn%,addr%,num%,ptr%) r>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFFF:ж&FFD1:А |ГA%=1└A%=3:о#?X%=X%!9 ├5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% ░5X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А : є@Т Return current disk (5), directory (6) or library (7) name ў@Т ---------------------------------------------------------- ╦щєgbpb(A%):Г░>&FFFFF:="" бNX%!1=name%:ж&FFD1:A%=name%+((1+?name%)─((A%─-2)=6)):A%?(1+?A%)=13:=$(A%+1) л: жBТ Returns entry in current directory, or null string if at end ЮBТ ------------------------------------------------------------ Й щєf_scan(ptr%):Г░>&FFFFF:="" Т7X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" Ч7A%=name%+1:A%!(A%?-1)=&D20:A%?(ї$A%," ")-1)=13:=$A% : щєgbpb8(ptr%):Г░>&FFFFF:="" 7X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" &7A%=name%+1:A%!(A%?-1)=&D20:A%?(ї$A%," ")-1)=13:=$A% 0: :7Т OSARGS call with data. Returns any returned data D7Т ------------------------------------------------- N6щєf_args(A%,Y%,ptr%):Й X%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0 X Г ё ▄ b&Й !&70:X%=&70:!X%=ptr%:ж&FFDA:=!X% lл v#х≥"OS_Args",A%,Y%,ptr% ╦ ,,ptr% ─м:=ptr% ┼: ■4щєargs(A%,Y%,ptr%):Й X%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0 · Г ё ▄ ╗&Й !&70:X%=&70:!X%=ptr%:ж&FFDA:=!X% ╡л ╪#х≥"OS_Args",A%,Y%,ptr% ╦ ,,ptr% фм:=ptr% п: з'Т OSARGS call ignoring X, returns A Д'Т --------------------------------- Нщєf_argsA(A%):Г ё ▄ Ь(Й X%,Y%,E%,!&70:X%=&70:=(╨&FFDA)─&FF л х≥"OS_Args",A% ╦ A% м:=A% : *щєargsA(A%):Г ё ▄ 4(Й X%,Y%,E%,!&70:X%=&70:=(╨&FFDA)─&FF >л Hх≥"OS_Args",A% ╦ A% R м:=A% \: f&Т Get current filing system number p&Т -------------------------------- z.щєfs:Г(os%─-32)=0:Й A%,Y%,E%:=(╨&FFDA)─&FF └=29 ▌: ≤Т Delete an object ╒Т ---------------- ╛<щРf_delete(A$):Г(os%─-24):A$="del "+A$ ▀ A$="delete "+A$ І ЪA$:А ю: йТ Select a directory тТ ------------------ ч5щРf_dir(A$):Г(os%─-24):A$="cd "+A$ ▀ A$="dir "+A$ Х ЪA$:А Р: Э1Т Create a directory only if it doesn't exist 1Т ------------------------------------------- щРf_cdir(A$): -Г(os%─-24):A$="mkdir "+A$ ▀ A$="cdir "+A$ $ Г ё ▄ . ЪA$:А 8м BЙ ┘:Н ┘ Й:А LЪA$ VА `: j.Т Open an input file ensuring no extension t.Т ---------------------------------------- ~!щєf_openin(A$)=▌(єf_name(A$)) ┬: ▓/Т Open an output file ensuring no extension °/Т ----------------------------------------- і"щєf_openout(A$)=ў(єf_name(A$)) ╟: ╨/Т Open an update file ensuring no extension д/Т ----------------------------------------- н!щєf_openup(A$)=ґ(єf_name(A$)) ь: БWщєf_name(A$):Гos%─-32:ЙA%,B%:УB%=A%:A%=їA$,"\",A%+1):ЩA%=0:ГїA$,".",B%)=0:A$=A$+"." Л=A$ Ъ