$j jj5gt~tlhj.k j!Dk l \lk\l\lk. Ek 7 ^&xj>/5@bj@ lj&lrj :H~ QKH LH LH N`H &tH~ yHRH 4H %H %\!H %""H %H Hf H <H| ~Hn H H H H Hv  H \!H!Hb a',H a'p0H a'0H U(zHEH EH5~ExKHEH EH EHEH 4F[MH GH SHSsHd$TH :TH :TH<aTH T\}H THp 62((T`:(_v( 4R(4(kv( &( 4(pp(%((&@(S4(T(IqM( (@j@_@ON@,0z@@Q@`;@9L@ZI9@rW@f4R@ #}@m &@i_M@&&@i_M(i_MhZv(W@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &( 4(pp(%(/(&@(S4(T(IqM(  e8f f" `hDaJe "  E  w Vn` C“`h # 0 C B 7!r "  h 'h d # `U+ KP   w hlw @a/ Ba+Aa B`A D@mE D d @B  y& w 0 , w xh7w NABCfDՋ/ ŀ 7pW ewW~ m1nmRrmo|mPmo mNmohm"-o-oVfo"fo"oѕ mfm0lmJln0lhnq" v  D"o!q0lRhn V JTn0lZno ^n0ldn0lrnohvn&l&l@+&,e "n!q0l0l0lj! E~UQH U_H `Hr BPX/`N`$ e^    $t4!<:ef %  h aC$&pcF %$C%@`Գ Aa ,Ӌ(q%(  EUHQ̳:ht  (&   ,^ 6^0 5@  `%5bZh eNa  搎NŀW W  װΌeΌ%H p HE h8 "zn  wn&l-n&l'n0ln_rnhn8o&l&l-r   w&l0l%$ D`*7 x7 vL  Ysw&^sws nsswn-wz-zwn-pwb/s-fwtP$nsBzs@hs` Z C-Nw0l0l w {"Ёh$B$bF % A BB`$&( " H"ED EL0hb:AaAa:EEd e b(  &* e U  U@ 0 e0 $_ ._&EU $ d!wρhC cF %  `C@%&(44_ t#  b g",LTGhrG<B    < W,F6&@+]@+@8@c]@c@8@9L@@8@ #}@f4R(f4RhZv(W@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &( 4(pp(%(Z(&@(S4(T(IqM( je;@ @@Ϋ@@@j@{@@8@_@}@S4@S2@Oi@ON@-}@,0z@@@Q@Ԫ@8@7@8@7%@7@@+]@) w X  @pw R R&  B:L7+0.H  h|*X@ &7 &fHW hLh 5  vU N`E N`]& 5'  E# ” &h `U `  : w$   7 & 6 5hfe  E vav|b s sRxs oht&l0l&l0l>\{ wv{Ee%v{e B  P dtw &`tJlmdtv{.hvt0l @ N 0l0luuu  t wJtutxt0 ohtx  ww,BJy wwy xwV h wJuw#1L,. ' #Bl 000 NE 0 &* 0  E?LQ 0( $ \d!xρ~b$C$cF % C` !( & e(  &*   U%g"G$ :d!yρ@)SE      U%g"G$ d!zρ)ha ͋,L wB ` 5 5 6  ݩ@@@v@8@E@8@9L@@8@PZ@u~@@q 5@zQD@K}@&K@<@@rW(vrWhZv(W@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &( 4(pp(%((&@(S4(T(IqM( je;@ @@Ϋ@y@Ϋ@@@j@{@@8@_@_@}@U@S4@S2@Oi@ON@-}@ && 5e   E `h 5e & E eENa&D f v&D f BLh*& v f ~v&f lAC $  v v <fn 5@wE,5hX7 R7JwH7 7 7 7 ~  BJ|@. Ci$$W" W"@ Z &vN<@!6uz>u oHuLuJlPu0lhZu^z @w zz 0wv,z wfRz  t &l TO CONTINUE, OR "RE" TO SKIP THIS FILE 8!hRx PLACE PAPERTAPE IN READER TYPE TO CONTINUE Q CHECKSUM ERROR BACKSPACE TO LAST INT/xER-RECORD GAP AND TYPE TO CONTINUE Fhxh FILEN" w w * \hbw6  DUUEU T & fNUNU ?#<6hf& * 1U U@DEU!>Uf& *  U UCh&CB E e v * "U%Gef. , EeEv &&$ d!{Ёha ͋_ wGB ` % $#,0z@@@Q@Ԫ@8@7@8@7%@7@@+]@ݩ@ݩ@@@v@8@E@8@9L@@8@Tq%@IqJ@p@pe@dD@E`W@zQD@#p@Z&&(P&&hZv(W@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &( 4(pp(%( (&@(S4(T(IqM( je;@@ @@@j@{@$FNDSZERR U>Bw`7Xx$eh$" $  2SYSERR >hzw(z7 x wE| ~ SSS_  QW K#@    *I"d:!B  ! _@ B <w, `K)ANSWER WITH CARRET OR 'Y'CARRET:- =( X&IS YOUR LINE FREQUENCY 50 HERTZ0 7 H.DO YOU WANT TO DISABLE DIALOGUE FOREVERN%AME DISCREPANCY CHANGE TAPE AND TYPE ELSE BACKSPACE TAPE TO THE BEGINNING AND TYPh@yE "RE" x RECORD NUMBER OUT OF SEQUENCE, WRONG PAPERTAPE IN THE READER CHANGE TAPE AND TYPE "CeyO" TO CONTINUE, ELSE TYPE "RE" = ALLOCATION FAILURE - INSUFFICIENT SPACE ON OUTPUT DEVICE &hzX FILE ALREADY EXISTS ON OUTPUT DEVICE TYPE TO SUPERSEDE THIS, ELSE TYPE "RE"  FILdzE DELETION ERROR n5xz- DEVICE SPECIFIED WILL NOT SUPPORT OUTPUT *hz4 OUTPUT DEVICE SP&w */ &TT5$hbW!W!* l 1$K 1 Ee Ev P& h  J  | EU    ʕ pSHh&ehe\E )B v * euF!% Ge(hfp_ F&&e E]e _ `& "u(' l( $ '_@}@S4@S4@S2@ON@-}@,0z@@@Q@7%@^7@@@E@8@9L@@8@,U@ (@ &@  @p@f4(F f4hZv(W@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &( 4(pp(%((&@(S4(T(IqM( je;@ @@Ϋ@y@Ϋ@@@j@{@p@@8@(h@  7 01R $L p XEHN l"qw`Xj ҋ  K CILERR w$ CL3ERR (w  w! w!҃ ^ SPCERR 8*wx a7 7  Vҋ( ,(CILERR >\wFb 02%\ B- `w"R1 1CSQE)ECIFIED NOT DIRECTORY STRUCTURED z END OF MEDIUM ON PAPERTAPE READER BACKSh {PACE TO LAST INTER-RECORD GAP, OR CHANGE TAPE IN READER TYPE TO CONTINUE  FILE COMPLETE l{ n{h{7 ~$^ \} o EW ť[@ `e{RRRRRҕeҕln!{w { |{V}{0l|0lh|&^ hp|*d!}ρhpqF  A? BB`9$31 1 W W"Q$5@L0,ephb 0 w&*  e  v&* *$$D` P&*  D`̋hE Z ȋQ ($) & R.^   U%g"G$5  5@ ,J ')h&C`3K 5@ * (" 5@E  U (  e~P # .^ 0 5 E"@ +_@_@}@S4@S4@S2@O(i@Oi@%ON@-}@,0z@*@8@@@Q@@@:@7p@7@8@7%@7@@+]@ݩ@@@v@8@c]@Ep@E@8@9L@쨀p@N@8@te @PZ@p@zQD@ NK@99@|&]@#p@ NK(^ NKhZv(W@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &,RR \ww@, D- fr " ` <, : a:CFTERR hw< wF m4 em5  0    L8<@FN "R w "W " C CMODERR hnw4  B m w fm.. (7"B`B +>  $">  d W$ B$a(~~L Eh|i.4}Nh 6 uuu7vȥ 3%COȥ -%NT%IN%UEȥ   %RE ȥ >Pn%ST%ARХTuuu6 HWHAT?? Hvjy.`%͋͊G$ d!ρ ha ͋,L wB ` 5 5 r* y ?&#Zohb 5@- SS & fNUVUN#,?!=5@- 8 BBUBU8 gh  * 0 &M  $^ "U%Gef.  h&  EEe v &$^ &&e E]e( &&^ & /( 4(pp(%(#(&@(S4(T(IqM( je;@@ @@Ϋ@y@Ϋ@@@j@{@_@_@}@S4@S2@Oi@ON@A@-}@P,0z@*@8@@@Q@@7@8@7%@7@@+]@@ݩ@@@v@8@E@8@9L@@8@M:@te @q 5@Tq%@Iq@pe@&f@E`rX@K}@ #}@f(fhZv(W0LDX1ERR hww> ( m w( N bV  e `    jeN8NX.Nht` ``//%%$ |  =  ]zw w eh-d U =UDIAERR Zw   7w m :   w h@ &L7W-FDfR:ʋG ev# -x/-+7  hW-! 1$JOB PAT920 [1,1] $;EDIT 5 $; TO PATCH V9-20 $R CILUS $ME PATCHING EM.006 (RP PATCH) #MONLIB/PA *C EM.006 *I EDIT02 *240/5046:4737 ;JSR PC,@#BF.LBA *242/116516:10002 *244/4:240 ;NO OP. *E $ME PATCHING EM.043 (RP PATCH) #MONLIB/PA *C EM.043 *I EDIT02 *554/16004:4737 ;JSR PC,@#BF.CKX *556/177776:10052 *560/116416:13705 ;MOV @#56,R5 *562/4:56 *E $ME PATCHING DV.MT #MONLIB/PA *C DV.MT *I EDIT02 *1770/100407:100007 ;BPL INT2 *E $ME PATCHIN2 ݁ "u$ d!ρh eʋ_ w  " e Z$8* ^&#LU%hb&& & * A<_ w&& ?    ,+e  *heuF!% &Ge fp Dd6&DU%fN8W)C$2h& N! eeH!    X%D PC,e :e c$hB  D3@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &( 4(pp(%(;(&@(S4(T(IqM( je;@@Ϋ@@@j@{@_@}@U@S4@S2@Oi@ON@-}@,0z@@Q@7@8@7%@eN7@@+]@@9L@쨀>@M:@te @p@#p@"|&](|&]h @@Ϋ(d@@j@p@4 5 vhF cF ( $ e7e  j  & e *:&   ^ & e  3x Nh$&  ; e  f e @ <  &f cB m e`  E7w f aomh eB e H`& A`N `er m |  V B. e. e 1h ^s O^CORERR fw  55G DV.CR1 #MONLIB/PA *C DV.CR1 *I 09.19A *44/16767:105067 ;CR.OP: CLRB CR.TFR *46/177746:70 *50/177754:16767 ;CR.OP1: MOV CR.SAV,CR.TOS *52/105067:177742 *54/62:177750 *76/762:764 ;BR CR.OP1 *E $ME PATCHING BCL.5 #MONLIB/PA *C BCL.5 *I EDIT01 *112/1015:464 ;BR BCL540 *260/715:10002 ;MOV R0,R2 *262/0:714 ;BR BCL505 *264/0:1330 ;BCL540: BNE BCL515 *266/0:5726 ;TST (SP)+ *270/0:722 ;BR BCL6 _ p_ F&&e E]e _ & ` _>$ d!ρha ͋,L wB ` 5 5 w*g,M `$Lchb[5 X &#a `e & * VL  #,3   &6hfTff ee   U p 8 E -e Eh&e 7_@b@}@S4@S4@O(i@Of@ON@A@,0z@@Q@:@ݩ@6ݩ@@E@8@9L@j8v@o'` @ZI9( ZI9hZv(W@( <h( u~h( S@~( {D(a'.(]d( :62((T`:(_v( 4R(4(kv( &( 4(pp(%(v(&@(S4(T(IqM( je;@ @@Ϋ@y@Ϋ@@@j@{@p@@8@_@_@}@F #  55  5  eQ$g .  g? hZ  ׭Y  ~    \ ~# h F &\ Th N7 v>  #:̇ 0 &>@E 4 w 7: &w f B < BE 0 MR!Qh N" .h>9 0 & e`$rd!,E\}0> .x ">tLLlhP`d@pp00fH512 *E $ME PATCHING THE MONITOR IDENTIFIER (TO V9.20B) #MONLIB/PA *C CF.TBL *I 09.01A *262/30126:34526 ;"V9" *264/26471:31055 ;"-2" *266/30062:41060 ;"0B" *E $ME PATCHING BCL.4 (CCL LINK) #MONLIB/PA *C BCL.4 *I EDIT01 *156/11504:11404 ;MOV @R4,R4 *E $ME PATCHING THE MONITOR IDENTIFIER (TO V9.20C) #MONLIB/PA *C CF.TBL *I 09.01B *266/41060:41460 ;"0C" *E $FINISH Gv&   E *.M &^  $^ lh"U%nGehf.$^ &&e E]e( &^ &G ݁ "uA$ <d!ρsha ͋,L wB ` 5 5 >* F  &#*+hbUe t * &M $^ "U%fGe`f.   Ehe EEU@S4@S4@S4@S2@pO(i@Oi@Ohe@ON@-}@,0z@*@8@@@Q@Ԫp@@:@7p@7@8@7%@+]@ݩ@@@@vp@c]@Ep@B^E@8@9L@@8@쨀p@@8@j@[@PZ@xQ@99@o'` @ .i|LQL""`@@,.(vph h4  h &h. (h%h,#ph&Kh ,UhX7.,:h,xQ""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""233@DD@DDDDDD "@DDDDDDDD@DDDDDDDD@DDDDDDDDDDDDDDDDDDDDDDADDB B B C5gt~K. )ZI9l^.ZI9jL.3rWK.ZrWy.1}PKK.&xl  aʋaՀ$ & * P$ ΋Ί   ΋   d Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋U@ U &  B" .&0 Ih y:hK}h4xQh` .zQDhZSphE`Wh"E`rXh"dDh6.pehbphRIqhxIqJhTqh,,.Tq%hq 5hHwhzhPZh.[hte hpM:hjhH_vl .{Dl]dla'.l8/KhTl. ͥw@7.&7A%7@7 -DT r"{D$.L7 U-~w hw tD${D ""`$t& ({DPJ` " "m(Fb F`p\dlr~FR@\:JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECP=jWRONG DATE! DD-MMM-YY DATE: WRONG TIME HH:MM TIME: 'h 7 0  ewx e ~ e n e~ ^eT8 e\"2  A$; e  $Na 6$SYSERR hRwPeh`  \N d K v &$^ &&e E]e( &^ && ݁ "u$ d!ЁhB E %5 : 3B5-5* & # WWMU%Dffe) hb  cC m v %e)eeeeeyeC e5 JU    Ce eAche) l  %ς d   )   )5   %U%fD` h& N`5 &  5LM.rw b= 5f".Hw (w w "X""`(XM.`  `.$ͥw@ 7^ $. w _ (.0@BE@Bf.Vf"f& " ff`+|6 BR 00-XXX-70|.@&&fN *3 $"h " f   <D>Da m@ f& U" 6 ee  % $Ba Bm$CLCERR hFw\ % CcaD eabe w    "mh mr mfBg  h f  X    %e&  8 06@a5 0b dd Z(($0a O  P  BE U    0 % h rU%g"G$^ e e0EMP&&( &^ &  &S % $ d!ρh&^  @mof> OW!ҕ^JA Օ E ! RbIɕ;fI&hbAeV! Iҕ\͋͊W  @ 4Q Rʋ %+פ " f.A! ˕$4BQ$ ~-0  @  ̔ @Q6F!.?? f. @   r ' (. B @@@ 77  &0.8T.^׭eW+wP.wPF4@R.+'#  .w w w 0Ww""`.RT($MRTERR Z4wn5 we  TI w"  W% 1$a 1$KBCERR BwB%e)f2 &f #  :$a  :$SQZERR 0wBe  e TB"C$a GC$SEQERR hwLK"e Be wt$l 6wb -$    jhP w0 7 2!  2e 2 5  U 5 E  h % Sc$ Eρh&^ % CD: A )e$Q$  ~-0 EC % :hb@ I 7w8ILL CMDINV CMDSYN ERRILL DEVNO FILEILL ADRNO CORE #8: e L  B , @m@$ E(ρYh&^ e $`w8ILL CMDINV CMDSYN ERRILL DEVNO FILEILL ADRNO CORE#8 e hb & &T;COPYRIGHT 1973,1974, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .IDENT /09.01A/ ;TO SPECIFY A DOS-11 CONFIGURATION, THIS ;FILE HAS TO BE EDITED, ACCORDING TO THE ;INSTRUCTIONS GIVEN IN THE FOLLOWING ;COMMENTS. ; ;INSTRUCTIONS PRECEDE EACH OF THE LINES TO BE EDITED. ;THIS MODULE HAS SIX SECTIONS: ; 1. SPECIFICATION OF A DEFAULT UIC FOR BATCH ; 2. SPECIFICATION OF CLOCKS Uw F. m2$]d.BBC@@P 7 "a'.(T.h w `w |w Z  w Bw  ""`| ]d>.w < m2 w w ,"""` ]d&""`w JP|.7w@-DT?&{D .   EV%__ -| r n LFFe@N.  `e 9 2h ,2 + * -\R   -  U e h wfe EN\w\m zee P %eMh  j @2 w L  eT@ hD!MM`WT z E؏3 w L  B Xd >$ d!ρh _`& $e X 5 T$hb&  5ae  4 Peԕ 6 <eԕ ̕  HA@m44e `fEe0 IAWFS$ ρh D:e eCWSWWFX ; 3. SELECTION OF DOS STANDARD DEVICES ; 4. SYSTEM IDENTIFICATION ; 5. SPECIFICATION OF CONSOLE TERMINAL ; 6. SPECIFICATION OF USER DEFINED EMT'S ; 7. SPECIFICATION OF USER DEVICES ;THE USER SHOULD BE AWARE THAT THE CONFIGURATION MODULE ;SPECIFIES A MAXIMAL SET OF DEVICES.WHEN DOS IS BOOTED, ;THE INITIALIZER TRIES TO REFERENCE ALL DEVICES SPECIFIED ;IN THE CONFIGURATION MODULE AND CONFIGURES THE SYSTEM ;TO THOSE WHICH RESPOND.THUS ANY DEVICE WHICH IS EITHER NOT PRESENT OR ;IN THE CONFIGURATIYBE A7 &_v0.@7 W w $ x ".@  mK 6"]d]d"$.f ߋ   =(.A  . At2".z@.A!ͥwA .$BZMMMEh!MM,,""@ "! h " " l  rbd`DFf@Bhn"6xEMMff `T@h"n& " 1ww @g w ee"w h2# wl [ `e 4fff E؏U O6hb6 d&^ %=$ <N6 5@:e b0$؋ h” >  &(@@m $ (ρh&^ %ע9&  c cDeU@f&&5@+̥# ̥$E&hbO  S E@&^ %d/E5E@ U  4   0($\ON MODULE WILL NOT BE USED BY DOS. ;REASONS TO OMIT A DEVICE FROM A ;CONFIGURATION CAN BE TO RESERVE IT FOR OTHER PURPOSES OR ;BECAUSE IT IS FAULTY. .PAGE ;BATCH USES A DEFAULT UIC WHEN NO UIC ;WAS SPECIFIED, THE DEFAULT UIC IS [1,2]. ;TO CHANGE THE DEFAULT UIC [1,2] TO [X,Y], ;REPLACE DFU 1,2 WITH ; DFU X,Y DFU 1,2 ;THERE ARE 2 POSSIBLE CLOCKS: ; 1 KW11-L THE LINE CLOCK ; 2 KW11-P THE PROGRAMMABLE CLOCK ;THE PROGRAMMABLE CLOCK WILL BE RUN IN LINE MODE. ;TO DELETE THE LINE CLOCK FRO]B!% w  ]d]d&]d .J &&A m@]d&]dp e.qQ[&&@i_M@m &@^. #}@f4R@rW@ZI9@9L@.`;@@Q@,0z@ON@_@;.@j@(vqQ[hZv(W@( .<h( u~h( S@~( {D(a'.(.]d( :62((T`:(_v( ~.4R(4(kv( &( 4(.pp(%(!B  w:" e    &  #B ͋6 ##B#L$3L$CIL IS WRONG CHECK ERROR LIST REBUILD CIL, 5#y$ 8y$AFTER CORRECTING AND TRY AGAIN SYSTEM WILL MAKE d#$ *$A HALT NOW RELOAD A BACKUP SYSTEM >^#f W!0W!>De~ ! E?Uc&f&G'_ d!ρh_ `%&B A!-W D ,W   -&^ %T5 & `ehb @: ZZa 達 g" )l@mL (_ F` Hl<;((& D $ R,EρXDASAWAECODBEMEBERETEKITIECENWACOEOMOECPRASWASTDUOW+$ d!ρhU@ ACBc`M ALL POSSIBLE ;CONFIGURATIONS, DELETE THE NEXT LINE FTCLL=1 ;TO DELETE THE PROGRAMMABLE CLOCK FROM ;ALL POSSIBLE CONFIGURATIONS, DELETE ;THE NEXT LINE. FTCLP=1 ;PROGRAMMABLE CLOCK ;IN THE NEXT LINES ALL STANDARD PDP-11 ;DEVICES ARE DEFINED. THIS IS DONE BY MEANS ;OF DEFINING A SYMBOL FTXX, WHERE XX ;IS THE DEVICE MNEMONIC. ;TO DELETE DEVICE XY DELETE THE LINE ;FTXY=1 BELOW. DO THIS FOR ALL ;DEVICES NOT WANTED IN YOUR CONFIGURATION. FTDC=1 ;RC DISK FTKB=1 ;TELETYPE FTPR=1 ;HIGH Sa(&@(S4(TT(IqM( (?$7 qQ[7 ?*ON@Q@j9Li_M_*7 J*@j9L f4R_@j9L07 7 *rW _ @j9L&&_MF7 *@j9L m &_@j9LZ7 !7 *ZI9 _ @j9L #}_np"\@j`;b;COPYRIGHT 1973,1974, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .TITLE CF.TBL ;FIRST DEFINE THEDIALOGUE , WHICH IS PRINTED ON SYSTEM ;LOADING SVAR EMTLIM,M.IOMX SVAR DFLUIC,DFU IF CR0XIST THEN IF CR2XIST THEN IFF TDATE THEN TEXTM MONVER TEXTM USRTXT IF TDATE THEN SVAR FLAGF,UIC TEXT  U@ &^  $ d!ρh͕_ ` &@ 5? f;5D8 6ȋ   ) W"d f Uhb@e_ `F W" >ehp#. M%E  ^e\+W#ASUȵ@W"@@dPEED PAPER TAPE READER FTDT=1 ;DECTAPE FTMT=1 ;MAGNETIC TAPE FTDF=1 ;RF DISK FTDK=1 ;RK DISK FTCR=1 ;WHENEVER THERE IS A LINE PRINTER IN THE CONFIGURATION ;THEN DEFINE: ;FTLP=0 THE LINE PRINTER IS A LP11 OR LP11R ;FTLP=1 THE LINE PRINTER IS A LS11 ;DEFAULT IS ASSUMED TO BE A LP11 LINE PRINTER. ;THIS CAN HOWEVER BE CHANGED DURING THE INITIALIZATION ;DIALOGUE. FTLP=0 ;LP11 DEFAULT FTCT=1 ;TA11 CASSETTES FTPP=1 ;HIGH SPEED PAPER TAPE PUNCH FTDP=1 FTDPB=1 .PAGE ;THE SYSTEM GENERATe.i_M,xQ@pe@p@N.w@z@PZ@@8@9L@ .E@8@@@ݩ@+@8@+.+]@6&@7%@7@8@Ԫ@8@.@Q@@*@8@,0z@-}@.ON@Oi@O(i@S2@S4@.@}@_@_@{@a.@j@Ϋ@@Ϋ@y@@ @.je;@(i_MhZv(W@( .<h( u~h( S@~( {D(a'.(.]d( :62((fATE: > GDATE TEXT GTIME NODATE: IF INIV THEN IFF DIALV THEN TALK: QUEST ,DIALV IFF DIALV THEN TTY0: QUEST ,DIALV IFF DIALV THEN IF TDATE THEN TEXT GETNUM LOWF,HIGHF,KFC,CVTRT GOTO TTY0 ;NEXT LINE MUST BE WITHIN 512 BYTES OF CFTBL START. CVTRT: FCOUNT NOFILL: QUEST ,BOOLV IFF BOOLV THEN .IRP P, 8v˕   & & ( G$  (ρh&^ %  b + L5@ 5 ŀE@ & & hED CAN BE IDENTIFIED ;BY A USER DEFINED IDENTIFICATION LINE PRINTED ;WHEN THE SYSTEM IS INITIALIZED. ;INSERT THE IDENTIFICATION LINE BETWEEN ;THE ANGLE BRACKETS (NOTE: INCLUDE ;NO ANGLE BRACKETS IN YOUR TEXT) ; ON THE NEXT LINE. IDENT <> ;E.G.. IDENT ;IN THE NEXT LINES THE IDENTIFICATION PRINTED AFTER THE V ;IN THE MONITOR MESSAGE IS DEFINED. DO NOT CHANGE THIS. MONVRS ^\DOS/BATCH V09-20\ ;THE NEXT LINE MUST BE CHANGED IF THE CONSOLE KEYBOARD ;/PRINTER IS NOT THEiT`:(_v( ~.4R(4(kv( &( 4(.pp(%((&@(S4(TT(IqM(  &7 i_MJ7 .ON@Q@j9LpeJ _,S4Oi pp @j9Lpe5.P7 V.P_ S4 Oi pp@jV@@^,Oi T@j ^O(i IqM N ^!^.jPR,PP,MT,CT,DT> IFF P'XIST THEN QUEST

BOOLV IF BOOLV THEN P'DUM: .ENDM SPCAS: IFF LP0XIST THEN QUEST ,BOOLV IFF BOOLV THEN SVAR FLAGF,LP0XIST SVAR FLAGF,LP1XIST CRTEST: IFF CR0XIST THEN > QUEST ,BOOLV IFF BOOLV THEN SVAR FLAGF,CR0XIST SVAR FLAGF,CR1XIST SVAR FLAGF,CR2XIST SVAR FLAGF,CR3XIST LPQ: IFF LP0XIST THEN > QUEST U @m$dE $  Pρh_ `% W#d U@  )& %- _ `[W#G +ҵ(hb DL    -  A@ U  - e>M"M%EW!AS>U  A@ $@ 5@R GECHFIJOASRUl STANDARD ASR-33 TELETYPE. THE VALUE ;'0' IS TO BE REPLACED BY THE CATEGORY NUMBER SHOWN ;AGAINST THE TYPE OF TERMINAL DEVICE TO BE USED IN THE ;FOLLOWING TABLE: ; ; CATEGORY TYPE OF TERMINAL ; 0 ASR-33 TELETYPE; ASR-35 TELETYPE; LA30S ; (110/150 BAUD); RT02; VT05A/B(110/150/300 ; BAUD); VT06(110/150/300 BAUD) ; 1 ASR-37 TELETYPE; VT05B(600 BAUD); VT06 ; (600 BAUD) ; 2 VT05B(1200 BAUD); VT06(1200 BAUD) ; 4 VT05B(2400 BAUD); VT06(2400 BAUD) ; 12. LA30S(300 BAUD) ; ;E.G. FOR 2400 BAUD Vm@j^ O(i IqM@j^O(i]`", IqM@j S2 :62S2*np.-} S2 ZvS2 ZvS2M.#(1X,'VERIFY VO',A2,'-',A2)"7@87%@j p$R*@jS2 :62 S2-}.%(1X,'WHICH DEVICE(SY,DK,DF,D 7%@j  P,DT)?'/) &*@jS2 :62 SnTO CHANGE LINE PRINTER>,LPTFLG IFF LPTFLG THEN SVAR FLAGF,LP0XIS QUEST ,LP1XIST IFF LP1XIST THEN IF LP0XIST THEN ELSE IF TDATE THEN COLUM: TEXT GETNUM LOW0,LOWE,COLUMN,CASE GOTO COLUM CASE: QUEST ,LPCASE QUEST ,CRCASE IF LP1XIST THEN ,ELFLAG> CRQ: IFF CR0XIST THEN QUEST ,CDRo$  xρYh&^ e $ A5E5 EU%E` eG%Hҕ ʕ &Vb^ M RRe0@ e QC$QTT T$ d!сBh@  ##`F __  5   5"5"f656 hb 5" f5H6H C;  3aehÒ` (E` `fSpT05B, THE ENTRY SHOULD BECOME:- ; CONSOL 4 CONSOL <^D12> .PAGE ;IF NO USER DEFINED EMT'S OR NON ;STANDARD DEVICES ARE TO BE ADDED TO THE ;SYSTEM, THEN THE EDITING OF THIS FILE ;IS FINISHED. ;IN THE NEXT SECTION NON-STANDARD EMT'S ;ARE DEFINED. THESE HAVE TO FALL IN THE RANGE ;140-177. ALL OTHER VALUES ARE RESERVED ;FOR DEC. ; ; ;IN THE NEXT LINE THE SYMBOL UDEMT ;MUST BE EQUATED TO THE DIFFERENCE ;BETWEEN THE HIGHEST EMT VALUE DEFINED AND ;77 (ALL NUMBERS ARE OCTAL). ;A ZERO MEANSq26&',S2 {DS2 7@87%@j (A2)(hR* @jhE@8v&)rR. &  @jrE@80:*|. :  @j|BN+x,E@8  N @jRb.E@8  bGb,v2*@j  E@8rFLG IFF CDRFLG THEN QUEST ,CR1XIST IF CR1XIST THEN ELSE IF CR1XIST THEN GOTO DEFAULT CDQ: IFF CR2XIST THEN QUEST ,CDRFLG IFF CDRFLG THEN QUEST ,CR3XIST IF CR3XIST THEN ELSE DEFAULT: IFF TDATE THEN QUEST <026>,CDRFLG IFF CDRFLG THEN SVAR C026,s@  e!E!  HEP! E~   (     hbe  f  E  `#' W'͋ WUWe hee e TZ  W#e1$ 'd d0 4@c@h&  W3 e % E0 @c `t THERE ARE NO NON STANDARD ;EMT'S. ;E.G. IF THE HIGHEST EMT IS 166 THEN UDEMT=67. UDEMT=0 ; ;TWO DIFFERENT TYPES OF EMT'S CAN BE ;DEFINED! ; 1. SWAPPABLE EMT'S ; 2. EMT'S LOADED RESIDENT DURING ; SYSTEM INITIALIZATION ;FIRST DEFINE THE TOTAL NUMBER OF SWAPPABLE EMT'S ;(IN OCTAL) IN THE NEXT LINE (UDEMSW=...). UDEMSW=0 ;REPLACE 0 BY NUMBER OF SWAPPABLE ;EMT'S ;NEXT DEFINE THE NUMBER OF EMT'S TO BE LOADED ;RESIDENT DURING SYSTEM INITIALIZATION. UDEMRS=0 ;REPLACE 0 BY NUMBER Ou vnr-*@j E@8.b*   @jbk/0.@j Oi {D@jOi}12V*@j  @jVOi3, {D@j  E@8#w,E@8 *@8 ,4.,@j S2 :62vCDRFLG GOTO DKQ DEF1: QUEST <029>,CDRFLG IFF CDRFLG THEN SVAR C029,CDRFLG GOTO DKQ DEF2: QUEST ,CDRFLG IFF CDRFLG THEN SVAR CASCII,CDRFLG DKQ: IFF DKXIST THEN SVAR FLAGF,DKMASK QUEST ,DKFLG IFF DKFLG THEN IF TDATE THEN TEXT GETNUM FLAGF,MAXFLG,DKMASK,TTY GOTO DKQ TTY: IFF TDATE THEN SVAR FLAGF,DKFLG SVAR FLAGF,LPTFLG SVAR FLAGF,CDRFLG GOTO END LP0w V%  $g"H @ U$eF en$ d!Ёiha ͋,L  Bw(B ` % & ~&*C$$Βe E|hb%>l  aʋaՀ$ & * P$ ΋Ί   ΋   hd Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋Kh&U@ U &  B" .&0 M &0 & xF ;USER EMT'S TO BE LOADED ;RESIDENT. ;AFTER THE DEFINITION OF THE NUMBER OF USER EMT'S, ;THE VALUES OF THE EMT'S MUST BE SPECIFIED. ;THIS IS DONE IN THE MACROS GEMU0-GEMU5 ;DO THIS IN THE FOLLOWING WAY: ; 1 DO NOT DEFINE MORE THAN 13 (OCTAL) ; EMT'S IN A SINGLE MACRO. .PAGE ; 2 DO NOT DEFINE BOTH RESIDENT EMT'S ; AND SWAPPABLE EMT'S IN THE SAME MACRO ; 3 START BY DEFINING THE VALUES OF SWAPPABLE ; EMT'S IN MACRO GEMU0, IF THERE ARE ; MORE THAN 13 (OCTAL) VALUES CONTINUE ; yS2-}D(5(1X,'UNIT NO.'/)6(7%@j  @j"S2(, :62S2( 6&S2 {D 7,(O1)8S.S27@8 7% @j,@jf09L%*@jS2 :62 S2L-},.B:|(1X,'OPTIONS(NORMAL,LIST,SEAD7%@j  |hRCH,FIX,OR ALL)?'/) |k|;*@jS2 :62 S2zVAL: .RAD50 /LP0/ LP1VAL: .RAD50 /LP1/ CR0VAL: .RAD50 /CR0/ ;CR WITHOUT BINARY SUPPORT CR1VAL: .RAD50 /CR1/ ;CR WITH BINARY SUPPORT CR2VAL: .RAD50 /CR2/ ;CD WITHOUT BINARY SUPPORT CR3VAL: .RAD50 /CR3/ ;CD WITH BINARY SUPPORT C026: .WORD 4 C029: .WORD 2 CASCII: .WORD 6 FLAGF: .WORD 0 FLAGT: .WORD 1 LOWF: .WORD 0 HIGHF: .WORD 20 MAXFLG: .WORD 377 ;MAXIMAL 8 RK UNITS EMTLIM: .BYTE EMTIO,STDEMT-1+UDEMT DFLUIC: DFUG DEFTXT: .ASCIZ /DEFAULT CARD CODE IS:/<15><12> .EVEN LOW0: .WORD 1 LOW{M 0 &eh  "U%jMedf. $^ &C`EQe( &^ &  "u$ d!Ёha ͋,L JB ` 5 &TT! #  H )hb#(!' (  8e eef$C# 0 *C.&0 hL &0 & L 0 e  3&fK ( ǁ'  E |THE DEFINITION IN MACRO GEMU1 ; 4 THE TITLE OF EMT MODULES MUST BE .TITLE EM.XXX, ; WHERE XXX IS THE OCTAL NUMBER OF THE EMT. ; E.G. EMT 166 HAS A TITLE STATEMENT: ; .TITLE EM.166 ; 5 THE LOAD MODULES SHOULD BE INSERTED IN THE CIL. ; THE EMT CODE SHOULD BE POSITION INDEPENDENT AND ; LINKED AT A BOTTOM OF 0. ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO G}6&8<P.S2S2 7@87%@j(A1)=. @jE@8 >7 *@j 9Lz {DD*_S4Ϋ@y  {r"7 ?,Ϋ@9L p_@j@*{ݩ Oi {D@jA7 _,@j9L pe {D~E: .WORD 132. ;***************************************************************** ;NEVER SEPERATE THE LABELS END AND START THEY SHOULD BE ;CONSECUTIVE AND END SHOUL TERMINATE THE DIALOGUE CODE END: END START: .WORD LPROTO ;LENGTH OF PROTOTYPE ;END OF DO NOT SEPARATE ;********************************************************************** .WORD PRODDL-PROMRT ;OFFSET OF DDL PROTOTYPE ;NOW THE PROTOTYPE MRT WILL BE DEFINED ;THERE ARE 4 POSSIBLE ENTRIES ;1 A CORE ADDRESS SET BY THE LI  |h&?͕* F0 *U "U% Gef.C& %sZ$^ &&e E]e( &^ & ݁ "uW$ d!ρ`h&M Q$NE `ee B_ Z$ | "L  U VEE,hb& N D%& ef e % DebϠ (ID! m f hK!K a)f.^ e)Q ƀEMU0 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU0 ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU1 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU1 ;AFTER THE MACRO DEFINITIONE VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEE_S4,Ϋ@y9L w {D kv 7 Bn*_ @jE@84<Cn. <  @jS2 :62+D*S2-}S2 {DS2wTDE, {DS2 7@8 7%@jS2d, :62S2 -}S2 {DatE$,S2 {DS2 7@8NKER ;2 A ZERO MEANING EMT DOES NOT EXIST ;3 A 3 WHICH MEANS LOAD THIS EMT RESIDENT ;4 A ONE MEANING SWAP THIS GUY PHASE=0 NONLEM=STDEMT+UDEMSW+UDEMRS PROMRT: .REPT STDEMT .WORD 1 ;ALL CANDIDATES FOR SWAPPING .ENDM .REPT UDEMT .WORD 0 ;ALL NOT EXISTING .ENDM SEQ=0 CFNOEM PROMRT ;ZERO NON EXISTING ONES NONLEM=NONLEM-SEQ SEQ=0 SEQ1=0 .REPT RESEMT+3/4 NUMMAC RSEM,\SEQ .ENDM NONLEM=NONLEM-SEQ1 SEQ=0 .REPT UDEMSW+12/13 NUMMAC GEMU,\SEQ,1 .ENDM .REPT UDEMRS+12/13 DDie̊> ddd)d 0 .M N h& $& >M "U%GCfa `I TC$e$E    }he7Db  T % $^ &fE`EPe( &^ X& ߁ _t$ d!ρh EeRRRR J%  22 2    2 Ghb&USw& E p 4,0N THE ANGLE BRACKETS ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU2 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU2 ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU3 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .E7%@j.('0DEVICE ',A2,O1,' DOES NOT EXISTy '/) 8FGHe,@j  @j@jOi<I. {D@j  E@8 J*Oi {D @j~K,@8Oi {D @j9LPZX7 Lh. {D 4R kv _@j"VM ,VOi NUMMAC GEMU,\SEQ,3 ;LOAD RESIDENT .ENDM URESEM ;DECLARE SYSTEM EMT'S RESIDENT ;NOW THE MRT PROTOTYPE IS THE THERE ;START HERE THE DDL PROTOTYPE PRODDL: GSLOT DC,210 GSLOT KB,60 GSLOT PR,70 GSLOT PP,74 .IF DF,FTLP DVNUM=DVNUM+2 .IF EQ,FTLP .RAD50 /LP0/ .WORD 0,200,0 .IFF .IF EQ, .RAD50 /LP1/ .WORD 0,200,0 .IFF .MERROR ;UNSUPPORTED LINE PRINTER .ENDC .ENDC .ENDC GSLOT DT,214 .IF DF,FTCR DVNUM=DVNUM+4 .RAD50 /CR/ .WORD 0,230,0 .RAD50 /CD/    2% e 0h 00 0 & 0"U%G    &#ch0cD  fNUVU00%%% p b $^ &&yFe E]e( &^ & ݁ "u$ Td!ρh$AcfNl & E CD  aCU%W# e  pNDM .ENDM GEMU3 ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU4 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU4 .PAGE ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 . ]d @jOiMN DV*@j  { DݩVE@8",PO . ,  P@j 4P [.@8Oi ]d @j @8DQR .Oi@j @j XS0,Ԫ@8Oi ]d @j9L,xQh7 T, ]d _ @jE@8zU, .WORD 0,230,0 .ENDC GSLOT MT,224 GSLOT DK,220 GSLOT DF,204 GSLOT DP,254 GSLOT DPB,264 GSLOT CT,260 ;PROTO TYPES OF USER DEFINED DDL SLOTS DIFFER THAT THE SECOND WORD IS ;NON ZERO THIS ALLOWS THE INITIALIZER TO DIFFERENTIATE BETWEEN ;NON STANDARD AND STANDARD DEVICES SEQ=0 SEQ1=0 ;# OF USER DEFINED MNEMONIC USEQ=0 .REPT UDDEV+2/3 NUMMAC GDVU,\SEQ .ENDM .WORD 0 ;TO TERMINATE PRODDL LPROTO=.-PROMRT ;HEADER SHOULD NOT MOVE PART2: ;HERE STARTS THE SECOND SECTION hb p 0 P e"bU%M%& .^ 0 E he E `eD#E &.^ 0 &$^ &&e E]-4&e( &^ & ݁ "u8$ d!ρhe& $EKcKm ; 8  E le$5Khb@K J ,^ e&T&T 0d%aT $Q$K MACRO GEMU5 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50 >,P .ENDM .ENDM GEMU5 ;IF EMT'S HAVE BEEN ADDED AND THE LINKER SHOULD ;BE ABLE TO LOAD THEM RESIDENT, THE TABLE ;STARTING AT LABEL GLOTAB HAS TO BE EXTENDED. ; THE TABLE GLOTAB DEFINES THE RADIX50 NAMES OF EMT'S. ;WHEN THERE REMAIN UNDEFINED GLOBALS,THE LINKER SEARCHES ;THE TABLE GLOTAB, AND THE TABLE INDEX ;DIVIDED BY TWO OF ANY TABLE ENTRY MATCHING AN UNDEFINED ;GLOBAL WILL BE THE NUMBE   @jS2VV* :62S2 -}7%@j.('0INSUFFICIENT CORE TO EXECUTE'/){WX8 .@j  @j8Oi T`:YY*@j  E@8 Z$*@j $E@8[>/*   @j>Oi\.], T`:@j .OF CF.TBL ;ITS CONTENT CONSISTS OF 2 PARTS: ;1 GENERAL INFO AND POINTERS TO ENTRIES IN THE SECOND PART ;2 A SET OF TABLES NEEDED TO PROCES THE THE REDUCED CILS ;THE GENERAL INFO SECTION HAS THE LAY-OUT: ;1 WORD 1 NUMBER OF TYPES HAVING TABLE INFO INSECOND PART OF THIS SECTION ;2 A TYPE HAS BEEN DEFINED IN RMON5 AS A NUMBER REPRESENTING ;3 AN ENTITY SUCH AS EMT,DRIVER .. THESE NUMBERS ARE MULTIPLES ; OF 4 STARTING WITH 4 AND ARE USEDTO ADDRESS THESECOND PART ; INFO BLOCKS ;2 WORD 2"@U%(`G$^ &&e E]e( &^ & ݁ "u$ d!Ё7h_ ` &    e&p  E eE`E& & 0pVhbf$EA B` 0   t& &D &  ` ich J1  6!'   6!6   ",Z  BaBa6h&A c JQ   R OF A EMT TO BE LOADED ;RESIDENT. ;TO ADD THE GLOBAL NAMES OF USER DEFINED EMT'S ;USE THE FOLLOWING RULES: ;1 SUBTRACT 100 FROM THE LOWEST DEFINED EMT ;2 IF THIS NUMBER IS X,THEN EXTEND THE TABLE WITH X ZEROES ;3 ADD NEXT .RAD50 /EMX/ ; WHERE EMX IS THE GLOBAL NAME ;4 IF MORE THAN ONE EMT HAS BEEN DEFINED,REPLACE 100 BY THE VALUE ; OF THE EMT JUST DEFINED +1, AND TAKE THE NEXT EMT VALUE AS ; LOWEST EMT VALUE, AND REPEAT STEP 1. ; ;NOTE: ALL NUMBERS ARE OCTAL ; GLOTAB: .WORD GLOLST Oi a'.@j ^6`* @j 6E@8$,6_>* , 6 @j>Oi4`a@. T`:@j @j@E@8FNbb>8* N b @j>OiBVcJdj, T`:@j J Oi a'.@jfeX|.<.@j X E@8 |.xfb.Oi a'.@j POINTS TO A TABLE OF VARIOUS DATA NEEDED BY RMON SUCH AS MAXEMT ;3 WORD3 AND 4 ARETHE THE FIRST WORDS BUILDING A SECOND PART INFO BLOCK ; A SECOND PART INFO BLOCK IS DEFINEDAS: ; WORD 1OF THE PAIR EQUALS THE NUMBER OF ENTRIES TO BE CHECKED ; I.E. ALL EMT'S SHOULD BE THERE ; WORD 2 OF THE PAIR POINTS TO THE PRIMARY CONTROL TABLE FOR THIS TYPE ; THE NAMES OF THESE TABLES ARE:EMPRIM,CLPRIM,ETC ; IT IS UP TO THE SYSTEM INITIALIZER TO DETERMINE ; WHETHER IT NEEDS DATA FROM ADDITIONAL TABLES. ; 0  ! $ oh" p" "c  R&"@U%G 0  2      $ d!ρh ?@5@- -5@f!  E 6 hb&M  $^ "zU%Gwf& * p ,M 'pIh pT e TTTT-GLOTAB ;LENGTH OF TABLE HEADER INCLUDED .RAD50 /EMT/ ; 0,WAITR .RAD50 /EMT/ ; 1,WAIT .RAD50 /RWN/ ;2 WRITE .RAD50 /RWR/ ;3 NYA .RAD50 /RWN/ ;4 READ .RAD50 /RWR/ ; .RAD50 /INR/ ; 6,DATASET INITIALIZATION .WORD 0 ;INR TOO LONG MCO #D14 .RAD50 /RLS/ ; 7,DATASET RELEASE .RAD50 /TRA/ ; 10,TRAN PRCESSOR .RAD50 /BLO/ .RAD50 /SPC/ .RAD50 /STT/ .RAD50 /DIR/ .RAD50 /ALO/ ; .RAD50 /OPN/ .WORD 0 ;OPN TOO LONG MCO D#14 .RAD50 /CLS/ .RAD50 /REN/ .RAD50 /DEL/ .RAD5bE@8.gb, . Oi a'.@jl *lE@8   h.iv,@j. Oi a'.@jv j,E@8    @j.*S2 :62S2  -}7%'.k('0FIX NOT ALLOWED FOR DECTAPE@j  '/)o l,m2>U* ADDITIONAL TABLES ARE FOLLOWING THE PRIMARY ONE ; ;THE FIRST OF APRIMARY TABLE IS ITS LENGTH PHASE=1 .MACRO R50 LOC,R5V ZZZ=. .=LOC .RAD50 /R5V/ .=ZZZ .ENDM R50 .WORD NTYPES ;NUMBER OF TYPES IN THIS SECTION .WORD GINFO-PART2 ;GENERAL INFO EMSLOT: .WORD NONLEM ;NON LINED EMT'S ARE ONLY INTERESTING .WORD EMPRIM-PART2 ;POINTER TO PRIMARY TABLE KBSLOT: .WORD KBNT .WORD KBPRIM-PART2 DVSLOT: .WORD DVNUM .WORD DVPRIM-PART2 .IF NDF,FTCLL .IF NDF,FTCLP CLNUM=0 ;WHEN BOTH CLOCKSTL&M 0   E Rh&Caee D!K& E ae f.M &0 & .L &0 L ~*>$ d!ρ;h7 &^ %T&e  E eE`E& & $) EfdCCm  Bhbe &    h&   <0 /APP/ .RAD50 /GAR/ .RAD50 /PRO/ .RAD50 /REC/ .WORD 0 .WORD 0 .PAGE .WORD 0,0,0,0,0,0 ;EMT'S 30-35 .WORD 0 .WORD 0 .RAD50 /SPE/ ; 40,MSB OVERLAY PROCESSOR, RESIDENT .RAD50 /GUT/ ; 41, GENERAL UTILITIES .RAD50 /CVT/ ; 42,CONVERSION PROCESSOR .RAD50 /FOP/ .RAD50 /FCR/ .RAD50 /FCL/ .RAD50 /LUK/ .RAD50 /LBA/ .RAD50 /GMA/ .RAD50 /CBA/ .RAD50 /CKX/ ; .RAD50 /DLN/ .WORD 0 ;DLN IS NON REUSABLE .RAD50 /DCN/ .RAD50 /AP2/ .RAD50 /CSX/ .RAD50 /CSM/ .RAD50 /X@j , @j2>E@8 .n.   . Oi a'.@j$J4.JE@8  4Z4oP*@jS2 :62 S2P-}$.Fp~(1X,'BLOCK NUMBER TO SEARCH }7%@j  ~,lFOR(O6 FORMAT)?'/)q*@jS2 :62S2 "6&r,S2 TS2 7@87%@j((O6) ABSENT ZERO CLOCK MODULE COUNT .ENDC .ENDC CLSLOT: .WORD CLNUM .WORD CLPRIM-PART2 GINFO:;HERE DIFINE THE PRIMARY EMT TABLE CONSISTING OF ;RAD50 REPRESENTATIONS OF EMT'S A ZERO MEANS IGNORE ;THE EMT NOTE RMON5 ZEROES ELEMENTS ON PROCESSING THE TABLE EMPRIM: .WORD *2 BBB=000 .REPT STDEMT RAD50N BBB BBB=BBB+1 .ENDM ;NOW ZERO NON EXISTANT EMT'S IN THE RADIX50 TABLE CFNOEM ;ZERO TABLE ENTRIES RESEMP ;ZERO LOADED ONES TOO .REPT UDEMT .WORD 0 .ENDM #  %  Wh&U% vd nE   EemLA %%  & $)h .M $M "M$^ &&e E]e( &^ &` ݁ "u>$ d!ρ:h wF&M e v a( I D | j  X E hbeaE& & EfIDDm &! & e#IT/ ; .RAD50 /LDR/ .WORD 0 ;LDR TOO LONG MCO D#14 .RAD50 /LD2/ .RAD50 /MTO/ .RAD50 /DMP/ .RAD50 /RUN/ ; 65, RUN PROCESSOR .RAD50 /CDT/ .RAD50 /BSF/ ;ADD USER DEFINED GLOBALS IN FRONT OF THE NEXT LINE GLOLST: ; ;IF ANY SYSTEM EMTS ARE TO BE MADE RESIDENT BY THE INITIALIZER ;AT SYSTEM LOAD TIME THEN INSERT THE EMT NUMBERS ;BETWEEN THE BRACKETS IN THE FOLLOWING .IRP ;NOTE: SYSTEM EMT'S ARE EMT'S WITH VALUES 0-100!! ; USER EMT'S ARE MADE RESIDENT BY MEANS OF ; THE MACROS GEMU0sk. @jS2 :62S2%,-} S2 TS27@87%.t(1X,'SEARCHING FOR BLOCK ',O6/I@j ' ) uv&w,*,@j@j &@j,%"xP\\;*@j} <h{D{D&\\\\\.a'. ]d:62:62T`:.:\\PLDA CIL SEQ=0 .REPT UDEMSW+12/13 NUMMAC GEMU,\SEQ .ENDM .REPT UDEMRS+12/13 NUMMAC GEMU,\SEQ .ENDM KBPRIM: .WORD KBNUM*2 .RAD50 /TS/ ;60 HERTZ TIME COMMAND .RAD50 /TF/ ;FIFTY HERTZ TIME COMMAND .IRP P, .RAD50 /P/ .ENDM KBNUM=.-KBPRIM-2/2 .WORD "TI,"TI .IRP P, .WORD "P .ENDM .WORD 2,2,4,3,4,2,2,3,3 .WORD 1,1,1,1,1,1,1,1,1,1,1,1 .MACRO GSLOT X .IRP P,  E  h eDbeA LA   ! 0 e e h& | .M $M "U%G$CE   em A h   e$^ &&e E]e( &^ &X ݁ "u>$ Pd!ρh&M &&  &  m.... AND UDEMRS ; ;CAUTION! SEE THE SYSTEM MANAGERS GUIDE FOR RESTRICTIONS ON EMT ; RESIDENCE BEFORE ALTERING THE NEXT LINES! ; ; .IRP <10,20> ;MAKE EMTS 10&20 RESIDENT. ; .MACRO URESEM .IRP P,<> SUBST >,3 .ENDM .ENDM URESEM ;IF NO NON STANDARD DEVICES HAVE TO BE ;DEFINED, THE EDITING OF THIS FILE IS READY. ;OTHERWISE INSERT THE NUMBER (OCTAL) ;OF NONSTANDARD DEVICES ON THE NEXT LINE. UDDEV=0 ;REPLACE THIS BY OCTAL NUMBER ;OF NON STANDARD DEVICES. ;FOR EAC\aT`: T`: 4R.`hv \ SY\SYDK\DK h}.DF\DFDP\DPDT\DTSY\SY!.N \N \SY\SY D\ D.F SY\SY\\DT\DT.@\@\\<\<N .\N A \A \L \L B .D\B \&&\S \S H \H 1jF \F DT\DT.m &K}@zQD@f4@s.q 5@PZ@쨀p@ .IF DF,FT'P .RAD50 /P/ ;GENERATE RADIX50 DEVICE CODE .ENDC .ENDM .ENDM GSLOT DVPRIM: .WORD DVNUM*2 ;NUMBER OF DEVICES *2 GSLOT .IF DF,FTLP .RAD50 /LP0/ .RAD50 /LP1/ .ENDC .IF DF,FTCR .RAD50 /CR0/ .RAD50 /CR1/ .RAD50 /CR2/ .RAD50 /CR3/ .ENDC SEQ=0 .REPT UDDEV NUMMAC DEV,\SEQ .ENDM CLPRIM: .WORD LLEN .IF DF,FTCLP .RAD50 /P / .ENDC .IF DF,FTCLL .RAD50 /L / .ENDC LLEN=.-CLPRIM-2 .IIF DF,FTCLP .WORD 300 .IIF m$S #hb $m # f0 Ze $M "JU%G-Bh8< v! eeH! 6$^ &&e E]e0&( &^ & ݁ "uH$ d!ρ6hC  e e(   e&  L̥ ̥ ̥̥̋ ̥ H  ^ hb˥*{ k D ˥, ^ Z˥* U R ˥]MPH NON STANDARD DEVICE,THE ;MNEMONIC AN INTERRUPT VECTOR ADDRESS ;AND AN EXTERNAL PAGE ADDRESS SPECIFIC FOR THE DEVICE ;HAVE TO BE SPECIFIED. ;NOTE: THE EXTERNAL PAGE ADDRESS MUST BE READABLE, IT CAN ; IF THIS CONDITION IS SATISFIED BE ANY ADDRESS ; SPECIFIC FOR THE DEVICE ;THE SPECIFICATION OF THESE ITEMS HAS TO BE DONE ;BY MEANS OF THE MACROS GDVUO, GVDU1 ;AND GDVU2 USING THE FOLLOWING RULES. ; 1 START DEFINING BY USING GDVU0, NEXT ; GDVU1, AND THEREAFTER GDVU2 ; 2 IN EACH MACRO, @8@9L@%.E@8@Ep@c]@vp@@.@ݩ@+]@7%@7@8@a.7p@:@@Q@@,0z@{.-}@ON@Oi@O(i@S2@.U@}@_@@8@{@.@j@Ϋ@@@ @je;@.(bm &hZv(W@( <h( .u~h( S@~( {D(a'.(]d( .:62((T`:(_v( 4R(.4(kv( &( 4(pp(.%(DF,FTCLL .WORD 200 .IIF DF,FTCLP .WORD 'P .IIF DF,FTCLL .WORD 'L KBNT=KBNUM .END K W G Q&   $h     ˥:?R ˥,U% 1˥* ˥. ˥[ ˥/@ ˥<˥0h&7 N ˥  ˥ ˥ ˥ ˥   ^aeAbEIA% "U%G!h   " ˥: ˥.˥$& ˥0 ˥Z˥9˥A   $ d!ρ2h& & ACB$2  Ae ! ! ! ! ! `. z1 J Ѥ 1ӨSPECIFICATIONS ; FOR ONLY 3 DEVICES CAN BE GIVEN ; 3 IF THERE ARE 3 OR MORE SPECIFICATIONS ; TO BE DONE, SPECIFY 3 IN THE CURRENT MACRO. ; 4 NOTE: IF THERE IS ONE DEVICE USE DOUBLE SQUARE BRACKETS ; IN THE USER DEVICE MACROS ; E.G. .IRP P,<> ;THE MACROS GDVU0, GDVU1 AND GDVU2 ;PROVIDE THE FACILITY FOR 9 DEVICES. WHEN ;MORE DEVICES HAVE TO BE ADDED, ADD ;ADDITIONAL MACROS WITH NAMES STARTING ;WITH GDVU3,-.... ;HAVING THE SAME LAYOUT AS ;GDVU0, GDVU1 AND GDVU2. .PAG(&@(S4(T(IqM( A"7 m &,ON@Q@j9LPZ {D7 , 4R kv _@j9L*7 .PZ 4R 4R kv_T:*@j Oi @jO(itL !;, IqM @j  O(i IqM@j\.@8 { ;COPYRIGHT 1973,1974, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .IDENT /EDIT02/ ;THIS MODULE CONTAINS ALL MACRO DEFINITIONS NEEDED FOR THE CFTBL ;MODULE ALL COMMENTS ARE OUTSIDE MACROS IN ORDER TO SAVE MACRO SPACE ;ZERO1 IS A UTILITY MACRO USED TO ZERO A TABLE LOCATION ;THE TABLE IS DERIVED FROM THE PASSED PARAMETER TABLE ;LOC IS THE OFFSET IN WORDS .MACRO ZERO1 LOC,TAB, ӥ4hb,<˥  ˥.˥[ i˥*";D`%  % %2Uh"4U%G  1 K Ӌc j2 & Β | r˥:h& ˥.˥$D U    F` 0˥: ӥ*@ & Β0h e& ˥0 ˥Z˥9˥A &f˥* Ŕ@Ŕ@a   @a$ d!>ρE ;HERE THE MNEMONIC AND INTERRUPT VECTOR ;ADDRESS OF UP TO 3 DEVICES CAN BE SPECIFIED. ;IF THE MNEMONICS AND INTERRUPT VECTOR ;ADDRESS ARE RESPECTIVELY: ;X1,X2,X3 AND IVA1,IVA2 AND IVA3 ;EPA1,EPA2 AND EPA3 ARE THE RESPECTIVE EXTERNAL PAGE ADDRESSES ;THEN EDIT THE LINE AFTER THE MACRO DEFINITION TO READ: ; .IRP P,<,,> .MACRO GDVU0 .IRP P,<> UDEVG P .ENDM .ENDM GDVU0 ;HERE THE MNEMONIC AND INTERRUPT VECTOR ;ADDRESS OF UP TO 3 DEVICES CAN BE SPECݩE@8lv("* v  (@j|.{Ϋ@  9LPZ 4 7 # , kv _ @j@8v7 .{Ϋ@  9LK} $K*_@j  @8{7 *Ϋ@9L q 5 _w%*@j  ELE SUBST >,0 .ENDM ZERO1 ;SUBST SAVES THE CURRENT LOCATION COUNTER AND SUBSTITUTES ;AT LOCATION LOC THE VALUE VAL,AFTER DOING THIS THE LOCATION COUNTER WILL ;BE RESTORED .MACRO SUBST LOC,VAL ZZZ=. .=LOC .WORD VAL .=ZZZ .ENDM SUBST ;PSUBST SUBSTITUTES A GLOBAL VARIABLE IN THE PROTOTYPE MRT ;NOTE: THIS MACRO IS AN AUXILLARY ONE AND DOES NOT NEED TO ;BE INVOKED DIRECTLY .MACRO PSUBST LOC,VAL .GLOBL VAL SUBST >,VAL .ENDM PSUBST ;GSLOT GEIh D  5 &f  ez H 5 & &  [hb e"D(&( e * ߕ7 \7 V /$ d!@сVhe e("ep &&(  0D$^ ( Fhb&^ , . el  " eB`$ b e 8h 9&e2IFIED. ;IF THE MNEMONICS AND INTERRUPT VECTOR ;ADDRESS ARE RESPECTIVELY: ;X1,X2,X3 AND IVA1,IVA2 AND IVA3 ;THEN EDIT THE LINE AFTER THE MACRO DEFINITION TO READ: ; .IRP P,<,,> .MACRO GDVU1 .IRP P,<> UDEVG P .ENDM .ENDM GDVU1 ;HERE THE MNEMONIC AND INTERRUPT VECTOR ;ADDRESS OF UP TO 3 DEVICES CAN BE SPECIFIED. ;IF THE MNEMONICS AND INTERRUPT VECTOR ;ADDRESS ARE RESPECTIVELY: ;X1,X2,X3 AND IVA1,IVA2 AND IVA3 ;THEN EDIT THE LINE AFTER THE MACRO D@8 5&.@j S2 :62S2$.-} S2 S2 S2#.'X(1H1,3('* '),'LISTING OF ["7@87%@j X..',O3,',',O3,'] USER DIRECTORY ',3('* ',T)//)(t<*@j S2 :62S2t-}.j)(3X,'FILE EXT',7X,'DATE',2X,7%@j  .'TYPE',2X,'USAGE',2X,'LOCK',3X,'START'.NERATES A DDL ENTRY FOR THE DEICE WITH MNEMONIC DEV ;AND INTERRUPT VECTOR IVA .MACRO GSLOT DEV,IVA .IF DF,FT'DEV .RAD50 /DEV/ ;DEVICE NAME RADIX 50 .WORD 0,IVA,0 ;CORE ADDR,INTERR. VECT ,DISK ADDR DVNUM=DVNUM+1 .ENDC .ENDM GSLOT ;RAD50N AND RAD53 GENERATE A RADIX SYMBOL FOR THE VALUE X ;PASSED TO RAD50N. THIS CONVERSION IS DONE FOR EMT MODULES .MACRO RAD50N X B123=X D3=B123- B120=B123-D3 B12=B120/10 D2=B12- D1=B12/10 RAD53 \D1,\D2,\D3 .ENDM RAD5E? c  Tc8$)  E gS e$^ l&( v<  Ah0&^  e  d80B`e 6 5 N4  AAIe ߋtߕ$v,"hU%G]$ d!AЁh&^ %&  aef& )ɋȕ ` ~ 5& eVhb  s K $   0,EFINITION TO READ: ; .IRP P,<,,> .MACRO GDVU2 .IRP P,<> UDEVG P .ENDM .ENDM GDVU2 ,2X,'LENGTH',6X,'END',2X,'PROT',5X,'EB P'//) *+*@j@j {ݩ(,,E@8   (@j-.{ ݩ Oi 4@j*@8 { ݩOi"./. @j @jE@84<z0. < z @jS2 :62m0N .MACRO RAD53 X1,X2,X3 .RAD50 /X1'X2'X3/ .ENDM RAD53 ;DFU DEFINES THE DEFAULT UIC FOR BATCH SYSTEMS .MACRO DFU P2,P1 .MACRO DFUG .BYTE P1,P2 .ENDM DFUG .ENDM DFU ;CONSOL IS USED TO GENERATE THE CHARACTER FILL COUNT FOR THE ;CONSOLE TERMINAL .MACRO CONSOL C1 .MACRO FILCH FCCNT=0 .IF NE,C1 FCCNT=100000 FCVAL=C1 .MACRO FILCHL,Z1,Z2 Z1=Z1-1 .IIF EQ,Z1 .MEXIT Z2=Z2/2 FILCHL Z1,Z2 .ENDM FILCHL FILCHL FCVAL,FCCNT .ENDC .WORD FCCNT .ENDM FILCH .ENDM CONSO h & E  J, 5ȕ &  ȕe h&Հ e 0  "U%M&0 & .^  2   4 qh( "5p   & &"u e $^ ( f&^ $ d!Bρh  eeW qqqD`% CBMW(C EE hb;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; VERSION NUMBER: EDIT01 FTCOM=1 ;COMTEX SWITCH XFTCOM=0 ;COMTEX EXPERIMENTAL SWITCH FTMUO=1 ;MUO SWITCH XFTMUO=0 ;MUO EXPERIMENTAL SWITCH FTRPG=1 ;RPG SWITCH XFTRPG=0 ;RPG EXPERIMENTAL SWITCH FTDOS=1 ;DOS SWITCH XFTDOS=0 ;DOS EXPERIMENTAL SWITCH ;TEMPORARY FEATURE SWITCHES FTRPO3=1 ;RPO3 KEN ELFAND & Db7*S2b-}S2 4S2O.V1z(1H0,'UFD BLOCK = ',O6/)(7@87%@j z(@jX|234 .@j  {U@j B5*K.{ U @j*{64t.U@j 4{U?7>8*@j>  {U@js7 9,9LzQD L ;NUMMAC GENERATES A MACRO CALL WITH A SEQUENCE NUMBER ;APPENDED TO THE BASIC MACRO PREFIX .MACRO NUMMAC MACRO,SEQU,ARGL MACRO'SEQU ARGL SEQ=SEQ+1 .ENDM NUMMAC ;UDEVG GENERATES A DDL ENTRY FOR A USER DEFINED DEVICE ;THE DIFFERENCE BEING THAT WORD 2 OF THE USER DEFINED DEVICE IS NOT ;EQUAL TO ZERO .MACRO UDEVG W1,W2,W3 .RAD50 /W1/ .WORD W3,W2,0 DVNUM=DVNUM+1 .IRP P,<\USEQ> .MACRO DEV'P .RAD50 /W1/ .ENDM DEV'P .ENDM USEQ=USEQ+1 .ENDM UDEVG STDEMT=100 ;77 OCTAL STE& Nee '&&et&ffe$)&ff EU  :qF e"(U%M !$B!$ d!Cρ heʋ_ w  " eBqF  58 eePPe)hb ( $ ffete ~ f@  /K |  \hp   &$ !U%Gv  7     ;TEUNIS KORTEWEG. ;CHECK 1-FEB-73! ;XFTRPO=0 ;EXPERIMENTAL RPO3 SWITCH 4_@j9L#7 :,f4 _ @jE@8V;*   @jOiZ<( 4@j 9L PZ 4 7 =l, 4 kv _@j$>?*$@j @jE@8 .6$@. 6 $ @jS2 :62>\ 5*S2\-}S2ANDARD EMT'S UDEMT=0 UDDEV=0 ;NUMBER OF NONSTANDARD DEVICES UDEMSW=0 ;THE NUMBER OF USER DEFINED SWAPPABLE MODULES UDEMRS=0 ;USER DEFINED RESIDENT EMT'S NTYPES=4 EMTIO=27 ;MAXIMUM I/O MODULE CLNUM=2 ;WE DELIVER 2 MODULES!! DVNUM=0 ;MACROS WILL GENERATE THE NUMBER ;RSEM0 AND RESEM1 DEFINE THE EMT'S LOADED RESIDENT WITH THE SYSTEM ;THEIR ARGUMENT LIST ARE BUILT FROM 4 PAIRS (OR LESS) OF ARGUMENTS ;THE FIRST PART OF THE PAIR IS THE EMT NUMBER, THE SECOND PART IS THE ;GLOABL SYMBOL ,WHIC& & h& &ff P0e>1& & 2% Ge~hfpeJ _ F _ `E $  (&  U ( 2 z$ d!Dρ6hCEe  e  CS K  I X0ECEDVONTCOPESGUALUJNUJYAMRRhbPARAMBEFNAJ 0 B `e”tf ;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; VERSION NUMBER: EDIT01 ;REGISTER ASSIGNMENTS: R0=%0 R1=%1 R2=%2 R3=%3 R4=%4 R5=%5 SP=%6 PC=%7 ;SYMBOLIC DEFINITIONS FOR COMMUNICATION ;VECTOR ENTRIES: ;SYMBOLS ARE CONSTRUCTED BY THE RULE: ;V.XXXX WHERE XXXX DENOTES FUNCTION V.SVT=40 ;ADDRESS OF SVT TABLE V.XIT=42 ;EXIT MODULE V.RSAV=44 ;SAVE REGISTE IqM S21.PAx(1H0,'TOTAL BLOCKS = ',F7."7p7%@j x#v0)BC.@j  쨀pO(i IqM@j`D,쨀p O(i IqM@j(r*Ep  (EF.@j  vpO(i IqM@j>*S2 :62S2  -}S2} . IqMS2H IDENTIFIES THE MODULES ENTRY POINT ;NEW VALUES SHOULD BE APPENDED TO RSEM1 WHENENEVER THIS HAS ;4 ARGUMENT PAIRS GENERATE A SIMILAR MACRO RSEM2ETC ;AND NOTE THAT EVEN A SINGLE PAIR NEEDS TO BE EMBEDDED ;IN SQUARE BRACKETS ;UPDATE THE VALUE OF RESEMT TOO .MACRO RSEM0 .IRP P,<<0,>,<1,>,<2,>,<4,>> PSUBST P SEQ1=SEQ1+1 .ENDM .ENDM RSEM0 .MACRO RSEM1 .IRP P,<<30,>,<40,>> PSUBST P SEQ1=SEQ1+1 .ENDM .ENDM RSEM1 RESEMT=6 ;CFNOEM DEFINES NON !  -h-[{   3a 7kV%_2j e $  " M Oh&e   a@ B  AE    E``  < < 2:T  $@ ``F "RU%M:/  ` $ &d!EρhEW! +qF   Rȋ W! F& e& c e aehbU@&E@5@RS V.RRES=46 ;RESTORE REGISTERS V.CDB=50 ; V.CDQ=52 ; V.GTB=54 ;GET BUFFERS V.RLB=56 ;RELEASE BUFFERS: ;SYMBOLIC DEFINITIONS FOR ENTRIES IN THE ;DRIVER INTERFACE TABLE, ALL SYMBOLS START WITH DIT DITBSY=0 ;DDB ADDRESS WHEN BUSY ELSE 0 DITFAC=2 ;FACILITIES WORD DITBFS=4 ;BYTE CONTAINING SIZE OF DEVICE BUFFER IN 16 WORD UNITS ;OR THE OFFSET OF THE DEVICE DESCRIPTOR TABLE FROM RPDSC1 DITINT=5 ;OFFSET OF INTERFACE CODE DITPRI=6 ;PRIORITY FOR INTERRUPT SERVICE DITOPN=7 ;OFFSET OF OPE 7p S2 kvS2V.G$(1X,'AVERAGE FILE SIZE = 'D"7@87%@j $+,F7.0,' BLOCKS,',I5,'. WORDS EACH') $$HIH*@j@j HE@86Hz,:Ep  @8 HDRD*R   kvDRJK",@j@j E@8 djL7 .j @jEXISTANT EMT'S WHENEVER A NEW EMT IS DEFINED ;THE CORRESPONDING ENTRY SHOULD BE DELETED FROM THE .IRP LIST .MACRO CFNOEM TAB .IRP P,<3,5,23,26,27,36,37,70,72,73,74,75,76,77> SUBST >,0 SEQ=SEQ+1 .ENDM .ENDM CFNOEM ;RESEMP DEFINNES THE RESIDENT EMT'S WHICH ARE HANDLED ;AUTOMATICALLY BY THE SYSTEM .MACRO RESEMP .IRP P,<0,1,2,4,30,40> ZERO1 P,EMPRIM .ENDM .ENDM RESEMP ;IDENT MONVRS DEFINED MONITOR IDENTIFICATION TO BE ;PRINTED ON REBOOTING OF THE SYSTEM .MACRO ID3 (˥$ E O  ˥# ˥* S vh S ",U%MKK$$#E5 E@  U0eȊN}$ d!mρ$ d!TЁhDqF & &  e O& e$4 B % __2 b. fe0N hr& E NaeEM MJ f& NJ    A/& NLN CODE DITXFR=10 ;OFFSET OF TRANSFER CODE DITSPF=11 ;OFFSET OF SPECIAL FUNCTIONS DITNAM=12 ;DEVICE RADIX50 NAME DITMFD=14 ;START BLOCK OF MFD DITBMP=16 ;START OF BIT MAP POINTERS ;SYMBOLIC DEFINITIONS FOR DDB REFERENCE: ;SYMBOLS USE THE FOLLOWING RULE: ;DDBXXX XXX MNEMONIC FOR FIELD REFERENCED. DDBDVA=-2 ;OFFSET OF DRIVER ADDRESS DDBULA=2 ;OFFSET OF USER LINE ADDRESS DDBBLK=4 ;BLOCK NUMBER TRANSFERRED DDBADR=6 ;MEMORY BUFFER ADDRESS DDBCNT=10 ;WORD COUNT: DDBSTS=12 ;STATUS ENTRY I9LzQD 4RTxMR._@j  R쨀pO(i IqMN$OPE(@j $ @j@j}(PPP\\m. W@ W@ W@{DT`:&\\P\C.T`: 4R 4R4 IqM.@=:\\ IqM IqM IqMo.-\\**\**** .$\****\****ENT TXT .MACRO USRTXT .IF NB, .ASCIZ /TXT/<15><12> .ENDC .EVEN .ENDM USRTXT .ENDM IDENT .MACRO MONVRS TXT .MACRO MONVER .ASCIZ <15><12>\TXT\<15><12> .ENDM MONVER .ENDM MONVRS .PAGE ;ON THE FOLLOWING PAGES ALL MACROS ASSOCIATED WITH THE MONITOR ;START DIALOGUE ARE DEFINED ;MACRO DIAL SHOULD BE AN EXACT COPY ;OF THE MACRO DIAL IN FILE SYSMAC.MAC THE ONLY REASON ;TO IN THIS MODULE IS TO REDUCE THE SPACE REQUIREMENT BY ;MACRO .MACRO DIAL CASE .IRP P, CASE P .ENDM .ENDM DIAL ;CODES GENERATES ALL THE OPCODES NEEDE BY THE PSEUDOCODE ;GENERATED BY THE CODE MACROS (E.G. IF GOTO SVAR ETC.) .MACRO CODES PREF PREF'CODE=CODVAL CODVAL=CODVAL+2 .ENDM CODES CODVAL=0 DIAL CODES ;DEFINE THE CODES ;IF GENERATES A BOOLEAN TEST A ND BRANCH IN THE ELSE CASE TO THE ;NEXT CODE MACRO CALL .MACRO IF BOOL,THEN,LINE,ELSE,LINE2,?LABEL,?LABEL2 .GLOBL BOOL .WORD IFCODE,BOOL .IF IDN,THEN,THEN .WORD LABELaeEM MJ f& NJ    A/& Ne|h %%d %i %U%%t ̋%$)&wE eAaW$  vVh6  @W" gE    5<U.,(& ze@& Μe  w & $e(h_ `%f (,^ %Cf e 3  4 A& Ne hb> Rf E( p IOT CALL TO PRINT THE ;MESSAGE F002=1402 ;F002 MESSAGE. F001=1401 ;F001 MESSAGE F005=1405 ;F005 MESSAGE A002=402 ;A002 MESSAGE: F050=1450 ;F050 MESSAGE F003=1403 ;F003 MESSAGE F011=1411 ;F011 MESSAGE F012=1412 ;F012 MESSAGE F007=1407 ;F007 MESSAGE F017=1417 ;F017 ERROR F052=1452 ;F052 MESSAGE F024=1424 ;F024 MESSAGE F042=1442 ;F042 ERROR MESSAGE STMASK=107070 ;MASK TO IDENTIFY TOB ;GLOBAL DEFINITIONS ;GLOBALS IN COM VECTOR STARTING AT ;40 ENDING AT 56. ;SYMBOLS AS    W@{************Zv 0311+_v\( @ @.""` #}@@8@9L@.c@8@c]@+@8@+]@6&@.7@@7%@7@8@@Q@,0z@.-}@ON@Oi@S2@S4@.@}@_@@j@@.@je;@(""`hZv(;.W@( <h( u~h( S@~( -2-. $GOFLG=0 LINE .IF NB,ELSE .IF DIF,ELSE,ELSE .MERROR ;WRONG IF THEN ELSE STATEMENT .ENDC .IIF EQ,$GOFLG GOTO LABEL2 .IFTF LABEL: .IFT LINE2 LABEL2: .ENDC .IFF .ERROR ;WRONG IF FORMAT .ENDC .ENDM IF .MACRO IFF B ,THEN,LIN,?LA .WORD IFFCODE,B .IF IDN,THEN,THEN .WORD LA-2-. LIN .IFF .ERROR ;WRONG IFF FORMAT STATEMENT .ENDC LA: .ENDM IFF .MACRO GOTO LABEL $GOFLG=1 .WORD GOCODE .WORD LABEL-2-. .ENDM GOTO .MACRO SVAR AVALUE,VAR .GLOBL FU%E e<gE ,^ $)6B h "&f( f0 R,E KSa KcW" ge2& B Q$p E  __ z$ d!|Ёhac)$BbF %"  E& ' `%hb% * , "w:eX$_  c h, J Vc! K SOCIATED WITH THE RPO3 BFSHFT=10000 ;MASK USED TO SIFT BLOCKS TO WORDS FROM DITBFS RPBIT=4000 ;BIT IN DITFAC FLAGGING A RP11C CONTROLLER RPO2SZ=20 ;# OF 16 WORD CHUNKS FOR A RPO2 UNIT DDBULA=2 ;USER LINE ADDRESS IN DDB DDBDVA=-2 ;ADDRESS OF DRIVER IN DDB OVL016=6 ;SIZE OF OVERLAY HEADER IN EMT 16 OVL006=2 ;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6 OV1061=12 ;,,,,,,,,,,,,,,,,,,,,,,,,,,IN OVERLAY 1 OF EMT 61 OV2061=12 ;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,,,,,,,61 ;ALL RELEVANT DATA TO DEBUGGING D{D(.a'.(]d( :62((T`:(._v( 4R(4(kv( &( .4(pp(%((&@(&S4(T(IqM( &7 ""`$<.ON@Q@j$ <:, @jS2 :62S2.jG*j-} S2 TS27@8@*S2S2  S2VAR .WORD SVCODE .WORD AVALUE-.-2,VAR .ENDM SVAR .MACRO YESNO BOOL .GLOBL BOOL .WORD YNCODE,BOOL .ENDM YESNO .MACRO GETNUM LOW,HIGH,VAR,SUCCESS .GLOBL VAR .WORD GNCODE .WORD LOW-.-2,HIGH-.-2,VAR .WORD SUCCESS-.-2 .ENDM GETNUM .MACRO TEXT TXT,?LABEL .WORD TXCODE .WORD LABEL-2-. .ASCIZ /TXT/ .EVEN LABEL: .ENDM TEXT .MACRO TEXTM TXT,?LABEL .WORD TXCODE .WORD LABEL-2-. TXT .EVEN LABEL: .ENDM TEXTM .MACRO TEXTA TXT .WORD TXACODE,TXT-2-. .ENDM C` S5 3m59 R&* C`$U5$h&B  $5$U@( __ ހ (   %0 7hC`  J D`$ !$$a!!  (( #)& &f(&W  @`  i$ N`Ёhac)$BbF %"  E& ' `%#hb% * , "wOS CAN BE FOUND IN MODULE RMN0.MAC ;TO GET THE DEBUGGING FEATURES ON DEFINE XFTRPO3=1 PATSIZ=40 ;THIS IS THE SIZE OF THE PATCH SPACE IN WORDS ;IN THE FOLLOWING LIST MNEMONICS FOR ASCII SYMBOLS ARE DEFINED CR=15 LF=12 TABCH=11 BLANK=40 BSLSH='\ RUBOUT=177 S2P.7@S2  S2 S2^.^(1H0,6('* '),'SEARCHING FO"7@87%@j F.UND BLOCK ',O6,6(' *')/1X,'FOR FILE ',-2(A2,A1),'.',A2,A1,'[',O3,',',O3,']')  ,@j} @jS2 :62S2 !.-} S4S27@87%@j;.6(1X,6('* '),'BLOCK NUMBER OUT OF R6 .ANGE = ',OTEXTA .MACRO END .WORD NDCODE .ENDM END .MACRO QUEST TXT,BOOL IFF TDATE THEN > YESNO BOOL .ENDM QUEST .MACRO GDATE .WORD GDCODE .ENDM GDATE .MACRO GTIME .WORD GTCODE .ENDM GTIME .MACRO FCOUNT .WORD FCCODE FILCNT: FILCH .ENDM FCOUNT :eX$_  c ,h J Vc! K C` S5 3m59 R&* C`$U5$Bh&  $5$U@( __ ހ (   %0 cJC`  J D`$ !$$a!!  (( #)& Ih_ `%  #" ͋͊KQ$B S($e$ɋ'0,e 0 (.Db _ &* e ( &*  j;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; VERSION NUMBER: EDIT01 ;THE FOLLOWING SET OF MACROS ENABLES THE GENEARTION ;OF DOS ERROR MESSAGES,THE PARAMETERS PASSED TO THE MACRO ;ARE: ; ;1. INFO THE VALUE TO BE PRINTED IN ADDITION TO THE ERROR IDENTIFICATION ;2. CODE THE ERROR NUMBER ;THE ERROR TYPE IS DETERMINED BY PREFIXING EEROR WITH THE ;PROPER ERROR6,1X,6(' *')/)"#&@j }"@j&S2 (:62D.S2-}S4S27@8S2Z*S2 S2 S27@jw.S2 S2  S27@8*.x$(1H0,6('* '),'MULTIPLE ALLOC7%@j  .ATION OF BLOCK ',O6,6(' *')/1X,' FOR F.ILE ',2(A2,A1),'.',A2,A1,'[',O3,',',O3l ,']') %;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .TITLE CMDS .GLOBL DFLIST .IDENT /EDIT01/ ; THESE ARE THE PROCEDURE FILES FOR CCL ; THIS FILE IS EDITED WHENEVER A COMMAND IS ; TO BE ADDED, DELETED OR CHANGED. CR=15 ;ASCII CARRIAGE RETURN LF=12 ;ASCII LINE FEED CMDS: ;PROCEDURE FILES MACRO: .ASCII 'MACRO' ;COMMAND NAME .BYTE 0 ;NAME DE__  $ d!?Ёh_ `%(  e% % E%l%  E V  b &  N}X hrcN ! !O  U%DC aU%  (  & fe& f df hdvΊ%3 ? RF%N_ F__ , !ԋh6 !  e um5 ,, F TYPE E.G. F344 012400 IS GENERATED BY: ; FERROR <#12400>,344 .MACRO ERROR INFO,TYPE PUSH <,<#TYPE>> IOT .ENDM ERROR .MACRO IOTERR IOT .ENDM IOTERR .MACRO FERROR INFO,CODE ERROR ,<1400+CODE> .ENDM FERROR .MACRO AERROR INFO,CODE ERROR ,<400+CODE> .ENDM AERROR .MACRO SERROR INFO,CODE ERROR ,<2000+CODE> .ENDM SERROR .MACRO IERROR INFO,CODE ERROR , .ENDM IERROR .MACRO WERROR INFO,CODE ERROR ,<1000+CODE> .ENDM &.@j  @8Oi T@j'.*}@j S2 :62S2.*-} S4S4S27@87%.&((1H0,6('* '),'DEVICE ERROR DUR@j .LING TRAN',6('* ')/1X,'BLOCK NUMBER = '.r,O6/1X,'FUNCTION WORD = ',O6/))"@j&}(@j*V*S2 :62 S2 -}S4.+(1H0,6('* '),'INLIMITER .BYTE 0 ;0(1)=START WITH OUTPUT(INPUT) .BYTE 0 ;NULL FILLERS TO 8. TOTAL BYTES .WORD FORTRN-MACRO ;OFFSET TO NEXT COMMAND ;ZERO MEANS NO NEXT COMMAND .RAD50 /MAC/ ;PROGRAM NAME IN PACKED FORM ;ZERO FIRST WORD MEANS FIND ;APPROPRIATE PROGRAM FROM ;FILE EXTENSION .RAD50 /RO/ .ASCII 'E,I/CR ;IS UNDONE BY!!!!! ; POP .MACRO PUSH LIST .IRP P, MOV P,-(SP) .ENDM .ENDM PUSH .MACRO POP LIST .IRP P, MOV (SP)+,P .ENDM .ENDM POP .MACRO CALL5 R JSR R5,R .ENDM CALL5 .MACRO CALL S JSR PC,S .ENDM CALL VALID h(S27@8 7% @j)SUBROUTINE CALL AT ADDRESS ',O6/) ,7 -P*@j9L #}_@jS2,* :62S2, -}S4S4-..(1H0,6('* '),'ATTEMPT *(S27@8 7% @j.BTO TRAN AN INVALID BLOCK',6(' *')/1X,'.hBLOCK NO. = ',O6/1X,'UNUSED SPACE STAR.TS AT BLOCK NO. ',O6/)/*@jS2 :62 .BYTE 3 .ASCII 'BI:' .BYTE CR,LF .EVEN COPY: .ASCII 'CPY' .BYTE 0,0,0,0,0 .WORD DELETE-COPY .RAD50 /PIP/ .WORD 0 .ASCII 'C .ENDM SAVREG .MACRO RESREG .IIF NDF,S.RRES .GLOBL S.RRES CALL5 <@#S.RRES> .ENDM RESREG ;THE MACROS GETBUF AND RELBUF ;GET SMALL BUFFER SPACE AND RELEASE IT ;PARAMETERS ARE: ;1. BNUM THE NUMBER OF SMALL BUFFERS ;2. ADR THE ADDRESS OF THE AREA BEING RETURNED(RELBUF!) ;3. ERROR THE ERROR EXIT WHEN THERE IS NO BUFFER AVAIL@Q@@,0z@-}@.ON@Oi@S2@S4@}@._@@8@{@@j@Ϋ@@.@ @je;@(f4Rh.Zv(W@( <h( u~h( S@~( C.{D(a'.(]d( :62((.T`:(_v( 4R(4(kv(. &( 4(pp(%((.&@(S4(T(IqM( "7 f4RPV,ON@Q@jPV DFLIST: ;DEFAULT LISTING SPECIFIER .BYTE 3 ;BYTE COUNT - 0=NO DEFAULT .ASCII 'LP:' ;SYSTEM DEFAULT DATASET .EVEN .END (  & fe& f df dhvΊ%3 ? RF%N_ F__ , !ԋ|h6 !  e um5 ,, F%P_ Fe 5@ fʊ U p (AQ$H5@ Q$}h_ `%ˊKf  FrB eQ$!w^! eE! $5 $5hbfN P(5d5 CCh(5@ABLE ;4. BUFADR THE ADDRESS WHERE THE ADDRESS OF THE BUFFER SHOULD BE STORED ; IF THIS PARAMETER IS BLANK THE VALUE WILL BE TESTED ; IF CONTROL SHOULD GO TO ERROR ELSE THE RESULT IS POPPED ; ;IN BUFADR .MACRO GETBUF BNUM,ERROR,BUFADR,?LABEL PUSH #BNUM .IIF NDF,S.GTB .GLOBL S.GTB CALL5 <@#S.GTB> .IF NB,BUFADR POP BUFADR .IFF TST (SP) .ENDC BNE LABEL JMP ERROR LABEL: .ENDM GETBUF .MACRO RELBUF BNUM,ADR PUSH .IIF NDF,S.RLB .GLOBL S.RLB CALL5 <@#S.RLB> E@8a"t(( " t ((B(z8<*@jz { 8Ϋ@<9L87 z>,<@ _@jz{>Ϋ@NV7 (V9Lu~@_@jS2b, :62S2 -}S2 Zvr!M,S2 ZvS2 7@87%@j.(1X,'VERIFY VO',A2,'-',A2)"$"@j.$IL vQ@ X@.D@%@%\!@%""@%@.a',@a'p0@E@SN@Ss@h.$T@. {DS2 7@8 S28S2>d.# (1H0,6('* '),'LISTING (S27@ 7% @j .OF MFD FOR ',A2,O1,6(' *'),' ON ',5A2,' AT ',5A2)   $<`*@jS2 :62 S2<-}A.2%t(1H ,6X,'UIC',2X,'FIRST UFD {7%@j  t.XBLOCK',2X,'UFD ENTRY SW%%<.f^fMUDe"@v.  H P  @`$   ~.  eee J- ) (.0 e d%   e& e.V  C, 2 ((B.| +e$)  Q$fE.Q$f ( & $ $ .ea(eh B eE.R z KEewE->k. 7  a%Qw !UN` (! &e֋%_ FH__ & &! $ d!gLh_ `%& p &  ))e f a ȕ &w Q$hbN & N MMMM& N  &&D&  E `#'[h 'ċ ĕe ee e    e Օ g4h& M (121110TABS IS AN AUXILLARY MACRO IT BUILDS THE ABSOLUTE ADDRES ;OF LABEL IN REGISTER REG OR WORD IN CORE .MACRO SETABS R,LABEL MOV PC,R ADD #,R .ENDM SETABS ;THE SYMBOLS $$SEC AND $$PASS ARE USED DURING ASSEMBLY ;OF SOURCE MODULES CONTAINIG SEVERAL OVERLAYS ;$$PASS IS THE SECTION COUNT MADE BY THE ASSEMBLER ;$$SEC IS THE SECTION DESIRED BY THE USER $$PASS=0 ;ZERO IS ALLWAYS THE START .MACRO MODSTA UCOUNT,REENT,LABEL $$END=0 .IIF NDF,$$SEC $$SEC=0 .IF EQ,$$PASS $$SECL:IZE'/)&'" @j$@j(9L?~7 .PZ {D 4R kv_()h.@j Oi @j{h<,ݩE@8  *ha.@j  {hΫ@9LG7 +z,zQD _@jz@8Oi,-.Dg.@j  @j@jDi e, $TSN",&SNr.:L& 0f ee^ .`~ e&ߓpe6P. 5@w%V5wʋ5 .5E ~ wU@fE@ D.@ʋE 5fe.E@wjeW$AB QI.fU%AAaW %e&&).DE@ehf h EB &|.jpe ! (Mq .p090807060504030201XX _ F  E 5 )h@`Ӥ  /: W:U`U Ք _ & &f$"W   @`` e$ Lh_ `%& p &  ))e f a ȕ &w Q$hbN & N MMMM& N  &&D&  E `#'h 'ċ  .ENDC .MACRO EMTOVL SAVE .IF EQ,<$$PASS-$$SEC-1> .IIF NB,SAVE PUSH MOV MODSTA-2,R0 TSTB MODSTA .IIF NB,SAVE BEQ MODEND+14 .IIF B,SAVE BEQ MODEND+10 .GLOBL BKZ MOV @#BKZ,R1 CMP R1,#2 BEQ .+4 ASL R1 ADD R1,R0 MODEND MSB .MEXIT .ENDC .=$$SECL MODSTA UCOUNT,REENT RESREG CMP (SP)+,(SP)+ .IIF NB,SAVE POP .ENDM EMTOVL .IF EQ,<$$PASS-$$SEC> .LIST .IF NB,LABEL LABEL: .ENDC MODSTA: .IIF NB,UCOUNT .BYTE UCOUNT,REENT .IFF .NLIST .ENDC $$PA0/,E@8   0@js07 *Oi @j9LzQDP1 ,_  @jU$2~3D.Oi {D@j ~@jD6F*E@8  FOivD4DJ. {D@j D E@8 T\5D*\Oi {D @jDdeR#w wfW;A!J. A5 W#JOW#FI0 -9.feT  fBѕ$ w.eHeGҕ ҕ W#AS4 eR#L.("eR f w(& 5e4.N X  e  w.tQ$  \ Nv @ 5E". w w  . w E .$&& &  ( U h.`̵@$^ . r&ŀe 2& Nĕe ee e    e Օ g&M $ h0(121110090807060504030201XX _ F  E 5 @`Ӥ D /: W:U`U Ք _ `& h_ `% w  5&  >0, D & E?hbE ʋŀʥ*E$ .   5 h ȕwSS=$$PASS+1 .ENDM MODSTA ;MACRO OVLNAM WILL GENERATE A TITLE STATEMENT WITH NAME ;NAME WHEN THE CURRENT OVERLAY IS THE ONE DESIRED ;NOTE: THIS MACRO SHOULD BE USED AFTER THE MODSTA MACRO!!! .MACRO OVLNAM NAME .IIF EQ,<$$SEC-$$PASS-1> .TITLE NAME .ENDM OVLNAM ;MACRO MODEND HAS AS A PARAMETER (ACTUAL!!) MSB OR KSB ;IT WILL DEFINE A FIXED END LABEL FOR THE MODULE AND ;VERHFY THAT THE CODE DOES NOT EXCEED A SWAP BUFFER .MACRO MODEND PREF $$END=1 SEGFIL=PREF'SIZ-<.-MODSTA> .IF LT,~J.E@8  ~ JԪ@8t6>*v@8Ԫ@8 Oi {D@j7 7,9L&K {D_@j9L7 *PZ 4R kv_8h.@j { hݩOi S497 :.@j9L zQD_@j9LG7 ;<U,zQD {D _@j@j9L`N`# .2^R BAGECHFIJOLORU  G HW#.XJO FffA!N ,lJ.~ X  " w&e:'.7 0ߓp |   .wx7 7 &e # `%TI%J.NE%LOU   d.w6Uv   e,\.<Ahe e  Lf_ vQ h X vQ.bNUMe :  z<   .>` X eh B & N 5  u u,  f h&Bv FF h     @ 4E 25wr 1p h   & &*  _ ` e._ F( f_ & &f x`  W  @`j$ Lh_ `%& p &  ))e f a ȕ &w Q$hbNSEGFIL .ERROR ;MODULE EXCEEDS THE MAX POSSIBLE VALUE .IFF .IIF NE,SEGFIL BR MODEND .IIF NE, .BLKB SEGFIL-2 .ENDC MODEND: .ENDM MODEND ;THE NEXT TWO MACROS DO ALL THINGS NEEDE TO LEAVE THE MAIN SWAP ;BUFFER MSB. .THEIR USE DEPENDS ON THE SITUATION, ;1. FREMSB SOULD BE USED WHENEVER THE EMT PROCES IS COMPLETELY ; FINISHED NO PARAMETER IS NEEDED ;2. OUTMSB SHOULD BE USED WHEN THE PROCES CANNOT CONTINUE ; AND AN INTERRUPT WILL FINISH ITS ACTION .MACRO FREMSB ?LABEL TSTB7 3.PZ {D 4R kv_=7 >3,@j9L zQD 4R_@j}7 .9LPZ 4R 4R kv?z@nz._@j z Oi@jnz& Az*@8v@8 Oi @jz6Bhg*Oi@j {hݩF&Ct"*Oi&@j tE@8%N`e.e cf cfcc$$B!.c   5  >  e.4  ,e $    .  ]n 4 4 0d %  n.FV  w ^  %&.l > z  . eL eR w6 w4   f.f f%5  .6 &f" &" . &" e< %[.*%wz & N MMMM& N  &&D&  E `#'h 'ċ ĕe ee e    e Օ g&M $ h0(121110090807060504030201XX _ F  E 5 @`Ӥ D /: W:U`U Ք _ `& h_ `% w  5&  >0, D & E: MODSTA BEQ LABEL .GLOBL S.XIT,S.XITL JMP @#S.XIT LABEL: JMP @#S.XITL .ENDM FREMSB .MACRO OUTMSB .GLOBL S.XITL JMP @#S.XITL .ENDM OUTMSB ;MOVMSB THE EMT PART IN THE MAIN SWAP BUFFER IS ;TRANSFERRED TO AN AUXILLARY AND EXECUTION CONTINUES THERE ;PARAMETERS: ;1. ERROR LABEL WHICH RECEIVES CONTROL WHEN THERE IS ; NO MORE SPACE AVAILABLE ;2. LABEL AN OPTIONAL LABEL LABELLING CODE FOLLOWING THE MOVE ;NOTE: REGISTERS R2,R3,R4,R5 ARE USED AS SCRATCH .MACRO MOVMSB ERROR,?LABEL V^D, ^  @j9LK}h&7 E&.&  _ @j9Lq 5&|7 FP\'. _ @jP\E@8Gi.   @jS2 :62b*S2-}S2 S2z. S2 7@8 z@8{hh8.hS4  @8{  $  .Pet X D  e4 .v x& Da(t $  vG. fQ$ tw&K.    ^ UO.EI1 K , .et . t   f E_.4  Ae"$   =.Z U wH% lft ( V. nee . :U wl 8. e  e  x4    hbE ʋŀʥ*E$ .   5 h ȕw 5  u u,  f Bh&v FF h     @ 4E 25wr 1p  F`  & &*  _ ` e._ F( f_ `& h_ `% $Հ  C maa Q e0  __  MOVSEG MSB,ERROR,LABEL .ENDM MOVMSB ;RETEMT RETURNS THE EMT SPACE OBTAINED WHENEVER THE EMT WAS ;MOVED OUT OF THE EMT MAIN BUFFER ELSEWHISE IT WILL SIMPLY EXIT .MACRO RETEMT ?LAB .GLOBL S.RLB,S.XITL MOV #S.XITL,R5 TSTB MODSTA BNE LAB MOV R5,PC LAB: PUSH PC ADD #MODSTA-.,(SP) PUSH <#20,R5> MOV #S.RLB,PC .ENDM RETEMT ;MOVSEG MOVES ASEGMENT OF CODE TO CORE OBTAINED FROM THE ;S.GTB CODE THE CODE FREES THE BUFFER IT OCCUPIES AND ;THE EFFECT IS THAT THE CODE SEGMENT CONTINUES hS4.H(1X,'[',O3,',',O3,']',(S27@8 7% @j,11X,O6,10X,I5,'.')I1.@j@8 Oi"$& :Jb, : @jbE@8k*2KP. 2  @j} <h(>P\\\\. u~h {D]dT`:T`:*.^\\P\\\&T`: 4R 4R.   wf7  4(#. wEee  f"f. e" Q$% ff"7 ` & .> e  `%TI B t%NL.d o  2 hJ *   b e.  n R 9 45U f .  h   U&7 E. 67  -n  U e r.  f  v &5 m."  T  F 4   wB.H w2 e& &0 &\b.^  2RV ~r $ ,E(ρh&^ %0el&A.l&#B& Ne  vUUBb  Il&f  h1K$ ,EHρh&^ %@@ &   c `@@ @)#&%7 2JANFEBMARAPRMAYJUNJULAUGSEhbPOCTNOVDECL e `  %@ 4AT LABEL ;'LABEL',WHICH DOES NOT NEED TO BE SPECIFIED .MACRO MOVSEG PREF,LABEL,?$LAB1,?$LAB2,?$LAB3 .GLOBL S.GTB SETABS R2,MODSTA TSTB (R2) BEQ $LAB1 PUSH <#/SMBSIZ> CALL5 <@#S.GTB> MOV R2,R3 MOV (SP),R4 BNE $LAB3 JMP LABEL $LAB3: MOV #PREF'SIZ/2,R5 $LAB2: MOV (R3)+,(R4)+ DEC R5 BNE $LAB2 SUB R2,(SP) CLR (R2) CLR -(R2) ADD (SP)+,PC $LAB1: .ENDM MOVSEG ;MACRO DIAL ENSURES THE COMPATIBILITY BETWEEN THE INITIALIZER ;THE CFTBL MODULE IN TERMS OF THE OPkv.\\\DT\DT8w.\8?\?@\@DP\DP@\@N.DK\DK\DF\DF\G(\\\\C.rW#p@zQD@E`W@+.dD@pe@p@IqJ@Tq%@.@8@9L@E@8@v@8@@^.@ݩ@ݩ@+]@7@@.7%@7@8@Ԫ@8@@Q@@.,0z@-}@ON@Oi@S2@.S4@ee 5t.n  c #qk~MG vQ. N@e  @e,PHw. ee  @e. fN e F. `ee 8 U0 &P. e2&E2 ., e e  ew .R e`RA!ʕ eve6eL7 D%.x e4. eL/EK.  - w EUT.  E& Ne&4W-& 5"< de#$N#e % $$ ,EIρh&^ %w6DECNOVOCTSEPAUGJULJUNMAYAPRMARFEBJANXXX E 5 hb@`e /: W: "` @- B ` W$ ,EJρh&^ % & & NU%ef&f6DECNOVOCTSEPAUGJULJUNMAYAPRMAhbCODES TO BE INTERPRETED AND ;THEIR CORRESPONDING INTERPRETING ROUTINES ;NOTE: INSERT NEW VALUES AT THE END OF THE .IRP LIST AS NDVAL MUST BE 0 .MACRO DIAL CASE .IRP P, CASE P .ENDM .ENDM DIAL ;STDEV CONTAINS A LIST OF ALL STANDARD DEVICES ;WHEN THIS IS UPDATED UPDATE CFMAC.MAC TOO .MACRO STDEV MACRO .IRP P, MACRO P .ENDM .IRP P, MACRO P .ENDM .ENDM STDEV U@}@_@_@[.@8@{@@j@Ϋ@@Ϋ@y@ .@ @je;@(vrWh.Zv(W@( <h( u~h( S@~( C.{D(a'.(]d( :62((.T`:(_v( 4R(4(kv(. &( 4(pp(%((.&@(S4(T(IqM( "7 rWK,ON@Q@jE@8` *. & ee *Be.   $$ee& NU.6 eeen&e &.\ ee6e . e& 6eUU@& Nh. e eYыW W Z. & ee we 9. D f#>"7W!4JZ.,, " U@W7 v.@% 0p * e0.f4 w&RFEBJANXXX E 5 @`e /: W:T`T@w-T  T$ ,EvρB&^ %l@ɕ 5A j Ɋb$ ,Ewρ<&^ %l@E l<4$ JRh> [RA!&. S f%f/E Ae h"RA9"3 Ɍ"-?f$+Ɋ,^ #$ $RR.DρLL;@(KDhf` f.f & e`feDˋ >.` je `$.X &  , %].  e- A 3. `w w~wwwwwwwt.$  weTy.JL$)Ce K  N  S .pKEH&5    } @jS2 :62.(<Z(1H0,'DRIVERS IN T,S2<-}7%@jZ (NHE SYSTEM'/) 7 O.@j9LdD_ S4"Oin!o.@j  @8Ϋ@y9L 7 "D,dD _S4Oi@ju7 ~,@8Ϋ@y  9LdD_#c*S4Oi @j&    U.E 0$&&. `̵@ .wff^A-v eeL . *e@ ŌD((I.$J v   J.JU%  v  E7  B 7 (.p8h   t DU&@.&7 >E ew4 7. x v VE@ D K.&  4-(U5U5 Uz"&( @ %  A$ ,E wρhvv@K  `Be (e E T%T%T%TThbTT $ (a%ee e  e%X& & & &eJ###  p&f&1 f&AAcDD h!  & h   T&& 3e0 ߕߋtZf f.    ^ v  .C` F ^  |  J .  b  ,  ׯ.,     ׀ 7`9..     f W..Tf V 'wkQr fc.z& "e %u#U%(kQ4d=. 7V7N   & ). TO ԕ ԕ p.77&     ̕<ׯ.<7 7 @8V$$.Oi@j @8Oi%/*@j  E@8ݩ `&7 ;,`@j 9LdD_'*S4Oi @jE@8s`( 8*   `@j $7 *{Ϋ@ $ 9Lp()PC*_@j S2 :62S2. eee   U.. veew& 4  5 .Td Xw Ee .z &  8  Ea'p0a',U.e&ef e@&&.  ev  7 .% 0p LH  ezA.e8 RwB r  5 ~/.8\vb ' r' & R.^ &&%  jV|ߕ$v0 Yb& "U%.$)&&&cA!D 5@ 7j& ^$ ,Eρh&^ % CO  WA # ee 6##Ŝ Ō dbMf F$ ,EρNh&^ %SP  I W W,CAנ> ` `hb g E A(eE eE ΊE`e EN W= EC ׯ 7 7 w|.8f r  2& 0I.^Z 9A e.7* ̋   . 6 , & ] .<    &.   7s.e 6  f t.B   A f P.h M R|ҕSҕ.Yҕ:   f  W:;!P6*.-} S2 S27@7%@jY$LX(1X,3A1)+,-A,X@j@j@jhxZ.E@8  xZx. "/.@j  Oi "@j{"*U  " kv0$7 ,@j9L pe$_S4 F1*7 ,{".0 ew  < .peV04 wee.%zAB I# . % Bff& f a( w#.ֵ f@ed.B@d7 nev 6e-7 \T.h 4      5Ue& .`& `  @ w.U v w e   .(W!DUee& t4. - #@@@DPN $ ,E`^ρgh&^ %  a WR  WK [%@eJ!!! ,b̋ee&^ ߓp<$ ,EH ρh&^ %2 ɊA!@ , 0"3  BEB WS Ɍ  7hb3U%## A =A! #!E[ &  `Ll@$,eo$4   $)3F. Ҕ  eee.Be  L; "  A%U @j9Lpe*;02,_S40 { U@j87 >M,9Lpe 8_S4>{37 *U@j 9Lpe {DQ *_S4Ϋ@y  {sFN7 ,Ϋ@9L E`W {DFN4H 4,_@j H E@8 q,2Z5 -.2&  b.&4 WPWRWLWAI p.Lf" " % .r`U&&e wp..K5. .zb. zzzb.0z  $ ^CK.V . DATE:- TIME)|:- PLEASE LOG IN  7'& ɕ$ ,Eh сh&^ %ߋt dĜ Č dMfwl  %eJ   & e4   Rb$)3U%l@ @   ( e&^ `p)$ ,Ei Ёh_ `%l@ Aq  H D! ! f d aeɋ]E Z f e&C 3e .hbfE e d- D 1&3)d ddEEd > 5    U%֌>(. vQIL( vQh Xhk~MGh.*2&Tp f- KI :.w&l@XD Ý@Ì̵. f(̵eDe.  C3!!F"%L-H. C "D & 7PLb.@`$^ Pĝ@5@?.f$5Ee@ ы)Z @j {Ϋ@>P0R.P0 Ԫ@8 Ϋ@yR9LIqJzTNV7 6H .NV _@jH E@8jrL7P0. r L @jP0v@8|V85.OiV@j S2 :62S2].9(1H0,'LISTING OF BADB."-} 7% @j=.SYS FILE FOR THE RP03 FOLLOWS'/): $@j( {" 2.2EEXt+ ܁ LɌa M &&&AQ$ ,Ej ρh&^ %  e0e K" A  W$@ $` @  F e 8  @ hbP$0e Œ A% W)E(H$I1 e Ō(D$      $ ,ERρh&^ % >::6U : f W W BbB W &^ '*#$] R,  -&f0-;*Oi"@j {ݩ^<X*Oi^@j XE@8>=i.  > @jS2 :62&^H,S2&-}S2^S27@8>.(5X,O6) 7%@j  ...?^7 @.@j9L zQD^_@jD"VA7 ."V  @j9LTq%_ZB..d!ρL L@ L@(SNhr. EeRRRR J-.&%  22 2  f.L  2 G&USw.r& E p 4,0n.  2% e 0%  L%. 00 0 & J.0"U%G *.    #c / exUj 1H$ ,E}ρ@&^ %  o5 U@$ ,E(Fρh͕ &^ %  dߋt  5 & aW-Y5U 0Zhb& e T! - E D @e      % % E4  RB :@eJ!!! E0  l@$ ,0EBASCI.DOC -- 4-APR-73 PAGE 1 OF 2 DOCUMENT NUMBER ----DEC-11-UEATA-A-MA9 OPERATING PROCEDURES FOR EBCDIC CONVERSION ROUTINE THE ROUTINE ASSUMES THAT THE INPUT DEVICE IS A MAG-TAPE; THE DEFAULT DEVICE IS MT0, BUT ANY OTHER MAG-TAPE CAN BE USED IF IT IS ASSIGNED THE LOGICAL NAME 'IN'. THE OUTPUT DEVICE MAY BE ANY DOS DEVICE CAPABLE OF DOING OUTPUT. THE DEFAULT DEVICE IS DK1; ANY OTHER DEVICE CAN BE USED IF IT IS ASSIGNED THE LOGICAL NAME 'OUT'. IF THE INPUT TAPE HAS LABELS, THEY MUST1C`r`*@j@j `@8Ϋ@yrhl7 .9LdD_S4Ϋ@y9Lh7  *#p  h_S4 @8jD.Oij@j S2 :62S2"jE~.-} S2 jS27@87%@jN.(1H0,'SIZE OF RESIDENT MONITOR IS `J',I7,'. WORDS') Fld*@j L(.0cD  fNUVU00%%.V% p b .|$^ &&e E].e( &^ & ݁ "u3EHFρ`&^  aU@  & &)cEI̕U%&^ '$ ,Eρh&^ %ea'W0$  dU6Uhbl"L && $e   & &f&  KX<>I/: `A dT  T  $ ,Eρh&^ %I@W0=&4 BE ANSI-STANDARD, WITH BOTH 'HDR1' AND 'HDR2' LABELS PRECEDING THE FILE. THERE MUST BE TAPE- MARKS AFTER THE 'HDR' LABELS, AFTER THE DATA, AND AFTER THE 'EOF' LABELS. AN OPTIONAL 'VOL' LABEL MAY APPEAR RIGHT AFTER THE LOAD POINT; IF IT DOES EXIST, IT IS IGNORED. THE MAXIMUM BLOCK SIZE ALLOWED IS 8000 BYTES; THE MAXIMUM RECORD SIZE ALLOWED IS 8000 BYTES. THE TAPE IS AUTOMATICALLY REWOUND WHEN THE PROGRAM STARTS, BUT IS NOT REWOUND AGAIN (UNLESS NECESSARY TO POSITION TO A FILE THAT IS BEFO5 l @8Ϋ@y9L"7 j.dD _S4Ϋ@y9L#ph7  tr.h _S4 @8Oit^2GX *@jS2 :62 S2X-}"DtH.S2tS2 7@87%@j .V(1H0,'ACTUAL CORE ON THE SYSTEM IS ' \|,I7,'. WORDS'/)  YI@/@j} (\\6.rvLU(rvL(.%b|ht^(<,:(8RE THE CURRENT POSITION) UNTIL THE END OF THE RUN. IN THIS WAY FILES MAY BE COPIED ONE AFTER THE OTHER WITHOUT A GREAT DELAY BETWEEN FILES. IF A NEW TAPE IS TO BE READ, MOUNT THE NEW TAPE, THEN TYPE '^CRESTART', AND THE PROGRAM WILL RESTART AT STEP 2. OPERATING INSTRUCTIONS FOLLOW. THE 'YES' RESPONSE IMPLIES ANY WORD BEGINNING WITH 'Y'; ANY OTHER RESPONSE IS TAKEN TO MEAN 'NO'. 1. START EXECUTION IN THE NORMAL DOS WAY: RUN EBASCI 2. THE PROGRAM WILL QUERY THE OPERATOR: DOES TAP9\PPd.{D T`:T`: 4R 4,.\ \(\(\\kv,.\\\\\.\DP\DP\BAD B ..\SYS \\\*T\\.\.\.&&p@  @ &@D. (@,U@@8@9L@E@8@i.@@7@7%@@Q@.@,0z@-}@ON@S:m* Rv* Rv7 Rvi &Rv~.  w  b`5@5  Rv( .0 %E`$ .V* N7 J.| z5@w *   ( .w pd   w TFz" d    &F(.   %mp   >. nȋ H WM nj.;I/: `A dT  T  $ ,E~ρh&^ %I@W0=&& &  ?< <2 B: e  ` `  d L b $ hb $< A!  2  @w 0u 2B ZI</: `A d    1$ ,E!ρlb&^ %   W W,W  a %& eU@<E HAVE LABELS? ANSWER WITH 'YES' OR 'NO'. 3. THE PROGRAM WILL QUERY THE OPERATOR: POSITION: IT IS ASKING FOR THE POSITION OF THE FILE ON THE REEL. IF YOU WANT TO CONVERT THE FIRST FILE, RESPOND WITH 1; IF YOU WANT TO CONVERT THE FIFTH FILE, RESPOND WITH 5, ETC. IF YOU ARE DONE, RESPOND WITH 0, AND THE PROGRAM WILL EXIT. EBASCI.DOC -- 4-APR-73 PAGE 2 OF 2 OPERATING PROCEDURES FOR EBCDIC CONVERSION ROUTINE 4. IF THE T=2@.S4@S4@}@_@{@.@j@@ @@je;@.(P&&hZv(W@( <h( .u~h( S@~( {D(a'.(]d( .:62((T`:(_v( 4R(.4(kv( &( 4(pp(.%((&@(S4(T(IqM( A.7 &&zKW11L KW11P EAE uON@Qz.& BM792-YABM792-YBMR11 EIS > A A 5P7\wZ5j.:@7@w>`^ A A (*.`$&7` w w`7`w w`F. m.w mw ---.d (-F n >dF. w  5rw k w5` Rv Rvk .U%]?8RU``.DHd 5Ee0w w  ( Rv &Rv .jw5  ? &^ $ ,ESρ:h&^ %;7  W:A!) D02!/5 -)  &"a 3 5Fb3     =pl@$5Z$ ,ESρh&^ sɌ p n7T  A!B0Z0W W   Bvhb   •/  :  A ŀ^UWI•\ ͋BKBa͊QB@APE HAS LABELS, THE PROGRAM WILL POSITION THE TAPE AT THE 'HDR' BLOCKS FOR THE SPECIFIED FILE, THE PULL INFOR- MATION FROM THE 'HDR1' (FILE NAME) AND 'HDR2' (RECORD SIZE, RECORDING MODE) BLOCKS. THIS INFORMATION WILL BE DISPLAYED, E.G.: FILE NAME: TSRIOX FIXED-LENGTH RECORDS RECORD SIZE: 136 OK? IF ALL IS WELL, RESPOND WITH 'YES'. IF THIS IS NOT THE DESIRED FILE, RESPOND WITH 'NO' AND THE PROGRAM WILL SIMPLY CYCLE BACK TO STEP 3. 5. THE PROGRAM WILL A FI.LS FPP 11/05 11/20 11/40  r11/45 + 1* @j E@8 H,$7 -.}@j 9L ,U$_@j&0.&E@8  0w.8`/>,@j 8`@jn .S2 :62S2  -}{0.S4S2 77%@jBPnȋw  nj.5Pw R  w "P Rv .h (w d 6 h Rv.Tw P zn   Rȕ- T.ȋ ]w xPw  l .(w   (= Rv ].Nw Tw  RvT.t -T   @X  T. ` w C  BN DIA% $ ,E8 ρh&^ %@& aoB: ( $W[7e Zc p  K!hb# bRK l c  A! ,  J W. ScA!W]W0W9B@WAͥZfᕕW,W VA!N  m$ ,EX Ёh&^ %ew J""T   fa eX%!DQUERY TO OPERATOR: DO YOU WANT ASCII TRANSLATION? RESPOND WITH 'YES' OR 'NO' 6. IF THE ANSWER TO STEP 5 WAS 'YES', THE PROGRAM WILL QUERY THE OPERATOR: DO YOU WANT CR/LF? ANSWER WITH 'YES' IF YOU WANT A CARRIAGE-RETURN, LINE-FEED AFTER EACH LOGICAL RECORD; ANSWER WITH 'NO' IF CR,LF NOT WANTED. 7. THE FILE WILL BE PROCESSED, AND THE PROGRAM WILL CYCLE BACK TO STEP 3. 8. IF THE TAPE HAS NO LABELS, THE PROGRAM WILL POSITION THE REEL TO THE DESIRED E.(1X,'PROCESSOR IS AN ',A8)105  @j$&0(@jB2.S2 :62 S2 -}{$3l.S4S2 77%@j604V.0@j S2 :62S2-}JJX,{ S4 S277%Z5.7 0,@j9L  ._S40Unz6,E@8F6H wJDF Rv "RvH -DCDK*DPDTMT$:  ,  <  F_P F/TR x/DI `/PL `/RW /RE   /SK ((/BOh 00(/NO 88 /HE @@/NU HHj/FIt PP/DA XG  hbD b aB !  p & . 'Ȋ% W, 6 e ! B  e 05   f @m?$ ,EY сh&^ % l q r e L%e  ʕ ʊ $͋#C( .hhb '$ Ĝ %`(  ( ͋,^ %  ! Be   ͋ e K) HFILE, THEN ASK FOR THE REQUIRED INFOR- MATION FROM THE OPERATOR. ANSWER 'FILE NAME:' WITH 1-6 LETTERS AND/OR DIGITS TO BE USED AS THE FILE NAME; ANSWER 'FIXED-LENGTH RECORDS?' WITH EITHER 'YES' OR 'NO'; ANSWER 'RECORD SIZE:' WITH THE SIZE OF THE LOGICAL RECORD, IN BYTES. AFTER THE FILE HAS BEEN CONVERTED, THE PROGRAM WILL CYCLE BACK TO STEP 3. I  z @j~*S2 :62S2  -}7%y.7(5X,'WITH EIS OPTION')8(@j "@j&9L( &.7 0,. _ S40E@8 9A. @jS2 :62S2{.:(5X,'WITH FIS OPTION&-} 7%@j');87 0,@j 9L p8_S40]JX2/VE ``V/WL\ h|hN/FOj pt.p ^& ыBwp`H .ɋVB`Gh  5 }.Pw 55U:.704UU@ ".  w &.. h 5.@.T0 70nӋ:! #n&s.z! [[נAנZנ0נ9.@K W$ ,EHρh&^  )$A!@ , e @`e 2 0 hbD B  I 9" 0 15. `5'N 끃  xB$w M @C#  m e%A $ ,Ehρh&^ %7 Ll֋NVi *fE E  @ E N  Q% 8hbEE \5M<,E@8   @j":*S2 :62S2 : -}7%.2=X(5X,'WITH STACK LIMIT OPTION')A@j XX>?7*@j  @jS2 :62shL*S2-}{S4-z@.7 .S27 7% @j9L (. 0{,_S40 E@8  GN  aW `߇  . ww P  P% &Ps.weeeeeeee.eee t = c{'8Fe w,-JAN- XX-FEB- bb~-MAR- lvlt-APR- vlvp-MAY- bl-JUN- Xh-JUL- Nd-AUG- D`-SEP- :\-OCT-O E `` E N @`C`  5? 5ŗrEWBB$   @  :  F* $ ,Eiρ&^ % tL$ ,EXaρlh&^ %   W W,W  a  e*&  er%  b Հ$ xρh8xB$"  e "E8b$.IKxXL(<,:lZ<,:  QAm.@j S2 :62S2.B(5X,'WITH FPP OPTION')s"-} 7% @j;C:7 0,@j9L p:_S40i0D,E@8   0@j*S2 :62S2  -}7%.E0(5X,'WITH SEGMENTATION OPTION'9@j 0 .) 00FGP*@jR 0X-NOV- &T-DEC- .Pw F w  w rw.@$T` `  ! 2 .f!2J !5 .5 PR5P ( .S^ $C Bx   (8b"u U  7 ~f5t =$ ρLhBJߓ1$:Ó C"""E8b$^ 0B 5 >b "uU   7 xf5n $ сh" ED    $  &@` ahbEA! ea L$$E0d.XL(<,:l<,:  U@j S2 :62S2P_.@H('0FOLLOWING ARE OTHER"-} 7% @j!f OPTIONS ON THE SYSTEM'/) fI<7 >N,@j9L p<_S4>Y*E@8   S2 :62(,S2-}S2S27JF7 R.7%@j 9L pF_S4>.>E@8  Vww 2 wF N Rv.:00S7P5%.~75r  =97 .$ w5Nw5B |y.J w w( :, 0.p 9A Z  5wp . ͋.  .  ` w  "Rv.    wv&&W_ FlABD5x W U b 5. 7 $ @_ ͋55uM55 &$ Vhv:0F 5p we& 5 phbAp w<&ȋp w.wfȋt<rW wW w&% %>h%S 7 DF<4wBE U U 5 A%$JOB MACNOV[1,1] $RUN LINK #MACRO,LP:"|.>E@8  "S2 :62 ",S2-}S2"S27o LJ7 .7%@j 9L pJ_S4 4>X.>E@8  XS2 :62B*m,SZ$..  \P>0 !!.T !5ɋ 85b.z 5ߕ  0A A A A e0\. ww Fw >7 w( G jRv Rv Rv. e e N`  ",=.   7 7 O.    e%C $.8 le^ w wPJ= .^   ee [DWh& W` ef EW  fmae7 6ȓ7pȋ#$^ h ȋ Ћ!@ ѕѕ Jx p " t4qH p$h356*:'"90SUVY*ݬ_?Z-KMNP*!$\ҦABDGH*.<(+{}356*_'\90SUhLVY*("Z-KMNP*:$۾+ABDGH*?.N7 ,>E@8 9L pN_|0,S40E@8  @8 2 .S2 :62S2  -}S22NL7 \.S27 7% @j9LpLk>._S4> E@8 9LpN7 >^נ . w B -, -$&w B  1 "Rv ). ww < w<-w  w "# w S Rv Rv &Rv# .  w I w*w n  w 8 w RvI Rvn "Rv8 . E7 7 5@w  "M. 7 7  5@ w "E.B 7 7 5e[7 )  ( +.h 5w:7 7 _***********ABDGH*.<(+!ɁIL* **** {cef*******i**************jloq*******r********+$ h`6F 5p72U,RN &eexhbe&7z  w & 5 p^ApP7 hw  w~&ȋp wwfVrp wh&4%pȊnȌmwNȋt<$JOB VERNOV [1,1] $; IT IS EXPECTED THAT YOU WILL GET ONE DIAGNOSTIC FROM $; THE LINKER INDICATING ONE UNDEFINED GLOBAL. $; THIS IS FROM MAKING THE TRA. MODULE RESIDENT. $RUN LINK #VERIFY,LP:E@8@8. S2 :62 S2-}f:Op.S2:S2 77%@j}P(1X,A8)@j .Q\\Z`\\.&@j} T`:T`:Z,,\zf\`@U.f4#p@|&]@99@Q. NK@zQD@p@PZ@te @.@8@쨀pb7 f  $(. 7 7 ) E7 7   $({. w$ wUbc. 7 5 E ". wVp 02IF7@ Rvn.& `w dh4fm\&  d h .L n HF`ߕ w ~K$  Rv.r ( f&   w PcrW w6W wF% %%S 7 FdhwBE U U 5 A%TDW W` ef hEW  fmae7 lFȓ7pȋ0$^ p@ ȋ -hLЋ!@ ѕѕ x  "up ( te  H p^h356*:'"90SUVY*ݬ_?Z-KMNP*!$\ҦABDGH*.<(+{}356*_'\90SHhUVY*($JOB PIPNOV[1,1] $RUN LINK #PIP,LP:KwʋW (RvL Rv>x.Me0 w 8 40YRv Rv Rv D.:w 0 w   &eBen Rv0 (n2.`  R w < RvH.h   P h 1"h Rv  P (Rv 3.7$$7$!$r5 T ȕ .ȋk&0E@05wXh5 w8 wfeJem$@Ec * w  e Wыh&ѕѕ $^ x w 5O B5z)=hl%^" \"<0 fwx7 <4",h$^ \&^ 0w&w507 356*_'\9***************0hLSUVY*("Z***************-KMNP*:$۾**********$JOB LIBBLD[1,1] $RUN LINK #LIBR,LP:.2Q$%   8-PFw Z .F $RvZ .XRȕȋ P ȕ .~T ɕ ɋP5 ɕ 5. w > wRe@ fe Rv .  m@f4@ $4. . E b(1H0,6('* '),'OPEN FILx(S27@8 7% @j.E,USAGE COUNT = ',O6,6(' *')/1X,2(A2,A.1),'.',A2,A1,'[',O3,',',O3,']'/)?w$@j(@ju@ >n.   E@8  >Al%*@jS2 :62 S2l-} N..D DEVICE. DEV MAY .BE "DF" (RF11), "DK" (RK11), n. "DC" (RC11), "DT" (DECTAPE)., "MT" (MAGTAPE), .OR "DP" (RP03 DISK). /DATE:01-JAN-70 l.D USED IN WRITING MAGTAPE LABEL (OPTI.jONAL). /FIND ON INPUT FR.OM MAGTAPE, PERFORM A SEARCH . FOR THE SPECIFIED FILE. ON. OUTPUT TO MAGTAPE., SKIP TO END OF DATA.E@R$^ 0`RPV58 .7*w593 h55( #59 ɥɥ5 Uw• Twt5 @ TBw6rb77_$ EYhhhE6 w7  Õ7   7 w whb7 nCW Հ  wP<7 @7 P I߳tՀ h:@Jߕ@t97 DS2 S2  S2 S2 1* ,S27@ S2 S2 S2: . S2  S27@8S2 IqMJ ,S27p S2 S2 S2.Z B(1X,2(A2,A1),'.',A2,, S2 7@8 7%@j.A1,2X,4A2,A1,5X,A1,5X,O2,5X,O1,2X,O6,2!X,F7.0,2X,O6,3X,O3,3X,O6)u %C t t o.@j  t  E@8 /HELP .( TYPE THIS DOCUMENT. /NOLABEL .N ON DISK TO DECTAPE DUMPS, PREVEd.tNTS THE LABEL RECO@.RD FROM BEING WRITTEN. /NUMBER:N . N IS THE NUMBER OF 1K TRACKS TO c. DUMP OR RESTORE. /. PLATTERS:N FOR RF11 OR RC11 ONL.2Y, N IS THE NUMBER .X OF DISK PLATTERS TO DUMP OR RESTORE. .~ /RWIND REWIND THE MAGTAPE. BEF7G7 LՀ : D%& V T   h&7 6ߓp n߳t&^  #ʔ `Z 7 h& 7 ^ ~   R ꀣw e@@ tA @ w ~~phex ̓@ p @ L ebB (%w"CY7xhLde  ߓp& w|   elh !  t E@8r>D,*@8   >@j t >Z. t E@8  >WEj  ~.@jj   @8{ ݩ p 7 ,E@8   9L NKp Fj x*_@j j  @8{ k& >T,ݩ E@8  >9L/4p 7 GH t 0* NKp  _@jORE USE. /SKIP:N SKIP ;.PAST N FILES ON MAGTAPE BEFORE USE. /.TRACK:N N IS THE NUMBER OF T_.HE FIRST 1K TRACK TO r.< DUMP OR RESTORE. /VERIFY h.b USED WITH MAGTAPE OR DISK COPY FUNC-. TIONS (ONLY) TO VP.ERIFY THE COPY. /WL WI.LL WRITE LOCK AN RK11 DISK. TELETYP.E OUTPUT MAY BE STOPPED BY TYPING CTRL. /O. ROLLIN V07 HUNG~z w!pw!redL@  \e= th׋*R* @@W 7wt  7Hwf^$ Ushr 4 N    x ́R "-v hN͕eBC 5  & ͓ N N"7  V7 Gbq [6w &O 7e: e ABCd#ed}  $ @j t JVI,E@8  V @jZ8 J J8 > ,8 O(iJ  @j8 > 쨀p lT KD t*pO(iT  @jD  Ep|LD  p.   @jD  7 f.pΫ@y 9L 99_S4 M* *@8Oi  @jNJ 7 C.@j9L 99 DEV}.FICE DT, TYPE K TO ABORT, ANYTHING ELN.lSE TO TRY AGAIN: SYNTAX ERROR, COMMANo.D IGNORED. #DISK ERROR--REQUEST K.ILLED. DISK ERROR ON UNIT --REQUEST. KILLED. THE REEL LABEL INDICATES TH.AT THE REST OF THE TAPE WAS NOT DUMPE .*D. TYPE K TO KILL REQUEST AT THIS POI.PNT, ANYTHING ELSE TO PROCEED IN FACE .vOF DANGER: LABEL INDICATES THAT THE T.APE IS OUT OF SEQUENCE. TYPE P TO PRO^.CEED, M TO MOUNfρ3h.xf 77UAh h j UAh$^ h*b px  h |:$ fρmh<f7 7> l  ߟn U@l@b$_  lx f7e~Tv$ zMYhH0MP[ ,ew  77J _S4Oi O 7 P, @j 9L zQD _@jD J QD N ,D  쨀p O(i J @jD N qrR%,Ep   r@jST"  .@j @j" O(i IqMU t &*@j  t  E@8 &"V 7 ,@j 9LzQD _6W X .T ANOTHER REEL, OR K T.O KILL REQUEST: MOUNT TAPE ON DT, TYU. PE RETURN TO CONTINUE WHEN READY.TOO .4 FEW DECTAPE UNITS WERE SPECIFIED. REQ.Z UEST KILLED. PREMATURE END-OF-FILE, . REQUEST KILLED. TAPE FULL, TYPE M TO. MOUNT ANOTHER REEL AND CONTINUE, ANYP. THING ELSE TO ABORT REQUEST: SELECT E. RROR ON MT: MAGTAPE WRITE PROTECT Eo. RROR. FATAL MAGTAPE ERROR. SPECIFI.> ED DEVICE DOES NOT EXIST. REACHED EN@. E@Lw *&f,hbW "wI 5LYP ߕ N_N vߋLCw $^ Hx W hH`aUW   4* W W W   WzE W׭Z&_ w *U@L w G7a$ MY%f"N":MP[ h zew7 ɥwx N77 E@Lw@j  Oi &@@j OiH2 Y,2 @j 9L PZ &@ &@#X 4 7 Z2 A. 4  _ @j2  쨀pO(i#l[ t [. IqM@j  t E@8 |\7 . @j9LzQD &@#]> 6 2 ,*_@j >  6 쨀p2 Ep^H,   @j@_`> 2 d D-OF-DATA ON SKIP, OPERATION KILLED. . END-OF-FILE DURING READ, TYPEMAGTAPE. FILE NAME DOES NOT MATCH SPECIFIED NAO. ME. CAN'T FIND SPECIFIED FILE ON TAP. E. NO OUTPUT FILE NAME SPECIFIED. ." MAGTAPE RECORD TOO LONG FOR BUFFER. ;.H VERIFICATION ERROR--COPY IS BAD. /VE.n RIFY IS NOT IMPLEMENTED FOR THIS COMMA. ND. STARTING VERIFICATION PASS. SE. T FORMAT ENABLING SWITCHES THEN TYPE C. R DISABLE FORMAT SWITCHES T  *&fhW "wvc 5Lsj ߕ N_N XߋL]w $^ *x W *6h 8 `7 $aUW     WW W W :hF   WzE W׭_ w *U@L vw O*G7b\^$ Lh  `@B,whw5 e  *@@j @j> 2 Epa , .   @j , E@89bcf,   @j@jj ` p ^ r ,j ` @8 Oi p ^ r h 8des.h 8@j }@jS2 :62lJ *S2J-}S2 S2  *S2 S2 7@S2 (HEN TYPE C. R STARTING RK FORMAT PASS END RK FO., RMAT PASS REQUEST KILLED ERROR DURJ.R ING FORMAT PASS - RESTART DISK NOT R,x EADY - TYPE CR TO TRY FORMAT AGAIN Z Uw hbF7 5 R1  E5~  > h7d5 7xLN  % L7 F @Z 5  6 h&>w w,  5   T5 W (E@5 5%hl7 & 5 p5 1ew  & Ew fXeŀ hR  ! 5 .S2 S2 7@8S2 IqM:6f+,S2 IqMS2 7p7%@j.F(1H0,6('* '),'FILE SIZE IS INCORREP.lCT',6(' *')/1X,2(A2,A1),'.',A2,A1,'[',.O3,',',O3,']'/1X,'SYSTEM THINKS FILE S.IZE = ',F7.0/1X,'ACTUAL FILE SIZE |$ = ',F7.0)gh@*@j@jS2 :6216 *S26-}S2 S2    n5 w  w DhL0 w)U 7 N e7 x "1W & %% |h 5 T     1  Œ % Ga      h1 Galhj<Lh,3C-0 &.^ (e ,^ H'hr?6 2  >b('&#" %%h  |5  *S2 S2 7@S2  2 .S2 S2  S22 S2^.*i(1H0,6('* '),'FILE END BLO"7@87%@j 6.PCK IS INCORRECT',6(' *')/1X,2(A2,A1),'&.v.',A2,A1,'[',O3,',',O3,']'/1X,'SYSTEM .THINKS END BLOCK = ',O6/1X,'ACTUAL END. BLOCK = ',O6/)jk3*@j "@j&S2 (:62* *S2* -}S2 S2   DE7fE fEU f EU fE h6U UEe DQ3wE@$^ 5  5 hU% (B Z%5N  N&^ UA8 ?5D N' 0A 15Oh Gb!7654 5 eGb  $ M0 r0  %h\ % 5 B7 _$ 2   xh_ E% h0 f ae4w *S2 S2 7@S2  .S2 S2 7@8S2 IqM: lC,S2 IqMS2 7p7%@j.& (1H0,6('* '),'FILE GROSSLY EXCEEDS t.L LENGTH',6(' *')/1X,2(A2,A1),'.',A2,A1.r ,'[',O3,',',O3,']'/1X,'SYSTEM THINKS LX. ENGTH = ',F7.0/1X,'ACTUAL SIZE IS = ',`  F7.0)$  " mPPP.@j  W g Nb&7 5  f$^  5&h  ~5 r5 BBe5e     >_ehBww   _e=Z("%  w   _-N  _$ | ρ6h @$ $7 !7vv@@&EP@ W@ W@u( P\\\P. S@~ a'.T`:T`: 4$& \\\\\.kv & & &pp& \\vsp.pp &@ IqM IqM IqM.: m jN gX b\ IqM IqM N X .`  \ \\\ . G@\\\s  T. \\\e dΓ hb3  ;'8 O76  ew%ߕ/h $^ $ )ɐ ǁ $^ f5ɕ h\&&M 585 U ѐB`Ѱ `L7 & $ Ӂh ($w(w7 $W!@&#5uEs5ihb  NdE` W X \\9. \\L \L C . \C  G H\&&\   . , \@ A&&+ , @ A D \G. NK #}@K}@E`rX@.f@pe@Iq@Tq%@q 5@.te @M:@@8@9L@E@8@.v@8@@@ݩ@@.+]@7@@7%@7@8@@&.@Q@@*@8@,0z@-}@.A@ ` E`  e BaE g D<7 5h&5 b#f "lf E ¥e¥ $$dh&Ed " w_ F 7 ABD5.x 5)5 h ~5j7 b"55N 7 D  MEeW N5_ _h U ^ߋ < EB g e K55 5 ON@Oi@S2@S4@.}@_@_@{@@j@u.Ϋ@@Ϋ@y@@ @@y.je;@(^ NKhZv(W@( .<h( u~h( S@~( {D(a'.(.]d( :62((T`:(_v( ~.4R(4(kv( &( 4(.pp(%((&@(S4(TT(IqM(  $7 NKM.ON@Q@jAݩOi :Nx &?7 >#9$ Ӂh ($w(w7 $W!@&#5uEs5ihb  NdE` W X  ` E`  e BaE g D<7 5h&5 b#f "lf E ¥e¥ $$nh&Ed " w_ F 7 ABD5p,@j Oi @j9Lpe07 Lk. {D_ S4 Ϋ@yL{@P{(Ϋ@P 9L E`rX {DuR7 v,  _@jvh`  !".`  @j@j@j~7 4,9LIq % _#f$.@j .x 5)5 h ~5j7 b"55N 7 D  MEeW N5_ _h U ^ߋ < EB g e K55 5  :Nx &7 ~#$ Kρ`"  ~  f\$ dρE$  ~  M`$ $f@j8%&&.@j  v@8Oi@jv']*@j { Ϋ@9L^ 7 (*q 5 _@j{7 ),Ϋ@9L K}_@jq *i, v@8 Oi @j ,E@8   E@8*@89"+$ .Ijh & peJ 6e D% UN @@$  K@   hb0 E d  R  eʋl  5@f!h^fMUDe"@  H P  @`$    eee J- 4h&)  e d%   e& e  C, 2 (( +e%h $)  Q$fQ$f ( & $ $  " @j$@8( ,F^Ze,Oi @j F^Z<b-".7 y,b@j  "@j9LTq%ZR/0F1._@j } @jF@j)f2,?*@j, { ݩv@8?v436*Oi4@j 6{ݩ4>4@*Oi>@j @{ݩ H5J ea(eh B  er hR z KEewE-> 7    ej, jL& 0f ehPe^ ~ e&ߓpe6P 5@w%V5wʋ5 5hE ~ wU@fE@@ʋE 5feE@wjeW$AhB QfU%AAaW %e&&E@ehf h EB &pehv ! (Mq*OiH@j J{ݩ R6.OiR@j {Ϋ@$7 (*${ Ϋ@ 9LM:7T$._@j T {Ϋ@$E7 ,{Ϋ@  9Lte _8T.@j T @8{ݩl9,E@8   l@j peR#w wfW;A! A5 W#JOW#FI0 ih-feT  fBѕ$ weHeGҕ ҕ W#AS4 eR#"eR f w(h:& 5e4 X  e  wQ$  \ Nv @ 5E hw w  . w E $&& &  ( U `̵@!h$^ r&ŀe 2& NN`# ^R BAGECHFIJOLORU  G HW#JO Nh`0*S2 :62S2 0 -}7%.(:l(1H0,6('* '),'THIS CIL IS HOOKP@j l.NED TO THE BOOTSTRAP',6(' *')/);<"@j&@jyt.S2 :62S2  -}S24U,S2S2 7@S24S2>HRX*>S2H S2 RS27@8.=x(1X,/'* CIL CREATION TIME - 7%@j  x.',5A2,/' FffA!N ,lJ X  " w&e:'7 0ߓp | Ph  wx7 7 &e # `%TI%NE%LOU   w6Uv h$  e,A:he e:  LfNUMe :  z<  h >` X eh B & NN`ee cf cfcc$$Bc   5ih  >  e4  ,e $     ]n 4 4 0d * CIL CREATION DATE - ',4A2,A1.,/'* BLOCK SIZE - 'I5,'.',/'* S.IZE OF CIL - ',I5,'.',/'* BLOCKS.> USED IN CIL- ',I5,'.',/'* MODULES IN .dCIL - ',I5,'.',/)>$\?,@j$Oi \"@j&9L(Iq7 @* %  _@jfAB.  f@j@j\ 7 3.{ Ϋ@ 9Lq 5 %  hJV  w ^  % > z   eL eR w6 w4 h  ff f%5  6 &f" &" &h" e< %%wz $  et X D  eUhp4  x& Da(t $  v fQ$ tw&   kh ^ UEI1 K , .et C*_@j  {Ϋ@7 D I*9LK} _@j Eb*v@8Oi @jE@8 ^F$.    ^@j$rG,E@8   r@j"27 Q*{ Ϋ@ 29Lf6*\RH._* \ R@jS2?t   f E>h4  Ae"$   U wH% lft ( nee . :ih U wl e  e  x4     wf7  4(wh Eee  f"fe" Q$% ff"7 ` & e  `%TI B hZ t%NLo  2 hJ *   b e n R 9 45U f  h jh  U&7 E67  -n  UHzI* :62S2z -}7%@jZ^JzY.^@j S2 :62S2z9jK(' ')&-} 7% @jL*@j { Ϋ@9L{7 M,f _@jS2 :62S2zN^O,z-} 7%@j^@j].S2 :62S2  -}S2 e r  f  v &h 5  T  F 4   w w2 e& ee 5 7 c #~ | :h N@e  @e,PHwee  @e. fN e `ee 8h U0 &e2&E2 e e  ew e`RhX A!ʕ eve6eL7 De4. eL/E -.P(1X,'INIT ERROR IN LST(S27@8 7% @jLDA,INDEX = ',I5) QR8,@j} @jS2 :62S2.&SL(5X,'OPEN FAILURE, F&&-} 7%@jL.:ILE IS PROTECTED')T7 U*@j9LTq%"_$@j(}`V*@jS2 :62 S2-}rW,.S2S2  wh  EU E& Ne&& ee *Be  $)h $ee& Neeen&e &ee6e /h~ e& 6eUU@& Ne eYыW W & eeah we D f#>"7W!4J,, " U@W7 hB% 0p * e04 w&&  7@87%@j.(1X,'OPEN ERROR IN LSTLDA,INDEX = ', 9 I5) 6X7 Y;*@j9L Tq%_@j}dZ*@jS2 :62 S2-}.[(1X,'UNRECOGNIZED OPEN ERROR7%@j  u* FROM OPENFB')\7 ][*@j9L #}_ @j$S22^** :62S22 -}7%@j+.R(1X,'U  UE 0h$&& `̵@ wff^A-v eeL  *eh@ ŌD((IJ v   U%  v  E7  Bphh 7 8h   t DU&&7 >E ew4 7 x ;hv VE@ D &  4-(U5U5 U eee   Uh, veew& 4  5 dNEXPECTED EOF IN LSTLDA')gRRR_7 `*@j9L Tq%_@j}dfa*@jS2 :62 S2-}.xb(1X,'*** READ ERROR FROM FIL7%@j  .E IN LSTLDA ***'/)c7 d%*@j9LTq%"_$@j(}e*@jS2 :62 S2-}.f(1X,'UNRECOGNIZED RETURN ERR7%@j   Xw Ee  &  8    he&ef e@&&  ev  7 % 0p qhLH  eze8 RwB r  5 ~/\vb ' r' &  &hd&%  jV0 ew  < peV04 whee%zAB I#  % Bff& f nOR FROM READFB'/) g7 h*@j9L Tq%_@j}d"i> *@jS2 :62 S2>-}9)4jV(1X,'COMD DATA ERROR'/)G 7%@j  VVVkl7 .@j  @j9LTq%_lmn,@j} @jS2 :62S2.|o(1X,'COMD ERROR WITHe&-} 7%@ja( wֵ fh(@e@d7 nev 6e-7 \ 4      5Ueh& `& `  @ wU v w e   (W!DUeeh& t -  4 WPWRWLWAI hNf" " % `U&&e wpK@h IN A CIL'/) 4(p^f\PPPc.@j ^ u~h S@~ 4D.Pd\\\\; % S4&.\\\\\.\\\ \ -&@ \ \\].f#p@p@te @d.M:@쨀>@9L@@+]@.7@@7%@7@8@@Q@,0z@.-}@ON@Oi@S2zzhzzz  $ ^C . DATE:- /tTIME:- PLEASE LOG IN <2EEhh EeRRRR J%  22 2    2 GGh&USw& E p 4,0   2% e 0h,@S4@1.U@}@_@{@@j@.Ϋ@@@je;@(fh.Zv(W@( <h( u~h( S@~( C.{D(a'.(]d( :62((.T`:(_v( 4R(4(kv(. &( 4(pp(%((.&@(S4(T(IqM( ,7 f.,ON@Q@j쨀>"@j&.&$,>&.Oi, 00 0 & 0"U%G    #c8vfhcD  fNUVU00%%% p b $^ &&Fe E]e( &^ & ݁ "u6:*2Th KI :w&l@XD Ý@Ì̵ f(̵e%hD  C3!!F"@j >&{U64,<( Hx,4, < (@jH{H^.`,Ϋ@^ . {Ϋ@`z X7 !P,9Lp_@jP{pX.Ϋ@X { Ϋ@9L 7 "6,p_@j6{Ϋ@ .7 ~..{  Ϋ@9Lp'#`%L-H C "D & 7PLb`$^T Pĝ@5@$5Ee@ ы&^ '*#$:*  -&fhZ & e`feDˋ ` je `$X &  h, %  e- A `w w~wwwwwww Eh weTyL$)Ce K  N  S KX._@j ` {Ϋ@X7 ,{Ϋ@  9Lp_}$h.k.@jh { Ϋ@.{ 7 %,Ϋ@ 9L M:_@jyp.,p{ Ϋ@ .{ 7 &x,Ϋ@9L te _@jx*847 .{Ϋ@ 8 9LEH&5 h f f    ^ v  C` F ^  |  J   bQh  ,  ׯ,     ׀ 7`     f hDW.f V 'wkQr f& "e %u#U%(kQ4d 7V7Nh   & ) TO ԕ ԕ 77&     ̕<ׯh<7 7 ׯ 7 7 wf r  2#p4@'(_S4Oi  @jS2N. :62S2 -}S2S2``*S2 S2 S27@p(.S2S2 7@87%@j.(3X,'.TITLE /',6A1,'/'1X,'.IDENT /', .6A1,'/'1X,'TIME-',8A1,1X,'DATE-',9A1,1X,'SIZE-',I6,'. WDS')L )P@&@j}& 0Z 9A xhj e7* ̋    6 , & ] <ph    &   7e 6  fh. t   A f P M R|ҕSҕYҕ:   rhf  W: Ҕ  eeeBe    @@@ n&.&\\\ \ .L\\\ \  \ r \ \.|&]o'` @j8v@9L@.E@8@@ݩ@ݩ@:@b.@Q@,0z@A@ON@Of@J.O(i@S4@S4@}@b@._@p@@j@Ϋ(d@@ & @(|&]h :9MACROkQrE,I/CR,ݩE@8  > <N7 x,@j Ϋ(dN9Lj8v_T&,S4:b  pO(ib|O,@j Of }@jΫ(d|v7 s.9Lo'` _S4O(i@jy:*Of} @jO(i. \\Hv @j Of }+H&&\Z .ZI9o'` @99@xQ@r.PZ@[@j@@8@쨀p@-.@8@9L@E@8@Ep@c]@.vp@@@@ݩ@.+]@7%@7@8@7p@:@.@Ԫp@ @Q@@*@8@.,0z@-}@ON@Ohe@Oi@;.O(i@S2@S4@S4@S4@[.U@}@_@_@@8@.p@{@@j@Ϋ@@Ϋ@y@.@ @je;@( ZI9h.Zv(W@( <h( u~h( S@~( C.{D(a'.(]d( :62((.T`:(_v( 4R(4(kv(. &( 4(pp(%((.&@(S4(T(IqM(  $7 ZI9 !,ON@Q@j Oi @jP "  #. Oi  @j Oi @jz0  $ . Oi  @j  E@8BJ%. J  @jS2 :62M.Rf&(1H1,6('* '),'MAP ,S2f-}7%@j.xVERIFICATION',6(' *')//)'(@j @j$9L&PZ#  7 ) f. {D 4R   _@j N *H*{ ݩ Oi 4@j+, * , $ >.@j,  Oi * @j $ {  * 4 -, U   * 4 @j *.  E@8  *. 6 / .@j  Oi 6 @j { L,Ϋ@9L PZ 4 kv 7 0   . _ @j  @8Oi ,18 @ *@j8  { ݩOi@ <28 B *@j8  { ݩB @8ZL3 .Oi ]d@j  E@8 \dp4|. d p @jS2 :62Pl P J .S2-} OheP J {6  P H . S4S2 7@8 P H .|5,(1H0,6('* '),'MAP HEADER I |7%@j ,.NFORMATION',6(' *')/' LINK = ',O6,/' M.AP NUMBER = ',I2,'.',/' WORDS IN MAP =?. ',I3,'.',/' LINK TO FIRST MAP = ',O6/t *) ,,6f, .@jS2 :62 S2f-}, @P J *OheP J  { S4S2TP P D,7@8  P ]dD7%&^7p(8(2X,O6))89, ,@j p@j@j,  Oi`|X : 7 b,X @j 9L xQ _S4p` ;R Z .Oi` @j R { ݩZ Q<X,E@8   @jQ b w. b E@8  B=*@jS2 :62 S2-}~ X ` ,*S2 S2 X  S2` S2!R ,7@8R {  S4S27@8.>(1H0,6('* '),'MAP VERIFICATI7%@j  .ON ERROR',6(' *')/1X,'MAP NUMBER = ',I .@3,'. ,WORD NUMBER = ',I3,'.'/1X,'RECON.fSTRUCTED ENTRY = ',O6/1X,'SYSTEM ENTRYN = ',O6) J? 7 R B,@j9L xQ _S4R p j @,{ ݩ *@8 Oij @j 7 ,9L%xQ  _S4Ϋ@yj 7 r ,9Lj j _S4Oir |AR n*@jR  { Ϋ@9Lj 7 z Bd,jj _S4Oiz @j` * C$ X. Oi*  @j$ { ݩ7 l 2#*l @8  E@8  2.dD  .d@j  { ݩ @L7 ).@8Ϋ@yL 9L o'` _S4V8 f7 *8 {  Ϋ@ f9Lo'` j~ ,_S4~  Ԫp ԪpO(i xER , *@jR  ,  @8Ϋ@y9L!7 ~ ,o'`  _S4~ Ԫp 쨀pv* 7 6,9Lo'`  * _S4쨀p  F *pO(i  @j  EpCG - .   @j  7 .pΫ@y 9L 99_S4q H3* *@8Oi  @jI 7 q.@j9L 99 _S4Oia  JK8F. @j @jS2 :62S28 L.-} S2 S27@87%@j.4V(1X,'LOST BLOCK NUMBER = ',O6)MV&@jDT\DT\&&\ $   v\H  G @  .9 $ B \\\` .\\\\\: .\\\@\ .U\\\\1Z  N .  @8 Oi @j l* | O * P,* |  @j Oi* @j$ t .$ {  ݩ t @8 E@8Q d*   @j   *{ ݩ   @8Ϋ@y97 8 ,9Lo'` _S48 { &7 ~ y,Ϋ@9L o'` _S .4  TMIq MIq *\Pl \ru .I44R v_ :T` :T`.y\PP\\ &J62:.a'D{ }@j*\\\y "( &@j"@j@j"m xwv/)Y'ELATDIMEIMD TEECRRj .COE B/'D'ULHO SND AONTIDION CUSIOER SD . AISS HI T/'') *(',6.'KSOCBLD TECALOAL .   @j%7Y PLTIUL M'.5,,I')* (',6H054~  RR , 9*ԪpԪpO(i  @jR , 7 .@8Ϋ@y 9L o'` _S4~ * 7 *~ Ԫp  쨀p 9Lo'` *  U,_S4쨀p  pO(i S 2*@j   Ep 2U.bT F.b@j  pΫ@yF@7  .9L99_S4(1 u ._@872ST 2S }- * 2S62: 2S @j%7@87,t 2ST 2S}- 2S* 62: 2S@j    .]s (@8E& $ "@j  r')CHEAS RDWO. ,'I6',, KSOC .BL' 0,7.,F ' =ZESIE IL FGERAVE A/'0,7.j .,F ' =EDUSS CKLO BOFR BEUM N/'0,7.,F 'D .   @j%79 *@8:V UxVu,O(i @j x@j9Lh 7 W8,99  _S4Oi @j|X`*@jS2 :62 S2-} Y;.S2 S2 7@87%@j.(1X,'FREE BLOCK NUMBER = ',O6)Z $@j(  [ * Z. @8Oi  @j * z| |\ 7 ;*| |@j =ENSES LEFIF OERMBNU,'H0(1 q . @872Svk 2S p72S, MIq 2S MIq 2SMIq * 52S}- (  2S62: 2S*( @jMIq (iOpv  @j.kp o    @8E  .(  @j@j%7@87 2S 2S.5nm  2S}-p = 9LxQ _R ]  .S4R {  U@j    X E,@8Oi    X ]d ~^ "g.~@j  E@8 "p_ =*@j  E@8.6` . 6  @j  E@8`@Jra _* J  r@j *P `6 *{ Ϋ2S 62: 2S.F pl@j( m')'.5,,I ' =STLOL TATO. ,'I5',= S CK.@j%7 @87 2S ,[LO BEEFRL TATO,'H1(1k ^.2S 2S}- p2S62: . pL2S@j  F ,jF<@8E @8   @j@j* ih*@j.a' iO @j.Eg f@ ` 9L[6 b 7 bc. kv  _ @j@jv*S2 :62S2  -}S2d, TS2 7@8 7%@jS2&, :62S2 -}S2 T.e(1H0,6('* '),I5,'. MULF(S27@8 7% @j.TIPLY ALLOCATTED BLOCKS SEEN'/' MAP FI-XING WILL NOT BE ATTEMPTED',6(' *')/)