Т > Startup &Т PDP11 Emulator with disassembler $Т v0.12 2004 JGH: Some more work /(Т v0.13 2005 JGH: *Commands, RTS, EMT, TRAP _2Т v0.14 01-Sep-2005 JGH: More EMTs and TRAPs, mode 7(pc) seems to work, works on PC/Windows W<Т TRAP 3 and 4 work for STD*, FNsrc() sets address of source \FТ v0.15 04-Mar-2006 JGH: Split out UNIX traps, allocated startup memory, branches fixed, 8PТ errors caught, flags change 1ZТ v0.16 20-May-2006 JGH: Uses new Make system CdТ v0.17 18-Mar-2007 JGH: prog% at &000 as per Unix expectations LnТ - means hardware vectors must be somewhere else GxТ stack frame created for files with headers `┌Т v0.18 13-Jan-2008 JGH: Uses updated disassembly API, stack frame includes null environment <▄Т v0.19 03-Feb-2008 JGH: Added some odd address checking =√Т v0.20 02-Sep-2008 JGH: Tightened up filename extensions @═Т v0.21 18-Feb-2009 JGH: Background handler sets Escape flag ╙: %ЄН ┘ Ж:РClose_All:Я" at line ";·:Ю OЎA$=єOS_GetEnv:ver$="0.22":debug%=0:РInit:A%=є_DEBUG(ц debug%):quiet%=A$<>"" ▀хГ A$="":Я"PDP11 Emulator v"ver$" (C)2001-2006 J.G.Harston"'"Memory start: &"єh0(mem%,8)" MemSz: &"єh0(mz%,6)" MemMsk: &"єh0(mm%,6) sрГ A$="":Я"prog: &"єh0(prog%,4)" base: &"єh0(base%,4)" err: &"єh0(err%,4)" sys: &";єh0(sys%,4)" io: &"єh0(io%,4) VэГ A$="":Я"Program space: &"єh0(mbot%,5)"-&"єh0(mtop%,5)" ";(mtop%-mbot%);" bytes" ФН ┘ РError:A$="" ПГ A$<>"":A%=є_RUN(A$) ЗГ run%:РGo Г quiet%:A%=є_QUIT("") "У Х ├"PDP11> "A$:Рcmd(A$,0):Щ0 Ю ": ,щРInit H6runpath$=run$:Г юrunpath$,1)="""":runpath$=аrunpath$,2,╘ runpath$-2) /@У runpath$=юrunpath$):Щ ї".:",бrunpath$,1)) 5Jd$=".":s$="/":Гos%>6:d$="/":s$=".":Гos%=32:d$="\" RTГos%=32:mx%=@vdu%!208:my%=@vdu%!212:mw%=@vdu%!216:mh%=@vdu%!220:mc%=@vdu%?73+1 C^swap$="PDPswap":mz%=єmemsize:mm%=mz%-1:mtop%=mz%:mbot%=0:run%=ё Whч ctrl% 31,zp% 127,r%(7),mem% mz%:psw%=0:trace0%=0:trace1%=&FFFF:X%=ctrl%:Y%=X%│256 Trprog%=єmem(0):base%=єmem(&100):base%=єmem(0) :Т Allocate low memory X|Т io%=FNmem(-&100):sys%=FNmem(-&100):err%=FNmem(-&100) :REM Allocate high memory W├io%=0:sys%=0:err%=єmem(-&100):mem%?err%=13:escflg%=err%+255 :Т Allocate high memory ░err0%=err%:РEscInit:А : >єщєmemsize:A%=2^╗(╙(⌠-▓-1024)/╙2):Г A%<&10000:=A% ▀ =&10000 Eўщєmem(A%):Г A%<0:mtop%=mtop%+A%:=mtop% ▀ mbot%=mbot%+A%:=mbot%-A% ╦: бщРError:X%=ctrl%:Y%=X%│256 лГ і-1:run%=ё GжГ ╛run%:Ж:РClose_All:Яю" at line "+ц·,÷<128 ─ ÷<>17):Г і-1:РRegDump IЮГ ÷=25:Гrun%:Г os%=32:run%=ё:О 23,22,mx%;my%;mw%,mh%,mc%,128:run%=╧:А ╔ЙГ run%:mem%!err%=÷:mem%!(err%+4)=&880F:mem%?(err%+6)=÷:$(mem%+err%+7)=ю"PDPEm: ",÷<128 ─ ÷<>17)+Ж$+Ґ0:Рpsw(0,0,╧,╧,÷=17,÷=17):r%(0)=err%+6:Г÷=17:mem%?escflg%=&FF ТА Ч: CщРcmd(A$,link%):Г A$<>"":Г юA$,1)=" ":У A$=аA$,2):Щ юA$,1)<>" " Г A$=""└юA$,1)="|":А Г юA$,1)="*":Ъ аA$,2):А &Г юA$,1)=".":Ъ "."+аA$,2):А !0Г юA$,1)="/":A$="RUN "+аA$,2) 2:A%=їA$+" "," "):C$=єuc(юA$,A%-1)):A$=аA$,A%+1) ODA%=ї" BASIC CORE DEBUG GO HELP LOAD MDUMP MDIS MEDIT QUIT RUN "," "+C$+" ") NГ A%:A%=═("FN_"+C$+"(A$)"):А XA%=є_run(C$+" "+A$,╧):А b: >lщє_HELP(A$):Я'"PDP11 Emulator ";ver$:Г єuc(A$)<>"PDP11":=0 bvЯ" BASIC"'" CORE "'" DEBUG [ [ ]]"'" GO ()"'" HELP" T─Я" LOAD "'" MDUMP "'" MDIS "'" QUIT"'" RUN " ┼=0 ■: *·щє_BASIC(A$):=є_RUN(" "+A$) ╗: D╡щє_MDIS(A$):Й N%,P%,C%:Г єuc(юA$,2))="&O":A$=єh0(єoct(аA$,3)),8) 5╪P%=═("&"+A$):У: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$ %зP%=P%+N%:C%=C%-1:ЩC%=0:C%=╔:Щ0:=0 Д: EНщє_MDUMP(A$):Й N%,P%,C%:Г єuc(юA$,2))="&O":A$=єh0(єoct(аA$,3)),8) /ЬP%=═("&"+A$):N%=16:У:C%=16:УЯєh0(P%,4);" "; -Ц A%=0 ╦ N%-1:Яєh0(mem%?(P%+A%),2);" ";:М (Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я %P%=P%+N%:C%=C%-1:ЩC%=0:C%=╔:Щ0:=0 : *щє_MEDIT(A$):=0 4: !>щє_QUIT(A$):Г ╩ A$:halt%=╧:=0 =HРClose_All:Т IF os%=32:PRINT"Press SPACE to exit";:A%=GET RЪ"QUIT":=0 \: fщє_RUN(A$):=є_run(A$,ё) p: *zщє_run(A$,osc%):г бA$,1)=" ":A$=юA$):н └A%=їA$+" "," "):Г A$="":А ▌: $≤Т 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 юТ Code entered at header!10 %йТ Not relocatable if header!14<>0 %тТ Cannot RTS to system, must exit 9чТ If no header, &0000 pushed onto stack, [&0000]=halt Х: WРC$=A$:F$=юA$,A%-1):in%=єopenin(F$):Г in%=0:in%=▌(F$+s$+"pdp"):Г in%=0:Г osc%:ЪC$:=0 #ЭГ in%=0:Я"Can't open '"F$"'":=0 "Рgbpb(3,in%,zp%,128,0):о#in%=0 ]Г zp%!(zp%?7)=&29432800:Г(zp%?6─&2F)=&27:A%=zp%?7:УA%=A%+1:Щzp%?A%=0:A%=A%+5:о#in%=zp%!A% TРgbpb(3,in%,zp%,16,▐#in%):о#in%=▐#in%-16:magic%=!zp% ─ &FFFF :Т Read file header T$Г magic%<>&107 ─ magic%<>&110 ─ magic%<>&111 ─ magic%<>&105:magic%=0 ▀ magic%=16 X.Рgbpb(3,in%,mem%+prog%-base%*(magic%=0),╒#in%-magic%-▐#in%,▐#in%+magic%):ы#in%:in%=0 V8Ц A%=0╦4:r%(A%)=0:М:r%(5)=&0BBC:r%(6)=mtop%-2:r%(7)=prog%+base%:Гdebug%─16:r%(5)=0 xBГ magic%:Рframe ▀ r%(6)=r%(6)-╘C$-3:$(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 L=є_GO(єh0(r%(7),4)) V: `Т Set up entry from header 0jТ Create stack frame with command parameters otТ 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 ]іA%=(zp%!6)─&FFFF:Г A%:B%=(zp%!2 ─&FFFF)+(zp%!4 ─&FFFF):У mem%?B%=0:B%=B%+1:A%=A%-1:Щ A%=0 /╟r%(7)=prog%+zp%!10 ─ &FFFF:A%=1:B%=1:C%=1:У T╨Г аC$,A%,1)=" ":C%=C%+1:B%=A%:У B%=B%+1:Щ аC$,B%,1)<>" ":C$=юC$,A%-1)+Ґ0+аC$,B%) DдA%=A%+1:Щ A%>╘ C$:$(mem%+mtop%-╘ C$-3)=C$+Ґ0+Ґ0:mem%?(mtop%-1)=0 Fнr%(6)=(mtop%-╘ C$-2*C%-6-3)─-2:mem%?r%(6)=C%:mem%?(r%(6)+1)=C%│256 ьA%=r%(6)+2:B%=mtop%-╘ C$-2-1 #БУ:mem%?A%=B%:mem%?(A%+1)=B%│256 4ЛУ:B%=B%+1:Щ mem%?B%=0 └ B%>mtop%:B%=B%+1:A%=A%+2 "ЖC%=C%-1:Щ C%<0:mem%!(A%-2)=0:А : 4 щє_LOAD(A$):A%=їA$," "):Г A%=0:Я"Bad address":=0 F$=юA$,A%-1):A$=аA$,A%+1) -Г єuc(юA$,2))="&O":A$=єh0(єoct(аA$,3)),8) 2(Ъ"Load "+єf_name(F$)+" "+ц~(mem%+═("&"+A$)):=0 2: <щє_CORE(A$):Т Dump core 'FA$=єf_name(єs(юA$,їA$+" "," ")-1))) $PЪ"Save "+A$+" "+ц~mem%+"+"+ц~mz% ZРSetType(A$,&FFD) d=0 n: ┘xщє_DEBUG(A$):ГA$="":Я" 1=Register Dump"'" 3=Single Step"'" 4=EMT calls"'" 8=ignore odd word accesses"'"16=r5<>&BBC on startup":=0 7┌debug%=0:trace0%=0:trace1%=&FFFF:Г єuc(A$)="OFF":=0 ,▄debug%=═(A$):Г(debug%─1):Г ╪<9:У Я:Щ ╪>8 6√A%=їA$," "):Г A%:trace0%=═(аA$,A%+1)):A$=аA$,A%+1) )═A%=їA$," "):Г A%:trace1%=═(аA$,A%+1)) ╙=0 Є: Ўщє_GO(A$):Г A$="":=0 -хГ єuc(юA$,2))="&O":A$=єh0(єoct(аA$,3)),8) рr%(7)=═("&"+A$):РGo:=0 э: ФщРSetType(A$,A%):Г os%>8:А ПЪ"SetType "+A$+" "+ц~A% ЗА : щєoct(A$):Й A%:У 0Г A$>"/" ─ A$<":":A%=A%*8+╩ юA$,1):A$=аA$,2) "Щ ╛(A$>"/" ─ A$<":"):=A% ,: 6щРRegDump:Й N%:Г ╠:Я O@Ц A%=0╦7:Я"R";A%;"= "єo0(r%(A%)─&FFFF,6)": ";єc(r%(A%)│256);єc(r%(A%));" "; -JЦ B%=r%(A%)╦r%(A%)+7:Я єc(mem%?B%);:М:О32 >TЦ B%=r%(A%)╦r%(A%)+7 ┬2:Я єo0(mem%!(B%─mm%)─&FFFF,6)" ";:М $^Я:М:Я"PSW="єo0(psw%,6);":";┴(5); 3hЯ ;(psw%─&E0)│32;":";а"T-",((psw%─16)<>0)+2,1); 8rЯ а"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));┴10 ├А ░: 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% 1жщєstr0(A%):A$="":У Г?A%>31:A$=A$+Ґ?A%:A%=A%+1 ЮЩ?A%<32 └ ╘ A$>254:=A$ Й: "ТщРEscInit:esch%=esch%:Гesch%:А ЧГos%=32 ▄ Cч P% 36, L% -1:[OPT 8:.escyes:mov byte [edi-1],0:mov eax,-1:ret 8.esch%:mov ecx,256:mov edi,[@vdu%-148]:mov al,27:cld >repnz scasb:jz escyes:xor eax,eax:ret:.escb%:dw 0:dw 0:]:А &м =0ч esch% 31:Ц P=0 ╦ 1:P%=esch%:[OPT P*2:MOV R11,R11,LSL #1 S:LDR R12,escb%:STRB R11,[R12]:MOV PC,R14:.escb%:EQUD mem%+escflg%:]:М:escho%=0:А $DщРEscOff:escho%=escho%:Гescho%:А KNГos%<>32: "OS_ChangeEnvironment",9,esch%,0,0 ╦ ,escho%,escRo%,escbo%:А :XЪ"ESC OFF":escho%=╧:Н ▒ Г╨esch%:mem%?escflg%=&FF:Ь ▀ Ь bА OlщРEscOn:Гos%<>32: "OS_ChangeEnvironment",9,escho%,escRo%,escbo%:escho%=0:А vН ▒ ┤:escho%=0:Ъ"ESC ON":А Т > PDP11 NТ Not yet done: SXT, ASHC, MARK, SOB, ops 1-7, SPL, M[F|T][PI|PD|PS], FLop $Т 08-Nov-2007: ops 1-7, SPL done >(Т 12-Aug-2008: SXT, ASHC, SOB, ops 1-7, SPL, M[F|T]PS done 2: (<щРGo:abort%=ё:halt%=0:run%=╧:РEscOff dFУ:Г(debug%─1):Г r%(7)>=trace0% ─ r%(7)<=trace1%:x%=╠:y%=╪:О30:РRegDump:О31,x%,y%:Г(debug%─2):Г ╔ .Pop%=mem%!(r%(7)─mm%):r%(7)=(r%(7)+2)─&FFFE @Zdd%=op%─63:ss%=(op%─&FC0)│64:op%=(op%─&F000)│&1000:by%=op%│8 JdA%=═("FN_"+ц~(op%─7)):Щhalt%:РEscOn:run%=ё:Г ╛quiet% └ abort%:РRegDump nА x: ┌Т 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 э: DФщєsrc(ss%,b%):Т Fetch source value, sets D% to address of source (ПЙ m%,r%,a%:D%=0:a%=&FFFF:Г b%:a%=&FF BЗm%=ss%│8:r%=ss%─7:b%=2-b%:Г r%>5:Г m%<6:b%=2:Т sp&pc always +2 NГ m%=0:D%=0:=r%(r%)─a% :Т Rn RГ m%=1:D%=r%(r%) :Т (Rn) SГ m%=2:D%=r%(r%):r%(r%)=r%(r%)+b% :Т (Rn)+ R"Г 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) R6Г 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) PJГ m%=7:D%=mem%!(r%(7)─mm%):r%(7)=r%(7)+2:D%=mem%!((r%(r%)+D%)─mm%) :Т @X(Rn) jTГ b%=2:Г(D%─1):Г(debug%─8)=0:Я"Bus error: word read from odd address (";m%;"/";r%;")":halt%=╧:abort%=╧ ^=mem%!(D%─mm%)─a% h: XrщР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) лА ж: +Ющєdst(dd%,b%):Т Fetch destination value 5ЙЙ m%,r%,a%:m%=dd%│8:r%=dd%─7:a%=&FFFF:Г b%:a%=&FF :ТГ m%=0:=r%(r%)─a% :Т Rn ;ЧГ m%=6:=mem%!((r%(r%)+D%)─mm%)─a% :Т X(Rn) =mem%!(D%─mm%)─a% : BщРdst(dd%,v%,b%):Т Store dest value and post-access reg adjust 0&Т Storing to mode 7 needs to double indirect D0Й 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 JDГ m%=0:Г b%=1:r%(r%)=(v%─&FF) └ (&FF00 ─ (v%─128)<>0):А :Т Rn RNГ m%=0:r%(r%)=v%:А :Т Rn eXГ m%<6:mem%?(D%─mm%)=v%:Гb%=2:mem%?((D%+1)─mm%)=v%│256 :Т (Rn) [@]-(Rn) [@](Rn)+ UbГ m%=2:r%(r%)=r%(r%)+b%:А :Т (Rn)+ VlГ m%=3:r%(r%)=r%(r%)+2:А :Т @(Rn)+ TvГ 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 ┼А ■: m·Т IF m%<3 OR m%=4:mem%?(r%(r%)ANDmm%)=v%:IF b%=2:mem%?((r%(r%)+1)ANDmm%)=v%DIV256 :REM (Rn), (Rn)+, -(Rn) r╗Т IF m%=3 OR m%=5:mem%?(mem%!r%(r%)ANDmm%)=v%:IF b%=2:mem%?((mem%!r%(r%)+1)ANDmm%)=v%DIV256:REM @(Rn)+, @-(Rn) `╡Т IF m%=2:r%(r%)=r%(r%)+b%:ENDPROC :REM (Rn)+ a╪Т IF m%=3:r%(r%)=r%(r%)+2:ENDPROC :REM @(Rn)+ `фТ IF m%=6:mem%?((r%(r%)+D%)ANDmm%)=v%:IF b%=2:mem%?((r%(r%)+D%+1)ANDmm%)=v%DIV256 :REM X(Rn) oпТ IF m%=7:mem%?(mem%!((r%(r%)+D%)ANDmm%)ANDmm%)=v%:IF b%=2:mem%?(mem%!((r%(r%)+D%)ANDmm%+1)ANDmm%)=v%DIV256 cзТ REM IFm%=7:mem%?((r%(r%)+D%)ANDmm%)=v%:IFb%=2:mem%?((r%(r%)+D%+1)ANDmm%)=v%DIV256 :REM @X(Rn) ДТ ENDPROC Н: 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) ( Г cv%:psw%=(psw%─&FFFD)└((nv%<>0)─2) (*Г cc%:psw%=(psw%─&FFFE)└((nc%<>0)─1) 4А >: /HщРcarry(c%):psw%=(psw%─&FFFE)└((c%<>0)─1):А R: \Т b1xxxx - MOV/MOVB: Pfщє_1:V%=єsrc(ss%,by%):Рpre(dd%,by%):Рdst(dd%,V%,by%):Рpsw(V%,by%,1,0,0,0):=0 p: zТ 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 Y≤V%=((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%) 6чV%=╛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 : Т b6xxxx - ADD/SUB: R$щє_6:V%=єsrc(ss%,0)─&FFFF:Рpre(dd%,0):W%=єdst(dd%,0):Г by%:R%=W%-V% ▀ R%=W%+V% ;.V%=(V%─&8000)=(W%─&8000):V%=V%─((R%─&8000)<>(W%─&8000)) 48Рdst(dd%,R%,0):Рpsw(R%,0,1,V%,1,R%─&FFFF0000):=0 B: /LТ b7xxxx - MUL/DIV/ASH/ASHC/XOR/Fop/???/SOB (Vщє_7:Г by%:=0 ▀ =═("FN_7"+ц~(ss%│8)) `: 2jТ b0xxxx - HALT/etc/Bxx/JSR/CLRetc/RORetc/und: ,tщє_0:Г(ss%─&20)=0:Г ss%>3 └ by%:=єbranch ~Г ss%│8=7:=0 ┬Г ss%│8=4:=є_04 ▓=═("FN_0"+єo0(ss%,2)) °: 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 ZБГ op%=6 :=єrel(((psw%─4)<>0)└(((psw%─8)<>0)┌((psw%─2)<>0))=0):Т BGT - Z OR (N XOR V)=0 [ЛГ 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 G Г op%=10:=єrel(((psw%─1)<>0)└((psw%─4)<>0)=0) :Т BHI - C OR Z =0 GГ op%=11:=єrel(((psw%─1)<>0)└((psw%─4)<>0)<>0) :Т BLOS- C OR V =1 DГ op%=12:=єrel((psw%─2)=0) :Т BVC - V=0 D(Г op%=13:=єrel((psw%─2)<>0) :Т BVS - V=1 D2Г op%=14:=єrel((psw%─1)=0) :Т BCC - C=0 D<Г op%=15:=єrel((psw%─1)<>0) :Т BCS - C=1 F=0 P: Zщєrel(A%):Г ╛A%:=0 ?dГ dist%>127:r%(7)=r%(7)-(256-dist%)*2 ▀ r%(7)=r%(7)+dist%*2 n=0 x: .┌Т 0000dd - HALT/WAIT/RTI/BPT/IOT/RESET/RTT ▄щє_000 √Г dd%=0:halt%=╧:=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 Ф=0 П: ЗТ 0001dd - JMP: Pщє_001:Г(dd%─&38)=0 └ dd%=&17:Г(debug%─8)=0:Я"JMP fault":halt%=╧:abort%=╧:=0 ]A%=єsrc(dd%,0):Г(D%─1):Г(debug%─8)=0:Я"Bus error: JMP to odd address":halt%=╧:abort%=╧:=0 r%(7)=D%:=0 ": 0,Т 0002xx - RTS/-/-/SPL/Clear flags/Set flags 6щє_002 /@Г dd%>47:psw%=psw%└(dd%─15):=0 :Т Sxx ,JГ dd%>23:psw%=psw%─╛(dd%─15):=0 :Т Cxx 2TГ(dd%│8)=3:=0 :Т SPL n .^Г(dd%│8)=2:=0 :Т - .hГ(dd%│8)=1:=0 :Т - ;rr%=dd%─7:r%(7)=r%(r%):W%=mem%?(r%(6)─mm%):r%(6)=r%(6)+1 L|W%=mem%?(r%(6)─mm%)*256+W%:r%(6)=r%(6)+1:r%(r%)=W%:=0 :Т RTS r ├: ░Т 0003dd - SWAB: F щє_003:Рpre(dd%,0):V%=єdst(dd%,0):!zp%=V%:zp%!2=V%:R%=zp%!1 ─&FFFF (єРdst(dd%,R%,0):Рpsw(V%,0,1,0,1,0):=0 ў: $╦Т 0004rdd - JSR Rn,dst/EMT/TRAP: бщє_04:Г by%:=є_TRAP ;лГ(dd%─&38)=0 └ dd%=&17:Я"JSR fault":halt%=╧:abort%=╧:=0 OжA%=єsrc(dd%,0):Г(D%─1):Я"Bus error: JSR to odd address":halt%=╧:abort%=╧:=0 <Юr%=ss%─7:W%=r%(r%):r%(6)=r%(6)-1:mem%?(r%(6)─mm%)=W%│256 RЙr%(6)=r%(6)-1:mem%?(r%(6)─mm%)=W%:r%(r%)=r%(7):r%(7)=D%─&FFFE:=0 :Т JSR r,dd Т: ЧТ b050dd - CLR: ?щє_050:Рpre(dd%,by%):Рdst(dd%,0,by%):Рpsw(0,by%,1,0,1,0):=0 : Т b051dd - COM: S&щє_051:Рpre(dd%,by%):V%=╛єdst(dd%,by%):Рdst(dd%,V%,by%):Рpsw(V%,by%,1,0,1,1):=0 0: :Т b052dd - INC DDщє_052:Рpre(dd%,by%):V%=(єdst(dd%,by%)+1)─&FFFF:Рdst(dd%,V%,by%) QNГ by%:Рpsw(V%─&FF,by%,1,(V%─&FF)=&80,0,0):=0 ▀ Рpsw(V%,by%,1,V%=&8000,0,0):=0 X: bТ b053dd - DEC Dlщє_053:Рpre(dd%,by%):V%=(єdst(dd%,by%)-1)─&FFFF:Рdst(dd%,V%,by%) QvГ by%:Рpsw(V%─&FF,by%,1,(V%─&FF)=&7F,0,0):=0 ▀ Рpsw(V%,by%,1,V%=&7FFF,0,0):=0 ─: ┼Т b054dd - NEG: E■щє_054:Рpre(dd%,by%):V%=(╛єdst(dd%,by%)+1)─&FFFF:Рdst(dd%,V%,by%) M·Г by%:Рpsw(V%,by%,1,V%=&80,1,V%=0):=0 ▀ Рpsw(V%,by%,1,V%=&8000,1,V%=0):=0 ╗: ╡Т b055dd - ADC: G╪щє_055:Рpre(dd%,by%):V%=єdst(dd%,by%):W%=psw%─1:Рdst(dd%,V%+W%,by%) lфГ by%:Рpsw(V%+W%,by%,1,V%=&7F ─ W%,1,V%=FF ─ W%):=0 ▀ Рpsw(V%+W%,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%) gНГ by%:Рpsw(V%-W%,by%,1,V%=&80 ─ W%,1,V%=0 ─ W%):=0 ▀ Рpsw(V%-W%,by%,1,V%=&8000 ─ W%,1,V%=0 ─ W%):=0 Ь: Т b057dd - TST: 3щє_057:V%=єsrc(dd%,by%):Рpsw(V%,by%,1,0,1,0):=0 : Т b060dd - ROR: 3*щє_060:Рpre(dd%,by%):V%=єdst(dd%,by%):W%=psw%─1 O4Г by%=1:R%=((V%│2)─&7F)└(W%*&80):Рpsw(R%,by%,1,(R%>&7F)┌((V%─1)<>0),1,V%─1) U>Г by%=0:R%=((V%│2)─&7FFF)└(W%*&8000):Рpsw(R%,by%,1,(R%>&7FFF)┌((V%─1)<>0),1,V%─1) HРdst(dd%,R%,by%):=0 R: \Т b061dd - ROL: 3fщє_061:Рpre(dd%,by%):V%=єdst(dd%,by%):W%=psw%─1 MpГ by%=1:R%=((V%*2)─&FE)└W%:Рpsw(R%,by%,1,(R%>&7F)┌((V%─&80)<>0),1,V%─&80) UzГ by%=0:R%=((V%*2)─&FFFE)└W%:Р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%) S╛Г by%=1:W%=V%─&80:R%=((V%│2)─&7F)└W%:Рpsw(R%,by%,1,(R%>&7F)┌((V%─1)<>0),1,V%─1) YІГ by%=0:W%=V%─&8000:R%=((V%│2)─&7FFF)└W%:Р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%) HХГ by%=1:R%=(V%*2)─&FE:Рpsw(R%,by%,1,(R%>&7F)┌((V%─&80)<>0),1,V%─&80) PРГ by%=0:R%=(V%*2)─&FFFE:Рpsw(R%,by%,1,(R%>&7FFF)┌((V%─&8000)<>0),1,V%─&8000) ЭРdst(dd%,R%,by%):=0 : Т b064dd - MARK/MTPS: ; щє_064:Гby%:psw%=єsrc(ss%,0):=0 :Т MTPS <$ Я"#"єo0(r%(7)-2,6)":"єo0(mem%!(r%(7)-2),6)"#";:=0:Т MARK . : H8 щє_065:Я"#"єo0(r%(7)-2,6)":"єo0(mem%!(r%(7)-2),6)"#";:=0:Т MFPI/MFPD HB щє_066:Я"#"єo0(r%(7)-2,6)":"єo0(mem%!(r%(7)-2),6)"#";:=0:Т MTPI/MTPD L : V Т b067dd - SXT/MFPS: 8` щє_067:Гby%:Рpre(dd%,0):Рdst(dd%,psw%,0):=0 :Т MFPS 8j Рpre(dd%,0):V%=єdst(dd%,0)─&FF:Г(V%─&80):V%=V%└&FF00 >t Рdst(dd%,V%,0):=0 :Т SXT ~ : ┬ Т 070rdd - MUL: 2▓ щє_70:V%=єsrc(dd%,0):r%=ss%─7:r=V%*r%(r%):W%=0 C° Г r>&7FFFFFFF:r=&7FFFFFFF:W%=1 ▀ Г r<&80000000:r=&80000000:W%=1 ;і r%(r%└1)=r │65536:r%(r%)=r ─&FFFF:Рpsw(r,0,1,0,1,W%):=0 ╟ : ╨ Т 071rdd - DIV: ?д щє_71:V%=єsrc(dd%,0):r%=ss%─7:Г r%─1:psw%=(psw%─&FFFD)└2:=0 Sн !zp%=r%(r%):zp!2=r%(r%└1):Г v%<>0:W%=!zp%│ V%:R%=!zp%┐ V%:r%(r%└1)=R%:r%(r%)=W% /ь Рpsw(W%,0,V%=0 └ ■(r%(r%))>■(V%),1,V%=0):=0 Б : Л Т 072rdd - ASH: $Ж щє_72:V%=єsrc(dd%,0)─63:r%=ss%─7 ; Г V%<32:R%=r%(r%)*2^V%:Рpsw(R%─&FFFF,0,1,0,1,R%─&10000) = Г V%>31:R%=r%(r%)│2^(63-V%):Рpsw(R%,0,1,0,1,R%─1):R%=R%│2 r%(r%)=R%─&FFFF:=0 : ( Т 073rdd - ASHC: $2 щє_73:V%=єsrc(dd%,0)─63:r%=ss%─7 f< Г V%<32:R%=r%(r%)*2^V%:S%=(r%(r%└1)*2^V%)└(R%│65536):Рpsw((R%─&FFFF)└(S%─&FFFF),0,1,0,1,S%─&10000) ├F Г V%>31:R%=(r%(r%)│2^(63-V%))└(r%(r%└1)*2^(V%-47)):S%=(r%(r%└1)│2^(63-V%)):Рpsw(R%└S%,0,1,0,1,R%─1):S%=S%│256+32768*(R%─1):R%=R%│2 (P r%(r%)=R%─&FFFF:r%(r%└1)=S%─&FFFF:=0 Z : d Т XOR: 4n щє_74:Рpre(dd%,0):V%=єdst(dd%,0):R%=V%┌r%(ss%─7) (x Рdst(dd%,R%,0):Рpsw(R%,0,1,0,0,0):=0 ┌ : ▄ Т 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 (: H2щє_TRAP:dd%=dd%+(ss%─7)*64:Г(debug%─4):РDbTrap:Т &0xx=EMT, &1xx=TRAP :<Гdd%<16:psw%=psw%─-4:A%=r%(0):A%=═("FN_EMT"+ц~dd%):=A% $FГdd%<256:=═("FN_EMT("+ц dd%+")") UPdd%=dd%─&FF:r7%=r%(7):Гdd%<&40:A%=═("FN_TRAP"+ц~dd%) ▀ A%=═("FN_TRAP("+ц~dd%+")") Zr%(7)=r7%:=A% d: AnщРDbTrap:Г(dd%>3 ─ dd%<7) └ (dd%>&102 ─ dd%<&105 ─ r%(0)<3):А ≈xГdd%<16:Я"OS";а"QUITCLI BYTEWORDWRCHNEWLRDCHFILEARGSBGETBPUTGBPBFINDSYS1SYS2ERR ",dd%*4+1,4);" r0=";~r%(0);" r1=";~r%(1);" r2=";~r%(2):А:Т ;" ";:E. Й┌Г(dd%─&120)=&100:Я а"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%-256)*6+1,6); Й▄Г(dd%─&120)=&120:Я а"gtty [33] nice ftime sync kill [38] [39] [40] dup2 pipe times profil[45] setgidgetgidsignal[49] [50] acct phys lock ioctl [55] [56] [57] [58] exece umask chroot[62] [63]",(dd%-288)*6+1,6); L√Я" r0=";єh0(r%(0),4);" pc=>";єh0(mem%!r%(7),4);" ";єh0(mem%!(r%(7)+2),4) ═А ╙: >Єщє_EMT0:halt%=╧:=0 :Т QUIT DЎщє_EMT1:РEscOn:Рcmd($(mem%+r%(0)),╧):r%(0)=0:РEscOff:=0 :Т OSCLI ?хщє_EMT2:Й X%,Y% :Т 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 JФГ 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 FЗГ A%=&7F:Гr%(1)=0 └ r%(1)=&FFFF:r%(1)=0:=0 :Т =EOF#0/-1 DГ A%=&A0:Гєvdu:=0 :Т =VDU(n) oГos%<>32:X%=r%(1):Y%=r%(2):A%=╨&FFF4:r%(1)=(A%─&FFFF00)│256:r%(2)=(A%─&FF0000)│65536:Рcarry(A%─&1000000):=0 Т Windows OSBYTE calls: 3"Г A%=128:Гr%(1)=7: r%(1),A%,A%:r%(2)=A%│256:=0 3,Г A%=128:Гr%(1)=8: A%,r%(1),A%:r%(2)=A%│256:=0 36Г A%=128:Гr%(1)=9: A%,A%,r%(1):r%(2)=A%│256:=0 @х A% й Jи 0:r%(1)=32:=0 Tи 127:r%(1)=е#r%(1):=0 >^и 128:A%=√((r%(1)─255)+256*r%(2)):r%(1)=A%:r%(2)=A%│256:=0 Lhи 129:A%=і((r%(1)─255)+256*r%(2)):r%(1)=A%:r%(2)=A%│256:Рcarry(A%=-1):=0 rи 134:r%(1)=╠:r%(2)=╪:=0 !|и 135:r%(1)=╔(╠,╪):r%(2)=К:=0 ├и 160: ░х r%(1) й 3 и 0,128: "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!0 3єи 2,129: "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!4 3ўи 4,130: "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!8 4╦и 6,131: "GetRgnBox",@vdu%!60,zp%:r%(1)=zp%!12 'би 8,132:r%(1)=@vdu%!24 │ @vdu%!216 )ли 9,133:r%(1)=@vdu%!36 │ @vdu%!220-1 )жи 10,134:r%(1)=@vdu%!28 │ @vdu%!216-1 'Юи 11,135:r%(1)=@vdu%!32 │ @vdu%!220 Йи 12,136:r%(1)=2*@vdu%!0 Ти 14,137:r%(1)=2*@vdu%!4 Чи 16,138:r%(1)=2*@vdu%!8 Cи 18,139: "GetRgnBox",@vdu%!60,zp%:r%(1)=2*(zp%!12-@vdu%!12-1) и 20,142:r%(1)=@vdu%!16 Aи 22,143: "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!12-@vdu%!20-1) &и 36:r%(1)=@vdu%!8 =0и 38: "GetRgnBox",@vdu%!60,zp%:r%(1)=(zp%!12-@vdu%!12-1) :и 87,155:r%(1)=@vdu%?70 Dи 88,156:r%(1)=@vdu%?71 Nи 89,153:r%(1)=@vdu%?65 Xи 90,154:r%(1)=@vdu%?67 4bи 91,151:r%(1)=3-(@vdu%?64-7)│2:Гr%(1)<0:r%(1)=1 4lи 92,152:r%(1)=3-(@vdu%?66-7)│2:Гr%(1)<0:r%(1)=1 vи 96,3:r%(1)=@vdu%?73 ─л ┼r%(1)=0 ■к ·r%(2)=r%(1)│256:=0 l╗Т r%(2)=r%(1)+1:r%(2)=(@vdu%!(((r%(2)AND-4)+VALMID$("0312",(r%(2)AND3)+1,1)-2)*4))DIV(8*(1+(r%(2)AND1))) a╡Т r%(1)=(@vdu%!(((r%(1)AND-4)+VALMID$("0312",(r%(1)AND3)+1,1)-2)*4))DIV(8*(1+(r%(1)AND1))):=0 ╪к ф=0 пщєvdu:Гos%=32:=0 зГr%(1)<16:Гr%(1)<>3:=0 ДГ ё ▄ Н=0 Ьм %Т ARM and R1>15 or ARM and R1=3 Гr%(1)=3:r%(1)=96 х r%(1) й и 16:A%=138 *и 18:A%=139 4и 20:A%=142 >и 22:A%=143 Hи 36:A%=144 Rи 38:A%=145 \и 77:A%=148 fи 80:A%=149 pи 83:A%=150 zи 87:A%=155 └и 88:A%=156 ▌и 89:A%=153 ≤и 90:A%=154 ╒и 91:A%=151 ╛и 92:A%=152 Іи 96:A%=3 юл (йA%=r%(1):Г A%<128:r%(1)=0:r%(1)=0:=╧ тк 6ч!zp%=A%:zp%!4=-1: "OS_ReadVduVariables",zp%,zp%+8 Хr%(1)=zp%!8:r%(2)=r%(1)│256 Р=╧ Э: +щє_EMT3:Й X%,Y% :Т OSWORD BГ A%=0:РEscOn:Х ├""A$:$(mem%+(mem%!r%(1)─&FFFF))=A$:РEscOff:=0 7Гos%<>32 └ A%=10:X%=mem%+r%(1):Y%=X%│256:ж &FFF1:=0 $х A% й .и 1:mem%!r%(1)=▒:=0 8и 2:я=mem%!r%(1):=0 DBи 7:т mem%!r%(1),mem%!(2+r%(1)),mem%!(4+r%(1)),mem%!(6+r%(1)):=0 чLи 8:Б mem%?r%(1),mem%?(1+r%(1)),mem%?(2+r%(1)),mem%?(3+r%(1)),mem%?(4+r%(1)),mem%?(5+r%(1)),mem%?(6+r%(1)),mem%?(7+r%(1)),mem%?(8+r%(1)),mem%?(9+r%(1)),mem%?(10+r%(1)),mem%?(11+r%(1)),mem%?(12+r%(1)),mem%?(13+r%(1)):=0 Vи 14:$(mem%+r%(1))=▒$:=0 `и 15:я$=$(mem%+r%(1)):=0 jк t=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%):М ╟fn%=mem%+(mem%!r%(1)─&FFFF) 5╨Г r%(0)=0 └ r%(0)=255:Рaddr(2):Г r%(0)=0:Рaddr(6) rдГ os%<32: "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($fn%,r%(0)) .нЦ A%=2 ╦ 14 ┬ 4:mem%!(r%(1)+A%)=X%!A%:М:=0 -ьщРaddr(A%):ГX%!A%<&10000:X%!A%=mem%+A%!X% БА /Лщє_EMT8 :Т OSARGS )ЖГ os%=32:Г 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% й %и 0:mem%!r%(2)=0:=0 :Т =PTR#0/-1 %(и 1:=0 :Т PTR#0/-1= %2и 2:mem%!r%(2)=0:=0 :Т =EXT#0/-1 %<и 3:=0 :Т EXT#0/-1= 'Fи 4:mem%!r%(2)=0:=0 :Т =Alloc#0/-1 %Pи 5:mem%!r%(2)=0:=0 :Т =EOF#0/-1 Zк dм nх A% й xи 0:mem%!r%(2)=▐#r%(1):=0 ┌и 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 Єл /Ўmem%!r%(1)=єargs(r%(0),r%(1),mem%!r%(2)):=0 хк р=0 ,эщє_EMT9:Г r%(1)=0:r%(0)=╔:=0 :Т OSBGET ФГos%=32:r%(0)= #r%(1):=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 5,Г ?X%=0:ГA%=3└A%=4:У?(X%!1)=╔:X%!5=X%!5-1:ЩX%!5<1 *6Г ?X%:Рgbpb(r%(0),X%?0,X%!1,X%!5,X%!9) @Г B%:X%!1=X%!1-mem% 'JЦ A%=0 ╦ 12:mem%?(r%(1)+A%)=X%?A%:М T=0 /^щє_EMTC :Т OSFIND hГ A%=0:ы#r%(1):=0 2rГ (A%─&C0)=&40:r%(0)=єopenin($(mem%+r%(1))):=0 3|Г (A%─&C0)=&80:r%(0)=єopenout($(mem%+r%(1))):=0 2├Г (A%─&C0)=&C0:r%(0)=єopenup($(mem%+r%(1))):=0 ░=0 , щє_EMTD :Т SYS +єГA%=0:Гr%(1):=є_BASIC($(mem%+r%(1))):=0 "ўГA%=0:Гr%(1)=0:=є_BASIC(""):=0 C╦ГA%=1 └ A%=2:err%=err0%:escflg%=err%+255:!escb%=mem%+escflg%:=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%(2)=err% :Гr2%:err%=r2% :Т Error handler Й=0 .Тщє_EMTF:=0 :Т ERROR Чщє_EMT(A%):=0 : Т > Unix Т PDP11 Unix Trap functions 7Т v0.15 04-Mar-2006 JGH: Separated out from PDP11Em C(Т 17-Mar-2006 JGH: read/write done, added exit,open,close (2Т v0.16 20-May-2006 JGH: Added indir =<Т v0.17 20-Feb-2009 JGH: Added rudimentary SIGINT capture F: CPщє_TRAP0:Т indir - entry: (pc+0)=>TRAP instruction, parameters PZr7%=mem%!r%(7)─&FFFF :Т Address of ind'ed TRAP instruction Bddd%=mem%!r7%─255:r7%=r7%+2 :Т Get TRAP instruction JnГ dd%<&40:A%=═("FN_TRAP"+єh0(dd%,2)) ▀ A%=═("FN_TRAP("+єh0(dd%,2)+")") xr7%=r%(7)+2:=A% ┌: (▄щє_TRAP1:Т exit - entry: r0=status √halt%=╧ ═=0 ╙: Єщє_TRAP2:Т fork - 'ЎТ - exit: r0=new process ID х=0 р: 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 AЗГr%(0)<3:ЦA%=0╦count%-1:mem%?(buffer%+A%)=╔:М:r%(0)=count%:=0 :Рgbpb(4,r%(0),mem%+buffer%,count%,0):r%(0)=count%-X%!5 =0 : F"щє_TRAP4:Т write - entry: r0=filedes, (pc+0)=buffer, (pc+2)=count #,Т exit: r0=byte count >6buffer%=mem%!r7%─&FFFF:count%=mem%!(r7%+2)─&FFFF:r7%=r7%+4 @@Гr%(0)<3:ЦA%=0╦count%-1:Оmem%?(buffer%+A%):М:r%(0)=count%:=0 :JРgbpb(2,r%(0),mem%+buffer%,count%,0):r%(0)=count%-X%!5 T=0 ^: 8hщє_TRAP5:Т open - entry: (pc+0)=>name, (pc+2)=mode rТ exit: r0=filedes C|name%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+4:r%(0)=0 -├Гmode%=0:r%(0)=єopenin(єstr0(mem%+name%)) .░Гmode%=1:r%(0)=єopenout(єstr0(mem%+name%)) - Гmode%=2:r%(0)=єopenup(єstr0(mem%+name%)) єГr%(0)=0:r%(0)=&FFFF ў=0 ╦: )бщє_TRAP6:Т close - entry: r0=filedes лГr%(0)>2:ы#r%(0) ж=0 Ю: $Йщє_TRAP7:=0 :Т wait - .ТТ exit: r0=process ID, r1=status 8Чщє_TRAP8:Т creat - entry: (pc+0)=>name, (pc+2)=mode Т exit: r0=filedes ;name%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+4 :r%(0)=єopenout(єstr0(mem%+name%)):Гr%(0)=0:r%(0)=&FFFF &=0 0: ;:щє_TRAP9:Т link - entry: (pc+0)=>name1, (pc+2)=>name2 Dr7%=r7%+4:r%(0)=&FFFF:=0 N: +Xщє_TRAPA:Т unlink - entry: (pc+0)=>name *bname%=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 !·r%(0)=єcmd(єstr0(mem%+name%)) ╗=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 - +ЬТ exit: r0:r1=time since 1970 3!zp%=▒ │100:r%(1)=!zp%─&FFFF:r%(0)=zp%!2 ─&FFFF =0 : E щє_TRAPE:Т mknod - entry: (pc+0)=>name, (pc+2)=mode, (pc+4)=addr ;*name%=mem%!r7%─&FFFF:mode%=mem%!(r7%+2)─&FFFF:r7%=r7%+6 94Г(mode%─16384):A%=єfile(8,єf_name(єstr0(mem%+name%))) >=0 H: ERщє_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 4fщє_TRAP11:r7%=r7%+0:=0:Т brk - entry: r0=addr p: 9zщє_TRAP12:Т stat - entry: (pc+0)=>name, (pc+2)=>buf E└name%=mem%!r7%─&FFFF:buffer%=mem%!(r7%+2)─&FFFF:r7%=r7%+4:r%(0)=0 <▌A%=єfile(5,єf_name(єstr0(mem%+name%))):ГA%=0:r%(0)=&FFFF ≤mem%!(buffer%+14)=X%!10 ╒=0 ╛: ]Іщє_TRAP13:Т lseek - entry: r0=filedes, (pc+0)=>offsetlo, (pc+2)=>offsethi, (pc+4)=whence 8юoffset%=mem%!r7%:where%=mem%!(r7%+4)─&FFFF:r7%=r7%+6 йГr%(0)<3:r%(0)=0:r%(1)=0:=0 тГwhere%=0:о#r%(0)=offset% %чГwhere%=1:о#r%(0)=▐#r%(0)+offset% %ХГwhere%=2:о#r%(0)=╒#r%(0)+offset% 5Рr%(0)=▐#r%(0):r%(1)=r%(0)│65536:r%(0)=r%(0)─&FFFF Э=0 : %щє_TRAP14:r7%=r7%+0:=0:Т getpid - #Т exit: r0=process ID Y$щє_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 38щє_TRAP17:r7%=r7%+0:=0:Т setuid - entry: r0=uid %Bщє_TRAP18:r7%=r7%+0:=0:Т getuid - 3LТ exit: r0=real uid, r1=effective uid BVщє_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 jТ exit: r0=value !tщє_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)=>filem (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 :дщє_TRAP23:r7%=r7%+2:=0:Т ftime - entry: (pc+0)=bufptr н: ьщє_TRAP24:Т sync БA%=єargsA(&FF) Л=0 Ж: ?щє_TRAP25:r7%=r7%+2:=0:Т kill - entry: r0=pid, (pc+0)=sig % щє_TRAP26:r7%=r7%+0:=0:Т switch - -Т exit: r0=front panel switches !щє_TRAP27:r7%=r7%+0:=0:Т [39] !(щє_TRAP28:r7%=r7%+0:=0:Т [40] E2щє_TRAP29:r7%=r7%+0:=0:Т dup2 - entry: r0=filedes1, r1=filedes2 $<Т exit: r0=new filedes 7Fщє_TRAP2A:r7%=r7%+2:=0:Т pipe - entry: (pc+0)=??? 7PТ exit: r0=read filedes, r1=write filedes :Zщє_TRAP2B:r7%=r7%+2:=0:Т times - entry: (pc+0)=buffer edщє_TRAP2C:r7%=r7%+8:=0:Т profil - entry: (pc+0)=buff, (pc+2)=bufsize, (pc+4)=offset, (pc+6)=scale ,nщє_TRAP2D:r7%=r7%+0:=0:Т tui - [null] 3xщє_TRAP2E:r7%=r7%+0:=0:Т setgid - entry: r0=gid %┌щє_TRAP2F:r7%=r7%+0:=0:Т getgid - 3▄Т 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] !хщє_TRAP32:r7%=r7%+0:=0:Т [50] %рщє_TRAP33:r7%=r7%+0:=0:Т acct - Jэщє_TRAP34:r7%=r7%+4:=0:Т phys - entry: (pc+0)=segreg, (pc+2)=physadr 8Фщє_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 !Зщє_TRAP37:r7%=r7%+0:=0:Т [55] !щє_TRAP38:r7%=r7%+0:=0:Т [56] !щє_TRAP39:r7%=r7%+0:=0:Т [57] !щє_TRAP3A:r7%=r7%+0:=0:Т [58] S"щє_TRAP3B:r7%=r7%+6:=0:Т exece - entry: (pc+0)=>name, (pc+2)=argv, (pc+4)=envp =,щє_TRAP3C:r7%=r7%+2:=0:Т umask - entry: (pc+0)=complmide <6щє_TRAP3D:r7%=r7%+2:=0:Т chroot - entry: (pc+0)=>dirname !@щє_TRAP3E:r7%=r7%+0:=0:Т [62] !Jщє_TRAP3F:r7%=r7%+0:=0:Т [63] Tщє_TRAP(A%):=0 1 Т > DisPDP 1.00 - 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: qZГ(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: pnГ((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 >Г s%<40:=а"MUL DIV ASH ASHCXOR ",3*(s%│8)+1,4)+" "+єmr(d%) AГ s%=40:Г d%<32:=а"FADDFSUBFMULFDIV",3*(d%│8)+1,4)+" "+єr(d%) 9"Г(s%─&38)=&38:="SOB "+єr(s%)+","+єjr(d%-192*(d%>31)) ,="EQUB &"+єh0(!Data%,4) 6: (@щєpdp_6:="ADD "+єmr(s%)+","+єmr(d%) J: STщєpdp_0:Г s%<32:Г s%>3:=а"BR BNEBEQBGEBLTBGTBLE",3*(s%│4)-2,3)+" "+єjr(?Data%) ^^Г s%=0:Г d%<7:=а"HALTWAITRTIBPTIOTRESETRTT",d%*4+1+(d%>2)+(d%>3)+(d%=5),4+(d%>1)-2*(d%>4)) hГ s%=1:="JMP "+єmr(d%) !rГ 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%)+")+" &Г m%=4:="-("+єr(A%)+")" 0Г m%=5:="@-("+єr(A%)+")" @:Г m%=6:num%=num%+2:="&"+єh0(Data%!(num%-2),4)+"("+єr(A%)+")" ADГ m%=7:num%=num%+2:="@&"+єh0(Data%!(num%-2),4)+"("+єr(A%)+")" N="" Xщєpc bГ m%=0:="PC" lГ m%=1:="(PC)" 2vГ 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)" 8·Г m%=6:num%=num%+2:="&"+єh0(Ptr%+4+Data%!(num%-2),4) 9╗Г m%=7:num%=num%+2:="@&"+єh0(Ptr%+4+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 7FТ ------------------------------------------------- /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 xxxxxxxxx JGH: Added Octal and Binary 4(Т Bug: Octal and Binary don't work 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 ?эщєo0(A%,N%):Й A$,B$:ГA%<0:B$="7":A%=A% ─ &7FFFFFFF ▀ B$="0" 7ФУ A$=ц(A% ─ 7)+A$:A%=A% │ 8:Щ A%=0:=бдN%,B$)+A$,N%) П: ЗТ Octal padded with spaces >щєo(A%,N%):Й A$,B$:ГA%<0:B$="7":A%=A% ─ &7FFFFFFF ▀ B$=" " 7У A$=ц(A% ─ 7)+A$:A%=A% │ 8:Щ A%=0:=бдN%,B$)+A$,N%) : "Т Binary padded with zeros ?,щєb0(A%,N%):Й A$,B$:ГA%<0:B$="1":A%=A% ─ &7FFFFFFF ▀ B$="0" 66У A$=ц(A% ─ 1)+A$:A%=A% │ 2:ЩA%=0:=бдN%,B$)+A$,N%) @: JТ Binary padded with spaces >Tщєb(A%,N%):Й A$,B$:ГA%<0:B$="1":A%=A% ─ &7FFFFFFF ▀ B$=" " 6^У A$=ц(A% ─ 1)+A$:A%=A% │ 2:ЩA%=0:=бдN%,B$)+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.04 09Jan2007 : #Т Program Environment Functions #(Т ============================= 2: ?<Т Return command line tail, sets run$ to execution filename ;FТ Works with BASIC on I/O,T6502,Arc,TZ80BBC,PC,Win,TARM ;PТ Needs: 270 free bytes above end of heap for temp. w/s ?ZТ --------------------------------------------------------- @dщєOS_GetEnv:ЙA$,A%,X%,Y%:X%=1:os%=((╨&FFF4)─&FF00)│256:чX%-1 InГos%=32:Г░>&FFFF: "GetModuleFileName",0,X%,255:A$=$$X%:run$=A$:=@cmd$ xГos%=32:A$=$&100 y┌Г╘A$=0:Г░>&7FFF:run$=$&8100: "OS_GetEnv"╦A$,,A%: "OS_WriteEnv","",A%:A$=аA$,1+їA$+" "," ",1+їA$," "))):Г╘A$=0:A$=run$ 2▄Г╘A$=0:Г?(╦P-3):A$=$&600 ▀ Г╘A$=0:A$=$(░-&300) 7√A%=їA$+" "," "):run$=юA$,A%-1):Гrun$<>"":=аA$,A%+1) b═Y%=X%│256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:ж&FFD1:A%=X%+16:Г!A%─?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) ╙="" Є: .ЎТ 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 (Т ---------------------------------- @щРexit(A%):Ъ"FX1,"+цA%:quit$=quit$:A$=quit$:quit$="":Рos(A$) Гos%=32: A% "Гos%<6:Ю ▀ *Quit ,А 6: * Т > BLib.Generic.FileIO 1.02 28Apr2007 PТ v1.02 28Apr2007 JGH: Added functions to FNfile on DOS, PROCcdir, FNopenout <Т v1.01 07Sep2006 JGH: FNargs avoid zero page on RISC OS *(Т v1.00 09Aug1988 JGH: Initial version 2: %<Т General File Interface Routines %FТ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ P: 8ZТ FNfile(), PROCgbpb(), FNfs are callable on Windows 8dТ -------------------------------------------------- n: ,xТ Returns file type, file info in X%!... ,┌Т -------------------------------------- J▄щєfile(A$,A%):Гos%<32:$name%=A$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF √ГїA$,".")=0:A$=A$+"." ;═ГA%=255 └ A%=5:X%!14=▌(A$):ГX%!14:X%!10=╒#X%!14:ы#X%!14 1╙ГA%=255:ГX%?6=0:Ъ"LOAD """+A$+""" "+ц~X%!2:=1 ЄГA%=5:ГX%!14:=1 ▀ Г A%=5:=0 FЎГA%=0:Ъ"SAVE """+A$+""" "+ц~X%!10+" "+ц~X%!14:X%!10=X%!14-X%!10:=1 BхГA%=7:Ъ"SAVE """+A$+""" "+ц~░+"+"+ц~X%!10:X%!10=X%!14-X%!10:=1 рГA%=8 ▄ эЙ ┘:Н ┘ Й:=2 ФЪ"MKDIR "+A$:=2 Пм З=0 : Т General OSGBPB call Т ------------------- #"щРgbpb(A%,chn%,addr%,num%,ptr%) =,?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Гos%<32:ж &FFD1:А 6ГA%=1└A%=3:о#?X%=X%!9 5@У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% 5JX%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А T: @^Т Return current disk (5), directory (6) or library (7) name @hТ ---------------------------------------------------------- Brщєgbpb(A%):X%!1=data%:ж&FFD1:A%=data%+((1+?data%)─((A%─-2)=6)) |A%?(1+?A%)=13:=$(A%+1) ├: B░Т Returns entry in current directory, or null string if at end B Т ------------------------------------------------------------ Eєщєgbpb8(ptr%):X%!1=data%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" #ўA%=data%:A%?(1+?A%)=13:=$(A%+1) ╦: 7бТ OSARGS call with data. Returns any returned data 7лТ ------------------------------------------------- 4жщєargs(A%,Y%,ptr%):Й X%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0 /ЮГ░<&8000:Й !&70:X%=&70:!X%=ptr%:ж&FFDA:=!X% (Й "OS_Args",A%,Y%,ptr% ╦ ,,ptr%:=ptr% Т: 'ЧТ OSARGS call ignoring X, returns A 'Т --------------------------------- =щєargsA(A%):Г░<&8000:Й X%,Y%,E%,!&70:X%=&70:=(╨&FFDA)─&FF "OS_Args",A% ╦ A%:=A% &: &0Т Get current filing system number &:Т -------------------------------- )Dщєfs:Гos%<32:Й A%,Y%,E%:=(╨&FFDA)─&FF N=29 X: 1bТ Create a directory only if it doesn't exist 1lТ ------------------------------------------- 'vщРcdir(A$):Гos%=32:A%=єfile(8,A$):А ─Гєfile(5,A$)=0:Ъ"CDIR "+A$ ┼А ■: .·Т Open an input file ensuring no extension .╗Т ---------------------------------------- ╡щєopenin(A$)=▌(єf_name(A$)) ╪: /фТ Open an output file ensuring no extension /пТ ----------------------------------------- зщєopenout(A$)=▌(єf_name(A$)) Д: /НТ Open an update file ensuring no extension /ЬТ ----------------------------------------- щєopenup(A$)=▌(єf_name(A$)) : Vщєf_name(A$):Гos%=32:ЙA%,B%:УB%=A%:A%=їA$,"\",A%+1):ЩA%=0:ГїA$,".",B%)=0:A$=A$+"." =A$ ! Т > BLib.Close 1.00 09Aug1998 : Т Close Handling (Т ~~~~~~~~~~~~~~ 2: <щРClose_All:*EXEC "Fin%=in%:Гin%:A%=in%:in%=0:ы#A% 'Pout%=out%:Гout%:A%=out%:out%=0:ы#A% ZА ЪЪ