l BA~ll T16 ERROR  %;;~;5; 1;%;d5; 0w 1;;L;f|; b ;1;~> h;nD`D ( %7 zvrC  $C$ wH D PnD7 `D ~CH&f&M & &  wpC~B~fDD AC:  ? ILL CMD! ILL PAR! NON-QUIESCENnD`D ( %7 zvrC  $C$ wH D PnD7 `D ~C ; THE CALLING PROGRAM CAN PASS AN ; ARGUMENT TO THE QUEUED TASfo!to"B~nd;+ŀ~?| n *-el.;BE,I  5@=h;Cx;5@@wt ĕT ~~D7 7 7 aDc D   VEnEEE W,2 0!- )! vpDD NCS#  DV`D   D:W, ! 7!^ E8 K. RGSAVE = 1 ;REGISTER SAVE OPTION. 1 = SAVE ;REGISTERS, 0 = DON'T SA 3 DISPOS.S11 .TITLE DISPOS TRANSACTION DISPOSITION ;* * * ; ; NAME - DISPOS -TRANSACTION DISPOSITION ; ;* * * ; PURPOSE - DETERMINES THE PROCESSING REQUIRED FOR PRODUCT TRANS- ; FER TRANSACTIONS. A DELIVERY DOCUMENT MAY BE PREPARED LOCALLY ; OR THE TRANSACTION FORWARDED TO THE DATACENTER. ; ; ; REQUIREMENTS - ; 1. DETERMINE THE DISPOSITION OF PRODUCT TRANSFER TRANSACTIONS. ; THE FOLLING RULES ARE USED: ; ; VE 'EM. ; ; ***** NOTE: IF DPRTY = 0 OR ARG = 0, THEN THE CORRESPONDING ; ---- ARGUMENT SHOULD BE OMITTED FR~no%o&|;  \;=h; ~@;fx; f ĕ=h;; & 68w 5 W<:45:<A:p  &  HH:~EMM:SS MM/DD/YY EEEEEE &e I W, ! !T ~~D7 7 7 aDc D   VEnEEE W,2 0!- )!"OM THE CALLING LIST. .IFL DPRTY ; XXXXXXXX ;CREATE ASSEMBLY ERROR IF DPRTY ISNT#~o q o p (q p 6q Dq Rq 4p R Xp $,( &0  ~*A 0 [LC `0  5@.SH:(SH:h d Ho .1  @ L$LZZ(A9* ERROR 1     001P  . 7 5x7(N.0    5xH A. SEND TRANSACTION TO DATACENTER IF CUSTOMER RECORD ; INDICATES COD. SET DELIVERY DOCUMENT INDICATOR (DDI) IN ; TRANSACTION TO 1 . ; ; B. SEND TRANSACTION TO DATACENTER IF CUSTOMER RECORD NOT IN ; FILE OR EFFECTIVE DATA IS LESS THAN CURRENT DATE. SET ; DDI TO 2. ; ; C. PASS TRANSACTION TO DOCUMENT PREPERATION PROGRAM FOR ; CUSTOMER RECORD WITH UNEXPIRED EFFECTIVE DATA AND WHICH ; IS. @` 7-w7L  L. ~w\ h5x 8 p hr. pp5x5@5  &.  wEU E?&.D  5@55xw.j EW W +5x w (. EU /05x .&Z. U ^ ~w00 . 5x5 xw8w. w<7 7 5x5w\ ".(  7 hw& ht.N  5x5EU"(.t  8U  7 v5. (5xw R7 . L5x^U NU0$. < 7 } 55n}t. W:0W: 0W: .2͕0pw5@x -.X<  eX-TP2.~ww EUwf .dEW7 T Fp. 8w8 %\r  &.  L4. 7 7 55@".< NOT MARKED COD. IF DELIVERY DOCUMENT IS PREPARED SEND ; COPY OF TRANSACTION TO DC WITH DDI SET TO ZERO(0). ; ; D. PASS ANY TRANSACTION RECEIVED WITH THE DDI SET TO 1 OR 2 ; TO THE DC. THIS WOULD BE A MANUAL TRANSACTION. ; ; ; ; 2. ASSIGN INVOICE NUMBER TO ANY TRANSACTION WHICH HAS AN ; INVOICE NUMBER OF ZERO. THE INVOICE NUMBER COUNTER (INVSEQ) ; IS A SYSTEM VARIABLE. THE NUMBER IS SEQUENTIALLY ASSIGNED ; FROM 1= ;!;;;;;; E ;;;; ^;3;3~C; t}h;f|;  3;w >XXXXX SXXXXX @HGHNHUH\Hw  w hb f~H w| zLw  7 \?    Gh~Gxf&f&0  4@ ; .ENDC ; $ABMES = 3 ; THREE ABORT MESSAGE BUFFERS ABRT .&aS@@S@9T}@.>Ha HX8$Xfxft(t] prp&&& ???  zh.z%xwPx zy.+7 > zy zy">& w 7 :.> 9T}zy.)> wTwR7 F_ >KTW.87464 6*"7 '.^& & &  wr>1 >r-.u~  u. - TO 99,999 . IT RESETS TO ONE. ; ; ; 3. MAINTAIN A QUEUE (QUOTIN) FOR COPIES OF ALL TRANSACTIONS ; SENT TO THE DC. THE DDI IS SET TO FIVE. IN THE EVENT OF A ; DC FAILURE THE TRANSACTIONS IN THE QUEUE ARE GIVEN TO THE ; DOCUMENT PREPERATION PROGRAM. EACH INVOICE PREPARED BY THE ; DC IS ROUTED TO DISPOS SO THAT THE TRANSACTION COPY CAN BE ; REMOVED FROM THE QUE. THE DC FAILURE IS INDICATED BY SYDDCF ; OR SYDDCL BEING SET TO ONEzyM. w|ҕ %= w rS"q.& > wD7 >OTp.L > w"w q > w >9T}.fazy@;}FH"YH"]&r@(:fah3("Jddr r.%xw\v&xzyzy"zy(v.>R~A&>7&7vbzy"v.d R7  & & &  ?dzy(r 8-.iT]@ @S@@.[qp@v#@zy@r@(n!.+2hcTGhL!iT]hlTyhPpTyhsT~h !sTh:!).2).>\&>t hh hi PQ 89    . . ; 4. READ IN THE CUSTOMER RECORD FROM THE CUSTOMER FILE (CUS) ; AND THE TERMINAL INVOICE DESCRIPTOR (SECOND MEMBER OF TRM) ; FOR THE DOCUMENT PREPERATION. THE CUST. RECORD IS LOCATED ; USING THE CUST. NO. IN THE TRANSACTION. THE TERMINAL INVOICE ; DATA IS LOCATED USING THE ROUTING CODE OF THE TERMINAL. ; ; 5. THE ONLY TRANSACTIONS PROCESSED ARE: ; ; FORMAT 060 - TRUCK LOADING, TRUCK FUELING ; FORMAT 070 - T TAPE NUMBERS DO NOT MATCH. TAPE NYUMBER =.  .6 JULIAN DATES DO NOT MATCH JULIAN .DATE ON TAPE =.  FATAL DISK ERs.ROR.  NEW ROS NEEDED? 5 ENTERn.B TAPE NUMBER AND JULIAN DATE OF NEW ROhS TAPE.  rc.r8 MOUNT NEW ROS TAPE,POSITION AT BO.T AND PLACE ON LINE.  WRITE RING IS INSTALLED. r - NOT AT BOT.  NOT ON LINE.  . RESPOND OK WHEN READY  CHECKJ-SUM ERROR ON MT. # ...   (  t .T l %YEx %NOp? Pj.z   8.}V/ V.  : V % N% FT   .<  :6. V    *V( 9.8  % % -.^V( (Vp.  f % N  .zw% nw_ p"v#&.ՋAp  rrՋr r #  .~& 6  %   [qp$.  6   .B7  >v.hV %a D V.F % %  .e /, RUCK UNLOADING ; FORMAT 030 - BULK DISPOSALS ; ; ; ; ; 6. IN THE EVENT OF A DC FAILURE AN ATTEMPT IS MADE TO PREPARE ; ALL DOCUMENTS IN THE HUB. IF DDI = 1 OR 2 IT IS SET TO 5 ; AND PASSED TO THE DOCUMENT PREPERATION PROGRAM. ; ; 7. AN ERROR IN PROCESSING RESULTS IN THE TRANSACTION BEING ; RETURNED TO THE TERMINAL AND A COPY SENT TO THE HUB LOG. ; ; 8. A COPY OF THE PRODUCTS TOTAL TABLE IS PLACED AT THE END OF ; wh  .V 6  |h0% y.| > 7 D%7.w N %n6  -r  N.rRNIYV\\q Vz. XT   % %   . 8 20 .: -w \B \A.`  6 .  n     .  6%OK  tTP.K[V^^ZV V.   $B 0  . " .DV  5V( ;.j % %  Z.     F.   m6 &{. ( %.Kqg@ @ @.s@s@&;}@&G}@s'Z@.w'p@,@:Z@S@@S@v.Sy@9T}@.JNEW=.  LOGICAL FUNCTION 3, C.pLOSED.  SYSTEM ACTIVITY HALTED. . NO CELLS AVAILABLE. NO DATA )IN RECORD. ENTER TAPE #: - t )DISMOUNT LOGICAL FUNCTION 1. 3 -WRONG TAPE #. TERMINAL . &&INVALID RECORD  :$: [X   $.$NN N NN$&N J pf$p~@{~ d$ ( .0!!! HU B01 # . 000 3 .3C HUB OPERATION RESTORED. D.! LAST SEQUENCE NUMBERS FOLLOW: RECEIV GED= MM. TRANSMITTED= _q-_. %x@'x xzylTy.7 ;     zyX. Z   w D.w  0  .T "  w I zyZ.w w 7 n7 p7 {.Bv 0  +`\.h  F @  H6 0.-*   0 .   %YE(8%NO . jw  V Հ  _.7  > b%NO %YE zyh.& " <  6 7 @:Y&lTy.L 6% 07 *  %.r7w w .   _.%  $wE0?4lTy . w6  #%  ` v#<&  x(6((((<k. (6(((( <*((((d!"$rJ("   .((( ( d!"$rJ(" .$7 ~   7 h [qp.Jw \p 0  >7 @Y \ p.p D<83w va.  *7'7V (Vl.:: 62 % iT].,K@@ @. @{@{@{@{ޔ@.{@&+@&0@&1@s'Z@}.w'p@R0@R0@R0@R1@).S@@S@[qp@v#@w4@&z@(,Khr W    07CR* &+,*,9 -) CUSTOMER NOT ON FILE 7  .  ..,.R %x (xO,xw ]w w #w x. S{ޔS{ޔ S"{ޔ#w =w Yw }(S{ޔ=S{ޔYS\"w w w *{ޔ S{ޔS{ޔR$ Y w a,S{ޔ{ޔY{ޔ{ޔ$w w .S@{ޔS@{ޔS@n!w ;w h.{ޔ! S@{ޔ;S@JUw w *{ޔU S@ {ޔS@*w w *{ޔ S@ {ޔS@>w dw *{ޔ S@ {ޔdS@/Rw w *{ޔ S@ {ޔS@bfw  w `*{ޔ S@ {ޔ S@.z3\7 7 0z{ޔ3 {ޔ\R00q.u ww ^> s'Z$w Ew 0*S@ &0 {ޔES@R00(@w w *{ޔ@ S@ R0 {ޔS@<(w ,6w ,R0({ޔ S@R0,{ޔ64;w 7*S@R04{ޔ;S@R07 w w *{ޔ S@ R0{ޔ[.<>8-w R0<>( $B68w 4:w 2<w *68 4: 2<9.^8wb-,-< w-<)S@8{ޔ.  w -, 5.@`@wp7nwrw K@@(S@?w C,R0?{ޔ S@R0C{ޔv,w   0w Yww y.{w4 S@{ޔY&S@ w w T,{{ޔ S@{{ޔ%w $*S@{%{ޔS@{&w w *{ޔ S@ {{ޔS@8w *Uw .,{{ޔ S@{*{ޔUJ-X w >w *S@{-{ޔX{>S@i`>Yw Uw Us,{>{ޔY{US@{UE$vw xlw lw dt,{ޔ {lS@{l{ޔ$w w Pw u,{ S@{{ޔ{1,w *S@{{ޔ{,S@I w *#w ,{{ޔ  S@{*{ޔ#C=w (S@{C{ޔ=S@{(q :-0w w ,{ޔq R0 {ޔR0"S@<&(,w NmGI((, SNR0GR0I& LRis{.R0L R0R{ޔi{ޔs{ޔ{&>.{ޔ {ޔ{ޔ{ޔ{ޔ.\NPSY_FwN PSY_.7  ^w .Nxp..k ww2 s'Z .  w  w w (S@&0S@&0(S@. $ ew $S@t.w w w S@(S@.@w w u" $'.fw tw bw ,h $S@&,X. R4X ~wM {(R0|.c7 f XVNI {$(s'Z.ċĥww wRe (&1j.BC-  mB m R0d.$$e@BC- mB E &1@R0.Jm Ww'p .pwFwBhw w PfS@".w  <@w 4 zS@ S@/.6w ,w8   S@.w.e ~e)~.e~wlѕ ѕ .. ѕv w *NG* {ޔS@*{ޔ$N(R0G.TR%wZ 6 7  w   R0^.z ċ$SR1{ $s'Z.ĥww w ߕ'S@&1R1% 0000000 z, w  w 0w .v# SS "u. X ~ w  `{  ".. : AY%%ww }[qp( .T w %j؇j`  4.z B`  F@w *@>w  & (.  '7  [qp"v#v.   Dw v. Eppv . mB m5e5EvU d.8 wv jwC B eB emPB !.^ mHNL B@ [qp"v#[.  v   'tL~  7.  '   ' [qp(. t a DCԥ0 ~0. @AХ D~e '(:(z((v#[qpm. ()$)''5(t(((()''0(n(((()l.B ''+(h(((( )''&(b(((()''!(H.h \(((((''(V(((((''(P(((]. ((''(J(|(((('' (D(u(((('d. '(>(n((((''(8(g(((('''2(. `((((''',(Y(((('''&(R(((. (''' (K(w((('''(D(o(((''.& '(=(g(x((''' (6(`(p(('''(/(.L X(h(}('''(((P(_(t(''''!(H(W(k(.r ''''(@(O(b(''''(8(F(Z('''. ' (0(>(Q(''''(((6(H(''''' (?. -(?('''''(%(6('''''((-(}'E. ''''(($(y'''''( ((v''''. ''((r''''''' (o'|''''''.0 (k'x'''''''h't'''''''d'p'.V ''''''a'l''''''']'h'}'''.| '''Z'd'x''''''V'`'s''''''. S'\'n''''''O'X'i'}'''''L'T'd'. w'''''H'P'_'q'''''E'L'['k'z''.. ''A'H'V'e's''''>'D'Q'_'k'x'~'':'/.@'L'Y'd'p'u'{'6'<'G'S']'h'm's'3'8'B'M's.:V'`'d'j'/'4'='F'O'X'\'a','0'8'@'H'P'S'.`X'(','3':'A'H'K'O'%'('.'4':'@'C'F'!'$'H.)'.'3'8':'='' '$'(','0'2'4''''"'%'4.(')'+'''''' '!'"'''''''''.'''''''' ' ' ' ' '''' '''$.'''&&'''&&&&&''&&&&).&&&&&&&&&&&&&&&&&&&-.D&&&&&&&&&&&&&&&&&&&.j&&&&&&&&&&&&&&&&&&&J.&&&&&&&&&&&&&&&&&&&.&&&&&&&&&&&&&&&&&&&.&&&&&&&&&&w&&&&&&&w&n&u.&&&&&v&o&e&&&&&&n&f&\&&&&.(&{&f&^&S&&&&&t&^&U&J&&&&&m&V&-.NM&@&&&&~&f&N&D&7&&&&x&_&F&<&.&&(.t&&r&X&>&3&%&&&&l&Q&5&+&&&&&f&.J&-&"&&&&&`&C&%&& &&&{&Z&;&&&t.&&&v&T&4&&&%&&q&N&-& &&%&&.l&G&&&&%%&&g&A&&%%%&&b&;&&. %%%&&]&5&&%%%&~&X&/& &%%%.2&z&S&)&&%%%&v&N&#&%%%%&r&I&.X&%%%%&n&D&&%%%%~&j&?&&%%=.~%%{&f&:& &%%%%w&b&5&&%%%%t&4.^&0&%%%%x%p&Z&+&%%%%o%m&V&&&%).%%%f%i&R&!&%%%v%]%f&N&&%%%n%.S%b&K&&%%y%e%J%_&G&&%%q%]%A%[&C&U. &%%i%T%8%X&?&&%%a%K%/%U&;&&%%.<Y%C%&%Q&7&%%%P%:%%N&3&%%%H%1%%B.bJ&/&%%{%@%)% %G&+&%%s%8% %%C&'&%R.%l%/%%$@&#&%%e%'%%$<& &%%^%%U.%$9&&%%W%%$$6&&%%P%%$$2&H.&%%H%%$$/&&%%A%$$$+& &%~%.:%$$$(&&%x%3%$$$$&&%q%,%$$. $!&&%k%$%$$$&%%e%%$$$&%.F%_%%$$$&%%Y%%$$$&%%S%%.l$$v$&%%M%%$$m$ &%%F%$$$d$. &%%@%$$$[$&%%:%$${$Q$&%%.4%$$r$H$%%%.%$$j$?$%%%(%$${.a$6$%%}%"%$z$X$,$%%x%%$q$P$#$%k.%s%%$i$G$$%%n%%$a$>$$%%i% %n.*$X$5$$%%d%%$P$-$#%%_%$$H$$$_.P#%%Z%$$?$$#%%U%$$7$$#%%vP%$$/$ $#ADD(B CU(U^?{kf^A &&^f,^y)'|Q^ч,K^!%7!s^x\q!^a9Xn\qp^͏Q W^iswSH:^QV+^ $Da ͋,L  B8w&B ` % & }&*C$$Βe E%>k  aʋaՀ$ & * P$ ΋Ί   ΋   d Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋U@ U &  B" .&0 M &0 & M 0 &I REMOVE FOR SYSTEM TEST .PAGE ; ; GET MESSAGE FROM QUE ; TSKRUN DISR12 ; CHECK IF TASK CAN RUN CLR DISL20+MSPSVC ;CLEAR FOR FIRST CALL FILEC MSDT,DISL20,R0,#0,#0,DISR10 ; GET A MESSAGE TO SERVICE ; ; IF QUE EMPTY - TO EXIT .IF NE,.GULF ; ; CHECK ACTION CODE FOR DC MSG ; CMPB MESG+HDRACT+HDRLAC-1,#'B ; IS MSG FROM DC(ACTION CODE) LREADY DEFINED  FILE TYPE FULL  FILE NOT DEFINED  !FILE MANAG. DISK ERR } .*.TSTAT NOT FOUND IN CORLOD  ny np e TASK # NN  U @     @z 8.D X E C L P R B \D& T&\D &" $l. ..$ $` 7  ". .     wc.".Fx  rwn G.l h)x~0  ,. Hw*Pw !.    $. NwB w^ t  2  & .w EU UEEo.*   w &m F LFCR ; / LEAB TTYLINASOER PNO- R ROER/ IISC.A ; 607+O&KNAS,T60.+/8NOSKTA E YT.B / K AS/T IISC.A ; LFCRBL: 40SYDI N VE.E B EO; CR E YT.B T PUUT OOR F ; L ERTR B LK.B: 33SXDI ERFFBU ; L RMER B LK.B TY TSG M; 0 D OR.W R ROER; 1 L+ERTRL+RMER D OR.W: 32SXDI TY TOR FSTLIG MSR ROER; 2 X3IS,DY1TT STYLTT: 30SXDI TADAC SAANTRF M JNE DISD10 ; YES - CHECK PENDING QUE .ENDC ; ; GET TERMINAL PERSONALITY TABLE ; DISA15: MOVB MESG2+HDRL+SXT3,DISX13 ; SAVE DDI FROM MSG CNXRTE MESG2+HDRFR,DISX14,DISF10 ; CONVERT ROUTING CODE ; ; LOCATOR,ABORT ON ERROR CLR DISL30+FLPSVC ;CLEAR FOR FIRST CALL FILEC FLSNT,DISL30,R0,#0,#1,DISF10 ; GET PERS. TBL. ; & 0#e~{.  ) @.!7$  - $t."   w7 7 7 7 N (NZ.H7 4,  ѕ0 .n~  &,~e ~.&  p       w E1 7&œ~Z& ‹ & 5@& L Œ Œ$Œ A [`BAW,2 8S2G~R3 脷UB*"{7w @ŝ*F{ŝwt4 yew E E Ev ~.^̡JB57 OTHNGLEX MA; MLRR-EMLPITY = SLANTR E AGSSMER ROERF OTHNGLE; 0 Y1IS-D11SYDI = L RMER ; . = 11SYDI N VE.E ; F LFCR / Y.TRENL UAAN MAST MIUBES RN,IOCTSAANTRN IORRR/E IISC.A E PC,S607+O&KNAS,T60.+/8NOSKTA E YT.B / K AS/T IISC.A ; LFCRBL: 10SYDI E AGSSMER ROER ; ; ESAGSSMER ROER ; ; BEUM NSTCU; 0 0,0,0, E YT.B: 41SXDI O NRMTE; 0 0,0,0, E YT.BX ;ABORT ON ERROR MOVEA FILG1,DISW15,HRF0SZ ; TERMINAL DESCRIPTOR MOVEA FILG2,DISW16,HRF0SZ ; & INVOICE DATA ; ; ; GET CUSTOMER FILE ; DISA20: CLR DISL10+FLPSVC ; CLEAR FOR FIRST CALL .IF NE,.CITGO MOVEA MESG2+HDRL+SXT2+3,DISX40,4 ; TERM NO MOVEA MESG2+HDRL+SXT4+3,DISX41,4 ; AND CUST NO MOV #DISX40,DISL10+FLPLOC ; ADDR OF LOCATOR .ENDC FILEC FLSNT, FORMAT ERROR.  DATE -  T.:IME - ! DATE: TIME: : `: < f.f FATAL SCHEDULING ERROR.  SE.RVICE INPUT TAPES NOW.  FATAL MT .ERROR. # FULL SYSTEM OPERATION RESTORED. D ' CONFIRM DATE CHANGE 'OK'. t .JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC ( 44B VBT8.T%xwx zy.z w8wFWzysTx. V  ;  .4 N rp:  8`.P T7%*"zyzyzy$zyR.7 & & & ($zy zyzy(rM.8  $   BzyI.^    7   zyM. : 40SXDI ACNSRA TOMFR# V IN; 0 D2OR.W: 28SXDI L VAIETRRER FOD IERADHE& &&; D VIRT: 27SXDI O R &SR A DECON IOCT A A.4; C2MATR: 26SXDI DECOG INUTROB HU; TEBRHU: 25SXDI ?? ? D IERADHET EPRCTEIN; D TIIN: 24SXDI E OD CONTIACL RMTE; C1MATR: 23SXDI CHITSWE OD CTEOU ROR FMPTE; 3 W LK.B: 22SXDI RYNABIN INOO LIFO; 0 D OR.W: 21SXDI SDCCM RO FCEOINV IOFH GTEN;L .SH:(SH:h d Ho .1  @ L$LZZ(A9* ERROR 1     001P  . 7 5x7(N.0    5xH.V w)B:7 ZV ( .|  vxfhߕQh7. ѕߕ ѕ ߕ ѕ ננ(. Õ נ)Õ ߐѐ~ߕ ѕ ߕS. ѕ ߕ ѕ ߕ8ɗ@. @ɗ@ѕѕ n%.: &L wexete  L.` _Lw001J5% 7. xw5xyEE . @` 7-w7L  L. ~w\ h5x 8 p hr. pp5x5@5  &.  wEU E?&.D  5@55xw.j EW W +5x w (. EU /05x .&Z. U ^ ~w00 . 5x5 xw8w. w<7 7 5x5w\ ".(  7 hw& ht.N  5x5EU"(.t  8U  7 v5. (5xw R7 . L5x^U NU0$. < 7 } 55n}t. W:0W: 0W: .2͕0pw5@x -.X<  eX-TP2.~ww EUwf .dEW7 T Fp. 8w8 %\r  &.  L4. 7 7 55@".<J 5@ J.bU~5 ~.x V 7 J& f&=(.kS 6 E  ks.ae~W!Wqek7 ko.͕0U͕1   5Z   . 5xw5 wD&,F  5x .iT]lTy@pTy@[qp@.v#@zy@r@(jcTGhH5&iT]hsT~hsTh6.   77 v#[qpm.&  |<^8HP"<^8 H"$P.L 7 %.rZ  t G  Z.d\11  .133 1 13 w.\q!@ @S@@I.cTG@iT]@lTy@pTy@sT~@}.sT@[qp@v#@zy@z@.z@;}FH YH r@(4d 5b.+.%x@mx"lTy. PY ! T" x"%YE":.%NO" -- v t? j:.: `5 V0  7 $ D'e.` L:-! ! "%FRD" @.%HA6" F   ,  ! !. 7w - ! !  -.ߕ ) & & & azzyzj.  1 77 $zyzy zy&zy9.  z177" zyzyzy"zy_.D& & &  ߕqzyr}.j 06  @]$ zzyzy$rK.  0d.zy zyzyzy&zy.w L  0_S@$zy.  0s.zyzyzyzy&zy.  0 * 7  ze.(%tf 6  sT~.N 0  3 .t  7  % . 6 6   sT .7 |xsN# >$N#(iT]O. j /w F  w . /illhdN .2z#9 F% >% 6 * z#M.XN/  . lTylTylTy pTy"pTy.~x @w   .w . %  .~wdecTG.t pk (. N# D% N#iT]c.<% 4wL ~.r .<9<< 84N# &N#f.b  % % w &.) iT] . %<  .7 . 9% PcTG5.7  +7  %  -.7  ,.& 7 e . vw   x8 ".F v%* rw@ `C %.l %  "-i $.  %$  ,%X cTG. ,7   lTy lTypTy8.7&XV RM.svv rnv  .*VN#    ~ N#iT]K.P V .v N# % w%N#iT]w. w + 1 1 7 sT~.3 ~|xs  (. N# L% N#iT]c. Dw\% 8wP +  wX.4 <  /22  .Z  .*N# % wN#iT]s. % w + ` w.  M . N# x% pw% d N#iT]. w| *L  wd ~:8. 4/UXXT+ .> PN# % w% wN# iT].d >* "  x. N#  *@7*(N# iT] "@&zy. @@ @  7*zy lTyzy"zy( .  & & &   )  rD `   . 6   )7 w @ O@$.4 : l)N7 ew 7t NS@ $.Z p7$ & 0&7T7 p. w w  .  S@ X )   . 6 rniN# $N#(iT]O. ` (  #DB>. 9_bb ^ZN# &N#f.<  %  P(  iT] .b  ~   . N# N# N# iT]&N#.  '%  '6 E iT] .  Xv  sT~. TON# F '640N#iT]{. +QTT PLw .F N# %  D' N#iT].l N# N#"iT][. '6   $sT~. N# ~ % vN#iT]g.  &d  PNz.JEknn jf5 .*N# %  d& N# iT].P ~N# e$N#(iT]O.v 6 7 D n "sT~. 1w00w.w . pl5  ..gN# ^ % Z ~%OKN# iT].:84/UXX   .4TPN#  V%5:N#iT]s.Z 5( 5.  B%<1 3 1 .N# N$N#(iT]O.  $6 7 v.rmd# d-% Td#iT]e. $~z:61d# $d#(iT]9.> ( ^$ % rd.dL7 f2.N# J$N#(iT]O.  $7 < 4 7 7 ,zy D. .d# ljfa'd# iT]&j.N# %^6 N#iT]g."3 V% N% > A.H^#7 XRw a.  a..nN#  #%" <N#iT]w.< 81 . "% 6.d#  "d#iT]].%  "w a. ^ 4 a.].w - v  "-., . pՋAp #Qv#(#.RrrՋr r ~& ! $[qp .xI6  @% 8  (  r B` v# [qp   @@ N#xN# z#z#d#d# ##z#jz#J ## #.#6 FB}.$=cffb^N#e(N#b.6$ % % N L iT] .\$$ mL$ > (A $$.$$ %   $"$$@$$&$  $$%%6%X%l%%%%b--".%% 6% X%l%%%%b--c$--.:.f..... /S.--. :. f..... /)$./L/l// ENTER DEVICE NUMBER './L/l/ /%P.% WRITE RING INSTALLED.  ILLEG.@%AL FORMAT OR CHARACTER  ENTER COM f%MAND 7 l%X'l% UNIT 2 ALREADY ASSIGNED.  %8.%- MAG TAPE DUMP .% RECORD  %'% EOF AFTER RECORDS.  % %f b-Z.b-D 0 2 4 .- 6 10 12 14 16 \.- MT CONTROL DESIRED?  SYSTEM HALT4- OR FREE DESIRED? g -.-# LOGICAL FUNCTION TAPE FAILURE. ; .  ...& LOGICAL FUNCTION 3, TAPE IS CLOSE.6.D. ' DISMOUNT TAPE ON LOGICAL FUNC\.TION .  f.U.f.8 MOUNT TAPE , JULIAN DATE , ON.. LOGICAL FUNCTION . , REPLY 'OK' !..WHEN MOUNTED, ON LINE & AT BOT N..O WRITE RING  NOT AT BOT.  N.OT ON LINE.   /) / SYSTEM OPERATION RESTORED.  ./../ SYSTEM ACTIVITY HALTED.  REST/TART FROM MT OR DISK.  l/N)l/ RESTART FROM MT ONLY.  % /,./6 "0 .w @q &@o./   w l@K @&./    v#(sT:.0 P  B f% [qp.&0 .77 lw $%\P$<.L0%TN6 .r0  N#  7sT~N#iT]1.0N#  $N#(iT].0  5 5.0 t5 b Z ~%1. 1OK D h%CL %UN%@.01AL %SP|%%PRto_.V14N#  >N# N# iT] N#$iT].|1 &%UN<ww|,,.1-  -4.1w $#w $#-7  "$ #$#.1N# X Pw |N# iT].27 vw #% 4w,wv  #%7.:2 $ҥ, %w w7w 5 $.`2$Tw%w$w.27w  4w7 % $ =.2 N#  "N#&iT]d.2'% x% p% h %.2   0 M sT~.3>w.w #%w tw Y #%& (%.D3% xX-r4.J E % .j3>Ξw %, 47 $ v#%-.3  Е f ~ Е .3 " T eЕ  [qp.3 %X (  4.4     : v#([qpK.(4 f b E < R M.N40 ( > :  2  Е .t4 %Ee0 *46 6 6 ߕ  "za    : v#([qpK.4 f b E < R ].>40 ( > :  2  Е .d4 %Ee0 *46 6 6 ߕ  "za.f,@@ @v. @ @s@s@s'Z@.w'p@S@@S@9T}@2!I~>>`.>%xw7 7 Mxzyzy.d wwe B7 6~,.$ w^ww s'Z).bw g : e@ e@MS@bS@g@.,"&ee w w  & .Re0w,w w f w (S@  S@ f " (S@B.Q WO @@t!@^.""@ N@y@y@M:@:.hfp@[g4@imR@m@[qj@.z@r@(Q hH,h0]&\gh4:(PQ Xh4:E.w  e* Un[g4.&F1 P  w .  Fm Lhfp.  $50  !wY.&^!w %xU  xa.Lw< E@U w  [qj,.r%xU5 *5 gנ@  xm.w*,憲 5E!.>  \:2נI.5 .E cE@U .  E E  E w imR.0B w22נw.VU E55E .|E@ w$U M:}.%U%xUE w xc.U w5 E E@ . 5 " w^נM:M:.U Ew*נU %x) (xO.:E  5'R.` ZM5 E!.!>ע%ע. wEA "[qj.  UP 6n imR. U $`U_.@  EAU@.E@E@ ߕ.D   5S z}.j%xE@E@ x&M:.U |%xE@E@! xc. ! ! $.E rrr Wt  .e*pe & & & y$m,(- /*ryt!y"yL>/ 5.yO > y Nyy.b-<> E?6  e$""|.@ 5?--y O ( N. U>  ht!t!$.!ss@s@s'Z@K.w'p@S@@S@S#@S#@.S#@Sy@9T}@N.>ߕ %x 2zx"z).d@w wy&zy zyzy$zy[. 8o.m5 7 h. 8 7 N C . (zy  8 . " wt Od (sy.B e @ 7   w7 dzy<.h XS wwBs'Z\. !f  wE7! s.   wp ew'pf. wdw *w d Urw.w   S# *Sd &S. d \e 7f(TmN$J Fj d {.& 7 . w3. 9T}{.L . w- m-. 9T}.r 79J-V.  ݆w|  u~$. w Pw d e|7:e7*w  Sd |. ȕ7 hw (b]w sS#. f&f&M S@fk0 8 n8 H F$H V V d (d c DD $@'D090 ??? TULSA .NCvD 4Q.4Z| ni.n01050700edddkedd d.FIRSTLAST !!! HUB01 TULSA 000 3 .NB020 ! .!!! HUB01 HUB01 000 3 .PB071   . 3 f   <&  f  $ &<S.  ; : `X!!" ; : ` XF! HUB01  S.S 000 3 .3C k.y *** TERMINAL SUMMARY *** . DATE = - - . TIME = TERM ID = . FOLIO = INPUT NO = OUL.TPUT NO = EOD DAY = EOD(JU.7LN) = EOD TIME = EOM DA9]Y =  ng.nN D 6!.N  D$ &68. 8 4;:#C. 8 4; :&#(.6H`[^k\}*6 H`[^ k"\(}.??? HU  p+B01 HUB01 000 1 .NBEOD ERROR #  **&n `&n \@  .iT]@ @S@@.[qp@v#@zy@r@(t!.+2hcTGhR!iT]hlTyhPpTyhsT~h!sTh@!.2).>\&>t hh hi PQ 89    . V (V 6  66(6    .,f",$f&(R. "8r5 ENTER TAPE NU. " 8 rs.>MBER AND JULIAN DATE OF RECOVERY TAPE  d r fp#f FORMAT OR DATA ERROR  T# FATAL MAG TAPE ERROR  8.- TAPE NUMBERS DO NOT MATCH. TAPE NYUMBER =.  .6 JULIAN DATES DO NOT MATCH JULIAN .DATE ON TAPE =.  FATAL DISK ERs.ROR.  NEW ROS NEEDED? 5 ENTERn.B TAPE NUMBER AND JULIAN DATE OF NEW ROhS TAPE.  rc.r8 MOUNT NEW ROS TAPE, POSITION AT B0.OT AND PLACE ON-LINE  WRITE RING IS INSTALLED. r - NOT AT BOT.  NOT ON LINE.  . RESPOND OK WHEN READY  CHECKJ-SUM ERROR ON MT. # ...   &  r .T j %YEx %NOp? Np.z   6.}V/ V.  8 V % N% FT   .<  :6. V    *V( 9.8  % % -.^V( (Vp.  d % P  .zw% nw_ p"v#&.ՋAp  rrՋr r #  .~& 6  %   [qp$.  6   .B7  =q.hV %` E V.E % %  .e / 7 x".>61.7+   @.%:    ".&      %  .L  - %  T.r7 tlgd7a.  " 7 e.84*w B  $B.f7 ^0.*%5V8 &Vr. 8 40   %   .0% wh  .V 6  |j0% 6.| > 7 F%7.w N %n6  - N.tTPK[V^^  V|.ZV   " % %   . : 40 .: -w \B  \G.` 6 .  n     . 6%OK" vVRz.M]V``\X &V( 9.  &D 2. $ .DV    V& ?.j % %  .     .   m8 $.* % .   77"v#[qpq.(  |<^8HP"<^8H "P.N 7 %U.tb  t  b f.d\11  .133 1 13 w..w`pwTb H  b X. ww4 w13.2ww 1wp0.X ww1w  w.~ w%/ t4'.tttt 4 4 [.4R4 Fe&e b.9w /% /.w  %  %.<wb  w" b `.b w%=%9%5Lr7.0  %%M.1 1 3  D.l ll3 5@.5 @b *  zy b .  % %%r/.Fw5 w%w.lwe e % wu.5  b wZ b R.w.. b 6   &: "  b : .* 0 0 g l n n p ̋g l n n p )P 6   L r W.r b o b \. `%b % b P. % a. %  % . !6  WpeP7w  P.0!6  pe  (v#>&V! dA ~v  [qpR FOR FIRST CALL FILEC MSAT,DISL20,R0,#0,#0,DISF20 ; FORM TYPE I ; DISC25: ADD #TYPIML,DISC27 ; INCREASE PTR BY TYPE I LENG SUB #TYPIML,DISX20 ; IS THIS END OF DATA ? JSR R5,MOVA ;MOVE DISC27: .WORD 0 ; TYPE II .WORD MESG3 ; DATA .WORD TYP2ML-HRF4SZ ; FILEC MSAT,DISL20,R0,#0,#2,DISF20 ; FORM TYPE II DISC28: FILEC Vw ,V YS,.@: "9T}.ww% wv w\ K."7  g"&2=>>`.>%xw 7 [xzyzy.d2 ww~ 2 j  t j.d . ~. X. 2 f "!!! HUB01 1 .3A  . .NA TULSA C    . .3A??? HUB01 .4A&&& y.& TASK 25 ERROR IN TRANSACTION, %L RESUBMIT AS MANUAL ENTRY. v j rj x wlx  P    . TASK 25 ERROR - NO PERSONALITY TABLE  0.0 TASK 25 NO CELLS AVAILABLE ;V r O$@Mt$8(.'|Q@@ @~. @s@s'Z@w'p@S@_.S#@S#@S#@S#@9T}@.L.>ߕ %x `7 Zzx.dZ . P7 J nwzy(zy.{ www <    |W.E!c< DDid ".%  W"W" $~( B~  .7c     " $$$. bb he e# C .(eccccB e  bK ".ND he  e   %.tR xwWtC7M.w ee~C%  $.7w ee~C &. 7w ee~ĝ  . : ! ׭/  w( 7z (z=.2 7| w  7w 7"|S#"S#.X w e~w S#"S#$c.~ www ~w S   9T} S#"~(S.@ U7 \Q w@   9T}7.t9 w\w w8 9T}"S#$}.^w Zw w WBѕ%"ZvZS# w . 3ɕC3RWA> 6 ѕ.< 4ɕA1,ѕ3ɕA3h  .b ѕ ѕ ѕ ѕ ɕw  S#" a.  w7 pw @ U  9T}S"@ H. U wx ' 9T}. wv?~?y?t o &   w: 9T} $ j$$ 2 2 @ L(@  @@N_ Np$p~@~d.dJBNCCBHAJB3CJCTULSA HUB01 060 060 010 y.070 030 00000000 (((QFA &QFA  F F *.* .P J` 0J ` (.vp gZZKN` M*p  gZZKN$` &.ZN:R` * ZN: "R(` .k`TTrY%"k TTr Y"^.j d d xz  d.j d  d xz & (d.` J??? HUB01 HUB01 000 3  `  J .4.HAFORMAT MSN; FROM: ; HIGH# =.Z ; CURR# = ??? HUB01 HUB01 000 3. .HAMSG SEQ# ; FROM: ; DATEs. INSERTED: ; TIME INSERTED:  . FORMAT ERROR # xJf!&J(fL.*nFxP},^** nFxP} ,"(^.5>bP:u* 5 >bP$:&u.>Rpd:fRhT:/*Rpd:fRh T(:H.ddRfThu:pR*d R fThu:"p$R.  .dBgVno2v^o.dB gVno2$v&^^.z,~>N :d:.z,~>N : d&(:.RfR&R fR ".   $.8y $h.^J  &S.#)#  )&%.//"(.5;s5";((Aq AI.f,@@ @v. @ @s@s@s'Z@.w'p@S@@S@9T}@2!I~>>`.>%xw7 F:xzyzy.d5 ww  e B7  $(s'ZN.www w  S@$S@&.,  e e@"ee .R w w e0w,w    xt z w  t w  ,S@t z S@ t S@ . 3jw w p b" S@  S@"p$ .N%H n"9T}#.w.r n y $9T}.ww2ߕ w  p  z$S@& (p .(w .w  .ZU1&S@  S@ (k.N ww ¬(9T}&.teF~¥eœl J" .$  L L= $  L$L L  Lp.p PRODUCT TOTALS FO+.R TODAY NO. CODE NAME GROZ.SS NET . f. ?.. .T .z . . . . 4.8 .^ . . . v. P. ).B .h . % W .TASK NO. 41 ERROR. TERMINAL NOT IDENTI.FIABLE. ??? &&& HUB01 .3 C F 4 $4 B B P .(P y ln$lz@ zW.\qps@S@@S@.9T}@2F>>`.>%xwwS"xzyzy$zyg.dnpn%0dw.7 bVQ w- 8wp;9T}. & & &  ߕ(zyr ' zS$$($.&& @s@x"g'@.a' @d'}@s'Z@w'p@S@@.S@S#@S#@S#@S#@.9T}@X> HY HX8$Xfxft(t] prpL ~L  ~I$@3 8' TULSA !!! ??? .3C  .  "  8  8  V .V P  P2 F 0 &  P   2 "F (0 i.| D . B ( < * > , @ _*D  .  B ( < * > ", $@ . 4 H $ t & $ *4 H $  t &  ($ . t P } A*  t P } &(. g+8 gH& g8 "$g.  yP  ^* yP  (^5.: }P D ^ *} P D$&^.`  Q#X:^8.Q#X:^ &(#. DXR* DX "R(. S  W. Z0 *S    W. "Z$0 . ]2 t(  Z*]2  t(  Z$@. %P   & P  "$ R.dtP "dt"$P S.DAL  DE"L  "D.j#@D    {* D    & ( .    &      " $ .  "   .    "    & ( .  PDW &&    PD$W& .\4 _( 3  *\4 _( 3  " ( .(     *        $ & t.N  K    .t *** TERMINAL FACILITY DAw.TA *** TERMINAL ID = ROU.TE CODE = DST = ZONE =. SHIP NO = INITIALS.  = FOLIO = SHIP DESC.2RIP = REMIT-TO A.XDDR = 8.~ . Z. PROD ID . . GRAV GRP .< .b *** METER ASSIGNME.NTS: PRODUCT-USE-PROBE # *** MTR S^.POT #1 SPOT #2 SPOT #3 SPOT #4 SPOT #56. SPOT #6 SPOT #7 SPOT #8 NO PD U .PB PD U PB PD U PB PD U PB PD U PB PD . U PB PD U PB PD U PB 01 .F .l 02 . j. 03 J. . 04 .* .P 05 .v . 06 b. b.07 . 08 .4 .Z 09 . z. 10 \. ..  . *** TERMINAL SUMMARY *** .> DATE = - - .d TIME = TERM ID = . FOLIO = INPUT NO = . OUTPUT NO = EOD DAY = EODR.(JULN) = EOD TIME = EOMw. DAY = !!! HUB01 HUB01 000 w."3 .PA070HUB01 !!! HUB01 TULSA 000 0.H .NB020 01 000CONFIG .nCODE # ; RTE: ; FROM: ER2.ROR # ; !!! HUB01 HUB01 000 3 .HA . INDEX RTE CODE TERM ID ----.- -------- -------   .ߕ %xszx&zy.Bwv zyv.h8w r mW5S#r ".K > wh> w, t7A  >9T} .wF. . w w.&  w  w ww .L P  w D.S#  P s s$S#& .r--)%'--Y. @׭+ wt.v v w:h h w,%p-h.hJ J w:%x  x]. w"w     *p S# $*&p(^0@bbbbbbb.@ b bbbbbbcDbbbbbbbNj .bbb b bbbNj B.X \!t"x"" w n - \!t" x" " .~ w  e " syf. w wr ~  .w~wpte~h D w}y" .~w7 |pkp p"s'Z.wwp ww pd'}&S8.<<l%*l/7w x< S$.b m7=  .-w 8 w DS#8 $S(D.7 7 !7p $p(a' .w> p pp"a' .wwߕ 7"#w  zg.  7 UH > wS# > 9T}.F> w 7 >9T}}.lp wwp8ps'Z.$|7 v w\ x w &u~$.XWpe1w*~Wpe w:w 1 ay.B w >w "S#B  S. e ~w *>*~"  S*"*(Q.* w  e~  (^.P ȕh ȕWpe he.v-PPPw>ʕ ?->;.;P7 7 D ; D(.p wDw&eBps'Z. :4 w ˋ S.Ӥ  e{.4 eJ 0~w~   .Z ~W ɕeH~w w ~"S#$ .77 - a\ W".w > wZt $S@  >9T}(x"g'.w *wRa> w*$S# *>9T}.G> w*$w >9T}}.ww  DSTSTDFIRSTLAS|S#  _.>T w w 47 "*w  S S#4sy:.d #w N w X w$SS#NS#Xv.w `Е Е Еw j eS#`S#j`.Е7%t{nw 57 te.r V VwFWpe    sy( *.7pj7 lp wps'Z."wp ww b pd'}K.Hw  ww r ,w$S#r .n  2w wx Re }.whw Tr N2C b8 > S#.  v v w6ӝD <  < U.T Tw˝" w@e .. Q~   w o.,  xw  fw B.R  Tw w ww &S#(.x 3 ;  rW  . w f^  . n<} wR R. w `w $V . . P.!ww  7* bw  S#(S#Z.6!w t w4 wStm.\!w  w S#.! wrW  p C`D (D|.!7 p wzps'Z.!Lw.e B`&4 .!W  W c 0 0 wJ |." W c   zwJ  .@"W    XwJ7p $p(w'p.f"www ww H S#"H)." 7tW w r."w>z z w: w0w Z&S#(Z ." wP  ~e׭=P  w."w h w\ɥw#wh S# h 8.$#  w Xu~$(S#V.J#r 7&7  r n.p#p wwe7ps'Z.#p wrpp w'p(p).# wRw -H -Dw'pS# .#jw & w t Ur7  S#& St.$<1> w> >9T}&>..$ww -w {9T}S# (S#"T$&  &     w@  $  Q  R. TASK 25 ERROR - NO PERSONALITY% TABLE   . TASK 25 NO CELLS AVAILABLE    $ .@%.<L$<JJX(Xj.,K@@ @. @{@{@{@{ޔ@.{@&+@&0@&1@s'Z@}.w'p@R0@R0@R0@R1@).S@@S@[qp@v#@w4@&z@(,Khr W    07CR* &+,*,9 -) CUSTOMER NOT ON FILE 7  .  ..,.R %x (xO,xw ]w w #w x. S{ޔS{ޔ S"{ޔ#w =w Yw }(S{ޔ=S{ޔYS\"w w w *{ޔ S{ޔS{ޔR$ Y w a,S{ޔ{ޔY{ޔ{ޔ$w w .S@{ޔS@{ޔS@n!w ;w h.{ޔ! S@{ޔ;S@JUw w *{ޔU S@ {ޔS@*w w *{ޔ S@ {ޔS@>w dw *{ޔ S@ {ޔdS@/Rw w *{ޔ S@ {ޔS@bfw  w `*{ޔ S@ {ޔ S@.z3\7 7 0z{ޔ3 {ޔ\R00q.u ww ^> s'Z$w Ew 0*S@ &0 {ޔES@R00(@w w *{ޔ@ S@ R0 {ޔS@<(w ,6w ,R0({ޔ S@R0,{ޔ64;w 7*S@R04{ޔ;S@R07 w w *{ޔ S@ R0{ޔ[.<>8-w R0<>( $B68w 4:w 2<w *68 4: 2<9.^8wb-,-< w-<)S@8{ޔ.  w -, 5.@`@wp7nwrw K@@(S@?w C,R0?{ޔ S@R0C{ޔv,w   0w Yww y.{w4 S@{ޔY&S@ w w T,{{ޔ S@{{ޔ%w $*S@{%{ޔS@{&w w *{ޔ S@ {{ޔS@8w *Uw .,{{ޔ S@{*{ޔUJ-X w >w *S@{-{ޔX{>S@i`>Yw Uw Us,{>{ޔY{US@{UE$vw xlw lw dt,{ޔ {lS@{l{ޔ$w w Pw u,{ S@{{ޔ{1,w *S@{{ޔ{,S@I w *#w ,{{ޔ  S@{*{ޔ#C=w (S@{C{ޔ=S@{(q :-0w w ,{ޔq R0 {ޔR0"S@<&(,w NmGI((, SNR0GR0I& LRis{.R0L R0R{ޔi{ޔs{ޔ{&>.{ޔ {ޔ{ޔ{ޔ{ޔ.\NPSY_FwN PSY_.7  ^w .Nxp..k ww2 s'Z .  w  w w (S@&0S@&0(S@. $ ew $S@t.w w w S@(S@.@w w u" $'.fw tw bw ,h $S@&,X. R4X ~wS {(R0|.c7 f XVNI {$(s'Z.ċĥww wRe (&1j.BC-  mB m R0d.$$e@BC- mB E &1@R0.Jm Ww'p .pwFwBhw w PfS@".w  <@w 4 zS@ S@/.6w ,w8   S@.w.e ~e)~.e~wlѕ .{kf@@ @. @,K@s@s@s'Z@.w'p@:Z@S@@S@S@.9T}@2=>>`.>%xw(7 Cxzyzy.d: wwe :? 0 JC `0  5@ ,( &0  ~>? 0 JC `0  5@ 9^|9~N>92    ށ 9 9ĕ\99Ē19  19ĕ\999f . w X 4*4| $w |Awwd*X|ww .vvw;~h2ip THIS MESSAGE DOES NOT 8A8 > <:4:R& & ~?n::4:e:4:(f `D` 99CD9 8A8 > <:4:R& & ~?n::4:e:4:(f `D` 99CD9 9  p9=|9 ~>9f9  ĕ=|99 : 6 8w 5 W<8458<A8p  w*||a lY|xL 0 &r.|f"(vwwZpww*| CONTAIN AN IMBEDDED CARRIAGE RET~niURN; HOWEVER, IT SHOULD AUTOMATICALLY JUMP TO A NEW LINE$i "j <19919@9 4   9=~.@|9f9@t9  J@: 3 19199Dx9A5@ 19919@9 4   9=~.@|9f9@t9  J@: 3 19199Dx9A5@ ,( &0  ~>? 0 JC `0  5@ wwvwwo*| :ww ww*}wl   " 1,1, ~i j TUESDAY 1400 XEQi j =p9f99 9|9f9w Ý?9?~@ A|97/9~9@9@:7  =p9f99 9|9f9w Ý?9?~@ A|97/9~9@9@:7  8A8 > <:4:R& & ~?n::4:e:4:(f `D` 99CD9 1,0*4}v"vwwf*X}vww& *|}Ν =~^jj 5-TH AT 0830zj 5@8s8 58l58h5 8U8=t9=p98~Ap w` B e: @e:e: :  5@8s8 58l58h5 8U8=t9=p98~Ap w` B e: @e:e: : 19919@9 4   9=~.@|9f9@t9  J@: 3 19199Dx9A5@ 0vww,}R TX& Ν 0Fwwq*}ww  Fww  k >~jk TASK 12 J   9!999999 E 99::h~A N93939 L}|9f9 J   9!999999 E 99::h~A N93939 L}|9f9 =p9f99 9|9f9w Ý?9?~@ A|97/9~9@9@:7  w,}T 6 & ΝC 20Fw*~ww)& Ν ;*4~0EVERY TWO MINUTES j k ?~Nk  39w 99 -9 w E =p997@:~B^|99w ҽ   39w 99 -9 w E =p997@:~B^|99w ҽ  5@8s8 58l58h5 8U8=t9=p98~Ap w` B e: @e:e: : 7 7  Mw 0 *X~W 4 ` C`@9*|~# :k TRAP XXXXXXkxk  8& & &  M~k2l Aʽf& 9 &6  &6zB xBPKMNM$N~BJMPYY^_&::xB GFHH ʽf& 9 &6  &6zB xBPKMNM$N~BJMPYY^_&::xB GFHH J   9!999999 E 99::h~A N93939 L}|9f9 *~~ v-rjj-d^F*~D> jFwww0*l*~  "l T15 ERROR @` \~>l Bf%l H&f&M & &  wpC~B H&f&M & &  wpC~B   39w 99 -9 w E =p997@:~B^|99w ҽ@ą E505152535455* 565758597071727374- >@xAl BA~ll T16 ERROR  ENEDSEQU EXX&ETMFDTBFRE4DEXD~vC`D  ENEDSEQU EXX&ETMFDTBFRE4DEXD~vC`D ʽf& 9 &6  &6zB xBPKMNM$N~BJMPYY^_&::xB GFHH Bzzbv|{L}*/." +%$#(!'&0 zLIST V002A *z  z@`  Bf%l    o5~.mnD`D ( %7 zvrC  $C$ wH D PnD7 `D ~C nD`D ( %7 zvrC  $C$ wH D PnD7 `D ~C H&f&M & &  wpC~B  END S200 {  #  {~,{00000* { o:o B~m vpDD NCS#  DV`D   D:W, ! 7!^ E8  vpDD NCS#  DV`D   D:W, ! 7!^ E8   ENEDSEQU EXX&ETMFDTBFRE4DEXD~vC`D Jv*|{NENE*y/*,|{LM*P|fo!to"B~n~fDD AC:  ? ILL CMD! ILL PAR! NON-QUIESCEN ~fDD AC:  ? ILL CMD! ILL PAR! NON-QUIESCEN nD`D ( %7 zvrC  $C$ wH D PnD7 `D ~C *t|z|!||P||*|B||z|| o#o$T ~~D7 7 7 aDc D   VEnEEE W,2 0!- )! T ~~D7 7 7 aDc D   VEnEEE W,2 0!- )! vpDD NCS#  DV`D   D:W, ! 7!^ E8  ${x,|7 h7 `{||{| *||0{.  8.} ~no%o&&7!#yE~VE#J4#J#J#J xD`D  #J\&& & &   &7!#yE~VE#J4#J#J#J xD`D  #J\&& & &   ~fDD AC:  ? ILL CMD! ILL PAR! NON-QUIESCEN Օ?Օ Օ {w{||*.}wp.|l||/Nu*R}Na wT -~o q o p (q p 6q Dq Rq 4p R Xp &  HH:~EMM:SS MM/DD/YY EEEEEE &e I W, ! &  HH:~EMM:SS MM/DD/YY EEEEEE &e I W, ! T ~~D7 7 7 aDc D   VEnEEE W,2 0!- )!  *v} -   -*} t.| zl|.|,} ~"|p p~o8p  q q (q 6q Dq p `q nq p `q nq  `EEw*x<~FFW, ! `EE E DԝDԝA  `D  `EEw*x<~FFW, ! `EE E DԝDԝA  `D &7!#yE~VE#J4#J#J#J xD`D  #J\&& & &   ֵ5@P$ wl|.|=*}l|.|7 $|^| |/,~"w w$| o-~oTASK #30 ARG= pTASK #31 ARG= BpTASK #32 ARG= w  ы Dĥ  ~FD0 C ``a - v6 w 6'd w  ы Dĥ  ~FD0 C ``a - v6 w 6'd &  HH:~EMM:SS MM/DD/YY EEEEEE &e I W, ! ^|$|.*.~  {$|$| @p*R~% w &f"{*v~ fpTASK #33 AR~vpG= pTASK #34 ARG= pTASK #35 ARG=  w G Օ+  d 08~6GB` e0  w ^%Օ- ҋ w G Օ+  d 08~6GB` e0  w ^%Օ- ҋ  `EEw*x<~FFW, ! `EE E DԝDԝA  `D .|.|d ,~\wR$|$|$| v {.|h,~.|w$.|.|pTASK #36 ARG= ~ppTASK #37 ARG: !qqSq"#qq    Gh~Gxf&f&0  4     Gh~Gxf&f&0  4 w  ы Dĥ  ~FD0 C ``a - v6 w 6'd .|z|,~|w7 6z"z|* |DEM515255707172!q"q#q"p~fqq#qqT  rv h w^ 67 wJ"H ~&HI6H) ERROR XXXXX SXXXXX SXXXXX S  rv h w^ 67 wJ"H ~&HI6H) ERROR XXXXX SXXXXX SXXXXX S w G Օ+  d 08~6GB` e0  w ^%Օ- ҋv|12345qwqwJ~q,I_OXXXXX SXXXXX @HGHNHUH\Hw  w hb f~H w| zLw  7 \ XXXXX SXXXXX @HGHNHUH\Hw  w hb f~H w| zLw  7 \     Gh~Gxf&f&0  4~Vr'wV"HP&dHf& &  R(H ( n f>~I ޶ 'wV"HP&dHf& &  R(H ( n fD~I ޶  rv h w^ 67 wJ"H ~&HI6H) ERROR XXXXX SXXXXX SXXXXX S. gps@;~rJILINIPIRITIVIXIM~I JILINIPIRITIVIXIM~I XXXXX SXXXXX @HGHNHUH\Hw  w hb f~H w| zLw  7 \@}@d.K@LC @( g:h$h%&CvhS}he^hA~Fs~J ~J 'wV"HP&dHf& &  R (H ( n fF~I ޶,.$7  ..$7b7jtEn~s|1~~J 1~~J JILINIPIRITIVIXIM~Ihb \ @(;0J "" & |||88p9"IPY\paB......... ~6t~J ~J ~JLC s(LC ,r2*&  wZK}x 7r ww 7ts~~w  7^w w >ĝ\7Z70 , ~tZf&×&  6  c7 f&×&  6  c7 1~~JZ"{Rw.& d^@ D A  &DCc  w 2w  w  ' 7  ~&u~nK`ߕ#J #JYJU ZI "M#JߐJWr ߕ 4 6I6I ~nK`ߕ#J #JYJU ZI "M#JߐJWr ߕ 4 6I6I ~J&w \w wXw w  fw |t w 7 wtwhw  %-E es wh6 ~ e#J4J;~K2  ߐ  ee *w4 6 " #J4J;~K2  ߐ  ee *w4 6 # f&×&  6  c7~u=w F6 / w :( w 2! w * w "w * 7 w 7w 77~~ Jw7  ߕ|~^L L7 fv ZI 6 6 ×ߕ~& 7 ' ߕ|~^L L7 fv ZI 6 6 ×ߕ~& 7 ( ~nK`ߕ#J #JYJU ZI "M#JߐJWr ߕ 4 6I6I; .WORD 12. ; NO. CHARACTERS IN MESSAGE .WORD 0 ; RESERVED .ASCII ww (<~vb ww w A B` r% w| 7twrjwhg E#J #Jߐd~L#J <HIZI0ZI6I0ZIHIߐ& 4wLߕ 1#J, #J #Jߐd~L#J <HIZI0ZI6I0ZIHIߐ& 4wLߕ 1#J- #J4J;~K2  ߐ  ee *w4 6 /TASK / ; .ASCII /# 9/ ; .BYTE 40,15 ; ; EN9 =. 7tpwhPb~v E ttP tIw -% w  =w 7 t7 7 :7 0 w&f~NM L7Iߕ#J yrMMMMMMMMMM& -ߕ1 7 7 :7 0 w&f~NM L7Iߕ#J yrMMMMMMMMMM& -ߕ2 ߕ|~^L L7 fv ZI 6 6 ×ߕ~& 7  ; MOV #LIST9,-(SP) ; EMT TTYOUT ; GO PRINT MESSAGE MOV #7,-(SP) =w e0w ,~ww %@w ~ke=w @w Xwww=w  w 1 7 7 7 je tffffff:~M#JNW"1f cc6 1 7 7 7 je tffffff:~M#JNW"1f cc7 #J #Jߐd~L#J <HIZI0ZI6I0ZIHIߐ& 4wLߕ 1#J; MOV #1,-(SP) ; EMT UNSPND ; TST (SP)+ ; BR  dw *Ae0w v,w ~~wnHBFw 6- .27t, ( B:8w cMNN&f&f M ~>N7J ZI ߕ#J *9#JB HI.C ; cMNN&f&f M ~>N7J ZI ߕ#J *9#JB HI.C < 7 7 :7 0 w&f~NM L7Iߕ#J yrMMMMMMMMMM& -ߕ EN9 ; .PAGE .CSECT TASK10 ; HEAD10 =. ; ?w 7 w 777     v~ww %0 %7E `  1 W ֆ m7(ߕW"" HI rHI HI6I`6IL46If~N1 0#Jv f&×&  @ (ߕW"" HI rHI HI6I`6IL46If~N1 0#Jv f&×&  A 1 7 7 7 je tffffff:~M#JNW"1f cc.WORD 1 ; THREAD WORD .WORD EN10 ; ENTRY POINT .WORD 0 ; INIT yDx|xxxxjuzxvxNyrvyz z`yz$v,vVvvw~nxHwwwPwuttZ7U<D 2 7.7(% 172.ߕ#J)#J ZI 6I6I#Jߐ~.O   w 6 E 172.ߕ#J)#J ZI 6I6I#Jߐ~.O   w 6 F cMNN&f&f M ~>N7J ZI ߕ#J *9#JB HI.C IAL ENTRY POUNT .WORD 0 ; MAX TIME .BYTE RES ; ST SIZE .BYTE 2  w %=w w  w w~x ww   7m7 a ^   ` HI!!8ߕ~O HIwrHIHI6IeHI6I EWJ 7 a ^   ` HI!!8ߕ~O HIwrHIHI6IeHI6I EWK (ߕW"" HI rHI HI6I`6IL46If~N1 0#Jv f&×&  ; PRIORTY .WORD 0 ; CURRENT TIMER .IFNZ ARG ; .WORD w w %/w \ z \pp^~^y.  L et  ! tB ! t=L#JwD#J <_r  F F`ewj& fw \F 6 >~P v 7 7 O #JwD#J <_r  F F`ewj& fw \F 6 >~P v 7 7 Q 172.ߕ#J)#J ZI 6I6I#Jߐ~.O   w 6 0 ; PASSED ARGUMENT .ENDC .BYTE 0 ; CPU STATUS .BYTE 10.  !64t4 $t .!4t6t4 $t % w  ~y @w @ % % w 7 7  0 HIHI6I0`6Id1 ZI#J0J0J N  ~P e -dT 7 7  0 HIHI6I0`6Id1 ZI#J0J0J N  ~P e -dV 7 a ^   ` HI!!8ߕ~O HIwrHIHI6IeHI6I EW ww  D  &C@AEPA&fw w ~Nz/w w :w  qPZIZIP0PJ0#J   QQRRSSZTTUFVVvWQRRzS$TTnUVVVV?~QQ2Y qPZIZIP0PJ0#J   QQRRSSZTTUFVVvWQRRzS$TTnUVVVV?~QQ2 ; TASK NUMBER .WORD 0 ; STACK POINTER .=.+RES+RES ; TASK STACK AREA LIST[ #JwD#J <_r  F F`ewj& fw \F 6 >~P v 7 7  ` E ` H 8 wFLw 7U4~zE(w T76~Q^ ~Q10 =. ; .WORD 1 ; TREAD WORD .BYTE 0 ; DEVICE (TTY) ` 7 7  0 HIHI6I0`6Id1 ZI#J0J0J N  ~P e -d  p$tw V׭脷U7w @~>{ŝŝQ TASK # 2 Q SRC-FI!XASPMCFRB=))# 8 nU &  2V2 ~U # 8 nU &  2V2 ~U ; MAX TIME .BYTE RES ; ST SIZE .BYTE 7 ; PRIORTY .WORD 0 ~TT TASK # 7 T U2eL x  N N Ê <%~v! ,c ѐhˋÜ`E $  "V TASK # 9 VF~6V  V2 "V TASK # 9 VF~6V  V2 ; CURRENT TIMER .IFNZ ARG ; .WORD 0 ; PASSED ARGUMENT ~FU|U TASK P   LwZ <ɋr p8~VV TASK # ~VV TASK # .ENDC .BYTE 0 ; CPU STATUS .BYTE 11. ; TASK NUMBER .WORD 0 # 8 nU &  2V2 ~UV2 ~V10 V  bW2 ~&W 10 V  bW2 ~&W ; STACK POINTER .=.+RES+RES ; TASK STACK AREA ; EN11 =. ; "V TASK # 9 VF~6V  V2 V TASK # 10 V  bW2 ~V7   W2 @~W 7   W2 @~WCLR CN11 ; CLR R0 ; EN11A: INC R0 ; INC CN11 ~VV TASK # 7   ~vWW2 7     8X~X$ 7     8X~X$ 10 V  bW2 ~&W7 ~W    7 7b7jtEnhb \  X"X" 2*&  ~Xw 7 7b7jtEnhb \  X"X" 2*&  ~Xw; ******************************************************************** ; * MODULE IDENTIFICATION: T I M 7   W2 @~W8X$7 7b7jtEnhb \  $X~fX"X" ZZX~Xn!VPw Zp9& x9NX@f=~Y ZZX~Xn!VPw Zp9& x9NX@f=~YE R S * .TITLE TIMERS ; ******************************************************************** ; 7     8X~X$2*&  wZZX~Xn!w ~X Z:x9 p9(. *DY b'xww t[&-"[ e? U@f b :x9 p9(. *DY b'xww t[&-"[ e? U@f b* Q T I M E * ; * PROGRAM IDENTIFICATION: "QTIME" 7 7b7jtEnhb \  X"X" 2*&  ~Xw9& 9NX@f:9 9(. *DY 'xww [~VY~~Y6  exMQI& ( w % ~~Y6  exMQI& ( w % * ; * TIMER MODULE QUEUEING SUBROUTINE * ; * ZZX~Xn!VPw Zp9& x9NX@f=~Y&-"[ e? U@f 6  eDMQI& %~YE Cw   e[BA  J[6 w z0[[ ["$0( %~YE Cw   e[BA  J[6 w z0[[ ["$0( * ; * PURPOSE: LOADS TIMER MODULES ONTO "WAIT" STACK FOR "TIMER" * ; * :x9 p9(. *DY b'xww t[&-"[ e? U@f b~Y( w %%E Cw   e[BA  J[6 w 0[[ E~nZW  9[1[ 7x [ `[`\7lBA<WCEqJ[ E~nZW  9[1[ 7x [ `[`\7lBA<WCEqJ[ "TMNSRT" IS RESPONSIBLE FOR UNLOADING FROM THE STACK * ; * AND STRINGING ONTO PROPER THREAD ~~Y6  exMQI& ( w %["$,~FZ0(EW  9[1[ 7x [ `[`\7lBA<W7&œ~Z& ‹ & 5@& L Œ Œ$Œ A [`BAW, 7&œ~Z& ‹ & 5@& L Œ Œ$Œ A [`BAW, * ; * * ; * USAGE: CALLED BY ANY ROUTINE WISH %~YE Cw   e[BA  J[6 w z0[[ ["$0(CE~ZqJ[7&œ& ‹  & 5@& Œ Œ$Œ J[ [~^[   wF[ J[ [~^[   wF[B e E~nZW  9[1[ 7x [ `[`\7lBA<WCEqJ[A [`B~6[AW,J[ [   w[{~[dd X$ {~[dd X$ING TO ACTIVATE A TIMER * ; * MODULE. CALLING SEQUENCE: * ; * MOV 7&œ~Z& ‹ & 5@& L Œ Œ$Œ A [`BAW,~[dP J Df-I BHI6I6I~N\HI9 6I P7&f_Е<<9z P J Df-I BHI6I6I~N\HI9 6I P7&f_Е<<9z#MODULE,-(SP) ;STACK MODULE'S ADDRESS * ; * MOV TIME,-(SP) ;STACK TIMER-RESET WORD * J[ [~^[   wF[d X$P J~&\ Df,iI BIrIrII9 rI "P7<2- "PPPmȵ p~\ _@p_ ɕv_e~ <2- "PPPmȵ p~\ _@p_ ɕv_e~ ; * EMT QTIME ;REQUEST TO QUEUE MODULE * ; * OR {~[dd X$&f_Е<<9z<2-l~\ "PPPmȵ  _@p_ ɕ!jm7& b ]X¢"~>]eq 7B1f eee !jm7& b ]X¢"~>]eq 7B1f eee * ; * JSR PC,QTIME * ; * TST (SP)+ P J Df-I BHI6I6I~N\HI9 6I P7&f_Е<<9zv_e~!jm7&U~] b ]X¢"eq e%<< % Ý0Ü_    UU ~]&  ‹ & & N & x e%<< % Ý0Ü_    UU ~]&  ‹ & & N & x ;TEST ERROR RETURN CODE * ; * * ; * <2- "PPPmȵ p~\ _@p_ ɕv_e~7B1f eeee%<< % Ý0~]Ü_    UU &  yew E E Ev ~.^̡JB57 yew E E Ev ~.^̡JB57 THE MODULE MUST BE SET UP, PRIOR TO THE CALL, AS DESCRIBED * ; * IN THE ROS USER'S MANUAL. NOTE THAT CALLS FOR MODU !jm7& b ]X¢"~>]eq 7B1f eee‹ & & N & yew 8~^E E Ev& Νa-Q-?B=  /$ BeB~^ J- - & Νa-Q-?B=  /$ BeB~^ J- -LES HAVING * ; * THE "S" SUSPEND OPTION SET WILL CAUSE TRANSFER TO THE * ; * DISPATCHER, AND WILL NOT RET e%<< % Ý0Ü_    UU ~]&  ‹ & & N & x ̡JB57& Νa-Q-?B~~^=  /$ B- ee  &-_E eet?p6  T~_ޠw z - ee  &-_E eet?p6  T~_ޠw zURN UNLESS THE CALL IS IN ERROR. * ; * ON THESE CALLS THE MODULE'S TASK NUMBER IS AUTOMATICALLY SET * ; * TO THE yew E E Ev ~.^̡JB57e J- -- ee  &-_E6~^ eet?Π%%|_BA  J6 w P~_ Uv_|_~_|__~_ Π%%|_BA  J6 w P~_ Uv_|_~_|__~_ CURRENTLY ACTIVE TASK'S NUMBER. * ; * IF THE "WAIT" STACK IS FULL, "QTIME" WILL EXIT WITH THE ER & Νa-Q-?B=  /$ BeB~^ J- -p6  ޠw Π%%|_BA  J6 w ~_ U~n_v_|_~_|_G&2 <-76 w e~` G&2 <-76 w e~`ROR * ; * CODE WORD ON THE STACK NON-ZERO. THE MODULE WILL NOT BE QUEUED* ; * "QTIME" TAKES ITS ERROR EXIT IF THE  - ee  &-_E eet?p6  T~_ޠw z_G&2 <-_~_7  0m|5} n_œ__ Da`_v_ӵeK6 w . A  0m|5} n_œ__ Da`_v_ӵeK6 w . AREQUESTED MODULE IS ALREADY* ; * IN EITHER A TIMER THREAD OR THE "WAIT" STACK, AND HAS NOT BEEN * ; * FLAGGED FOR DE Π%%|_BA  J6 w P~_ Uv_|_~_|__~_6 w e  0m|5} n_œ__ Da`_M~^`~`rl V $_5_& H H H)[7% [1[ [1 ~`rl V $_5_& H H H)[7% [1[ [1-QUEUEING. GOOD RETURNS ARE MADE WHEN THE MODULE* ; * IS FOUND INACTIVE OR MARKED FOR DE-QUEUEING IN THE "WAIT" STACK*  G&2 <-76 w e~`v_ӵeK6 w j rl V $_5_& H H H)[7% @[ ~`77 bv_^_d7 P7 ^aIAJ K  -&&mABbbcddelfgghi*jj(kkk\l m$n^nnn4~va59ABbbcddelfgghi*jj(kkk\lE "WAIT" STACK. * ; * * ; * PROGRAMMER: 52  ~`rl V $_5_& H H H)[7% [1[ [1 ~~Na-&&mABbbcddelfgk ZIJ#J~aefe3e3aa -BB 3& & & pava|a<< k ZIJ#J~aefe3e3aa -BB 3& & & pava|a<< * ; * VERSION:003.001 * ; *  [ ~`77 bv_^_d7 P7 ^aIAJ K  -&&mABbbcddelfgghi*jj(kkk\l& pava~>b|a<<aVaLa a a b.Kqi@ @ @~.&;}@&G}@s'Z@w'p@,@.:Z@S@@Sy@9T}@&@.h0&0h&0hT.&1hR+h^R,hR-h~R@.hp<.R0hR0hR0hR1hP"d8q".+.    D\~2P`b.D\ ~ 2P`d>Dn.d  >Dnj*Ln.  Ln2%> FATAL DISK ERROR l\)\ DISK START NOT AUTHORIZED.  ~i,~1 MT SEQUENCE #'S SERVICED: LAST= A.NEXT= 7 .  3. FORMAT ERROR. MT CHECKSUM ERe ROR.  -!LOGICAL FUNCTION , FATAL ERROR.  .'MOUNT TAPE # ON LOGICAL FUNCTION , . [ 2.2 RESPOND 'OK' WHEN READY. NOT XREADY.  `.` ENTER RECOVERY COMMAND. . UNABLE TO SERVICE. RECORD NUMBER v.. RECORD TYPE . RECORD F#)OLLOWS: RECORD TYPE UNKNOWN.   F >.> & SERVICE DC INPUT TAPE ,DA.dTED .  RETAINING OLD NUMBER. 1. DESIRE ANOTHER PHASE TWO?  # INPUT TAPES TO SERVICE.  .EMPTY INPUT QUEUES? DATED .. &RETRIEVAL NUMBERS: OLD=. NEW=.. ) INVOICE NUMBERS: OLD=.\> NEW=.  L.L LOGICAL FUNCTION 3, CLOSED. ,.r SYSTEM ACTIVITY HALTED.  NO CELL.S AVAILABLE. NO DATA IN RECORD. 2ENTER TAPE #: - 9 )DISMOUNT LOGICAL FUNCTION 1. = .WRONG TAPE #. h VV EB 3\D $ 0$0>@>TT^ ^p$p~"~(2 E.0!!! HU B01 c . 000 1 .4CHUB OPERATION RESTORED. LA.ST SEQUENCE NUMBERS FOLLOW: RECEIVED=   . TRANSMITTED=  . e "."%x@'x7 ^;xzylTy.HV x     5 zy^.n  w 0w ."WS M0G r .@ z w 6w   zy`.w 7 7 7 . 0 N + ].,   Hx r-lH.R  V  J zn.xD  %YEf8%NO^ P.w  t Հ7   $zy. \ %NO %YE @. H  6 7 @: 6% lTy. 07 *  *%7w .6Dw p PD.\`%  fwJ0y G lTy .w6  "%   k v#B x.  . (!&  7 .  (!&$.  6 Z7 w *h!g [qp  *"h4. Q0K  7  .2 w   T.XH7EU$XX TP $.~P  % w8%   iT]B.  v w  . 7 wSw ww^.6 7    7.  z % r%iT]*.< j    ~.bh  ~ 7 8 P iT]B.%wJ % w:wWpe (ay.E7 >2-  $s'Z .wnw rt 2P &. w85L7 w'p0. w(e"w d7 :S@d@.F T ww& T9T}X.lT w7 &w\OT9T}T.7 wJ7 5w> % | .w 55 55@. jE~ %w5rwE.h\ :Z.*  + z| x:Z.P %nd` w r"S@$r&:Z.v HD  5.7 l.`[ wwxs'Z. r tP&! k&.wZv5Uw'p&ayK. 5U %d Z.4 8 Bpe& t (b ay.Z   w555c. U@T wT9T}<. &w< - w \go. % w ww.  l w5` 5@X 5@x.!Upwdw%w X.>!www 6v#"lTy.d!e~ 6 -   [qplTy.! w w d$ lTylTy lTy ( "!. w e(.lTy  lTy .!  T  6lTy .! 0 *w $%&&x<&r8)."!!h!dw f7wD&D8.<" |z J "iT].b"% B% :   ^ ." @ABEќ"~ 7-Q v#" [qp|."./ <=2&,'@Z{[lP}M]\N."k`Kaz^L~no|H."]M_my. #jOzvplgw.F#$zzvr @$"iT].l#% 8 6  w ."v#& (..#  <#$<$ $<#$<$&#$$ $"#$$($2.#$|$w w  w +,$$  " $.#w &$ 8 8C* $[qp 8"$C($##########6  .# # ########.$$B(e"T 8v# T$60i.(* f $iT].&( "z 6 X.L(TO_$bb ^ $.r(Z ( $ " O iT]>.(H% %  %  .(7  6  &;}$&;}.(Bw   H z. )  w X% &^.0)   6 7 Vw ,j &&.V)   7.e &G}Z.|) & X"7X T7 Q$wFw .)V   V .)e 4dw d w dlTyS@dI.)d7 w ~V  :!S@&G}dV.* 6  wtp zyv#.:* "d 7[kVnnsT~V<.`*jf 4w( n%iT]2.*:2. B ׂ  sT.*%  _  a0[.*0?w $ > w `" $&.* (  w  4%.+OK ~v 7m .D+u V r   iT]>.j+~ V 2H.+> D fw (7[qpv#a.+$ eo  $.+ % %    iT]>.,w @ 5&  &.(, g ~j U sT~.N,  .t,! FD  "iT].,% %     .,& j  PDE sT~., 8q ss . -6  f % 7 tk [qpv#lTy $sy.2-eee Z% Tay ITy .X-  C~o [qp&+.~-B~<:w w w (   "(S@.-d 7E؀E   d ,N.- Wpww V  ` bV.-rE4PE4P6  u &v#...~ AlTy pTysT~I.<.   [qp.b. 5Z  v#$..p.SH:(nSH:h. d Hq .1  @ L$LZZ(AN* ERROR 1     001P  . 7 5x7a&l.0   5xwh .V ")D<7 \X&.|  xzkhߕQh=. ѕߕ ѕ ߕ ѕ ננ(. Õ נ)Õ ߐѐ~ߕ ѕ ߕ N. ѕ ߕ ѕ ߕ ѕ ߕ8s. ɗ@ɗ@ѕѕ 8.: Lwepe` L.` lWDw0017 /. B5xw5xyEE.  @` 7- wx7L: (Lz. vwR hppp hj. 5x5@5  u. w EU E $.D  5@55xwE3 (.j W W +5x wEUl &. b/05x U P&L. 8 ~w005x  . 5 xw>wwB7 . 7  5x5wl%$.(  7 hw& h"`.N 5x5EU  &.t 6U r d5(5x  . w ^7 X5xWI  . U ,U  t7 l -. W:0W: ]. 0W:͕0w !.25@x<  e.Xr-njw$w EU* &.~wf~EW7 n. `  R PwL %.\1r  c (. 855@ . 5@UW ".<P5x P.b 7 x& f&L  .kS 6 E ae~i k{.W!Wqek͕0Uk.͕1   55p $.xw>5 wz j$  5xB .Kqi@ @&;}@k.&G}@S@@Sy@iT]@lTy@.pTy@sT~@sT@ay@[qp@.sy@v#@zy@;}FH"}y@&YH"r@(d"Jt'.     .(B^ FATAL DISK & (B^LERROR M ) DISK START NOT AUTHORIZED. S (.( ENTER TODAY'S DATE.  FATAL Mk.NAG TAPE ERROR. ( MOUNT TAPE NUMBER.t ON LOGICAL UNIT 1. 1 RESPOND 'OKP-' WHEN MOUNTED, ON LINE AND AT BOT. [ '.+ NO WRITE RING,NOT ON LINE OR NOT (AT BOT. $ ." FULL SYSTEM OPERATION RESTORED. $ dd  : 7 $",&  .%x   f ,  xo.& 6 7 lw B  . "Y.L  7Fe & p"( &G}.r7V R7& Q$wDw d d$.  e 4:.rw r w r7 w *rlTy S@rS@&G} rL.d HH Ud HG. 8   , zyK.0   % &lTy.V1 3 1 x pTy.| pՋAp $rrv#  $.Ջr r ~& 6  X [qp.% N    r- v#8. B`  @[qp zy&zy. m zy.: j%b 7   7.`H D%>0 7  sT~@ zy zy.L D-L"D5.d h ?6 w 6.C vve0 G~7. Wt& 0#e~{.  ) @.!7$  - $t."   w7 7 7 7 N (NZ.H7 4,  ѕ0 .n~  &,~e ~.&  p       w E.SH:( SH:hd H:.1  @ L$LZZ(V AV . ERROR 1 F 00'F  v 1 . 5x7 ". 5xc)j C.>b7 ~ ".d>hѕѕ ѕ נ נ(X h].Õ נ)Õ ѐ~ѕ ѕ ѕ ѕ ѕ.ѕ L+  L.ee00 %.15x5xyEE."  @` 7-w7.HLw ZhpppqLh.n5x5@5  .EU E $. 5@55xwLES (.W W +5x wEU &. N//5x U &L.,  ~w005x  .R5 xww7 |.x7 z 5x5wt". N7 Hhw( > h d.5x5EU r $.U ` 855x.Ezy@z@( D 2EvD >Q> P P  ` ` n n ~ ~ N N . @.  FATAL@.     . MAG TAPE ERROR.  FATAL DISK ERRO' R.  TRANSFERS COMPLETED. k  )  INCORRECT QUEUING OF TASK. _ . .  NEW COLD START? c D .D %x  %YExzz.j   ?z.  v7  f.  Jzh. n ^ eJ D. :  m:P p &P .( ,` (%  ` s.N ~ 9 ,6 % %  ~ c.t   6 % .  3 .iT]lTy@pTy@[qp@.v#@zy@r@(^cTGh<M&iT]hsT~hsTh*0.   77+ v#[qpm.&  |<^8HP"<^8 H"$P.L 7 %.rN  t k  N.d\11  .133 1 13 w..w`pwTN 4  N. ww4 w1T.0ww 1wpb.V0 ww1w  w.| w%/ t4.tttt 4 4. 4R4 Fe&e .L9w +% .w  %  %.:wN  w wN(zy.`w%:%6%5-=.  "%!.1 1 3  lI. ll3 5@5. N *  %IN$r. %%w5 8.Dw%wwe[.j e % w5 . N wnwC  N..N 6   N. && " 0 0   &.(RWYY[̋6 RWY Y [.N  N R  N~.tv%.N %% N. % . % 6  Wpe7P $lTy. w 6  p.2e  dA ~v pTyv#Xg [qp,.Kqg@ @ @.&;}@&G}@s'Z@w'p@,@.:Z@S@@Sy@9T}@&@.h0&0h&0hT.&1hR+h^R,hR-h~R@.hp<.R0hR0hR0hR1hP$d8o$.+.    D\~2P`b.D\ ~ 2P`d>Dn.d  >Dnj*Ln.  Ln2%> FATAL DISK ERROR l\)\ DISK START NOT AUTHORIZED.  ~i,~1 MT SEQUENCE #'S SERVICED: LAST= A.NEXT= 7 .  3. FORMAT ERROR. MT CHECKSUM ERe ROR.  -!LOGICAL FUNCTION , FATAL ERROR.  .'MOUNT TAPE # ON LOGICAL FUNCTION , . [ 2.2 RESPOND 'OK' WHEN READY. NOT XREADY.  `.` ENTER RECOVERY COMMAND. . UNABLE TO SERVICE. RECORD NUMBER v.. RECORD TYPE . RECORD F#)OLLOWS: RECORD TYPE UNKNOWN.   F >.> & SERVICE DC INPUT TAPE ,DA.dTED .  RETAINING OLD NUMBER. 1. DESIRE ANOTHER PHASE TWO?  # INPUT TAPES TO SERVICE.  .EMPTY INPUT QUEUES? DATED .. &RETRIEVAL NUMBERS: OLD=. NEW=.. ) INVOICE NUMBERS: OLD=.\> NEW=.  L.L LOGICAL FUNCTION 3, CLOSED. ,.r SYSTEM ACTIVITY HALTED.  NO CELL.S AVAILABLE. NO DATA IN RECORD. 2ENTER TAPE #: - 9 )DISMOUNT LOGICAL FUNCTION 1. = .WRONG TAPE #. h VV EB 3\D $ 0$0>@>TT^ ^p$p~"~(2 E.0!!! HU B01 c . 000 1 .4C HUB OPERATION RESTORED. . LAST SEQUENCE NUMBERS FOLLOW: RECEIV ED=    . TRANSMITTED= -. %x@'x xzylTy.D7 \;T    ( zyX.j    (w ..w  UQ K0E .~ L  w BN zyZ.w w 7 7 7 . 0 Z +.(    Hv p.N-j  T ,  H[.t zB  %YEd8%NO\. w   Հ k.7  h %NO %YE zyh. L T & 6 7 @:&lTy.  6% 07 *  6%.27w Fw n \)  F.X^%  dwH}0wDlTy .~ w6  "% " v#<&  x.  . 6!(  7 .  6!($.  4 f7 w *h_ [qp  *"h4.O0I  7  .4 w   >.ZF7CS$VV RZ $.N  % w8%   iT]B.   w  ." 7 wQw wwV.6 7   * 7.  x % p%iT]*.> h    ~.df  7 6 < iT]B.%wJ % w:wWpe (ay.E7 <0+  $s'Z .wzw rt 2P  &. wD5J7 w'p0."w&e w d7 DS@d@.H T ww& T9T}X.nT w7 $w\GT9T}T.7 wJ7 5w> %  .w 55 55@. vE| %w5pw=.fZ# :Z.,  + xz v :Z.R %lb ^ $w r"S@$r&:Z.x FB  5.7 j.^Y wwns'Z. r tP$ m&.wft5U~w'p&ayK. 5U %d d.6 6 Npe$ r 4R ay.\   w555O. U@T wT9T}<. 2w< - w5p \go. w % w . ww l w5R 5o.!@J 5@jUbwXwz%twl.@! ww|w  &v#..f!e~ 6 -lTy[qp(lTy.!  ~~ lTy lTyf$!w w . w *lTy  .lTy  a.! e  T  6&lTy lTy .! 0 *w $%&&jv."<&d8!!Z!Vw f7i .@"yD|| xtnlM D(.f" < % 4% ,   iT] ." ^  @ABEќ"~ v#$"?."7-./ <=2&,'@Z [qp,."{[lP}M]\Nk`Kaz^L~no|Ǘ."]M_my.$#jOlhb^t.J#Yi$llhd$(.p# 2% * 6 1 iT] .# w .  <$$<$$*v#  . $"$&$($.#< $$<$"$|&$w w  . $$ $"$&$  ".#w w &$ 8 (  $"[qp($$8C#######.8C#######N.$$###6  4e###v#.J$ T ww ~T .&,70-,7 .8&w %SP,n R.^&-7 Hw  %TRp#.&  wZ   $.& 1A n w $lTy( .&  TA93߶0lTy lTy.&7w  * %`  i.'"`%FF .B'w    Q S@ .h'6  n(7#3$ ($.'662.$  $iT].' % %   .'  N F>'.(60*.&( v "l? iT]B.L( 6 JFAQ$T$ &$.r(T PL  iT]".(  H% %  W.(%  7  6 ).( Bw ?&;} &;} &f. )  H   }}w l.0)X   6 .V)7 Hw ,   ..|)7 e & X"7X T7؊&G}8.) Q$wFw V  V.) e 4dw  d"lTy(S@.)d w d7 w ~V_dS@&G}d$V.*  : ~6  wzy(v#.:*wfb "V 7M] sT~.`*V``\X &V"iT].*w n%,$ 1.* Bׂ %  Q   sT.*S0M01w  >.* w  (  wx  :.+  4%OK ph P.D+7_ |g H iT]".j+d  ~ H $֐.+:0 D "[qp(v#E.+fw (7$, $.+ e % iT]".,%  w @ 5a.(,&  t g ~\ .N,   sT~.t, ! 86W.,  % %   iT]F.,   & j   $sT~.,B6 *q ss. - 6  f %[qpv#_.2- 7 feee  lTy  syayITy1.X-L% F  C~ [qp.~-B~.,w  *" $& .-w w d 7E؀a(  S@d,.-E   Wpww V*"V(.-  ` dE4PE4P..6  tp Av#lTypTy(sT~p.<.   w ([qp.b.  5L.. pՋAp rrv#  ..Ջr r ~& 6  > [qp..% 4    r8 v#8.. B` & & & [qpzyx. /  * m r.F/   t%v .l/l 7 &  %a./ 7@@v$sT~zy zy&lTy / x.SH:( SH:h d Hq .1  @ L$LZZ(Ag* ERROR 1     001P  . 7 "5x7"&.0   5xc| .V )F>7 ^Z$.|  z|>hѕѕ ѕ hC. נ נ(Õ נ)Õ ѐ~ѕ ѕ?. ѕ ѕ ѕѕ ,uv. L\ee L&. 0015x5x.: yEE  @` 7t-pl.` w7L\w  L. hppp5x5@5 h&.  wEU E .  5@55 ". xwBEW W +5x . wEU b/05x,.D  U 8 ~wW.j 005x5 x. www7 l7 j 5x5: (. wp >7 8hw&  "hh. . 5x5E  (. U 6U r d %.( 5(5xw ?.N 7 5xWU ,U&.t  t7 d W:0S . W: 0W:͕0s. wf5@x< ,+.  e-w(w  . EUwfE #.2W7    C .Xw%\r l[  .~ 855@G (. ).5@U6  $.5x  7 & fS .&kS 6 E$k.< ae~W!Wqek9"&kc.b͕0U͕1  P n & .55xw5 w~  .  5x .jT<@ @S@@.iT]@lTy@pTy@zy@z(@ .;}FHYHr@(2f2GWf>6.>j $ja.db .(4@f' ENT:.(4@f +ER TODAY'S DATE AND CURRENT TIME. & . FORMAT ERROR.  DATE -  T.:IME - ! DATE: TIME: : `: < f.f FATAL SCHEDULING ERROR.  SE.RVICE INPUT TAPES NOW.  FATAL MT .ERROR. # FULL SYSTEM OPERATION RESTORED. D ' CONFIRM DATE CHANGE 'OK'. t .JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC ( 88F NFX0.X%xw*x zy.~8wF .  zy^.;   & D.:  8` ,7% zy&zy.*7 & &*zyzyzyzy"zy.& & 8 ,  r+.< z     7*zy].b X   Mzy zy&zy.@ & & & & Dzy &rl.  n   r$.1 f Ýlr%zyQ.     w  z( .   Q 5$S@z(z($zyH.F A  2 `--SzyI.l -- <  %>.OK; 8 \ b. 6 *w w@1zyG.   Dzyzy.B: $e~q lTy.*$ w T[$ &T([$Pw V^w Law NF,  V ^ La N.lK pew Nw Pb"KS@ N& (P.R &6 8 %R8>. p  mX 8$X. Hkc6 .TZ N 7? 8CZ iT].*FF B>6  2 _.P% %  6  .vL $  % $w JB J"B-.  M  WpeR~Mh. |w QF  6 : QFX.  %B w J&(J,Hw MJ  H MJ.aT[M@ @S@@^.cTG@iT]@lTy@pTy@sT~@}.sT@[qp@v#@zy@;}FH &YH r@(@4d 5b.+.%x@qx"lTy. \7 Y ! ! ."%YE6"%NO." V-- l? J.: b:  X5  N0 R 7 .` <' 2-! r! !%FR!_. %HA!   ~, . >!  7w - "!  -S.!"% 77 & zyzy"zy(zy1.  ,177 zyzyzy"zyk.06  @.zy zyzy r&zy.D  0w ,zyzyzy"zy(S@.jF  0 zy(zy.  0   zyzyzy.0  7  %. 6  "  sT~.   7 J.(z v%pb 6   sT.N6 nj7 h:6pl.tg" ^ /w <  "iT]"(/. w /]`` $.\XB #9 :% 2%   #.* F/ lTylTy$lTy .  l w zpTy pTy(.2 w .` %  `$cTG.X .~wde`2.h d.~_^ "T^("C. 8% 0% (wL v.W iT] . -^00 h ^d.,("  % % "iT].w .` %0  .7 `cTG.<9% P7 j h+7 b X.b%  -.7 4  0&& 7 "e. vw . % w@  . C % %  . -`  %  `cTG.F ,%L ,7 f  lTy  lTy$pTy.l7&L.J FAg^jj f ^f.bvJ"  3"iT].    .^   " ^""iT]Q.*% w% w + v &sT~.P1 1 3 rplN.vg^ "?^("C. @% 8w\% ,wP z+ iT] .  w< .#^&& "" ^ "$iT]K. % w% w + T\.4 w^9 &^Z.Z  " l% dz"iT]. w% Xw| *@  . wd ~.,(#I^L. $^\. LHD" % a"iT]. w% w 6*   . "  *"iT].> ^7@@ #.^ zyzylTy.d @   & & & "zy zy rO.  ) T 6 ].   )7 w  7( . b)7 ew J 7  S@J . 7 & $ 77w "S@&." w   (  d H  \ .\ 6 :6plg" $"(iT]. ^ (  #B@<+. 7]^`` \X" <^&"G.  %  R( y iT] .  ~ ^  ^l. " " o" iT]&".@  '%  '6  iT] .f :6  V*  sT~. RM" D '42."iT]. )O^RR NJw ^n. " %  F' "iT]. " ""iT].$ '6 d` @ $sT~.J T" | % t["iT].p  &b  NL. HCi^ll hd" ^l. " %  f& " iT]. ~" M$"(iT]. 6 7 ~  "sT~.. 1w00w5.TPw . 4nj;  ..ze" \ % X |%OK" iT].862-S^VV   ^`.RN"  X%58"iT]. 5& 5H.  %1 3 1 .8" 5$"(iT].^  $6 7 Z($t.pk" b0-% R,"iT]. $84/" $"(iT]. & `$ % .J7 " $"(iT].  $7 7 7 zy D.B $.h" jhd_^" iT]&^K." %\6 s"iT].3  &% %  b.`#7 w -  -."  #%  !"iT].& 1 "% .L"  "]"iT].r%  "w - \ 6 -./)"w -   "-. , PpՋAp z#3v#P(z#.rrՋr r ~&  $[qp . G6  >% 6  w.0  r B` v# [qpiV GD  "" # #"" B#fB# #J # B#B# z#L.z#6  FB .#=c^ffb^"^("C.# % %  P iT] .#^$ mL@$ > , ^$@$.$0$ % ~  0$8$N$ N$@$@$ n ^$g^$$$$$$%N%n%,:-.$$ $ $$%N%n%,:-t$T-x----2.f.z....T-x-- - -2.f.z...)$..// ENTER DEVICE NUMBER I../ /$s.$ WRITE RING INSTALLED.  ILLEGc.$AL FORMAT OR CHARACTER  ENTER COMF $MAND  $'$ UNIT 2 ALREADY ASSIGNED. & %.%- MAG TAPE DUMP B% RECORD v N%v'N% EOF AFTER RECORDS. - n%V n% ,.,D 0 2 4 K.- 6 10 12 14 16 .>- MT CONTROL DESIRED?  SYSTEM HALTd- OR FREE DESIRED?  x-D.x-# LOGICAL FUNCTION TAPE FAILURE.  -  -.-& LOGICAL FUNCTION 3, TAPE IS CLOSEE.-D. ' DISMOUNT TAPE ON LOGICAL FUNC=-TION . 3 -.-8 MOUNT TAPE , JULIAN DATE , ON9.. LOGICAL FUNCTION . 0 RESPOND 'OKE.B.' WHEN MOUNTED,ON LINE AND AT BOT. .h. NO WRITE RING  NOT AT BOT. b. NOT ON LINE.  .). SYSTEM OPERATION RESTORED. X ... SYSTEM ACTIVITY HALTED.  RES.TART FROM MT OR DISK. & /)/ RESTART FROM MT ONLY.   "/."/6  ܜ .w  &.H/   w j. &.n/    v#(sT:./ L  > b% [qp./ *77 w R$%]R$./% .0  "  7fsT~"iT].,0"  $"(iT].R0  5 5.x0 p5 ^ V z%.0OK @ d%CL %UN%.0AL %SPx%%PRpo.00"  >" R" iT] "$iT].1 &%UN8ww|,( .61-  -.\1w V$ #w U$ #-7 >"V$ #U$ #x.1" T Lw x" iT].17 rw #^% 0w,w  #^%.1 U$ҥ, %w w7w  U$o.1U$Pw%wU$.27w  w7 |%  =.@2^ "  ^""&iT]E.f2|'% t% l% d %.2   0  sT~.2:w*w #^%w w B  #^%& (.2J% -0* z J%}.2Ξw r%^ 47  v#r%^ .$3 ~ Е f ~ Е Z.J3  T TeFЕ ? [qp.p3 %X (  4~.3     6 Yv#([qpK.3 f b E < R .30 ( > :  2  Е .4 %Ee0 .46 6 6 U7z7V& & wEpU  j,&f84& F(  #Ff 2  5$ ,)0‹% + EP   ` ! f bUrlH&  & H `5\5VX= # 8 R " E 1  @uuE   '5#R= ݵ ~A p CF  ^P CE 99ĕ Lĕ$ D9 <Ĝ9 41111 B \ , TBIIRDC5h5f5d& 77^ ĕ$ E i= j=  ' C EĜ9 9 ﳼ1111 Mw 9 \ 1111 h R zEwAA d= 9 ﷼11 * D  <E5;7`.;   CF wD $SVSP[; Ee0 71a71Y @E X BA F h 5^= 0>, X r BwE= e0 11 ( B w $SBSf&@ 5@w <= w = w =E e w += w@E%@5 Tw + T" rCEF w =F w z= w n%=7 .w d+=-=K= e0 11  8  0w~  .+2 JSR %5, BR .+: 0 ADD #,%6 JSR %4,$POLSH .GLOBL $GET $PSHR $SVA $SVP $SVE $CMORANNTADSBMLDVPWNGLTGTEQNELEGE( r$ "   ^ (& @& f $ W  ɋ &5 5U& w7 fB= x &  W  ɋW)C @ A 99ĕ hĕ$ `Ĝ9 X넜9 P1111 ^ x H p   <엠=(     w7 &  7 ^? Ee0 근1x1p  $PUT $POP7 b? X&5ĕP ^e0 P갼1111 ^ x H 5  $ R $POP1  ! 10 f1&   S @ L N=D >,< < :BW=5 9 7.W,2 / - ɋ hW,# l  Nɋ1f@ J1)./B?=0 1 BEP (  Lf NCF  0!1Ć eTTTTTTT $POP2Da<65ÜE ` x wt A w6۲AAFILEZ2<|282666(7<7 |w' 7( F 33   6 : d4xd4 e d4؄ +   Å  &f00 0 7 &^4   ~3 3 ~3W # 33333333344444"4+424A4G4N4T4Z4^4SUBROUTINEFUNCTIONBLOCKDATAEXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQUIVALENCEDATAIMPLICITENDLOGICAL*1LOGICALINTEGER*2INTEGERDOUBLEPRECISIONDOUBLECOMPLEXREAL*8REAL*4REAL33|4L347F3<ɋ ,00 $0 0 < ^ɥ/ Rɥ/ ы6$2$27 F7 D7 B "ѥ/*22 7,7,7, e  e -J $2  7&2 J?<554U  (, 7- ^ ¥,¥/*ɋ  7f-bb+,-22    w 6 w 6 & fAB &m` w 6 a | &    D  za w 6e v =.+ .CSECT .=.+.$$$$.&f P  *e   m mD D D EE 2&f m\&f& 4 6 m<  @ T` @A @ 4` r "       f @a  b @2 & $   ‹¥, <l& ¥(&  & N ¥,& < ¥,¥)7e  =< &e7 " <   B B B E ``> +\ B<9 DmC D11 aw ;@  @2 7  .0 7 7 l9 6B D lDl7!7 e  J"& eLlL 9v &DB9 J"@ ?w 0;@ 7 4.2: ,Bm^< J @w ; w , D7.tm : f BmU2 E22   7;x (w :t;l w N+Xm "6 w*D7!8(mp5@"U@^ ~w u; pw +CZ j  Fb. =w ;FF ; pw ;m xF r w \p@64t7 |w' 7( F 33   6 : d4xd4 e d4؄ +   Å  &f00 0 7 &^4   ~3 3 ~3W # 33333333344444"4+424A4G4N4T4Z4^4SUBROUTINEFUNCTIONBLOCKDATAEXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQUIVALENCEDATAIMPLICITENDLOGICAL*1LOGICALINTEGER*2INTEGERDOUBLEPRECISIONDOUBLECOMPLEXREAL*8REAL*4REAL33?j@|4@z>L36@8F3P?ɋ ,00 $0 0N e 6 6  F % E5 W( e e    E 2  e6 6 6  ! g { b `  eW,W)X    E?E2Q < 6 @6 4 A X  E & )& E    xen Ze& r >5 5 &E ww .GLOBL $ADJ  l6 v6ve  0   22 EE82Q \+ E8 E3QU ɋ ɋ W, e&  4m$" C C C E$ v3  7E E E Eve wa-  EE sQ e@w f RXl h8 jven] v 6F @B,¥/ Rɋ `ɥ, 8 J F \8 27 .CSECT $TR: c&f7 7 D7 D < v ,, v  ,  , / / ed ɥ//7 nv P  m27 &h<Ĝ E%22  :  z hww e<@U@ :  @ KFn : 4  R L5 =. . =. = b 5  f &+ j aC 7`gh L*B 7 <V; F  $mn V; +  P | . =  m*G7 ɥ(PɥOGɥZGɥ-=ɥ+ nD Bɥ*#%A ;7 7ɥ(*ɥ-ɥOɥZɥ+ " ZT 27    bi7 $jEE 0w6 k z%%z< 0    %%Ü2  E && & = 2E  e  .&, . .WORD & # > @ @ @ @a &  2 @ @ @ @ @a  05w(f! x@ >%; pѥ,6&& N' %%"ѥ)e44e E8U(  W( PC31 W- 6CD31 W,W)ɋM fI 6? j=? ^ hV <  `W( Z D  FW, @ *ᅗ  ,J? Dׅ ԅ   W)  z   .GLOBL $DEFIL ,U,F?I?  w |? >wf݂??FILEYB7 P y j70e ݃ fU  E8 PE 0 -~ ꗠ( 7 :Ue-( ꗠ,)  EUU7 vU7lTƩ 9678 pꗠ,) `  EUw X@ ( V 0ꗠ,  : .GLOBL  "7w-~zrww  ", 6& &Z2B6:<===@A$BJ)& !@!>-Z-*-65 5$5 Z.>->-׭ L.. ѕ?ѕ ѕ ѕ `.whZ.Z-& f,L-/ zrW 7 4F-/ D<W 7 R-/  d4W Z->-d- n-n4-n-7 x-~4-x-7 -d-0  1 w4 w 7 07 7 7  1Е 22Е 204w7 7 7 -n-7 -x-d-d- n-n- x-x->-Z-7 • !•S. 5   55 w.Z-# 0000 ERRORS 4d N(f     `A  w 0& \ 8FA P X5@ z E m C 6 6 @ @ @ EC n ,&  f 2 L5   2w &: "X { :  rw 9 @ 7 fg-7  ~ &P w :  NL$ w5  bw :w %:  5 @ Ee  R     & w 7t 55 :  ::  (wew # Lj @b :T3:5 w ng: 3:  w XE:CF Zw Hd: w b#  CF 8 .w  @: l"w 9w 9I *w , w 9O  w 9 X 2w 9 w \B7aR?& 7 w tk:>F t w ^L:w XL:  F L 7 7 w L:w L:w %: @ 7a& *7 $w y:F r7 w @E bw _:11Jw 9 Jw ,w 9 J w ,w r9 ~JJ .GLOBL $READ,$WRITE,$DC$IC$LC .END MAIN. .GLOBL $EXIT $EXIT : MOV MOV -(%0),-(%6) JMP @(%4)+ +10,%0 BR +4,%0 BR MOV -(%0),-(%6) (%5)-4,%0 ADD #10,%0 ADD #4,%0 . = .+: 0 : 0,0 : 0,0,0,0 -0&f&f 8 7 <<<0 <<  @ ! eW ..<- D ! ҕ^e@ - - x"W0Օ 7x7u  LeB5 82  a << < e@ -W!<.Օ Օ B le-xLJ-0- xɥ0  f  D z%ɋ3 .TITLE .CSECT .GLOBL : JSR %4,$POLSH .GLOBL $POLSH,$NAM,$SEQ $NAM,0,0, w A (- A \w A w Ae Rw , F އw V#Ffry Kyry7  K|pyry ~-v  -|ZR 4B, &',5 ee e "w 7lB&e, "7lee "7w-rww  yy "y& &ry&y& &7n77777 77U7g7K7j7g7m7j7g7g7d7a7^7[7X7V777K7Hw  yy "y& &ry&y& &7n77777 77U7g7K7j7g7m7j7g7g7d7a7^7[7X7V777K7H7E7=7D7B7*7$7!yyyyyyh!wwwDwwB!*(H zy/ 6 %Z &y/%Z \7? y/   Vw: y yPHw~@!e0wxw77 +%5wwB!*(H zy/ 6 %Z &y/%Z \7? y/   Vw: y yPHw~@!e0wxw77 +%5  EE UH0 0 e U0 w7-FFwJV\@.767 6e 7 ?µ 0l0µ 0 0  C ``77mw77 +%5  EE UH0 0 e U0 w7-FFwJV\@.767 6e 7 ?µ 0l0µ 0 0  C ``77m 7zw6-rx} :{*76{0L7.:{6N7mtE@{0L7 D{6N7m\H{{-{w4 ww/fL{L{,y@ɥ<>@B¥,杓y¥%$ %7 ~7rDe P zffgfXgg0.@ @ɥw ,  .6F72-,(@{ 76{d |7x֋5Vw%, b7nf}}}& &D,w2w.w."eEp!" e ewecee bEeE E!# e yee=gee EeE (=7\V7QKC  ɵ1a(, www"y xQxly"y`c!~ze r ~ P {gV-P.&~f~7O5e 7 (~ѕ ѕ J&~e 7 ݇h!ww"y xQxly"y`c!~ze r ~ P {gV-P.&~f~7O5e 7 (~ѕ ѕ J&~e 7 ݇h!7"y"y$gbgggg~MODULEѕ ѕ ѕ ~,g$g~ѕ<ѕ>ѕ ѕ Bѕ ѕ xwf7 @wJɥ<> $ "7&B@s%B%m% %l)wf7 @wJɥ<> $ "7&B@s%B%m% %l)w,y E@7nɥww ~v& p,y^z  R7&B@%9%/% %+wee z杋q  ww`oN(P@>eՔ &f"w 7w% P zgZffPgZfw"w"w@ :7ryyywww>wh:gPg7 hjif*k&P f^'w: k. Qɕ ?H*k^7 L77 7 7 7*g\2 7"w w vr~2g\ & w\w@g\7 77 + & w"g\ wg\7 "g\7 & w 3 hf2ih7 hff$i8f7 zw*B!e7370 E ! ! ! ! www7 w ww7 "-&&7 7 - 7 f/5& w B  E u  e "$""PA"TA  ĭ7"37h^h^h f@iffh^i^h^h^w,kh@i^khNi Nki\izkh$i4dkh2i4d PAL11R V004B  # wwwPwwwwNwb77 Uw 7 7 Õj. j7& wiD wwwPwwwwNwb77 Uw 7 7 Õj. j7& wiD i dHX 27 \7 t0D %?f 5 7 77 zHw$ 7  5 F 77b Xw  0w ,@j\ jwd @ 0 iD"w4 ti   JHw  @2 r, 2lh@idvjf `F  HH.,i i@Xʵ ZC!$@A(CH׭)NFi i̕`XZ zEHNFN~F   HN&@ACBEH׭V)NF`wwbwvwwwwlw   _wwbwvwwwwlw   _|:7@=rp ?!b5 ?TJg$tjͭ\ͭthgf^ͭ^"FNvjh ^H;h ͭ7!iwͭ$ \id7"^we  h$iZewghhw END &VT7}e D!_Bͽm%(c w],w; & Ji`wwwi7&f"e  ͵ R͵%͵ɕ= C͵͵@G**D`$ D!!e $͵@G*e*pw(wiE e8 *fQ$H  R qf   w&R (ga^Q ze     = qVg  ,g7urle& wVP wP O7 & ERRORS ww*wlww*wlwpwwxwwi@(p >m ßå U iʐ ï}ïy @ vheli<zw O +L. & J,& " JH*% sP<  P? m c;w Fßxנ0נ9å$ å.å  נAנZ נaנz  *E  8iDim7B h   ? (7 7   0  :77 7 T7 |w7 $7 f&P7.r:4@ w`B@f: @ε%,yw wɵeEHA%z/vn>r eV@@ww@ihi tixdPddddddfd g̕:ww@ihi tixdPddddddfd g̕: #(׭ZO׭RK'H   tlY P )&˕  S,* ˕7 7 NSvw& #%h )OLh2i|,w l  jV7wV hw  * , , + ) + - <<<{9SJ)RJ #B!<9s9s9s9s9g1c1cSJ)RJ)rJ)rJ)RJ)RJ)RJ)RJ)RJ)RJ)RJ)RJ)RJ)RJ)<