bound_old_cp_.bind 12/19/78 1902.2rew 12/19/78 1857.8 12753 /* Name: bound_old_cp_ This bound segment contains those entries which comprise the old command processor and are now obsolete. This segment will be deleted in MR8. */ /* Initial coding: 9 June 1978 by G. Palter */ /* Last modified: 1 September 1978 by G. Palter to add find_command_error_ and full_find_command_ */ Objectname: bound_old_cp_; Order: full_command_processor_, proc_quotes_, proc_parens_, proc_brackets_, find_command_error_, full_find_command_, eval_ec_if_test_, set_com_line; Addname: full_command_processor_, find_command_error_, full_find_command_, eval_ec_if_test_, set_com_line, scl, get_com_line, gcl; Global: delete; Perprocess_Static; No_Table; /* Instructions for individual components */ objectname: full_command_processor_; retain: full_command_processor_, get_line, set_line, return_val, reset_lss, setup_lss; objectname: proc_quotes_; objectname: proc_parens_; objectname: proc_brackets_; objectname: find_command_error_; retain: find_command_error_; objectname: full_find_command_; retain: full_find_command_, fc_no_message; objectname: eval_ec_if_test_; retain: eval_ec_if_test_; objectname: set_com_line; synonym: get_com_line, scl, gcl; retain: set_com_line, scl, get_com_line, gcl; /* end; */  full_command_processor_ 09/25/78 1426.5re 09/25/78 1426.5 61848 XTX?L4# ;()[]" ;()" ?#cleanupcommand_abort_command_processor_ @@@(@@(@E@@`@@@(P%@PP@(@(@$P @PP@@~A@P@P@@@{@{@(P|(@(@(P(@(@(@@A@@@B@B@N@P FFB,@C@AN@(@P @@F@ M;@;M@|,@@{N@@@@ PP'@@\@|@@B@@@A@B~@>B@PtnI.@.@@>C@A@B~@>B@Ptn.@.@@>C@A@>C@)B>@~C@(@ @@F@ M>@ M;@;M@(MT"MR[M)M$PPP]M$PPPC@B~@@|@P m@n@|.@@ MfP@N(@@,@@@P@`@ P@P@>P>@@J@@P@H@>6ipiLP@Yip@@N@@L@PP@O@@@O@B@ PB@ON@%B@P@OJP@FP@@>P>@B@LPNFN~Y@N@OYNNNB,@@"P@ P(@@@R@*JP@F@LPObO$P@Y@O@OYOOO$PP@@V@PX@PZ@P\@T@$P@ PP@@@V@PX@B@Z@P\@T@$P"P@ PP$P (@@u@D @P'@@JP@R@B@V@R@X@T@$PP@H(@@@PP P@~@N@@P@.@ e@`@@P@@!$P P@@@@@/@@ P@$P P@@@@@"@@ P@E@@`@@(@(@@;M@dP@ @P@C,@C@@B@B@C@B~@PB@ f@@C@B~@P@F@@A@C~@B>@A@@ @@P@@$P P@@A@>@@!B~@D@@ @@@F>D@D@@@@P@@ $PP@Px(@C@PP `@`@|@D(@@|@P@O@D@ B@P `@n|.@D(@$P@|~@>@C@P@N@A@C~@~@@(M@@@~@@@@@@@@}@@@@P@@ &P@G@"M@@~@@@@@@@@}@@@@P@@ (P@P @(M1@N8@+eN(P@%fN@C.@.gN@N%@(Pc@c@r_@P@@@J@D@@$P.P@$P (@@}@C>@B~@@}@|.@C@.@$PPP@xp@$P@@@>>A@@B@(@@D@>>E@@F@(@@@XH@D@XI@@@XJ@D@XK@ P@"@N@A@P@C@R@@T@BP@@V@FP@X@PZ@\@^@`@b@H@d@I@f@h@L@,P@0@N@A@P@C@R@@T@BP@@V@FP@X@PZ@\@^@`@b@J@d@K@f@h@L@*P@ PP@PBP@~@@N@@@@P@.@ e@`@@$@@@A@@C@@$P@@PP@ P@P@@@@@"P@P@@P@@@*P@PdN$P @:@yP&@ "PP@@P@@P@ P@@PP@@P%@PP@r(@PP@@P%@cPP$P@@P%@V$P@PP@P%@H$PPPP@PP@P%@9$P(P@@$P @%0@ @@@0P@{@@{.@@{@>@$P P@@@@@@@@ P@{@>@$P P@@@@@@@@ P@@{@>@PP`@`@@PP`@`@E@@@@0@$P P@{@>@@@@@@@@ P@`@@@@0@$P P@{@>@@@@@@@@ P@{@{.@@{.@P@P@@@@@@ P@0@@@0@$P PF@@J@F@L@N@H@ P@ P@0@@@0@$P PF@@J@F@L@{N@H@ P@ P@{0@E@F@F@@0@$P PF@@J@F@L@cN@H@ P@ P@c0@`@F@F@@0@$P PF@@J@F@L@KN@H@ P@@@?  full_command_processor_ symbol_table  free_freen_alloc_ error_table_unbalanced_parentheses"$(.unbalanced_brackets"$16mismatched_iter"$9=cp_data_ under_lss"@CFcommand_table_ptrI@KPcu_gen_callSTWgrow_stack_frameSZ_shrink_stack_frameSbg find_command_jjntransform_command_qqv proc_parens_yy} proc_quotes_proc_brackets_nested_bracketscom_err_get_system_free_area_,` cleanup.1 command_abort_.2 return_val` ignore_brackets` set_line` get_line` setup_lss` reset_lss`  2?#&&&!&0&8&?&H&R&Y&a&i&p&x&&&&&&symbtreeC$<CPL/I 3!& *=KqKKMultics PL/I Compiler, Release 20e, of May 22, 1976Martinson.SysMaint.aoptimize map02t:Cq>spec>online>mib092476>full_command_processor_.pl1pl1info Efull_command_processor_B _mNCKxs:<c@iG|; 9}xo>!B AA|@(T@''if<7Ox7 :<|_jZZj ZZjk+PjZ+PkPZPZPk kXV@XV@Zjk +XV@ZjCUYUYUYUYUYUYobj_map 2  eval_ec_if_test_ 09/25/78 1426.5re 09/25/78 1426.5 11592 XLT#4)PP%@ P (P@@D@B@$PP@@ P@@C@>>D@@F@@@H@>>I@@J@C@XL@H@XM@P@P~N@@P~O@@PR@N@T@O@V@@@X@@@Z@FP@\@JP@@^@@ P`@b@d@f@j@h@L@l@M@n@p@P@ $P P@FPB@FP@t`.@.@@>A@B@A~@>A@ P@PP @@o@ @ PP@P@@@@eval_ec_if_test_ symbol_table) full_command_processor_get_lineproc_brackets_ return_value"&, ` &&(symbtreeC$<CfPL/I 3!& *;ZGLSWGGMultics PL/I Compiler, Release 20e, of May 22, 1976Martinson.SysMaint.aoptimize map0+t9Cm2>spec>online>mib092476>eval_ec_if_test_.pl1pl1info Ceval_ec_if_test_hA PVjZZkJ'UP,@eTpobj_map - Z6  set_com_line 09/25/78 1426.5re 09/25/78 1426.5 13248 T.TT V#set_com_lineInvalid command line size "^a".Maximum expanded command line = ^d characters.9pP%@<pP%@F@F@J@B@L@@@N@D@P@H@$P P@D@E@7@@VF@BPJ@G@L@F@N@P@H@$P P@G@E@$@@VF@G(@H@I@J@@@ R G@\@H@^@R@`@BPb@d@f@h@F@j@Z@$PP@@E@T@R@$PP@@@pP%@GpP%@E@T@R@$PP@@@0Z0Z@J@E@L@iN@fP@H@$PP@@ set_com_line symbol_table9 com_err_cu_arg_ptrcv_dec_command_processor_set_line"'*get_line"-0ioa_335scl<`8@9&`gclG<~`? get_com_lineJ@`C&&&!&,&2&7symbtreeD yi{D1VPL/I 6"' *:aEMY^EEMultics PL/I Compiler, Release 21, of October 25, 1976Martinson.SysMaint.moptimize map0' BD1>E>spec>online>mib111976>set_com_line.pl1pl1info B set_com_lineK h +VPZjk Vj|Z@Zj\@eU*eU*Pobj_map Kad  proc_brackets_ 09/25/78 1426.5re 09/25/78 1426.5 28368 LX?4s @PPC@E(@F@G@'H@P@PL@RP^@>_@@`@s@IP&@PPR@ PX@"P@PV@ P\@@ PZ@PT@T(PJ(@C@LP FOH@B@B(@C@B~@G~@>E@TP@TP@C,@C@@A@A@C@A~@LPA@ f@VP@XP(@t@C@A~@LP@Fv@D@C~@A>@u@x@v@|@u@~@x@@@@\P@TP@@@@@VP@ZP@z@$PP@TPdN$P PTP@XP@@@B@Nx@T`[.@.@>nI@@@b@A@A@bN@eP(@XP @@FPP@[MI@"M@N@I@@I@  FFwA,@I@@I@A,@Fp@ P@@@@>A@@B@XP@@@ `@`@VP@(@@D@F@@@~G@A@~H@D@L@G@N@H@P@H@R@RPT@@@V@\PX@TPZ@ \@ ^@`@d@j@b@VPf@ZPh@J@ $PP@@XP@@@RPF~@>@N@$P PTP@F@`PXP@@@ o@`@@@F.@I@PPc@D@>C@C@cN@$P(@LP @@FPP@[MI@D@>G@"MP@NPI@@I@  FFC,@I@@I@C,@D@>G@PPD~@E@TP@F.@J@MH@PP@PVP@x@F@xN@x@XP@`P `@`@@VP@XP(@`PN@x@N@|@F@~@H@@@@\P@TP@x@w@@q@VP@ZP@z@$PP@N@|@F@~@H@@TP@z@$PP@@LP&@P PR@ PX@"P@ PV@P\@@ PZ@PT@AT(PJ@oSP&@PPR@ PX@"P@PV@ P\@@ PZ@PT@'T(PJ@Ud@RPF~@>EN@$P PTPd@F@`PG@LPE@ o@n  E@F.@d@j@p(@q(@I@PPr@C@>D@D@rN@+P(@LP @@FPP@]M I@p@qN@j@q,@[MI@p,@"MP@NPI@@I@  FFD,@I@@I@D,@$PPTPj@"|proc_brackets_ symbol_tableI  error_table_unbalanced_brackets null_brackets#command_line_overflow&,full_command_processor_ignore_brackets/59 return_val/<? return_valueBFL `SI`Bnested_bracketsVL`O7&&%&.&;&A&HsymbtreeC$<CRPL/I 3!& *;fGR^cGGMultics PL/I Compiler, Release 20e, of May 22, 1976Martinson.SysMaint.aoptimize map0)t;Cm2>spec>online>mib092476>proc_brackets_.pl1pl1info Cproc_brackets_<B!Wx/B!|1FZPZjkPjZZUZ++\@eU*eU*pobj_map 77Wf  proc_parens_ 09/25/78 1426.5re 09/25/78 1426.5 34920 4L#[];" ();" ();" 9P%@F@K(@L(@M(@N(@P(PPP>P@Pt`.@.@@>}PP@G(@O(@PPQ@F@A@A@QN@ PP@P FF@A,@PPA~@>A@P@Pto@.@.@@>@@A>@~@@P(@ @@F@PP@ M >F@PP@@@A~@G@4)MP(@PP @@FPP@ M(MD@A~@G@#(MO@N@@@A~@G@E{M(@N(@PPN(PP@PP@ "MM@;M_ M]PD~@D@P@Pte@*.@.@@>E@P>E@D@E.@P(@E@ @@O@PP@ M;M M )M (ML@"ML@E@D~@~H@ D@G@PP o@e@G.@L@$PP@E@F@@@A~@C@P@PA@P@P `@o@O@ o@@F@PG@ P(P@$P PP@J(@I(@K(@gPPR@@@>C@C@RN@GP(@PP@P @@F@PP@ MK@9J@IN@85 MJ@m@P@;MJ@m@K@+,P@"MNPK@@K@! FF@C,@K@@K@)MK@J@IN@I,@(MK@ J,@J@IN@$P PP@C,@C@PP@T@J(@I(@F@~D@D@B@PPB~@B@P@Pte@A.@.@@>D@:B@D.@P(@D@ @@O@PP@)M K@+J@IN@T@I,@%(MK@!J,@ MJ@n@P@;MJ@n@K@P@"MD@NPK@@K@  FF@rD,@K@@K@D@NP$P PPT@Z@C(@C@B@PPB~@B@P@Pte@.@.@@>C@Z@B@C.@P(@C@ @@O@PP@"MC@NPK@@K@* FF@;C,@$K@@K@ [M K@C@PfPZ@ MJ@o@P@;MJ@o@K@ Z@ P@]MK@$PPPZ@C@PNPZ@`@b@PPP@P@Of@G@PP@Nh@ PG~@j@PbP@~Pl@P@(Mp@f@t@l@v@F@x@h@z@j@|@k@~@p@@P@r@ $PP@p@f@t@l@v@F@x@h@z@j@|@k@~@p@@P@r@ $PP@P@"MM@PPeNO@(PPgNN@@@P@PF@ o@@PPeN(PPPgN`@N@ F@@>@A~@A@P@P o@@P`@$P PP`@bPPF.@k@G.@`@!E!@"  proc_parens_ symbol_table9  error_table_mismatched_iterunbalanced_parentheses$unbalanced_brackets',/ proc_quotes_226A x &&&&.&1&8symbtreeBZBAKPL/I *$ (8^CKV[CCMultics PL/I Compiler of October 21, 1974.Martinson.SysMaint.aoptimize map.'B@>spec>online>mib022175>proc_parens_.pl1pl1info @ proc_parens_9<OmyR&PZjkkP@jVjBRC9UYU0obj_map   BNb^  proc_quotes_ 09/25/78 1426.5re 09/25/78 1426.5 13248 4L# ;()" [].pP%@D(@PP@PH@PPJ@N@(P(PPPB@B@A@PPA~@A@HPTe@".@.@>B@A@B.@B@NP L@ FF@A~@D@JP o@e@D@B>@A~@D@B,@$P PP@B@A~@~C@D@JPA@ o@e@D.@PB~@B@=HP@EN@@PP>P L@B@.PL(@P @@O@L@T@@L.@.@>A@N NfP@$P PP@PPB~@~E@D@JPB@HP o@e@L@(M"M1D.@PHP@OP@P~PR@D@E>@JP@FT@ PD~@E~@S@P@X@R@Z@@@\@T@^@S@`@F@b@Pd@Pf@V@ $PP@F@E.@@@P.PPePD@E>@ P@" proc_quotes_ symbol_table.  error_table_unbalanced_quotesunbalanced_brackets$ proc_parens_''+6x &&&&-symbtreeBZBAK^PL/I *$ (8XCHQUCCMultics PL/I Compiler of October 21, 1974.Martinson.SysMaint.aoptimize map.'B@>spec>online>mib022175>proc_quotes_.pl1pl1info @ proc_quotes_i*<tOtPZjkPZ+B!:C9U@0obj_map 7Xf  full_find_command_ 12/19/78 1858.3re 12/19/78 1858.3 43560 VTT/TT TTVTTT#4^R^a^B?#Blank command name.command_processor_Segment ^R^a^B not found.Entry point ^R^a^B not found in segment ^R^a^B. @H(@I(@M(@N(@O(@P(@Q(@@  =p@P%@ PP@P@P@ P@N@)=w@P%@ PP@P@P@ P@N(@  g@P%@PP@P@P@P@N(@PPP F`$PPPt`.@.@@>"N@(@@@@@@@@@@@@h@e@b@@ $P P@$PPP@@@PF@~@K(@K@N@h(@@P @@F@>MM@@<MM@@$MTF@F@$PPPV>H@P@PPu`@.@.@@@P~@H~@>I@$PPP@K@>@P~@K@te@ .@.@@>I@ N& @@e@$PPPN@@@^a@P@@@@@@@@@@@@ P@@K,@R@D@M@!F@T@F@i@@@P `@`b@@@@P@@@@@@@$PP@ @P@PF@ @@`t@.@.@@>=u@;.@.@@@~@G@ NDP@@@  H@@PI@ @@f @@@  M@B@@@b(@(@@ @DP"@DP$@@&@@(@@@*@P,@.@}0@2@4@6@8@}:@@$PP@P$P NPP@Q@ NPDP@P@^@d@@P@PzP@G@N@@$M= J@ @K(@K@N@5PP@v@@@RO@$@TO@! @PP @K@>L@L@N@ PP@P@.OL,@M@@PB@Q@?O@ (P@.@@JN@J@B@K,@@@ @DP"@DP@@$@P&@P(@ *@0@,@.@2@@$PP@PO@G@N@$M BPDP@@@@PP@ @@BPBP@PN@cP$PNP(@@@@@@@@@@@DP@@@@@@$P"P@BNPNP!(@@@@@00@ @@"@@$@DP@&@@(@*@,@.@0@2@@"P@PV@@@@P@@@@@PP@@@z@@@@ P@@>full_find_command_ symbol_tablep  error_table_ seg_not_foundnamedupsegknown"%bad_command_name(-dirseg02entlong57noentry:< no_ext_sym?Bexpand_pathname_EEJterm_no_clearMORhcs_initiateUWZmake_ptrU]`com_err_ccf suppress_namecimwB` fc_no_messagepV`sfc_print_messagewl`z$&&!&'&/&4&9&>&D&L&T&\&b&h&osymbtreeDdID~]PL/I 5"' *<uIYjrIIMultics PL/I Compiler, Release 22a, of March 10, 1977Martinson.SysMaint.aoptimize map0-%QiD~D>spec>online>mib072277>full_find_command_.pl1pl1info Dfull_find_command_B!`_ B!W4}<CO txSx/`z <;OPVjZZk*Z@kVj@kPZkZ+@eU*eU*eU*eU*eTobj_map $8u  find_command_error_ 12/19/78 1858.3re 12/19/78 1858.3 12096 TT/T TT#4^R^a^Bcommand_processor_Segment ^R^a^B not found.Entry point ^R^a^B not found in segment ^R^a^B.7P%@PP$P NP#@(@B@D@F@@@H@@R@B@T@H@V@PP@PX@Z@\@^@`@P@$PP@@P NPNP$@(@B@D@F@@@0P0@@d@B@f@P@h@P@Pj@@Pl@n@p@r@t@v@b@P@@B@D@F@x@PR@B@T@x@V@P@PX@~Z@z\@t^@t`@P@P@@find_command_error_ symbol_table7  error_table_ seg_not_foundnoentry! no_ext_sym$'com_err_**- suppress_name*04<#x &&#&)&/&6symbtreeBZBAK@b|PL/I *$ (:_GMW\GGMultics PL/I Compiler of October 21, 1974.Martinson.SysMaint.aoptimize map..B@ >spec>online>mib022175>find_command_error_.pl1pl1info Bfind_command_error_% OtPVjZZkZZ kUXVPRC9UYUpobj_map =_F