Т > Startup &Т PDP11 Emulator with disassembler Т v0.12 2004 Some more work (+Т v0.13 2005 *Commands, RTS, EMT, TRAP 2[Т v0.14 01-Sep-2005 More EMTs and TRAPs, mode 7(pc) seems to work, works on PC/Windows > ЗKТ v0.29a 29-Apr-2020 Tweeks to FNload() and FNrun(), V fixed on CMP/SUB PТ v0.30 11-Mar-2021 Added *SAVE, start/len/exec/load address general parser ]Т v0.30a 21-Apr-2021 OSCLI catches DOS errors, quiet exit from running from PDP11> prompt : "1slowfix%=╧:Т Don't use Client on slow systems ,"bugfix%=ё:Т Error in OS_GetEnv 6)Н ┘ Рpr:Ж:РClose_All:Я" at line ";·:Ю @@A$=єOS_GetEnv:ver$="0.30":debug%=0:РInit:A%=є_DEBUG(цdebug%) JSГbugfix%:Г░>&FFFFF:х≥ "GetCommandLine" ╦ name%:Гї$$name%,"bbcwin.exe")=0:A$="-" TYГ A$="":Гos%=32:in%=▌(@dir$+"basic.rom"):Гin%:ы#in%:in%=0:A$=""""+@dir$+"basic.rom""" ^Г A$="-":A$="" hquiet%=A$<>"" r>Г A$="":Я"PDP11 Emulator v"ver$" (C)2001-2021 J.G.Harston" |^Г A$="":Я"Memory start: &"єh0(mem%,8)" MemSz: &"єh0(mz%,6):Т " MemMsk: &"FNh0(mm%,6) ├PГ A$="":Я"base: &"єh0(base%,4)" prog: &"єh0(prog%,4)" err: &"єh0(err%,4) ░=Т IF A$="":PRINT" sys: &";FNh0(sys%,4)" io: &"FNh0(io%,4) ^Г A$="":Я"Program space: &"єh0(membot%,4)"-&"єh0(memtop%,4)" ";(memtop%-membot%);" bytes" єН ┘ РError:A$="" ўГ A$<>"":A%=є_RUN(A$) ╦Г run%:РGo бГ quiet%:A%=є_QUIT("") лН ┘ РError:A$="" ж+quiet%=╧:У Х ├"PDP11> "A$:Рcmd(A$,╧):Щ0 ЮЮ Й: Т щРInit Ч6d$=".":s$="/":Гos%─40: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 0Emz%=єmemsize:mm%=mz%-1:memmax%=mz%:run%=ё:trace0%=0:trace1%=&FFFF :Tч ctrl% 31,name% 255,r%(7),mem% mz%:zp%=name%:hdr%=zp%:psw%=0:X%=ctrl%:Y%=X%│256 DNbasic$="":Г os%>31:basic$=@dir$+"basic.rom" ▀ Г os%=6:basic$="" NPРclient:Г client$<>"":Ъ "Load """+client$+""" "+ц~(mem%+&F800):memmax%=&F600 XYbase%=єmem(&100):base%=єmem(0):prog%=base% :Т Allocate low memory b[err%=єmem(-&100):err0%=err%:mem%?err%=13:escflg%=err%+255 :Т Allocate high memory lYmemtop%=memmax%:membot%=base%:reset%=0:trapvec%=0:errvec%=0:emt%=0:ind%=0:r7%=0:pc%=0 vРEscInit:А ─: ┼>щєmemsize:A%=2^╗(╙(⌠-▓-1024)/╙2):Г A%<&10000:=A% ▀ =&10000 ■Qщєmem(A%):Г A%<0:memmax%=memmax%+A%:=memmax% ▀ membot%=membot%+A%:=membot%-A% ·щРclient:client$="":pc%=0:У ╗6client$=а"Tube ClientSerial",pc%*6+1,6+2*(pc%=0)) ╡mГ os%>31:client$=єf_name(runpath$+client$+"11.pdp") ▀ Г ╛slowfix%:client$=єf_name(runpath$+client$+"11*") ╪-in%=▌(client$):pc%=pc%+1:Щ pc%=3 └ in%<>0 ф"Г in%:ы#in%:in%=0 ▀ client$="" пА з: ДщРError:X%=ctrl%:Y%=X%│256 НГ і-1:run%=ё ЬKГ ╛run%:Рpr:Ж:РClose_All:Яю" at line "+ц·,÷<128 ─ ÷<>17):Г і-1:РRegDump cГ ÷=25:Гrun%:Г os%=32:run%=ё:О 23,22,mx%;my%;mw%,mh%,mc%,128:run%=╧:r%(7)=r7%+(r%(7)─(r7%=0)):А SТ IF ERR=17:mem%?escflg%=255:psw%=psw%OR(osw0%AND1):IFosw0%:osw0%=FALSE:ENDPROC оТ IF run%:mem%!err%=ERR:mem%!(err%+4)=&880F:mem%?(err%+6)=ERR:$(mem%+err%+7)=LEFT$("PDPEm: ",ERR<128 AND ERR<>17)+REPORT$+CHR$0:PROCpsw(0,0,TRUE,TRUE,ERR=17,ERR=17):r%(0)=err%+6:IFERR=17:mem%?escflg%=&FF ╧Г run%:mem%!err%=÷:mem%!(err%+4)=&880F:mem%?(err%+6)=÷:A%=÷<128 ─ ÷<>17:$(mem%+err%+7)=ю"PDPEm: ",A%)+Ж$+ю" at line "+ц·,A%─(·>0))+Ґ0:psw%=psw%└3:r%(0)=err%+6:Г÷=17:mem%?escflg%=&FF *Г r7%:r%(7)=r7% 4Г ind%:r%(7)=ind% >Г errvec%:r%(7)=errvec% HА RщРpr:Г?(╦P-3):А ▀ Я:А \: f5щРcmd(A$,link%):У:A$=єs(A$):ГюA$,1)="*":A$=аA$,2) p(Щ юA$,1)<>"*" ─ юA$,1)<>" ":reset%=0 zГ A$=""└юA$,1)="|":А └Г юA$+" ",3)="ls ":A$="." ▌1Т IF LEFT$(A$,1)="*":OSCLI MID$(A$,2):ENDPROC ≤:Г юA$,1)=".":Ъ "."+аA$,2)+юю"\",╘A$>2)+"*.*",os%=32):А ╒!Г юA$,1)="/":A$="RUN "+аA$,2) ╛7Г єuc(юA$,2))="FX":Г ╩аA$,3) └ (аA$,3,1)="0"):ЪA$:А І2A%=їA$+" "," "):C$=єuc(юA$,A%-1)):T$=аA$,A%+1) юZA%=ї" BASIC CORE DEBUG GO HELP LOAD MDUMP MDIS MEDIT QUIT RUN RESET SAVE "," "+C$+" ") й Г A%:A%=═("FN_"+C$+"(T$)"):А тA%=є_run(C$+" "+T$,link%):А ч: Х>щє_HELP(A$):Я'"PDP11 Emulator ";ver$:Г єuc(A$)<>"PDP11":=0 РhЯ" 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 8(У:C%=16:УЯєo0(P%,6);" ";:A$=єdis(P%) B7Ц A%=0 ╦ N%-1 ┬ 2:Яєo0(mem%!(P%+A%)─&FFFF,6);" ";:М LAЯ┴(21-3.5*N%);:Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я┴(7-N%);A$ VRP%=(P%+N%)─&FFFF:C%=C%-1:size%=size%-N%:Щ C%=0 └ size%<0:Г size%>0:A%=╔ ▀ A%=0 `Щ A%=27 └ size%<0:=0 j: tщє_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 н: ьщє_SAVE(A$) БРfname:Рaddrs Л Г 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 2=є_load(F$,load%,╧) <: F!щє_QUIT(A$):Г ╩ A$:halt%=╧:=0 P=РClose_All:Т IF os%=32:PRINT"Press SPACE to exit";:A%=GET ZЪ"QUIT":=0 d: nщє_BASIC(A$) x&Г basic$<>"":=є_RUN(basic$+" "+A$) ┌=є_RUN("basic "+A$) ▄: √щє_RESET(A$):ш:A%=-1 ═^Г єuc(A$)="TUBE":Г client$<>"":Ъ"Load """+client$+""" "+ц~(mem%+&F800):memmax%=&F500:A$="" ╙Г memmax%<&F800 ▄ Є)Я'$(mem%+&F805):A%=mem%!&F5FC ─ &FFFF Ўл х7Я'"PDP11 Tube Emulator":Г A$<>"":A%=є_load(A$,-1,╧) рм э*Г єuc(A$)="NOTUBE":memmax%=&FF00:A$="" Ф%Я'"Econet Station 128"':Г A%<0:=0 ПIhdr%=mem%+A%:Г hdr%!(hdr%?7)=&29432800:B%=hdr%+9:УО?B%:B%=B%+1:Щ?B%=0 ЗГ hdr%-mem%=0:О11,11 :Я':F$="":psw%=0:=є_go:Т Needs to ensure no stack frame : щє_load(Ь F$,A%,F%) "in%=0:size%=0:Г A%=-1 ▄ ,Cin%=єf_openin(F$):Г in%=0:Г F%:F$=F$+s$+"pdp":in%=єf_openin(F$) 6Г in% ▄ @'size%=╒#in%:Рgbpb(4,in%,hdr%,256,0) JNmagic%=!hdr% ─ &FFFF:Г magic%<&105 └ magic%>&111:A%=-1 ▀ A%=0:Т No address T2Г hdr%!(hdr%?7)=&29432800 ─ (hdr%?6 ─ 32)<>0 ▄ ^0A%=hdr%?7:УA%=A%+1:Щhdr%?A%=0:A%=hdr%!(A%+1) hл r1Г 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" Ю0Г A%=-1 └ (A%+size%>mm%):┘ 252,"Bad address" Й1Г F%:Ъ"Load """+єf_name(F$)+""" "+ц~(mem%+A%) Т=A% Ч: %щРsyscmd(cli$):Г os%<>32:Ъ cli$:А %Й ch%,err$,tmp$:tmp$=@tmp$+ц▒+"." -Й ┘:Н ┘ Й:В ┘:Г ÷=214:Ъ cli$:А ▀ ┘ ÷,Ж$:А &+Ъ cli$+" 2>"+tmp$:ch%=▌(tmp$):Г ch%=0:А 0@err$=Ў#ch%:ы#ch%:Ъ"Delete "+tmp$:Г бerr$,1)=",":бerr$,1)="." :┘ 254,err$:А D: Nщє_RUN(A$) XYГ ░<&FFFFF:х≥"XOS_File",5,A$ ╦ ,,A%:A%=A%─&FFF00:Г A%=&FFB00 └ A%=&1C700:=є_BASIC(A$) b=є_run(A$,ё) l(щє_run(A$,osc%):A$=єs(A$):Г A$="":=0 vIC$=A$:Рfname:hdr%=zp%:A%=є_load(F$,-1,ё):Г A%<0:Г osc%:Рsyscmd(C$):=0 ─"Г A%=-2:┘ 214,"File not found" ┼psw%=1:=є_go ■ щє_go ·*Т A% = entry address as PDP11 address ╗/Т hdr%=>Acorn ROM header in mem%+A% address ╡!Т in% =open file being loaded ╪7Т F$ =file being loaded or "" if already in memory ф/membot%=base%:err%=memmax%:escflg%=err%+255 пГ memtop%<&F800 ─ A%>&FF ▄ з,Т Client present and entry address known ДAГ F$<>"":ы#in%:in%=0:Ъ"Load """+єf_name(F$)+""" "+ц~(mem%+A%) Н:prog%=A%:Г prog%<&8000:memtop%=memmax% ▀ memtop%=prog% ЬsB%=A%:hdr%=mem%+A%:Г hdr%!(hdr%?7)=&29432800:Г (hdr%?6 ─ 32)<>0:B%=hdr%?7:УB%=B%+1:Щhdr%?B%=0:B%=A%+hdr%!(B%+5) &111 ▀ memtop%=memmax% Fmem%!&F5F0=err%:$(mem%+err%)=A$ :Т LPTR=command tail Amem%!&F5F4=membot% :Т MEMBOT=&0100 Amem%!&F5F6=memtop% :Т MEMTOP=&F500 *Gmem%!&F5F8=A%:r%(1)=A%:prog%=A% :Т ADDR=dest, R1=dest 4EA%=&F800:У:A%=A%+2:Щmem%!A%=&9F700A1 :Т Look for CLC:JSR CLI_WAIT >=r%(7)=A%+(mem%!(A%+4)─&FFFF)+12 :Т R7=EXECUTE H РGo:=0 Rм \ B%=A% fГ hdr%!(hdr%?7)=&29432800 ▄ pТ Acorn ROM header z<Г (hdr%?6 ─ 64)=0 :ы#in%:in%=0:┘ 249,"Not a language":=0 └<Г (hdr%?6 ─ 15)<>7:ы#in%:in%=0:┘ 249,"Not PDP11 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% ╛3r%(6)=(memtop%-2)─-2:Г(debug%─16)=0:r%(5)=&0BBC ІfГ F$="":r%(0)=1:r%(7)=A%:mem%?r%(6)=0:mem%?(r%(6)+1)=0:РGo:=0 :Т No Client, code already in memory ю8load%=A%:exec%=B%:Г A%<>B%:Рgbpb(3,in%,zp%,16,B%-A%) йjmagic%=!zp% ─ &FFFF:Г magic%<&105 └ magic%>&111:magic%=0 ▀ magic%=16:exec%=exec%-load%:load%=0:prog%=0 т.Г magic%=0:Рgbpb(3,in%,mem%+load%,╒#in%,0) чTГ magic% :Рgbpb(3,in%,mem%+load%,╒#in%-(exec%-load%-magic%),exec%-load%+magic%) ХIы#in%:in%=0:r%(7)=exec%:Г prog%<&8000:memtop%=memmax% ▀ memtop%=prog% Р}Г magic%:Рframe ▀ r%(6)=(r%(6)-╘C$-3)─-2:$(mem%+r%(6)+2)=C$:r%(1)=r%(6)+2:mem%?0=0:mem%?1=0:mem%?r%(6)=0:mem%?(r%(6)+1)=0 Э РGo:=0 : $Т When running code within Unix: /Т r0-r5=0, r6=top of memory, r7=entry point $#Т (sp)=>argn, argv[], envv[], 0 .CТ Code expects text segment at header+16 to be at address &0000 8Т Code entered at header!10 B%Т Not relocatable if header!14<>0 L%Т Cannot RTS to system, must exit V9Т If no header, &0000 pushed onto stack, [&0000]=halt `: jТ Set up entry from header t0Т Create stack frame with command parameters ~oТ sp=>argn, ->arg[0], ->arg[1], .., 0, ->env[0], ->env[1], .., 0, arg[0], arg[1], .., env[0], env[1], .., 0 ┬7Т eg 2, ->cat, ->file, 0, 0, "cat"+0, "file"+0, 0 ▓Т Need to: °)Т scan for file >>file options іщРframe ╟Т Clear data area: ╨]A%=(zp%!6)─&FFFF:Г A%:B%=(zp%!2 ─&FFFF)+(zp%!4 ─&FFFF):У mem%?B%=0:B%=B%+1:A%=A%-1:Щ A%=0 д,Т Set membot to end of code+idata+udata: нKmembot%=((zp%!2)─&FFFF)+((zp%!4)─&FFFF)+((zp%!6)─&FFFF)+((zp%!8)─&FFFF) ь:r%(7)=zp%!10 ─ &FFFF :Т Set PC to entry point Б/Т Convert multiple spaces to single spaces: Л,У:A%=їA$," "):Г A%:A$=юA$,A%)+аA$,A%+2) ЖЩ A%=0:Г A$<>"":A$=A$+" " .Т Convert spaces to nulls, and count them: LC%=1:У:A%=їA$," "):Г A%:A$=юA$,A%-1)+Ґ0+юҐ0,(A%─1)<>0)+аA$,A%+1):C%=C%+1 Щ A%=0 %Т Put arguments at top of memory: (A%=(memtop%-╘A$-3)─-2 2B%=(A%-╘F$-1)─-2 <$(mem%+B%)=F$+Ґ0+Ґ0 F$(mem%+A%)=A$+Ґ0+Ґ0 PMA%=B%-C%*2-6:r%(6)=A% :Т Drop SP to make space for stack frame: Z6mem%?A%=C%:mem%?(A%+1)=C%│256 :Т Put argn on stack dA%=A%+2 nТ Point to strings on stack xУ ┌)mem%?A%=B%:mem%?(A%+1)=B%│256:A%=A%+2 ▄5У:B%=B%+1:Щmem%?B%=0 └ B%>=memtop%-2:B%=(B%+2)─-2 √Щ B%>=memtop%-2 ═Smem%!(A%-2)=0 :Т End of arg[] list and null env[] list: ╙Qmem%?(memtop%-2)=0:mem%?(memtop%-1)=0 :Т terminating null at top of arguments Є"Т P.~r%(6):A%=FN_MDUMP("FE00") ЎА х: рщє_GO(A$):Г A$="":=0 э8A%=їA$,";"):r%(7)=єhex(A$):Г A%:A$=аA$,A%+1) ▀ A$="" Ф,F$="":A%=r%(7):hdr%=mem%+A%:psw%=1:=є_go П: Зщє_CORE(A$):Т Dump core 8A$=єf_name(єs(юA$,їA$+" "," ")-1))):ГA$="":A$="core" $Ъ"Save "+A$+" "+ц~mem%+"+"+ц~mz% РSetType(A$,&FFD) "=0 ,: 6┼щє_DEBUG(A$):ГA$="":Я" 1=Register Dump"'" 3=Single Step"'" 4=EMT/TRAP calls"'" 8=ignore odd word accesses"'"16=r5<>&BBC on startup":=0 @7debug%=0:trace0%=0:trace1%=&FFFF:Г єuc(A$)="OFF":=0 J,debug%=═(A$):Г(debug%─1):Г ╪<9:У Я:Щ ╪>8 T9A%=їA$," "):Г A%:trace0%=єhex(аA$,A%+1)):A$=аA$,A%+1) ^,A%=їA$," "):Г A%:trace1%=єhex(аA$,A%+1)) h=0 r: |щРSetType(A$,A%):Г os%>8:А ├Ъ"SetType "+A$+" "+ц~A% ░А : є щє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$+" "," ") 0Wstart%=є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% DWnum%=їA$+" "," "):size%=єhex(юA$,num%-1))-size%:A$=єs(аA$,num%+1)):num%=2:Г A$="":А NQnum%=їA$+" "," "):exec%=єhex(юA$,num%-1)):A$=єs(аA$,num%+1)):num%=3:Г A$="":А XGnum%=їA$+" "," "):load%=єhex(юA$,num%-1)):A$=єs(аA$,num%+1)):num%=4 bА l: vщРRegDump:Й N%:Г ╠:Я ─OЦ A%=0╦7:Я"R";A%;"= "єo0(r%(A%)─&FFFF,6)": ";єc(r%(A%)│256);єc(r%(A%));" "; ┼-Ц B%=r%(A%)╦r%(A%)+7:Я єc(mem%?B%);:М:О32 ■>Ц B%=r%(A%)╦r%(A%)+7 ┬2:Я єo0(mem%!(B%─mm%)─&FFFF,6)" ";:М ·$Я:М:Я"PSW="єo0(psw%,6);":";┴(5); ╗3Я ;(psw%─&E0)│32;":";а"T-",((psw%─16)<>0)+2,1); ╡8Я а"M-",((psw%─8)<>0)+2,1);а"Z-",((psw%─4)<>0)+2,1); ╪JЯ а"V-",((psw%─2)<>0)+2,1);а"C-",((psw%─1)<>0)+2,1);┴1;єdis(r%(7));┴12 фА п: зPщєdis(A%):N%=єDis_Code(11,A%,mem%+(A%─mm%)):A$=$(X%+4):A%=їA$,"&"):ГA%=0:=A$ Д=B%=A%:УB%=B%+1:Щї"0123456789ABCDEF",аA$,B%,1))=0 └ B%>╘A$ Н@A$=юA$,A%)+"o"+єo0(═(аA$,A%,B%-A%+1)),(B%-A%-1)*3/2)+аA$,B%) Ь=A$ : 3щєc(A%):A%=A%─255:Г A%<32 └ A%>126:="." ▀ =Ґ A% : "щРEscInit:esch%=esch%:Гesch%:А *Г ░>&FFFFF ▄ 4Cч 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 H>repnz scasb:jz escyes:xor eax,eax:ret:.escb%:dw 0:dw 0:]:А Rм \=ч esch% 31:Ц P=0 ╦ 1:P%=esch%:[OPT P*2:MOV R11,R11,LSL #1 fSLDR R12,escb%:STRB R11,[R12]:MOV PC,R14:.escb%:EQUD mem%+escflg%:]:М:escho%=0:А p$щРEscOff:escho%=escho%:Гescho%:А zKГos%<32:х≥ "OS_ChangeEnvironment",9,esch%,0,0 ╦ ,escho%,escRo%,escbo%:А └:Ъ"ESC OFF":escho%=╧:Н ▒ Г╨esch%:mem%?escflg%=&FF:Ь ▀ Ь ▌А ≤1щРEscOn:Г ░>&FFFFF:Н ▒ ┤:escho%=0:Ъ"ESC ON":А ╒?х≥ "OS_ChangeEnvironment",9,escho%,escRo%,escbo%:escho%=0:А Т > PDP11 $Т 08-Nov-2007: ops 1-7, SPL done >Т 12-Aug-2008: SXT, ASHC, SOB, ops 1-7, SPL, M[F|T]PS done (0Т 17-Jun-2010: Entering code resets handlers 2-Т 17-Jul-2018: MUL sets Cy=(result>&FFFF) <@Т 27-Jul-2018: Rewrote MUL, shifts and rotates use << and >> F4Т 05-Aug-2018: PROCpsw(xxAND&FFFF/&FF in ADD/SUB P8Т MOVB is only op that sets b8-b15 of dest. register ZJТ MUL treat arguments as signed, &FFFF x 100 = -100, fixed V on ASH(C) d: n5щРGo:abort%=ё:halt%=0:run%=╧:r7%=0:ind%=0:РEscOff x5Т err%=err0%:escflg%=err%+255:escvec%=0:errvec%=0 ┌dУ:Г(debug%─1):Г r%(7)>=trace0% ─ r%(7)<=trace1%:x%=╠:y%=╪:О30:РRegDump:О31,x%,y%:Г(debug%─2):Г ╔ ▄8op%=mem%!(r%(7)─mm%):pc%=r%(7):r%(7)=(r%(7)+2)─&FFFE √@dd%=op%─63:ss%=(op%─&FC0)│64:op%=(op%─&F000)│&1000:by%=op%│8 ═@A%=═("FN_"+ц~(op%─7)):Щhalt%:РEscOn:run%=ё:Гabort%:r%(7)=pc% ╙Г ╛quiet%:Г r%(0):abort%=╧ ЄГ ╛quiet% ─ abort%:РRegDump ЎА х: рТ Opcodes are: э&Т 00xxxx various 10xxxx various Ф)Т 01xxxx MOV ss,dd 11xxxx MOVB ss,dd П)Т 02xxxx CMP ss,dd 12xxxx CMPB ss,dd З)Т 03xxxx BIT ss,dd 13xxxx BITB ss,dd )Т 04xxxx BIC ss,dd 14xxxx BICB ss,dd )Т 05xxxx BIS ss,dd 15xxxx BISB ss,dd )Т 06xxxx ADD ss,dd 16xxxx SUB ss,dd "&Т 07xxxx various 17xxxx various ,: 6Dщєsrc(ss%,b%):Т Fetch source value, sets D% to address of source @(Й m%,r%,a%:D%=0:a%=&FFFF:Г b%:a%=&FF JBm%=ss%│8:r%=ss%─7:b%=2-b%:Г r%>5:Г m%<6:b%=2:Т sp&pc always +2 TNГ m%=0:D%=0:=r%(r%)─a% :Т Rn ^RГ m%=1:D%=r%(r%) :Т (Rn) hSГ m%=2:D%=r%(r%):r%(r%)=r%(r%)+b% :Т (Rn)+ rRГ m%=3:D%=mem%!(r%(r%)─mm%):r%(r%)=r%(r%)+2 :Т @(Rn)+ |SГ m%=4:r%(r%)=r%(r%)-b%:D%=r%(r%) :Т -(Rn) ├RГ m%=5:r%(r%)=r%(r%)-2:D%=mem%!(r%(r%)─mm%) :Т @-(Rn) ░QГ m%=6:D%=mem%!(r%(7)─mm%):r%(7)=r%(7)+2:D%=(r%(r%)+D%) :Т X(Rn) PГ m%=7:D%=mem%!(r%(7)─mm%):r%(7)=r%(7)+2:D%=mem%!((r%(r%)+D%)─mm%) :Т @X(Rn) єjГ b%=2:Г(D%─1):Г(debug%─8)=0:Я"Bus error: word read from odd address (";m%;"/";r%;")":halt%=╧:abort%=╧ ў=mem%!(D%─mm%)─a% ╦: бXщРpre(dd%,b%):Т Do pre-access register adjustment, sets D% to address of destination лOЙ m%,r%:D%=0:m%=dd%│8:r%=dd%─7:b%=2-b%:Г r%>5:Г m%<6:b%=2:Т sp&pc always +2 жEТ Pre always called, dst sometimes not, so D% must be set up here Ю?Г m%=4:r%(r%)=r%(r%)-b% :Т -(Rn) Й@Г m%=5:r%(r%)=r%(r%)-2 :Т @-(Rn) ТJГ m%=1 └ m%=2 └ m%=4:D%=r%(r%) :Т (Rn), (Rn)+, -(Rn) ЧEГ m%=3 └ m%=5:D%=mem%!(r%(r%)─mm%) :Т @(Rn)+, @-(Rn) =Г m%=6:D%=mem%!(r%(7)─mm%):r%(7)=r%(7)+2 :Т X(Rn) >Г m%=7:D%=mem%!(r%(7)─mm%):r%(7)=r%(7)+2 :Т @X(Rn) А &: 0+щєdst(dd%,b%):Т Fetch destination value :5Й m%,r%,a%:m%=dd%│8:r%=dd%─7:a%=&FFFF:Г b%:a%=&FF D:Г m%=0:=r%(r%)─a% :Т Rn N;Г m%=6:=mem%!((r%(r%)+D%)─mm%)─a% :Т X(Rn) X=mem%!(D%─mm%)─a% b: l1щРdst2(dd%,v%,b%):Т Store dest value from MOV vPГ b%=1:Г dd%<8:r%(dd%)=(v%─&FF) └ (&FF00 ─ (v%─128)<>0):А :Т MOVB ,Rn ─BщРdst(dd%,v%,b%):Т Store dest value and post-access reg adjust ┼0Т Storing to mode 7 needs to double indirect ■DЙ m%,r%:m%=dd%│8:r%=dd%─7:v%=v%─&FFFF:b%=2-b%:Г r%>5:Г m%<6:b%=2 ·|Т IF b%=2:IF(D%AND1):IF(debug%AND8)=0:PRINT"Bus error: word write to odd address (";m%;"/";r%;")":halt%=TRUE:abort%=TRUE ╗YТ IF m%=0:IF b%=1:r%(r%)=(v%AND&FF) OR (&FF00 AND (v%AND128)<>0):ENDPROC :REM Rn ╡LГ m%=0:Г b%=1:r%(r%)=(v%─&FF) └ (&FF00 ─ r%(r%)):А :Т Rn ╪RГ m%=0:r%(r%)=v%:А :Т Rn фeГ m%<6:mem%?(D%─mm%)=v%:Гb%=2:mem%?((D%+1)─mm%)=v%│256 :Т (Rn) [@]-(Rn) [@](Rn)+ пUГ m%=2:r%(r%)=r%(r%)+b%:А :Т (Rn)+ зVГ m%=3:r%(r%)=r%(r%)+2:А :Т @(Rn)+ ДTГ m%=6:mem%?((r%(r%)+D%)─mm%)=v%:Г b%=2:mem%?((r%(r%)+D%+1)─mm%)=v%│256 :Т X(Rn) НaГ m%=7:mem%?(mem%!((r%(r%)+D%)─mm%)─mm%)=v%:Г b%=2:mem%?(mem%!((r%(r%)+D%)─mm%+1)─mm%)=v%│256 ЬА : OщРpsw(v%,b%,cv%,nv%,cc%,nc%):Т value, byte?, changeV?, newV, changeC?, newC (Г v%=0:psw%=psw%└4 ▀ psw%=psw%─&FFFB 0Г b%=0:psw%=(psw%─&FFF7)└(((v%─&8000)<>0)─8) *,Г b%:psw%=(psw%─&FFF7)└(((v%─&80)<>0)─8) 4(Г cv%:psw%=(psw%─&FFFD)└((nv%<>0)─2) >(Г cc%:psw%=(psw%─&FFFE)└((nc%<>0)─1) HА R: \/щРcarry(c%):psw%=(psw%─&FFFE)└((c%<>0)─1):А f(щєsxt(A%):=A%└((A%>&7FFF)─&FFFF0000) p: zТ b1xxxx - MOV/MOVB: └Qщє_1:V%=єsrc(ss%,by%):Рpre(dd%,by%):Рdst2(dd%,V%,by%):Рpsw(V%,by%,1,0,0,0):=0 ▌: ≤Т b2xxxx - CMP/CMPB: ╒3щє_2:V%=єsrc(ss%,by%):W%=єsrc(dd%,by%):R%=V%-W% ╛WГ by%:V%=((V%─&80)<>(W%─&80))─((R%─&80)=(W%─&80)):Рpsw(R%,0,1,V%,1,R%─&FFFFFF00):=0 ІYV%=((V%─&8000)<>(W%─&8000))─((R%─&8000)=(W%─&8000)):Рpsw(R%,0,1,V%,1,R%─&FFFF0000):=0 ю: йТ b3xxxx - BIT/BITB: тEщє_3:V%=єsrc(ss%,by%):W%=єsrc(dd%,by%):Рpsw(V%─W%,by%,1,0,0,0):=0 ч: ХТ b4xxxx - BIC/BICB: Р8щє_4:V%=єsrc(ss%,by%):Рpre(dd%,by%):W%=єdst(dd%,by%) Э6V%=╛V%─W%:Рdst(dd%,V%,by%):Рpsw(V%,by%,1,0,0,0):=0 : Т b5xxxx - BIS/BISB: 8щє_5:V%=єsrc(ss%,by%):Рpre(dd%,by%):W%=єdst(dd%,by%) $5V%=V%└W%:Рdst(dd%,V%,by%):Рpsw(V%,by%,1,0,0,0):=0 .: 8Т b6xxxx - ADD/SUB: BLщє_6:V%=єsrc(ss%,0):Рpre(dd%,0):W%=єdst(dd%,0):Г by%:R%=W%-V% ▀ R%=W%+V% L<Гby%:V%=((V%─&8000)<>(W%─&8000))─((R%─&8000)=(V%─&8000)) V>Гby%=0:V%=((V%─&8000)=(W%─&8000))─((R%─&8000)<>(V%─&8000)) `:Рdst(dd%,R%,0):Рpsw(R%─&FFFF,0,1,V%,1,R%─&FFFF0000):=0 j: t/Т b7xxxx - MUL/DIV/ASH/ASHC/XOR/Fop/???/SOB ~(щє_7:Г by%:=0 ▀ =═("FN_7"+ц~(ss%│8)) ┬: ▓2Т b0xxxx - HALT/etc/Bxx/JSR/CLRetc/RORetc/und: °,щє_0:Г(ss%─&20)=0:Г ss%>3 └ by%:=єbranch іHГ ss%│8=7:=0 :Т x07xxx - CSM/.../TSET/WLCK/.../.../.../... ╟9Г ss%│8=4:=є_04 :Т x04rdd - JSR Rn,dst/EMT/TRAP ╨#=═("FN_0"+єo0(ss%,2)) :Т x0xxdd д: нNщєbranch:dist%=dd%+(ss%─3)*64:op%=ss%│4+op%:Т IFINKEY-113:mem%?escflg%=&FF ь<Г op%=1 :=єrel(╧) :Т BR БDГ op%=2 :=єrel((psw%─4)=0) :Т BNE - Z=0 ЛDГ op%=3 :=єrel((psw%─4)<>0) :Т BEQ - Z=1 ЖGГ op%=4 :=єrel(((psw%─8)<>0)┌((psw%─2)<>0)=0) :Т BGE - N XOR V =0 GГ op%=5 :=єrel(((psw%─8)<>0)┌((psw%─2)<>0)<>0) :Т BLT - N XOR V =1 WГ op%=6 :=єrel(((psw%─4)<>0└((psw%─8)<>0┌(psw%─2)<>0))=0) :Т BGT - Z OR (N XOR V)=0 WГ op%=7 :=єrel(((psw%─4)<>0└((psw%─8)<>0┌(psw%─2)<>0))<>0):Т BLE - Z OR (N XOR V)=1 DГ op%=8 :=єrel((psw%─8)=0) :Т BPL - N=0 (DГ op%=9 :=єrel((psw%─8)<>0) :Т BMI - N=1 2GГ op%=10:=єrel(((psw%─1)<>0)└((psw%─4)<>0)=0) :Т BHI - C OR Z =0 0)└((psw%─4)<>0)<>0) :Т BLOS- C OR V =1 FDГ op%=12:=єrel((psw%─2)=0) :Т BVC - V=0 PDГ op%=13:=єrel((psw%─2)<>0) :Т BVS - V=1 ZDГ op%=14:=єrel((psw%─1)=0) :Т BCC - C=0 dDГ op%=15:=єrel((psw%─1)<>0) :Т BCS - C=1 n=0 x: ┌щєrel(A%):Г ╛A%:=0 ▄?Г dist%>127:r%(7)=r%(7)-(256-dist%)*2 ▀ r%(7)=r%(7)+dist%*2 √=0 ═: ╙3Т 0000dd - HALT/WAIT/RTI/BPT/IOT/RESET/RTT/MFPT Є щє_000 Ў&Г dd%=0:halt%=╧:abort%=╧:=0:Т HALT х Г dd%=1:=0 :Т WAIT рГ dd%=2:=0 :Т RTI эГ dd%=3:=0 :Т BPT ФГ dd%=4:=0 :Т IOT П!Г dd%=5:=0 :Т RESET ЗГ dd%=6:=0 :Т RTT Г dd%=7:=0 :Т MFPT =0 : "Т 0001dd - JMP: ,Pщє_001:Г(dd%─&38)=0 └ dd%=&17:Г(debug%─8)=0:Я"JMP fault":halt%=╧:abort%=╧:=0 6]A%=єsrc(dd%,0):Г(D%─1):Г(debug%─8)=0:Я"Bus error: JMP to odd address":halt%=╧:abort%=╧:=0 @r%(7)=D%─&FFFF:=0 J: T0Т 0002xx - RTS/-/-/SPL/Clear flags/Set flags ^ щє_002 h/Г dd%>47:psw%=psw%└(dd%─15):=0 :Т Sxx r,Г dd%>23:psw%=psw%─╛(dd%─15):=0 :Т Cxx |2Г(dd%│8)=3:=0 :Т SPL n ├.Г(dd%│8)=2:=0 :Т - ░.Г(dd%│8)=1:=0 :Т - ;r%=dd%─7:r%(7)=r%(r%):W%=mem%?(r%(6)─mm%):r%(6)=r%(6)+1 єLW%=mem%?(r%(6)─mm%)*256+W%:r%(6)=r%(6)+1:r%(r%)=W%:=0 :Т RTS r ў: ╦Т 0003dd - SWAB: бJщє_003:Рpre(dd%,0):V%=єdst(dd%,0):!zp%=V%:zp%!2=V%:R%=zp%!1:Т AND&FFFF л(Рdst(dd%,R%,0):Рpsw(V%,0,1,0,1,0):=0 ж: Ю#Т 004rdd - JSR Rn,dst/EMT/TRAP: Йщє_04:Г by%:=є_TRAP Т;Г(dd%─&38)=0 └ dd%=&17:Я"JSR fault":halt%=╧:abort%=╧:=0 ЧOA%=єsrc(dd%,0):Г(D%─1):Я"Bus error: JSR to odd address":halt%=╧:abort%=╧:=0 Г by%:Рpsw((V%+W%)─&FF,by%,1,V%=&7F ─ W%,1,V%=&FF ─ W%):=0 >Рpsw((V%+W%)─&FFFF,by%,1,V%=&7FFF ─ W%,1,V%=&FFFF ─ W%):=0 : Т b056dd - SBC: Gщє_056:Рpre(dd%,by%):V%=єdst(dd%,by%):W%=psw%─1:Рdst(dd%,V%-W%,by%) *AГ by%:Рpsw((V%-W%)─&FF,by%,1,(V%-W%)=&80 ─ W%,1,V%=0 ─ W%):=0 4?Рpsw((V%-W%)─&FFFF,by%,1,(V%-W%)=&8000 ─ W%,1,V%=0 ─ W%):=0 >: HТ b057dd - TST: R3щє_057:V%=єsrc(dd%,by%):Рpsw(V%,by%,1,0,1,0):=0 \: fТ b060dd - ROR: p3щє_060:Рpre(dd%,by%):V%=єdst(dd%,by%):W%=psw%─1 zOГ by%=1:R%=((V%>>1)└(W%<<7))─&FF:Рpsw(R%,by%,1,(R%>&7F)┌((V%─1)<>0),1,V%─1) └LГ by%=0:R%=(V%>>1)└(W%<<15):Рpsw(R%,by%,1,(R%>&7FFF)┌((V%─1)<>0),1,V%─1) ▌Рdst(dd%,R%,by%):=0 ≤: ╒Т b061dd - ROL: ╛3щє_061:Рpre(dd%,by%):V%=єdst(dd%,by%):W%=psw%─1 ІNГ by%=1:R%=((V%<<1)└W%)─&FF:Рpsw(R%,by%,1,(R%>&7F)┌((V%─&80)<>0),1,V%─&80) юVГ by%=0:R%=((V%<<1)└W%)─&FFFF:Рpsw(R%,by%,1,(R%>&7FFF)┌((V%─&8000)<>0),1,V%─&8000) йРdst(dd%,R%,by%):=0 т: чТ b062dd - ASR: Х)щє_062:Рpre(dd%,by%):V%=єdst(dd%,by%) РPГ by%=1:R%=((V%>>1)└(V%─&80))─&FF:Рpsw(R%,by%,1,(R%>&7F)┌((V%─1)<>0),1,V%─1) ЭNГ by%=0:R%=(V%>>1)└(V%─&8000):Рpsw(R%,by%,1,(R%>&7FFF)┌((V%─1)<>0),1,V%─1) Рdst(dd%,R%,by%):=0 : Т b063dd - ASL: $)щє_063:Рpre(dd%,by%):V%=єdst(dd%,by%) .IГ by%=1:R%=(V%<<1)─&FE:Рpsw(R%,by%,1,(R%>&7F)┌((V%─&80)<>0),1,V%─&80) 8QГ by%=0:R%=(V%<<1)─&FFFE:Рpsw(R%,by%,1,(R%>&7FFF)┌((V%─&8000)<>0),1,V%─&8000) BРdst(dd%,R%,by%):=0 L: VТ b064dd - MARK/MTPS: `=щє_064:Гby%:psw%=єsrc(dd%,0):=0 :Т MTPS j<Я"#"єo0(r%(7)-2,6)":"єo0(mem%!(r%(7)-2),6)"#";:=0:Т MARK t: ~Hщє_065:Я"#"єo0(r%(7)-2,6)":"єo0(mem%!(r%(7)-2),6)"#";:=0:Т MFPI/MFPD ┬Hщє_066:Я"#"єo0(r%(7)-2,6)":"єo0(mem%!(r%(7)-2),6)"#";:=0:Т MTPI/MTPD ▓: °Т b067dd - SXT/MFPS: і8щє_067:Гby%:Рpre(dd%,0):Рdst(dd%,psw%,0):=0 :Т MFPS ╟QРpre(dd%,0):V%=((psw%─8)<>0)─&FFFF:Рdst(dd%,V%,0):Рpsw(V%,0,1,0,0,0):=0:Т SXT ╨: дТ 070rdd - MUL: н7щє_70:r%=ss%─7:V%=єsxt(єsrc(dd%,0)):W%=єsxt(r%(r%)) ьJr=V%*W%:W%=r:r%(r%)=W%>>>16:r%(r%└1)=W%─&FFFF:Рpsw(W%,0,1,0,1,W%>>>16) Б#psw%=(psw%─&FFF7)└((W%<0)─8):=0 Л: ЖТ 071rdd - DIV: ?щє_71:r%=ss%─7:V%=єsrc(dd%,0):Г r%─1:psw%=(psw%─&FFFD)└2:=0 R!zp%=r%(r%└1):zp%!2=r%(r%):Г V%<>0:W%=!zp%│V%:R%=!zp%┐V%:r%(r%└1)=R%:r%(r%)=W% 1Рpsw(W%,0,1,V%=0 └ ■(r%(r%))>■(V%),1,V%=0):=0 : (Т 072rdd - ASH: 2.щє_72:r%=ss%─7:V%=єsrc(dd%,0)─63:W%=r%(r%) 31:R%=(W%<<16)>>(79-V%):Рpsw(R%>>1,0,1,((R%>>1)┌W%)─&8000,1,R%─1):R%=R%>>1 Pr%(r%)=R%─&FFFF:=0 Z: dТ 073rdd - ASHC: nCщє_73:r%=ss%─7:V%=єsrc(dd%,0)─63:R%=(r%(r%)<<16)└r%(r%└1):W%=R% x(Г V%<32:C%=R%─(1<<(32-V%)):R%=R%<31:Г(r%─1)=0:C%=R%─(1<<(63-V%)):R%=R%>>(64-V%) ▄MГ V%>31:Г(r%─1)=1:R%=R%─&FFFF:R%=R%└(R%<<16):R%=(R%>>>(64-V%))─&FFFF:C%=0 √DРpsw(R%,0,1,(V%┌W%)─&80000000,1,C%):psw%=(psw%─&FFF7)└((R%<0)─8) ═'r%(r%└1)=R%>>>16:r%(r%)=R%─&FFFF:=0 ╙: ЄТ 074rdd - XOR: Ў4щє_74:Рpre(dd%,0):V%=єdst(dd%,0):R%=V%┌r%(ss%─7) х(Рdst(dd%,R%,0):Рpsw(R%,0,1,0,0,0):=0 р: э"Т 075rdd - FADD/FSUB/FMUL/FDIV Ф;щє_75:Я"#"єo0(r%(7)-2,6)":"єo0(mem%!(r%(7)-2),6)"#";:=0 П: ЗТ 076nnn - unused щє_76:=0 : Т 077rdd - SOB: "Wщє_77:dist%=dd%-192*(dd%>31):ss%=ss%─7:V%=(r%(ss%)-1)─&FFFF:r%(ss%)=V%:=єrel(V%<>0) ,: Т > EMT Т EMT interface to host ;Т v0.22 27-Sep-2009 OSBYTE 160 translated to host calls ((Т v0.25 10-Jan-2014 Added OSWORD 190 2[Т v0.28 25-Oct-2015 Added more OSBYTE 160 translations, OSBYTE 135 returns shadow MODEs <5Т v0.29a 10-May-2020 OSWORD optimised with X%!... F(Т v0.30 11-Mar-2021 Windows OSFILE 5 P: ZMщє_TRAP:dd%=dd%+(ss%─7)*64:Г(debug%─4):РDbTrap(dd%):Т &0xx=EMT, &1xx=TRAP d≤Гtrapvec%:Гdd%>255:r%(6)=r%(6)-4:mem%!r%(6)=psw%:mem%?(r%(6)+2)=r%(7):mem%?(r%(6)+3)=r%(7)│256:psw%=mem%!&1E ─ &FFFF:r%(7)=mem%!&1C ─ &FFFF:r7%=0:=0 n4Гdd%<16:psw%=psw%─-4:A%=r%(0):=═("FN_EMT"+ц~dd%) x#Гdd%<224:=═("FN_EMT("+цdd%+")") ┌(Гdd%<256:A%=r%(0):=═("FN_EMT"+ц~dd%) ▄add%=dd%─&FF:r7%=r%(7):Гdd%<&40:psw%=psw%─-4:A%=═("FN_TRAP"+ц~dd%) ▀ A%=═("FN_TRAP("+цdd%+")") √r%(7)=r7%:r7%=0:=A% ═: ╙FщРDbTrap(dd%):Г(dd%>3 ─ dd%<7) └ (dd%>&102 ─ dd%<&105 ─ r%(0)<3):А Є≈Гdd%<16:Я"OS";а"QUITCLI BYTEWORDWRCHNEWLRDCHFILEARGSBGETBPUTGBPBFINDSYSTCTRLERR ",dd%*4+1,4);" r0=";~r%(0);" r1=";~r%(1);" r2=";~r%(2):А:Т ;" ";:E. Ў9Гdd%<256:А:Я"EMT ";~dd%;" r0=";~r%(0):А:Т EMT &10-&FF х>A%=r%(7):Гdd%=&100:A%=mem%!r%(7)─&FFFF:dd%=mem%?A%:A%=A%+2 рИГ(dd%─&20)=&00:Я а"indir exit fork read write open close wait creat link unlinkexec chdir time mknod chmod chown brk stat lseek getpidmount umountsetuidgetuidstime ptrace[27] fstat pause utime stty ",(dd%─31)*6+1,6); эИГ(dd%─&20)=&20:Я а"gtty [33] nice ftime sync kill switch[39] [40] dup2 pipe times profiltui setgidgetgidsignal[49] [50] acct phys lock ioctl [55] mpxchn[57] [58] exece umask chroot[62] [63] ",(dd%─31)*6+1,6); ФbЯ" r0=";єh0(r%(0),4);" p1=";єh0(mem%!A%,4);" p2=";єh0(mem%!(A%+2),4);" p3=";єh0(mem%!(A%+4),4) ПА З: >щє_EMT0:halt%=╧:=0 :Т QUIT Dщє_EMT1:РEscOn:Рcmd($(mem%+r%(0)),╧):r%(0)=0:РEscOff:=0 :Т OSCLI =щє_EMT2:Й X%,Y%:psw%=psw%─-2 :Т OSBYTE "QГ A%=&82:r%(1)=0:r%(2)=0:=0 :Т high order address ,MГ A%=&83:r%(1)=membot%:r%(2)=membot%│256:=0 :Т bottom of memory 6JГ A%=&84:r%(1)=memtop%:r%(2)=memtop%│256:=0 :Т top of memory @LГ A%>123:ГA%<127:mem%?escflg%=128*(A%─1):Ъ"FX15" :Т Clear/Set/Ack Escape J`Г A%=&7F:Гr%(1)=0 └ r%(1)=&FFFF:r%(1)=0:=0 :Т =EOF#0/-1:REM Should check keyboard TCГ A%=&A0:Гos%=6:Гєvdu:=0 :Т =VDU(n) ^~Г os%<32:X%=r%(1):Y%=r%(2):A%=╨&FFF4:r%(1)=(A%─&FFFF00)│256:r%(2)=(A%─&FF0000)│65536:Рcarry(A%─&1000000):Г(A%─&FF)<>&87:=0 h=Г os%<32:X%=0:A%=&75:r%(2)=r%(2)└(((╨&FFF4)─&1000)│32):=0 rТ Windows OSBYTE calls: |4Г A%=128:Гr%(1)=7:х≈ r%(1),A%,A%:r%(2)=A%│256:=0 ├4Г A%=128:Гr%(1)=8:х≈ A%,r%(1),A%:r%(2)=A%│256:=0 ░4Г A%=128:Гr%(1)=9:х≈ A%,A%,r%(1):r%(2)=A%│256:=0 х▌ A% й єи 0:r%(1)=32:=0 ўи 127:r%(1)=е#r%(1):=0 ╦nТ If on Windows, ADVAL-1/-2 need to be 255-ADVAL - but client should do this as OSBYTE 0,1 returns DOS/Win бVи 128:A%=√((r%(1)─255)+256*r%(2)└((r%(2)>&7F)─&FFFF0000)):r%(1)=A%:r%(2)=A%│256:=0 л~и 129:A%=і((r%(1)─255)+256*r%(2)└((r%(2)>&7F)─&FFFF0000)):Рcarry(A%=-1 ─ r%(2)<&80):r%(1)=A%:r%(2)=A%│256:Рcarry(A%=-1):=0 жи 134:r%(1)=╠:r%(2)=╪:=0 Ю!и 135:r%(1)=╔(╠,╪):r%(2)=К:=0 Й и 160: Тх▌ r%(1) й Ч4и 0,128:х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!0 4и 1 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!1 4и 2,129:х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!4 4и 3 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!5 &6и 4,130:х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!8-1 0<и 5 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!8-1)│256 :9и 6,131:х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!12/2-1 D?и 7 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!12/2-1)│256 N'и 8,132:r%(1)=@vdu%!24 │ @vdu%!216 X)и 9,133:r%(1)=@vdu%!36 │ @vdu%!220-1 b)и 10,134:r%(1)=@vdu%!28 │ @vdu%!216-1 l'и 11,135:r%(1)=@vdu%!32 │ @vdu%!220 vи 12,136:r%(1)=2*@vdu%!0 ─"и 13 :r%(1)=2*@vdu%!0 │ 256 ┼и 14,137:r%(1)=2*@vdu%!4 ■"и 15 :r%(1)=2*@vdu%!4 │ 256 ·и 16,138:r%(1)=2*@vdu%!8 ╗"и 17 :r%(1)=2*@vdu%!8 │ 256 ╡Dи 18,139:х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=2*(zp%!12-@vdu%!12-1) ╪Jи 19 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=2*(zp%!12-@vdu%!12-1) │ 256 фи 20,142:r%(1)=@vdu%!16 п!и 21 :r%(1)=@vdu%!16 │ 256 зBи 22,143:х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!12-@vdu%!20-1) ДHи 23 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!12-@vdu%!20-1) │ 256 Ни 24 :r%(1)=╠ Ьи 25 :r%(1)=╪ и 36 :r%(1)=@vdu%!8 и 37 :r%(1)=@vdu%!8 │ 256 Bи 38 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!12-@vdu%!12-1) Hи 39 :х≥ "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!12-@vdu%!12-1) │ 256 *и 85 :r%(1)=К 4и 87,155:r%(1)=8*@vdu%?70 >и 88,156:r%(1)=8*@vdu%?71 Hи 89,153:r%(1)=8*@vdu%?65 Rи 90,154:r%(1)=8*@vdu%?67 \4и 91,151:r%(1)=3-(@vdu%?64-7)│2:Гr%(1)<0:r%(1)=1 f4и 92,152:r%(1)=3-(@vdu%?66-7)│2:Гr%(1)<0:r%(1)=1 pи 96,3 :r%(1)=@vdu%?73 zи 98 :Т Left colour mask └ и 99 :Т Right colour mask ▌и 109 :r%(1)=@vdu%?65 ≤и 110 :r%(1)=@vdu%?67 ╒и 155 :r%(1)=@vdu%?70 ╛и 156 :r%(1)=@vdu%?71 Іи 153 :r%(1)=@vdu%?65 юи 154 :r%(1)=@vdu%?67 й тr%(1)=0 чк Хr%(2)=r%(1)│256:=0 Р ЭcX%=r%(1):Y%=r%(2):A%=╨&FFF4:r%(1)=(A%─&FFFF00)│256:r%(2)=(A%─&FF0000)│65536:Рcarry(A%─&1000000) к =0 щєvdu:Г r%(1)<16:=0 $Т ARM and R1>15 .х▌ r%(1) й 8и 16,17:A%=138 Bи 18,19:A%=139 Lи 20,21:A%=142 Vи 22,23:A%=143 `и 24 :r%(1)=╠:=╧ jи 25 :r%(1)=╪:=╧ tи 36,37:A%=144 ~и 38,39:A%=145 ┬и 78 :A%=148 ▓и 80,81:A%=149 °и 84 :A%=150:r%(1)=85 іи 87 :A%=155:r%(1)=-1 ╟и 88 :A%=156:r%(1)=-1 ╨и 89 :A%=153:r%(1)=-1 ди 90 :A%=154:r%(1)=-1 ни 91 :A%=151:r%(1)=0 ьи 92 :A%=152:r%(1)=0 Би 96 :A%=3 Ли 109 :A%=153:r%(1)=0 Жи 110 :A%=154:r%(1)=0 (A%=r%(1):Г A%<128:r%(1)=0:r%(1)=0:=╧ к n!zp%=A%:zp%!4=-1:х≥ "OS_ReadVduVariables",zp%,zp%+8:Г r%(1)=-1:zp%!8=zp%!8*8 ▀ Г r%(1)─1:zp%!8=zp%!8 │ 256 (r%(1)=zp%!8:r%(2)=r%(1)│256 2=╧ <: F+щє_EMT3:Й X%,Y% :Т OSWORD PX%=mem%+r%(1):Y%=X%│256 Z;Г A%=0:РEscOn:Х ├""A$:$(mem%+(!X%─&FFFF))=A$:РEscOff:=0 d<Г A%=190:Г X%?2=11:Г ?X%>8:A%=єDis_Code(11,X%!4,X%!8):=0 n7Г A%=190:Г X%?2=11:Г ?X%<9:$(X%+4)=єDis_Name(11):=0 xГ os%<32 └ A%=10:ж &FFF1:=0 ┌х▌ A% й ▄и 1:!X%=▒:=0 √и 2:я=!X%:=0 ═ и 7:т X%!0,X%!2,X%!4,X%!6:=0 ╙Vи 8:Б X%?0,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 Є*и 9:X%?4=╟!X% ─ &FFFF,X%!2 ─ &FFFF):=0 Ўи 14:$X%=▒$:=0 х$и 15:X%?(?X%+1)=13:я$=$(X%+1):=0 рк э=0 Ф-щє_EMT4:О A%:=0 :Т OSWRCH П+щє_EMT5:Я:r%(0)=13:=0 :Т OSNEWL З-щє_EMT6:r%(0)=╔:=0 :Т OSRDCH /щє_EMT7 :Т OSFILE +Ц A%=2 ╦ 14 ┬ 4:X%!A%=mem%!(r%(1)+A%):М Г r%(0)=255:Рaddr(2) "#Г r%(0)=0 :Рaddr(10):Рaddr(14) ,&FFFFF:A$=єs($fn%) 6=Г ≈A$=34:A$=аA$,2,їA$,"""",2)-1) ▀ A$=юA$,їA$+" "," ")-1) @Г і-256=87 ─ r%(0)=5 ▄ JЙdir%,sh%:чdir%Й319 T=х≥"FindFirstFile",єf_name(A$),dir%╦sh%:Гsh%=-1:r%(0)=0:=0 ^5х≥"FindClose",sh%:X%!10=dir%!32:Гdir%!28:X%!10=-1 hBX%?14=(?dir%─1)*8+(&33 ─ ((?dir%─16)=0)):r%(0)=(?dir%─16)│16+1 r)х≥"FileTimeToSystemTime",dir%+20,dir% |LA%=(!dir%─&FFFF)-1981:X%?15=dir%?6+(A%─&70)*2:X%?16=dir%?2+A%*16:X%?17=0 ├.Ц A%=2 ╦ 14 ┬ 4:mem%!(r%(1)+A%)=X%!A%:М:=0 ░м sГ ░<&FFFFF:х≥ "OS_File",r%(0),$fn%,X%!2,X%!6,X%!10,X%!14 ╦ r%(0),,X%!2,X%!6,X%!10,X%!14 ▀ r%(0)=єfile(A$,r%(0)) є@Т IF r%(0)=0 OR r%(0)=255:PROCaddr(2):IF r%(0)=0:PROCaddr(6) ў.Ц A%=2 ╦ 14 ┬ 4:mem%!(r%(1)+A%)=X%!A%:М:=0 ╦-щРaddr(A%):ГX%!A%<&10000:X%!A%=mem%+A%!X% бА л/щє_EMT8 :Т OSARGS ж)Г os%>31:Г A%=0:Г r%(1)=0:r%(0)=29:=0 Ю/Г A%=0:Г r%(1)=0:Й Y%:r%(0)=(╨&FFDA)─&FF:=0 ЙГ r%(1)=0 └ r%(1)=&FFFF ▄ Тх▌ A% й Ч8Т Add EXT#-1=keyboard buffer, EOF#-1=keyboard buffer %и 0:mem%!r%(2)=0:=0 :Т =PTR#0/-1 %и 1:=0 :Т PTR#0/-1= %и 2:mem%!r%(2)=0:=0 :Т =EXT#0/-1 &%и 3:=0 :Т EXT#0/-1= 0'и 4:mem%!r%(2)=0:=0 :Т =Alloc#0/-1 :%и 5:mem%!r%(2)=0:=0 :Т =EOF#0/-1 D'и 6:=0 :Т Alloc#0/-1= Nк Xм bх▌ A% й lи 0:mem%!r%(2)=▐#r%(1):=0 vи 1:о#r%(1)=mem%!r%(2):=0 ─и 2:mem%!r%(2)=╒#r%(1):=0 ┼и 3:╒#r%(1)=mem%!r%(2):=0 ■и 4:mem%!r%(2)=╒#r%(1):=0 ·и 5:mem%!r%(2)=е#r%(1):=0 ╗и 6:╒#r%(1)=mem%!r%(2):=0 ╡и 255:Гos%>31:=0 ╪ ф/mem%!r%(1)=єargs(r%(0),r%(1),mem%!r%(2)):=0 пк з=0 Д,щє_EMT9:Г r%(1)=0:r%(0)=╔:=0 :Т OSBGET Н1Гos%=32:r%(0)= #r%(1):Рcarry(е#r%(1)─&100):=0 Ь?Й Y%:Y%=r%(1):A%=╨&FFD7:r%(0)=A%─&FF:Рcarry(A%─&1000000):=0 6щє_EMTA:Гr%(1)=0:О A%:=0 ▀ у#r%(1),A%:=0 :Т OSBPUT /щє_EMTB :Т OSGBPB 'Ц A%=0 ╦ 12:X%?A%=mem%?(r%(1)+A%):М &B%=(X%!1<&10000):Рaddr(1):A%=r%(0) *4Г ?X%=0:ГA%=1└A%=2:УО?(X%!1):X%!5=X%!5-1:ЩX%!5<1 45Г ?X%=0:ГA%=3└A%=4:У?(X%!1)=╔:X%!5=X%!5-1:ЩX%!5<1 >,Г ?X%:Рf_gbpb(r%(0),X%?0,X%!1,X%!5,X%!9) HГ B%:X%!1=X%!1-mem% R'Ц A%=0 ╦ 12:mem%?(r%(1)+A%)=X%?A%:М \=0 f/щє_EMTC :Т OSFIND pГ A%=0:ы#r%(1):=0 z4Г (A%─&C0)=&40:r%(0)=єf_openin($(mem%+r%(1))):=0 └5Г (A%─&C0)=&80:r%(0)=єf_openout($(mem%+r%(1))):=0 ▌4Г (A%─&C0)=&C0:r%(0)=єf_openup($(mem%+r%(1))):=0 ≤=0 ╒,щє_EMTD :Т SYS ╛+ГA%=0:Гr%(1):=є_BASIC($(mem%+r%(1))):=0 І"ГA%=0:Гr%(1)=0:=є_BASIC(""):=0 ю6ГA%=1:Гmemtop%<&F800:mem%!&F5FC=mem%!&F5FA ─ &FFFF й<ГA%<5:err%=err0%:escflg%=err%+255:!escb%=mem%+escflg%:=0 т ГA%=&FFFF:trapvec%=╛r%(1):=0 ч=0 Х0щє_EMTE:r1%=r%(1):r2%=r%(2) :Т HANDLER РSГ A%=&FFFE:r%(2)=escflg%:Гr2%:escflg%=r2%:!escb%=mem%+escflg% :Т Escape handler ЭRГ A%=&FFFD:r%(1)=errvec%:Гr1%:errvec%=r1% :Т Error handler RГ A%=&FFFD:r%(2)=err% :Гr2%:err%=r2% :Т Error handler =0 .щє_EMTF:=0 :Т ERROR $щє_EMT(A%):=0 .: Т > Unix Т PDP11 Unix Trap functions 2Т v0.15 04-Mar-2006 Separated out from PDP11Em (>Т 17-Mar-2006 read/write done, added exit,open,close 2#Т v0.16 20-May-2006 Added indir <8Т v0.17 20-Feb-2009 Added rudimentary SIGINT capture F;Т v0.23 17-Jun-2010 TRAP0 calls TRAPn instead of TRAPnn P9Т v0.24 02-Jul-2010 TRAPB and TRAP3B execute commands Z>Т v0.25 20-Jan-2012 brk(), pipe() fetch correct parameters d%Т v0.26 20-Jun-2012 Added ftime() nDТ Note, different parameters for v7/pre-v7 for lseek(), ioctrl() xOТ By ioctrl() returning CarryClear (via dispatcher), declares to be Unix V7 ┌: ▄Cщє_TRAP0:Т indir - entry: (pc+0)=>TRAP instruction, parameters √Qr7%=mem%!r%(7)─&FFFF :Т Address of ind'ed TRAP instruction ═Cdd%=mem%!r7%─255:r7%=r7%+2:ind%=r%(7)+2 :Т Get TRAP instruction ╙?Г dd%<&40:A%=═("FN_TRAP"+ц~dd%) ▀ A%=═("FN_TRAP("+цdd%+")") Єr7%=r%(7)+2:ind%=0:=A% Ў: х(щє_TRAP1:Т exit - entry: r0=status рhalt%=╧ э=0 Ф: Пщє_TRAP2:Т fork - З3=0 :Т - exit: r0=new process ID : Fщє_TRAP3:Т read - entry: r0=filedes, (pc+0)=buffer, (pc+2)=count /Т exit: r0=byte count ">buffer%=mem%!r7%─&FFFF:count%=mem%!(r7%+2)─&FFFF:r7%=r7%+4 ,JГr%(0)<3:Ъ"FX126":ЦA%=0╦count%-1:mem%?(buffer%+A%)=╔:М:r%(0)=count%:=0 6:Рgbpb(4,r%(0),mem%+buffer%,count%,0):r%(0)=count%-X%!5 @=0 J: TFщє_TRAP4:Т write - entry: r0=filedes, (pc+0)=buffer, (pc+2)=count ^/Т exit: r0=byte count h>buffer%=mem%!r7%─&FFFF:count%=mem%!(r7%+2)─&FFFF:r7%=r7%+4 r@Гr%(0)<3:ЦA%=0╦count%-1:Оmem%?(buffer%+A%):М:r%(0)=count%:=0 |:Рgbpb(2,r%(0),mem%+buffer%,count%,0):r%(0)=count%-X%!5 ├=0 ░: 8щє_TRAP5:Т open - entry: (pc+0)=>name, (pc+2)=mode є,Т exit: r0=filedes ўCname%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+4:r%(0)=0 ╦/Гmode%=0:r%(0)=єf_openin(єstr0(mem%+name%)) б0Гmode%=1:r%(0)=єf_openout(єstr0(mem%+name%)) л/Гmode%=2:r%(0)=єf_openup(єstr0(mem%+name%)) ж$Гr%(0)=0:r%(0)=&FFFF:psw%=psw%└1 Ю=0 Й: Т)щє_TRAP6:Т close - entry: r0=filedes ЧГr%(0)>2:ы#r%(0) =0 : щє_TRAP7:Т wait - &:=0 Т exit: r0=process ID, r1=status 0: :8щє_TRAP8:Т creat - entry: (pc+0)=>name, (pc+2)=mode D,Т exit: r0=filedes N;name%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+4 Xname1, (pc+2)=>name2 ─r7%=r7%+4:r%(0)=&FFFF:=0 ┼: ■+щє_TRAPA:Т unlink - entry: (pc+0)=>name ·*name%=mem%!r7%─&FFFF:r7%=r7%+2:r%(0)=0 ╗name, (pc+2)=>argv п;name%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+4 з^Гєstr0(mem%+(mem%!mode%─&FFFF))="sh":Рcmd(єstr0(mem%+(mem%!(mode%+4)─&FFFF)),╧):r%(0)=0:=0 Д=0 Н: Ь.щє_TRAPC:Т chdir - entry: (pc+0)=>dirname *name%=mem%!r7%─&FFFF:r7%=r7%+2:r%(0)=0 BГos%<7:Ъ"DIR "+єstr0(mem%+name%) ▀ Ъ"chdir "+єstr0(mem%+name%) =0 : *щє_TRAPD:Т time - 4BТ exit: r0:r1=time since 1970 in seconds >2!zp%=▒ │100:r%(1)=!zp%─&FFFF:r%(0)=zp%!2─&FFFF H=0 R: \Eщє_TRAPE:Т mknod - entry: (pc+0)=>name, (pc+2)=mode, (pc+4)=addr f;name%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+6 p9Г(mode%─16384):A%=єfile(8,єf_name(єstr0(mem%+name%))) z=0 └: ▌Fщє_TRAPF :r7%=r7%+4:=0:Т chmod - entry: (pc+0)=>name, (pc+2)=mode ≤Uщє_TRAP10:r7%=r7%+6:=0:Т chown - entry: (pc+0)=>name, (pc+2)=owner, (pc+4)=group ╒: ╛+щє_TRAP11:Т brk - entry: (pc+0)=addr І=addr%=mem%!r7%─&FFFF:r7%=r7%+2:Гaddr%>memtop%:psw%=psw%└1 ю=0 й: т9щє_TRAP12:Т stat - entry: (pc+0)=>name, (pc+2)=>buf чEname%=mem%!r7%─&FFFF:buffer%=mem%!(r7%+2)─&FFFF:r7%=r7%+4:r%(0)=0 Хoffsethi, (pc+2)=>offsetlo, (pc+4)=whence ]offset%=(mem%!(r7%+2)─&FFFF)└(mem%!(r7%-2)─&FFFF0000):where%=mem%!(r7%+4)─&FFFF:r7%=r7%+6 $Гr%(0)<3:r%(0)=0:r%(1)=0:=0 .Гwhere%=0:о#r%(0)=offset% 8%Гwhere%=1:о#r%(0)=▐#r%(0)+offset% B%Гwhere%=2:о#r%(0)=╒#r%(0)+offset% L5r%(1)=▐#r%(0):r%(0)=r%(1)│65536:r%(1)=r%(1)─&FFFF V=0 `: j:щє_TRAP14:r7%=r7%+0:=0:Т getpid - exit: r0=process ID tYщє_TRAP15:r7%=r7%+6:=0:Т mount - entry: (pc+0)=>special, (pc+2)=>name, (pc+4)=rwflag ~<щє_TRAP16:r7%=r7%+2:=0:Т umount - entry: (pc+0)=>special ┬3щє_TRAP17:r7%=r7%+0:=0:Т setuid - entry: r0=uid ▓Jщє_TRAP18:r7%=r7%+0:=0:Т getuid - exit: r0=real uid, r1=effective uid °Bщє_TRAP19:r7%=r7%+0:=0:Т stime - entry: r0:r1=time since 1970 і]щє_TRAP1A:r7%=r7%+6:=0:Т ptrace - entry: r0=data, (pc+0)=pid, (pc+2)=addr, (pc+4)=request ╟8Т exit: r0=value ╨!щє_TRAP1B:r7%=r7%+0:=0:Т [27] дEщє_TRAP1C:r7%=r7%+2:=0:Т fstat - entry: r0=filedes, (pc+0)=>buff н"щє_TRAP1D:r7%=r7%+0:=0:Т pause ьGщє_TRAP1E:r7%=r7%+4:=0:Т utime - entry: (pc+0)=>file, (pc+2)=timep БDщє_TRAP1F:r7%=r7%+2:=0:Т stty - entry: r0=filedes, (pc+0)=argp ЛDщє_TRAP20:r7%=r7%+2:=0:Т gtty - entry: r0=filedes, (pc+0)=argp Ж!щє_TRAP21:r7%=r7%+0:=0:Т [33] 8щє_TRAP22:r7%=r7%+0:=0:Т nice - entry: r0=priority : Eщє_TRAP23:Т ftime - entry: (pc+0)=bufptr, read millisecond count "addr%=mem%!r7%─&FFFF:r7%=r7%+2 (7!zp%=▒:mem%!addr%=zp%!4 │ 100 :Т seconds b16-b31 29mem%!(addr%+2)=!zp% │ 100 :Т seconds b0-b15 Т exit: r0=new filedes ЄNщє_TRAP2A:r7%=r7%+0:=0:Т pipe - exit: r0=read filedes, r1=write filedes Ў:щє_TRAP2B:r7%=r7%+2:=0:Т times - entry: (pc+0)=buffer хeщє_TRAP2C:r7%=r7%+8:=0:Т profil - entry: (pc+0)=buff, (pc+2)=bufsize, (pc+4)=offset, (pc+6)=scale р,щє_TRAP2D:r7%=r7%+0:=0:Т tui - [null] э3щє_TRAP2E:r7%=r7%+0:=0:Т setgid - entry: r0=gid ФJщє_TRAP2F:r7%=r7%+0:=0:Т getgid - exit: r0=real gid, r1=effective gid П: З7щє_TRAP30:Т signal - entry: (pc+0)=sig, (pc+2)=func .Т exit: r0=old func |Г(mem%!r7%─&FFFF)=2:A%=mem%!(r7%+2)─&FFFF:Г A%:Г mem%!(A%+4)=&FF95F7:escflg%=A%+10+mem%!(A%+8)─&FFFF:!escb%=mem%+escflg% r7%=r7%+4:=0 ": ,!щє_TRAP31:r7%=r7%+0:=0:Т [49] 6!щє_TRAP32:r7%=r7%+0:=0:Т [50] @8щє_TRAP33:r7%=r7%+2:=0:Т acct - entry: (pc+0)=file JWщє_TRAP34:r7%=r7%+6:=0:Т phys - entry: (pc+0)=segreg, (pc+2)=size, (pc+4)=physadr T8щє_TRAP35:r7%=r7%+2:=0:Т lock - entry: (pc+0)=flag ^Xщє_TRAP36:r7%=r7%+6:=0:Т ioctl - entry: (pc+0)=filedes, (pc+2)=request, (pc+4)=argp h!щє_TRAP37:r7%=r7%+0:=0:Т [55] rWщє_TRAP38:r7%=r7%+8:=0:Т mpxchan- entry: (pc+0)=??, (pc+2)=??, (pc+4)=??, (pc+6)=?? |!щє_TRAP39:r7%=r7%+0:=0:Т [57] ├!щє_TRAP3A:r7%=r7%+0:=0:Т [58] ░: Hщє_TRAP3B:Т exece - entry: (pc+0)=>name, (pc+2)=>argv, (pc+4)=>envp є;name%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+6 ў^Гєstr0(mem%+(mem%!mode%─&FFFF))="sh":Рcmd(єstr0(mem%+(mem%!(mode%+4)─&FFFF)),╧):r%(0)=0:=0 ╦=0 б: л=щє_TRAP3C:r7%=r7%+2:=0:Т umask - entry: (pc+0)=complmode ж<щє_TRAP3D:r7%=r7%+2:=0:Т chroot - entry: (pc+0)=>dirname Ю!щє_TRAP3E:r7%=r7%+0:=0:Т [62] Й!щє_TRAP3F:r7%=r7%+0:=0:Т [63] Тщє_TRAP(A%):=0 Ч: 1щєstr0(A%):A$="":У Г?A%>31:A$=A$+Ґ?A%:A%=A%+1 Щ?A%<32 └ ╘ A$>254:=A$ Aщєstr(A%):Й B$,B%:У:B%=!A%─&FFFF:ГB%:B$=B$+" "+єstr0(mem%+B%) &A%=A%+2:ЩB%=0:=B$ 0: Т > RT11RSX %Т RT11 and RSX EMT function calls Т v0.01 Initial version (: 2]щє_EMTE0:r%(0)=і(0):psw%=(psw%─-2)└(r%(0)=-1):=0 :Т &o340 CONIN R0=char, Cy=buffer empty <_щє_EMTE1:О A%:psw%=psw%─-2:=0 :Т &o341 CONOUT R0=char, Cy=buffer full F#щє_EMTE2:=0:Т Get device status P%щє_EMTE3:=0:Т Load device handler Z4щє_EMTE4:=0:Т Command String Interpreter general dTщє_EMTE5:=0:Т Command String Interpreter special GETLIN? Input line of text o345 n"щє_EMTE6:=0:Т Lock USR in core x$щє_EMTE7:=0:Т Unlock USR in core ┌$щє_EMTE8:halt%=╧:=0:Т &o350 EXIT ▄5щє_EMTE9:Т &o351 PRINT Output ASCIZ string at R0 √-У:A%=mem%?r%(0):r%(0)=r%(0)+1:ГA%─127:ОA% ═Щ(A%─127)=0:ГA%=0:Я ╙psw%=psw%─-2:=0 Є*щє_EMTEA:=0:Т &o352 Reset all channels Ў2щє_EMTEB:=0:Т &o353 Increase size of I/O queue хbщє_EMTEC:Т &o354 SETTOP Set top of user memory, In: R0=requested MEMTOP, Out: R0=actual MEMTOP р!Г r%(0)>memtop%:r%(0)=memtop% эpsw%=psw%─-2:=0 Ф(щє_EMTED:=0:Т Enable terminal output Пщє_EMTEE:=0:Т Unused З2щє_EMTEF:=0:Т Terminate I/O and reset channels щє_EMTF0:=0 щє_EMTF1:=0 щє_EMTF2:=0 "щє_EMTF3:=0 ,щє_EMTF4:=0 6щє_EMTF5:=0 @щє_EMTF6:=0 Jщє_EMTF7:=0 Tщє_EMTF8:=0 ^щє_EMTF9:=0 hщє_EMTFA:=0 r-щє_EMTFB:=0:Т Call address in Kernal mode |%щє_EMTFC:=0:Т R0=function:channel ├$щє_EMTFD:=0:Т R0=>argument block ░щє_EMTFE:=0 !щє_EMTFF:=0:Т RSX system call є: 1Т > DisPDP 1.01 - PDP-11 disassembly routines %щєDis_Name(A%):X%?3=&14:="PDP-11" 5щєDis_Code(A%,Ptr%,Data%):Й s%,d%,c%:!X%=0:num%=2 (;c%=!Data%:s%=(c%─&0FC0)│64:d%=c%─63:c%=(c%─&F000)│&1000 2 $(X%+4)=єpdp:X%?3=num%:=num% <: F щєpdp PТ x0 50-63 xx: ZqГ(c%─7)=0:Г s%>39:Г s%<52:=а"CLRCOMINCDECNEGADCSBCTSTRORROLASRASL",3*(s%-40)+1,3)+а" B",c%│8+1,1)+" "+єmr(d%) d)Т x1, x2, x3, x4, x5 else x0, x6, x7: noГ((c%-1)─7)<5:=а"MOVCMPBITBICBIS",(c%─7)*3-2,3)+а" B",c%│8+1,1)+" "+єmr(s%)+","+єmr(d%) ▀ =═("FNpdp_"+ц~c%) x: ┌(щєpdp_F:="FLOP "+єmr(s%)+","+єmr(d%) ▄: √(щєpdp_E:="SUB "+єmr(s%)+","+єmr(d%) ═: ╙Qщєpdp_8:Г s%<32:=а"BPLBMIBHIBLSBVCBVSBCCBCS",3*((s%│4))+1,3)+" "+єjr(?Data%) Є#Г s%<36:="EMT &"+єh0(?Data%,2) Ў#Г s%<40:="TRAP &"+єh0(?Data%,2) хГ s%=52:="MTPS "+єmr(d%) рГ s%=53:="MFPD "+єmr(d%) эГ s%=54:="MTPD "+єmr(d%) ФГ s%=55:="MFPS "+єmr(d%) П="EQUB &"+єh0(!Data%,4) З: щєpdp_7 EГ s%<32:=а"MUL DIV ASH ASHC",4*(s%│8)+1,4)+" "+єmr(d%)+","+єr(s%) 'Г s%<40:="XOR "+єr(s%)+","+єmr(d%) "AГ s%=40:Г d%<32:=а"FADDFSUBFMULFDIV",4*(d%│8)+1,4)+" "+єr(d%) ,9Г(s%─&38)=&38:="SOB "+єr(s%)+","+єjr(d%-192*(d%>31)) 6="EQUB &"+єh0(!Data%,4) @: J(щєpdp_6:="ADD "+єmr(s%)+","+єmr(d%) T: ^Sщєpdp_0:Г s%<32:Г s%>3:=а"BR BNEBEQBGEBLTBGTBLE",3*(s%│4)-2,3)+" "+єjr(?Data%) h^Г s%=0:Г d%<7:=а"HALTWAITRTIBPTIOTRESETRTT",d%*4+1+(d%>2)+(d%>3)+(d%=5),4+(d%>1)-2*(d%>4)) rГ s%=1:="JMP "+єmr(d%) |!Г s%=2:Г d%<8:="RTS "+єr(d%) ├)Г s%=2:Г(d%─&38)=&18:="SPL "+ц(d%─7) ░/Г s%=2:Г(d%─&30)=&20:="CCC &"+єh0(d%─&F,2) /Г s%=2:Г(d%─&30)=&30:="SCC &"+єh0(d%─&F,2) єГ s%=3:="SWAB "+єmr(d%) ў/Г(s%─&38)=&20:="JSR "+єr(s%─7)+","+єmr(d%) ╦Г s%=52:="MARK &"+єh0(d%,2) бГ s%=53:="MFPI "+єmr(d%) лГ s%=54:="MTPI "+єmr(d%) жГ s%=55:="SXT "+єmr(d%) Ю="EQUB &"+єh0(!Data%,4) Й: Т;щєr(A%):A%=A%─7:Г A%=7:="PC" ▀ Г A%=6:="SP" ▀ ="R"+ц A% Ч.щєmr(A%):Й m%:m%=(A%─&38)│8:Г(A%─7)=7:=єpc Г m%=0:=єr(A%) Г m%=1:="("+єr(A%)+")" Г m%=2:="("+єr(A%)+")+" &Г m%=3:="@("+єr(A%)+")+" 0Г m%=4:="-("+єr(A%)+")" :Г m%=5:="@-("+єr(A%)+")" D@Г m%=6:num%=num%+2:="&"+єh0(Data%!(num%-2),4)+"("+єr(A%)+")" NAГ m%=7:num%=num%+2:="@&"+єh0(Data%!(num%-2),4)+"("+єr(A%)+")" X="" bщєpc lГ m%=0:="PC" vГ m%=1:="(PC)" ─2Г m%=2:num%=num%+2:="#&"+єh0(Data%!(num%-2),4) ┼3Г m%=3:num%=num%+2:="@#&"+єh0(Data%!(num%-2),4) ■Г m%=4:="-(PC)" ·Г m%=5:="@-(PC)" ╗;Г m%=6:num%=num%+2:="&"+єh0(Ptr%+num%+Data%!(num%-2),4) ╡<Г m%=7:num%=num%+2:="@&"+єh0(Ptr%+num%+Data%!(num%-2),4) ╪: фKщєjr(A%):Г A%<128:="&"+єh0(Ptr%+A%*2+2,4) ▀ ="&"+єh0(Ptr%+A%*2+2-512,4) п: "Т > 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%!... ═,Т -------------------------------------- ╙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$ !Т > 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А Ъ