USERUSER,-. 31-MAR-90.Generated by mvol on Fri Apr 06 10:36:22 2012/257 >OX[`x| q.d~15ah[Wh[YH?H?  H?JH??H?' hH? H?jH?:H?s Ei4H?H?C!} NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"ZbAdQ@D"Z ox,> PAHello, world # ?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U n?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$wP(A, X $0&1P8,P80WH$PXh,lWTW,X8,U80A0 B0P0x8Aj@$C%APIC(H]$P@#8`2A. $`A@$`Pi#AjPX\#$`A;"A=6$SXiHA@DA=6$RXiHA@D$QXiA;`A. X=4P=pCAjP8W PAjPX`&İP&P`XP,XIPG0$X$bA&$QPW,$\XiA@B`Xh Pi0AA@@P<aAH? v $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx| D PXiHA#;XYHXeQi$P#PXiHA@JX9HӳPXH$OJXYZXiPj$@$4:P,\`%A"&$bA XiHA:*$P,[$cA&n$bA $P,$R$cA&n$BPG,$Q` 28-AUG-57 00:00:40 page 1 1 2 3  TEST.IMP 28-AUG-57 00:00:41 page 1 1 %begin 2 %integer j 3 %for j = 1, 1, 10 %cycle 4 print string("Hello, world #") 5 Write(j, 0) 6 Newline 7 %repeat 8 %endofprogram V,,,$ P,,,}$SELECTINPUT,,,+{$ N,,,}$ SELECTOUTPUT,,,+{$!N,,,}$!OPENINPUT,,,+{$"N,,,$#FD,1,,}$"OPENOUTPUT,,,+{$#N,,,$$FD,1,,}$#CLOSEINPUT,,,+{}$$CLOSEOUTPUT,,,+{}$%RESETINPUT,,,+{}$&RESETOUTPUT,,,+{}$'TIME,8,,;{}$(DATE,8, ,;{}$)CPUTIME,,,;{}$*COMREG,,,+{$+N,,,}$+READ,,,+{$,X,,,}$,PRINT,,,+{$-VAL,!,,$.BEFORE,,,$/AFTER,,,}$-PRINTFL,,,+{$.VAL,!,,$/PLACES,,,}$.SPACE,,,+{}$/SPACES,,,+{$0N,,,}$0NEWLINE,,,+{}$1NEWLINES,,,+{$2N,,,}$2FILEFM,D,2,{$UNIT,,,$OWNER,,,$N1,,,$N2,,,}$3PARMFM,D,3,{$DSNO,,,$DACT,,,$SSNO,,,$SACT,,,~A$TEXT,1,,~C~A$FILE,A,2,~C$P1,,,$P2,,,$P3,,,$P4,,,~B$P5,,,$P6,,,~B}$4EVENTFM,D,4,{$EVENT,,,$SUB,,,$EXTRA,,,$MESSAGE,1,?,$PC,,,$X,,,}$5EVENT,A,4,+OHO$6J,,,O@6NN NfO@'Hello, world #pEO@@6pNpEO@0EOB:O;; ""`,Rv@ 8M[DĐo]8%ZĐĐ, @0K.聐4>`Đ,>0DHĐyIXH,>0DqI\^CĐo]Đ,&Z0d}M[DĐo]Đ,&Z0dL{}Đ,dTyIXJM[DT=sxT>XD\&"8`=qdohl l(U@pvĐ@zĐ%E~l@Đ,@0zYd4>8D<'a+@Mk}DX_(U!)yĐD~IvĐH~A}ĐL~u38}qMĐ,(U@Đ,@0>4(U^Cv8K;},ĐĐ(U@,QxB@8@Đ,dT>XD\ox`K}dWh h=pĐhl(U@Đp~Iv5qI,Đ{,o0ys4d}]Đ{,o0ys4dR,ĐX_Đ,_,>0DĐ4@Đ8x}!(QyQ@,f@0>4D8d/"8<^doag\DK;}}},(U@0dy} ":%=pĠ%,d0(U%4 @8K;}H#!vL_yIXHLX_yIXHL!Xev@ĠP@T(U@XdQy} "wW@zox,,X_z,v,dT(U@ĠX%\>+y} "@Đ:`Đag\,/+,X_Đ,@0dXv>'8}M[ĐĐ,0 o0}d4>8Dw{Đ,8Hvd>_""`wZ]ĐQ{D,\]0 oQ@p>tDxQ@Đ|d)Qs"MqHĐ,qXN wQxĐ,(U@Đ,@0>4DxÐv,Rv WÐv `Ðv ox,:p"DaD\""`D`}~v+DdyL t:wDh("Dl}̆=sxDp#K5DKցDEdÀDd:Q@CDL{~v,KÀD:ÀDaDd/"8D^doD>DdȃDLv@E dates errorNo renamed ***Faulty input disc ***FAULTY OUPUT DISC PRODUCED***Testing output disc***FAULTY INPUT DISC***Input = output?.ENDIllegal name: :.END,,Copy: ?QUITSTOPParam: KEEP Output disc? Input disc?  #B#$$$%%h&q#w#w&&'< buffers claimed DISC : no such discYESYes/no? ?%**Are you sure you want to overwrite "UNKNOWN to spec disc parms by handValid types are:Heads:Blocks per cylinder:Tracks:NOIllegal disc name_: Volume-id too long6a`dDIABLOptiTELEFILEiMSM80ILEiCALCOMPEiUNKNOWNEi_e Phy. disc name:Log. disc name: System area? e: Disc type:a? e: Description: e:er_: offlineUnit #Invalid disc name _:## bad blocks?: an extent: Defective list: defective list checksum error"-ve no. of tracks, sectors, heads? system areabad blocks list user list free listBlock zero checksum fault Heads: Blocks per cylinder: Tracks: System size: System area at Bad blocks list at User list at Free list at , Unit copying testing directory users?: (Not copied) (Not copied) spine block files? zero length extent in spine? block count wrong in spine (Not copied)extent spine block extents?Spine block full!! System area: $Not enough space for system area on Copy system , status: Write page fails on unit # protected , status: Read page fails on unit # Bad blocks: Block zero is defective!!Too many bad blocks!blocks: badblock chk not initialisedUnit #No space for system area ***WIPING Output disc too small free blocks: : corrupt free list:USER:README FC, 25-Jun-2012 If things seem to lock up, remember that the terminal driver pauses after a pageful of output and Ctrl-Q releases the next page. Or full stop (Int:.) to interrupt and come back to Command: prompt. There's enough here to list, edit, compile, decode and run Imp programs: f (show files) c test.imp (copy file to console) e test.imp (or v test.imp) imp test decode test.imp (explicit extension is required) test (to run the executable) Vecce (v) works a lot better if you do this beforehand: set page=0,width=0 Then you don't have problems with having to remember to hit Ctrl-Q or with the terminal driver trying to break lines where it shouldn't/ If you get bored with Imp then Ian Young's BASIC interpreter is there: basic That will get you an out of memory stack traceback unless you up the default stack size beforehand: set stack=60 Most of this is just using the default setup from the SYSX disc but some commands are fixed versions set up at USER: login by the STARTUP.TMP command file. Enjoy!, FC ISSUES FILES or F command should accept '!' modifier for a listing with extra file info but doesn't. Workround is f()! Problem seems to be that we don't have a self-consistent matched set of {superviser, subsystem, standard commands}. STARTUP.COM doesn't seem to be recognised and run as a default command file. STARTUP.TMP is recognised though for some reason. On command errors, you should see messages like "* COPY fails -- why" but actually you will see "* fails -- why". The command name is missing. Investigation showed this to be at root an Imp compiler bug dealing with an assignment to the COMMAND_COMMAND string in the subsystem, provoked by use of %recordformat(RestFm) in defining the COMMAND record format. The good news is that things are robust enough to enable rebuilding the subsystem. The bad news is that this and other symptoms indicate that the subsystem and the supervisor here aren't a totally consistent contemporaneous set. Getting to the bottom of that would probably be quite a bit of work. I've got rid of the experiments with rebuilding the subsystem to avoid confusion. END %externalstring(31)%fnspec ITOS (%integer I,places) %externalintegerfnspec IN POS %external %routine %spec SEEKINPUT(%integer byte) %external %routine %spec TO UPPER (%string(*)%name s) %external %predicate %spec EXISTS (%string(31) filename) %external %routine %spec ALIAS (%string(*)%name s) %system %routine %spec LET (%string(63) old, new) %system %integer %spec SKIPPING {Set nonzero to turn off BCI} %system %integer %spec ECHO OBEY %own %integer level = 0 { $IF nesting level } %own %integer active level { level of last cond tested } !Batch command processor procedures, ADC %integer %fn StoI (%string(31) s) %integer j, k = 0, d %for j = 1,1,length(s) %cycle d = char no(s,j) k = 10*k + (d-'0') %if d # ' ' %repeat %result = k %end %predicate true cond (%string(63)%name cond) %string(63) x cond = x.cond %while cond -> x.(" ").cond To upper (cond) %if cond -> ("EXISTS").cond %start %true %if exists(cond) %false %finish %if cond -> x.(".EQ.").cond %start %true %if x = cond %false %finish Print string (cond." Syntax?") %false %end %system %routine EXIT (%string(63) parm) %signal 9 {Simulate end of obeyfile} %end %System %routine IF (%string(63) parm) %if skipping = 0 %start skipping = -1 %unless true cond(parm) active level = level %finish level = level + 1 %end %System %routine UNLESS (%string(63) parm) %if skipping = 0 %start skipping = -1 %if true cond(parm) active level = level %finish level = level + 1 %end %System %routine ELSE (%string(63) parm) skipping = ~skipping %if active level = level-1 %end %System %routine FINISH (%string(63) parm) level = level - 1 skipping = 0 %if level = active level %end %System %routine INC (%string(63) parm) %string(63) var To upper(parm) var = parm Alias(parm) parm = ItoS(StoI(parm)+1,0) Let (var,parm) %end %System %routine DEC (%string(63) parm) %string(63) var To upper(parm) var = parm Alias(parm) parm = ItoS(StoI(parm)-1,0) Let (var,parm) %end %System %routine REPORT (%string(63) parm) Print string (parm) Newline %end %System %routine VERIFY (%string(63) parm) To upper (parm) ECHO OBEY = 0 ECHO OBEY = 1 %if parm = "ON" %end %const %integer max label = 50 %own %integer %array lab def(1:max label) = -1(*) %own %string(7) %array lab text(1:max label) = ""(*) %own %integer defined = 0 %own %integer pend jump = 0 %integer %map lookup (%string(63)%name L) %integer j To upper (L) %for j = 1,1,defined %cycle %result == lab def(j) %if lab text(j) = L %repeat defined = defined + 1 lab text(defined) = L %result == lab def(defined) %end %System %routine LABEL (%string(63) parm) %integer %name L == look up(parm) %if L < 0 %start L = in pos {Define L as here in command stream} SKIPPING = 0 %if addr(L) = pend jump {Got there} %else Print string (parm." already defined") Newline %signal 9 %finish %end %System %routine GOTO (%string(63) parm) %integer %name L == look up(parm) %if L < 0 %start {Undefined as yet} SKIPPING = 1 {Till we hit it} pend jump = addr(L) %else {Jump backwards} Seek input (L) %finish %end %end %of %file H? _m@?:m:6mWz{`{XW852$1/H?^ lD)s @?w_DCB{:w$_Wz9//:3W:4WQWzW0WQ:^WQkZH? Z5bH?DDH?GGH? H? H?   +/02 5  5 AL,),,.{$N,,,}$LONGREAL,),,.{$N,,,}$LENGTH,,,.{$S,1,,}$CHARNO,,,.{$S,1,,$N,,,}$INT,,,>{$X,!,,}$INTPT,,,>{$X,!,,}$IOCP,,,.{$N,,,}$TYPEOF,,,>{$N,,,}$SIZEOF,,,>{$N,,,}$FRACPT,(,,>{$X,!,,}$PROMPT,,,+{$S,1,,}$NEXTSYMBOL,,,;{}$SKIPSYMBOL,,,+{}$PRINTSYMBOL,,,+{$SYM,,,}$PRINTSTRING,,,+{$S,1,,}$WRITE,,,+{$V,,,$ P,,,}$SELECTINPUT,,,+{$ N,,,}$ SELECTOUTPUT,,,+{$!N,,,}$!OPENINPUT,,,+{$"N,,,$#FD,1,,}$"OPENOUTPUT,,,+{$#N,,,$$FD,1,,}$#CLOSEINPUT,,,+{}$$CLOSEOUTPUT,,,+{}$%RESETINPUT,,,+{}$&RESETOUTPUT,,,+{}$'TIME,8,,;{}$(DATE,8, ,;{}$)CPUTIME,,,;{}$*COMREG,,,+{$+N,,,}$+READ,,,+{$,X,,,}$,PRINT,,,+{$-VAL,!,,$.BEFORE,,,$/AFTER,,,}$-PRINTFL,,,+{$.VAL,!,,$/PLACES,,,}$.SPACE,,,+{}$/SPACES,,,+{$0N,,,}$0NEWLINE,,,+{}$1NEWLINES,,,+{$2N,,,}$2FILEFM,D,2,{$UNIT,,,$OWNER,,,$N1,,,$N2,,,}$3PARMFM,D,3,{$DSNO,,,$DACT,,,$SSNO,,,$SACT,,,~A$TEXT,1,,~C~A$FILE,A,2,~C$P1,,,$P2,,,$P3,,,$P4,,,~B$P5,,,$P6,,,~B}$4EVENTFM,D,4,{$EVENT,,,$SUB,,,$EXTRA,,,$MESSAGE,1,?,$PC,,,$X,,,}$5EVENT,A,4,+OHO$6J,,,O@6NN NfO@'Hello, world #pEO@@6pNpEO@0EOB:O;;    +/02 5  5 %finish %repeat %result = (initial & (\exclude)) ! include %end; ! 'option bits' %routine close in(%integer st) select input(st); close input %end %routine close out(%integer st) select output(st); close output %end %string(31)%fn temp file %string(1) work %record(parmfm) p p_dact = 25; svc(20, p) p_p4 = p_p4&x'FFFF' %if p_p4 > 26 %then work = tostring(p_p4-27+'0') %c %else work = tostring(p_p4+'a'-1) %result = "$tmp.".work %end %routine print pass(%integer pass, time) %if pass = 0 %start print string("mean ") %else print string("pass"); write(pass,-1) %finish write( (2*time+1)//2000,5); print string(" secs") write(60*1000*lines//time,5); print string(" statements/min") newline %end %routine show result(%integer n) %if n < 0 %start printstring("Program contains") write(-n, 1) printstring(" fault") printsymbol('s') %if n # -1 %else write(n, -4) printstring(" statements compiled") %finish newline %end %routine Fail(%string(63) Why) Printstring(Language." fails -- " . Why . snl) %stop %end %on 9,10,11 %start Select Output(0) Fail(EVENT_Message) %finish To upper(param) %unless param -> language.("|").param %start printstring("Which language?"); newline %return %finish %if Language = "IMP" %start pass1 = "IMP:Pass1" prim = "IMP:Prims" Default ext = ".imp" %else %if Language = "PASCAL" pass1 = "PASCAL:Pass1" prim = "PASCAL:Prims" Default ext = ".pas" %else %if Language = "FORTRAN" pass1 = "FORTRAN:Pass1" prim = "" Default ext = ".ftn" %else printstring(language." not available"); newline %return %finish parse parameter(command,0,param) {%signal 11,10 on failure} ! ******** set compiler options ********* options = option    #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTBLOCK w%GOAP(A,X J, $0&1P8,P80 Hello, world WH $PXh,lWT W, X8,U80A0 !P0 x #  C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>r?$$A>r$A1 0# # QDRD?&A'"3$$A>rA>r?134C0DD C MwpT$9,)CA*?A.$@PI2*4JDA*#=Z4U!9)At$bPi$&P,$9 .A8#8(A.A8#6.A8!8(xAt#A(xAt`XWXWP(8A8!?WHW,C@$aWxX,U#9,$bWx8$bWx$aW$cW$bWlW!7Xh`PhW#X PX8P=WHWHWHWWHWHWWHW,WHWH$bW8tW(lW4XP$bWlXhAp$`Wl$aA$bA$aA$bA$cAX#Cx.pA8!3C.A#8(A".A#6.A!8(xA#AP(xA`XWXWP(8A!?WHW,C $aWxh,f#9,$bWx8$bWx$aW$cW$bWlW!9X8<0P8W#Xư PXPWHWHWHWWHWHWWHW,~WHWH$bW8rW(lW4XP$bWlXhlA$`Wl$aA$bA$aA8$bA2$cA,XHLD#Cx.nA!3C8WPx$aWxA(A$aWA(A$bWbW(`,WXW4$aAT$aA~$bAxWP$aWx" &*.2$$6**:00>66B<<FBBJHHNNNRTTVZZZ``^ffbllfrrjxxn~~rvz~  &&,,2#0XoL#78AACoA -FA&!7$P` A#$Q` AC`oAof!6%PxCH',AdJAA.XoTPoxB "AInvalid passwordeAACX_x` ABCodAjoAbAXoTB "AIllegal subsystemAACPo@XXPDX\PHd',ALAAXoTB AIllegal processAlA^CVXPP8Po<PLr0mq0XoLC00AH?H? H? H?H?   #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTBLOCK w%GOAP(A,X J, $0&1P8,P80 Hello, world WH $PXh,lWT W, X8,U80A0 !P0 x #  ails -- why" but actually you will see "* fails -- why". The command name is missing. Investigation showed this to be at root an Imp compiler bug dealing with an assignment to the COMMAND_COMMAND string in the subsystem. The good news is that things are robust enough to enable rebuilding the subsystem. The bad news is that this and other symptoms indicate that the subsystem and the supervisor here aren't a totally consistent contemporaneous set. Getting to the bottom of that would probably be quite a bit of work. I've got rid of the experiments with rebuilding the subsystem to avoid confusion. END ord(Filefm)%name F, %string(*)%name ff) %external %routine %spec Console (%string(63) Message) %external %routine %spec Echo (%integer on off) %const %integer off = 0, on = 1 %external %routine %spec To Upper (%string(*)%name S) %external %routine %spec To Lower (%string(*)%name S) %external %routine %spec Open All (%record(Command fm)%name C) %external %routine %spec Close All (%integer how) %external %routine %spec Read Line (%string(*)%name S) %external %routine %spec Del File (%record(file fm)%name F, %integer quiet) %external %routine %spec Phex (%integer X, Places) %external %routine %spec Open DA (%integer chan, RW, %string(31) Filename) %external %routine %spec Read DA (%integer chan, block num, %name buffer) %external %routine %spec Write DA (%integer chan, block num, %name buffer) %external %routine %spec Close DA (%integer chan) %external %routine %spec Xobey %alias "$OBEY"(%string(31) f,t, %string(63) p) %constant %integer IO error = 9 %constant %string(2) x = "X " %constant %integer To Potter = 22, {SVC:Message-> Central Queuing Agency} Set TTY = 29, {Set console parameters} Disc read = 101, {Physical disc I/O} Disc Write = 102, Disc Status = 108, max unit = 12 !File system disc block formats %record %format extent (%short length, {# of contiguous blocks in extent} %short base) {disc addr of first block} %record %format spine (%short extents, {# of extents in file} %byte access permissions, check, {should always be '?'} %integer blocks,{# of blocks in file} %record(extent) %array extent (1:126)) !Block zero on every logical disc %record %format zero fm (%integer vol id, {m'VOLN'} %string(7) disc id, {"SVOL"} %integer free list, {free blocks spine} user list, {user catalog} defective list,{bad blocks list} %integer system area, {start of system image} system size, {N contiguous blocks} %string(11)initialisation date, %integer tracks, {physical disc info} blocks per cylinder, heads, %integer initialised, {=0 => Disc WIPED O.K.} %integer copied, %integer checksum, {sum(blockzero)-1 = 0} %string(187) description,{of logical disc contents} %integer marked, {V2.00+: Disc INITIALISED O.K.} %byte %array spare (1:252)) %routine To mixed(%string(*)%name S) %byte %name C %return %if S = "" To lower(S) C == Char no(S, 1) C = C - 'a' + 'A' %if 'a' <= C <= 'z' %end %routine Failure(%string(63) extra) %string(63) S = "*" To mixed(Command_command) {Which command blew up?} %if event_message = "" %start event_message = "event ".ItoS(event_event,0).",". %c ItoS(event_sub, 0) %finish S = S.Command_command." " extra = extra." " %if extra # "" %and char no(extra, length(extra)) # ' ' S = S.extra."fails - ".event_message Console(S) %end %routine TT set(%integer parm, val) %record(parm fm) P P_p1 = parm P_p2 = 0 {My terminal} P_p3 = val SVC(Set tty, P) %end %routine Number (%integer N, Places, %string(31) Text) %if N = 0 %then print string("No") %else Write(N, Places) Space Length(Text) = Length(Text) - 1 %if N = 1 Print string(Text) %end %routine PRINT THEN PAD(%integer width, %string(63) s) print string(s) spaces(width - length(s)) %end %routine PAH?H?C!i} NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z"gAaAdQ@D"Z (QQ@,z ox,>0D 0$]$b ?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nA>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$wA, X W P,aW<y wP(A,X Px4#Xx4$ A%1&1P8,P88AX8,U88A0 ?P8$&P,P8$&P0P0D 0$]$b ?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nA>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$wA, X W P,aW<y wP(A,X Px4#Xx4$ A%1&1P8,P88AX8,U88A0 ?P8$&P,P8$&P,Pfail %if Q_p1 < 0 %or Q_p2 < 0 Q_dact = get status SVC (to Director,Q) %if Q_p6 # 0 %start fail: print symbol (CR); print symbol (NL); !cr/lf print string ("*Edit " . f_name . " fails -- " . Q_text) %stop %finish size = Q_p2; !blocks %finish %record(buffm) %name p %if first # 0 %start first = 0  $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx| D PXiHA#;XYHXeQi$P#PXiHA@JX9HӳPXH$OJXYZXiPj$@$4:P,\`%A"&$bA XiHA:*$P,[$cA&n$bA $P,$R$cA&n$BPG,$Q`, read write, page file name) %finish f_flag = -1 %and %return %if size < 0 connected = connected + 1 f_chan = connected open DA (f_chan,read only,f_name) %if f_name # "" %monitor %if f_chan > max con base(f_chan) = free VM; f_top = free VM f_lim = free VM + 512*size free VM = free VM + 512*(size + f_flag) %if f_flag # 0 %start; !mark extra pages as 'in file' set bit (j-1) %for j = f_top>>9 + size, 1, free VM>>9 - 1 %finish f_flag = 0 f_VM top = f_top; f_VM lim = free VM - 1; !VAX f_lim = f_lim - 1 %while f_lim # f_top %and byte integer (f_lim-1) # NL %end %external %routine move (%integer length, from, to) %return %if from = to %if to <= from %start %while length > 0 %cycle byte integer (to) = byte integer (from) from = from + 1 to = to + 1 length = length - 1 %repeat %else from = from + length; !MOUSES file dumper utility. %own %string(31) version = "(pre-release) vsn 2.1" !%OPTION "NOopen,NOspaces,NOstack,Upper" !Alan Culloch, August 1980. %include "Sysinc:Command.inc" %externalroutinespec Open Da(%integer Chan, Mode, %string(31) File) %externalroutinespec Read Da(%integer Chan, Block, %name To) %externalroutinespec Close Da(%integer N) %externalroutinespec Phex(%integer N, P) !system calls %const %integer disc read = 101 %const %integer to director = 20 %const %integer pack filename = 17 %const %integer find unit = 45 %begin %external %string(63) %fn %spec ITOS (%integer I,places) %integer %fn STOI (%string(15) s) %byte %name b %integer j, n = 0, Base = 10 %for j = 1,1,length(s) %cycle b == char no (s,j) %continue %if b <= ' ' %if '0' <= b <= '9' %start b = b-'0' %else %if 'A' <= B&95 <= 'Z' b = b&95-'A'+10 %else %result = -1 %unless b = '_' Base = n; N = 0 %continue %finish %result = -1 %if B >= Base n = Base*n + b %repeat %result = n %end %const %integer non zero = 1 %const %integer infinity = 16_7FFFFFFF %const %integer FF = 12; !ASCII formfeed character %record %format block fm (%integer %array word(0:512//4 - 1)) %record(block fm) block %record(parm fm) P %integer offset; !word index in BLOCK %string(63) parm = Command_parameter %integer exclam = Command_modifier !Events %const %integer DA trap = 9; !signalled on READ DA bad block# !(used as E-O-F trap on seq. read). !Output display characteristics %integer page ht = 60,line width = 80;!defaults %integer j %for j = 1,1,length(command_out1) %cycle line width = 132 %if char no (command_out1,j) = ':'; !assume LP: %repeat %integer N words; !# of 32-bit words per dump line %integer firsttry; !!!!!! %integer rows; !# of dump lines per block %integer N fields; !# of (hex,oct,..) fields wanted %integer first = 0, last = infinity; !default range of blocks to dump %integer physical = 0; !0:from file; #0:direct disc reads %integer unit; !physical unit no. %integer squeeze = non zero; !to suppress formfeeds %integer decoding = 0 !Dump format is any comb. of hex, octal and straight ASCII !side-by-side on the page, with each dump line optionally !follwed by an ASCII decode of the words. %const %integer hex = 1<<1, octal = 1<<2, ASCII = 1<<3, decoded = 1<<4, formats = 3 %integer wants = 0; !gets undecoded hex dump by default %routine report (%string(63) message) print string (message); newline %end %integer lines = 0 %routine break; !keeps track of lines for formfeeds newline; lines = lines + 1 %end %routine decode parm; !interprets program parameter %string(63) s, t %integer j wants = wants ! decoded %if exclam # 0 parm = parm . "," %while parm -> s . (",") . parm %cycle %continue %if s = "" %if s = "HEX" %start wants = wants ! hex %else %if s = "OCTAL" wants = wants ! octal %else %if s = "ASCII" wants = wants ! ASCII %else %if s = "PAGED" squeeze = 0 %else %if s -> s . ("..") . t t = itos(infinity,0) %if t = "" first = stoi (s); last = stoi (t) %if first < 0 %or last < 0 %start report (s . ".." . t . "?") %stop %finish %else %if stoi(s) >= 0 first = stoi(s); last = first; !single block %else %if s -> s . ("=") . t %if s = "PAGE" %start page ht = stoi (t) %else %if s = "WIDTH" line width = stoi (t) %else %if s = "DISC" physical = non zero %if t -> ("#") . t %start; !unit #n unit = stoi (t) %else String(Addr(P_sact)) = t . "_:"; SVC (pack filename,P) P_dact = find unit; SVC (to director,P) %if P_p6 # 0 %start print string (P_text) newline %stop %finish unit = P_p1 %finish print string ("Dumping unit #"); write(unit,0); newline %else report (s . "=?") %stop %finish report (t."?") %and %stop %if line width < 0 %or page ht < 0; !STOI faults? %else report (s . "?") %stop %finish %repeat wants = wants ! hex %if wants & (hex!octal C!B P} ,NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z%Qv#p}SId:w R`EX!qIw@eE;ovPVZdQ@y8@qX`U^ed:Q@XUd;1f[}fZqI\^CoxpTBlock # Won't fit! fails -- *Dump , status: from unit*cannot read block=?Dumping unit #_:#DISCWIDTHPAGE=....PAGEDASCIIOCTALHEX,  C PH!3410!81!5$$A>6#$$A>6&C,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U n?134C0DD C H!3410!81!5$$A>6B@!4B"; C@!$$A>6 #$$A>6B C B$P#EE&Q'1"Cs_eX!34RUUh!34dffзӳŰ!4Գ#9!8!5$$A>6 B$C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>6$A1 0# # QDRD?&A'"3A>6GHOs/" B 'X=2#$$A>6&r0U> ?P7D&D"${w),AA<!A$0P9D$JPIHY,PYLcPi@C&aPi@, P<<0 !#C00!09!'3<CH0_0A!0Z!+Ӽİ_ȫҬC$L@_#5%yXYDPYH$PPYDC"Xi<YH!%CXYH\ID \PYDXi@UiLB0TXDC{ w),AAl!A?,WHW,y! wA, W,$Qy wA,,X8#7XH@PHP,hP&aXFPhP8P),CA??C0,!3C,.A!9X80P8C.A!9XưPC.A!9XƠPC.A!6$@PHC~1!IlA??C0YlU!>$P`W)lA,APlAPXh!CD',,AAlA&0?2LAB$ AC,A6!,A*PPC9,#IlA??C0r.A!9lAPC,.A!9lAPC.AB0$P9l$ CA?#8APCp',AA(2Ar,q,Ƞ-@.r,q,XHHC0"4WHW,$ AXX4PXxWH$PXhWTW,C&',,AtAA$ AXh!XC0',lA2&1Ȱ?ҲC2A$ AC0',,AӢ&@?BJҢAd$ ACXXP!5PPX$`Ph&P$1<T8#4$Q >y gA, $0&1P:,XZE@Ȱ%KPJ0X:# +P:D!8WC$@!)d@W<#dW<X:,0B0zC WA, X#7X80?C0d$&P,XiW XĠP0XIHPIɠ !Š!7W#jW<X,ŰB0C$XYReW siAsiAyY gA, 0!'3P9,Xİk0W<X9,3B0y# WA,$1P8$dW `|W<$&P,$TC0$AK@!7$bW XYZY'QPY4Xi'aPi0Cp&aPi0$X9,B0&WX0Zʸ,$QXkAVC.$Š!<bZmh,$RXfA2#$dW Xi0Ui4B0X,ŰB04$@PHy gA,X8B0$H,PG,@ PG0V$aWyPi4H,PI8XXPY<$`Pi@r ,eq ,X4C0n`WH$QXiWTTWH$QXhWTJWH$QXi4WTW,$ ACZo wP(A,(PXAX<P8@XhLbZmh,$PXfA># $ %AA$QLXUB0@X8P8LX80B0AXð#9XXLXhAAXQLXUB0vCx-@/=A,$RXalA#$dW X90U98A$U9#4X=!3C^X ^I >3C^Y ^x>>3C ^[rrH^[2K> see below>see below>see below>see below>  9pH!3410!81!5$$A>rB@!4B"; C@!$$A>r #$$A>rB C B$P#EE&Q'1"C,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U n$A1 0# # QDRD?&A'"3$$A>r!8!5$$A>r"#&!2#C$$A>r !1#CC'1"A>r2$#PC'4"?134C0DD C gp4$,`d!*, AfPj` B2VE@$:CPZ0Ӻ,&E0JK,Һ,RZZ0 U ePjZ,&Q0E,Z,,$ATzF Wp<*,A0[B&A2DBf#>AB',A*,,AZ,&QXjjE,Z,,WHz: WpD*0A0[B&A2DBf#>A',A*0,AXZC0FeA',A',0Ab&a;FbP*@!X@A,A:0&1X,ҺC0:00WHza wp,X0!?PJ$bA0HP7,$PXi4A z Wp,X0C0PiPYYY8!XY8'QPZ!<0HP7,&Q&aAzB02`W<`YW<Xj` W<CvB0$`W<Xj` W<CJ`W<`XW<Xj` W<`W<`YW<Xj` W<C2 wp,X0C0X9Y98C!8PK$`AJCzB0 `W<`xW<CPB0 `W<`W<C(`W<`IW<$`W<z\ wp,$Q$0P9W,z gp0X0CX96#4$PA$PXI0@B0`W<`7W<Xj&aPrPW,$PA`W<`8W<`W<`MW<',AAWH`W<`8W<#`W<`LW<z gp,X0CX96#4$PA$PXI0@B0`W<`7W<Xj&aPrPW,$PA`HPg,$PXi4A`W<`DW<',AAWH`W<`8W<#`W<`MW<z| gp0X0 #.X!;` W<$1P9XU!5XPUB00XIB0WHXYZY[YPY$aPiC>kAP,$1Q9 !3C XY8#lW<$AQICxXZP#3AbXj`#3A zm wp'aA #6%1Q9CX0#XY[YXj,A# XI[ITXj,A$QPZ8XiUix!6XU#:$PPZ8$cAT$1Q:,X,U!3C\XICXXY0CPPJ4XiYmP#+XmPA"%QQ,#XiA$1Q:4X4#3CXj,A$AQIXY#2" XiUiC0,XY!Y!U!%AQIXYUY!5XYPYUY# full stop (Int:.) to interrupt and come back to Command: prompt. There's enough here to list, edit, compule, decode and run Imp programs: f (show files) c test.imp (copy file to console) e test.imp (or v test.imp) imp test decode test.imp (explicit extension is required) test (to run the executable) Vecce (v) works a lot better if you do this beforehand: set page=0,width=0 Then you don't have problems with having to remember to hit Ctrl-Q or with the terminal driver trying to break lines where it shouldn't/ If you get bored with Imp then Ian Young's BASIC interpreter is there: basic That will get you an out of memory stack traceback unless you up the default stack size beforehand: set stack=60 Most of this is just using the default setup from the SYSX disc but some commands are fixed versions set up at USER: login by the STARTUP.TMP command file. Enjoy!, FC ISSUES STARTUP.COM doesn't seem to be recognised and run as a default command file. STARTUP.TMP is recognised for some reason. On command errors, you should see messages like "* COPY fails -- why" but actually you will see "* fails -- why". The command name is missing. Investigation showed this to be at root an Imp compiler bug dealing with an assignment to the COMMAND_COMMAND string in the subsystem. The good news is that things are robust enough to enable rebuilding the subsystem. The bad news is that this and other symptoms indicate that the subsystem and the supervisor here aren't a totally consistent contemporaneous set. Getting to the bottom of that would probably be quite a bit of work. I've got rid of the experiments with rebuilding the subsystem to avoid confusion. END    #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTBLOCK w%GOAP(A,X J, $0&1P8,P80 Hello, Sandy WH $PXh,lWT W, X8,U80A0 !P0 x #  V.addrs} %integer chan, {paged in from here} %integer block, {block in paging file} %record(buffm)%name link, {circular list} %record(blockfm) blk) %const %integer max con = 3; !max files in VM: IN,OUT,SEC %const %integer sec chan = 3 %own %integer %array base(1:max con) = 512,0(*);!base V.addr of file (j) %own %integer connected = 1; !no of files currently mapped %c   #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTBLOCK w%GO   #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTBLOCK w%GOAP(A,X J, $0&1P8,P80 Hello, world WH $PXh,lWT W, X8,U80A0 !P0 x #  TINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTBLOCK w%GOAP(A,X J, $0&1P8,P80  Hello, Alan # WH $PXh,lWT W, X8,U80A0 !P0 x C! /h}$*| }"#&XK~vg\S@ w&pNWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z%Qv#p}SId:w R# y"e&@qVM&@X_&@;ovy8@d+E`EX!qI}@#!t(w@&Zv&Z:paw}~!!!!a!!!7"A!@a"!AB!ABaA!Agk!a!"a!A!Ba.aAAaaBbCaAb!!!!AdQ@D"Z$h%QvQ&XK}d/ 9KM!4&ZvLX(U"-w :t#,>0D w:t#,>0D ;`:t#,>0Dym#!,d | }":t#,ox0^w4WĀ8fՉĀ0D4xB@8j@Ā`d!S@K.聀(_Q@,Xw&p`:plaxw,'iQ@0xB@Ā4~Iv8D<>%@0B 8X block blocks created$ECCE fails -- *Edit illegal filename2   G?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"C$$A>X#Y!Y!&\ ZB!$$A>A>?&?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$ ?$$A>)gA,X ePh,X80P80= AP4AX(0AB$ABXX4VAPEx.gA, X ePh,X80P80= AX(0AB$ABTA#5%x$")gA,X ePh,X80P80= AP4AX(0AB$AB%Q TXH4TQPTx0wA,X 0@8.r,q,X@P@r,q,2$Ax,gP(A,X iPh,X80P80XMTXT\XelPh=AXY!CX<XX,`FAPYX8<<XȫPX<XH4LPIX4=AXX<\Xel[aVYX<ȫP,Ƞ P0Xh4WX<XH,'API XX<\Xe lA2X0=AXh<lCrDgP(A,X X6<3C0XMAr8q8X@!XHDLD#(@AC"P@X:r8q8XhTlfC0\$mW<$jW<',AXA"|A"@A"WH$ AX8D<P84X\C0$P\XX8<X'PCCBWP(A0 X UX,!4xX8, 5B NXC BXh,AXhP0A X0ӑҚXH&APHXX,&QPX,Xh'aPhCCT VPX 6P8,X8C @X'PX,'P,jAXhP0AX0AIXX'QPXCCJkwP(A,X X=t<XCLPH,XS\ EPH no found: %if code = 'D' %start split lbeg = lbeg+msize; fp = fp+msize gaplim = fp %finish fp = fp+msize %if code = 'T' %if code = 'U' %start i = fp-fp1; fp = fp1 split lbeg = lbeg+i; fp = fp+i gaplim = fp %finish -> lok ! s('f'): !Find back scope = r(ci)_scope update consolidate %cycle %while fp # lbeg %cycle fp = fp-1 -> ok %if matched # 0 %repeat scope = scope-1 -> no %if scope = 0 %or fp = newtop %if fp = gaplim %start -> no %if gaptop = newtop fp = gaptop %finish lbeg = fp fp = fp-1; lend *. 26:>$$B**F00J66N<<RBBVHHZNN^TTbZZf``jffnllrrrvxxz~~~(blocks createde h$aA'8$PhP,$1P70$W$cA&`A$PL$P,P0[$gA<&C0XHPHW P$[PX$cPhVXhAAHX4X=4e gaptop = gaptop - 1 print symbol (BS); print symbol (ESC); print symbol ('O') print symbol (-1) lbeg = lbeg + 1 %repeat %until sym = DEL %continue %finish %if sym = CR %start consolidate display ->s('B') %finish %if sym = TAB %start %for j = 0,1,2 %cycle byte integer (gaptop+j) = ' ' print symbol (' ') %repeat print symbol (-1) gaptop = gaptop + 3 %continue %finish prin!ASCII) = 0; !hex default N fields = 0 %for j = 1,1,formats+4 %cycle N fields = N fields + 1 %if wants & 1<>(3*8)) & 127; word = word<<8 %if k < ' ' %or k = 127 %then space %else print symbol (k) %repeat %else; !packed decode spaces (4*sp + 4 - 6) do (word>>16); do(word&X'FFFF') %finish %end %routine poct (%integer n) %integer j print symbol (n>>j & 7 + '0') %for j = 30, -3, 0 %end %routine print decoded (%integer n, from) !dump the ASCII translation of the N words !starting at FROM under each of the format !part of the last dump line %integer j,k decoding = non zero spaces (4); print symbol ('|') %for j = 1,1,formats %cycle %if wants & 1<= page ht open DA (1,0,command_in1) %if physical = 0 opened = 1 open output (1,command_out1) select output (1) print symbol (FF) break block no = first - 1 %cycle block no = block no + 1 %exit %if block no > last read block (block no); !%SIGNAL when it falls off %if lines + block ht >= page ht %start print symbol (FF) %and newline %if squeeze = 0 lines = 0 %finish break; print string ("Block #"); write (block no,0) break break offset = 0 %for j = 1,1,rows %cycle Phex(4*offset, 4); printsymbol('|') %for k = 1,1,formats %cycle space %if 1<Xml $P $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|(pre-release) vsn 2.1the followk[`QL=A,$XXalWCAl$ŰB0.WXL=A,XalACHAl$ŠB0$XL=A,$PXalAv# $ %AAXL&PLXhUhA$UhB0PXHLPHLXhUhA$`B0NPAXX\P#=XXL\XhlA0AbXhLlX8< cPhLXHUHA$UHB0PCx@Q4$ AȰ!2#'QPXC0# %P8P8Xh`#4 3P8$QXY!$PX!XhLbZmh,$PXfA># $ %AA$QLXUB0@X8P8LX80B0AXð#9XXLXhAAXQLXUB0vCx-@/C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>$A1 0# # QDRD?&A'"3X#Y!Y!&\ ZB!$$A>A>?&?$$A>?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$ ?$$A>H!34"#(! $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|(pre-release) vsn 2.1the followy[`l $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|(pre-release) vsn 2.1the followk[`Q free list out of order: incomplete free list free list: lost blocks: freelist chk: empty free list?reject free list%) free blocks ( blocks in use users:  block file ), ( *CORRUPT* corrupt Dump of Disc listing at block # to unit #Disc write error protected at block # from unit #Disc read error *,.END --TESTalid check COMPRESS check INITIALISEheck WIPEIALISEheck KILLIALISEheck ZEROIALISEheck COPYIALISEheck HELPIALISEheck COPYUSERSEheck COPYUSERSEheck TIDYUSERSEheck RENAMEERSEheck LISTMEERSEheck   invalid check byte in  corrupt pointer to * * ~ crash:DISC  V2.02  |'?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>$@#0#DD&A'1"CH!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"Cs_eX!34RUUh!34dffзӳŰ!4Գ#9!8!5$$A> B$C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>$A1 0# # QDRD?&A'"3$$A>X#Y!Y!&\ ZB!$$A>З$1$HHX[&B0P [,&' ?P *&30HPїCKї$$A> Y #%$$A> qPrPB&(pX ?$P S?PE&T 41I2!,K2! 3s3B#9 3 >!$$A>!$$A>A>?&?$$A>O$$A>?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$2#XCPC'4"2$#PC'4" ?$$A>H!34"#(!BC$$A>X$$A>wAX, X $0P8@D\P8@D`P8@DdP8@DhP8@Dly gAX,X X8@DlP94$@$!A0PI,C4&API,PI08DAXYXalV!5%yUI0ANUI4B0P0$"< w),AAX<X !A$0P9@$APIHY,U!5y9,$ `CA#5[)HP)HcPiP$ $!A0PDCP&PDPL,+AP<ӡɠ0!ɠ9#$%CXY@$jFA ʠ ZPY@ULANUPB0PLXH\ @A CVt gAX,X $09,F#c dPi&PpPtX*APlA@a!@z!%DAXpUtANUxB0PtyS gAX, X Py,#Xy,X9#VAfy$@FW$ !'W0" W$ BHW$@ 0XY',A0AfX)A"W0CXiACr_  gAX4X ePi4X90P989,AP<AXALX)8A$QRXi<EPFy4 gAX4X ePi4X90P989,AP<AX)8A$ABXQ\%a dXI<VPTy3 gAX4X ePi4X90P989,AXALX)8A$QRE#5%y$", w),AAXlX !A?,WHW,y# w),AAXlX !A?',TA,AfAzX8@D\&1P8@D\y, WAX, X PPYB(X6< S!/Z P,X P0eA#5$yX Z P,X P0XiA%C? WAX,X H50P9,HE@PI0#,3!XV\ 5# 4 5#%$yX9, 4'1P9',A',A,AfAZCn: WAX0 X X6<3!(%$1AyXX XKL !AH$ $ A Z P,X P0jA!2#XY\Xe l&aPe CX9<XX @XIL$P@TXilX6 <X ;C4Z P,X P0cA!=XHJ@YI,!CZXY\Z P,X P0Xe lAXilH60&1@6XX &P CPC gAX, X ',AAfA)h0AX9<ȳPhPyt# XytACXŠC0FXclA ',A',A,Af~AfA2$ ApWXILXdlA',A',fA,AfA%Q&QPYTPYx=AXil$PXYTUYxANPB0PxX Z P,X P0$`A^$@PI\XY\Xel`X9\< cPi`!#CX@DPd ##PidP94$8DAP8XP$QPY,$`&aPi0Pi<=AXP4XC0LXI,L@*B <=A4P8&API,XQ\U!;X4X)8$3A#CXi0UiXJ<LPJ@YJ0#%XJ0PJ@PG,XZ,PW0XZ4\XiAXj,X:@< cPj,X< PAX*X,$3ACTXZX\XjAXJXL@XZX\He#7H:,&1@:,#%$3A#X*X,$3AXJ\UJ`AN@*B0`P`$P,ZTXiAJ,PG,HZVXiA>HVzI WAX,)X Py#XyyX9<X#4cAȩ,P,XILXT(\dAHY,!P*C JeAՂ',AXil',AAf,AfAfAA,),0A$0@9,&PP=A4P,XC0N)0$:AXILXT\PY8PX9<3#8X$PXH@Dd#3CTXiA2XY\Xh@D\[iPeC2 WAX0-X 6P9|)$:AXI|%1P4X|%PXI|L%QPTWXi|l& A X9,C ~$PpXpɠB d*A$ABTIC0>=AWXYp\P#6i?0AXp.*Ai0`#'ĄCX9|<$Pө0ɠ#)0Af?" $@&APItPIXY|\Xel0$A?h1cPeXItUIAN@B0PX)p,A$% TPXI,'API,CZ',0AAf)Ar q XY\U#7ACXi|l&0AX)p,A$12% TPX,'P,C0.A!?XI|L$PPTXi|l$0P6X)p,A$% TPXI,'API,CzXY|\$`eDW$ C0RW$@ X9|<',DAAfX|+DA"W0CW0X)p,A$%A JTIPIXY,'QPY,C$`&aPitPi=A)0AB0=AX|XP,Xt=AXI|LXQPT0Xt=AXi|lXP4X)p,A$%A JTIPIXY,'QPY,X9t<0B0Wi?0A0A~X|P,Wi?0AǠ0ARX|P0Wi?0At0A&XI|LP4Ch`B0LA0$P&QPYxPY=AAXYxUYANPB0PAi?0AXitUiAN`B0^PX)p,A$abTi#3C$1P8@DWX@DP,ȰP0WX@DjAAX@D.A#6.A!7$P@DC$@&APH@DPH@EH=AP@ELX@DX(@ELA!8XX@DPX@D# XH@DUH@EHAN@ B0P@EHXh@DlfB $',AAfAv$ A.A$1P8@D`X@DkAX@Dh,Afh"DAX"Dh,Ah,ARX@D.fA#5h,AJC$P@Dh$P@DlWhPDA(DAfP8DX(@DCAPC0.AC0XH@DTU!3Cz',AAf(E"Ar@E q@E Xh@E,lfC ',AX@DAfA,#X8@Dl&1P8@Dl8DAPaCHX@D.A#3CX@DkAX@DjAX@Dh"DAX@Dh!5h"DA\XH@DL@ #4@ !5h"DAX@Dh,AXX,\Xh"DlV!5AX"Dh,A*h,AЎX8@D\C0&AX@DpŰ!#6$ A$P@D\A$P@D`fh,A^X@Dh"DALX,h"DAh"DAXH@D\#:^A$ AX@D.fA#5h"DACf$QPX@DdXh@DlAhX@Dh"DAh"DA %1P8"hP8"lP8"pP8"$P,Sh"DAX@DjAX@Dh"DAX@DŐ!5h"DAh"DA6CXH@DLdAX@Dh"DADh"DA("\0A$QPX"bA&P"h"\Pg,$Ph"DAôCp$1P8@DdX@DkApX@Dh"DAh"DA($P,%Qh"DAȐ,P"h@-PH"lP.PX"pXh"tlf#8$aPh"t0P8"x$P"h"\AAfHAfA C0X@DiAX@Dh,Ah,A#bWXH@D\!9X(@D:A# dAX(@DA2AfXX@D\P#:Xh@D&0AfX@DA X8@D#3Cnxd pointers out_zero_free list = default free list out_zero_user list = default free list + 1 out_zero_defective list= default free list + 2 %if out_zero_system area # 0 %start out_zero_system area = 1 out_zero_system size = sys size %finish PUT ZERO: out_zero_checksum = 0; out_zero_checksum = check word (out_zero) write block(out,0,out_zero) -> STOP C(7): !COPY splatting = non zero {suppress block zero checking} check out (out1); set disc (out,out1) check in (in1); set disc (in,in1) make sure (out) set zero (out, 1< STOP C(8): !HELP open input (help text, program source) select input (help text) skip symbol {first '!'} %cycle read symbol (j) %exit %if j = '\' {terminating character} print symbol (j) skip symbol %if j = NL {past '!'} %repeat newline close in $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|tT48|Xp4L`P_p2 Q_file_N1 = 0; Q_file_N2 = 0 Unpack (Q_file, x) length(x) = length(x) - 1 k = 1 k = k + 1 %while char no(x,k) # '_' Write (j,2) Spaces (6-k) Print string (x) P_p3 = P_p3+1 %if P_p3&1 # 0 {round up odd figures} Write (P_p3>>1, k-length(x)+11) k = P_p6>>16; P_p6 = P_p6&x'FFFF' {P_p6: Debt<<16+console} %if P_p6 = 0 %then spaces(6) %else write(P_p6,5) Print (P_p5/1000, 7, 1) Write (P_p4&7, 3) {Contingency level} Write (P_p4<<1>>9, 5) {Queue} Write (k, 3) {Debt} Print string (" privileged") %if P_p4 < 0 Newline %finish %repeat Newline %return %finish P_p1 = 0; SVC(14,P) {Get user specific info} priv = P_p4 P_file_unit = P_p1; P_file_owner = P_p2 P_file_N1= 0; P_file_N2 = 0 Unpack (P_file, x) length(x) = length(x) - 1 Print string ("User: ".x) Q_p1 = 0 {Myself} Director(Direct Identify, Q) %if P_file_unit # Q_file_unit %or P_file_owner # Q_file_owner %start Print string (" alias ") Unpack (Q_file, x) length(x) = length(x) - 1 Print string (x) %finish Print string (", logged on console"); write (P_p6,1) Sec7C!6j }lrt Ƥ#(2ghq̤&Z$}}* #r}0 %K@6 ,x< %@BUW@He}Nii T~wWZV"8` efNyKNWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z%Qv#p}SId:w Rs_&y$ }%Qv_""`:%wqaf";ovy8@:a@# yqVM&@d+D&y$@]mfpda]p`EWKwLqIXH&@eE`EX!qI}@w@#(NWqI\^C}M[DwG-}&Z~wZx%%N4:M%%N3}+!K_j8{}}8{Lu;`e}) 8iiRi d+G%'egk}y"A!! ! "AaAAAAAA!a!ba #!A!aaAa AaaaAaA"!AbA "AaCb!A!B!!aA#a" &bA AcU"N*A0bA! <#b;Ae"caA!#bCCCC!!!FaCCaa!!CCaC!baC!C#a"AV#b A #AAAAB A*1b!!cU"Aa TAeBaa!AA"A!! AAa!AAaAAa(A!!aAaB qA!AEAaaAaaa!!!cBa50!a!A!AAAaaaaa/!a"Aa :!a14d!aabAAa{aa!b Aa!AaaAaA!AB!A!aA!a!aAAABA!AaABaaAAC!fAA"m#fAaA!AAaaaAAaaAAa!ALA!bA!!aAaA !a #a!B!!aAA"'AAaAAAAaaBAA!A"MDa!aAAAaaAaCAAA!r!q% d}(abAa!aBABBaaa#"fA"!!abdQ@D"Z$h%Qv#y"#:#&y$ }#%Qv_#""`:%#wqaf"z 4X` zfk zLu t/+tfkxLu|y?_^qYXyEqV}pie<Àvŀ, %NZ@,#plv 3"`d:Q@,dZ ZWe,}}fZ2d,,~@,v d,~EZ:,~@,v z`+}Ād y} "@Àv,}l>MgH,vMo3o2t>"KQ{D,D0>4v"K v,vLQ{DP>Tzfي ],d #(,d:Q@ oxD:{#(HaELDPTWox(@Đ,Q0yug,d:Q@ q,d wĐ &Z,d:Q@ }},d:Q@l}p_&pt x>|2@v}@ !P`T:v!\ )R!h !t4X`dj@MdRĐ,dL+}r},d:Q@l"KQ{D"eÐy,%Tdtv%K@,d:Q@lv x,&@ld %@,d:Q@ldŀd;vfyԑqVMĐ,% UW@,d:Q@l e},d:Q@!) D:Q}ŀl ŀpK;}t>xD|X_#x ,> i ,d:H!LjLu;`l>p:"$t_xX_|x%dK+Y,} fՀ9,v ~wW,d:Q@lv}쉴,>0D4}K/8_&p<ox</V"8,d:Q@l&@ag\d j@2Ā,yEĀ0Ā4y@8 @<@@-DyEHvyE,Ll=p>t$Q`,>0D qI\^CyEQ@oHĐ,&Z0d!thW,o]0^wK;}\^Coxox,%Đ<@@&yD-ZH> e,d:Q@ldj@p̖ŀ K;}`"#4msxwv> D$f}(y?,z0fى4#K58ox8(U@MyK,d:Q@ÀxvWrv$v>DK;oXZK;V;`%d4X:AyL;`,vL% &!qRĀ%,v Q{DĀ,@ y*}@ 4UdHKL@wzy}af",%ĀTx}ĀXv\d|>!4,d:Q@L&vt%dQ|Ð{ Ð{H Q|vĀ)Ā* X`}KdˁЅy},%Tdt=p'k2Ā0>4D84À8 Process Store Console CPU Level Prio Debt  since startuphours$KB of user store, swopping from unit at  on /: CXE Mouses SYSTEMtoo many entriesExternal entry points: is an old format file Cannot load .exe. not understood not a number==NONO,,GLACodeStack absolute current defaultstackpriv, open, decode, no remove spaces, upper case, Options set: ?.exe.STACK=TIME==Zero==DECODEOPENDEunusedSTACKdPRIVKdUPPERdSPACESLibrary list full-.NONE,, No entries =  = Let what= ?= renamed / Command: ::Pass:,,, deleted deleted:++New password set: New password:: Old password: not understood = ?NO:=,, " in number?" 9 / &  F j w PASSWORDiWILDWORDiERASEORDiTABSEORDifreeEORDifreeEORDifreeEORDifreeEORDiTRACEORDiQUICKORDis-256ORDis-128ORDiXDUMPORDis-32PORDis-16PORDis-86PORDiVERIFYRDiDUMPFYRDiMONITORDieh?ITORDiTIMETORDi TIMELIMITWIDTHIMITTABTHIMITSPEEDIMITPAGEDIMITSEARCHMITPROMPTMIT ERRORFILESTACKFILE  deletedfilesCopy: at  on dubious input and output*end*invalid access code NONEALLAllNoneNofails -   ,event *~X   6FC1 %y?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"Cs_eX!34RUUh!34dffзӳŰ!4Գ#9!8!5$$A> B$C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>?$$A>$A1 0# # QDRD?&A'"3$$A>X#Y!Y!&\ ZB!$$A>З$1$HHX[&B0P [,&' ?P *&30HPїCKї$$A> Y #%$$A> qPrPB&(pX ?$P S?PE&T 41I2!,K2! 3s3B#9 3 >!$$A>!$$A>A>?&?$$A>O$$A>?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$2#XCPC'4"2$#PC'4" ?$$A>H!34"#(!BC$$A>]gA, X 63!4xWpX$!AP,ӱɰa!ɰz!%ȻұC-w(,AAl,X !A?(lAX=p<cAdXLӫ B0$PXklW',A',A,A"$PXLXilP(W,p,',AXH$A",A"X]L\% A?',lAXpA"A"(lA?h,fC0&,(,A?10 #8(,A"?',lA,A"A"XL A"(lA?WLx΀WA,X Ph4$0P88PXA"',AhW4XPX`A|,WLCWXMdPCWPx#PPxQ$aAC$PPX|(*A"?%a&aPhxPh8((CA??#?WX8|< 1P8|#X|&P|ȨXx XH|LJ@AXhxUhA` B0P$UPX$`PhrqC$7P8WP$PӨ#:WPrqCWQ$bACӘC0(A?A@:!4'!(XU#8(&A"?X-AC\h`#%`hX-AC880#$$?8X-A# WXpP#CC  GgA,X PyP#XyPX9< A>y@PILX6<3B0$', Ai4W4ȰPLXPHY,XiLlACK wP((,AAlmX !A?,$PhlWPAPЈ8P7,hlA`x8gA,&X )tAPy# XytAXy$1P8p1$ HA?#3P(p',AhW4X?hW@$PxPtXtXXILC0N&PtX=A&(AC0,XXx\&QPXxX=APAX($8A\CXhplfC0bX8x<0B0XL+ A$ $ A&1P8xX=A$PPQXxX=A!AXmX8x<P6X|#3AӨ,#3C4C&~g),AAlX !A?f#8(l A"?(l,A"?y* gALX ,$jA&W`=W<X9!:WHC*#$0 ;$QcWTX#WHW,yE wP((,AAlX !A?$0P84Px`# Xx`Ax,ShiAC$1P84(,A"?8,(lCA??C0$P82(HlA??C0>Ө!6%P8C,',AA"lA"(lA?8l#HA??#8#A"?#$Ҙ',lA?X PlX Pp$W%bAzP,Cr',AA"XMLL$ A?WP0XX,\P!7@FA# @JAHhH`@hHCpB06',lAA"X=L<# A?$ $ A'!A$P,% DH@HX8#6HH@HCFXH4C0XXdP,XhP0XXl$aA$Pt$dW XlP$ $!APpCP&PpP|8dA$nAܘXHtL&APHt@! WA0X PPY8X9,P9Y?HXI<LdW@H`AXY<\Xe$lPhtrl qlt$jAWH`,W<$QXhlWT,WHC8,.&AB0WHX4#8WHXH4L@!!8WHW,rq$P&QPX(PX8,A(4A!CXH8,APPXLAX(P$5A\CBXL8,APP4X(P$5A\XhHl'aPhHX8L&1P8L[hX[H kC *X,P,X0P0XXcAXHPC(X,P,X0P0XXHXhAnXLPCpxրWA,!X PhdPXh$0P8lP8p]hdW@ӽ!7-:A',A6A"Aj(,$:A\',$:A\mARȠ@^ȝPxr\q\XHxLDC0:X]\U!8`*Pm xX=L<# dA?$ $ A$PdPhP P &P|P=A PTXC0bXM L&APM = $APX@AXXT\XelPhlX5<P8pXX[hdW@X|UAŠ*B0`PX $P,X (P0X] \$aACw(,AAL)X !A%1P=,A-$:A\Ȱ*Pt$P P P|P.4AC0$P',A2A"A"0A"',AhtW4XXx\XhtlApXxB0.@@H$PPXrq]hW@',A,A"A(L$:A\',$:A\mACmf!7-*A.(AC0`'LA$A"',AhW40-@8rqX#4$PXPxWA, X %A#>."A#8X. A!5%y$"# WA, X X8<X[cAC0rXXYjAdC0NXHLXX\UdA@C0*XhlX8<S f A#5%x$"XwA,X (,A(4A$1@8RX &P X  C X#6,xXMtL&APMt@*C X]|\&QP]|P !(XmlV!5,CPX\= tP8pȰ@VrTqTXp#3CX|P\$A@HVrTqTXXp\U#4$`Ph\X8\<P=$PtC0=A |XPt#:ZXmlA(CCX = $A',PxAXxA"A(,$:A\X #9bAWL$@@HR]h,A#5,CCPgA0X $0P84C&APH0PH=PAXX\ P<1$ BA#:Xh4&aPh4X80P88XH0UHA@B0PX4C0 X8=PAX AX(`0IA\X4C0`A|($:A\HD!3CX8=PAhPAX(A$PXXhA|(@A$`&aPh0PhX84!==PA(@A=XAP<ӱC0LA($:A\@A($:A\',$:A\hAhAX(<,AXh0UhA`B0\Ph`WX(,,тAX4#3Cxh?,Wpȸ-Pӫɠa!ɠz!%ȪҫX!7(,AX-,AC  'gA,PyXyrv z~$$**0066<<BBHHNNTTZZ``ffllrrxx~~XX^^ddjjppvv|| "&*.26:>BFJNRVZ^b$fj((n..r44v::z@@~FFLLRRXX^bD^nntxh < Filename Size A'18WHvWH$QXhWTXȐPC0*`,W<j$QXhAdWHW,\WH$@PHtHhl`?$QWTXX0P#8NWH`,W<$QXhWT[P,C "XI LYI!C`XYPW,XYlAXj,QiX|PX9Y9#P9XxPXiPj,XIUI#5XiPj,S V#zWH$ AȀ wp4XUC0lAP10 C0XiAkAA@ #6$QQYC`PiPz^ gp,`a!fW<-PXjW<z wp0Pz,#Xz,X`#8PX$P`CXX9tC0*ZKPIX&1P9t@ #4z8P9tCW PXXY<#: !aW<CD wp,$P2&1BC2z wp8X|'P,X9L'1P:0$Q,Q0Xj,AXAPJ4@a!@z!%TIdPJ4XYZZ0eF!3CXZ0<3#5$zX|PXJ, KPI$" I WpTNDPIpP N4PIpP N$PIpxP $PPcAӱŰ #6$QC$@PIpXYXe PiX$PX9P9PIPIPI$PPIB?PXI4'DPI'APIPIPPY`PicPX90#ҢKҲW$@PI`XYXPY\P B0NXi0B02$PTX=T!6XXU!;3#+X\XZ|#3A CAX[ZPXY|[YxjA^XI0C t@B0`W<`W<#`^W<P PY\Xi|UixC0(Ui#9'aA<P\# Xi'aA(1P9\Cj WHȰ P\Ƞ|PXXI|UIC0$dAQP #;Xi|AaPi\PiXXiXW<(WHW,# A>XX #3P`$0P9@P9DP94P9AXXA#Cz_PHAX=pZ9Hӳİ sKx  $PlXY0C &A`=W<XiXW<$aPiXiA>10 #5$Q" %QTXIT!3C~XYH UsE  $aPiTXT!#C\$1Q9@X@ZӫŠ\!3C>XI@CZITP?!3C&Xi@cZi]C0HX9@3Z9ӳŰ^!3CX@ZJ@[!:XY@SZYePi@$Q@CX9@3Z9XPTX@Y<#CB!#CXi&aP(AWHXiHAxXILC0N`'W<XYZYLefC0 XZLlW<$1Q9LC`'W<X0#4A#W,ACXXLZXITPJC%QQYTXiTC0`#=X@ZPlX9LP9@#X@YXHŰM!9XiPi|XPPixCXIxUI#4XYp#3CARAP$`PiXTB0(X9P9xU9!5X9P9xP9|$PPTC4XxU!:XIUI!3ClPIx%QQYX9x'1P9%QxXxU#?U#A@ #3CXYxPY|CXi|Ui!3CA_AB:ZB 2AXiAXi|PPA1XP0 ;$QQXI|UI!3C&API|CXY|UYx#4Xip#3CUY!3A$$P%1Q9|CVX|U!3CpAr$QxQ|XI|PIC.XY|UYx!3CHAJ$aQix%QX9Y9#P9CX|U!3CkAXZLAZETId#3CAn!3CCLXi|PiL# X|PLU!4&P|X9@3Z9HPPXZLJPI\XY|UYC0Xi|Aa` C0,Xi|AW\Td!7A#3C$1Q9|CX|P%QPXIP!3CJXYHPUC0&A$aQi|X|U!5XP|PxQi#X9LP9|APX|PLCRX|PXLP|CXIH@D!=AXYQYxQY|Xi|PiXHT!5X9Q9|UB0,X|[LP@XLP|AXI@QIxQI|XY|PYC(Xi@cZiHPPAAX9|U9x#;'1P9|A#3C"%QPXP#4U9!3C*U9!:XIUI!3CPI|XY|PYx'QPY|PYQ%aQixXxU#?U#CXUx!7s@,  AjX[xYhB XI&API|UI!;XIPI|[IZIxPIxXY|PYXiUi#` aXY!X'P$1Q9%QC:AXxZh&P|%AQI|XY|UYx!3CeAa` #3CA$Q|X9|P9CbXU!3C[|Xh P@YT#PTXI|[Ix[TP@!3CAXY@C$XiAp` a$Q%1Q9xQ@C@X|Ux#;Xi'aA@ӡŠ #3C(%AQI$QQYxXiYi#PiQI@X@#3CChAC` wpP@.r ,q ,s9BP9@r ,q ,ȹ2PL;$"Ab$ATy+ wp4$&P00 r <q r <q r <q htA Xh#6$ A',AtAWHCPX;0!!5dPhtAX#6$ AӨ#=hAX#6$ AXHPHXXPXhtfC0H',AtAWHXp!?WHWHC"',AAWHW,8P7,p`Ap`P0ȰP4ȠPP8XhtAXpC04XH B0,WHW,$PPXWXhC0X[P`X8P7,XXlAX`Q(2Ar,q,$cW$cWlX'PX'P`C&P`iA8aW<X`UB0W$aW@W#Wxgram is limited and even if a school invests in a printer for it, the cost of paper needed for this will be extremely high. $p If, as is likely in the near future, exams are introduced at other grades the problems are going to be exacerbated and serious thought will have to be given to providing adequate computer power in the school at reasonable cost. $a indent=0 $p 4. %Use %as %a %Teaching %Aid. $a indent=1 $p Most of the packages at present available and most being developed are teaching aids in the various subject disciplines. Unfortunately, a large number of these require a one to one situation and are therefore unsuitable in the present situation. Others, which are suitable for classroom presentation, simulate a situation which can be demonstrated better by other means. Too often, we find packages being produced for the wrong educational reason. They are produced because they are easy to do. The question which the teacher of every subject discipli $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|Tt||lFailure: ingbig XZ,PPT 4 schools throughout the country with the first exam in 1984. There is, however, no commitment to extend the exam to all schools after that date. No doubt this will eventually happen but as mentioned earlier the drawback is going to be lack of reasonable equipment. The syllabus is still in the process of being finalised and is being kept a closely guarded secret. From what has been divulged the exam will be like the CSYS Maths IV paper in that part of it will be project work. Whether fourth year pupils are mature enough to cope with this is a debatable point. There will be a large measure of appreciation and package running in the course as well as programming. $p In the realms of appreciation courses, a seminar was held in Glasgow at the beginning of March under the auspices of the Project Steering Committee of the Microelectronics, Computing and the Curriculum (MCC) Project set up by the Consultative Committee on the Curriculum. This seminar produced plans for a general appreciation course for %all pupils, to be taught either during year 1 or 2. It was realised that materials had to be produced and a proposal has been submitted to the CCC that at least two teachers be seconded to produce the materials and that backup support for programming should be provided. It is hoped to have this material ready for session 1983-84. $a indent=0 $p %Maintenance. $a indent=1 $p The problem of breakdown of machinery is one which can cause problems for the teacher. This is bound to happen with the amount of hard use to which the computers are subjected. So far, schools have found that a machine may be out of action for some considerable time. Since schools cannot have extra computer power to cover this eventuality, some consideration will have to be made at Regional level to the desirability of employing technicians who can deal with the schools problems immediately. $e @l@lN-S@l@q?=@l@v?=@D@lN-pEN ?=B:O5@m@lSO6JO8Nc_O9NL_O:LO;@m@l?=@jN?=:J:O<@m@q?#@E:O=@rNSO>@m@mN-SO?@N?#@`NL?#:@NSJ:OANC_OB@m@n?#J:OCNA@D@mpEN_&">NZ?>OD@EOE@D@ppE@D@mpEN %SOF@p@pN+SOF@q@qN+SOG:OINR_OJ@m@n?#J:OK@m@mN+SOL@`Nc?#@NSJ:OMJOONE_OP@m@n?#J:OQ@EOR@l@lN+SOR@m@mN+SOS@q@mSOTJOVNe_OW@m@l?#J:OX@EOY@l@lN+SOY@p@pN-SOZ@p@?)@@pS:O[JO]NV_O^@m@n?#J:O_@D@mpE@@aa%@g&N?=J:O`@EN?#J:OaJOcND_OdNT_Oe@@mSOfJOhNF_OiNU_Oj@@mSOk@m@r?#@m@mN+S:OlLOm@b@@^anSOn@e@@aaSOo:@m@o?=Op:@D@mpEN ?=Oq@D@mpE@e%@g&N?# Or@EN?= J: Os: Ot@m@mN+SOuB:Ov@n@mSOw@b@bN-SOx@bN?#F:Oy@`NU?=Oz@EO{@m@mN+SO|@m@p?# @m@qS: O}@l@mSO~@x@xN+SOF:O@m@SO@EO:O@@mSOB:O@n@mSO@m@SOJOLO@`ND?#O@EO@l@l@s+SO@m@m@s+SO@q@mSO:O@`NT?#@m@m@s+S:O@`NU?#O@@m@-SO@m@SO@EO@l@l@+SO@m@m@+SO@q@mSO:OJONf_O@b@@^anSO@EO@EO:O:@m@l?=O@m@mN-SO@EN?= J: OB:O@b@bN-SO@bN?=@m@v?#:J:O@m@q?#O@p@v?# J: O@m@pSO:O@l@mSO@m@mN-SO@n@mSO@x@xN-SO:@l@lN-S@l@q?=@l@v?=@D@lN-pEN ?=B:OBONS_O@m@r?=J:O@EO@l@l@s+SO@m@m@s+SO@q@mSONI_O@@aaN?#J:O@m@l-@h?>@m@o?#:J:O@EO@@aSO:O@D@ppE@@aSO@p@pN+SO@@N+SO@@aN?=B:O@l@l@@a--SOJONW_O@EO@EO@@x@y-@+p@m@l-pEO@NUpEO:O@@dpEO@d@dN&SO@dN?#O@@dpEO@dN&NH?= F: O@NpEO@NjpEO@EO@dN SOJO:O@dN?=@dN?#:O: @p@v?= @D@pN-pEN ?= O@p@pN-SO@NpEO@NpEO@NOpEO@NUpEO@l@lN+SO@dN?= B : OFO:O@dN ?#O@EO@EONBWO:O@dN ?#O@NNNf O@D@p@+pEN SO@N pEOB : O@NUpEO@p@pN+SOFO:O@NpEO@NipEO@@dpEO@dN ?#@dN S@@dpE:O@NpEO@NjpEO@NUpEO@D@ppE@dSO@p@pN+SO@l@lN-SO:BONG_O@jN?=@m@l?=J:O@EO@m@lSO@EO@ZN?=O@ZN?)O@EO@@x@y-@+SO@@pEO@@pEOF:O@D@ppEN SO@p@pN+SO@{@{N+SO@x@xN+SO@z@zN+SO@EO@m@pN-SO@l@mSO@x@xN-SO@EO@@x@y-@+SO@p@pN-SO@m@qSO@l@mSO@z@zN-SO@@pNpEO:O@:EO:O@@@ZN&aSO@EO@}NSO @dN:?#O :@E@dN ?=B:O @ZN?=O @ZN?) O @@pEO@@pEOF : O@@pSO@@lSO@|@|N+SO: O:OJO:O@x@xN+SO@z@zN+SO:O@D@ppE@dSO@p@pN+SO@dN ?#F:O@EOB:O@ZN?)@@?#O@@pEO@@?(@@N-SF:@y@yN+S:O @@pEO!:O"JO$NB_O%@cN?=@cNB?(:@cNBS:O&@EO'LO(@D@ppEN SO(@p@pN+SO)@{@{N+SO*@x@xN+SO*@z@zN+SO+@l@mSO,JO.NK_O/@m@o?#J:O0@m@lSO1@EO2JO4NJ_O5@m@nSO6@m@o?=@m@l-@h?(:J:O7@EO8JO:NA_O;@n@l?#NMW:O<@EO=:@n@l-@h?>O>@m@nN+SO?@m@p?#O@@m@qSO@@l@l@q@p-+SOA:OB@n@mSOC:@n@o?=@D@npEN ?=@n@nN+SB:OD@m@n?=@D@mpEN ?#:OE@EOF@l@mSOF@x@xN+SOGJOH:OI@EOJ@D@pN-pEN SOK@@p?<@@pN-S:OL@|@|N+SOL@z@zN-SOMB:ON@EOO@m@l@h+N+SOP:OQ@m@mN-SOR@m@l?#J:OS@D@mpEN ?=B:OT@EOU@m@mN+SOV@q@mSOWJOZN@_O[@n@o?#J:O\@@h@n@m--SO]@@c?)@c@S:O^@@m@l-@c-SO_@N?#J:O`@EOa:Ob@N?)Oc@D@ppEN SOc@p@pN+SOd@l@lN-SOd@@N+SOeF:Of@m@l?= @D@pN-pEN ?= : J: Og@p@pN-SOg@l@lN+SOh@p@?) @@pS: Oi@@N-SOj:Ok@N?=B:OlJOmN$_On@EOoJOp;:Os@RNSOs@SNSOs@TNSOt@ONSOu@Rn@@nSOv@Sn@@nSOw@Tn@RnSOw@QNSOx@@n'?=@Tn@@nS@QNS:Oy@Rn'n:?#@Rn'S:Oz@Tn'n:?#@Tn'S:O{@Tn'?#O|@G@RpEO}@RnN?=s:O~F:O@RnNSO@G@RpEO@RnN?=s:O@Sn'?=O@G@SpEO@SnN?= s: O:O@Tn@RnSO@Tn@RnSO@Rn'?#@Rn@RnS:O:O@:EO@@n N?=@V@Rp@Sp@TpNpNpNPpEF:@V@Rp@Sp@TpNpNpNPpE:O@QN?=@TnN?=:@Tn'?#:O@' No changespEO@TnNSO:O@9NpEO@TnN?=O@L@Rn@Rn-SO@E@Lp@Rnp@TnpEO@Tn@Tn@L+SO@CEO:O@TnN?=@Tn'?=O@@Tn' complete.pEO@:EO:O;;               .$ 1 & 9? 5 M KY M  #) 4:       #  4 5  S  \\ _     &'444 7          && )       && )        !&!- "2 #8 #P $S"T %f$g%h &n&u  |$} '' (()   *  +,+ -,- .7.= /E 0N0Z/b0c 1e t2v1w 2 343  4 565 77 8 9  :9 : ;8;<  =<=7> ?@ A@??A ! >*?+ B0 C9D<C=E= FFHEJFK GKDL HR  V I_H`IaJaKa LjLq MvNzM{ NKN OJO  P   QPQGB.6 ! ,  R $ S (T U VV W$U%W&X& - Y2Y9 Z>ZJXKZL TSUT[T W 4* \\\( ]* ^A^H_I ; `e`l aq_ras ^z A{b} ] D c dede Hf g   fg h  h R i T jkj  ik bd \lc mbm n S o  op d qr q!r( g, / s8p9s: t<=t? b?n@l@ o uPuX S_ vy  }   wv  wx } yzy  xz b {  ||  }$ ~/~2 Y}Z[ dk |                B add  }~    { .67: A D   {  LO Q Zemn w z      !     !"" %      & 02 ABDGH K b  bce                 ! #    +,/ 23 89; ? NQXX 1XY  3     P U    #  & ./0 234 :>?H ^HI NOPP bW b jmno qr  h j  n  p s     )  1789 9: vwxyz{|}~defghijklmnopqrs !"#$%&'( ) * + , -./0123456789:;<=>? @!A"B#C$D%E&F'G(H)I*J+K,L-M.N/O0P1Q2R3S4T5U6V7W8X9Y:Z;[<\=]>^?_@`Aa   EI  O  X\  b  l  x   B CCBC D"D$ E%  -7F;G<  GJHQ TWH^ bFdGfIg Jn r~J K K EL    M NN MO PPOP Q R SR  S   ' T2 U5 V;WCVDXEXMWNRNXP YPUQ RQ   h Zl [| \]\][ ^Z __ _  ^ Y `T  aa`  b  cdc b d ee ff! & .f6 g<  A KgP  hWeX iZ j]k`jaQakb  k htiu lvly  } mnm hl o pqp   o  r  rs tut vvwv xyx       z z  {&|'{( }1 1 ~9 ?|@ $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|(pre-release) vsn 2.1the followk[`QL=A,$XXalWCAl$ŰB0.WXL=A,XalACHAl$ŠB0$XL=A,$PXalAv# $ %AAXL&PLXhUhA$UhB0PXHLPHLXhUhA$`B0NPAXX\P#=XXL\XhlA0AbXhLlX8< cPhLXHUHA$UHB0PCx@Q4$ AȰ!2#'QPXC0# %P8P8Xh`#4 3P8$QXY!$PX!XhLbZmh,$PXfA># $ %AA$QLXUB0@X8P8LX80B0AXð#9XXLXhAAXQLXUB0vCx-@/C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>$A1 0# # QDRD?&A'"3X#Y!Y!&\ ZB!$$A>A>?&?$$A>?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$ ?$$A>H!34"#(! $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|(pre-release) vsn 2.1the followy[`l $(,$$0**400866<<<@BBDHHHNNLTTPZZT``Xff\ll`rrdxxh~~lptx|(pre-release) vsn 2.1the followk[`Q%string(9)%fn Weekday %conststring(9)%array day(0:6) = "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" %record(parmfm) p %integer d svc(19, p) d = rem(p_p4+3, 7) %result = Day(d) %end %begin printstring(Weekday); space printstring(date); space printstring(time); newline %endofprogram !MOUSES file dumper utility. %own %string(31) version = "vsn 2" %OPTION "NOOPEN,NOSPACES,NOSTACK,UPPER" !Alan Culloch, August 1980. !system calls %const %integer disc read = 101 %const %integer to director = 20 %const %integer pack filename = 17 %const %integer find unit = 45 %begin %externalintegerfnspec StoI(%string(63) S) %externalstring(63)%fnspec ItoS(%integer N, P) %externalroutinespec Open Da(%integer Chan, RW, %string(63) File) %externalroutinespec Read Da(%integer Chan, Block, %name Buff) %externalroutinespec Close Da(%integer Chan) %const %integer non zero = 1 %const %integer infinity = 16_7FFFFFFF %const %integer FF = 12; !ASCII formfeed character %record %format block fm (%integer %array word(0:512//4 - 1)) %record(block fm) block %record(parm fm) P %integer offset; !word index in BLOCK %include "Sysinc:command.Inc" !Events %const %integer DA trap = 12; !signalled on READ DA bad block# !(used as E-O-F trap on seq. read). !Output display characteristics %integer page ht = 60,line width = 80;!defaults %integer j %for j = 1,1,length(Command_Out1) %cycle line width = 132 %if char no (Command_Out1,j) = ':'; !assume LP: %repeat %integer N words; !# of 32-bit words per dump line %integer firsttry; !!!!!! %integer rows; !# of dump lines per block %integer N fields; !# of (hex,oct,..) fields wanted %integer first = 0, last = infinity; !default range of blocks to dump %integer physical = 0; !0:from file; #0:direct disc reads %integer unit; !physical unit no. %integer squeeze = non zero; !to suppress formfeeds %integer decoding = 0 !Dump format is any comb. of hex, octal and straight ASCII !side-by-side on the page, with each dump line optionally !follwed by an ASCII decode of the words. %const %integer hex = 1<<1, octal = 1<<2, ASCII = 1<<3, decoded = 1<<4, formats = 3 %integer wants = 0; !gets undecoded hex dump by default %routine report (%string(63) message) print string (message); newline %end %integer lines = 0 %routine break; !keeps track of lines for formfeeds newline; lines = lines + 1 %end %routine decode parm; !interprets program parameter %string(63) s, t %integer j wants = wants ! decoded %if Command_Modifier # 0 Command_Parameter = Command_Parameter . "," %while Command_Parameter -> s . (",") . Command_Parameter %cycle %continue %if s = "" %if s = "HEX" %start wants = wants ! hex %else %if s = "OCTAL" wants = wants ! octal %else %if s = "ASCII" wants = wants ! ASCII %else %if s = "PAGED" squeeze = 0 %else %if s -> s . ("..") . t t = itos(infinity, 0) %if t = "" first = stoi (s); last = stoi (t) %if first < 0 %or last < 0 %start report (s . ".." . t . "?") %stop %finish %else %if stoi(s) >= 0 first = stoi(s); last = first; !single block %else %if s -> s . ("=") . t %if s = "PAGE" %start page ht = stoi (t) %else %if s = "WIDTH" line width = stoi (t) %else %if s = "DISC" physical = non zero %if t -> ("#") . t %start; !unit #n unit = stoi (t) %else String(addr(P_Dact)) = t . "_:"; SVC (pack filename,P) P_dact = find unit; SVC (to director,P) %if P_p6 # 0 %start print string (P_text) newline %stop %finish unit = P_p1 %finish print string ("Dumping unit #"); write(unit,0); newline %else report (s . "=?") %stop %finish report (t."?") %and %stop %if line width < 0 %or page ht < 0; !STOI faults? %else report (s . "?") %stop %finish %repeat wants = wants ! hex %if wants & (hex!octal!ASCII) = 0; !hex default N fields = 0 %for j = 1,1,formats+4 %cycle N fields = N fields + 1 %if wants & 1< max con base(f_chan) = free VM; f_top = free VM f_lim = free VM + 512*size free VM = free VM + 512*(size + f_flag) %if f_flag # 0 %start; !mark extra pages as 'in file' set bit (j-1) %for j = f_top>>9 + size, 1, free VM>>9 - 1 %finish f_flag = 0 f_VM top = f_top; f_VM lim = free VM - 1; !VAX f_lim = f_lim - 1 %while f_lim # f_top %and byte integer (f_lim-1) # NL %end %external %routine move (%integer length, from, to) %return %if from = to %if to <= from %start %while length > 0 %cycle byte integer (to) = byte integer (from) from = from + 1 to = to + 1 length = length - 1 %repeat %else from = from + length; !move from back to front to = to + length %while length > 0 %cycle from = from - 1 to = to - 1 byte integer (to) = byte integer (from) length = length - 1 %repeat %finish %end %external %routine close off %external %record(file) %spec in, out, sec %integer flim = out_lim, size %record(buffm)%name this %integer k %integer j = flim - out_top; !out size %const %integer eot = 4 ! Dump last couple of blocks on the console ! k = flim - 1024; k = 512 %if k < 512 ! %while k # flim %cycle ! print symbol (byteinteger(k)) ! k = k + 1 ! %repeat %while j&511 # 0 %cycle; !fill last block j = j + 1 byte integer (flim) = EOT flim = flim + 1 %repeat size = j>>9 {blocks} !fill paging file %for j = 512,512,512*size %cycle %unless bit set (j>>9-1) %start; !block not used yet k = byte integer (j); !access it %finish %repeat %for j = 1,1,buffers %cycle; !flush buffers this == buffer(j) write DA (paging file,this_block,this_blk) %if this_block >= 0 %repeat extend DA (paging file,size - max VM,size); !truncate close DA (j) %for j = 1,1,max con delete file (out_name) %if out_name # "" %and exists (out_name) rename file (page file name,out_name) write (size,0); print string (" block") print symbol ('s') %if size # 1; print symbol (':'); space %end %end %of %file    #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTBLOCK w%GOAP(A,X  TEMPLIBRARY  EDITOR:VM WPEXISTSCPULIMIT `Wh TERMINALMODE $cWtNEWLINE wA,X $mW<$jW<%aW< yNEWLINES N gA,X X9dAX'P\ y    "   COMMANDCOMMAND EXTRACTCOMMA PARSEPARAMETCLOSEOFF BYTEINTEGERMOVE SYSMESS1,* *unknown error* .(,A CONNECTINPUT BUFFERSBUFFERS 1A QHE@0CP] Hx$PPTA(A BUFFERL XP XP  BUFB BUFB 5X8A P I J F L SYM DEFAULT INALINA SECALSECAT OUTA@LOUTA PARM1 K(X]\A?MEDI OLDB SECB NEWB, VIDEO0 ROWS4 COLS8 MWA<X CMAX< CI@ TID CODEH REFL SCOPEP NUMT SYMX SYM1\ PEND` CASEMASKd WIDTHh DIRl SINp MACPOSt LBEGx FP| LEND FLIM GAPTOP GAPLIM MSTART MSIZE SFP SLIM NEWTOP NEWLIM LINE WINLINE LIMLINE BREAKS JOINS VROW VCOL ZROW MON FPROW PRINTLINE PRINTED WINTOP WINBOT WINLIM MINWIN CHANGEMIN CHANGELBEG VP ENDON2  >unknown ^X  ^I > ^Y  ^x>> ^Y  ^x>> :   :Y ^A ^A ^A I$1P4ȰPA)A I$QPT02P4A)A I$QPT0xP4A)(AAT ROW COL WA,X X90 PiPY YY8XY8'QPZ `W< X0ð `YW<Xj` W<  `XW<Xj*C!(T$}b 6<> b&Zv&Z$:p*Tw0aNWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z}eQth# yULu;`}R-^e%Qv#p}SId:w Rw&p| }"S@&XK~vg\ MOQS!A!a"A""C!AA!!a!!a"aCaBA&AaaaaB!bBaAACaaaaa5(!A $0A!aabaAbAa"aAA!BAaAABBaaC!Aaa!A!aaAAD#JaAAaaAAAB"AAb$AaA $AAA $AAA""aA #baaA!aA!!a!AAa&!"AaaaAaa3!aAP%aAaaAaAAAh"Bp#! "AAA! M!#!!A!AAAa!AAaAaaaA!!eB!!aABcA!!B!A#BAAbaB!aaBaABa!!daAAcBb"A!AAAaACC!B%begin %integer j %for j = 1, 1, 10 %cycle print string("Hello, world #") Write(j, 0) Newline %repeat %endofprogram xecutable) Vecce (v) works a lot better if you do this beforehand: set page=0,width=0 Then you don't have problems with having to remember to hit Ctrl-Q or with the terminal driver trying to break lines where it shouldn't/ If you get bored with Imp then Ian Young's BASIC interpreter is there: basic That will get you an out of memory stack traceback unless you up the default stack size beforehand: set stack=60 Most of this is just using the default setup from the SYSX disc but some commands are fixed versions set up at USER: login by the STARTUP.TMP command file. Enjoy!, FC ISSUES FILES or F command should accept '!' modifier for a listing with extra file info but doesn't. Workround is f()! Problem seems to be that we don't have a self-consistent matched set of {superviser, subsystem, standard commands}. STARTUP.COM doesn't seem to be recognised and run as a default command file. STARTUP.TMP is recognised though for some reason. On command errors, you should see messages like "* COPY fails -- why" but actually you will see "* fails -- why". The command name is missing. Investigation showed this to be at root an Imp compiler bug dealing with an assignment to the COMMAND_COMMAND string in the subsystem. The good news is that things are robust enough to enable rebuilding the subsystem. The bad news is that this and other symptoms indicate that the subsystem and the supervisor here aren't a totally consistent contemporaneous set. Getting to the bottom of that would probably be quite a bit of work. I've got rid of the experiments with rebuilding the subsystem to avoid confusion. END  *unknown error*   EDITOR:VM $?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"C$A1 0# # QDRD?&A'"3X#Y!Y!&\ ZB!$$A>З$1$HHX[&B0P [,&' ?P *&30HPїCKї$$A> Y #%$$A> qPrPB&(pX ?$P S?PE&T 41I2!,K2! 3s3B#9 3 >!$$A>!$$A>A>?&?$$A>O$$A>?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$2$#PC'4"H!34"#(!BC$$A>X$$A>ƀwA, X $mW<$jW<%aW<y gA, X X9#)AX'P" y WA, X X90C0PiPYYY8!XY8'QPZ`W<X0ðC0$`YW<Xj` W<C<`XW<Xj` W<`W<`YW<Xj` W<zd wA, X X90C0RXILYI8CB`W<XY0P#9`xW<#`IW<$`W<z; wA, X X9<&1P9$@PIA&z gA, X X90C4XILF#4$PAb$PPY`W<`LW<z, gA, X X90C4XILF#4$PA $PPY`W<`MW<z, gA, X X90 3C XILD!;` W<$QPYXilX9<c!7XilPiXkB0FXILDB0.WHXY\Xil VX9< SPY$PCVWAPJ,XY\&QPY@ !3C,XilYi8#dW<X9<&1P9C6Xð#3AXJ@#3Az wA,X X9<XIL4!4zXY0!2"XilX9< cPiXXIL XY\ P, B"Xil CX9P9$PXILXY\EC0*dWa` #:X9<'1P9CX0C$XILTXil VXj,lAC"X9<XIL 4SXj,lA$QPZ8XilX9x<c!;XXIL#>$PPZ8$cA~XZ,\&QPZ,Xj,lX9<c!3CXCXI0CxP4XY\Y]C &XmAXil'aPiX:,<'1P:,#XilAX4&P4#3CXj,lA,XIL&API#2"XY\XilVC0RX9<X ;!XIL 4!XIL4B0$XZ8\U!=$cAtXj,l&aPj,CX9<3C0X, k cPj0#%XI0C XY\XilV#5$cA " CX9<P:4XilAX4'P4#2"XILXY\E!7XILPIXilF!6$1P9C"&APIdWӱŰ #3CXJ0L'APJ0#3CXY\eX9< c$PAHXilA$cAXXXIL#3CXY\PY$`PiPiCxـ wA, X X:,<3C XILXY\E!7XILPIXilF!3C`X9<'1P9XIL4!7X9<P9XY\5#?cWa` #3CX:,<'1P:,Cb{] wA, X A~X9x<P9$PXIL C#/XY|\ E!) 4Xil 6P9XY0B0PXilPmX9<X| ;P=XIKC0tXYT\PB0dXilWaW<Xil&aPiX9<c!7XilPiX|k#3C`^W<$bAfzXilX9< cPj,CXIL kC U!X YBX PXILYMC&XilAXmA>XY\&QPYCYM#/$PdA`=W<A`$PXilA$aAXj,l&aPj,!#A"X9<P9CCX,XIL XY\ P,#CXil C|P0AX90#($PXilAXmAXY#%'P#XIL&APIXilAB$cAXZ0\'QPZ0!CXi0##A:CdX9<'1P:,X|XIL#83#&10P:,XY\ SPYAfXilX:,< cPiXXIL PYC "$PkA(`=W<AAP#$PXmA$aA"XY\Xil V!#A$CC wA,X X9|<XIL 4BXY\ 5C SPZ,Xil[iPj0X:,<P:4X0 #P4XILXZ4\ EPIXil ePiPg,TXj4WX:,<X4 ;P:,#3CXILXY|\E!7XILPIXixlX:0< cPixX PXY\PY|CbXY\ 5P:,C .Xil cX k!CXiPg,cWX9<X, ;P9XI|LPIXY\Xil V#PYX9x<P9XP,XILXilF#3Pj,5X, ;#zpWH$ A wA, X X9<XIL4C0cWQP C0XilWXilP0WXj016XXI|LB0BXY\ P,Xixl kPix KPI|X9< ;P9XU!3PIXY\&QPYXil&aPieW10 #3C wA,X X9|'1P:,XILL'APJ0XZ,&QPZ,Xj0&aPj0eW1P:40a!0z!%T9dP:4X09(AX4A!3CX0AQU#5$zXi|PiX:, 6P9$" Z WA<XX I$1P4ȰPA)ABI$QPT02P4A)ABI$QPT0xP4A)(AB$0P9P9<19A!$2A@19A$P29A!$2A@29AȠ]ҡ29A@PA$PPYt$9A$jaA9A$ұ9A$ҡ9A$JAPPYd`PPih$0P9lX,XPPXKLPIXY\XelPi|PiPixPiX5<P9XUC0$kWӡŠ #8XI&APIC$PPYpXilX6<P9XPXPPYPYPY$APIPYPB?PYXi4'bPi'aPiPi$3P9ȰcPX0#9XI4[IdA%Q&QPY@PYT=AaPi\$ $!APDCP&PDPXX@=A+AR ӡŠ^!=X@A+AR @AXDUXAU\B0PXXY@\UC "=AXilȶ ұðAX@#*=A@AXY@UYTAPB0PT$=A$]Q$=A$maX9,<XXXJL C 8PIPPkW$ZQXi|Ui!5XiPi|PixPiX9U9C0$cWӱŰ #8X&PC$JPIXXYp\U!?X0=A-AC,X0=A',A$A"-A$`Pi`X9X<P9\19A$PXXŠ B0rXI0B08$QPYTXm!9X=X;!;f#+X=XZ|;#3AC0AXXIL XY\ PXY|[YxjAXi0C \`^W<0 P9\X|UxC06U#=kWӡP\# Xi'aWAPI\C`W<`4W<P PY\`|PiXX9|U9C00cWӱŰ #>Xi|WӡP\PXXiXlW<`W<`3W<A4# AXIXL@ #3PI`$PPY@PYDPY4PY'aW10 #3CCZX|U#3C2APXxXIL PxXY| TPY|PYXL9(Aaf!3CX|[xYh!&X|U!3CAXILLPIDXiWPTXD9(AXYTaeX9&1P9XD&PD9(Aӡ#3CXILL XYx [PYxC(ApAXilX9< cX kXY|[YxA%aW<W PXPXB0FW PXH#3C`W<`jW<A$PXC#5B0XIUIC0tdWQP C0ZXi'aPi$hW<`W<`OW<%aW<X9x&1P9xXXŰ#3CC0 !;A$AB.&A B0d%&PDPTXi jW@ A` W<XDUTAŠB0PT%aW<XY&SPYC`W<`iW<XiXlW<XiXl` !9$jPiXW<`W<`jW<%aW<XiWX9X<10AX&PXx'PxCXIpLD#8XY|UYx#3CAXixPi|AX90C0C@AhXX XIL PXilALXilACXiW$ZQXi&aPiX9<&1P9X&PX&PAtXI'API|PIxXY\'QPYAXilX9< cX kPiX'PXIPI|PIxXY\'QPY$PAͼAFX0=A-AAߴ`PiX9X<0:B0\AߘXXŰ #2" X0C0<#XilA$XilACXIPIXYxPYXil&aPiC,X&PX&PXiWXIXLA@AXY&QPYXiXl` !2#ACX90CNXXB08XmAlXILYM#%'API#XY\&QPYXilACHXiTlf#4`B#%`BPiTAvXiW$:1X&PX&PXIL&APIXY\&QPYXi|PixCX9|U9!3CX9xP9|ACXP|U#6[xYh##CAC^XUx!7M.&AAزXI[IxYIhB XY&QPY|UY!;XYPY|[YZYxPYxXi|PiX9U9C0$cWӱŰ #8X&PCXI|UI#=dWQP B0A\Xi|PixX9<&1P9CAXi'aWȰ ұXY!X'PXIL&APIXY\'QPYCA׮XixZih&aPi|X9|'1P9|U9x!3C~cWӱŰ #3CAՂX|&P|PCXIUI!3C:[I|XYh TPY@XiTl V#PYTX9|[9xSXT [PY@!3CPA"X@CXi'aWӡŠ #3CXI'APIXYx&QPYxXil F#PIX9@<'1P9@3#3CTCAC wP(A,:X WP`Wh$cWt(,AAxQHE@0CP]Hx$PPTA(ABXP XP X8AP (X]\A?-0&A@-0&A@-@0&A@$0P8-X A-@A-@A$APH;3#9A$@PH.A!4$P]@.A!4$`m@=@3B0(mWX#6$ AC~ȠPmWX#6$ AMDC0$mWX]<\U#6$ AXmlPmX=<P=ӽ!3P=AXXC0.M@PG,$PPW0`Pg40PP78]mA`C.Ƚ@P,@PG0PPW4`PPg8]mA.X8#7X#5ӭ@!;WH$P$`WtXMLDC0RX]\Xml VPXX=<P7,VXhWXX PWXC00M@DC0&',@AA"WHAvxF'): !Find s('U'): !+ Uncover fp1 = fp fp = fp+1 %if fp = mstart find: scope = r(ci)_scope; !number of lines to search sym1 = text(ref); !first symbol of quoted text %while fp # flim %cycle %while byteinteger(fp) # nl %cycle %if (byteinteger(fp)!!sym1)&casemask = 0 %start -> found %if matched # 0 %finish fp = fp+1 %repeat lend = fp scope = scope-1 %exit %if scope = 0 %if code # 'U' %start update fp = fp+1 fp = gaplim %if fp = gaptop lbeg = fp line = line+1 %finish %else %start fp = fp1; join %finish fp1 = fp %repeat lend = fp; fp = fp1 -> no found: %if code = 'D' %start split lbeg = lbeg+msize; fp = fp+msize gaplim = fp %finish fp = fp+msize %if code = 'T' %if code = 'U' %start i = fp-fp1; fp = fp1 split lbeg = lbeg+i; fp = fp+i gaplim = fp %finish -> lok ! s('f'): !Find back scope = r(ci)_scope update consolidate %cycle %while fp # lbeg %cycle fp = fp-1 -> ok %if matched # 0 %repeat scope = scope-1 -> no %if scope = 0 %or fp = newtop %if fp = gaplim %start -> no %if gaptop = newtop fp = gaptop %finish lbeg = fp fp = fp-1; len<@ DHLP$$T**X00\66`<<dBBhHHlNNpTTtZZx``|ffllrrxx~~>unknown ^X ^I > ^Y ^x>> ^Y ^x>>  :Y ^A ^A ^A ** File too big ** File too biXmbol ('j'); !& out again print symbol (-1) byte integer (gaptop) = sym gaptop = gaptop + 1 lbeg = lbeg - 1 {?} %repeat ! s('G'): !Get (line from terminal) -> no %if sin # 0 %and fp # lbeg consolidate fp = lbeg split %if video # 0 %start %if video < 0 %start display C!J ^}""NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Zy8@;ov`EX!qIw@%QvPA-Block # Won't fit! , status: from unit*cannot read block=?Dumping unit #_:#DISCWIDTHPAGE=....PAGEDASCIIOCTALHEX,   9H!3410!81!5$$A>rB@!4B"; C@!$$A>r #$$A>rB C B$P#EE&Q'1"C,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U ns_eX!34RUUh!34dffзӳŰ!4Գ#9!8!5$$A>r B$C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>r$A1 0# # QDRD?&A'"3A>r?134C0DD C Aw),A\plWHW,y wp,W,$Qy wpXX<#7XưPȠ,L&AҬDLX]5),CA*??C0i,f!3C,.A.!9XPC.A.!9X80P8C.A.!9XưPC.A.!6$PC1!IlA*??C0YlU!>$P`W|)lA\,WpPplWpPtXhp!CD',,A\AlA&0?2LAF$ AXC,Wp!,WpPpPtC9,#IlA*??C0z.A.!<lWpPPC,.A.!<lWpPTC.A.B0$Px9l$ CA*?#;WpP|Cf(.A\Ar,q,Ƞ-@.r,q,XHHC0"4WHW,$ AXXX4PX|xWH$PXh|WTW,C&',,A\tAA$ AXXhT!XPC0',lA\2&1Ȱ?ҲC2A$ AXC0',,A\Ӣ&@?BJҢAT$ AXCXXP!5PPX$`Phl&P$1<T8#4$Ql >yӀ gp4$&P,XZE@0%CPJ0X:# Ȱ%+P:D!8WC$@!)d@W<#dW<X,B0zC Wp4X#9X=XŰ?C0d$&P,XiW XI@@PI0XYXPY@ !@!7W#dW<X,ŠB0C"Xib'bW siAsiAyX gp4 'P,X9<0P900 !c7W<#c0W<X,B0y. gp0!'P,X9<0c0W<X,B0y! Wp<$P$dW `|W<$0&1P9,$TC0$Š!7$bW XIZI'API4XY'QPY0Cz&QPY0$aX,l`B0&WX902Z=8,$QXcAC8$ŰB0RZ]X,PY8$RX8XjA#$dW XY0UY4B0~X9,0B0*$@PHy gpLXxB0$8,P7,0 P70V$aWyPi4ȸ,P8X|P<$@PI@r ,eq ,XY4C0n`WH$QXiWTTWH$QXh|WTJWH$QXi4WTW,$ AXCZm wP(pA6$ AX0# *"!2#'P`CPE@JPXhPXXÐ#4 UPX$CQHXhYhP!$PX8x!XLZʨ,$PXjA^# $ %AXAX$QLXUB0HXHPHLXH@B0AXXP#9XXLXh`AXAXh`QhLXXU\B0~Cx@gy<X9,U90A3B0P0y0 WA$,X $1P8$dW `|W<$&P,P4X+Ab$ABC0+Ab$QRP!7$bW XiZi'aPi 15 Prompt text = s string(addr(p_p2)) = s p_p1 = echo flag svc(2, p) %end %externalroutine ECHO(%integer onoff) echo flag = 0 echo flag = 1 %if onoff = 0 %end %externalpredicate END OF INPUT %integer s %on 9 %start %true %finish s = nextsymbol %false %end %externalstring(72)%fn ITOS(%integer n, p) %byte %array s(0:72) %integer x, sign x = 73 sign = 0 %if p > 0 %start sign = ' ' p = 72-p %else p = p+73 %finish p = 1 %if p <= 0 %if n < 0 %start sign = '-' n = -n %if n < 0 %start; !max int n = n//(-10) x = x-1 s(x) = '8' %finish %finish %cycle x=x-1 s(x) = rem(n,10)+'0' n = n//10 %repeat %until n = 0 %if sign # 0 %start x = x-1; s(x) = sign %finish %while x > p %cycle x = x-1; s(x) = ' ' %repeat x = x-1 s(x) = 72-x %result = string(addr(s(x))) %end %externalroutine WRITE(%integer n, p) printstring(itos(n, p)) %end %routine ROUND(%realname v, %integer p) %real x %return %if v = 0 %if v < 0 %then x = -0.5 %else x = 0.5 %cycle p = p-1; %exit %if p < 0 x = x/10 %repeat v = v+x %end %routine FRACTION(%real R, %integer Places, %string(*)%name S) %return %if Places <= 0 S = S."." %while Places > 0 %cycle Places = Places-1 R = Fracpt(R)*10 S = S.Tostring(Intpt(R)+'0') %repeat %end %externalstring(64)%fn FtoS(%real r, %integer p) %string(64) S = "" %integer Exp, Sym P = 7 %if P > 7 %if R < 0 %then Sym = '-' %and R = -R %c %else Sym = ' ' %if R = 0 %start Exp = -99 %else Exp = 0 Exp = Exp+1 %and R = R/10 %while R >= 10 Exp = Exp-1 %and R = R*10 %while R < 1 %finish Round(R, P); Exp = Exp+1 %and R = R/10 %if R >= 10 S = S.Tostring(Intpt(R)+'0') Fraction(R, P, S) S = S."@".ItoS(Exp, 0) %result = S %end %externalroutine PrintFl(%real R, %integer Places) Printstring(Ftos(R, Places)) %end %externalstring(63)%fn RtoS(%real R, %integer A, B) %integer Before %real Rm %string(63) S = "" %constinteger Max Int = (-1) >> 1 A = 63-8 %if A > 63-8 B = 7 %if B > 7 Round(R, B) Rm = |R| %result = FtoS(R, A+B) %if Rm > Max Int Before = Intpt(R) %if Before = 0 %and r < 0 %start %while A > 0 %cycle A = A-1 S = S." " %repeat S = S."-0" %else S = ItoS(Before, A) %finish Fraction(Rm, B, S) %result = S %end %externalroutine Print(%real R, %integer B, A) Printstring(RtoS(R, B, A)) %end %externalstring(63)%fn XTOS(%integer n, p) %string(63) s = "" %integer k %if p < 0 %start p = 1 %else %if p > 63 p = 63 %finish s = s." " %and p = p-1 %while p > 8 N = N<< ( 4*(8-P) ) %cycle k = n>>28&15; n = n<<4 %if k > 9 %then k = k-10+'A' %else k = k+'0' s = s.tostring(k) p = p-1 %result = s %if p <= 0 %repeat %end %externalroutine PHEX(%integer n, p) printstring(XTOS(n, p)) %end %predicate Base Ok(%integername V, %integer Base) %if '0' <= V <= '9' %start V = V-'0' %else %if 'A' <= V&95 <= 'Z' V = V&95-'A'+10 %finish %else %false %true %if V < Base %false %end %externalintegerfn StoI(%string(63) S) %integer N, P, L, Base, Sym, V, Sign N = 0 L = Length(S) P = 0 Base = 10 Sign = 0 %cycle %result = N %if !Subsystem general routines %externalroutine STOP %record(parmfm) p Close Out(0, 0) svc(1, p) %end %systemroutine CREATE SEG(%integername n, %integer size) %record(parmfm) p p_p2 = size; p_p3 = -1; svc(8, p) n = p_p1<<16 %if n < 0 %start console("*Create segment fails ".itos(n, 0)) %else work segs = work segs!(1<= 0 %result = intpt(r-0.5) %end %externalrealfn FRACPT(%real r) %integer m,x,z %if |R| >= 1.0 %start x = integer(addr(r)) z = x>>24&b'01111111' %result = 0 %if z > x'46' m = -1 m = m<<4 %and z = z+1 %while z < x'46' x = x&(m!x'FF000000') r = r-real(addr(x)) %finish r = r+1 %if r < 0 %result = r %end %systemroutine STORE DUMP(%integer from, size) from = from&(\31) %cycle %if from&31 = 0 %start newline %exit %if size <= 0 phex(from, 5) printsymbol(':') %else space %if from&15 = 0 %finish space %unless valid(from, 4) %start newline printstring("Invalid address"); newline %return %finish phex(integer(from), 8) size = size-4 from = from+4 %repeat newline %end %systemroutine DUMP CONTINGENCY(%record(contfm)%name cont) %integer s newline printstring("PS "); phex(cont_eps, 8) printstring(" PC "); phex(cont_Epc, 5) newline %for s = 0, 1, 15 %cycle newline %if s&3 = 0 write(s, 4); phex(cont_er(s), 10) %repeat newline %for s = 0, 1, 7 %cycle newline %if s&3 = 0 write(s<<1, 4); phex(cont_efpr(s), 10) %repeat newline s = cont_epc&(\3) %if s&X'FFFF' >= 128 %then s = s-128 %else s = s&X'F0000' store dump(s, 256) %end; ! hex dump %externalroutine Terminal mode(%integer m) %record(parmfm) P tt mode = m p_p1 = 11; p_p2 = 0; p_p3 = m; svc(29, p) %end %endoffile H?UH?H?H?H?  H?CCs = P_p5//1000 %if secs # 0 %start Print symbol(',') Number(secs, 1, "CPU seconds") Print string (" used") %finish Newline Print string ("Process") P_p1 = 0 {me} Write (P_dsno&63, 1) Print string (" (privileged)") %if priv>>31 # 0 Print symbol (',') Write (others, 1) Print string (" other processes") %else %if parm = "DISC" Print string (" Unit") %if exclam # 0 %then print string( %c " S/W H/W Initialised " ) %if exclam = '!' %then print string(" Lost Free Used Label") Newline SVC (28,Q) {Get sys info} %for unit no = 1,1,max unit %cycle %if unit no = Q_p2 %start Write (unit no, 2); print string (" *swop*"); newline %continue %finish P_p1 = unit no; P_dact = 40 SVC (To Director, P) {Get name of disc on unit} prot = P_p2 %if exclam = 0 %start {Just name & prot status} %continue %if P_p6 # 0 %or {Unit not loaded} P_P1 = 0 {Temp fix} Write (unit no, 2); space P_file_owner = 0; P_file_N1 = 0; P_file_N2 = 0 Unpack (P_file, x) length(x) = length(x) - 1 Print string (x) %if prot # 0 %start Spaces (7 - length(x)) Print string ("protected") %finish %else Write (unit no, 2); space Read block (unit no, 0, block) %if P_p6 = 0 %and P_P1 # 0 %start {Online OK} print then pad(7, block_disc id) %if prot # 0 %then print string("prot") %else spaces(4) P_p3 = unit no; SVC (Disc status, P) %if P_p6&4 # 0 %then print string(" prot") %else spaces(5) %if checkword # 0 %start Print string (" *foreign disc*") %else {Standard MOUSES disc} pad then print(12, block_initialisation date) %if exclam = '?' %start Print string (block_description); newline %continue %finish Read block (unit no, block_free list, free) Write (free_extents, 8){Lost blocks} k = 0 {count free blocks %for j = 1,1,126 %cycle{by summing sizes of free extents k = k + free_extent(j)_length&x'FFFF' %repeat Write (k, 6) Write (block_tracks*block_blocks per cylinder {disc size} %c - k {free} %c - free_extents {lost}, 6) Spaces (3) %for k = 1,1,4 %cycle sym = block_vol id>>(3*8) %if sym = 0 %then space %else print symbol(sym) block_vol id = block_vol id<<8 %repeat Space; Print string (block_description) %finish %finish %finish Newline %repeat %else %if parm = "QUEUE" %begin {Show potter's queue entries} %record %format entry fm (%record(file fm) label, actual, %integer queue, date, time, %short %integer priority, mode) %record %format block fm (%integer %array spare(1:8), %record(entry fm) %array e(0:9)) {Potter's queue is a file of blocks of entries} %const %integer queue = 1 {DA channel for queue file} %record(entry fm) %map entry(%integer N) %integer block no = N//10, offset = rem(N,10) %own %integer last block = -1 %own %record(block fm) block Read DA (queue, block no, block) %if block no # last block last block = block no %result == block_e(offset) %end %record(file fm) f %record(entry fm)%name e %integer first = 1, count %string(63) x %integer j Open DA (queue, 0, "POTTER:QUEUE") Count = 0 %for j = 1,1,255 %cycle e == entry(j) %if e_queue # 0 %start {Valid entry} count = count + 1 %if first # 0 %start Print string (" Queue Label Actual Date Size ") first = 0 %finish f = 0; f_owner = e_queue Unpack (f, x); print then pad(8,x) Unpack (e_label, x); print then pad(26,x) Unpack (e_actual, x); print then pad(26,x) P_p1 = e_date SVC (13, P) {unpack date} pad then print(10,p_text) P_file = e_actual P_dact = 18 {get status} SVC (To Director, P) Print (P_p2/2, 5, 1); print string("Kb") Newline %finish %repeat Number(Count,0, "files") Print string(" queued") Newline %end %else Print string (parm."?") %finish Newline %end %external %routine zFILES(%string(63) parm) %string(15) %array File(1:42) %string(15) %name Sn %string(63) S %integer N = 0, rows, cols, j, k %string(7) Last owner, last unit %record(Filespec) F %record(Parm fm) P %record(Commandfm) C %integer %name IP %on * %start Failure(""); %return %finish Print String("Command_Command: ".Command_Command); Newline Print String("Parm: ".Parm); Newline parse parameter(C,0,parm) IP == Integer(Addr(C)) %for j = 1, 1, 8 %cycle %for k = 1, 1, 8 %cycle Phex(IP, 8); Space IP == IP ++ 1 %repeat Newline %repeat Print String("Modifier: "); Phex(C_Modifier, 8); Newline Print String("Command_Modifier: "); Phex(Command_Modifier, 8); Newline Open output(1, C_out1); Select output(1) F = Split(C_in1) F_file = "*" %if F_file = "" F_ext = "*" %if F_ext = "" Wild spec(Filename(F)) F = Next filespec Last owner = F_owner Last unit = F_unit %cycle %if F_Nil # 0 %or F_owner # last owner %start Number(N, 0, "files") Print string(" owned by ".last owner) %if last owner # "" Newline %if N # 0 %start %if C_Modifier # 0 %start { Files! } Print string(" Filename Size Access Last used ") %for j = 1, 1, N %cycle Sn == File(j) print then pad(17, Sn) S = Last unit."_".last owner.":".Sn Squeeze(S) Pack(S, P_file) Director(Direct Status, P) Write(P_p2, 5) S = "(".ItoS(P_p3,0).")" print then pad(6, s) S = Access(P_p4); print then pad(9, s) P_p1 = P_p5; SVC(13, P) {Unpack date} Print string(P_text) Newline %repeat %else Cols = 4 Cols = N %if N < cols Rows = N//Cols Rows = Rows+1 %if Cols*Rows < N %for j = 1, 1, rows %cycle k = j %while k <= N %cycle Sn == File(k) k = k + rows print then pad(17, Sn) %repeat Newline %repeat %finish %finish N = 0 %exit %if F_Nil # 0 Last unit = F_unit Last owner = F_owner %finish N = N + 1 F_unit = ""; F_owner = "" To mixed(F_file); To lower(F_ext) F_file = " ".F_file %while length(F_file) < 10 File(N) = Filename(F) F = Next Filespec %repeat %end {***************************************************************************** { { Wildcard processing module A. Culloch Sep-81 { {***************************************************************************** {Director formats} %record %format file (%integer name1, name2, %short Spine block, Day) %record %format Dir fm (%short Files, %byte Access rights, Check, %short Unused, %byte Spare, Access permissions, %record(file) %array File(1:42)) %record %format user (%integer Name, Password, %short Dir block, Spare) %record %format userlist(%short Users, Spare1, %integer Spare2, %record(user) %array user(1:42)) {%external} %record(Filespec) %function SPLIT(%string(31) s) %record(Filespec) F = 0 To upper(s) %if s # "" %and char no(s, length(s)) = '#' %start F_Volatile = '#' length(s) = length(s) - 1 %finish %if s -> ("_") %then s -> f_unit.("_").s %if s -> (":") %then s -> f_owner.(":").s %if s -> s.(".").f_ext %start; %finish F_file = s Squeeze(F_unit); Squeeze(F_owner); Squeeze(F_file); Squeeze(F_ext) %result = F %end {%external} %string(31) %function FILENAME (%record(Filespec)%name F) %string(31) s = "" s = s.F_unit."_" %if F_unit # "" s = s.F_owner.":" %if F_owner # "" %or F_unit # "" s = s.F_file s = s.".".F_ext %if F_ext # "" s = s."#" %if F_Volatile # 0 %result = s %end {%external} %routine MASK(%record(Filespec)%name x, %record(Filespec) y) x_unit = y_unit %if y_unit # "*" x_owner = y_owner %if y_owner # "*" x_file = y_file %if y_file # "*" x_ext = y_ext %if y_ext # "*" %end {%external}%own %record(dir fm) Dir {%system}%own %integer wild monitor = 0 %own %integer dir pos, dir lim %own %record(fd fm) %array sorted dir(1:42) %own %record(user list) catalog %own %integer cat pos, cat lim %own %integer unit no, one off, required unit no %own %record(Filespec) Spec %own %string(31) Current dir {%system} %routine sort(%record(fd fm) %array %name p, %integer a, b) %record(fdfm) dump %integer l, u %while a < b %cycle l = a; u = b dump = p(u); ->find Up: l = l+1; ->found %if l = u Find: ->up %unless p(l)_name > dump_name p(u) = p(l) Down: u = u-1; ->found %if l = u ->down %unless p(u)_name < dump_name p(l) = p(u) ->up Found:p(u) = dump l = l-1; u = u+1 %if l-a > b-l %start Sort(p,u, b); b = l %else Sort(p,a, l); a = u %finish %repeat %end %routine set dir(%integer unit, owner) %record(Filespec) F %record(file) %name Slot %record(Fd fm)%name S %record(parm fm) P %integer j P_file_unit = unit P_file_owner = owner P_file_N1 = 0 P_file_N2 = 0 Unpack(P_file, Current dir) Current Dir = ":" %if Current Dir = "" F = Split(Current Dir."*.*") Mask(Spec, F) P_dact = Direct Files P_p6 = Addr(Dir) SVC (To Director, P) {Read directory block} %if P_p6 # 0 %start Dir pos = 42 %and %return %if one off = 0 Event_message = P_text %signal 11 %finish P_file_unit = 0 P_file_owner = 0 dir pos = 0 dir lim = 0 %for j = 1, 1, 42 %cycle slot == dir_file(j) %if slot_name2 # 0 %start dir lim = dir lim + 1 S == Sorted dir(dir lim) S_pos = j P_file_N1 = slot_name1 P_file_N2 = slot_name2 Unpack(P_file, S_name) %finish %repeat Sort(sorted dir, 1, dir lim) %end {%external} %routine WILD SPEC (%string(31) parm) %record(filespec) fff %record(file fm) F %record(parm fm) P Required unit no = -1 Spec = Split(parm) Cat pos = 42 Dir pos = 0 Dir lim = 0 Unit no = 0 one off = 0 %if spec_owner # "*" %start one off = 1 Pack(Spec_unit."_".spec_owner.":", F) Set Dir(F_unit, F_owner) %if F_owner = 0 %start {Defaulted - must find out who we are} P_dact = Direct Identify P_p1 = 0 SVC (To Director, P) Unpack(P_file, Current dir) %finish !!! Mask(Spec, Split(Current dir)) fff = split(current dir."*.*") mask(spec, fff) %else Spec_unit = "*" %if Spec_unit = "" %if Spec_unit # "*" %start Pack(Spec_unit."_:", P_file) P_Dact = Direct Find unit SVC (To Director, P) P_p1 = 0 %if P_p6 # 0 Required unit no = P_p1 %finish %finish %end {%external} %predicate MATCHES(%record(Filespec)%name F1, F2) %predicate match(%string(*)%name S1, S2) %true %if S1 = S2 %or S1 = "*" %or S2 = "*" %false %end %true %if match(F1_unit, F2_unit) %and match(F1_owner, F2_owner) %and match(F1_file, F2_file) %and match(F1_ext, F2_ext) %false %end {%external} %record(Filespec) %function NEXT FILESPEC %own %integer Unit %record(Filespec)F %record(parm fm) P %integer User %label New dir New dir: %cycle F_unit = Spec_unit F_owner = Spec_owner F_Nil = 1 {In case of early return} Dir pos = Dir pos + 1 %if dir pos > dir lim %start %result = F %if one off # 0 %cycle cat pos = cat pos+1 %if cat pos > 42 %start %cycle unit no = unit no + 1 %result = F %if unit no > max unit %or unit no = required unit no + 1 P_p1 = unit no P_p6 = Addr(Catalog) P_Dact = Direct Catalog SVC (To Director, P) %repeat %until P_p6 = 0 {Valid unit number} P_p1 = unit no P_Dact = Direct Unit name SVC (To Director, P) P_p1 = 0 %if P_p6 # 0 unit = P_p1 cat pos = 0 %continue %finish user = catalog_user(cat pos)_name %if user # 0 %start Set dir(unit, user) -> New dir %finish %repeat %finish F = Split(Current dir . Sorted dir(dir pos)_name) Console(Filename(F)) %if wild monitor # 0 F_Nil = 0 %result = F %if matches(F, Spec) %repeat %end {%external} %routine FOR EACH(%record(Command fm)%name C, %routine Do Something(%record(Command fm)%name CC)) %integer J, k = 0, wild %string(31)%name Sn %string(31) S %record(Command fm) CC %record(Filespec) W, base, overlay %for j = 1, 1, 3 %cycle Sn == C_in(j) k = k + 1 %and wild = j %if Sn -> ("*") %repeat Wild Spec(C_in(wild)) %if k # 0 %cycle CC = C %if k # 0 %start W = Next filespec %exit %if W_file = "" CC_in(wild) = Filename(W) W_unit = ""; W_owner = "" S = Filename(W) %finish %for j = 1, 1, 3 %cycle S = CC_in(j) %if k = 0 Sn == CC_out(j) %if Sn # "" %start overlay = Split(Sn) base = Split(S) Mask(base, overlay) Sn = Filename(base) %finish %repeat Do Something(CC) %repeat %until k = 0 %end %end %of %file UgqsxS@,8@0K;}Đ<fZ MY L{~XHĐK L{}aYK,g2Đ0KfZ:uY؁Lv! M[ eLv@#"Ɛ,fՉƐ0~Iv%N 8@ qIQ@x@ WA,Rv@<:dKDhKElMpMtN #|_}:,,~Iyq+,2(02v4Z8lwW> <<Code= < ***L ***VSS= OpeEndLnpeRunLnpeCondnpeStopnpeContnpeNoptnpeByetnpeEndtnpeGoSubpeListbpeToColpePrNumpePrStrpePrTabpePrNLbpePrintpePrintpePrintpePrintpeRanntpeSqrntpeSinntpeCosntpeTanntpeAtnntpeExpntpeLogntpeAbsntpeAbsntpeTimetpeDatetpeDatetpeDatetpeDatetpeDatetpeDatetpeDatetpeDatetpeDatetpe**tetpe**tetpe/*tetpeDivetpeModetpe+odetpe-odetpeAndetpeOrdetpeOrdetpeUnary -Notry -Notry -Notry -Notry -Notry -Notry -Notry -Notry -Notry -Fix Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Int Of-Discard%DiagrdGetVardAssigndToRealdToIntldSetTargEncloseSAssignBinarynReturnnCompareSComparConcatrDimStrrNewStrrForStrrNexttrrSetVarrSubStrrBytetrrShortrrRealtrrStringrRDatagrSdatagrDataRgrDataSgrDataSgrUseaSgrOldaSgrToStrngRestoreOnErrreCaserreZerorreOneorreDumprreLengtheInRealeInStrngPromptgSaveptgAsceptgNoVartgEditrtgComperrAutoerrSetLineDeleteeRenameeFileseeIndexeeGet@xeePut@xeeDimArrePutStr@PerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformPerformOSS=Pop OperOperator stack fulloooooo()*+,-./023]a%eeee9^mtx|oR _ZTryGot Z encountered Initial atom %$DA ] Ty= Pt= SA= A2= [ A1=!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~no* At * Unknown Fault number * Type * Too Many* Line * Too Complex* Form* Atom S \ e n w EEEEEEiggff ~w Too many linesline immediate line-dim array available with  active with FOR loop Unassigned value = Too Many VariablesPending "GOSUB"s clearedPending "FOR"s cleared To Dict store Emit store*** Discard ignoredNo space>A80<Ůor*** Fatal Error: F*@9>O@/@o-@j~>?̿b? b@@:f´7BQ<+ϲ1?"!*>>?jA2@D2D">>GA ?'mx@ @@@AA A@A@Q|@A!A2Cހ@AG@1.0  <1B?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U n$/#-( $?,'"H!3410!81!5$$A>#$$A>&C?1&034C0DD C H!3410!81!5$$A>$@#0#DD&A'1"CH!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"Cs_eX!34RUUh!34dffзӳŰ!4Գ#9!8!5$$A> B$C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>$A1 0# # QDRD?&A'"3!8!5$$A>"#&!2#C$$A> !1#CC'1"X#Y!Y!&\ ZB!$$A>З$1$HHX[&B0P [,&' ?P *&30HPїCKї$$A> Y #%$$A> qPrPB&(pX ?$P S?PE&T 41I2!,K2! 3s3B#9 3 >!$$A>!$$A>A>?&?$$A>O$$A>?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$H!34"#(!BC$$A>gA0X h,(#++`0`!:i@t#$&$$ Adi@x#&$%$$ Adh,l@`,WPP4/l@hi,+h/AlN@+d`i8(&#+f+bin@|#h 8` @h@`h8,`Dh@,l8j8`@hn@,jjn@,jjn@jn@`i<C0+Dh)@i. +B`I@X90P9X!?h @i hC h,`,$U$bWX&Pi0A4y~ wA, X W,$1P8y wA, X X80#3Ay gA, X Yh#AXi[hW X9P8y wA, X $1P8(P8,y WA, X X8(<0C 4`B0,PB0$'1P8(8 ApXALDy'QPYX, % P,P, P,ɰ'#%AnX,8ApCN wA, X $Q`AH1P9,$ҳX,y gA, X X8(<0 C ArWHW,#8 ApPaX(&P(y3 gA, X X8<XHL4!5AcXX\&QPXy% gA, X X8<XHL4!5A@dXX\'QPXy% gA,X `B0HX8L<3#=WHW,XH#=WHW,ȭPh$@@Hd@H,PHLXXD\PY4d$!APi,C&&aPi,Pi08Ap$ұXi,Ui0AUi4B0P0$PHP0yo gA, X f!5Hh\@i@hd=P8hy wA, X N 8ApP$ApP$@PH@PHD@H\dAA$Q@X:PX0y, wA,X X8D<P94$@$!API,C`&API,PI08ApPPQX,8Ap$`aX,8Ap$ұX,8Ap$PXI,UI0AUI4B0P0$@PHLPHHAy[ gA,X 6P9,XHDLPI8$P$!APY0C<&QPY0PY48ApX X)A!6X0yXY0UY4AUY8B0P4XhDl&aPhD`#%rAf8ApPXD8Ap$ҡXD8Ap$@AXD8Ap$PPQXi,&a$%!APi0C*'aPi0Pi4X&AaAlXi0Ui4A`B0P4XD8ApXP Xi,A*XDC w),AA,MX !A9,P9,CI0D!4y&1P9,SPa!Pz!%USi0'ai0903C00X,&P,ӫɠA!ɠZ!%Ȫ ҫI0'AI0C,WHC[ gA,X X8D<P98$@$!API,C&API,PI48ApP$PXIdW `|W<W,$PPYPX0z wA, X $0P9xXI|&API|XYp!7$jPitz'QPYpX9&1P9ӳPtXIl#3C=\ApӱPt!3C=ApHQPYP'RPYxCJ gA, X fC *`xC"WX=LApWH#$PW`{, w*,AA<X !AX980P:WHXIPMp$PdW`8WHXYP]t$PXmtW`4WHW,CH gA,XX $0P9PP9TP9XXt!4A"XI|PIXYx&RPZPXix!<Ű !9$1P9P$PTCŰ"B0X90(!3C$Һ,@`PIPP9X$QPYlAXit` !3C`"B0$0P9lApXtŰ"#3C&$APIlXYt@ T*,TACX9ApPXAXjXPX9ApX!,,AX9&1P9C`#;Ű.B0X:0*C0X90(!3C+`4$P8P<@^PIPXYtP.B0"Xj8lf#3C$aPj80_P9PCFXxŰB08h4i l@0E/*`4Xj8lf#8X:<<'1P:<##AW<z& gA,X $0P9,W,$UXi,W`$cW X9ӳҹ6&1P9X,&P,=ApADB0 WH$Pi6W`# ApWHY6Pf!5AClPv!5AC^Pg!5ACPPl!5ACBP!7AAC0Pj#4P!5ACP!?Ai4f#7'ai4A" CPx!5ACPyB08AWH$PXi0lW`WHCPz!;A:A6A2A.CP{B0hA9495`"W<ӹ5C02'ҹ5Ai4W<ө4Š"!7jW<C`"W<C"Po!4A# Pp!4A#P!3AW,I6@#3CW,WH$PXi,W`WH$bW8y@ WA, X H8,#;@88$0@8,#$ Ad$@I-Y,P!>I,W P, #2" A^W,ZWHX.`A2FWHCt6WHC WHC~WHClWHCZWHCHWHC6XkAݔWHCWHCWHCzWHCjWHCZWHCDWHC&WHCWHCWHCzWHChWHCVWHCDWHXkW<`'W<CWHChWHCRWHC:WHC(WHC WHCWHCjWHCXWHCFWHC WH# vWH# $QXkW`C.W`"W<XkAd`"W<Hh6#<pWHHh6AJ$bW8$ $ Ad wA, X P{,# X{,$09,S`Al$AI,W PD !4$PY,{+ gA, X ` #$`,!5%{$" g+,AA0 X !A6$ nBAB00X;',AlA,AX+A{9 w+,AA,LX !AP{,#X{,$P`Adhk,AH,$bW$bWx$`ATW$`Wx{D elg+,AA,MX !AX9&1P;,P{0#X{0$P`A0#&$P`Adk,A,Xk,WK@!3AҺXk,A|XiWl{S WA,X $T`AϔPH$=4ApXKHPL$QP[P$jPkTX:|<XCLD#7HZ`!AX[HXke`AX;C0&XJlLXT\P[T'DPJlU#`AXkT&aV\KPAhP[PXKLXkT@dfAxX;L&2P;LX['QP[#3C$`@cX[P$4CAheSAήP,XKHLPX[,\`PeX;,<&4P;,XKP'APKP#3CXZ|\XkHPe{ wA,X P{,#X{,$P`AX:l<XCLPK0'4P:lXS\P[4'4P:l4XjlX%A"X&A{= gA,CX JT$0P4ȰPA*dA$:dApPl$P@ZPzC XzXi0!4z'aPi0$ $ AdX:ӳҺ&1P:.A2HJ!:`A@AxHZPX4$P@ZPXXZD\P C0.@ XjllX6<#AACCWXl&Pl+`ApXJDL@ !"" $PPZ8@-#4@+!9@-!4$QPZ8A>XjDl`0!`9#)`.#6V`A$0P:@P:0XDŰ.!6$APJ@C*ɰ0BLɰ9B DXZl\hi l@0k/*`X:@<0!8X0'P0CXJDL@_@EB0$PPZ4PZXl+Dh+i. +B`KCbXJlLXT\e`#%`eX:l<XPP-ACXJlLXT\PZP'DPJlWCXjllX6<P:P'dPjlA$P0CHJ!5$aA^# 8|ApaA$P@ZCXjllXjA9-0!5H\@J@!4$QPX0CfVA@>W4`A&Wi-`!5H8\@:C Xl&PlAtXJlLPZPB0$WXjllX&,AC WX:l<X#,ACXlXKLPJPDPKCXZl\XelPjP63!6$P`A$!AaPeCRXlXKLPJD!@#&$P`AAnjXZl\PXjl@  X:l<X#, AC$@CXJT@Z&APJdhV@Z&APJ8ApP|CX:|<ӳPC0@XL8ApH8Ap$@AXXL\'QPXLXjl V!CX8L<0 !5$P$mA8ApPXlh i `XJLhi (!5$P$nA|XZl'TPZlhi `'TPZlhi `Xjl'dPjlX:<H@XJLHX8@T hi Xjlhfin +hFiN -`,WPX:<PXXKLD#$P$nAXZ|\h+i. `%XhLl&aPhLX:|<c`ACXL!5$P$lAv8ApPHJ!>HA@J8ApP|ClXZ|\ef!5$P$lA0X8L<X|K 4C :XZ\H8Ap$`aX8L<'1P8L8ApPCXh i XJ|Lhi )#5$P$oAhi *`XZ\Xj|lhi `X:<X'PXJLXT\U!Hd @h8#XhLl'aPhLX:|<$ҳCJMXZl\XelPmX:P8hCXhK@B0N]PXhHhd!5$P$fA8|ApXQ\PXhApHa@hdӵŰ#3C&QPXh$API0XhhlA$PPY0Xjl&dPjl:0}B0 ӽŰ~#4$gAbXMLPFCӽŰ#4$gABhi `CXJlLXT\PB^Xj6 SB P$KAhePjLF@J&aPjLVXE@J8|ApXQ\e`!5T$hAX:3$+AhXJCPJCXXH\P !5$P$dA&QPXH8ApHh8@aCX8H<3!5$P$eAR8ApH@8XHH'APHHCHZ@X,$P@ZCAH8|ApXalA$`@jCxAX80<3!8$1P80$P$kA$ AdXlXKLPM<'Pl@ #8WPTCXZe@j&QPZ58c@j&QPZӺŰjB0$8|ApXALTP!5V$hALCHjA8$`@jCH:!5H\@8$`AAâ$@@H,$QY-CXjllX6<3!3Cx'dPjlCjAWHHh6AjW,$ҹ-Ch i hi )C0@@#>hi hi )B @C0&hi hjin )#(XZl\%aPeC,X:l<XP'4P:lXCPJ$@PCXZej&QPZ`#=XX*,AC0<`#=XX*,AB`C0$XX*,A#(X:l<%PJ@#8XZ\eA\j`@#8X:<cA\CVXlXKLPJP'PlTXk6 SP#%$P$bA&ACAC X:lP:p'4P:lCXl+hi +`CXJlL%QXdl VPTCX:l<hi `,Xphi `0A FXJlL`C~XZl\hein XjplhFiN ,d`eCPX:l<h#i. Xph i - `#C"XJlLXT\5# XjplX+SPTCXJlLXT\5# XjplX+RPTCXJlLhi XZp\hi *`CXjllhi X:p<hi +`C^XlXKLXZp\XelFPKC4X:l<XXJpLXT\P#Z` AނCbHj#6@h8$19-C8  !!wA, X Pz0C(Xz0WHW,X8<P8XiWlXPKPH`Y,PB04WHW,$`i,W P, #2" X9B0X4C0XH<LD!=P<8|ApaACXX\PX`A$aAXm<`@#7XhlACF$0@8:X0C0 H6@8@86XhlAHH8@H6HX:!7XhlPhCc /,/9wP(A,PX $0@86WPPHl$1P4Ȱ,PA (|AH$QPT$:P4A(AH$QPT$:P4A(AH$QPT0P4A(A$1P8H$1P4ȰN PA(AH$QPT0'P4A(AH$QPT$:P4A( A',AAWHW,X=<ӳC0$ɰ#%Ȱҳ-XAAh$P4iA", 1 {g}, & 39+ 1 {h}, 1 {i}, 1 {j}, 1 {k}, 1 {l}, 1 {m}, 1 {n}, 1 {o}, & 40+ 1 {p}, 1 {q}, 1 {r}, 1 {s}, 1 {t}, 1 {u}, 1 {v}, 1 {w}, & 41+ 1 {x}, 1 {y}, 1 {z},128+'}',6 {|}, 6 {?}, 6 {~}, 6 {?} & 42 & 43 %predicate FOUND(%string(*)%name old) & 44 %integer q & 45 ap = addr(alias text(0)) & 46 %while ap < Alias Limit %cycle & 47 oldp == string(ap) & 48 q = ap+length(oldp)+1 & 49 newp == string(q) & 50 %true %if oldp = old & 51 ap = q+length(newp)+1 & 52 %repeat & 53 %false & 54 %end & 55 %Systemroutine LET(%string(63) Old, New) & 56 %integer x, lo, ln & 57 To Upper(Old) & 58 %if found(old) %start {first remove it} & 59 x = addr(newp)+length(newp)+1 {past the end} & 60 %while x < Alias Limit %cycle & 61 byteinteger(ap) = byteinteger(x) & 62 ap = ap+1; x = x+1 & 63 %repeat & 64 Alias Limit = ap & 65 %finish & 66 %return %if new = "" {removal of alias} & 67 lo = length(old) & 68 ln = length(new) & 69 %if lo+ln+Alias Limit+2 > a limit %start & 70 console("No room for definition of ".old) & 71 %return TX \`dh$$l**p00t66x<<|BBHHNNTTZZ``ffllrrxx~~? 0ADSYMFNrTX \`dh$$l**p00t66x<<|BBHHNNTTZZ``ffllrrxx~~? 0ADSYMFNrBasic> MFNr TZoo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manyToo manySIMPLEnyGOMPLEnyPRINTEnyOLDNTEnyLISTTEnyRUNTTEnyIFNTTEnyTHENTEnyINPUTEnyDIMUTEnyLBMUTEnyRBMUTEnyCOMMAEnyRANMAEnyFORMAEnyEQRMAEnyTORMAEnySTEPAEnyNEXTAEnyPSEPAEnyREMPAEnyDIAGAEnyCONCAEnyLETCAEnyRBIFFEnySBIFF0nySBIFF1nySUBSTRnyUNARYRnyOPERYRnyDATAYRnyREADYRnyRESTOREyONSTOREyERRORREyDUMPRREySTOIRREyPROKILLyFILEWDLyINTEWDLyTABEWDLyAUTOWDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyFILESDLyIDENTDLyIIDENTLyRIDENTLySIDENTLyICONSTLyRCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLySCONSTLy%PRINTLy%EXPNTLy%REALTLy%INTLTLy%ENCLOSE%DATAOSE%CONAOSE%NULLOSE%NUMCASE%NOVARSEOSCONSTERNCONSTELNOONSTEENDPRTTETARGETTEREAGETTEINPGETTEINDEXRBESCOMPARESCOMPARENCOMPARESNOMPAREFORIDARECLNODAREULNODAREULNODAREULNODARENDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRESDIMRBRE%FAULTRE%CONVERT%LIMITRT%SETITRT%ADDITRT%TALLYRT%STROPRT%SETTYPE%CHECKNE%CHECKSE%CHECKSE%CHECKSE%CHECKSE%CHECKSE%CHECKSE%CHECKSE%CHECKSE%CHECKSE%CHECKSE%CHECKSESSHECKSEEXPRCKSEITEMCKSEITEMSKSERSIMPKSETSIMPKSEDITEMKSEINDEXKSEDIMPARTESEQPARTECASESRTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTEIEXPRSTESTREXPRE xh_q Z`\^ZZZ1Z]\^^     5)!"&+23479:=> ~6ɐ  { { {@# |@ @ @#  z@$z%~z@{ 'ʀ'<@x{@z|}y1ỳ0_^\[,;80_^\[,;8@@@z̀*|̀`]-./@|@ {@ { ),&-./!!01#2347!/8&%9,':;</*)=>;AB3C54DGH?IMQREUYJ?INZ;S[\VEU]^`abcefgcijklmopprstuwsz{|}~--w(1DIAG)e*111 '1 *1 ' 111 111 111)" UT==N,C8I8D1S,YEOS,K$-R$.- UM77:V1 NSIONT 22-)XP,R6R6DICOR"tX;<>S>O T B DBYENT;=TIL99OG,S  T+8TH8OD1 OT0 X&u&us R15DRO9PT9TUIGUND,-TnRNn4ORE4(RK(33N,OMISE!^LC<0YSEMB$/w O%%R,,N,G$/wRsTCHsV::O$M$-EN,<SE1 1TKWcoSLh D (<l  ; G G[pX#8 {room for .EXE etc} & 221 command_command = command_command . to string(sym) & 222 %finish & 223 get sym & 224 %repeat & 225 get sym %while sym = ' ' & 226 -> error %if command_command = "" & 227 -> No Load %if show < 0 {Just decode command} & 228 & 229 flag = command type & 230 %if flag = 0 %start {executable program} & 231 Load(program, do file) & 232 option = program_options & 233 %else %if flag > 0 { %EXTERNALROUTINE } & 234 LoadX (command_command, program_spec, option) & 235 %finish & 236 & 237 %if option&nodecode = 0 %start {Decode command line?} & 238 No Load: & 239 %if sym type = 7 %start & 240 command_modifier = sym & 241 get sym %until sym # ' ' & 242 %finish & 243 rb = -1 { => no param } & 244 %if sym type&128 # 0 %start {Opening bracket?} & 245 rb = sym type&127 {Corresponding right bracket )]>} & 246 get sym & 247 %finish & 248 %finish & 249 & 250 {Scan parm if any} & 251 command_parameter = "" & 252 %if rb >= 0 %start {FRED requires a parm} & 253 %cycle & 254 %exit %if sym = NL %or sym = rb & 255 %if Sym # ' ' %or Option&Spacesx = 0 %start & 256 %if length(command_parameter) # 63 %start & 257 command_parameter = Command_parameter.to string(sym) & 258 %finish & 259 %finish & 260 get sym & 261 %repeat & 262 To upper(command_parameter) %if option&upper # 0 & 263 %else { FRED t^:/t: we've overshot & 264 %if sym # NL %start {take care: FRED^ - dont back up over 'D' & 265 inp = inp - 1 & 266 %finish {nb ^ to right of last sym scanned above} & 267 %finish & 268 & 269 %if rb # 0 %and Set streams (command,input line,inp) # 0 %start & 270 %signal 10 %if show < 0 & 271 Error:%while sym # NL %cycle & 272 print symbol (sym) & 273 get sym & 274 %repeat & 275 print symbol ('?'); newline & 276 %return & 277 %finish & 278 & 279 %return %if show < 0 {Don't actually do command} & 280 %if skipping = 0 %or char no(command_command,1) = '$' %start & 281 Doing (command_command) & 282 %if flag = 0 %start {Executable program} & 283 Run program (program) {Loaded before command parse} & 284 Unload (Program_Load Point) & 285 %else %if flag < 0 {An obeyfile} & 286 Obey (Do file, "OUT:", command_parameter) & 287 %else & 288 flag = 0 {Further event 8's now.. & 289 Run Program (program) {assumed to be in 'program' & 290 %finish & 291 %finish & 292 Close all(0) & 293 %end & 294 & 295 %external %routine DO (%string(127) What) & 296 Do it (what, 0, command) & 297 %end & 298 & 299 %external %record(command fm) %function PARSE (%string(127) line) & 300 %record(command fm) command & 301 Do it (line, -1, command) & 302 %result = command & 303 %end & 304 & 305 %routine Show Elapsed & 306 %integer N, ms & 307 %string(63) S & 308 %owninteger Elapsed = 0 & 309 S = Time & 310 N = CPU time & 311 ms = N - elapsed & 312 Elapsed = N & 313 %if ms < 1000 %then S = S . ItoS(ms,5) . " milli" %c & 314+ %else S = S . RtoS(ms//1000, 5, 1) . " " & 315 S = S . "seconds CPU" & 316 Console(S) & 317 %end & 318 %system %routine OBEY(%string(31) from,to, %string(63) params) & 319 %own %string(127) line & 320 & 321 %routine Get Line & 322 %integer Sym & 323 %string(17) S & 324 Prompt(Command Prompt) & 325 Line = "" & 326 %cycle & 327 Sym = Read symbol; %return %if Sym = NL & 328 %if Sym = '&' %and Next symbol = NL %start & 329 Skip symbol & 330 S = "&" & 331 S = S." " %while length(s) < length(Command Prompt) & 332 Prompt(S); Prompt text = Command Prompt & 333 %else & 334 Line = Line.Tostring(Sym) & 335 %finish & 336 %repeat & 337 %end & 338 & 339 %record(FD fm)%name FD, & 340+ Old command, & 341+ Old report == null & 342 %record(Parmpfm) Parm & 343 %record(Parmpfm) %name Old parmp == Parmp & 344 %integer Old echo obey = Echo obey, & 345+ Old skip = Skipping, & 346+ Old Segs = Current Segs, & 347+ Old work segs = Work Segs, & 348+ Base Load, j & 349 %record(Progfm) Prog & 350 %own %record(Parm fm) PP & 351 & 352 %on stream error %start {End of .COM file or $EXIT} & 353 Obey Level = Obey Level-1 & 354 Work Segs = Old work segs & 355 Current Segs = Old segs & 356 Close in(0,0) & 357 In stream(0) == old command & 358 & 359 {Restore buffers, which were saved in the files} & 360 Read block (old command_key, old command_Bn, addr(old command_buf)) %c & 361+ %if old command_key # 0 %and old command_Bn >= 0 & 362 %if old report ## null %start & 363 Close out(0,0) & 364 out stream(0) == old report & 365 Read block(Old command_key, Old report _Bn + 1, & 366+ Addr(old report_buf)) %if old report_key # 0 & 367 %finish & 368 Select input(0); Select output(0) & 369 & 370 Skipping = old skip & 371 Echo Obey = old echo Obey & 372 Parmp == old parmp & 373 %return & 374 %finish & 375 & 376 Parmp == Parm & 377 %if Obey Level = 1 %start & 378 Relocate(Loaded(Loaded Files)) %if Loadup(Prog, Batch File) & 379 %finish & 380 Obey Level = Obey Level+1 & 381 Base Load = Loaded Files+1 & 382 %own %byte %name len, p, limit {Split text param on commas} & 383 params = params."," & 384 limit == char no(params,length(params)) & 385 Parm_N = 0 & 386 p == length(params) & 387 %cycle & 388 len == p; j = 0 & 389 %cycle & 390 p == p ++ 1; j = j + 1 & 391 %repeat %until p = ',' & 392 len = j - 1 & 393 Parm_N = Parm_N+1 & 394 Parm_Parm(Parm_N) == string(addr(len)) & 395 %repeat %until p == limit & 396 & 397 old command == in stream(0) & 398 in stream(0)== null FD & 399 {Must clear INSTREAM(0), or OPENIN will return the FD pointed at by & 400 {OLD COMMAND to the free list when it calls CLOSE IN(0) & 401 Open in (0,from) & 402 Pack(to, PP_File) & 403 %if PP_File_owner # OUT Colon %start {Change report streams} & 404 old report == out stream(0) & 405 out stream(0)== null FD & 406 {for output must save half-written buffer in file..} & 407 FD == out stream(0) & 408 %if FD_key # 0 %start {forget about NULL:, T:} & 409 Write block (FD_key, FD_Bn+1, addr(FD_buf)) & 410 %finish & 411 Open out (0,to) & 412 %finish & 413 %if State < 0 %start & 414 State = State+10 & 415 Options = Options!Opt Verify %if State # 0 & 416 Run(Subinit) & 417 %finish & 418 & 419 Current Segs = Current Segs&(~Work Segs) & 420 Work Segs = 0 & 421 %cycle & 422 Doing ("") & 423 Select input (0); Select output (0) & 424 Unload(Base Load) & 425 Echo Flag = 0 & 426 Tlib_Name = "" & 427 Unstack Conts(1) & 428 Tidy Segs & 429 Console Int = "" & 430 Terminal Mode(0) %if TT Mode # 0 & 431 Break output & 432 Get Line %until Line # "" & 433 Do it (line, 1, command) & 434 Show Elapsed %if Options&Opt Monitor # 0 & 435 %repeat & 436 %end & 437 & 438 %end %of %file 100 101 102 103 !========= SUBSYSTEM ENTRY POINT ========= 104 105 ! Control reaches here when the subsystem 106 ! is loaded by the system. 107 ! The floating-point registers contain the startup 108 ! message. 109 110 %externalroutine subsystem %alias "%GO" 111 %record(parmfm) P, Q 112 %record(Contfm) Cont {contingency info at outer level} 113 %label Trap 114 %integer N 115 %ownstring(23) Batch In = "T:" 116 %ownstring(15) Batch Out = "T:" 117 118 *lhi_0,EVENT 119 *st_0,4(Gla) {prepare for events} 120 *st_0,8(Gla) {new standard} 121 *stme_0,P 122 123 *st_Wsp,N 124 *stm_Gla,Old State 125 Subsys Limit = N&x'F0000'+Basic Stack Size*1024-200 126 Stack Limit = Subsys Limit 127 128 Seg Mask = Seg Mask !! 1<<(Old State_ Gla>>16) %c 129+ !! 1<<(Old State_Code>>16) %c 130+ !! 1<<(N>>16) 131 SubsysFile_Code Segment = Old State_Code&x'F0000' 132 SubsysFile_ Gla Segment = Old State_Gla 133 SubsysFile_Code Base = SubsysFile_Code Segment+16 134 SubsysFile_ Gla Base = SubsysFile_ Gla Segment 135 SubsysFile_Head == Record(SubsysFile_Code Base) 136 SubsysFile_Defs = SubsysFile_Head_Defs_N 137 SubsysFile_Specs = SubsysFile_Head_Specs_N 138 SubsysFile_Code Head = SubsysFile_Code Base+SubsysFile_Head_Code Disp&H*2 139 SubsysFile_ Gla Head = SubsysFile_ Gla Base 140 SubsysFile_Stack Limit == Integer(SubsysFile_Gla Segment) 141 SubsysFile_Stack Limit = Subsys Limit 142 SubsysFile_Options = No Decode 143 Relocate(SubsysFile) 144 145 A Limit = Addr(Alias Text(Max Alias)) 146 Alias Limit = Addr(Alias Text(0)) 147 148 %if P_Dact = 2 %start {a batch job} 149 State = -10+1 150 Q_File_Unit = 0; Q_File_Owner = 0 151 Q_File_Name1 = P_P5; Q_File_Name2 = P_P6 152 Unpack(P_File, Batch In) 153 Unpack(Q_File, Batch Out) 154 %finish 155 156 Init Streams 157 More: Unstack Conts(0) 158 *la_15,Trap 159 *st_15,Cont+4 160 *stm_0,Cont+8 161 *ahi_wsp,300 162 C Level = Contingency(Cont) 163 %cycle 164 Stack Limit = Subsys Limit 165 SubsysFile_Stack Limit = Stack Limit 166 167 Current Segs = Seg Mask 168 Work Segs = 0 169 Loaded Files = 0 170 Obey Level = 0 171 Skipping = 0 172 A Limit = Addr(Alias Text(Max Alias)) 173 %unless Addr(Alias Text(0)) <= Alias Limit <= A Limit %start 174 Alias Limit = Addr(Alias Text(0)) 175 Console("All LETs removed") 176 %finish 177 %unless 0 <= Lib Limit <= 7 %start 178 Lib Limit = 0 179 Console("LIB list cleared") 180 %finish 181 Lib(N)_Use = 0 %for N = 1,1,7 182 183 Obey(Batch In, Batch Out, Version) 184 Stop %if State # 0 185 %repeat 186 187 Trap: 188 189 190 {Base level contingencies come here 191 {There are two cases: 192 { 1 A terminal interrupt has occurred, in which case 193 { either the global string "INT MESSAGE" is set 194 { 2 A contingency is fired at the current level (Int:.) 195 196 *stme_0,P 197 N = -1 198 %if P_Dact = -2 %start {shutdown} 199 P_Dact = -1 200 Shortinteger(Addr(P_P2)) = 1<<8+'.' {pretend INT:.} 201 %finish 202 %if P_Dact = -1 %start {INT:something} 203 Console Int = String(Addr(P_P2)) 204 N = Charno(Console Int, 1) 205 %if N # '.' %start 206 P_P2 = 0 207 P_P2 = 256 %if N = '?' 208 P_P3 = P_P1 209 P_P1 = Addr(Cont) 210 Svc(27, P) {Resume} 211 %finish 212 {Int:.} 213 P_P1 = 0; P_P2 = 1; P_P3 = 0; Svc(6, P) {kill output} 214 %finish 215 Stack Limit = Subsys Limit 216 SubsysFile_Stack Limit = Subsys Limit 217 Stop %if State # 0 {Terminate batch job} 218 Init Streams 219 Console ("*Catastrophic failure") %if N < 0 220 Dump Contingency(Cont) %if Options&Opt Xdump # 0 221 ->More 222 223 %end 224 225 %endoffile ?HEADFM unused 2032 statements compiled H? iH?ffH?pH?zH? |H?H? mH?  Break output Get Line %until Line # "" Do it (line, 1) Show Elapsed %if Options&Opt Monitor # 0 %repeat %end %end %of %file bits(command_parameter) source file = command_in1 listing file = command_out1 object file = command_out2 to lower(source file) to lower(object file) to lower(listing file) IMPCOM_option = ""; ! %OPTION string %if source file -> source.(".").work %start {extension given} %unless exists(source file) %start Noex: Fail(Source file." does not exist") %finish %else source = source file {no extension} %unless exists(source) %start work = source file.default ext ->noex %unless exists(work) source file = work %finish %finish %if source -> work.(":").source %start; %finish %if object file = "" %start object file = source.".exe" %else %unless object file -> (".") object file = object file.".exe" %unless object file = "n:" %finish %if object file = "n:" %or object file = "null:" %start temp1 = "n:" %else temp1 = temp file %finish cpu limit(60*10) {10 minutes} x1 = cpu time %if Source file = Listing File %start Printstring("Overwrite source file with listing?") Newline %return %finish open input(1, source file) open input(2, prim) %unless prim = "" open output(2, listing file) open output(1, temp1) open output(3, "t:") select output(2) options = options!x'1000' %if out type = 0 {null:} options = options!x'2000' %if out type < 0 {t:} IMPCOM_flags = options printstring("Source file: "); printstring(source file) printstring(" compiled on ") printstring(date); printstring(" at "); printstring(time) newline printstring("Object file: "); printstring(object file); newlines(2) doing("First pass") Srun(pass1) lines = impcom_statements select output(2); show result(lines) select output(0) close in(1); close in(2) close out(1); close out(2); close out(3) ->done1 %if lines < 0 ->done %if temp1 = "n:" x2 = cpu time open input(1, temp1) temp2 = temp file; open output(1, temp2) temp3 = temp file; open output(2, temp3) doing("Second pass") cpu limit(60*5) {5 minutes} Srun(pass2) close in(1) close out(1); close out(2) x3 = cpu time open input(1, temp2); open input(2, temp3) impcom_file = object file; ! pass 3 opens its own DA file doing("Final pass") cpu limit(60*4) {4 minutes} Srun(pass3) %if IMPCOM_Option # "" %start option("[".IMPCOM_Option."]".Object file) %finish done:selectoutput(0) %if command_modifier # 0 %start printstring("Code"); write(impcom_code, 1) printstring(" + Perm"); write(impcom_perm, 1) printstring(" + Glap"); write(impcom_gla, 1) printstring(" + Diags"); write(impcom_diags, 1) printstring(" =") write(impcom_code+impcom_perm+impcom_gla+impcom_diags, 1) printstring(" bytes") newline %finish %if options & x'4000' # 0 %start x1 = x2-x1; x2 = x3-x2; x3 = cputime - x3 print pass(1,x1); print pass(2,x2); print pass(3,x3) print pass(0,x1+x2+x3) %finish stop: delete file(temp2); delete file(temp3) done1: delete file(temp1) select output(0) show result(lines) doing("") %end %endoffile ) %finish %finish %repeat %end %integer j, k %if decoding = 0 %or Command_Modifier # '?' %start; !straight ASCII %for j = 1,1,4 %cycle spaces (sp) k = (word>>(3*8)) & 127; word = word<<8 %if k < ' ' %or k = 127 %then space %else print symbol (k) %repeat %else; !packed decode spaces (4*sp + 4 - 6) do (word>>16); do(word&X'FFFF') %finish %end %routine phex (%integer n) %integer j,k %for j = 7*4, -4, 0 %cycle k = n>>j & x'F' %if k >= 10 %then print symbol (k - 10 + 'A') %c %else print symbol (k + '0') %repeat %end %routine poct (%integer n) %integer j print symbol (n>>j & 7 + '0') %for j = 30, -3, 0 %end %routine print decoded (%integer n, from) !dump the ASCII translation of the N words !starting at FROM under each of the format !part of the last dump line %integer j,k decoding = non zero spaces (4); print symbol ('|') %for j = 1,1,formats %cycle %if wants & 1<= page ht open DA (1, 0, Command_In1) %if physical = 0 open output (1,Command_Out1) select output (1) print symbol (FF) break block no = first - 1 %cycle block no = block no + 1 %exit %if block no > last read block (block no); !%SIGNAL when it falls off %if lines + block ht >= page ht %start print symbol (FF) %and newline %if squeeze = 0 lines = 0 %finish break; print string ("Block #"); write (block no,0) break break offset = 0 %for j = 1,1,rows %cycle write (4*offset,3) {byte offset}; print symbol ('|') %for k = 1,1,formats %cycle space %if 1< 0 %then N = N+V %else N = N-V %repeat %end %externalroutine READ(%name NN) %string(255) st %integer sign, n, len, adr, type, s, base, Flag %real r, exp, f %constinteger integers=1, reals=2, strings=3, records=4, bytes=5, shorts=6, long reals=7 %switch TP(integers:longreals) len = size of(NN); adr = addr(NN) len = adr>>24+1 %if len = 0 type = type of(NN) %unless integers <= type <= longreals %and type # records %start TP(records): %signal 5,5,type %finish skip symbol %while next symbol <= ' ' %if type = strings %start st = "" %cycle s = next symbol %exit %if s <= ' ' st = st.tostring(s) skip symbol %repeat %signal 1,3 %if len <= length(st) string(adr) = st %return %finish ! read a number sign = 10; Base = 10 sign = readsymbol-'-' %if next symbol = '-' %or next symbol = '+' {sign is zero after -} %cycle n = 0; Flag = 0 %cycle s = next symbol %exit %unless Base Ok(S, Base) Flag = 1 skip symbol n = n*Base %if Sign = 0 %then N = N-S %else N = N+s {Beware of overflow} s = next symbol %repeat %exit %if S # '_' %or N = 0 Base = |N| skipsymbol %repeat r = n %if s = '.' %and (type = reals %or type = longreals) %start F = 0 Exp = Base; skip symbol %cycle s = next symbol %exit %unless Base Ok(S, Base) Flag = 1 f = f + S/Exp Exp = Exp*Base skip symbol %repeat %if Sign = 0 %then R = R-F %else R = R+F %finish %signal 3,1,Nextsymbol %if Flag = 0 -> TP(type) TP(integers): integer(adr) = n; -> RETURN TP(shorts): %signal 1,1,n %unless x'FFFF8000' <= n <= x'00007FFF' shortinteger(adr) = n; -> RETURN TP(bytes): %signal 1,1,n %unless 0 <= n <= 255 byte integer(adr) = n; -> RETURN TP(longreals): TP(reals): real(adr) = r RETURN: %end %externalroutine To Upper(%string(*)%name S) %integer P %for P = Length(S), -1, 1 %cycle Charno(S, P) = Charno(S, p)-32 %if 'a' <= Charno(S, P) <= 'z' %repeat %end %externalroutine To Lower(%string(*)%name S) %integer P %for P = Length(S), -1, 1 %cycle Charno(S, P) = Charno(S, P)+32 %if 'A' <= Charno(S, P) <= 'Z' %repeat %end %endoffile  !IMP-77 I/O package A. Culloch Aug-81 !Limits %const %integer max FD = 20, {active file limit} max stream = 3, {in:0..3; out:0..3} max DA = 10 {DA channels} !System call nos. %const %integer tt in = 3, {read message from console} tt out = 4, {Write message to console} To Potter = 22 {Message to Central Queuing Agency} %const %integer Hash bit = x'80000000' {Set in F_NAME1 for "FILE#"} %const %integer File alloc = 10 {Initial file allocation (blocks) !Packed filenames (F_owner values): %const %integer T colon = 20, IN colon = 527, OUT colon = 28172, N colon = 14, NULL colon = x'E41FD' !Events %const %integer stream error = 9, Lib error = 10 {Library procedure detected fault} %const %record(*)%name null == 0 {list terminator} %const %byte %name nil == 0 %own %record(parm fm) tt in buf, tt out buf {Console I/O message buffers} %record %format FD fm ( %c %integer Key, {file system access key} %bytename Buf, {base of 1-block buffer} Ptr, {pos within buffer} Lim, {end of buffer area} %integer Bn, {Block no. within file} Last, {Block no. of last block in file} %record(Filefm) File, {file identifier} Label, {Tag for spooled files} %record(FD fm) %name Link) {Chain free FD's} {For output, LAST is the last symbol written, used by BREAK OUTPUT} %own %record(FD fm) %array FD(1:max FD) = 0(*) %own %record(FD fm) %name FD asl, {Free list} In, {Currently selected input stream} Out {selected output stream} %own %record(FD fm) tt in FD = 0, {Known device desciptors} tt out FD = 0, null FD = 0 %record(FD fm) %map New FD %record(FD fm)%name It %if FD asl == null %start EVENT_message = "too many open files" %signal stream error,3 %finish It == FD asl FD asl == FD asl_link It = 0 %result == It %end %routine Release FD (%record(FD fm)%name It) It_link == FD asl It_file_owner = -1 {Make sure it won't get picked up!!} FD asl == It { IT ==> hd of ASL } %end %own %integer in key = 0, out key = 0 {copies of IN_KEY, OUT_KEY} %own %integer in str, out str {Selected stream nos.} %own %record(FD fm)%name %array In Stream (0:Max Stream) = 0(*) %own %record(FD fm)%name %array Out Stream (0:Max Stream) = 0(*) %own %integer %array DA chan (0:max DA) = 0(*) {FD's not unique: e.g. OUTSTREAM(2) { == OUTSTREAM(3) is OK - output {will be merged. %record %format block fm (%byte %array B(0:511)) %own %record(block fm) %array in buf(0:max stream) %own %record(block fm) %array outbuf(0:max stream) %routine %spec Close DA (%integer Channel) %routine %spec EOF %system %routine INIT STREAMS %record(FD fm) %name F, Fp, Fl %integer %name DA %integer J %record(parm fm) P TT in FD = 0; TT in FD_File_Owner = T Colon TT out FD = 0; TT out FD_File_Owner = T Colon TT out FD_Ptr == char no(TT out buf_Text,1) TT out FD_Lim == char no(TT out buf_Text,23) ++ 1 TT out FD_Last = NL Fp == Fd(1); FD Asl == Fp Fl == Fp++(Max FD-1) %cycle %if Fp_Key # 0 %start P_P5 = Fp_Key P_Dact = Direct Close Svc(To Director, P) %finish Fp = 0 %exit %if Fp == Fl F == Fp Fp == Fp++1 F_Link == Fp %repeat DA == DA chan(0) {*Close any DA files*} j = max DA + 1 %cycle %if DA # 0 %start P_p5 = DA; DA = 0 P_Dact = Direct Close SVC (To Director, P) %finish DA == DA ++ 1 j = j - 1 %repeat %until j = 0 %for j = 1,1,max stream %cycle In stream(j) == null FD Out stream(j) == null FD %repeat In Stream(0) == tt in FD; Select Input(0) Out Stream(0) == tt out FD; Select Output(0) %end %external %routine PACK (%string(63) filename, %record(file fm)%name packed) %record(parm fm) P string(addr(P_sact)) = filename SVC (17,P) {pack} packed = P_file %if P_file_owner < 0 %start EVENT_message = "Illegal filename ".filename %signal 10,1 %finish %end %external %routine UNPACK (%record(file fm)%name file, %string(*)%name s) %record(parm fm) P P_file = file SVC (18,P) {unpack} s = string(addr(P_sact)) %end %external %routine DIRECTOR (%integer DACT val, %record(parmfm)%name P) P_dact = dact val SVC (To Director,P) %if P_p6 # 0 %start EVENT_message = string(addr(P_p1)) %signal stream error, 10, P_p6 %finish %end %const %integer loud = -1, quiet = 0 %external %routine DEL FILE (%record(file fm)%name f, %integer quiet) {QUIET: 0 suppress %SIGNAL on failure { -1 let it through %record(parm fm) P %string(31) filename P_file = f P_dact = Direct Delete SVC (To Director,P) %if P_p6&quiet # 0 %start Unpack (f,filename) Event_message = P_text %signal stream error, 10, P_p6 %finish %end %external %routine NEW FILE (%record(file fm)%name f, %integer size, {requested} %integer %name actual) {size returned >=SIZE} %record(parm fm) P P_p3 = f_name1; P_p4 = f_name2; P_p5 = size Director (Direct Create,P) Actual = P_p2 %end %system %routine READ BLOCK (%integer Director key, block num, buffer addr) %record(parm fm) P P_p4 = buffer addr; P_p5 = Director key; P_p6 = block num Director (Direct Read DA, P) %end %system %routine WRITE BLOCK (%integer key, block num, buffer) %record(parm fm) P P_p4 = buffer; P_p5 = key; P_p6 = block num Director (Direct Write DA, P) %end %integer %fn Checked (%integer DA chan num) %result = DA chan num %if 0 <= DA chan num <= max DA EVENT_message = "invalid DA channel number" %signal stream error, 3, DA chan num %end %external %routine OPEN DA (%integer Chan, RW, %string(31) Filename) %record(parm fm) P Pack (Filename,P_File) Close DA (Checked(Chan)) P_p5 = RW {Read/write flag} Director (Direct Open DA, P) DA chan(chan) = P_p5 {Director key} %end %record %format Finf (%integer size, {of file (blocks) Last, {No of extents} Access,{File access permissions} Day) {When last accessed - packed date} %external %record(Finf) %function TEST DA (%integer chan) %record(parm fm) P P_p5 = DA chan(checked(chan)) Director (Direct Status, P) %result = record(addr(P_p2)) %end %external %routine READ DA (%integer chan, block, %name buffer) Read block (DA chan(checked(chan)), block, addr(buffer)) %end %external %routine WRITE DA (%integer Chan, Block, %name Buffer) Write block (DA chan(checked(chan)), block, addr(buffer)) %end %external %routine EXTEND DA (%integer chan, blocks, %integer %name final) {Final is set to the number of blocks in the file after the operation, {Since Director may give us more than we asked for. %record(parm fm) P P_p5 = DA chan(checked(chan)) P_p6 = blocks Director (Direct Extend, P) final = P_p2 %end %external %routine CLOSE DA (%integer chan) %record(parm fm) P P_p5 = DA chan(checked(chan)) %if P_p5 # 0 %start {Forget it if chan closed anyway} Director (Direct Close, P) DA chan(chan) = 0 %finish %end %integer %fn checked stream(%integer min, stream) %result = stream %if min <= stream <= max stream EVENT_message = "invalid stream number" %signal stream error, 2, stream %end %system %routine Open in (%integer Stream, %string(31) File) %record(parm fm) P, Q %record(FD fm) %name FD %on %event Lib error %start {PACK failure} %signal Stream Error, 4 {Invalid filename} %finish %if File = "" %start {Default it} %if Stream <= 1 %then File = "IN:" %c %else File = "NULL:" %finish Pack(File,P_File); Close In(Stream, 1) %if P_File_Owner = T Colon %start In Stream(Stream) == tt in FD %else %if P_File_Owner = N Colon %or P_File_Owner = Null Colon In Stream(Stream) == null FD %else %if P_File_Owner = IN Colon {IN:} In Stream(Stream) == In Stream(0) %else {File} Q = P Q_P5 = 0 {read only access} Director (Direct Open DA, Q) FD == New FD FD_Key = Q_P5 FD_Bn = -1 FD_Last = Q_P1 {file size} - 1 FD_Buf == In Buf(Stream)_B(0) FD_Ptr == Nil FD_Lim == Nil FD_File = P_File In Stream(Stream) == FD %finish Select input(In Str) %end %external %routine OPEN INPUT (%integer stream, %string(31) file) length(file) = 31 %if length(file) > 31 Open in (checked stream(1,stream),file) %end %system %routine Open Out (%integer Stream, %string(31) filename) %record(FD fm) %name F, Fp %record(file fm) Actual name, label %record(parm fm) P, Q %integer J, Actual %on %event Lib error %start %Signal stream error, 4 {PACK: invalid filename} %finish %if filename = "" %start {default it} %if Stream <= 1 %then filename = "Out:" %c %else filename = "Null:" %finish Pack (filename,P_file); Close Out (Stream,0) %if P_file_owner = T Colon %start Out stream(stream) == tt out FD %else %if P_file_owner = OUT Colon Out stream(stream) == out stream(0) %else %if P_file_owner = N Colon %or P_file_owner = Null Colon Out stream(stream) == null FD %else label = P_file Director(Direct Unique, P) %if P_file_owner # 0 P_file_name1 = P_file_name1 ! hash bit {FRED => FRED#} {Same as any existing output stream?} %for j = 1, 1, Max FD %cycle Fp == FD(j) %if Fp_file_unit = P_file_unit %and Fp_file_owner = P_file_owner %and Fp_file_name2 = P_file_name2 %and Fp_file_name1 = P_file_name1 %start out stream(stream) == Fp %return %finish %repeat Del File (P_file, quiet) New File (P_file, file alloc, actual) Actual name = P_file {Name of file to be opened} P_p5 = -1 {Read/Write access, auto-extend} Director (Direct Open DA, P) F == New FD Out stream(stream) == F F_Key = P_P5 {File system key} F_Bn = 0 F_Last = NL {For BREAK OUTPUT} F_Buf == Out Buf(stream)_B(0) F_Ptr == F_Buf F_Lim == F_Buf ++ 512 F_File = Actual name F_Label= Label %finish Select output(Out Str) %end %external %routine OPEN OUTPUT (%integer stream, %string(31) file) length(file) = 31 %if length(file) > 31 Open out (checked stream(1,stream),file) %end %external %routine OPEN ALL (%record(command fm)%name command) %string(31)%name file %integer j %on stream error %start Console ("*Cannot open ".file." -- ".EVENT_message) %signal stream error, Event_Sub %finish %for j = 1,1,3 %cycle file == command_in(j); Open input (j,file) file == command_out(j); Open output(j,file) %repeat Select input (1); Select output (1) %end %external %routine SELECT INPUT (%integer Stream) In == In Stream(Checked Stream(0,Stream)) In Key = In_Key In Str = Stream %end %external %routine SELECT OUTPUT (%integer Stream) Out == Out Stream(Checked Stream(0,Stream)) Out Key = Out_Key Out Str = Stream %end %externalintegerfn IN TYPE %result = In Key %if In Key # 0 {File} %result = 0 %if In == Null Fd {Null:} %result = -1 {T:} %end %externalintegerfn OUT TYPE %result = Out Key %if Out Key # 0 {File} %result = 0 %if Out == Null Fd {Null:} %result = -1 {T:} %end %external %integer %fn IN STREAMER %alias "INSTREAM" %result = In str %end %external %integer %fn OUT STREAMER %alias "OUTSTREAM" %result = Out str %end %routine find eof {Put IN_LIM at last valid byte in buf} %while in_lim = EOT %cycle EOF %if in_lim == in_ptr in_lim == in_lim -- 1 %repeat %end %external %routine SEEK INPUT (%integer byte) %integer block, offset %if in key # 0 %start {Only sensible on files} block = byte>>9; offset = byte&511 %if block # in_Bn %start {Slight optimisation} in_Bn = block Read block (in key, block, addr(in_buf)) %finish in_ptr == in_buf ++ (offset-1) {Read symbol advances ptr} in_lim == in_buf ++ 511 Find eof %finish %end %external %routine RESET INPUT Seek input (0) %end %external %integer %fn In Pos %result = 0 %if In_Bn < 0 %result = In_Bn<<9 + (Addr(In_Ptr)-Addr(In_Buf)) + 1 %end %external %integer %fn Out Pos %result = Out_Bn<<9 + (Addr(Out_Ptr)-Addr(Out_Buf)) %end %routine EOF EVENT_message = "input ended" %signal 9,1 %end %external %integer %function READ SYMBOL %alias "#READSYMFN" %if in_ptr ## in_lim %start in_ptr == in_ptr ++ 1 %result = in_ptr %finish %if In key # 0 %start {input from file} in_Bn = in_Bn + 1 {Ingest next block} EOF %if in_Bn > in_last in_ptr == in_buf in_lim == in_buf ++ 511 Read block (in key, in_Bn, addr(in_buf)) Find eof %if in_Bn = in_last %else %if in == null FD {NULL:} EOF %else {T:} tt in Buf_Text = "" {in case SVC omitted during cont!!} SVC(TT in, TT in Buf) %until TT in Buf_Text # "" In_Ptr == Length(TT in Buf_Text) in_lim == in_ptr ++ (in_ptr) {LENGTH bytes past count} in_ptr == in_ptr ++ 1 {Past length byte} EOF %if in_ptr&127 = EOT %finish %result = in_ptr %end %external %routine SKIP SYMBOL %integer skip = READ SYMBOL %end %external %integer %fn NEXT SYMBOL %integer sym = READ SYMBOL in_ptr == in_ptr -- 1 %result = sym %end %external %routine Flush output %if out key = 0 %start length(tt out buf_text) = addr(out_ptr) - addr(tt out buf_text) - 1 SVC (tt out, tt out buf) %if tt out buf_text # "" out_ptr == char no(tt out buf_text,1) out_lim == char no(tt out buf_text,23) ++ 1 %finish %end %external %routine SEEK OUTPUT (%integer byte) %integer block, offset %if out key # 0 %start {Only on files} block = byte>>9; offset = byte&511 Write block (out key, out_Bn, addr(out_buf)) %if out_Bn # block %and out_ptr ## out_buf out_ptr == out_buf ++ offset out_lim == out_buf ++ 512 %if out_Bn # block %start {Not got BYTE in buffer} %if block >= out_Bn %start {Off end, WRITE does auto-extend} Write block (out key, block, addr(out_buf)) {write garbage.. %else {Backwards in file, get right block} Read block (out key, block, addr(out_buf)) %finish out_Bn = block %finish %finish %end %external %routine RESET OUTPUT Seek output (0) %end %external %routine PRINT SYMBOL (%integer sym) Out_last = sym {For benefit of BREAK OUTPUT} %if Out key # 0 %start {File} %if out_ptr ## out_lim %start out_ptr <- sym out_ptr == out_ptr ++ 1 %return %finish {Expel filled buffer} Write block (out key, out_Bn, addr(out_buf)) out_ptr == out_buf out_lim == out_buf ++ 512 out_Bn = out_Bn + 1 %else %return %if out == null FD {Null:} Flush output %if sym < 0 %or out_ptr == out_lim {tty} %if sym < 0 %or out_ptr == out_lim %start Flush output %return %if sym < 0 %finish %finish out_ptr <- sym out_ptr == out_ptr ++ 1 Flush output %if out key = 0 %and sym = NL %end %system %routine CLOSE IN (%integer Stream, Safe) %record(FD fm) %name Command stream == In stream(0) %record(Parm fm) P %integer Old = in str Select input(Stream) %if Stream # 0 %then In stream(Stream) == Null FD %c %else In stream(0) == tt in FD %if In ## Command Stream %or Safe = 0 %start P_p5 = In key %if P_p5 # 0 %start Director(Direct Close, P) In_key = 0 Release FD(in) %finish %finish Select input(old) %end %external %routine CLOSE INPUT Close in(in str,1) %if in str # 0 %end %external %routine ABANDON INPUT {For symmetry} Close input %end %system %routine CLOSE OUT (%integer stream, how) {HOW: 0 for close stream normally (Overwrite old version) { #0 to close channel & abandon (leaving FRED#) %record(FD fm)%name FDp %record(FD fm) FD %record(parm fm) P, Q %integer key FDp == Out Stream(Stream) Key = FDp_key %if Stream = 0 %then out stream(stream) == tt out FD %c %else out stream(stream) == null FD Select output(stream) %if stream = out str %if Key # 0 %start {File} {File also open on another stream? don't close} %return %if FDp == Out Stream(0) %or FDp == Out Stream(1) %or FDp == Out Stream(2) %or FDp == Out Stream(3) FD = FDp Release FD (FDp) %if FD_Ptr ## FD_Buf %or {Buffer not empty: pad with EOTs} FD_Bn = 0 %start {** Frig to cope with empty files **} %while FD_Ptr ## FD_Lim %cycle FD_Ptr = EOT FD_Ptr == FD_Ptr ++ 1 %repeat Write block (Key, FD_Bn, addr(FD_Buf)) FD_Bn = FD_Bn + 1 %finish P_file = FD_file Director (Direct Status, P) {Get current size of file -> P_p2} P_p6 = FD_Bn - P_p2 {-Truncate} %if P_p6 # 0 %start P_p5 = Key Director (Direct Extend, P) {To make file correct size} %finish P_p5 = Key Director (Direct Close, P) %if how = 0 %start {Volatile FRED# becomes new FRED} %if FD_label_owner # 0 %start {Prog/LP: } P_p1 = FD_label_owner {Queue - LP: } P_p3 = FD_label_name1 P_p4 = FD_label_name2 P_p5 = FD_file_name1; P_p6 = FD_file_name2 P_dact = 1 {Code for Offer} SVC (To Potter, P) %if P_p6 < 0 %start {Potter rejected} Q_p1 = 0; Q_p2 = FD_label_owner; Q_p3 = 0; Q_p4 = 0 Unpack (Q_file, event_message) Event_message = "Cannot offer file to ".event_message. %c " -- ".P_text %signal stream error, 6, P_p6 %finish %else P_file = FD_file P_p5 = P_p3 & (~Hash bit); P_p6 = P_p4 Director (Direct Exchange, P) Del File (FD_file, Quiet) {Kill FRED# - its now the old one} %finish %finish %else %if out ## null FD {TTY} Flush Output %finish %end %external %routine CLOSE OUTPUT Close out (out str,0) %unless out str = 0 %end %external %routine ABANDON OUTPUT Close out (out str,1) %unless out str = 0 %end %externalroutine Close All(%integer How) %integer S = max stream, In Out %on stream error %start Select output(0) Print string("*Close ") %if in out = 0 %then print string("input(") %c %else print string("output(") Write (S, 0) Print string(") fails -- ".Event_message) Newline %finish %cycle Select Input(S) Select Output(S) %return %if S = 0 In out = 0; Close input In out = 1; Close out(S, How) S = S-1 %repeat {leaves stream 0 selected} %end %external %routine PRINT STRING (%string(255) s) %integer j Print symbol (char no(s,j)) %for j = 1,1,length(s) %end %external %routine NEWLINE Print symbol (NL) %end %external %routine BREAK OUTPUT Newline %if out_last # NL %end %external %routine CONSOLE (%string(63) message) %integer old stream = out str Select output (0) Break output Print string (message) Newline Select output (old stream) %end %external %routine READ LINE (%string(*)%name S) %integer sym S = "" %cycle sym = Read symbol %exit %if sym = NL S = S . to string(sym) %repeat %end %external %routine NEWLINES (%integer n) %while n > 0 %cycle n = n-1 Print symbol (NL) %repeat %end %external %routine SPACE Print symbol (' ') %end %external %routine SPACES (%integer n) %while n > 0 %cycle n = n-1 Print symbol (' ') %repeat %end %external %routine NEW PAGE Print symbol (FF) %end %end %of %file Set verify Utilty:ToEmas! SYSX_SUBSYS:BASIC.EXE SYSX_SUBSYS:BATCH.IMP SYSX_SUBSYS:BCI.IMP SYSX_SUBSYS:COMPILE SYSX_SUBSYS:COMPILE.EXE SYSX_SUBSYS:DT SYSX_SUBSYS:DT.EXE SYSX_SUBSYS:DUMP SYSX_SUBSYS:DUMP.EXE SYSX_SUBSYS:FILERTS.IMP SYSX_SUBSYS:GENERAL.IMP SYSX_SUBSYS:IO.IMP SYSX_SUBSYS:LOADER.IMP SYSX_SUBSYS:MDIAG.EXE SYSX_SUBSYS:MDIAG.IMP SYSX_SUBSYS:PARSE.IMP SYSX_SUBSYS:SPECS SYSX_SUBSYS:SPY.IMP SYSX_SUBSYS:STANDARD SYSX_SUBSYS:STANDARD.EXE SYSX_SUBSYS:STANDOLD.EXE SYSX_SUBSYS:STARTUP.COM SYSX_SUBSYS:SUBINIT SYSX_SUBSYS:SUBINIT.EXE SYSX_SUBSYS:SUBOLD.EXE SYSX_SUBSYS:SUBSYS SYSX_SUBSYS:SUBSYS.EXE .END Set no verify !Subsystem loading procedures %constinteger No Decode = 1, No Open = 2, No Stack = 8, Upper = 32, Spacesx = 64 %recordformat Textfm(%integer N1, N2 %or %short H11,H12,H21,H22) %recordformat Specfm(%integer Gla, Code, Entry) %recordformatspec Headfm %recordformat Loadfm(%integer Code Segment, Gla Segment, {start of segments} Code Base, Gla Base, {logical start} Code Head, Gla Head, {R14 value} Specs, {spec list} Defs, {definition list} %record(Headfm)%name Head, {object file header} %integername Use, Stack Limit, %integer Options) %ownrecord(Loadfm) SubsysFile {defines subsystem entries} %ownrecord(Loadfm)%array Loaded(1:6) {currently loaded files} %owninteger Loaded Files = 0 %recordformat Progfm(%integer Stack Limit, Stack, (%integer Gla Head, Code Head, Entry %or %record(Spec fm) Spec), %integer Time Limit, Options, Load Point) %recordformat Hdfm (%short Base, N) %recordformat Headfm(%short Pure Size, Gla Size, Code Disp, Lit Disp, Registers, MainEp, %record(hdfm) Reloc, Defs, Specs, Ldiag, Vdiag) %recordformat Regfm(%integer Tr1, Tr2, Tr3, Tr4, Tr5, Tr6, Tr7, Tr8, Tr9, TrA, TrB, TrC, TrD, TrE, TrF) %ownrecord(Regfm) Load Regs %ownrecord(Specfm) Loader State, {loader gla, code and Entry} Old State {previous gla, code & Entry} %owninteger Stack Limit = (-1)>>1 {enormous} %recordformat Libfm(%integer Use, %string(27) Name) %systemrecord(Libfm)%array Lib(1:7) %systeminteger Lib Limit = 0 %ownrecord(Libfm) Tlib = 0, St Lib = 0 %routinespec Load (%record(Progfm)%name Prog, %string(31) File) %routinespec LoadX (%string(15) X, %record(Specfm)%name S, %integername Opt) %predicatespec Loadup(%record(Progfm)%name P, %string(31) File) %routinespec Unload(%integer Level) %routinespec Enter (%record(progfm)%name P) %routinespec Relocate(%record(Loadfm)%name L) %routinespec Update Stack Limit(%integer New Limit) %Systemroutine Pack Spec(%string(15) Id, %record(Textfm)%name T) %integerfn Ch(%integer sym) %result = sym&95-'A'+1 %if 'A' <= sym&95 <= 'Z' %result = sym-'0'+27 %if '0' <= sym <= '9' %result = sym-'#'+37 %if '#' <= sym <= '%' {37=#, 38=$, 39=%} %result = 0 %if sym = ' ' %result = -1 %end %routine Pack(%integer k, %shortname n) %integer p,q,r p = charno(Id,k); q = charno(Id,k+1); r = charno(Id,k+2) n <- ( (ch(p)*40 + ch(q))*40 + ch(r) ) %end %if Length(Id) > 12 %start Length(Id) = 12 %else Id = Id." " %while Length(Id) # 12 %finish Pack(1, T_H11); Pack(4, T_H12) Pack(7, T_H21); Pack(10, T_H22) %end %system %string(15) Spec id %system %routine Unpack spec (%record(textfm)%name T) %integerfn Ch(%integer n) %result = n-1+'A' %if n <= 26 %result = n-27+'0' %if n <= 36 %result = n-37+'#' %end %routine UNPACK(%integer k) %return %if k = 0 unpack(k//40) k = rem(k, 40) spec id = spec id . to string(ch(k)) %unless k = 0 %end spec id = "" unpack(t_n1>>16); unpack(t_n1&H) unpack(t_n2>>16); unpack(t_n2&H) %end %own %integer Xopt = 0 {Options on file which satisfied {last external reference %predicate Satisfied(%record(Loadfm)%name L, %record(Specfm)%name Vec, %record(Textfm)%name Text) %integer d, disp %recordformat deffm(%shortinteger link, ep, %integer N1, N2) %record(deffm)%name p D = L_Defs %while D # 0 %cycle P == Record(L_Code Base+D*2) %if P_N1 = Text_N1 %and P_N2 = Text_N2 %start {entry found} Disp = (P_Ep&H)<<1 %if Vec_Entry < 0 %start {data entry} Vec_Entry = L_Gla Head+Disp %else {code entry} Vec_Code = L_Code Head Vec_Gla = L_ Gla Head Vec_Entry = L_Code Head+Disp %finish Xopt = L_Options %true %finish D = P_Link&H %repeat %false %end %routine Dynamic Load(%record(Specfm)%name V, %record(Textfm)%name T) %integer N, Old Xopt %record(Progfm) P %record(Loadfm)%name L %record(Libfm)%name Libp %if Options&Opt Trace # 0 %start Unpack Spec(T) Console("Ref: ".Spec Id) %finish %return %if Options&Opt Quick # 0 %and Satisfied(SubsysFile, V, T) N = Loaded files {files already loaded} %while N > 0 %cycle L == Loaded(N) %return %if Satisfied(L, V, T) N = N-1 %repeat %if Loaded Files # 6 %start L == Loaded(Loaded Files+1) N = -2 {finally user-defined files} %while N < Lib Limit %cycle N = N+1 %if N = 0 %start {try temp lib} Libp == Tlib %else %if N < 0 St Lib_name = Standard Libp == St Lib Libp_use = 0 %else {user library} Libp == Lib(N) %finish %continue %if Libp_Use # 0 %or Libp_Name = "" {in use or undefined} %continue %unless Loadup(P, Libp_Name) %if Satisfied(L, V, T) %start L_Use == Libp_Use Libp_Use = 1 Old Xopt = Xopt {In case of recursive call} Relocate(L) Xopt = Old Xopt %exit %if Libp_Use = 0 {unresolved references} %return %finish Unload((Loaded Files)) {remove the last one} %repeat %finish %return %if Options&Opt Quick = 0 %and Satisfied(SubsysFile, V, T) !unsatisfied reference Unpack spec(T) Event_Message = "Cannot load ".Spec Id V_Entry = 0 V_Code = 0 V_Gla = 0 ! fall through to enter program at ASYNCH %end %routine DYNAMIC %ownrecord(specfm)%name VEC {must be OWN as DYNAMIC runs %ownrecord(Textfm)%name Spec {without its local base register!} %label load *la_15,load *stm_gla,Loader State %return { *** Enter here for dynamic loading } { r13 = gla for this file } { r14 = } { r15 = return address } { entry sequence - *STM_5,0(WSP) } { *LM_13,XV } { *BALR_15,15 } Load: *lr_0,0; !noop (skipped by proc param entry) *lr_0,0 *stm_1,Load Regs *lm_14,x'20'(Wsp) *stm_14,Old State *l_Code,Loader State+4 *ahi_Wsp,512 Spec == Record(Old State_Code %c -2*(Shortinteger(Old State_Code-4)&H)+(Load Regs_TrE>>16)*2) Vec == Record(Old State_Gla+(Load Regs_TrE&H)<<1) Dynamic Load(Vec, Spec) Load Regs_TrD = Vec_Gla Load Regs_TrE = Vec_Code Load Regs_Tr3 = Vec_Entry *lm_1,Load Regs *lr_code,code *bner_3 *lm_wsp,8(wsp); !restore context of call *lhl_4,-6(code) *ar_4,4 *ar_4,code *sr_0,0 *lis_1,14 *sr_2,2 *lr_3,link *br_4 %end %routine MDIAG %record(contfm) cont %integer level %record(Progfm) diags %label error %on %event 10 %start select output(0) printstring("Cannot load diagnostic package"); newline %return %finish Load(Diags, Diag Prog) %if Error File # "" %start Open Output(1, Error File) Console("*Diagnostics being sent to ".Error File) Select Output(1) %finish *la_15,Error *st_15,Cont+4 *stm_0,Cont+8 C Level = Contingency(Cont) Level = Clevel-1 *l_1,Stack Limit *stm_7,8(Wsp) *lm_13,Diags+8 *st_1,0(13) *balr_15,15 Close All(0) Unstack Conts(Level) %return Error:Console ("Fatal error during diagnostics") %end %systemroutine Run Program(%record(Progfm)%name Prog) %integer s, limit, new stack, time limit new stack = -1 %if Prog_Options&NoStack # 0 %start {run on basic stack} *st_wsp,s s = s+44+diag stack {Protect ENTER below ****} *l_1,0(gla) *st_1,limit %else {Get new stack} Limit = Default Stack %if Prog_Stack Limit > Limit %start Limit = Prog_Stack Limit %else %if Prog_Stack Limit < 0 Limit = -Prog_Stack Limit %finish Limit = Limit*1024 Create Seg(S, Limit) %if S < 0 %start Console("*No space for stack") %return %finish New Stack = S Limit = Limit+S %finish Prog_Stack = S Prog_Stack Limit = Limit-800; ! stack limit Open All(Command) %if Prog_Options&NoOpen = 0 Prompt Text = "Data: "; Prompt(Prompt Text) Time Limit = Default Time %if Prog_Time Limit > Time Limit %start Time Limit = Prog_Time Limit %else %if Prog_Time Limit < 0 Time Limit = -Prog_Time Limit %finish EVENT = 0 Cpulimit(Time Limit) Enter(Prog) Delete seg(new stack>>16) %if New Stack >= 0 %end %externalroutine RUN(%string(31) file) %record(Progfm) prog Load(Prog, File) Prog_Options = Prog_Options!NoStack {use the current stack} Enter(Prog) Unload(Prog_Load Point) %end %systemroutine S Run(%string(63) File) %record(Progfm) Prog %integer S=-1, Stack Load(Prog, File) %if Prog_Options&NoStack = 0 %start Stack = |Prog_Stack Limit| %if Stack = 0 %start Prog_Options = Prog_Options!NoStack %else Stack = Stack*1024 Create Seg(S, Stack) %if S < 0 %start Event_Message = "No space for stack" %Signal 0,15 %finish Prog_Stack = S Prog_Stack Limit = S+Stack-800 %finish %finish Enter(Prog) Unload(Prog_Load Point) Delete Seg(S>>16) %if S >= 0 %end %routine Update Stack Limit(%integer New Limit) %integer P Stack Limit = New Limit SubsysFile_Stack Limit = New Limit P = Loaded Files %while P > 0 %cycle P = P-1 Loaded(P+1)_Stack Limit = New Limit %repeat %end %routine Relocate(%record(Loadfm)%name L) %integer P, Data Base, K, Count %shortname Rel %record(Textfm)%name T %record(specfm)%name V Dynamic {set up loader entry info} P = L_Specs&H*2 Data Base = L_Code Head-Shortinteger(L_Code Head-4)&H*2 %while P # 0 %cycle V == record(P+L_Gla Base) P = V_Gla*2 %if V_Entry < 0 %start {data spec} T == Record(Data Base+(V_Code>>16)*2) Dynamic Load(V, T) {must resolve it now} %if V_entry = 0 %start {Unresolved references} L_use = 0 Unpack spec(T) Event_Message = "Cannot load ".Spec Id %exit %finish %else {procedure spec} V_Gla = Loader State_Gla V_Entry = Loader State_Entry %finish %repeat {Now relocate the gla} Rel == Shortinteger(L_Code Base+(L_Head_Reloc_Base&H)*2) Count = L_Head_Reloc_N&H %while Count > 0 %cycle K = L_Gla Head+Rel>>1<<2 %if Rel&1 # 0 %then Integer(K) = Integer(K)+L_Code Head %c %else Integer(K) = Integer(K)+L_ Gla Head Rel == Rel++1 Count = Count-1 %repeat L _Stack Limit == Integer(L_Gla Head) Integer(L_Gla Head) = Stack Limit {make sure it's safe} Integer(L_Gla Head+4) = Addr(EVENT) {old standard} Integer(L_Gla Head+8) = Addr(EVENT) {new standard} %end %predicate Loadup(%record(Progfm)%name P, %string(31) File) %owninteger Dummy Use = 0 %record(Loadfm)%name L %record(Parmfm) Q %integer Base %false %if Loaded Files = 6 String(Addr(Q_Sact)) = File.".exe" Svc(10, Q) %if Q_P1 # 0 %or Q_P2!Q_P3 < 0 %start Event_Message = "Cannot access ".File %false %finish Base = Q_P2-16 Work Segs = Work Segs ! (1<<(Q_P2>>16)) ! (1<<(Q_P3>>16)) Loaded Files = Loaded Files+1 L == Loaded(Loaded Files) L_Use == Dummy Use; L_Use = 1 L_Code Segment = Base L_ Gla Segment = Q_P3 L_Code Base = Q_P2 L_ Gla Base = Q_P3 L_Head == Record(L_Code Base) L_Code Head = L_Code Base + L_Head_Code Disp&H*2 L_ Gla Head = L_ Gla Base L_Specs = L_Head_Specs_N L_Defs = L_Head_ Defs_N L_Options = Shortinteger(Base+12) P_Load Point = Loaded Files P_Options = L_Options P_Stack Limit = Shortinteger(Base+14) P_Time Limit = Shortinteger(Base+10) P_Code Head = L_Code Head P_ Gla Head = L_ Gla Head P_Entry = -1 P_Entry = P_Code Head+L_Head_MainEp&H*2 %if L_Head_MainEp >= 0 Console(File." loaded") %if Options&Opt Trace # 0 %true %end %systemroutine Load(%record(Progfm)%name P, %string(31) File) %record(Loadfm)%name L %integer Prog use %if Loadup(P, File) %start L == Loaded(Loaded Files) L_use == Prog use; Prog use = 1 Relocate(L) %return %if L_Use # 0 %finish %signal 0,14 %end %systemroutine UNLOAD(%integer Level) %record(Loadfm)%name L %while Loaded Files # 0 %and Loaded Files >= Level %cycle Loaded Files = Loaded Files-1 L == Loaded(Loaded Files+1) L_Use = 0 Delete Seg(L_Code Segment>>16) Delete Seg(L_ Gla Segment>>16) %repeat %end %routine ENTER(%record(Progfm)%name P) %label trap %record(contfm) cont %record(parmfm) q %string(63)%name parm == Command_parameter %integer Level, Old Limit = Stack Limit %signal 0,14,1 %if P_Entry < 0 *La_15,trap *St_15,cont+4 *Stm_0,cont+8 clevel = contingency(cont) level = clevel-1 %if P_Options&NoStack = 0 %start {use new stack} Update Stack Limit(P_Stack Limit) *L_6,P *L_1,4(6) {new wsp} %else *L_6,P *Ahi_Wsp,Diag Stack *Lr_1,Wsp %finish *Stm_5,0(1) {save the context} *Lr_Wsp,1 {new wsp} *L_1,Parm *L_2,Stack Limit *Lm_13,8(6) {new gla, code, ep} *St_2,0(13) {stack limit} *Balr_15,15 SubsysFile_Stack Limit = Old Limit {otherwise we can't call anything now} Update Stack Limit(Old Limit) Unstack Conts(Level) %return TRAP: *Stme_0,Q SubsysFile_Stack Limit = Old Limit Update Stack Limit(Old Limit) %if Valid(Cont_Epc, 2) %and Shortinteger(Cont_Epc)&H = x'8101' %start {an event} %return %if EVENT_Event = 0 = EVENT_Sub {%stop} %else EVENT_Event = 16 {contingency} EVENT_Sub = Q_Dact&255 {type of error} %finish EVENT_Pc = Cont_Epc EVENT_X = Addr(Cont) {context of error} %begin {Preserve Message in case %string(63) S = Event_Message {of error in Close All} Close All(1) {abandon output} Event_message = S %end Dump Contingency(Cont) %if Options&Opt Dump # 0 Mdiag %end %systemroutine LoadX(%string(15) Id, %record(Spec fm)%name sp, %integername opt) %record(Textfm) T Pack Spec(Id, T) Sp_Entry = 0 Dynamic Load(Sp, T) Opt = Xopt %signal 0,14 %if Sp_Entry = 0 %end %externalroutine Temp Library(%string(27) Id) Length(Id) = 27 %if Length(Id) > 27 Tlib_Use = 0 Tlib_Name = Id %end %endoffile  C! {d}J  JNWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z}R-^eeEyqLX8OQSU&PPStopped at line called from Executing Environmental variables starting at line in lineTermination Requested ' to to bounds () not in *Event 'YYc|cbC!1gSRQBgp#$dUeUnassigned variabler diagnoNo switch label (ler diagno Array index (el (ler diagno Corrupt arrayel (ler diagnoCorrupt arrayel (ler diagnoNot enough store(ler diagnoSymbol in datare(ler diagnoError on stream (ler diagnoCapacity exceededler diagnoInvalid substring (r diagnoArray inside-out: (r diagnoIllegal exponent: (r diagnoIllegal %FOR parametersagnoControl variable corruptgno Illegal shiftble corruptgnoString resolution failedgnoIllegal InstructionailedgnoValue too largetionailedgno Segment Errorgetionailedgno Time Exceededgetionailedgno%event failureetionailedgno%event failureetionailedgnoREAD: parameter type ??dgno No charno (eter type ??dgnoPerm routine missing ??dgno = unassigned ? unassigned pointer *unknown typeFn illegal reference *Unknown PC *Cannot give further diagnostics*Mdiag - internal errorTermination RequestedessageIllegal interruptstedessage Illegal SVCerruptstedessageIllegal instructionedessageArithmetic faultionedessage Address errorultionedessage Time exccededultionedessageInsufficient privilegessageInvalid PON serviceegessageVague SVC errorviceegessageInvalid SVC addressegessageConsole failureressegessageConsole buffer failuressageInvalid contingency buffere Demon deadntingency buffereGod knows whatgency buffereTransfer failurency buffereUnknown contingency buffere x' $$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nA>?1&034C0DD C ygp,WH$XXiW\`'W<y Wp,W,X!!( sL  WHC2fWHC XWH$QXiW\#$bW8$ AF Wp,Wt#5%yDWHXiA$" wp0XZX=U<8!4yXZX<8P=X=Z=X4P$TXmAx#7$TXmAl!6X]$aAXsJ@ D PP$PP]0HjPi,#$QP]0` fPi,!7X] Z$`AH l jPmX9,'2 :P=s P,HJ D PX,' PXMsT@ U TP]'BPMC gp,$PX=P= X UC0:$RkAC0.X sJ D PDXY Z#%Y] !"# P $aQmCXY$aAXDX=!=X0#7%PyXM HTPP](XiX=0c#9Hİ@V,P,&PH#4&P&PX=0B0XPHXPLXMPMDX]DC0*XmHs lPmHX=Ls ;P=L'QP]DCXHsJ D P8$RQ]8Xm8H!2"PP@X=P=P&bPm8XPYCLX@PXM8HTP]X=C06X4!3P=4tWH$QXmWTnWH$XXm AWHXC0(\WH$QXmWTW,XM0B0xANX](PY@Xm`AXi@Pm(X &U$C0JX=Z=X4P.;wP(p0NPH0p2P,NPHDp@P@NPHPp@PLNPHXpPTNPHlpPhNPHxpxPtN|PHp@P|$PPPN\PHpPNLPHp `PP P$N f(fail no) %if 0 <= fail no <= fmax print string("*Mdiag - internal error"); -> exit f(0): print string("*Cannot give further diagnostics"); -> exit f(1): print string("*Unknown PC "); Phex(p,1); -> exit EXIT: newlines(2) %stop %end %predicate ok(%integer from, bytes) %true %if valid(from, bytes) print string(" illegal reference"); hex(from) %false %end; ! 'ok' %routine initialise ! Initialise for this code segment. Where external linking occurs, must ! be called every time a segment switch occurs. i.e. when new code base is ! different than old code base. %integer k %return %if code base = f_reg(code) code base = f_reg(code) gla base = f_reg(gla) fail(1, ca) %unless ok(codebase, 4) %and ok(glabase, 4) file base = code base - ((shortinteger(code base-4))&H)*2 hdr == record(file base) diags = full k = hdr_ldiag_p1 diags = partial %if k < 0; ! ldiag_p1 sign bit k = (k & x'7FFF')*2 %if k = 0 %start fail(0,ca-file base); ! No diag tables - return address of smash %finish line head = k + hdr_ldiag_p2*2 + file base line end = (k-2) + file base; ! convention k = (hdr_vdiag_p1 & H)*2 id head = k +hdr_vdiag_p2*2 + file base id end = (k-2) + file base; ! convention event head = (shortinteger(code base-2)&H)*2 + code base; ! N.B. absolute event end = code base - 2; ! convention %end; ! initialise %routine set pointers(%integer ca); ! N.B. parameter is absolute address %owninteger k, n, here, next, lpntr, vpntr, ad block no = 0 epntr = event head %while epntr # event end %and ok(epntr, 2) %cycle next = epntr - (shortinteger(epntr)&H)*2 -> FOUND %if next < ca <= epntr epntr = next; block no = block no+1 %repeat fail(1,ca); ! *** error address not found *** FOUND: %if next = code base - 2 %and ca # codebase!1 %start; ! trapped from perm block no = -1 %return %finish display reg = short integer(epntr+2)&15 %if ca # codebase!1 %start main prog = short integer(epntr+2)&x'4000'! main prog %finish block addr = next+2 block addr = block addr+6 %if shortinteger(block addr)&x'8000' # 0 block addr = block addr+2; !+previous: skip event info %if diags = full %start lpntr = line head; vpntr = id head next = block no %while next # 0 %cycle lpntr = lpntr - (shortinteger(lpntr)&H)*2 vpntr = vpntr - (shortinteger(vpntr)&H)*2 next = next-1 %repeat k = lpntr - (shortinteger(lpntr)&H)*2 k = k+2 %until shortinteger(k) # 0; ! skip any empty space block line no = shortinteger(k)&H here = block line no; ad = block addr k = k+2 %while ad < ca %cycle line no = here n = shortinteger(k) %if n >= 0 %start here = here + (n & line diag limit) ad = ad + (n>>5)*2; ! ** N.B //(line diag limit + 1) %else here = n&x'7FFF' %finish %exit %if k = lpntr k = k+2 %repeat id from = vpntr - (shortinteger(vpntr)&H)*2 + 2 id to = vpntr %else; ! partial diags block line no = shortinteger(line head - 2*(block no+1))&H line no = block line no id from = id head - 8*(block no+1) id to = id from + 7 %finish %end; ! set pointers %string(12)%fn varname(%integer where, bytes) %ownstring(12) s %owninteger k, end %routine unpack(%integer x) %owninteger k,sym k = 3 %cycle sym = rem(x,40) %if sym = 0 %start sym = ' ' %else %if sym <= 26 sym = sym - 1 + 'A'; ! 1:26 => A:Z %else %if sym <= 36 sym = sym - 27 + '0'; ! 27:36 => 0:9 %else sym = sym - 37 + '#'; ! 37 => #, 38 => $, 39 => % %finish charno(s, length(s)+k) = sym k = k-1; %exit %if k = 0 x = x//40 %repeat length(s) = length(s) + 3 %end end = where + bytes end = end-2 %until shortinteger(end) # 0 s = "" unpack(shortinteger(k)&H) %for k = where,2,end length(s) = length(s) - 1 %while charno(s,length(s)) = ' ' %result = s %end; ! varname %routine dump locals %owninteger disp, type, base reg, extra ident %ownstring(12) ident %owninteger k, pntr !**** Note that the reduced types used by the diagnostics are, for reasons of ! economy, generated in Pass TWO %not 3 (%routine describe) !**** %routine output(%integer n) %integer j,k write(n,1) %if 32 <= n&(\128) <= 126 %start; ! ignore parity bit spaces(5) print symbol(''''); print symbol(n); print symbol('''') %else %if |n| > 256 spaces(4); hex(n) %finish %end; ! 'output' %routine print value %switch s(0:15) %integer p, q %constinteger unass = x'80808080' p = disp p = p + f_reg(base reg) %if base reg # 0 %if type&16 # 0 %start {external spec} p = p+8 {skip linkage info} ->out %unless VALID(p, 4) p = integer(p) type = type&15 %finish -> s(type) s(0): s(8): ! unused print string(" *unknown type"); write(type,1) -> OUT s(9): !integername s(10): !realname s(15): !longrealname s(11): !stringname s(12): !recordname s(13): !byteintegername s(14): !shortintegername %if ok(p,4) %start p = integer(p); ! fetch pointer %if p = unass %start print string(" unassigned pointer") %else -> s(type&7) %finish %finish -> OUT s(1): !integer s(2): !real s(7): !longreal %if ok(p,4) %start %if integer(p) # unass %start %if type&7 = 1 %start output(integer(p)) %else print(real(p),1,6) %finish %else -> UNA; ! print "unassigned" message %finish %finish -> OUT s(3): ! string %if ok(p,1) %and ok(p+byteinteger(p),1) %start %if byte integer(p) # x'80' %or byte integer(p+1) # x'80' %start print symbol('"'); print string(string(p)); print symbol('"') %else -> UNA %finish %finish -> OUT s(4): ! record q = p + 6*4 %while ok(p, 4) %cycle Space phex(integer(p),8) p = p+4 %repeat %until p = q -> OUT s(5): ! byte %if ok(p,1) %start output(byteinteger(p)) -> MAYBE %if byteinteger(p) = x'80'; ! possibly unassigned %finish -> OUT s(6): ! shortinteger %if ok(p,2) %start output(shortinteger(p)) -> MAYBE %if shortinteger(p)&x'FFFF' = x'8080' %finish -> OUT MAYBE: print string(" ?") UNA: print string(" unassigned") OUT: %end; !of 'print value' pntr = id from + 4*2; ! skip over procedure ident %while pntr # id to %cycle k = shortinteger(pntr) disp = (k&15) << 16; ! top 4 bits of disp base reg = (k>>4)&15 type = (k>>8)&7 type = type+8 %if k&indirect # 0; ! ... basic type 0:7, indirect 8:15 type = type+16 %if k&x'2000' # 0 {external spec} extra ident = 4 extra ident = 0 %if k < 0 disp = disp ! (shortinteger(pntr+2)&H) ident = varname(pntr+4,4+extra ident) pntr = pntr + 8 + extra ident spaces(3+12-length(ident)); print string(ident) print string(" = "); print value newline %repeat %end; ! dump locals %routine print happening %constinteger messages = 25 %constinteger UAV = X'081', SLNS = X'163', ABE = X'262', CDV = X'043', INE = X'091', EXB = X'021', SID = X'831', SND = X'492', CEX = X'013', SSE = X'667', AIO = X'353', EXPI = X'452', FPI = X'051', FVC = X'042', ISP = X'567', SRF = X'070', BADI = X'000', FLOV = X'011', SEGR = X'023', TEX = X'024', SIGF = X'464', LODF = X'00E', RDP = X'055', CLEX = X'765', MISSING = X'0BB' !Flag fields 0 = no action ! 1 = output switch index (r2) ! 2 = output array index (R2) and array bounds (R4) ! 3 = output array bounds (R4) ! 4 = output exponent (R2) ! 5 = output shift count (R2) ! 6 = output substring limits (R2, R4) ! 7 = output charno index (R2) ! 8 = output symbol in R2 %conststring(27)%array message text(1:messages) = "Unassigned variable", "No switch label (", "Array index (", "Corrupt array", "", "Not enough store", "Symbol in data", "Error on stream ", "Capacity exceeded", "Invalid substring (", "Array inside-out:", "Illegal exponent", "Illegal %FOR parameters","Control variable corrupt", "Illegal shift", "String resolution failed", "Illegal Instruction", "Value too large", "Segment Error", "Time Exceeded", "%event failure", "", "READ: parameter type ??","No charno (", "Perm routine missing" %constshortintegerarray code(1:messages) = UAV, SLNS, ABE, CDV, INE, EXB, SID, SND, CEX, SSE, AIO, EXPI, FPI, FVC, ISP, SRF, BADI, FLOV, SEGR, TEX, SIGF, LODF, RDP, CLEX, MISSING %owninteger event no,subevent,extra,message, flag, r2, r4 %switch action(0:8) %routine find message %integer k k = event no<<4 ! subevent k = 1<<4!3 %if k = 1<<4!5 %or k = 1<<4!7 k = 6<<4!3 %if k = 8<<4!2 k = 1<<4!1 %if k = 1<<1!2 message = messages %while message # 0 %cycle flag = code(message) %exit %if flag&255 = k message = message-1 %repeat %end event no = EVENT_EVENT subevent = EVENT_sub extra = EVENT_extra %if Contingency >= 0 %start Printstring(Cont Mess(Contingency)) %else find message %if sub event <= 15 printstring("*Event ") write(eventno, 0); printsymbol(',') write(subevent,0); printsymbol(',') write(extra, 0) space %and printstring(EVENT_Message) %if EVENT_Message # "" print string(" ") %if message # 0 %start print string(message text(message)) r2 = error context_gpr(2); r4 = error context_gpr(4) ->action(flag>>8) action(1): !switch action(7): !charno write(r2, 0); printsymbol(')'); ->done action(2): !array write(r2, 0) printstring(") not in") action(3): !inside-out printstring(" bounds (") %if ok(r4, 12) %start write(integer(r4+4), 0); printstring(" to "); write(integer(r4+8), 0) %finish BRACKET: printsymbol(')') ->done action(4): !exponent action(5): !shift write(r2, 0) -> DONE action(6): ! substring write(R2,0); print string(" to"); write(R4,1) -> BRACKET action(8): !symbol in data printstring(" '"); printsymbol(Extra); printsymbol('''') action(0): done: %else %if event no=0=sub event printstring("Termination Requested") %finish %finish newline %end; ! print happening %routine print out(%string(13) prefix) %integer g, old display newline print string(prefix) %if diags = full %and line no # 0 %start stop line = line no %if stop line = 0 print string("line"); write(line no,1) print string(" in ") %finish print string(varname(id from,8)) %if block line no # 0 %start print string(" starting at line"); write(block line no,1) newline %finish %if diags = full %start dump locals old display = display reg set pointers(codebase!1); !look for globals display reg = old display %if id from+4*2 # id to %start g = f_reg(gla) %if integer(g+4) # gla mark %start integer(g+4) = gla mark newline printstring("Environmental variables"); newline dump locals %finish %finish %finish %end; ! print out ! ------- M A I N L O O P ------- %on 9 %start; %return; %finish Newline terminal mode(0) {in case of binary I/O to terminal} main prog = 0 gla mark = gla mark+1 {to enable repeated printing of globals} print happening f == record(addr(error context_gpr(p2))) code base = -1 {force first initialisation to occur} initialise set pointers(error context_pc) set pointers(f_reg(link)) %if block no < 0; ! pc in perm print out("Executing ") %cycle %exit %if main prog # 0 f == record(f_reg(display reg)) initialise set pointers(f_reg(link)) print out("called from ") %repeat %if stop line # 0 %start newline print string("Stopped at line"); write(stop line,1); newlines(2) %finish %endofprogram {Symbol types} ! ! 0 a A . SP NL o ! ( ! : : : # t ? [ ! 9 z Z $ h { ! : e < ! _ r ! - ! ! 0 1 2 3 4 5 6 7 128+closing bracket ! %constbytearray Type(0:127) = 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 5 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 4 { }, 7 {!}, 6 {"}, 3 {#}, 3 {$}, 3 {%}, 6 {&}, 6 {'}, 128+')', 6 {)}, 3 {*}, 6 {+}, 6 {,}, 3 {-}, 3 {.}, 6 {/}, 0 {0}, 0 {1}, 0 {2}, 0 {3}, 0 {4}, 0 {6}, 0 {0}, 0 {7}, 0 {8}, 0 {9}, 3 {:}, 6 {;},128+'>',6 {=}, 6 {>}, 7 {?}, 6 {@}, 2 {A}, 2 {B}, 2 {C}, 2 {D}, 2 {E}, 2 {F}, 2 {G}, 2 {H}, 2 {I}, 2 {J}, 2 {K}, 2 {L}, 2 {M}, 2 {N}, 2 {O}, 2 {P}, 2 {Q}, 2 {R}, 2 {S}, 2 {T}, 2 {U}, 2 {V}, 2 {W}, 2 {X}, 2 {Y}, 2 {Z},128+']',6 {\}, 6 {]}, 6 {^}, 3 {_}, 6 {`}, 1 {a}, 1 {b}, 1 {c}, 1 {d}, 1 {e}, 1 {f}, 1 {g}, 1 {h}, 1 {i}, 1 {j}, 1 {k}, 1 {l}, 1 {m}, 1 {n}, 1 {o}, 1 {p}, 1 {q}, 1 {r}, 1 {s}, 1 {t}, 1 {u}, 1 {v}, 1 {w}, 1 {x}, 1 {y}, 1 {z},128+'}',6 {|}, 6 {?}, 6 {~}, 6 {?} %externalroutine Extract Command(%string(*)%name C, Parm, %string(127) S) %integer P, L, T, Sym C = ""; Parm = "" P = 0; L = Length(S) %cycle %return %if P = L P = P+1 Sym = Charno(S, P) T = Type(Sym) %if T <= 3 %start C <- C.Tostring(Sym) %if Length(C) # 31 %else %exit %if Sym # ' ' %or C # "" %finish %repeat %while P <= L %cycle Sym = Charno(S, P); P = P+1 %continue %if Sym = ' ' %and Parm = "" Parm = Parm.Tostring(Sym) %unless Length(Parm) = 63 %repeat %end %externalroutine Parse Parameter(%record(Commandfm)%name C, %integer Option, %string(127) Parm) %integer Sym, P, J, Sym Type, L, T %routine Get Sym %if P # L %start P = P+1; Sym = Charno(Parm, P) %else Sym = NL %finish Sym Type = Type(Sym) %end %routine Get(%string(31)%name Stream) Stream = "" %while Sym Type <= 4 %cycle Sym = Sym-32 %if Sym Type = 1 Stream = Stream.Tostring(Sym) %if Sym Type # 4 Get Sym %repeat Get Sym %if Sym = ',' %end Parm = Parm.Tostring(NL) P = 0 L = Length(Parm); %signal 6,8,L %if L > 127 C_Rest = 0 Get Sym %if Sym Type = 7 %start C_Modifier = Sym Get Sym %finish Sym Type = 128+NL %and P = P-1 %if Option&NoDecode # 0 %if Sym Type&128 # 0 %start T = Sym Type&127 %cycle Get Sym %if Sym = T %start %if Option&nodecode = 0 %and T = NL %and C_Parameter # "" %start Sym = Charno(C_parameter, Length(C_Parameter)) %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Length(C_Parameter) = Length(C_Parameter)-1 %finish %finish Get Sym %exit %finish %continue %if Sym = ' ' %and Option&SpacesX # 0 %if Sym = NL %start Event_Message = Tostring(T)." missing" %signal 11,10,1 %finish C_Parameter=C_Parameter.Tostring(Sym) %unless Length(C_Parameter)=63 %repeat ToUpper(C_Parameter) %if Option&Upper # 0 %finish Get Sym %while Sym = ' ' %if Sym Type = 7 %and C_Modifier = 0 %start C_Modifier = Sym; Get Sym %finish Get(C_In1); Get(C_In2); Get(C_In3) %if Sym = '/' %start Get Sym Get(C_Out1); Get(C_Out2); Get(C_Out3) %finish %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Get Sym %finish %if Sym # NL %start Event_Message = "Malformed command: " %cycle Event_Message=Event_Message.Tostring(Sym) %if Length(Event_Message)#63 Get Sym %repeat %until Sym = NL %Signal 11,10,0 %finish %end %endoffile %routinespec prompt(%string(15) s) %routinespec selectinput(%integer st) %routinespec selectoutput(%integer st) %routinespec close in(%integer stream, safe) %routinespec close out(%integer stream, how) %routinespec close input %routinespec close output %routinespec abandon input %routinespec abandon output %routinespec open input(%integer st, %string(31) file) %routinespec open output(%integer st, %string(31) file) %routinespec printsymbol(%integer sym) %routinespec printstring(%string(255) s) %routinespec newline %routinespec space %routinespec newpage %routinespec newlines(%integer n) %routinespec spaces(%integer n) %routinespec console(%string(63) s) %integerfnspec readsymbol %integerfnspec nextsymbol %routinespec skipsymbol %routinespec write(%integer value, places) %routinespec print fl(%real r, %integer p) %routinespec print(%real r, %integer a, b) %routinespec phex(%integer n, p) %routinespec read(%name n) %routinespec stop %routinespec create seg(%integername n, %integer size) %routinespec tidy segs %routinespec cpu limit(%integer seconds) %routinespec unstack conts(%integer to) %integerfnspec cputime %string(9)%fnspec date %string(8)%fnspec time %realfnspec fracpt(%real r) %routinespec store dump(%integer from, size) %routinespec dump contingency(%record(contfm)%name cont) %routinespec to upper(%string(*)%name s) %routinespec to lower(%string(*)%name s) %routinespec obey(%string(31) in, out, %string(63) p) %routinespec pack(%string(63) s, %record(filefm)%name F) %routinespec unpack(%record(filefm)%name F, %string(*)%name S) %routinespec Del file(%record(filefm)%name F, %integer quiet) %routinespec delete file(%string(63) file) %string(72)%fnspec itos(%integer n,p) %string(63)%fnspec xtos(%integer n,p) %endoffile %externalroutine SPY ! %integer sym, s, n, ad, j ! %predicate VAL(%integer ad) ! %true %if valid(ad, 2) ! printstring("Invalid address"); newline ! %false ! %end ! Init streams !Reset: ! prompt("Spy>") ! %cycle ! n = nextsymbol ! %exit %unless n = ' ' %or n = nl ! skipsymbol ! %repeat ! skipsymbol %and %return %if n = '.' ! read hex(ad) ! skipsymbol {pending newline} ! %cycle ! ad = ad&(\1) {round it down} ! ->reset %unless val(ad) ! prompt(xtos(ad, 5).": ".xtos(shortinteger(ad), 4)." >") ! %cycle ! sym = nextsymbol ! %exit %if sym # ' ' ! skipsymbol ! %repeat ! skipsymbol %and %return %if sym = '.' ! %if sym = nl %start ! skipsymbol ! ad = ad+2 ! %else ! n = 0 ! %if nextsymbol # nl %start ! read hex(n) ! %finish ! n = 1 %if n <= 0 ! s = readsymbol %until s = nl ! %if sym = '*' %start ! %cycle ! phex(ad, 5); printsymbol(':') ! %for j = -3, 1, 4 %cycle ! ->reset %unless val(ad) ! space; phex(shortinteger(ad), 4) ! n = n-1; %exit %if n <= 0 ! ad = ad+2 ! space %if j = 0 ! %repeat ! newline ! %repeat %until n <= 0 ! %else %if sym = '+' %or sym = '-' ! n = n<<1 ! %if sym = '+' %then ad = ad+n %else ad = ad-n ! %else ! ad = n ! %finish ! %finish ! %repeat %end %endoffile +25$ELSE+**$EXIT+**$FINISH+**$GOTO+- -$IF+'K*<$LABEL+*-$UNLESS+*E*42+@@ 50 SEQUENCE& 50-SEQUENCE+ ABBREVIATION&"? ABBREVIATIONS&"?ACCESS& 4ALIAS&"?ANYTHING&25ARCHIVE+6$9&ARCHIVE_ANALYSE+;Q=f ARCHIVE_DUMP+=t?ARCHIVE_INITIALISE+9N;@ARCHIVE_INITIALIZE&9N;@ARCHIVE_RESTORE+DEARCHIVE_RESTORE_FILE+EGARCHIVE_RESTORE_UNIT+BDARCHIVE_RESTORE_USER+?BASSIGN&"? BACKSPACE&`aBACKUP&6$9&BASIC&BE+ iBECOME& iBEL& BINARY INPUT&nqBOOT&BOOTING& BOOTSTRAP&BREAK& BROADCAST+|}}BUSES+66BYE&{C&CAN+abCATALOG+uwCHANGE&Ӑ CHANGE HATS& iCHANGES&0 CLEAN+4CLOSE+}~9 CLOSEDOWN&COMMAND& COMMAND FILE&"v% COMMAND FILES+"v%COMMAND FORMAT&COMMAND INTERPRETATION&uCOMMANDS+COMMENTS+&'FCOMPARE+0 COMPARING FILES&0 COMPILATION+VJCOMPILATION OPTIONS&ICOMPILATION PARAMETER&ICOMPILATION PARAMETERS+ICOMPILER OPTION&ICOMPILER OPTIONS&ICOMPILER PARAMETER&ICOMPILER PARAMETERS&I COMPILERS&VJ COMPILING&VJCOMPILING PROGRAMMES&VJCOMPILING PROGRAMS&VJCOMPRESSING DISCS&ItKCONSOLE+9CONSOLE CONVENTIONS&9CONTROL&|wCONTROL CHARACTER&|wCONTROL CHARACTERS&|wCOPY+ COPYING DISCS&ItK COPYING FILES&CPU&KCPULIMIT&KCR+bdICREATE&CREATING FILES+CREATION&CSS&"v%CSS FILE&"v% CSS FILES&"v%CTRL+|wCTRL+&|wCTRL+D+_G_CTRL+E+i9kCTRL+G&CTRL+H+`aCTRL+I+h(i,CTRL+N+m{nCTRL+O+lmoCTRL+P+nqCTRL+Q&ddeCTRL+R+ffg/CTRL+S+efQCTRL+T+g<h CTRL+U+klCTRL+X&abDATE&DATEIS+DC1&ddeDC2&ffg/DC3&efQDC4&g<h DEL&`aDEL&DELETE+DELETING FILES& DEPROTECT&$DESTROY&DESTROYING FILES& DIFFERENCES&0 DIRECTORY&&DISC+ItK DISC CHECKING&ItK DISC CHECKS&ItKDISC COMPRESSION&ItK DISC COPYING&ItK DISC UNITS+wzx DISC UTILITY&ItK DISC VERIFY&WZQDISCS&wzx DISC_COMPARE+WZQ DISC_COMPRESS+Zn_ DISC_COPY+SWDISC_INITIALISE+NSDISC_INITIALIZE&NS DISC_SQUEEZE&Zn_ DISC_TEST+KN DISC_VERIFY&WZQDLE&nqDO&>DRAIN&kDUMP+05pE&ECCE&EDIT+EDITING& EDITING FILES&EMULATE&EMULATOR& END OF FILE&_G_ END OF INPUT&_G_ENQ&i9k ENVIRONMENT&PEOT&_G_ERASE&`a ERRORFILE&[ ERRORFILE=&[ERRORS&-0ESC+ESCAPE&EVENT&-0{?}, 6 {?}, 6 {?}, 6 {?}, 4 { }, 7 {!}, 6 {"}, 3 {#}, 3 {$}, 3 {%}, 6 {&}, 6 {'}, 128+')', 6 {)}, 3 {*}, 6 {+}, 6 {,}, 3 {-}, 3 {.}, 6 {/}, 0 {0}, 0 {1}, 0 {2}, 0 {3}, 0 {4}, 0 {6}, 0 {0}, 0 {7}, 0 {8}, 0 {9}, 3 {:}, 6 {;},128+'>',6 {=}, 6 {>}, 7 {?}, 6 {@}, 2 {A}, 2 {B}, 2 {C}, 2 {D}, 2 {E}, 2 {F}, 2 {G}, 2 {H}, 2 {I}, 2 {J}, 2 {K}, 2 {L}, 2 {M}, 2 {N}, 2 {O}, 2 {P}, 2 {Q}, 2 {R}, 2 {S}, 2 {T}, 2 {U}, 2 {V}, 2 {W}, 2 {X}, 2 {Y}, 2 {Z},128+']',6 {\}, 6 {]}, 6 {^}, 3 {_}, 6 {`}, 1 {a}, 1 {b}, 1 {c}, 1 {d}, 1 {e}, 1 {f}, 1 {g}, 1 {h}, 1 {i}, 1 {j}, 1 {k}, 1 {l}, 1 {m}, 1 {n}, 1 {o}, 1 {p}, 1 {q}, 1 {r}, 1 {s}, 1 {t}, 1 {u}, 1 {v}, 1 {w}, 1 {x}, 1 {y}, 1 {z},128+'}',6 {|}, 6 {?}, 6 {~}, 6 {?} %externalroutine Extract Command(%string(*)%name C, Parm, %string(127) S) %integer P, L, T, Sym C = ""; Parm = "" P = 0; L = Length(S) %cycle %return %if P = L P = P+1 Sym = Charno(S, P) T = Type(Sym) %if T <= 3 %start C <- C.Tostring(Sym) %if Length(C) # 31 %else %exit %if Sym # ' ' %or C # "" %finish %repeat %while P <= L %cycle Sym = Charno(S, P); P = P+1 %continue %if Sym = ' ' %and Parm = "" Parm = Parm.Tostring(Sym) %unless Length(Parm) = 63 %repeat %end %externalroutine Parse Parameter(%record(Commandfm)%name C, %integer Option, %string(127) Parm) %integer Sym, P, J, Sym Type, L, T %routine Get Sym %if P # L %start P = P+1; Sym = Charno(Parm, P) %else Sym = NL %finish Sym Type = Type(Sym) %end %routine Get(%string(31)%name Stream) Stream = "" %while Sym Type <= 4 %cycle Sym = Sym-32 %if Sym Type = 1 Stream = Stream.Tostring(Sym) %if Sym Type # 4 Get Sym %repeat Get Sym %if Sym = ',' %end Parm = Parm.Tostring(NL) P = 0 L = Length(Parm); %signal 6,8,L %if L > 127 !FC! C_Rest = 0 {FC} %for j = 32, 1, 7*32+4+63 %cycle {FC} Byte Integer(Addr(C)+j) = 0 {FC} %repeat Get Sym %if Sym Type = 7 %start C_Modifier = Sym Get Sym %finish Sym Type = 128+NL %and P = P-1 %if Option&NoDecode # 0 %if Sym Type&128 # 0 %start T = Sym Type&127 %cycle Get Sym %if Sym = T %start %if Option&nodecode = 0 %and T = NL %and C_Parameter # "" %start Sym = Charno(C_parameter, Length(C_Parameter)) %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Length(C_Parameter) = Length(C_Parameter)-1 %finish %finish Get Sym %exit %finish %continue %if Sym = ' ' %and Option&SpacesX # 0 %if Sym = NL %start Event_Message = Tostring(T)." missing" %signal 11,10,1 %finish C_Parameter=C_Parameter.Tostring(Sym) %unless Length(C_Parameter)=63 %repeat ToUpper(C_Parameter) %if Option&Upper # 0 %finish Get Sym %while Sym = ' ' %if Sym Type = 7 %and C_Modifier = 0 %start C_Modifier = Sym; Get Sym %finish Get(C_In1); Get(C_In2); Get(C_In3) %if Sym = '/' %start Get Sym Get(C_Out1); Get(C_Out2); Get(C_Out3) %finish %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Get Sym %finish %if Sym # NL %start Event_Message = "Malformed command: " %cycle Event_Message=Event_Message.Tostring(Sym) %if Length(Event_Message)#63 Get Sym %repeat %until Sym = NL %Signal 11,10,0 %finish %end %endoffile { 6-Nov-81 { MOUSES Standard command library A. Culloch Sep-81 { !!!!%option "NODECODE" { %const %string(3) version = "FC1" { { { OBEY(parm) command/report { COPY in1, in2, in3 / out { FILES { DELETE filespec { RENAME filespec/filespec { PURGE { LET symbol = ... or LET? { LIB Object filespec { BECOME Username { ENTRIES Object filespec/out { OPTION(opt1, opt2, ...) Objfilespec { ANALYSE filespec/out { OFFER filespec/queue: { SET opt1, opt2, opt3, ... { STATE or STATE(SYSTEM) or STATE(QUEUES) or STATE(DISCS) { { Some commands use the separate 'wildcard' processor module: { %include "SysInc:Command.inc" %record %format Filespec(%string(7) Unit, Owner, %string(15) File, %string(3) Ext, %short %integer Volatile, Nil) %record %format FD fm (%string(15) name, %short %integer pos) %routine %spec Sort(%record(FD fm)%arrayname T, %integer Lo, Hi) %routine %spec Wild Spec(%string(31) spec) %record(Filespec) %fn %spec Next filespec %record(Filespec) %fn %spec Split(%string(31) Filename) %string(31) %fn %spec Filename (%record(Filespec)%name F) %routine %spec For each(%record(Commandfm)%name C, %routine X(%record(Commandfm)%name CC)) %routine %spec Mask(%record(Filespec)%name f, %record(filespec) mask) %own %record(Command fm) C {Subsystem entries} %include "SysInc:Direct.inc" !FC!%externalroutinespec Parse Parameter(%record(Commandfm)%name C, %integer option, !FC! %string(127) Parm) %external %string(7) %spec SS Version %alias "$VERSION" %external %string(17) %spec Console Int %external %string(17) %spec Command Prompt %external %string(15) %spec Error file %external %string(7) %spec Search owner %external %string(72) %fn %spec ItoS (%integer I, Places) %external %integer %fn %spec StoI(%string(31) s) %external %integer %fn %spec In type %external %integer %fn %spec Out type %external %predicate %spec Exists(%string(31) Filename) %external %routine %spec Rename File(%string(31) old, new) %external %routine %spec Pack (%string(31) file, %record(Filefm)%name F) %external %routine %spec Unpack (%record(Filefm)%name F, %string(*)%name ff) %external %routine %spec Console (%string(63) Message) %external %routine %spec Echo (%integer on off) %const %integer off = 0, on = 1 %external %routine %spec To Upper (%string(*)%name S) %external %routine %spec To Lower (%string(*)%name S) %external %routine %spec Open All (%record(Command fm)%name C) %external %routine %spec Close All (%integer how) %external %routine %spec Read Line (%string(*)%name S) %external %routine %spec Del File (%record(file fm)%name F, %integer quiet) %external %routine %spec Phex (%integer X, Places) %external %routine %spec Open DA (%integer chan, RW, %string(31) Filename) %external %routine %spec Read DA (%integer chan, block num, %name buffer) %external %routine %spec Write DA (%integer chan, block num, %name buffer) %external %routine %spec Close DA (%integer chan) %external %routine %spec Xobey %alias "$OBEY"(%string(31) f,t, %string(63) p) %constant %integer IO error = 9 %constant %string(2) x = "X " %constant %integer To Potter = 22, {SVC:Message-> Central Queuing Agency} Set TTY = 29, {Set console parameters} Disc read = 101, {Physical disc I/O} Disc Write = 102, Disc Status = 108, max unit = 12 !File system disc block formats %record %format extent (%short length, {# of contiguous blocks in extent} %short base) {disc addr of first block} %record %format spine (%short extents, {# of extents in file} %byte access permissions, check, {should always be '?'} %integer blocks,{# of blocks in file} %record(extent) %array extent (1:126)) !Block zero on every logical disc %record %format zero fm (%integer vol id, {m'VOLN'} %string(7) disc id, {"SVOL"} %integer free list, {free blocks spine} user list, {user catalog} defective list,{bad blocks list} %integer system area, {start of system image} system size, {N contiguous blocks} %string(11)initialisation date, %integer tracks, {physical disc info} blocks per cylinder, {Symbol types} ! ! 0 a A . SP NL o ! ( ! : : : # t ? [ ! 9 z Z $ h { ! : e < ! _ r ! - ! ! 0 1 2 3 4 5 6 7 128+closing bracket ! %constbytearray Type(0:127) = 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 5 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 4 { }, 7 {!}, 6 {"}, 3 {#}, 3 {$}, 3 {%}, 6 {&}, 6 {'}, 128+')', 6 {)}, 3 {*}, 6 {+}, 6 {,}, 3 {-}, 3 {.}, 6 {/}, 0 {0}, 0 {1}, 0 {2}, 0 {3}, 0 {4}, 0 {6}, 0 {0}, 0 {7}, 0 {8}, 0 {9}, 3 {:}, 6 {;},128+'>',6 {=}, 6 {>}, 7 {?}, 6 {@}, 2 {A}, 2 {B}, 2 {C}, 2 {D}, 2 {E}, 2 {F}, 2 {G}, 2 {H}, 2 {I}, 2 {J}, 2 {K}, 2 {L}, 2 {M}, 2 {N}, 2 {O}, 2 {P}, 2 {Q}, 2 {R}, 2 {S}, 2 {T}, 2 {U}, 2 {V}, 2 {W}, 2 {X}, 2 {Y}, 2 {Z},128+']',6 {\}, 6 {]}, 6 {^}, 3 {_}, 6 {`}, 1 {a}, 1 {b}, 1 {c}, 1 {d}, 1 {e}, 1 {f}, 1 {g}, 1 {h}, 1 {i}, 1 {j}, 1 {k}, 1 {l}, 1 {m}, 1 {n}, 1 {o}, 1 {p}, 1 {q}, 1 {r}, 1 {s}, 1 {t}, 1 {u}, 1 {v}, 1 {w}, 1 {x}, 1 {y}, 1 {z},128+'}',6 {|}, 6 {?}, 6 {~}, 6 {?} %externalroutine Extract Command(%string(*)%name C, Parm, %string(127) S) %integer P, L, T, Sym C = ""; Parm = "" P = 0; L = Length(S) %cycle %return %if P = L P = P+1 Sym = Charno(S, P) T = Type(Sym) %if T <= 3 %start C <- C.Tostring(Sym) %if Length(C) # 31 %else %exit %if Sym # ' ' %or C # "" %finish %repeat %while P <= L %cycle Sym = Charno(S, P); P = P+1 %continue %if Sym = ' ' %and Parm = "" Parm = Parm.Tostring(Sym) %unless Length(Parm) = 63 %repeat %end %externalroutine Parse Parameter(%record(Commandfm)%name C, %integer Option, %string(127) Parm) %integer Sym, P, J, Sym Type, L, T %routine Get Sym %if P # L %start P = P+1; Sym = Charno(Parm, P) %else Sym = NL %finish Sym Type = Type(Sym) %end %routine Get(%string(31)%name Stream) Stream = "" %while Sym Type <= 4 %cycle Sym = Sym-32 %if Sym Type = 1 Stream = Stream.Tostring(Sym) %if Sym Type # 4 Get Sym %repeat Get Sym %if Sym = ',' %end Parm = Parm.Tostring(NL) P = 0 L = Length(Parm); %signal 6,8,L %if L > 127 !FC! C_Rest = 0 {FC} {Compiler bug makes above behave as C=0, so...} {FC} %for j = 32, 1, 7*32+4+63 %cycle {FC} Byte Integer(Addr(C)+j) = 0 {FC} %repeat Get Sym !FC!%if Sym Type = 7 %start {FC}{STANDARD commands expect to handle modifier themselves} {FC}%if Sym Type = 7 %and Option&NoDecode = 0 %start C_Modifier = Sym Get Sym %finish Sym Type = 128+NL %and P = P-1 %if Option&NoDecode # 0 %if Sym Type&128 # 0 %start T = Sym Type&127 %cycle Get Sym %if Sym = T %start %if Option&nodecode = 0 %and T = NL %and C_Parameter # "" %start Sym = Charno(C_parameter, Length(C_Parameter)) %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Length(C_Parameter) = Length(C_Parameter)-1 %finish %finish Get Sym %exit %finish %continue %if Sym = ' ' %and Option&SpacesX # 0 %if Sym = NL %start Event_Message = Tostring(T)." missing" %signal 11,10,1 %finish C_Parameter=C_Parameter.Tostring(Sym) %unless Length(C_Parameter)=63 %repeat ToUpper(C_Parameter) %if Option&Upper # 0 %finish Get Sym %while Sym = ' ' %if Sym Type = 7 %and C_Modifier = 0 %start C_Modifier = Sym; Get Sym %finish Get(C_In1); Get(C_In2); Get(C_In3) %if Sym = '/' %start Get Sym Get(C_Out1); Get(C_Out2); Get(C_Out3) %finish %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Get Sym %finish %if Sym # NL %start Event_Message = "Malformed command: " %cycle Event_Message=Event_Message.Tostring(Sym) %if Length(Event_Message)#63 Get Sym %repeat %until Sym = NL %Signal 11,10,0 %finish %end %endoffile C!0} i n2d NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Zmfp`EX!qIw@%Qv#p}SId:w R-#Aa<CAAa!84!! U#bAAAe!ababA!a!aaA#"aaaa!dAcAbdQ@D"Z pWfՊ8,ox0|@,vWdv+xK,>0WĐ42&/ekys&;@,3o20Mo4dĐ82(@(_Q@X,K;}0z4m"`8W<|@@oxDX`}\^CHX`}i}12d,}́LysP&;@TKX&Kth8h8#ox$%Qv P`  Xi*Help is available on the following topics:3Help ? will give a list of the topics availableNo information about ? Fix:Help.dat 0 ?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"C$A1 0# # QDRD?&A'"3X#Y!Y!&\ ZB!$$A>З$1$HHX[&B0P [,&' ?P *&30HPїCKї$$A> Y #%$$A> qPrPB&(pX ?$P S?PE&T 4?&?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$H!34"#(!BC$$A>gA, X 6@ $AcPiiPi,X=6C0$$8lAP,P0V$aWhX,PXĠP08lAyA w*,AALX !A:,3!4zXmW $P,WHXM'APMZ,P!$@PMD!*W,$cPm#0 5P=CK wA,X nWHW,$`AX1<P90P9<$ $!AP,C.&P,P8kAP4ӡŠ+!3AX,U8AU _ ',AA(2Ar,q, Ȱ-@.r,q, XH 4WH W" &*.2$$6**:00>66B<<FBBJHHNNNRTTVZZZ``^ffbllfrrjxxn~~rvz~\\LA XiHA:*$P,[$cA&n$bA $P,$R$cA&n$BPG,$Q`$QRE Xhl&aPh UAŠP y DUMPASCII WORD SP WA,X DO WORD gA,X J, K0 $0&1P:,P:4 XZE@Ȱ%KPJ0X:# +P: DW @ d@W<  dW< X:,U:4A0qP4 z J, K0 X8<3XŰ? $&P,P4 XiWlet help=user_fix:help let basic=sysx_subsys:basic let pascal= let fortran= let os32mt= AL,),,.{$N,,,}$LONGREAL,),,.{$N,,,}$LENGTH,,,.{$S,1,,}$CHARNO,,,.{$S,1,,$N,,,}$INT,,,>{$X,!,,}$INTPT,,,>{$X,!,,}$IOCP,,,.{$N,,,}$TYPEOF,,,>{$N,,,}$SIZEOF,,,>{$N,,,}$FRACPT,(,,>{$X,!,,}$PROMPT,,,+{$S,1,,}$NEXTSYMBOL,,,;{}$SKIPSYMBOL,,,+{}$PRINTSYMBOL,,,+{$SYM,,,}$PRINTSTRING,,,+{$S,1,,}$WRITE,,,+{$V,,,$ P,,,}$SELECTINPUT,,,+{$ N,,,}$ SELECTOUTPUT,,,+{$!N,,,}$!OPENINPUT,,,+{$"N,,,$#FD,1,,}$"OPENOUTPUT,,,+{$#N,,,$$FD,1,,}$#CLOSEINPUT,,,+{}$$CLOSEOUTPUT,,,+{}$%RESETINPUT,,,+{}$&RESETOUTPUT,,,+{}$'TIME,8,,;{}$(DATE,8, ,;{}$)CPUTIME,,,;{}$*COMREG,,,+{$+N,,,}$+READ,,,+{$,X,,,}$,PRINT,,,+{$-VAL,!,,$.BEFORE,,,$/AFTER,,,}$-PRINTFL,,,+{$.VAL,!,,$/PLACES,,,}$.SPACE,,,+{}$/SPACES,,,+{$0N,,,}$0NEWLINE,,,+{}$1NEWLINES,,,+{$2N,,,}$2FILEFM,D,2,{$UNIT,,,$OWNER,,,$N1,,,$N2,,,}$3PARMFM,D,3,{$DSNO,,,$DACT,,,$SSNO,,,$SACT,,,~A$TEXT,1,,~C~A$FILE,A,2,~C$P1,,,$P2,,,$P3,,,$P4,,,~B$P5,,,$P6,,,~B}$4EVENTFM,D,4,{$EVENT,,,$SUB,,,$EXTRA,,,$MESSAGE,1,?,$PC,,,$X,,,}$5EVENT,A,4,+O$6HELP,,,#{$7WANTED,1,,}O$8HFM,D,8,{$KEY,1,,$FLAG,,,$START,,,$FINISH,,,}O$9TOUPPER,,,+{$:S,2,,}O$:OPENDA,,,+{$;CHAN,,,$TO,,,}O$FROM,,,$?TO,,,}O$>FINDTOPIC,,,{$?START,,,$@FINISH,,,}O $?SHOWALL,,,{}O $@START,,,$AFINISH,,,$BL,,,$CCONTROL,,,O $DB,,,NNd,O $ETOPIC,1,,$FTOPICS,1,,O@:NpNp' Fix:Help.datpEO@CNSO@7'?=O@C@@7p@@7pEpESO@CN!?#O@@7pE@@7pEN-SOF:O@CNSO:O:O@7'??#O@?EORO:O @E@7SO!@9@EpEO#@>@@p@ApEO$@@N?=O%@=@@p@ApEO&F:O'@'No information about @7.pEO'@0EO(@'3Help ? will give a list of the topics availablepEO)@0EO*:O+RO-F$GR,I,8,{$HN,,,}O.N$IPREVIOUS,,,!AO/$JBLOCK,,,$KBYTE,,,O0@H@HN *SO1@J@HN ]SO2@I@J?=@;Np@Jp@DNapE:O3@I@JSO4@K@HN&SO5@@ @D@KapEpEMO6;:O8F$?SHOWALL,,,{}O9$HJ,,,$IN,,,O:$JH,B,8,ON$NPENDING,,,!AO?@L'?#R:O@@/@NpEO@@NNSOA@@LpEOB@M@MN-SOC@@LpEN?<@MNS:OD@MN?>OE@0EOF@MNSOGF:OH@NN@@LpE-SOI:OJ;:OL@'*Help is available on the following topics:pEOL@0EOM@I@GNpEnSON@HN@INfOO@J@G@HpEZOP@JnN+?#@K@JnpE:OQB:OR@0EOS;:OUF$>FINDTOPIC,,,{$HSTART,,,$IFINISH,,,}OV$JHIGH,,,$KLOW,,,$LP,,,OW$MH,B,8,OX@KNSOX@J@GNpEnSOY:@K@J?>OZ@L@K@J+N]SO[@M@G@LpEZO\@Mn@E?#O]@H@MnSO]@I@MnSO^RO_:O`@Mn@E?(@J@LN-SF:@K@LN+S:OaB:Ob@HNSOb@INSOc;:OeF$=COPY,,,{$HFROM,,,$ITO,,,}Of$JLAST,,,@JN S$KSYM,,,Og$LQUIET,,,@LNSOh$MN,,,$NBYTE,,,$OBLOCK,,,$PNEXTBLOCK,,,$QNEXTBYTE,,,Oi@O@HN ]SOj@N@HN&SOk@P@IN ]SOl@Q@IN&SOm@M@P@O-N*@N-@Q+SOn@CN!?#@LNS:Oo:Op@;Np@Op@DNapEOq:Or@K@D@NaSOs@JN ?# @KN??# Ot@CN!?= R: Ou@LNSOvF : Ow@LN?# @@KpE: Ox: Oy@J@KSOz@N@NN+SO{@M@MN-SO|@NN?=@MN?=B:O}@MN?#F:O~@O@ON+SO@NNSOB:O;:O;OHOO$7COMMANDFM,D,7,{$COMMAND,1,,~A$IN1,1,,$IN2,1,,$IN3,1,,$OUT1,1,,$OUT2,1,,$OUT3,1,,~C$IN,;,,$OUT,;,,NNd,~C$IO,;,,NNd,~B$MODIFIER,,,$PARAMETER,1,?,}O$8COMMAND,A,7,+O $9EXTR C!N$}.*0h xEmfpU#p}SIyd:w R$.NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Za+aA!!BAaAC!A!b K!aaAA! @aAABAaaa!A#ABA!AA!ABBAA!/b dQ@D"Zx mfpÀv #p}SIÀÀd:Q@,vdK}z!,z,Ðyu d:w RĀ`T:,d:Q@zd>z@K}+ox,> #8`2A) = IO( C_Command = (foo) a,b,c/d,e,f! C_Command = ABCDEFGHIJKLMalformed command:  missing    W $?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>$@#0#DD&A'1"CH!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"CX#Y!Y!&\ ZB!$$A>A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$2$#PC'4"H!34"#(!BC$$A>BgP(A , X xWP((,AA 0X !A$06X$ҫ$PH,PHXXUX!4x&QPX,%A\aPh=pAӱPɰB :XӚŐC0(@',AAf*A"# ` !7XHӤ#2#CjXYB b,)A\APH&P@ !9XXef!3C.X8ӳŰ?C0X @#AfCCwA , X X8<XHL4#?&1P8,#A\QPX#$jPhX=pAӱPy5 gA , X $06XɰB HŰ!9XȪPŰC0"XHL@ ,XY%,AfA*CXhl`,!3AyF WP((,AA 3X !A(,0Af$0P8H,PH@#&$$$AX(,0AAJAXX\P!=XhlX8<P6A|Xð#:ȠPX'PXHL@C0@@PHADXX\XhlVB0|X80B0h` B0`XӫC0N+A\?QPX=pAӑŐB0"XKLD! 127 !FC! C_Rest = 0 {FC} Save = C_Command; C = 0; C_Command = Save Get Sym %if Sym Type = 7 %start C_Modifier = Sym Get Sym %finish Sym Type = 128+NL %and P = P-1 %if Option&NoDecode # 0 %if Sym Type&128 # 0 %start T = Sym Type&127 %cycle Get Sym %if Sym = T %start %if Option&nodecode = 0 %and T = NL %and C_Parameter # "" %start Sym = Charno(C_parameter, Length(C_Parameter)) %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym 04 8<@D$$H**L00P66T<<XBB\HH`NNdTThZZl``pfftllxrr|xx~~4 Get Sym Get(C_Out1); Get(C_Out2); Get(C_Out3) %finish %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Get Sym %finish %if Sym # NL %start Event_Message = "Malformed command: " %cycle Event_Message=Event_Message.Tostring(Sym) %if Length(Event_Message)#63 Get Sym %repeat %until Sym = NL %Signal 11,10,0 %finish %end %endoffile OL,,,{}O$iWRITE,,,{$jVALUE,,,$kPLACES,,,}O$jPRINTFL,,,{$kR,!,,$lP,,,}O$kPRINT,,,{$lR,!,,$mA,,,$nB,,,}O$lPHEX,,,{$mN,,,$nP,,,}O$mREAD,,,{$nN,,,}O$nSTOP,,,{}O$oCREATESEG,,,{$pN,,,$qSIZE,,,}O$pTIDYSEGS,,,{}O$qCPULIMIT,,,{$rSECONDS,,,}O $rUNSTACKCONTS,,,{$sTO,,,}O!$sCPUTIME,,,{}O"$tDATE,8, ,{}O#$uTIME,8,,}, 1 {b}, 1 {c}, 1 {d}, 1 {e}, 1 {f}, 1 {g}, 1 {h}, 1 {i}, 1 {j}, 1 {k}, 1 {l}, 1 {m}, 1 {n}, 1 {o}, 1 {p}, 1 {q}, 1 {r}, 1 {s}, 1 {t}, 1 {u}, 1 {v}, 1 {w}, 1 {x}, 1 {y}, 1 {z},128+'}',6 {|}, 6 {?}, 6 {~}, 6 {?} %externalroutine Extract Command(%string(*)%name C, Parm, %string(127) S) %integer P, L, T, Sym C = ""; Parm = "" P = 0; L = Length(S) %cycle %return %if P = L P = P+1 Sym = Charno(S, P) T = Type(Sym) %if T <= 3 %start C <- C.Tostring(Sym) %if Length(C) # 31 %else %exit %if Sym # ' ' %or C # "" %finish %repeat %while P <= L %cycle Sym = Charno(S, P); P = P+1 %continue %if Sym = ' ' %and Parm = "" Parm = Parm.Tostring(Sym) %unless Length(Parm) = 63 %repeat %end %externalroutine Parse Parameter(%record(Commandfm)%name C, %integer Option, %string(127) Parm) %integer Sym, P, J, Sym Type, L, T %routine Get Sym %if P # L %start P = P+1; Sym = Charno(Parm, P) %else Sym = NL %finish Sym Type = Type(Sym) %end %routine Get(%string(31)%name Stream) Stream = "" %while Sym Type <= 4 %cycle Sym = Sym-32 %if Sym Type = 1 Stream = Stream.Tostring(Sym) %if Sym Type # 4 Get Sym %repeat Get Sym %if Sym = ',' %end Parm = Parm.Tostring(NL) P = 0 L = Length(Parm); %signal 6,8,L %if L > 127 C_Rest = 0 Get Sym %if Sym Type = 7 %start C_Modifier = Sym Get Sym %finish Sym Type = 128+NL %and P = P-1 %if Option&NoDecode # 0 %if Sym Type&128 # 0 %start T = Sym Type&127 %cycle Get Sym %if Sym = T %start %if Option&nodecode = 0 %and T = NL %and C_Parameter # "" %start Sym = Charno(C_parameter, Length(C_Parameter)) %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Length(C_Parameter) = Length(C_Parameter)-1 %finish %finish Get Sym %exit %finish %continue %if Sym = ' ' %and Option&SpacesX # 0 %if Sym = NL %start Event_Message = Tostring(T)." missing" %signal 11,10,1 %finish C_Parameter=C_Parameter.Tostring(Sym) %unless Length(C_Parameter)=63 %repeat ToUpper(C_Parameter) %if Option&Upper # 0 %finish Get Sym %while Sym = ' ' %if Sym Type = 7 %and C_Modifier = 0 %start C_Modifier = Sym; Get Sym %finish Get(C_In1); Get(C_In2); Get(C_In3) %if Sym = '/' %start Get Sym Get(C_Out1); Get(C_Out2); Get(C_Out3) %finish %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Get Sym %finish %if Sym # NL %start Event_Message = "Malformed command: " %cycle Event_Message=Event_Message.Tostring(Sym) %if Length(Event_Message)#63 Get Sym %repeat %until Sym = NL %Signal 11,10,0 %finish %end %endoffile !Subsystem command interpreter %constinteger Max Alias = 511 %owninteger Alimit, Ap %ownstring(*)%name Oldp, Newp %systeminteger Alias Limit = 0 %systembytearray Alias Text(0:Max Alias) = 0(*) %predicate FOUND(%string(*)%name old) %integer q ap = addr(alias text(0)) %while ap < Alias Limit %cycle oldp == string(ap) q = ap+length(oldp)+1 newp == string(q) %true %if oldp = old ap = q+length(newp)+1 %repeat %false %end %Systemroutine LET(%string(63) Old, New) %integer x, lo, ln To Upper(Old) %if found(old) %start {first remove it} x = addr(newp)+length(newp)+1 {past the end} %while x < Alias Limit %cycle byteinteger(ap) = byteinteger(x) ap = ap+1; x = x+1 %repeat Alias Limit = ap %finish %return %if new = "" {removal of alias} lo = length(old) ln = length(new) %if lo+ln+Alias Limit+2 > a limit %start console("No room for definition of ".old) %return %finish string(Alias Limit) = old Alias Limit = Alias Limit+lo+1 string(Alias Limit) = new Alias Limit = Alias Limit+ln+1 %end %externalroutine ALIAS(%string(*)%name old) To Upper(old) old = newp %if found(old) %end %const %integer external not found = {event} 0 %const %string(4) exe = ".EXE", com = ".COM" %own %record(Progfm) Program %recordformat Parmpfm(%integer N, %string(*)%namearray Parm(1:9)) %ownrecord(Parmpfm)%name Parmp %system %integer Skipping = 0, { #0: ignore non-system commands } Echo Obey = 0 %external %routine Process Line (%string(*)%name S, %integer Show) {Expands any parameters "@n" in the command line} {S prefixed by '@' to force aliasing of command verb} %integer sym = '@', Flag = 1 %string(63) x %string(255) New = "" %integer P = 0, L = Length(S) %integerfn Next %result = NL %if P = L P = P+1 %result = Charno(S, P) %end %cycle %if Sym = '@' %start Sym = Next %until sym # ' ' %if '0' <= Sym <= '9' %and P # 1 %start Sym = Sym - '0' %if Sym = 0 %start { @0 => nesting level } New = New . ItoS(Obey Level,0) %else New = New.Parmp_Parm(Sym) %if Sym <= ParmP_N %finish Sym = Next %else %if Sym = '@' %and P # 1 New = New."@" Sym = Next { @@ => @ } %else X = "" %while Type(Sym) <= 3 %cycle X = X.To String(Sym) Sym = Next %repeat To upper (X) doing(x) %if show>=0 %and flag#0 {remember unexpanded verb} Alias (X) New = New.X %finish Flag = 0 %continue %finish %exit %if Sym = NL New = New.To String(Sym) Sym = Next %repeat S = New Console(Prompt Text.S) %if (Echo Obey # 0 %or Options&Opt Verify # 0) %and Show > 0 %and (Skipping = 0 %or Charno(S, 1) = '$') %end %ownstring(37) Do File = "" %integerfn Command Type Do File = Command_Command %result = 0 %if Exists(Do File.EXE) Do File = Do File.COM %result = -1 %if Exists(Do File) %if Search Owner # "" %start Do File = Search Owner.Command_Command %result = 0 %if Exists(Do File.EXE) Do File = Do File.COM %result = -1 %if Exists(Do File) %finish %result = 1 %end %system %routine DO IT (%string(*)%name input line, %integer show) {SHOW: 0 /Load program if required, don't echo expanded line { +ve / " " " " and echo expanded line (Set Verify) %integer Option = 0, flag = 0 %string(127) Parm %on %event external not found,11 %start %return %if event_sub = 0 {%STOP is event 0 as well} %if Event_Event=11 %start Console(Event_Message) %return %finish %if flag # 0 %start {still in subsys} Event_message = command_command." not found" %finish Console (event_message) %return %finish Command = 0 Program = 0 Process Line(Input line, show) Extract Command(Command_Command, Parm, Input Line) flag = command type %if flag = 0 %start {executable program} Load(program, do file) option = program_options %else %if flag > 0 { %EXTERNALROUTINE } LoadX (command_command, program_spec, option) %else {obey file} option = nodecode {******new*****} %finish %return %if show < 0 {Don't actually do command} Parse Parameter(Command, Option, Parm) %if skipping = 0 %or char no(command_command,1) = '$' %start %if flag = 0 %start {Executable program} Run program (program) {Loaded before command parse} Unload (Program_Load Point) %else %i7C!6 j }t^@2(@hgZ,^"$w* #dR0 "e6 ,x< K_BqVMHKNiLjT`T:Z!qv`y}fN&"8lyL;`r&!qRxQ{D~z!K_js!4"Q|v"X`}Kd#'k2NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z%Qv#p}SId:w Rs_&y$ }%Qv_""`:%wqaf";ovy8@:a@# yqVM&@d+D&y$@]mfpda]p`EWKwLqIXH&@eE`EX!qI}@w@#(NWqI\^C}M[DwG-}&Z~wZx%%N4:M%%N3}+!K_j8{}}8{Lu;`e}) 8iiRi d+G%'egk}y"A!! ! "AaAAAAAA!a!ba #!A!aaAa AaaaAaA"!AbA "AaCb!A!B!!aA#a" &bA AcU"N*A0bA! <#b;Ae"caA!#bCCCC!!!FaCCaa!!CCaC!baC!C#a"AV#b A #AAAAB A*1b!!cU"Aa TAeBaa!AA"A!! AAa!AAaAAa(A!!aAaB qA!AEAaaAaaa!!!cBa50!a!A!AAAaaaaa/!a"Aa :!a14d!aabAAa{aa!b Aa!AaaAaA!AB!A!aA!a!aAAABA!AaABaaAAC!fAA"m#e!!AAaaaAAaaA!AAa!A@!bA!aaAaA aaca!B!!aAA'AAaAAAAaaBAA!A"@a!aAAAaaAaCAAA!e!de dphabAa!aBABBaa#bfA"!!abdQ@D"Z$h%Qv#y"#:#&y$ }#%Qv_#""`:%#wqaf"z 4X` zfk zLu t/+tfkxLu|y?_^qYXyEqV}pie<Àvŀ, %NZ@,#plv 3"`d:Q@,dZ ZWe,}}fZ2d,,~@,v d,~EZ:,~@,v z`+}Ād y} "@Àv,}l>MgH,vMo3o2t>"KQ{D,D0>4v"K v,vLQ{DP>Tzfي ],d ^@,d:Q@ oxD:{#(HaELDPTWox(@Đ,Q0yu(@,d:Q@ gZ,,d wĐ ^",d:Q@ w,d:Q@l}p_&pt x>|2@v}@ !P`T:v!\ )R!h !t4X`dj@MdRĐ,dL+}dR,d:Q@l"KQ{D"eÐy,%Tdtv"e,d:Q@lv x,&@ld K_,d:Q@ldŀd;vfyԑqVMĐ,% qVM,d:Q@l K,d:Q@!) D:Q}ŀl ŀpK;}t>xD|X_#x ,> Lj,d:H!LjLu;`l>p:"$t_xX_|x%dK+Y,} fՀ9,v `T:,d:Q@lv}쉴,>0D4}K/8_&p<ox</!qv,d:Q@l&@ag\d j@2Ā,yEĀ0Ā4y@8 @<@@-DyEHvyE,Ll=p>t$Q`,>0D qI\^CyEQ@oHĐ,&Z0d!thW,o]0^wK;}\^Coxox,%Đ<@@&yD-ZH>y},d:Q@ldj@p̖ŀ K;}`"#4msxwv> D$f}(y?,z0fى4#K58ox8(U@M&"8,d:Q@ÀxvWrv$v>DK;oXZK;V;`%d4=yL;`,vL% &!qRĀ%,v Q{DĀ,@ y*}@ 4UdHKL@wzy}af",%ĀTx}ĀXv\d|>!4,d:Q@L&vt%dQ|Ð{ Ð{H Q|vĀ)Ā* X`}KdˁЅy},%Tdt=p'k2Ā0>4D84À8 Process Store Console CPU Level Prio Debt  since startuphours$KB of user store, swopping from unit at  on /: CXE Mouses SYSTEMtoo many entriesExternal entry points: is an old format file Cannot load .exe. not understood not a number==NONO,,GLACodeStack absolute current defaultstackpriv, open, decode, no remove spaces, upper case, Options set: ?.exe.STACK=TIME==Zero==DECODEOPENDEunusedSTACKdPRIVKdUPPERdSPACESULibrary list full-.NONE,, No entries =  = Let what= ?= renamed / Command: ::Pass:,,, deleted deleted:++New password set: New password:: Old password: not understood = ?NO:=,, " in number?" 9 / &  F j w PASSWORDiWILDWORDiERASEORDiTABSEORDifreeEORDifreeEORDifreeEORDifreeEORDiTRACEORDiQUICKORDis-256ORDis-128ORDiXDUMPORDis-32PORDis-16PORDis-86PORDiVERIFYRDiDUMPFYRDiMONITORDieh?ITORDiTIMETORDi TIMELIMITWIDTHIMITTABTHIMITSPEEDIMITPAGEDIMITSEARCHMITPROMPTMIT ERRORFILESTACKFILE  deletedfilesCopy: at  on dubious input and output*end*invalid access code NONEALLAllNoneNofails -   ,event *~X   :FC1 $?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"Cs_eX!34RUUh!34dffзӳŰ!4Գ#9!8!5$$A> B$C08L#9&"C" 'MM >' ("#4\BbD#: nBJ"#<#MM'"DC0 $# MM&'"%ѷC$"ѷ$$A>?$$A>$A1 0# # QDRD?&A'"3$$A>X#Y!Y!&\ ZB!$$A>З$1$HHX[&B0P [,&' ?P *&30HPїCKї$$A> Y #%$$A> qPrPB&(pX ?$P S?PE&T 41I2!,K2! 3s3B#9 3 >!$$A>!$$A>A>?&?$$A>O$$A>?$$A>"#: !?$$A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$2#XCPC'4"2$#PC'4" ?$$A>H!34"#(!BC$$A>]gA, X 63!4xWpX$!AP,ӱɰa!ɰz!%ȻұC-w(,AAl,X !A?(lAX=p<cAdXLӫ B0$PXklW',A',A,A"$PXLXilP(W,p,',AXH$A",A"X]L\% A?',lAXpA"A"(lA?h,fC0&,(,A?10 #8(,A"?',lA,A"A"XL A"(lA?WLx΀WA,X Ph4$0P88PXA"',AhW4XPX`A|,WLCWXMdPCWPx#PPxQ$aAC$PPX|(*A"?%a&aPhxPh8((CA??#?WX8|< 1P8|#X|&P|ȨXx XH|LJ@AXhxUhA` B0P$UPX$`PhrqC$7P8WP$PӨ#:WPrqCWQ$bACӘC0(A?A@:!4'!(XU#8(&A"?X-AC\h`#%`hX-AC880#$$?8X-A# WXpP#CC  GgA,X PyP#XyPX9< A>y@PILX6<3B0$', Ai4W4ȰPLXPHY,XiLlACK wP((,AAlmX !A?,$PhlWPAPЈ8P7,hlA&x8gA,&X )tAPy# XytAXy$1P8p1$ HA?#3P(p',AhW4X?hW@$PxPtXtXXILC0N&PtX=A&(AC0,XXx\&QPXxX=APAX($8A\CXhplfC0bX8x<0B0XL+ A$ $ A&1P8xX=A$PPQXxX=A!AXmX8x<P6X|#3AӨ,#3C4C&~g),AAlX !A?f#8(l A"?(l,A"?y* gALX ,$jA&W`=W<X9!:WHC*#$0 ;$QcWTX#WHW,yE wP((,AAlX !A?$0P84Px`# Xx`Ax,ShiAC$1P84(,A"?8,(lCA??C0$P82(HlA??C0>Ө!6%P8C,',AA"lA"(lA?8l#HA??#8#A"?#$Ҙ',lA?X PlX Pp$W%bAzP,Cr',AA"XMLL$ A?WP0XX,\P!7@FA# @JAHhH`@hHCpB06',lAA"X=L<# A?$ $ A'!A$P,% DH@HX8#6HH@HCFXH4C0XXdP,XhP0XXl$aA0$Pt$dW XlP$ $!APpCP&PpP|8dA$nAܘXHtL&APHt@! WA0X PPY8X9,P9Y?HXI<LdW@H`AXY<\Xe$lPhtrl qlt$jAWH`,W<$QXhlWT,WHC8,.&AB0WHX4#8WHXH4L@!!8WHW,rq$P&QPX(PX8,A(4A!CXH8,APPXLAX(P$5A\CBXL8,APP4X(P$5A\XhHl'aPhHX8L&1P8L[hX[H kC *X,P,X0P0XXcAXHPC(X,P,X0P0XXHXhAjXLPCpx؀WA,!X PhdPXh$0P8lP8p]hdW@ӽ!7-rA',AnA"AZ(,$:A\',$:A\mAJȠ@^ȝPxr\q\XHxLDC0:X]\U!8`*Pm xX=L<# dA?$ $ A$PdPhP P &P|P=A PTXC0bXM L&APM = $APX@AXXT\XelPhlX5<P8pXX[hdW@X|UAŠ*B0`PX $P,X (P0X] \$aACwP((,AAL)X !A%1P=,A-$:A\Ȱ*Pt$P P P|P.lAC0$P',AjA"A"hA"',AhtW4XXx\XhtlAlXxB0.@@H$PPXrq]hW@',AdA"A(L$:A\',$:A\mACmf!7-bA.`AC0`'LA\A"',AhW40-@8rqX#4$PXPxWA, X %A#>.ZA#8X.XA!5%y$"# WP(A, X X8<X[cAC0rXXYjA`C0NXHLXX\UdA||BFJNRVZ^bfjnrvz~$((..44::@@FFLLRRXX^bD^nnt t Filename Size A $$**0066<<BBHHNNTTZZ``ffllrrxx~~ LL"RR&XX*^^.dd2jj6pp:vv>||BFJNRVZ^bfjnrvz~$""((..44::@@FFLLRRXbDXhhn t Filename Size Abasic:search basic: %begin %conststring(5) SYSTEM UNIT = "SYSX_" %system %routine %spec OBEY(%string(31) from, to, %string(63) parm) %system %routine %spec LET (%string(63) old, new) %external %routine %spec CONSOLE(%string(63) Mess) %external %routine %spec DO (%string(127) line) %external %routine %spec LIB (%string(63) parm) %external %predicate %spec EXISTS(%string(31) file) %system %integer %spec OPTIONS {Options = -1 to run subsys in diag mode} Console ("Process started ".DATE." ".TIME) Let ("C", "Copy") Let ("E", system unit. "EDITOR:HARDECCE") Let ("F", "Files") Let ("V", system unit. "EDITOR:VECCE") Let ("BE", "Become") Let ("IMP", system unit. "subsys:Compile IMP|") Let ("FORTRAN", system unit. "subsys:Compile FORTRAN|") Let ("PASCAL", system unit. "subsys:Compile PASCAL|") Let ("BASIC", "basic:basic") Let ("HELP", system unit. "help:help") Let ("LAYOUT", system unit. "text:layout") Let ("LIST", system unit. "text:list") Let ("COMPARE", system unit. "text:compare") Let ("TELL", system unit. "relay:tell") Let ("MAIL", system unit. "relay:mail") Let ("OS32MT", "emul:os32mt") Obey("Startup.tmp", "Out:", "") %if exists("Startup.tmp") %end %of %program C!IX} NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z#(e}&y$@XLj# y~wZx&POut: Startup.tmp Startup.tmp emul:os32mtOS32MT relay:mailMAIL relay:tellTELL text:compareCOMPARE text:listLIST text:layoutLAYOUT help:helpHELP basic:basicBASICsubsys:Compile PASCAL|PASCALsubsys:Compile FORTRAN|FORTRANsubsys:Compile IMP|IMPBecomeBE EDITOR:VECCEVFilesFEDITOR:HARDECCEECopyCProcess started SYSX_ 9XFH!3410!81!5$$A>rB@!4B"; C@!$$A>r #$$A>rB C B$P#EE&Q'1"C,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U n?134C0DD C wP(p0W',A*',A*,AP(,W,p,',A*X,<&1Ȱ ҼC<,,AWh',A*W\',A*'lA*AW\',A*W\',A*'lA*AW\',A*W\',A*'lA*AW\',A*'lA*hAW\',`A*'lA*HAW\',BA*6W\',0A*'lA*&AW\',A*'lA*AW\', A*'lA*AW\',A*'lA*AW\',A*'lA*AW\',A*'lA*AW\',A*W\WC0&',A*'LA*WPxA. X!%$`A@# !5$bA@#$aA@%2Q=\$P,$P0Z$gA<&$gA XH!;$PPW,$aPg0$W$jA&W PC:A=6XHPPA>9 read da(1, block, b(0)) %unless previous = block previous = block byte = n&511 %result == record(addr(b(byte))) %end %routine show all %integer j,n %record(hfm)%name H %routine Add(%string(31) s) %owninteger n = 3 %owninteger pending = 0 %return %if s = "" spaces(pending); pending = 0 printstring(S) n = n-1 n = 0 %if length(s) >= 22 %if n <= 0 %start newline n = 3 %else pending = 24-length(s) %finish %end printstring("Help is available on the following topics:"); newline n = R(0)_Finish %for j = 1,1,n %cycle h == r(J) add(H_key) %if H_Flag = '+' %repeat newline %end %routine find topic(%integername start, finish) %integer High, Low, P %record(hfm)%name H low = 1; high = r(0)_finish %while low <= high %cycle p = (low+high)>>1 H == R(P) %if H_Key = Topic %start start = H_Start; Finish = H_finish %return %finish %if H_Key > Topic %then High = p-1 %else Low = P+1 %repeat start = 0; finish = 0 %end %routine copy(%integer from, to) %integer last = nl, sym %integer quiet = 0 %integer n, byte, block, next block, next byte Block = from>>9 Byte = from&511 Next Block = to>>9 Next Byte = to&511 n = (next block-block)*512-byte+next byte quiet = 1 %if control = '!' %cycle read da(1, block, b(0)) %cycle sym = b(byte) %if last = nl %and sym = '?' %start {more detailed info} %return %if control # '!' quiet = 0 %else printsymbol(sym) %if quiet = 0 %finish last = sym byte = byte+1 n = n-1 %repeat %until byte = 512 %or n = 0 %exit %if n = 0 block = block+1 byte = 0 %repeat %end %end %begin %include "Sysinc:command.inc" Help(Command_Parameter) %endofprogram NA   BC DB ,# E1D3E4 D56$CBO/ $  &,.F! $PG )  +,  ,$ G1H3 6(QI 1 4 , G J" %R <  >KK  " L. 1SM E N NO  TP J LQ R SQ O S RQU0 S V T H? UjH?p 24Subsys Limit Stop %if State # 0 {Terminate batch job} Init Streams Console ("*Subsystem failure") %if N < 0 Dump Contingency(Cont) %if Options&Opt Xdump # 0 ->More %end %endoffile 0C!/fD}$Yr( s_~wZx%%N3}+%%N4:M$S@*#4"K0&y$ }6fS}}<%Qv_B""`:%Hwqaf"N%QvT"ZZ_;s[` d+Df=l[z`r&@xX_&@~UM[D*;eox"`EX!U}}rqI}@#!t(w@ !yW`EXg\!``EY}`EWKww:`wag\:a@:Hayu$wF6g\]q["iZ}l:`afkNW#xgQK3X`QKJ'uxp` twG-}&q["op`,fZJ_2 F`:p8 wZ}> X/Xg\D `aJ wp`P X/YV wL\ NfZXb uX_Lv@h Up`n &y$@t qIXHz X_Lv"8 yA yA X_d/@ +yd A |"=+ %K"=+ ULu;` ʉ8 aX }+EGZ $&~v, TU~u@ k<@ ~u@ : (QT`UdR5S`:w}R-^e&Ze# y"e&@qVM&@  e&@fS<]P!t^Z}"k;ov( }.(v4%fZK:9sv@fZFΙ/vL7eERyy8@XqI^Hmfpdzda]pj i p4iiRv"d|Vd+GeZ^HVsypgoMY}o}eQth#p}SId:w Rr8{Lu;`t8{}}3e}) 8::wK4g afxXH!;/;`!X"#($YNWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z  gitwZ8DZ .3ns  '9=A"(05<BGLP^u$)1<EJSx|MT>E=TYSf6=V` 5=2 ,C;qudQ@qX`X_& qT{ 4:y qIT8d+Dz`&@X_&@qI\^C}M[D}`EX!}}qI}@#!t(w@} qI`EX`EXg\`EY}`EY}`EWKw:`wag\:a@:Mpayu"&%wF6g\q["iZ}:`afk!qIQKxgQKX`QK'uxp`wG-}q["op`fZJ_wWwZ}X/Xg\w`wp`X/YwLfZXX_Lv@Up`&y$@qIXHX_Lv"8yAyAX_d/@yd ew"ew~l=.ULu;`8aX}+EGZ&~v,U~u@<@~u@:(QTyqLXUdZX}R-^e^"# y"e&@qVM&@ e&@fS]!t^Z};ov}rX (Q_(vfZKsvfZ/veE !y8@qImfpda]pd+Dd+GyEv;>9 QQQXsf.Q@syW eyqT^9}MYXMY|]ox!"MY}eQth#p}SI,z,d:w R'X K) 8X`}fxXH%Qv9da}Xx,Lv@^@z z}$OUTTYPE*Subsystem failureLIB list clearedAll LETs removed& seconds CPU milliOUT: not found .COM.EXENo room for definition of Malformed command:  missing loadedCannot access .exe Cannot load No space for stackData: *No space for stackFatal error during diagnostics*Diagnostics being sent to Cannot load diagnostic package Cannot load Ref:  0OS<,<-0HAH whose file?to whom? PC PS Invalid addressA@@*Contingency fails *Create segment fails ) fails -- output(input(*Close  -- Cannot offer file to input ended -- *Cannot open Null:Out:NULL:IN:invalid stream numberinvalid DA channel numberIllegal filename  too many open files<   &SUBSYS:STANDARD SUBSYS:BATCHSUBSYS:SUBINIT SUBSYS:MDIAG "%H!3410!81!5$$A>D$@#0#DD&A'1"C,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>DB@!4B"; C@!$$A>D #$$A>DB C B$P#EE&Q'1"C$A1 0# # QDRD?&A'"3$$A>DA>D2#XCPC'4"2$#PC'4"?134C0DD C w(,Apd',,A2&1$JBC2(LArDqDx)wp0X|!<-<4A$ $$ AP,X8P|X(,$?Ax$gp,X|P8%1P6Pm|xwP(p`-$?A0P=-$?A0P=ȽPȭP$PXMȤ@8.r,q,XHTC0&XLXhA4-<4AX(H$$ Ax4WP(pPXP@X6 P8DPXHX0$bA"X,XX,$kAX82Z= |$Px#Wp, V!P!%x-<A%$$ AgP((,ApPx#Xx$ $$ A8,3B0 `!((,A#(,A',,AhTA$QXhAXXŰ!XhbZm LX LX<P6C|L(l$8A$PR$fAAFPXP%APAXXt'QPQXhiZm Zm Pa$PP TX8#$4AXZ LXPXm DAxgP((,ApP20#%02V$aA0PL,XhLAVx(gP((,ApPx#Xx$ $$ A8,3B0 `!((,A#(,zA',,Ah|A$PXhA$XŰ!XHBZM dX] dXePdCRŰ#5A!XU#9XKPG,ZlAX]XeZh0PeX<P5 XU,C02X, !P,ZXm @Ah#P,ZXm @A&XXH,PIxYwP(p,$`A:xgP(p,XPlX= @C0JXU #9k&PxXP,X\cAXXIPITPY $aQiC> !3Cf!X<U< !3AXX!XXU !8A@XH#CX]XeX&aPeX= @!6 !3ACbjWP(pTX LX<P8,X DPPAX0$kAX$PkAXhPAxHwP(p,X D#5$QlATxwP(p,AxWP(pbZm dXP,X<P8X!9Z dȭP#Z dȝ PXHUM H!4dAvXXC0Xm dX,U#:U#7U#4U !4x(0$?AlAX88U84!5X@B02X8U<#8$Қ&P8" XH4PG,XX@XhA$QQX@H(t$4AXl`AbXh@[hxPh#:XPXl$cABX8P8Xl$kA0XB0X\C0PtX`P|XHdPHXXPPXXhTPh$@nrlqlX8Cj$PX\PPP]?AP(-x*wP(p,$jAxwP(p,XX<0 #3AxwP((,AppX= HP8l$`AA,A:AXhlAx#gP(p0$AP, !2# X8ӳ&KҳCx#gP(p,X#('P$jA" xwP(p,` AxgP(p,X#)'P` A" xwP(p,$lAlxwP(pL$PeAr,q,xWP(pLPX8%P"wP(pXP,XXmA#3CXhAV-<DAA?X$@PIPIPICpwp, dx( pXhpXts<@ 3s\ Ps^ ZpP\jAXXIPMXXYP]\XiPm0(3wsN@ D N $ "?CrRwpPx#Xx$`AH$AAxhAC0,$aA',AAA$aA>P04h,AP,'PX|wP$`ArXhACvACj`kygP(p<%P4X60#=Px,ȰQ,XP0CRXdP0X #$P0##$ P0XH0JPH0Th,AXX,#A(xPX4QX0XhX,PX80ȳPXà!5mA-AAXhP8XHXT Y#$PX8#U#$ P8-00AXh8AXhA2Xh4!`A`CbwP((,AplhLAXdPdhLAXhhALx#wP((,Ap%1P8hlAXðB0ZXl#$ P!7ưPC<PZhA0XH#-<A$ $APHpZHTPXlhlABXhAXh!`AhxZgp0Pm|XPlX=$P8,X,C 'P,Ƞ0 ZXXXHPICx(gpHA"Xs< 3P8,Xs@ P0X,C0XHZ PDXY UPX,XiCRs Z0P@\iAX8DXB0.XX$$@PIXh@A-<AA?# # XdPXmlPiCtX8X s ZP4XX,mAXm#7$B0PX80!;mAXm AC63C"',$A'LAA#$0P80mA$`AC!I!owP((,Ap$Ph,Alxwp|A(4AAzP,[LP0X,PLCD$UaA܄',A',4A,AP(t(4XtAzA?CfQE@0C/`X$Q$ep,Ap,',A',4A,AP(x(4XxAȰ Ӣ&ҲJҢ(4nA?4A(xwpDA$PA0P, !4y&B0PA B0DA)0lA90ӽ ;#Ƞ &1ҩC090"0Aږ-A# MP&AXY,]DPMPC|P wP((lAp $PX=P8X PXPX$PXM(PHPxCXx%QQ]pXhPm(XP$$PeAjX= LXPX#X\&QXP,XXjA$`Ab$`AƚXPXHPM XXP]x8P=Xmp`B0 hAt#:0L&ZlA$1Q=pX$&PȠ,Әl&ҨIlҘlHlXl EPM$`PhlPX=P=$PX&P$QJ@,#2" X]Xh'aeQXZ5P<U#3CX LXPȭ P,$`At',LAmAXŐn C0BXM dXTPX] PTPXXe#>XU&QXX<P7,XlAL$`AH\#&@\#7X`ƠP`A%[(T$P$$@PM(Aь$`AĨ$`AXhA$PP]]p$aAѸA$`mtXl#3ARAΌA=P3!2"$QmPAX`ð#3ApC|"#VwP(p 0P P q,PxpX<8P=XP=|sp$stW $AIsX$aeP XtPXpPKPMPPMHTP]HdPms LPMPPP9$PmAX=ȳPP=H.ŠB0<%@\$@PHTPHXXXDPX\XhHPh`]h4Av] hTAvA$`AFPptp,hlAZP,XXP|X=PX P$$P(P$PpPXIPMX] Y! T#'PZAXmh!`#($`PmhHA$&PZ$0P<X =',A'L APAH\#3AʹCLq,%PH.Ő!7@.@.@H8HX.ZB0h-t8AӢPŠ.C00$P8Š?!5P8Xh4PhZZB``FffJllNrrRxxV~~Z^bfjn3.1:B <SUBSYS:STANDARDSUBSYS:STANDARD Command: ANDARDCommand: ANDARDCommandxhhXH T$ l  hhX0ose file?ress|@COMoom for definition of ticseconds CPU definition of ticsk 9  T:Oonds CPU definition T:Oonds CPU defymbol(':') & 102 %else & 103 space %if from&15 = 0 & 104 %finish & 105 space & 106 %unless valid(from, 4) %start & 107 newline & 108 printstring("Invalid address"); newline & 109 %return & 110 %finish & 111 phex(integer(from), 8) & 112 size = size-4 & 113 from = from+4 & 114 %repeat & 115 newline & 116 %end & 117 %systemroutine DUMP CONTINGENCY(%reco   #   4 9 B FG JJ  NP Q S V X #f  m s  u v z~  +  - 0    ,  9;>  8 < ? 37 8 AB G JGH L   $()  / 78: >@BC J M   U X     &( = @ ` @BJKR RS ]^  e i *  5 9!9 p <"L r P #Z#] $b%c$f &i#j 'l'r&r y (("( )*) !* %, ,+  ,   uZ"{5}6: 3 ;  <=< = >   ?@ %A. ?1 ?F APQ@?B  C  DE  FD GG! * /G1 HINR`hm{H IIII JJ   K.L/ M1K2N2  O5  ? PYOZP[ aQeRf qQRS NM TU TUV W  LK XI YY  Z [ \]\   Z4^4 # ^?]@_@ &C [ZX ) F  ED + C%/`1 4#a 0 2b c   db  " d+e+ 9.cbf ; g < ?h i  jh B j)* ih D g(k* -#l e mnopqrstuvwxyz{|}~ m # 15:BE q GI L uPS Z] cfj m ~   $   mnopqrstuvwxyz{|}~  ~}yvu   p " $o% * ,n-  5m6  C ;EG [`f                  " (,- ;<  NX ^_ h jk nsz ~             Hs         " ' 5  A CD   1 $.0 3m           , 9> GH JL LQ UVW X\ c   $& & "%)+,, /+ *  , \ _# 1  5 7   # :& .1 ;2456 Q BUZ` p sx  H      7 T  U W  " &(+ Z/ T fkp yz a (* -l e  j m#& * 25 q A JKNST  Z^ d mqr           1       $()  : KMOPRR U     + , ./ 2 8; BE MRY ` c  hj pq z}                       &6!       #  1 BEIL g l qst x ~ "   " %      #    $% &) 2{Mouses Standard Subsystem} %systemstring(7) Version = "FC1.0" %conststring(16) Diag Prog = "SS:MDIAG" %conststring(14) Sub Init = "SS:SUBINIT" %conststring(14) Batch File = "SS:BATCH" %conststring(13) Standard = "SS:STANDARD" %constinteger Wsp = 7, {work space pointer} Code = 14, {code base} Gla = 13, {gla base} Link = 15 {subroutine link} %constinteger H = x'FFFF' %constinteger Diag Stack = 1200, {stack required to run MDIAG (bytes)} Basic Stack Size = 8 {god given stack size} %owninteger Subsys Limit {subsystem stack limit} %ownshortinteger State = -10 {0=forground, 1=background} %constinteger Opt Monitor = 1, Opt Dump = 2, Opt Verify = 4, Opt Xdump = 64, Opt Quick = 512, Opt Trace = 1024 %systeminteger OPTIONS = Opt Quick, DEFAULT STACK = 10, {60K for now} DEFAULT TIME = 60, {one minute} TT MODE = 0, {Terminal mode} Obey Level = 0 %externalstring(17) Console int = "" %externalstring(17) Prompt text = "" %externalstring(17) Command prompt = "Command: " %externalstring(15) Error File = "" %externalstring(7) Search owner = "" %recordformat Filefm(%integer Unit, Owner, Name1, Name2) %recordformat Parmfm(%shortinteger Dsno, Dact, Ssno, Sact, (%integer P1,P2,P3,P4,P5,P6 %or %record(Filefm) File %or %string(23) Text)) %recordformat Contfm(%integer Ps, Pc, %integerarray R(0:15), %integer Eps, Epc, %integerarray Er(0:15), Efpr(0:7)) !FC! %recordformat restfm(%string(31)%array IO(1:6), !FC! %integer Modifier, !FC! %string(63) Parameter) %recordformat Command Fm(%string(31) Command, {FC} {(} (%string(31) In1, In2, In3, Out1, Out2, Out3 %or %string(31) %array In, Out(1:3) %or %string(31) %array IO(1:6)), %integer Modifier, %string(63) Parameter) {FC} {) %or} !FC! %record(Restfm) Rest) %external %record(Command fm) Command %owninteger Seg Mask = 2_1111 1111 1111 1111, Current Segs = 0, Work Segs = 0 %owninteger C Level = 0 {current contingency level} %recordformat Eventfm(%integer Event, Sub, Extra, %string(63) Message, %integer Pc, X) %externalrecord(eventfm) EVENT = 0 !******************************* ! ! {diagnostic routine} ! %routine REPORT(%string(23) TEXT) %record(parmfm) p p_text <- text.tostring(nl) svc(4, p) %end !******************************* %include "Sysinc:Ascii.inc" %include "Sysinc:Direct.inc" %include "SS:specs" %include "SS:io.imp" %include "SS:general.imp" %include "SS:filerts.imp" %include "SS:loader.imp" %include "SS:Parse.imp" %include "SS:bci.imp" !========= SUBSYSTEM ENTRY POINT ========= ! Control reaches here when the subsystem ! is loaded by the system. ! The floating-point registers contain the startup ! message. %externalroutine subsystem %alias "%GO" %record(parmfm) P, Q %record(Contfm) Cont {contingency info at outer level} %label Trap %integer N %ownstring(23) Batch In = "T:" %ownstring(15) Batch Out = "T:" *lhi_0,EVENT *st_0,4(Gla) {prepare for events} *st_0,8(Gla) {new standard} *stme_0,P *st_Wsp,N *stm_Gla,Old State Subsys Limit = N&x'F0000'+Basic Stack Size*1024-200 Stack Limit = Subsys Limit Seg Mask = Seg Mask !! 1<<(Old State_ Gla>>16) %c !! 1<<(Old State_Code>>16) %c !! 1<<(N>>16) SubsysFile_Code Segment = Old State_Code&x'F0000' SubsysFile_ Gla Segment = Old State_Gla SubsysFile_Code Base = SubsysFile_Code Segment+16 SubsysFile_ Gla Base = SubsysFile_ Gla Segment SubsysFile_Head == Record(SubsysFile_Code Base) SubsysFile_Defs = SubsysFile_Head_Defs_N SubsysFile_Specs = SubsysFile_Head_Specs_N SubsysFile_Code Head = SubsysFile_Code Base+SubsysFile_Head_Code Disp&H*2 SubsysFile_ Gla Head = SubsysFile_ Gla Base SubsysFile_Stack Limit == Integer(Subs   #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENTHELP WANTED1, wHELP1P((,AALX !ATOUPPEROPENDAREADDACLOSEDA STARTL FINISHP LT CONTROLX H\$0P4ȰPA(lA TOPIC1t TOPICS1  Fix:Help.da $P$aW\ $PX t  Ә,P ,(,AӡPX Š!a '!(, | $PX   ? ,.A  A x (tA htWP #XPhLA XHLLD XXP\dA  No information about ',A,AWHW,3 3Help ?   will give a list of the topics available WH W, +-R N -gA,X PREVIOUS BLOCK, BYTE0 06@ $AcPi iPi, X=6$8lA P,P0V$aWh X,P XĠP0 8lA y8SHOWALL 8wA,X J, N0 HB4<ADD S1, <w*,AALX !A N PENDING ?:,3z XmW $P ,WH XM'APM Z,P"$@PM D3 W, $cPm L 0 5P= JI *Help is available on the following topics LnWHW, $` AX1<P90 P9<$ $!AP,\&P,P8 k AP4 ӡŠ+qA X,U8AU<aP8 W, yU FINDTOPIC START FINISH UWA,X HIGH, LOW0 P4 HB8 X$1P90$` AXP, X0Y, Z,P4 j AP8 (tA  XIXQ\PTXiX98<XP y `A X4'P,XI4L&API0  XY$`PeX9$P eCOPY FROM TO eWA,X LAST, $:P9, SYM0 QUIET4 $@PI4 N8 BYTE< BLOCK@ NEXTBLOCKD NEXTBYTEH iiPi@ XYPPY< XiiPiD X90P9H [i@V`FA[Y< SPY8 XHX@!$QPY4 p$8lA P,P0XY@$aWh rX<8lA aPi0 X,Ű 1`?1 XXŠ!@y $@PI4 l XY4qW< yXi0lPi, X9<&1P9< X8'P8 0,  X@&P@ $0P9<  \BLOCK w%GOP(A,X : R  \\Z  L COMMANDCOMMAND EXTRACTCOMMA PARSEPARAMET X=<A x A xSQUEEZE S2 gA,X T1, $08, Jl FPHtS$!APXl&QPXlPXp X%Aa` X%A1@x(,xA? XXlUXpAUXtPp X(,A x LOOKUP S1, LOW HIGH WAtX Jt PX|'a$!APht\&aPhtPhx 8lA (,A qx Uhxnt Segs, Old work segs = Work Segs, Base Load, j %record(Progfm) Prog %own %record(Parm fm) PP %on stream error %start {End of .COM file or $EXIT} Obey Level = Obey Level-1 Work Segs = Old work segs Current Segs = Old segs Close in(0,0) In stream(0) == old command {Restore buffers, which were saved in the files} Read block (old command_key, old command_Bn, addr(old command_buf)) %c %if old command_key # 0 %and old command_Bn >= 0 %if old report ## null %start Close out(0,0) out stream(0) == old report Read block(Old command_key, Old report _Bn + 1, Addr(old report_buf)) %if old report_key # 0 %finish Select input(0); Select output(0) Skipping = old skip Echo Obey = old echo Obey Parmp == old parmp %return %finish Parmp == Parm %if Obey Level = 1 %start Relocate(Loaded(Loaded Files)) %if Loadup(Prog, Batch File) %finish Obey Level = Obey Level+1 Base Load = Loaded Files+1 %own %byte %name len, p, limit {Split text param on commas} params = params."," limit == char no(params,length(params)) Parm_N = 0 p == length(params) %cycle len == p; j = 0 %cycle p == p ++ 1; j = j + 1 %repeat %until p = ',' len = j - 1 Parm_N = Parm_N+1 Parm_Parm(Parm_N) == string(addr(len)) %repeat %until p == limit old command == in stream(0) in stream(0)== null FD {Must clear INSTREAM(0), or OPENIN will return the FD pointed at by {OLD COMMAND to the free list when it calls CLOSE IN(0) Open in (0,from) Pack(to, PP_File) %if PP_File_owner # OUT Colon %start {Change report streams} old report == out stream(0) out stream(0)== null FD {for output must save half-written buffer in file..} FD == out stream(0) %if FD_key # 0 %start {forget about NULL:, T:} Write block (FD_key, FD_Bn+1, addr(FD_buf)) %finish Open out (0,to) %finish %if State < 0 %start State = State+10 Options = Options!Opt Verify %if State # 0 Run(Subinit) %finish Current Segs = Current Segs&(~Work Segs) Work Segs = 0 %cycle Doing ("") Select input (0); Select output (0) Unload(Base Load) Echo Flag = 0 Tlib_Name = "" Unstack Conts(1) Tidy Segs Console Int = "" Terminal Mode(0) %if TT Mode # 0 Break output Print String("Command_Command @") Phex(Command_Command, 8) Print String(" = ") Print String)Command_Command); Newline Get Line %until Line # "" Do it (line, 1) Show Elapsed %if Options&Opt Monitor # 0 %repeat %end %end %of %file f flag < 0 {An obeyfile} Obey (Do file, "OUT:", command_parameter) %else flag = 0 {Further event 8's now.. Run Program (program) {assumed to be in 'program' %finish %finish Close all(0) %end %external %routine DO (%string(127) What) Do it (what, 0) %end %routine Show Elapsed %integer N, ms %string(63) S %owninteger Elapsed = 0 S = Time N = CPU time ms = N - elapse   #READSYMFNPROMPT  NEXTSYMBOL SKIPSYMBOL PRINTSYMBOL PRINTSTRING$WRITE* SELECTINPUT0 SELECTOUTPUT6 OPENINPUT< OPENOUTPUTB CLOSEINPUTH CLOSEOUTPUTN RESETINPUTT RESETOUTPUTZTIME`DATEfCPUTIMElCOMREGrREADxPRINT~PRINTFLSPACESPACESNEWLINENEWLINES EVENTDEVENT%externalroutine To Upper ( %string(*) %name S ) %end %recordformat restfm(%string(31)%array IO(1:6), %integer Modifier, %string(63) Parameter) %recordformat Command Fm(%string(31) Command, ((%string(31) In1, In2, In3, Out1, Out2, Out3 %or %string(31) %array In, Out(1:3) %or %string(31) %array IO(1:6)), %integer Modifier, %string(63) Parameter) %or %record(Restfm) Rest) {Symbol types} ! ! 0 a A . SP NL o ! ( ! : : : # t ? [ ! 9 z Z $ h { ! : e < ! _ r ! - ! ! 0 1 2 3 4 5 6 7 128+closing bracket ! %constbytearray Type(0:127) = 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 5 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 6 {?}, 4 { }, 7 {!}, 6 {"}, 3 {#}, 3 {$}, 3 {%}, 6 {&}, 6 {'}, 128+')', 6 {)}, 3 {*}, 6 {+}, 6 {,}, 3 {-}, 3 {.}, 6 {/}, 0 {0}, 0 {1}, 0 {2}, 0 {3}, 0 {4}, 0 {6}, 0 {0}, 0 {7}, 0 {8}, 0 {9}, 3 {:}, 6 {;},128+'>',6 {=}, 6 {>}, 7 {?}, 6 {@}, 2 {A}, 2 {B}, 2 {C}, 2 {D}, 2 {E}, 2 {F}, 2 {G}, 2 {H}, 2 {I}, 2 {J}, 2 {K}, 2 {L}, 2 {M}, 2 {N}, 2 {O}, 2 {P}, 2 {Q}, 2 {R}, 2 {S}, 2 {T}, 2 {U}, 2 {V}, 2 {W}, 2 {X}, 2 {Y}, 2 {Z},128+']',6 {\}, 6 {]}, 6 {^}, 3 {_}, 6 {`}, 1 {a}, 1 {b}, 1 {c}, 1 {d}, 1 {e}, 1 {f}, 1 {g}, 1 {h}, 1 {i}, 1 {j}, 1 {k}, 1 {l}, 1 {m}, 1 {n}, 1 {o}, 1 {p}, 1 {q}, 1 {r}, 1 {s}, 1 {t}, 1 {u}, 1 {v}, 1 {w}, 1 {x}, 1 {y}, 1 {z},128+'}',6 {|}, 6 {?}, 6 {~}, 6 {?} %externalroutine Extract Command(%string(*)%name C, Parm, %string(127) S) %integer P, L, T, Sym C = ""; Parm = "" P = 0; L = Length(S) %cycle %return %if P = L P = P+1 Sym = Charno(S, P) T = Type(Sym) %if T <= 3 %start C <- C.Tostring(Sym) %if Length(C) # 31 %else %exit %if Sym # ' ' %or C # "" %finish %repeat %while P <= L %cycle Sym = Charno(S, P); P = P+1 %continue %if Sym = ' ' %and Parm = "" Parm = Parm.Tostring(Sym) %unless Length(Parm) = 63 %repeat %end %externalroutine Parse Parameter(%record(Commandfm)%name C, %integer Option, %string(127) Parm) %integer Sym, P, J, Sym Type, L, T %routine Get Sym %if P # L %start P = P+1; Sym = Charno(Parm, P) %else Sym = NL %finish Sym Type = Type(Sym) %end %routine Get(%string(31)%name Stream) Stream = "" %while Sym Type <= 4 %cycle Sym = Sym-32 %if Sym Type = 1 Stream = Stream.Tostring(Sym) %if Sym Type # 4 Get Sym %repeat Get Sym %if Sym = ',' %end Parm = Parm.Tostring(NL) P = 0 L = Length(Parm); %signal 6,8,L %if L > 127 C_Rest = 0 Get Sym %if Sym Type = 7 %start C_Modifier = Sym Get Sym %finish Sym Type = 128+NL %and P = P-1 %if Option&1 # 0 %if Sym Type&128 # 0 %start T = Sym Type&127 %cycle Get Sym %if Sym = T %start %if Option&1 = 0 %and T = NL %and C_Parameter # "" %start Sym = Charno(C_parameter, Length(C_Parameter)) %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Length(C_Parameter) = Length(C_Parameter)-1 %finish %finish Get Sym %exit %finish %continue %if Sym = ' ' %and Option&64 # 0 %if Sym = NL %start Event_Message = Tostring(T)." missing" %signal 11,10,1 %finish C_Parameter=C_Parameter.Tostring(Sym) %unless Length(C_Parameter)=63 %repeat ToUpper(C_Parameter) %if Option&32 # 0 %finish Get Sym %while Sym = ' ' %if Sym Type = 7 %and C_Modifier = 0 %start C_Modifier = Sym; Get Sym %finish Get(C_In1); Get(C_In2); Get(C_In3) %if Sym = '/' %start Get Sym Get(C_Out1); Get(C_Out2); Get(C_Out3) %finish %if Type(Sym) = 7 %and C_Modifier = 0 %start C_Modifier = Sym Get Sym %finish %if Sym # NL %start Event_Message = "Malformed command: " %cycle Event_Message=Event_Message.Tostring(Sym) %if Length(Event_Message)#63 Get Sym %repeat %until Sym = NL %Signal 11,10,0 %finish %end %external %record(CommandFm) C %begin %integer j C_Command = "ABCDEFGHIJKL" Print String("C_Command = ".C_Command); Newline Parse Parameter(C, 0, "(foo) a,b,c/d,e,f!") Print String("C_Command = ".C_Command); Newline %for j = 1, 1, 6 %cycle Print String("IO("); Write(j, 0); Print String(") = ") Print String(C_IO(j)); Newline %repeat %endofprogram  C!N$}.*0h xEmfpU#p}SIyd:w R$.NWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Za+aA!!BAaAC!A!b K!aaAA! @aAABAaaa!A#ABA!AA!ABBAA!/b dQ@D"Zx mfpÀv #p}SIÀÀd:Q@,vdK}z!,z,Ðyu d:w RĀ`T:,d:Q@zd>z@K}+ox,> #8`2A) = IO( C_Command = (foo) a,b,c/d,e,f! C_Command = ABCDEFGHIJKLMalformed command:  missing    W $?$$A>,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U nH!3410!81!5$$A>#$$A>&C?134C0DD C H!3410!81!5$$A>$@#0#DD&A'1"CH!3410!81!5$$A>B@!4B"; C@!$$A> #$$A>B C B$P#EE&Q'1"CX#Y!Y!&\ ZB!$$A>A>?$$A>GHOs/" B 'X=2#$$A>&r0U> ?P7D&D"$2$#PC'4"H!34"#(!BC$$A>BgP(A , X xWP((,AA 0X !A$06X$ҫ$PH,PHXXUX!4x&QPX,%A\aPh=pAӱPɰB :XӚŐC0(@',AAf*A"# ` !7XHӤ#2#CjXYB b,)A\APH&P@ !9XXef!3C.X8ӳŰ?C0X @#AfCCwA , X X8<XHL4#?&1P8,#A\QPX#$jPhX=pAӱPy5 gA , X $06XɰB HŰ!9XȪPŰC0"XHL@ ,XY%,AfA*CXhl`,!3AyF WP((,AA 3X !A(,0Af$0P8H,PH@#&$$$AX(,0AAJAXX\P!=XhlX8<P6A|Xð#:ȠPX'PXHL@C0@@PHADXX\XhlVB0|X80B0h` B0`XӫC0N+A\?QPX=pAӑŐB0"XKLD!= 0 %if old report ## null %start Close out(0,0) out stream(0) == old report Read block(Old command_key, Old report _Bn + 1, Addr(old report_buf)) %if old report_key # 0 %finish Select input(0); Select output(0) Skipping = old skip Echo Obey = old echo Obey Parmp == old parmp %return %finish Parmp == Parm %if Obey Level = 1 %start Relocate(Loaded(Loaded Files)) %if Loadup(Prog, Batch File) %finish Obey Level = Obey Level+1 Base Load = Loaded Files+1 %own %byte %name len, p, limit {Split text param on commas} params = params."," limit == char no(params,length(params)) Parm_N = 0 p == length(params) %cycle len == p; j = 0 %cycle p == p ++ 1; j = j + 1 %repeat %until p = ',' len = j - 1 Parm_N = Parm_N+1 Parm_Parm(Parm_N) == string(addr(len)) %repeat %until p == limit old command == in stream(0) in stream(0)== null FD {Must clear INSTREAM(0), or OPENIN will return the FD pointed at by {OLD COMMAND to the free list when it calls CLOSE IN(0) Open in (0,from) Pack(to, PP_File) %if PP_File_owner # OUT Colon %start {Change report streams} old report == out stream(0) out stream(0)== null FD {for output must save half-written buffer in file..} FD == out stream(0) %if FD_key # 0 %start {forget about NULL:, T:} Write block (FD_key, FD_Bn+1, addr(FD_buf)) %finish Open out (0,to) %finish %if State < 0 %start State = State+10 Options = Options!Opt Verify %if State # 0 Run(Subinit) %finish Current Segs = Current Segs&(~Work Segs) Work Segs = 0 %cycle Doing ("") Select input (0); Select output (0) Unload(Base Load) Echo Flag = 0 Tlib_Name = "" Unstack Conts(1) Tidy Segs Console Int = "" Terminal Mode(0) %if TT Mode # 0 Break output Get Line %until Line # "" Do it (line, 1) Show Elapsed %if Options&Opt Monitor # 0 %repeat %end %end %of %file EVENTS+-0EXECUTE&>EXECUTING PROGRAMMES&>EXECUTING PROGRAMS&>EXTERNAL&pEXTERNAL ROUTINES&p EXTERNALS&pE_%C+FE_%F+LE_%L+0E_%Q+6mE_%S+sE_%X+E_%Y&E_%Z&E_(&E_()+E_)&E_*+bE_,+E_0&bE_?+E_B+GE_C+LE_C-+E_D+gE_E+lE_E-+ E_F+RE_G+WgE_I+lE_J+ E_K+@E_L+EE_M+E_M-+mE_P+r:E_R+?E_S+E_T+E_U+E_V+ E_X+E_Y&E_Z&E_\+g{FILE&z?FILE COMPARISON&0 FILEDUMP&05pFILEINFO+0FILENAME+z? FILENAMES&z?FILES&&FILES+& FINISHING&{FORMAT&FORTRAN& FORTRAN77+GIVE& Q\GOD+55 GOD ALMIGHTY&55HAZARD+$HELP&25 HOLD OUTPUT&efQIMP+OINDEX&&INPUT&9INT& INTERRUPT+ INTERRUPTS&JESUS&55KEYBOARD&9KILL&LET+"?LF+ddeLIB&p LIBRARIES&pLIBRARY+p LINE PRINTER+݉ߜLINEFEED&ddeLINK+OLINKING&OLIST+9LISTING&9LOAD+ C LOGGING OFF&{ LOGICAL UNITS&PLOVE+56 LP&݉ߜLP:&݉ߜMAIL+;MARK& CMARK OFF&UMARK ON& CME&25MESSAGE&;MESSAGES&;N&kN:&kNAK&klNAME&z? NEW FILES&NEWLINE&bdINEWNAME&ӐNOQUICK&r!NOTIFY&OYNULL+k NULL FILE&k NULL INPUT&k NULL OUTPUT&k NULL STREAM&kNULL:&kOFFER+ Q\OPEN+~?gOPERATOR COMMANDS+quOPS&quOPTION+uOPTIONS&u OPTION_DECODE+OPTION_NODECODE& OPTION_NOOPEN&OPTION_NOSPACES&XOPTION_NOUPPER&8 OPTION_OPEN+ OPTION_SPACES+X OPTION_STACK& OPTION_STACK=+ OPTION_TIME& OPTION_TIME=+ OPTION_UPPER+8OS-32MT&OS32-MT&OS32MT+ PAPER PUNCH& PAPER TAPE&PAPER TAPE PUNCH+PASCAL+PASS&`1PASS+PASSWORD+`1 PERMISSION& 4 PERMISSIONS& 4PERMIT+ 4PLEASE&25PP&PP:&PRINTER&݉ߜPROMPT&KPROMPTS&KPROT&PROTECT+PUNCH&PURGE&QUICK&r!QUIT&{QUITTING&{REBOOT& REBOOTING& REINCARNATION+@A RELOADING&REMOVE&REMOVING FILES&RENAME+ӐREPRIME+RESTART+RETURN&bdIRETYPE&ffg/RUBOUT&`aRUN+>RUNNING PROGRAMMES&>RUNNING PROGRAMS&>SEND&OYSEND& Q\SEQUENCE CONTROL+&&SET+KSET DATE&SET_DUMP++# SET_ERRORFILE+[SET_ERRORFILE=&[ SET_MONITOR+0% SET_NOQUICK&r! SET_NOTAB&K SET_NOTABS&KSET_PASS&B SET_PASSWORD+B SET_PROMPT+WJ SET_QUICK+r! SET_STACK+ SET_STACK=&SET_TAB+eSET_TAB&KSET_TABS+KSET_TIME+ SET_TIME=& SET_TIMELIMIT&SET_TIMELIMIT=& SET_VERIFY+ SET_WIDTH+Y\ SET_WIDTH=&Y\SEX&56 SHUT&SHUTDOWN+SI&lmoSINK&kSO&m{nSPACE&KSPOOLING& Q\STACK&KSTATE+z|STATUS&z|STOP+{STOPPING&{STREAM+PSTREAMS&PSUBSYSTEM EVENTS&-0SVC&6@SVC LIST&6@SVCS+6@T&9TAB+*TAB&h(i,TABS&h(i, TABULATION&h(i, TAPE BACKUP&6$9& TAPE DUMPING&6$9& TAPE DUMPS&6$9&TASKS&OTELL+OYTERMINAL&9TET&OTIME&KTIME& TIMELIMIT&KTOPIC+RTRANSFER&TT&9TTY&9UNLOAD+U UNPROTECT&$ UTILITIES+HIUTILITY PROGRAMS&HIVERIFY&WZQWIDTH&K WRITE PROTECT&YOURSELF+@@+ &HELP &Anything &please &me The HELP command is used to obtain information about system features. To select a particular topic give the command: Help Topic where 'Topic' is one or more words describing the subject of interrest, e.g. Help files In certain cases more detailed information may be obtained by following the command with an exclamation mark: e.g. Help Files! Information is available concerning: Commands Compiling Console conventions Copying files Creating files Deleting Files Editing files Files Running programs Stopping Operator commands Utilities A complete list of topics available may be obtained by typing: Help ? Note that typing line feed (LF) will cause output to continue if it has been suspended after the screen has been filled. +Archive &tape backup &tape dumps &tape dumping &backup The command: ARCHIVE invokes the MOUSES magnetic tape archive manager. For further information see o Help Archive_Initialise Labelling archive tapes. o Help Archive_Analyse List the contents of an archive tape. o Help Archive_Dump Details of dumping files to tape. o Help Archive_Restore Details of loading files from tape. o Help Archive_Idump Incremental dumping of user files. These describe the available archiver commands separately, but in fact sequences of commands (e.g. to dump several discs then generate a listing) are commonly entered. The Archive program prompts "Archive: " when it wants a command. Reply with EXIT to return to MOUSES command level. +Archive_Initialise &Archive_initialize To create an empty archive tape, mount a scratch tape in the drive with a write ring fitted. Enter the command: Command: ARCHIVE! In reply to the "Archive:" prompt, enter: Archive: initialise ...text... The text following "INITIALISE" is recorded in the tape label and appears on listings of the contents of the tape. (See HELP ARCHIVE_ANALYSE). At this point, either reply EXIT to the "Archive:" prompt to return to command level, or enter another archiver command. +Archive_analyse A listing of the contents of an archive tape can be produced by the following sequence of commands: Command: archive / listing-file Archive version 1.5 Program announces itself Archive: analyse Archive: exit When the EXIT command is entered, the 'listing-file' is closed and control returns to command level. The 'listing-file' may be any file or device, e.g. Command: archive /$temp Command: Archive /LP: Command: ARCHIVE/LP:LISTING +Archive_Dump The archiver command: DUMP UNIT disc is used to dump all the files on the named disc unit to the mounted archive tape. To dump only the files belonging to a single user, use the command: DUMP USER who As each file is archived, a message line is written on the operator's console of the form: <- filename Reply "EXIT" to the "Archive:" prompt to return to MOUSES command level. Examples: Archive: dump unit sys Archive: DUMP USER User_Fred Archive: Dump user Alan Archive: Dump unit PAK4 +Archive_Restore_User The archiver command: RESTORE USER who causes the mounted archive tape to be searched for any files belinging to the specified user. They are reloaded onto the disc. Where they are put depends on how the archiver was started. By default, the files are loaded into the directory currently being used by the operator, so to reload FRED's files, do: Command: Be Fred {switch to right directory} Fred: Archive Archive version 1.5 Archive: restore user fred Archive: exit Fred: Be {Become OPER again} +Archive_Restore_Unit The archiver command: RESTORE UNIT disc causes the program to read through an entire archive tape, reloading any files which were originally dumped from the named 'disc'. Users will automatically be created on the disc to read the files into. For example the disc PAK5 could be restored to the state it was in when last dumped by mounting the dump tape, re-initialising PAK5 (see Help Disc_initialise) then entering :- Command: Archive Archive version 1.5 Archive: restore unit pak5 Archive: exit +Archive_Restore Files can be retored to disc from an archive tape either singly, or grouped per user or per disc unit. See one of: o Help Archive_restore_file o Help Archive_restore_user o Help Archive_restore_unit +Archive_restore_file To restore the latest version of a file from an archive tape, use: Command:archive Archive:restore file user:filename e.g. Archive:restore file pak5_fred:program.imp If you have an analysis (see Help Archive_analyse) of the tape, the version of the file as it was when dumped on a particular date at a particular time may be restored. First find the serial number of the required version from the analyse listing, then: Command: Archive Archive: Restore #nnn Where 'nnn' is the sequence number of the file. +Utilities &utility programs Information about several system utilities is available. See: Help Disc - The disc backup/copy utility. Help Archive - The magnetic tape disc backup utility Help Tapes - Utilities to process tapes (including IBM tapes) +Disc &Disc utility &Disc checks &Disc checking &Disc copying &Disc compression &compressing discs ©ing discs The disc utility supports the following operations. o Initialise 'raw' discs with an empty file system. o Perform self-consistency checks on the directories on a disc. o Copying one disc straight onto another. o Copy a disc, compressing the free space on the disc into a single area. (May have to deal with corrupt input discs). o Compare the contents of two discs. (Verify copy). See: Help Disc_initialise Help Disc_Test Help Disc_copy Help Disc_compress Help Disc_Compare +Disc_test Checking of a disc is initiated by the command: Command: disc(test) Program prompts for disc to test Or:- Command: disc(test) xx Disc to test specified in command line 'xx' is the disc unit to be tested: either a unit number '#n' or the name of a loaded disc. (See Help Disc units). Any errors detected are logged on the console. More logging output is produced if a question mark '?' is appended to the command line. The enquiry facility (see Help ENQ) may be used to discover the directory currently under test. Examples: Command: disc(test) Program prompts for disc to test. Command: disc(test) #1 Test disc on unit one. Command: disc(test) Sys Test disc with logical name "SYS". +Disc_Initialise &Disc_initialize The command: Disc(initialise) / xxxx is used to start initialisation of the disc 'xxxx', which may be specified either as the logical name of a loaded disc or as a unit number '#n' (see under Help Disc units). The program prompts for certain parameter values. Sample dialogue: Command: disc(initialise) /#1 {init disc on unit one} Are you sure you want to overwrite OLD? Yes/no? yes {reply NO to abort program} Phy. disc name: NEW {any four letters/digits} Log. disc name: NEW {Logical name as used in LOAD etc} System area? yes {reserve an area for a system image?} Disc type: Diablo {or HELP/MSM80/CALCOMP/TELEFILE} Description: any text supplied by the operator ***WIPING NEW Blocks: 9600 No errors The valid replies to "Disc type:" are: DIABLO 10MB cartridge disc MSM80 P-E 67MB drive TELEFILE 300MB drive CALCOMP 67MB drive with TDC controller UNKNOWN Specify no. of tracks, blocks per cylinder and heads by hand. If the command line "Disc(initialise)" on its own is given, the program will prompt "Output disc?" for the name of a unit to initialise. +Disc_Copy The command: Disc(copy) xxxx / yyyy will cause the program to copy the contents of disc 'xxxx' block by block over the contents of disc 'yyyy'. No interpretation is placed on the blocks, i.e. non-MOUSES discs may be copied. The disc identifiers 'xxxx' and 'yyyy' are either logical disc names or disc unit numbers (see Help Disc units). Either may be omitted, in which case the program prompts for "Input disc?" or "Output disc?".After the program starts it will prompt the operator for the type of disc to be copied. (Answer DIABLO for cartridge discs, MSM80 for P-E 67MB drives, CALCOMP for TDC 67MB drives or TELEFILE for 300MB drives). Examples: Command: Disc(copy) Sys/#3 DISC COPY V2.0 Disc type: Diablo Command: disc(copy) /#4 DISC COPY V2.0 Input disc? #3 Disc type: MSM80 Command: DISC(copy) Fred/Jim DISC COPY V2.0 Disc type: telefile +Disc_Compare &Disc_Verify &verify &disc verify To discover whether two discs are identical, use the command: DISC(COMPARE) xxxx, yyyy 'xxxx' and 'yyyy' are logical disc names or disc unit numbers '#n', see Help Disc units. Either may be omitted, in which case the program prompts for "Input disc?" and "Output disc?". The program will prompt "Disc type:" to find out how many blocks are to be compared. Reply DIABLO for cartridge discs, MSM80 for Perkin-Elmer 67MB drives, CALCOMP for TDC 67MB drives or TELEFILE for 300MB drives. Examples: Command: disc(compare) #1, #2 Command: DISC(COMPARE) SYS0, SYS1 +Disc_Compress &Disc_squeeze The command: DISC(COMPRESS) xxxx / yyyy will copy all user directories and files from disc 'xxxx' to disc 'yyyy'. 'xxxx' and 'yyyy' may be either the logical names of two loaded discs or disc unit numbers '#n' (see Help Disc units). Either may be omitted, in which case the prompts "Input disc?" or "Output disc?" will be output. A listing of the contents of the generated output disc can be produced: DISC(COMPRESS) xxxx / yyyy, listing-file If the file system on the input disc is not self-consistent, the program stops with the message: ***FAULTY INPUT DISC If it is necessary to attempt to 'rescue' a corrupt disc, append an exclamation mark "!" to the command line, and the program will attempt to copy any good data remaining on the faulty disc: DISC(COMPRESS) xxxx / yyyy, listing ! (The ", listing" part is optional). The operation of the program can be inspected using the ENQ facility (see Help ENQ). Examples: Command: disc(compress) {Prompts for disc names} Command: disc(compress) user/arch Command: Disc(compress) DEAD / #5, LP:listing ! Command: disc(compress) user/back, List +Ctrl+D &EOT &end of file &end of input The end of file condition can be signalled to a program reading from a terminal by striking the Ctrl+D (EOT) key. This is echoed by the system as "[]". +Ctrl+H &Backspace &rubout &DEL &erase DEL and Ctrl+H (backspace) have identical effects. The last character on the current input line is erased. Pressing DEL 'n' times erases the last 'n' characters from the current line. This is obvious on a VDU. On hardcopy devices the characters cannot be physically rubbed out, so the group of characters being erased are echoed on the terminal (backwards as they are deleted), enclosed between a pair of backslash "\" characters. +Can &Ctrl+X This character causes the whole of the current line to be erased. On fast VDU terminals, the line is visibly erased. On slower hardcopy terminals, a '#' is printed, a carriage return/line feed sequence is output and the command prompt is reissued. (See also: Set_erase) +CR &return &newline Striking the CR (carriage return, RET) key causes the current line to be entered and processed by the system. A carriage-return/linefeed is output to put the cursor at the start of the next line. An IMP program reading from the console will read this as a single NEWLINE (LF) character, Pascal and FORTRAN programs see 'end of record' (EOLN). +LF &linefeed &Ctrl+Q &DC1 Linefeed and Ctrl+Q have identical properties. Output to the terminal is re-initiated after being suspended for one of the following reasons: o End of page on VDU. See: Help Set_Page o Output suspended manually by user pressing Ctrl+S. See: Help Ctrl+S o Output being discarded. See: Help Ctrl+T +Ctrl+S &DC3 &hold output Striking the Ctrl+S key causes output to the terminal to be immediately paused. (Output is resumed by pressing linefeed, LF, or Ctrl+Q). +Ctrl+R &DC2 &retype The current line being input by the user is retyped by the system. This is most useful on hardcopy terminals where a proliferation of '\' characters echoed by DEL can obscure the meaning of the line. +Ctrl+T &DC4 This character causes the system to start THROWING AWAY terminal output. Output is resumed either by pressing Ctrl+Q or Linefeed (LF), or when the running program stops to ask for input from the console. +Ctrl+I &TAB &tabulation &tabs The system provides a 'tab stop' facility for user console input. By default pressing TAB (i.e. Ctrl+I) is equivalent to entering three space characters. The user may alternatively set tab stops at particular columns, see: Help Set_Tabs Help Set_Tab +Ctrl+E &ENQ Pressing ENQ (Ctrl+I) causes the system to display a short message indicating the operation that is currently being performed in the form: ***System: text By default, "text" is the name of the program currently running or null if the system is waiting for a command. User programs and utilities (e.g. the IMP-77 compiler, the DISC utility etc) may set this string to indicate the operation currently being performed. E.g. the compiler indicates which pass it is performing. There is no restriction on when ENQ may be used, during console output, while the system is waiting for input or while there is no console activity. +Ctrl+U &NAK The current line is erased as for CAN (Ctrl+X). Additionally any lines which have been typed ahead by the user and have not yet been processed by the system are discarded. NAK (Ctrl+U) echoes as '#', CR, LF. +Ctrl+O &SI The console is shifted into the normal (default) mode, where upper and lower case letters are distinct. (Although all system programs treat upper and lower case identically). See also: Help SO +Ctrl+N &SO The console is shifted out of normal mode. Henceforth, all lower case letters typed will be echoed as the corresponding upper case character and any program reading from the terminal will see the upper case character. This effect may be cancelled by striking the SI (Ctrl+O) key to shift back into normal mode. +Ctrl+P &DLE &Binary input To allow the input of any ASCII character to a program reading from the console it must be possible to disable the standard interpretation of characters like ESC and TAB. Any character may be entered in thsi way by prefixing it with DLE (Ctrl+P). Examples: - to enter the ESC character - to enter two consecutive DLE chars. F - to enter 'F' BEL. (The before the 'F' is redundant since 'F' has no special significance. - EOT normally causes end-of-file. +Operator commands &ops The operator has access to several privileged commands: Catalog - List usernames on a particular disc. State - Gives status of system/discs/spoolers. Broadcast - Send a short message text to all terminals. Close - Prevent users from logging in. Shutdown - Automatically close after broadcasting warnings. Open - Stop any pending shutdown, and allow user logins. Dateis - Set the date and time counters used by the system. Protect - Set software protection on a disc unit. Hazard - Reset software protection on a disc unit. Load - Make a disc unit available to users. Unload - Used before putting a disc offline. Pass - Set a global system password. Reprime - All spooled files are revoked. Restart - Reboot the system. Type: Help 'command' for further information, e.g. Help broadcast See also: Help utilites Help disc units +Catalog The command: CATALOG disc will generate a listing of the names of all users whose directories reside on the specified disc. 'Disc' is either the name of a logical disc unit, or a disc unit number "#n" in which case the analysis is of the disc mounted on unit "n". (See also: Help disc units). Examples: Command: catalog sys what users are on the system disc? Command: catalog #1 Who is on the disc mounted on unit 1? +Disc units &discs MOUSES accesses discs internally by 'logical disc unit number'. More than one logical disc may be mapped onto a single physical disc unit. (E.g. a 67MB drive is normally partitioned into three logical discs). Usually, the operator will refer to discs by name, but it is possible with most commands to quote the unit number instead in the form "#n". The correspondance between the numbers and real disc drives varies from system to system. For example: #1: Cartridge disc C6: #5: 67MB drive, first partition. #2: " " C7: #6: " " second " #3: " " D6: #7: " " third " #4: " " D7: +State &Status This command has several forms: Command: state - This form produces information about the user who runs it (e.g. amount of CPU time used, username etc). Command: state system - This displays information about all active users. Command: state discs - This lists the names of the online discs. Command: state discs! - As above with extra information - free blocks etc. Command: state discs? - As for STATE DISCS, with disc description displayed. Command: state queues - Display a list of all spooled files. +Broadcast The command: BROADCAST text causes the message "text" to be displayed on all terminals in the form: ***OPER: text Text longer than 23 characters will be truncated on the right. +Close The command: CLOSE will prevent users other than OPER logging in to the system. Attempts to do so will produce the "No use 02B6002C 000D58C8 0120| 02C82337 58380290 C530003F 43308064 24B026B1 50B9002C 58690000 D0570000 0140| D1DD0120 01FF58A9 0004ECA0 0018C4A0 007F50A9 00305849 00041148 50490004 0160| C9A00020 2114C5A0 007F2137 D0570000 D1DD0114 01FF2307 086AD057 0000D1DD 0180| 003C01FF 58B9002C C5B00004 4230FFA2 43008024 58590000 1152C865 FFFED057 01A0| 0000D1DD 012001FF 73690004 41F0FEDA 73690006 41F0FED2 D1790008 030F0059 01C0| 8009D067 00040897 41FE02B6 002C000C C8300021 27335039 002C58B9 0004ECB3 01E0| 0000C4B0 0007C86B 0030D057 0000D1DD 003C01FF 5839002C 08334230 FFD6D179 Block #6 0000| 0008030F 00238009 D0570000 089741FE 02B6002C 000E2431 503802C8 2464D057 0020| 0000D1DD 012001FF C860007C D0570000 D1DD003C 01FF24B0 26B150B9 002C24A1 0040| EDAB0000 54A802CC 433080AC 2441ED4B 0000C540 00042137 2462D057 0000D1DD 0060| 012001FF 58590000 5A590004 27515059 00345869 00002761 50690030 43008070 0080| 26615069 003024C1 5839002C EDC30000 C5C00002 42308026 D0570000 D1DD0114 00A0| 01FF58B9 003011B2 5ABD01E8 CAB8002C 2451586B 000041F0 FE564300 802E24A1 00C0| EDA30000 C5A00004 213C1162 5A6D01E8 CA68002C 24525866 000041F0 FE322307 00E0| 2464D057 0000D1DD 012001FF 58690030 55690034 4230FF88 58B9002C C5B00003 0100| 4230FF34 24405048 02C8D179 0008030F 00868009 D0670004 089741FE 02B6002C 0120| 00135838 02BC4230 8024C848 002C5047 002CC840 20045047 00300856 2461D057 0140| 0000D1DD 01B801FF D1790008 030F5069 0034C848 002C5049 00385858 02C05059 0160| 003C2460 50690040 7209002C E1000065 7109002C 58C90034 4330806E C81EFF60 0180| D0570000 D1DD0048 01FF2451 58690004 D0570000 D1DD0054 01FFC81E FF54D057 01A0| 0000D1DD 004801FF 24515868 02C0D057 0000D1DD 005401FF C81EFF4A D0570000 01C0| D1DD0048 01FF2451 58690034 D0570000 D1DD0054 01FFD057 0000D1DD 012C01FF 01E0| 24200812 080241FE 02B24300 FF5A006F 8009D077 000850F7 00280887 41FE02B6 Block #7 0000| 002C00BD C8280250 58CD0190 C81C00E4 41FE00EE 583C00E0 50380290 C840003C 0020| 50480294 C8500050 50580298 D36C0080 506802A0 24C050C8 029C4300 802226C1 0040| 50C8029C 583D0190 C8B30080 0ABCD3AB 0000C5A0 003A2135 C8900084 50980298 0060| 55C802A0 4230FFD6 24405048 02B4F850 7FFFFFFF 505802B8 504802BC 24615068 0080| 02C45048 02C85048 02CC24C0 50C802D0 507802D4 43008076 587802D4 58CD01F0 00A0| 4230804A C827002C C81EFF42 41FE00EE 583D0190 C8130020 41FE0112 00FFC81E 00C0| FF3641FE 011200FF 58BD014C C81B000C 41FE0112 00FF0812 D0570000 D1DD0048 00E0| 01FFD057 0000D1DD 012C01FF 23072461 D0570000 D1DD01C4 01FFD057 0000D1DD 0100| 009C01FF 24200812 080241FE 02B241F0 F7F624A0 50A802D8 589802CC C3900002 0120| 233426A9 50A802D8 C3900004 233426AC 50A802D8 C3900008 233426A4 50A802D8 0140| 58480298 27455B48 02B00854 0845EE40 001F1D4A 505802A4 505802A8 585802A4 0160| 213AC81E FF2A41F0 F7342420 08120802 41FE02B2 C8B00080 08ABEEA0 001F1DA5 0180| 08AA2132 23062751 505802A4 4300FFCC C8300080 0823EE20 001F1D25 503802AC 01A0| 503802DC 586802CC C3600010 23340A33 503802DC 24C351C8 02DC58B8 02DC59B8 01C0| 02942114 24A150A8 02C45898 02BC213C 584D0190 C8140020 24502461 D0570000 01E0| D1DD01AC 01FF2451 505D01F0 586D0190 C8160080 0865D057 0000D1DD 008401FF Block #8 0000| 2461D057 0000D1DD 006C01FF 246CD057 0000D1DD 003C01FF 41F0F6C4 58C802B4 0020| 27C150C8 02E02431 513802E0 58B802E0 59B802B8 23234300 8208086B 41F0FCD4 0040| 58A802D0 5AA802DC 59A80294 42108022 589802C4 213C246C D0570000 D1DD003C 0060| 01FFD057 0000D1DD 012C01FF 24405048 02D041F0 F66AC81E FF22D057 0000D1DD 0080| 004801FF 24505868 02E0D057 0000D1DD 005401FF 41F0F648 41F0F644 24505058 00A0| 024C5868 02AC5068 02A008C5 50C8029C 43008182 26C150C8 029C5868 024C1162 00C0| 2454D057 0000D1DD 01D001FF C860007C D0570000 D1DD003C 01FF2430 26315038 00E0| 02E424B1 EDB30000 C5B00008 213B58A8 02CCC3A0 FFE72336 D0570000 D1DD0114 0100| 01FF2491 584802E4 ED940000 549802CC 433080EC D0570000 D1DD0114 01FF5858 0120| 024C5058 02EC5868 02A45068 02F024C0 50C802E8 430080B8 26C150C8 02E82431 0140| 58B802E4 ED3B0000 C5300002 4230802C D0570000 D1DD0114 01FF58A8 024C11A2 0160| 5AAD01E8 CAA8002C 2458586A 0000D057 0000D1DD 01D001FF 4300806A 2491ED9B 0180| 0000C590 00044230 8024D057 0000D1DD 011401FF 5848024C 11425A4D 01E8CA48 01A0| 002C5864 000041F0 FA184300 80382451 ED5B0000 C5500008 213E5868 024C1162 01C0| 5A6D01E8 CA68002C 24505866 000041F0 F93E230A 24200812 250141FE 02B20812 01E0| 080241FE 02B224C1 51C8024C 58C802E8 55C802F0 4230FF40 583802EC 5038024C Block #9 0000| 583802E4 C5300003 4230FED0 41F0F4D0 58B802CC C3B00010 23395858 024C5868 0020| 02A441F0 F9E241F0 F4B658A8 02A451A8 024C58C8 029C55C8 02A04230 FE764300 0040| FDE4D178 0008030F 022D4008 020005F4 062F6E67 203D2030 0A202020 20202020 0060| 20202572 65747572 6E202569 66207320 3D202222 0A202020 20202020 20207370 0080| 61636573 2870656E 64696E67 293B2020 70656E64 696E6720 3D20300A 20202020 00A0| 20202020 20707269 6E747374 72696E67 2853290A 20202020 20202020 206E203D 00C0| 206E2D31 0A202020 20202020 20206E20 3D203020 25696620 6C656E67 74682873 00E0| 29203E3D 2032320A 20202020 20202020 20256966 206E203C 3D203020 25737461 0100| 72740A20 20202020 20202020 2020206E 65776C69 6E650A20 20202020 20202020 0120| 2020206E 203D2033 0A202020 20202020 20202565 6C73650A 20202020 20202020 0140| 20202020 70656E64 696E6720 3D203234 2D6C656E 67746828 73290A20 20202020 0160| 20202020 2566696E 6973680A 20202020 20202565 6E640A0A 20202020 20207072 0180| 696E7473 7472696E 67282248 656C7020 69732061 7661696C 61626C65 206F6E20 01A0| 74686520 666F6C6C 6F77696E 6720746F 70696373 3A22293B 20206E65 776C696E 01C0| 650A2020 20202020 6E203D20 52283029 5F46696E 6973680A 20202020 20202566 01E0| 6F72206A 203D2031 2C312C6E 20256379 636C650A 20202020 20202020 2068203D Block #10 0000| 3D207228 4A290A20 20202020 20202020 61646428 485F6B65 79292025 69662048 0020| 5F466C61 67203D20 272B270A 20202020 20202572 65706561 740A2020 20202020 0040| 6E65776C 696E650A 20202025 656E640A 0A202020 25726F75 74696E65 2066696E 0060| 6420746F 70696328 25696E74 65676572 6E616D65 20737461 72742C20 66696E69 0080| 7368290A 20202020 20202569 6E746567 65722048 6967682C 204C6F77 2C20500A 00A0| 20202020 20202572 65636F72 64286866 6D29256E 616D6520 480A2020 20202020 00C0| 6C6F7720 3D20313B 20206869 6768203D 20722830 295F6669 6E697368 0A202020 00E0| 20202025 7768696C 65206C6F 77203C3D 20686967 68202563 79636C65 0A202020 0100| 20202020 20207020 3D20286C 6F772B68 69676829 3E3E310A 20202020 20202020 0120| 2048203D 3D205228 50290A20 20202020 20202020 25696620 485F4B65 79203D20 0140| 546F7069 63202573 74617274 0A202020 20202020 20202020 20737461 7274203D 0160| 20485F53 74617274 3B202046 696E6973 68203D20 485F6669 6E697368 0A202020 0180| 20202020 20202020 20257265 7475726E 0A202020 20202020 20202566 696E6973 01A0| 680A2020 20202020 20202025 69662048 5F4B6579 203E2054 6F706963 20257468 01C0| 656E2048 69676820 3D20702D 31202565 6C736520 4C6F7720 3D20502B 310A2020 01E0| 20202020 25726570 6561740A 20202020 20207374 61727420 3D20303B 20206669 Block #11 0000| 7FFF7FFF 7FFF7FFF 00000000 00000000 00180006 00000000 00000006 001C000C 0020| 00000000 0000000C 00200012 00000000 00000012 00240018 00000000 00000018 0040| 0028001E 00000000 0000001E 002C0024 00000000 00000024 0030002A 00000000 0060| 0000002A 00340030 00000000 00000030 00380036 00000000 00000036 003C003C 0080| 00000000 0000003C 00400042 00000000 00000042 00440048 00000000 00000048 00A0| 0048004E 00000000 0000004E 004C0054 00000000 00000054 0050005A 00000000 00C0| 0000005A 00540060 00000000 00000060 00580066 00000000 00000066 005C006C 00E0| 00000000 0000006C 00600072 00000000 00000072 00640078 00000000 00000078 0100| 0068007E 00000000 0000007E 006C0084 00000000 00000084 0070008A 00000000 0120| 0000008A 00740090 00000000 00000090 00780096 00000000 00000096 007C009C 0140| 00000000 0000009C 008000A2 FFFFFFFF 15287072 652D7265 6C656173 65292076 0160| 736E2032 2E317468 6520666F 6C6C6F77 FFFFFFE0 FFFFFFE4 FFFFFFE0 FFFFFFE4 0180| FFFFFFE0 FFFFFFD4 000000A2 008400C4 FFFFFFFF 000000C4 008800CA 00000000 01A0| 000000CA 008C00D0 00000000 000000D0 009000D6 00000000 000000D6 009400DC 01C0| 00000000 000000DC 009800E2 00000000 000000E2 009C00E8 00000000 000000E8 01E0| 00A000EE 00000000 00000000 FFFFFFC4 00000000 0087006B 005B0060 00870051 Block #12 0000| 20202572 65747572 6E202569 6620636F 6E74726F 6C202320 2721270A 20202020 0020| 20202020 20202020 20202071 75696574 203D2030 0A202020 20202020 20202020 0040| 2025656C 73650A20 20202020 20202020 20202020 20207072 696E7473 796D626F 0060| 6C287379 6D292025 69662071 75696574 203D2030 0A202020 20202020 20202020 0080| 20256669 6E697368 0A202020 20202020 20202020 206C6173 74203D20 73796D0A 00A0| 20202020 20202020 20202020 62797465 203D2062 7974652B 310A2020 20202020 00C0| 20202020 20206E20 3D206E2D 310A2020 20202020 20202025 72657065 61742025 00E0| 756E7469 6C206279 7465203D 20353132 20256F72 206E203D 20300A20 20202020 0100| 20202020 25657869 74202569 66206E20 3D20300A 20202020 20202020 20626C6F 0120| 636B203D 20626C6F 636B2B31 0A202020 20202020 20206279 7465203D 20300A20 0140| 20202020 20257265 70656174 0A202020 25656E64 0A25656E 640A0A25 62656769 0160| 6E0A2020 2025696E 636C7564 65202253 7973696E 633A636F 6D6D616E 642E696E 0180| 63220A20 20204865 6C702843 6F6D6D61 6E645F50 6172616D 65746572 290A2565 01A0| 6E646F66 70726F67 72616D0A 04040404 04040404 04040404 04040404 04040404 01C0| 04040404 04040404 04040404 04040404 04040404 04040404 04040404 04040404 01E0| 04040404 04040404 04040404 04040404 04040404 04040404 04040404 04040404 3C!2@}'or( s_~wZx%%N3}+%%N4:M$S@*#4"K0&y$ }6fS}}<%Qv_B""`:%Hwqaf"N%QvT"ZZ;s[`pd+Dflz`r&@x.X_&@~QUM[Dl*;eox`EX!}}qI}@7#!t(]w@!yWd`EXg\!``EY}`EWKCw:`dwag\:a@:HayuwF6g\?q["iZ}P:`mafkNW 'xgQK 9X`QK T'uxp` wG-}& q["op`, fZJ_2 {`:p8 wZ}> X/Xg\D `aJ wp`P X/YV 2wL\ fZXb X_Lv@h Up`n &y$@t qIXHz 7X_Lv"8 OyA ayA zX_d/@ yd |"=+ %K"=+ULu;`88VaX}+EGZ&~v,U~u@<@~u@:7(QT`Ud5S`:wo}R-^e&Z# y5"e&@[qVM&@  e&@fS]!t^Z}" ;ov(’}.D(v4fZK:sv@}fZF/vLeERGy8@XqI^mfpdRda]pj i p0iiRvd|Rd+GeZ^Hlspo6MY#oV}eQth#p}SI td:w Rn8{Lu;`p8{}}"e}") 8::wK4g a"fxXH$//;`$X%#('oNWfSX`QKxgQKfZJ_fZX}w:`wag\`EXg\`EY}wZ}wp`q["iZ}q["op`~u@<@U~u@%qOqIfZfZKyAyAX_Lv@X_Lv"8"Z cepsZ8DZ .3ns  '9=A"(05<BGLP^u$)1<EJSx|MT>E=TYSf6=V` 5=2 ,C;qudQ@qX`X_& qT{ 4:y qIT8d+Dz`&@X_&@qI\^C}M[D}`EX!}}qI}@#!t(w@} qI`EX`EXg\`EY}`EY}`EWKw:`wag\:a@:Mpayu"&%wF6g\q["iZ}:`afk!qIQKxgQKX`QK'uxp`wG-}q["op`fZJ_wWwZ}X/Xg\w`wp`X/YwLfZXX_Lv@Up`&y$@qIXHX_Lv"8yAyAX_d/@yd ew"ew~l=.ULu;`8aX}+EGZ&~v,U~u@<@~u@:(QTyqLXUdZX}R-^e^"# y"e&@qVM&@ e&@fS]!t^Z};ov}rX (Q_(vfZKsvfZ/veE !y8@qImfpda]pd+Dd+GyEv;>9 QQQXsf.Q@syW eyqT^9}MYXMY|]ox!"MY}eQth#p}SI,z,d:w R'X K) 8X`}fxXH%Qv9da}Xx,Lv@^@z z}*Subsystem failureLIB list clearedAll LETs removed& seconds CPU milliOUT: not found .COM.EXENo room for definition of Malformed command:  missing loadedCannot access .exe Cannot load No space for stackData: *No space for stackFatal error during diagnostics*Diagnostics being sent to Cannot load diagnostic package Cannot load Ref:  0-0HAHA whose file?to whom? PC PS Invalid addressA@I*Contingency fails *Create segment fails ) fails -- output(input(*Close  -- Cannot offer file to input ended -- *Cannot open Null:Out:NULL:IN:invalid stream numberinvalid DA channel numberIllegal filename  too many open files<  ! SS:STANDARDSS:BATCH SS:SUBINITSS:MDIAG (H!3410!81!5$$A>6#$$A>6&C,XM#7PPP$ȧ@$AAA \U#?A PH&RRXZE"B"s   1#,H#8zs   @!8X5(X$C,sn@ f sN V P !# !(e",$$U n?134C0DD C H!3410!81!5$$A>6$@#0#DD&A'1"CH!3410!81!5$$A>6B@!4B"; C@!$$A>6 #$$A>6B C B$P#EE&Q'1"C$A1 0# # QDRD?&A'"3$$A>61I2!,K2! 3s3B#9 3 >!$$A>6!$$A>6A>6GHOs/" B 'X=2#$$A>6&r0U> ?P7D&D"$2#XCPC'4"2$#PC'4"Ow(,AA6D!A',,A2&1$JBC2(LArDqDx0wA6, X=t!<-4TA$ $$ A2P8,X38P=tX(,$?Ax&gA6, X=tP68X%PXPtxwP(A6,-$?A0P=-$?A@PM=P=ȽP$PXȹ@8.r,q,XHTC0&XLXhA-44AX(H$$ A2x6WP(A60X6P8@XF PHDPXHX0$bA XX,XhZ tXPD#>X,$kAX82Z= t$Px%WA6, V!P!%x-4A%$$ A2gP((,AA6L%!APx#Xx$ $$ A28,3B0 `!((,A#(,A',,AhTA,$QXhA8XXŰ!XhbZm DX DX<P6CL(l$8At$PR$fAXAPXPXH%QPTXhXt'PX89Z= Z= XP;X$PXH$PPT TXh&$4AtXZ DPlXm XHBZM \X] \XePdCrŰ#5A!x1wP(A6, $jAXxwP(A6, X=|XC@ #3AxwP((,AA6l!A?X= @P8l$`AA,AAnXhlAx*gP(A6, $06AP, !2# Xӫ&JҫCx%gP(A6, X#('P$jA^" xwP(A6, ` A8xgP(A6, X#)'P` A" xwP(A6, $lAxwP(A6,$PeAr,q,xWP(A6,PX8%1P8X8x2wP(A6,$0P84r,q,XDxwP(A6,r,q,4$ AxwP(A6,r,q,@$AxwP(A60 h,!j@.>xk@.N"wP(A60h,(#++i@BbX8,P8400P880F#%+x%APH0XX8PF#Xh0dPh0&QPX8" X0T4P4h,k4`,h,#j@`,(CRWP(A6, `PhXB0"ADX8!#Cb$UXhA`:A#!3A:A6$TXhA!%A&APH,@!3A,Xh, f$TA$XX,RXhZ]VPX0$ZX0XlAxXH,@B0AX8XLİP,ɰ!ȠQ,#X,P,PXh,A>xgP(A6,Pml$;P84$@PH8Ph$PhlADx)wP((FAA6`(!A',,AhhA',FAhAXPxX8P8|X`$oAzx8WP(A6H',,AhPAXP`XH$bA8X8XTPx'wP((,AA6<!A8,0#$$?8,-,A(HAXPDr<qXTXHXPI$XXX$aPeXP0XhTAX80P=XXX!2# CXmAC,X`Ð!>XHPG,XXmA#3CXhA(',dAAV-4AXX$`PeX$0P<X$PCRwA6, \x hX`pXls<@ 3sT PsV ZhP\jAXXIPMPXYP]TXiPm( 3wsN@ D N $ "?CrTwA6,APx#Xx$`ADAAvxhAC0,$aA8',(AAVA$aAv>P04h,AP$'PXtwP$`AXhA|CvA4CjbxgP(A6,%1P84XF@#=Px,PQX,XP0CVXmdPh0XX< 6#$P80#3#$` cPh0X0P0[h,A(X,#AxP4Q0XXH,PIXXXh0PX8Xð!5mAT-AAXhP8XXI J#$PH8#D#$ P8-(0AXh8AXhALXX4!e`ACXwP((,AA6L!A,hLAXdPdhLAXhhAHx+wP((,AA6l%!A?%1P8,hlAXðB0ZXl#$ P!7ưPC<PZhAXH#-4A$ $A2PHpZHTPXlhlA:XhAXh!`AxbgA6, PmtX=PcXP,X,C 'P,Ȑ0 ZXIXXXPTCx*gA6,AXs< 3P8,Xs@ P0X,C0XHZ PDXY UPX,XiC\s Z0P@\iAvX8DXB08XX$$@PIXh@AD',AAV-4A## X\PX8DXdPCfXX sI DZJPH'P00 Xh`!9XX8P<AXð#8ȠP%QXH@C0 @PHA~XXUXB0jXh`B0VX B0JX8ӳC0<ȣӓ ZPXZ]E@!?X!X[&QXP,XHXdA$`A$`AXXP]XhPmXPx8P=X=p0B0 hA#:Ȱ0LZkAF$QpX&P@,Xl&QHElXlhll lPm$0P8ȸlPXP$PXM&APM$QQXd`,#2" XX8'1<$QXZʨXIPJX]U]#3CXm DXPP,$`A :',LAmAX=0n C0FX \XPȭPX \XIPHXT#ZZB``FffJllNrrRxxV~~Z^bfjnFC1.0RD <SS:STANDARDRETSS:STANDARDRET Command: RDRETCommand: RDRECommandxh LD d4 |$ `x0ose file?ress@COMoom for definition of ticsA LOAeconds CPU definition of ticsA LOADERSTATEOLDSTATE LIBFMNAME LIBLIBLIMITTLIBMSTLIBLOADPROGFLT:Oonds CPU definition T:Oonds CPU def CPU def$0C0Ȱ0 Zȫ0PT%BPH,X,YhC&P,!7MlPHXC*#-A]PXX$`Pe#ZPXXXX<!5Ӽ!3Cph4Ad!3C^XP,XXXhTAC0>XTXHXPI$XXX$aPeXP0XhTAX80P=XXX!2# CXm$AC,X`Ð!>XHPG,XXmA#3CXhA(',TAAV- Disc WIPED O.K.} %integer copied, %integer checksum, {sum(blockzero)-1 = 0} %string(187) description,{of logical disc contents} %integer marked, {V2.00+: Disc INITIALISED O.K.} %byte %array spare (1:252)) %routine To mixed(%string(*)%name S) %byte %name C %return %if S = "" To lower(S) C == Char no(S, 1) C = C - 'a' + 'A' %if 'a' <= C <= 'z' %end %routine Failure(%string(63) extra) %string(63) S = "*" To mixed(Command_command) {Which command blew up?} %if event_message = "" %start event_message = "event ".ItoS(event_event,0).",". %c ItoS(event_sub, 0) %finish S = S.Command_command." " extra = extra." " %if extra # "" %and char no(extra, length(extra)) # ' ' S = S.extra."fails - ".event_message Console(S) %end %routine TT set(%integer parm, val) %record(parm fm) P P_p1 = parm P_p2 = 0 {My terminal} P_p3 = val SVC(Set tty, P) %end %routine Number (%integer N, Places, %string(31) Text) %if N = 0 %then print string("No") %else Write(N, Places) Space Length(Text) = Length(Text) - 1 %if N = 1 Print string(Text) %end %routine PRINT THEN PAD(%integer width, %string(63) s) print string(s) spaces(width - length(s)) %end %routine PAD THEN PRINT(%integer width, %string(63) s) spaces(width - length(s)) print string(s) %end %routine Director(%integer Dact, %record(Parmfm)%name P) P_Dact = Dact SVC(To Director, P) Event_message = P_text %and %signal 11 %if P_p6 # 0 %end %routine Squeeze(%string(*)%name S) %string(63) T = "" %integer j %for j = 1, 1, length(S) %cycle T = T.to string(char no(S,j)) %if char no(S,j) # ' ' %repeat S = T %end %integer %function Look up(%string(63) s, %string(*)%array %name Table, %integer low, high {bounds on TABLE}) %integer j %for j = low, 1, high %cycle %result = j %if table(j) = s %repeat %result = 0 {not found} %end %string(8) %function Access(%integer mask) %integer k = 1, j %string(8) s = "" %result = "None" %if mask = 0 %result = "All" %if ~mask&255 = 0 %for j = 0, 1, 7 %cycle s = s . to string('A' + j) %if mask&1< 0 %and outtype > 0 %start {Special to copy a single file quickly} %begin %recordformat bfm(%byteintegerarray a(1:block size)) %record(bfm)%array b(0:max-1) %integer inkey = intype, outkey = outtype %integer k,d, n = 0 %on %event 10 %start {end-of-file from READ BLOCK} -> COMPLETE %finish %cycle d = 0 %cycle read block(inkey, n+d, B(d)) d = d+1 %repeat %until d = max+1 write block(outkey, n+k, B(k)) %for k = 0,1,d n = n+d %repeat COMPLETE: write block(outkey, n+k, B(k)) %for k = 0,1,d-1 seek output( (n+d)*blocksize - 1) %end %else {General case} %begin %on %event IO error %start -> OUTPUT COMPLETE %if stream = 3 stream = stream+1 open input( stream, c_in(stream) ) select input(stream) %finish %cycle print symbol(readsymbol) %repeat OUTPUT COMPLETE: %end %finish Close All(0) %end Prompt("Copy:") parse parameter(C,0,parm) For each(C, Copy) %end %external %routine PURGE %record(parm fm) P %on * %start Failure("") %else Director(Direct Purge, P) Number(P_p1, 0, "files") Print string(" deleted") %finish %end %external %routine OFFER(%string(63) parm) %routine send(%record(Command fm)%name C) %systemroutinespec offer (%string(31) file name, %integer copies, mode, %string(7) destination) %on * %start Failure(C_in1); %return %finish offer(C_in1, 1, 0, C_out1) %end parse parameter(C,0,parm) For each(C, Send) %end %const %integer set min = -19, set max = 10 %const %string(9) %array Set words(set min:set max) = "PASSWORD", "WILD", "ERASE", "TABS", "free"(4), "TRACE", {1024} "QUICK", {512} "s-256", {256 unused} "s-128", {128 unused} "XDUMP", {64} "s-32", {32 unused} "s-16", {16 unused} "s-8", {8 unused} "VERIFY", {4} "DUMP", {2} "MONITOR", {1} "eh?", "TIME", "TIMELIMIT", "WIDTH", "TAB", "SPEED", "PAGE", "SEARCH", "PROMPT", "ERRORFILE", "STACK" %external %routine SET (%string(63) parm) %switch Set(set min : set max) %const %integer On = -1, off = 0, Set tty = 29 %integer what, on off, bit, j, here %string(63) S, val, t, tt %system %integer %spec Options, Default time, Default Stack, Wild Monitor %record(Parm fm) P, Q %on * %start %if Event_event = 3 %start {Symbol in data, from StoI} Event_Message = """".to string(Event_extra).""" in number?" %finish Failure("") %return %finish parm = parm."," %while parm -> s.(",").parm %cycle val = "" %unless s -> s.("=").val Squeeze(s) To upper(s) {Keyword part} tt = "" %unless s -> s.(":").tt On off = on %if s -> t.("NO").s %start %if t = "" %then on off = off %else on off = on %and s = t.s %finish what = look up(S, set words, set min, set max) %if what < 0 %and val # "" %start {SET (no)opt} Console(" = ?"); %return %finish -> Set(what) Set(*): Event_message = s." not understood" %Signal 11 {********* -ve WHAT: Set X or Set No X ***********************} Set(-1): {Set Monitor} Set(-2): {Set Dump} Set(-3): {Set Verify} Set(-7): {Set XDump} Set(-10): {Set Quick} Set(-11): {Set Trace} Bit = 1<<(-what-1) %if on off = off %then options = options & (~Bit) %c %else options = options ! Bit %continue Set(-16): {Set tabs} TT set(6, on off) %continue Set(-17): {Set Erase} TT set(3, on off) %continue Set(-18): {Set Wild} Wild Monitor = on off %continue Set(-19): {Set Password} Echo(1) Q_p1 = 0; Director(Direct Identify, Q) %unless privileged %start {so OPER can help forgetful users} Prompt("Old password:") Read line(val) Pack(val.":", P_file) Q_p3 = P_file_owner Q_Dact = Direct Become SVC (To Director, Q) %return %if Q_p6 # 0 %finish Prompt("New password:") Read line(val) Pack(val.":", P_file) P_p3 = P_file_owner Director(Direct Pass, P) Console("New password set") %continue {********************* +ve WHAT: Set X = ... ***********************} Set(1): {Set time=N} Set(2): {Set timelimit=N} Default time = StoI(val) %continue Set(3): {Set width=N} j = StoI(val); j = 80 %if j < 0 TT set(1, j) %continue Set(4): {Set tab=N+N+... } here = 0 val = val."+" %for j = 0, 1, 9 %cycle %if val -> t.("+").val %start here = here + StoI(t) %else here = here + 3 %finish Byte integer(Addr(P_p3)+j) = here %repeat P_p1 = 5; P_p2 = 0; SVC(Set TTY, P) %continue Set(5): {Set speed:tt# = N} P_p1 = 7; P_p3 = StoI(val) P_p2 = 0; P_p2 = StoI(t) %if t # "" SVC(Set tty, P) %continue Set(6): {Set page=N} TT set(2, StoI(val)) %continue Set(7): {Set search=owner} %if val # "" %and char no(val, length(val)) = ':' %start length(val) = length(val) - 1 %finish val = val.":" %if val # "" Search owner = val %continue Set(8): {Set prompt=...} length(val) = 17 %if length(val) > 17 Command prompt = val %continue Set(9): {Set Error file = filename} length(val) = 15 %if length(val) > 15 Error file = val %continue Set(10): {Set Stack=N} Default Stack = StoI(val) %continue %repeat %end %external %routine PERMIT(%string(63) Parm) %record(Command fm) C %integer Access mask %routine Permit (%record(Command fm)%name C) %record(Parm fm) P %integer Dact %on * %start Failure(C_in1); %return %finish Dact = Direct Daccess %if C_modifier = 0 %start {Default: set file access} Pack(C_in1, P_file) Dact = Direct Faccess %finish P_p6 = Access mask Director(Dact, P) %end parse parameter(C,0,parm) Access mask = Access bits(C_parameter) For each(C, Permit) %end %external %routine DELETE(%string(63) parm) %routine Delete(%string(*)%name SS) %record(Filespec) F %record(Parm fm) P %string(31) S = SS {**COMPILER NASTY**} %on * %start Failure(S); %return %finish String(Addr(P_Sact)) = S; SVC(17, P) {Pack filename} %if P_file_owner = 0 %start {Simple filename} Del file(P_file, -1) Console(S." deleted") %else Wild spec(S) %cycle F = Next filespec %exit %if F_Nil # 0 S = Filename(F) Pack(S, P_file) Del file(P_file, -1) P_file_unit = 0; P_file_owner = 0 Unpack(P_file, S) Console (S." deleted") %repeat %finish %end %string(63) S Parm = Parm."," Delete(S) %while Parm -> S.(",").Parm %end %external %routine Xpack %alias "#PACK"(%string(63) File) %record(Parm fm) P String(Addr(P_Sact)) = File; SVC(17, P) Phex(P_file_unit,8); Space; Phex(P_file_owner,8); Space Phex(P_file_N1, 8); Space; Phex(P_file_N2, 8); Newline %end %external %routine BECOME (%string(63) parm) %record(parm fm) P %byte %name C %string(63) Pass %integer Ppass = 0, who %Label OK %on * %start Failure(""); %return %finish %if parm # "" %start %unless parm -> parm.(",").pass %start -> OK %if Privileged Echo (off) Prompt ("Pass:") Read line (pass) Echo (on) %finish Pack(pass.":", P_file) Ppass = P_file_owner OK: %if parm # "" %and char no(parm,length(parm)) = ':' %start length(parm) = length(parm) - 1 %finish %finish parm = parm.":" Pack (parm, P_file) who = P_file_owner P_p3 = Ppass; P_p6 = 0 Director(Direct Become, P) To lower (parm) c == char no(parm,1) c = c - 'a' + 'A' %if 'a' <= c <= 'z' parm = "Command: " %if who = 0 Command prompt = parm %end %external %routine RENAME(%string(63) parm) %routine Rename (%record(Command fm)%name C) %record(File fm) F %on * %start Failure(C_in1."/".C_out1); %return %finish Pack(C_in1, F) F_unit = 0; F_owner = 0 Unpack(F, C_in1) Rename file(C_in1, C_out1) Console(C_in1." renamed ".C_out1) %end %record(Command fm) C parse parameter(C,0,parm) For each(C, Rename) %end %external %routine LET(%string(63) parm) %systembytearrayspec Alias Text(0:255) %systemintegerspec Alias Limit; !one past last used addr %systemroutinespec Let(%string(63) old, new) %externalroutinespec Alias (%string(*)%name it) %byte %integer %name B, Last == byte integer(alias limit) %integer J, k %string(63) New %if parm -> parm.("=").new %start %if parm = "" %start Console("Let what= ?"); %return %finish To upper(parm) Let(parm, new) %else %if parm = "" %or char no(parm, 1) = '?' j = 0 b == alias text(0) %while b ## last %cycle %for k = 1,1,b %cycle b == b ++ 1 Print symbol (b) %repeat b == b ++ 1; !to next length byte %if j = 0 %start; !toggle thru table: Print string (" = "); ! pairs. (Both terminated by 0's). %else; !..after .. Newline %finish j = ~j; !toggle j %repeat %else; !LET x i.e. show X New = parm To upper(new); Alias(new) Print string(parm." = ".new) Newline %finish %end %external %routine LIB(%string(63) param) %systemintegerspec Lib limit %recordformat Libfm(%integer when, %string(27) name) %systemrecord(libfm)%arrayspec Lib(1:7) %integer J, Insert, Old, New, Show %string(63) F %record(file fm) Pfile %routine show lib %integer j %if lib limit = 0 %start Print string("No entries"); newline %else %for j = 1, 1, lib limit %cycle Spaces(3); Print string(Lib(j)_name); newline %repeat %finish %end %on * %start Failure(""); %return %finish To upper(Param) %if Param = "" %start Show lib %else Squeeze(Param) Param = Param."," %cycle Param -> F.(",").Param Show = 0 %if F # "" %and char no(F, length(F)) = '?' %start Show = 1; length(F) = length(F) - 1 %finish %if F # "" %start %if F = ".NONE" %start Lib limit = 0 %else Insert = 1; Insert = 0 %if F -> ("-").F Pack (F, Pfile) {Check validity of name} Unpack(Pfile, F) {Standard string form} New = 0; Old = 0 %while Old # Lib Limit %cycle Old = Old+1 %if Lib(Old)_Name # F %start New = New+1 Lib(New) = Lib(Old) %finish %repeat %if Insert # 0 %start %if New = 7 %start Event_message = "Library list full" %signal 11 %finish New = New+1 Lib(New)_When = 0 Lib(New)_Name = F %finish Lib Limit = New %finish %finish Show lib %if show # 0 %repeat %until Param = "" %finish %end %external %routine OPTION(%string(63) parm) %constant %integer decode = 1, {Object file option masks} open = 2, stack = 8, priv = 16, upper = 32, spacesx= 64 %string(63) s, t, val %integer j, k, write flag = 0, on off %constant %integer on = 0, off = -1, last option = 7, first option = -2 %constant %string(6) %array options(first option : last option) = "STACK=", "TIME=", "Zero", "DECODE", "OPEN", "unused", "STACK", "PRIV", "UPPER", "SPACES" %recordformat blockfm(%shortinteger code size, gla size, pad1, pad2, pad3, time, flags, stack, %shortintegerarray a(1:248)) %record(blockfm) block %record(Command fm) C %on * %start Failure(""); %return %finish parse parameter(C,0,parm) Parm = C_Parameter To upper(parm) C_in1 = C_in1.".exe" %unless C_in1 -> (".") Open DA(1, 1, C_in1) Read DA(1, 0, Block) Squeeze(parm) %if parm = "" %or parm = "?" %start S = "Options set: " S = S."upper case, " %if Block_flags&upper # 0 S = S. "remove spaces, " %if Block_flags&spacesx # 0 %routine No(%integer x, %string(63) what) S = S. "no " %if x # 0 S = S . what %end No(Block_flags&decode, "decode, ") No(Block_flags&open, "open, ") %if Block_flags&decode = 0 {otherwise irrelevant} No(Block_flags&priv, "priv, ") No(Block_flags&stack, "stack") S = S . snl print string(S) %routine pretty(%string(31) S, %integer value) pad then print(10,S) Space; Print symbol('=') %if value = 0 %start print string(" current default") %else Write ( |value|, 1 ) %if value < 0 %then print string(" absolute") %finish Newline %end Pretty("Stack", Block_stack) Pretty("Code", Block_Code Size<<9) Pretty("GLA", Block_GLA Size<<9) %else write flag = 1 parm = parm."," %while parm -> s.(",").parm %cycle On off = on %if s -> t.("NO").s %start %if t = "" %then on off = off %else s = t."NO".s %finish %if s -> s.("=").val %then s = s."=" %else val = "" j = Look up(s, Options, first option, last option) %if j < 0 %start Event_message = val." not a number" {just in case} k = StoI(val) %if j = -1 %start Block_Time = k %else Block_Stack = k Block_flags <- Block_flags & (\stack) %finish %else %if j = 0 Event_message = s." not understood" %signal 11 %else j = 1<<(j - 1) Block_flags <- Block_flags & (~j) Block_flags <- Block_flags ! j %unless on off = on {Bits SET for NOxxx - yech} %finish %repeat %finish Write DA(1, 0, Block) %if write flag # 0 Close DA(1) %end %external %routine ENTRIES(%string(63) parm) %constinteger h = X'FFFF' %string(63) file, output %recordformat pgmfm(%integer limit,stack,gla,code base,ep,code, %c %shortinteger options) %record(parmfm) p, q %recordformat loadfm(%integer code, gla, specs, defs, when, file) %recordformat textfm(%integer n1, n2) %recordformat specfm(%integer gla, code, ep) %recordformat hdfm(%shortinteger base, n) %recordformat headfm(%shortinteger pure size, gla size, code disp, %C lit disp, registers, mainep, %C %record(hdfm) reloc, defs, specs, ldiag, vdiag) %recordformat deffm(%shortinteger link, ep, %integer n1, n2) %ownrecord(headfm)%name head %record(specfm)%name spec %record(deffm)%name def %record(textfm)%name sp %integer base, code, gla, specs, defs %system %routine %spec Unpack Spec(%record(Textfm)%name T) {into..} %system %string(15) %spec Spec id %record(textfm) txt !!!!!! %integer max = (free space - 1024) >> 4 %CONSTINTEGER MAX=200 %record(fdfm) %array slots(1:max) %integer used = 0, j, col %on * %start Failure(""); %return %finish parse parameter(C,0,parm) Open output(1, C_out1); Select output(1) file = C_in1 file = file.".exe" %unless file -> (".") string(addr(p_sact)) = file svc(10, p) %if p_p1 # 0 %start Event_message = "Cannot load ".file %signal 11 %finish code = p_p2; base = code-16 gla = p_p3 %if shortinteger(base+4) # X'4321' %start Event_message = file." is an old format file" %signal 11 %finish Select output(1) head == record(code) code = code+head_code disp&H*2 specs = head_specs_n defs = head_defs_n %if defs # 0 %start Print string("External entry points:"); newline %cycle def == record(base+2*defs+16) used = used + 1 %if used > max %start Event_message = "too many entries" %signal 11 %finish txt_n1 = def_n1; txt_n2 = def_n2 Unpack spec(txt) Slots(used)_name = Spec Id defs = def_link&h %repeat %until defs = 0 Sort(slots,1,used) %if command_modifier = 0 col = 0 Spaces (4) %for j = 1,1,used %cycle print then pad(14,slots(j)_name) col = col + 1 newline %and spaces(4) %if col&3 = 0 %repeat %finish %end %external %routine STATE(%string(63) parm) %record(parm fm) P, Q, R %string(63) x %byte %name last %integer others, hours, secs, j, k, prot, unit no, sym, priv %integer exclam %record(zerofm) block %record(spine) free %integerfn checkword {compute zero block checksum} %integer j,k=0 k = k + integer(j) %for j = addr(BLOCK),4,addr(BLOCK)+512-4 %result = 1-k %end %routine read block(%integer unit num, block num, %record(*)%name buffer) %record(parmfm) p p_p1 = block num&x'FFFF' p_p2 = addr(buffer) p_p3 = unit num p_p4 = 0 {into my VM} svc(DISC READ,p) %end %on * %start Failure(""); %return %finish To upper(parm) Squeeze(parm) %if length(parm) >= 2 %start exclam = charno(parm,length(parm)) %if exclam = '!' %or exclam = '?' %start length(parm) = length(parm)-1 %else exclam = 0 %finish length(parm) = length(parm)-1 %if charno(parm,length(parm)) = 'S' %finish %if parm = "" %or parm = "SYSTEM" %start SVC (28,R) {System information} SVC (19,P) {General information} Print string ("Mouses ".string(addr(P_p6)). %c ": CXE ".SS Version."/".version." on ".DATE. %c " at ".TIME.snl) others = P_p2 - 1 %if parm # "" %start Write (R_p1>>1, 0) Print string ("KB of user store, swopping from unit") Write (R_p2, 1) hours = P_p1//(60*60) {seconds => hours} %if hours # 0 %start Print symbol (',') Number(hours, 1, "hours") Print string (" since startup") %finish Print string (" Process Store Console CPU Level Prio Debt ") %for j = 4, 1, 32 %cycle P_p1 = j; SVC (14,P) %if P_p6 >= 0 %start Q_file_unit = P_p1; Q_file_owner = P_p2 Q_file_N1 = 0; Q_file_N2 = 0 Unpack (Q_file, x) length(x) = length(x) - 1 k = 1 k = k + 1 %while char no(x,k) # '_' Write (j,2) Spaces (6-k) Print string (x) P_p3 = P_p3+1 %if P_p3&1 # 0 {round up odd figures} Write (P_p3>>1, k-length(x)+11) k = P_p6>>16; P_p6 = P_p6&x'FFFF' {P_p6: Debt<<16+console} %if P_p6 = 0 %then spaces(6) %else write(P_p6,5) Print (P_p5/1000, 7, 1) Write (P_p4&7, 3) {Contingency level} Write (P_p4<<1>>9, 5) {Queue} Write (k, 3) {Debt} Print string (" privileged") %if P_p4 < 0 Newline %finish %repeat Newline %return %finish P_p1 = 0; SVC(14,P) {Get user specific info} priv = P_p4 P_file_unit = P_p1; P_file_owner = P_p2 P_file_N1= 0; P_file_N2 = 0 Unpack (P_file, x) length(x) = length(x) - 1 Print string ("User: ".x) Q_p1 = 0 {Myself} Director(Direct Identify, Q) %if P_file_unit # Q_file_unit %or P_file_owner # Q_file_owner %start Print string (" alias ") Unpack (Q_file, x) length(x) = length(x) - 1 Print string (x) %finish Print string (", logged on console"); write (P_p6,1) Secs = P_p5//1000 %if secs # 0 %start Print symbol(',') Number(secs, 1, "CPU seconds") Print string (" used") %finish Newline Print string ("Process") P_p1 = 0 {me} Write (P_dsno&63, 1) Print string (" (privileged)") %if priv>>31 # 0 Print symbol (',') Write (others, 1) Print string (" other processes") %else %if parm = "DISC" Print string (" Unit") %if exclam # 0 %then print string( %c " S/W H/W Initialised " ) %if exclam = '!' %then print string(" Lost Free Used Label") Newline SVC (28,Q) {Get sys info} %for unit no = 1,1,max unit %cycle %if unit no = Q_p2 %start Write (unit no, 2); print string (" *swop*"); newline %continue %finish P_p1 = unit no; P_dact = 40 SVC (To Director, P) {Get name of disc on unit} prot = P_p2 %if exclam = 0 %start {Just name & prot status} %continue %if P_p6 # 0 %or {Unit not loaded} P_P1 = 0 {Temp fix} Write (unit no, 2); space P_file_owner = 0; P_file_N1 = 0; P_file_N2 = 0 Unpack (P_file, x) length(x) = length(x) - 1 Print string (x) %if prot # 0 %start Spaces (7 - length(x)) Print string ("protected") %finish %else Write (unit no, 2); space Read block (unit no, 0, block) %if P_p6 = 0 %and P_P1 # 0 %start {Online OK} print then pad(7, block_disc id) %if prot # 0 %then print string("prot") %else spaces(4) P_p3 = unit no; SVC (Disc status, P) %if P_p6&4 # 0 %then print string(" prot") %else spaces(5) %if checkword # 0 %start Print string (" *foreign disc*") %else {Standard MOUSES disc} pad then print(12, block_initialisation date) %if exclam = '?' %start Print string (block_description); newline %continue %finish Read block (unit no, block_free list, free) Write (free_extents, 8){Lost blocks} k = 0 {count free blocks %for j = 1,1,126 %cycle{by summing sizes of free extents k = k + free_extent(j)_length&x'FFFF' %repeat Write (k, 6) Write (block_tracks*block_blocks per cylinder {disc size} %c - k {free} %c - free_extents {lost}, 6) Spaces (3) %for k = 1,1,4 %cycle sym = block_vol id>>(3*8) %if sym = 0 %then space %else print symbol(sym) block_vol id = block_vol id<<8 %repeat Space; Print string (block_description) %finish %finish %finish Newline %repeat %else %if parm = "QUEUE" %begin {Show potter's queue entries} %record %format entry fm (%record(file fm) label, actual, %integer queue, date, time, %short %integer priority, mode) %record %format block fm (%integer %array spare(1:8), %record(entry fm) %array e(0:9)) {Potter's queue is a file of blocks of entries} %const %integer queue = 1 {DA channel for queue file} %record(entry fm) %map entry(%integer N) %integer block no = N//10, offset = rem(N,10) %own %integer last block = -1 %own %record(block fm) block Read DA (queue, block no, block) %if block no # last block last block = block no %result == block_e(offset) %end %record(file fm) f %record(entry fm)%name e %integer first = 1, count %string(63) x %integer j Open DA (queue, 0, "POTTER:QUEUE") Count = 0 %for j = 1,1,255 %cycle e == entry(j) %if e_queue # 0 %start {Valid entry} count = count + 1 %if first # 0 %start Print string (" Queue Label Actual Date Size ") first = 0 %finish f = 0; f_owner = e_queue Unpack (f, x); print then pad(8,x) Unpack (e_label, x); print then pad(26,x) Unpack (e_actual, x); print then pad(26,x) P_p1 = e_date SVC (13, P) {unpack date} pad then print(10,p_text) P_file = e_actual P_dact = 18 {get status} SVC (To Director, P) Print (P_p2/2, 5, 1); print string("Kb") Newline %finish %repeat Number(Count,0, "files") Print string(" queued") Newline %end %else Print string (parm."?") %finish Newline %end %external %routine FILES(%string(63) parm) %string(15) %array File(1:42) %string(15) %name Sn %string(63) S %integer N = 0, rows, cols, j, k %string(7) Last owner, last unit %record(Filespec) F %record(Parm fm) P %record(Commandfm) C %on * %start Failure(""); %return %finish parse parameter(C,0,parm) Open output(1, C_out1); Select output(1) F = Split(C_in1) F_file = "*" %if F_file = "" F_ext = "*" %if F_ext = "" Wild spec(Filename(F)) F = Next filespec Last owner = F_owner Last unit = F_unit %cycle %if F_Nil # 0 %or F_owner # last owner %start Number(N, 0, "files") Print string(" owned by ".last owner) %if last owner # "" Newline %if N # 0 %start %if C_Modifier # 0 %start { Files! } Print string(" Filename Size Access Last used ") %for j = 1, 1, N %cycle Sn == File(j) print then pad(17, Sn) S = Last unit."_".last owner.":".Sn Squeeze(S) Pack(S, P_file) Director(Direct Status, P) Write(P_p2, 5) S = "(".ItoS(P_p3,0).")" print then pad(6, s) S = Access(P_p4); print then pad(9, s) P_p1 = P_p5; SVC(13, P) {Unpack date} Print string(P_text) Newline %repeat %else Cols = 4 Cols = N %if N < cols Rows = N//Cols Rows = Rows+1 %if Cols*Rows < N %for j = 1, 1, rows %cycle k = j %while k <= N %cycle Sn == File(k) k = k + rows print then pad(17, Sn) %repeat Newline %repeat %finish %finish N = 0 %exit %if F_Nil # 0 Last unit = F_unit Last owner = F_owner %finish N = N + 1 F_unit = ""; F_owner = "" To mixed(F_file); To lower(F_ext) F_file =ysFile_Gla Segment) SubsysFile_Stack Limit = Subsys Limit SubsysFile_Options = No Decode Relocate(SubsysFile) A Limit = Addr(Alias Text(Max Alias)) Alias Limit = Addr(Alias Text(0)) %if P_Dact = 2 %start {a batch job} State = -10+1 Q_File_Unit = 0; Q_File_Owner = 0 Q_File_Name1 = P_P5; Q_File_Name2 = P_P6 Unpack(P_File, Batch In) Unpack(Q_File, Batch Out) %finish Init Streams More: Unstack Conts(0) *la_15,Trap *st_15,Cont+4 *stm_0,Cont+8 *ahi_wsp,300 C Level = Contingency(Cont) %cycle Stack Limit = Subsys Limit SubsysFile_Stack Limit = Stack Limit Current Segs = Seg Mask Work Segs = 0 Loaded Files = 0 Obey Level = 0 Skipping = 0 A Limit = Addr(Alias Text(Max Alias)) %unless Addr(Alias Text(0)) <= Alias Limit <= A Limit %start Alias Limit = Addr(Alias Text(0)) Console("All LETs removed") %finish %unless 0 <= Lib Limit <= 7 %start Lib Limit = 0 Console("LIB list cleared") %finish Lib(N)_Use = 0 %for N = 1,1,7 Obey(Batch In, Batch Out, Version) Stop %if State # 0 %repeat Trap: {Base level contingencies come here {There are two cases: { 1 A terminal interrupt has occurred, in which case { either the global string "INT MESSAGE" is set { 2 A contingency is fired at the current level (Int:.) *stme_0,P N = -1 %if P_Dact = -2 %start {shutdown} P_Dact = -1 Shortinteger(Addr(P_P2)) = 1<<8+'.' {pretend INT:.} %finish %if P_Dact = -1 %start {INT:something} Console Int = String(Addr(P_P2)) N = Charno(Console Int, 1) %if N # '.' %start P_P2 = 0 P_P2 = 256 %if N = '?' P_P3 = P_P1 P_P1 = Addr(Cont) Svc(27, P) {Resume} %finish {Int:.} P_P1 = 0; P_P2 = 1; P_P3 = 0; Svc(6, P) {kill output} %finish Stack Limit = Subsys Limit SubsysFile_Stack Limit = Subsys Limit Stop %if State # 0 {Terminate batch job} Init Streams Console ("*Subsystem failure") %if N < 0 Dump Contingency(Cont) %if Options&Opt Xdump # 0 ->More %end %endoffile  " ".F_file %while length(F_file) < 10 File(N) = Filename(F) F = Next Filespec %repeat %end {***************************************************************************** { { Wildcard processing module A. Culloch Sep-81 { {***************************************************************************** {Director formats} %record %format file (%integer name1, name2, %short Spine block, Day) %record %format Dir fm (%short Files, %byte Access rights, Check, %short Unused, %byte Spare, Access permissions, %record(file) %array File(1:42)) %record %format user (%integer Name, Password, %short Dir block, Spare) %record %format userlist(%short Users, Spare1, %integer Spare2, %record(user) %array user(1:42)) %external %record(Filespec) %function SPLIT(%string(31) s) %record(Filespec) F = 0 To upper(s) %if s # "" %and char no(s, length(s)) = '#' %start F_Volatile = '#' length(s) = length(s) - 1 %finish %if s -> ("_") %then s -> f_unit.("_").s %if s -> (":") %then s -> f_owner.(":").s %if s -> s.(".").f_ext %start; %finish F_file = s Squeeze(F_unit); Squeeze(F_owner); Squeeze(F_file); Squeeze(F_ext) %result = F %end %external %string(31) %function FILENAME (%record(Filespec)%name F) %string(31) s = "" s = s.F_unit."_" %if F_unit # "" s = s.F_owner.":" %if F_owner # "" %or F_unit # "" s = s.F_file s = s.".".F_ext %if F_ext # "" s = s."#" %if F_Volatile # 0 %result = s %end %external %routine MASK(%record(Filespec)%name x, %record(Filespec) y) x_unit = y_unit %if y_unit # "*" x_owner = y_owner %if y_owner # "*" x_file = y_file %if y_file # "*" x_ext = y_ext %if y_ext # "*" %end %external %record(dir fm) Dir %system %integer wild monitor = 0 %own %integer dir pos, dir lim %own %record(fd fm) %array sorted dir(1:42) %own %record(user list) catalog %own %integer cat pos, cat lim %own %integer unit no, one off, required unit no %own %record(Filespec) Spec %own %string(31) Current dir %system %routine sort(%record(fd fm) %array %name p, %integer a, b) %record(fdfm) dump %integer l, u %while a < b %cycle l = a; u = b dump = p(u); ->find Up: l = l+1; ->found %if l = u Find: ->up %unless p(l)_name > dump_name p(u) = p(l) Down: u = u-1; ->found %if l = u ->down %unless p(u)_name < dump_name p(l) = p(u) ->up Found:p(u) = dump l = l-1; u = u+1 %if l-a > b-l %start Sort(p,u, b); b = l %else Sort(p,a, l); a = u %finish %repeat %end %routine set dir(%integer unit, owner) %record(Filespec) F %record(file) %name Slot %record(Fd fm)%name S %record(parm fm) P %integer j P_file_unit = unit P_file_owner = owner P_file_N1 = 0 P_file_N2 = 0 Unpack(P_file, Current dir) Current Dir = ":" %if Current Dir = "" F = Split(Current Dir."*.*") Mask(Spec, F) P_dact = Direct Files P_p6 = Addr(Dir) SVC (To Director, P) {Read directory block} %if P_p6 # 0 %start Dir pos = 42 %and %return %if one off = 0 Event_message = P_text %signal 11 %finish P_file_unit = 0 P_file_owner = 0 dir pos = 0 dir lim = 0 %for j = 1, 1, 42 %cycle slot == dir_file(j) %if slot_name2 # 0 %start dir lim = dir lim + 1 S == Sorted dir(dir lim) S_pos = j P_file_N1 = slot_name1 P_file_N2 = slot_name2 Unpack(P_file, S_name) %finish %repeat Sort(sorted dir, 1, dir lim) %end %external %routine WILD SPEC (%string(31) parm) %record(filespec) fff %record(file fm) F %record(parm fm) P Required unit no = -1 Spec = Split(parm) Cat pos = 42 Dir pos = 0 Dir lim = 0 Unit no = 0 one off = 0 %if spec_owner # "*" %start one off = 1 Pack(Spec_unit."_".spec_owner.":", F) Set Dir(F_unit, F_owner) %if F_owner = 0 %start {Defaulted - must find out who we are} P_dact = Direct Identify P_p1 = 0 SVC (To Director, P) Unpack(P_file, Current dir) %finish !!! Mask(Spec, Split(Current dir)) fff = split(current dir."*.*") mask(spec, fff) %else Spec_unit = "*" %if Spec_unit = "" %if Spec_unit # "*" %start Pack(Spec_unit."_:", P_file) P_Dact = Direct Find unit SVC (To Director, P) P_p1 = 0 %if P_p6 # 0 Required unit no = P_p1 %finish %finish %end %external %predicate MATCHES(%record(Filespec)%name F1, F2) %predicate match(%string(*)%name S1, S2) %true %if S1 = S2 %or S1 = "*" %or S2 = "*" %false %end %true %if match(F1_unit, F2_unit) %and match(F1_owner, F2_owner) %and match(F1_file, F2_file) %and match(F1_ext, F2_ext) %false %end %external %record(Filespec) %function NEXT FILESPEC %own %integer Unit %record(Filespec)F %record(parm fm) P %integer User %label New dir New dir: %cycle F_unit = Spec_unit F_owner = Spec_owner F_Nil = 1 {In case of early return} Dir pos = Dir pos + 1 %if dir pos > dir lim %start %result = F %if one off # 0 %cycle cat pos = cat pos+1 %if cat pos > 42 %start %cycle unit no = unit no + 1 %result = F %if unit no > max unit %or unit no = required unit no + 1 P_p1 = unit no P_p6 = Addr(Catalog) P_Dact = Direct Catalog SVC (To Director, P) %repeat %until P_p6 = 0 {Valid unit number} P_p1 = unit no P_Dact = Direct Unit name SVC (To Director, P) P_p1 = 0 %if P_p6 # 0 unit = P_p1 cat pos = 0 %continue %finish user = catalog_user(cat pos)_name %if user # 0 %start Set dir(unit, user) -> New dir %finish %repeat %finish F = Split(Current dir . Sorted dir(dir pos)_name) Console(Filename(F)) %if wild monitor # 0 F_Nil = 0 %result = F %if matches(F, Spec) %repeat %end %external %routine FOR EACH(%record(Command fm)%name C, %routine Do Something(%record(Command fm)%name CC)) %integer J, k = 0, wild %string(31)%name Sn %string(31) S %record(Command fm) CC %record(Filespec) W, base, overlay %for j = 1, 1, 3 %cycle Sn == C_in(j) k = k + 1 %and wild = j %if Sn -> ("*") %repeat Wild Spec(C_in(wild)) %if k # 0 %cycle CC = C %if k # 0 %start W = Next filespec %exit %if W_file = "" CC_in(wild) = Filename(W) W_unit = ""; W_owner = "" S = Filename(W) %finish %for j = 1, 1, 3 %cycle S = CC_in(j) %if k = 0 Sn == CC_out(j) %if Sn # "" %start overlay = Split(Sn) base = Split(S) Mask(base, overlay) Sn = Filename(base) %finish %repeat Do Something(CC) %repeat %until k = 0 %end %end %of %file r service" message. See also: Help open Help shutdown +Open The command: OPEN allows users other than the operator to log in to the system. The system is normally opened automatically as part of the startup sequence. It should therefore only be necessary to use the OPEN command: o After an explicit CLOSE o If the normal startup sequence has been bypassed by logging in as OPER in the interval between system startup and the message "OPER starts" appearing on the system log. OPEN also cancels the effect of any pending SHUTDOWN command. See also: Help close Help shutdown +Shutdown &Shut &Closedown The command: SHUTDOWN nn causes an orderly shutdown of the system in 'nn' minutes. A warning message is sent to all terminals when the command is entered, and after successively shorter intervals before the deadline. The messages are of the form: ***OPER: Close in nn minutes When the deadline is reached, processing of the spooler queues is halted and a final warning is issued: ***OPER: Closing down NOW!! After a further minute of grace all logged on users except OPER are forcibly logged off. +Protect &write protect &prot When the system starts up, all discs whose logical names start with "SYS" and all hardware-protected discs are automatically software-protected. To software write-protect a disc manually, use the command: PROTECT disc 'Disc' is either the logical name of the disc (e.g. Sys, User) or a unit number '#n' (see Help disc units). After execution of the command, users may no longer create or alter files on the disc in question. The disc need not be hardware protected. Note that if a disc is hardware protected but is NOT software protected then attempts to write to the disc cannot be detected at the user level, but will be reported on the logging device as disc errors. (The attempted write will be retried until either the disc is made unprotected again or the fifteenth retry fails, in which case the attemped operation is abandoned). Disc protection can be reset using the HAZARD command. Examples: Command: Protect SYS Command: protect #1 The protection status of the discs can be displayed with the STATE DISCS command. See also: Help state Help Hazard +Hazard &unprotect &deprotect To remove any software write-protection on a disc, use the command: HAZARD disc 'Disc' is either the logical name of a disc, or a disc unit number '#n'. Hazarding a hardware-protected disc is not advised, since any user who then attempts to write to the disc will not be trapped until the lowest level of the system is reached, where the attempted write will be rejected by the hardware, resulting in a series of up to fifteen retries before it fails). The PROTECT command is used to set software protection. Examples: Command: hazard sys Command: hazard #5 The current protection status of the discs may be inspected by the STATE DISCS command. See also: Help state Help protect +Load &mark on &mark Not all discs physically online to the system are available to users. To make a disc available, the operator must LOAD it. This is done automatically at system startup for all discs online at the time. Discs can be made inaccessible by UNLOADing them (see 'help unload'). The form of command is: LOAD disc 'Disc' is either the logical name of the disc to be loaded or a unit number of the form '#n'. The system will report the fact that the disc has been loaded on the logging device. If the name of the disc begins with "SYS", or the disc device is hardware protected, the loaded disc will automatically be software protected. The command STATE DISCS (see "help state") will display a list of the discs which are currently loaded. Examples: Command: load pak2 Command: load #1 +Unload &Mark off To make a disc which is currently online inaccessible to user processes, use the command: UNLOAD disc where 'disc' is either the logical name of the disc to be unloaded or a disc unit number '#n'. (See "help disc units"). The command STATE DISCS (see "help state") will display a list of the discs which are currently loaded. Examples: Command: unload arch Command: unload #5 +Pass The command: PASS ... allows the operator to set a global system password. The text string "..." should be from one to six letters or digits. After execution of this command a user may log in to ANY user's account by quoting either its the correct password, or the global password. A user may also log in when the system is closed (see 'help close') by quoting the system password. If the command PASS is entered on its own (with no "..." part) the global password is removed. Examples: Command: pass twit Command: pass xyz123 Command: pass {revoke global password} Note: For security reasons this command should be used infrequently and with caution. +Reprime The command: REPRIME causes all files spooled to any queue (e.g. LP:, PP:, BATCH:) to be deleted. The spoolers are reinitialised. It should not normally be necessary to use this command unless the queues become corrupt. +Restart &Reboot &rebooting &boot &bootstrap &booting &reloading The system can by booted either from the front panel with the 50-sequence loader and the MOUSES bootstrap papertape/magtape or while the system is running (e.g. to test new versions of the system). To boot from disc 'xx' from a running system, use the command: RESTART xx (See also: Help disc units). Examples: RESTART #1 Restart SYS The system will go into an loop waiting for a valid system disc to be put online on the nominated disc. (See: Help 50-sequence for details of front panel booting) +50-Sequence &50 sequence To boot from the high speed paper tape reader or the magnetic tape unit, set up the store locations using the front panel, then run from location X'50' after clearing the PSW (press DTA ADR FN SEL on the front panel). Address Contents (both hexadecimal) 50 D500 52 CF 54 4300 56 80 78 1399 {To boot from the high speed paper tape reader} 78 85A1 {To boot from the default magnetic tape drive} 7A dd00 {'dd' is the cartridge disc address, e.g. C6} 7C ccss {'cc': disc controller address, normally B6 {'ss': SELCH address, normally F0 7E 0 +Dateis &set date &time &date The current date and time (as displayed by the STATE program, see: Help state) are set using the operator command: DATEIS date 'Date' is of the form: dd-mmm-yy e.g. 15-Sep-81 Or DATEIS date time 'Time' has the form: hh:mm e.g. 13:10 (ten past one PM) or: hh:mm:ss e.g. 10:11:30 Examples: Command: dateis 25-Dec-81 Command: DateIs 13-Jun-79 11:30 Command: Dateis 13-Jul-80 12:00:02 +COMMANDS &Command &Command format &format The general form of a command line is:- CommandVerb {command parameter} {stream definition} If no stream definition is required the rest of the command line may be used to specify the parameter by using the form: CommandVerb-{command parameter} Examples: E file1/file2 COPY file2/LP:file SET TIME=10 SET-stack=32,password=FRED The way in which the command line is interpreted may be controled by options set in the object file corresponding to the command. See also: Help Streams Help Option Help ? Help Stream Definition Help Command parameter +Creating files &Create &Creation &new files Files are created automatically when they are specified as outputs for programs. Commonly files are created using either the COPY program or the editor. See also: Help Copy Help Files Help Edit Help Filenames +EDIT &Editing &Editing files &E &ECCE The Edinburgh Compatible Context Editor, ECCE, is called using a command of the general form: E input,input2/output where: input: is the primary or only input stream (default N:). input2: is an optional secondary input (defaults to input). output: the file for the edited output (defaults to input). E.g. e fred modify existing file called fred e fred/jim modify fred - output into jim e /fred create a new file fred e tom,dick/harry produce harry from pieces of tom & dick e fred/n: examine FRED without being able to modify it. For full information on ECCE see separate documentation. Help about individual Ecce commands may be obtained by typing: Help E_command-letter e.g. Help E_M Ecce commands are: B C C- D E E- F G I J K L M M- P R S T U V X Y Z %C %F %L %M %N %Q %S %U %X %Y %Z , * 0 ? () \ +E_B Editor command BREAK: B breaks the current line at the file pointer. +E_C Editor command CASE SHIFT: C Moves right and inverts the case of letters. +E_C- Editor command CASE SHIFT BACK: C- Moves left and inverts the case of letters. +E_D Editor command DELETE: D/text/ deletes the next occurrance of text on the current line. +E_E Editor command ERASE: E erases the character to the right of the pointer. +E_E- Editor command ERASE BACK: E- erases the character to the left of the pointer. +E_F Editor command FIND: F/text/ locates the next occurrance of text. +E_G Editor command GET: G inserts the next complete line typed at the console in front of the current line. G* to input multiple lines terminated by a colon. Failure Condition: The line starts with a colon (:). +E_I Editor command INSERT: I/text/ inserts the text to the left of the pointer. +E_J Editor command JOIN: J joins the next line onto the end of the current line. +E_K Editor command KILL: K deletes the current line. +E_L Editor command LEFT SHIFT: L moves the pointer left one character. +E_M Editor command MOVE: M moves the pointer is moved the the start of the next line. +E_M- Editor command MOVE BACK: M- moves the pointer to the start of the previous line. +E_P Editor command PRINT: P prints the current line on the console. When repeated (e.g. P4) a MOVE is performed before the second and subsequent printings. +E_R Editor command RIGHT SHIFT: R moves the pointer right one character. +E_S Editor command SUBSTITUTE: S/text/ substitutes text for the text string last located using F, V, or U. +E_T Editor command TRAVERSE: T/text/ moves the pointer past the next occurrance of text. +E_U Editor command UNCOVER: U/text/ deletes characters up to but not including the next occurrance of text. +E_V Editor command VERIFY: V/text/ does nothing. Failure condition: the pointer is not immediately to the left of the given text. +E_X &E_Y &E_Z User-defined editor command: X,Y and Z replaced by the string previously specified by an editor command %X=......., %Y=......., or %Z=....... +E_%C Editor command CLOSE: %C terminates the editing session and causes the updated output file to be generated. +E_%F Editor command FULL MONITORING: %F enables full command monitoring. +E_%L Editor command LOWER CASE: %L causes subsequent text locating commands to distinguish between upper and lower case letters. +E_%Q Editor command QUIET: %Q turns off command monitoring. +E_%S Editor command SWITCH INPUTS: %S switches between primary and secondary input. +E_%X &E_%Y &E_%Z Editor macro definition commands: %X, %Y and %Z are used to specify strings to be used whenever X, Y, or Z are used as commands. E,g, %X=f/jim/s/bert/ +E_() &E_( &E_) Editor brackets: A sequence of editor commands in brackets is treated as a single command for the interpretation of failure conditions of commands within the brackets. +E_, Editor comma: A comma separates alternative command sequences. +E_* &E_0 Editor indefinite repetition: A repetition count of * or 0 causes the command to be repeated until it fails. +E_\ Editor failure inversion: \ after a command produces a new command which has the same effect as the original command except that the new command fails if the original command would have succeeded. +E_? Editor ignore failure: Any failure condition caused by the previous command is ignored. +COMPARE &Comparing files &File comparison &Differences &changes This command causes the contents of the two text files specified as inputs to be compared and any discrepancies to be noted on the output stream. COMPARE file.new,file.old Compare file.new,file.old/lp:differs +Compilation &Compilers &compiling &compiling programs &compiling programmes Source programs may be compiled using a general command of the form: Compiler(parameters) Source/Object,Listing where 'compiler' stands for one of the supported compilers. The currently supported compilers are: Imp - The IMP77 compiler Fortran - The Fortran77 compiler (pre-release only) Pascal - The Pascal compiler (pre-release only) See also: Help Imp Help Fortran Help Pascal Help Compilation parameters Help Run +IMP The IMP compiler is called using a command of the form: IMP(compilation parameters) source/object,listing The executable object file is given the same name as the source file but with the extension .EXE unless explicitly specified otherwise. If the source file specifed does not exist and has no extension, .IMP is appended then that file is tried. +Compilation parameters &Compilation parameter &Compiler parameters &Compiler parameter &compiler options &Compiler option &Compilation options The optional parameter to commands which invoke the standard compilers comprises a list of options. Three basic compilation options specify an initial state which may be modified by further options - the order is thus significant. Initial states are defined by: DEFAULT: include all checking code and full diagnostic data tables OPT: remove all checking code and reduce size of diagnostic tables TRUSTED: as OPT but diagnostic tables completely removed Modifiers are: (can be inverted by prefix NO) ASSIGN: check for use of unassigned variables ARRAY: check for array subscripts out-of-bounds CAPACITY: check for truncation when storing strings, shorts, bytes BRIEF: generate a summary listing with only procedure headings For example: IMP(ARRAY,NOASSIGN,BRIEF) pgm1/,t: +Fortran77 This command is not generally available yet. +Pascal This command is not generally available yet. +run &running programs &running programmes &execute &executing programmes &executing programs &do Programs are run by giving a command of the form: PROG ............... which causes the file "PROG.EXE" to be loaded and run. The interpretation of the remainder for the line (.......) is dependent on the options set in the object file (PROG.EXE); By default the interpretation is the the line is either of the form:- (parameter) or:- or:- -parameter The parameter (or the null string) is made available to the program and the required streams are set up. Input stream 1 and output stream 1 are selected before the program is entered. See also: Help Streams Help Set Help Option Help Files +STOP &Stopping &logging off &finishing &QUIT &quitting &BYE The command STOP stops the process and logs the user off. All temporary and volatile files are deleted. However, if this command is given from within a command file, see HELP COMMAND FILE, the effect is simply to terminate the execution of that file. Subsequent commands are taken from the user's terminal. +FILES &Files &DIRECTORY &index The format of the FILES command is: FILES - for a listing of the names of all of your own files FILES fred: - for a listing of another user's files. The command produces the listing in alphabetical order in several columns across the page. The output produced may be altered (with both of the above forms), by appending a '!' or '?' to the command, as shown below: FILES! or FILES fred: ! - An extended listing is produced, one file per line, with additional information. FILES? or FILES jim: ? - A '2-D' listing: filenames vertically, with extensions horizontally. A star (*) may be used as a wild-card to select the owner, filename or extension for all the files which match the rest of the parameter. E.g. Files *.imp will list the names of all of the files in the current directory with the extension .imp; Files *:RULES.* will list the names of all the files in the whole file system with filename RULES and any extension. See also: Help Fileinfo Help Filenames Help Temporary files +FILEINFO A FILE is an ordered collection of data bytes (8 bit quantities). The interpretation of these bytes is totally dependant on the program using the file; the system imposes no restrictions on the contents of files. See also: Help Creating files Help Editing Help Delete Help Rename Help Files Help Dump Help Filenames Help Directory +MAIL &Messages &MESSAGE Text messages may be sent between users. (See HELP TELL). If a message is received while a user is logged on, the line "***ACOUNT: mail from ???" will be displayed on the recipient's console. (Where "???" is the sender's username). Messages sent to users when they are not logged on are queued up. When the user next logs on a the message "You have new mail" will be displayed on the console. Mail sent at any time may be read by giving the command MAIL. The program steps through all pending messages. Once a message has been read it may be deleted. If it is not deleted it will continue to appear when the MAIL program is run in future. Two variants of the MAIL command are provided. MAIL? - This simply displays the number of queued messages MAIL! - This shows when and from whom any pending messages were sent. +TELL &SEND &NOTIFY The command TELL may be used to send messages to other users. Command: TELL username e.g. TELL ALAN or TELL THU5 The user is then invited to type a message in on the console. No prompt is issued for the lines of the message. When the entire message has been typed the program is stopped by typing Ctrl+D. To mark a message as being about a particular subject, use: Command: TELL(subject) username e.g. TELL(bug report) FRED To send files to other users, the full form of the TELL command is: Command: TELL(subject) file / username e.g. Command: tell(compiler bug) testprog / IMPD or Command: tell /fred: {file defaults to T:, the user's console, colons in usernames are optional} For very short messages consisting only of a 'subject' line that the user wishes broadcast immediately to the recipient's console rather than being queued as normal mail, use: Command: TELL(up to 19 chars) username! e.g. TELL(coffee time?) fred! +FILENAME &Filenames &file &NAME In general filenames take the form: UNIT_OWNER:FILE.EXT where: UNIT is the name of the disc unit on which the file resides OWNER is the name of the owning process FILE is the file name, which comprises a letter or a dollar optionally followed by up to seven letters or digits. EXT is an optional extension of up to 3 letters or digits. Within filenames lower case letters are treated as upper case. If the UNIT is not specified all available units are searched until the specified OWNER is discovered. If the OWNER is not specified the current user is assumed. On creation the system marks files as being volatile by following the name with a hash(#). Only when the file is closed will the file be renamed properly and any old version deleted. Filenames starting with a dollar are considered temporary. Temporary and volatile files are deleted when the process logs off, or the command PURGE is given. Examples of filenames: DATA NEWS.TXT PETER:prog.IMP SYSTEM:NEWS arch_system:help.txt ARCH_PETER:VERSION1 $program.tst +Ctrl &Ctrl+ &Control &Control characters &Control Character The notation Ctrl+A is used to specify characters generated at the terminal by typing the letter specified (in this case A) while holding down the CONTROL shift key (commonly marked CTRL). E.g. Ctrl+X is generated by holding down CTRL and typing X. +rename &newname &change The command RENAME may be used to change the name of a file. The form of the command is: RENAME oldname/newname The command will fail with an error message if file NEWNAME already exists. Wildcards may be used: Command: rename *.imp/*.old All .IMP files become .OLD files Command: rename xxx.imp/yyy.* XXX.IMP renamed YYY.IMP +CONSOLE &Keyboard &console conventions &TT &T &TTY &input &terminal Information about the special characters which are used to control the operation of interactive terminals may be obtained by giving the command HELP special-character, where 'special-character' is one of the following mnemonics: Backspace BS CAN Cancel CR Ctrl+D Ctrl+E Ctrl+G Ctrl+N Ctrl+O Ctrl+P Ctrl+Q Ctrl+R Ctrl+S Ctrl+T Ctrl+X DC1 DC2 DC3 DC4 DEL DLE ESC Escape LF Line feed Return SI SO TAB +Copy ©ing files &C &transfer The command COPY may be used to copy any input stream to any output stream. Data from a second input stream, if specified, will be concatenated onto the end of the output stream. The command takes the form: COPY input1,input2/output The files take defaults as follows: input1 = T: the user's terminal input2 = N: the null file output = T: the user's terminal Examples: Copy file1/file2 Copy heading,letter/final Copy t:/newfile +Be &become &change hats The system allows a user to pretend to be logged on as a different user. This is useful if a lot of work is to be done in a short period on another user's files. The command: BECOME Fred will prompt you for Fred's password (which is not echoed). Subsequently all unqualified filenames refer to files in FRED's directory. Your own files may be referred to by using the "USER:file" notation. To remind you of the changed state of the process, the subsystem command prompt becomes the appropriate username. In the example, the prompt would change to "Fred:". The STATE command will indicate the directory currently in use at any time. The command: BECOME with no username parameter specified will return the process to its 'home' directory. The command prompt is restored to its original value. The form: BECOME user,pass may be used for brevity. +line printer &lp: &lp &printer Any output files specified as having the owner LP: will be offered to the printer spooler when the file is closed. e.g. COPY FRED.IMP/LP:OUTPUT.XXX will send a copy of the file "FRED.IMP" to the printer and label it "OUTPUT.XXX". If no name is required on the output the form "LP:" may be used. e.g. COPY FRED.IMP/LP: A file may be sent to the printer without copying (resulting in the file being deleted) by offering the file to the printer using the command OFFER. e.g. OFFER FRED.IMP/LP:OUTPUT.XXX +paper tape punch &pp: &pp &punch &paper punch &paper tape Files may be sent to the paper tape punch in a manner analogous to that from sending files to the printer; see HELP LP. e.g. COPY FILE/PP:FILE OFFER TAPE.TMP/PP:OUT.ABC +stream &Streams &environment &Logical units The environment for a program may be specified in the command which invokes the program. This is done using a stream specification of the form: INPUT1,INPUT2,INPUT3/OUTPUT1,OUTPUT2,OUTPUT3 where INPUTx defines input stream 'x' and OUTPUTx defines output stream 'x'. If any of the streams is not specified the default stream assignment is taken. The defaults are: T:, Null:, Null: / T:, Null:, Null: +PASSWORD &PASS The user's password may be changed by a command of the form: SET PASSWORD= is any sequence of up to 6 letters or digits starting with a letter. e.g. SET PASSWORD=SECRET +delete &destroy &remove &del &purge &kill &deleting files &destroying files &removing files The command: DELETE where is a list of file names separated by commas, can be used to delete unwanted files. If the command is given as DELETE *, a prompt is given for every file in the owner's index. A reply of YES causes the file to be deleted, any other reply leaves the file alone. The command PURGE may be used to delete temporary and volatile files. +null &Null: &n: &n &null stream &null file &null input &null output &Drain &Sink The null file is represented by N: or Null:. On input it immediately signals end-of-file, and any output sent to it is discarded. +ESC &Escape &BEL &Ctrl+G ESC and BEL (Ctrl+G) are equivalent. Both signal to the system that the user wants to interrupt the currently executing program, either to halt it or to convey some information to it asynchronously. The system responds to ESC by prompting "Int:" at the start of a new line. See "Help int" for details of the valid replies to this prompt. (The normal reply is "." full stop followed by carriage return, which aborts the currently executing program). +interrupt &Interrupts &int &Break The replies to the prompt Int: (see HELP ESC) are normally made available to a process in the external string variable Console Int. However several of the replies are reserved for use by the system. These are: Int:. (Int full stop) Terminates the running program and returns the process to command level. Int:? (Int question mark) Terminates the running program and invokes the run-time monitor to produce diagnostics (if they are available). Int:! (Int exclamation mark) For convenience this interrupt may be generated by striking the escape key () twice in which case no is necessary. It has the normal significance of any other interrupt, except that it is used in the editor to force the command currently being executed to fail, and hence request another command. +option &Options &command interpretation The command OPTION may be used to modify the interpretation of the command line associated with the execution of an object file. The command takes the form: OPTION(