>7$J_>: `Q$ȋ @ B C  ` YSjLvLIBa$'Ba,'%&fD'K v jL^ O's&&@e1vLIK `K '8}K xeK IE}K ,9FjLpK %8}K J^\rX\ t W3=:LsrPSUoU| CyW. yX N`YT T @@}~#~@s &@pBw ?06 "T T ~~E0f8f<M `Txw , e BfE͓͋7  @ D$ e6 B  @ǁP%Haw eN1" $#  ̋ NC ̋&͕ E  E?  &    w 6"&f&! /8G /V e@8f f" `DaJe "  E  w J ` >C“`# 0 C B 7!$   #`+ KP   w w @a/ Ba+Aa B`A D@mE D x@B   w 0 , w P7w \PABCfDՋ. ŀ 7<W ewW~W͊ NN`$ e^    $tBHߓ1$:Ó C"""E8bw ,0B 5  wU   7 ~f  7 faC$&pcF %$C%@`Գ Aa ,Ӌ(q%(  EUHQ̳ (&  Β ,^ 6S$%5beNa  搎NŀW W  װΌeΌ%H p MECP  "ϰU ` ( U (0 w w &* $$$E e)U@    J U@w  "Ő ea*Y p ŐŊ& " E T (P $bc H  U  "b UE T0 0 ŋU  pU2"װw  <@E%A! װ5KE֊EeEU%p!Ed Qbep "װ,ŀ Q 5lH!Oc Jp  ŌW  IװAa Q  `E(f a c   KаOe$d d cĊ  l "    E f ы   D"ᆃ עJ` فרJ b @( &^ )   @ e @ e 7  e 8 JPPP03R  ee eQ$e Z ` e "E 7R   DD` D0 :  !w > F @_f 0w  MONITOR V004A ߋt͋_v0&t*t&t*t:sroCyyz/N`Vq+fEE-/D' &&SNQK-|KKoT      7 7 hw f@e@  K"e E\  K"M W e    w R < w$ ew LB   w  \< w ew | 56 e? 0 @#E?UU6 3 w(  6  < wL epe4K#@$2  1  3 0 '@fDe"@  H P  @`$    eee J- )  e d%   ee 2 ((e   ( & $ $ e  ( (#(Q$f  N e &e&0f 6ee&e&ߓpefeU%AAaW e&&pfW;A! AMq R#? $&& &  `̵@$^ r&ŀe 2& NN`# ^GEFILOOTRUffA!N ,l&, e / f#)"#W! J %e&Aѕ & e|eD w   $D VeP&& e w 2(xAL%ɋ   0p K H r  c1  ^N̋me &RRRReRe L  , L e$Q$ ,^ L w&t 1 VB,BWf& p0e04 wJw W ͕,RA!ʕ . ee4/  %  Q$U$U%  AB I#   f& f a( ֵ W&&  %  ,^ b)̌ $$ &$b$"  h"  ⁁Wx &e !+ffe5@'&&f}  CE Df ͝U@e U W Ɂ w  W Mw l W W ! f cU 8We U N U e U U  F!- F e F!- f  B EpS $`1 $ ^C . DATE:- TIME:- EEaC$&pcF %$C%@`Գ Aa ,Ӌ(q%(  EUHQ̳ (&  Β ,^ 6S$%5beNa  搎NŀW W  װΌeΌ%H p MECP  "ϰU ` ( U (0 w w &* $$$E e)U@    J U@w  "Ő ea*Y p ŐŊ& " E T (P $bc H  U  "b UE T0 0 ŋU  pU2"װw  <@E%A! װ5KE֊EeEU%p!Ed Qbep "װ,ŀ Q 5lH!Oc Jp  ŌW  IװAa Q  `E(f a c   KаOe$d d cĊ  l "    E f ы   D"ᆃ עJ` فרJ b @( &^ DqF   e 3/ . fe& E NaeEM MJ f& NJ  f ,^ _e   A̋$)&E eAaW$  p  EW" gE( ևJ!  W=J(@U%EE ,^ $)6; "&f( f0 R,E KSa KcW" ge B Q$p  ֝,U%g"MBbF $D`);D` &*   y54- &&( $&& .^  (  t  e!&#Ee   U E3!( &W E$ &  .^ 8  e C@! &.^  U%g"G$B$bF %? EL05AaAa5EEd e (  &* e U  U@ 0  tU%g"G&EU C cF %44j  t#   g"G<L    F W,#;L,8 1 -Bl 000 E 0 e 0( &*  E?LQ$C$cF % C` !( & e(  &*   U%g"G)SE    0  U%g"Gac)$BbF %"g aE[$[  c ,J Oc! K C` L5 s V&* C`$U5$B  $5$U@(  *g"G܀ (    %0 C`  J D`$ !$$a!!  (( #)#" ͋͊Q$B S($3z]wE_P hfkNfmCMoErv-xqF $$D` R&*  D`̋E B ȋ9 ($) & & .^   U%g"G$5"ۆ 5`  :  E  U (  e: ("$ `%͋͊GhhE6 w7 l Õ7 p  7 Hwr wb7 *CW Հ |7 7  B߳tՀߕ@t97 D672G7 FՀ  %& n (   7 Nߓp2|߳t&^  #ʔ `Z 7 & 7 2 ~   j ꀣw e@@ tA @ w pe 2̓@ p @ d e6B @%w"CY7Xe  ߓp4 w|   e ! xe w!Dw!FeXL@  \e: ׋' j%' +@W 7wz  7\wl^$ U H   ށÔ "-~t N͕eBC 5  & ͓ N N"7 0 V7 Gbq w &O 7e: e ABCX#eX}   @$ $7 !7vv@@&EPe dΓ 3  ;'8 O76  ew%ߕ $^ $ )ɐ ǁ $^ f5ɕ &M 585 U ѐB`Ѱ `L7 & <f7 7> l  ߟn U@l$_  lx f7e~Tv.xf 77UAh h j UAh$^ h px  h |H.M w e w 7  7E@L LNf<ߋL- S ʋ_ \Y   Qt nIN d f^ ߋL wLJU@L$_  Lx & ߕ N   &^ %eeA mIf@ OWҕ^J@A Օ E  Iҕ\͋͊W  @ @Q Rʋ %6RbIɕ;fIAeV! פ ̕ .A!˕$Q$ ~-0  @ ߓp ̔ @&^ % w8ILL CMDINV CMDSYN ERRILL DEVNO FILEILL ADRNO COREc %8eL  חtw w  ae Cw    BC   w W!w w j7 _t&^ pw P 6 3=X30e $؋ hw w e0ߐvߋt'#U@ ACBc%DUe ``E  l@PHU% && ,- /$^ ( &^ & "u > U@ &^  /{;!D|"|M0K1K2./E@ ,@  ##`F U%M 5>C ( aØ` (E` fS@ EECDe0 f `$Ugzw>     e  f  E  `#' W'͋ WUWe ee e TZ  W#e1$ 'd d0 4@c  W3 e % E0 @c ` V%  $g"H @ U$eF e v&*  JEl&&  E`"D    (  U7   (Hh`B$$-,^ eB UJ &^ %7ewe|w~xU% e) & E Ee@wH> 4.f  E !w ~ԋp!w lԋj!w ` Ձ!w R AaBa !w >`!w 2 Aa@aO!QAaP !w &N`֋:5@0ĝ ) Et a b`Z \ XT a a 0݀U & & 2w x&^ % , .e @e("ep & e2*E? cc8$)  E S e$^ ( &^   Te 8 d0B`e & $AAIe ߋtߕ$v&  U%g"GC  e e(   e&  L̥ ̥ ̥̥̋ ̥ I  w P ˥*j .g  6 ˥, X T˥* ˥]K I G H C B&       ˥:0C ˥,U% "˥*  ˥. ˥[ ˥/. ˥< ˥  ˥ ˥  aeAbEɋA% "U%G!   4 .˥: "˥.˥$    & ˥0 ˥Z˥9˥A  & & ACB$2  Ae ! ! ! ! ! `0 . t1 D Ѥ 1ӥ, ˥,˥<˥  ˥.˥[ f˥*8D`%  % %2"6U%G  1 K Ӌc j2 & Β | r˥: ˥.˥$D U    F` 0˥: ӥ*@ & Β0 e& ˥0 ˥Z˥9˥A &f˥* Ŕ@Ŕ@a   @a&^ %&B A!"W D , COK STE WAC&^ e%OI ZZa 達 g" )em`& ($^ ` H((&(  ee 6## DASA ECODBERE KITIENMOPR AS DU ZZ&^ %0 e@@em &   c `@@ @)#&%7 2JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECL e `  %@ 44W-& 5"< de#N#e % &^ % 6DECNOVOCTSEPAUGJULJUNMAYAPRMARFEBJANXXX E 5 @`e /: W: "` @0- L &^ %eE ɕ hɊ4$ JRR XA!⊎ &. P f%f/ @e h"RA8"2 Ɍ",$*Ɋ,^ "$ $RR"&( @ %  Avv@K  `Be (e E T%T%T%TTTpT $ (a%ee e  e %& &eJ###  p&f&e"f&AAcDD 7FILE ERROR !  & L   8&& 3e0 7`$ "U%0 Yb.$)&&&cA!D 5@ 77 DEV. FULL ߕ ߋtvȊ& N&"W0W ѕ &^ % P  I W W,CAנ> ` ` g E A(eE eE ΊE`e EN W= EC@@@PN !&^ %  a  WR  WK c%@eJ!!! ̋ee&^ ߓpD&^ %2 ɊA!@ , 0"3  BEB WS Ɍ  3U%## A >ߋt'@fA! wV%eJ   e4   $)3U%0e @ ( &^ p&^ %eAu  H D! ! f h eeɋaE ^   e&C 3 e fE e d- D 1&0)d ddEEd 8 5   U%֌ ߁ LɌa M &&&A&^ % e0e K" A  W$@ $` @  F e 8  @ P$0e Œ A% W)E((f      '&^ % @ ̋'@ߓf  D @e      % % E4$   %@eJ!!! E0v8 p 2&^ %ea@W0=&& & K<<< B: e  ` `  d L b $ $< A!  2 " KX<LI/: `A d   &^ sɌ3 o m7R A!B0Z0W W   B   •/  :  A ߋp͗rŀ^UWI•\ ͋Ba͊QB  BN DIA% &^ % & !amB: ( #W[6e \c p s! bRK l c  A! ,  J W. ScA!W]W0W9@WAͥZfW,W VA!N  m&^ %ew H R   fa e W%!  D b aB !  p & . 'Ȋ% W, 6 e !  e 5 0   f%ev&^ %  @e e Me  ʕ ʊ $͋#C( . '$ Ĝ %`(  ( ͋,^ +  !v e   ͋e K)   &^  )$A!@ , e @`e 2 0 F D  I ;" 0 350 `5)N 끃 "  $w M C #%C me%A &^ %7 Ll֋N i *fE E  @ E N  Q% EE \5 E `` E N @`C`  5? 5ŗrEW$   @  :  F* &^ % u wF&M e v a( I D | j   X E eaE& & EfIDDm &! & e#  E   eDbeA LA   ! 0 e e  | .M $M "U%G$CE   em A    e$^ &&e E]e( &^ & ݁ "uz +SN&*)-fQK'a ͋,L w~B ` 5 5 6   w w* w4  DUUEU S & fNUVUe #<f& * 1U U@DEU!>Uf& * 5 U UCB E e v * "U%Gef.  EeEv &&&^ &ep T E eE`E& & EfpCCm   &    8      % 60 tE   EemLAN   2  (.M $M "U%G$^ &&e E]e( &^ & ݁ "ua ͋,L DnB ` % Z$7* &#LU%&& & * A<,M && = ,+   e  *euF!%"U%$Gef. Dd6&U%fN8W)C$ N! eeH!    Z%D RC,e <e c$B  D .M $^ &&e E]e( &^ & ݁ "u EeRRRRR %  22 2    F&USw&  p 4,0E  2% e 0 00 0 & 0"U%G E   #ccD  fNUVU00%%% p b $^ &&e E]e( &^ & ݁ "u 9:-  -5@! E 6 &M  $^ "U%Gwf&  p ,M 'p pT e TTTTTL&M 0   E Caee D!K& E ae f.M &0 & N.L &0 L &M  WE&  e&p  E eE`E& & 0pf$EA B` ~0   n& &D &  ` ic J1  6!(   6!6   ",T  BaBa6A c JQ   0  ! $ " lc  V&"BU%G 0  6    B  &M &&  &  mm$S # $m # f0 Ze $M "JU%G-B8< v! eeH! 6$^ &&e E]e( &^ & ݁ "ua ͋,L wB ` 5 5 @* H  &#,fE+Ue t * &M $^ "U%bGe\f.   Ee E v &$^ &&e E]e( &^ & ݁ "u$AcfNl & E CD  aCU%W# e  p p 0 P e"bU%M%& N.^ 0 E e E `eD#E &. 0 &$^ &&e E]e( &^ & ݁ "uVq &$&%-('#/ xCa ͋,L wB ` 5 5 i* p 6&#Q- P5?O & fNUVUJ#,;!9- 8 BBUBU8   * 0 &M  $^ "U%Ge f.    EEe v &$^ &&e E]e( &^ & ݁ "ua ͋,L wB ` 5 5 w* g,M `$ [ &#c bg & * X   #,4   Q$TTT e #i f   U p 8 E -e Ee v&   E *.M &^  $^ "U%nGehf.$^ &&e E]e( &^ & ݁ "ua ͋,L JB ` 5 &TT! #  H #(!' (  8e eef$C# 0 *C.&0 L &0 & L 0 e  1&fK ( ǁ'C!E?  * F0 *U "U% Gef.C& %$^ &&e E]e( &^ & ݁ "u&M %  GiU 0   pE  E Caee _ppl &pK!K  .M  leD<EE?E !> Q   0 .M & & NM 0 "U%GD& p rHeAe 8,BU% 2! eeH  p *$leU   w$^ &&e E]e( &^ & ݁ "ue& $EKcKm ; 8  E le$5@K J ,^ e&T&T 0d%aT $Q$K "@U%G$^ &&e E]e( &^ & ݁ "ua ͋,L w:B ` 5 &  E >w   f5eU@  [*   & * G &( 8L'4e Q$ BBB"   U@ U e  "U%Gef. U U Bb 0 * B.&0 M &0 & M 0 &$^ &&e E]e( &^ & ݁ "ua ͋,L TB ` % $w*< &TTB$W!"W!7 Z K + 4 J : Ee Ev ;&C!EU     be`e`S)B v * euF!%"U%Gef.$^ &&e E]e( &^ & ݁ "u(' (    7  E    $ &`B   E`` L$$E0d$^ pABDU%E 5x W h"U%MU ˋ5EMK55 8xB$"  e "E8b$^ $C Bx   "u U  f(oT3`T fNMKM#H& 5p 7 ^e& Ap&p J*fteȋ W EWSW MW Ff mae7 27pȋ$^ |t ( ! @  x p . 0qH pD 7 356:'"90SUVYݬ_?Z-KMNPѠ!$\ҦABDGH.<(+ɠ356_'\90SUVY("Z-KMNPѠ:$۾+ABDGH?.B+X * ߕRM  Hɕ5"PwW"wɕ .5P*E   qɕ ɕ 5"P 7 (T3 BAPP52U5U5"U5@UEPs  ~1 6 2 . w$^ &RRE@P55& 7w|593 55(#51 ɥɥ5 Uw• TwB5 @ TBw077N 5p 7R7(F"C &ePexe&7X  w & ApP7 w  q&p xGfxrp wV%(Ȋ&Ȍa$teȋ W VWgW aW Zf mae7 F7<pȋ0$^ "\ ȋ Ћ!@ ѕѕ bx  "up 6 l8e  H pD87 2356:'"90SUVYݬ_?Z-KMNPѠ!$\ҦABDGH.<(+ɠ356_'\90SUVY("Z-KMNPѠ:$۾+ABDGH?. l  ߟn U@l$_  lx f7e~TvH.M w e w 7  7E@L LNf<ߋL- S ʋ_ \Y   Qt nIN d f^ ߋL wLJU@L$_  Lx & ߕ N   PVeĜ`XZߓQ$```BEUA$^ B 5  &^ U 7 rf`> `5pDDp5@p ve& Ap&p b;ftȋW`WpWpWgW``!? ef mRae7 x;7tpȋ&5$^ JB( ! @  x p 8 qH 7pD7 77356:'"90SUVYݬ_?Z-KMNPѠ!$\ҦABDGH.<(+ɠ356':90SUVY_(\"Z-KMNPѠ$ݻ+ABDGH.<|:M @5@57 2  x 7(  e$wew  t @ 5@$^ 55  @@ 5  J &^ xty uEW! W! 3W! W! RW!` SA9 ,݃˕w$" 2 W! ( קx ӕ קyW!5㨣 h 7 קx 7 zwH7{fwro 7dJ 7D5  e, 5)K+PVeĜ`XZߓQ$```BEUA$^ B 5  &^ U 7 rfV4 V p5pDD ve& Ap&p b;ftȋW`WpWpWgW``!? ef m`ae7 x;7tpȋ&5$^ JB( ! @  x p 8 qH 7pD7 775p356:'"90SUVYݬ_?Z-KMNPѠ!$\ҦABDGH.<(+ɠ356':90SUVY_(\"Z-KMNPѠ$ݻ+ABDGH.<  +\IDh ^v(vhp@ON@Ԫp@p@vp@쨀p@/F{ef\* ON -}j7@7%b.rw PPPPX`(8O8)((<:( <* . .7("f& *w @Ew :C E 6 w (E *,C 2wt `D7aVA&& 7 w ]CE@( OfhOfhORi@NOh(O(ih OPihOQih(F{h{h{h p@kF֚(fؚhh$p "T8I8)(4G15.7)(3D22.14).b( 2* $77 D!f!V* !f!]h. @` B N *3 &ph!d*p!; FORTRAN V003A FORTRAN V003A 0!0-XXX-70 Pw KEe B 7a,8D& & *7 $w nEF L (^D7 w j@E(ݩ؁h ݩh ݩ(hݩPhݩxhNUс( U؁hԪ=(Ԫ@8hp@)6ԪSu(Ԫphp@FT  V .+b(+]h]hAGE 0000 *!<&E,#!2",#!@",#!$"E*!&E&(*! ) Dw 6E&&J w "Dz Dw D Jw Dw 1$DD J w Dw E UhU(hUPhUxhNh(dhOfhOfhOfhO!=6Ԫ("Ԫhp@6;0(".vl& 6   k.&v  -& a   d .L #'E 'w*"'y' Na:"'^;i$*DJJ .GLOBL $READ $WRITE *D $DC$IC$LCI O .END MAIN. J*E.GLOBL $EX%fh.S6(S2hI6=&A;-hp@6,V(8@Qhp@'e0f`e0#   e.r %  V  ӕ* * v 'd ( "";,#PF*#dK"eJ"P"Q"P #h%)IT $EXIT : MOV MOV -m*>E(%0),-(%6) JMP @(%4)+ .EVEN *bE+10,%0 BR +4,%0 BR MOV -(%0),*( @8hp@.E=(E@8h.+6)P(j8vhp@>:(@+h,h:h,@U.cb(c]h ]h";-MAIN.DATA.145 %L*%%.*E-(%6) (%5)-4,%0 ADD #10,%0 AL*EDD #4,%0 . = .+: 0 : 0,0 : 0,E0,0,0 .GL/=(@8h6К($hp@0 I.s0(-hL.aP1.E D&6 E.&& & f& & )mЕ :.L2%*&*&3OBL $OTSV *E-߄%&f&f * F %e *.F46 (h@h6O( h5(*vh.bO(\@ht6r66 A N v B .r'  C B A U.  7*& @'*'I*,'8W ##G" ,RF D ! ҕ^e@ "6*xF *" n9p@i.X(h*.QC:(*rhp@a6vUu(vphp@;W - T .e   8   n. 6 L I-E6 <H'.$$$$.'$P'd(n'# < :#=" ,FW0Օ 7774 *Fe0Aڃ >( 쨀>h.Ё( h].H?6v=(v@8hp@6v(vh@T. 6 mm  .0 m  Օ0Օ.VA!$'!5`y@#K" #*'    ! w,'Օ^e@ ՕB*F E  w!h `7a* G`GEh`.E(,Eh.ꨐ{J m .  ӕ-ӕ ˕0 .e:3e%V fK*B(נ נ  F#F#!%,f(%#6Dנ 8נ %#*(CwL>*G  (T mC B A mB A mA c  1.ef C B A @  . eӕ*U,(9 %#%%w`#*)7 Pfvppl 4*B)fn)V*FHP *v ؚ-\@N*jH&?dd++0WWv*HGv ss<W(*@8h.=(@8hYV$X>hhp@>Ru("쨀phphp@2Y v W!,v.*(&f&     R .  eC B A eB A eA e@ eZ Z  )5*f) ) -  ) )p#!#!)!*)[p< (( ( ( H( ( ( *HI(I.%BI   0&HJ 0 VP\(hݩhhhhhwF(]>(Tihhp@.nЁ(^%J.  ev!6 ͕- 6 .D v!% Օ1 -Օ.E.j_0000 )˕/DDe ,)d &f-"""*)* "-!` D *H ~  I .GLOBL $RWIND $RW*"IIND .GLOBL $BCKSP $BCKSP .GLa hh*hhcN(X(hh"hbRiZh6Tu(4w""hp@6Ouc- e0     .=(>@8hd r* *s  !" % !*0* ",@ @ >B*T* eFIOBL $ENDFL $ENDFL  \I D!F!ط2*vIN\m.+=(+@8h@8h.79fmnD *w * **7w *ww * 2' (*-8!&f ! o :J& + 7 v8+#!B+B+\I*.`+?@Et*FJC!E 5w J*jJ@`e /: W: *JT`T@ -Tu6bO( v hv@8@{.O( hv.O(,h]>OO(vhONhOw.r0   v   B. V 6 v @ @ @ `xX+HHHH j+ w*+ 6 0   CaCa.+` y *JDECNOVOCTSEPAUGJULJUNMAYAPRJMARFEBJANXXX ,JF!RPRu(Ofh OfhOfhNH|.c=(c@8h@8h.& }7! | *,  T&50*2,EEV!3~ &J& l( ]h`;@p@E 0.r0L    9Q  X. 0 $ FaB A @ v!$N  a ~ v6  B ߁WO*,. W'5 e:w"e*,v  Nv 0 \ITV0(( hh h@8hphp@lFi( +]h]h`;@p@Vd( c].  /#   .cw& 23   w e. E ,* -E%%  h*.-e:w" 60&$R-\vD(dShje;@ON@-}@7%@7@@+]@p@e@c]@h]h]h۩]h`;@p@sFi(( +@8h@8h. vv    w(.0EDN " v!$DE+Q.V- v!$DEXVR  *p-W(U55%E*-  "   wp7-!#.:7@)@(27 qh.b(>]h6+b(+]`;@p@P>l(( @8h`;@p@ 00.|90 ` av!$  `. "w   4 4f.-"EEE!",-  wT3.. . "    @&$ =wL 7@)h]hFcb(c]h ]h"]h۩]hFd(( c@8h@8h`;@p@yu($ph.& ( " mB A @ mA 3.@ m@ c  e  =. 63( &v (v$e *.. d $I "UUw t*R.0v$e V * .RuD`@@ݩ}@.& ~.=(>@8h6+=(+@8h@8hphvhz@-X@7w@7@Xz@`;@#t@p@e@.e=-9B.:6 C B A @ #"B .`A @ C6v $I H*v.": 4U0 "e *." *  0?De$ы*.W' q   7$7w((p!.&  ol  6c=(c@8h@8hqf-V(`-Xh>(hj@Q@"$e.΋V w  Jf. &f 8 2&f , 0TN 5ԕ,.. u 7BU w"* /*W'.L{uuu&$r#o f.rf  "rr  -X (Xe`h`h-}@7 '@7'@6@]@p@ Nf,R(#th Xzh Qh,0zhjh7@p@e@. eB A @ eA @ e@ e B A @    A.-p@ы x*./$ы~DeT N*R/  6 6 6 B6 L*v/.rr "  q- . &ݩ}. =C`44 Bl(Z6h-}h7""@7-!@p@n#h(Gh@F(TphpqhJv@`;@FӁ]@6@J.& &   4"66 6Da jWHS*/c w(W.a S- & */v$e  $I . B` "  4 g.   errrr(p!@7w@7@@`;@p@D`@>(ݩ}hh ( #}h`;hXz@Dz@NDh(:Dzh7 -}$7'.&4 " $ & &wB]&7 'Lw & &  */"UUUE0Q *0 w$2(**0 e(0  w  0je;7"".7T*p@`;je;h^.=(66&h-}h-~@7 '@7'@6P(@@@e@D`@6S( he@< p.p@7-!@7""@ "e2e(we,N0,wJ6 0wf7'*t0 6넃 rT  6@7 q@.Ece% D 4 4 4  U.&ww]@b(H]h@8@]@@8@]@@8@7-!@+]6D{(DD`hDwhf,R(#th Xzh Q. &4o& 4 " 4 .&4 & eE4-rLw  ,*06Da6WEWDv *0:T W+tW-q6 6*0D  e(7 7 q.L\ w %    @+@8@۩]@]@p@]@c]@c@8@N~Su(6P(h-~hh,0zhjh7@p@e@6;Ӂ(n7wh#t@ wp7-!?.#hD`@p@`;@Xa& - EE *1** &e(e(v$*(1e -DE V$Rp$r4  w w [p`;j.i ap@je;@@(p!@7w@7""@7@@@D`@..vU(6eh.*P*(7. <C E \% f&7.&&r v-*L1"UUUTE0Q *p1e "$2w >.{*1..`;@( w w  p`;(hf==(@6@8h-h~h]@-@7@7h&O(. . D`$7w((p! .L , $    . &e(E @(*1T  $D "U 7*1UE 55.i`p@`;@( rw w  '@7'@6p@>b(t]h7-!@p@`RhOQi@( OfhCaw  OQi+.r % Pw  (ph"w   eC *25    Eǯ:*$2 & t&f B*H2&e p`;.7(<7'h7 'h&j6=("7h7@)@v6Qu(6ph-h.O=(OhhOih \`;.(ݩ}hh W. `) `) X E <*l2 Em4  .I*25 E 5  W(5.& & & & & && &f&f6 & %\j.0je;@@(p!@7w@7""@7@@D`@f:=(86q.DhORi@( OfhCaw& l ,2~ lp.&e   .*2 Uf 5E^*2 fE`mw!$ E*2 ~Ԫ@8@(j7@h.&  h-h]@-@7 q@7 '@7'@6Ps@>b(h]h  ORi*.Oh(O(ih OPihL    @ .r   e  .  1w@* 3w7U w2ff*D3&ff&& 7 fNmD c.& U%aEce %e% D a.LU% Z.4%E .7-!@p@_6:(27 qh7@)@u\.˫h(Ϋ@yh@  ..=]@6P(@7'@*h3 E%  *3% F .TRUd3E..FALSE.ra .%e  K. F\  ak.t A Ru(P6Psh-hje;@@-X@(p!@7w@7""@7@ݩ}@@D \.ݩс(ݩ؁h ݩh .& &   $ ]6P(-~"7'.&& &w3333R*3& & &f&f& & & A& *3& $m"$    DE v!$0@ A @ A A A A E4.% Q-   %  X.  t&* \*`@+^7T*(7""hN7%h7@)h87@7 q@`;@p@ &&&&\~.Uс( U؁hUh0 7 '.bc@8@c]@]@S*4w+--  'DE *2400L    9Q *V4 0&*Ԫ@8 Ԫ@8"*).0 v4m%% XNV4m>i a( 7h`;@p@>i`\.h(dhOfhz. "w5$"u" ( w6wT-.& 5 5  "A"  - .L $ FaB A @ v!$D*z4N    /# &*4  cw& 23     w0U.D`@p@`;@( 7 qh`;@p@%67(<7'h7 'h&&Ca\\(.S6(S2hI0%    ` @`.ru"  5 q L (. @ *4w e. v!*4v    w(EDN "* 5 v!$DE. W  r 7"D`q*& \ Pw w  v0(j7@h7 h7h"7h7-!h7@8h 7>h7Kh 7phԪ@8@ &\Y.=p@( @8hnw y&($X{. X +- v!$B*.5DE 0090 `*R5 av!$  ` "w p`;n.fOp@`;@@V^(Hht:h7@@`;@p@D`@Oew \   p.E=#b,)/T'(ADEFGILOHPX  b. *v5  4 4f& ( "*5 mB A @ mA @ m@ c*5  e.  e\ 11 .& 1 \w  w FfO(Ne&h@`;@p@6̫b(E@8h \.=w *w wpu .wt wX  5m5-i.:5t4-    e*5=-9B*66 C B A @ #"B A  w bp"pA L `;.̫b`;@ (̫@`h`;@.A(A=h/ (@8h \!.К w5 5 w$.`$ w   tm4-.w w wA"B`@ **6C6v "$e*N6΋V w  J*r6 &f(̫@`h"&"w  `;>(B Xh@p@6O(w&hp@($h ,  w  `\ `\ ".4-w " P u" T.w w5-t5  ., 8 2&f *6 eB A @ eA @ e@ e B A @ <6    ,6&fW!.A(A=h/&&"5 \e@(6(T\("(p!h-X@i.Op. (h@h)w wrA" ɥ' 4 .wR " P' " 1<.Du"4 w4%UE!+xM65!w*6B09AZ,"7.p@@(B.( IqKh.HК(Nh.B\\j.Op@( h w  .j % wu"u. u w u"u!ĕ:ĕ,ĕ (H7'f wf$j7 w'7 $w   1  9%:  $&%\w  w w   pp0(&?hfKo(shON@,@p  \w \ p.X(h*!3. w%  u" Lw2.u  u"  "O. "2*77 .GLOBL7 7777777777777777\*77+-***/.OR..AND..NOT..L#p.Oe@(w&h.f$@vp@쨀p@zy}@v@6^9P(vhON@Ԫp@,@% \}.QC( 쨀>h&5-t5 wH .(w<5-t5  5$"$.N uu" 'T..GT..EQ.T*7.NE..LE..GE.    }*8 U n   *,8(&f&Cv AsL q D`w e.& k gA &Wt.L)vp@쨀p@zy}@f.0( Xhn6*(AaP AaH \!.Ё( h+ w w6 p(7-!.t5  K., C å å$ נ&*P8A   e`*t8  B¥  ɥ -0 W9WAWZR   ѥ.r. ee`& ". e .t .(6}2hp@S4@ON@Ԫp@,@vp@쨀p@#@&N/]  \\T.Hh0 "e u  H & . w u J u]. 2ɋp*8 D &f D*8W R  *8&6 )f& " !.t t t W/7. W' tt3D0(L+h,@v@a \@/+@~=h(4(S4h@a&\.Ϋ 5%.  , uw t ( *c]]] ۩] +]]3ąe K K#Y`K c 9wWK :K  {L}K  rK C%K .7&f>9  u*9Ëנe ee e ѐ *(9 @(8Hdhp@S4@Of@ON@Ԫp@Ԫ@,@6x@#@+@~9(Ϋ@h* \a.Ϋh:.]c@8 @8 @8@8+@8.& w&fc;z .(T\-X@("(p!h<&fe*L9 B em<&.p9ff&e Z  *9e=KQ\(GvhWhp@ON@Ԫp@,@vp@쨀p@6x@#@+@?>(Ϋdh@a\.Ϋ$?4-w(@8@8.L ff "    5 ,.rC& @. W [W Yt  .&ff A&f $*92 eW0W7)*9E0W0 W9BNV(0@Qh}hj@Q@p@kfR\C(Ϋ@h \h.bD` vN -_.6  " 4 +.   C w E "-X*.L e  G   %e.r " FWAW.:FE7 &%̋ 7d ,:w .w %8 `: `,F:n G(+h6xhp@ON@Ԫp@6@vp@쨀p@gnsHp@(h$.SuD`@@@|O &.         PU:  W*: .TITLE .CSECT .GLOBL : JSR %4,*:$POLSH .GLOBL $POLSH,$NAM QNR=(WqhON@Ԫp@p@vp@^RQu(R  Jb " \\ }&@aw p p.=S.&  w w / 7""7^.& T .O( IqKhAU$NAM,0 ;,0, .GLOBL $SEQ C ; ~w : < "6;p! 6: * LVnWPshON@Ԫp@,@p@#@/+@nD(Wh$W(@8hxN E\g.*=X  ew  wD7w (p!7""0.L  "0r w "Y@A^.HК(NhZR;w b:  ` w P0"j;:e w b, <;w *;e.; ɥ0[WhW qhON@Ԫ@,@p@+@d@ND=(W\(*@8h U\.=]7""D`$7""?.rreӕ  . $ %^CCE.B0(&?h_  N D ;%ɋ3b;*7 7 A<*;6& `hhON@Ԫ@p@v@B^Ѫњ(tIؚhQX\hQhRa(@8hY N \<.$b`r . w el 7""n.cCe.Kov@zy}@쨀p@ d!!!@!!*< !  VFg4< @r!r? eh@ON@Ep@Fת( ShON@Ԫ@8@v@8@f(hݩh"& \\gCʥ ʥ  ʥ  `B Ӄҕ .  "r  $( "o.h.fEffE f&7 $"v,"ON$쨀p&$~.&i L<?\? :#2*f<!!׭ ,#. ѕ?m*<ѕ ѕ ѕ @#w:#!jJF6Ё(8Zh:h@ON@FКk.( hh6\&\$l0    4 2.V >    2 je;-m, %Df&&&f&f zy},.Le7 XD n*<& fd!/+*W  -ASC(@= --LItOf@ON@:@Z^m(>h@Of@ON@Ԫ@u` ,: .XON@@((v   wje;7"".(hwzy}@쨀p@vp@b.fD  &&&&&x,b=0䠁-  j-dON-\SU*= P-LSU-DON{M$=yv@iZ@9>iV(*uhp@ON@Nz.67 6ON &\p{ME *.==6p@7'@7|.&&  /&&&&&&7 T7$ON&vp(T.L^f\& @\}v!!!$"}"=!  !>L2" =!7 >  J  &>~so( shON@p@v@@Nɫс(^.PXi@(*<h I.6 6 w\v  '@.& & &   _]6p$- &Ԫp^쨀p f"zy}&,*rv7 ~E   # ON Ԫ<4!> @"" >!7  "L><>""7 7 "$zy}hON@p@vp@쨀p@FmP\(\ ؚhX\hOv N 6 6  i &\h.O(쨀 h h\(7'"& &  w~ 7 '.bp@7-!p~.0( XhT>"%  & w8r>860 w, 0> *7 <7 7  >7 7 N@E@^(.Whp@Of@ON@Ԫp@6@vp`f6\.ԪOԪ@8@( Ԫ @(t. "!  W=f& .&AQ$@A.6#@쨀p@vp@C (> 'Е &''Е '%>w7 >7 Bw7 @2"$>!w@NQ\(0IhQ0\hOf@ON@:@hf&w Ԫ@8.bO w wM p(7-!.L 5 R : r.fE@l  @ *e'.&  t#A@ffe " &#7 <@"!$?w " F P7 J*.? P!!47 .• !$fQ\(a Whza \hp@Of@ON@Ԫp@vp@쨀p@Tv@8@( v hf&w v@8F.=7@)@("7h* ".Lf&& @f&& @7 p',,ONp "쨀p$vp&p.rA@*R?•SZ? J ?J? wU$v?!!!"x?  ?)?f1 f#!# 0000 EftQ\(<ph<h@Of@ON@Ԫ@v@@.O( h.N6W= U w $7@)}.6QuD`@@7@7 7 ^.ONS4S4S4Ԫp(ON*RRORS {?4d N(^*?  7'w$ ? ?w??FILEnh(#hp@@ON@Ԫp@:@p@vp@쨀p@b\.P( hMNŞ.& m G  V 7$7w((p!쨀p S4 S4vpW.p6 @\(쨀p쨀pvp p*?f     `A  w *@0& e l~A d"B@ 5@w vxh(dh@Of@ON@Ԫ@,@p@v@i@@6\.*O(* h.& b c  "r  &D`.LN "|eS` ԪppH.4CC\/ C\    \#.D0/+@a \@+  ^@ `E m@ C  *x@ F@ @ @ EC h 2& *@  n0(/+h/0hp@ON@Ԫp@:@p@vp@쨧6\l.EO( E h.rr 1e5  .  "rr4^v@a.f@_&$&7e f  a \&' F5G*@  ` w E `,@ 5w YEX ,  p@vl0(+h0h@Of@ON@Ԫ@,@pE\P.)ρ(ݩhOhh l.2   5 # je;" w e  V.&&E f& % v,/+, .=h( Ar  y 7E H (,Aw E 7 ~g-|7 v Z*NA &P@v@@6(hh6&\\&\\.Bh(OfhOfh  7"".:=6Ps@7'@7 '@.+@#@6x@h.fEU%f f& f& Dw T1E  (rANL< ~5  w &!(ABEw KE  5 ~(`pHhp@>6P\(Zphp@Ca\\h.0p@(( h&   ]6Ps -$7'& & w 6x,+",_*&E & & 7 Dd. #,ONS4"AEe x v .A . $ "   JR*A  w>{F=( hh@8hphy.P\.\ \ e e\w \  &p & .7 '.bp@7-!@(h.ԪOf D.KQ\+@#@6x@ 2*B5&5" :E*BB   &'EE*fB(/xWh6O(xKhp@Dc]@e@p@.fΊ @Ί1AΊ.B  "B  &C.&f  " $L w .& fEf f& f6x,"+&,O.&&) EU% : .wew Z# Bt  l ^V"BbE 5 w Ek*.ѪQ\(Rh.ɪњ(Qh p&&a.Oup@""@(ff)hvLI~f f&& @f&7 #,.LZlv\ &*ONttt*tһC! *q,(  0, v~v~@v~8}.v~  75 *~7v.˫((y}hz.~fvpZ 쨀p lpv.r \65   7 &ON(Ԫp.&w. ޻7 $ 7 \.*& Ν["& ΝW",*$ek*~e 5 5 *~ 2ȋ _T@  A _0x  &G.Is@Q@,0z@ ~g  \e7 Ԫp.  \  %S I B X p7*, T^ e r,PxYt :"* 8} . . .Jv~.7 &fA 9P Q(~g ONԪp Ԫp   6 |.Vp@Q@j@ZV*v fi"fl"fp*"L CfEv *.&. ./ )-r p7`  $3.L` 8 %.t~gBa.7 %\7 7 g*Q Qjf"f" wbwb*f"ע0ӕ f<*" f" s.r:@ABCDEff|    vLIBaR{h(hf 6~ph Zh`w8hhEQ Q&j&w   p.R\쨀p@vp@6 {** tHa X ý 1*NF"fb ( @*rCccexe*c9EEE$c =B  ,~Pjp쨀p.dl e\ Ԫp쨀pԪp l.\S\0ƻ,MMܻ"@ N7 jcccccc.,e  w dc4de  bdd*Te  eb7 Z7 B  D.  E e."e  7 y,y,y@^ d,yedVj.(twZ:w e& @7 P4 ON"쨀p$(P.e\f& })ܼ DISK DIRECTORY c* UIC T FILNAM.EXT DATE *, MODE 7 H7 T7 Rw $.xedrdcc-5'dd.e. ЋЕ?Е xd7rdcch,K . Ke"  & S.0eE v17|~j. " ? Zz&e Hw tww$ \:יc&>X4%]@b.sR\@iZ@v@ START DLONG LASTQ P PROt],a o. s f*ewn"w ddcc7 e*e/3w 7w %*fJ.V f1 Z7 N@:.| Dl3!5 D!1.Dt)N~@k@`   F`w`zw`xw`xw`rw`vw`d  %>7 .7 4,|.fD& &&&&h!@.&7 DfD& &&  Z Q H @ 7 TOTAL BLOCKS e/  I*4fwX73wBw P.Xfw .%xXde  e55.-~wx! aF ].%!FZC,yt k~k t^ ^  y,y7 7<B!ded^,V& X@F&& 6  ON D(Lh!A7 Z*ONv e#ý ******* DISK MAP  = BLOCKS USED  BLOCKS FREE bdh.f k p n ׭L׭E w n*f PNK DLde  Xd Y*f. B @ Es. 6 ( `e& "  $K&: w w w w w ~0l  fXz.tw  X?   y/ T T iZ "ln.iZ  ԪOf|  *b|~#vtfdf&A,Z*"e," ( w w^ k w _*f *@ ec w   ,gwp @ a.Nu(Kh y/  V ;~l7  \T  w%Z7+ 7 ( %fT   4y |m`e.Ԫ Ԫ Ԫ^*ԪԪ *&&"f "*о >J&*zQQ@ ec*:g w @ a-*w &-*^g*w ׭w ׭w *g|. t7nexwlebwd^U%.& e) & Ew: E.L* !  f e 7   w&$=~ m  7 7 4y p` Z f e   w ~  Ԫ. e.ԪԪ  ԪOfeAA wL^Y T% ) / tew jbZN 8,g , cc 50cc*g  cc w ~ԋp!w lԋF.rj!w ` Ձ!w R AaBa !O.w >`!w 2 Aa@awd  wNTmBmLmODpTRppTATpCCLp!~mH h jf"V N Z f N`  8 jf.\ \\S\ e :.& & & @7 t e\p 5m,gccw4wc *hcd" W 2d B U*:hO!Zf.AaP !w &N`֋:5@.0ĝ ) E a  "'  Zwv$ ' wJ hF ,yU~n ^  y,yafL{ L{,y,y!ONt(p. f&&&&& ~\-ÍJ  ~R..7"#4dH$eW bd B k*^h7 hPhh *hdd. $. trl n jf a.0 a B݀U & & .V&0% 7  e% | L{,yL{  |,y | ,y~n $n7 7 %,%e7 ׭ 7x &,kt4yNq(:5;oS%]-1@!h.R=vp'(Rw7 w!*h7 w7 e/5*h )-*-* ) w f|`.O(,h*7t  p d en 7z   n 7 j d ` ww0 7~o* ( *  7  A +@p@Ԫp@. &  . & @ .&-&i w c  w 8 . iw dw w w csw ,w Z w*Hi.] _f e^ /    5,y ^| p y,yL{,y,yL{  $~xon7 7 %7$ 7$ Ћ70 $<  7 J "ON$Ԫp&Jr.L 7 h 1&j&j &j*&j@p &jj7B7@@747 *Jj7 7 7 :7 7 4*2w  w q*li"w 0  7l~ w &j*i" %&wRw.4.OO(vhONh  \6 ׭ $w f N`  Z 7T L{~ L{,y,yj $n %L{~o,yL{N ,yD e5ONԪphl.r % 6 @7 &ON(vp>"87 $7 d,nj7 }fL~~~T`njn*jn`nnjnk!w,jw 7*ie(eB>ee0, *iw$wee- di kK  1zK 6 ^vLFK cPLoQK H poQK Q y8}UK u=t^^ -^9.PRu(Ofh Ofh\\:%\%w  p.RQu/+@#@p@5;73 @- @% R % $$Ћ7 ׭ tw h jf"  ~hpwRwPW"(j<*iw  w c "A @`$AL (*"jw | &cc #  c Fjw >=@ ne )7 w . n}`n`nJ,j-}.I ѕ?ѕ ѕ }*kw}jnjn7 6>.HUu( S4hS4h]f&\6?.&ff& #% ! "K.& f&7 < @j WAf" " u X f" ZV :  E N h~p0 E&qAw 0_`jw Ojjw Z*tj7 7 w w 7 7 w 6P7mjB7 <vnnG*(kw Jnnw >nnw 2nn*Lkw &7 7 7 7 7 7 7 &7 *pkC.oj@(@jh7\FD%./+ ,ONԪp<#",*Lv\@w   EUpmh&f- wf~@twh twt wtwz~XqFw ccw 4c($jcE 4w 8jw ccw cIjcc cG7  }4nvn~k,k/  3&  Ln.kn~k/%& H j[.lp@`;@( 6Ipr.Dd@+@p@.J*wpx7twjBzReuttttruuxxvvdsx8rrrrs\sRsls6vu^vuDvuK$j  %  w  kcc w I"k7`w ccw cLBn*kn~k/ V3 & h*l Vndn`~k/%Mw w  p`;.ip@`;@( 9N6 6    x.&&fU%f& )+ '~.L  (  O~q$vBw`wlwwwwww xx"x.x:xFxhxtxxxxxltvt.krrv rxxnhW"W"Z&ER@RL{ P4kcc  w *Fkw >w 8c7 " c.jkw V7ccQ**l& w --TD*Nl -N>-H8--.*rl -( Rw w  p`;.dp@Sf&7 l(+,ON Ԫ"l(d.r ev\@T,y0~Hr rp pt^h h^`Ty,y7 D7L{,y %87 (7 .&$U[\kwRl w Rw `De0k  8-2*-.*p-/.kw V-$--*l- - -J*l- --W`;@( >w w  p`;X ,Uw      p.D=v@pY e |X~rL{,yER,y7} |7 $   7 |  fh}ryZ^ Twt pp o*kp  4Е Е[  r@. l Е,  Z( zЕ[*l-Xn-- - *mBn ~4n  -*&mB& \.i(p@`;@( *w w ]@Ԫ@i. &      E .&& & & ^   N|rym~8s1 ſe7  h}Ӄɥtwtw ovBCztme_] pt*HlC! , w 5 ~~xllzzvvw &`*|l%p b `w T--)*Jm-(4%-".!-(-" ".nmj nBn 5a p`;.l(p@`;@( 'b@  9^[.L7 f ONԪfK.cEX P zssssss~sst$t8tXtsssstDDm DQ$*F   Dd 7 DQ$*FDdl X V X.lH  Ћ  Xw m*lp 5@o oen*mBnnBn vn4n ,mLnnLn VnnVnj*m7 -fw w  p`;.d(p@`;@( /gr7  ON"Ԫ$. e h*FQ$Dd 7DQ$*FDdDQ$u~(t6J7DDd7 ɥɥH  fi.l    7 7 7 |e1$m7 e7 o n.2mpp j^ gw 7 B!e@,n|z!7j7h7h^Rzd-**n w p:akw w  p`;.yul.6 6 6 @7  x ON"v$&   %\ew m e P" f&f&~  ~t NΕ twP Cå ån  Е. !p/*Zm < D ЕC(p,~mEz7 t-rh bo*Nn:'a9E E*rn*npe@p@#t@.&@&f&f  #q p.ѪњEp@ON@@Xr$ נA   e`  vm~ulu  Ëנe ee s n*mnS$-T N:nW :n7 >^*m84  Е- Е-*me8 tn # i*nEDIT-11 V004A LSP OFF?u p$.& `̠%%.L `&v.& f6& f N&.&&@&&7 8   we ѐ  v@(  D~uZmdf ->8.7 ,exf ;Zx*n0Nm>J&zQQAA wC*4nL^YؙcxD m 6ey n in * Bo(XRopppx wurwttfou@uw`txssTvzXz `;.rA3 AaA.W 9e7.*{ONEp8J.L @A ff7 n  ON"$n~ r|e #0-6]7 #0-~v 6ee ,}g*Xn0ЋЕ:9pЕ<E *|n 0Е>&"8 *n&"~rpslzoxspFv@tRtjx`qxpr*oWHPMXROF0BEMRIFVUHGTNSPCDWLAKXJ01234%o56789/+@- W#,&@ q 7w(. e   ] .תv@8@Ԫ@8@ON@e(ffffe,e&e 4ze re n4~vRe 7!N  #&Õ  &0А \*n mЕ Е f&*n"eЕ h d  o.pYxp*p.  `&wr . 2 EY F!ffe  7 ONv@8Ԫ@8.6ЁON@@(2-7!<e 4$e  !!!!! @` 7 B ~v& T LINK-1, oR ɋPp7pcc1*2o  Z ,Vo P " 7 *p LnnLn&  w P*p    @ k .0f@& `f % f -X .Vef fE`@  %D&&7 ON 1 V005A PASS 1 PASS 2 # ~~~Xlw~~pwly!p Е vo*|ow uɋe I *oI I I I I I*p7 ~@` -tnm*q   7 LF *@q   &.|  @ re|.@$f#f..К쨀p@ON@@.D&&& @& D7 Bz(7 Bzw8l~~& |rl ~w J*oI DIRECTORY TOTL BLKS: T*oOTL FILES: FREE BLKS: FREE FILEj pS:-4. e v*dqVnVn LnLn *q w  T7 w 3&fU%e"f"   #t .RTFO   wZ 4-d7 $ ON"쨀p$&$ &G.Ё:@ON`&ZNlwlBlw`6lwT*lwlwlw&Ew~`xpo`p'bpw .zww Lzp7jw *ccc{(pc*qw 7 >4nBnw `Bn *q4njnjn`n`nw.q0&   w, Xz.V(`-Xh@Of@uf7  ON :Of7wlwvlwjlw^lwRlwFEw2lw&l&y Zw %w B-L* p-H*70w cc pccc = pV w  4nBnq*r rw  d1 \vn4n!D*@r2h.d `&\n4n .&f&    `@ ` j.&B    .miZ@v@Ԫ@.CeDe~xy&"y"y@$+R&yyvLElMExQM^fp CONFIRM: .ppcpccf` p{.$qɥLɥHu ɥ ,dr5n4nnvn4nvnn&*rBn D w 7 : jnww *rljn    @ Lv60.Q@j@(&&&&fffy &f 7 <q. ONviZԪOf<_~Py\Mfryy"yy,yy@ oɥ lk dd*Lq. -\& `&ru *pq e#&c - w 7 .rf7 J~ 7! w#X ӕ F~`*rjnjnF~jnjn.&f& TAѕ    Q;.&.iVON@p@(*.@&&@&~y0?f0*qeQ QQf Q  L*q    h <   *q QOw *s 7 77 7*Bsw-  & zr*fslԔNAMESEQ Bf"Q&jk.Lfe"&&f"fe&7  ONp & .so@v~@z ` %` `*rѕ   & <*$ru W w&cc 7OWww  5*s LH׭(o &w & *s*#1/oD  7.r" w022r.e@  D.@p@.fEA7:B  e@ & & f& m.&& ~z/E CC TRANSFER ADDRESS: "Hrw Mw ccdr < *|r *u"&  #e r#*sw B! B #@*sD #K` -#ztn*t#dw ,Re@p@7@Leff& & f7 @ fONv@.Lfff LOW LIMIT: HIGH LIMIT: ~0{  LINK11.OVR  r!r ->R6J .rN5@ B   wrw mZT m7J.>t 7Ln} .Lnv4nn*ftb &w^fw w 7p&.`;@v@(Tr r w       p.ɫс쨀p@vp@p@ ~{w 1rw w cc p"sw ~w |w  "sw w \w tcc *t 2.pw u N Jwfv7 .Bn*bu7w \w w 7*u B-Dz@Xz@(p$ 0 &S.mP\E@ON@(\V.& f~}*s E! e.t u$.e   *5@-*u Bnn  w > w 8*u8&  wBnD  Dz Xz7.DhD`@e@@ Ne&&&&@e.&&&&&7 6   ONE6)s~} Zu s*`te  7ow e*tc A @` $ e-<*uT g-Lfw  w )*v( w  w l% g :,:vw  . 7  W rh e"7A& L%s.vp@6@Ԫp@r ,~~ ********** ;.tTtD>5>6*"tE$ wtu GVn <Bn*`vw w l-dw 5@b37!*vN P R~5@D`e}.Se@( h.@A&&ff 7 "ON$vp&6(ԪpK&,HUNDEFINED RE\~x~FERENCES wp,ww 5@-~( -v w X*8w c P`Tw c:*v~.7 0-rVnVnVnn*vVnVn&  wEs,vw( 7  eA   eeH.D{(DD`pOf,.Q\:@ON@Of@ LOAD MAP SECTION ENTRY ADDRESS SIZE  ,  ?LOAD MODULE EOM 0~~ 9*\wT 7 H8JwFB< *wm,m(m$n w - *wew w 7 jn*wjnoT "RR-H*:ww @ 4 4` 7hDwh#.> %51  >. D@@/   Ċ&7 I$ON&:(Of&( g (  :. ~hwwwwww.wwwwwxxx tx ||x*w fx V~*^ww (7 mh - -*w<mNw *wZ!R&&1 1 1 1 1  T.,Re@p@7@L.Q\쨀p@vp@Ԫp@V.& & &  4*xx buw  *8xv lluR bu*\x R#!67.*wД "Ԕ - 7w*w-+w rne7p&.;Ӂ#t& & D&&D&& .& @%7 @  IAONvp@~ v ADD*xB C$D4w *x*w w w w x*xjl  V 7J^*6x@7@7!D&  & & *Zx&  @(n7wh&.2 rr2 r rr .&.L e e@ .re& & & & & D&&e .#@ "~Xcx cx:w w 7w xccw w cK*xcc$PRw& \& פ *~x HoԔע ԕ (,*x%w"& & &  `rr  &" ˥0I #t*L & "  .@6 7 6 6 #?UONvp.~Ѐw v "7\c$"yjyccDcjy$@yccw2$^y*xw z:Ln  3 w*x4n  w 5@*y$נ .vU(6eh.6Vv%-0 @ ׳*. f&& @׳@f&7 h0 ,ONԪp p"1~Hw(w&|y׭dlw׭SZyww w & w c@ycҐ b נ +נ *2y D#w B& w 6&  A*Vyw6w $ & `nn`n'O<^*  6Vv.&'P<h$p&vp(0&0f&f&7 rg.ONԪprԪp쨀pԪp 쨀p~w 0w ccyw  w ccw yccccc yc 7ccc.zyF77 :-^X V }w*y`n`n}* :ß" *y  .L'Q<g.rf'R<.M'S<N*Ԫp쨀pԪp 쨀p Ԫp쨀p.Zd   \@~8 zccc$z7 w vw ׭w\4zw tcccw "Fzc ~~ß *yz`n`n-N*z  ׯ ׯ ~ E'.T<'U<.'V $쨀p쨀p Of d".f& \ e\>:L]L?;@ ~c  w cbzcw b7~w 8cvzccw f7iw Pzcc t^@*2z~7    *Vz87 2whoj7 h b" ZׯV*zz ׯN <. ""'s&0.*P*.tQ\@v@Ԫ@b.f& & & & & O~(Z<zV8,w Xcc,z&ccw "c .cm*z cFH7 P <8:ׯE*z0 $ׯ( ҟ  ,7 87$w *zנ R׭ I wj& (7h&M& & & & D&&&&6.&D&&&&% @.L%:7 Z IA~ cc*{w |CO w fcc #,&{   w RCO w 1*z& & I7 7@* {p7 n 7 lX7Z*.{7 ~! ONvZ.rh e #e$@!.h e^~L{w @ w x7w Nc\`{cw 7w lc&p{ccw .D`cf&c*{w n}w oM*R{o!zp,p"w fw-h,v{Ґ ^& 7 roo f& & & & & & & & & Ds.&&&&e #@-  -.  # ! !~"c #  4w c %*{ cc 5B ` P{ v#*{ 27!* Xӕ?ӕ ӕ e,{Dw 6o7 o  o& o*{ $ $pptjLwuQp_":#Jp:qLE%h.  @6 6 6 .07 86 6 6 6 &m~' | B}*}& H F c 5 %c*~ 5 %l(% o $  S* |  o 77} ~ow0& *.| & & & w<)*qJ*4q NH XqH*ONv 8 .V#?G-0 A-<-j8.|@ k ,+~,7{ *8~ fc ,5&55@<4*\~- (< el-.R|Ґ&  7 |7`jo  o%o_*z|%o$%o52%o%o%o)*| 8%.&qE*~r LIBR-11 V002A  # %*rE /.TeB׳f&& & & @Te.B׳@f&7 H,O0|~1,~ c[ 5g|J,~ B}B<4E.~*2- (  E*|w5 &E f .|ee !o׭ f  3 Q*r . r Hqs 4NԪ H"$v&.f&f&7 Z"ON$Ԫ&Of(Z5~p6 w  ~w 6w w cc&~w w D w$ w$w$"2 w @7o-*}W!W!    w)*2}   7 7wn 7*V}} Po8 . Z s*t ^S N*tp:w!7 9*ԪԪ  Ԫ *Ԫ:;w `we<koh7_w ^0Y*z}-P* J HׯB  :ׯ4 ,}ׯ, w  7=7 7 *t7 7 7 7 7 s    d*t. .rw~rr,ue>Ԫ  Ԫ,*ԪԪ  Ԫ.8~?~@Ao *}wwpww}P(D~@~JBrrrqqqS*DuVqqq'Vqw*hu|qq׭ ׭ CB \C$~ Of B(:.^ f&&&&& \D~`EF~J;&jiGHq.*u Օ?Օ Օ \qwVq*ur7 rr p*uqH   .e\5>愾 >Fl.&ź+ k.>''+$IriL?̨̔몿I~؇L /5wq>q r*u/5w w7 4p"qz*v r/5wp0qM@  .h쨀p@vp@p@8N"~PO~~@~8}.~  7e5[ 7f$e*~HP@vvR yąe */." +%$#('&0uvUPDATE V005B ,vQr/s*@v5 wh     >*dv  w 6w  *vwR.D f C_  fW & @$&&&&&7 nxn"*ONnS~ȈTe*~e 5 50 * 8} . . .Uv END vS200 $vv # ZZ00000*  ZwR"wRwVw b w\ wy*v w8vs & &*0q~*v"qq>qqt vWԪpx:nB~&.vpp~ Ԫp 쨀pvp쨀p.PX1~@YJ~ZJ xR,pxwyyx,xMM[s*v \& Μ  *wrsrr J*qq 5 q,w>qqq rws*w    f "pn.xh@i@v@Ug~h<<􃴛 :<PJP[L*REi>7 7 7 7 7 7 -6,zyxJvxxwxx,y%0w. *j \ p Da&ei*x%D w J " *:xq Lgc7]wrk.fD 2 C+  F$e.&&&&&\);@7 d lO~ mE:*v  N*@N P[ Tl*n JՕG,y?Օ Օ wwwxxwf,y7xlxhpx/,zo *^x *  w h9 *x  h@%jwr j T*xwp ON"Ԫ$d&i(L*d:*,* d i:,y.Z0q~r^T|TTHl',l 7TTH,ll v7k sw w& \ *,8z w7 t2xx"xpx/w,^zw -~n ts(  4*x~ H   p w*x* %R%I9  %I0udd@w  .0d d ԪOf$p.  I6Av^~w7i)*.TTHll7 ~Y *R~ ~l7 &7 ,7 L*v2xw jX ,z& w7 (xxpx/,zDw@8$ Pw 7 -y*y&"  r @s*6y%w  aw *Zyr/ zf& .l>f&"yB7 &ON(@vR{~|@  $w(~0 *eTT~.7 n~w :},z-  - ,zZ7 -|sxx ",{f~ (C w< *~yw< )pp 5R *yJw%p  q,q*@Ԫ Ԫ vR. ffff7 e*m~Z* N~w  <~w7 <~ * "~-v?z,. w&-\L SC x,B{x w )$0)7 },h{XdT`P\-*y 77 q*y>qq>qr Rr L,z:&rv ON Ԫ"H.  a  .&\e\ \\~x~7 ~w }*T }w NP[$*xw  } }e <F8,{-4@8@ lw-,{xx $ & >w~xx ,{"r"r .4z"r  h c t*\z rI %LO&&&.L&\\6.r\ \@3eޘ@7Q@i|e -*Bwe@-B }-?J,wT7  x x -  ,| x7xxxxx,&| Txxqi.zw,pq"qpp*zqw 7 t Ht.z׋@êg{H.0쨀p@vp@p@~.TTn*w &} "}e0}}",2Twxx ֵ,L|5@ wxx7\,r|xx =  v8b0׭Kp p "qp"q%*zqp "qp7pq*{pwTsqT$ T$.& Dr)&&\  .& 5@5@7 $ON~h| |wfҞT2*Xwv DECTAPE COPY V01B *|ORIGINAL ON UNIT CO,|=Rw< ^-DF   D) +,|n .w-&*   & w Z,|   w .<{   bs V q*d{w$Pw$L ntrs &p(=L~,쨀pvp  Ԫp~\~PY TO*O UNIT ????  *** I/O *ĞERROR, UNIT  *** UNRECOVERAdBLE COPY. w X  $9, }w |Axxdx,0}x wwxxzkQx = U   7.Ԫp쨀p Ԫp 쨀pԪp쨀pj.,Ԫp쨀p : Ԫ~X*{7 <7 :& \w  3*{   J  J*{ sa O,V}lY|xL 0 &f"v,|}xxZpxx ,} ERROR  COPY COMPLETED #VERIFY COPY (Y OR N)? p쨀pg.xf&\  \& /Ԫp.\8Џhhqq  %*{%  % n*|@qq ~% xxx Jxx \,}xxxvxxwl  (,} " 1,1,1,\r1@\s.[?\ ew  ?U?*@  pڪA?BPPlR9wW*/." +%$#(!'&04PSCAN V001A *P  P*<|u%7 dsR*`| %@, jr ts%*|%vY,~"vxxZwxR,:~x& Ν 0Zwxxlljm:,l oTR(o o0,l e n ne.l0@v@p@.& fDe END S200 2P  #  HP~^P00000*  PRu@wv  *|.es r efff*|fe & sc% ( ,`~xxR TX& `,~Ν 0xxxw  ,~xx" ,m n o eKT,:m5C m_}zr&.&&&&A  e3.L5@e34Q STRING: DQR*QDQNENE*yH,|e bS  sr*} % % p.:} Da%DL xT 6 ,~& ΝC 20xxx),~& Ν 07 ,`m̋ &eE  e,m   R<,m   5@7  (ON{r* v Ԫ*Q{LM|*QV*RPVR%Dwb Up@*b}"qpq <%HwX ,*}%8p }nq7  ,x 0 W 4 ` C`@,D# :,j02 Ba < Q ,m #$R   ,m       .OfԪ  ԪԪMZ*Ԫ !QQQQ*:RQQPQQ VP,^R7 7 6PQQRQQpG*}t 7 X 7 NKjL;*}Dwu@<p0qpr*} @~ v-rjj-$,d^D> jxxx0 ,*  @ą on0 o@CmvԪ ԪI,Ԫ  ,Ԫ.""e*RQ0DQ. .R ~Օ?Օ Օ XQwRQQQ-*Rw%wpp*~7 ,p0qr/5 wz*:~   Hq.   E5051525354],55565758597071727374- ynw Df&9$"Ԫ "pF.&&&& \\& p4QQQPQQ*R @P < *SNH4< P2*^~4&" e && *~"0& "* q @ 7*~*7  Z. \\zR.r1@\ r(7[?\G*-6 h*S(Q RQ ֵ,S5@R PwvRQRq q'wft END S200   #  ~.ۆ00000* (hhe6 6 \rQ*S7 LQRQ/VwR*TH w2QRQ **:T HPQJ, ܬNENE*yi,0{LM,V9r % %h %S.p@(`pHh.W%'BC @ bb@ Q @=*^T w ^P&.T % ҥ &f"E,|!RD,  ABEILMNOPQRTUZrqtovbe K.& @    CKL w  A pPPK*TQQb ,T\wRQQQ z @PQw,TQҕ 5 f· 4ʇ 2,N7  (  hҕ  ҕ,t    &7 h,7 `,0.   Օ?Օqxkz.P\p@(Zph.W%wQQQPQ,UQw07 :.P""PQ&*@UQDEM5152556061 4yr =% R G @&******* * * SYMBOL TABLE * * *e,, Օ wwm,:p0n /NNa w9,`T  g|g~m$BC @ bb@ be K.& @     .Lw  707172MdU8R   ĝ n  ,̾> L 7 `5 \E$  -   -,   - t,0 zn0 ֵַgxOؘeؘ-ظ p.=( hh~9 -  ,$ p xB@a ` *J,W 55@,P$ wn0n07 ,&`  /"w ,cBՂbHc0n[(    \.P\(/xWh< ҝ&n%@    ѝ ѝw waLw&`&  &,D& @% w>,jހ &f" 0b^l:_$ .L)Lw 46 V)V8A@AD@ D 9.Op@(xK & w. 3f[*10,d \wR&&& ,v 00w$00(ȥr0 rر1 L0  ꥞.F!R0l0l!2 RMACRO V005B h&DD A @ w   pJ% CREF V004B8| %8Z %8S- ⿌w Җ-5* |vw Ҋ,0w7 6,"DEM51525570I(7172 <֐0ߟ,w C! fVVu,*0ŝ) .ҕ? w w.ѪQ\(RhD@@/ Ċ , %8=!;B&(TP &fLF C K*H:  6 w :  ,l   xܥ,Ptp "T)  Չ,v  `*5) w  \(m* B.ɪњ(QhD@@/975j 2 fҕ+ O*x   nw @  w 2 "w *w $:4  B % e !2(T,4(7 (}d&  w K,B!e *7'*  Ċ.Ԫ쨀p@Ԫp@ON@I 31  , PAGE COPYRIGHT 1973 GULF ENE,RGY & ENVIRONMENTAL SYSTEMS SAN DIEGO,, CALIFO :E*қޛ* қ' 䆿,  N eeE/ h,2 V!t' r, F!&1. \,X;.&7   ONԪp.&7 47 /"-$+ RNIA 92112 ALL RIGHTS RESERVE,D PRIVATE DATA GULF ENERGY & EN},?VIRONMENTAL SYSTEMS FOR INTE*,Қ@M0. /ě+*ě ~"*- 0! w w ~ wRB ~ Ѹь`B, ERRORS DETECTED: L, ON Ԫp쨀p4$ON&Ԫp(L.L7 fe& ) (' *RNAL USED e ONLYT CW NWU,rěě*@^'  &f"eѕ .d  ѕ ѕ 嬞w* FREE CORE: . =WORDS # , H&/5w & &+,&   e@ONԪppfre\.v쨀p@vp@p@wN,ޖոߚ՗.&0  6fA T,f5@ hw v < rw S,1 Rŀɕ?,Dққ * @қěě`*EEEE*ԛ F ~ ,ا  ( RR J,& & @ e5``&7l&.   @  .& 2    ,΀ z J t  j ! &:v  f Bi!ҥ ҕ ҕ #  jLw Lф  @Է "MM* ěTP#,$ (ҕ 7+ + *R"J Ӏ+ 7 ,7 $, H&7 :*f,&&&(&  6&$w ]&   p L7 ~,ONԪp~Ԫp쨀p%(Z\ ޱ%&|1  B 7 "ή 7 L!&w*k@  Dҕ  ^ k.MAIN.., rf e0R&'!OCTAL DUMP V001A # "(]+w f_,fw  % , 7 + % <-)&)&`,ƨl )Ԫpd`*Ԫpp  ԪpԪp.r*h,ξS! Sf,0ŝ . ҕ?  +,@ ( @ ! r j" e ee e ոѬѸϸс,- .&    , *w쨒',p t ff7 % :.\)$쨀pvp  vpF.\\./,ϔ4 ~  & v `[** 5   N 7 !,N| & p 0ՀҸόҟ, 4 F& Rw BE X (,@ UUU12$v %-%l% w * (24n(r(7 d(s&H`( * ! ! f3\\ $\\  e\.{4w rB!e L,t7 v eeEE, lB  L 5,f&  U%X ],”$ e + -b*v/T&X! 7 b$,Œb((57 h kQ4d xPAzn*n 78% d*7``*^*7 T*7 8p@(F{h4.   sp `sp#9ܦ1$ϦW wLff SAϚ,Ϸ    :`5`5@5@2 W,U E SSSTw`J BR,€&  N p@  ;z,U   xB7r,&e-~e X<N* $7 >*ӷ** *e*v & *S'5'U *@ ])=(& `œBp@b\ w \ p.֚p@(fؚh> H&B,/5w &&&   r,*p >   (l? N ,$ r    5@P  ,J5`B 7 < 7 < U0 7  ,p@xdx,Lb-ZE?NJew e\ ,r2 e(U7 A,ީ) Uz* /D D` W! W!, W!  )RE@ 5@5@$,*eBV.   s sp  .&`sp  C,P RR   L& &,v &&  %    ~,  D E7  5   w 7, - T 5U@5;,5@GU E@AE, E} =,e e e2,F JU(* * PP(\$5$7(,fl)  r)`) ! ! fG`œBp@b\ "L w \ w \ ppY.I=H1e-``&7   >,ҕ 7J F R 4 ~( <7 D  w I  8^,U 5    U j ( i,Ě'UTW!. W!$U> ^Je  ef,  @ee e_,0   j fK,``e(<)Q$  B ,*f)  -(( ~,ت⋁wLp@(`W9h.  p Cp fM+i, L 7    " `  w<,0  }%%%% ,N,.   W!. `U   2,Tw h +-&"&':%F7 "+ UC"$@)& #( Z#H .)%5vQ.&\w  \   \e pL  \w \ pR,V%% $ T   )&| `   - ,ц f  SU w  ɟ9,2ŀ  U  pW!>, w   CDOB*FT -S--<$------<04268U$@.)A #>55#|()5"^# )E-5r#E $z(=f#(!% 5R#V.Ԫ=p@(Ԫ@8hpfW ef  C  &C x%- D ̇ -< LJ-d 4 ‡- : -2 -,рX L 5,w\eee p @(,  4! ! -- @ ,8YZ, ҕ   |Ӷ($Ӳ($  R?( %t,ܫ5#`[\ w \f p.ԪSup@(Ԫph\* 7x  j BU,"  P% ,H Nw& ] ` &   2 ,^Ň & e @4 $, A ^_z  < ~ , &5`ʕ'5@ʕG Ӏ,(W  H H5" l'`.&f jwf &wfU&.& Mvv 6`vU a* 7" &n 7m 7& " P, ,  &&  xe ,b@  , $$C0  Bp` e,w   87 Ux @Wdҕ ,N ' ( & ?,t') &5$^"  h- " "eA.L q` c qm `C.ra@ `qeAa@ a A @ A @ \.f5 &     HN ѕ,# ѕ@ e7 ÃD,ӷ &f  g&Ŵ  5 ~UV- w,n F> ,U8  J7 2 i""w2( ,H H5$"  Ҡʕ r,جҕ z5!  @ҕ ~j%  A @ 6.v %\%%    w  &pj kwmn5,&|%% fef P w,L  *m, ҕ- al, ,  , mB-:  -H@~bh B ',5 een,5!  5`ҕ'5@,$Gҕ  ) j&'E,J b!o .Ԫp@("Ԫh.&prm  $ D J,P Ӏ c' f|, q @@@@@@@@@@@@@@@@@&@@@@@@@@@&J  ~  l şUjh Rr e "w@7lB&(~^e, "7lee "p7xwv-sы7 'R@   7"!7 p !( h r F,h&]j&= W!:VW!=R tf f &  6  h.&  6 v .L%w   au %- &;*77tԆ7 7  $ &f ,Өd ҕ ҕ :v xK ,lA@NE@` j, ` V 7 θwXTrw t  ٦*٦ x4Z&~־ &E&& &77 77x ,w  w` W!$ j,έW!:  t&5U& 5 X,y6 [.r6. RC  BaA CaB A  z 2, x8 p7rwb CREF V0(B04B CROSS REFERENCE TABLE PAGE S-k,tSMP{& "U  $@ MƆ$5  d b E\ 7 ,Z |,77 F77777777777777\~N7777 77777777}  p 5UX& , W!= W!:  ZX  j,@;-H &-  4 ~E. ,aA CaB A  aA CaB A .B  aA CaB A   . aCE 4 L f&fp < w  4 ,Ԗ7 7  C @ @   #1-, ` EQ$) `F,B`B ! #`B 7  **!,w~ƿ B!/ 56 > E$fU 7P$ 0 5 - t,   U%U  h U,%A CaB A   aA CaB A /.0 a@ BaA @   a@ BaA @ .V aAa@ ,LZ! ! fL f&ZLQ]6  |p,>0Z   s|ȏ,h  #1-`74 wE, 7s|Ȓ$s f7  \$z%Z n/%Z \L7FC? B>h/   ~>V#w : 8   %%w ff p ,ЮL 5 %-& Uff E,U  ыww B A @  B A @ .| +%%B.    C B A @  6 v  C ,> (  2 < B  "d,dP<06 @,0`" ~`ص t,ǠB Zw R r,ǃ ~ u5PHw @!ew n7n7 h+%5  EE w~UH0 0 U@T% $ , 55 U.%5 ,B(%   H,% w%Ew%..e\   w     pr.&    aam" P)w @ LI 4NL28 - H\؇7& <f,ArBC f& ,BȐ·f6 Me U0 HAw7:-w77 e 7 a~. ,h & f AfE l ,w$ Ί (1P (@E:,%P%6qe  .;0p@(A;-hgf ($ # EE(   D73,hȄ RRRRRRR       ,R⋇ & ~  & & b ,H d" µ 0l0µ 0 0 2 C `t~edE^ \~e?RE% 5E%p,گE%E%% A A 5U@\$,$@  w  ' p.,Vp@,Պ#   ҕ ҕ # ,5  N޷ N   ӈ $f, e7 wUt B,   Z *  E?L7 JD`>8E2 0E?&7 $737-"m  7w-1H(, 45UH$E gs x(8@Qhb @@ w  p , f e0R&|,.@ ( @ ! ,T   ,& X  U@:  7 -,LD U    (&O,rɟ~ N*7J0L7N6N7mT0L7xX6N7m,4n  e5U$<M,Z  $ ׭+ "  ,,X .)Pp@(j8vhH@ w e ee e L|,zք N ! ! -- @ , ` &   $7P 7R &  0 L,   @ > , l ( t  Z8~d`-jAwu/f`۔`>@ɥ<>@B H v ,   0U#@7 ,̰d #& W!@ 5U#US p.:(@+h,h j a, & e ^@4 $ 3,A @& l& 4 >a,wUz  7 7  A, %?S :  ~   ¥, ~¥%($ %7 7De  dW!8,# X% j# * &U^W!- ,"" 0W!( U SW!( W!*,>.6 6 &  f 6A h"& v  6N\.s0, @    &   -,8`@   2w A @z,^ 5,07 P & #- @ &  %\,V0   n :   | X ,|ʷ  P zzÄö\HP~0bj.@_ @ɥw ,  ( .6+ UF5U@ 5  >,dW!(53 5v5@M,5`UU7 (-hL&CD@ D h-  w u,LA  p,   E xE 5F , 7 U  f$ W, 8 < t p e?F7 2-,(.)B~T !7J 7֋5w5U"O,Effff PU0 & (ֱ U r ,W!)Ux" \*.aP(*vhC@  m, |, "طf a, $   rf ,˅e0w TU@D 5  %(:˸%, b7f݃~vz& &,w2e I v,7 6 7 .=H !˵@2QQ,˵ 1ыy-7 N˵@!Q_.bO(\@ht  ş ,8ş C @ @   #,^1- ` EQ$'X   5 ,\v      L , D  ~ W!'.Ecp!" e Qewe~c;ee TEeE E!# e ,DыʋыE& e m&7*7(z"j A& m, 7  ы ke ,B  .rp@(*rh ,(``B  #`B  h,s  #1-` wc, n h,˻   *! $  ,    ff ee=ee EeE (!~f77  ɵ15fɋ  W NW NU!h,J !ԋ  U! Ҳ Հ1H.v v N \%%w &  "p && \>.vUu 7sْ$s h7  ^" `޵ ",B w R , 7 wUTUDր &W'8  P {-.&f75e 7 ~Vѕ ѕ &&w@ Է ,4 p!R!N ^   ,Z`7U . .&  v    .L     %  (.r  RRRRRRR    ,   R⋇5 R,F ހe-w C!W!^,8  C D C!D!^, UU|VԐP:je 7 j݇!q744&&(ZMODU~LEѕ <ѕ ѕ F   wa"Zn!j! 5Z7 7   ֣,  w 6 6 3   % p|.  EsAq Dws w`w5. 7* 4,& e 7 1G,e@7 * L v, |7d^ x H 7 L, 7F f' 7 5,0 ,ƈѕ<ѕ>ѕ ѕ Bѕ ѕ :~Ff7 @wJɥ     ,γ   6U| 7, NJҋ Xw6 e%6  6   E v v %\.v=p@*Bڲ,ee 7f7 4@7!.|rw w w > R 4րe- -,Vw *ۏ7d   & ,|D@ ӦfR <> $ "7&B@s%B%m% |%\)w> ~r3 С,ɕ w  ` R( , I?,@5 T <  tz \(v@8hN r\w \ p`1 އ4%,R Ӏ   @ ,ͤ  D >7 `,@7^ɥwwf& `>٦rڦ  R,~67&,f-v    ,   re0J $T* * * TABLE OF CONTENT.vp@(vh-.&f    & N & e&e 4ze re n4Re 7!N  #2-7!s~l`  x 5 %, %  p  ,,:` ` B@%9%/% %+wee nh{_  ~w>~S * * *I, *7 !   ,ʴ 0UU * 4  2C,W h.& v #.L 36   <e 4$e  !!!!! @` 7 B & V LINK-11 V004A PA U,` 7 7 l f  $ 2  f ^xzPzkQxwPo<(@0.eՔ &f"w7w% P z~t~Up f  nC!w<s,  ( ` EU,<    .r  66 6 6 6 ."&v "    5J.~6SS 1 PASS 2 # Xlw l!D7 V(ԇ,أ%@  @@%,`@%@@ @t@ @vD x~&"wF F7٦ ٦*٦w7 7 7 7 77U7  b (&,feE 7 7 U  2, h  w %6 6 6 6 ?   [ p.  ~6  n6 .  7 ~רVwl& ~tl b&\P, ـ D J J ,2Y    ,X vZR~ɷP& !w`d-6 XNeP M Q$B w .F  R r L *`,"7 7  0  ,صBGW!<! ~@@B!   ^6  N e%.0v 6 6 6  D v v v 6.Ve\ lwlDlwK~&`8lwT,lwJ lw>lw2&Ew7wlw @@ @ @P @,~ 0 eoov,t  ^ZL~ʘ/f7>B!6e0^> %F -X0,E 0 F ( ) ,$& >     (U"& B A @ -I.|  - -- U.    lwlw~lwlwEwlwl&**&4,P;&,ٳ  ,7 ejd~ʎ7 >>@^ dsc>ed:N,J e  W   v Uw,p  7 j< > X,>&f  .EPu(.Eph4@$-R& ~ vLElMExQM^f%a,<  % %b,b@ % @  wL. " ~? nڰ&e 0w wvw &f& @ABCe) #S, E e8EU,       B A @ .   B -  c&e \n.E(>\Mfs~ل4>@ ~@r,~@~%@\!42}s:_,ڀ s: :@@AK@` ~~˾  F`w`dw`bw`bw`\w``w`N  %(7 7  H&URL ~w^ >,(  ( $( B >  Eh`. B - -  &- D~0?n0 ,@K &@K8@K09@KK@K,K@K@K@K@Kf@, ۳K h>`  t^ ^~  >7 7(B!PedJB X! W !,FA%+%-l :,l5 Z  j 0bab b b m,  e \.E(,Eh~~K zQD @R@@R@8,F@ S@S%@S@S @pT,lۀpT@8 T@pT@T@Fw w w w w   f~nl.w  X?   / T T<< %.w ,ށ%E 8 F,2 U" ~ 7`@@T@T@Th,޷ 1"3 .# - - - e& \.ꨐ{)~/E CC TRANSFER ADDRESS: LOW %@OX, OX OXOX%Y,[q`"r@ r @r r ,  /  V 7  80 ~̄ w%Z7 7  %fB   F  e k,    5 ,*     ,(h*A@@ A_.сLIMIT: HIGH LIMIT: ~nsssw w n,܀;wwww w,*܀%w@8wK `  f e 7   w&$  7 7 F ~^ ` Z f e  w,Pe~yU b(J  ,v 5r  Uαr *  (B}h6h.D C  %[8~ wwN,Py~Lyyyy@],vyh@y@y &@y&@y`'E! l w d  wVTBLODTRTAtCCl6 X jf")~F > Z f N`  ( "Um 7 7 7, " 0  B $ , 4 $ la #$&  v v f&\.쨐쨀p@ON@(Th$~^%,@y@y@y@yfy|,܀y} z@ z@ z%@{,Yz &jf"  Zwr  w: h6 > ^  >(~Naf` `>' Y,     b b b wL %,2, *   5w$7 2w, ,X)(.ee  67 &E$ON&쨀p(&z.&)G~*z d , @ %@}j@x;1w,4е;Bε;4\E\+> 7  e% `>`  > ܺ > $n7 7 %,%~e7 ׭ ,40 \ RW"  ! ! q(~lfC b X 7 R ,  UU- 7 H ON"쨀p$HdLN&\..N~N/XH_,Zthi}F%䲳,֯֯֯x֯֯=,07h 7d x ` T e^ 7j   ^ 7 Z d P ww 7    7 "~> A1   *ƹ    IU !HX빀깐[.KC+ N,K2p@(>h.e&f&   v v v !N3~4ׯ}fگrشޯp!,~P,|$^l!nfnZnN,!Zn%n+Z5     5> r ^j ^ >`>>`  $n7 7 %7$ 7$ 6~6e &X@, Z C P  H   n, t ( 5t@  C BW!&7.& v v v 6 6 6 6 .L    w8v.r8 , ********** HG9n,Zn.Z,nKZnKZn NZn&XZnHX,>Zn[Zn}n}nZq%:Ћ7 ׭ $w f N`  J 7D `n `>>Z $n %`>`> >4 eu;W!,6!B   C C  *',\ $   B ~ 2Pj,0d < Da.    .   B A @  A @  =~>UNDEFINED REFERENCES LOAD MAP SECTION ENTRY ADDRES>,d(zdzxd鰼RʳyL V,ސ  , |1q',34?~.7# @ @ R % $$Ћ7 ׭ w h jf"  wVwTW"(j\ @@Z0`R  PDU 5 |LI ~LNLJ 4A@ 4% .  A% % By. e % fDvwBBS SIZE ~ ,  ?LOAD MODULE EOM  C@q)eJ x   N Ê <%! ,c ѐ~೧" q@qtIh&ff~- wf@wh w0ww(<pzJB ~ Pw*غ0@ P Un PJ "  EN K   C B A D 6 v.e\ w  w   p pG.LjˋÜ`E `߇&  P   cL|wZ ɋr߷ M.oQ,XZ02468,& x7x7EN7wpVڷR~ѶeH.ԞԮԄՠjBҰ f\nHpּV֪6Tr~O ִDS ֲCR,  @  ~P Q "P      B A @  A @  @ 4. 0 B A @   .  plR e,LdUw8WtEw5F,rDF5  S(4@LXz؆ؒ؞تض؂ԔV~ *W"W"Z&ER@R` > x xT-fX U.}bv@Qd@\,<8 C   w rp,bR-|U @7 :M.Rup@("쨀phbV.oQ,XZ02468,& x7x7EW,@dEt h 7 j7h, RV 5 J@,Xt^p p^h\>7 L~7`> %@7 07 6.$ e `۷Y ^ -^ ,H pr` ѭ c & , ҋUUR47Z.e&&   v ]N v y.& 6 6  Iv[ e,LjUwNWtEw5*,rDF5  ^\ *. ,  e 7 w] ,0 bd~×bwT7 ]>ER>٦7s 7[~ $   7  nh   V^%,Ի  Rҕ  ώ" XBw B7 S r lոB֒_ .L `.r   @ %.`,@dEt j 7 jf, @X D5 H,>a K,V? f`_d5-,|ߋb5bߋc7e~ ~,b' ſe7  hӃɥwPwP o~vӆBCmeEj P zӠc@z  he`d, rZWjR fAʕ R,Fdvmm@ 0  .   A C v %\w u $p.e *, ,  e 7 w]%,0  bd~×bwhf   v",5RU@7 >Ì R,; "b g$:NnӠ$DDm D  Dd DQ$*~F   Dd 7 DQ$*FD*FQ$DdhfA  eʕwl Jҋ ~JEEI, $ i    0  @  @(   w    p.j 7 ,V ?վ f`_d5,|ߋb5bߋc7e~,k b5g5, 6 x-5 f*,: wBl 7DQ$*FDdDQ$6J7DDd7 ɥ~fɥH  f e P"mw 5 Z^5(,H   b |,̼& f \ 'XEnp@(Tih.. N A f Co x   v,5LU@7 8Ì, 8 p,`& xfxE,@0& @w& Aw= l q f&f&~   NΕ w$~ Cå å$ נArEUT,Qa7 < n * 5@~*(ŭyEpUjEU,: s%.&v   \ w ~ (pL tb  b5gb,5 x-5 f,: w>h.v   e`  v~  Ëנ~Ve ee e ѐ w4 l8 .7  k`7 0 F w rwׇ-w END OF PASS 1P,t  2w x.nЁ(RiZh.&fD %y,`&BE x,x ~@0& y(@wz&R :t,%@Z{[lP}M]\Nk`Kn,&az^L~no|{ v@(  DZmfh ->8.7 ,e~Շe |z X * & J5@7x$ d5@`7 7 `}   .& %e v vv vLf&\.Tux& Awr V Ra.,L7 |5x5@x7 d,r w5x @d`·#0-6]7 #0- 6ee ,e ~Fև,,ܽ R 4 r 5 2, ɥfҕ C~,(a p@(4w""h4.f&ͥ D C5! 5b 5 x  @, d w ` ww ,0Ʉw 5x~,f 5b7 Z h ,n7 B27 0@d`·f,  >   ! &v {   &t^(~ (zzl.z   ; PDP-11 DOS SYSTEM MACROS V003A ;COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION ; ;  JUNE 1, 1972. ؄~m,V؄~ ބ~,|$ބ~  @ 5b+5,.*\M ` @(*\Mh*\}h .:`^@_@D @.<@@e@q!e@2@49@.:<}7 w  .w 71 A w  7xw 1 A  .MACRO .PARAM R0=%^O0 R1=%^O1 R2=%^O2 R3=%^O3 R4=%^O4 R5=%^O5 R6=%x6·^TZ0100,ȁ N  Fd0ed( & wv,wf $ *  `   ` @_MQ@Mp&@MW@ee;@5.Ye@amxx@*}`@u~@@@. ` @s'@(.w XĝZ77J F p$(p. !0w & 2^O6 R7=%^O7 SP=%^O6 PC=%^O7 PSW=^O177776 SWR=^O177570 .ENDM .MACRO .INIT .LBLCK .MCALL .AMODE .AMODE .LBL5xwH ,·0100{ ,,: dBԠ!Q > 3:D~h:`h>.C`_h[q`"h[q(x<h 1"?Thf2 Nh*9 Nh`0 $2(0#.@p D A  &DCc   pw.8w @w CK EMT <^O6> .ENDM .MACRO .RLSE .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O7> .ENDM .MACRO .CL,`ee   ded Z, ww b5xU_d&\,@~ߋ-Do8, E~$=E~,& 2  .25 .& w  ' 7  .^ &w \w wXw w 2. fw  w OSE .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O17> .ENDM .MACRO .READ .LBLCK,.LBUFF .MCALL .AMODE bߋbp Ņ I~,҂5  e, 5 <<,L<` ѕ~w2  v Dw >,rȀ  Q  %2 .L.r  ^  4 9> C ch7 wtwhb.w k  %{ E e wh k {  .d D - ņ~ ,Ɔ @I~J,DB Е `&  N [,j.AMODE .LBUFF .AMODE .LBLCK EMT <^O4> .ENDM .MACRO .WRITE .LBLCK,.LBUFF .MCALL .AMODE .AMODE .LBUFF \T vsvv[q.,z? &,  J 5x ,,  DB .AMODE .LBLCK EMT <^O2> .ENDM .MACRO .OPENO .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O2> .O&& **B AC: DATE -  BCC=,  > 7|7wwZn7u,c7e7cwDW7T7Q7E 7  - XH - T.Bw7  ww (b ww .hw d:WwE,܃% e7e0tE% e7,e0t6   5xPEN .LBLCK,.FBLCK .ENDM .MACRO .OPENI .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O4> .OPEN .LBLCK,BBPB ? < JJ ILL CMD!  Xllrzp|u:,zp| B=rle*p =ΔfA B` %. w| 7wrxwh.u E 74~wh^,( ņ~ ņ~چ,Nd  Ɔ  ,t .FBLCK .ENDM .MACRO .OPENU .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O1> .OPEN .LBLCK,.FBLCK .EX ILL PAR! t ffNON-QUIESCENT ~h.~ bn,pjwhpdwb:XZD&pF v  7 7%$ q…  E ` 4. t4P 4Iw ,-; 44a.%6 6| w ,edlw z RECORD , BY,TE COUNT , DUMPED IN NDM .MACRO .OPENC .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O13> .OPEN .LBLCK,.FBLCK .ENDM .M  % i(ENDSQUXXXTNCTMDT,q!e H%7E` &(qH%0E7]5 H%*Hq>5G5  %! w  =w $7v.&  4=w e0w ,w %  4.L k' EBCDICASCII ASCII CHARS,EBCDIC CHARS, TAPE READ ERROR ,. ACRO .OPENE .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O3> .OPEN .LBLCK,.FBLCK .ENDM .MACRO .OPEN eamxx*}` u~@d,RETYCR6LPHCM`ASLDvIDFL@,<@ 6H`,lq65.5q 8S-*& & & ,qh6      Xyw:;:$qq @w ke=.rw @w fwww=w . w  rw 8 .1 .5 .,T10 .15 .20 .25 .30 .35 .40 .45 ,z .50 .55 .60 .65 .70 .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMODE .LBLCK EMT <^O16> .ENDM  v$*ITUTTC|PTZEX8 * |Z [q8"[q B ROS II-CITGO V02A m,qU   xB7r5,qe-e XxxAe0w ,w F.|VPTw D- <@7.4: (6 4,*w .75 .80 .8q,5 .90 .95 .0100HEX ZONES 6HEX DIGIT SEND-OF-FILE .MACRO .WAIT .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O1> .ENDM .   . [q [q [q[q [q.%7 hd`v,"r-E?e $e ,HrXl ebUV7ZVj,nr i 4.  ?w "7 w 777 .0   w %0 %7E ` ,Η 46e%  w ,t 6   O,WpMACRO .WAITR .LBLCK,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .LBLCK EMT <^O0> .ENDM .MACRO .BLOCK .L 1*[q [q[q[q"vP,$~$ *  7 *~  E} =.7,reA e& e,re   D.V 1O  W ֆ m7H O "| y(8R4.ev  6 ,@U 5 B;,f 7 w BLCK,.BBLCK .MCALL .AMODE .AMODE .BBLCK .AMODE .LBLCK EMT <^O11> .ENDM .MACRO .TRAN .LBLCK,.TBLCK [q*[q "[q$[q .H D S# *[q [q[q [q+,re" tee e,s_     n,,s  (8R4NJ,dl. N J,d* m      W &@A ,% 5%0Uz%9Un ,UhE7^7 XmVPw JmJD ,ؘ.MCALL .AMODE .AMODE .TBLCK .AMODE .LBLCK EMT <^O10> .ENDM .MACRO .SPEC .LBLCK,.SARG .MCALL .AMODE weJef ,RsD CȌ ~#& P L,xsN FN @N Հl .\ h7cJW*\  (.6:6:Ȥ=u:,= o* > ZpΔzv<:v42v$"m"',w mU  ,$A w BB .AMODE .SARG .AMODE .LBLCK EMT <^O12> .ENDM .MACRO .STAT .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT0 E ,s  s-S--<s------wpw:XZl&y*j>"DF j  i(>Cҕ0~DDc%,JC Br'7. r ,pEU0d~   6 <^O13> .ENDM .MACRO .ALLOC .LBLCK,.FBLCK,.N .MCALL .AMODE .AMODE .N .AMODE .FBLCK .AMODE .LBLCK s04268e,|u zr 7 w,uZw 7u3Cw  .B 7mw .hw %/w \ 7 j7;G… .{%G%G7$>Sx` {%G=x7g~,> z%gg , lA@B  p@ p(` , `~ J 4@AD  r,@ EMT <^O15> .ENDM .MACRO .DELET .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMODE .LBLCK EMT <^O21> w  7xw ,uw XĝZ7$7J F $r|S,u!u0w & ".P.  j~~|  L eD| (D.  !RB !R=L  ,>%gg ,v@V D A  &DCc  ,:vw @w  w  ' 7  ,`v !6RR!.4D4 V | !4Dh4 V D V| D"h&V.J?" ROS II-CITGO GENERATIOf?N V02A p?n;,r?U   xB7r~ ,T @AB ~ BCE @,zE  ~  BC , .ENDM .MACRO .APPEND .LBLCK,.1FB&w \w wXw w ,v fw  w 7 wtwh,vw m %}E eu.% w *  @w @.& % % w  ww .L ,?e-e Xxxd,?-E?e $e ,?Xl D ~ 6 `E%[%A,ƚ%:%/%, %,%  \,@,.2FB .MCALL .AMODE .AMODE .2FB .AMODE .1FB .AMODE .LBLCK EMT <^O2> .ENDM .MACRO .LOOK .LBLCK,.FB wh,vfD / =w TD = w H,v6 w @/ w 8 w 0w 8 7 w I,wD  &.rC@AEPA&fw w /w .w Hw   ebUV7ZV, @ E} =.,0@eA e& eE % %" , e@eR, NdXdFd 7 w8,Λ.dLCK,.OP .MCALL .AMODE .AMODE .FBLCK .IIF NB,.OP,CLR -(SP) .AMODE .LBLCK EMT <^O14> .ENDM .MACRO .KE*7 w "7 7 "/ X,Dww7  ww (b ww O,jww A B`` y.E ` V F x. w8w 7-U&"E!w,V@e   +~,|@e" tee eH,@w 7D_ow  7xw ,w XĝZ7c7J F cU,c! 0w & EP .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMODE .LBLCK EMT <^O24> .ENDM .MACRO .EXIT EMT <^O60 %E,w w| 7wrxwh%,wu E 76u~wh^ E w . w b7DE& ".0  pV_     ,@weJef A,@D CȌ ~ cc,@@*c D A  &DCc  ,fw @w  w  ' 7  A> .ENDM .MACRO .TRAP .STUS,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .STUS MOV #^O1,-(SP) EMT <^O41,w t6uP 6uIw ,-,x% w  =w $7,(x  6uw V׭<V`.VU .|MA 0 =3)2,F(BUTB;  2 F+BUTB  R CL U:N3AI M0 = ) ,5(4UFBB T ;  +4UFBB T LR C  4 =ZESI;  3 @R4, # VBMO S DEMOE ATDIMEIMO TWE US;      NDMAOM CLTAUEF DCTRUSTON C ; R5,@2727 # OV M  AXNTSYE BLNAIOSTUE Q ;  ORRRQE  B NC I  NDOU FDSELFIO TWT NO;     D RETEUNCOENS LDIE FWO T ; 3VINMA  T BG R ZELYNA AAXNTSYL AL C ; X TAYN S C,PR JS  EDSSCERO PCSNIMONE MRYNABI;  2:NCAI M AL P AS  SWAB  R3  MOV  #177000,R1  ; R1 = 177000  BR  BYTE1  ; COMPLETE INITIALIZATION RWORD:   ; WORD ASSEMBLY DIRECTIVE HANDLER  MOV  #177401,R1  ; R1 = -1/+1  JSR PC, EVENPC ; CALL EVEN THE LOCATION COUNTER  BR  BYTE0  ; COMPLETE INITIALIZATION ASCII4: JMP ASCIIX ; RAS .PAGE PAL RBYTE:   ; BYTE ASSEMBLY DIRECTI 1(R5),@R3  ; CHECKSUM INITIALIZATION  ADD  @R5,@R3  ; ADD THE LOAD ADDRESS BYTES  ADD  #4,@R3 BBIN01: ADD  @R2,R1  ; R1 = THE ADDRESS OF THE     ; FIRST AVAILABLE BUFFER BYTE  MOV  (R6)+,R0  ; R0 = THE MAXIMUM BINARY     ; BUFFERS ADDRESS  RTS  R7  ; RETURN .PAGE PAL ;RELREF THIS SUBROUTINE CALCULATES THEVALUE OF THE REL REF FROM ;THE BASE OF THE TEXT GEPA . 1 NCAI M BR N MITE I CBIN 1 NCAI M LE B  EMIT , PC SR J  3LINMA  E BN E YTRBCU,@', # PBCM  R6,@R4 @ IS B  R4 @ SR A  R4 @ SR A  ESYT B'SLTSUREP WA S ;  R4 @ ABSW E RCFO R C,PR JS R:N3AI M R ROER Q CBIN R N3AI M GT B  E2XP E C,PR JS 0 R LR C  NGSIESOCPRC NIMONE MSR J ; : 3QINMA L PA E AG.P VE HANDLER  CLR  R1   ; R1 = 0 BYTE0:  MOV  #SUBR1B,R4  ; R4 = PROCESSORS ADDRESS  MOV  #0,R3  ; R3 = THE FOLLOWING TWO .  =  .-2   ; ENCODED TERMINATORS:  .BYTE  TCCCRE,TCCSMC ; CAR-RET, SEMICOLON  MOV  #RESULT,R2  ; R2 = EFF. VALUES ADDRESS  MOV  R3,R0 BYTE1:  ADD  #000401,R1  ; R1 = R1 + +1/+1  DECB  SIZE .PAGE PAL  ; SUBROUTINE  BLOCK I.E. TEXT DIR IS 0.R4 IS EXPECTED TO ;CONTAIN THE FILED CNT,R0 THE CMND DIR AND REL REF. RELREF: SUBR34:  MOVB  BINCNT,R0  SUB  #6,R0  ADD  R4,R0  MOVB  R0,RELCNT  MOV  RLDIR,R0  RTS  R7 .PAGE PAL  ; SUBROUTINE CHECKSUM FINALIZATION    ; BINARY BLOCKS BYTE COUNT VALUE IS    ;  RESTRICTED TO BE AN UNSIGNED BYTE    ;  (8-BIT POSITIVE INTEGER) CHECKSUM: SUBR23: AS R ; RTTA S D EN . AS R ; ENEV . AS R R.FEUF BVEERES R ; IZRSDSZ+SISR+D=. .F:BUSR D AS R ERSFANTRO TDSOR W # ; Z SISR D RDWO . AS RR.FENSRA TRTTA STO. DD AC.SEE IVATELRDWOD ANOM CHE T ;     NGTIUCTRNSCOE ETPLOM C ;     RDWOT ECBJ OXTNEE THR EACL;  U N3AI M BR S RDWO2 O TZESIE IZIMAX M ; R3,@#2  B OV M  DEMOE ATDIMEIMT ECIRND I ; R5,@37 # OV M  AXNTSYE BLNAIOSTUE Q ;  ORRRQE  B NC I: 3LINMA EDERNTOUNC ELDIE FNE O ; 3VINMA  Q BE R ZELYNA AAXNTSYE THL AL C ; X TAYN S C,PR JS D SEESOCPRS ICONEMMNY ARUN;  1:NCAI M AL P GEPADATA ACQUISITION   ; THIS SUBROUTINE SUPPORTS THE DATA GATHERING   ; REQUIREMENTS OF THE THREE PRECEDING   ; ASSEMBLY DIRECTIVE HANDLERS.    ; INPUT INITIALIZED REGISTERS    ; OUTPUT COMPLETE HANDLER HANDLING    ;  RETURN IS TO SETSRC DATA:  MOV  #SAVTERM,R5  ; R5 = SAVTERM ADDRESS  JSR PC, DATERM ; CALL DATA TERMINATION  BNE  DAT00 ;NOT DATA TERMINATOR.  TSTB  ITEMIN  ; IS AN ITEM PENDING ?  BNE  ADD  @R2,@R3  ; SUM THE BLOCKS BYTE COUNT     ; AND THE BLOCKS CHECKSUM  NEG  @R3   ; 2'S COMPLEMENT THE CHECKSUM MOVB (R3),(R1)+ ; PUT CHECKSUM INTO BUFFER. ALWAYS ROOMRAS CLRB (R1) ; TO BLANK NEXT BYTE. RAS  MOV  @R2,BINBUF+4 ; FINALIZE THE BINARY OUTPUT     ; HEADERS CURRENT BYTE COUNT ADD #2,BINBUF+4 ; INSURE FULL WORD TRANSFERED AFTER RAS BIC #1, R ; 0 RDWO .C:SESR D AS R SE UIOSCDIR FOD VEERES R ; ,0,0 0 RDWO . AS R ADRE0=- N IOCTUN F ; 0 TEBY . AS R ORCTSEE IL FEDFICIPE SSE U ; 0 TEBY . AS R D ILEFIP FU B ; LEFI B RDWO .T:DASR D AS R SSREDD AERFFBUA AT D ; T DASR D RDWO . AS R RDWOM TEYS S ; 0 RDWO . AS R . G INSSCERO PNDMACOE ETPLOM C ; 3WINMA  R B  RDWOD ANOM CHE TINTHWI;     D ELFIR TEISEG RHE TET S ; R6,@R4 @ SBBI H:N3AI ME RCFOR TEISEG RLLCA; CEORRF , PC SR J: 3GINMA AXNTSYE BLNAIOSTUE Q ;  ORRRQE  B NC I  EDITEXN IOSSREXP EIDVON-NO;  G N3AI M GT B  RNTUREL MANIMI; , ONSIESPREXL AL C ; E3XP E C,PR JS 0 = 0 R ;  R0  R CL G INSSCERO PICONEMMNS RT;  F:N3AI M AL P  DAT00  ; YES DAT0:  INCB  QERROR  ; NO, QUESTIONABLE SYNTAX  JMP  EXIT  ; EXIT VIA THE MAIN PROGRAM DAT00:  JSR  R1,@R7 ; ITERATION RANGE    ;(R1=DAT00+2, OLD R1 TO STACK)  CLR  R0   ; R0 = 0  JSR  R7,@R4 ; CALL THE EFFECTIVE PROCESSOR DATB0:  SWAB  @R6   ; WORD DIRECTIVE ?  BNE  DATB7  ;NO  TSTB  RSLMOD  ;YES (0 IN LOW ORDER BYTE)  BEQ  DATA00  ;ABSOLUTE EXPRESSION BLT DATB14  BINBUF+4 ; COUNTING CHECKSUM. RAS  CMPB  PASS,BOPASS  ; IS THIS THE BO PASS ?  BNE  CHECK0   ; NO  ADD  #4,@R6  ; YES, R5 = R5+2 CHECK0:  RTS  R7 ; RETURN .PAGE RAS ; THIS SUBROUTINE BUFFERS REQUESTS FOR BFUP ELEMENT WRITES BETWEEN RAS ; A SECTOR SIZED BUFFER FOR THE DISK AND THE VARIABLE LENGTH USER RAS ; I/O LINE BUFFER. IT IS ASSUMMED THAT THE ROS FILE HAS S TUTA SORRR E ; 0 RDWO .R:ERSR D AS R Y.ITORRI PSKDIT ESOW L ; 1 RTDP N TEBY . AS R SKTAR ROERO N ; 0 TEBY . AS R NETIOU RITEXO N ; 0 RDWO . AS R PETYT XI E ; 2 TEBY . AS R ) SKDI1= (DECOE ICEV D ; 1 TEBY . AS R RDWOD EAHR T ; GEPA . 5 E OD CCTJEOB;  CAINMA  R B  ONTICALOREE IVITDD AALOBGL;  YTDBRL , PC SR J B:NCAI MD OR WNDMACOE THD ILBU;  3HINMA  R B  ORRR EONTICAUNTRS ET S ;     TEBYR DEOR;      GHHIS T'ULES R ; ORRRTE , 1 T+ULES R VBMO A:NCAI M R ROER A CBIN L OBGL .; B NCAI M EQ B  ODLMRS1,#- PBCM  CAINMA  Q BE D MOSL R TBTS : 3CINMA 0 =LTSURE;   4 @R  R CL R ROERR TEISEG RET SS,YE;  ;.GLOBL OR EXTERNAL    ;.CSECT EXPRESSION ;RELOCATABLE EXPRESSION CURRENT .CSECT JSR PC,SAVREG MOV #2,R4 MOV #RLD2.1,RLDIR ;INTERNAL RELOCATION JSR PC,RELREF MOV RESULT ,R1 MOV #4,R4 BR DATB13 ;.GLOBL OR EXTERNAL .CSECT EXPRESSION DATB14: JSR PC,SAVREG MOV #RLD2.5,RLDIR ;GLOBL ADDITIVE RELOCATION CMPB #-1,RSLMOD BEQ DATB15  ;GLOBL EXPRESSION MOV #RLD4.3,RLDIR ;.CSECT ADDITIVE RELOCATION DATB15: MOV #2,R4 JSR PC,RELREBEEN ALLOCATED RAS ; AND THAT THE NECESSARY BFUP ROUTINES USED TO OBTAIN THE CORRECT RAS ; RELATIVE SECTOR. RAS ; THE INPUT BUFFER IS ASSUMMED TO BE IN STANDARD DOS FORMAT. RAS ; REGISTERS R1-R5 ARE USED AND RESTORED. RAS ; WHEN A DISK SECTOR SIZE BUFFER IS FULL, IT WILL BE OUTPUT USING EXIT RAS ; TYPE 2. UPON COMPLETION, THE ERROR STATUS WILL BE CHECKED. IF RAS ; NORMAL, ANY REMAINI 1 RDWO .T:LSSR D AS R ORCTSEK IS DINS RDWOF O # ; 4. 6 =Z SISR D AS R).ADRET NO0= (D.EA RRDWOL RONTCOT AS L ; 0 RDWO .D:WRON C AS RE.USO TERFFBUK IS DINE YT BXTNEF O # ; 0 RDWO .T:BYSR D AS R ERFFBUA AT DND ASTLIO CIIS D ; AS R . FFTU SORRR EDOO G ; 0 09FR B R B AS R CKTA SONE OD CORRR EUT P ; P)(S,-R6ER # OV M AS R R ROER R CBIN E OP N ; 3CINMA  Q BE ? R TEISEG REDYP TONSIESPREX;  E YPGTRE  T TS R TONAMIER TALIMIN M ;, ONSIESPREXL AL C ; E3XP E C,PR JS 0 = 0 R ;  R0  R CL G INSSCERO PICONEMMNP RA T ; : 3AINMA L PA E AG.P 1 =ZESIT SE;  W N3AI M BR R ROER' 'QT SE, NO;  R ROER Q CBIN T XI ES,YE;  W N3AI M EQ B  T?RER-CAR TONAMIER T ; -4,# RMF MOV RESULT ,R3 MOV #10,R4 MOV GLBSY1 ,R1 ;.GLOBL OR MOV GLBSY2 ,R2 ;.CSECT NAME DATB13:  JSR PC, RLDFIL  INCB  RLDFLG  JSR PC, SETREG  BR  DATA00 DATB7:  MOVB  +1(R2),TERROR ; TERROR = HIGH ORDER BYTE  BEQ  DATA00  ; ZERO VALID VALUE  INCB  TERROR  ; TERROR = TERROR+1     ; NEGATIVE ONE VALID VALUE DATA00: SWAB @R6   ; RESTORE STACKED VALUE CMP #401,@R6 BNE DATB8 TSTB RSLMOD NG CHARACTERS WILL BE TRANSFERED TO THE DISK RAS ; BUFFER AND CONTROL RETURNED TO THE CALLER. NO MODIFICATIONS TO RAS ; THE USER'S CHARACTER STRING WILL BE DONE. ONLY ONE USER MAY USE RAS ; BFWRIT AT ANY ONE TIME DUE TO ITS SINGLE DISK BUFFER. RAS ; THE ADDRESS OF THE USER'S BUFFER IS PASSED ON THE STACK. RAS ; RAS BFWRIT =. ; ENTRY POINT K ACSTN OUEAL VORRR EUT-PORRR E ; ) SP-(R,ERSR D OV M0:S1ET G AS R N URET R ; C P TS R AS.RERSFANTRT EX NOR FROZEE YT BTO3 RET S ; 3 R LR C ASSRESDRADR TOEC SVETILARET ENEMCRIN K. O ; C SESR D NC I AS R . NE OOT G ; 0 S1ET G NE B AS R S ORRR EOR FCKHE C ; R ERSR D ST T AS R) INGA ALEABNTOIKPECCHE BAN C ( ; TEAV S PBCM T XI ES,YE;  W N3AI M EQ B  ?ONOLICEM SORATINRMTE; 5 #- , M ERVTSA  B MP C  NGSIESOCPRR LAGUIN S   ;   TI RT,AL HT,AI WS,TERAPE ODECON IOITNDCO;  0:NCAI M AL P GEPA . G INSSCERO PNDMACOL NAFI;  H N3AI M BR R ROERG INSSREDD AE,OP N ; 31INMA  E BN ? 0 R =LTSURE;  0 ,RR4 @ MP C  R0N IGNSIS TEBYE ATAGOPPR;  0 ,RR4 @ VBMO D ODF IORRR E  ;.BYTE DIRECTIVE BEQ DATB8 CMPB #-1,RSLMOD BEQ DATB10   ;.GLOBL INCB AERROR BR DATB8 DATB10: JSR PC,RLDBYT DATB8: MOV R3,R0   ; DIRECTIVE TERMINATED? DATA8: JSR PC,DATERM   ; CALL DATA TERMINATION BNE DATA1   ; NOPE DATB1: TSTB RADIX  ;RADIX HANDLING BEQ DATA0   ;NO THEN BRANCH DATB2: TST CNTCHAR BEQ DATB3 DATB5: CLRB @SYMBOL DEC CNTCHAR INCB SYMBOL BR DATB2 DATA0: MOV #SETSRC+2,R1  ; R1 = RAS JSR PC,SAVREG ; SAVE REGISTERS R1-R5 RAS MOV 12.(SP),R1 ; GET ADDRESS OF USER'S BUFFER HEADER. RAS CMP (R1)+,(R1)+ ; ADD 4 TO R1. NOW POINTS TO ACT BYTESRAS MOV (R1)+,R2 ; R2 HAS # BYTES TO TRANSFER RAS MOV R2,R4 ; SET ADD OF LAST BYTE TO TRANSFER RAS ADD R1,R4 ; INTO R4 (ACTUALLY LAST BYTE + 1). RAS MOV DSWBYT,R3 T KPCH $ MT E AS R 2.E YP TITEXO-CIIS DSE U ; O SIDI $ MT E AS R ) /O INGRIDUT INPOCKHE CNO ( ; PTHKNC $ MT E AS R K ACSTN OSTLIO I/O CIIS DUT P ; P)(S,-STRLDS # OV MC:SEET G AS R ; AS R R.LEAL CHE TTON URET RND AS,ORRR EOR FCKHE CS,ESDRADR TOEC SHE T ; AS R NTMERENC IE,IL FUPBFE THM RO FORCTSEA D EA REDUSS INETIOUBRSUS HI T ; AS R NGSIESDRAD;  1 N3AI M CS B  IT-B 1HTIG RLTSURET IFSH;   4 @R  R AS 2 T-ULES R =LTSURE;  4 @R2, # UB S  C. P'SERUST-ULES=RLTSURE; 4 @R , C RPSE@U  B SU 3:N3AI MR TEUNCO. OC LLYMBSEASF O ;      1 N3AI M NE B  ;  ODCMSE  B ST T R:NBAI M. CELA PKETA;  3 N3AI M BR T NOS OE DNGHINCRA B ; 31INMA  T BL L GALEILT HA T ; BRINMA  Q BE S RESUEN;  D MOSL R TBTS : 32INMA 3HINMA  R " SETSRC ADDRESS TST @R6   ; ASCII DIRECTIVE? BLT DATA2   ; YES, EXIT.     ; THIS NO-OPED CODE INSURES BR DATA1 ASCIIX: DECB SIZE INCB QERROR JMP EXIT     ; THAT ALL .ASCII STATEMENT'S     ; TRAILING TERMINATOR IS     ; FOLLOWED BY EITHER A CAR-RET     ; OR A SEMICOLON. IF NOT, A     ; BLANK LINE IS PRINTED WITH     ; A'Q' ERROR CODE AND THE     ; DIRECTIVE IS TERMINATED. ; BGE DATA1   ; NO, AVOID CHECK# ; INITIALIZE THE CURRENT BUFFER BYTE PT.RAS BFW010: CMP R3,#DSWSIZ+DSWSIZ;BUFFER. ANY MORE ROOM (R3<128.). RAS BGE BFW040 ; NO. GO OUTPUT A BUFFER FULL. RAS BFW020: MOVB (R1)+,DSWBUF(R3); YES. TRANSFER THE BYTE RAS INC R3 ; COUNT IT. RAS CMP R1,R4 ; ANY MORE TO TRANSFER? RAS BLT BFW010 ; YES. ; AS R . FFTU SORRR EDOO G ; T OURR E MP J0:09FR B AS R . CKTA SONE OD CORRR EUT P ; P)(S,-R5ER # OV M AS R E.LUVAR ROERN INELIN IESYT#BE AV S ; ) SP-(5, R OV M0:08FR B AS R P. USHNIFIO G ; 0 05FR B R B AS R . EDCTTEDET ENEMELF OOF EIFE ER H ; F EORC S B NC I0:07FR B AS R R.LEAL CTON URET R ; C B  R4,@-1#B OVM R ROERG INSSREDD AET S ;  ORRRAE  B NC I: 31INMA EDERNTOUNC EONSIESPREXD OI V ;     NDOU FONSIESPREXD OI-VON N ; 32INMA  T BG R TONAMIER TALIMIN M ;     ONOLICEM SN,IOSSREXP ELLCA; 3 PEEX , PC SR J  0 =R0;   0 R LR C  NGSIESOCPRC NIMONE MCHANBRL NAIOITNDCO;  0:N3AI M AL P GEPA . S ICONEMMN C,PR JS;  A N3AI M RDWO .: S6AS& ; JSR PC,CBTABS   ; CALL CHECK FOR BLANKS AND TABS ; CMPB #CR,@CURBYTE ; THIS CHARACTER A CAR-RET? ; BEQ DATA2   ; YES, VALID CASE SO EXIT ; CMPB #';,@CURBYTE ; THIS CHARACTER A SEMICOLON? ; BEQ DATA2   ; YES, VALID CASE SO EXIT ; INCB QERROR  ; NEITHER, QUESTIONABLE SYNTAX ; COMB @R6   ; SET SIZE < 0 DATA1:  TSTB  RADIX  BEQ  DATB4 RADB4:  SWAB  R0  ; THIS PORTION  MOVB  @CURBYTE ,R3 ; CARRIES OUT  CMPB  R3,#'0 ; TH' RAS MOV R3,DSWBYT ; NO. FINISH UP AND RETURN. SAVE BYTE#RAS JSR PC,SETREG ; RESTOR REGISTERS R1-R4. RAS MOV (SP)+,(SP) ; MOVE RETURN ADDRESS ON TOP OFF USER'S RAS RTS PC ; BUFFER ADDRESS AND RETURN. RAS BFW040: CLR R3 ; HERE FOR FULL DISK BUFFER. SET FULL RAS MOV #DSWLST,-(SP) ; BUFFER AVAILABLE, PUT DISCIO LIST ADD.RAS EMT $NCHKPT ; P TS R AS R. DD ASTLIF OOP TON. DD ARNTUREP UM B ; ) SP,()+SP ( OV M AS R R51- RRETOES R ; EGTRSEC, P SR J AS R N.HE TORCTSEP UCKPIL IL WEROVF I ; AS R . LLCAT EX NOR FERNTOI PTEBYE AV S ; YTRBDS3, R OV M AS R R.TEINPOR FEUF BSKDIO T 2DD A ; )+R3 ( ST T AS R).RDWOA N IYSWAAL (RDWOL RONTCOT GE; RDNWCO),R3F(BUSR D OV M0:06FR B AS R CL CSNIMONE M R JS;  Q N3AI M RDWO .: S5ASCL CSNIMONE M CHANBR;  0 N3AI M RDWO .: S4ASCL CSNIMONE M S RT;  F N3AI M RDWO .: S3ASCL CSNIMONE M RYNABI;  2 NCAI M RDWO .: S2ASCL CSNIMONE M Y ARUN;  1 NCAI M RDWO .: S1ASCL CSNIMONE ME ATEROP;  0 NCAI M RDWO .: S0ASCL LEAB TMPJUG INSSLA CONTIRAPE O ; S:ASCLOP SSLA CONTIRAPE OCTLESE; 0)(R *E TRANSLATION  BLT  RAD01 ; AND PACKING  CMPB  R3,#'9 ; OF WORDS  BGT RAD01  ; AS SPECIFIED RAD00:  SUB  #22,R3 ;  BR  RAD03 RAD01:  CMPB  #'$,R3  BNE  RAD02  SUB  #11,R3  BR  RAD03 RAD02:  CMPB  #'.,R3  BEQ  RAD00  CMPB  #' ,R3  BNE  RAD06  CLR  R3  BR  RAD03 RAD06:  CMPB  R3,#'A  BLT  RADERR  CMPB  R3,#'Z  BLE  RAD03  CMPB  R3,#141  BLT  RADERR  CMPB  R3,#172  BGT  + (NO CHECKPOINT DURING I/O) RAS EMT $DISIO ; ON STACK AND CALL DISCIO, EXIT TYPE 2.RAS EMT $CHKPT ; ( CAN BE CHECKPOINTABLE AGAIN) RAS INC DSWSEC ; INCREMENT SECTOR COUNT RAS TST DSWERR ; ANY ERRORS? RAS BEQ BFW020 ; NO - CONTINUE TRANSFER. RAS BFERR: MOV DSWERR,-(SP) ; YES - PUT ERROR VALUE RAS ORCTSEA T GE O. N ; ECTSGEC, P SR J AS R ES Y ; 0 06FR B LT B AS R E?OR CIND OR WOLTRON CXTNE; IZRSDSZ+SISR#D3, R MP C0:05FR B AS R . EDNTWAE OR M ; 0 03FR B GT B AS R O. GTOT EF L # -REHEO LS A ; 5 R EC D AS R T. INTOU C ; 3 R NC I AS R . TEBYA R FENSRA TLYALIN F+;1)(R),R3F(BUSR D B SSLAPC@O  P JM X DEINS ASCLP- O =R0; 0 ,R SSLAIC  B OV M  SSREDD A0)F(BUTB2= R ; R2F,BUTB # OV M  =0ZESI;   3 @R  B LR C  SSREDD AZESI= 3 R ; R3E,IZ#S  V MO S ESDRADT ULES=RR4;  4 ,RLTSURE # OV M  SSREDD A'SNDMACO= 5 R ; R5D,ANOM#C  V MO R TEUNCON IOATOC LHE TENEVL AL C ; C NPVE E C,PR JS E OD-COPS ICONEM MCKTA S ; ) R6-( , Y ITNTUA Q OV M E:ODPC O AL P . RADERR  BICB  #40,R3  MOVB  R3,@CURBYTE RAD03:  BIC  #177700,R3  MOVB  R3,@SYMBOL  INC SYMBOL  BR  DATB6 RADERR: INCB  QERROR  BR  DATB2 DATB6:  INCB  CURBYTE  MOV  CURBYTE ,R5  DEC  CNTCHAR  BNE  DATA8 DATB3:  MOV  #TMPSYM,R1  ;INITIALIZE ADDRESS JSR PC,SERCHB ; FOR CONVERSION  MOV  #TMPSYM+1,R2  MOV  #SETSRC+2,R1  MOV  #2,SIZE  BR  DATB9 DATB4:  MOV/ MOV #ERR10,-(SP) ; AND CODE ON STACK AND JUMP RAS JMP ERROUT ; TO ERROR HANDLER. RAS ; THIS SUBROUTINE PADS THE REMAINING BYTES OF THE DISC BUFFER WITH RAS ; ZEROS. THE FULL BUFFER IS THEN WRITTEN OUT AND CONTROL RETURNED TO RAS ; THE USER. RAS ; RAS BFPAD: MOV R0,-(SP) ; SAVE OV M0:04FR B AS R . ORCTSER HEOTANT GE O. N ; ECTSGEC, P SR J AS R . ES Y ; 0 04FR B LT B AS R ? MECOO TREMOY AN; IZRSDSZ+SISR#D3, R MP C0:03FR B ASHR CSTIR=FR1D AND REFENSRA TESYT B #ET S ; + 1)(R5, R OV M AS R NTOU CTEBYO TTSINPOW NO1 R ; )+R1 ( ST T AS R R.ROER O. N ; 0 08FR B GT B AS R ERFFBUN I GEPA . 7 RS RT : R0TEDA R05,@R PBCM 0 RB WA S  R0TEDA EQ B  R05,@R PBCM : 24BRSU M:ERAT DN IOATINRMTEA AT DNETIOUBRSU;  89INMA  R B E BLTAL BOYM S'SERUSY LAEROVL AL C ; AYRLOV , PC SR J: 1DINMA EDINEF DOLMBSYS HI TAGFL;  1 @RG,FLEF#D  B IS B: 1CINMA IDN IOCTSE. OGPR;) R11( , D MOECSB OVM 1 @RG,FLEL#R  B ISB  C N1AI M EQ B  ONSIESPREXT ECCS .ALRNTEEXR OBLLO.G;  7 N8AIMT BL  XP EEL RINI M ;A  D MOSL R TBTS G LA FED2  @R6,SIZE DATB9:  MOV  @R2,TBBUF  CLRB  RADIX ASCIIY:  JSR PC, ENDLINE ; CALL END LINE DATA98: CMP LPLIST,#1 ; IS ALL LISTING DONE? RAS BNE DATA98 ; WAIT HERE UNTIL IT IS. RAS DATB99: SUB #LINUSZ+6,CURLIST ; GET POINTER BACK TO OUT BUFF. RAS  INC  CURBYTE  ; INCREMENT CURBYTE POINTER DATA2:  TST  -(R1)  ; R1 = R1-2  RTS  R1  ; REITERATE SUBROUTINE 3R0. RAS MOV DSWBYT,R0 ; GET # OF FIRST CHARACTER TO BLANK. RAS BEQ BFP030 ; FRESH BUFFER-DON'T NEED TO PAD. RAS BFP010: CMP R0,#DSWSIZ+DSWSIZ ; ANY ROOM LEFT& BGE BFP020 ; NO. ALL DONE. RAS CLRB DSWBUF(R0) ; CLEAR THE BYTE. RAS INC R0 ; COUNT IT. RAS BR BFP010 OMROE ERTHS I ; + 1)(R5, R MP C0:02FR B AS R . RDWOL RONTCOE THS ESOCPRO G ; 0 01FR B R B AS R D.OR WOLTRON CTO5 RET S ; R5F,BUSR D OV M AS R ).YSWAAL (#2E YT BTO3 RET S ; R32, # OV M AS R R.TOEC SSTIR FET G ; ECTSGEC, P SR J AS R R.FENSRA TTOS TEBYF O #AS H ; 0 02FR B GT B AS R . T)SET BIN IG(SF EOT A ; 0 07FR B MI B0:INEF D'SOLMBSYR EACL;  1 @RG,FLEF#D  B IC B: 1BINMA ERCKHE CERSTGIREL AL C ; E RCFO R C,PR JS E OP N ; 1BINMA  Q BE ? R TEISEG REDYP TOLMBSYS I ; R1,@R2  B IT B: 1AINMA ONTIMAORNF IISTHR TEEN;  1CINMA  R B  UEAL V'SOLMBSYE AV SLLCA; ALVVSA , PC SR J  ONTIUAIT SIDAL VE,OP N ; 1AINMA  E BN ? D NEFIDE;     Y PLTIUL MOLMBSYS HI TIS; ) R11(G,LADF#M  B MP C  EDINEF DLYUL;F  9 N8AI M NE B  OT NONSIESPREX ; 6 .PAGE PAL ; DIRECT ASSIGNMENT STATEMENT PROCESSING  ; THIS SUBROUTINE RESOLVES THE FOLLOWING THREE DIRECT  ; ASSIGNMENT SITUATIONS:  ; 1) USER'S SYMBOLIC ASSIGNMENTS  ; 2) SYMBOLIC REGISTER ASSIGNMENTS  ; 3) ASSEMBLY LOCATION COUNTER ASSIGNMENTS   ; UPON ENTERING THIS SUBROUTINE THE EFFECTIVE SYMBOL   ; TABLE ADDRESS RESIDES IN HINDEX.   ; REGISTER TYPING INFORMATION OBTAINED ON EITHER SIDE   ; 7 ; REPEAT LOOP. RAS BFP020: CLR DSWBYT ; SET # OF NEXT BYTE. RAS MOV (SP)+,R0 ; RESTORE R0 RAS MOV #DSWLST,-(SP) ; PUT LIST ADD FOR DISCIO ON STACK. RAS EMT $NCHKPT ; (NO CHECKPOINT DURING I/O) RAS EMT $DISIO ; WRITE IT OUT. RAS EMT $CHKPT ; ( CAN BE CHECKPOINTABLE A01FR B AS R 5. RTOIND OR WOLTRON CET S ; R5D,WRON C OV M AS R R.FENSRA TTOE YT BXTNEF O #ET S ; R3T,BYSR D OV M AS R S ESDRADR FEUF BRSSE UET G ; 1 ,RP)(S2. 1 OV M AS R 2.-RR1S ORSTGIREE AV S ; EGVRSAC, P SR J AS R ; . =D EAFR B AS R ; AS R  ORRR E B ST T: 19INMA 1CINMA  R B T:N1AI MT ECCS .NTREUR COFC PX.MAE ATPD;U  PCIR@H , C RPSE@U  V MO T N1AI M OSBL C RPHI,@ PCERUS @ MP C  CTSE.CT ENRRCUF OPCE ATPD;U  PCEL@R , T ULES R OV M  CTSE.CN IONSIESPREXE BLTACALORET NO; 7 N8AI M LE B  ODLMRS  B ST T  ONTIEC SAMGRRO PTELUSOAB; C N1AI M EQ B  ODCMSE  B ST T  R1E ORSTRE; 1 ,RR5  V MO L FILD R C,PR JS 4 ,R#4  V MO 1 ,R LTSURE  V MO N IOAT: OF THE EQUIVALENCE CAUSES THE EFFECTIVE SYMBOL   ; TO BE TYPED AS REGISTER.   ; THE ASSEMBLY LOCATION COUNTER SYMBOL IS DETECTED   ; BY IDENTIFYING THE CHAR13 PACKED WORD.   ; IE. TMPSYM(1,2) = 127400   ; EXPRESSIONS DEFINING THE ASSEMBLY LOCATION   ; COUNTER, UPON BEING ENCOUNTERED, MUST BE   ; TOTALLY EVALUATABLE.     ; INPUT SPECIAL SITUATION     ; OUTPUT EXIT ASSIGN:  MOV  TMPSYM+1 ,-(R6) ; SAVE SYMBOLS FIRST T;GAIN) RAS TST DSWERR ; ANY ERRORS? RAS BNE BFERR ; YES-GO HANDLE RAS INC DSWSEC ; NO. INCREMENT SECTOR ADD AND RETURN. RAS BFP030: RTS PC ; RETURN RAS ; DISCIO LIST AND DATA BUFFER RAS DSWBYT: .WORD 0 ; # OF NEXT BYTE IN DISK BUFFER. RAS DSWSIZ =64. . EDORSTRED AND SE URE AR51- RRSTOISEG R ; AS R D.EAFR BNGLIAL CREFOBE' ECRSDS 'TOIND CELA PISR TOEC S ; AS R E IVATEL RHE T. ATR FENSRA THE TINEG BTOR TOEC SHE TCTLESEO T ; AS R E ON DENBEE AV HNSIOATEROPP FU BRYSAESEC NLL AATTHD MEUMSS AIST I ; AS R . ESRIDAUNBOR TOEC SSSROACD ENXT E ; AS R Y MAS NELI ).OF E =ONT BIN IG(SG LA FOF EHE TND ARDCOREE THN I ; AS R S TEBYF O #HE TNGNIAINTCOD OR WOLTRON C ABYD TEMILIDES INELIH AC E ;ICIFOD MERNTOU CONTICALO; 0 ,R.2D3RL # VBMO 1 RVESA; 5 ,RR1  V MO : 1QINMA 89INMA  R B  ORRRQE  B NC I  1QINMA  Q BE . ET SBEN CA. EL RND AF.DEY NL;O1 @R1,G-FLEL-RLGFFDE#-  B IT B  UTTPOUY ARIN BSTUEEQ R ;  UTNOBI  B OM C: 88INMA 1EINMA  P JM : 89INMA ORRRAE  B NCI: 87INMA 88INMA  E BG D MOSL R TBTS . OT NIFH NCRA B ; 87INMA  E BN ? LEABATLUVA ELYALOT TONSIESPREXE THS WA;  R ROER  B ST T  PENO; >RIAD  MOV  TMPSYM+3 ,-(R6) ; SAVE SYMBOL'S SECOND TRIAD  MOV  HINDEX ,-(R6) ; SAVE SYMBOL'S ENTRY ADDRESS  MOV  @R1,-(R6)  ; SAVE SYMBOL'S FLAGS AND .CSECT ID  JSR PC, ITEM ; CALL ITEM  BLE  MAIN16  ; VOID ITEM ENCOUNTERED     ; NON-VOID ITEM ENCOUNTERED  INCB  ITEMIN  ; SET ITEM PENDING FLAG MAIN16: CLR  R0   ; R0 = 0  JSR PC, EXPE3 ; CALL EXPRESSION, MINIMAL TERMINATOR ;  BGT  MAI? ; # WORDS IN DISK SECTOR. RAS DSWLST: .WORD 1 ; THREAD WORD RAS .BYTE 1 ; DEVICE CODE (DISK=1) RAS .BYTE 2 ; EXIT TYPE RAS .WORD 0 ; NO EXIT ROUTINE RAS .BYTE 0 ; NO ERROR TASK RAS .BYTE NDPRT1 ; LOWEST DISK PRIORITY. AS R . NELIE GLIN S AERUSE THO TSKDIE THM RO FRSFENSRA TNETIOUBRSUS HI T ; AS R GEPA . AS R ; ENEV . AS R R.FEUF BSKDIR FOM OO RVEERES R ; IZWSDSZ+SISW+D=. .F:BUSW D AS R ERSFANTRO TDSOR WOFR BEUM N ; Z SISW D RDWO . AS RR FENSRA TRTTA STO. DD AC.SEE IVATEL R ; 0 RDWO .C:SESW D AS R SE UIOSCDIR FOD VEERES  9 N1AI M NE B  ?ERNTOU CONTICALOY BLEMSS A ;     HE TNGNIFIDEL BOYM SISTHS I ; )+R6,(007412 # MP C  ADRI TSTIR F'SOLMBSYE ORSTRE; +1YMPSTM6,@R  V MO D IATRD ONEC S'SOLMBSYE ORSTRE; +3YMPSTM+,6)(R  V MO S ESDRADY TRENS L'BOYM SRETOES R ; X DEIN,H)+R6 ( OV M  IDD ANS AGFLS L'BOYM SRETOES R ; R1,@)+R6 ( OV M: 18INMA ORRR EERSTGIRE;  R ROER R CBIN L BOYM SEDINEF DLYIPLTMU;     A S AEDERIDNSCON17  ; NON-VOID EXPRESSION FOUND  INCB  QERROR  ; VOID EXPRESSION CONSIDERED     ; AS QUESTIONABLE SYNTAX  INCB  UERROR MAIN17: BISB  REGTYP ,@R6 ; COMBINE THE EXPRESSION'S REG.     ; TYPE WITH THE SYMBOL'S FLAGS  BITB  R2,@R6  ; IS THE SYMBOL TYPED REGISTER ?  BEQ  MAIN18  ; NOPE  BITB  #LABFLG,@R6  ; YES, IS IT A LABEL ?  BEQ  MAIN18  ; NOPE  BISB  #MDFLAG,1(R6) ; YES, RAS DSWERR: .WORD 0 ; ERROR STATUS (0=OK). RAS .WORD 0 ; SYSTEM WORD RAS .WORD DSWDAT ; ADDRESS OF DATA BUFFER. RAS DSWDAT: .WORD BFILE ; BFUP FILE ID RAS .BYTE 0 ; USE SPECIFIED FILE SECTOR RAS .BYTE 3 ; FUNCTION - WRITE WITH WRITE CHECK RAS .WORD 0,0,0 ; R