IMD 1.17: 24/11/2010 19:28:40 09 rt-11 version 2 fortran     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.nz  z Mz }vkQrvvLDvxev,`f5@E  >` DD 0~e~ >b@ AtvzjL^&zkQx Ez'v`@;(kQ f&'jL^}}' f@' #}}^ }}^KW'}}v}}v'}' j8vkQ  x(kQ  x(kQ Ez %r; %z` (%n %%z 5lem:.7 ?B NOT SYS DISK!   2  8g e6E (7?OVR COR?  E $   :  <  @  ef&B  ,B B wf `e R"tCeetHa a adF a D!%  R`W!&&   eR f .  & f& 懇? ,0] t?a !aW,n`p %e 8?ae?w|N P $Ncef `% 7?SY I/O ER?  W ,,e (wvd@7$e  R ,04@>>>C8E:E>E@EBEFEHE>r?>@&A#SYUNIT?#. b,e 6e  %e& e7v?ILL DEV?'((U  M1""h^ M008Բ@ԲMRoot-level: Edit Run $)  `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 BLOCK WRITTEN (NOW 0) E.CHAN = 12 ;WHILE TENTATIVE, HOLDS CHANNEL NUMBER E.JNUM = 13 ;FOR BF, HOLDS JOB NUM E.DATE = 14 ;CREA ~? bWʳW < B abTION 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 TTYIN 6R  w 0 E0w!z 5 1   $ZX w 6    < N@ N06RNP NHPNpL%N%Dʳ%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 5NO ,e (pewvD@7$   k7@?FILE? ewTq~ ? & f,e $&EΔNIQ%Ό%@ 2EQU E`H#Hee2b,e (e  %e& e7h?ILL DEV?'((U  EE  ` ؁  RUREG E D BTSERNI<u~vK YM|.we(zsdlV^..W..0 0044000 *eD e& &Ne$e E & && e& ~ee ? :e e W a `  (  &N W-e E  C0Π a ` w &fmD$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 I3W2WlC Ew C $ A#EE P &EΒE? >#:?2w W[ W]  @W: 0$W. zeR& &$ >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    @|` @5B@>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  _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 lwewZwX f,5f 8  ( " * $V @ 7 7 ? E ,we,@~@#'U(?62+- xK2K7AS`<7"7H 28 @5 5  5 UEA f   ewwE@*LP.SYS REV A 22APR77 USE IS LICENSED BY TERAK CORPORATION ,^ ` 7 (J%P?: %$D?w %n%w? ` h ZBlRET LU@I  T 8 ׌.E 3 W ť` ׌_VW W W CT#TTA  l   0 ,,^ `,} W   % UteP,}N THE PRINT HEAD/CURSOR AT THE NEXT TAB. CHARACTERS WHICH爃E ? b 9 ? ^ 7L!7 wpO 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 J%ILL PUT IT ; IN SW MODE AGA"`z$TrtOB IS OPTIONAL. 'S ARE OPTIONALLY PRINTED OR LOST. CONTROL CHARACTERS, (EXCEPT CR,LF,HT,FF,BS,VT) ARE OPTIONALLY PRINTEDv\`lpTz ; BLOCK NUMBER %   &U $,@(* W < n%& _ *zz ""戃@&& Η*爀 _ҕ ҕ  U0_  ^" M! 5?ʕ'5@ʕG D!"H H5^"<"ҕ "D! T! #BD! X? 5$^" e@   J w&  WaWz .7}) WD " ""#EB!_ ы #R"W" W!:/W!=_ 6_ )"  5#D%%~x` 7X7n7l7X7h\7aX 8V } *2!U#  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!  ,  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!!t! #7^"#  D!Bҕ v"D! Xt! #! # v"N?<D! %t!#5^" F!  #5 [ NI! 84V' 2#e@ 2 x !*WM L \    wD,"( 07!!  7   <-`w    - ∷ "&7 & "7 &  .~mr~b m`r=mTXPmP F6      (Pz J{777-: -2     "      :  * * x W!W! wU%w-  75 @z  Z  7 77 j bvp w d`p nd Ҕ  @LL@>:,w7   l   +{  N F7 &淊  |  e &  P 7 %   7aw & 7a7a7fg  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 :, 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  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   n+ +u ,  ׍5 %@  @@`@%@@ @t@ @vD D J !l  !f Jvp@Qd @@C DELN I:DA|0E]]$`rA0l|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& _> *  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 ""戃@&& Η*爀 _F ҕ ҕ  U _T _\ e_V _^ U _L e_N 5 N5e JU $6ߗt435N5t4,45 * 5_ 5 "6  5  P5nD zz5_>6 %) &   r2  | fU _l e_n e_F e<__ F ?BAD SWI t U$6 55 U@$6fD r 5  -ft5  'n5v5  ⋁_z5U,6TCH? C 5 5@6& C 5 5& Z  $6# R| F ?NO INPUT FILE?| ~ 5A 4U@$6R , , l5U$6ߗ3t43I\5 $6(΋B5,6  D545B55065B5,4" p F D ,fA A A E N%ҕ-Ee <,ҕ-EeH N% ,<506ߋ35B5E,67B5,6 5B5!33 <,ҕ  Z53 $,4.6406 #Z5T?#3 %,45B5a 2 : : & f : f : RRҕ:   @ E C! eŋe:/<,4 <,3 N% 465B5 3 865B5 4 5?ʕ'5@ʕG 35H H5B5 N%5ҕ 53  4.6<,  N% <,,4 $ $ ` `,4 ` | .@ $ T1  5B5 <,3 $?# l5 #5$B5  +5 553 5H H5B5  N%4ʕ 4ҕ 465q  4    _ !!  F ?INSUFFICIENT CORE?  5B5  ҕ 865B5  5?ҕ'5@Gҕ  l5 #$6E 32ы $6R@ () )  p   F D p U   8f   ,E f[  )5 5h5 J,5W6? (W!:cW!=_| l* J,_- b* J,_ V)W!$ *W!: 5 65U " 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_ *  3 R9 .* 55 B5.ߋ\5+3 <, * ")55 -5   $   &e0J  ʕ Jҋ  ߋ R F$L5 !"5  !& l5 +&l55EEUQa l55 ! + 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ߕ  U$6E +& % (6   + " "    (' ('0U  t 5 t t t b  05 .5 05 e05ߋ15U$6 b(J  t 5N5*6  U$6@ , + D6& D @*2H U$6U% &6  'UHW!( fU E jW!+ *U;5U5 * 25r 25  U $6g*5 5 *655 _ *" t 05  t t   la     * 'W!(5( 5N5UU7 5U$6Effff fPU0  " U * W!)_*U$6 b b b _2, > %, .*5 *5B5_.6 @6_ )55 B >6W"* ! ! 55C 6 , +2 5˵@2Q˵ 1ы5, , +3˵@ Q5ыʋы & e gP355  53 g5   5  56  5B5 2606U,6U$6 ) + 5 5 )IU$6 ('C (' ыJ (6ԋ   4' Հ ) X*55U@5 ~+ D,U$6 % ' 5  54_2, ('  ( X* J, 55@  C BW!&W!!B * C C ) @6) @6 ( + B  >655  ( .+ ߗ35U 5 ~+ J,55 0,_*  5 55N5 ,55 6, .+ 4,_~+PF50F5@B50 6 `D5 PB5U$6 5U,6B5H5 4,N5R5C )! + B  >6PP50P5 $  " _"35 2* (U$6555 *4ҕ  J W! U ҋ .*ҕ  <, <,45@N5 PN55 U$6546@56566586@965:6 fAʕ RfA  e $6U&Cfffff &h5B X ,'$ ^ '  5db(5`5`ҵ@Ե@  5E SSSTh5 R l%җ5җ5җ5җ5 F6ʕ*   ('& t1 & &  + T/ F1 1  2*v5_4'J BR&  N &@   N &  & @    &   `@   $r5e 6_1U$6 ) )5555 l* 1 t1& l* ~+ D, $. @65U@,6  T/ (  5'H' % & '5@5  & '5`5 5 5U$65 , + r'E 55  5 D6_ * (;'555U$6 F1 2* 5& 1$55& b. 1z5@6 2* 0 $. (1 05 d. (1  X*& J,#5U$655@LU@$6E@Fh5 J,55 2, 8U 5 b*  X*U@$6 ~+ (5 V)'U $6t1 @6&  T/_,U$6 + @6 5 )%?S5 * ) p+    @6 t1& #'5@6& )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  @6 D65B6E55  5 2* 5şn  $ 55 * * * * 6 6 (1 0@B     .* C _(1 )< , 5<>C!W!^8 .* *C D .* C!D! U6V5^%vV x 'X55N5 X54x. vV5xX5eX5&gX5x * $X5eX5Z5 65 65"U $6 *5@N5  65 6E 6 6 +C @ @` E   #1-Z5\5Z5 ,ėZ5 Z5 W' 5$<5f 3453 <,5 N% 5ҕ+ 4 $5 $;3 $ ^tRQ$# +l5``B  + #`B +  #1-` _j5l5 s:,%   +j5 l5 ŀɕ? ҥ ҕ ҕ 6߄ `"t鈄   &f R%e0R&5@ %(+j5 l53`d3 J3@ R H3d3   +ud353h5 ,fh5AH3Bd3C35 55 %@ %!5 &  e ee e  , H'"& +R @* &E5 5 U$6 U55f6 J  RRRRRRRRR⋇ߕ# ~ 3 ,ߥh555h5;3~ ѧ p+T3p3V3|5   & |5|5 t1 n5fR %|5R ~5v5 1 1 @ ,,  ~@r~@~%@\!%z)&z'Kz( z42}s: s: :@@AK@1 ~5 p2+ 3% "  55 %- % )  l*  &- "6U@$6 "6 5_ )  l* ~+K &@K8@K09@KK@KK@K@K@K@Kf@KK zQD @R@@R@8@ @RvS@ "6 D,"6rI(3f#xKM*!lHXml[m.vKw+v N~,K~&X \0W]08r0ns0 ABDEILMNOPQRTUZS%@S@S @pTpT@8 pTvT@pT@T%@OX OX OXOX%Y[q`"r@  .MAIN.TABLE OF CONTENTS******SYMBOL TABLE PAGE 2Mp2| 2ZH62| 2z<r @r r sssw w ;wwww w%w@8wK w 3 %5 4 H5oR5_35 %$65H5B5 4,R5N5_6_3$6 %H6A wy~Lyyyy@yh@y@y &@y&@y`'@y@y@y@yfy   w5@PP <. 47a7a7ad7a7a7a7a7a7a7apmy} z@ z@ z%@Yz z d @ %@}j@x;1;B;|, Pee  wh1 w^1B*e@eAD   6 ND SHOULD NOT BE \EJ\XHHi}R ֯T ֯X֯x ֯-֯-ׯ}jگr2ޯp!^zPx$^, CONSTRUED AS A C COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. C C DIGITAL EQUIENT CORPORATION ASSUMES NO RESPONSIBILITY l!nnn!n%n+n,n.nKnKn Nn&XnHXn[n}n} 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/wZ Xf Sfwh! T! Hԋ    &!  ep >Nb&d pp p r lw2E ' &f vwxrD 7wfw^\z7xH <w7n wewZwX Y 0 f,5f 8  ( " * $V @ 7 7 ? E ,wewP e]w2  SM    C 5& k n & a t5 5  5 UEA f   ewR L  0Ul& 8p6q4w8 eߋ*$s"ff\^ ` 7 (J%P?:Tq>< %42$@K(@(@ TRANSFER ADDRESS = BAD OVERLAY AT SEG@ 7 ec7 w:R%w7?HARD I/O ERROR? $-ՀDAEDAEmNC!  ##TTA  l   0 ,,^ `,} eA w<7 6ww `!B 7"c27 7 7 x t5爃E ? b 9 ? ^ 7L!7 wpQ wwSw@ `eP 7 `  7` eP e     7N70  :  jRf FA X  wD,"( 07!!  7   <-w * B U $DLXHTDB R(!'(!w ,,!f zMMULT DEF OF  /   4w h!&    7?BAD @e @e 7?TOO MANY OUTPUT FILES?7?ERROR IN FETCH?ee @ GSD? ˋw&Ҋʋ  jȵ)ȕʋe& JQ$ lʋ 7 z v7 e"@Da 7l?FILE NOT FND? W!⃂wVT Zz7 7 w&wB 5 7?/ ʋ7 T P w0Nw & fw Z'L" @  L :DdJ.6 8 B ODD VAL?%^y7?/B NO VAL?CAhA4bM  >V5 7?/M ODD VAL?GL NP@   & 7 e 7 " wLf&$Ew T ~7`  z&  j7\?LDA FILE ERROR? w n7 >f  &(R  - ;.7I1F+S%R7  4 6*-   7?BAD SWITCH? e ee e  $ɕ@ Qɕ Iѕ ` B R n& f 7?MAP  w !SO S$ $ d !w W ) 7?FORLIB NOT FND? 7[ FILE ERROR? J   ) $ A  f e `   T  O? #  ;&(1 DA    @eeDA  e D D ĥ ĥ׭4  & *  ˋ  & (    CU#  !!7?NO INPUT?U!7?CORE?!! 7x4$   4 $ ^U@  `L$ C>`L$ C I, ̋̊ e̊ @ _ (xe r N̋e "<>" ERRILL ARGILL CMDCB FULLNO ROOMSRCH FAILILL MACEOFHDW ERRFILE FULLILL DEVFILE NOT FNDNO FILEDIR FULLILL NAMEA C g   !w$D7!T e7&7    STACK ADDRESS = LIBRARY SEARCH: z'jL^/O IGNOREDBAD SWITCH IGNORED?CORE?eEe,5eb ^璉E    (     *   *Ee w@`5w7@ w@@   W w 7  eb  7X H B-H@&:4,@7$ 60 V7!Z P@P X7 7 v B  lh`"\TjPf-@%?8 45, - %  s  &#w . K  ѕ ѕ # x 2w 7` ~e et    t NL!  N 2 S R  H 2w 7`Xwt4 .7 w  7 ?OUTPUT FULL?Հ g r E ` =z 7a7a7a7a7aP7a7a7ay7a `w Uq e>z4w4 FZ   $E&   .f& f w   wDE!  C(SSK I!   & fۇ & m85_    m|w W" Rw t@ F fw DχB ww@`(a(f7-: -2      w    wbwV & wZ&fe>B @& fE@ B e!0    75 @z  Z  7 77 j bf rex&@ @ @ E *ѕ-EeM-EeH / dѐ + ;CALl   +{  N F7 &淊  |  e nҋ&ʋ7Z[L"@  L-C l`w@,B` C` ʋڀhd& fw P RT-11 LINK V04-04A LOAD MAP SECTION ADDR SIZE ENTRY ADDR ENTRY ADDR ENTRY ADDR HIGH LI  w6 7s7 D7    8 w( w    @x7x"7?DEV FULL?& fw E 1 w@@ AA Emf  d7h W0wMIT = UNDEFINED GLOBALS:UNDEF GLBLS OVERLAY REGION SEGMENT JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECTRANS7(hA m,   E6P27.U](~ w^@ &fpe" .Nf JFER ADDRESS UNDEFINED OR IN OVERLAYSTACK ADDRESS UNDEFINED OR IN OVERLAY0Z Lw   nѕ.  wDE!  C(SSK I! @`(a(f x5AhA mR  dHRId ^ѕ ѕ ѕ ,   ѕ  w #!7   % eD `m >f&&5  w B2@Em 5, PEU'   f A X7?ILL ASECT?m5a EKѕ ѕ @  Sca)  w K v Eal (  x w w !7 w K"s,@ E L Nsa(Jw e 7`4 #eK#  w t/ Dw fB  2  ! > m5 !   ewVfl å~ y7ox7 Z  0å  LW<E b 87 26Ր -(    6ADDITIVE REF OFAT SEGMENT #BYTE RELOCATION ERROR AT6F? U@e" wZLOADED AT T &  5 - w!L<& 2֥  5 7 -!L77@e ߋ*! %   - # Eދ %%%%% 7X ^7 X  7M 7?7: 4 *f,EA 3c  - D @&c%TdL!)t&b%0e )z%P4H@ <`   w5@PP <. 47a7a7ad7a7a7a7af5$$nҋ'ʋ8Z[L"@  L.C l`w@,w.^ C^ ʋـfb& fw N$  AEm(   <T!  m:5 w! j    w4 7s7b87 7 7 !7 ?  4 8 zDewv"2vADDITIVE REF OFAT SEGMENT #BYTE RELOCATION ERROR ATT (R4)+,@R5 ;IS BLOCKING BITe feEm5e 4e ,  b  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.w| w    8@7wR H&  @ Ce5f m^  7?BAD RLD?n & Z 7 H T >7@ C6 "&   <%<!&  w  <w   ^  e֋ ɐ0 @ @w  A  zd (7\7 h w wbw f* . e J &f&f  &   Ce5 m   7?BAD RLD? $ <<& ~ w      7 ;-.& j be e D  f &7Lw x Ze֋ ɐ0 @ @w % A   0w ^.$ H DZ ^ p  *&  7?REL FILE ERROR? 7ͥ  p 7 å   @ ` C  <    @ PN!@  x &fW]D r - ?EXT NEG?7?ROOM? D$ j M  `4  7   e  †w7f?BOOT COPY?鈴&fe>B @& fE@  B  _   j Z, ^  FILES,  t BLOCKS  , T FREE BLOCKS   H qwr-P@N K :/? rD n ׇ j  x  |& (U%@   C7Z?ILL SWTZ ARE YOU SURE ? @ b ~ a XT  r eTlA  &  w׭?006B`f |ABDnGKSPTrV WCEFIL 7?ILL CMD? TERAKߋtv ?B-NO BOOT ON VOLUME @w p@w MNOQRUB XYZ7?ILL DEV? n> &e n70eVwP׭ ׭ w f& fwW#w v   @ @wP  @& 7 "   J R ep   ^W"@CRRRW$@U   b&W3 nW5)Ët#$t-  t- BLOCK@   IS BAD   -̂@ &   # p@ zw 7 P7 R & B g wD w-   r? JRRRe e w  =@e ^  7f?FIL NOT FND?&p ѕ  Rì     s   p x] \Z 1~   @  # > PPPP  @7?ILL REN?ww w  @ t e PR  d s  -2&w*   4 s  ee  w& f a7 RRR |   H /w 6  @e  e      8   5  e7wfD`we  & wr fW3W-  r  e[7   6 `f 7 7 F     & e $g,5 w pe  cD >N & eT e lW3ceem D  F 4   ? ?    $]  F  F p  #we 7  .     ep  wN  -`` ` z  ? 7 $7 JwPea% wN ew@  wz 5  #  7L H J &fw   Np  T8e> R$: .ENDC TST OVFLG ;ANY OVE N jJ  w     <  m8eW3[wmW5wm df< UNUSED > @ P#H-p-$  \ |w-  wcem55---A*fU%m5 & 5!u#  ne` w ~ .pq7 N & (fIW#EO;e<  H  U e LLhQ L` mw  L >  w @ @QЭ w xW! U%ew e7 w w & f͋  w hՇ xeET W0 e ͋ _ U _Õ@ ɕ0ɋ %¥@  q c LL0A bAce) H w & jp&WW*  @.-     2@Ee (͝)% % 95 RROR IF UNDEF TRANS ADDR BEQ 13$ BIT @R0,#.O  :e e    c ` z A0 b   dVR ;ERROR IF BEG ADDR IN OVERLAY BEQ 14$ 13$: LERROR MOV #1,BEGBLK+8. BR 15$ PIP V04-06-AE]E `7` 7/7 ?COR OVR?|e ! !>M#@SS%'   &5 @@  N^&E#? w e&  #@S    ,@*,@& &  B j&7  ȝw7X?DEV Fe7B?ER WR DIR?t emq&  D 7! !e   < UL?7J?OUT FIL?@7 7 e meq7?FIL NOT FND? 9ne ׭ )XF  @e0    . @f( d@ ee0 &B,75 e ( -5 j+ '@& && 7` &  ,7 5  %Y   5>*UUUUUUUUU5.fPBE~ЕCE.& e0~5 4.&&e.3 %KK@Qr@Qry,dy,dZI9;qZI9:$"g:$"g&f5@E  >` DD 0~e~ >b@ t&Xq|Xq|l8l8t:#t:#ZZGwSc;;_cGwSc zy zyGwgGwget@```6 v_H-&fv   !w J   @ .wHwH8G8G8<}68<}6.@Q.@Q8K &8K &8<} 8<} 9} /9} /B9 B9 **&fE Uz5tvfE Eɕ -PBE~Е]9x} c]9x} c. . gMH gMH T`; T`; fZ fZ Zg, Zg,  qor b qor b;N` ;N` CE& e0~5 &&e   EPe@  UfE [qM F[qM F9;[ 9;[ z4f 6z4f 6l;C^ l;C^ t;: t;: t;a ~t;a ~w; w; |C^ f|C^ ~ wJɕw:"ߋtvB_>>< (&&22 *f;`; ;`; [MDF[MDFu~ z#RD; aD; aARAR;t~;t~;;;; ,**>> "2*&" >" >"  ">> "8""> """"""< >> " ":*:"">"""""""""""""">>>"2""""">"""8 "  ">"6**""""&&*22"""""""""""*,"" "< >""""""""""""""**6"""""""" & @->  y !ߕAZ @  > > 8 8*> <"<&""<< ,2""<"<$  VTBOOT V01-04 ENTER DEVICE TO RECEIVE 8510A BOOT -- ?ILL S,2""< &""" " " **""&""""""&""""2, &< 5J@ 5x5ѫx5T}T}<;f +<;f +H;'H;';f;a;f;a;&;&;;2;;2i;R"R.&ѫx@(F&h-.CAB@åDP;Wz;Wz>>A A @KB@KB)?/)?/?O?O99y?k><  åɋʋ(&ݕ! P .Xq|ѫx@(NXq|hk&?<k|?}f Nf Nfr8t'f8t'f@@;; NEe;;pp.fACB @ΥDR Υ.& ɋݕ  R   Lp:p:qWqWw3Xw3X?d?d5:WT5:WT{8f9{8f9u~@u~@@ v@ .l8ѫx@(l8h@.t:#v:w :w 8@8!v8@8!v\gy!s\gy!s,y#,y#ѫx@(Jt:#h.fABΥ D%# ы V,&Cʋ ɋR  ֥.Zѫx@(LZh].C  D DU%AåB n.&aK ҐCCaҒem.GwSѫx@.Kѫx@(Kh @Ћ @.@Q(8;;_hOGwShL.CAB ɋ ʋR åʋp&ҥ  ѫx@(@Qh& AB ы 1ʐ5.y,dW ". zyѫx@(0 zyh.CABDы   ѫx@(*y,dh.CABы åݕ ѕ  &åDR T&R4.Gwgѫx@(.Gwgh<;` <;` <;c <;w  XH;'|H;'|H;'|H;'|ȫ'|;e;X;c;X;e;X;w;Xje;.ZI9ѫx@(^;qhZI9h.fAB& X; ; ;#;7 Du~Du~~qiqi>qv; v; H;@: :EH;@ & C  d.&̲e֥ Eae L a@ R.:$"ѫu~; wu~; w59}M59}M:`":`"888'=8'=u~$'R8Y8YzfK5ѫKzx@(>:$"h.CABD ҋ åE Rs &   .CABåDR  åɋݕ&R.wѫx@( who.fZѫx@(fZh@鈇.Zg,@Ua.8Gѫx@(8Ghѫx@( Zg,h@Ud. qorѫx@"ff@@ ee.8<}ѫx@(8<}hu( qorhE 툇.;N`ѫx@(;N`h ffU@@ %..@Qѫx@(.@Qh ffU@@ %.[qMѫx@([qMhf%.8Kѫx@(*8KhS. .9;[ѫx@( 9;[h3& WNff@@ * e &=.8<}ѫx@(8<}h/(ffU@@ * %.z4fѫx@(z4fh @f@@ .9}ѫx@(.9}h .l;C^ѫx@( l;C^hi.& WNfffU*&@ e.B9 @ѫx@( QB@@ v.t;:ѫx@(t;:h' j9 hw(@ A s0 s@6 .]9x}@.t;aѫx@( t;ah@@@ .w;ѫx@(*b]9x}h.   @ B .  ѫx@(w;hf@@ %i.|C^ѫx&3.. ѫx@(. hf%@(|C^h 爇.;`;ѫx@(;`;h.gMHѫx@(*gMHh.& WNffU*@@@ * .[MDѫx@([MDh@ e &=.T`;ѫx@(T`;hm  戇.u~ zѫx@(F#Rh? @@ e .; ѫx@(*; h&;#h ;7h h%R.EA D Da  fB "& @@  e.& fff& @@ e & 9.Du~i@i>@ѫx@("D.u~$ѫx@#R@(0'Rh. C)&%Cu~h}* A@Ae   mii>i>.~ e #R&B eO`.8Yѫx@( 8Yh. A<  ,5 2&Cy(&   `@ `  B  Ag@ [.D; ѫx@ѫx@(0ih_i>h..2,5 <  @ C #R@( MD; hf( f&&@@ e #R.&  .v; ѫx@(Pv; h. ADEPARѫx@#R@(ARh EM #R % b  P.&%e ee e  X L(@6.H;@ѫ.;t~ѫx@'R@( =;t~hZ( &@@ x@(: h g:EhH;@h`$ ,@g @ @H.u~;e 'R.;ѫx@(.;hk&;h ;hhk i@i>@ѫx@(@u~; hu. A@A  C.& f ffffU*&@ e .<;` ѫx@(*<;` h&EՕ:ii>i>"&eËe:/ՐՐZ.59}@ѫx@(Bj<;c h <;w h Xh].& fff& @@ e & 9.59}h. &@@ B 8  $& @@ H;'ѫx@(NH;'h&H;'h H;'hȫ'h.& f  c.:`"@ѫx@(6*:`"hf.@  @U&@Wf.&ff& & & e&@@ * e  L.;e;ѫx@(6;` ` B  @ & .8ѫx@(8hc;h =&;e;h;w;hje;h.& f ffffU *& f %.8'@ѫx@(@ 8'h Ee .;;2Ee@ѫx@#R@N.'R@(6;;2h i;RhY  % %,LCA C B    Aw  &.|?}. f& Aff#R'R& @@ e  Ee.@(v Nh& Nhr8t'h8t'h.& fD "  5 ;Wѫx@( ;Wh-(ffU@@ * %.&@ A @ B.L  ` ֊ EU    rw .>@((>h. DCAdE b  Iw.@ѫx@(@h)h <$ DA     & .A @((A h. .;Ee@@ѫx@i(;he Af DCA   Iwc & .@K@(j@Kh  wEeP. N@J@ @@z.x@@ѫx@YBx@(J(f N@@ * %b.zfKѫKzH(J@ h#xhѫxh. & D  D  '.& @  D`B `  C &L, .T}ѫx@(T}h     AwL  .)?@()?hP" fff@@ e.<;f Ee@ X@ѫx@(<;f h.& fDAf!@A e 0F.&e@    D E E   E.LB C Ί   eAf wEe X.H;'Ee@ȫ'@ѫx@!(  ֥*rHw    # .?@(?hH;'hxe Af wEeȫ',.;f;Ee@  @ A w .9@((9x@je;@O(;f;he Af wEeje;.h..A@ A] -  &.y?;&Ee@ @ѫx@(;&heAf w@(p>&ѫx@(:wh. D&E4* @DDC .qѫx@("q.&e@ E7Lwn  $Ee(y.L 2    h* D 5$ L DCH .w3X N@z˫@P.r*,^ e,} J@ B.8@8i@&ѫx@(Lw3Xh1.f)&% &f&J ѫx@(8@8h. xff& %N* +ABF.&i.& eDf&& F N z˫"F.?dѫx@(?dhC    C΢  .L E3  e rJ.\gyh& BA," .5:W@<4@ѫx@HShh\gyhk,8;@b7 Z\gy# ,8; N  Eeh. NQ wf$" NxYBx&ѫx(05:Whv,B 5 ɋ@ <4.&E #  7 ѫx(x.Lf{6" . .= , ,! * * ( ( & & $x6"&ѫx.r  f&&8 . e {@ $ " "  M  .{8f9@<4@ѫx@@"J@ g.?SYSLIB- FATAL INTERRUPT O x'VERRUN' .(n{8f9h,.DĊB 5,ĊePĊ$BX <4. n.vȫ@|@Y@!@\q@h.@ X S۪ Tq,.G9S S۪ K<*SS۪  vȫJ*|Y  @!\qX*S۪ .MACRO $DO ID $$BCTR=$$BCTR+1 $$BNMB=$$BNMB+3 $ASS1 $B,\$$BCTR,\$$BNMB $ASS1 $E,\$$BCTR,1 .IF NB ID $ASS1 $D,\$$BC Tq  G9S۪Kf}.|S S۪ KvpTR,\ID .IFF $ASS1 $D,\$$BCTR,0 .ENDC .ENDM $DO .MACRO $IF COND,ID $DO ID $ASS1 $E,\$$BCTR,0 $TEST 0,C*SS۪  vȫb*|Y  z!\q.,yhOND .ENDM $IF .MACRO $END NO $ASS2 $$TEMP,$E,\$$BCTR $ASS2 $$NMBR,$B,\$$BCTR .IIF EQ $$TEMP-2 $BR R,\$$NMBR+2 .IIF NE $$TEHShh,yha,8;@b7 Z,y ,8;"   MP-1 $LABEL \$$NMBR $LABEL \$$NMBR+1 $$BCTR=$$BCTR-1 .ENDM $END .MACRO $INIT NMBR,PR $$BCTR=0 $$BNMB=NMBR .IF NB PR $$ V   .S۪@Tq@B9@y@S@L.@vȫ@|@Y@!PR=1 .IFF $$PR=0 .ENDC .ENDM $INIT .MACRO $TEST TYPE,F1,CND,F2,BYT .IF EQ TYPE .IIF IDN CND,ON $GEN TYPE,BIT,EQ,F1,F2@.SS@;@S)@@@Q@&ت@e@S8@\q@xht,BYT .IIF IDN CND,OFF $GEN TYPE.BIT,NE,F1,F2,BYT .IIF IDN CND,EQ $GEN TYPE,CMP,NE,F1,F2,BYT .IIF IDN CND,NE $GEN TYPE,CM*S۪ Tq  B9Tq,,yS S۪ vȫK:P,EQ,F1,F2,BYT .IIF IDN CND,GT $GEN TYPE,CMP,LE,F1,F2,BYT .IIF IDN CND,GE $GEN TYPE,CMP,LT,F1,F2,BYT .IIF IDN CND,LE $G.|Y  2!SS;J*; vȫ S)S۪EN TYPE,CMP,GT,F1,F2,BYT .IIF IDN CND,LT $GEN TYPE,CMP,GE,F1,F2,BYT .IIF IDN CND,HI $GEN TYPE,CMP,LOS,F1,F2,BYT .IIF IDNR\,@Q ت er:lS8 \q CND,HIS $GEN TYPE,CMP,LO,F1,F2,BYT .IIF IDN CND,LO $GEN TYPE,CMP,HIS,F1,F2,BYT .IIF IDN CND,LOS $GEN TYPE,CMP,HI,F1,F2,BYT .IIF IDN CND,CS $GEN TYPE,CMP,CC,F1,F2,BYT .IIF IDN CND,CC $GEN TYPE,CMP,CS,F1,F2,BYT .IIF IDN CND,MI $GEN TYPE,CMP,PL V   .@@@S۪@Tq@G9@T.S@@K@S@@   .ENDC .IFF $TEST 1,CND .ENDC .ENDM $EXIF .MACRO $LOOP BLK $DO BLK $ASS1 $E,\$$BCTR,2 $ASS2 $$NMBR,$B,\$$BCTR $L...CM2 <.OCHAN>,2.,X .ENDM .MACRO .CNTXSW .AREA,.ADD ...CM1 <.AREA>,27.,#0 ...CM2 <.ADD>,2.,X .ENDM .MACRO .CMKT .AREAABEL \$$NMBR+2 .ENDM $LOOP .MACRO $WHILE COND,BLK $LOOP BLK $TEST 0,COND .ENDM $WHILE .MACRO $SOB REG $ASS2 $$NMBR,$B,,.ID,.TIME ...CM1 <.AREA>,19.,#0 ...CM2 <.ID>,2. .IF B .TIME CLR 4.(0) .IFF MOV .TIME,4.(0) .ENDC EMT ^O375 .E,F1,F2,BYT .IIF IDN CND,PL $GEN TYPE,CMP,MI,F1,F2,BYT .IIF IDN CND,VS $GEN TYPE,CMP,VC,F1,F2,BYT .IIF IDN CND,VC $GEN T\$$BCTR $SOB1 REG,\2+$$NMBR $ASS1 $E,\$$BCTR,0 $END .ENDM $SOB .MACRO $SOB1 RG,NM DEC RG BNE NM'$ .ENDM $SOB1 .MACRO YPE,CMP,VS,F1,F2,BYT .IFF .IF IDN CND,ON $GEN TYPE,BIT,NE,F1,F2,BYT .MEXIT .ENDC .IF IDN CND,OFF $GEN TYPE,BIT$CALL ROUT,REG,PARAMS .IF NB REG JSR REG,ROUT .IFF JSR PC,ROUT .ENDC .IF NB .WORD PARAMS .ENDC .ENDM $CALL ,EQ,F1,F2,BYT .MEXIT .ENDC $GEN TYPE,CMP,CND,F1,F2,BYT .ENDC .ENDM $TEST .MACRO $GEN TYPE,INS,CND,F1,F2,BYT .IF NB I .MACRO $RET REG .IF NB REG RTS REG .IFF RTS PC .ENDC .ENDM $RET .MACRO $ANDIF COND $TEST 0,COND .ENDM $ANDIF .MACRNS .IF NB F1 .IF NB F2 INS'BYT F1,F2 .IFF TST'BYT F1 .ENDC .IFF .IF NB F2 TST'BYT F2 .ENDC O $ORIF COND $BR R,\$$BNMB+1 $LABEL \$$BNMB $$BNMB=$$BNMB+3 $ASS1 $B,\$$BCTR,\$$BNMB $TEST 0,COND $LABEL \$$BNMB-2  .ENDC .ENDC $ASS2 $$NMBR,$B,\$$BCTR $BR CND,\$$NMBR+TYPE .ENDM $GEN .MACRO $ELSE TYPE $ASS2 $$TEMP,$E,\$$BCTR .IF EQ.ENDM $ORIF .MACRO ..V1.. ...V1=1 .ENDM .MACRO ..V2.. .MCALL ...CM1,...CM2,...CM3,...CM4 ...V2=1 .ENDM .MACRO ... $$TEMP $ASS1 $E,\$$BCTR,1 $ASS2 $$NMBR,$B,\$$BCTR .IIF DIF ,NULL $BR R,\$$NMBR+1 $LABEL \$$NMBR .IFF .ERCM1 .AREA,.CODE,.CHAN .IF NB .AREA MOV .AREA,%0 MOVB #.CODE,1(0) .ENDC .IF NB .CHAN .IF IDN <.CHAN>,<#0> CLRB (ROR ;TOO MANY ELSES .ENDC .ENDM $ELSE .MACRO $EXIT ID $EXIF <,R>,ID .ENDM $EXIT .MACRO $BR CC,NMB B'CC NMB'$ .ENDM $BR0) .IFF MOVB .CHAN,(0) .ENDC .ENDC .ENDM .MACRO ...CM2 .ARG,.OFFSET,.INS .IIF NB <.ARG>, MOV .ARG,.OFFSET(0) .II .MACRO $ASS1 A,B,C A'B=C .ENDM $ASS1 .MACRO $ASS2 A,B,C A=B'C .ENDM $ASS2 .MACRO $LABEL NMB .IF EQ $$PR NMB'$: .IFF F NB <.INS>, EMT ^O375 .ENDM .MACRO ...CM3 .CHAN,.CODE MOV #.CODE*^O400,%0 .IIF NB <.CHAN>, BISB .CHAN,%0 EMT ^O37NMB'$: .PRINT $$BCTR ; NMB'$ .ENDC .ENDM $LABEL .MACRO $UNTIL COND $EXIF $END .ENDM $UNTIL .MACRO $EXIF CND,ID 4 .ENDM .MACRO ...CM4 .AREA,.CHAN,.BUFF,.WCNT,.BLK,.CRTN,.CODE ...CM1 <.AREA>,<.CODE>,<.CHAN> ...CM2 <.BLK>,2. ...CM2 <.B.IF NB ID $$TMP1=$$BCTR $$NMBR=$$BCTR .REPT $$BCTR $ASS2 $$TEMP,$D,\$$NMBR .IF EQ ID-$$TEMP $$BCTR=$$NMBR $TUFF>,4. ...CM2 <.WCNT>,6. ...CM2 <.CRTN>,8.,X .ENDM .MACRO .CDFN .AREA,.ADD,.NUM ...CM1 <.AREA>,13.,#0 ...CM2 <.ADD>,2. EST 1,CND $$BCTR=$$TMP1 .MEXIT .ENDC $$NMBR=$$NMBR-1 .ENDR .IF EQ $$NMBR .ERROR ; INVALID ID BR .+2 ...CM2 <.NUM>,4.,X .ENDM .MACRO .CHAIN ...CM3 ,8. .ENDM .MACRO .CHCOPY .AREA,.CHAN,.OCHAN ...CM1 <.AREA>,11.,<.CHAN> ! ^O342 .ENDM .MACRO .ENTER .AREA,.CHAN,.DEVBLK,.LEN,.SPF .IF DF ...V1 MOV .CHAN,%0 .IF B .DEVBLK CLR -(6.) .IFF V .ADD,%0 EMT ^O351 .ENDM .MACRO .PROTECT .AREA,.ADD ...CM1 <.AREA>,25.,#0 ...CM2 <.ADD>,2.,X .ENDM .MACRO .PURGE  MOV .DEVBLK,-(6.) .ENDC EMT ^O<40+.AREA> .IFF ...CM1 <.AREA>,2.,<.CHAN> ...CM2 <.DEVBLK>,2. .IF NB .LEN MOV ..CHAN ...CM3 <.CHAN>,3. .ENDM .MACRO .QSET .QADD,.QLEN .IIF NB <.QLEN>, MOVB .QLEN,%0 MOV .QADD,-(6.) EMT ^O353 .LEN,4.(0) .IFF CLR 4.(0) .ENDC .IF NB .SPF MOV .SPF,6.(0) .IFF CLR 6.(0) .ENDC EMT ^O375 .ENDC .ENDMENDM .MACRO .RCTRLO EMT ^O355 .ENDM .MACRO .RCVD .AREA,.BUFF,.WCNT ...CM4 <.AREA>,#0,<.BUFF>,<.WCNT>,,#1,22. .ENDM  .MACRO .EXIT EMT ^O350 .ENDM .MACRO .FETCH .ADD,.DNAME .IIF NB <.DNAME>, MOV .DNAME,%0 MOV .ADD,-(6.) EM .MACRO .RCVDC .AREA,.BUFF,.WCNT,.CRTN ...CM4 <.AREA>,#0,<.BUFF>,<.WCNT>,,<.CRTN>,22. .ENDM .MACRO .RCVDW .AREA,.BUFF,.WCT ^O343 .ENDM .MACRO .GTIM .AREA,.ADD ...CM1 <.AREA>,17.,#0 ...CM2 <.ADD>,2.,X .ENDM .MACRO .GTJB .AREA,.ADD ...CM1 <NT ...CM4 <.AREA>,#0,<.BUFF>,<.WCNT>,,#0,22. .ENDM .MACRO .READ .AREA,.CHAN,.BUFF,.WCNT,.BLK .IF DF ...V1 .IIF NB <.WCNTNDM .MACRO .CLOSE .CHAN .IF DF ...V1 EMT ^O<160+.CHAN> .IFF ...CM3 <.CHAN>,6. .ENDC .ENDM .MACRO .CSIGEN .DEVSPC,.AREA>,16.,#0 ...CM2 <.ADD>,2.,X .ENDM .MACRO .HERR ...CM3 ,5. .ENDM .MACRO .HRESET EMT ^O357 .ENDM .MACRO .IN.DEFEXT,.CSTRING MOV .DEVSPC,-(6.) MOV .DEFEXT,-(6.) .IF B .CSTRING CLR -(6.) .IFF MOV .CSTRING,-(6.) .ENDC TEN .PRIO,.PIC .IF NB .PIC MOV @#^O54,-(6.) JSR 5.,@(6.)+ .IFF JSR 5.,@^O54 .ENDC .WORD ^C<.PRIO*32.>&224. .ENDM EMT ^O344 .ENDM .MACRO .CSISPC .OUTSPC,.DEFEXT,.CSTRING MOV .OUTSPC,-(6.) MOV .DEFEXT,-(6.) .IF B .CSTRING  .MACRO .LOCK EMT ^O346 .ENDM .MACRO .LOOKUP .AREA,.CHAN,.DEVBLK,.SPF .IF DF ...V1 .IIF NB <.CHAN>, MOV .CHAN,%0  CLR -(6.) .IFF MOV .CSTRING,-(6.) .ENDC EMT ^O345 .ENDM .MACRO .CSTAT .AREA,.CHAN,.ADD ...CM1 <.AREA>,23.,<.CHAN EMT ^O<20+.AREA> .IFF ...CM1 <.AREA>,1,<.CHAN> ...CM2 <.DEVBLK>,2. .IF B .SPF CLR 4.(0) .IFF MOV .SPF,4.(0) > ...CM2 <.ADD>,2.,X .ENDM .MACRO .DATE MOV @#54,%0 MOV ^O262(0),%0 .ENDM .MACRO .DELETE .AREA,.CHAN,.DEVBLK,.S.ENDC EMT ^O375 .ENDC .ENDM .MACRO .MFPS .ADD MOV @#^O54,-(6.) ADD #^O362,(6.) JSR 7.,@(6.)+ .IIF NB <.ADPF .IF DF ...V1 .IIF NB <.CHAN> MOV .CHAN,%0 EMT ^O<.AREA> .IFF ...CM1 <.AREA>,0,<.CHAN> ...CM2 <.DEVBLK>,2. .IF B .D>, MOVB (6.)+,.ADD .ENDM .MACRO .MRKT .AREA,.TIME,.CRTN,.ID ...CM1 <.AREA>,18.,#0 ...CM2 <.TIME>,2. ...CM2 <.CRTN>,4.SPF CLR 4.(0) .IFF MOV .SPF,4.(0) .ENDC EMT ^O375 .ENDC .ENDM .MACRO .DEVICE .AREA,.ADD ...CM1 <.AREA>,12. ...CM2 <.ID>,6.,X .ENDM .MACRO .MTPS .ADD .IIF NB <.ADD>, CLR -(6.) .IIF NB <.ADD>, MOVB .ADD,(6.) MOV @#^O54,-(6,#0 ...CM2 <.ADD>,2.,X .ENDM .MACRO .DSTATUS .RETSPC,.DNAME .IIF NB <.DNAME>, MOV .DNAME,%0 MOV .RETSPC,-(6.) EMT .) ADD #^O360,(6.) JSR 7.,@(6.)+ .ENDM .MACRO .MWAIT ...CM3 ,9. .ENDM .MACRO .PRINT .ADD .IIF NB <.ADD>, MO" <.BLK>,#0,8. .ENDC .ENDM .MACRO .REGDEF R0=%0 R1=%1 R2=%2 R3=%3 R4=%4 R5=%5 SP=%6 PC=%7 .ENDM .MACRO .RELEASE .5.) .ENDM .MACRO .TLOCK ...CM3 ,7. .ENDM .MACRO .TRPSET .AREA,.ADD ...CM1 <.AREA>,3.,#0 ...CM2 <.ADD>,2.,X .ENDM DEVBLK .IIF NB <.DEVBLK>, MOV .DEVBLK,%0 CLR -(6.) EMT ^O343 .ENDM .MACRO .RENAME .AREA,.CHAN,.DEVBLK .IF DF ...V1.MACRO .TTINR EMT ^O340 .ENDM .MACRO .TTYIN .CHAR EMT ^O340 BCS .-2 .IIF NB <.CHAR>, MOVB %0,.CHAR .ENDM .M .IIF NB <.CHAN>, MOV .CHAN,%0 EMT ^O<100+.AREA> .IFF ...CM1 <.AREA>,4.,<.CHAN> ...CM2 <.DEVBLK>,2.,X .ENDC .ENDM .ACRO .TTOUTR EMT ^O341 .ENDM .MACRO .TTYOUT .CHAR .IIF NB <.CHAR>, MOVB .CHAR,%0 EMT ^O341 BCS .-2 .ENDM .MMACRO .REOPEN .AREA,.CHAN,.CBLK .IF DF ...V1 .IIF NB <.CHAN>, MOV .CHAN,%0 EMT ^O<140+.AREA> .IFF ...CM1 <.AREA>,6.,<.CACRO .TWAIT .AREA,.TIME ...CM1 <.AREA>,20.,#0 ...CM2 <.TIME>,2.,X .ENDM .MACRO .UNLOCK EMT ^O347 .ENDM .MACRO .WAIHAN> ...CM2 <.CBLK>,2.,X .ENDC .ENDM .MACRO .SAVESTAT .AREA,.CHAN,.CBLK .IF DF ...V1 .IIF NB <.CHAN>, MOV .CHAN,%0 T .CHAN .IF DF ...V1 EMT ^O<240+.CHAN> .IFF ...CM3 <.CHAN>,0 .ENDC .ENDM .MACRO .WRITE .AREA,.CHAN,.BUFF,.WCNT,.BLK EMT ^O<120+.AREA> .IFF ...CM1 <.AREA>,5.,<.CHAN> ...CM2 <.CBLK>,2.,X .ENDC .ENDM .MACRO .RSUM ...CM3 ,2. .ENDM .MAC .IF DF ...V1 .IIF NB <.WCNT>, MOV .WCNT,%0 MOV #1,-(6.) MOV .BUFF,-(6.) MOV .CHAN,-(6.) EMT ^O<220+.AREA> .IRO .SDAT .AREA,.BUFF,.WCNT ...CM4 <.AREA>,#0,<.BUFF>,<.WCNT>,,#1,21. .ENDM .MACRO .SDATC .AREA,.BUFF,.WCNT,.CRTN ...CM4 <.FF ...CM4 <.AREA>,<.CHAN>,<.BUFF>,<.WCNT>,<.BLK>,#1,9. .ENDC .ENDM .MACRO .WRITW .AREA,.CHAN,.BUFF,.WCNT,.BLK .IF DF ...VAREA>,#0,<.BUFF>,<.WCNT>,,<.CRTN>,21. .ENDM .MACRO .SDATW .AREA,.BUFF,.WCNT ...CM4 <.AREA>,#0,<.BUFF>,<.WCNT>,,#0,21. .END1 .IIF NB <.WCNT>, MOV .WCNT,%0 CLR -(6.) MOV .BUFF,-(6.) MOV .CHAN,-(6.) EMT ^O<220+.AREA> .IFF ...CM4 <.AR>, MOV .WCNT,%0 MOV #1,-(6.) MOV .BUFF,-(6.) MOV .CHAN,-(6.) EMT ^O<200+.AREA> .IFF ...CM4 <.AREA>,<.CHAN>,<.BM .MACRO .SERR ...CM3 ,4. .ENDM .MACRO .SETTOP .ADD .IIF NB <.ADD>, MOV .ADD,%0 EMT ^O354 .ENDM .MACRO .SFPA .UFF>,<.WCNT>,<.BLK>,#1,8. .ENDC .ENDM .MACRO .READC .AREA,.CHAN,.BUFF,.WCNT,.CRTN,.BLK .IF DF ...V1 .IIF NB <.CRTN>, MOVAREA,.ADD ...CM1 <.AREA>,24.,#0 ...CM2 <.ADD>,2.,X .ENDM .MACRO .SPFUN .AREA,.CHAN,.CODE,.BUFF,.WCNT,.BLK,.CRTN ...CM1 <. .CRTN,%0 MOV .WCNT,-(6.) MOV .BUFF,-(6.) MOV .CHAN,-(6.) EMT ^O<200+.AREA> .IFF ...CM4 <.AREA>,<.CHAN>,<.BUFFAREA>,26.,<.CHAN> ...CM2 <.BLK>,2. ...CM2 <.BUFF>,4. ...CM2 <.WCNT>,6. .IF NB .CODE MOVB #^O377,8.(0) MOVB .CODE,9.(>,<.WCNT>,<.BLK>,<.CRTN>,8. .ENDC .ENDM .MACRO .READW .AREA,.CHAN,.BUFF,.WCNT,.BLK .IF DF ...V1 .IIF NB <.WCNT>, MOV .WC0) .ENDC .IF B .CRTN CLR 10.(0) .IFF MOV .CRTN,10.(0) .ENDC EMT ^O375 .ENDM .MACRO .SRESET EMT ^O352 .ENT,%0 CLR -(6.) MOV .BUFF,-(6.) MOV .CHAN,-(6.) EMT ^O<200+.AREA> .IFF ...CM4 <.AREA>,<.CHAN>,<.BUFF>,<.WCNT>,NDM .MACRO .SPND ...CM3 ,1 .ENDM .MACRO .SYNCH .AREA .IIF NB <.AREA>, MOV .AREA,%4 MOV @#^O54,%5 JSR 5.,@^O324(# ,<.CHAN>,<.BUFF>,<.WCNT>,<.BLK>,<.CRTN>,9. .ENDC .ENDM &fe>B @& fE@z B si z#(-=3Y99<?xDJNqTZ_ _  _ 4_ _ *_ $_ *_ 0*_ 6_ <_ B _ H_ N_ T&_ Z_ `_ f_ l116700 000732' 4$: MOVB SAMODE,R0 ;GET MODE OF LAST SBSA 1 N03 000502 062700 176000 ADD #-4*400,R0 ;MAKE INDIRECT-THRU-STACK 104 000506 000766 BR 2$ ;AND RETURN 105 .D7RJ鈠E`fF$&  (08FATAL ERROR _zS 1 .SBTTLENERATTPePR7 U%ww wD 5E w0>w"& `ߋTedDUf T X8ADESS 2 3 ; GENERATE ADDRESS TO (R2)+ FOR OPERAND DESCRIBED BY BLOCK @R3. 4 ; RETURNS WITH R3 UğV R JċV@T T Pe`,} (`ėRE-Q w\? E w  NCHANGED, AND ADDRESS TYPE OF OPERAND IN R0. 5 ; CARRY IS SET ON RETURN IF A CODE BLOCK WAS GENERATED. 6 wv ?  wR^U w w>^Z U  7 w?t p hAPeH 7 000510 010446 GENADR: MOV R4,-(SP) ;SAVE SCRATCH REGISTER 8 000512 010346 MOV R3,-(SP) ;SAVE DESCRIPTOR BLOCK POfeՋ N%& Օ 3- U% U $5@ 5 hpq7 7 7 7 E@~ * z ""% >  *  (, +*(P N eW! /  Ջ CE!  EA>,<.CHAN>,<.BUFF>,<.WCNT>,<.BLK>,#0,9. .ENDC .ENDM .MACRO .WRITC .AREA,.CHAN,.BUFF,.WCNT,.CRTN,.BLK .IF DF ...V1 .IIF NB <.CRTN>, MOV .CRTN,%0 MOV .WCNT,-(6.) MOV .BUFF,-(6.) MOV .CHAN,-(6.) EMT ^O<220+.AREA> .IFF ...CM4 <.AREA>$ RrSTUV@WTy,xQ ***** COMPILATION STATISTICS ***** * 7e׭C  wFI)=',(:rejCe͋@ Be ͋ ӤҐҐ͋< C  wS (7 7e7 X 7  |:~ x"BE ` * * * *------- COMPILER TABLES -------* * SYMBOLS: WORDS * * PROGRAM: WORDS * * FREE  7\Z HХ       E&E% E7Q% % CORE: WORDS * * * *--------- OBJECT CODE ----------* * IMPURE SECTION: WORDS * * PURE SECTION: E<  & &fx @& &f w  L tpjp dd WORDS * * TOTAL: WORDS * * * ********************************** ACRO VM02-10 4-NOV-75 03:\ TJ HJ&8 6- ,  @鈇& &f  Õ/ eѐ '03:09 PAGE 29 MODE-TO-OTS NAME CONVERSION TABLES 1 .SBTTL MODE-TO-OTS NAME CONVERSION TABLES 2 3 00d UT<  D @    004 w ,i E EE&eHf& c `0642 ENTSEC D 4 5 ; TABLE TO MAP MODE TO 2ND RAD50 CHAR OF OTS NAME 6 7 000554 000550 MODE5%E E`lt   e QQQQ $ e  ZX, 25 <  &  56 000550 . D50 / I / ; INTEGER*4 9 000560 000360 .RAD50 / F / ; REAL*&  ѕ: ѕ: A є [ є^ ѕ ѕ ̋UNO T e~ єѕ 4 10 000562 0002<  *e   7  7l7jɝfɥCɥcɥdɥDɊ5  7Cѕ  w LR& F B&&J E% E  &+06>CMTZaSOURCEM0;? " 7  B7e  h͝WͥCͥc x e57R" APCODELEAPYEAROPTIMLRECL=STATISNSCOL80USRSWAPDIAGINTEGER*4NLCHN=DEBUGVECTORWARNFORTRAN IV V01C-03G    ȝХ   T/ dҐ d @  9Z% @: MODE CONSTANT 34 000604 016022 177772 MOV -S.VAL(R0),(R2)+ ;INST OPTIONS IN EFFECT: :Yw= 0%'%$"! f  5 E @ lDe e7 (7 7  ^! /MSAT SUN MON TUE WED THU FRI -JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC- '^ Nz'3   ?ILL CMD??ILL DEVV  ` `0P :-*H@R='%E7 7 """""8   `w P ??DEV FUL??FIL NOT FND??NO HELP FILE??BAD SWITCH??BAD SWITCH VALUE?$A@BD EHLL N\OP @ @ d  j d Hԕc  BS с | ed""f % P7 f  7lf@@ 5>& &f( "@ߊ*׉A/ ; INDIRECT THRU TOS 56 000666 000023` 7 N,% ,/ &w E% JHIԉ T r(  -r, ) .RAD50 / S/ ; STACK 57 000670 000015 TYPE3: .RAD50 / M/ ; LOCAL FORTRAN IV COMPILER RT-11 MACRO VM02-10 4-N r, f r R BӋA  B e *    w!>@OV-75 03:03:09 PAGE 29+ MODE-TO-OTS NAME CONVERSION TABLES 58 000672 000015 .RAD50 / M/ ; COMMON 59 000674 0@097 w!  P-+D} D-z*p,  JEU15 .RAD REALINTEGERDOUBLEPRECISIONLOGICALC U f k , 8 L㋇FUNCTIONV w d P$C- * BPRD 7" e$ ARҋU   D >  b7 w0SW0W9OMPLEXBYTEE 48024084 `41p@8p 58   F& >  :  7ԕԕIF(GOTOCALLCONTINUEWRITEFORMATDOUBLEPRECISIONDODATARETURNDIMENSIONCOMMONENDFILEENDSUL (r  eAS &ww@@ & NNve "  B w!BROUTINEREWINDEQUIVALENCEINTEGERREADENCODEDECODEPRINTACCEPTTYPESTOPLOGICALREALPAUSEASSIGNEXTERNALIMPLICITCOMPLE     (#2^$j,j-j.j/j0j1r )B * , - . / 0 + 3 , - . / 0XBLOCKDATAFUNCTIONFINDDEFINEFILEBACKSPACEBYTEPROGRAM5@O   l ' ` `  @  1f $d' 7W   l @A. ` `  j E     @A s    7 7 # # cԉ***** w 7 \s !  E!   7u - S  S"7M]f&ew w5@ hU@ xf T @f V  w  e   m!ȥ!!!!!!ԉ  @U U#E ,%E  %  AD50 / FORTRAN IV PAGE 7z  7 | xr( D& c   H 0 @` ` * ^7 \f  H7 FW*Uj v     %S  ? >7 @ ن A Άӕ  w @ 2  ,7 &7  /   / (* ,(\w i> bfEwEePw& N) E$f7 7` @`7ߊ*7 r -ЃE w ҉ԉe6f& T" e#U TU  F,)Hmxe & ) & 7 + & +,(R2)+ ;INITIALIZE SECOND WORD OF NAME 41 :hHHHEU@e-435B f& &U d),w P,w~ m\ sH4,@8@WHSh@L7 V,@8ؙؙhHShhؙؙhHBw@  * w`  ` 34- E% m   - 7,8;@7 Z,8;D}hh7e7eAє E7Uw E @ %E  %  *( &E w5Z D% X77747.7V7T& 7F3377  ` H& c  %24%A w!@ @09  0 ށ@` ہ ف`ׅ   *d Hww@@ & NNve%%  , - %5Ix B@@ & NNve l 7  A. ` `  7 ` \ V R  E-,%*%)%+%!%(  %"  %  ew ԉw!ȥ!!!_!2Z,E%% -4 S  wU   ]f&ew wz!ȥ!!!h!!$"ҋ& e EE  % %% &` (  .& !ԉf&Be~7 < 6 0 * "   H7 4* & )()  &w E?%5EU ,) vQ,f Rf & 8  E  7`7AE-*rE% $55%%E?%5   Et* 6&f   E?UEKP(W) (,% HNS  & `φA`  ZE?%@ 7  E&ba > 5&^  0 /  /    /  w  %=E? 6EU@@b-7 #w6%  @$eAS * 7 %f?@00a, 5 &^ F ` D(W) 4/,ե/ Q .&w @E?%%@E(B!R-0 @eRҐҐeR `-w-ԉw (a7 7 7 UE%%EU, >@0aB!R-~x0 @eRb7  &EU%NSW( W) D P7 &;7 Et  b-d#D (ҐҐeRw D`-Bw8-ԉw MODE 39 000740 066022 000616' ADD MODE3M(R0),(R2)+ ;AND INSERT  f& J ",)-8  . e  EFGHUE?%@~% F5l3`' 12722 000002 MOV #O.GLB,(R2)+ ;ELSE GLOBAL RELOCATION 11 001116 105767 000762' TSTB CUROPR ;NON-POPPED? 12 0011A. ` `  7      E-,,E%%Y 13 001124 012712 MOV (PC)+,@R2 ;ELSE IT'S A MOVE 01126 051630  -V0T S  uU   *ew $w!ȥ!!!!!]!ԉ "-hh.RAD50 /MO / 15 0011 111300 *47l e7f eAє%777 HwBw<@@ & NNvZX  -BSw6d" Lw& <  0     & T +e&%"   -%" R7   S% =@0a-N @$%.L70&  eC B A  ~ |DE%gcf & +%B!R-JD0 @eR.ҐҐeR `-w-Lԉw7 rD-6y/7) %0 @` `   w`& PP   @PPQ] <%23 \  E% E? %@%D% &w P0 E%^  x  @s`7d&1 e  f&  dC B A dB A dA dH t nՁj w  f >%%@ 2Z "    @,/mn@i ,BP pD C B A UC B A W  f& eC B A eB A eA e  C B A  w^Gͥ(E  ( 7 $&&E  -+%'D     f&Be~7 < 6 0 * "   H7 4* &$( f& 8,)-  e  lEF &ff~ ( ,/ wd&  ߊ*ωTRAN IV COMPILER RT-11 MACRO VM02-10 4-NOV-75 03:03:09 PAGE 34 COMPARE, TEST OPERATIONS       ` "%7P w   f A   P 1 .SBTTL COMPARE, TEST OPERATIONS 2 3 000104 ENTSEC P 4 000104 T.TST: CALL UNPAK1 ;UN&  ߊ*ωTHIS ROUTINE GENERATES A MOVE OR COPY SEQUENCE TO (R2)+ 4 ; FOR THE RESULT OF AN   %fե, %ե)C 0%5 `A  @'@ ԕ 7 OPERATION. 5 6 .ENABL LSB 7 001100 126527 000001 177776 POP: CMPB 1(R5),#-2 ;STACK MODE? 8 0011ZAaTA! EmAa& A!  PP@` c ` E $$..09AZ.]'G"GOXT+F+-.(*,kHsR/06 001426 BEQ 2$ ;YUP - DON'T GENERATE ANYTHING 9 001110 010503 POPR: MOV R5,R3 ;POINT AT RESULT 10 001112 0FALSE.TRUE.E @e  c w!\@ @09l |7R ( PACK ONE OPERAND 5 000110 CALL CMPTST ;PROCESS OPERAND 6 000114 000413 BR CTEXIT 7 8 000116     rԉT& &  TT ("  v.'[()R   L  w!, T.COMP: CALL UNPAK2 ;UNPACK OPERANDS 9 000122 CALL CMPTST ;PROCESS FIRST OPERAND 10 000126 060004 ADD R H PH &0 ` ` H Ca5 @ HC! x ,)$',0130 CALGENADR ;GENERATE ADDRESS FOR SECOND 12 000134 005567 000756' 5 @'@ 5@L .. & E-lE%%E% E FPV7Ze7TeAє &7"Dlwf7`@@ & NNv eDԕ !c4A  % ` $)! ͇́ A  ǂ/C A@E &E"( (C  1,`& e BeTB! 7 b% R  W 5  @  # $$  ^C54  /E  AC! D(&!ヂ&     %   8eAS  (h  e*VTԕTw @@UW( @`  ! f  c  w!@@09f&Be~7 < 6 Z7 *7 (7 &    0 ` `P  < UEqR7  S!!"!$!,!:!L!! 0 * "   H7 4* &&  ߊ*ω000232 T.JMPI!U   9 7  | r m b T-P0K d >U w!: 20 000232 000724 T.TEST: BR T.TST 21 000234 000730 T.CMP: BR T.COMP 22 000236 000745 T.JMPC: BR T.JMC *"N F I <f II  Z n@  -$')(/.,:E  . 3W0W9e ( 23 000240 000167 001474 T.ASF: JMP T.ASFI 24 000244 000167 001460 T.VINI: JMP T.VRT 25 000250 000755 T.NUL   U  &" nnnn "$&h* v_ ԕ .SBTTL AND, IOR, XORNEW!@4 E`Ewv5 j& eD &G,8KG^7  ( 7(7 7 W  D  @ . w7@ @ & NNveԋTT  pw!nԉ`  e0NLTwHho5    "  T& TT p D'"O@ T8:  > nnTnnTw! 7,ERR=W( ,ԕ `W, \W(  M UtԕF  @' *' $ F E @ 7 -7f `E 7  <t h f  W)ԕ-6f * a,C WUY͕% p, d)K WTEWOBwW(X w!< W,4ԕ ) ] .<W 23   1 Te    x |f& l h bdC B A dB A dA dH   & @Q f  W W W W 77 pv* 4 7Zn @Ձ "BP D C B A :mC B A  *f& Ew!@ u E     # E4E  f 0- $ 4%W      5!C w^Efw!&f& R_% % e  % wp@ W  U5U@ \ E  :%  $ W  @  (, VW, ,!ԕ ,ԕ{  (,W( & W,@ Rw!͆W(͋ , f& eC B A eB A eA e6  C B A     w!`@@09 l @AԕTT 6ԕW( ,ԕͥE=  @, w!^եD`ե= d. ` `   COM R4 7 000366 111300 1$: MOVB @R3,R0 ;GET MODE OF NUMBER 8 00RNEEW( TW,W)ԕW, &  B ы OT    ԕC P!0370 100001 BPL 2$ 9 000372 005100 COM R0 10 000374 005767 001000' 2$: TST OP2 ;BOTH OPERANDS FROM STACK? RҋW.@E @Շ z&w >  0% 5  `   U'  000WW  VT͎  R0 304 10001()*.,"$ <; EQVEQNELTGTGELEORXORANDNOTTRUEFALSE0 pԕ W, Z!0  F 14 000406 012604 MOV (SP)+,R7 7 "(7 $e 7 7 pwA wdwaA  `E Ps  E jWAՇ 7u   E s  EZ wlW  ~  :6  Ջ & w V r ~  | | $  @   > : 7  zmU # # c ew Pw!ȥ!!!n!!] - -- B Bm4 7  \r\ ,,R  % !@ PԐԐB @+ aAwz(&R@ W @ `w@   Ew4Eԉ W 5 "   @`B`" & Ջ@e zpe: 0 &    . .T NWA" G770& N PeC B A   `՝՝w>7T  EwWU W  W EU 7 7e E6e37f & . + % !0 @` `   w`f XS PP r @PPQ7tTWWW͋ f5 hW W E%W ,c  `"  W "* W f&E ͋ +  &# P  F @ . 8 -z  $ rWf  KN!0&%͋ W W  W eW W  J &  T  X j@f͋ v""` ͋Uf Ջ 6N ͋  w ͋wOTO  $   9@@ r͋  \ C f& B D    U 2 3 .ENABL LSB 4 000542 T.ARGS: CALL UNPAK1 ;UNPACK OPERAND 5 000546 005367 001014' DEC M /͋  n x T N.  ; ,8  T 6 ! ! ! ! _ jPT͎  E 8 7 e7 t e & d 7 !  B   7 F E@w82!7T  W% fw! DW9  v <  0 $@  j6^ZXP F <%4 W I %W H" w ( < " t1C@   `J   NK U  >L U Ջ  , d  eW & @" '  t - ͋  LW  @ &Y * &W! ͋ rW W  W B WWw  $e  w@ Te 7 7 7 A wwA  h ,W 0-  L 1 0w 7t  z zWU  p hU ͋ ` w@W . | ͋wwjf͋V    p,7 B<7 678 \ՋwVN O  3  ԕԕ77~~!   7 ^W W w` r Ew, 6͋ FEU N B W "W < T> r 4 vf   B x `  J7Z Ջ !w B Bm 7~  8  L4 W pW% HԐ m$ @,@$$     b` %  @D! 78T  Ew l | -n h p  9W6 1U>- D7 b W 0e @'' *- ͋ $W "  07 e & B E%Ԋ E 3   X 6 7n @EF  pN!*@t , W  W͋fW` -͋X-vRWW  7nZX EFE   - r *E p@ 4  X Tf7 `7 ^ @    F  w2 .͋  $  w! f F͋ T BE   j  A%wPWP &   AW W +  @ * xN h:͋ Z !  8 & ͋ &w3O2PES THR777BE w^ 3`&7 $" " w W" A"  s`F7N &OUGH THE TRIQULES, DUMPING WHATEVER CODE 8 ; WAS GENERATED FOR THE PREVIOUS ONE & CALLING THE APPROPRIATE 9 w    / w  &w  3  &w  A 3 E%E?  ; ROUTINE TO PROCESS THE NEXT. 10 11 ; CALLING SEQUENCES: (RETURNS FROM CODE GENERATION ROUTINES) 12 w H &w : 7e 7   & wxA EA  7VD6wJw  13 ; BR T.EXIT ;TO OUTPUT ALL CODE 14 15 ; MOV #CODWDS,R2 16 ; BR T.EXNN ;TO SUPPRESS OUTPUT w &A 3 w @ 3`&w B &w |  l <w % % % % wzwnh b  f3 &w :   &w $ &w  W  fw w w e5%E!% Te7DD! 7j @@m*# (7N7TS7n  77P7     j" & T  @`@2 " *eD R (7 r" 7tT  0 1 w 8 wB7 E  7 7 5w > w *@ E " @  EBE A8 6Ewj fw N e    w (5#4:\H fW w l2w T2W 7>W   w D2w <2w $2r B` @ 7AB @ d2" " w"AW w,WE * 1 1 w $w w w W  - -  w   BW W B  " 7ffw ><<=>?@@ U;WV  YYazY2YY:6 *=$#"H'&%I(GMQNR&  v R W  W e J  WF G -- EU 7w ׭Lw p׭|Jw  m W  W  W   @v  5   W W f +͋X    >  *-j@B 7w , $e@w w w 7@7 %D % *w 2 E?W @6͋=f7 p7 n @    V  wB > 8 0   , w!$"e )7$Eew 677- w -TPbAw 2TEEL?PHF )  L'  H -   \ ,#w7Df Ջ@ @ m::74*CYbe @ 0 1ee 7 XwF# K m~# w.w 2 l, 8ZWSIIؚQQ ؚQ0\QX\RRX\o'` 99/xWA;--u8@QxKIq@a  w7-55Tԕ  W#w#T ÝE <<=>?@@11 000772 0113KX\@N&?#dd/+++/006xWW+vGv6}2zy} s61 .RAD50 /CAI/ 12 000774 000752' .WORD R50NAM 13 000776 012722 000013 1$: MOV #O.TXT,(R2)+ ;OUTPUT NUMBER OFsa W<pa \<v ASL R0 ;WORD 74 000742 000160 000626' JMP T.BASE(R0) 75  ARGS 14 001002 012622 MOV (SP)+,(R2)+ ;AS LITERAL TEXT 15 001004 062767 000002 000756' ADD #2,CODWDS 16 0 76 000746 ENTSEC D 77 000750 000002 NAMBLK: .WORD O.GLB ;GLOBAL RELOCATION 78 000752 000000 R50NAM: .RAD5001012 CALL GENADR ;GENERATE THE ADDRESS FOR THE ROUTINE 17 001016 005767 177726 TST FUNFLG ;WAS THIS A FUNCTION CA / / ;RAD50 OTS ROUTINE NAME 79 000754 000000 .RAD50 / / 80 000756 000000 CODWDS: .WORD 0 ;# OF CODE BLOCHlAEWU E CQ$51e~D ׭C e7 B5 $w!N  7>]400,!  \ l7O-NCX  5 B Aw PT@EW C E{ 2D/ A B    1 4 6 B  5D5E& v  5@  S  AW#   6 4   7 fw!‡w *   ! # s-,E 킋# # c- c  CE    5$&E :E `$5 ( $ & f % % ۇ @Ew6A w8EX<<= >0?@@`@`@7 HD7!:.  J, ,,,E J# # ####w8&E E mw N @׭ @ e  -BE% 5/ E  eD7\T @EBW W CW J W 1  w#` D!vl wh%!7  P EEW W p)W B$W V W <W @ @$W 4W V W UW W \w!Z7T@7EBW XW +W BsW JpW AmW 8YW W DW FW 1ZW kW ;7W W  0 E7*7P 0@`- ?7@Pee-7 ZE7 l-d $ɵ  ŀ f;7   W#W# W%eA0  8   W- 7 7 HC 'wLB  @E 5 2   w$ fE%@U e7 HY29B::j8v*v}: 1TfF& 5-7-75 u#  u- u#& eCE ,C    - S: [SEE SOURCE LISTING]GUSAGE OFEND OFEXTRAATILLEGALLEFT PARENTHESISRIGHT PARENTHESISVARIABLECONSTANTORMISSINGLABETl $t $v ed _ ;~ ~ T.~  r :  : T df  R R R J J R J J R R LINVALIDCOMMADELIMITERINEXPRESSIONWRONG NUMBER OFFORSUBSCRIPTSARRAYASSIGNMENTTARGETSTATEMENTFORMATRECORDOPERATORJ J F   L  ~ ~ ~ ~ ~ J J V j l N N N N $ 4 h h h R T.VST 45 000652' T.PARM =6Ew 0 5E &`5"7 EA BE5 &E% 5p  vNOT IMPLEMENTEDSUBROUTINE OR FUNCTIONNAMEQUOTATION MARKLOGICAL UNITSPECIFIERAFTERELEMENTI/O LISTADJACENTLOGICAL IFCHA\EU " " " "" >EU &fE wfEwf ԕ 5 Fw!H"RACTERSONEXPECTINGDECLARATIVEADJUSTABLE DIMENSIONDIMENSIONSVALUE OFINTEGERTOO LARGEREFERENCETO UNDEFINEDDEFECTIVE DOT ׯ, 5  U EQRRRRR@@@@@@BBBA" !b"QQQQQcs"* BTED KEYWORD-127 TO +127PARENTHESES NESTED TOO DEEPLYP-SCALE FACTORSYNTAX ERRORSLASHMULTIPLE DECLARATIONHAS TOO MANYIMPLIRRLOC,-(R0) ; DEFINE LABEL 23 001062 000673 BR T.EXNC ; AND GET NEXT 24 25 26 ; BRANCH & AIF CITRANGETYPEOPTIONAL LENGTHMUST BE FIRSTBLOCK DATAIS NOT WORD ALIGNEDCOMMON BLOCKEXCEEDSMAXIMUM SIZEFLOATINGTOO SMALLN(@(@ h7 z@ EBE(   `w! L Bє x 0OFNOT INATTEMPTS TO EXTENDBACKWARDSEQUIVALENCEMODES OFAND DATA ITEM DIFFEROCTALRADIX 50UNLABELEDTO INCORRECTOVERFLOWmn* | X <0:1@CH00 wW-\  "5  , ѕ TOOCOMPLEX6 CHARACTERSNON-STANDARDORDERINGDO TERMINATORPRECEEDS DODANGLINGMUST BEPROGRAM0 (*' +- G;  C . xѕ &  CT  נIנ&נ4  ѕ ѕ   ej ,689, + :;! ? ABC[ ?>BCBCFG;HAI JKLԋ .ɕ/e d  e:  &ѕ"B ѕ"ѕ  !  M D G; N . D !O G;45G;3201  0-5         e.e e  (@(@LL GENBR ;GENERATE LABEL ADDRESS FOR JMPC 44 001106 012702 000756'  WV RS   !#$%(&WYZOZ0Pe*  E t 7 l E V  7 l  e77  14408 FORTRAN IV STORAGE MAP NAME OFFSET ATTRIBUTES P7 f  7f X  P!U7 `l%%%e e7 wT P &E%  7 r @ & &fX R@ߊ*7W0 0E*. & $BI fTT   se p jd  T ;$ $   57-5-7  5-7-75"03:09 PAGE 43 TWO-OPERAND PROCESSIN VeR  S%ˋE P  7 r  l%8ˋ22 e$w v zG 1 .SBTTL TWOBwVewP0 &  /f " -(X CE  E7 l7 .l  %  %8e w  &  e  &E?% %X%Jw w7 " %2#$) &E%E% "("(!xf EU@4 `w 7 PL 4 wT," w wEd$7^E D7 x7G%zFp 0  ?E:%׭2 7 ( f 7 "7 $EUE lj7 d7 b-&r4!f x 7 zrE?%E%7 nr &7 l  e & E%@  e 7j7 t7 vw$ , F &lrf E UE`    U%w!w!7S 7Z   `\RE%"EB& fR$R$ wzcv E Vlr 7P  & EE% 7 % ee7 llr7 r!rl &  & E%F L r %#% 7E?E Q#mx E% %%AΊ ֋eD -     A7  E 0  7 r #7P B  rs 3%l7 E% Z V7 P7 N V 7 l7 r 7 l  " x7 r  7`7   V  N  7 r7 br7 vl \ 7 tr E 7 lb \ %0%1 1B8$ 0 l7` /   f jf  Je ( * 4 !!ACE ѕ( ѕ,@DYf@EW!w#7jYTw :&@ $  @ 5 - eW D s & EE%    W  @E ɕ/dE W0  ѕ)  & ѕ ѕ  L5@% Q@1te&ӌ#   h2   (  V h & D$ $  'd D N X b l v INTEGER*2INTEGER*4REAL*4 REAL*8 COMPLEX*8LOGICAL*4LOGICA " $(  ,tS@l> \N E%7lXC :N 7lhr  f͒L*1PARAMETEREXTERNAL ARRAYVARIABLEPROCEDUREVIRTUAL ARRAYCOMMON BLOCK // LENGTH VECTORED00201 RTS R1 MU WC|Sl> w ^lh V@ lXe Ze) e %lX % &43 001412 ENTSEC D 44 001016 000 QT5: `fQ w@ɕ@ Qɕ &I f#S #E?% Kwv@ dw 6lXe77 @d7bC 8w @d7bf&     Ne ee e   ѕ (@(@  REAL*8 ,8;  010 .BYTE 4*2  eR  & @$&$&K w T@Q$ !!3  "  t @ $  $# !;COMPLEX*8 49 001023 000 .BYTE 0*2 ; 50 001024 000 QSLOT2: .BYTE 0 ;LOGICAL*4 51 001025 !$YTE 0* INTEGER*4 24 001036 004 .BYT h f&Be7 < 6 0 *`[[֠ؠ01[[SSOSSxS "   L7 8. *""&  ߊ*7O 01  e ˋ  V ww( ! f   U  f 0 ~ ! !  KSڴ(S*SVvw{z~|S ySS 55܇zTh8xX5   BE<8 7`. (E" nl V vw E@Ev0zWY e tQK5MLL,LL(`8x\qTq@@F;Nyt:j!!G9B9';";;;88p(}!tKt!""f'(ys!B EC EDE01000' .WORD OP2 27 001440 0006" a' !_x;hhx    h(   SӨ13 TST @R3  e" 8ee*, 4     U! ff E *  ;۪;6 100707 BMI T.ZZZ1 ;Y   @ Ί l77  A n   W   P  ѕ ѕ  E l A \AfqEN!A#  xA`~JRNeH: n e4 %   r t l  "R 0  l d5 l.w R    &$ We) e   %Sw,@ Ί DxH^eX0 h| e4    0R W!w#   B@w : Ee 7bT7d p W f ׬ e$ 7 7tYGw :&@ $  @ 5 - eW D s & EE% @1 ( "@   @7l,5 + ( C 5BTgkvwz e&ӌ#   h2   (  V h & D$ $  " p@7l,5   ef 4  fC w Flh 7v L  D w$(  ,xS@lB \N E%7l\C :N 7llv  f͒MU <>wPXwHh v ǁ p  @ 7l , e  6wf %\w" xWCSlB w lll d@ l\e he) e %l\ % &E?%w>wX  &E?%e` Zw R,8;Q$w ADD #-2*400,R0 ;MAKE STACK M Kwv@ dw 6l\e77 @d7bC 8w @d7b&f&EG - ODE 8 001560 010015 MOV R0,@R5 ;FAKE RESULT 9 001562 CALL POPR ;GENERATE MOVE STACK TO STACK 10 001W  "   : "    zH t^  ^?*e$e  566 000167 177314 JMP TEXNN 11 12 13 001572 012146 T.ERRM: MOV (R1)+,-(SP) ;SAVE ERROR MESSAGE NUMBER  ATPPAR,(SP)+ ; SEE IF TYPE IS A PARAME  22 001672 001005 BNE 1$ ; NOPf&Be7 fe[[֠ؠTE[[SSOSSxS< 6 0 * "   L7 8. *&  ߊ*7|O KSڴ(S*SVvw{z~|S ySS 17704܇zTh8xX(PC) e ˋ , e Vll e  ~  t` ,w ll%m0 f v  v0zWY e tQK5MLL,LL(`8x\qTq@@F;Nyt:j!!G9B9';";;;88p(}!tKt!""f'(ys! Z ^ w w<w0 66 4  ( @ 7l0F )   ` ĝ8D @ , e zlh e   ` Pw lh%m, f   Z w' !_x; hhx    h(   SӨ 5  w<w0 Z6 X  L @ 7l,\ ) 2 & ` ĝND @ @&7m,7l  ۪;INDEX LEFT 6   ERE. 7 16 1  ۪;200 ATPXPL= 000400 BOT   @ Ί 5| FZ5 .wr R v b  z:$ rWe) e   %Sw, 2 *&7m07l   H @5 H.w R    $ We) xe Z  le4\ < .8( ^R W!w#L7YXw :&@ $  ,@   %Sw0   B@w  Ee 7b>7d p W f ׬5 - eW D s & EE% @1e&ӌ#   h2 e z 7  j( @   @7l05 + ( lC    (  V h & D$ $  " $(  L,tS@l> \N  5BTgkvwz L@7l0p5r z  b eP   BC w 0ll 7v  E%7lXC :N 7lhr  f͒MU WCSl> w lL  . wBw,\w$l R ǁ L @ 7l   e  wfh @ lXe e) e %lX % &E?% Kwv@ ( dw 6lX %\w" TwBw\  v&E?%eJ Dw R t @ 7`7be7/70 @d7bC 8w @d7b&f&(!  ԕ  p @$r ISN #0 ԕ+ԕ# e\7fd V w ; CG04 - NO-OP 7 9 001740 012737 T.ASFI: MOV (PC)+,@(PC)+ ;BUILD GLOBAL FOR $OTIS z  N T D  \ ̕/@@d   zԕ d ԕ ԕ  DW  0 10 001742 125454 .RAD50 /$OT/ 11 001744 000752' .WORD R50NAM 12 001746 012737 MOV (PC)+,@(PC)+ 13 01046R 004 MOVEX1 000700R 004 MOVE1 000642R 004 NAMBLK 00̕@ T̕ !L.  #  l[[֠ؠ54[[SSOSSxSe.e e  (@(@ <fn Q NwH 7e77  003 82 FORTRAN IV GENERATEKSڴ(S*SVvw{z~|S ySSERANDS܇zTh8xXD CODE P7 f  7@ & &f @ߊ*7"W0 V e $ ˋ , v0zWY e tQK5MLL,LL(`8x\qTq@@F;Nyt:j!!G9B9';";;;88p(}!tKt!""f'(ys!e  lh Pe    ` w ^ lh%m, f h h  wXwD3D3DDj8vDj8vD*v*vvv8@Q8@QWGvh  * ǁ ~ @ 7lf   e  wf %\w" P w>w"XW99Z99ZIqKIqKXDXD:8Z:88Q0\,I,Q0\,X\  &E?%e ( w RQ$w OTSISN 000430R 003 OTSIUR 000464R 003 OTSIUW 000462R  ؚX\--sUsUt!""t!""'+ZXZXȪZX@ZXZXZXȪ 003 OTSIVR 000552R 003 OTSJM 000424R 003 OTSJMC 000426R 003 OTSLEQ 000354R 003 OTSLGE 000362R 003 OTSLGZX@ZXZG9G9G988&`Y<4y:w~6i;_qt:tUe .TITLE ISHFT .IDENT /ISHFT/ .MCALL ..V2..,.REGDEF .REGDEF ..V2.. ; ; ISHFT IS THE STANDARD SHIFT FUNCTION FOHuSHp!t!v!y!|!!!,&ݩ}K:CaS8SتUND ; IN FTN. IT IS A LEFT CIRCULAR SHIFT IF ITS ; ARGUMENT IS POSITIVE, A RIGHT ARITHMETIC SHIFT IF ITS ; ARGUMENT ISASMSPSSSȫSS:8تAMPSȫ: S NEGATIVE (I.E., A SIGN-EXTENDED RIGHT SHIFT) ; .GLOBL ISHFT ISHFT: TST (R5)+ ;IGNORE ARG COUNT MOV @(R5)+,R0 ;GETz8 zت zA zM zP zS zȫ u:+ iX iXȪ iX@ iX i8f 1 5 ; 3 X.XȪ.X@.X.(@.Dū.Fū.Iū.Lū.,Kq/ݩ//=dw/L /Lf/L^'/SAESMESPEPErSErSErSErSErFSFЎFeSFe FSɪFSժFSتF}?/+2+2 #}3 #}3s!e^3333s!33=`q4F=`q4F}x}4(4Ȫ4@44Dv4SAFSMFSPFMxFtS)FtS5FtS8FtSɪFtSժFtSتFtS۪FtSAFtSMFtSPFtSSFtSF[w4[D`5D`5DbQq6C;6C;6CJo'` 7o'` 7u8du8dd8 d8 6}29P6}29tSūFtSȫFt?MG!G$G$ȪG$@G$GKgG48G4تG4PG4ȫG4mGAz5GAzժGP&?:&?:\@:'\@:'N:N:W:W:S;S;Q;Q;R;R;/xWZB9>\q(I\qI}eI+}I(J*(J*W:PJSJSJSJSJSJMPJ SJ SJ SJZB9>Z8>+8>+%>1>5>8>;>Ѫ>ժ>ت>۪>I>M>P>S> \gKqJUJ&K'K pKsK&L8L8LA^LG^L@8L<@M0<@M0K f9NIK f9N>ū>ȫ>˫>Ep>?~1?~5?~8?~;?~Ѫ?~ժ?~ت?~۪?~I?~M?IIؚOIؚOQX\OQORO%LO,O GP/KP/tLP&P*Pݩ\}PU\}PydQq'QS˫$SC$H$Sū$Sȫ$ l%t%!%:%j%%Ny%(%Ȫ%@%%Kf%~P?~S?~?~ū?~ȫ?~˫?~E?~!@9!@97 #@9F;N@@F;@N@;Z@Z@5%;%ժ%۪%ū%˫%MS%I%M%S%m@&7Az8&7Azت&7Azȫ&7 zp&,8;&l8A)A5A;AɪAժA۪AAūA˫AM;xAz)Az5Az;AzɪAzժA&[&[&[&[> \q'y'y('y'\q'sy`'sht',}'.}'1}'4}'8}'z۪AzAzūAz˫As:pBBȪB@BB8B8ȪB8@B8B}Bb(BbȪB9}'W:x(S)(S5(S;(Sɪ(Sժ(S۪(S(Sū(S˫(Sq(S}(S(S(S(b@BbBb(BbȪBb@BbBb(BbȪBb@BbBb:SC>8C>تC>IC>MC>PCS(S;(S˫(Tq(,.])<@)<@Ȫ)<@@)<p)p)pH)pH)(p!*D(p!*D&`+GK+>SC>ȫC>T[CY1CYѪCYIC Z1C ZѪC ZICT[@CY8CYتCYPC Z8C ZتC ZPCGK+Gbm8},I8},Iw"",w"",q,,";,';,ݩv~,hfp.sOf.sOf.sOf.s+.DD'XD*S˫D*'DS۪DSSD'DS)D'HEXS5EXS8EX'ESɪESժESتE4 9z5`9zժ`9zū`(`v5`vժ`vū`6z5`6zժ`6zū`u`av5`avժ`avū`a4z5`a4zժ`IqK;۪S˫z;z۪zSz˫쨀ppWq8xq;a4zū`a;@a%v8a%vتa%vȫa%9z8a%9zتa%9zȫa%u@av8avتavȫa4z8a4zتa4zȫa(aq۪qSq˫v@8@;(@;(s? ?Z?.Df?y:}?vL@?yZ? Df?rrvMavPa6zMa6zPab:vMb:vPb:4zMb:4zPb:vbbb<pb{<pb{<b{zy}ezy}e)&en;en۪enSen˫evpe+f/+f/0f/&Ўggrg]:Kh T;h T۪h TSh T˫h Ԫ@8h `XhhYBxh,@8ha Wka Wka \kqm4qm4W9m4&pmmm&mG,mqm&p+p,p.p4pppppippKqT;qT۪qTSqT˫qԪqiqk;qk۪qkSqk˫qvqKrT;rT۪rTSrT˫rԪr.5xs@($T(2*,t-;t-۪t-St-˫t- z;t- z۪t- zSt- z˫t-t-t-vl;vl۪vlSvl˫v $T "  $ $ &  & & * * ..vvwwWhw#qx{>x{fx{x{x{&xAxixx+x,x:xv $Tv $T* V $TV$T.f&f&AEBE%?.y;y۪ySy˫y z;y z۪y zSy z˫yyy/+zH/+zH/0zHd{d{&b%% \ y:6bb].:6 "$b&b(.L^%_%|%qyQq`;Qq^s!RzRz!Rz'|QSZ]SZ:SZ""yWtxsZsZ`WtuNYv5YvժYvūY#}6#}6 s~^ s~^6x~+~6x~W v W }}6v}CiZC@}~*cqq. +@#@6x@.쨀p@vp@,@Ԫp@p@&(GvhWhG.$ .& fEf f& f6x,"+&,O.&&) EU% f&.D.(Dh,g ,_.ޭD.(ޭDh& @f&b#,.L Zlv\ $vpZ 쨀p lpvh.r \4,g ,C.D.(Dh$,g ,65    j (ԪpW.  \e>Ԫp. 6 -h&CD@ D f.sv@zy}@쨀p@6i;&}? &wS B9.&`YD`@(N<4h.vp@,@(sh:.fEffE f& $E. %cԉ s ыs  &Չe  L L v,$쨀p&$.&, %Df&&&f&f zy},.Le XD J J ! H He F F D D6h B B @  \  %Ԫp Ԫp A  6 z.99@(7 vpXg r eeˉ%.t!""@(t!h""h99h1D&& l.IqK(c$3p\3r\.'+(Xh IqKhlA@A\.X( Xh>XȪh .X@hXhXhXȪh X@h_Xh& e\ eAQ$@A.:@(8Zhh:h_\U.v@Ԫ@(fh. &D&& l.iZ@v@Ԫ@.Of@@      H.&& & & @  < 9^.L l 8(>h.CeDe&&&&fffy &f  <( Ԫ"l.r  (Ԫu. e . viZԪOf<o.Q0\:@Of@(0yIhQ0\h%R. 6 6 6   (v(    %\eΉ .. D@@/   Ċ& &:(Ofb&( e (.XG9]@6i;@U@&(FG9hG9h. U  \E@(\ ؚhX\h=.& f Ne&&&&@e U 06i;$](0Y(&`5  U.8B.&&&&& 6   rE6L%q.-(9@6i;@}?@(*8h. U Eȋى & n7 .  (&RD \Y..H`"wH`"wAe &.T[e@,&@<4@(ݩ}h!" ډ 35($YhZ& Zh Zh Zh , "w "w "w<4.K(hh%&&&Afee&e.'P(ShShIShSh&  e\w.:Ca(4S8hSتh <.SAh SMhSPhSShSȫhHShf&\J\A.'( S;hSh&&Sh,.&\ \&\\\& \\.: &\& & \e.'Ў( Sh \.' (&8hتh 8.Ah MhPhShȫha.( SūhSȫh-\".'p( @ > > $ $. " "@ p  :  @ | &e\ b\b\b\b\_.:(&z8hzتh .zAh zMhzPhzS .    .y:w~@<4@(p!@(F6i;h"hzȫhU.&\ \\\\.u:+.e3d ډ& 3&<4(&5 5  X (Xh XȪhX@hXha \ \& \,.8f(p!s._qt:uS@ݩ}@(2th%.& 5@($1h5hL.;h Ѫhժh ۪hhūh˫h  4 4 E5 ݩ}uS&4 3 \*.UeU\}@(VuShx,\%\%\%\%\%\'\'\'\/.Qv($Y h h. hehth .5@5#E 5mf.&5 ҕ   mhQh_YhYh-, ' ' \\.TLU x  U\}.p@(2th 5.vhyh|hhhr[ @e@(0/.Y5hYժhYMh Z5h$ Zժh( ZMh,8 .(S۪hSSh6S˫hSCh \ e&@(y`h% .&&&\.H(SūhSȫh\ht@(H,}h..}h1}h4}h8}h9}h .. l(th!h S:hjh  U\N E\N   (*&3RDZ S3`D Z\ .W:MEP\.%Ny((hȪh;@hhE֋\x(BS)hS5h.S;h Sɪh SժhS۪hSh.SūhS˫hSqh,S}h(S܋\\ȋ\.Kf(5h ;h.ժh۪hūh˫hh$.Sh<Sh6Sh0S;h S˫hTqh .\\\&\\\"\\&\\\.MS(IhMhSh7&\\\& $&\ \ \\\\Z.,.]( @h@Ȫh^@@h\\\X.m@(Az8hAzتh Azȫha(\  `\ĉ `\.p(Tph& g\&0. zp@(.,8;h.W% BC @ bb@ be .&K @    L ЉK.%&& AT   & \.d@+@.pH(ZpHh.W( BC @ bb@ be .&KSqhS}htSh   \.YM(K,@.Ԫ@(h$hhr.6 6  hLh 9.,LhLhLh5Mh & \\.  x.&&fU%f& )( $.L  "  f& lr"+, X( S;h& & & &\.(&S)h"l(d`.r ev\@Ή % ,U   D.> \q\q@S5h).S8h SqhS}hSh.& P   \(yh}y(hyhw \q.\q9 .f&f&  e `e(.&& e eB  $% ,m UJ.  D  3-^5b. 4 E^ %\ ..LN"Q$B(< U&.r * u @ 3 P $Y`;'.A &  U\}.  ^   f  ݩ\}.   BB@Qs^3  "eW!X Cf  HX. t߉ۉ܉݉# B   . ` ׮.0\ \`D Da E  鉰 "ݩ}*V  A pU@3 \.hfpPU ׮PD. U, މU1 0 .0555U U.V& @&(Ofh OfhOfh\\.+&3&3 .|¥#  , @ C.& 5ff@ & ( Xh XȪhiX@hXhm(& e$ e\. 爄  Mff Wz.&`(FKhKh&sb.(@(DūhFūhIūhLūh$\\PH\(. ɥFɥT Kѥ Ks(& Е ȕT‹ȕFKPP.,Kq*@ݩ\}@@&(ݩhh.bb & &  .8}(N8}hv.&s55 T i.&3 T   4 r "ݩ\}j.Lm E.ͥЉ!)%,|.&@eH  @@@%] L% % C χ։Mrɕ sw *.=dw(0 hfh .w""@(*w""h.ͥЉ @@llA e.$$#% \ $$#K&PAUSE -- ,.5  &Hk.q@ݩ\}@ݩ}@.6i;@U\}@(xhH";h^'@8@8@.K@K@q@@(}?h';hݩv~ha.  E  U5@6i;6i;.&.f& ե W(c3 "3 $  .&3 (3 &  @ Z@I.L0 @    CKL Љi.(p!Y`;@((p!h: 5 &  j& .LSD   \ \$.r: & %v,/+,). #}`;@( #}ha26i;".& 0 l plp4.LEE&  ρ   wy `;.s!e^@:@(`zhs!h6i;K.r Uى5B&f}. 0 Dl0E&l ݩ\}.& 90 ` `P & (|.r8 hEq3 (~ S! h ~.!!!#!+!9!L![.^\e3d ډ^ \.&gVR`s !nU& ." &db9_3 " &Z " .U t o $ . $,$b r RLXw b쉇 :g.=`q@(=`qhI>M b $W .0  B J 8f II1.V  \ p@  -$')(/U ͥЉ sn .}x}((hȪh|.,: h. & 2 "W W0W9e. ( & " .U@hhO$U\  \ \.DvD`@ݩ}@ ; , ƇK.  : (p!@(wh &եЉ B U wݩ}(p! D` :  :  : ddddny   "  .D`@uS@<4@.U\}@Y`;@(D`hDb($  &4~ .3 ( j "3((3 "3 (W K.D  @ " X@` r.f& 35gȋp 5 Z <4"uSz.&4 54- U.j "5  &  " ? <] d d b b.Lbp&d d  > U\} bU\}d Y`;W.r5@a3 s 5{  ` `v ^ ^  \ \@ d d b b .@ @ 3@ z.3 r3 p3!  #p <4(   ` `v ^ ^  \ \@.+/+@a \@v@`&3 WDb  .@&@*@.ݩ\}@,@(D+h.f@&$& ef&E a \&& f6i;@U\}@(;h;h`(.& 9 5F6  ;  & &  D( #,SԪOf DN.6}2#@S@쨀p@A@AD@ D 7.A;-(A;-h6.vp@,@Ԫp@p@(C6}2h8.fE@l  @  @   .xK(xKh$D *e'.&  t#A@ffe " &#.Lf&& @f&& @ p&,D A @ ʉ  N.&,@:@(8&DhlhhPp "쨀p$vp&pK.rA@  Z"SSSԪp&w&w` ,: .}("Y`;h*쨀p S Svp.p6 @\(쨀p쨀pvp p *S.!ݩ}@(X!ha( V! ̋w0 p  p &w.lpw S *. 0DppH.4CC\/ C\    \#.&?(&?hH0, ቦ `&l.0   E   (ݩ\}d.VlʋDDCe.\@(\@hB   V&l.|   E 4f p.pNl /Uc }(0, &.N(NhzCCC.W  FU\} $7 $ .o'` :@Of@(vp@6@Ԫp@.Of@p@(.Wh.@A&&fo'` hf  :Ofs.up@f  1$vp&6(Ԫp&,pOf,.Sv@8@Ԫ@8@(*uh.@&&@&&  vp= &( 'Sh.(ffff Jv@8Ԫ@8 .d+@#@S@.6x@,@Ԫ@Ԫp@Of@.&p@(H.Q(QhTD@@/ Ċ.Rdh.fEU%f f& f&6x,+",_*&E(RhD@@/ Ċ./xW(/xWhn< . U   U &  6i;a&w}? G9..%$z)hz5hT.z;h zɪhzժh z۪hzhzūhz˫h,(|1h,5h^^.8hF;hѪh$ժhVتh>.۪hIh MhRPh:Sh\\\\\\\\\).s:p(hȪhZ.@hh8h 8Ȫh0.h0ūhbȫhJ˫hEph.@A. &8@h 8h$ \ \& \ \ \& \.}(.&@A& & @A& &L.L @A& & C rP \(hȪh 4.@hh(hȪh @h.h(hȪh @hh.(1h65h\.8hP;hѪh.ժh|تhr.۪hIh*MhxPh" \\ \ \ \.:S(&8hتh.IhMhnSh.h>ūhdȫhX˫hEh6.:& & & & PhShȫh.&%\ "\"\"\"\.T[e.&,& & & && & & &H.L& & & && & & & x.r @e@(0v.Y1hYѪhYIh Z1h$ ZѪh( ZIh, CR$ $$ "`` \ `C \.!@((!he7 #h.H`"wH`"wAe &.T[@ @e. 5@   U5# ݩ}.&sѕѕѕ s 3 \K".d3 D 3 r3 p3 X 8  &\p.F;N\L  .\qy@@("\q`hG@H (p.F;hNh;ZhZh. \ H\?\ H*  %w>$y.B9]@ݩ@\0( H H&.&j& & e:  , j&L 6i;@P&(,B9hB9h0. U Eȋى `56i STMT .l8($)h5h.;h ɪhժh ۪hh; ݩ_&w ]d.8G9@6i;@}?@(.8hwūh˫h,e\e\e\e\e\e\g\g\g\.M;x(=  \.'X( S˫hk\_&&&\u.m(Az5hAzժh Azūh.'(S۪hSSh &&\.& e\&2.l(AzMhAzPh'(S)hp \.'H(S5hS$ e&\ g&\b.Kg(Ѫhhz8h ! \.'("Sɪh Sժh.&\.& (<h chhSتhSAhSMhSPh>* \.P&\v v N 6 6 \./+@#@,@7&Ԫp@(bh( Sh Sh ShSh(f&\& P\&&.&ff& #"  W.& f& < %4(/.( Sh& & & & \.Ў(+ ,Ԫp<#",%Lv\@Ή  .\qvy@@($.\qhSh%\. (&SɪhSժhv. \qh\q(h \qh, %w&ySتhSAhSMh SPh.  \.Mx.}e@(*+}h.DZ ZR eD (NS)h@S5h:.S8hFSɪhSժhSتh"S۪hr.SAh4SMh*SPhSSh0ShZE &\u.(((h, É\HSūhSȫh.\\&\\\\.& \\\.W:P(Sh Sh~&ShShShg&\\&@(4.Y8hYتhYPh Z8h( Zتh, ZPh0.H` "w\\ h L\J.?M(!h$h&$Ȫh$@h $hH` "wAe &.( hN \\\^\H\c.Kg(8h تhPhȫh >     .<@8}@(<@hS  r ݩ\}x.tL7 #@(&h&*hݩ\}hU\}h\.MP( ShShSh\&\.ͥЉ)@%@   &  (8}e.&  e Е-e[PPPЕ- [{..\gKqU\}@(Uhk(.f&̋T Lee/:JANFEBMARAPRMAYJUNJUrLAUGSEPOCTNOVDEC.K f9@ݩ}@(K 5 Eť1.& ť+ť$ 3 Tť0  .L@s ̋m ur54 f9h*.D B* wĊNF: ݩ}.& @ĊA wrU\}  .&ݩv~@6i;@U\}@(x'h   <.L& B .r CUNUe1.  E5@ 5& m6i;(ݩv~.&3-^5A.eePPPHeN TɥRU.@ɥOUɥSU 0 ɥNU.ɥCU p 4 E^ U\}.L l& & v 3 7 lnr\s. p3 *3 Ċ AW  : : 8 8 6 6  4@(shP&RD eD \ 4.IؚEp@@(xf.IؚhQX\hQhRh.&( 8h8hc.A^hG^h@8hb(..& f6& fU N.&&&@&& <  oEp<.L  f B % .&% e@ ( B` .L ` A@^    @A ff r&(rr .%L(,hA .r^”E eBC.IE `-    D E g.A@D D f %. GuS@ݩ\}@ݩ}@J(Kh{e0bbT( - ҕ* V b`    .& -5@* 5#5& Q ݩ}uS.&%e 4         `  -  W t  b  &ݩ\}f.LmA @4E3 \.r @`    @E4=  ?          }?f     {.  b L L H        .'|Q@7 #@ H H H 6  8 ; : %\( &]hL:hPb(=.   ;3 0.&  < C >   @ E xo x,K vq v z.""y,FF3 F V .L{` `3 V3 Tl ,FF.rBFFy R q(xsh@shJ`h..&4 4-45@ Z.& J&vC J.L.  3iAse Z a  .T  `U `R DNB (.;  D  @ j5EUe.r  & 4-* . .& &v  B S.   D \rpV& D.0 D 3 V3   .   ,.  ߋ*3 pr ׉U3 rp؉w 7 #.ydV3 F  `P B3 \  .|@  vExn  ng.H3I@(P'h&yh`;hDb(.BDF f \sJ JsL% .}?@(&h!h" @ &%N .R W r퉗  Z.D ;& & E s! }?    K     F  . Ɖf rʼnn b b\.DR%% $J J N         }?f     釁 .  Е `CB(.DД  SD @`  jh&     $ $G " "     .h  &,^.  ,^@ 15=6120212223?63242.526-4527312829$36,44 32:.!33"34%37&38'39(40)41#3530*V * *J . .F + +I 1 1C 0 0D  42.46+431490480A.uN(v5hvժh.vūh愾 >Fl.&ź+ k.>''+$&pf\ \".`X@xs@s@o.`;@H@@s@IriL?̨̔몿@  .zy}쨀p@vp@(Zfzy}h8&YBxH=(,@8h."hj("&  ".fEA$͉" e@ & f& f& f.& 0 ffavp 쨀p 0.&,(f "&&  .L' 5  w  s.rL   .)&(n;hn۪hy&nShn˫hvph~ (!jz7E& T.]&E &8&!Oez !."ff& &z\P.+@v@,@.Ԫ@Of@@ vx@.3l3   s !),' s.  5 #(|+h0h..& fDezr&.&&&&A "e!e s.0Pe"Pj3h U $\ .V}f鈇?ERR 59 USR NOT  e3.L5@e35@ Ar* v LOCKED[}f.|?ERR 62 FORTRAN START FAIL&5.̉5ˉʉ6 M  Ԫ.OfԪ  ԪԪQZ*Ԫ Ԫ.6 f&AlB` " .ʋ툦@ҋ Dxs$ Ԫ Q,Ԫ  , Ԫ$.eωC|f&&&.f 8 >ދ f$9.: a w)a `;lԪ |.&& \\& w ^.\\z.`n :  XnG. Ry ? k y(rE.1@\ r(7[?\G.@ -?v9?uοMc?kA`5?I2f?f(*@ Ak.鈇& e:  . 낃 (  9$ &9. C .&p@8@(h.h&hG,h qhb(`. N A f C%.&v   \  .&f$&  h % % .&U@     < .L.`D A @ 耎  L\.K쨀p@Ԫp@p@%.(T;hT۪hTShT˫hԪh   e.r X    e &  X.f  ”E N .effff& & & &&.& 6   %@" w &`;.?ERR 60 STACK OVERFLOWED ABCDEFGHIJn .DKLMNOPQRSTUVWXYZ$.@8/.  CPQCQBm .    v   &.    5@% 0123456789FROMIN (j ROUTINE "" LINE ?ERR .a W쨀p@vp@Ԫp@f.Of@PeE T .0 <5eN N (E D A @ .V eb" b"    K.| D Ap@(a Whza \h.& & & & & D&&D&& .& @ &f&f eD A @ eA .@ e@ e&f&f   C. r &@r&@r(&DsPA k @% @  IARvp@c.L e e@ .re& & & & & .r C wA `t E .ED &f& .:@ &   D&&e .#@  .@6  6 6 #?vp6&C.`     D s.  6c6#m.   .%-0 @ ׳*. f&& @׳@f& h0&Ԫp p"h$p&    #k. 6 ඌ c:.mc ` ҕ- 9 p.vp(08(0f&f& r.ԪprԪp쨀pԪp 쨀p"ԪpP.f XE@ e0Ґ ( .D  ( eC H.jҕ  %% 쨀pԪp쨀p Ԫp 쨀p쨀p.^d   \f&_쨀pOfd. ҕU.0ҕ. ҕ0 Ґ+-  .Ґʕ/ e:rC e e/ ҕ* \ e\>:L]L?ƪ, @.q(XqhW9hb\ *      &    .  p Cp f.&\ \   \e_L  \Ή\a.&(T+h,h..h4hNhhh&hRihhD f& & & &&f f .&&  6   .L  6 v %w E.r h7&lShl˫hvhE.effff& & & &&f   .& &  a6 .6 JC.  :aA CaB A   $aA N & QR I.L v  .r 6   Ca,.B A  aA CaB A B v.  aA CaB A   aA CaB A .0  aA CaB A . 66 6 6 6 "v W.     1̉ˉ %.6 6 6 6 ?     a@ .VBaA @   a@ BaA @  .|aAa@  B A @  B A @ *%.% |6z.   l6  \6 .0 L e%v 6 6 n.V6  D v vB    o.C B A @  6 ve\. ʉˉ    &  * v 6e5.|\ ʉ B A @ -  - -k.-  "  aam6qe  .,(n;h(۪h'.Sh˫h> z;h2 z۪h    .v@Ԫ@(hWhh~Ԫp6(Ԫp.LP h\쨀pPԪph.r e zSh& z˫h:h>h:\.effffeffff.& e\Ԫppk.i쨀p@vp@Ԫp@".p@(k;hk۪h& & & && & & &e&f&   C.Lv v v !N v v v P.r6 6 6 6 kShk˫hvh.effff& & & & %.&   .  w8v .Da  .   @ ̉\&  L t*Ԫpt Ԫp 쨀pԪp\ ,  B A @  . A @  @ 4%   A#.0% % Be %W.V fDԪpp Ԫp Ԫp쨀p.j\)vp vp .vwBwC    .| m B A @ m A @ m@ m0.0         C B A .\\ .\\ \"\  e\.D 6 ve\ ʉ. ˉ        B A @  A f.@  @ 0 B A @ K(6T;hT۪hv&TShT˫hԪh2.efff .:    @`).(l;hl۪E &(@Ahih".h +h,h:h .6  l>W.f&"yB F0" "F$Ԫ&(ԪM,|X f6 &  f 6A h"& v  6N\.쨀p@(;h(|.fff .|X  v&Ԫ.  a  .۪hSh˫hD z;h2 z۪h. zSh z˫h:hDh:.ef \e\ \%p.<6  \&&&&\R.b\\fffeffff.&& & & & & & & &ee.L  6 ` *\@3eޘ@7Q@׋@êg{H.#쨀p@vp@:@.Ԫp@@p@쨀p`$r  N&\쨀p./+쨀p@vp@:@.Ԫ(#hU.D e C_  fW & @&&&&&& p@p@(/+h/0hU.& Dr)&&\  .nxn*nԪpx:n vpD~$.p~Ԫp 쨀p vp쨀p쨀p& 5@5@ d&p(L~,쨀pvp  Ԫp~.R^de\\;@\\$vp^쨀p d Ԫp.x \N @   =@f\.Ԫp쨀p Ԫp 쨀pԪp쨀pj.,Ԫp쨀p : &v.ysE[\pCf&f&\%$ a @ʉˉ  +. s@vp쨀pg.xf&\  \& 3Ԫp.\\r1@\@(" sh.fEA77B  e@ & & f& p.&& ff& & f. &      E .&& & & @  9^[.L s.[?\ eω?U?*@ڪA .d@i@v@T.,@f DԪf.r :"Ԫ$w. e@Of@@(dh.fD 1 C+  f$e. .6 6 6 @  "v$"   %\eΉE.&&&&&\);@ j "Ԫ$j&i(L"j2*," j i2#q(>hfh7hh,&&  \Q.,.Z(jj~@ʉˉ    IA((j j ԪOf~.6Af&F .6x쨀p@vp@6@8.Ԫp@p@(+h6xhC  %[$&  v v f&\.v}(RiZh.D& &&@ (D& &쨀p(.&& 6  A zz.vp.&fD %   .& %e v vv vLf&\.z6 p"$z&6(LzzT.pz z ԪpԪp쨀pp\@(l)hɪh.Ahhz)h2zɪhTzAhPzh8*Ԫp쨀pԪp 쨀p Ԫp쨀p.hl e\ \kԪpl.S\ e. &ff&.&&z\ &&fz(L\&f& @ P쨀p $P.e\f& \:  יc&>X4%]@fz\F.'M(T;hT۪h&TShT˫hԪphk.W@iZ@v@.Ԫ@Of@@(pvhWh.ff& &z\X.@Q(\5hժh \.Mhūhz5h"zժhDzM.fD& &&&&h!@.& DfD& &&&& 6  M h@zūh(.& &ff&&z\ ].&&&zD,Lh!A .viZ "$iZ&p7.\&L&ffz\>.d(Z8hتh .Phȫhz8h"z  ԪOfԪ.h*Ԫ Ԫ Ԫ\*hDzPh@zȫh(.& &ff&&z\ [.&&&Ԫ Ԫ Ԫ. e(Ԫ Ԫ Ofz\$&]L&ffz\@.IqK(0;h۪h .Sh˫hz;.\ \\S\ e& l <.& & @ t e\pt&phz۪h$zSh &z˫h쨀phph".& &z\ffz\& &z\.  f&&&&& ~\-ÍJ ~T.07,kt4yNq(:5;oS%]&ffz\.vp@Ԫp@( hWqhW @ fv@m.Lfffrr ͉    -1@!h8.}(B}h6h.D G eP.zpnptm.tB mpr\Z-d w 0.,@'~.8.^i.-*," -6 .Rw -e.xwe.C... &  . & @ .& $<   J 9$Ԫp&J.L ppm.B mr- bw .'~phedj h Ԫph.r % 6 @ % (vp%\b-l.n *w H~:2en.6.4",-6 w \~c \%ΉM R.8x(q;h q۪h&qShq˫h v@8h d.I.#.&&&& r‰ \.@;(@;((&@;(h...@. @A  B~ @ G~@.syZ() hS.Zh>.Df.fd.>.hy:}hvL@h.yZh Dfhru. CD r,p(`eEs ..M&t`4 @z4>d.> CD rp(`eE M.dt`4.$.J.p CD rp(`$ 4.eEt`=ɼ4n 4 . CD rp(Y.3. .`eA 0 O.EWtU UHe(~Ec. AwC~x...." w0w.w,w*w<-  .H-w-  -w.Tt.zN.a.nww  W {.  M_-eM.w(...H ...B.h^.8.I J K  DO 1 I=1,1000 WRITE(6,2)I 1 CONTINUE 2 FORMAT('THIS IS INTEGER #',I6) STOP  END  DO 10 I=1,10 PRINT,'HE THERE' 10 CONTINUE STOP ENDTHIS IS INTEGER #8@EL         . :hHHHsH &,@8@WHShl7  ,@8