e _vߋt ***THIS VOLUME DOES NOT CONTAIN A HARDWARE BOOTABLE SYSTEM *** NNNNNt:#z xQz kzNNz*O:z INI -- INDEX FILE BIT MAP I/O ERROR INI -- INDEX FILE HEADER I/O ERROR INI -- STORAGE BITL23SEP76151003.t:#z23SEP76151003_:.. xQz23SEP76151003]. kz23SEP76151003Aw.NNz23SEP76151003#.*O:z23SEP76151003M.D wz23SEP7615104835.D *X:^23SEP7615120623SEP76151159.D *}^23SEP7615121923SEP76151210W. D * ٖ؁^23SEP7615123223SEP76151224 /^[. D *{}^23SEP7615124523SEP76151238<. D *yd^23SEP7615125723SEP76151250=. D *Dfxs^23SEP7615131023SEP76151302>. D * ٖ^23SEP7615132323SEP76151315CT.D *V:I^23SEP7615133623SEP76151329I.D *pf^23SEP7615134923SEP76151342NK`.D *ٖ^23SEP7615140523SEP76151355OH\t:#z xQz kzNNz*O:zwz+B*yw:NRL@@@@*n3Mq@{3@^MMq@z@(* |8,h4e#h Xh̫`h   |*E @ffE%*&E !Cw *L  eAmu A Am{3n3Mq"{3&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C *X:NL" ; @t @*m@@@@w@@9S@*X:@@K@uL`;@vL@@?T@*Ww@e^@d@dU<@fc@*Jwc @y@z@9@92g@*JBx@,@~@s@X@p@*(yX:(,1zh(X:(* X:*** F%?&X FX:@X:@"*P& & Amw@! s*vwNOT ENOUGH ROOM FOR BASICwA?T K&m*@  Ae E@ CeJBx z$*uueHueu5(55&9 92gvL@@uL`;&d(@ †@5 w&" ; ydU<t "e^&?T IAS/RSX BASIC yK wfc ?T  K** H w @9S ,@~WwwJwc B) *:RitV]lw**: R itV]lw:*: RwNON R"?T$%K&K'`AME wXX-XXX-XX 00:00:00?T#$K%K`;&d(@ †@5 w&" ; ydU<t "e^&?T IAS/RSX BASIC yK wfc ?T  K** H w @9S ,@~WwwJwc B) *:RitV]lw**: R itV]lw*}NL,8^@" ; @*`@ @m@:@ &@*g'@{~@Z@v@@w@*z@@@%tS@%W@S @*@<%@@z@*}@*`"@[@k@@@@*4@~@"".@""C9@""z@*#@%@%@&h@&Ey@*i'HX@() @,%e@.@2@*2@n3Mq@t3:@{3@8@*y:@E@@Es@K@vL@*vL@@vL,@vLz@vL*}@|L"@*^MMq@kM@S}@?T@?Te^@*Ww@Z @Za@e^@e^@*N`z@d@dU<@f-@\g@*Iq@ku @vOq@xd@x^@*xz@y@z@*}K@P}@*؁@@(@@,p@*:@@yL@W@@Q@IS@*WS@tS@(}@%@@Q@*@ׯ%@ׯK@ٯ@ht@*K@;@;@;@`@*@@' z@'X@t;@*t;@v؁@HX@y@y@* @Z@5 @t@ձ@Q@* @ @ @ @ K@* @`@ @% @(p!@qht@*|@@( 8Zt!h h*h }h~hT,Khty:h *,Kph:K+h2K.hP{L}h{L~hZ *{L8h_Xh_h_hVqMh"*Xq+KhV[q!hsh sXh v@h^*Jwc hxvLh8 zh h<  * ` (C@  EA N`zvL*}$@*& BmU& & & & @ ,5& vL*}vL*}*L6" E6"66"*r  E6"6*$ Gm-*  m ^wRESEQU" ENCE ERRORK*  AC 5 "vL*}*BQ$mE e5 $Iq(t3:*<AC u"u E vL*}t3:t3:*b  BB5Wx^(ׯ%*Q &&& d\ D E @${3*e OW@ D@n3Mq`$n3Mq*R? ; 7@R& n3Mq*T W& 0 vL@`* p 0 AWW0W9 wpvL@`&Iq*F @   wSUBSTITUTE ERR  lORp*p7 D E /< 4-( vOq {3*8 4- t  *@ 4@ t *< 5-w * 5 A&@\gvL, z$8(@*C w " w ~ g'Iq~$g'*.W-f 5 5 w*"".g'@g' ~$#(*T fAN@@5 @mA# vL@"vL*}&@*z 5"5 Dx v 0  t3:t3:*}* whw D# "  v@8""z(d*B""" @ 5 . *}&vL*}*"" $ @B""d .*H @ 5 "H$ '^*}vL*}*8cC`Ҕ  0u`*}$*}&z^u` &z*} vL*}vL*}*}^MMq*x 8@ @ ECCm^MMq*}&*}* w   $ B&^MMqn3MqkMkM$^MMq(^MMq  u`u`& *}*}zz*}vL*}*#@`" @  vL*}*}vL@* .rDA W   vLdU<vL@e^"tS*,B @`5 w ȕ5 ww *}K@ׯ%"Z&#*R CC@@w USE&?TKkM^MMq" ; @*xD, w FREEw 55 &KIq %$%(Za*wF  w R5  &?T yIqg'"&Ey$k$ >  5 u u& Ww&Ey[(ku  N`z*AW- 2 wwLw 8ku  g',%e wOLD  & ?Tw v wNEW  &?T2&2   w w& Ww &""C9&Ey"`"*T  w u&Iq ((z"Iq& &*z @a W #h ku  f-`$h 5  u &&Ey[ &Eykku *uA < W #N`ze^ ku ׯK*w  b s ?TK\g* # (*,& w5H& N *R  ‹W  $ Z*x  WWw6 WISׯK""z(;*W vv ;؁"&*l-- W&ׯK*f}w"&A " ؁""z" &$@*&$"K"H2  K s*6 B B5Bm xdvL*}&ׯ%*\ 5 & AuB B   v%W@S (WS*>  3 @Q%ׯ%xd*& BH 6f ) t@Q$&h*UWB‹5BBm ()  ISz&:@*ʵ*$#gwywILLEGA qhtht@Q@Q" * L DIMwVIRTUAL ARRAY CHANNEL ALREAD  @ Y IN USEJ *J Yg W WL W IS( *p F 2W    WW"ٯ* !2 %w * K |@&WS* '2!$-   W-&  ,8^WS"%W&%W* YrWW %wpwW&%W @QISׯK"""z&* <wwDA r&dU<@WS"%W&%W(@Q*. wCOMMON OUT OF ORDERBBBmW &*}*T ,*rBЃ &  % "|L"&%*z DwSTRING TOO LONGwTOO MA% "  NY ITEMS IN COMMON ! wFUNCTION ALREADY DEFINED   *  *w  j  &?TK &y: w5 w7 B&{~# %W:vOq2* @a   }5 8@&f-<%2S "%W(@6 ЕЕ5 B55&ׯK ׯKׯ%t3:zz&P 5f 5 l&vL*}*} " ; ^MMq^MMqn3Mq*r ʵ, PB  &@Q :@,p,pxz&xz   @ЕЕ5 &y: Ww@ׯKׯKׯ% 5555 f@&t3:z vL*}*}^MMqv* 5  W  z^MMqhtv؁"  euuu5 &" ; n3Mq^MMqkM^MMq{3* wFILE NAME-- @פ %W ?TvL, vL@&*8  Ae  B1 @{~\g*^ IdB ׯK ׯ%% tS$%tS*  WW Es'X' z ׯK(ׯK*   QWWW`5 $yL*  BBBm (%ee*}* B    B  ׯ%K* 5 \  @ ``*B   % B |L"Z ;*h 5 Bm5  WW&vL*}%%Z "ׯK(IS* Bm  ʵ zxz&* $ ʵ% ʵ(w\v؁:@qht * BW@`B u5 5 &vL@ @ ($؁*ѕ.09w ׯK(Es*&& 5   fE@( `*Ld ZE Ę "*r פӋHWA ` ` @`"ٯ* ѕ <3&%tS tSE@ձ@Q"(}(*d,"&5 ' z'X(p! yL( * ѕ@ /  u% K(* uwww$wNww("ׯK( (0qĥeѕ@ h(  '  % *T  'ѕѕTѕB &ׯK*z & 3E % % *$% B " *}$vL*}*e `` zz z$vL*}(z*BNF 3 *}*e @ wwLINE TOO LONG TO TRANS 8LATE>*> E P90& P E@*d ѕ@ Նנ נ\נ ؁% $`*ѐ B& & 4z$^MMq* ,5$%xz(v؁* $ ( v؁*55 : e htht&kM*"  ; 8 $% kMn3Mq(`*H L2 2 2 ( v؁&:@&n ˵˵s uC&xz ^MMqht|@"؁*ѐѐ@ =wZwPROGRAM TOO BIGz *& w J Hu & & vL@$(*% !ѕѕ  !ѕ;;(t;*ѕ@ wwwe t;&*(C "e $ vL*} zvLzvLz*NC w4ѕѐѐCm zvLz vL*};(^MMq*t  \ ̂ ɂ kMkMn3Mq^MMq*  A Z `*az 7 & AB vOq&{3* Nu   CCn3Mq{3kMkM*  0 Cm zd" ; "n3Mq(^MMq*2  چ ؇e"cK`b zyX*} zvLzvLz*NC w4ѕѐѐCm zvLz vL*};(^MMq*t  \ ̂ *ٖ؁N@Ly@`@* @$ @ =;@ `@{~@*S@ g@Z@@@$V@*S @@<%@< g@4@*""@""(@"".@""8@""R@*""d@""y@""z@"">@"K@*%@%@%H&@ &p@&h@*i'HX@([q@(v@}(^@(Z@*(Z@(`@(@() @(`@*,@.@2(@2P@{3@*8@f9`@:@K@uL`;@*vL@@vL,@[M,@sQ9 @sQL"@*?T@?T""@?Te^@Zw@e^@*e^@R`(@d@f@\g@*.q\@6q%@\qZ@v@w$@*xd@(yp@yv@yv@yd@*y1z@y@yo@yr@ zy@*1zK@z@*}'@P}@؁@*@(@v@rL@v X@*,@~@%@˖e@:@W@*fM@IS@(}@@ׯ%@*ׯK@ٯ@ht@`@p@*@@' z@'X@,@*@@Z@5@5 @*8@t@R@ @ !@*! @% @(p!@/@[w:@*qht@fd@iZ@( |8 *K f9h 'hX<'hB'h+.Zh*+.h,.]h09h659 Xh:`h*KhvL\gh`X}hF_hneWh2*f@htf XhfZhhIqh\qrh~h hd   |*BaBBm WX WR &z,ٯ"K"ׯK(y*&wWK  KWBW?!k&˖e ׯKy1z"K"ٯ*Lf i&&  e"K*reҤ&  פ  ҥ`*  B LI `(p!'X &*FOw/ WW! fٯ""z ٯ*fff  B&%% S"K zy$(p!* !ww B&'X 5""d"""R*0: C &(p! 'X,5(i'HX*V5WE& W< 8  'Xi'HXxdׯ%$i'HX*|W5 ȵ@ @ &ׯK =;() (p! 'X&8& 5www W&%H& }(^""z""8"" i'HX* W  C Cm K&ׯK' z.. d$uL`;*wwTOO MANY GOSUBSw чC˖e   "".$"K(נננ   &'X (p!' z:%"%*4 WW  נ &i'HX %ISׯK"' z(xd*ZwCONTROL VARIABLE OUT OF RANGE  (WC  Cm ww&\qZׯK..d$˖ewRETURN WITHOUT GOSUB"""R *f BBBc55W ht ٯ&v$܇ W ч u&"K yvy/"K sQ9 u5 W&%yv % yv%%* W Wz f BQ&ׯK !"KׯKsQ9 "xd*BW*W2W BdBBm  ׯ% 5 p"z&v*huwNESTED FOR STATEMENTS WITH SAMS   'E CONTROL VARwFOR WITHOUT NEXTO  *e B4BW/Bm  ׯKzvQQQQQQ&yv yvyvyv%QQfNff(%% %%%yv* f  uw %&yvS "K zyS """z*011w  w BBԍ c˖e˖e(p*V`eCgCCm RURSPz"ٯ(v|55 &` %iZSfdS* fvfvf %%yv"yv&S*fffvfvf  &y% %S zy(yv*  !!e %wfv yv˖e&%) wwNEXT WITHOUT FOR$% yvyf9` .(.wIAw Ba &""z %%R`(<%< g(Rw Ba W  &sQL"(yp <% ge^ t*v  W WwW@W& ` w$ׯK[w: f$IS(@W=Wh 5  &R ׯK! "K؁$*C ew #  eZwv ؁?Te^*    @`5  e^,@~$V$,@~* | wW `$W  \g?Te^`ׯK&IS*2 @ f% 8  $Ve^,@~*Xw W W w  ?Te^RׯK"e^&˖e~ ww$*}'"">?Te^K*"& u wILLEGAL IN IMMED@ *IATE MODE55 W  (8t($ =;*zBwlBBm עˋEzz, * )C ˋ6CӤˋӤ d@**פ ר f C = w (} ׯ%xd$d( !POUT OF DATA w? (4?Tn*nf  wC &vL,{~ydvL@&(v*w ע,4 -"1zK* & עˋע, `v %y*WwW2 = 5 ISׯKd$8*ע&w  wBAD DATA-R Z˖e8?T"",ETYPE FROM ERROR>*> wBAD DATA READwwEXCESS$   ""z"?T""d INPUT IGNOREDt*t WW & פ&$  fMIS v*2 & ע"ע'ΔΤ!*׬ wINPUT STRING ERROR?T""*   F  $ *  e   sQL"y1z*4 wwפ׬ עע,`P} &Z ˋe 5 5&v X%iZS(Z$fd*|  &&& C S% %v X&sQL"*  && fA5 &{3(sQL"("(`(%* Bem  .q\ %H&*  `e%w %{3$yr  w (yp  e   sQL"y1z**{~NWL:0@>L@*T;w@s@( p8*{h{~hwh(  p*  ->L>Ls T;w&L"*  && fA5 &{3(sQL"("(`(%* Bem  .q\ %H&*  `e%w %{3$yr  w (yp  e   sQL"y1z**ydNSL$9s;@s@"(@8X: @( @*   X:X:*&e(ea`ff/-X: X:*L a ff/-s$9s;X:*r  ff/- & f"s$9s;s$9s; $X:fG3 X:$| }p  e   sQL"y1z**DfxsNL" ; H`H *H:0H>LHg'HSH0* gHZH*@H$*}H$VH(*%WHLS H$H <H< gH*WHHzH*}H~H*%H,%H.%H&H &pHp&H *&BxHV{(SH{(pH|(`H}(^H*(ZH@(ZH(%H(`H (eH*(H() H(`H.H&2H*2H2(H2PHn3MqHn3vH*t3:HN{3HJ8HR:PdH: H*KH uL`;HvLHvL@HvLzH*vL*}H^MMqHkMHHM=fHS@HX*e^HT:dH:dH:dH:d@H*:dH:dH:dH :d@HdH*dU(H@JBxH3*vH,@~HP*sH*vH,pH*5dH8dH:@H;H;&H*'""8 ""z%  $v؁*U  >U "(Z K($ &%5   7 &%% (vu ([q*E&7  `&%%(vu ([qrL*E 55 555"S@&KqBx* @&  &&Bx ׯKISS@"ձ*2 w @a" "KKqBxN&Bx":"*XH5 u @   %(ku %H&(N`& ~AwwwBʵ2&ku  ˖e"62""zqht* WW @ &W xzׯKt":"&%*  dwww w& @w""z"" ""8$v(˖e*W)W f@ &ׯKdt:" %&&h* w@5 W ww&""8 %H&(`w:ׯK&""9&2WW wu&""zׯKIS˖er rTWwwrׯK""z˖e2&ku  ˖e"62""zqht* WW @ &W xzׯKt":"&%*  dwww w& @w""z"" ""8$v(˖e*W)W f@*:INgL,@`@*mZ@>L@ &@{~@v@*@k@u @4@""&@*""C9@%H&@ &p@"&y@&h@*&Ey@([q@(v@(Z@)@*)2H@)_@)Ty@)%@)%@*)W@)8@)p@)@K@*?T@WBz@WZ@e^@N`t@*f-@f-@\g@Iq@vOq@*؁@ X@}s@ձ@`;@*e;@( L{~4"%H&&"&y*0 0 w7  $)2H) )N`tvOq*] @ :@Aa$f-* .&;#09A `*6Z az  w """C9*\   ѕ  NOf-`$f-*NAME& &@e 6 %H&"&y$ p0  p, * &p &p )2H)2H &p)%*    w f&7 )% ձe;`;""&  2Ce5 &(vu ([q%H&"&y(Z*  3   3 )8 )8)%)%0 v   B  Kaz  w """C9*\   ѕ  NOf-`$f-*NAME& &@e 6 %H&"&y$ p0  p, * &p &p )2H)2H &p)%*    w f&7 )% ձe;`;""&  2Ce5 &(vu ([q%H&"&y(Z*  3   *fNWL""z@( |8fh  |w""z """C9*\   ѕ  NOf-`$f-*NAME& &@e 6 %H&"&y$ p0  p, * &p &p )2H)2H &p)%*    w f&7 )% ձe;`;""&  2Ce5 &(vu ([q%H&"&y(Z*  3   *ٖNAL,8^@/+@*K f9@`@ @$ @/ @*M@p:@{~@S@w@*S @@@*}@@@*4@t!@!@""@""8@*""9@""z@#@%@%@*%H&@ &p@&h@'y@'@*([q@(v@(Z@(`@(`@*+.@,.]@n3Mq@{3@09@*59 X@:`@4FK@K@K@*vL\g@|L"@?T@?T""@W@@*`X}@_@E`W@dU<@fZ@*.q\@6q%@Iq@[qj@\qr@*r,.@Cu @u @u @vOq@*xd@yv@yv@z@*}K@**}K@P}@\} @\}@(@*@v@rL@@ @*%@ٖZ@@@q@*쨀p@v@8@vp@:@Ԫ@8@*Ԫp@@p@,p@5d@*:@@W@IS@@ׯK@*ٯ@ܯ@ܯ@ht@;@*`@@@' z@'X@*t;@v؁@ @Z@8@* @@ @ @ @ @* @ q@%r@% @V) @*X" @qht@|@@fd@iZ@*( |8 yhb"" hB""(hV*""Rh""dh0""yh "">h""Khn*,hf9`h:hd:"hL:'h*[M,h4 sQ0 h4 sQ9 h sQL"hL R`o h*R`(hR`0*hR`:h$^q hL(yphD*ydhZy1zh& yh yoh yrh* zyh1zKh\ v Xh ˖eh  |* wLu B E (xd {~S ٖZ&ܯׯK *&w B5BmwwARGUME ""z *}KzK f9" LNT ERRORVVw wSTOP$""9 4?TKj*jwD!!VBF+ /  dU<%rV) $t;*3SwD&  Z8 "*E ! e   w( ܯ  *}K\}$\} *Zw> u < r pW|L"iZS;(lwWw0BBmʵ5(  ""z z"qht:@ )&IwwEXPRESSION TOO COMPLEX L*Lw8w<   WWf% $IS*r  WCw`%% %* @ʵwr   %& ޵5 &` iZS%fdS(Cנ"נננ&%%ׯK'X' z X" ( נננ&X"  @ Zٯٯ"Z נ  eh)@  X" 6X" X"  h*:d\f! ff w(( d \%%S*`w : e5 wINTEGE%%%"?T""R OVERFLOW* 5   27  7 ($  %(v  Ԫp" ((v" 7  7 *Ԫ@8(v vp  (v f\5 wN(v@8%%%([q*\w & :w% ""z'y*w w  !& *>Β 1-WW5d85d"8*d  e5 Jf%r"S* ڇwNUMBERS AND STRINGS MIXED#  *%  $ ҃!& *Β`#"e b `e* e ew*" wSTRING TOO LONG 0w *HwW/ 7  b"&ff@  (v b([q*n  %5u\w Wu %%& *  5 5 w.wB  %%fdS*7  @7   (% %%(v " $  \7  7 (S %(v:    7 ((v:   %% Ƈ7 ((vq iZS(v*6 wwJw f W-(  ""z% %(%*\ W- N-5  %%% %*  BBWBm ?&! *}*ʇ 4Bmʵ;ʵʵzht"(`* Hf Vff %%%*Bm55 z ht&IS#w wUNDEFINED FUNCTION  :*:w&f&&6""z  ٯ*`Bm5 5 z v؁* u  &S * Wu&6Bm5ׯKS &z*5 &B  v؁z* Bm$    *}* ww %  *DwwD   w p%*j7  K ewINTEGER OV((v  쨀p %%?T"" ERFLOW* 5 K e6 քwIN$  %&?T""TEGER OVERFLOW* 6   R  %7 $ S$(v&:(([q* Jʵ" X" fdvyvyvht*H uB 2 %%yv IS*@" uWww0w0@ %%yv ""z*f17  KE @< L % vOq%* GBAU B  B e%%*    u5  B  %%%&e@@ 07  , ( %%%(v  ", $p* 5 ff\ %%"%&%* w& @\&   % %([q|@&@*F   2 L . 4 ,8^ $ *l D & mD %   * ʵ` ʵʵ ``qhtv؁,p* D ʵ wINCONSIS qht  * TENT NUMBER OF SUBSCRIPTSwSUBSCRIP  * T OUT OF BOUNDS  7  $`v%$(v& (*  7 (iZ S%(v:*B  Z PwSTRING S fd S@  *h TORAGE OVERFLOW5eӤ {3*   ## @m"{3* e5 Bʵ-@C ^& n3Mqvyv yv(qht* ff 5wb &v %%(Z %$%" RJU& v؁ v%%qhtv( wjBʵ@ C &(`vyvyv&qht*B    B evz*h Kw f d5w ((Z* Q& R "   f* A B@ҁe U&( %.q\%H&$(`&(& =5 f ww& %%W&h%H&"""* @& %@,5W, ""8rL &p(`$ &p*" 1 5 1 E`& &p (`% &p6q%(`*H  `BlCw&f&  %H&"`*n +-N 5 P} %$%* 5  U W-5  %%%%&%  %.q\%H&$(`&(& =5 f ww& %%W&h%H&"""* @& %@,5W, ""8rL &p(`$ &p*" 1 5 1 E`& &p (`% &p6q%(`*H  `BlCw&f&  %H&"`*n +-N 5.D *(^23SEP7615143123SEP76151415sYz.D * :pI^23SEP7615145523SEP76151439 zd.D *M^23SEP7615152023SEP76151504.D *4X^23SEP7615154523SEP76151529.D *f^23SEP7615161023SEP76151554[.D *hL^23SEP7615163523SEP76151619.D **f^23SEP7615170123SEP76151644)c.D *p{}^23SEP7615172723SEP76151710.D *&%te^23SEP7615175423SEP76151736#.D *.:I^23SEP7615182123SEP76151803.D *Ev^23SEP7615184923SEP76151830g.D *HX:^23SEP7615191723SEP761518580.D *|@y^23SEP7615194523SEP76151926P.D *\f^23SEP7615201423SEP76151955hc.D *r}^23SEP7615204323SEP76152023+. D * `@^23SEP7615211523SEP76152054 .!!D * `@8^23SEP7615214823SEP76152126 .""D *pN^23SEP7615222023SEP76152159.##D * `@^23SEP7615225523SEP76152232 .$$D * `W^23SEP7615233123SEP76152307 ?*(NL/+@/0@*a W@`@m@>L@{@*{~@'@v@$V@+@*<'@4@"" @""z@"K@*#@%@%@'y@,@*8@:@:'@sQ0 @sQL"@*?Te^@Zw@R`(@R`0*@R`:@*neW@Iq@^q @r@v@*Jw'@6x@(yp@zy}@yr@*1zK@؁@@,@~@IS@* @( |8*}'hH*}Kh\} h\}h  |n4>|(neWn  4>|&6x+zy} a W #/+>*/0:' >(2N  (N  <''"K"VW___ @&"K  "" ""z"" ^q *t   a` "&% f5 5 _5 &8 8,8%m"  Z_ _ *%{%ZR`:4R`0*& Z W-__ _*^q Z %%"" Jw'"v* W-W @  &Iq^q %IS^q  %*5 Z___5 U* ,@~ZR`0*""z"" >L"{~*B_ Zf& N# _$>LR`0* ^q Z%$V*h  %_ T@e B ?Te^`"" T r*dbB bE B  *  _ T E_*%%R`(TsQ0 $%(R`(* T  @5 _$T %%%"%&%*5 &   0 R`(%'y`*&  Z__5 & $%ZR`:"" %$'y*L    0  ` `(r Z__ @5 5  (% ZR`:"" @%%*_ @  5 5 $%R`: @%"%(%*__ ZB p_*R`: "" ^q ZsQL""%((yp* \W[ VWU P Z*"K IS"KIS"K$:(Z* @@-7 #%%*. 0 - * ceec *Te`eҢ    ؁؁*z   %55 _  ؁ %$%(R`:$__ LWK F f&""  ""z"KIS"K :*fW? : Z. $%% IS"K:Z* #( !C %"%*   B c eesQL"*2 ____ @ yr(yp"" ""z"@*X5 5 & Ҏ e% % sQL"*~   ȋ __ @ 1zKsQ0 R`(""" &@*  `e _ `$(yp*_ TB e5 $sQL" yrTsQL""&؁f _ Zwv ؁sQL"yr!C %"%*   B c eesQL"*2 ____ @ yr(yp"" ""z"@*X5 5 & Ҏ e% % sQL"*~   ȋ __ @ 1zKsQ0 R`(""" &@*  `e _ `$(yp*:pINL @$ @*@>L@ @@@$*}@*$V@@<@""y@""z@*%@%@%Z@%H&@ &p@*"&yH<&@<&%t@' q@'ą@*'@U(] @{(S@{(p@}(^@*(Z@(%@(`@(e@(`@*)Hb)_Hh)H`8@$9@*$9X@$9~Z@$9f@:"@:Pd@*: @:p@:br@:@K@*vL@@M=f@e^@e^@f-@*f-@n^@nL`@n`@r@*t @vOq@w&@z@9@*92g@؁@@(@`@*ׯ%@hp!@:@ձ@`;@*e;@( oh =;hb `hlvh*@whzh[hxhhkh*hZu hewhN"62h""h*""h""&h""'h""8h""C9h*""9h&hh&Eyh0,h"vL,h*?Th&?T""h ?Te^hH?Th.N`&h*N`thN`zh`\ghFwh w$h   L(vOq* B  8 vL@ &* wbLINE TOO LONG  A@ $ CsBB&vL@:Pd nL`:brn^@*3 )`ɕ nL`nL`n`&* L?@ ff Ke^"$V&e^*< @  $V e^*bA  UU ؁( (`&(Z*% n@eh  %<%H&%H&$<* o5lUp"pd5#& (`(e؁%H& (Z&' q*w5 #0dfedeb (`'* #%#& 'ą(%Z$<&%t* $e$pppe: %H& %H&*F  p0   t <& *l'**<*@*Lw hp! $9~Z$9X$9"$9f*" 5!-x5(`x&(Z(` *Ue 5UE6(`(`(Z"(`UwFILE NOT FOUND(%  *wUSE REPLACEwILLEGAL FILE SPECI  FICATION(!(wFILE PRIVILEGE VIOLATION  F*F7 5`5`=  A=&vOq r$V $V$e^*l BB H !&92g92g K92g9&ׯ%*@w.eå5U5 %H&{(p"{(p({(p* Eå  R L8`f{(p K*5d8d d b0b 0 `E,b$(%{(p *  20dfedebdU &(`** ` b d%`7 b0 EvOq((`*P  w6Db  e; `;%H&(v U0du-Cs& (`92g9:Pd":$n^ ss3 *9nL` 92g nL`9nL`* )ueBa$nL`992g"$*}($V `f{(p K*5d8d d b0b 0 `E,b$(%{(p *  20dfedebdU &(`** ` b d%`7 b0 EvOq((`*P  w6Db  *MNRL @S@*@@@@""z@""k@"K@*%@%@'y@,Bx@,@*.*}@n3Mq@n3v@{3@f9`@*[M,@^MMq@:d@:d@:d@*:d@@:d@:d@:d@:d@@*dU<@x^@yv@yv@z@*؁@v@,p@:@@IS@*ׯK@`@@ @ @* @ @qht@|@@( |8Mh  |*& B5  E5d&d*&W WBBmʵ" ׯK"z&qht:@ $LʵU 3&qhtx^:d:d :d":d@l  &:d:d:d :d@{3@*w6 w@ BB/f{3n3Mq؁@* w"&  wMISSING SU'y.*} BPROGRAM*  E% `*u`WW^Be  n3Mqn3v ׯK"n3Mq*"PRR wD E؁"{3*Hf&ɋWWU 5W IS( *nWUU5! B EISn3Mq${3* WWC! ׯK$n3Mq#wNO ROOM FOR CALL   *w@`e  ""zn3Mq {3&n3Mq*S S  U5~g&* 58 f 2 "KS*FU rJUJD  %%%*l"  K"@*)BBBmE \5z ":@*eA( @  |@*KecU w @,p""k" & &Wl @CB&,Bx  ,p,yvyv*   5   v[M,`v*F  A"e  *l (   *  E e@  W*wPD eAEu5 w ISdU< n3v"n3Mq&n3vf9`A( @  |@*KecU w @,p""k" & &Wl @CB&,Bx  ,p,yvyv*   5   v[M,`v*F  A"e*XNwL( *  E e@  W*wPD eAEu5 w ISdU< n3v"n3Mq&n3vf9`A( @  |@*KecU w @,p""k" & &Wl @CB&,Bx  ,p,yvyv*   5   v[M,`v*F  A"e*fNwL`@ @*~}@"K@%@%@S}@*f@@f X@\g@vOq@؁@*@IS@ׯK@R@(* p8; &h@#%hZ hZah"Zwh"vhvh  p*= E +    ؁*&  e0 e: &D C"%(%*L   e00  *ryEU C 0@     *  e      S}~}* Pe P *e   Ee0E &S}* 7 *7 &e7  vOq\gvOq&vOq*0 e5  5 H %%%%"%*V5 -W  &  %%`*|e0 5   *.    V. 0 *0 # .    *hLNUL @n3v@*(0?@8hmZh.""kh ( h*9qZh.\qZh.k hٖZh. * wUNDIMENSIONED ARRAY IN n3v & CALL 5 H %%%%"%*V5 -W  &  %%`*|e0 5   *.    V. 0 *0 # .    *fNWL; &@`@* @~}@"K@#%@%@*%@S}@Zw@f@@f X@*\g@vOq@؁@@IS@*ׯK@R@( |8fh   |*  r& WWWg& 7R "KISR ׯK*& eW  wW ׯKf X f@$ׯK*L & 7% D4   "K$f X*rf&  & e  *)Ԓh I4 B& W *NQ H*  wPRINT USING ERROR *      *0@  E \g%%$%*V5 4 &  &  %; &*|$  >*0 8 `& - *`:%  \g(%*U5 w`  %%Zw\g*& & &  & *:6 &N  -e*`a5 9ȕ01000 *e w* * *$$ - \g&\g*    *, 0 .  \g\g(\g* 0   > (\g*D   #%*j- wl a` 0w \g*& 4wi x \g *w\Z44U wOM  *  *w., x $*(#4*N ^  *t  `  (\g($@J:0  * $ @J:0* ˋ ʤ #.*$'\g\ LERC#-^,.#-^ \g *w\Z44U wOM  *  *w., x $*(#4*N ^  *t  `  (\g($@J:0  * $ @J:0* ˋ ʤ #.*{~NVL:0@>L@*,0z@( p8{h{~hwh   p*  55 & >L>L>L>L&>L*&Da&& & KHkf& :0H*LEDa&& & K&,0z:0 rs>L (\g($@J:0  * $ @J:0* ˋ ʤ #.*%teNLep@o@*o@ @z@@@%W@**}@""C9@%H&@"&y@{(S@*,K@n3Mq@t3:@{3@8@*y:@vL@@vL,@vL*}@^MMq@*kM@e^@Iq@vOq@xvL@*x^@xz@z@؁@@*(@c:@yL@ׯ%@(" 8%teh,%eh  *fAW W  (@ׯ%yL(x^(&  w7 Aw@& ,KzIqvOqe^$""C9*Je ҋ & & #$%H&"&y c:oep*pBaNa &  E` o* % &epo o$*}&vL*}(vL*}7 &zz^MMq @ *}vOq(w @6-@U&8 ""C9vL,vL@c:$8* & " AaA C` {(S(؁* P B  A :@E @"8&{(S*>A  wPROGRA @ xvLt3:y:" *dM TOO BIG (E6`"o*CaK 6  wCHECKSUM Ey: RROR IN COMPILED PROGRAM}* wILLEGAL END OF FILE IN COMPILEy:  D FILE7 u-&*}vL*}z ^MMqvOqkM( CC B &{3 n3MqkM^MMq"z*.DDAB`a bu $؁ @*}^MMq"vL*}(*T"Aa ` a7 "C vOq%W"؁&*zD̢  `$  zxz(xz*   & ^MMqxzo$o ՇOF FILE IN COMPILEy:  D FILE7 u-&*}vL*}z ^MMqvOqkM( CC B &{3 n3MqkM^MMq"z*.DD*:INEL,@z@*$V@@<@ew@""'@*%@%@%H&@"&y@&h@*i'VX@)_@)'@)Ty@)Ps@*)p@2(@2P@n3Mq@n3v@*$9`&@$9~Z@:Pd@:t @:@*K@?T@Za@e^@e^@*n^@nL`@Iq@vOq@w@*y@؁@,0z@K@ձW@*( ==><>><<>&  55+="':#[&,ٯ fMt$7]IF END #LET IF GO TO ON &  nt!}n 'X*W FOR INPUT FOR OUTPUTFOR TO NEXT fqr p%/*} THEN STEP GOSUB RETURNINPUT L&5 (p! !' z!ձZ(v\g*INPUT PRINT USING REMDEF READ DA& ZZ[w:ձ@Q!%'ձ&TA CALL FNPISYS(RCTRLOABORT(&(} yLvXM'TTYSET(CTRLCRCTRLCRND(RNDSIN(&*s 4wӱx}ޱ"ޱ$COS(SQR(ATN(EXP(LOG(LOG10(&W v pQ wnQ@ыC $v؁*d e@ABCf5&vCu ku u  u $u &u\ ~ @m5 &Cu ku  u u u  n3Mq*5 7  5 4&{3 n3Mq( v"(r*5 @ 5 @5 &r .duL`; *}$vL*}(e 5 5& z;%t;";*uuuu& C C eC &% %%%%*Be C    0@ C *h       e *  l   0 #*  5 uafe^Z$V $V*&& W ы ׯK*WWW W eQQ%  5 yL*&e WWWы ;t;;*L  09    *r& 0eC  . `* .W09   E* u E e 9 7 5 vL@*& f+-  P0* 9  m Ee& *00e!  E eweV `P} ׯK*WWW W eQQ%  5 yL*&e WWWы ;t;;*L  09    *r& 0eC  . *&L""`@( `8Jh  `* N A f C%(&v   \ 7   ""`*&L( `84:h   `*&  f 6A  v&  6N\*"`^NUL$ @?T""@*,0z@( `8""`h@9ShKh  `*&fEwFLOATING OVERFLOW ,0z?T""&GwFLOATING UNDERFLOW ?T""@@:wDIVISION BY ZERO ?T""XX.wNEGATIVE SQUARE ROOT ?T""t)t wBAD LOGwINTEGER OVERFLOW?T""?T"" wEXPONENTIATION ERROR ?T""  (BZv$$ (BZv*%L""`@( `8,"h쨀phph  `*e&f . 1f*&ABAD5 a *LC%!e e B V*r  B\E CP *  D a@ C`B `%ֆ* C ӆBEІ7   %C ‹""`*  C B ‹ B 7   ""`&    *)&L""`@( `8vph  `*&f  & N & + & *&   v   *L     % 7 *r 7 7  6 6 3  ""`""`""`*   EsAq Dws w*`w w6 e%6 " 6  E v v %\*'ML""`@( `8Ԫph  `*&f jwf &wfU&*& Mvv 6`vU *L q` c qm `*ra@ `qeAa@ a A @ A @ * %  A @ 6*v %\%%  7 7  ""`"""` *:pLCu @u @,0z@*( `8p6hONh2Ofh,dfhR  `*C  %  v v*&f&\\fEeU@,0zCu (L\fEe@ABCfCu u  ,0zCu */+L""`@쨀p@vp@*:@Ԫp@p@( `8/+h/0h  `*& Dr)&&\  *& 5@5@ &p(L~(쨀pvp  Ԫp~\*Ԫp쨀p Ԫp 쨀pԪp쨀pj(Ԫp쨀p : Ԫp쨀p*xf&\  \& Ԫp*\\r1@\*[?\ e7 ?U?*@""` ڪA*a WL쨀p@vp@Ԫp@*Of@p@( `84a Wh   `*& & & & & D&&e #@*&  @6 *L V6 6 #?%-  vp V*r0 @ ׳f&& *@׳@f& f"Ԫpppvp &f& *ԪpԪp쨀pԪp쨀pԪp*쨀pԪp쨀p Ԫp 쨀p쨀p*   \4f&쨀pOf4*  \ e\>:L]L?ƪ0@*#L""`@쨀p@vp@*:@Ԫp@@p@( `8#h  `*D f C_  fW & @"&&&&& nxn&nԪpx:n vpD~*p~Ԫp 쨀p vp쨀p쨀p*R^de\\;@\ vp^쨀p d Ԫp*x \N @   =@f&*ysE[\pCf&f&\%  a @7  ""`*6xL쨀p@vp@6@*Ԫp@p@( `8+h6xh  `*D& &&@ (D& & 쨀p(*&& 6  A zz*vpz6 p"$z&6(Lzz*pz z ԪpԪp쨀p\&Ԫp쨀pԪp 쨀p Ԫp쨀p*hl e\ \ Ԫpl*S\ e& @ P쨀p $P*e\f& \:יc&>X4%]@*zy}L""`@( `8zy}h  `*fE@7   2  бC""`*&  B e@&  Aaa C *LC Aa@ aA B   C A r  A @ *]:KL""`@( `8 *T;h T۪hTShT˫h Ԫ@8h   `$&pf\ 7 \""`*8xL""`@( `8"*q;h q۪hqShq˫h v@8h   `&&&& r7  \""`*qL""`@( `8`qhW9h  `*  p Cp f*&\7  \   \e""`L  \7 \""`*L""`@vp@Ԫp@*( `8hWqh  `* &  . & @ *& $<   J $Ԫp&J*L  h Ԫph*r % 6 @ (vp%\%7  ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"  *& f& < %$/+ ,Ԫp<#",Lv\@7  ""`*%LL( `8,h   `f % Ԫph*r % 6 @ (vp%\%7  ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"  *& f& < %*&L""`@( `8Dh  `*  @%7 """`"& @ %   &\*&L( `84:h   `*&  f 6A  v&  6N\*"`^NUL$ @?T""@*,0z@( `8,""`h@9ShKh˫}h  `*&fEwFLOATING OVERFLOW ,0z?T""&GwFLOATING UNDERFLOW ?T""@@:wDIVISION BY ZERO ?T""XX.wNEGATIVE SQUARE ROOT ?T""t)t wBAD LOGwINTEGER OVERFLOW?T""?T"" wEXPONENTIATION ERROR ?T""* (BZvi($ (BZv"*&57  *57 7 6 6 (*IqKL( `8 쨀phph  `& &z\z\*)&L( `8vph   `z\*'ML( `8Ԫph   `z\*:pLCu @u @,0z@*( `8|6hONh>Ofh8dfh^  `*C %    *& @ f&\\fEe ,0z&Cu *LU@\fEe@ABCCu u  ,0z Cu rf*/+L""`@쨀p@vp@*:@Ԫp@p@( `8/+h/0h  `*& Dr)&&\  *& 5@5@ &p(L~(쨀pvp  Ԫp~\*Ԫp쨀p Ԫp 쨀pԪp쨀pj(Ԫp쨀p : Ԫp쨀p*xf&\  \& Ԫp*\\r1@\*[?\ e7 ?U?*@""` ڪA*a WL쨀p@vp@Ԫp@*Of@p@( `84a Wh   `*& & & & & D&&e #@*&  @6 *L V6 6 #?%-  vp V*r0 @ ׳f&& *@׳@f& f"Ԫpppvp &f& *ԪpԪp쨀pԪp쨀pԪp*쨀pԪp쨀p Ԫp 쨀p쨀p*   \4f&쨀pOf4*  \ e\>:L]L?ƪ0@*#L""`@쨀p@vp@*:@Ԫp@@p@( `8#h  `*D f C_  fW & @"&&&&& nxn&nԪpx:n vpD~*p~Ԫp 쨀p vp쨀p쨀p*R^de\\;@\ vp^쨀p d Ԫp*x \N @   =@f&*ysE[\pCf&f&\%  a @7  ""`*6xL쨀p@vp@6@*Ԫp@p@( `8+h6xh  `*D& &&@ (D& & 쨀p(*&& 6  A zz*vpz6 p"$z&6(Lzz*pz z ԪpԪp쨀p\&Ԫp쨀pԪp 쨀p Ԫp쨀p*hl e\ \ Ԫpl*S\ e& @ P쨀p $P*e\f& \:יc&>X4%]@*zy}L""`@쨀p@vp@"( `8^zy}h  `*fEA&7 " e@ & f& f""`*&& f 4 ff vp쨀p4L   *]:KL""`@( `8 *T;h T۪hTShT˫h Ԫ@8h   `$&pf\ 7 \""`*8xL""`@( `8"*q;h q۪hqShq˫h v@8h   `&&&& r7  \""`*qL""`@Ԫ@8@(" `8qhW9h  `*&&f   *&*  <  Ԫ@8*Ԫ@8<*L\ \   \e r \7 \ ""`*L""`@vp@Ԫp@*( `8hWqh  `* &  . & @ *& $<   J $Ԫp&J*L  h Ԫph*r % 6 @ (vp%\%7  ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"  *& f& < %$/+ ,Ԫp<#",Lv\@7  ""`*%LL( `8,h   `f % Ԫph*r % 6 @ (vp*MNRL""z@( |8Mh  |w""z( `8fh   `*&ff& #"  *& f& < %$/+ ,Ԫp<#",Lv\@7  ""`*%LL( `8,h   `f % Ԫph*r % 6 @ (vp*&L""`@( `8Vh  `* N A f C%*&_   \ L7  ""`*&L( `8B:h   `*&  f 6 c  &v  6N\*"`^NUL$ @?T""@*,0z@( `8""`h@9ShKh  `*&fEwFLOATING OVERFLOW ,0z?T""&GwFLOATING UNDERFLOW ?T""@@:wDIVISION BY ZERO ?T""XX.wNEGATIVE SQUARE ROOT ?T""t)t wBAD LOGwINTEGER OVERFLOW?T""?T"" wEXPONENTIATION ERROR ?T""  (BZv$$ (BZv*%L""`@( `8,"h쨀phph  `*e&f . 1f*&ABAD5 a *LC%!e e B V*r  B\E CP *  D a@ C`B `%ֆ* C ӆBEІ7   %C ‹""`*  C B ‹ B 7   ""`&    *)&L""`@( `8vph  `*&f  & N & + & *&   v   *L     % 7 *r 7 7  6 6 :  ""`""`""`*   M% AD e *U% %a v Ee*%6  6  E v v   %\*'ML""`@( `8Ԫph  `*&f u f &*&&dQ& V v *L`BQ   $)` *rc $)m `e@ `*ei@ i A @ A @ %*  A @ 6v &%\%%  7 7   ""`""`*:pLN@S@Cu @*u @,0z@( `86h"ONhBOfh<dfhb  `*C %  K&S*&# f&\\fEeNN$,0z*LU@\fEe@A"Cu Cu u  ,0z$Cu rBCf*/+L""`@쨀p@vp@*:@Ԫp@p@( `8/+h/0h  `*& Dr)&&\  *& 5@5@ &p(L~(쨀pvp  Ԫp~\*Ԫp쨀p Ԫp 쨀pԪp쨀pj(Ԫp쨀p : Ԫp쨀p*xf&\  \& Ԫp*\\r1@\*[?\ e7 ?U?*@""` ڪA*a WL쨀p@vp@Ԫp@*Of@p@( `84a Wh   `*& & & & & D&&e #@*&  @6 *L V6 6 #?%-  vp V*r0 @ ׳f&& *@׳@f& f"Ԫpppvp &f& *ԪpԪp쨀pԪp쨀pԪp*쨀pԪp쨀p Ԫp 쨀p쨀p*   \4f&쨀pOf4*  \ e\>:L]L?ƪ0@*#L""`@쨀p@vp@*:@Ԫp@@p@( `8#h  `*D f C_  fW & @"&&&&& nxn&nԪpx:n vpD~*p~Ԫp 쨀p vp쨀p쨀p*R^de\\;@\ vp^쨀p d Ԫp*x \N @   =@f&*ysE[\pCf&f&\%  a @7  ""`*6xL쨀p@vp@6@*Ԫp@p@( `8+h6xh  `*D& &&@ (D& & 쨀p(*&& 6  A zz*vpz6 p"$z&6(Lzz*pz z ԪpԪp쨀p\&Ԫp쨀pԪp 쨀p Ԫp쨀p*hl e\ \ Ԫpl*S\ e& @ P쨀p $P*e\f& \:יc&>X4%]@*zy}L""`@( `8zy}h  `*fE@7   2  бC""`*&  B e@&  Aaa C *LC Aa@ aA B   C A r  A @ *]:KL""`@( `8**T;h T۪hTShT˫h Ԫ@8h   `*&&&&\ 7 (""`& \*8xL""`@( `8**q;h q۪hqShq˫h v@8h   `*&&& `$&\7 &""`& \*qL""`@Ԫ@8@(" `8qhW9h  `*&&f   *&*  <  Ԫ@8*Ԫ@8<*L\ \   \e r \7 \ ""`*L""`@vp@Ԫp@*( `8hWqh  `* &  . & @ *& $<   J $Ԫp&J*L  h Ԫph*r % 6 @ (vp%\%7  ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"  *& f& < %$/+ ,Ԫp<#",Lv\@7  ""`*%LL( `8,h   `f % Ԫph*r % 6 @ (vp*&L""`@( `8Dh  `*  @%7 """`"& @ %   &\*&L( `84:h   `*&  f 6A  v&  6N\*"`^NUL$ @?T""@*,0z@( `8""`h@9ShKh  `*&fEwFLOATING OVERFLOW ,0z?T""&GwFLOATING UNDERFLOW" ?T""@@:wDIVISION BY ZERO ?T""XX.wNEGATIVE SQUARE ROOT ?T""t)t wBAD LOGwINTEGER OVERFLOW?T""?T"" wEXPONENTIATION ERROR ?T""  (BZv$$ (BZv*%L""`@( `8,"h쨀phph  `*e&f . 1f*&ABAD5 a *LC%!e e B V*r  B\E CP *  D a@ C`B `%ֆ* C ӆBEІ7   %C ‹""`*  C B ‹ B 7   ""`&    *)&L""`@( `8vph  `*f Uf ON @@*&7 A=e  ! ""`*L C D DDC D*r@ C @ % ` `* D@ B \7   7 ""`(""`*'ML""`@( `8Ԫph  `*CBf @ E  *&E ` 7 7   9e""`""`*L  &  @ *r @ CaB a@ CaB a  * C B CA eC`B \*:pLCu @u @,0z@*( `8|6hONh>Ofh8dfh^  `*C %    *& @ f&\\fEe ,0z&Cu *LU@\fEe@ABCCu u  ,0z Cu rf*/+L""`@쨀p@vp@*:@Ԫp@p@( `8/+h/0h  `*& Dr)&&\  *& 5@5@ &p(L~(쨀pvp  Ԫp~\*Ԫp쨀p Ԫp 쨀pԪp쨀pj(Ԫp쨀p : Ԫp쨀p*xf&\  \& Ԫp*\\r1@\*[?\ e7 ?U?*@""` ڪA*a WL쨀p@vp@Ԫp@*Of@p@( `84a Wh   `*& & & & & D&&e #@*&  @6 *L V6 6 #?%-  vp V*r0 @ ׳f&& *@׳@f& f"Ԫpppvp &f& *ԪpԪp쨀pԪp쨀pԪp*쨀pԪp쨀p Ԫp 쨀p쨀p*   \4f&쨀pOf4*  \ e\>:L]L?ƪ0@*#L""`@쨀p@vp@*:@Ԫp@@p@( `8#h  `*D f C_  fW & @"&&&&& nxn&nԪpx:n vpD~*p~Ԫp 쨀p vp쨀p쨀p*R^de\\;@\ vp^쨀p d Ԫp*x \N @   =@f&*ysE[\pCf&f&\%  a @7  ""`*6xL쨀p@vp@6@*Ԫp@p@( `8+h6xh  `*D& &&@ (D& & 쨀p(*&& 6  A zz*vpz6 p"$z&6(Lzz*pz z ԪpԪp쨀p\&Ԫp쨀pԪp 쨀p Ԫp쨀p*hl e\ \ Ԫpl*S\ e& @ P쨀p $P*e\f& \:יc&>X4%]@*zy}L""`@( `8zy}h  `*fE@7   2  бC""`*&  B e@&  Aaa C *LC Aa@ aA B   C A r  A @ *]:KL""`@( `8@*T;h T۪hTShT˫h Ԫ@8h   `*&    &\B` 7  ""`*8xL""`@( `8X*q;h q۪hqShq˫h v@8h   `*&    C 5*&UA B C C  L\7  ""`*qL""`@Ԫ@8@(" `8qhW9h  `*&&f   *&*  <  Ԫ@8*Ԫ@8<*L\ \   \e r \7 \ ""`*L""`@vp@Ԫp@*( `8hWqh  `* &  . & @ *& $<   J $Ԫp&J*L  h Ԫph*r % 6 @ (vp%\%7  ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"  *& f& < %$/+ ,Ԫp<#",Lv\@7  ""`*%LL( `8,h   `f % Ԫph*r % 6 @ (vp%\%7  ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*.%%D *`%^23SEP7615242523SEP76152347E.&&D *vL^23SEP7615251323SEP76152437.''D *|k^23SEP7615265723SEP76152528.((D *Ryw:^23SEP7615275123SEP76152711.))D *?T^23SEP7615282423SEP76152806.**D *6Qx23SEP7615285723SEP76152838\.++D +:Qv23SEP7615292923SEP76152911].,,D *6Qw23SEP7615300223SEP76152944.--D *6Q(x23SEP7615303523SEP76153016...D +:Qw23SEP7615310723SEP76153049(.//D Qx23SEP7615314023SEP76153122.00D ..Qxl^23SEP7615321323SEP76153155.11D Qv23SEP7615324523SEP76153227 ƻ.22D ..Qvl^23SEP7615331823SEP76153300 .33D Qw23SEP7615335123SEP76153333 e.44D ..Qwl^23SEP7615342423SEP76153406 .55D Q7x23SEP7615345623SEP76153438 .66D ..Q(xl^23SEP7615352923SEP76153511R*&L( `8 h   `&\*&L( `8 :h   `&\*"`^NUL$ @?T""@*,0z@( `8@""`h@9ShKh  `*&fEwFLOATING OVERFLOW ,0z?T""&GwFLOATING UNDERFLOW ?T""@@:wDIVISION BY ZERO ?T""XX.wNEGATIVE SQUARE ROOT ?T""t)t wBAD LOGwINTEGER OVERFLOW?T""?T"" wEXPONENTIATION ERROR ?T""* (BZvoW($ (BZv*&E@ p7  7 * 7 7  Ep((((%s*IqKL( `8쨀phph  `&\6\*)&L( `8 vph   `V@f\*'ML( `8Ԫph   ` &\*:pLCu @u @,0z@*( `8T6hONhOfhdfh6  `*7f\@\fEeU,0z$Cu *&@\fEe@ABCfCu u  ,0zCu L*/+L""`@( `8v/+h/0h  `* VBPV*&BA  &*L7 1@r5@?U?*@ڪAr""`r?[*a WL( `8a Wh   `*=  W@@ @*&P7L H@7F@w>*LP@ PBCD Ef*rIA@?0@ @׳>:L]L?ƪ @*#L""`@( `8#h  `*D 2 C+  f# x(x*&@ PCBP*LA& a @7 &""`&r  @;\)8A;\)pC[\Eys@‚=*6xL( `8+h6xh   `* =7^ =h  h*&?AA @ *LPB P &@!h:rיc&>X4%]@*zy}L""`@( `8Bzy}h  `*A7  e@ & f@""` & A&  *]:KL""`@( `8 *T;h T۪hTShT˫h Ԫ@8h   `$&pf\ 7 \""`*8xL""`@( `8"*q;h q۪hqShq˫h v@8h   `&&&& r7  \""`*qL""`@Ԫ@8@(" `8qhW9h  `*&&f   *&*  <  Ԫ@8*Ԫ@8<*L\ \   \e r \7 \ ""`*L""`@( `8FhWqh  `*@ V  A $& W@@&\7 ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"  *& f& < %$/+ ,Ԫp<#",Lv\@7  ""`*%LL( `8,h   `f %Wqh  `*@ V  A $& W@@&\7 ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"*hLNUL( ?@8h*mZh( h9qZh\qZhk hٖZh L( `8,h   `f %Wqh  `*@ V  A $& W@@&\7 ""`*L/+@""`@#@*,@Ԫp@( `8fh   `*&ff& #"*kNOLn]H n^H*n^Hn_HnL`H nR`Hn`H( >D $wz23SEP7615402023SEP76154000).??D Gwx23SEP7615405723SEP76154036*.@@D 'wz23SEP7615413423SEP76154113+.AAD 2TQw23SEP7615421223SEP76154151,+|.BBD 2TQ(x23SEP7615424923SEP76154228-҇.CCD 2TQw23SEP7615432723SEP76154306.Z.DDD 1H8w23SEP7615440523SEP76154344/k.EED 1H8(x23SEP7615444323SEP761544220 .FFD 1H8w23SEP7615452223SEP761545001.GGD !b @`23SEP7615473723SEP761545402k.HHD !nLT@`23SEP7615481623SEP76154753Ѧ.IID GRhLkQ23SEP7615490023SEP761548336BASIC/FP,BASIC/SP=MBASF.ODL/MP STACK=160UPAR=GENT TASK=...BASIPRI=50UNITS=14ASG=SY0:1:2:3:4:5:6:7:8CASG=SY0:9:10:11:12:13 ASG=TI0:14//-PRU0-CALLIN-IMPURE-IMPURFE0: .FCTR EDIT-KEYS-COMPIL$X0: .FCTR XEQT0-XDISP-FUNC-CALLSN-X1X1: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSI .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C  .NAME MAINS .NAME EDITOR/ .NAME EXECUT% .ROOT MAIN-M0-*(EDITOR-E0,EXECUT-X0)4*M0: .FCTR PNTRS-ROOT-CKCTCO-IOPK0-IOPK1-M1.M1: .FCTR IOPK2-FPMP-PRU0-CALLIN-IMPURE-IMPURFE0: .FCTR EDIT-KEYS-COMPIL$X0: .FCTR XEQT0-XDISP-FUNC-CALLSN-X1X1: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C G[1,1]BASLIB/-HD,[11,104]BASLIB/SP,[1,1]BASLIB=[11,104]PNTRS,ROOT,CKCTCO0*[11,104]IOPK0,IOPK1,IOPK2,EDIT,KEYS,COMPIL)[11,104]PRU0,PRU1,XDISP,XEQT0,XEQT1,XEQT2L[11,104]CALLSN,CALLIN,FUNC [11,104]OTSN/STACK=0 PAR=BASLIB:100000:720001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C $BASIC,BASIC/SP=[11,104]IMPURE,IMPURF/B STACK=1600PAR=GENOLIBR=BASLIB:RO TASK=...BASKPRI=50UNITS=14ASG=SY0:1:2:3:4:5:6:7:8,ASG=SY0:9:10:11:12:13L ASG=TI0:14EXTSCT=IMPURE:20000,//OTSN/STACK=0 PAR=BASLIB:100000:720001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C G[1,1]BASLIB/-HD,[11,104]BASLIB/SP,[1,1]BASLIB=[11,104]PNTRS,ROOT,CKCTCOS*[11,104]IOPK0,IOPK1,IOPK2,EDIT,KEYS,COMPIL)[11,104]PRU0,PRU1,XDISP,XEQT0,XEQT1,XEQT2L[11,104]CALLSN,CALLIN,FUNC [11,104]OTSE/STACK=0 PAR=BASLIB:100000:720001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C $BASIC,BASIC/SP=[11,104]IMPURE,IMPURF/B STACK=1600PAR=GENOLIBR=BASLIB:RO TASK=...BASKPRI=50UNITS=14ASG=SY0:1:2:3:4:5:6:7:8,ASG=SY0:9:10:11:12:13L ASG=TI0:14EXTSCT=IMPURE:20000,//OTSE/STACK=0 PAR=BASLIB:100000:720001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C G[1,1]BASLIB/-HD,[11,104]BASLIB/SP,[1,1]BASLIB=[11,104]PNTRS,ROOT,CKCTCOS*[11,104]IOPK0,IOPK1,IOPK2,EDIT,KEYS,COMPIL)[11,104]PRU0,PRU1,XDISP,XEQT0,XEQT1,XEQT2L[11,104]CALLSN,CALLIN,FUNC [11,104]OTSI/STACK=0 PAR=BASLIB:100000:700001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C $BASIC,BASIC/SP=[11,104]IMPURE,IMPURF/B STACK=1600PAR=GENOLIBR=BASLIB:RO TASK=...BASKPRI=50UNITS=14ASG=SY0:1:2:3:4:5:6:7:8,ASG=SY0:9:10:11:12:13L ASG=TI0:14EXTSCT=IMPURE:20000,//OTSI/STACK=0 PAR=BASLIB:100000:700001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C G[1,1]BASLIB/-HD,[11,104]BASLIB/SP,[1,1]BASLIB=[11,104]PNTRS,ROOT,CKCTCOS*[11,104]IOPK0,IOPK1,IOPK2,EDIT,KEYS,COMPIL)[11,104]PRU0,PRU1,XDISP,XEQT0,XEQT1,XEQT2L[11,104]CALLSN,CALLIN,FUNC [11,104]OTSF/STACK=0 PAR=BASLIB:100000:670001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C 'BASIC/FP,BASIC/SP=[11,104]IMPURE,IMPURFB/I STACK=160NPAR=GENCLIBR=BASLIB:RO TASK=...BASOPRI=50UNITS=14ASG=SY0:1:2:3:4:5:6:7:8SASG=SY0:9:10:11:12:131 ASG=TI0:14EXTSCT=IMPURE:20000]///STACK=0 PAR=BASLIB:100000:670001//: .FCTR *(XEQT1-PRU1,XEQT2)FPMP: .FCTR OTSF .ENDSG=TI0:14//&@*ru  u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C 2BASIC/MU,BASIC/SP=[11,104]QIODFS,PNTRS,ROOT,CKCTCO*[11,104]IOPK0,IOPK1,IOPK2,EDIT,KEYS,COMPIL)[11,104]PRU0,PRU1,XDISP,XEQT0,XEQT1,XEQT2:[11,104]CALLSN,CALLIN,FUNC[11,104]OTSE,IMPURE,IMPURF/] STACK=160TEXTSCT=IMPURE:200000LIBR=SYSRES:RO TASK=...BAS-UNITS=14ASG=SY0:1:2:3:4:5:6:7:8NASG=SY0:9:10:11:12:13 ASG=TI0:14//u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C 2BASIC/MU,BASIC/SP=[11,104]QIODFS,PNTRS,ROOT,CKCTCO*[11,104]IOPK0,IOPK1,IOPK2,EDIT,KEYS,COMPIL)[11,104]PRU0,PRU1,XDISP,XEQT0,XEQT1,XEQT2:[11,104]CALLSN,CALLIN,FUNC[11,104]OTSI,IMPURE,IMPURF/] STACK=160TEXTSCT=IMPURE:200000LIBR=SYSRES:RO TASK=...BAS-UNITS=14ASG=SY0:1:2:3:4:5:6:7:8NASG=SY0:9:10:11:12:13 ASG=TI0:14//u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C 2BASIC/MU,BASIC/SP=[11,104]QIODFS,PNTRS,ROOT,CKCTCO*[11,104]IOPK0,IOPK1,IOPK2,EDIT,KEYS,COMPIL)[11,104]PRU0,PRU1,XDISP,XEQT0,XEQT1,XEQT2:[11,104]CALLSN,CALLIN,FUNC[11,104]OTSF,IMPURE,IMPURF/] STACK=160TEXTSCT=IMPURE:200000LIBR=SYSRES:RO TASK=...BAS-UNITS=14ASG=SY0:1:2:3:4:5:6:7:8NASG=SY0:9:10:11:12:13 ASG=TI0:14//u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C SET DEFAULT [11,104]$LINK/MU/TASK:BASIC/MAP:BASIC/OPTIONS1QIODFS,PNTRS,ROOT,CKCTCI,IOPK0,IOPK1,IOPK2,EDIT,-P)KEYS,COMPIL,PRU0,PRU1,XDISP,XEQT0,XEQT1,-N+XEQT2,CALLSN,CALLIN,FUNC,OTSE,IMPURE,IMPURF STACK=160EXTSCT=IMPURE:20000LIBR=SYSRES:ROUNITS=14ASG=SY0:1:2:3:4:5:6:7:8:ASG=SY0:9:10:11:12:13: ASG=TI0:14/SG=TI0:14//u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C SET DEFAULT [11,104]$LINK/MU/TASK:BASIC/MAP:BASIC/OPTIONS1QIODFS,PNTRS,ROOT,CKCTCI,IOPK0,IOPK1,IOPK2,EDIT,-P)KEYS,COMPIL,PRU0,PRU1,XDISP,XEQT0,XEQT1,-N+XEQT2,CALLSN,CALLIN,FUNC,OTSI,IMPURE,IMPURF STACK=160EXTSCT=IMPURE:20000LIBR=SYSRES:ROUNITS=14ASG=SY0:1:2:3:4:5:6:7:8:ASG=SY0:9:10:11:12:13: ASG=TI0:14/SG=TI0:14//u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C SET DEFAULT [11,104]$LINK/MU/TASK:BASIC/MAP:BASIC/OPTIONS1QIODFS,PNTRS,ROOT,CKCTCI,IOPK0,IOPK1,IOPK2,EDIT,-P)KEYS,COMPIL,PRU0,PRU1,XDISP,XEQT0,XEQT1,-N+XEQT2,CALLSN,CALLIN,FUNC,OTSF,IMPURE,IMPURF STACK=160EXTSCT=IMPURE:20000LIBR=SYSRES:ROUNITS=14ASG=SY0:1:2:3:4:5:6:7:8:ASG=SY0:9:10:11:12:13: ASG=TI0:14/SG=TI0:14//u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C ![11,104]STOP,STOP/SP=[11,104]STOPK/SSTACK=50 TASK=...STOIPRI=151SUNITS=1TASG=TI:1//,IOPK2,EDIT,-P)KEYS,COMPIL,PRU0,PRU1,XDISP,XEQT0,XEQT1,-N+XEQT2,CALLSN,CALLIN,FUNC,OTSF,IMPURE,IMPURF STACK=160EXTSCT=IMPURE:20000LIBR=SYSRES:ROUNITS=14ASG=SY0:1:2:3:4:5:6:7:8:ASG=SY0:9:10:11:12:13: ASG=TI0:14/SG=TI0:14//u!ࡐ!{3n3Mq{3*JCw \ @@A @*E w .*  *w C X:^}^ ٖ؁^ {}^ yd^ Dfxs^ ٖ^:I^f^ٖ^(^:pI^M^X^f^hL^f^{}^%te^:I^Ev^X:^@y^f^r}^ `@^!!`@8^""N^##`@^$$`W^%%`%^&&vL^''k^((yw:^))?T^**Qx++Qv,,Qw--Q(x..Qw//Qx00Qxl^11Qv22Qvl^33Qw44Qwl^55Q7x66Q(xl^77Qw88Qwl^99wx::wz;;wx<<w z==wx>>wz??wx@@wzAAQwBBQ(xCCQwDD8wEE8(xFF8wGG @`HHLT@`IIhLkQJJkQKKK H!kQLL&d NSE TERMS. TITLE TO AND OWNERSHIP OF THEY7; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL'S NAME.A;NA; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUTIA; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITALM; EQUIPMENT CORPORATION.;IA; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITYOA; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.L;E ; WRITTEN BY; ;R ; MODIFIED BY ;E  .GLOBL FTABI,BKGIFTABI: .WORD FTBLS FTBL: .WORD 0S BKGI: .WORD 0T .GLOBL UACTSTUACTST:A .IFDF $CALL .GLOBL HIFSAV7 TST HIFSAV(R5) ;ATTEMPT TO ALLOCATE ARRAY WHILE HIFREEN ; IS MESSED UP BEQ RET ;NO  .GLOBL ERRUAC2ERRUAC: ERTEXT "UAC",RET: .ENDC ;$CALL. RTS PCEG;THE FOLLOWING ROUTINES ARE CALLED FROM WITHIN THE BASIC-11 INTERPRETERT-;AND ARE NOT TO BE CALLED FROM ANYWHERE ELSE.D+;RETNTR IS CALLED FROM THE RETURN STATEMENT 9;XEQNTR IS CALLED BEFORE THE EXECUTION OF EACH STATEMENT.R';RDYNTR IS CALLED AT THE READY MESSAGE.A';BYENTR IS CALLED FROM THE BYE COMMAND.SE;THE ENTRY POINTS ARE MADE AVAILABLE SO THAT REAL TIME OPERATIONS MAYM9;BE PERFORMED. THEY ARE DUMMIED OUT HERE WITH AN RTS PC.AF;*********************************************************************F;***************THE FOLLOWING ROUTINES ARE FOR USE BY*****************F;**************THE DEC BASIC-11 DEVELOPMENT GROUP ONLY****************F;*********************************************************************# .GLOBL RETNTR,XEQNTR,RDYNTR,BYENTRARETNTR:EXEQNTR:TRDYNTR:EBYENTR: RTS PC .ENDSE;THE ENTRY POINTS ARE MADE AVAILABLE SO THAT REAL TIME OPERATIONS MAYM9;BE PERFORMED. THEY ARE DUMMIED OUT HERE WITH AN RTS PC.AF;*********************************************************************F;***************THE FOLLOWING ROUTINES ARE FOR USE BY*****************F;**************THE DEC BASIC-11 DEVELOPMENT GROUP ONLY****************F;*********************************************************************# .GLOBL .JJD A|kQ23SEP7615494223SEP76154921PV.KKD AK H!kQ23SEP7615502323SEP76155001TXW.LLD G &d 23SEP7615510623SEP76155042YRUN $BIGTKB @PURALL PIP LP:=[200,30]MCF.MAP / BVNM 7 DIRNM 9. COMNM DEVNM: .ASCII/DK0:/ DIRNM: .ASCII/[100,2]/ COMNM: .ASCII/COM.DAT;1/ TAGNM: .ASCII/TAG.DAT;1/ RECNM: .ASCII/REC.DAT;1/ DICNM: .ASCII/DIC.DAT;1/ .EVEN BUF: ; INPUT OUTPUT BLOCK BUFFER .ASCII/TI/ .WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .REPT 15. .WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .ENDR BUF1: .ASCII/TI/ .WORD 0 .WORD 77,6 .BYTE 0,3,0,3,0,3,0,3,0,3,0,3 .WORD 0,0,0,0,0,0,0,0,0,0 .ASCII/CMSNVNDFDVDD/ .WORD 0,0,0,0,0,0,0,0,0,0 .REPT 6 .ASCII/ADDLRPC?@ BB@1111Z11>D ; WAIT FOR DETTACH TO WORK BR 60$ ; GO TRY IT AGAIN 70$: MOV #IO.ATT,DPB1+2 ; PUT IN CORRECT OP CODE DIR$ #DPB1 ; DO THE DIRECTIVE(QIO,IO.ATT) BCC 75$ ; IF ACCEPTED BRANCH WSIG$S ; WAIT FOR SIGNIFICANT EVENT BR 70$ ; GO TRY ATTACH IT AGAIN 75$: DIR$ #DPB4 ; GO DO THE DIRECTIVE(GLUN) BIT #U2.VT5,U.CW2+DBUF ;SEE IF THIS IS CRT BNE 110$ ; IF SET NO HEADINGS GTIM$S #TBUF ; GET TIME PARAMETERS MOV G.TIHR+TBUF,R0 ; SEE IF TIME TO PAGE UP BIC #7,R0 ; CLEAR NEADLESS HOUR BITS CMRUN $BIGMAC @PURALL PIP LP:=[200,30]MCF.LST / F/ .WORD 0,0,0,0,0 .ENDR .WORD 0,0,0,0,0,0,0,0,0,0,0,0 .REPT 10. .WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .ENDR BUF2: .REPT 16. .WORD -1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1 .ENDR BUF3: .REPT 16. .WORD -1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 .ENDR ; ADDR IS THE BLOCK(VIRTUAL) NUMBER ; ; *** ADDR: .WORD 0,17. START: FINIT$ ; INITIALIZE FDB ALUN$S #1,#"DK,#0 ; ASSIGN LUN FSRSZ$ 0 ; CONTINUE INITIALIZATION CLR R1 ; MAKE ACCESS WORD ZERO ALL PRIVLEDGES JSR PC,.WDFFPGȋ _HP R0,NSHIFT ; HAVE WE PRINTED THIS ONE BEFORE BEQ 90$ ; IF SO BRANCH MOV R0,NSHIFT ; NEW SHIFT CLR PCNT ; START PAGE COUNTER OVER AGAIN BR 100$ ; GO DO PAGE HEADINGS 90$: CMP DBUF,ODEV ; SEE IF OLD EL SAME AS NEW EL BNE 100$ ; IF NOT SAME GO PRINT HEADINGS CMP LCNT,U.CW3+DBUF ; SEE IF MAX LINES FOR PAGE PRINTED BLT 110$ ; IF NOT BRANCH 100$: JSR PC,HEAD ; GO PRINT OUT HEADINGS 110$: MOV DBUF,ODEV ; MAKE NEW DEVICE OLD DEVICE CMP R5,R4 ; SEE IF ANYTHING ON DEQUE BNE 120$ ; IF I[200,20]EDFOV,[200,30]EDF/-SP/LI:MEB=[100,1]TURMAC/ML,[200,11]OPTEDF [200,20]EDVOV,[200,30]EDV/-SP/LI:MEB=[100,1]TURMAC/ML,[200,11]OPTEDV [200,20]ESWOV,[200,30]ESW/-SP/LI:MEB=[100,1]TURMAC/ML,[200,11]OPTESW [200,20]ESVOV,[200,30]ESV/-SP/LI:MEB=[100,1]TURMAC/ML,[200,11]OPTESV [200,20]CMDOV,[200,30]CMD/-SP/LI:MEB=[100,1]TURMAC/ML,[200,11]OPTCMD [200,20]DDDOV,[200,30]DDD/-SP/LI:MEB=[100,1]TURMAC/ML,[200,11]OPTDDD [200,20]OPTOV,[200,30]OPT/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOOPT [200,20]TGOV,[200,30J ; WRITE DEFAULT ACCESS WORD ; CREATE AND OPEN NEW FILE OPEN$W #FDCOM,#1,#DSPT ; CREATE AND OPEN COMMAND FILE JSR PC,WRT ; GO WRITE ZEROES MOV #40000,BUF+328. ; PUT IN TAG OVERFLOW SECTOR MOV #40000,BUF+330. ; PUT IN DIC OVERFLOW SECTOR CLR BUF+332. ; PUT IN START SIGNAL INDEX FOR ANALOG MOV #500.,BUF+334. ; PUT IN START SIGNAL INDEX FOR DIGITAL MOV #17.,F.BKVB+2(R0) ; PUT IN UPDATEDB COMMAND BLOCK NUMBER JSR PC,.WRITE ; GO WRITE BUFFER CLR F.BKVB(R0) ; MAKE FIRST PART OF VB ZERO MOVYES BRANCH TST @SBUF ; MAKE SURE JUST WASNT DEQUE FULL BEQ 120$ ; IT WAS DEQUE FULL BRANCH WSIG$S ; WAIT FOR SIGNIFICANT EVENT BR 110$ ; GO SEE IF ANYTHING YET 120$: MOV (R5),R2 ; GET SOMETHING OFF DEQUE JSR PC,FORMAT ; GO FORMAT THE RECORD WTSE$S #1 ; WAIT FOR PRINTING TO FINISH CMP R2,PPCK ; SEE IF ONE GOT IS ONE POPPED BEQ 20$ ; IF WAS GO SEND IT MOV PPCK,R2 ; MAKE ONE TO FORMAT BR 10$ ; GO FORMAT CORRECT ONE .END START ; END OF PROGRAM M]TG/-SP/LI:MEB=[100,1]TURMAC/ML,[200,12]UPDTG [200,20]DSOV,[200,30]DS/-SP/LI:MEB=[100,1]TURMAC/ML,[200,12]UPDDS [200,20]VAOV,[200,30]VA/-SP/LI:MEB=[100,1]TURMAC/ML,[200,12]UPDVA [200,20]ETOV,[200,30]ET/-SP/LI:MEB=[100,1]TURMAC/ML,[200,12]UPDET [200,20]RGOV,[200,30]RG/-SP/LI:MEB=[100,1]TURMAC/ML,[200,12]UPDRG [200,20]CASOV,[200,30]CAS/-SP/LI:MEB=[100,1]TURMAC/ML,[103,10]SYSCAS [200,20]PDBOV,[200,30]PDB/-SP/LI:MEB=[100,1]TURMAC/ML,[200,12]UPDPDB [200,20]UCMOV,[200,30]UCM/-SP/LI:MEB=[100,1]TURMAC/ML,[N #10.,F.BKVB+2(R0) ; PUT IN OPT COMMAND BLOCK MOV #BUF1,F.BKDS+2(R0) ; PUT IN CORRECT BUFFER JSR PC,.WRITE ; GO DO THE WRITE CLOSE$ ; GO CLOSE THIS FILE MOV #TAGNM,DSPT+10. ; PUT IN CORRECT FILE NAME MOV #80.,ADDR+2 ; FIX NUMBER OF BLOCKS OPEN$W #FDTAG,#1,#DSPT ; MAKE AND OPEN TAG FILE JSR PC,WRT ; GO WRITE BUFFERS CLOSE$ ; CLOSE THIS FILE MOV #RECNM,DSPT+10. ; PUT IN CORRECT FILE NAME MOV #160.,ADDR+2 ; PUT IN RIGHT BLOCK NUMBER OPEN$W #FDREC,#1,#DSPT ; CREATE AND OPEN RECORD F .ROOT RTO-RTCMN-RTDBD-RTPAR-*(COMOV,PWDOV,OPT,UPD) OPT: .FCTR OPTOV-*(ESVOV,ESWOV,EDVOV,EDFOV,CMDOV,DDDOV) UPD: .FCTR UPDOV-UCMOV-PDBOV-*(TGOV,DSOV,VAOV,RGOV-CASOV,ETOV) .END P.L@@@.$0 @3@@Rp@R@.V@V@V@W@\`@.\`@\`s@$b%@(i@۩K@ .@D@ܪ@E@Q@H@).R!@@\@(%h D%h. &   K  * ܪE@Q(i۩K$P&E  V3 6 200,12]UPDCMN [200,20]UPDOV,[200,30]UPD/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOUPD [200,20]PWDOV,[200,30]PWD/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOPWD [200,20]COMOV,[200,30]COM/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOCOM [200,20]RTPAR,[200,30]PAR/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOPAR [200,20]RTCMN,[200,30]CMN/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOCMN [200,20]RTDBD,[200,30]DBD/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTODBD [200,20]RTO,[200,30]RTO/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTO RILE JSR PC,WRT ; GO WRITE BUFFERS CLOSE$ ; CLOSE THIS FILE MOV #DICNM,DSPT+10. ; PUT IN CORRECT FILE NAME MOV #80.,ADDR+2 ; PUT IN GOOD BLOCK NUMBER OPEN$W #FDDIC,#1,#DSPT ; CREATE AND OPEN DICTIONARY FILE JSR PC,WRT ; GO DO THE WRITES CLOSE$ ; CLOSE THIS FILE EXIT$S ; GO BACK TO THE OPERATING SYSTEM ; FILL EACH BLOCK WITH ZERO(NULL) ELEMENTS WRT: MOV ADDR,F.BKVB(R0) ; PUT IN FIRST PART OF VB MOV ADDR+2,F.BKVB+2(R0) ; PUT IN SECOND PART OF VB JSR PC,.WRITE ; GO DO THE WRITE S.pL@@@g.$0 @3@3@@Rp@.R@V@V@V@W@s.\`@\`@\`s@$b@h@&.Pi@۩K@@D@ܪ@..ݪK@E@Q@H@R!@@.\@(jhDhz. &   n *ܪE@Qh۩K$& ,V 3  .NLISTQ;,;N;B;T;; COPYRIGHT (C) 1976; DIGITAL EQUIPMENT CORPORATIONT;E=;THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON AM>;SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-@;SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER@;COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLEA;TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO*=;AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE*,;SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. >;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT>;NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL;EQUIPMENT CORPORATION.S EA;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITSG4;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .LIST B .NLISTD3; BASIC MACRO FILE - LAST MODIFIED BY BJL 5-JULY-76P .MACRO VERS .ASCIZ /V02-01 /  .ENDM .MACRO AOTS REG MOV @#$OTSV,REG .ENDM ;AOTS  .MACRO .ZERO AH .NLISTL .REPT A .WORD 0 .ENDR .LIST .ENDM  S .MACRO ERCALL A,B .GLOBL MSGERR,CR,LF JSR R1,MSGERR .IF NDF $LONGE .ASCIZ "A"N .IFFG .ASCIZ "B"E .ENDC .EVEN .GLOBL BOMBDD6 JSR PC,BOMBDD ;REPORT LINE NUMBER ON NON-FATAL ERRORS .ENDM  .MACRO ERTEXT A,B .GLOBL BOMB JSR R1,BOMB .IF NDF $LONGE .ASCIZ "A"R .IFF- .ASCIZ "B"D .ENDC .EVEN .ENDM R .MACRO ROOT .PSECT BASRCD,RO,I .ENDM .MACRO EDITR@ .PSECT BASECD,RO,IO .ENDM .MACRO XECUT .PSECT BASXCD,RO,I. .ENDM .MACRO SYSTM. .PSECT BASSCD,RO,I  .ENDM .MACRO PATCHR .PSECT BASPCH,RO,IR .ENDM $ .LIST .ASCIZ "A"N .IFFG .ASCIZ "B"E .ENDC .EVEN .GLOBL BOMBDD6 JSR PC,BOMBDD ;REPORT LINE NUMBER ON NON-FATAL ERRORS .ENDM  .MACRO ERTEXT A,B .GLOBL BOMB JSR R1,BOMB .IF NDF $LONGE .ASCIZ "A"R .IFF- .ASCIZ "B"D .ENDC .EVEN .ENDM R .MACRO ROOT .PSECT BASRCD,RO,I .ENDM .MACRO EDITR@ .PSECT BASECD,RO,IO .ENDM .MACRO XECUT .PSECT BASX .NLIST;N;;.;R;Y; COPYRIGHT (C) 1976; DIGITAL EQUIPMENT CORPORATION.;C=;THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A >;SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-@;SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER@;COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLEA;TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHOD=;AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE,;SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. >;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT>;NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL;EQUIPMENT CORPORATION.S EA;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITSG4;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .LIST B; ASSEM.MAC 18-JUL-76 %; BASIC ASSEMBLY OPTIONS AND SWITCHESC; ; SET DEFAULT ASSEMBLER SWITCHES;D;A1; $PRU IS DEFINED FOR SYSTEMS HAVING PRINT USING.P; $PRU=1;R0; $CALL, IF DEFINED, INCLUDES THE CALL INTERFACE;A$CALL=1H;F1; $INT, WHEN DEFINED, INCLUDES INTEGER ARITHMETICU;; NOTE: $INT MUST ALWAYS BE DEFINED BECAUSE INTEGER SUPPORTR); CODE IS NOT COMPLETELY CONDITIONALIZED.I;F$INT = 1;E8; $VARY, WHEN DEFINED, INCLUDES THE VIRTUAL ARRAY OPTION;I $VARY = 1;T>; WHEN $LONGER IS DEFINED, THE LONG ERROR MESSAGES ARE ISSUED,); OTHERWISE 3 CHARACTER MESSAGES ARE USED; $LONGER=1I;I0; $STR ENABLES THE STRING FEATURES AND FUNCTIONS;R$STR=1; !; $CAT ENABLES THE CATALOG OPTIONE;A$CAT=1;#; $CMPIL ENABLES THE COMPILE OPTIONT;R $CMPIL = 1;O1; $DBG ENABLES VARIOUS DEBUGGING CAPABILITIES FORP; SYSTEM PROGRAMMERS.P;E ;$DBG = 1N Z;I; ASSEMBLY PARAMS.; ;R; NUMBER OF FILE LUNS ALLOWEDI;A $LUNS = 12.N; ; SYSTEM LUN;$SYLUN = $LUNS+1;E; TERMINAL LUN;E$TLUN = $SYLUN+1%$STKSZ =500 ;SIZE OF STACK, IN BYTESE"$STKEX =100 ;EXTRA BYTES ON STACK"$KBIBFS =72. ;KEYBOARD BUFFER SIZE.$TPBSZ =72. ;TELEPRINTER BUFFER SIZE IN BYTES$ULNSP =134. ;USER LINE SPACE,$MINUSR =500. ;MINIMUM # WORDS IN USER AREA$GOSUB=40. ;GOSUB LIST SIZERSXBFS = 512. ;BUFFER SIZE$BUFSZ = RSXBFSR $FNAME = 9. ;FILENAME SIZE LIMIT S BLY PARAMS.; ;R; NUMBER OF FILE LUNS ALLOWEDI;A $LUNS = 12.N; ; SYSTEM LUN;$SYLUN = $LUNS+1;E; TERMINAL LUN;E$TLUN = $SYLUN+1%$STKSZ =500 ;SIZE OF STACK, IN BYTESE"$STKEX =100 ;EXTRA BYTES ON STACK"$KBIBFS =72. ;KEYBOARD BUFFER SIZE.$TPBSZ =72. ;TELEPRINTE10 REM S10 REM COPYRIGHT (C) 1976%10 REM DIGITAL EQUIPMENT CORPORATIONU10 REM C10 REM THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON AED10 REM SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-F10 REM SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHERF10 REM COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLEG10 REM TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHOSC10 REM AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE0210 REM SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.10 REMD10 REM THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUTD10 REM NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL10 REM EQUIPMENT CORPORATION.M10 REM TG10 REM DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITSR:10 REM SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.10 REM50 DIM F%(25),F$(25)100 D=0 \ O=0 \ F=0A/110 FOR I=0 TO 25 \ F%(I)=1 \ F$(I)='' \ NEXT IR120 PRINT \ PRINT R)130 PRINT 'INPUT FILE NAME'; \ LINPUT F0$T*140 PRINT 'OUTPUT FILE NAME'; \ LINPUT F1$,150 PRINT 'CHECK DATA (Y OR N)'; \ LINPUT Q$2160 IF Q$='N' THEN 170 \ IF Q$<>'Y' THEN 150 \ D=11170 PRINT 'CHECK OCT & BIN (Y OR N)'; \ LINPUT Q$A2180 IF Q$='N' THEN 190 \ IF Q$<>'Y' THEN 170 \ O=1,190 PRINT "CHECK FN'S (Y OR N)"; \ LINPUT Q$2200 IF Q$='N' THEN 230 \ IF Q$<>'Y' THEN 190 \ F=11210 PRINT 'CHANGE FN NAMES (Y OR N)'; \ LINPUT Q$A3220 IF Q$='N' THEN 230 \ IF Q$<>'Y' THEN 210 \ F=-12 230 OPEN F0$ FOR INPUT AS FILE 1240 IF F1$='' THEN 260!250 OPEN F1$ FOR OUTPUT AS FILE 2 260 PRINT \ PRINT N400 IF END #1 THEN 500410 LINPUT #1,L$ \ L=LEN(L$)(420 GOSUB 6000 \ IF D=1 THEN GOSUB 1000(430 GOSUB 6000 \ IF O=1 THEN GOSUB 2000)440 GOSUB 6000 \ IF F<>0 THEN GOSUB 3000N450 IF F1$='' THEN 400460 PRINT #2,L$ \ GO TO 400 500 CLOSE 2510 PRINT \ PRINT \ PRINT 'CONVERSION COMPLETE.'4520 PRINT 'ANOTHER CONVERSION (Y OR N)'; \ LINPUT Q$9530 IF Q$='Y' THEN 100 \ IF Q$<>'N' THEN 520 \ A=ABORT(1)R$1000 IF POS(L$,'DATA',I)=0 THEN 1110"1010 GOSUB 5000 \ IF I=L THEN 11101020 IF I+3>=L THEN 1110'1030 IF SEG$(L$,I,I+3)='DATA' THEN 1050\+1040 I=I+1 \ IF I>=L THEN 1110 \ GO TO 1010U1050 I=I+4 \ IF I>=L THEN 1110!1060 IF POS(L$,'\',I)=0 THEN 1110I"1070 IF SEG$(L$,I,I)='\' THEN 11001080 I=I+1 \ IF I>=L THEN 111001090 GOSUB 5000 \ IF I>=L THEN 1110 \ GO TO 1070/1100 PRINT 'DATA NOT LAST:' \ PRINT L$ \ PRINT E 1110 RETURN)$2000 IF POS(L$,'OCT',I)<>0 THEN 2020#2010 IF POS(L$,'BIN',I)=0 THEN 2130#2020 GOSUB 5000 \ IF I>=L THEN 2130'2030 IF SEG$(L$,I,I+2)<>'OCT' THEN 2070I2040 I=I+3 \ IF I>=L THEN 2130#2050 IF SEG$(L$,I,I)<>'(' THEN 2110I+2060 I=I+1 \ IF I>=L THEN 2130 \ GO TO 2020I&2070 IF SEG$(L$,I,I+2)='BIN' THEN 2090+2080 I=I+1 \ IF I>=L THEN 2130 \ GO TO 2020T2090 I=I+3 \ IF I>=L THEN 213002100 IF SEG$(L$,I,I)<>'(' THEN 2110 \ GO TO 2060=2110 PRINT 'OCT/BIN WITHOUT PARENTHESES:' \ PRINT L$ \ PRINT 02120 GO TO 2020 2130 RETURNI"3000 IF POS(L$,'FN',I)=0 THEN 3150#3010 GOSUB 5000 \ IF I>=L THEN 3150F%3020 IF SEG$(L$,I,I+1)='FN' THEN 3040)+3030 I=I+1 \ IF I>=L THEN 3150 \ GO TO 3010 A3040 PRINT 'REFERENCE TO ';SEG$(L$,I,I+2);':' \ PRINT L$ \ PRINT E3050 IF F<0 THEN 30700+3060 I=I+3 \ IF I>=L THEN 3150 \ GO TO 3010I 3070 S=ASC(SEG$(L$,I+2,I+2))-65%"3080 ON F%(S) GO TO 3090,3130,306063090 PRINT 'IS CHANGED REQUIRED (Y OR N)'; \ LINPUT Q$F3100 IF Q$='N' THEN 3110 \ IF Q$<>'Y' THEN 3090 \ F%(S)=2 \ GO TO 3120"3110 F%(S)=3 \ PRINT \ GO TO 306013120 PRINT 'NEW NAME IS'; \ LINPUT F$(S) \ PRINT 5+3130 L$=SEG$(L$,1,I-1)+F$(S)+SEG$(L$,I+3,L)0@3140 L=LEN(L$) \ I=I+LEN(F$(S)) \ IF I>=L THEN 3150 \ GO TO 3010 3150 RETURNI#5000 IF SEG$(L$,I,I)<>'"' THEN 5040I5010 I=I+1 \ IF I=L THEN 5130I#5020 IF SEG$(L$,I,I)<>'"' THEN 5010S*5030 I=I+1 \ IF I=L THEN 5130 \ GO TO 50005040 IF I$<>"'" THEN 5080I5050 I=I+1 \ IF I=L THEN 5130)#5060 IF SEG$(L$,I,I)<>"'" THEN 50501*5070 I=I+1 \ IF I=L THEN 5130 \ GO TO 5000'5080 IF SEG$(L$,I,I+2)<>'REM' THEN 51305090 I=I+2 \ IF I>=L THEN 51305100 I=I+1 \ IF I>=L THEN 5130#5110 IF SEG$(L$,I,I)<>'\' THEN 51000*5120 I=I+1 \ IF I=L THEN 5130 \ GO TO 5000 5130 RETURN026000 I=POS(L$,' ',1) \ I=I+1 \ GOSUB 5000 \ RETURN 10000 ENDI+1 \ IF I=L THEN 5130I#5020 IF SEG$(L$,I,I)<>'"' THEN 5010S*5030 I=I+1 \ IF I=L THEN 5130 \ GO TO 50005040 IF I$<>"'" THEN 5080I5050 I=I+1 \ IF I=L THEN 5130)#5060 IF SEG$(L$,I,I)<>"'" THEN 50501*5070 I=I+1 \ IF I=L THEN 5130 \ GO TO 5000'5080 IF SEG$(L$,I,I+2)<>'REM' THEN 51305090 I=I+2 \ IF I>=L THEN 513051&Rp Cg, &    , ܪE@Q "aC}($  5>*۩K TXVĩX"܅p Dw -w *+ W (xW+(x\'556.+ ܅p܅  + aC}܅P$r w *+ ڪtX(xtXTX ;   ( aC};E@Q aC} ۩KĩX{$8"V&E@Q\$L  qe*8 N ]np]N Ah w e *[\8 np[ܩ8t.~     *Lk np\8[(j8 w Dvi- %.SWITCH ALREADY EXISTS2  -- NO REP LACEMENT SWITCH . 9COMMAND SW'S = ,! SW SV .@= *O fPT> ,  e- P f(ݪKW aC}- &aC}].$ wע,  u(  \Df .J ע,%ϫ}Df(j3 pr, j.1LN @@@.[@np@V@ty@@.܅@]@@@8@۩K@l.ܩ8@8@ܪ@D8@E@Q@.Lk@V@@@e@\8@.j8@(1haC}(hhaC}3 STATE VALUES> . &   i, ܪ aC}۩K$(8.&f  [  qe5, aC} (xN ]np] w *N [} l8np[}8R  *L~(x s@8npl88w[}j8[200,50]MCF,[200,30]MCF/-SP/CR=[200,20]MCF // maC}r j3 $0 j ~j7 6P. aC}j aC}7  aC}6&!7  (aC} aC}7^z $b  w , aC}b ۩K[wL}L`G,9%LP 7  , aC}aC}aC}"aC}, 75` %5 .aC} aC}7$0 yeE"$0 d.    %5`$܅ @e $D8r&L   qe*VE@Q8N ]npj w *]N  [\8np[.~     *ܩ8Lknp\8[.e E D D D ty. D Q RE E@PA  w j8V@"o:49 PAGE 9-1 SYMBOL TABLE AFT = ****** GX UP.AP = 000002 G UP.VA = 000004 G U.TU = 000020 G $PDIC 000000RG AR 000022R UP.DG = 000010 G U.AN = 000514 G U.VA = 000014 G $PLDIC 000426RG BEF = ****** GX UP.DL = 000002 G U.DG = 000516 G $CLRAN 000122RG $PLTG 000426RG CH12 000000RG 002 UP.DS = 000002 G U.DO = 000510 G $DDIV = ****** GX $PTAG 000012RG CNT = ****** GX UP.EU = 000010 G U.DS = 000012 G $DTAG 000760RG $SAVAL= ****** GX DBK = ****** GX UP.Fp 126 101 114 000652 111 104 040 000655 104 105 126 000660 111 103 105 000663 040 101 116 000666 104 040 117 000671 122 040 125 000674 116 111 124 000677 040 116 125 000702 115 102 105 000705 122 25 000706 MKMES$ M14, 000706 025 M14:: .BYTE M14M 000707 062 040 037 .ASCII<40+18.><40><37>/ -- INVALID LUN/ CMN RTO COMMON ROUTINES M(Sf@.6    $$0  Sf @c.\%5    $0 D%% @.%5   wt $0 D @&%5  Q, $0 d[w<&9) wwT <&9) L}rr 71 000044 WAIT$ ; WAIT TO GET DONE 000044 004767 000000G JSR PC,.WAIT 72 000050 012600 10$: MOV (SP)+,R0 ; RESTORE R0 73 000052 000207 RTS PC ; RETURN DBD DATA BASE DEFINES MACRO M10 14-JUL-76 16:52 PAGE 3 $WTBK WRITE TAG BLOCK TO DISK 75 .SBTTL $WTBK WRITE TAG BLOCK TO DISK 76 ;+ 77 ; $WTBK - WILL WRITE A BLOCK BACK TO THE TAG FILE 78 ; 79 ; INPUTS: 80 ; 81 ; TBK+1 VIRTUAL BLOCK TO WRITE sM = 000200 G U.EU = 000016 G $FDIC 000324RG $SAVVR= ****** GX PNT = ****** GX UP.FP = 000400 G U.FM = 000026 G $FTAG 000204RG $WRBK = ****** GX SI = ****** GX UP.IN = 000100 G U.FP = 000030 G $GDBK = ****** GX $WTBK = ****** GX TBK = ****** GX UP.RG = 000040 G U.IN = 000024 G $GRBK = ****** GX T.NR = ****** GX UP.RP = 000001 G U.RG = 000022 G $GTBK = ****** GX T.SI = ****** GX UP.TG = 000001 G U.TG = 000010 G $MREC 000576RG UP.AN = 000004 G UP.TU = 000020 G U.TO tACRO M10 14-JUL-76 16:51 PAGE 1-3 000712 040 040 040 000715 040 055 055 000720 040 111 116 000723 126 101 114 000726 111 104 040 000731 114 125 116 26 000734 MKMES$ M15, 000734 031 M15:: .BYTE M15M 000735 062 040 037 .ASCII<40+18.><40><37>/ -- FILE NOT CLOSED/ 000740 040 040 040 000743 040 055 055 000746 040 106 111 000751 11u0G 000004G BISB BT,C.DEF+4(R3) ; SET SWITCH VALUE BIT 153 000254 000241 CLC ; MAKE CARRY CLEAR 154 000256 000207 10$: RTS PC ; RETURN C CLEAR IF OK PAR PARSER FOR RTO MACRO M10 14-JUL-76 16:50 PAGE 4 PAREXP EXPLANATION OF PAR 156 .SBTTL PAREXP EXPLANATION OF PAR 157 ;+ 158 ; $PAR - THIS ROUTINE DOES INITIAL PARSING AND BUILDS AN ORDERED 159 ; TABLE WHOSE ADDRESS IS IN R4. THIS TABLE IS ORDERED IN THE SAME 160 ; MANNER AS SWITCHESv 82 ; 83 ; OUTPUTS: 84 ; 85 ; DISK BLOCK SHOULD BE WRITTEN 86 ; 87 ;- 88 000054 010046 $WTBK:: MOV R0,-(SP) ; SAVE R0 89 000056 116700 004677' MOVB TBK+1,R0 ; PUT IN DISK BLOCK 90 000062 010067 000226' MOV R0,F.BKVB+2+FDTAG ; PUT IN BLOCK NUMBER 91 000066 WRITE$ #FDTAG ; WRITE THE BLOCK 000066 012700 000140' MOV #FDTAG,R0 000072 004767 000000G JSR PC,.WRITE 92 000076 WAIT$ ; WAIT FOR WRITE = 000512 G $MVTG 000450RG . ABS. 000000 000 001070 001 $DATA$ 000014 002 ERRORS DETECTED: 0 FREE CORE: 5192. WORDS [200,20]UCMOV,[200,30]UCM/-SP/LI:MEB=[100,1]TURMAC/ML,[200,12]UPDCMN x4 105 040 000754 116 117 124 000757 040 103 114 000762 117 123 105 000765 104 27 000766 MKMES$ M16, 000766 032 M16:: .BYTE M16M 000767 062 040 037 .ASCII<40+18.><40><37>/ -- CANNOT OPEN FILE/ 000772 040 040 040 000775 040 055 055 001000 040 103 101 001003 116 116 117 001006 124 040 117 001011 120 105 116 001014 040 y ARE SPECIFIED IN THE OPT COMMAND. UPON LEAVING 161 ; THIS ROUTINE ALL ERROR MESSAGES WILL HAVE BEEN PRINTED AND THE 162 ; CURSOR WILL BE IN THE APPROPRIATE PLACE FOR THE NEXT WRITE FOLLOWED 163 ; BY READ IF NECESSARY. 164 ; 165 ; INPUTS: 166 ; 167 ; CNT NUMBER OF CHARS IN COMMAND STRING 168 ; PNT ADDRESS OF COMMAND STRING 169 ; R5 ADDRESS OF COMMAND TABLE GOTTEN FROM A GCSB 170 ; 171 ; OUTPUTS: 172 z TO COMPLETE 000076 004767 000000G JSR PC,.WAIT 93 000102 012600 MOV (SP)+,R0 ; RESTORE R0 94 000104 000207 RTS PC ; RETURN DBD DATA BASE DEFINES MACRO M10 14-JUL-76 16:52 PAGE 4 $GCSB GET COMMAND BLOCK 96 .SBTTL $GCSB GET COMMAND BLOCK 97 ;+ 98 ; $GCSB - THIS ROUTINE WILL GET A COMMAND BLOCK FROM DISK 99 ; WHICH CONTAINS VALID SWITCH AND SWITCH VALUE 100 ; DEFAULTS AND SWITCH AND SWITCH VALUE NAMES. ALSO 101 { RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 TABLE OF CONTENTS 1- 2 ROOT DATA 2- 77 START OF MAIN PROGRAM RTO 3- 139 $ERRA PROCESSING ROUTINE 4- 176 $DISP COMMAND RECOGIZER RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 1 1 .TITLE RTO REAL TIME OPERATOR 2 .SBTTL ROOT DATA 3 ;+ 4 ; RTO - THIS IS THE ROOT SEGMENT OF RTO. IT CONTAINS ALL NECESSARY 5 ; ROUTINES FOR RUNNING RTO COMMANDS. ALL COMMANDS AR|106 111 001017 114 105 28 .EVEN 29 001022 040 040 037 C0: .ASCII<40><40><37> 30 .EVEN 31 000000 .PSECT CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 2 $CHAR CHARACTER RECOGIZER 33 .SBTTL $CHAR CHARACTER RECOGIZER 34 ;+ 35 ; $CHAR - THIS ROUTINE DETERMINES IF CHAR ALPHABETIC. 36 ; INPUTS: 37 ; 38 ; R3 POINTER TO CHARACTER STRING 39 ; 40 ; OUTPUTS:} ; 173 ; CNT WILL BE ZERO IF NO SEMICOLON WAS HIT 174 ; PNT WILL POINT ONE PAST THE LAST CHARACTER LOOKED AT 175 ; REGISTERS UNCHANGED 176 ; 177 ; THE PARSED TABLE WILL CONTAIN POINTERS TO THE NUMBER 178 ; OF CHARACTERS PAST THE SWITCH OR SWITCH VALUE INCLUDING 179 ; THE "=" AND THE SECOND WORD WILL POINT AT THE "=". 180 ; 181 ; IF THE SWITCH AND/OR SWITCH VALUE WAS GOOD THE APPOPRIATE 182 ; BITS IN THE COMMAN~; CONTAINED IS THE DEFAULT DEVICE AND THE NUMBER OF 102 ; SWITCHES AND THE NUMBER OF SWITCH VALUES PER COMMAND 103 ; AND PER SWITCH RESPECTIVELY. 104 ; 105 ; INPUTS: 106 ; 107 ; F.BKVB+2+FDCOM SHOULD CONTAIN VALID VIRTUAL BLOCK NUMBER 108 ; F.BKDS+2+FDCOM SHOULD CONTAIN VALID BLOCK BUFFER ADDRESS 109 ; 110 ; OUTPUTS: 111 ; 112 ; THE BLOCK BUFFER WILL BE FILLED WITH THE COMMAND TABLE FROM DISK 113 E 6 ; OVERLAYS AND MAY USE ALL OR NON OF THE ROUTINES IN THIS 7 ; SEGMENT. THIS ROUTINE IS INSTALLED BY THE OPERATOR 8 ; AND RUN AT HIS DISCRESION. INDIRECT FILES MAY BE USED 9 ; AT THIS LEVEL ONLY. 10 ;- 11 .MCALL SETF$S,WTSE$S,ALUN$S,GCMLB$,FSRSZ$,GCMLD$,EXIT$S 12 .MCALL OPEN$M,RCML$,CLOSE$,GLUN$S,RTDEF$ 13 000000 RTDEF$ ; DEFINE RTO GLOBAL DEFINITIONS 14 000000 .PSECT $DATA$ 15 ; THESE ARE  41 ; 42 ; C=0 ALPHABETIC 43 ; C=1 NON-ALPHA 44 ; 45 ;- 46 000000 121327 000101 $CHAR:: CMPB (R3),#101 ; SEE IF LOWER THAN "A" 47 000004 103402 BLO 10$ ; IF SO BRANCH WITH C SET 48 000006 122713 000132 CMPB #132,(R3) ; SEE IF HIGHER THAN "Z" 49 000012 000207 10$: RTS PC ; RETURN C CLEAR IF ALPHA CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 3 $NUM NUMBER RECOGNIZER 51 .SBTTL $NUM NUMBER RD TABLE WILL BE SET OR CLEARED DEPENDING 183 ; ON WETHER /SW OR /-SW WAS USED. 184 ; 185 ;- PAR PARSER FOR RTO MACRO M10 14-JUL-76 16:50 PAGE 5 ERR1 ERR2 ERRORS FOR PAR 187 .SBTTL ERR1 ERR2 ERRORS FOR PAR 188 ;+ 189 ; ERR1 - RETURNS A CODE OF ONE IN MW. 190 ; 191 ; ERR2 - RETURNS A CODE OF TWO IN MW. 192 ; 193 ;- 194 000260 005067 000000G ERR1: CLR MW ; STORE SYNTAX ERROR CODE 195 000264 0002 ; 114 ;- 115 000106 010046 $GCSB:: MOV R0,-(SP) ; SAVE R0 116 000110 READ$ #FDCOM ; GO GET COMMAND BLOCK 000110 012700 000000' MOV #FDCOM,R0 000114 004767 000000G JSR PC,.READ 117 000120 WAIT$ ; WAIT FOR IO TO FINISH 000120 004767 000000G JSR PC,.WAIT 118 000124 012600 MOV (SP)+,R0 ; RESTORE R0 119 000126 000207 RTS PC ; RETURN TO CALLING PROGRAM DBD DATA BASE DEFINES MACRO M10 14-JUL-76 16:52 PAGE 5 $WCSB WRITE COMMAND BLOCK ROUTINE JUMP ADDRESSES 16 000000 000000G JAD:: $ALA 17 000002 000000G $BAD 18 000004 000000G $CLEAR 19 000006 000000G $CON 20 000010 000000G $DES 21 000012 000000G $EVE 22 000014 000000G $HEL 23 000016 000000G $LAB 24 000020 000000G $MAI 25 000022 000000G $OPT 26 000024 000000G $PRO 27 000026 000000G $PWRD 28 000030 000000G $REP 29 000032 000000G $SIG 30 000034 000000G $STAECOGNIZER 52 ;+ 53 ; $NUM - CHECKS TO SEE IF CHAR IS NUMBER 54 ; 55 ; INPUTS: 56 ; 57 ; R3 POINTER TO CHARACTER 58 ; 59 ; OUTPUTS: 60 ; 61 ; C=0 IF NUMBER 62 ; C=1 IF NON-NUMERIC 63 ;- 64 000014 121327 000060 $NUM:: CMPB (R3),#60 ; SEE IF LOWER THAN "0" 65 000020 103402 BLO 10$ ; IF SO RETURN C SET 66 000022 122713 000071 CMPB #71,(R3) ; SEE IF HIGHER THAN "61 ERR: SEC ; MAKE RETURN BAD 196 000266 000207 RTS PC ; RETURN TO CALLING PROGRAM C SET 197 000270 012767 000001 000000G ERR2: MOV #1,MW ; PUT IN ILLEGAL SWITCH CODE 198 000276 000772 BR ERR ; GO FINISH UP PAR PARSER FOR RTO MACRO M10 14-JUL-76 16:50 PAGE 6 SLH PROCESSES "/" DELEMITER 200 .SBTTL SLH PROCESSES "/" DELEMITER 201 ;+ 202 ; SLH - THIS ROUTINE HANDLES THE PARSING OF ALL SWITCHES 203 ; OF THE FORM /-SW OR /SW. THIS  121 .SBTTL $WCSB WRITE COMMAND BLOCK 122 ;+ 123 ; $WCSB - WRITE COMMAND BLOCK BACK TO DISK 124 ; 125 ; INPUTS: 126 ; 127 ; CBK SHOULD CONTAIN VALID VIRTUAL BLOCK FROM LAST READ 128 ; F.BKDS+2+FDCOM SHOULD CONTAIN THE VALID BLOCK BUFFER FROM LAST READ 129 ; 130 ; OUTPUTS: 131 ; 132 ; DISK SHOULD CONTAIN UPDATED COMMAND BLOCK 133 ; 134 ;- 135 000130 010046 $WCSB:: MOV R0,- 31 000036 000000G $TRE 32 000040 000000G $UPD 33 000042 000000G VN:: $VTAG 34 000044 STABLE:: .BLKW 32. ; PARSE TABLE RESULTS 35 000144 IOST:: .BLKW 2 ; IO STATUS WORD 36 000150 000000 CMN:: .WORD 0 ; COMMAND WORD 37 000152 000000 PRMD:: .WORD 0 ; PRIVLEDGE WORD 38 000154 000000 MW:: .WORD 0 ; WORD FOR BITS 39 000156 000000 SWF:: .WORD 0 ; WORD FOR INTERACTIVE OR NOT 40 000160 000000 SW:: .WORD 0 ; WORD FOR VA9" 67 000026 000207 10$: RTS PC ; RETURN C CLEAR IF NUMBER CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 4 $SWT GET TWO CHAR SWITCH 69 .SBTTL $SWT GET TWO CHAR SWITCH 70 ;+ 71 ; 72 ; $SWT - THIS ROUTINE WILL GET ONE OR TWO CHARACTERS IN R0 73 ; IF FOR SOME REASON THERE ARE NOT TWO VALID CHARS 74 ; THEN RETURN WILL OCCUR WITH C SET. 75 ; 76 ; INPUTS: 77 ; 78 ; R3 POINTER TO COMROUTINE WILL FIND 204 ; THE SWITCH IF POSSIBLE IN THE COMMAND TABLE AND 205 ; FROM THIS INFORMATION SET CERTAIN BITS IN THE 206 ; DEFAULT SWITCH WORD. 207 ; 208 ; INPUTS: 209 ; 210 ; R2 IS THE NUMBER OF CHARS REMAINING IN COMMMAND STRING 211 ; R3 IS THE ADDRESS OF THE CURRENT CHARACTER IN THE COMMAND STRING 212 ; R5 IS THE COMMAND TABLE 213 ; 214 ; OUTPUTS: 215 ; 216 ; R2 NUMBER OF CHAR(SP) ; SAVE R0 136 000132 016767 004674' 000066' MOV CBK,F.BKVB+2+FDCOM ; PUT IN CORRECT VIRTUAL BLOCK NUMBER 137 000140 WRITE$ #FDCOM ; DO THE WRITE TO DISK 000140 012700 000000' MOV #FDCOM,R0 000144 004767 000000G JSR PC,.WRITE 138 000150 WAIT$ ; WAIT FOR IO TO FINISH 000150 004767 000000G JSR PC,.WAIT 139 000154 012600 MOV (SP)+,R0 ; RESTORE R0 140 000156 000207 RTS PC ; RETURN TO CALLING PROGRAM DBD DATA BASE DEFINES MACRO M10 14-JUL-7LID SWITCH 41 000162 000000 BT:: .WORD 0 ; WORD FOR VALID BIT SET 42 000164 007 052 037 PRT: .ASCII<7>/*/<37>/RTO> / 000167 122 124 117 000172 076 040 43 .ODD 44 .BLKB 3 ; FOR INSERTION 45 000200 IL1:: .BLKW 41. ; RESERVED FOR GCML INPUT LINE 46 .ODD 47 .BLKB 3 48 000326 IL2:: .BLKW 41. ; GCML INPUT LINE 49 .EVEN 50 000450 GCMLD$ DEF$G 51 000450 CML1:: GCMLB$ 4,RTO,MAND STRING BUFFER 79 ; R2 NUMBER OF CHARS REMAINING IN CSB 80 ; 81 ; OUTPUTS: 82 ; 83 ; SW ONE OR TWO ALPHA CHARACTERS 84 ; R2 NUMBER OF CHARS+1 REMAINING IN CSB 85 ; R3 POINTING ONE PAST LAST CHAR PUT IN R0 86 ; 87 ; C=0 IF TWO VALID CHARS IN R0 88 ; C=1 IF LESS THAN TWO 89 ;- 90 000030 005067 000000G $SWT:: CLR SW ; MAKE ROOM FOR TWO CHARS 91 000034 004767 177740 JSR PC,$CHARS REMAINING 217 ; R3 ONE CHAR PAST LAST LOOKED AT 218 ; R4 OFFSET OF SWITCH IN COMMAND TABLE 219 ; 220 ; IF VALID SWITCH BIT SET IN COMMAND TABLE 221 ; 222 ;- 223 000300 005203 SLH: INC R3 ; GET CS POINTER PAST "/" 224 000302 005302 DEC R2 ; REDUCE CHAR COUNT 225 000304 003765 BLE ERR1 ; IF NO MORE GO ERROR 226 000306 121327 000055 CMPB (R3),#'- ; SEE IF THIS SWITCH NEGATED 227 000312 001006 BNE 10$ ; IF 6 16:52 PAGE 6 $GRBK GET RECORD BLOCK 142 .SBTTL $GRBK GET RECORD BLOCK 143 ;+ 144 ; $GRBK - THIS ROUTINE WILL GET A BLOCK OF SIGNAL RECORDS 145 ; 146 ; INPUTS: 147 ; 148 ; SI SIGNAL INDEX OF RECORD TO RETRIEVE 149 ; 150 ; OUTPUTS: 151 ; 152 ; RBK+1 BYTE CONTAINING VIRTUAL BLOCK WITHIN FILE 153 ; RBK BYTE CONTAINING INDEX WITHIN BLOCK 154 ; RBUF WILL CONTAIN 512. BYTES READ FROM RECOIL1 ; INIT MACRO FOR GCML 000450 002 .BYTE 2 000512 001 .BYTE 1 000516 000636' .WORD 65$ 000524 001 .BYTE 1 RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 1-1 ROOT DATA 000467 000C .BYTE FD.TTY!FD.REC!FD.CCL 000610 000 007 .BYTE 0,GE.COM!GE.IND!GE.CLO 000622 377 004 .BYTE -1,4 000624 000674' .WORD 64$ 000626 000200' .WORD IL1 000630 015 012 .ASCII <^O 15> <^O 12> 000632 122 124 117 .ASCII  ; SEE IF THIS IS CHAR 92 000040 103413 BCS 20$ ; IF NOT BRANCH 93 000042 112367 000000G MOVB (R3)+,SW ; PUT IN FIRST VALID CHAR 94 000046 005302 DEC R2 ; REDUCE CHAR COUNT 95 000050 003406 BLE 10$ ; IF NO MORE CHARS LEFT BRANCH 96 000052 004767 177722 JSR PC,$CHAR ; SEE IF NEXT CHAR ALPHA 97 000056 103404 BCS 20$ ; IF NOT BRANCH 98 000060 112367 000001G MOVB (R3)+,1+SW ; PUT IN GOOD CHAR 99 000064 000207 RTS PC ; RETURN C NOT BRANCH 228 000314 105767 000000G TSTB MW ; SEE IF SEEN THIS BEFORE 229 000320 001357 BNE ERR1 ; IF SO THEN ERROR 230 000322 005267 000000G INC MW ; SHOW NEGATIVE 231 000326 000764 BR SLH ; GO UPDATE EVERTHING AND TRY AGAIN 232 000330 004767 000000G 10$: JSR PC,$SWT ; GO GET TWO CHAR SWITCH 233 000334 103751 BCS ERR1 ; IF NOT TWO CHARS ERROR 234 000336 005302 DEC R2 ; REDUCE CHAR COUNT 235 000340 003004 BGT 20$ ; IF MORE CHARS RD FILE 155 ; 156 ;- 157 000160 010046 $GRBK:: MOV R0,-(SP) ; SAVE R0 158 000162 016701 004704' MOV SI,R1 ; GET SIGNAL INDEX 159 000166 012700 000020 MOV #16.,R0 ; PUT IN MULTIPLICAND 160 000172 004767 000000G JSR PC,$MUL ; GO MAKE ACTUAL VB AND INDEX 161 000176 010167 004700' MOV R1,RBK ; STORE VB AND INDEX 162 000202 116701 004701' MOVB RBK+1,R1 ; GET VB 163 000206 005367 000366' DEC F.BKVB+2+FDREC ; MAKE ORIGINAL VB 164/RTO>/ 000635 076 000644 012321 .RAD50 /CMI/ 000646 000000 .WORD 0 000650 000000 .WORD 0 000652 012314 .RAD50 /CMD/ 52 000616' CNT==G.CMLD+CML1 53 000620' PNT==G.CMLD+2+CML1 54 001014 CML2:: GCMLB$ 3,RTO,IL2 ; INIT MACRO FRO GCML 001014 002 .BYTE 2 001056 001 .BYTE 1 001062 001202' .WORD 65$ 001070 001 .BYTE 1 001033 000C .BYTE FD.TTY!FD.REC!FD.CCL 001154 000 007 .BYTE 0,GE.COM!GE.IND!GE.CLO 0011CLEAR 100 000066 000261 10$: SEC ; SET C FOR BAD RETURN 101 000070 000207 20$: RTS PC ; RETURN CARRY SET CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 5 $LOK FIND SWITCH MATCH ROUTINE 103 .SBTTL $LOK FIND SWITCH MATCH ROUTINE 104 ;+ 105 ; $LOK - THIS ROUTINE DOES SWITCH OR SWITCH VALUE LOOK UP 106 ; 107 ; INPUTS: 108 ; 109 ; SW VALID SWITCH 110 ; R2 NUMBER OF VALID SWITCHES OR SWITCH VALUES IN COMLEFT BRANCH 236 000342 004767 177536 JSR PC,VSW ; GO FIND SWITCH AND SET CT BITS 237 000346 103750 BCS ERR2 ; IF SOMETHING WRONG ERROR 238 000350 000465 BR EOF ; LAST THING /SW OR /-SW SO QUIT 239 000352 004767 177504 20$: JSR PC,CR ; SEE IF ";" "/" "=" OR ":" 240 000356 103740 BCS ERR1 ; IF NOT BRANCH 241 000360 004767 177520 JSR PC,VSW ; GO FIND SWITCH AND SET CT BITS 242 000364 103741 BCS ERR2 ; IF BAD THEN ERROR 243 000366 00013 000212 020167 000366' CMP R1,F.BKVB+2+FDREC ; SEE IF SAME 165 000216 001414 BEQ 10$ ; IF SO BRANCH 166 000220 010167 000366' MOV R1,F.BKVB+2+FDREC ; PUT IN VB IN DPB 167 000224 READ$ #FDREC ; GO GET BLOCK 000224 012700 000300' MOV #FDREC,R0 000230 004767 000000G JSR PC,.READ 168 000234 116701 004700' MOVB RBK,R1 ; GET BLOCK INDEX 169 000240 062701 002674' ADD #RBUF,R1 ; MAKE ABSOLUTE INDEX 170 000244 WAIT$ ; WAIT FOR FINISH 000244 00466 377 003 .BYTE -1,3 001170 001240' .WORD 64$ 001172 000326' .WORD IL2 001174 015 012 .ASCII <^O 15> <^O 12> 001176 122 124 117 .ASCII /RTO>/ 001201 076 001210 012321 .RAD50 /CMI/ 001212 000000 .WORD 0 001214 000000 .WORD 0 001216 012314 .RAD50 /CMD/ 55 001340 122 124 117 .ASCII/RTO / 001343 040 040 040 001346 040 040 040 56 001351 101 114 101 NAM:: .ASCII/ALARMLMAND TABLE 111 ; R4 ADDRESS OF FIRST VALID SWITCH OR SWITCH VALUE 112 ; 113 ; OUTPUTS: 114 ; 115 ; R1 WILL CORRESPOND TO THE CORRECT BIT IN THE DEFAULT SWITCH 116 ; WORD OR DEFAULT SWITCH VALUE BYTE TO SET OR CLEAR 117 ; R4 WILL POINT AT THE CORRECT SWITCH OR SWITCH VALUE 118 ; 119 ; C=0 IF FOUND THE SWITCH OR SWITCH VALUE 120 ; C=1 IF NO VALID SWITCH VALUE 121 ; 122 ;- 123 000072 012767 00001 JMP @(R1)+ ; GO TO APPROPRIATE ROUTINE PAR PARSER FOR RTO MACRO M10 14-JUL-76 16:50 PAGE 7 COL PROCESSES ":" DELIMETER 245 .SBTTL COL PROCESSES ":" DELIMETER 246 ;+ 247 ; COL - THIS ROUTINE HANDLES SWITCH VALUES AND SETS THE 248 ; APPROPRIATE BITS IN THE COMMAND TABLE. 249 ; 250 ; INPUTS: 251 ; 252 ; R2 NUMBER OF CHARS REMAINING IN CS 253 ; R3 ADDRESS OF CURRENT COMMAND STRING 254 ; R4 OFFSET OF SWI767 000000G JSR PC,.WAIT 171 000250 012600 10$: MOV (SP)+,R0 ; RESTORE R0 172 000252 000207 RTS PC ; RETURN DBD DATA BASE DEFINES MACRO M10 14-JUL-76 16:52 PAGE 7 $WRBK WRITE RECORD BLOCK 174 .SBTTL $WRBK WRITE RECORD BLOCK 175 ;+ 176 ; $WRBK - THIS ROUTINE WILL WRITE A BLOCK BACK ON DISK IN 177 ; THE RECORD FILE. 178 ; 179 ; INPUTS: 180 ; 181 ; RBK+1 VIRTUAL BLOCK TO WRITE 182 ; 183 ;MTS/ 001354 122 115 114 001357 115 124 123 57 001362 102 101 104 .ASCII/BADINPUTS/ 001365 111 116 120 001370 125 124 123 58 001373 103 114 105 .ASCII/CLEAR / 001376 101 122 040 001401 040 040 040 59 001404 103 117 116 .ASCII/CONTROLPT/ 001407 124 122 117 001412 114 120 124 60 001415 104 105 123 .ASCII/DESKLOG / 001420 101 000000G $LOK:: MOV #1,BT ; MAKE R1 FIRST BIT VALUE 124 000100 016746 000000G MOV SW,-(SP) ; PUT R0 ON STACK FOR PRIVLEDGE CHECK 125 000104 005416 NEG (SP) ; MAKE NEGATIVE FOR PRIVLEDGE CHECK 126 000106 005302 10$: DEC R2 ; DECREMENT SWITCH OR SWITCH VALUE COUNT 127 000110 002414 BLT 30$ ; IF NO MORE LEFT BRANCH 128 000112 026714 000000G CMP SW,(R4) ; SEE IF THIS CORRECT SWITCH 129 000116 001412 BEQ 40$ ; IF SO BRANCH 130 000120 005767 0000TCH IN COMMAND TABLE 255 ; R5 COMMAND TABLE ADDRESS 256 ; 257 ; OUTPUTS: 258 ; 259 ; R2 NUMBER OF CHARS REMAINING IN CS 260 ; R3 ONE PAST LAST CHAR LOOKED AT 261 ; R4 ADDRESS-6 OF DEFAULT SWITCH VALUE BYTE 262 ; 263 ; BIT SET IN SWITCH VALUE BYTE ACCORDING TO THE VALID 264 ; SWITCH VALUE NAME RECIEVED 265 ; 266 ;- 267 000370 005302 COL: DEC R2 ; REDUCE CHAR COUNT 268 000372 003454  OUTPUTS: 184 ; 185 ; BLOCK WILL BE WRITTEN TO DISK 186 ; 187 ;- 188 000254 010046 $WRBK:: MOV R0,-(SP) ; SAVE R0 189 000256 116700 004701' MOVB RBK+1,R0 ; GET VB 190 000262 010067 000366' MOV R0,F.BKVB+2+FDREC ; PUT VB IN DPB 191 000266 WRITE$ #FDREC ; WRITE VB TO DISK 000266 012700 000300' MOV #FDREC,R0 000272 004767 000000G JSR PC,.WRITE 192 000276 WAIT$ ; WAIT FOR FINISH 000276 004767 000000G JSR PC,.WAIT 13 114 117 001423 107 040 040 61 001426 105 126 105 .ASCII/EVENTLOG / 001431 116 124 114 001434 117 107 040 62 001437 110 105 114 .ASCII/HELP / 001442 120 040 040 001445 040 040 040 63 001450 114 101 102 .ASCII/LABDATA / 001453 104 101 124 RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 1-2 ROOT DATA 001456 101 040 040 64 001400G TST PRMD ; SEE IF PRIVLEDGED 131 000124 001402 BEQ 20$ ; IF NOT BRANCH 132 000126 021614 CMP (SP),(R4) ; SEE IF MARKED DELETED TO NON PRIVLEDGED 133 000130 001405 BEQ 40$ ; IF SO BRANCH 134 000132 005724 20$: TST (R4)+ ; UPDATE POINTER 135 000134 006367 000000G ASL BT ; MAKE RIGHT TEST BIT 136 000140 000762 BR 10$ ; GO KEEP LOOKING 137 000142 000261 30$: SEC ; SET C TO LET OTHERS KNOW NO MATCH 138 000144 005326 40$: DEC (SP) BLE EOF ; IF NO MORE GO RAP THIS UP 269 000374 005203 INC R3 ; GET PAST CHAR ":" 270 000376 004767 000000G JSR PC,$SWT ; GO GET SV NAME 271 000402 103726 BCS ERR1 ; IF NOT TWO CHARS ERROR 272 000404 005302 DEC R2 ; REDUCE CHAR COUNT 273 000406 003004 BGT 10$ ; IF MORE LEFT BRANCH 274 000410 004767 177562 JSR PC,VSV ; GO FIND SV AND SET BIT 275 000414 103725 BCS ERR2 ; IF BAD ERROR 276 000416 000442 BR EOF ; LAST THING /-SW:SV 193 000302 000207 RTS PC ; RETURN DBD DATA BASE DEFINES MACRO M10 14-JUL-76 16:52 PAGE 8 $GDBK GET DICTIONARY BLOCK 195 .SBTTL $GDBK GET DICTIONARY BLOCK 196 ;+ 197 ; $GDBK - THIS ROUTINE WILL RETRIEVE A DICTIONARY ENTRY 198 ; BLOCK FROM THE DATA BASE. 199 ; 200 ; INPUTS: 201 ; 202 ; DBK+1 CONTAINS THE BLOCK NUMBER TO BE READ 203 ; 204 ; OUTPUTS: 205 ; 206 ; DBUF WILL CONTAIN DIC61 115 101 111 .ASCII/MAINTENCE/ 001464 116 124 105 001467 116 103 105 65 001472 117 120 124 .ASCII/OPTIONCNT/ 001475 111 117 116 001500 103 116 124 66 001503 120 122 117 .ASCII/PROCESSVR/ 001506 103 105 123 001511 123 126 122 67 001514 120 127 122 .ASCII/PWRD / 001517 104 040 040 001522 040 040 040 68 001525 122 105 + ; UPDATE STACK WITHOUT CHANGING C BIT 139 000146 000207 RTS PC ; RETURN TO CALLING PROGRAM CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 6 $GDEV GET DEVICE 141 .SBTTL $GDEV GET DEVICE 142 ;+ 143 ; $GDEV - THIS ROUTINE WILL GET THE DEFAULT DEVICE AND PLACE IT IN (R5) AND 2(R5). 144 ; 145 ; INPUTS: 146 ; 147 ; R2 NUMBER OF CHARS IN CS 148 ; R3 POINTER TO CS 149 ; R5 COMMAND TABLE ADDRESS 150 OR /SW:SV SO END 277 000420 004767 177414 10$: JSR PC,CQ ; SEE IF ";" "/" OR "=" 278 000424 103715 BCS ERR1 ; IF NOT THEN ERROR 279 000426 004767 177544 JSR PC,VSV ; GO FIND SV AND SET BIT 280 000432 103716 BCS ERR2 ; IF BAD ERROR 281 000434 000131 JMP @(R1)+ ; JUMP TO NEXT ROUTINE PAR PARSER FOR RTO MACRO M10 14-JUL-76 16:50 PAGE 8 EQU PROCESS "=" DELEIMETER 283 .SBTTL EQU PROCESS "=" DELEIMETER 284 ;+ 285 ; EQU - THISTIONARY BLOCK READ IN 207 ; 208 ;- 209 000304 010046 $GDBK:: MOV R0,-(SP) ; SAVE R0,R1,R2 210 000306 116700 004703' MOVB DBK+1,R0 ; GET VIRTUAL BOCK NUMBER 211 000312 005367 000526' DEC F.BKVB+2+FDDIC ; MAKE ORIGINAL VB 212 000316 020067 000526' CMP R0,F.BKVB+2+FDDIC ; SEE IF SAME 213 000322 001414 BEQ 10$ ; IF SO BRANCH 214 000324 010067 000526' MOV R0,F.BKVB+2+FDDIC ; PUT IN VB 215 000330 READ$ #FDDIC ; READ FROM DICTIONARY FI 120 .ASCII/REPORTCNT/ 001530 117 122 124 001533 103 116 124 69 001536 123 111 107 .ASCII/SIGNAL / 001541 116 101 114 001544 040 040 040 70 001547 123 124 101 .ASCII/STATUSINF/ 001552 124 125 123 001555 111 116 106 71 001560 124 122 105 .ASCII/TRENDLOGC/ 001563 116 104 114 001566 117 107 103 72 001571 125 120 104 .ASCII/U ; 151 ; OUTPUTS: 152 ; 153 ; R2 UPDATED CHAR COUNT 154 ; R3 UPDATED CHAR POINTER 155 ; 156 ; 157 ; C=0 IF CORRECT FORMAT OF DEFAULT DEVICE 158 ; C=1 IF BAD FORMAT 159 ; 160 ; THE LESS THAN OR EQUAL TO INDICATORS WILL BE ON IF THAT IS ALL THERE 161 ; WAS ON THE LINE. 162 ; 163 ;- 164 000150 004767 177654 $GDEV:: JSR PC,$SWT ; GO SEE IF TWO VALID CHARS 165 000154 103443  ROUTINE PLACE IN THE PARSE TABLE THE NUMBER 286 ; OF CHARS TO THE NEXT ";" OR "/" AND THE ADDRESS 287 ; OF THE "=" IN THE TWO WORD PARSE TABLE. PLUS 288 ; UPDATING R2 AND R3 TO THESE POINTS. 289 ; 290 ; INPUTS: 291 ; 292 ; R2 NUMBER OF CHARS REMAINING IN CS 293 ; R3 CURRENT ADDRESS OF CS 294 ; R4 CURRENT SWITCH OFFSET 295 ; 6(SP) PARSE TABLE ADDRESS 296 ; 297 ; OUTPUTS: 298 ; 299 LE 000330 012700 000440' MOV #FDDIC,R0 000334 004767 000000G JSR PC,.READ 216 000340 116701 004702' MOVB DBK,R1 ; GET BLOCK INDEX 217 000344 062701 003674' ADD #DBUF,R1 ; MAKE ABSOULTE INDEX 218 000350 WAIT$ ; WAIT FOR OUTPUT TO FINISH 000350 004767 000000G JSR PC,.WAIT 219 000354 012600 10$: MOV (SP)+,R0 ; RESTORE R0 220 000356 000207 RTS PC ; RETURN DBD DATA BASE DEFINES MACRO M10 14-JUL-76 16:52 PAGE 9 $WDBK WRITE DICTIONARY BLOCK PDATEDB / 001574 101 124 105 001577 104 102 040 73 001602 000 .BYTE 0 74 .EVEN 75 000000 .PSECT RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 2 START OF MAIN PROGRAM RTO 77 .SBTTL START OF MAIN PROGRAM RTO 78 ; RTO MAIN PROGRAM AND INITIALIZATION 79 000000 START: FSRSZ$ 2 ; INITIALIZE FILES SECTION FOR GCML 80 000000 005067 000152' CLR PRMD ; CLEAR PRIORITY 81 000004 ALUN$S #1,#"T BCS 20$ ; IF NON THEN BRANCH 166 000156 005302 DEC R2 ; DECREMENT CHAR COUNT 167 000160 003441 BLE 20$ ; IF NO MORE CHARS BAD FORMAT BRANCH 168 000162 005001 CLR R1 ; MAKE R1 ZERO IN CASE NO NUMS 169 000164 004767 177624 JSR PC,$NUM ; SEE IF CHAR NUM 170 000170 103422 BCS 10$ ; IF NOT NUM GO SEE IF ":" 171 000172 112301 MOVB (R3)+,R1 ; PUT IN FIRST NUM 172 000174 142701 000060 BICB #60,R1 ; MAKE BINARY NUMBER 173 000200 005302  ; R2 ZERO OR NUMBER OF CHARS AFTER ";" OR "/" 300 ; R3 ADDRESS OF ";" OR "/" 301 ; R4 PARSE TABLE ADDRESS 302 ; 303 ; PARSE TABLE HAS IN WORD 0 THE NUMBER OF CHARS TO THE RIGHT OF 304 ; "=" TO THE NEXT VALID DELIMETER AND WORD 1 POINTS 305 ; ONE PAST "=". 306 ; 307 ;- 308 000436 005203 EQU: INC R3 ; PUT PAST EQUAL SIGN 309 000440 005302 DEC R2 ; REDUCE CHAR COUNT 310 000442 003430 BLE EOF ; IF NO MORE 222 .SBTTL $WDBK WRITE DICTIONARY BLOCK 223 ;+ 224 ; $WDBK - THIS ROUTINE WILL WRITE A DICTIONARY BLOCK TO DISK 225 ; 226 ; INPUTS: 227 ; 228 ; DBK+1 CONTAINS VIRTUAL BLOCK NUMBER OF FILE 229 ; 230 ; OUTPUTS: 231 ; 232 ; DBUF WILL BE WRITTEN TO DISK 233 ; 234 ;- 235 000360 010046 $WDBK:: MOV R0,-(SP) ; SAVE R0 236 000362 116700 004703' MOVB DBK+1,R0 ; GET VIRTUAL BLOCK 2I,#0 ; ASSIGN LUN 1 FOR GCML 000004 005046 CLR -(SP) 000006 012746 044524 MOV #"TI,-(SP) 000012 012746 000001 MOV #1,-(SP) 000016 012746 MOV (PC)+,-(SP) 000020 007 004 .BYTE 7,4 000022 104377 EMT ^O<377> 82 000024 ALUN$S #2,#"TI,#0 ; ASSIGN LUN 2 FOR TT IO 000024 005046 CLR -(SP) 000026 012746 044524 MOV #"TI,-(SP) 000032 012746 000002 MOV #2,-(SP) 000036 012746 MOV (PC)+,-(SP) 000040 007 004 .BYTE 7,4 000042 104377  DEC R2 ; IS THERE MORE CHARS 174 000202 003430 BLE 20$ ; IF NOT BAD FORMAT BRANCH 175 000204 004767 177604 JSR PC,$NUM ; SEE IF POSSIBLEY ANOTHER NUM 176 000210 103412 BCS 10$ ; IF NOT GO SEE IF ":" 177 000212 012700 000012 MOV #10.,R0 ; PUT 10. IN R0 FOR MULTIPLY AND SHIFT 1ST DIGIT 178 000216 004767 000000G JSR PC,$MUL ; GO MAKE 10.*1ST DIGIT 179 000222 112300 MOVB (R3)+,R0 ; PUT IN 2ND DIGIT 180 000224 142700 000060 BICB #60,R0 ; RE CHARS GO FINISH UP 311 000444 006304 ASL R4 ; DOUBLE OFFSET SO POINTS TO RIGHT WORD 312 000446 062704 000000G ADD #STABLE,R4 ; ADD IN PARSE TABLE ADDRESS 313 000452 010364 000002 MOV R3,2(R4) ; PUT R3 IN CORRECT PLACE 314 000456 010214 MOV R2,(R4) ; PUT NUMBER OF CHARS IN 315 000460 004767 177324 10$: JSR PC,CP ; GO SEE IF THIS IS CONTROL CHAR 316 000464 103003 BCC 20$ ; IF SO BRANCH 317 000466 005203 INC R3 ; UPDATE CHAR POINTER 318 37 000366 010067 000526' MOV R0,F.BKVB+2+FDDIC ; PUT IN VB 238 000372 WRITE$ #FDDIC ; PUT BLOCK BACK TO DISK 000372 012700 000440' MOV #FDDIC,R0 000376 004767 000000G JSR PC,.WRITE 239 000402 WAIT$ ; WAIT FOR IT TO GET ON DISK 000402 004767 000000G JSR PC,.WAIT 240 000406 000207 RTS PC ; RETURN 241 000001 .END DBD DATA BASE DEFINES MACRO M10 14-JUL-76 16:52 PAGE 9-1 SYMBOL TABLE AFT 004710RG 002 F.BDB = 000070 F.MBCT= 000054  EMT ^O<377> 83 000044 ALUN$S #4,#"DK,#0 ; ASSIGN LUN 4 FOR COMMAND IO 000044 005046 CLR -(SP) 000046 012746 045504 MOV #"DK,-(SP) 000052 012746 000004 MOV #4,-(SP) 000056 012746 MOV (PC)+,-(SP) 000060 007 004 .BYTE 7,4 000062 104377 EMT ^O<377> 84 000064 ALUN$S #5,#"DK,#0 ; ASSIGN LUN 5 FOR TAG IO 000064 005046 CLR -(SP) 000066 012746 045504 MOV #"DK,-(SP) 000072 012746 000005 MOV #5,-(SP) 000076 012746 MOV (PC)+,-(SMOVE ASCII BITS 181 000230 060001 ADD R0,R1 ; MAKE GOOD DEVICE NUMBER 182 000232 005302 DEC R2 ; DECREMENT CHAR COUNT 183 000234 003413 BLE 20$ ; IF BAD FORMAT BRANCH 184 000236 121327 000072 10$: CMPB (R3),#': ; SEE IF THIS IS ":" 185 000242 001010 BNE 20$ ; IF NOT THIS IS BAD FORMAT BRANCH 186 000244 016715 000000G MOV SW,(R5) ; PUT IN VALID DEVICE NAME 187 000250 010165 000002 MOV R1,2(R5) ; PUT IN VALID DEVICE NUMBER 188 000254 005000470 005302 DEC R2 ; REDUCE CHAR COUNT 319 000472 003372 BGT 10$ ; IF MORE LEFT BRANCH 320 000474 160214 20$: SUB R2,(R4) ; SUBTRACT REMAINING CHARS 321 000476 000131 JMP @(R1)+ ; GO TO NEX GOOD ROUTINE PAR PARSER FOR RTO MACRO M10 14-JUL-76 16:50 PAGE 9 $PAR MAIN ROUTINE OF THE PARSE ALGORITHM 323 .SBTTL $PAR MAIN ROUTINE OF THE PARSE ALGORITHM 324 ;+ 325 ; $PAR - THIS ROUTINE WILL PARSE AN RTO COMMAND LINE 326 ; AND PRODU N.FVER= 000016 S.FNTY= 000004 BEF 004706RG 002 F.BGBC= 000057 F.MBC1= 000055 N.NEXT= 000022 S.FTYP= 000002 CBK 004674RG 002 F.BKDN= 000026 F.MBFG= 000056 N.STAT= 000020 S.NFEN= 000020 CBUF 000674RG 002 F.BKDS= 000020 F.NRBD= 000024 N.UNIT= 000034 TAGNM 000640RG 002 COMNM 000627RG 002 F.BKEF= 000050 F.NREC= 000030 PAR$$$= 000027 TBK 004676RG 002 DBK 004702RG 002 F.BKP1= 000051 F.OVBS= 000030 RBK 004700RG 0P) 000100 007 004 .BYTE 7,4 000102 104377 EMT ^O<377> 85 000104 ALUN$S #6,#"DK,#0 ; ASSIGN LUN 6 FOR RECORD IO 000104 005046 CLR -(SP) 000106 012746 045504 MOV #"DK,-(SP) 000112 012746 000006 MOV #6,-(SP) 000116 012746 MOV (PC)+,-(SP) 000120 007 004 .BYTE 7,4 000122 104377 EMT ^O<377> 86 000124 ALUN$S #7,#"DK,#0 ; ASSIGN LUN 7 FOR DICTIONARY IO 000124 005046 CLR -(SP) 000126 012746 045504 MOV #"DK,-(SP) 000132 01203 INC R3 ; PUT POINTER PAST COLON 189 000256 005302 DEC R2 ; DECREMENT CHAR COUNT 190 000260 000241 CLC ; MAKE NKNOW GOOD DEVICE 191 000262 000401 BR 30$ ; GO RETURN TO CALLER 192 000264 000261 20$: SEC ; SET C 193 000266 000207 30$: RTS PC ; RETURN BAD DEVICE CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 7 $MT PARSE TABLE MOVE COROUTINE 195 .SBTTL $MT PARSE TABLE MOVE COROUTINE 196 ;+ 197 ; $MT - MOVE PCE A TABLE OF TWO WORD ENTRIES FOR 327 ; EACH VALID SWITCH. IT WILL ALSO SET OR CLEAR 328 ; BITS IN THE COMMAND BUFFER IF VALID SWITCHES 329 ; WERE PRESENT. 330 ; 331 ; INPUTS: 332 ; 333 ; CNT NUMBER OF CHARACTERS IN COMMAND STRING 334 ; PNT ADDRESS OF COMMAND STRING 335 ; R5 ADDRESS OF COMMAND TABLE 336 ; 337 ; OUTPUTS: 338 ; 339 ; CNT ZERO IF EOL AND CHAR COUNT IF ";" ENCOUNTERED 02 TBUF 001674RG 002 DBUF 003674RG 002 F.BKST= 000024 F.RACC= 000016 RBUF 002674RG 002 T.NR 000016 G DEVNM 000614R 002 F.BKVB= 000064 F.RATT= 000001 RECNM 000651RG 002 T.SI 000014 G DICNM 000662RG 002 F.CHR = 000100 F.RCNM= 000034 R.AEX 000032 G T.TAG 000000 G DIRNM 000620R 002 F.CNTG= 000034 F.RCTL= 000017 R.AOF 000030 G $GCSB 000106RG DOST = ****** GX F.DFNB= 000046 F.RSIZ= 000002 R.ASP 000026 G $GDBK 0003042746 000007 MOV #7,-(SP) 000136 012746 MOV (PC)+,-(SP) 000140 007 004 .BYTE 7,4 000142 104377 EMT ^O<377> 87 000144 004767 000000G JSR PC,$CTT ; GO CLEAR SCREEN 88 000150 OPEN$M #FDCOM,#4,#DSPT ; OPEN COMMAND FILE 000150 012700 000000G MOV #FDCOM,R0 000154 112760 000004 000042 .IIF NB,#4, MOVB #4,F.LUN(R0) 000162 012760 000000G 000044 .IIF NB,#DSPT, MOV #DSPT,F.DSPT(R0) 000170 112760 000000G 000043 .IIF NB,#FO.MFY, MOVB #FO.MFY,F.FACC(R0ARSE TABLE PARAMETERS 198 ; 199 ; INPUTS: 200 ; 201 ; R4 ADDRESS OF PARSE TABLE TO MOVE 202 ; 203 ; OUTPUTS: 204 ; 205 ; PNT WILL CONTAIN POINTER TO PARSED RESULTS 206 ; CNT WILL CONTAIN CHAR COUNT 207 ; 208 ; PARSE TABLE WILL BE POINTING TO NEXT THING IF ANY 209 ; 210 ;- 211 000270 016467 000002 000000G $MT:: MOV 2(R4),PNT ; PUT IN POINTER TO PARSED STRING 212 000276 011467 00 340 ; PNT ONE PAST LAST CHAR LOOKED AT 341 ; REGISTERS UNCHANGED 342 ; 343 ; C=0 FOR SUCCESFUL PARSE 344 ; C=1 FOR UNSUCCESFUL PARSE 345 ; 346 ; BITS SET OR CLEARED IN COMMAND TABLE 347 ; 348 ;- 349 000500 004767 000000G $PAR:: JSR PC,$SAVAL ; SAVE ALL REGISTERS 350 000504 005067 000000G CLR SWF ; MAKE KNOWN NEW PARSE 351 000510 016703 000000G MOV PNT,R3 ; PUT IN CHAR POINTER 352 000514 016702 00000RG DSPT 000600RG 002 F.DSPT= 000044 F.RTYP= 000000 R.ATU 000024 G $GRBK 000160RG D.ABR 000014 G F.DVNM= 000134 F.SPDV= 000072 R.AUN 000022 G $GTBK 000000RG D.NR 000016 G F.EFBK= 000010 F.SPUN= 000074 R.AXT 000034 G $MUL = ****** GX D.WD 000000 G F.EFN = 000050 F.STBK= 000036 R.DC 000002 G $WCSB 000130RG FDCOM 000000RG 002 F.EOBB= 000032 F.UNIT= 000136 R.DST 000022 G $WDBK 000360RG FDDIC 000440RG 002 F.ERR = 000052 F) 000176 004767 000000G JSR PC,.OPEN 89 000202 103463 BCS 5$ ; IF ERROR GO PRINT MESSAGE 90 000204 012767 000000G 000012G MOV #TAGNM,DSPT+10. ; PUT IN TAG FILE NAME 91 000212 OPEN$M #FDTAG,#5,#DSPT ; OPEN TAG FILE 000212 012700 000000G MOV #FDTAG,R0 RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 2-1 START OF MAIN PROGRAM RTO 000216 112760 000005 000042 .IIF NB,#5, MOVB #5,F.LUN(R0) 000224 012760 000000G 000044 .IIF NB,#DSPT, MOV #DSPT,F.DSP0000G MOV (R4),CNT ; PUT IN CHAR COUNT 213 000302 004736 JSR PC,@(SP)+ ; DO COCALL 214 000304 012604 MOV (SP)+,R4 ; GET R4 OFF STACK 215 000306 016714 000000G MOV CNT,(R4) ; PUT BACK CHAR COUNT 216 000312 016764 000000G 000002 MOV PNT,2(R4) ; PUT BACK CHAR POINTER 217 000320 000207 RTS PC ; RETURN CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 8 $CHECK DD AND @FILE CHECKING 219 .SBTTL $CHECK DD AND @FILE CHECKING 220 ;+ 0G MOV CNT,R2 ; PUT IN CHAR COUNT 353 000520 003010 BGT STT ; IF CHARS GO START PARSE 354 000522 000404 BR EP ; GO PAST ALL NEEDLESS STUFF 355 000524 010267 000000G EOF: MOV R2,CNT ; PUT IN NEW CHAR COUNT 356 000530 010367 000000G MOV R3,PNT ; PUT IN CS ADDRESS 357 000534 005067 000000G EP: CLR MW ; MAKE SURE /-SW CLEARED 358 000540 000207 RTS PC ; RETURN CARRY CLEAR 359 000542 121327 000040 STT: CMPB (R3),#40 ; SEE IF STRING HAS NEW DEFAUL.URBD= 000020 R.DXT 000036 G $WRBK 000254RG FDREC 000300RG 002 F.FACC= 000043 F.VBN = 000064 R.FIX = ****** GX $WTBK 000054RG FDTAG 000140RG 002 F.FFBY= 000014 F.VBSZ= 000060 R.TP 000000 G .READ = ****** G FD.BLK= ****** GX F.FNAM= 000110 IOST = ****** GX SI 004704RG 002 .WAIT = ****** G FD.RAN= ****** GX F.FNB = 000102 N.DID = 000024 S.FATT= 000016 .WRITE= ****** G FD.RWM= ****** GX F.FTYP= 000116 N.DVNM= 000032 S.FDB = 000140 ...PC1=T(R0) 000232 112760 000000G 000043 .IIF NB,#FO.MFY, MOVB #FO.MFY,F.FACC(R0) 000240 004767 000000G JSR PC,.OPEN 92 000244 103442 BCS 5$ ; BRANCH IF ERROR 93 000246 012767 000000G 000012G MOV #RECNM,DSPT+10. ; PUT IN RECORD FILE NAME 94 000254 OPEN$M #FDREC,#6,#DSPT ; OPEN RECORD FILE 000254 012700 000000G MOV #FDREC,R0 000260 112760 000006 000042 .IIF NB,#6, MOVB #6,F.LUN(R0) 000266 012760 000000G 000044 .IIF NB,#DSPT, MOV #DSPT,F.DSPT(R0) 000274 112 221 ; $CHECK - ROUTINE TO DO RIGHT THING IF CRT OR IF INTERACTIVE 222 ; 223 ; INPUTS: 224 ; 225 ; F.RCTL+CML1 =0 IF INTERACTIVE RTO 226 ; F.RCTL+CML2 =0 IF INTERACTIVE OPT 227 ; 228 ; OUTPUTS: 229 ; 230 ; IF INTERACTIVE COULD HAVE NEW VALUES IN PARSE TABLE 231 ; 232 ;- 233 000322 132767 000000G 000000C $CHECK:: BITB #FD.TTY,F.RCTL+CML2 ; SEE IF INTERACTIVE 234 000330 001427 BEQ 20$ ; IF T DEVICE 360 000546 001007 BNE XSL ; IF NOT GO SEE IF CONTROL CHAR 361 000550 005203 INC R3 ; GET PAST SPACE 362 000552 005302 DEC R2 ; REDUCE CHAR COUNT 363 000554 003763 BLE EOF ; GO RETURN NO CHARS LEFT 364 000556 004767 000000G JSR PC,$GDEV ; GO PUT IN DEVICE CODE 365 000562 103636 BCS ERR1 ; IF NOT CORRECT BRANCH 366 000564 003757 BLE EOF ; IF JUST DEFAULT DEVICE BRANCH 367 000566 004767 177216 XSL: JSR PC,CP ; GO SEE IF ";" 000440R 002 F.ACTL= 000076 F.FVER= 000120 N.FID = 000000 S.FNAM= 000006 ...PC2= 000600R 002 F.ALOC= 000040 F.HIBK= 000004 N.FNAM= 000006 S.FNB = 000036 ...TMP= 000022 F.BBFS= 000062 F.LUN = 000042 N.FTYP= 000014 S.FNBW= 000017 ...TPC= 000140 . ABS. 000040 000 000410 001 $DATA$ 004712 002 ERRORS DETECTED: 0 FREE CORE: 3689. WORDS [200,20]RTDBD,[200,30]DBD/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTODBD 760 000000G 000043 .IIF NB,#FO.MFY, MOVB #FO.MFY,F.FACC(R0) 000302 004767 000000G JSR PC,.OPEN 95 000306 103421 BCS 5$ ; BRANCH IF ERROR 96 000310 012767 000000G 000012G MOV #DICNM,DSPT+10. ; PUT IN DICTIONARY FILE NAME 97 000316 OPEN$M #FDDIC,#7,#DSPT ; OPEN DICTIONARY FILE 000316 012700 000000G MOV #FDDIC,R0 000322 112760 000007 000042 .IIF NB,#7, MOVB #7,F.LUN(R0) 000330 012760 000000G 000044 .IIF NB,#DSPT, MOV #DSPT,F.DSPT(R0) 000336 112760 00000NOT BRANCH 235 000332 132767 000000G 000000C BITB #FD.TTY,F.RCTL+CML1 ; SEE IF INTERACTIVE 236 000340 001423 BEQ 20$ ; IF SO BRANCH 237 000342 005000 CLR R0 ; LET KNOW RTT 238 000344 012701 000274' MOV #P10,R1 ; PUT IN PROMPT FOR INTERACTIVE 239 000350 004767 000036 JSR PC,$GCL ; GO GET COMMAND LINE 240 000354 126727 000001G 000136 CMPB IOST+1,#'^ ; SEE IF TO GO BACK ONE CONTEXT 241 000362 001004 BNE 10$ ; IF NOT BRANCH 242 000364 005767 OR "/" 368 000572 103632 BCS ERR1 ; IF NOT ";" OR "/" THEN ERROR 369 000574 000131 JMP @(R1)+ ; JUMP TO CORRECT ROUTINE 370 000001 .END PAR PARSER FOR RTO MACRO M10 14-JUL-76 16:50 PAGE 9-1 SYMBOL TABLE BT = ****** GX C.SV = ****** GX ERR2 000270R TP 000000R $PAR 000500RG CNT = ****** GX C.SW = ****** GX MW = ****** GX VSV 000176R $SAVAL= ****** GX COL 000370R EOF 000524R PNT = ****** GX VSW 000104R $SAVVR= ***** FILE RTO.TSK;106 MEMORY ALLOCATION MAP THIS ALLOCATION WAS DONE ON 14-JUL-76 AT 15:36 BY TASK BUILDER VERSION M14 *** ROOT SEGMENT: RTO R/W MEM LIMITS: 040000 077623 037624 STACK LIMITS: 040210 041207 001000 DISK BLK LIMITS: 000002 000041 000040 IDENTIFICATION : 0722 PRG XFR ADDRESS: 041210 TASK ATTRIBUTES: NC PROGRAM SECTION ALLOCATION SYNOPSIS: <. BLK.>: 041210 051357 010150 <$DATA$>: 051360 061123 007544 <$$ALER>: 061124 061147 000024 <$$AUTO>: 0611500G 000043 .IIF NB,#FO.MFY, MOVB #FO.MFY,F.FACC(R0) 000344 004767 000000G JSR PC,.OPEN 98 000350 103020 BCC 30$ ; IF OPENED THEN BRANCH 99 000352 122760 000000G 000052 5$: CMPB #IE.CLO,F.ERR(R0) ; SEE IF FILE NOT CLOSED 100 000360 001003 BNE 10$ ; IF NOT THEN CANNOT OPEN 101 000362 012701 000000G MOV #M15,R1 ; PUT IN ERROR NUMBER 102 000366 000402 BR 20$ ; GO SEND THE MESSAGE 103 000370 012701 000000G 10$: MOV #M16,R1 ; PUT IN ERROR NUMBER  000000G TST CNT ; MAKE KNOWN IF ANY OTHER CHARS 243 000370 000261 SEC ; LET KNOW GO BACK 244 000372 000207 RTS PC ; RETURN 245 000374 016764 000000G 000002 10$: MOV PNT,2(R4) ; PUT IN PARSE TABLE 246 000402 016714 000000G MOV CNT,(R4) ; PUT CHAR COUNT IN AND FIX PS 247 000406 000241 CLC ; LET KNOW NO ^ 248 000410 000207 20$: RTS PC ; RETURN WITH ALL INDICATORS SET CORRECTLY CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 9 $GCL REA* GX CP 000010R EP 000534R SLH 000300R XSL 000566R $SWT = ****** GX CQ 000040R EQU 000436R STABLE= ****** GX $GDEV = ****** GX CR 000062R ERR 000264R STT 000542R $LOK = ****** GX C.DEF = ****** GX ERR1 000260R SWF = ****** GX $MUL = ****** GX . ABS. 000000 000 000576 001 ERRORS DETECTED: 0 FREE CORE: 5536. WORDS [200,20]RTPAR,[200,30]PAR/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOPAR  061303 000134 <$$FSR1>: 061304 063343 002040 <$$FSR2>: 063344 063445 000102 <$$OVCT>: 063446 063721 000254 <$$OVDT>: 000000 000000 000000 <$$RESL>: 063722 077111 013170 <. ABS.>: 000000 000000 000000 *** FILE: RTO.OBJ;1 TITLE: RTO IDENT: <. ABS.>: 000000 000000 000000 C.DEF 000004 C.DEN 000002 C.DEV 000000 C.SV 000110 C.SW 000050 GE.BIF 177775 GE.CLO 000004 GE.COM 000001 GE.EOF 177766 GE.IND 000002 GE.IOR 177777 GE.LC 00001 104 000374 012767 177777 000150' 20$: MOV #-1,CMN ; PUT COMMAND NUMBER IN 105 000402 004767 000000G JSR PC,$PER ; GO PRINT ERROR MESSAGE 106 000406 000167 000242 JMP $EFP ; GO EXIT 107 000412 142767 000001 000611' 30$: BICB #GE.COM,G.MODE+CML1 ; MAKE ";" ACCEPTABLE 108 000420 142767 000001 001155' BICB #GE.COM,G.MODE+CML2 ; MAKE ";" ACCEPTABLE 109 000426 000446 BR AGAIN ; DONT DO JSR YET 110 000430 012701 000000' MJD: MOV #JAD,R1 ; PUT IN JUMP ADDRESD COMMAND LINE 250 .SBTTL $GCL READ COMMAND LINE 251 ;+ 252 ; $GCL - READ COMMAND LINE. THIS ROUTINE WILL READ AN INTERACTIVE 253 ; COMMAND LINE FROM DEVICE TI: AND PASS THIS LINE TO THE 254 ; MAIN PROGRAM. 255 ; 256 ; INPUTS: 257 ; 258 ; R1 POINTS AT PROMPT TO GIVE 259 ; TR - QIO$ STATUS BLOCK MUST BE SPECIFIED 260 ; 261 ; OUTPUTS: 262 ; 263 ; BUFFER IN TR+12. WILL BE FILLED 0 GE.MDE 177774 GE.OPR 177776 G.CMLD 000146 G.ERR 000140 G.MODE 000141 G.PSDS 000142 >>>>>>>>>>>> UNDEFINED REFERENCE: $PER >>>>>>>>>>>> UNDEFINED REFERENCE: $VTAG <. BLK.>: 041210 042403 001174 AGAIN 041754-R $DISP 042132-R $EFP 042064-R $ERRA 041772-R <$DATA$>: 051360 053163 001604 BT 051542-R CML1 052030-R CML2 052374-R CMN 051530-R CNT 052176-R IL1 051560-R IL2 051706-R IOST 051524-R JAD 051360-RS START 111 000434 004767 000262 JSR PC,$DISP ; GO TO DISPATCH ROUTINE 112 000440 103441 BCS AGAIN ; IF BAD INPUT BRANCH 113 000442 020127 000042' CMP R1,#VN ; SEE IF MUST CHECK FOR SIGNAL 114 000446 001002 BNE 10$ ; IF NOT BRANCH 115 000450 004731 JSR PC,@(R1)+ ; GO TO SIGNAL VERIFICATION 116 000452 103434 BCS AGAIN ; IF INCORRECT SIGNAL BRANCH 117 000454 010102 10$: MOV R1,R2 ; SAVE COMMAND NUMBER 118 000456 162702 000000' SUB #JAWITH AT MOST 80. CHARS 264 ; IOST WILL CONTAIN STATUS INFORMATION ABOUT THE READ 265 ; CNT WILL BE CS STRING COUNT 266 ; PNT WILL POINT AT CS 267 ; 268 ;- 269 000412 005700 $GCL:: TST R0 ; SEE IF GCML OF RTT 270 000414 001441 BEQ 40$ ; IF RTT BRANCH 271 000416 112160 000000G MOVB (R1)+,G.PSDS(R0) ; PUT NUMBER OF CHARS IN PROMPT STRING 272 000422 010160 000002G MOV R1,G.PSDS+2(R0) ; PUT ADDRESS OF PROMPT 273 000426 005301  MW 051534-R NAM 052731-R PNT 052200-R PRMD 051532-R STABLE 051424-R SW 051540-R SWF 051536-R VN 051422-R <$$FSR1>: 061304 063343 002040 *** FILE: RTCMN.OBJ;1 TITLE: CMN IDENT: <. BLK.>: 042404 043663 001260 PER 043432-R $ALD 043502-R $CHAR 042404-R $CHECK 042726-R $CTBL 043602-R $CTT 043256-R $GCL 043016-R $GDEV 042554-R $LOK 042476-R $MT 042674-R $NUM 042420-R $PEM 043362-R $RTT 043142-RD,R2 ; SUBTRACT BASE LEAVING OFFSET 119 000462 006202 ASR R2 ; DIVIDE BY TWO 120 000464 005202 INC R2 ; MAKE FROM ONE TO MAX COMMAND NUMBERS 121 000466 010267 000066G MOV R2,F.BKVB+2+FDCOM ; PUT IN BLOCK NUMBER 122 000472 012705 000000G MOV #CBUF,R5 ; PUT IN BUFFER 123 000476 010567 000022G MOV R5,F.BKDS+2+FDCOM ; PUT IN BLOCK BUFFER 124 000502 004767 000000G JSR PC,$GCSB ; GO GET COMMAND BLOCK 125 000506 004767 000000G JSR PC,$CTBL ; CLEAR PARS DEC R1 ; MAKE SAME AS BEFORE 274 000430 005767 000000G TST PRMD ; SEE IF PRIVLEDGED 275 000434 001004 BNE 10$ ; IF SO BRANCH 276 000436 005260 000002G INC G.PSDS+2(R0) ; INC POINTER 277 000442 005360 000000G DEC G.PSDS(R0) ; DEC COUNT 278 000446 012767 000240' 000050' 10$: MOV #C1,TW+12. ; PUT IN POSITION STRING 279 000454 012767 000003 000052' MOV #3,TW+14. ; PUT IN CHAR NUMBER 280 000462 004767 000200 JSR PC,$WTT ; GO POSITION CURSOR 2 $SWT 042434-R $WDD 043326-R $WTT 043272-R <$DATA$>: 053164 054211 001026 BUFB 053304-R DOST 053164-R DW 053250-R M1 053471-R M10 053634-R M11 053717-R M12 053761-R M13 054016-R M14 054072-R M15 054120-R M16 054152-R M2 053520-R M8 053551-R M9 053603-R P10 053460-R P6 053430-R P9 053445-R TR 053170-R TW 053220-R *** FILE: RTDBD.OBJ;1 TITLE: DBD IDENT: <. ABS.>: 000000 00E TABLE 126 000512 103414 BCS AGAIN ; IF SOMETHING WRONG GO TRY AGAIN 127 000514 004767 000000G JSR PC,$ALD ; GO DO DEFAULT ALUN 128 000520 016746 000616' MOV CNT,-(SP) ; SAVE COMMAND LINE COUNTER 129 000524 016746 000620' MOV PNT,-(SP) ; SAVE COMMAND LINE POINTER 130 000530 004731 JSR PC,@(R1)+ ; GO TO APPROPTIATE COMMAND 131 000532 012667 000620' MOV (SP)+,PNT ; RESTORE POINTER 132 000536 012667 000616' MOV (SP)+,CNT ; RESTORE COUNTER 13381 000466 004767 000000G JSR PC,.GCML1 ; GET COMMAND LINE 282 000472 103003 BCC 20$ ; IF ALRIGHT BRANCH 283 000474 004767 000000G JSR PC,$ERRA ; GO PRINT ERRORS 284 000500 000762 BR 10$ ; GO TRY AGAIN 285 000502 016067 000002G 000000G 20$: MOV G.CMLD+2(R0),PNT ; PUT CHAR POINTER IN GOOD PLACE 286 000510 016067 000000G 000000G MOV G.CMLD(R0),CNT ; PUT CHAR COUNT IN GOOD PLACE 287 000516 000207 RTS PC ; RETURN 288 000520 112167 000052' 40$: MOVB (0000 000000 D.ABR 000014 D.NR 000016 D.WD 000000 >>>>>>>>>>>> UNDEFINED REFERENCE: FDIC R.AEX 000032 R.AOF 000030 R.ASP 000026 R.ATU 000024 R.AUN 000022 R.AXT 000034 R.DC 000002 R.DST 000022 R.DXT 000036 R.TP 000000 T.NR 000016 T.SI 000014 T.TAG 000000 <. BLK.>: 043664 044273 000410 $GCSB 043772-R $GDBK 044170-R $GRBK 044044-R $GTBK 043664-R $WCSB 044014-R $WDBK 044244-R $WRBK 044140 000542 003332 BGT MJD ; IF ANYTHING IN HERE BRANCH 134 000544 012701 000164' AGAIN:: MOV #PRT,R1 ; PUT IN PROMPT RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 2-2 START OF MAIN PROGRAM RTO 135 000550 012700 000450' MOV #CML1,R0 ; PUT IN GCML BLOCK 136 000554 004767 000000G JSR PC,$GCL ; GET COMMAND LINE 137 000560 000723 BR MJD ; GO PARSE OUT RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 3 $ERRA PROCESSING ROUTINE 139 .SBR1)+,TW+14. ; PUT BYTE COUNT IN 289 000524 010167 000050' MOV R1,TW+12. ; PUT PROMPT ADDRESS 290 000530 005301 DEC R1 ; MAKE SAME AS BEFORE 291 000532 004767 000130 JSR PC,$WTT ; WRITE PROMPT 292 000536 $RTT:: DIR$ #TR ; DO THE READ 000536 012746 000004' MOV #TR,-(SP) 000542 104377 EMT ^O<377> 293 000544 103004 BCC 10$ ; IF ACCEPTED BRANCH 294 000546 WSIG$S ; IF NOT WAIT FOR DYNAMIC MEMORY 000546 012746 MOV (PC)+,-(SP) 000550 -R $WTBK 043740-R <$DATA$>: 054212 061123 004712 AFT 061122-R BEF 061120-R CBK 061106-R CBUF 055106-R COMNM 055041-R DBK 061114-R DBUF 060106-R DICNM 055074-R DSPT 055012-R FDCOM 054212-R FDDIC 054652-R FDREC 054512-R FDTAG 054352-R RBK 061112-R RBUF 057106-R RECNM 055063-R SI 061116-R TAGNM 055052-R TBK 061110-R TBUF 056106-R *** FILE: RTPAR.OBJ;1 TITLE: PAR IDENT: <. ABS.>: 000000 000000 000000 TTL $ERRA PROCESSING ROUTINE 140 ;+ 141 ; $ERRA - THIS ROUTINE PRINTS ERRORS ASSOCIATED WITH GCML. 142 ; 143 ; INPUTS: 144 ; 145 ; R0 POINTS TO GCML CONTROL BLOCK 146 ; 147 ; OUTPUTS: 148 ; 149 ; PRINTS ASSOCIATED ERROR MESSAGE 150 ; 151 ;- 152 000562 116001 000140 $ERRA:: MOVB G.ERR(R0),R1 ; PUT IN ERROR STATUS WORD 153 000566 022701 177777 CMP #GE.IOR,R1 ; SEE IF FILE IO ERROR 061 001 .BYTE 49.,1 000552 104377 EMT ^O<377> 295 000554 000770 BR $RTT ; BRANCH BACK AND TRY AGAIN 296 000556 016767 000020' 000000G 10$: MOV TR+12.,PNT ; PUT BUFFER ADDRESS IN PARSE TABLE 297 000564 WTSE$S #2 ; WAIT FOR READ TO FINISH 000564 012746 000002 MOV #2,-(SP) 000570 012746 MOV (PC)+,-(SP) 000572 051 002 .BYTE 41.,2 000574 104377 EMT ^O<377> CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 9-1 $GCL READ COMMAND LIN>>>>>>>>>>>> UNDEFINED REFERENCE: SWT <. BLK.>: 044274 045071 000576 $PAR 044774-R *** FILE: SYSLIB.OLB;1 TITLE: FCSGBL IDENT: 0722 <. ABS.>: 000000 000000 000000 A.OWUI 000010 FD.BLK 000010 FD.CCL 000002 FD.RAN 000002 FD.REC 000001 FD.RWM 000001 FD.TTY 000004 FO.MFY 000002 FO.RD 000001 F.BDB 000070 F.BKDS 000020 F.BKVB 000064 F.DFNB 000046 F.DSPT 000044 F.ERR 000052 F.FACC 000043 F.FNB 000102 F.NRBD 154 000572 001003 BNE 5$ ; IF SO BRANCH 155 000574 012701 000000G MOV #M9,R1 ; PUT IN IO ERROR NUMBER 156 000600 000423 BR 30$ ; GO DO A JUMP 157 000602 022701 177776 5$: CMP #GE.OPR,R1 ; SEE IF THE FILE GOT OPENED CORRECTLY 158 000606 001003 BNE 10$ ; IF SO BRANCH 159 000610 012701 000000G MOV #M10,R1 ; PUT IN ERROR NUMBER 160 000614 000415 BR 30$ ; GO DO JSR 161 000616 022701 177775 10$: CMP #GE.BIF,R1 ; SEE IF SYNTAX ERROR 162 E 298 000576 016767 000002G 000000G MOV IOST+2,CNT ; PUT NUMBER OF CHARS READ IN PARSE TABLE 299 000604 001006 BNE 15$ ; IF CHARS PRESENT BRANCH 300 000606 122767 000015 000001G CMPB #15,IOST+1 ; SEE IF JUST CR 301 000614 001415 BEQ 20$ ; IF NOT CR THEN EXIT RTO 302 000616 000167 000000G JMP $EFP ; GO CLOSE FILE AND EXIT 303 000622 127727 000000G 000136 15$: CMPB @PNT,#'^ ; SEE IF GO BACK TO TOP 304 000630 001007 BNE 20$ ; IF NOT BRANCH 3 000024 F.RCTL 000017 F.URBD 000020 R.FIX 000001 *** FILE: SYSLIB.OLB;1 TITLE: QIOSYM IDENT: 0311 <. ABS.>: 000000 000000 000000 IE.CLO 177732 IE.EOF 177766 IE.IDU 177644 IE.LNL 177646 IO.ATT 001400 IO.DET 002000 IO.RLB 001000 IO.WLB 000400 IO.WVB 011000 *** FILE: SYSLIB.OLB;1 TITLE: AUTO IDENT: 07 <$$AUTO>: 061150 061303 000134 $AUTO 061150-R *** FILE: SYSLIB.OLB;1 TITLE: OVRES IDENT: 05 <$$OVDT>: 000622 001003 BNE 20$ ; IF NOT BRANCH 163 000624 012701 000000G MOV #M1,R1 ; PUT IN ERROR LOCATION 164 000630 000407 BR 30$ ; GO DO JSR 165 000632 022701 177774 20$: CMP #GE.MDE,R1 ; SEE IF CORRECT NUMBER OF INDIRECT FILES 166 000636 001006 BNE $EFP ; IF CORRECT BRANCH 167 000640 RCML$ ; RESET TO BEGINNING LEVEL ZERO 000640 004767 000000G JSR PC,.GCML2 168 000644 012701 000000G MOV #M12,R1 ; PUT IN ERROR NUMBER 169 000650 000167 000005 000632 117767 000000G 000001G MOVB @PNT,IOST+1 ; PUT IN TERMINATOR 306 000640 005267 000000G INC PNT ; GET PAST ^ 307 000644 005367 000000G DEC CNT ; REDUCE CHAR COUNT 308 000650 000207 20$: RTS PC ; RETURN CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 10 $WTT DO A WRITE 310 .SBTTL $WTT DO A WRITE 311 ;+ 312 ; $WTT - DO A WRITE USING TW AS THE DPB FOR DIR$ 313 ; 314 ; INPUTS: 315 ; 316 ; TW - 000000 000000 000000 N.ALER 000010 N.IOST 000004 N.OVLY 000000 N.STBL 000002 *** FILE: SYSLIB.OLB;1 TITLE: OVCTL IDENT: 08 <. ABS.>: 000000 000000 000000 O$VEF 000037 <$$OVCT>: 063446 063721 000254 $MARKS 063446-R $RDSEG 063552-R *** FILE: SYSLIB.OLB;1 TITLE: ARITH IDENT: 03 <. BLK.>: 045072 045161 000070 $DIV 045124-R $MUL 045072-R *** FILE: SYSLIB.OLB;1 TITLE: SAVAL IDENT: 00 <. BLK.>: 045162 045223 000042 00G 30$: JMP $PEM ; GO PRINT ERROR MESSAGE 170 000654 $EFP:: CLOSE$ #FDCOM ; CLOSE COMMAND FILE 000654 012700 000000G MOV #FDCOM,R0 000660 004767 000000G JSR PC,.CLOSE 171 000664 CLOSE$ #FDTAG 000664 012700 000000G MOV #FDTAG,R0 000670 004767 000000G JSR PC,.CLOSE 172 000674 CLOSE$ #FDREC 000674 012700 000000G MOV #FDREC,R0 000700 004767 000000G JSR PC,.CLOSE 173 000704 CLOSE$ #FDDIC 000704 012700 000000G MOV #FDDIC,R0 000710 00476DPB MUST BE IN ORDER WHEN ENTERING THIS ROUTINE 317 ; IT IS ASSUMED THAT THE FIRST TWO CHARS ARE CURSOR 318 ; CONTROL CHARACTERS. 319 ; 320 ; OUTPUTS: 321 ; 322 ; CRT WILL CONTAIN PRINTED TEXT 323 ; 324 ;- 325 000652 012767 000003 000052' $CTT:: MOV #3,TW+14. ; PUT IN C0 COUNT 326 000660 012767 001022' 000050' MOV #C0,TW+12. ; PUT IN ADDRESS 327 000666 $WTT:: DIR$ #TW ; DO THE WRITE 000666 012746 000034'  $SAVAL 045162-R *** FILE: SYSLIB.OLB;1 TITLE: SAVRG IDENT: 03 <$$RESL>: 063722 063745 000024 $SAVRG 063722-R *** FILE: SYSLIB.OLB;1 TITLE: SAVVR IDENT: 02 <. BLK.>: 045224 045247 000024 $SAVVR 045224-R *** FILE: SYSLIB.OLB;1 TITLE: CLOSE IDENT: 0102S <$$RESL>: 063746 064203 000236 .CLOSE 063746-R *** FILE: SYSLIB.OLB;1 TITLE: FCSFSR IDENT: 0302MS <$$RESL>: 064204 064204 000000 <$$FSR1>: 061304 061304 000000 <$$FSR2>: 07 000000G JSR PC,.CLOSE 174 000714 EXIT$S ; GO BACK TO OPERATING SYSTEM 000714 012746 MOV (PC)+,-(SP) 000716 063 001 .BYTE 51.,1 000720 104377 EMT ^O<377> RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 4 $DISP COMMAND RECOGIZER 176 .SBTTL $DISP COMMAND RECOGIZER 177 ;+ 178 ; $DISP - THIS ROUTINE WILL SQUEEZE OUT MULTIPLE SPACES AND 179 ; TABS FROM THE INPUT LINE AND THEN VALIDATE TO 180 ; THE NEXT DELIMETMOV #TW,-(SP) 000672 104377 EMT ^O<377> 328 000674 103004 BCC 20$ ; IF WRITE QUEUED THEN BRANCH 329 000676 WSIG$S ; WAIT FOR DYNAMIC MEMORY TO FREE 000676 012746 MOV (PC)+,-(SP) 000700 061 001 .BYTE 49.,1 000702 104377 EMT ^O<377> 330 000704 000770 BR $WTT ; GO TRY AGAIN 331 000706 20$: WTSE$S #2 ; WAIT FOR WRITE TO FINISH 000706 012746 000002 MOV #2,-(SP) 000712 012746 MOV (PC)+,-(SP) 000714 051 002 .BYTE 41.,2 63344 063445 000102 .FSRCB 063344-R .MBFCT 063444-R *** FILE: SYSLIB.OLB;1 TITLE: .GCML IDENT: M13 <. BLK.>: 045250 046711 001442 .GCML1 045250-R .GCML2 046006-R .GCML3 046414-R *** FILE: SYSLIB.OLB;1 TITLE: FCSGBL IDENT: 0722 <. ABS.>: 000000 000000 000000 A.OWUI 000010 FD.BLK 000010 FD.CCL 000002 FD.RAN 000002 FD.REC 000001 FD.RWM 000001 FD.TTY 000004 FO.MFY 000002 FO.RD 000001 F.BDB 000070 F.BKDS 000020 F.BKVB ER IF A VALID COMMAND IS PRESENT 181 ; AND LEAVE A POINTER TO THE JUMP ADDRESS OF THE 182 ; COMMAND. IF NOT VALID JUMP ADDRESS OF TAG VALIDATION 183 ; ROUTINE WILL BE IN THE REGISTER. 184 ; 185 ; INPUTS: 186 ; 187 ; CNT NUMBER OF CHARS IN COMMAND STRING 188 ; PNT ADDRESS OF COMMAND STRING 189 ; R1 VALID JUMP ADDRESS TABLE 190 ; 191 ; OUTPUTS: 192 ; 193 ; CNT NUMBER OF CHARS REMAINING IN 000716 104377 EMT ^O<377> 332 000720 000207 RTS PC ; RETURN CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 11 $WDD DO A WRITE 334 .SBTTL $WDD DO A WRITE 335 ;+ 336 ; $WDD - DO A WRITE USING DW AS THE DPB FOR DIR$ 337 ; 338 ; INPUTS: 339 ; 340 ; DW - DPB MUST BE IN ORDER WHEN ENTERING THIS ROUTINE 341 ; IT IS ASSUMED THAT THE FIRST TWO CHARS ARE CURSOR 342 ; CONTROL CHARACTERS. 343 000064 F.DFNB 000046 F.DSPT 000044 F.ERR 000052 F.FACC 000043 F.FNB 000102 F.NRBD 000024 F.RCTL 000017 F.URBD 000020 R.FIX 000001 *** FILE: SYSLIB.OLB;1 TITLE: QIOSYM IDENT: 0311 <. ABS.>: 000000 000000 000000 IE.CLO 177732 IE.EOF 177766 IE.IDU 177644 IE.LNL 177646 IO.ATT 001400 IO.DET 002000 IO.RLB 001000 IO.WLB 000400 IO.WVB 011000 *** FILE: SYSLIB.OLB;1 TITLE: .CSI1 IDENT: 05 <. BLK.>: 046712 COMMAND STRING 194 ; PNT ADDRESS OF VALID TERMINATOR OR EOL 195 ; R1 POINTING TO VALID JUMP ADDRESS 196 ; 197 ; C=0 IF VALID JUMP ADDRESS IN R5 198 ; C=1 IF UNPREDICTABLE RESULT IN R5 199 ; 200 ;- 201 000722 004567 000000G $DISP:: JSR R5,$SAVRG ; SAVE R3,R4,R5 202 000726 010046 MOV R0,-(SP) ; SAVE R0 203 000730 010246 MOV R2,-(SP) ; SAVE R2 204 000732 012700 000616' MOV #CNT,R0 ; MAKE ADDRESS OF CHARS AND BUF; 344 ; OUTPUTS: 345 ; 346 ; CRT WILL CONTAIN PRINTED TEXT 347 ; 348 ;- 349 000722 $WDD:: DIR$ #DW ; DO THE WRITE 000722 012746 000064' MOV #DW,-(SP) 000726 104377 EMT ^O<377> 350 000730 103004 BCC 20$ ; IF WRITE QUEUED THEN BRANCH 351 000732 WSIG$S ; WAIT FOR DYNAMIC MEMORY TO FREE 000732 012746 MOV (PC)+,-(SP) 000734 061 001 .BYTE 49.,1 000736 104377 EMT ^O<377> 352 000740 000770 BR $WD 050167 001256 .CSI1 046712-R *** FILE: SYSLIB.OLB;1 TITLE: .CSI2 IDENT: 04 <. BLK.>: 050170 051345 001156 .CSI2 050170-R *** FILE: SYSLIB.OLB;1 TITLE: .ODCVT IDENT: 04 <$$RESL>: 064204 064417 000214 .DCCVT 064210-R .ODCVT 064204-R *** FILE: SYSLIB.OLB;1 TITLE: FINIT IDENT: 0101MS <$$RESL>: 064420 064523 000104 .FINIT 064420-R ..FINI 064430-R *** FILE: SYSLIB.OLB;1 TITLE: GETSQ IDENT: 0105MS <$$RESL>: 064524 065245 000522 FER 205 000736 012002 MOV (R0)+,R2 ; PUT NUMBER OF CHARS IN R2 206 000740 001440 BEQ 65$ ; SEE IF ANY CHARS IN BUFFER 207 000742 011004 MOV (R0),R4 ; PUT IN CHAR BUFFER 208 000744 010403 MOV R4,R3 ; MAKE COPY OF BUFFER AREA 209 000746 005040 CLR -(R0) ; MAKE ZERO NUMBER OF CHARS IN BUFFER 210 000750 122714 000040 10$: CMPB #40,(R4) ; SEE IF THIS IS SPACE 211 000754 001403 BEQ 20$ ; IF SO BRANCH 212 000756 002405 BLT 30$ ; IF NOT D ; GO TRY AGAIN 353 000742 20$: WTSE$S #3 ; WAIT FOR WRITE TO FINISH 000742 012746 000003 MOV #3,-(SP) 000746 012746 MOV (PC)+,-(SP) 000750 051 002 .BYTE 41.,2 000752 104377 EMT ^O<377> 354 000754 000207 RTS PC ; RETURN TO CALLING PROGRAM CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 12 $PEM PRINT ERROR MESSAGES 356 .SBTTL $PEM PRINT ERROR MESSAGES 357 ;+ 358 ; $PEM - THIS ROUTINE PRINTS ERROR MESSAGES 35 .GETSQ 064524-R *** FILE: SYSLIB.OLB;1 TITLE: PNTMRK IDENT: 0100MS <$$RESL>: 065246 065333 000066 .MARK 065306-R .POINT 065246-R *** FILE: SYSLIB.OLB;1 TITLE: OVDAT IDENT: 05 <. ABS.>: 000000 000000 000000 .NOVPT 000042 <. BLK.>: 051346 051357 000012 .NALER 051356-R .NIOST 051352-R .NOVLY 051346-R .NSTBL 051350-R *** FILE: SYSLIB.OLB;1 TITLE: ALERR IDENT: 00 <$$ALER>: 061124 061147 000024 $ALERR 061124-R *** FILE: SYSBRANCH 213 000760 112714 000040 MOVB #40,(R4) ; MAKE TAB A SPACE 214 000764 121463 177777 20$: CMPB (R4),-1(R3) ; SEE IF SPACE ALREADY IN 215 000770 001402 BEQ 40$ ; IF SO BRANCH 216 000772 111423 30$: MOVB (R4),(R3)+ ; PUT CHAR IN OUPUT BUFF 217 000774 005210 INC (R0) ; UPDATE CHAR COUNT 218 000776 005204 40$: INC R4 ; UPDATE POINTER 219 001000 005302 DEC R2 ; DECREMENT CHAR COUNT 220 001002 003362 BGT 10$ ; IF CHARS LEFT BRANCH 9 ; 360 ; INPUTS: 361 ; 362 ; CNT IS LINE COUNT OF CS 363 ; PNT IS POINTER TO CS 364 ; 365 ; OUTPUTS: 366 ; 367 ; THE OLD LINE AND THE ERROR MESSAGE WILL BE PUT ON THE SCREEN 368 ; 369 ;- 370 000756 004267 000000G $PEM:: JSR R2,$SAVVR ; SAVE R0,R1,R2 371 000762 016700 000000G MOV PNT,R0 ; MOVE CHAR POINTER IN R1 372 000766 112740 000037 MOVB #37,-(R0) ; PUT IN CLEAR SCREEN CHAR 373 0LIB.OLB;1 TITLE: OPEN IDENT: 0106S <$$RESL>: 065334 067077 001544 .OPEN 065334-R *** FILE: SYSLIB.OLB;1 TITLE: RQLCB IDENT: 03 <$$RESL>: 067100 067337 000240 $RLCB 067100-R $RQCB 067202-R *** FILE: SYSLIB.OLB;1 TITLE: OPFNB IDENT: 0106S <$$RESL>: 067340 071111 001552 .OPFNB 067340-R *** FILE: SYSLIB.OLB;1 TITLE: PARSE IDENT: 0101MS <$$RESL>: 071112 071205 000074 .PARSE 071152-R ..PARS 071164-R ..STFN 071112-R *** FILE: SY 221 001004 016003 000002 MOV 2(R0),R3 ; PUT IN COMMAND LINE BUFFER 222 001010 012704 001351' MOV #NAM,R4 ; PUT IN VALID COMMAND ADDRESS 223 001014 122723 000040 50$: CMPB #40,(R3)+ ; SEE IF CHAR OR NOT 224 001020 001404 BEQ 60$ ; IF SO BRANCH 225 001022 122763 000073 177777 CMPB #';,-1(R3) ; SEE IF SEMICOLON 226 001030 001006 BNE 70$ ; IF VALID BRANCH 227 001032 010360 000002 60$: MOV R3,2(R0) ; STORE GOOD VALUE OF R3 228 001036 005310 00772 112740 000040 MOVB #40,-(R0) ; PUT IN CHAR START ADDRESS 374 000776 112740 000061 MOVB #40+17.,-(R0) ; PUT IN LINE START ADDRESS 375 001002 016767 000000G 000052' MOV CNT,TW+14. ; PUT IN CHAR COUNT 376 001010 062767 000003 000052' ADD #3,TW+14. ; MAKE SURE ALL CHARS INCLUDED 377 001016 010067 000050' MOV R0,TW+12. ; PUT IN BUFFER ADDRESS 378 001022 004767 177640 JSR PC,$WTT ; GO WRITE LINE TO TERMINAL 379 001026 010102 $PER:: MOV R1,R2 ; MAKE CO SLIB.OLB;1 TITLE: READ IDENT: 0100MS <$$RESL>: 071206 071237 000032 .READ 071206-R *** FILE: SYSLIB.OLB;1 TITLE: SAVR1 IDENT: 0101 <$$RESL>: 071240 071273 000034 .SAVR1 071240-R *** FILE: SYSLIB.OLB;1 TITLE: WAITU IDENT: 0100MS <$$RESL>: 071274 071315 000022 .WAIT 071274-R *** FILE: SYSLIB.OLB;1 TITLE: WRITE IDENT: 0101MS <$$RESL>: 071316 071425 000110 .WRITE 071316-R *** FILE: SYSLIB.OLB;1 TITLE: XQIOU IDENT: 0100MS <$$RES DEC (R0) ; DECREMENT BYTE COUNT 229 001040 003365 BGT 50$ ; IS SOME LEFT BRANCH 230 001042 000261 65$: SEC ; SET C NO VALID INPUT 231 001044 000450 BR 130$ ; LEAVE PROGRAM 232 001046 012705 000010 70$: MOV #8.,R5 ; STORE NUMBER OF CHARS IN COMMAND RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 4-1 $DISP COMMAND RECOGIZER 233 001052 011002 MOV (R0),R2 ; STORE NUMBER OF TOTAL CHARS 234 001054 016003 000002 MOV 2(R0),R3 ; PUT IN ASCII PY FOR LATER 380 001030 016701 000000G MOV CMN,R1 ; PUT IN COMMAND TO WRITE 381 001034 012700 000011 MOV #9.,R0 ; PUT NUMBER OF CHARS PER COMMAND 382 001040 004767 000000G JSR PC,$MUL ; GO MAKE CHAR OFFSET 383 001044 062701 000000G ADD #NAM,R1 ; MAKE POINT AT FIRST VALID CHAR 384 001050 112267 000052' MOVB (R2)+,TW+14. ; PUT IN CHAR COUNT 385 001054 010267 000050' MOV R2,TW+12. ; PUT BUFFER ADDRESS IN IO PACKET 386 001060 062702 000003 ADD #3,RL>: 071426 071463 000036 .XQIO 071426-R *** FILE: SYSLIB.OLB;1 TITLE: CKALOC IDENT: 0103MS <$$RESL>: 071464 071751 000266 ..ALC1 071534-R ..ALOC 071464-R ..EXTD 071564-R ..EXT1 071640-R *** FILE: SYSLIB.OLB;1 TITLE: ASSLUN IDENT: 0102MS <$$RESL>: 071752 072145 000174 .ASLUN 071752-R ..ALUN 071756-R *** FILE: SYSLIB.OLB;1 TITLE: BDBREC IDENT: 0100MS <$$RESL>: 072146 072227 000062 ..BDRC 072146-R *** FILE: SYSLIB.OLB;1 TITLE: BKRG IDENT BUFFER ADDRESS 235 001060 122324 80$: CMPB (R3)+,(R4)+ ; SEE IF THIS IS START OF VALID COMMAND 236 001062 001405 BEQ 90$ ; IF FIRST LETTER VALID BRANCH 237 001064 060504 ADD R5,R4 ; BUMP UP VALID COMMAND POINTER 238 001066 005721 TST (R1)+ ; UPDATE JUMP ADDRESS 239 001070 105714 TSTB (R4) ; SEE IF END OF VALID COMMANDS 240 001072 001365 BNE 70$ ; GO SEE IF TAG NAME 241 001074 000433 BR 120$ ; GO RETURN 242 001076 005305 90$: DEC 2 ; GET CHAR POINTER AT FIRST VALID CHAR 387 001064 112122 MOVB (R1)+,(R2)+ ; PUT IN FIRST VALID CHAR 388 001066 112122 MOVB (R1)+,(R2)+ ; PUT IN 2ND CHAR 389 001070 112122 MOVB (R1)+,(R2)+ ; PUT IN LAST CHAR 390 001072 000167 177570 JMP $WTT ; GO WRITE THE LINE CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 13 $ALD ASSIGN LUN TO DEFAULT DEVICE 392 .SBTTL $ALD ASSIGN LUN TO DEFAULT DEVICE 393 ;+ 394 ; $ALD - THIS ROUTINE WI: 0100MS <$$RESL>: 072230 072247 000020 ..BKRG 072230-R *** FILE: SYSLIB.OLB;1 TITLE: CREATE IDENT: 0103MS <$$RESL>: 072250 072435 000166 ..CREA 072250-R *** FILE: SYSLIB.OLB;1 TITLE: DEL IDENT: 0100MS <$$RESL>: 072436 072475 000040 ..DEL1 072436-R *** FILE: SYSLIB.OLB;1 TITLE: EOFCHK IDENT: 0100MS <$$RESL>: 072476 072651 000154 ..EFCK 072476-R ..EFC1 072504-R ..SEFB 072554-R *** FILE: SYSLIB.OLB;1 TITLE: DIRECT IDENT: 0101MS <$$RR5 ; DECREMENT INSTRUCTION BYTE COUNT 243 001100 002427 BLT 110$ ; IF ALL BYTES CHECKED BRANCH 244 001102 005302 DEC R2 ; DECREMENT BYTE COUNT 245 001104 003417 BLE 100$ ; SEE IF LOOKED ALL COMMAND LINE 246 001106 122713 000040 CMPB #40,(R3) ; SEE IF THIS CHAR SPACE 247 001112 001414 BEQ 100$ ; IF NOT GO VALIDATE 248 001114 122713 000073 CMPB #';,(R3) ; SEE IF START OF OPTIONS 249 001120 001411 BEQ 100$ ; IF SO BRANCH 250 001122 122LL ASSIGN LUN 3 TO THE DEFAULT DEVICE 395 ; AND PRINT ANY ERRORS THAT MAY OCCUR WITH THE ASSIGN. 396 ; 397 ; INPUTS: 398 ; 399 ; R5 POINTS TO DEFAULT DEVICE 400 ; 401 ; OUTPUTS: 402 ; 403 ; DOES ALUN AND PRINTS ERRORS IF ANY 404 ; 405 ;- 406 001076 $ALD:: ALUN$S #3,(R5),2(R5) ; ASSIGN LUN TO DEFAULT DEVICE 001076 016546 000002 MOV 2(R5),-(SP) 001102 011546 MOV (R5),-(SP) 001104 012746 0000000 0000 0000000: .>BS A<. : NTDE I RG $E:TLTI ;1BJ.OOVRG: LEFI* ** 0413007 4504 1543110: .>LK B<. S:SIOPYN SONTICALOALN IOCTSEM RAOGPR 0200005 0600 0640000: TSMILIK BLK IS D4 3001 05744104 1503 1S:ITIM LM MEW R/ OVRG: NTMEEG S** * K NP$U VA$P P TM DOS. 3 P1 S:CEENEREF REDINEFND U * ********** * R 4-1503 1 A $V 7603001 5503 1543110: .>LK B<. K NP$U: CEENEREF REDINEFND U>>ESL>: 072652 072737 000066 ..ENTR 072652-R ..FIND 072666-R ..RMOV 072660-R *** FILE: SYSLIB.OLB;1 TITLE: COMMON IDENT: 0101MS <$$RESL>: 072740 072753 000014 .FATAL 072752-R ..FCSX 072740-R *** FILE: SYSLIB.OLB;1 TITLE: XQIOI IDENT: 0101MS <$$RESL>: 072754 073101 000126 ..IDPB 073052-R ..XQIO 072754-R ..XQI1 072772-R *** FILE: SYSLIB.OLB;1 TITLE: MKDL IDENT: 0100MS <$$RESL>: 073102 073117 000016 ..MKDL 073102-R *** FILE: SYSLIB.OLB;1 T713 000075 CMPB #'=,(R3) ; SEE IF EQUAL 251 001126 001406 BEQ 100$ ; IF SO BRANCH 252 001130 122713 000054 CMPB #',,(R3) ; SEE IF POSSIBLY A COMMA 253 001134 001403 BEQ 100$ ; IF SO BRANCH 254 001136 122713 000057 CMPB #'/,(R3) ; SEE IF POSSIBLY A SLASH 255 001142 001346 BNE 80$ ; IF NOT BRANCH 256 001144 022705 000006 100$: CMP #6,R5 ; SEE IF HAD THREE CHARS YET 257 001150 003003 BGT 110$ ; IF NOT GO SEE IF VALID TAG 258 001152 0 000003 MOV #3,-(SP) 001110 012746 MOV (PC)+,-(SP) 001112 007 004 .BYTE 7,4 001114 104377 EMT ^O<377> 407 001116 103026 BCC 40$ ; IF ACCEPTED BRANCH 408 001120 022767 000000G 000000G CMP #IE.LNL,$DSW ; SEE IF LUN INTERLOCKED 409 001126 001003 BNE 10$ ; IF NOT BRANCH 410 001130 012701 000575' MOV #M12,R1 ; PUT IN ERROR NUMBER 411 001134 000411 BR 30$ ; GO TO ERROR ROUTINE 412 001136 022767 000000G 000000G 10$: CMP #IE.IDU,$DSW ;>>>>>>>>>> VA$P: CEENEREF REDINEFND U>>>>>>>>>>>> P TM: CEENEREF REDINEFND U>>>>>>>>>>>> DOS.: CEENEREF REDINEFND U>>>>>>>>>>>> 3 P1: CEENEREF REDINEFND U>>>>>>>>>>>> 0000000 0000 0000000: .>BS A<. : NTDE I VA $E:TLTI ;1BJ.OOVVA: LEFI* ** 7603001 5503 1543110: .>LK B<. S:SIOPYN SONTICALOALN IOCTSEM RAOGPR 0100003 0600 0630000: TSMILIK BLK IS D0 4000 05335104 1503 1S:ITIM LM MEW R/ OVVA: NTMEEG S** * DOS. 2 P1 S:CEENEREF REDINEFND U ITLE: MOVREC IDENT: 0100MS <$$RESL>: 073120 073233 000114 ..MVRC 073162-R ..MVRU 073120-R ..MVR1 073166-R *** FILE: SYSLIB.OLB;1 TITLE: PGCS IDENT: 0100MS <$$RESL>: 073234 073311 000056 ..PGCS 073234-R ..SQER 073300-R *** FILE: SYSLIB.OLB;1 TITLE: POINT IDENT: 0100MS <$$RESL>: 073312 073445 000134 ..PNT1 073312-R *** FILE: SYSLIB.OLB;1 TITLE: PARSDI IDENT: 0102MS <$$RESL>: 073446 073663 000216 .PRSDI 073446-R ..PSDI 073460-R *** FIL12701 000042' MOV #VN,R1 ; PUT TAG VERIFY POINTER IN R5 259 001156 000402 BR 120$ ; DON'T DESTROY CHAR POINTERS 260 001160 010220 110$: MOV R2,(R0)+ ; STORE CHAR COUNT IF VALID 261 001162 010310 MOV R3,(R0) ; STORE CHAR ADDRESS IF VALID 262 001164 000241 120$: CLC ; MAKE SURE C CLEAR GOOD INPUT 263 001166 012602 130$: MOV (SP)+,R2 ; RESTORE R2 264 001170 012600 MOV (SP)+,R0 ; RESTORE R0 265 001172 000207 RTS PC ; RETURN TO CALLING PROGRA SEE IF DEVICE IS INVALID 413 001144 001003 BNE 20$ ; IF NOT BRANCH 414 001146 012701 000632' MOV #M13,R1 ; PUT IN ERROR NUMBER 415 001152 000402 BR 30$ ; GO TO ERROR ROUTINE 416 001154 012701 000706' 20$: MOV #M14,R1 ; PUT IN ERROR NUMBER 417 001160 012767 177777 000000G 30$: MOV #-1,CMN ; PUT COMMAND NUMBER IN 418 001166 004767 177564 JSR PC,$PEM ; GO PRINT ERROR MESSAGE 419 001172 000261 SEC 420 001174 000207 40$: RTS PC ; RETURN * ********** * R 4-1503 1 S $D 5002003 4203 1543110: .>LK B<. DOS.: CEENEREF REDINEFND U>>>>>>>>>>>> 2 P1: CEENEREF REDINEFND U>>>>>>>>>>>> 0000000 0000 0000000: .>BS A<. : NTDE I DS $E:TLTI ;1BJ.OOVDS: LEFI* ** 5002003 4203 1543110: .>LK B<. S:SIOPYN SONTICALOALN IOCTSEM RAOGPR 0100002 0600 0620000: TSMILIK BLK IS D0 2500 02334104 1503 1S:ITIM LM MEW R/ OVDS: NTMEEG S** * TOS. DGS. ANS. 2 P1 1 P1 S:CEENERE: SYSLIB.OLB;1 TITLE: DIRFND IDENT: 0104MS <$$RESL>: 073664 073775 000112 ..DIRF 073664-R *** FILE: SYSLIB.OLB;1 TITLE: ASCPPN IDENT: 0104MS <$$RESL>: 073776 074115 000120 .ASCPP 073776-R *** FILE: SYSLIB.OLB;1 TITLE: PPNASC IDENT: 0104MS <$$RESL>: 074116 074301 000164 .PPASC 074116-R *** FILE: SYSLIB.OLB;1 TITLE: DIFND IDENT: 0105MS <$$RESL>: 074302 074437 000136 ..DID 074302-R *** FILE: SYSLIB.OLB;1 TITLE: PARDI IDENT: 0102MS <M 266 000000' .END START RTO REAL TIME OPERATOR MACRO M10 14-JUL-76 16:53 PAGE 4-2 SYMBOL TABLE AGAIN 000544RG F.CNTG= 000034 F.VBSZ= 000060 N.FNAM= 000006 $DISP 000722RG BT 000162RG 002 F.DFNB= 000046 GE.BIF= 177775 G N.FTYP= 000014 $EFP 000654RG CBUF = ****** GX F.DSPT= 000044 GE.CLO= 000004 G N.FVER= 000016 $ERRA 000562RG CML1 000450RG 002 F.DVNM= 000134 GE.COM= 000001 G N.NEXT= 000022 $EVE = ****** GX CML2 001014RG 00  CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 14 $CTBL CLEAR TABLE AND PARSE COMMAND LINE 422 .SBTTL $CTBL CLEAR TABLE AND PARSE COMMAND LINE 423 ;+ 424 ; $CTBL - THIS ROUTINE WILL CLEAR THE PARSE TABLE AND 425 ; THEN FILL IT WITH THE PARSED COMMAND LINE 426 ; 427 ; INPUTS: 428 ; 429 ; STABLE IS PARSE TABLE 430 ; PNT CHAR POINTER 431 ; CNT CHAR COUNT 432 ; 433 ; OUTPUTS: 434EF REDINEFND U * ********** * R 4-1503 1 G $T 6403007 5303 1543110: .>LK B<. TOS.: CEENEREF REDINEFND U>>>>>>>>>>>> DGS.: CEENEREF REDINEFND U>>>>>>>>>>>> ANS.: CEENEREF REDINEFND U>>>>>>>>>>>> 2 P1: CEENEREF REDINEFND U>>>>>>>>>>>> 1 P1: CEENEREF REDINEFND U>>>>>>>>>>>> 0000000 0000 0000000: .>BS A<. : NTDE I TG $E:TLTI ;1BJ.OOVTG: LEFI* ** 6403007 5303 1543110: .>LK B<. S:SIOPYN SONTICALOALN IOCTSEM RAOGPR 0100001 0600 0610000: TSMI"$$RESL>: 074440 074667 000230 ..PDI 074440-R *** FILE: SYSLIB.OLB;1 TITLE: PARSDV IDENT: 0102MS <$$RESL>: 074670 075063 000174 .PRSDV 074670-R ..PSDV 074702-R *** FILE: SYSLIB.OLB;1 TITLE: PARSFN IDENT: 0102MS <$$RESL>: 075064 075633 000550 .PRSFN 075064-R ..PSFN 075076-R *** FILE: SYSLIB.OLB;1 TITLE: WAITI IDENT: 0100MS <$$RESL>: 075634 075743 000110 ..QIOW 075634-R ..WAEF 075674-R ..WAIT 075654-R *** FILE: SYSLIB.OLB;1 TITLE: RSTFDB #2 F.EFBK= 000010 GE.EOF= 177766 G N.STAT= 000020 $GCL = ****** GX CMN 000150RG 002 F.EFN = 000050 GE.IND= 000002 G N.UNIT= 000034 $GCSB = ****** GX CNT = 000616RG 002 F.EOBB= 000032 GE.IOR= 177777 G PAR$$$= 000027 $HEL = ****** GX C.DEF 000004 G F.ERR = 000052 GE.LC = 000010 G PNT = 000620RG 002 $LAB = ****** GX C.DEN 000002 G F.FACC= 000043 GE.MDE= 177774 G PRMD 000152RG 002 $MAI = ****** GX C.DEV 000000 G F.FFBY= 000014 GE.OPR= 177$ ; 435 ; IF CORRECT SYNTAX THEN PARSE TABLE WILL BE FILLED 436 ; 437 ;- 438 001176 004267 000000G $CTBL:: JSR R2,$SAVVR ; SAVE R0,R1,R2 439 001202 012700 000000G MOV #STABLE,R0 ; PUT IN PARSE TABLE ADDRESS 440 001206 012702 000020 MOV #16.,R2 ; PUT MAX NUMBER OF ENTRIES 441 001212 005020 10$: CLR (R0)+ ; PURGE OLD PARSE TABLE 442 001214 005020 CLR (R0)+ ; EACH ENTRY HAS TWO ELEMENTS 443 001216 005302 DEC R2 ; REDUCE NUMBELIK BLK IS D4 3600 03735104 1503 1S:ITIM LM MEW R/ OVTG: NTMEEG S** * VA$P NMTU NMTG TOS. DGS. ANS. NMLW S:CEENEREF REDINEFND U * ********** * R 4-7602 1L MU$D -R223010 IVDD $ 0 1000 06330104 7602 1>:SLRE$$ < 4 00 0T:ENID THRIDA: LEIT T1 B;OLB.LIYS SE:IL F** * R 6-5702 1M 2NVA -R762410 M AN VR 4-7102 1 NMUN -R602210 NMAG TR 4-7302 1 NMRU -R642610 M GN RR 6-6602 1 NMLU -R022710 M GN HR 7-7102 1 NMEU -R1024&IDENT: 0101S <$$RESL>: 075744 076051 000106 ..RFDB 075744-R *** FILE: SYSLIB.OLB;1 TITLE: RETADR IDENT: 0100MS <$$RESL>: 076052 076161 000110 ..RTAD 076052-R *** FILE: SYSLIB.OLB;1 TITLE: RDWAIT IDENT: 0101S <$$RESL>: 076162 076255 000074 ..RWAC 076204-R ..RWAT 076162-R *** FILE: SYSLIB.OLB;1 TITLE: RWBLK IDENT: 0101S <$$RESL>: 076256 076321 000044 ..RBLK 076256-R ..WBLK 076264-R *** FILE: SYSLIB.OLB;1 TITLE: RDWRIT IDENT: 0102MS '776 G PRT 000164R 002 $OPT = ****** GX C.SV = 000110 G F.FNAM= 000110 G.CMLD= 000146 G RECNM = ****** GX $PEM = ****** GX C.SW = 000050 G F.FNB = 000102 G.DPRM= 000160 STABLE 000044RG 002 $PER = ****** GX DICNM = ****** GX F.FTYP= 000116 G.ERR = 000140 G START 000000R $PRO = ****** GX DSPT = ****** GX F.FVER= 000120 G.ISIZ= 000020 SW 000160RG 002 $PWRD = ****** GX FDCOM = ****** GX F.HIBK= 000004 G.LPDL= 000100 SWF 000156RG 002 $REP (R TO GO 444 001220 003374 BGT 10$ ; IF SOME LEFT BRANCH 445 001222 004767 000000G JSR PC,$PAR ; GO PARSE COMMAND STRING 446 001226 103013 BCC 40$ ; IF ALRIGHT BRANCH 447 001230 005767 000000G TST MW ; SEE WHAT ERROR 448 001234 001403 BEQ 20$ ; IF SYNTAX ERROR BRANCH 449 001236 012701 000305' MOV #M1,R1 ; PUT SYNTAX ERROR MESSAGE IN 450 001242 000402 BR 30$ ; GO PRINT MESSAGE 451 001244 012701 000334' 20$: MOV #M2,R1 ; ILLEGAL SWITC10 NMS2 DR 4-3002 1 NMDS 0405003 7602 1602210: $>TADA<$ -R462010 N PU $ R 6-3601 1 TG$P -R501710 G PR $R 2-4501 1 DS$P -R221310 B PD $ 6 6700 01722102 3201 1>:K.BL. < A PV $E:NCREFERED NEFIDEUN> >>>>>>>>>> > M UN TE:NCREFERED NEFIDEUN> >>>>>>>>>> > M GN TE:NCREFERED NEFIDEUN> >>>>>>>>>> > M WN LE:NCREFERED NEFIDEUN> >>>>>>>>>> > 0 0000 00000000 0000 0>:S.AB. < T:ENID B PD: LEIT T1 J;OBV.BOPD: LEFI* ** -R302210 2 H1 C 4 0100 05722104 2402 1* <$$RESL>: 076322 076513 000172 ..RWCK 076322-R ..WTRD 076406-R *** FILE: SYSLIB.OLB;1 TITLE: ASCR50 IDENT: 0104MS <$$RESL>: 076514 076703 000170 ..SGR5 076514-R *** FILE: SYSLIB.OLB;1 TITLE: WATNOD IDENT: 0100MS <$$RESL>: 076704 076725 000022 ..WAND 076704-R *** FILE: SYSLIB.OLB;1 TITLE: WATSET IDENT: 0101MS <$$RESL>: 076726 076763 000036 ..WAST 076726-R *** FILE: SYSLIB.OLB;1 TITLE: WTWAIT IDENT: 0100S <$$RESL>: 076764 077111 000126 += ****** GX FDDIC = ****** GX F.LUN = 000042 G.MODE= 000141 G S.BFHD= 000020 $SAVRG= ****** GX FDREC = ****** GX F.MBCT= 000054 G.PSDS= 000142 G S.FATT= 000016 $SIG = ****** GX FDTAG = ****** GX F.MBC1= 000055 IE.CLO= ****** GX S.FDB = 000140 $STA = ****** GX FD.CCL= ****** GX F.MBFG= 000056 IL1 000200RG 002 S.FNAM= 000006 $TRE = ****** GX FD.REC= ****** GX F.NRBD= 000024 IL2 000326RG 002 S.FNB = 000036 $UPD = ****** GX FD.TTY= ****** GX F.NREC= 0000,H 452 001250 004767 177502 30$: JSR PC,$PEM ; PRINT ERROR MESSAGE 453 001254 000261 SEC ; LET KNOW BAD PARSE 454 001256 000207 40$: RTS PC ; RETURN 455 000001 .END CMN RTO COMMON ROUTINES MACRO M10 14-JUL-76 16:51 PAGE 14-1 SYMBOL TABLE BT = ****** GX IO.WLB= ****** GX M2 000334RG 002 Q.IOLU= 000004 $LOK 000072RG BUFB 000120RG 002 MW = ****** GX M2M = 000030 Q.IOPL= 000014 $MT 000270RG CML1 = ****** GX M1 000305>:A$AT$D < R 4-2400 1G TA$P -R600610 TGPL $ R 0-6600 1ICLD$P -R320210 ICPD $R 2-7000 1G VT$M -R301010 ECMR $ R 6-4300 1G TA$F -R560510 ICFD $R 2-2101 1G TA$D -R540310N RACL $ 0 0701 02113102 2300 1>:K.BL. < 4 0100 0 VAU. 200000 U .T U 2 5100 0 TOU. 100000 G .T U 2 0200 0 RGU. 240000 N .I U 0 0300 0 FPU. 260000 M .F U 6 0100 0 EUU. 120000 S .D U 0 5100 0 DOU. 160500 G .D U 4 5100 0 ANU. 040000 VAP. U 0 0200 0U .TUP 010000. ..WTWA 076764-R ..WTWD 076764-R ..WTW1 076770-R ************ UNDEFINED REFERENCES: FDIC SWT $PER $VTAG *** SEGMENT: COMOV R/W MEM LIMITS: 077624 077717 000074 DISK BLK LIMITS: 000042 000042 000001 PROGRAM SECTION ALLOCATION SYNOPSIS: <. BLK.>: 077624 077665 000042 <$DATA$>: 077666 077715 000030 *** FILE: COMOV.OBJ;1 TITLE: COMMAN IDENT: <. BLK.>: 077624 077665 000042 VTAG 077644-R $ALA 077624-R $BAD 077624/30 IOST 000144RG 002 S.FNBW= 000017 $VTAG = ****** GX FO.MFY= ****** GX F.OVBS= 000030 JAD 000000RG 002 S.FNTY= 000004 $$$ = 001174R 002 F.ACTL= 000076 F.RACC= 000016 MJD 000430R S.FTYP= 000002 .CLOSE= ****** G F.ALOC= 000040 F.RATT= 000001 MW 000154RG 002 S.NFEN= 000020 .FSRCB= ****** G F.BBFS= 000062 F.RCNM= 000034 M1 = ****** GX TAGNM = ****** GX .GCML2= ****** G F.BDB = 000070 F.RCTL= 000017 M10 = ****** GX VN 000RG 002 M8 000365RG 002 Q.IOPR= 000007 $MUL = ****** GX CML2 = ****** GX M1M = 000026 M8M = 000031 Q.IOSB= 000010 $NUM 000014RG CMN = ****** GX M10 000450RG 002 M9 000417RG 002 STABLE= ****** GX $PAR = ****** GX CNT = ****** GX M10M = 000062 M9M = 000030 SW = ****** GX $PEM 000756RG C0 001022R 002 M11 000533RG 002 NAM = ****** GX TR 000004RG 002 $PER 001026RG C1 000240R 002 M11M = 000041 PNT TGP. U 1 0000 0P .RUP 400000 RGP. U 0 1000 0N .IUP 000400 FPP. U 0 2000 0M .FUP 100000 EUP. U 2 0000 0S .DUP 020000 DLP. U 0 0100 0G .DUP 020000 APP. U 4 0000 0N .AUP TOS.: CEENEREF REDINEFND U>>>>>>>>>>>> DGS.: CEENEREF REDINEFND U>>>>>>>>>>>> ANS.: CEENEREF REDINEFND U>>>>>>>>>>>> 0000000 0000 0000000: .>BS A<. : NTDE IN CMPD UE:TLTI ;1BJ.OOVCM UE:IL F** * R 0-2302 1 12CH 2400003 2402 1202210: $>TADA<$ -R247607 D UP $ 2-R $CON 077624-R $DES 077624-R $EVE 077624-R $HEL 077624-R $LAB 077624-R $MAI 077624-R $PRO 077624-R $REP 077624-R $SIG 077624-R $STA 077624-R $TRE 077624-R <$DATA$>: 077666 077715 000030 *** SEGMENT: PWDOV R/W MEM LIMITS: 077624 100117 000274 DISK BLK LIMITS: 000043 000043 000001 PROGRAM SECTION ALLOCATION SYNOPSIS: <. BLK.>: 077624 077755 000132 <$DATA$>: 077756 100115 000140 *** FILE: PWDOV.OBJ;1 TITLE: $PWRD IDENT: 30042RG 002 .OPEN = ****** G F.BGBC= 000057 F.RSIZ= 000002 M12 = ****** GX $ALA = ****** GX ...PC1= 001014R 002 F.BKDN= 000026 F.RTYP= 000000 M15 = ****** GX $ALD = ****** GX ...PC2= 001216R 002 F.BKDS= 000020 F.SPDV= 000072 M16 = ****** GX $BAD = ****** GX ...PC3= 001014R 002 F.BKEF= 000050 F.SPUN= 000074 M9 = ****** GX $CLEAR= ****** GX ...TPC= 000020 F.BKP1= 000051 F.STBK= 000036 NAM 001351RG 002 $CON = ****** GX F.BKST= 000024 F.4= ****** GX TW 000034RG 002 $RTT 000536RG DOST 000000RG 002 M12 000575RG 002 PRMD = ****** GX $ALD 001076RG $SAVAL= ****** G DW 000064RG 002 M12M = 000034 P10 000274RG 002 $CHAR 000000RG $SAVVR= ****** GX FD.TTY= ****** GX M13 000632RG 002 P10P = 000010 $CHECK 000322RG $SWT 000030RG F.RCTL= ****** GX M13M = 000053 P6 000244RG 002 $CTBL 001176RG $WDD 000722RG G.CMLD= ****** GX M14 000706RG 002 P6P = 000014 6 4000 03102104 6277 0>:K.BL. < 4 0100 0 VAU. 200000 U .T U 2 5100 0 TOU. 100000 G .T U 2 0200 0 RGU. 240000 N .I U 0 0300 0 FPU. 260000 M .F U 6 0100 0 EUU. 120000 S .D U 0 5100 0 DOU. 160500 G .D U 4 5100 0 ANU. 040000 VAP. U 0 0200 0U .TUP 010000 TGP. U 1 0000 0P .RUP 400000 RGP. U 0 1000 0N .IUP 000400 FPP. U 0 2000 0M .FUP 100000 EUP. U 2 0000 0S .DUP 020000 DLP. U 0 0100 0G .DUP 020000 APP. U 4 00006<. BLK.>: 077624 077755 000132 $CLEAR 077750-R $PWRD 077624-R <$DATA$>: 077756 100115 000140 P8 100100-R *** SEGMENT: OPTOV R/W MEM LIMITS: 077624 102443 002620 DISK BLK LIMITS: 000044 000046 000003 PROGRAM SECTION ALLOCATION SYNOPSIS: <. BLK.>: 077624 100547 000724 <$DATA$>: 100550 102321 001552 *** FILE: OPTOV.OBJ;1 TITLE: $OPT IDENT: <. ABS.>: 000000 000000 000000 OP.AD 000001 OP.CM 000001 OP.DD 000040 OP.DF 000010 UNIT= 000136 N.DID = 000024 $CTBL = ****** GX F.BKVB= 000064 F.URBD= 000020 N.DVNM= 000032 $CTT = ****** GX F.CHR = 000100 F.VBN = 000064 N.FID = 000000 $DES = ****** GX . ABS. 000010 000 001174 001 $DATA$ 001604 002 $$FSR1 002040 003 ERRORS DETECTED: 0 FREE CORE: 2028. WORDS [200,20]RTO,[200,30]RTO/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTO 8 $CTT 000652RG $WTT 000666RG G.PSDS= ****** GX M14M = 000025 P9 000261RG 002 $DSW = ****** GX $$$ARG= 000003 IE.IDU= ****** GX M15 000734RG 002 P9P = 000012 $EFP = ****** GX $$$OST= 000014 IE.LNL= ****** GX M15M = 000031 Q.IOAE= 000012 $ERRA = ****** GX .GCML1= ****** GX IOST = ****** GX M16 000766RG 002 Q.IOEF= 000006 $GCL 000412RG IO.RLB= ****** GX M16M = 000032 Q.IOFN= 000002 $GDEV 000150RG . ABS. 000000 000 001260 001 0N .AUP 0000000 0000 0000000: .>BS A<. : NTDE I PD UE:TLTI ;1BJ.OOVPD UE:IL F** * 0 1000 06330104 7602 1>:SLRE$$ <4 5400 06327100 2202 1>:A$AT$D <4 3702 01722104 6277 0>:K.BL. < : ISPSNOSYN IOATOCLL AONTIEC SAMGRRO P 4 0000 06000005 0500 0S:ITIM LLK BSKDI 3033003 1503 1247607: TSMILI EM M/W R OVPD UT:ENGMSE* ** R 4-4402 1 DD$D 6200005 5202 1442410: .>LK B<. : NTDE I D DD $E:TLTI ;1BJ.OOVDD DE:IL F** * 2 0600 02525104 4402 1>:K.BL. < : ISPSNOSYN :OP.DL 000002 OP.DV 000020 OP.RP 000004 OP.SN 000002 OP.VN 000004 O.CM 000010 O.DD 000022 O.DF 000016 O.DV 000020 O.SN 000012 O.VN 000014 <. BLK.>: 077624 100547 000724 EOP 100520-R $GSW 077704-R $OPT 100056-R $PHD 077624-R $PREP 100000-R <$DATA$>: 100550 102321 001552 BUF2 101322-R MES10 101236-R MES9 101202-R M3 100716-R M4 100765-R M5 101024-R M6 101101-R M7 101141-R P1 $DATA$ 001026 002 ERRORS DETECTED: 0 FREE CORE: 4174. WORDS [200,20]RTCMN,[200,30]CMN/-SP/LI:MEB=[100,1]TURMAC/ML,[200,10]RTOCMN IOATOCLL AONTIEC SAMGRRO P 1 0000 05400004 0500 0S:ITIM LLK BSKDI 6400007 5202 1442410: TSMILI EM M/W R OVDD DT:ENGMSE* ** P EO $ : ESNCREFERED NEFIDEUN ************ -R442410 D CM $ 2 1200 06525104 4402 1>:K.BL. < P EO $E:NCREFERED NEFIDEUN> >>>>>>>>>> > 0 0000 00000000 0000 0>:S.AB. < T:ENID MD$C: LEIT T1 J;OBV.DOCM: LEFI* ** 2201005 5602 1442410: .>LK B<. S:SIOPYN SONTICALOALN IOCTSEM RAOGPR 0100003 0500 0530000: TSMILIK BLK IS D4 1200> 100550-R P2 100566-R P3 100611-R P4 100637-R P5 100672-R *** SEGMENT: ESVOV R/W MEM LIMITS: 102444 103263 000620 DISK BLK LIMITS: 000047 000047 000001 PROGRAM SECTION ALLOCATION SYNOPSIS: <. BLK.>: 102444 103263 000620 *** FILE: ESVOV.OBJ;1 TITLE: SV IDENT: <. BLK.>: 102444 103263 000620 $ESV 102444-R $PSV 103046-R *** SEGMENT: ESWOV R/W MEM LIMITS: 102444 103053 000410 DISK BLK LIMITS: 000050 000050 000001 PROG 06725104 4402 1S:ITIM LM MEW R/ V DOCM: NTMEEG S** * MT S:CEENEREF REDINEFND U * ********** * R 2-7102 1 DF$P -R442410 F ED $ 0 3500 01330104 4402 1>:K.BL. < T ME:NCREFERED NEFIDEUN> >>>>>>>>>> > 0 0000 00000000 0000 0>:S.AB. < T:ENID DF: LEIT T1 J;OBV.FOED: LEFI* ** 5003003 0103 1442410: .>LK B<. S:SIOPYN SONTICALOALN IOCTSEM RAOGPR 0100002 0500 0520000: TSMILIK BLK IS D0 3500 01330104 4402 1S:ITIM LM MEW R/ V FOED: NTMEEG S** *RAM SECTION ALLOCATION SYNOPSIS: <. BLK.>: 102444 103051 000406 *** FILE: ESWOV.OBJ;1 TITLE: SW IDENT: <. BLK.>: 102444 103051 000406 $ESW 102444-R $PSW 102740-R *** SEGMENT: EDVOV R/W MEM LIMITS: 102444 103217 000554 DISK BLK LIMITS: 000051 000051 000001 PROGRAM SECTION ALLOCATION SYNOPSIS: <. BLK.>: 102444 103215 000552 *** FILE: EDVOV.OBJ;1 TITLE: DV IDENT: <. BLK.>: 102444 103215 000552 $EDV 102444-R $PDV 103020-R