Т > 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-Т v0.15 Added command: PORT Z: d"bugfix%=ё:Т Error in OS_GetEnv n)Н ┘ Рpr:Ж:РClose_All:Я" at line ";·:Ю x@A$=єOS_GetEnv:ver$="0.15":debug%=0:РInit:A%=є_DEBUG(цdebug%) ┌SГbugfix%:Г░>&FFFFF:х≥ "GetCommandLine" ╦ name%:Гї$$name%,"bbcwin.exe")=0:A$="-" ▄Г A$="-":A$="" √quiet%=A$<>"" ═kГ A$="":Я"6502 Emulator v"ver$" (C)2006 J.G.Harston"'"Memory start: &"єh0(mem%,8)" MemSz: &"єh0(mz%,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)) 6RГos%=32:mx%=@vdu%!208:my%=@vdu%!212:mw%=@vdu%!216:mh%=@vdu%!220:mc%=@vdu%?73+1 @Kmz%=єmemsize:mm%=mz%-1:mtop%=mz%:mbot%=0:run%=ё:trace0%=0:trace1%=&FFFF J>ч ctrl% 31,name% 255,mem% mz%:zp%=name%:X%=ctrl%:Y%=X%│256 T+ra%=0:rx%=0:ry%=0:rp%=0:rs%=&1FF:rpc%=0 ^Fosw0%=ё:err%=&100:escflg%=&FF:prog%=&F800:iobase%=-1:memmax%=&F800 h;ч port%(7,1),port$(3):Ц A%=0 ╦ 1:С port$(A%):М:ports%=0 rэ 6850,6551 |Т Initial state: ├=Ъ"Load """+єf_name(runpath$+"TOS64")+""" "+ц~(mem%+&F800) ░DA%=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 0Г A$=""└юA$,1)="|":А :1Т IF LEFT$(A$,1)="*":OSCLI MID$(A$,2):ENDPROC D:Г юA$,1)=".":Ъ "."+аA$,2)+юю"\",╘A$>2)+"*.*",os%=32):А N!Г юA$,1)="/":A$="RUN "+аA$,2) X7Г єuc(юA$,2))="FX":Г ╩аA$,3) └ (аA$,3,1)="0"):ЪA$:А b2A%=їA$+" "," "):C$=єuc(юA$,A%-1)):T$=аA$,A%+1) l_A%=ї" BASIC CORE DEBUG GO HELP LOAD MDUMP MDIS MEDIT QUIT RUN RESET SAVE PORT "," "+C$+" ") v Г A%:A%=═("FN_"+C$+"(T$)"):А ─A%=є_run(C$+" "+T$,link%):А ┼: ■<щє_HELP(A$):Я'"6502 Emulator ";ver$:Г єuc(A$)<>"6502":=0 ·iЯ" BASIC"'" CORE "'" DEBUG ( ( ))";Ґ8'" GO ()"'" HELP" ╗[Я" LOAD "'" MDUMP "'" MDIS "'" PORT ( )(?)" ╡1Я" QUIT"'" RESET ()"'" RUN " ╪>Я" SAVE |+ ( ())" ф=0 п: зщє_PORT(A$):Й B% Д.Г A$="?":Я"Types: "port$(0)", "port$(1):=0 Н Г A$="" ▄ ЬFЦ A%=0 ╦ 7:B%=port%(A%,0):Г B%:Я єh0(B%,4);": ";port$(port%(A%,1)) М:=0 м ":=0 B%=═("&"+єuc(юA$,A%))) *A$=єuc(єs(аA$,A%+1))) 4*A%=-1:У A%=A%+1:Щ A%=7 └ port%(A%,0)=0 >+Г port%(A%,0):┘ 220,"All ports used":=0 Hports%=ports%+1 R1Г A$=port$(0):port%(A%,0)=B%:port%(A%,1)=0:=0 \1Г A$=port$(1):port%(A%,0)=B%:port%(A%,1)=1:=0 f4Т IF A$=port$(2):port%(A%,0)=B%:port%(A%,1)=2:=0 p4Т IF A$=port$(3):port%(A%,0)=B%:port%(A%,1)=3:=0 z0ports%=ports%-1:┘ 220,"Unknown port type":=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%));:М:Я RP%=(P%+N%)─&FFFF:C%=C%-1:size%=size%-N%:Щ C%=0 └ size%<0:Г size%>0:A%=╔ ▀ A%=0 Щ A%=27 └ size%<0:=0 $: .щє_MEDIT(A$):=0 8: Bщє_SAVE(A$) LРfname:Рaddrs V Г num%<2:┘ 252,"Bad address" `(Г start%>=0:start%=mem%+(start%─mm%) jNЪ "SAVE """+єf_name(F$)+""" "+ц~start%+"+"+ц~size%+" "+ц~exec%+" "+ц~load% t=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 1Т PRINT'$(mem%+&F805):A%=mem%!&F5FC AND &FFFF Т ELSE (6Я'"6502 Tube Emulator":Г A$<>"":A%=є_load(A$,-1,╧) 2Т ENDIF <.Т IF FNuc(A$)="NOTUBE":memmax%=&FF00:A$="" F%Я'"Econet Station 128"':Г A%<0:=0 PIhdr%=mem%+A%:Г hdr%!(hdr%?7)=&29432800:B%=hdr%+9:УО?B%:B%=B%+1:Щ?B%=0 ZГ hdr%-mem%=0:О11,11 dЯ':F$="":rp%=0:=є_go n: xщє_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" *Т IF A%<0 OR F%:IF in%:CLOSE#in%:in%=0 +Т IF A%<0:IF F%:ERROR 252,"Bad address" ""Г in%:Г F% └ A%=-1:ы#in%:in%=0 ,'Г A%=-2:Г F%:┘ 214,"File not found" 60Г A%=-1 └ (A%+size%>mm%):┘ 252,"Bad address" @1Г F%:Ъ"Load """+єf_name(F$)+""" "+ц~(mem%+A%) J=A% T: ^%щРsyscmd(cli$):Г os%<>32:Ъ cli$:А h%Й ch%,err$,tmp$:tmp$=@tmp$+ц▒+"." r-Й ┘:Н ┘ Й:В ┘:Г ÷=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 !Т in% =open file being loaded 7Т F$ =file being loaded or "" if already in memory &7Т membot%=base%:err%=memmax%:escflg%=err%+255:B%=A% 0,membot%=&800:err%=&100:escflg%=&FF:B%=A% :Г hdr%!(hdr%?7)=&29432800 ▄ DТ Acorn ROM header N<Г (hdr%?6 ─ 64)=0 :ы#in%:in%=0:┘ 249,"Not a language":=0 X:Г (hdr%?6 ─ 15)>3:ы#in%:in%=0:┘ 249,"Not 6502 code":=0 bFГ (hdr%?6 ─ 32)<>0:B%=hdr%?7:УB%=B%+1:Щhdr%?B%=0:B%=A%+hdr%!(B%+5) lм v: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 ,debug%=═(A$):Г(debug%─1):Г ╪<9:У Я:Щ ╪>8 9A%=їA$," "):Г A%:trace0%=єhex(аA$,A%+1)):A$=аA$,A%+1) *,A%=їA$," "):Г A%:trace1%=єhex(аA$,A%+1)) 4=0 >: HщРSetType(A$,A%):Г os%>8:А RЪ"SetType "+A$+" "+ц~A% \А f: p щєhex(A$) zCГє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$="":А Qnum%=ї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 .А 8: BSщРRegDump:Я"A=&"єh0(ra%,2)" X=&"єh0(rx%,2)" Y=&"єh0(ry%,2)" P=&"єh0(rp%,2);" "; LJЦ A%=7 ╦ 0 ┬ -1:Яа"-CZIDB5VN",(((rp%─(2^A%))<>0)─(A%+1))+1,1);:М:Я" " V&Я "XY=&";:РDumpLine(rx%+256*ry%):Я `Я " S=&";:РDumpLine(rs%):Я jЯ "PC=&";:РDumpLine(rpc%) t4A%=є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% : "щРEscInit:esch%=esch%:Гesch%:А ( Гos%=32 ▄ 2Cч 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 F>repnz scasb:jz escyes:xor eax,eax:ret:.escb%:dw 0:dw 0:]:А Pм Z=ч esch% 31:Ц P=0 ╦ 1:P%=esch%:[OPT P*2:MOV R11,R11,LSL #1 dSLDR R12,escb%:STRB R11,[R12]:MOV PC,R14:.escb%:EQUD mem%+escflg%:]:М:escho%=0:А n$щРEscOff:escho%=escho%:Гescho%:А xLГ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 "Tщє_81:ГB%=&8A:=є_8A ▀ Рio_wr(A%,ra%):rpc%=rpc%+1:=0 :Т STA ,Sщє_A1:ra%=єio_rd(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 Т > IO : 6Т Access absolute memory, checking for I/O devices (6Т ------------------------------------------------ 2щРio_reset:А <: F#щєio_rd(A%):Г ports%=0:=mem%?A% P$Й C%:C%=єio_type:Г C%<0:=mem%?A% Z%Г(A%─&FFFC)<>port%(C%,0):=mem%?A% dA%=A%─15:=═("FNio_rd"+цC%) n: x*щРio_wr(A%,B%):Г ports%=0:mem%?A%=B%:А ┌(Й C%:C%=єio_type:Г C%<0:mem%?A%=B%:А ▄)Г(A%─&FFF0)<>port%(C%,0):mem%?A%=B%:А √"A%=A%─15:A%=═("FNio_wr"+цC%):А ═: ╙щєio_type:C%=A%─&FFFC ЄГ C%=port%(0,0):=0 ЎГ C%=port%(1,0):=1 хТ IF C%=port%(2,0):=2 рТ IF C%=port%(3,0):=2 э=-1 Ф: П Т 6850 ЗJТ base+0 | b7: Enable receive ints | b7: Interupt Request | JТ | b6: RTS low/high | b6: Receive Parity Error | JТ | b5: Enable transmit ints | b5: Receive Data Overrun | JТ | b4: 7bit/8bit data | b4: Framing Error | "JТ | b3: 2/1 stop bits | b3: Clear To Send not present| ,JТ | b2: even/odd parity | b2: DCD not present | 6JТ | b1-0: Clock divide 1/16/64 | b1: Transmit Register Empty | @JТ | or reset | b0: Receive Register Full | JJТ base+1 | Write Data | Read Data | Tщєio_rd0 ^@ГA%=1:=╔ :Т 6850 RxData h4ГA%=0:Г і-256=≈"W":=(√(-1)<>&FF)─1 :Т 6850 RxRDY rГA%=0:=(√(-1)<>&00)─1 |=&7F ├щєio_wr0 ░ГA%=1:О B%:А:Т 6580 TxData ГA%=0:А :Т 6580 TxCtrl єА ў: ╦ Т 6551 бТ base+0 | Data | Data л,Т base+1 | Reset | b7: Interupt Request ж%Т | | b6: DSR level Ю%Т | | b5: DCD level Й.Т | | b4: Transmit Reg Empty Т1Т | | b3: Receive Register Full Ч0Т | | b2: Receive data overrun )Т | | b1: Framing Error 0Т | | b0: Receive Parity error Т base+2 | b7-5: parity &Т | b4: echo 0Т | b3-2: TxControl :"Т | b1: TxIRQ disable D!Т | b0: RxIRQ enable NТ base+3 | b7: stop bits X Т | b6-5: word length bТ | b4: clock lIТ | b3-b0: baud rate: | vщєio_rd1 ─@ГA%=0:=╔ :Т 6551 RxData ┼4ГA%=1:Г і-256=≈"W":=(√(-1)<>&FF)─8 :Т 6551 RxRDY ■ГA%=1:=(√(-1)<>&00)─8 ·=&7F ╗щєio_wr1 ╡ГA%=0:О B%:А:Т 6551 TxData ╪ГA%=1:А :Т 6551 TxRDY фА Т > 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):Г!(░-&100)=@%:A%=░-&300 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%!... ═,Т -------------------------------------- ╙Rщє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$ Ъ