IMD 1.17: 24/11/2010 19:26:33 08 rt-11 version 2     A AV?ŗo H> zCFfA  E RT-11/85A SJ V02C-02H M01B-02 et@```6 v_H-&fv   !w J   @ .ߋtv 7 ?B NSF M BA &  %C e 7 ?B I0ERR **&fE Uz5tvfE Eɕ -PBE~Е  @& e  J@ `T HT_z 8vK_7 >7 V e  @B5 C%SCE& e0~5 &&e   EPe@  UfE %r; %z` (%n %%z 5lem:.7 ?B NOT SYS DISK!  ~ wJɕw:"ߋtvB_>>< (&&22 *,**>> "2*&" >" >"  ">> "8""> """"""< >> " ":*:"">"""""""""""""">>>"2""""">"""8 "  ">"6**""""&&*22"""""""""""*,"" "< >""""""""""""""**6""""""""&B  ,B B wf `e R"tCeetHa a adF a> > 8 8*> <"<&""<< ,2""<"<$,0] t?a !aW,n`p %e 8?ae?w|N P $N,2""< &""" " " **""&""""""&""""2, &<R ,04@>>>C8E:E>E@EBEFEHE>r?>@&A>*UUUUUUUUUw Ŋw C! @ D~̋   w&w=#MAPOFF>#SYUNIT?#. Sr;z.e#nz/ z.}vkQrv.%v.vLDv.xev.` DD 0~e~ >b@ Atv.Udv.t^^ .,`v%/MzM^{}%<R\?vR\?[F&f@^ f@v}}' ""ADvhAD}hf@') #w!<(: "vr: "vr: "vr: "vr: "vr: "vrpxkQ"pxkQ"pxkQ"pxkQ"pxkQ"kQrkQ Uq`kQ ^kQc.^kQc.EkQ!c.iTXvc.Q`c.:T,`c.Q$:T c.Q$:T c.Q$:gS c.Q$:hS c.Q$:v c.%$:z c._xe^ c.?gd^c.@gd^c.Agd^c.Q`c. % c.%fv c.%v c.>>C8E:E>E@EBEFEHE>r?>@&A#SYUNIT?#. b,e 6e  %e& e7v?ILL DEV?'((U  $)  `ee& dG F  EE ` ؁  RUREG E D BTSERNI<u~vK YM|.wbjT^%%W&&'''()`!  ae``````` `1`d`wt ? ? ,0 < EP$7 (, 3 v3 3 ~3 L37  ,E$7eC5$w x .H @@  #%  +C!CA Ջ e R l*A .  e$ "7 < 7?ILL CMD?鈇o& ee(  E e% 7?ER RD OVLY? A K E E ͥ- 㺇 e l B @   A AV?ŗo H> zCFfA  E RT-11/85 SJ V02C-02H M01B-02 @ ؁  B^ eE͋=,e    : x , enEO e  ߋtv 7 ?B NSF M BA &  %C e 7 ?B I0ERR  $5 7 EBc7?ADDR?O e @ z %zO: ( 4   5$,  @& e  J@ `T HT_Hz 8vK_7 >7 V e  @B5 C%S( ""@5@ A ej  %@Ae Fuu| 7?FIL NOT FND?7?SV FIL I/O ER?w5 $ OCK 6 E.NAME = 2 ;FILNAM.EXT STARTS AT WORD 2 E.LENG = 10 ;SIZE OF HOLE ALLOCATED E.USED = 12 ;HIGHEST BLOc.%v c.D$CeK   baba& Nw^ e 7@Ŋ`EP$7 (, 3 v3 3 ~3 L37  ,E$7eC5$w x .H & *J E%=%< D  "% %  p"B  >'  7  @@  #%  +C!CA Ջ e R l*A .  e$ "7 < e  O  $e d W&E77   `B7?DEV FUL?e " 6  7?ILL CMD?鈇o& ee(  E e% 7?ER RD OVLY? A K E E ͥ 0`*7?FIL NOT FND?5 W,W=͋=7?ILL CMD?7z?ILL DEV?5 & W/@` W!- 㺇 e l B @ @ ؁  B^ eE͋=,e    : xW:@ 8& U& Uef \* e w& e∩  , enEO e  $5 7 EBc7?ADDR?O e @ z %Sw I3W2WlA Ew C $ A#EE P &EΒE? >#:?2w W[ W]  @W: 0$W. eR& &$ >W*@ "  @ dlV^..W..0 0044000OCK 6 E.NAME = 2 ;FILNAM.EXT STARTS AT WORD 2 E.LENG = 10 THE MAXIMUM HANDLER SIZE MAXSYH = 0 ;MAXSYH CONTAINS THE MAXIMUM SYS HANDLER SIZE HSIZE TT,500 HSIZE RK,342,SYS HSIZE ;SIZE OF HOLE ALLOCATED E.USED = 12 ;HIGHEST BLOCK WRITTEN (NOW 0) E.CHAN = 12 ;WHILE TENTATIVE, HOLDS CHANNEL NUMBER E.JNUDP,434,SYS HSIZE RF,270,SYS HSIZE PR,174 HSIZE PP,132 HSIZE MT,4300 HSIZE MM,4700 HSIZE LP,306 HSIZE DT,322,SYS zO: ( 4   5$,( ""@5@ A ej  %@Ae Fuu| 7M = 13 ;FOR BF, HOLDS JOB NUM E.DATE = 14 ;CREATION DATE L.ENTR = 16 ;LENGTH OF DIR ENTRY ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;?FIL NOT FND?7?SV FIL I/O ER?w5 $ 2  8g e6E (7?OVR COR?  E $  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; THE ONLY DEVICES BESIDES THE SYSTEM DEVICE WHICH ARE ASSUMED ; TO BE PRESENT ARE THE :  <  @  ef D!%  R`W!&&   eR f . TTY AND THE LINE-FREQUENCY CLOCK ; DEFINITIONS OF TTY STATUS WORDS: ; TKS = 177560 ;READER STATUS TKB = 177562 ;READER BUFF  & f& 懇? cef `% 7?SY I/O ER?  W ,,e ER TPS = 177564 ;PUNCH STATUS TPB = 177566 ;PUNCH BUFFER V.TKB = 60 ;KEYBOARD VECTOR V.TPS = 64 ;PRINTER VECTOR V.FPP = 2(wvd@7$e   e7B?FILE?r ? & f,e $&EΔNIQ%Ό%44 ;FPP AND FIS VECTOR .IF EQ BF TTYIN = 82. ;82 CHARACTER INPUT RING TTYOUT = 32. ;32 CHARACTER OUTPUT RING .IFF TTYIN @ 2EQU E`H#Hee&b,e 6e  %e& e Mf,!e4 Qa ew* wRw$ ew  ? "  e< aAa@C @ @E7v?ILL DEV?'((U  EE ` ؁  RUREG E D BTSERNI<u~vK YM| $ HT_n|?M-ILL USR ?M-NO DEV ?M-DIR IO ERR ?M-BAD FETCH ?M-OVLY ERR ?M-DIR OVFLO ?M-ILL ADDR ?M-I.wbjT^%%W&&'''()O ER?  W ,,e (pewvLL CHAN ?M-ILL EMT ?M-TRAP TO 4 ?M-TRAP TO 10 ?M-FP TRAP : 6 $D DeC B`  ewD@7$   k7@?FILE? ewTq~ ? & f,e $&EΔNIQ%Ό%@ 2,rp e wIN THE SYSTEM ; HANDLERS WHICH ARE VALID SYSTEM DEVICES MUST HAVE TYPE 'SYS' ; OTHER HANDLERS FROM WHICH PROGRAMEQU E`H#Hee2b,e (e  %e& e7h?ILLS CAN BE RUN MUST HAVE TYPE 'RUN' .MACRO HSIZE HAN,BYT,TYPE HAN'SIZE = BYT .IF NB TYPE .IIF GT BYT-MAXHAN, MAXHAN = BYT .EN DEV?'((U  EE ` ؁  RUREG E D BTSERNI<u~vK YM|.we(zsDC .IF IDN , .GLOBL HAN'SIZE .IIF GT BYT-MAXSYH, MAXSYH = BYT .ENDC .ENDM HSIZE MAXHAN = 0 ;MAXHAN CONTAINS  EE P &EΒE? >#:?2w *eD e& &Ne$e E & eR& &$ >W*@ "  @:e e W a `  (  && e& ~ee ?  w &fm ~? bWW B abJFw? ? a@w 7R& 0w  7 &w ^w  Be$B  wdQ$m(w   K5$w $!5@  e<NSSewN  U7 ͆ 7 7  w ~w wjeRr H"2  XI$QIeFU@( : t T8p~Dw d4.7 v7 tw * 7e`w @%1@% @#eee%7`p 7 w    @|` @B@>D$CeK   baba& Ne# / wxEK]w d ؇f  w 0 E0w!z 5 1   $w^ e 7@Ŋ` & *J E%=%< D  "%ZX w 6    < w  h  `5El $f w   $PPw  %  p"B  >'  7 e  O  $e d W&E77 w  w  pw  ? we`EW2El  7 PFaP=7 B*#7D 2a,  `B7?DEV FUL?e " 6  0`*7?FIL NOT FND?5 W,W=͋=7?ILL CMD?7`e# B#e`#w *ed%   . b$ `w#   7 "3 fz?ILL DEV?5 & W/@` W!W:@ 8& U& Uef \7 Kaes S w b 5Sw I3W2Wl Ew C $ A#* e w& e∩ W[ W]  @W: 0$W.  (2 "b&8$ **w w 7 5 : 6e PH-  j $7 ^ LeH !   > j $7 7 R . "&U$.5$ $͋ e q"R@  ͊ U wN E$ee)U%Me- JĔ NĔ F&f&I e`  &e@^we3 D r7 edF7 7 ^ee J&Z v$H $ ( Xe6@'( EM( > U%e 2(rhw7 I&e B& 7&  TT L4L4f x "U$7  7  "7 5z7 E$(7  *U$5$Aw& f & T  w54B  e  L$  w E e>& bE[5@$ a zE ee `}~, , , ,    % W# % * *  wߋ$ɀ *U  P5$ .~)Q u#R  5$  <4  7  t w f 3   ˵'ӵU$ aC  `  7Bw~7* gU? |x 2@x .6& < &  x|7 v? @     D P7 ĥ   L 5z 7  b5@ 7RB t :% eC % C ```   5@fd u#eR LELELEEEEEA|$EQ]$TfA e̋̋ 6@XU@D`J 67 055n @e,}7 zz n8rpqff`TM HS E @   p?xJ$l|X5@&% +_ * %& D \!$bEeT% * ">Ew  D eEE e @O e.7  @ &>4 u# W%*L# E  ?\#  4IL@N  7?ť&6  fe  amxagjbd`Vp0t% 4  .?0 $ ̗/ ? % &čDE Ea5% (7 |5"5 E Eaex QN D   &7 T $uFD*eaU6  ) 2@"  l 5 L E E 7  s!5s  ENEae E % _ *%@ *^%ZAw5@xZA^V%&f&   ac φe`B! ˋ  w  5E R !&5  5  7   7 7 w X ( 7 >w| EaB, Q$W 8', $)  6`6`? ͋wxwe@pEg,e8&f& ㈄ e !ꈇ )1 ĕ^ $  Lcĥ    U C 7 7 ew VeD ,e5 e %_%^_w  e5 H(P͋ͥ/@:ͥ! e,  Ce1%R ZHp5E   e T%L%)&Nef 6e *o tL wD# F < ! eH w.7?DAT? ””#e,e Y5 2t2.e" )$ & >Ĕ!9S͋5 eA ĒEE(*11& d`e ? H-@ # 3c B `A `, p&  7 d<@&7 V<  0:7F?TIM?7  6 0 \7 6WJE n D7 >4HՐ -$ -   #̋ 7̋4 Fe bw  (7?M-SWAP ERRwH | (R & w *ew wx "J - # 3c ^  - D @&c%Lbt H&&D B· D 6Ƈ:%7 X "7 J7&, w ׭whE 7t&b%0c0V%P4H@ `e t7f, 2" W-(7 0 %D !*'  < 5U@<J  E$     7 7  L  >7 !ׯEA,%0 MOVB #9.,1(0) .ENDC .IF NB .CHAN MOVB .CHAN,(0) .ENDC .IF NB .BLK MOV .BLK,2.(0) .ENDC .IF NB .BUFF   6 &  5 - w!JJ& 0֥  5 7 - +U E `    ͋D 5|w 5B j  5 H 4f!E%%%%% 7V ^7 V  7K 7=78 B(f,EAW#D  7W ΁?w w 2 , D 5N5&@  .@ S~ e-    w5@E PP J< 47a7a7aT7a7a7a7a7a7awb.5) 5|w 77 D  "- "UpE@ e7a`m, be&` ee wD1 w:1B*e@eAf .,}  e U@ % eC ~ 6 w`& w   $)& E%I р v < w , e R% C ``` ec^6 PC = %7 ;SYSTEM EQUATES SBLOCK = 494. SYSTAT = 102023 PR7 = 340 SYINPR = es5  Me   ( e&"x U@f&e _*a @E @( & :d4 y}@7 QXMULT.SYS REV C 29-NOV-76 USE IS LICENSED BY TERAK CORPORATION>.e&c    e2  ec 4 e&c 7 CB4DE!W75  7)aeND A  a  w@L̟\e&,n%   l^@  7  H&    "  $ wr   aw7e<wvP@P7r@eI70@wM)w 2z 7 , ßB* U 7 7 e , MOV .CHAN,-(6.) EMT ^O<220+.AREA> .IFF .IF NB .AREA MOV .AR  CT#TTA  l   0 ,,^ `,} "  U# "5,U@#D  " "U#@!:x" #΋35# `"%5^"" #5^"爃E ? b 9 ? ^ 7L!7 wpOt! #7^"#  D!Bҕ v"D! Xt! #! # v"N?<D! %t!#5^" F!  #5%ILL PUT IT ; IN SW MODE AGA"`z$Trt^" M! 5?ʕ'5@ʕG D!"H H5^"<"ҕ "D! T! #BD! X? 5$^" v\`lpTz ; BLOCK NUMBER %   &U $,@(* W < n " ""#EB!_ ы #R"W" W!:/W!=_ 6_ )"  5%& _ *zz ""戃@&& Η*爀 _ҕ ҕ  U0__e__ U._e__ e_e<__x?BSW??NIF? 4 t!  B!   *   t! R R  t!  _f!!**?CORE?  5,   4U E ,   v " f  7 #  rf & f   r>wZ Xf Sfwheb f&  c  v   S5,?ODF?e0?I/O ERROR ON CHANNEL ?A Ed pp p r lw ,  f  ~ 5,ŔE RW W{pU, W xW W W  ffewZwX f,5f 8  ( " * $V @ 7 7 ? E ,we&& l4O 4 ߋ*U,U, ,%B  v _plOp 5 5  5 UEA f   eww  1  !ߋ.U5.ex"  ! t b  6 " 2!"`"" " ",^ ` 7 (J%P?: %$D?w %n%w? ` h ZBlRE " @! "t! #! #  "D` W! W! W!  "RE@5@ JU #t!"$ "_d    IN MACRORBVI>UMNSGFPW0W9DE  ea 5e  WE<  !!n!!~mr~b m`r=mTXPmP F6      ( [ NI! 84V' 2#e@ 2 x !*WM L \  :  * * x W!W! wU%w-e@   J w&  WaWz .7}) WDvp w d`p nd Ҕ  @LL@>:,w7   #D%%~x` 7X7n7l7X7h\7aX 8V } *2!&  P 7 %   7aw & 7a7aU#  W!= W!:"6" '".4D"5 "EU P"5'"ʧ"  @!5 U#U5   p w77 !- !/+ w~ 7 w7qw 7fU#F8U#"#_ ""ff5@#:D5#U&4EU_"F ""U#" " * 7 m &\ 7 :}7~47  : (ă    55 U#5 # &  ^#2E_# & f  AfE,  Ί  1P  @ ! ǂ 2F * CB ALMOST FULL *  #   ~! wRwE%P%E% 5E׭4  & *  ˋ  & (  7^ w  \ w VRmLJB W W} W~ы , 77- -   4 $ ^U@  m7! 7!  w w﷊z 7!  7! "<>" ERRILL ARGILL CMDCB FULLNO ROOMSRCH FAILILL MACEOFHDW ERRFILE FULLILL DEVFILE NOT FNDNO FILEDIR FULLILL NAME 7!݆    NJNmND7!T e7&7     6 $   JU0$w   L  B 7` t 7  T5 $j ($5L5T54T5 $ߋZ5\5@@5X 5 j5*4R55@5R5 +$ j%z "5  t `  t j`f\7鷊 &R @% @3 :, "5ɥa ҕ R5 " j5 " + j%ҕ 5 ҕ 5  *4 $*4 "45 P@P X7 7 v B  lh`"\TjPf-@%?8 45, - %  n+ +u ,  ׍5 %@  @@`@%@@ @t@ @vD D J e et    t NL!  N 2 S R J Y    v @@ @ @P @ 0 eo r E ` =z 7a7a7a7a7aP7a7a7ay7a `w ovt P;  `w    - ∷ "&7 & "7 &  .%  % %@ % @  ~@r~@~%@\!Pz J{777-: -2     "    %z)&z'Kz( z42}s: s: :@@AK@K &@K8@K09@KK@KK@  75 @z  Z  7 77 j bK@K@K@Kf@KK zQD @R@@R@8@ @RvS@S%@SS @pTpT@8l   +{  N F7 &淊  |  e  <7fg  T Z{7D 爇 wH @MF&C  vz 7tllhbb TJ7F@ Ce8C  ы *    c  ' 5 HDnFB  p@@! %" " d"$ j7&,z ~-m ӕ<(   n"_!" %#"d"^" n"j"_"_2!# %"#& j5 +&j55EEUQa j55 ! +鈇V02-12CU@$E@$v ^   ' L?OVR COR? & . 7 -5@5ŧ5E5U5E4U44 ! $ ($ j5 + 5 |+ 3 X$_0, &35 :,  A0l|X$5@$% +_ * %& ,ff 5  *%"&  * C C 7| ?M-ILL NO DEVDIR IO ERRBAD FETCHOVLY ERRDIR OILL ADDRILL CHANILL EMTTRAP TO 4TRAP TO 10FP TRAPЋ D~~~@#-(w[M y%` QQR RK-[z =%  D @ @eY= e7 w BaeC C ߐ*Uv  m?M-DIRR G @G&+=&-&*&/&&&!&+V(-^("`('z(%(<(^(C(D(O(B(F UNSAFEH Ef&f&  D eEEZBl   @@@@@@@@@@@@@@@@@@@@@@@@@@ > T   aE w   f &U $,@(~|  W ~v& _> * !l  !f Jvp@Qd @@C DELN6 %) &   r2  | fU _l e_n e_F e<__ F ?BAD SWI2Uprtv:D~V<?302TCH? C 5 5@6& C 5 5& Z  $6# R| F ?NO INPUT FILE?| ~ $$CHEz" p F D ,fA A A E N%ҕ-Ee <,ҕ-EeH N% ,<5z 8rpqff`TM HS  @   fM6]T 2 : : & f : f : RRҕ:   @ E C! eŋe:/<,4 <,3 N% BE0EBDDD<,  N% <,,4 $ $ ` `,4 ` | .@ $ T1  5B5D ERRORS DETECTED: FREE CORE: . WORDS RT-11 MACRO VM02-12 LATER MOV R0,RDDEEED 2 COPIES OF LSq  4    _ !!  F ?INSUFFICIENT CORE?  5N FOR MAPPER MOV R0,R4 CLR R0 ;IN B> I:DA|0E]]$`r p   F D p U   8f   ,E f[    <,3 $?# l5 #5$B5  +5 553 5H H5B5  N%4ʕ 4ҕ 46555  ( .+ ߗ35U 5 ~+ J,55 0,_*  5 55N5 ,55 6, .+ 4,_~+B5  ҕ 865B5  5?ҕ'5@Gҕ  l5 #$6E 32ы $6R@ () )  $  " _"35 2* (U$6555 *4ҕ  J W! U ҋ .*ҕ  <, <,45)5 5h5 J,5W6? (W!:cW!=_| l* J,_- b* J,_ V)W!$ *W!: 5 65U 3 R9 .* 55 B5.ߋ\5+3 <, * ")55 -5   $   &e0J   " eb f&  c   T \  S5 F ?OUTPUT DEVICE FULL?p e0F ?I$6 v*@ *<5 2, 5U,6 (  .*0 *W!= W!: * b*5 '57 /O ERROR ON CHANNEL ? ,E  f f  5 ŔE RW W{pZU W xfW * X* D, + *5 5EU P55'5ʧ5  35 U$6U5U$6 ~+ U$6526_ *W W  ff&& lp  O ߋ*U U f%B  5ff '5@$6! +5$6U& X*EU_" ~+ 55U$6 D,5 555 U$6 _Lplp Op 3E~~H3~d313 3ߋ U5 e\5  3     5 (6 &  ^<6 "_G6E_&6 & f  AfE ) _G6 Ί R31P R3@E%P5 , 35`55 5 5 5 3 5,4.6406  +D` W! W! W!  "6 5RE@ 5@%E% 5E%pE%E%% A A 5U$6 ('5U$6E 'ߧ555 5 N5e JU $6ߗt435N5t4,45 * 5_ 5 "6  5  P5nD zz5  U$6E +& % (6   + " "    (' ('0U  t U$6 55 U@$6fD r 5  -ft5  'n5v5  ⋁_z5U,6$6@ , + D6& D @*2H U$6U% &6  'UHW!( fU E jW!+ *U;5U5 * 5A 4U@$6R , , l5U$6ߗ3t43I\5 $6(΋B5,6  D545B55065B5,4* 'W!(5( 5N5UU7 5U$6Effff fPU0  " U * W!)_*U$606ߋ35B5E,67B5,6 5B5!33 <,ҕ  Z53 $,4.6406 #Z5T?#3 %,45B5a , +2 5˵@2Q˵ 1ы5, , +3˵@ Q5ыʋы & e gP355  53 g5  465B5 3 865B5 4 5?ʕ'5@ʕG 35H H5B5 N%5ҕ 53  4.6ыJ (6ԋ   4' Հ ) X*55U@5 ~+ D,U$6 % ' 5  54_2,   b b b _2, > %, .*5 *5B5_.6 @6_ )55 B >6W"* ! ! 55C 6ŀɕ? ҥ ҕ ҕ 6߄ `"t鈄   &f R%e0R&5@ %( 5  56  5B5 2606U,6U$6 ) + 5 5 )IU$6 ('C ('  %@ %!5 &  e ee e  , H'"& +R @* &E5 5 U$6 U('  ( X* J, 55@  C BW!&W!!B * C C ) @6) @6 ( + B  >6$6U&Cfffff &h5B X ,'$ ^ '  5db(5`5`ҵ@Ե@  5E SSSTPF50F5@B50 6 `D5 PB5U$6 5U,6B5H5 4,N5R5C )! + B  >6PP50P5_4'J BR&  N &@   N &  & @    &   `@  @N5 PN55 U$6546@56566586@965:6 fAʕ RfA  eH' % & '5@5  & '5`5 5 5U$65 , + r'E 55  5 D6_ * (;'5ʕ Jҋ  ߋ R F$L5 !"5  !& l5 +&l55EEUQa l55 ! + X*& J,#5U$655@LU@$6E@Fh5 J,55 2, 8U 5 b*  X*U@$6 ~+ (5 V)'U $6 l5"5 +5 &5 +U$6U$6 % % ,' ` EU5 5 % ,'5@5ŧ5E5U5E4U44 ! $ *$ l5 + 5 ~+ 3 Z$_2, (35 <,  U$65_   ) %  "`ߋ3 5 5  " rBW!<% .*@B!  5 V5 $h *$5N5V54V5 $ߋ\5\5@B5X 5 l5,4T55B5T5 +$ l%z "55 E () D *U$6 &  D& "' D  (U $6& )e  W    " !3 <, "5ɥa ҕ T5 " l5 " + l%ҕ 5 ҕ 5  ,4 $,4 "45)T U$625L "  *6 *6 ,525:5! W *5A05%+%-*5 .*5 .5  V  p+ +u ,  ׏5 3c <6 Č V5X5N5Tߧ56 Z$55ߗ56 '56  Z$0bab b b g,5.5 %._ ,5ށ%E  *5 5 "'5`.5@@T@T@Th .51"3 V 05 :e05 .5 05  5 $V5@av ) Z$V5_ v5N55 җ5@v 55 5ї5 ї5_V5 _a556ߕ t 5 t t t b  05 .5 05 e05ߋ15U$6 b(J  t 5N5*6  U6V5^%vV x 'X55N5 X54x. vV5xX5eX5&gX5x * $X5eX5Z525r 25  U $6g*5 5 *655 _ *" t 05  t t   la     Z5\5Z5 ,ėZ5 Z5 W' 5$<5f 3453 <,5 N% 5ҕ+ 4 $5 $;3 $ ^tR  @6 D65B6E55  5 2* 5şn  $ 55 * * * * 6 6 (1 0@B     .* C _(1 )< , 5<>C!W!^8 .* *C D .* C!D! U 65 65"U $6 *5@N5  65 6E 6 6 +C @ @` E   #1-U$666P: 2*66 x H 5 *6 5f' ^1 55 t1R|5  Q$# +l5``B  + #`B +  #1-` _j5l5 s:,%   +j5 l5 p+T3p3V3|5   & |5|5 t1 n5fR %|5R ~5v5 1 1 @ ,, +j5 l53`d3 J3@ R H3d3   +ud353h5 ,fh5AH3Bd3C35 551 ~5 p2+ 3% "  55 %- % )  l*  &- "6U@$6 "6 5_ )  l* ~+55f6 J  RRRRRRRRR⋇ߕ# ~ 3 ,ߥh555h5;3~ ѧ "6 D,"6rI(3f#xKM*!lHXml[m.vKw+v N~,K~&X \0W]08r0ns0 ABDEILMNOPQRTUZh5 R l%җ5җ5җ5җ5 F6ʕ*   ('& t1 & &  + T/ F1 1  2*v5 .MAIN.TABLE OF CONTENTS******SYMBOL TABLE PAGE 2Mp2| 2ZH62| 2z< $r5e 6_1U$6 ) )5555 l* 1 t1& l* ~+ D, $. @65U@,6  T/ (  5' 3 %5 4 H5oR5_35 %$65H5B5 4,R5N5_6_3$6 %H6A 55U$6 F1 2* 5& 1$55& b. 1z5@6 2* 0 $. (1 05 d. (1    w5@PP <. 47a7a7ad7a7a7a7a7a7a7apmt1 @6&  T/_,U$6 + @6 5 )%?S5 * ) p+    @6 t1& #'5@6& ), Pee  wh1 w^1B*e@eAD   6 ND SHOULD NOT BE W!. W!$U$6  * W!. v*U@$6 .* * @*  "'  * .*ɟ4 ŀ  "'U 5 %\0 0  5: F1 .* (1 5 @6 .* F1 F1E F1E 5B5 2606U,6 * ('f5  'W!>_<' @*H "'L eee55 &5  ,555! ! W -- &) ) ` ") :/ F1 66e?f :/$ F1 F1 &f :/e0_F1 U@,6 5  %-5    *5& e .*@4 $ A @ ,  55C0   & N`"65 p2,45 2* ( .+ l5 5 F1 5 *  F1 ")W!' F1  5 .* )*x5! )$ 0  U` .*e_5 )  ( U$6 @  @65 D6U$6'5B6 .*> *U$6 *  .* (1 ) )5ff  + 55_U$6~56U$6  0 *U$6 05   C FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT C WHICH IS NOT SUPPLIED BY DIGITAL. C C C C C C C C C C Cnq%zd-zxd-鰼Ry  -  - ,2 |L01q/34/  e  ef w .m<c e:B s yeBMs  C  CU=HnH `T 4 w"T Yw e@"t,  &f,&4  e     ;,CROSS REFERENCE TABLE (CREF V01-04 ) PAGE -   &fe~B @& fE@ B  d'mm@PPPPw-.@@m-tn5`U@.f  ?T\_ @_ @ _ @ _ @ _ @ _ @_ @_ @_ @*_ @$,_ @$e# @mNm e # e e U @ߋ*7@?C-CRF FILE ERROR?E7 C@_ @$_ @$_ @$^vxQrf & f   r>wZ Xf Sfwh%xDE`;D&  `B DE!N` fB `f%T  w lwd pp p r lw%7 ^! % `` B<`T  (7" A!ۂBҕ Bw wew ewZwX Y 0 f,5f 8  ( " * $V @ 7 7 ? E ,we ` <[7m-ѭL7 @7Ee@7 U-   e @@fN% 5 5  5 UEA f   ewwpҕ-wbewRRe eU  D 46 . w67.?C-CRF FILE ERROR? ^ ` 7 (J%P?:Tq>< %42$@K(@(@ TRANSFER ADDRESS = BAD OVERLAY AT SEGҕ ҕ   < Е # & l <b^Z U |xw ##TTA  l   0 ,,^ `,} r v0 h d%T Xȝ 482(,"7:?C-LST FILE ERROR?E ʕ 爃E ? b 9 ? ^ 7L!7 wp @@c BbaBe0e0  zxSR  S -Rᓔ  - < %fw   f"  aCm*e wZ  C(& K# c eA w<7 6ww `!B 7"c27 7 7 x t5w * B U $DLXHTDB R(!'(!w ,,!fQ wwSw@ `eP 7 `  7` eP e @e @e 7?TOO MANY OUTPUT FILES?7?ERROR IN FETCH?ee @P e zw7T?SAV FILE ERR?lHxEw8m:2 @m.w$ mE@Da 7l?FILE NOT FND? W!⃂wVT Zz7 7 w&wB 5 7?/  & &w e@ F  .e7  &    EB ODD VAL?%^y7?/B NO VAL?CAhA4bM  >V5 7?/M ODD VAL?GL 7`  z&  j7\?LDA FILE ERROR? w n7 >f  &(R  - ;.7I1F+S%R7  4 6*-   7?BAD SWITCH?e B`   & f&& &ߋ*wp @  f 3b@!@ 7  e ee e  $ɕ@ Qɕ Iѕ ` B R n& f 7?MAP m $  m7 "e7?SYMBOL TABLE OVERFLOW?Bw P  wv\  FILE ERROR? J   ) $ A  f e `   T  wl wbj B ѕ ! ~ѕ ѕ  & f 鈇7*?ERROR ERROR?&  D D ĥ ĥ׭4  & *  ˋ  & (  ! T! Hԋ    &!  ep >Nb&   4 $ ^U@  2E ' &f vwxrD 7wfw^\z7xH <w7n w"<>" ERRILL ARGILL CMDCB FULLNO ROOMSRCH FAILILL MACEOFHDW ERRFILE FULLILL DEVFILE NOT FNDNO FILEDIR FULLILL NAMEwP e]w2  SM    C 5& k n & a t STACK ADDRESS = LIBRARY SEARCH: z'jL^/O IGNOREDBAD SWITCH IGNORED?CORE?eEe,5eR L  0Ul& 8p6q4w8 eߋ*$s"ff\Ee w@`5w7@ w@@   W w 7  e@ 7 ec7 w:R%w7?HARD I/O ERROR? $-ՀDAEDAEmNC!     7N70  :  jRf FA X b ^璉E    (     *   *e et    t NL!  N 2 S Rb  7X H B-H@&:4,@7$ 60 V7!Z r E ` =z 7a7a7a7a7aP7a7a7ay7a `w   wD,"( 07!!  7   <-&   .f& f w   wDE!  C(SSK I!   & fۇ &  zMMULT DEF OF  /   4w h!&    7?BADDχB ww@`(a(f7-: -2      w    GSD? ˋw&Ҋʋ  jȵ)ȕʋe& JQ$ lʋ 7 z v7 e"    75 @z  Z  7 77 j b ʋ7 T P w0Nw & fw Z'L" @  L :DdJ.6 8 l   +{  N F7 &淊  |  e NP@   & 7 e 7 " wLf&$Ew T ~ RT-11 LINK V04-04A LOAD MAP SECTION ADDR SIZE ENTRY ADDR ENTRY ADDR ENTRY ADDR HIGH LI"7?DEV FULL?& fw E 1 w@@ AA Emf  d7h W0wMIT = UNDEFINED GLOBALS:UNDEF GLBLS OVERLAY REGION SEGMENT JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECTRANS  w !SO S$ $ d !w W ) 7?FORLIB NOT FND? 7[7(hA m,   E6P27.U](~ w^@ &fpe" .Nf JO? #  ;&(1 DA    @eeDA  e  wDE!  C(SSK I! @`(a(f x5AhA mR  dHRId  CU#  !!7?NO INPUT?U!7?CORE?!! 7x4$>f&&5  w B2@Em 5, PEU'   f A X`L$ C>`L$ C I, ̋̊ e̊ @ _ (xe r N̋e l (  x w w !7 w K"s,@A C g   !w$D7!T e7&7   P@P X7 7 v B  lh`"\TjPf-@%?8 45, - %  7?ILL ASECT?m5a EKѕ ѕ @  Sca)  w K v EaADDITIVE REF OFAT SEGMENT #BYTE RELOCATION ERROR AT6F? U@e" wZLOADED AT T E L Nsa(Jw e 7`4 #eK#  w t/ Dw fB  2L77@e ߋ*! %   - #  s  &#w . K  ѕ ѕ # x 2w 7` ~3c  - D @&c%TdL!)t&b%0e )z%P4H@ <`  H 2w 7`Xwt4 .7 w  7 ?OUTPUT FULL?Հ g$nҋ'ʋ8Z[L"@  L.C l`w@,w.^ C^ ʋـfb& fw NUq e>z4w4 FZ   $E  w4 7s7b87 7 7 !7 ?  4 8 zDm85_    m|w W" Rw t@ F fw e feEm5e 4e ,  b  8   wbwV & wZ&fe>B @& fE@ B e!0w| w    8@7wR H&  @ Ce5f m^  7?BAD RLD?f rex&@ @ @ E *ѕ-EeM-EeH / dѐ + ;CAL& Z 7 H T >7@ C6 "&   <%<!& nҋ&ʋ7Z[L"@  L-C l`w@,B` C` ʋڀhd& fw P w  <w   ^  e֋ ɐ0 @ @w  A  zd (7\  w6 7s7 D7    8 w( w    @x7x7 h w wbw f* . e J &f&f  &   Ce5 m   7?BAD RLD? $ <<& ~ w      7 ;-.& j be e D  f &7FER ADDRESS UNDEFINED OR IN OVERLAYSTACK ADDRESS UNDEFINED OR IN OVERLAY0Z Lw   nѕ.Lw x Ze֋ ɐ0 @ @w % A   0w ^.$ H D ^ѕ ѕ ѕ ,   ѕ  w #!7   % eD `m  ! > m5 !   ewVfl &fe>B @& fE@  B  _   j Z, ^  FILES,  t BLOCKS  , T FREE BLOCKS   H qwr-P@N K :/Z ^ p  *&  7?REL FILE ERROR? 7ͥ  p 7 å? rD n ׇ j  x  |& (U%@   C7Z?ILL SWT å~ y7ox7 Z  0å  LW<E b 87 26Ր -(    6?006B`f |ABDnGKSPTrV WCEFIL &  5 - w!L<& 2֥  5 7 -!MNOQRUB XYZ7?ILL DEV? n> &e n70eVEދ %%%%% 7X ^7 X  7M 7?7: 4 *f,EA   J R ep   ^W"@CRRRW$@U   b&W3 nW5)Ët#$t-  t-   w5@PP <. 47a7a7ad7a7a7a7af5$ w-   r? JRRRe e w  =@e ^  7f?FIL NOT FND?&p$  AEm(   <T!  m:5 w! j  ~   @  # > PPPP  @7?ILL REN?ww w  @ t e PRewv"2vADDITIVE REF OFAT SEGMENT #BYTE RELOCATION ERROR ATT (R4)+,@R5 ;IS BLOCKING BITRRR |   H /w 6  @e  e      8   ON IN JSTAT ? BEQ 1$ ;NO, DO NOT SWITCH BIC -2(R4),@R5 ;YES, UNBLOCK THE TASK MOV R5,-(SP) ;SAVE IMPURE POINTER MOV I. e[7   6 `f 7 7 F     & e $g,5 w pe n  $]  F  F p  #we 7  .     ewN ew@  wz 5  #  7L H J &fw   m8eW3[wmW5wm df< UNUSED > @ P#H-p-$  \ |w-  wc  @ ` C  <    @ PN!@  x &fW]D r -  Np  T8e> R$: .ENDC TST OVFLG ;ANY OVE N jJ  w     <  w e7 w w & f͋  w hՇ xeET W0 e em55---A*fU%m5 & 5!u#  ne` w ~ .pq7 LL0A bAce) H w & jp&WW*  @.-?EXT NEG?7?ROOM? D$ j M  `4  7   e  †w7f?BOOT COPY?鈴  :e e    c ` z A0 b   dPIP V04-06-AE]E `7` 7/7 ?COR OVR?|e ! !>M#@SS%'   &5 @@  N^&E#? w e& Z ARE YOU SURE ? @ b ~ a XT  r eTlA  &  w׭ #@S    ,@*,@& &  B j&7  ȝw7X?DEV F 7?ILL CMD? TERAKߋtv ?B-NO BOOT ON VOLUME @w p@w UL?7J?OUT FIL?@7 7 e meq7?FIL NOT FND? 9ne ׭ )XF wP׭ ׭ w f& fwW#w v   @ @wP  @& 7 " B,75 e ( -5 j+ '@& && 7` &  ,7 5  BLOCK@   IS BAD   -̂@ &   # p@ zw 7 P7 R & B g wDߋ* 0&&鈀7,?IN ER?W   @`7@E  w  %X @`7ъ ѕ  Rì     s   p x] \Z 17 7 Wwm @`  7?CHK SUM?|& &ce7T?O  d s  -2&w*   4 s  ee  w& f a7 UT ER?< * & 5 , ,z ^& ", P,77  5  e7wfD`we  & wr fW3W-  r B &7 2?NO .SYS/.BAD ACTION??REBOOT?1 @ 1 `? & e& f W- @  cD >N & eT e lW3ceem D  F 4   ? ?   w 7F?ER RD DIR?76?ILL DIR?85 @w  f&De׭ n & (f`W#HDLU% fw HVw @Rp  wN  -`` ` z  ? 7 $7 JwPea% N & (fIW#EO;e<  H  U e LLhQ L` mw  f Z   7&fT    `   ) $6:7\ R 7L5wd)lw   7  vw  t5 w  A  f e `   T   ( JcT7 d & 7 -7    E `7 | xC wj W  R@ :B L >  w @ @QЭ w xW! U%e , L  www0wwB w:sf& w CW e ͋ _ U _Õ@ ɕ0ɋ %¥@  q c 4 5 5  emK .BEf e  zv& B eB wfw^wzw     2@Ee (͝)% % 95 RROR IF UNDEF TRANS ADDR BEQ 13$ BIT @R0,#.Owwzwrw .?l2& B 7 w,wFw  Dw VR ;ERROR IF BEG ADDR IN OVERLAY BEQ 14$ 13$: LERROR MOV #1,BEGBLK+8. BR 15$  &w ww[w w 7 ( r7 v h" vZ5T9vFB @`7 J", 0 eD 05 e e K e w&wwww.Be7B?ER WR DIR?t emq&  D 7! !e   <  @e0    . @f( d@ ee0 & %Y   5 .t^( /b hz(zzl.z;  . 7( w, $r&(~Ht.~  Ht$B Y..     .6  w 7 #"&   $B .P47D  P4[.w*7. w  7w "w tĝ$& < 7  .  WBw .7%|.< tnw %b=w 0V.bw ( w w >ww> 0. ( 08NOw @p^C Dp A N Op.^ &DCc N w w X P w < <.' 7< $ 7$mw ".w $\/%w .    L eD( &w @ \k.w wZw w j fw   .w  7 wvwjw   % EC (DC.  !RB !R=L !6mRR!. 4D4 V  !4Dh4 V  " y. e wj   Z =w i   .p w d w \ w T w L.BD V D"h&V.F%h w 6 X @w @.l % % 6w  .ww .w v 7y w h7r w `7l 7g  / ( .h H w7L   ww (bb  . " w D  &.C@AEPA&fw w /w .w Tw 4  ` w w A B`". % w~ 7.wtwj E 74b .E `   .* w w 7UvE.Pw l7N"4. E t4R 4K4&4E.&w J-%zw  =T.Lw >E .vPF  pV w ^׭ V.& Uld.d\7 4=w r& 4.re0w ,w %2@w k04.e=w @wb7w FLŝDŝ@.Ef P$ wL.t!D w w   w  wtJU. S=w  w ~ w .RAe0w ,w w .. - @e3D  .4%ĕtD7| VVw DV"V.ZBw .`e` w ;w 74   4.0w ^n?w <7 `L.Vw z7j7e7|    w J%0 %7:ĝDm.Dw Zw,"f&fD"e.  d4D (D.|E `  1  W ֆ  .> m.7, y r@" " .hFD pt7p7th Dpt"p&t.tw t5ppp9  ,**>> "2*&" >" >"  ">> "8""> """"""< >> " ":*:"">"""""""""""""">>>"2""""">"""8 "  ">ttpp&p/. t  <hD !(thD.> %p &e N @ e0.d w &  4 4. tE%~ %% %'  tq & @->  y !ߕAZ @  . ?7vprE vprU.  {` w  g.  ۇ  VTBOOT V01-04 ENTER DEVICE TO RECEIVE 8510A BOOT -- ?ILL Sw .ח/ w r ." ׭r^w ZUw RwXr (.H 7B WITCH??ILL DEVICE??I/O ERROR?.&fE Uz5Y.@tvfE Eɕ -ZV  z  .n 7,4("4-< 0w, 44k. 7$ %! 5.fPBE~ЕCE.& e0~5 4.&&e %h. ??   w   $ . %Jw J7w ^ e0w . f5@E  >` DD 0~e~ >b@ t,w w .,  Cå å$ נA l.R  e` et@```6 v_H-&fv   !w J   @ ..x   Ëנe ee 8  1! e ѐ  @(  &- **&fE Uz5tvfE Eɕ -PBE~Е ODT V01-02 (    BE  . *;/\ $G _<^,OWEBP@>SRC-FI!XASPM CFRCE& e0~5 &&e   EPe@  UfE B     .<~ wJɕw:"ߋtvB_>>< (&&22 * E@*LP.SYS REV A 22APR77 USE IS LICENSED BY TERAK CORPORATION  .PAGE .TITLE REMOTE HANDLER ; ; REMOTE IS BUILT UP OF THREE MODULES: ; I. REMOTE ITSELF. IT DECODES THE TYPE OF OPERATT LU@I  T 8 ׌.E 3 W ť` P׌_VW W W ION DESIRED. ; IT CONTAINS: ; -GLOBAL DATA ; -REMSTRT ; -REMABRT ; -GLOBAL ROUTINES. ; II. IMPORT. IF THE OPERATION W P  % UteP,}N THE PRINT HEAD/CURSOR AT THE NEXT TAB. CHARACTERS WHICHIS RECEIVE. ; III. EXPORT. IF THE OPERATION IS SEND. ; ; ; REMOTE HANDLER. ; ; ; IMPORT AND EXPORT PORTS: IMPR=240 ; EXCEED THE TP WIDTH ARE LOST. A FORM FEED AT THE START OF EACH I/O JOB IS OPTIONAL. A MOTOR-ON COMMAND AT START OF EACH I/O JIMPORT PRIORITY EXPR=200 .ASECT .=PORT1 ;PORT NO. 1 IM$INT IMPR .=124 EX$INT EXPR .CSECT TABLES OB IS OPTIONAL. 'S ARE OPTIONALLY PRINTED OR LOST. CONTROL CHARACTERS, (EXCEPT CR,LF,HT,FF,BS,VT) ARE OPTIONALLY PRINTED .BLKW 128. .REPT 8. ;REMOTE IS UNIT 8 .BLKW 3 .ENDR .WORD INBIT!OUTBIT,REMSTRT,REMABRT .CSECT REMDRVR .PAGE.MX/+@/0@a W@. D@ }@[3g@y@+@A.X@~@ ; GLOBAL DATA: PORT1=120 MAXB=377 MAX=177777 MAXMACHNO=31. ;HAS TO BE OF THE FORM 2^N-1 MASC=MAX-MAXMACHNO ;CONTR"6**""""&&*22"""""""""""*,"" "< >""""""""""""""**6""""""""@!(@.#@i,s@|3M:@3vL@:s@C.:x@A @;K@lMM:@Rh@S.)S@w@> > 8 8*> <"<&""<< ,2""<"<$w\}@6x@zy}@.y @z`@z@y\}@|(@.:@@(*}K(*Mt(I,2""< &""" " " **""&""""""&""""2, &<T? T2 Mt2*}K$b$@x Mt MtMt. $"""2,"""""**"""""2, >>*UUUUUUUUUTV wU  .& E@ L D& ߶A.L. 7  ~.rw    J t .  7 Z X?TU@.J > <_E.7 *wf $:s:s.U?   E7 ,@~@#'U(?62+- xK2K7AS`<7"7H 28 @  MOVB #MAXB,SENDER MOVB #1,ESCAPE ;BY DEFAULT NEXT CHAR IS NOT ;A CTRL CHAR TO AVOID MISTAKING TXT MOVB #1,EOMESSR3,-(SP) MOV R4,-(SP) ;SAVING BY CONVENTION. TSTB EOMESS ;EOMESS STAYS ON TILL A BOM COMES! BNE GETBOM CMPB IMSENDE CLRB BOMESS CLR BINM CLR IMUNIT CLR RETADDR BR 2$ 1$: CLR EXRETADDR CLR EXRET2 CLR EXUNIT CLR EXBINMR,SENDER ; WE HAVENT CONSUMED THE WHOLE ;MESSAGE FROM THE CURRENT SENDER.IF REQ. BEQ BODY ;NEW SENDER THE SAME,GOTO K ;EXPORT ABORT HERE 2$: BIC #BSYBIT,@REMUNIT CLR REMUNIT MTPS #0 RTS PC .PAGE ; ; ; ; IMPORT ; ; ; LOCAL DEEP CONSUMING IT ; ; ; MESSAGE CONSUMPTION ;THIS ROUTINE GETS THE REQUESTED MESSAGE. AT THE END IT WILL GIVE IT TO THE ;REATA: IMRSR =177520 IMRDB =177522 IMOFST =4 QSIZE =32. ;HAS TO BE POWER OF 2 IMUNIT: .WORD 0 IMBUFA: .WORD 0 IMLENG: QUESTER AT THE PASCAL PROGRAM LEVEL. IF THE MASSAGE WAS REQUESTED FOR THE ;COMMAND LEVEL, IT WILL SIMULATE AN INTERRUPT AT THE.WORD 0 IMSENDER: .BYTE 0 ;USER REQUESTED SENDER SENDER: .BYTE 0 ;ACTUAL CURRENT SENDER TO THIS PORT. QUEUE: .BLKB QSIZE  P-MACHINE LEVEL AND CALL ;THE PASCAL PROGRAM THAT SERVICES IT. ;THIS ROUTINE REQUESTS A CHAR FROM SENDER AS NEEDED, SO THE GN QFRONT: .WORD 0 ;HERE YOU PUT QREAR: .WORD 0 ;HERE YOU GET EOMESS: .BYTE 1 ;TRUE BOMESS: .BYTE 0 ESCAPE: .BYTE 1EXTCH ROUTINE ;MAY HAVE TO GO TO SLEEP AND SO WE HAVE TO KEEP TRACK OF THE RETURNING ;STATUS FOR GNEXTCH IN 'RETADDR'. ; G .BYTE 0 BINM: .WORD 0 RETADDR: .WORD 0 ;STATUS OF THE SLEEPING MESSAGE HANDLER THIS: .BYTE 0 ;CURRENT BYTE EXAMINED FROETBOM: MOVB #0,ERRORCHK JSR R4,GNEXTCH TSTB BOMESS ;FALSE=0 TRUE=1 BEQ GETBOM ;TILL WE FIND THE BEGINNING MOVBM THE RECEIVING QUEUE ERRORCHK: .BYTE 1 E: .BYTE 0 RDYSEND: .BYTE 1 T: BIC #100,EXTSR MOVB SC,EXTDB 1$: BIT #2 #1,ERRORCHK ;WE ARE SYNCHRONIZED NOW. NO MORE ERR. JSR R4,GNEXTCH ;GET THE 'TO WHOM' CHAR. CMPB THIS,MACHNO BEQ 1$ ;G00,EXTSR BEQ 1$ MOV #500.,X 2$: DEC X TST X BMI 2$ RTS R4 X: .WORD 0 IMSTRT: MOV R1,REMUNIT ;MARK HANDLER OTO MESSAGE FOR US TSTB THIS ;MAYBE HE IS SENDING TO ZERO(BROADC.) BNE GETBOM ;HE IS NOT SENDING TO US OR BROADCASTING OL CHARACTERS: ; THEY CAN NOT BE GREATER THAN 177 (127.) ; THE LOWEST ONE HAS TO BE BOM. THE HIGHEST ONE EOM. ; THEY SHOULBUSY. R1=UNITABLE[8] MOV R1,IMUNIT ;LOCAL FLAG BIS #BSYBIT,(R1) ;MARK UNITABLE BUSY. CLR (SP) ;ALLOW INTERRUPTS, ASD PREFERABLY BE CONSECUTIVE. BOM =172 BININ =173 BINOUT =174 ESC =175 EOM =176 REMUNIT: .WORD 0 REMSTRT: TST REMUNIT  WE RETURN ;USING RTI.PR=0 IN PSW. PREVIOUS ;CONTENTS OF R3 LOST. TST (R3)+ ;WE KNOW IT IS A READ. MOV R3, BNE REMSTRT ;WAIT WHILE REMOTE IN USE. TST (R3) ;1=READ 0=WRITE BNE IMSTRT JMP EXSTRT REMABRT: MTPS #IMPR -(SP) ;THE RETURN ADDRESS MOV (SP),IMBUFA ;GRAB USER BUF ADDR, MOVB (SP),IMSENDER;AND REQU;LETS USE THE HIGHER PRIORITY TST IMUNIT BEQ 1$ ;ABORT EXPORT ;IMPORT ABORT: CTRL CHARS ARE SET TO INITIAL CONDITIONS.ESTED SENDER MOV (SP),IMLENG ;AND REQUESTED MESSAGE LENGTH ;EVERYTHING IS IN LOCAL DATA NOW. MOV  D. TSTB IMSENDER ;RECEIVE FROM ANYBODY? BNE GETBOM ;NO MOVB THIS,IMSENDER ;BINDING THE BROADCASTING TO THIS USR.  7$: CMPB #BINOUT,THIS BNE 5$ CLR BINM BR GNEXTCH 5$: CMPB #ESC,THIS ;HAS TO BE THE LAST CTRL CHAR TO BE BNE 3$  ;NOW USER IS STUCK TO THIS SENDER. BR BODY1 ;HOW IMPORTANT! IF USER WANTS TO RECEIVE ;FROM ANYBODY THEN HE HAS TO ALLO ;CHECKED. MOVB #1,ESCAPE BR GNEXTCH ;END OF CTRL CHAR CHECKING. 3$: CLRB ESCAPE TSTB BINM BEQ 1$ ;GOTO NO BINMW ;THE FIRST BYTE OF HIS RECEIVING BUFFER FOR ;THE MACH. NO. OF THE SENDER. ; ; ; MESSAGE BODY: ; BODY: TST IMLEODE FOR PHASE 1. MOVB THIS,BIN1 ;SAVE PHASE 1 SWAB BINM ;FLAG FOR BIN PHASE 2 BR GNEXTCH ;GET SECOND HALF 1$: TSTB NG BEQ EXITEOM JSR R4,GNEXTCH TSTB EOMESS ;FALSE=0 TRUE=1 BNE GETBOM ;STREAM ORIENTED STYLE.GET NXT MSSGE. BODYBINM+1 ;BIN MODE PHASE 2. BEQ 2$ MOVB THIS,R3 ;MAKE A SINGLE 8BIT BYTE: ASH #4,R3 BICB #360,BIN1 BISB R3,BIN1 1: MOVB THIS,@IMBUFA DEC IMLENG INC IMBUFA BR BODY ;END OF MESSAGE HANDLER. .PAGE ; ; ; DIRTY DECODING: GET N MOVB BIN1,THIS SWAB BINM 2$: RTS R4 .PAGE ; ; THIS IS THE EXIT SUBSYSTEM. ; EXITEOM: BIC #BSYBIT,@REMUNIT ;IO FINIEXT CHARACTER ; ; BIN1: .BYTE 0 .BYTE 0 GNEXTCH: CMP QFRONT,QREAR ;IS THERE A CHAR IN THE QUEUE? BEQ EXIT ;NO.QUIT &SHED. CLR REMUNIT CLR IMUNIT CLR RETADDR BR QUIT EXIT: MTPS #IMPR ;NO NEED REALLY MOV R4,RETADDR MTPS #0  SAVE STATUS OF CALLS CLRB BOMESS MOV QREAR,R3 MOVB QUEUE(R3),THIS INC QREAR BIC #QSIZE,QREAR ;QREAR:=(QREAR+1)MO TST (SP)+ QUIT: MOV (SP)+,R4 MOV (SP)+,R3 TSTB REQSEND BEQ 1$ TSTB RDYSEND BNE 2$ ;IN CASE THERE IS TIME TO D QSIZE ;ERROR CHECKING: TSTB THIS ;THIS HAS ERRCODE ATTACHED! BPL 8$ ; NO ERROR MOVB #377,ESCAPE ;THIS WRONG CHAR RACE FOR ; CHANNEL 1$: BIS #100,IMRSR ;ENABLE INTS. IF DISABLED JMP @#INTRTN 2$: JMP EXENTER .PAGE ; ; ; INTECOULD HAVE BEEN ESC, ;AND WE ASSUME SO,OTHERWISE WE COULD TAKE ;NON-CTRL CHARS AS CTRL CHARS:CHAOS! TSTB ERRORCHK ;RRUPT HANDLER ; ; IM$INT: BIC #100,IMRSR ;DISABLE INTERRUPTS MOV R3,-(SP) MOV R4,-(SP) ;BY CONVENTION MOV QFRONT,1=CHECK FOR ERROR. BEQ GNEXTCH ;DON'T CHECK. MOVB #1,(R1) ;RETURN ERROR FLAG JMP REMABRT ;AND CONSIDER THE MESSAGE TER3 INC QFRONT BIC #QSIZE,QFRONT ;QFRONT:=(QFRONT+1)MOD QSIZE MOVB IMRDB,QUEUE(R3) ;PUT CHAR IN QUEUE BICB #200,QUEUERMINATED. ;CONTROL CHARACTERS BUSYNESS: 8$: TSTB ESCAPE BMI 5$ ;IF NEGATIVE FLAG,ONLY ESC CTRL ;CHAR TO BE CONSIDE(R3) ;ONLY FIRST 7 BITS ARE VALID. TST IMRSR BPL 6$ BISB #200,QUEUE(R3) ;ERROR OCURRED. 6$: CMP QFRONT,QREAR BNE RED AS SUCH. BNE 3$ ;CONTROL CHARS DISABLED. CMPB #BOM,THIS BNE 4$ MOVB #1,BOMESS MOVB #0,EOMESS RTS R4 4$:2$ ;GOTO NO QUEUE FULL MOV R3,QFRONT ;QUEUE FULL BISB #200,QUEUE(R3) ;ERROR OCURRED,FLAG THE CHAR IN QUEUE ;DETECTION 1$: JSR R4,GNEXTCH MOVB THIS,SENDER ;UPDATE CURRENT SENDER. CMPB THIS,IMSENDER BEQ BODY ;MESSAGE FROM THE ONE EXPECTE CMPB #EOM,THIS BNE 6$ MOVB #1,EOMESS CLR BINM RTS R4 6$: CMPB #BININ,THIS BNE 7$ MOVB #1,BINM BR GNEXTCH  S DONE. MOV #SYN$INT,#PORT1 ;RECEPTION OF CHARS WILL BE DONE HERE. MOVB MACHNO,SC SY1: MOVB SC,EXTDB ;RACE STARTS| CL 5$: TSTB EXBINM ;TRUE=1 BEQ 4$ MOVB SC,SC2 ;BINMODE PHASE 1 BICB #360,SC SWAB EXBINM BR 1$ 3$: MOVB SC2,R3 R R4 JMP EXEXIT ;EVERYTHING READY JUST WAITING FOR THE ;FIRST CHAR TO ARRIVE. QUITSYNC: MOV #IM$INT,#PORT1 BIS #1;BINMODE PHASE 2 ASH #-4,R3 MOVB R3,SC BICB #360,SC SWAB EXBINM BR 1$ ;CHECK IF FULL BYTE. IF SO,SET BINARY MOD OF THE RELEASING OF THE LINE: 2$: CLRB RDYSEND BITB #200,QUEUE(R3) BEQ 7$ MOVB #-1,E BR 4$ 7$: TSTB E BMI 3$00,EXTSR JSR R4,EXEXIT JMP SYNC SYN$INT: MTPS #IMPR MOVB IMRDB,XX BICB #200,XX CMPB MACHNO,XX BNE SY1 BIT  BNE 8$ CMPB QUEUE(R3),#EOM BNE 3$ MOVB #1,RDYSEND BR 4$ 3$: CMPB QUEUE(R3),#ESC BEQ 5$ 8$: CLRB E BR 4#20000,IMRSR ;TEST IF SOMEONE SENT BREAK(WINNER)SIGN. BNE QUITSYNC ;WE LOST,SO WAIT FOR NEXT LINE RELEASE. TST IMRSR B$ 5$: MOVB #1,E ;RETURNING...WHERE?..: 4$: TST RETADDR BEQ QUIT MOV RETADDR,R4 CLR RETADDR BIS #100,IMRSR MI SY1 ;ERROR. SO WE RACE AGAIN. BIS #101,EXTSR ;WE WON.SEND BREAK.ALLOW INTERRUPTS. MOV #IM$INT,#PORT1 ;RECEIVE THROUGH  TST -(SP) JMP GNEXTCH 1$: MOV R3,QFRONT ;QUEUE FULL JMP QUIT .PAGE ; ; ; EXPORT ; ;LOCAL DATA: EXTSR =177524IMPORT. MOVB SC,EXTDB ;WE KEEP BREAK FOR TWO-CHAR TIME SPAN. JSR R4,SEND ;WE ALSO SET THE SEND LOOK-AHEAD MODE: ;BY EXTDB =177526 EXOFST =4 EXUNIT: .WORD 0 EXBUFA: .WORD 0 EXLENG: .WORD 0 EXRECVR: .BYTE -1 SC: .BYTE 0 SC2: .BYTE 0 THE TIME AN INT COMES THE NEXT CHAR ;IS BEING PEOCESSED AND READY. CLRB REQSEND BIC #1,EXTSR ;BEGINNING OF MESSAG SC3: .BYTE 0 EXRETADDR: .WORD 0 EXBINM: .WORD 0 EXRET2: .WORD 0 REQSEND: .BYTE 0 XX: .BYTE 0 EXSTRT: MOV R1,REMUNE: MOVB #0,SC ;TO GUARANTEE 'NO-ESCAPE CONDITION' JSR R4,SEND ;CHAR IS SENT AS IT IS. MOVB #BOM,SC JSR R4,SEND IT MOV R1,EXUNIT BIS #BSYBIT,(R1) CLR (SP) TST (R3)+ ;WE KNOW IT IS A WRITE. MOV R3,-(SP) ;RETURN ADDRESS. MOMOVB EXRECVR,SC JSR R4,ENCSEND ;CHAR IS ENCODED IF NECCESARY. MOVB MACHNO,SC JSR R4,ENCSEND TST EXBINM BEQ 1$ V (SP),EXBUFA MOVB (SP),EXRECVR MOV (SP),EXLENG MOV R3,-(SP) ;SAVE BY CONVCLR EXBINM MOVB #BINOUT,SC JSR R4,SEND ;BODY OF THE MESSAGE: 1$: TST EXLENG BEQ 2$ MOVB @EXBUFA,SC JSR R4,ENCENTION. ;SYNCHRONIZATION HERE: SYNC: MOVB #1,REQSEND ;WE ENTER HERE ALSO THROUGH IMPORT ;INT HDLR & EXENTER. 4$: TSTSEND DEC EXLENG INC EXBUFA BR 1$ ;END OF MESSAGE: 2$: MOVB #EOM,SC JSR R4,SEND CLR EXBINM BIC #BSYBIT,@EXUB RDYSEND ;RDYSEND SET BY IMPORT HDLR WHEN EOM. BNE 3$ JSR R4,EXEXIT ;NOT EOM YET. SO WAIT TILL IMPORT CALLS ;SAYINNIT CLR REMUNIT CLR EXUNIT CLR EXRETADDR MOV (SP)+,R3 JMP @#INTRTN .PAGE ; ; DIRTY ENCODING: ENCSEND ; G THE LINE HAS BEEN RELEASED. BR 4$ 3$: BIC #100,EXTSR ;WHEN RACING WE DON'T WANT TO BE INTER- ;RUPTED WHEN SENDING I ENCSEND: MOV R4,EXRET2 MOV (SP)+,R4 ;CHECK MODE FOR SENDING.(BINARY(CHAR SPLITTING), OR ASCII(NORMAL)) ;CHECK BINARY: ! 5Y ' WRITE FILE - CYBER MUST BE IN TEXT MODE"$TERAK FILE NAME ? (NULL TO RETURN)'OLDNC($EXPAND TABS FOR STANDARD FORTRAN (Y/N)? "" *** ERROR IN READING FILE **** LINES. BACK TO CYBER MONITOR$@P1HY,"22,"6,"27/  C V"dbV" \$"V" \ lr`^$"F"#l$ V"fl^Zr%F"ZF"\$"V"\ lrnr$"V"#l<nLRj&JF"nV"hbF"lF"pV"Z Z J 7 )Y C CYV"V"  #4V"L# x5L#x54XF"zV"L# x5L# x54vF"V" L# x5rr^$"V"#r$ V"*tF"*vF"xF"*zF"#n& V"#xF"L#x5L#yx5DL#x5L#~x5:VL#x5L#rx5E. 4$: TSTB SC BPL 1$ MOV #1,EXBINM BR 5$ ;GOTO BINMODE TO SPLIT CHAR. ;THE MODE HAS BEEN SELECTED. ;IF CTRL CHAL#x54F" V" 07 2d *** CYBER TERMINAL SIMULATOR *** CONTROL CHARACTERS: CTRL B - SENDS BREAK TOR,SEND ESC FIRST: 1$: CMPB SC,#BOM BMI 2$ CMPB #EOM,SC BMI 2$ MOVB SC,SC3 MOVB #ESC,SC JSR R4,SEND MOVB S CYBER CTRL E - SENDS CTRL C TO CYBER/ CTRL F - FORTRAN FILE PROCESSOR TO INSERT TABS+ IN FILES ALREADY READ C3,SC 2$: JSR R4,SEND TSTB EXBINM+1 BNE 3$ ;GOTO BINMODE PHASE 2 JMP @EXRET2 EXEXIT: SEND: MOV R4,EXRETADDR ;SENDFROM CYBER.7 CONVERTS STANDARD FORTRAN TO DEC RT11 FORMAT.4 CTRL R - READS FILE FROM CYBER TO NAMED TERAK FILE. HAS TO EXIT FIRST, TO WAIT ;FOR COMPLETION OF LAST CHAR SENT BIS #100,IMRSR MOV (SP)+,R4 MOV (SP)+,R3 JMP @#I* CYBER FILE MUST BE PRIMARY FILE.. USER MUST TERMINATE WITH CTRL-T KEY.< MISC. CHARS. LIKE "ENTRTN ; ; ; INTERRUPT HANDLER. ; EX$INT: BIC #100,EXTSR ;TEMP TST EXRETADDR BNE 1$ JMP @#INTRTN 1$: MOVB SC,END OF INFORMATION ENCOUNTERED". MUST BE REMOVED FROM FILE WITH EDIT.) CTRL T - TERMINATE FILE READS OR WRITES.&XTDB EXENTER: MOV R3,-(SP) MOV R4,-(SP) MOV EXRETADDR,R4 CLR EXRETADDR BIS #100,EXTSR ;TEMP RTS R4 .END  CTRL W - WRITES TERAK FILE TO CYBER.% CYBER MUST BE IN TEXT MODE.- TERMINATES AUTOMATICALLY WHEN DONE. V"$"F"$"F"$"V"F"#7 KE TO CYBER. C CYBER MUST BE IN TEXT MODE. C TERMINATES AUTOMATICALLY WHEN DONE. (ALSO ABORTED BY CTRL-T). C C IF USING DECWR 01 9 "  ** FORTRAN PROGRAM PROCESSOR **& ** REPLACE LEADING BLANKS WITH TABS **$INPUT FILE NAME?"$OUTPUT FILE NAME?OL  L %  | L %L L DNC'NEWNC &*** ERROR IN WRITING TO OUTPUT FILE *** "*** ERROR IN READING INPUT FILE ***$ ** DONE - RETURN TOv 鈇- e鈇FINISHED FILEGIVE DEVICE:FILENAME FOLLOWED BY =  CYBER MONITOR ** $@P C 0002 V"  F"  $"V"   r T $"V" # WRITE ERROR , F"#V"   $"V"    r h $"F"# ,F F"#V"    T  r%F"    h  r%V"    r  $"F"* F"L# x5L#} x5&ZV"L# x5L# x54HV"T#| F" F"* V" FORTRAN IV V01C-03G THU 07-SEP-78 14:48:39 PAGE 001 C***** 0001 SUBROUTINE WFILE C WRITE T " F"+ . x5L# x5&6V"" F"+ X# V"   F"0ZV""T#| F" V"$   + T ERAK FILE TO CYBER - THROUGH SERIAL I/F C***** 0002 INTEGER Y 0003 BYTE L(140),IFN(20),ZERO,NINE,BLANKr$"V"&0 V"'  $"V")0V"* ? $"V", JF" F" JF" i $"V"1  F"#7 $ 0004 BYTE ICH,TAB,CR,LF,FF,EOL,CTRLC,CTRLT,RBYTE 0005 DATA TAB,CR,LF,FF,EOL,CTRLC,CTRLT/"11,"15,"12,"14,"12,":}RY FIL$@P V"#&HV"F"V" V" #F" #,V" r#"&$V"3,"24/ 0006 DATA ZERO,ONE,NINE,BLANK/'0','1','9',' '/ 0007 DATA Y/1HY/ C C TURN ECHO,ETC. BACK<Vj& F"xV"&0< V"'L#x5L#ux54< F"6#z25D#V")*tV"*+tD#jF"L#jx52L#rx5& V"-L#x5 6 V"/F" F"0$V"F"0#4V"F"0$V"0# 4V"LF"0$V"0#<0#<R5"j4F""vF"0 V"2vx$ V"4"zF"+zxF"0 V"7V"84vx V"9trD V":s4F""pV"< <R0#<Rj4$V" 4V" F"# 7 F Da gS TEV"Br#"&hV"BV" @F"#tj#<L#jx52L#xx5<Vj4Z V">L#vx5 4 V"@0jV"A\$"V"CsF"ZJF"db 6U@P$ h   E@P$fLD& FU@P$" LF"\7pr$"V"HwV"IhbF"#7  *}Z 0012 LOGICAL*1 VARIABLE HELPER 000000 REAL*4 PROCED %L< *I2 S( T  ` 6d2L  URE INPT 000000 INTEGER*2 PROCEDURE I 000014 INTEGER*2 VARIABLE INFILE 000000 INTEGER*2 PROCEDURE WFILE 0000 C09 %v dLF> ,L0# 4 CALL ASSIGN(1,IFN,NL,'OLD','NC',2) 0015 REWIND 1 0016 WRITE(7,2210) 0017 2210 FORMAT('$EXPAND TABN"Q$B(< U& * u @ 3 PA &eW! Cf   tS FOR STANDARD FORTRAN (Y/N)? ') 0018 READ(7,2220) NL,IFORT 0019 2220 FORMAT(Q,20A1) 0020 IF(NL.EQ.0.OR.IFOR߉ۉ܉݉# B   ` ׮PU ׮PU, މU1 0 555U T.NE.Y)IFORT=0 C TURN ECHO BACK OFF 0022 CALL IPOKE("44,"50100) 0023 CALL CLEAR 0024 NLINE=0 U& @&&3&3 ¥#  , @ & 5ff@ &  C C READ LINE AND SEND C 0025 210 READ(1,2230,END=300,ERR=290) LEN,L 0026 2230 FORMAT(Q,140A1)  爄  Mff z\\PH\PPեЉ B ,U wf&( 35g C IF NULL LINE, JUST SEND CR 0027 IF(LEN.LE.0) GO TO 270 fU %ER ߋPR=ȋp v5 4 54- p&d   5@a3 s 5ߋPR=ߋT_V @@@ ,@g @ @H3p\3r\ BU @ @ 3@ 3 r3 p3!  >#p  3 h  U )"`5 ^e3d ډ& "35 5  X  5@   U5sѕѕѕ s 3 \  074 # FU E%cԉ . @ ы@ Չe 6e& 5@  4 4 E54 3 \ȋى !`5w&s55 T 3 T   4 m E% %5@5#E 5m5 ҕ   mU 8   R C χ։ɕ sw@A. &@A& & @A& & @AD \ ډ 35&&Af&  e\&\ \&\\\ \\\%\%\%& & C P \dr 3 D h 3 r3 p3 X \ P \f""\?@ \f""\0 "& & e\%\%\'\'\'\ ' ' \\& \\U\N E\N MEP\֋\܋\\ȋ\%:  STMT ICAL*1\\\\\\\\\ \ \& \ \ \& \ \ ON 0008 CALL IPOKE("44,0) 0009 200 WRITE(7,2200) 0010 2200 FORMAT(' WRITE FILE - CYBER MUST BE IN TEXT MODE'/&& AT  \ 3RDZ S3`D Z\\\\ 1'$TERAK FILE NAME ? (NULL TO RETURN)') 0011 READ(7,2220) NL,IFN 0012 IF(NL.LE.0) GO TO 320 001&\\\&\\\& \ \ \\\\f&f&  e `e& e eB $ D D ~3 V3  n3 F  `P B3 \ @  vEx@+ H3I \ 11 FLOATING UNDERFLOW6 OUTPUT CONVERSION ERROR4 COMPUTED GOTO OUT OF RANGE 12 FLOATING ZERO DIVIDE2 INTEGER ZERO DIVID\ \ \ \&%\ "\"\"\"\&&\\\&\\\\ \\\sJ JsL% ދ ''' f  f3! nH 'STOP --    ;3  ,/ w)&/ t:  X R1/ J? #/鈇& e:  FF3 F V {` `3 V3 Tl ,FFBFFy R q  3iAse 낃 (  . %@".w.?ERR 60 STACK OVERFLOWED ABCDEFGHIJKLMN Z a  T  `U `R DNB (;  D  @ B   D \rpV& OPQRSTUVWXYZ$. 0123456789FROMIN ROUTINE "" LINE ?ERR |||%  COMPILING OBJECT TIME FORMAT.46 INFINITE FORMAT LOOP+43 SYNTAX ERROR IN OBJECT TIME FORMAT149 ENDFILE ON RANDOM FILE048 UNIBORTED BY CTRL-T). C C IF USING DECWRITER, SET IT TO HALF DUPLEX. C SET ACOUSTIC COUPLER TO FULL DUPLEX. C AFTER LOGGING IN,T ALREADY OPEN0 NON-FORTRAN ERROR CALL N A f C%v   \  \ TYPE "FULL" TO GET CYBER TO ECHO CHARS. C C***** 6 6 &  f 6A  v  6N\& :(6(r.U$?p@P~:&@@~%@ C***** C ** PROGRAM CYBER ** C TERAK CYBER TERMINAL SIMULATOR C C D.R. RILEY (612) 373-0340,-2977 C 213 MECHANICAL E3 COMPILER GENERATED ERROR16 WRONG NUMBER OF ARGUMENTS 13 SQRT OF NEGATIVE NUMBER1 INTEGER OVERFLOW 10 FLOATING OVERFLOENGINEERING, UNIVERSITY OF MINNESOTA C 111 CHURCH ST. S.E., MINNEAPOLIS, MN 55455 C C 7-SEP-78 C C THIS PROGRAM ENABLES THW5 INPUT CONVERSION ERROR14 UNDEFINED EXPONENTIATION OPERATION15 LOG OF NEGATIVE NUMBER=61 ILLEGAL MEMORY REFERENCE20 IE TERAK TO FUNCTION AS A TIME-SHARING TERMINAL C ON THE CYBER SYSTEM, PLUS PROVIDING FOR FILE TRANSFERS BETWEEN THE C CYBER ANNVALID LOGICAL UNIT NUMBER21 OUT OF AVAILABLE LOGICAL UNITS22 INPUT RECORD TOO LONG23 HARDWARE I/O ERROR?63 ILLEGAL INSTRD THE TERAK FLOPPY DISK. IT ALSO PROVIDES FOR TAB CHARACTER C INSERTION OR EXPANSION FOR CONVERTING BETWEEN STANDARD FORTRAN AUCTION TRAP24 ATTEMPT TO READ/WRITE PAST END OF FILE25 ATTEMPT TO READ AFTER WRITE26 RECURSIVE I/O NOT ALLOWED-45 INCOMPAND DEC RT11 C FORTRAN FORMATS. C C CONTROL CHARACTERS AND THEIR FUNCTIONS: C CTRL-B SENDS "BREAK" TO CYBER. C CTRL-E SENDSTIBLE VARIABLE AND FORMAT TYPES27 ATTEMPT TO USE DEVICE NOT IN SYSTEM31 NO AVAILABLE I/O CHANNEL28 OPEN FAILED FOR FILE2 "CTRL-C" TO CYBER, NECESSARY SINCE CTRL-C C TERMINATES THE PROGRAM UNDER RT11. C CTRL-F FORTRAN FILE PROCESSOR TO INSERT TAB9 NO ROOM FOR DEVICE HANDLER$36 BAD FILE SPECIFICATION STRING,44 2ND RECORD REQUEST IN ENCODE/DECODE 32 FMTD-UNFMTD-RANDOM I/ CHARACTERS IN FILES C ALREADY READ FROM CYBER. C CONVERTS STANDARD FORTRAN TO DEC RT11 FORTRAN FORMAT. C CTRL-R READS FILEO TO SAME FILE!33 ATTEMPT TO READ PAST END OF RECORD"34 UNFMTD I/O TO TTY OR LPT%37 RANDOM ACCESS READ/WRITE BEFORE DEFINE FI FROM CYBER TO NAMED TERAK FILE. C CYBER FILE MUST BE PRIMARY FILE. C USE MUST TERMINATE WITH CTRL-T KEY WHEN DONE. C MISCLE&38 RANDOM I/O NOT ALLOWED TO TTY OR LPT'39 RECORD LARGER THAN RECORD SIZE IN DEFINE FILE(40 REQUEST FOR BLOCK LARGER THAN . CHARS. LIKE "END OF INFORMATION ENCOUNTERED" C MUST BE REMOVED FROM FILE WITH EDIT BY USER. C CTRL-T TERMINATES FILE READS 65535)41 DEFINE FILE ATTEMPTED ON OPEN UNIT#35 ATTEMPT TO OUTPUT TO READ ONLY FILE30 NO ROOM FOR BUFFERS*42 MEMORY OVERFLOWOR WRITES. C CTRL-W WRITES TERAK FILE TO CYBER. C CYBER MUST BE IN TEXT MODE. C TERMINATES AUTOMATICALLY WHEN DONE. (ALSO A& U$?p@P~@@~%@.U$?pN&.v &&]~M~ ~%& "L@~ 6R6RNӚ pфնR՜*& f  7 #  rf & f   r>wZ Xf Sfwh2 WRITE(6,1) 1 FORMAT('TESTING........') GOTO 2 END Ad pp p r lwewZwX f,5f 8  ( " * $V @ 7 7 ? E ,we5 5  5 UEA f   eww6@ZZV LN dրj' LLL%%%ILL PUT IT ; IN SW MODE AGA"`z ^" M! 5?ʕ'5@ʕG D!"H H5^"<"ҕ "D! T! #BD! X? 5$^" `lpT^ ; BLOCK NUMBER %   &U $,@(* W < n " ""#EB!_ ы #R"W" W!:/W!=_ 6_ )"  5& _ *zz ""戃@&& Η*爀 _ҕ ҕ  U0_U#  W!= W!:"6" '".4D"5 "EU P"5'"ʧ"  @!5 U#U5_e__ U._e__ e_e<__x?BSW??NIF? 4 U#F8U#"#_ ""ff5@#:D5#U&4EU_"F ""U#" "t!  B!   *   t! R R  t!  _f!!*55 U#5 # &  ^#2E_# & f  AfE,  Ί  1P  @*?CORE?  5,   4U E ,   v " E%P%E% 5E׭4  & *  ˋ  & (  eb f&  c  v   S5,?ODF?e0?I/O ERROR ON CHANNEL ?A E   4 $ ^U@   ,  f  ~ 5,ŔE RW W{pU, W xW W W  ff"<>" ERRILL ARGILL CMDCB FULLNO ROOMSRCH FAILILL MACEOFHDW ERRFILE FULLILL DEVFILE NOT FNDNO FILEDIR FULLILL NAME&& l4O 4 ߋ*U,U, ,%B  v _plOp  IN MACRORBVI>UMNSGFPW0W9DE  ea 5e  WE<  !!n!!~mr~b m`r=mTXPmP F6      ( [ NI! 84V' 2#e@ 2 x !*WM L \  :  * * x W!W! wU%w-e@   J w&  WaWz .7}) WDvp w d`p nd Ҕ  @LL@>:,w7   #D%%~x` 7X7n7l7X7h\7aX 8V } *2!&  P 7 %   7aw & 7a7a   p w77 !- !/+ w~ 7 w7qw 7f vz 7tllhbb TJ7F@ Ce8C  ы *    c  * 7 m &\ 7 :}7~47  : (ă    $ j7&,z ~-m ӕ<(    ! ǂ 2F * CB ALMOST FULL *  #   ~! wRw鈇V02-12CU@$E@$v ^   ' L?OVR COR? & . 7 -7^ w  \ w VRmLJB W W} W~ы , 77- -6 $   JU0$w   L  B 7` t 7  m7! 7!  w w﷊z 7!  7!  t `  t j`f\7鷊 &R @% @ 7!݆    NJNmND7!T e7&7   P@P X7 7 v B  lh`"\TjPf-@%?8 45, - % b ^璉E   (     *   *e et    t NL!  N 2 S Rb  7X H B-H@&:4,@7$ 60 V7!Z r E ` =z 7a7a7a7a7aP7a7a7ay7a `w )  p+ +u ,  ׏5 3c <6 Č V5X5N5Tߧ56 Z$55ߗ56 '56  Z$  U` .*e_5 )  ( U$6 @  @65 D6U$6'5B6 .*> *U$6 *5 $V5@av ) Z$V5_ v5N55 җ5@v 55 5ї5 ї5_V5 _a556ߕ @6 D65B6E55  5 2* 5şn  $ 55 * * * * 6 6ovt P;   65 65"U $6 *5@N5  65 6E 6 6 +C @ @` E   #1-`w    - ∷ "&7 & "7 &  .%  % %@ % @  ~@r~@~%@\!Pz J{777-: -2     "    %z)&z'Kz( z42}s: s: :@@AK@K &@K8@K09@KK@KK@  75 @z  Z  7 77 j bK@K@K@Kf@KK zQD @R@@R@8@ @RvS@S%@STEST.FOR l   +{  N F7 &淊  |  e  LIST LOAD  X ,'$ ^ '  5db(5`5`ҵ@Ե@  5E SSST7fg  T Z{7D 爇 wH @MF&C _4'J BR&  N &@   N &  & @    &   `@   ' 5 HDnFB  p@@! %" " d"H' % & '5@5  & '5`5 5 5U$65 , + r'E 55  5 D6_ * (;'5n"_!" %#"d"^" n"j"_"_2!# %"#& j5 +&j55EEUQa j55 ! + X*& J,#5U$655@LU@$6E@Fh5 J,55 2, 8U 5 b*  X*U@$6 ~+ (5 V)'U $65@5ŧ5E5U5E4U44 ! $ ($ j5 + 5 |+ 3 X$_0, &35 :, W!. W!$U$6  * W!. v*U@$6 .* * @*  "'  * .*ɟ4 ŀ  "'U V5 $h *$5N5V54V5 $ߋ\5\5@B5X 5 l5,4T55B5T5 +$ l%z "55  'W!>_<' @*H "'L eee55 &5  ,555! ! W -- &) ) ` ") !3 <, "5ɥa ҕ T5 " l5 " + l%ҕ 5 ҕ 5  ,4 $,4 "45  *5& e .*@4 $ A @ ,  55C0   & N`*  5 %\0 0  5: F1 .* (1 5 @6 .* F1 F1E F1E 5B5 2606U,6 * ('f5  oo:/ F1 66e?f :/$ F1 F1 &f :/e0_F1 U@,6 5  %-5  "65 p2,45 2* ( .+ l5 5 F1 5 *  F1 ")W!' F1  5 .* )*x5! )$ 0%@  @@`@%@  .* (1 ) )5ff  + 55_U$6~56U$6  0 *U$6 05 @ @t@ @vD D J J Y    v @@ @ @P (1 0@B     .* C _(1 )< , 5<>C!W!^8 .* *C D .* C!D! U @ 0 eoovt P;U$666P: 2*66 x H 5 *6 5f' ^1 55 t1R|5    %  % %@ % @ Q$# +l5``B  + #`B +  #1-` _j5l5 s:,%   +j5 l5 p+T3p3V3|5   & |5|5 t1 n5fR %|5R ~5v5 1 1 @ ,, +j5 l53`d3 J3@ R H3d3   +ud353h5 ,fh5AH3Bd3C35 551 ~5 p2+ 3% "  55 %- % )  l*  &- "6U@$6 "6 5_ )  l* ~+55f6 J  RRRRRRRRR⋇ߕ# ~ 3 ,ߥh555h5;3~ ѧ "6 D,"6rI(3f#xKM*!lHXml[m.vKw+v N~,K~&X \0W]08r0ns0 ABDEILMNOPQRTUZh5 R l%җ5җ5җ5җ5 F6ʕ*   ('& t1 & &  + T/ F1 1  2*v5 .MAIN.TABLE OF CONTENTS******SYMBOL TABLE PAGE 2Mp@@@@@@@@@ά2| 2ZH6@@@@@@@@@2| 2z< $r5e 6_1U$6 ) )5555 l* 1 t1& l* ~+ D, $. @65U@,6  T/ (  5' 3 %5 4 H5oR5_35 %$65H5B5 4,R5N5_6_3$6 %H655U$6 F1 2* 5& 1$55& b. 1z5@6 2* 0 $. (1 05 d. (1 t1 @6&  T/_,U$6 + @6 5 )%?S5 * ) p+    @6 t1& #'5@6& )+ wy~Lyyyy@yh@y@y &@y&@y`'@y@y@y@yfyy} z@ z@ z%@Yz z d @ %@}j@x;1;B;|\EJ\XHHi}R ֯T ֯X֯x ֯-֯-ׯ}jگr2ޯp!^zPx$^,l!nnn!n%n+n,n.nKnKn Nn&XnHXn[n}n}nq%zd-zxd-鰼Ry  -  - ,2 |L01q/34/#:?2w pxkQ"kQrkQ Uq`kQ ^*eD e& &Ne$e E & && e& ~ee ? 6 W:@ 8& U& Uef \* e w& e∩ d pp p r lwW[ W]  @W: 0$W. eR& &$ >W*@ "  @ewZwX f,5f 8  ( " * $V @ 7 7 ? E ,we:e e W a `  (  &N W-e E  C0Π a `5 5  5 UEA f   eww w &fmD$CeK   baba& Nw^ e 7@Ŋ`v & & *J E%=%< D  "% %  p"B  >'  7 e  O  $e d W&E77   `B7?DEV FUL?e " 6  6R6pp֚آ p 2дR՜kӰ&  0`*7?FIL NOT FND?5 W,W=͋=7?ILL CMD?7z?ILL DEV?5 & W/@` W!f  7 #  rf & f   r>wZ Xf Sfwh7 t!  B!   *   t! R R  t!  _f!!*55 U#5 # &  ^#2E_# & f  AfE,  Ί  1P  @*?CORE?  5,   4U E ,   v " E%P%E% 5E׭4  & *  ˋ  & (  eb f&  c  v   S5,?ODF?e0?I/O ERROR ON CHANNEL ?A E   4 $ ^U@   ,  f  ~ 5,ŔE RW W{pU, W xW W W  ff"<>" ERRILL ARGILL CMDCB FULLNO ROOMSRCH FAILILL MACEOFHDW ERRFILE FULLILL DEVFILE NOT FNDNO FILEDIR FULLILL NAME&& l4O 4 ߋ*U,U, ,%B  v _plOp  IN MACRORBVI>UMNSGFPW0W9DE  ea 5e  WE<  !!n!!~mr~b m`r=mTXPmP F6      ( [ NI! 84V' 2#e@ 2 x !*WM L \  :  * * x W!W! wU%w-e@   J w&  WaWz .7}) WDvp w d`p nd Ҕ  @LL@>:,w7   9 Pz J{777-: -2     "    %z)&z'Kz( z42}s: s: :@@AK@K &@K8@K09@KK@KK@  75 @z  Z  7 77 j bK@K@K@Kf@KK zQD @R@@R@8@ @RvS@S%@STEST.FOR LIST HELLO l   +{  N F7 &淊  |  e  INSERT I3 JJFJFJFJFJFJFJFJJFJFJF ;LSKKDJJFJFJEIEJFKDJFIE KDJFKJDFIEURKJDFKJEIEIRJKD KJKDJFLS;FLKDIUERIJDFKJFD LKJDKJDFIUE7fg  T Z{7D 爇 wH @MF&C RIUDFFKJDFKJDFKJDF JKKFJKDIEIURIEIUFKJDIURJDF  ' 5 HDnFB  p@@! %" " d"n"_!" %#"d"^" n"j"_"_2!# %"#& j5 +&j55EEUQa j55 ! +5@5ŧ5E5U5E4U44 ! $ ($ j5 + 5 |+ 3 X$_0, &35 :, ovt P;  `w    - ∷ "&7 & "7 &  .%  % %@ % @  ~@r~@~%@\!: ; @@@`@@``@@@@ @@```@``@@@@@@@``@``<  @@@`@@@@@@@@`@``````@@@@@@@@@@`@``@@``@@``@@@@`@```@ ``@`` @@`@@@@@@ @@``@@@@@@```@```@``= @@@`@@@@@@``@@``@@@@`````@```@```@``@@@``@``@@@@@@@@`@```@```@```@`` ` @@@`@@```@``@@@@@@```@``@@@`> @@@@@`@@@@@`@@@@d`dd@`@@@`@@@`@@@`@`AAAA@@@@@`@@@@@@@@@@@`@@@`@@@`@@@```@@@@@`@@@@@@@@@@@`@`@`@`@`@@? @`@@@`@@@`@@@@@@@@@@@@@@@@@@@@@@@`@@@`@@@`@@@@@@@`@`@@@@@`@@@@@@@@@@@d``@`@@@```@@@@@`@@@`@@@`@@@@@@@`@@@ @@@@@@@@@`@`@`@@0@@@@@`@@````@@@@@@@@@`@`=0@```@@@@@`@@@0400A 040004@=040@4=0400B =040=04044040B=0400@C @D cef `% 7?SY I/O ER?  W ,,e (wvd@7$e   e7B?FILE?r ? & f,e $&EΔNIQ%Ό%@ 2EQU E`H#Hee&b,e 6e  %e& e7v?ILL DEV?'((U  $)  `ee& dG F  EE ` ؁  RUREG E D BTSERNIn<u~vK YM|.wbjT^%%W&&'''()`!  ae``````` `1`d`wt ? ? ,0 < EP$7 (, 3 v3 3 ~3 L37  NO ,e (pewvD@7$   k7@?FILE? e,E$7eC5$w x .H @@  #%  +C!wTq~ ? & f,e $&EΔNIQ%Ό%@ 2EQU E`H#Hee2b,CA Ջ e R l*A .  e$ "7 < 7?ILL CMD?鈇o& ee(  E e% 7?ER RD OVLY? A K E E ͥ- 㺇 e l B @ @ ؁  B^ eE͋=,e    : x , enEO e   $5 7 EBc7?ADDR?O e @ z %zO: ( 4   5$,( ""@5@ A ej  %@Ae Fuu| 7?FIL NOT FND?7?SV FIL I/O ER?w5 $ 2  8g e6E (7?OVR COR?  E $   :  <  @  ef D!%  R`W!&&   eR f .  & f& 懇? E TION DATE L.ENTR = 16 ;LENGTH OF DIR ENTRY ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; THE ONLJFw? ? a@w 7Rw $!5@  e<NSSewY DEVICES BESIDES THE SYSTEM DEVICE WHICH ARE ASSUMED ; TO BE PRESENT ARE THE TTY AND THE LINE-FREQUENCY CLOCK ; DEFINITIONS ON  U7 ͆ 7 7  w ~w wjw d4.7 v7 tw * 7e`w F TTY STATUS WORDS: ; TKS = 177560 ;READER STATUS TKB = 177562 ;READER BUFFER TPS = 177564 ;PUNCH STATUS TPB = 177566 ;PUNC@%1@% @#eee%7`p 7 w   e# / wxEK]w d ؇fH BUFFER V.TKB = 60 ;KEYBOARD VECTOR V.TPS = 64 ;PRINTER VECTOR V.FPP = 244 ;FPP AND FIS VECTOR .IF EQ BF TTYI6RN  w 0 E0w!z 5 1   $ZX w 6    < @ N.6RNP $BPPpL%N%ʳ%w  h  `5El $f w   $PPw w  w  pw  ? we`EW2El  7 PFaP=7 B*#7D 2a,`e# B#e`#w *ed%   . b$ `w#   7 "3 f7 Kaes S w b 5Sw I3W2WlA Ew C $ A#EE P &EΒE? >#:?2w pxkQ"kQrkQ Uq`kQ ^*eD e& &Ne$e E & && e& ~ee ? e (e  %e& e7h?ILL DEV?'((U  EE kQc.^kQc.EkQ!c.iTXvc.Q`c.:T,`c.Q$:T c.Q$:T c.Q$:gS c.Q$:hS ` ؁  RUREG E D BTSERNI<u~vK YM|.we(zsdlV^..W..0 0044000 c.Q$:v c.%$:z c._xe^ c.?gd^c.@gd^c.Agd^c.Q`c. % c.%fv OCK 6 E.NAME = 2 ;FILNAM.EXT STARTS AT WORD 2 E.LENG = 10 ;SIZE OF HOLE ALLOCATED E.USED = 12 ;HIGHEST BLOc.%v c.D$CeK   baba& Nw^ e 7@Ŋ` & *J E%=%< D  "% %  p"B  >'  7 e  O  $e d W&E77   `B7?DEV FUL?e " 6   0`*7?FIL NOT FND?5 W,W=͋=7?ILL CMD?7z?ILL DEV?5 & W/@` W!E: MOVB #0,SC ;TO GUARANTEE 'NO-ESCAPE CONDITION' JSR R4,SEND ;CHAR IS SENT AS IT IS. MOVB #BOM,SC JSR R4,SEND W:@ 8& U& Uef \* e w& e∩ MOVB EXRECVR,SC JSR R4,ENCSEND ;CHAR IS ENCODED IF NECCESARY. MOVB MACHNO,SC JSR R4,ENCSEND TST EXBINM BEQ EXBODYW[ W]  @W: 0$W. eR& &$ >W*@ "  @ CLR EXBINM MOVB #BINOUT,SC JSR R4,SEND ;BODY OF THE MESSAGE: EXBODY: TST EXLENG BEQ EXEOM MOVB @EXBUFA,SC :e e W a `  (  &N W-e E  C0Π a ` TSTB EXFREE BEQ 4$ JSR R4,SEND BR EXB1 4$: JSR R4,ENCSEND EXB1: DEC EXLENG INC EXBUFA BR EXBODY EXBDF: TS w &fm