WDIRECTORY DT0: [ 1,1 ] 02-JUL-74 LINK20.LDA 57C 10-AUG-73 <233> 023152 VERIFY.16K 68 10-AUG-73 <233> 102337 MACNOV.BAT 1 10-AUG-73 <233> 010064 MACOV .BAT 1 10-AUG-73 <233> 007110 VERNOV.BAT 1 10-AUG-73 <233> 037351 VEROV .BAT 1 10-AUG-73 <233> 033343 PIPNOV.BAT 1 10-AUG-73 <233> 007611 PIPOV .BAT 1 10-AUG-73 <233> 006467 LNKNOV.BAT 1 10-AUG-73 <233> 076011 LNKOV .BAT 1 10-AUG-73 <233> 072355 CILNOV.BAT 1 10-AUG-73 <233> 0100"+  N &"+ "+ 30i|LQ N $JOB MACNOV[1,1] $RUN LINK #MACRO,LP: 5Y 5G 54 54 55 5G 5|] 5~] 5GFJ,51(1H0,6('* '),'SEARCHING FOUND BLOCK ',O6,6(' *')/1X,'FOR FILE ',2(A2,A1),'.',A2,A1,'[',O3,',',O3,']')JbJJ 5T 5 2>05 5GFJ!,5D2(1X,6('* '),'BLOCK NUMBER OUT OF RANGE = ',O6,1X,6(' *')/)J"bJJ# 5T 52>05 5G 54 54 55 5G 5|] 5~] 5GFJ$,52(1H0,6('* '),'MULTIPLE ALLOCATION OF BLOCK ',O6,6(' *')/1X,' FOR FILE ',2(A2,A1),'.',A2,A1,'[',O3,',',O3,']')J%R YJ&bJJ' 5T 563$JOB CRFBLD[1,1] $RUN LINK #CREF/SQ,LP:0505 5GFJ(,53(1H0,6('* '),'DEVICE ERROR DURING TRAN',6('* ')/1X,'BLOCK NUMBER = ',O6/1X,'FUNCTION WORD = ',O6/)J)bJJ* 5T 53>05 5GFJ+,53(1H0,6('* '),'INVALID SUBROUTINE CALL AT ADDRESS ',O6/)J,`RO7 hJ- 5T 544>0505 5GFJ.,54(1H0,6('* '),'ATTEMPT TO TRAN AN INVALID BLOCK',6(' *')/1X,'BLOCK NO. = ',O6/1X,'UNUSED SPACE STARTS AT BLOCK NO. ',O6/)J/ 5T 54>FJ0 5T 54>FJ1,54(O3,A1,F7.0,I5)J2bJf\YPYPYP&\ $JOB INTBLD[1,1] $RUN LINK #DSKINT,LP:"{HH"L;HF"8L;HR"&!/KH!y:H!(EL;HD"M= H!MqH!Mg'H!M{HJ"M{HL"xTL;HT"fL;HN"fL;HP"6}}H ^H^H^HaT^H6q^HRf) #SY:OPN2,LP:LPN2/CRF%$ D`*& D D T $ & &wd "w 5$"u" ( ww 5 5  <  \  & # - 0%    ` @`u"  5&fC" E\5"  "A"u " /c Jp   ŌW  IװAa Q  E(ghj  b c   KаPe$d d ( cĊ  l h "    E f ы   D"ᆃ עJ` فרJt .  b @( &^ hH ?x <l 8 h ) 0ЁJJ Jh$B$bF % A BB`$&( " H"ED EL0hb:AaAa:EEd e b(  &* e U  U@ 0 e0 $_ ._&EU $ d!wρ!J fhC cF %  `C@%&(44_ t#  b g",L:ahrG<B    < W,1:PRAMTR/NL,SYSMAC,FEATSW,BCL2/LI/LI:ME #SY:BCL3,LP:/CRFUf& *  U UCh&CB E e v * "U%Gef. , EeEv &&$ d!{@,J =ha ͋_ wGB ` % $FSM,LP:/CRF5J85DH:B:B:B:9K~9 w& "1 %"A-(-ȥ,  f t`4-4C  A--䃀 fc4-w ff "    5 E& ` vN -6  " 4    C   w5 5 5 w `P  w  `` &  wt r   :  ewJ  w:GZERR >,w7T6x$e$" $ A ASYSERR hdw7  wEb < SSS_  QW K#V    *_0>"xt!BV  h!^ _@ B w,J )JANSWER WITH CARRET OR 'Y'CARRET:- m E&mIS YOUR LINE FREQUENCY 50 HERTZ 7 .DO YOU WANT TO DISABLE DIALOGUE FOREVERh*  DDDDDDD """"""""""""""""""""""""""   """"@DDDDDDDDDDDDDDDDDDDDDDD@DDDDDDDDD "   """""""""""""@ADDB CvLIK9?8}@zW_ZI9kǖ DkQY HkQ0a AZY Z0a xeY Cxe0a ;  ;MY   ;M0a   4Y E  40a ?jLp C& G% G} E&% I: IAw St^z rWK qorWy $1}PKKWE(x z}kQ qs&&kQ HkQ  I&kQ TfrTkQ zkQkQ 3vkQ W^ wRD^ ) vQ^ ]-1L^ 59Aw[ 7OrvL^ =IKx^ oSS^ oVV1}PK[WZZ$D333333333Wnq<$V8a ͋,L  Bw(B ` % & ~&*C$$Βe E%>l  aʋaՀ$ & * P$ ΋Ί   ΋   d Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋U@ U &  B" .&0 I  "0r t w "reӕ  F $ %`r w el Cʥ ʥ  ʥ   "r F $    4 2 D >    2+2  1 $   נ0  wME MMMMEce% D 4 4 4  /ww" "W= U w< "   JRFCL3ERR V(wX  w! w! ҃ SPCERR )8w6 a7 \7 V ҋ &CILERR .>Fwb 02% B- w" CSQERR \~wLw */ &TT5$hbW!W!* l 1$K 1 Ee Ev P& h  J  b U    ʕ pSOh&ehe\E )B v * euF!% GeChfV_ F&&e E]e _ `& "u(' ( $ M $ =w  e(\  %  D4    & & & & & && &f&f6  %\&   U%aEce %e% D aU% Z.4%E a .%e   F\  at A @ A @ A A A A E4% Q-   %  t&H \zJzJH& v4m%% N #SY:INR1  " W$ B$a(~~ >8DX1ERR Pd!}ρ4J hpqF  A? BB`9$31 1 W W"Q$5@L0,ephb 0 w&*  e  v&* *$$D` P&*  D`̋hE Z ȋQ ($) & 8.^   U%g"G$5  5@ ,J 'Ch&C`3K 5@ * (" 5@E  U (  e~P # .^ 0 5 E"@Q X4m  w0 W [W YIIJff   e  G   %e "  %5 Je    I        %[& . *eT %\& ew -  (  &C B   B` Ë    \   \  :\ \ 0\ RREC  #̇ 0 &>@E 6 w 7< &w f B BE 0  j  'Lh9 0 & e`$rd!,E\}0> .x ">tLLlhfFP@pp00f` F" H"m(FH F`VZ>FNT\D _ V_ F&&e E]e _ & ` _>$ d!ρ* F  &#*+hbUe t * &M $^ "U%fGe`f.   Ehe aM'S<E'T<z'U< 'V<E'<""z's&f]f@@eX \ e\@a\Ba\g\e\ \\\ \b\\e\\ދe @v & n   & b,SYSMAC,FEATSW,SA/LI/LI:ME #SY:SA2,LP:/CRFDa m@ f& U" 6 ee  % #a Bx#CLCERR 4hw\ % CcaD eabe w    "mhP mr mfBg  ht L  X  v  %e& 8 06@a5 H J #a T#MRTERR Zwn5 we  TI dE v &$^ &&e E]e( &^ && ݁ "u$ d!ЁBJ 3hB E %5 : 3B5-5* & # WWMU%Dffe) hb  cC m v %e)eeeeeyeC e5 JU    Ce eAche) l  %ς d   )   )5   %U%fD` h& N`5 e& &&  U Ba& ^6S m  6SBS5E (&f& v  RL!F ~  <7 r 2w& & J!b]\BSBS& fMAC,FEATSW,BE4/LI/LI:ME #SY:ME,LP:/CRF OW!ҕ^JA Օ E ! RbIɕ;fI&hbAeV! Iҕ\͋͊W  @ 4Q Rʋ %+פ " f.A! ˕$4BQ$ ~-0  @ ijFEATSW,EO/LI/LI:ME #SY:MO,LP:/CRF$ d!ρLJ gh _`& $e X 5 T$hb&  5ae  4 Peԕ 6 <eԕ ̕  HA@m44e `fEe0 IAWFS$ ρ+OJ h D:e q************ @ @rY:KIDe~ ! E?Uc&f&GAteCWSWWF `e 4fff E؏U O6hb6 d&^ %=$ <N6 5@:e b0$؋ h” >  &(@@m $ (ρQJ Xh&^ %ע9&  c cDeU@f&&5@+̥# ̥$E&hbO  S E@&^ %d/E5E@ U  4   uv.LDA #SY:*.KBD/RE U@ &^  $ d!ρ.\J h͕_ ` &@ 5? f;5D8 6ȋ   ) W"d f Uhb@e_ `F W" >ehp#. M%E  ^e\+W#ASU}7 5] 5] 5GFJ#,5^(1X,'VERIFY VO',A2,'-',A2)J$ 5T 5^>FJ%,5_(1X,'WHICH DEVICE(SY,DK,DF,DP,DT)?'/)J& 5T 58_> 5T 5GFJ',5<_(A2)J(e\e^f~fbfP_,5_J)efe^f~fbfd_,5_J*epe^f~fbfx_,5_J+eze^f~fbf_,5_J,ee^f~fbf_,5_J-ee^f~fbf_,5_J.,5^J/zgSYTJ0zgN eJ1,5`J2zgTJ3ee^f~fee^f~f~YSMAC,FEATSW,PP/LI/LI:ME #SY:LP0,LP:LP0/CRF 8v˕   & & ( G$  (ρkaJ h&^ %  b + L5@ 5 ŀrfbf`,5V`J4 5T 5`>FJ5,5,`(1X,'UNIT NO.'/)J6 5T 5R`> 5T 5GFJ7,5V`(O1)J8J9 5T 5v`>FJ:,5`(1X,'OPTIONS(NORMAL,LIST,SEARCH,FIX,OR ALL)?'/)J; 5T 5`> 5e 5GFJ<,5`(A1)J=ee^ffbf`,5aJ>`R,T7 ~fJfagTnf a`Rt,7 fJ?gTrgTJ@JA`R,T7 @fJf>a`R,TTe7 ,JBee^f~fbf`a,5aJC 5T 5a> 5T 5T 5GFJD 5T 5a> 5T 5T 5GFJE,5a('0DEVICE ',A2,O1,' DOES NOT EXIST'/)JF,5<^JGJH~gTJIee^f~fbfB:0/E #SY:DKU @m$dE $  PρcJ h_ `% W#d U@  )& %- _ `[W#G +ҵ(hb DL    -  A@ U  - e>M"M%EW!AS>U  A@ $@ azg@TJJ*gTTJK`R*+TTTe7 VJLzgJYJMzgeJNfeTZfPe^f~fbfJb,5bbJORJYJPReJQ,50bJR&eezJvgDYJS`R,0DYe7 JTee^f~fbfb,5bJU 5T 5b>FJV,5b('0INSUFFICIENT CORE TO EXECUTE'/)JW,5<^JXng>Yc,5HcJ_ng@YFJk,5d.LDA $FINISH $JOB CREATE CLOCK AND CFTBL CODE [200,200] $RUN MACRO #SY:CLOCKL,LP:/CRFe^f~fbf2dzgTJn ef^f~fbfFd,5eJo 5T 5bd>FJp,5d(1X,'BLOCK NUMBER TO SEARCH FOR(O6 FORMAT)?'/)Jq 5T 5d> 5Y 5GFJr,5d(O6)Js 5T 5d> 5Y 5GFJt,5e(1X,'SEARCHING FOR BLOCK ',O6/)JuJv,efJw2efJxbJ\\ \\\\\LDA CIL \ \ SY\SYDK\DKDF\DFDP\DPDT\DTSYN \SY\SY D\ DF SY\SY\\DT\DT@<\<MTR/NL,SYSMAC,FEATSW,BATMAN/LI/LI:ME #SY:CCL,LP:/CRF ;E.G.. IDENT ;IN THE NEXT LINES THE IDENTIFICATION PRINTED AFTER THE V ;IN THE MONITOR MESSAGE IS DEFINED. DO NOT CHANGE THIS. MONVRS ^\DOS/BATCH V09-19\ ;THE NEXT LINE MUST BE CHANGED IF THE CONSOLE KEYBOARD ;/PRINTER IS NOT THE STAN(E` `fS@  e!E!  HEP! E~   (     hbe  f  E  `#' W'͋ WUWe hee e TZ  W#e1$ 'd d0 4@c@h&  W3 eN \N A \A L \L B \B \S \S H \H F \F DT\DT\&&&&\\  \\\U\& \\ W   r  \ P V 2 f&\Aa@ e\Aa@ e\\g\e\ \\\ \g\e\ \\\ \\\\\\\\\\\\\\R\PP\\;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .TITLE CF.TBL .IDENT /EDIT06/ ;FIRST DEFINE THEDIALOGUE , WHICH IS PRINTED ON SYSTEM ;LOADING SVAR EMTLIM,M.IOMX SVAR DFLUIC,DFU IF CR0XIST THEN IF CR2XIST THEN IFF TDATE THEN TEXTM MONVER TEXTM USRTXT IF TDATE THEN SVAR FLAGF,DARD ASR-33 TELETYPE. THE VALUE ;'0' IS TO BE REPLACED BY THE CATEGORY NUMBER SHOWN ;AGAINST THE TYPE OF TERMINAL DEVICE TO BE USED IN THE ;FOLLOWING TABLE: ; ; CATEGORY TYPE OF TERMINAL ; 0 ASR-33 TELETYPE; ASR-35 TELETYPE; LA30S ; (110/150 BAUD); RT02; VT05A/B(110/150/300 ; BAUD); VT06(110/150/300 BAUD) ; 1 ASR-37 TELETYPE; VT05B(600 BAUD); VT06 ; (600 BAUD) ; 2 VT05B(1200 BAUD); VT06(1200 BAUD) ; 4 VT05B(2400 BAUD); VT06(2400 BAUD) ; 12. LA30S(300 BAUD) ; ;E.G. FOR 2400 BAUD VT05B, % E0 @c ` V%  $g"H @ U$eF en$ d!ЁnJ ;ha ͋,L  Bw(B ` % & ~&*C$$Βe E|hb%>l  aʋaՀ$ & * P$ ΋Ί   ΋   hd Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋Kh&U@ U &  B"7 5] 5] 5GFJ!,5^(1X,'VERIFY VO',A2,'-',A2)J" 5T 5_> 5T 5T 5G 5Lb 5Rb 5GFJ#,5J_(1H0,6('* '),'LISTING OF MFD FOR ',A2,O1,6(' *'),' ON ',5A2,' AT ',5A2)J$ 5T 5f_>FJ%,5_(1H ,6X,'UIC',2X,'FIRST UFD BLOCK',2X,'UFD ENTRY SIZE'/)J&J'`R*+TTTb7 J(obJ)nbT\mb`mmdm_,5`J*nbTpm_`RUIC TEXT GDATE TEXT GTIME NODATE: IF INIV THEN IFF DIALV THEN TALK: QUEST ,DIALV IFF DIALV THEN QUEST ,BOOLV IFF BOOLV THEN .IRP P, IFF P'XIST THEN QUEST

BOOLV IF BOOLV THEN P'DUM: .ENDM SPCAS: IFF LP0XIST THEN QUEST ,BOOLV IFF BOOLV THEN SVAR FLAGF,LP0XIST SVAR FLAGF,LP1XIST THE ENTRY SHOULD BECOME:- ; CONSOL 4 CONSOL 0 .PAGE ;IF NO USER DEFINED EMT'S OR NON ;STANDARD DEVICES ARE TO BE ADDED TO THE ;SYSTEM, THEN THE EDITING OF THIS FILE ;IS FINISHED. ;IN THE NEXT SECTION NON-STANDARD EMT'S ;ARE DEFINED. THESE HAVE TO FALL IN THE RANGE ;140-177. ALL OTHER VALUES ARE RESERVED ;FOR DEC. ; ; ;IN THE NEXT LINE THE SYMBOL UDEMT ;MUST BE EQUATED TO THE DIFFERENCE ;BETWEEN THE HIGHEST EMT VALUE DEFINED AND ;77 (ALL NUMBERS ARE OCTAL). ;A ZERO MEANS THERE ARE .&0 M &0 & M 0 &eh  "U%jMedf. $^ &C`EQe( &^ &  "u$ d!ρ>qJ ha ͋,L JB ` 5 &TT! #  H )hb#(!' (  8e eef$C# 0 *C.&0 hL &0 & L 0 e  3&fK (|.7 |J+RbJ,,5_J-J.Xbb`mmdm`,5T`J/bHmbJ0`R|.b7 :tmbbb(`J1o@TJ2,5`J3Xbb`mmdmj`o@TJ4Xbb`mmdm`oTJ5Xbb`mmdm`^bbzJbmbzJoTJ6`RB/T7 J7`R*+bTTb7 J8n|UoYJ9`R|.b7 J:`R|.T7 ~J;J<`R*+TTTb7 dJ=`R|.T7 TJ>`R*+TTTb7 >J?obJ@.oTbmobJAbHmbJBnbToT^JC|bb`mmdmxa,5bJD`RV,T^|]7 JE`Rj,T^~]7 JFdbpb`mmdma,5bJG 5T 5a> 5|] 5~] 5GobnTPnobnTPn 5 CRTEST: IFF CR0XIST THEN > QUEST ,BOOLV IFF BOOLV THEN SVAR FLAGF,CR0XIST SVAR FLAGF,CR1XIST SVAR FLAGF,CR2XIST SVAR FLAGF,CR3XIST LPQ: IFF LP0XIST THEN > QUEST ,LPTFLG IFF LPTFLG THEN SVAR FLAGF,LP0XIS QUEST ,LP1XIST IFF LP1XIST THEN IF LP0XIST THEN ELSE IF TDATE THEN COLUM: TEXT NO NON STANDARD ;EMT'S. ;E.G. IF THE HIGHEST EMT IS 166 THEN UDEMT=67. UDEMT=0 ; ;TWO DIFFERENT TYPES OF EMT'S CAN BE ;DEFINED! ; 1. SWAPPABLE EMT'S ; 2. EMT'S LOADED RESIDENT DURING ; SYSTEM INITIALIZATION ;FIRST DEFINE THE TOTAL NUMBER OF SWAPPABLE EMT'S ;(IN OCTAL) IN THE NEXT LINE (UDEMSW=...). UDEMSW=0 ;REPLACE 0 BY NUMBER OF SWAPPABLE ;EMT'S ;NEXT DEFINE THE NUMBER OF EMT'S TO BE LOADED ;RESIDENT DURING SYSTEM INITIALIZATION. UDEMRS=0 ;REPLACE 0 BY NUMBER OF ;USE ǁ'  E   |h&?͕* F0 *U "U% Gef.C& %sZ$^ &&e E]e( &^ & ݁ "uW$ d!ρsJ h&M Q$NE `ee B_ Z$ | "L  U VEE,hb& N D%& ef e % DebϠ (ID! m f hK!K GFJH,5b(1X,'[',O3,',',O3,']',11X,O6,10X,I5,'.')JIRbtmbbbVaJJvbb`mmdmFb,5aJKbJTPpYP\\\\\\\\\DT\DT8\8?@DP\DP@DK\DKDF\DF\\\7 FJ,5Hc(1H0,'DRIVERS IN THE SYSTEM'/)J `R0~g7 ogJ!og(Lmpc`R07 ogJ"ogLmc`R07 ogJ#nggJ$RgJ%gg`mmdmc,5>dJ&`R0g7 ogJ'gg`mmdm GETNUM LOW0,LOWE,COLUMN,CASE GOTO COLUM CASE: QUEST ,LPCASE QUEST ,CRCASE IF LP1XIST THEN ,ELFLAG> CRQ: IFF CR0XIST THEN QUEST ,CDRFLG IFF CDRFLG THEN QUEST ,CR1XIST IF CR1XIST THEN ELSE IF CR1XIST THEN GOTO DEFAULT CDQ: IFF CR2XIST THEN QUEST  ddd)d 0 .M N h& $& $M "U%GCfa `I TC$e$E    he7Db  T % $^ &fE`EPe( &^ X& ߁ _t$ d!ρvJ h EeRRRR J%  22 2    2 Ghb&USwc,5>dJ(nbgpmd`Rt,g7 jJ) 5T 5.d> 5\g 5GFJ*,56d(1X,3A1)J+,5cJ,J-fgg`mmdmVd,5,fJ.gHmgJ/ngTotmggT`dJ0`R,g7 Pnn|YoJ1`R,g7 Pnn~YoJ2`R,g7 PnnYoJ3`R,T7 PnLmdn|Ypmd`RD-Tgg7 J4gg`mmdme,5,fJ5nUpm$exggzJLm&e`R.gg7 FJ6gg`mmdmFe,5fJ7ggmogJ8 5T 5pe>FJ9,5e(1H0,'LISTING OF BADB.SYS FILE FOR THE RP03 FOLLOWS'/)J:gHmgJ;ngTogJ<gg`mmdme,5fJ= 5T 5e> 5E CARD READER DEFAULTS>,CDRFLG IFF CDRFLG THEN QUEST ,CR3XIST IF CR3XIST THEN ELSE DEFAULT: IFF TDATE THEN QUEST <026>,CDRFLG IFF CDRFLG THEN SVAR C026,CDRFLG GOTO DKQ DEF1: QUEST <029>,CDRFLG IFF CDRFLG THEN SVAR C029,CDRFLG GOTO DKQ DEF2: QUEST ,CDRFLG IFF CDRFLG THEN SVAR CASCII,CDRFLG DKQ: IFF DKXIST THEN SVAR FLAGF,DKMASK QUEST TION IN MACRO GEMU1 ; 4 THE TITLE OF EMT MODULES MUST BE .TITLE EM.XXX, ; WHERE XXX IS THE OCTAL NUMBER OF THE EMT. ; E.G. EMT 166 HAS A TITLE STATEMENT: ; .TITLE EM.166 ; 5 THE LOAD MODULES SHOULD BE INSERTED IN THE CIL. ; THE EMT CODE SHOULD BE POSITION INDEPENDENT AND ; LINKED AT A BOTTOM OF 0. ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU0 VAL & E p 4,0   2% e 0h 00 0 & 0"U%G    &#ch0cD  fNUVU00%%% p b $^ &&yFe E]e( &^ & ݁ "u$ Td!ρzyJ h$AcfNl & E CD  ag 5GFJ>,5f(5X,O6)J?`R|.g7 bJ@tmgggeJA`R@.7 FJBJCog.LmDf`R07 ,PnLmXf`R$-gg7 PnLogJD 5T 5f> 5g 5GFJE,5f(1H0,'SIZE OF RESIDENT MONITOR IS ',I7,'. WORDS')JFogLmf`R07 PnLmf`R$-gg7 PnLogJG 5T 5"g> 5g 5GFJH,5Vg(1H0,'ACTUAL CORE ON THE SYSTEM IS ',I7,'. WORDS'/)JIbJbg@v\\\\ (\\\\\DP\DPBAD B \SYS \,DKFLG IFF DKFLG THEN IF TDATE THEN TEXT GETNUM FLAGF,MAXFLG,DKMASK,TTY GOTO DKQ TTY: IFF TDATE THEN SVAR FLAGF,DKFLG SVAR FLAGF,LPTFLG SVAR FLAGF,CDRFLG GOTO END TTY0: QUEST ,DIALV IFF DIALV THEN DEFFIL: TEXT GETNUM LOWF,HIGHF,KFC,CVTRT GOTO TTY0 LP0VAL: .RAD50 /LP0/ LP1VAL: .RAD50 /LP1/ CR0VAL: .RAD50 /CR0/ ;CR WITHOUT BINARY SUPPO .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU0 ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU1 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU1 ;AFTER THE MACRO DEFINITIONE VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLCU%W# e  phb p 0 P e"bU%M%& .^ 0 E he E `eD#E &.^ 0 &$^ &&e E]-4&e( &^ & ݁ "u8$ d!ρ,|J :he& $EKcKm ; 8  E le$5Khb@K J ,^ e&T&\\.7 znmPhPn 5GFJ0,5i(1X,'PROCESSOR IS AN ',A8)J1,5.kJ2 5T 5h>znmPhPn 5GFJ3,5.kJ4 5T 5h>znmPhPn 5GFJ5`R/&m7 Pn(m`mmdmxi,5jJ6 5T 5i>FJ7,5i(5X,'WITH EIS OPTION')J8`R/&m7 Pn(m`mmdmi,5jJ9 5T 5i>FJ:RT CR1VAL: .RAD50 /CR1/ ;CR WITH BINARY SUPPORT CR2VAL: .RAD50 /CR2/ ;CD WITHOUT BINARY SUPPORT CR3VAL: .RAD50 /CR3/ ;CD WITH BINARY SUPPORT C026: .WORD 4 C029: .WORD 2 CASCII: .WORD 6 FLAGF: .WORD 0 FLAGT: .WORD 1 LOWF: .WORD 0 HIGHF: .WORD 20 MAXFLG: .WORD 377 ;MAXIMAL 8 RK UNITS EMTLIM: .BYTE EMTIO,STDEMT-1+UDEMT DFLUIC: DFUG DEFTXT: .ASCIZ /DEFAULT CARD CODE IS:/<15><12> .EVEN FILCNT: FILCH LOW0: .WORD 1 LOWE: .WORD 132. CVTRT: FCOUNT ;CONVERT TO THE PROPER FORMAT ;***E BRACKETS ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU2 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU2 ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU3 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDT 0d%aT $Q$K "@U%(`G$^ &&e E]e( &^ & ݁ "u$ d!Ё~J h_ ` &    e&p  E eE`E& & 0pVhbf$EA B` 0   t& &D &  ` ich J1  6!'   6!6   ",Z  BaBa6,5i(5X,'WITH FIS OPTION')J;`R/0m7 fPn(m`mmdmj,5jJ< 5T 58j>FJ=,5Vj(5X,'WITH STACK LIMIT OPTION')J>,5jJ? 5T 5h>znmPhPn 5GFJ@`R/&m7 Pn(m`mmdmj,5jJA 5T 5j>FJB,5j(5X,'WITH FPP OPTION')JC`R/2m7 Pn(m`mmdmj,5.kJD 5T 5k>FJE,5.k(5X,'WITH SEGMENTATION OPTION')JFJG 5T 5Nk>FJH,5~k('0FOLLOWING ARE OTHER OPTIONS ON THE SYSTEM'/)JI`R/4m7 Pn6m`mmdmk 5T 5l> 5h 5GFJJ`R/>m7 Pn6m`mmdmk 5T 5l> 5************************************************************** ;NEVER SEPERATE THE LABELS END AND START THEY SHOULD BE ;CONSECUTIVE AND END SHOUL TERMINATE THE DIALOGUE CODE END: END START: .WORD LPROTO ;LENGTH OF PROTOTYPE ;END OF DO NOT SEPARATE ;********************************************************************** .WORD PRODDL-PROMRT ;OFFSET OF DDL PROTOTYPE ;NOW THE PROTOTYPE MRT WILL BE DEFINED ;THERE ARE 4 POSSIBLE ENTRIES ;1 A CORE ADDRESS SET BY THE LINKER ;2 A ZERO MEANING EM GEMU3 ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMU4 VAL .IRP P,<> .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50>,P .ENDM .ENDM GEMU4 .PAGE ;AFTER THE MACRO DEFINITION, VALUES OF USER DEFINED EMT'S ;CAN BE INSERTED BETWEEN THE ANGLE BRACKETS. ;NOTE SEE RULES: ;E.G. .IRP P,<140,146> ;DEFINES EMT'S 140 AND 146 .MACRO GEMUh&A c JQ   0  ! $ oh" p" "c  R&"@U%G 0  2       $ d!ρ_K h ?@5@- -5@f!  E 6 hb&M  $^ "zU%Gwf&  p ,M 'pch h 5GFJK`R/@m7 xPn6m`mmdm l 5T 5l> 5 h 5GFJL`R/Bm7 BPn6m`mmdmVl 5T 5l> 5(h 5GFJM`R/Dm7 Pn6m`mm`R/Fm7 Pn(m`mmmdml 5T 5l> 50h 5GFJN`R/Dm7 Pn6m`mm`R/Fm7 Pn6m`mmmdml 5T 5l> 58h 5GFJObJJP,5m(1X,A8)JQbJ.\,\\\\zf\`@\\&&&&\\  \\\ .IIF EQ,PHASE SUBST>,VAL .IIF NE,PHASE R50 >,P .ENDM .ENDM GEMU5 ;IF EMT'S HAVE BEEN ADDED AND THE LINKER SHOULD ;BE ABLE TO LOAD THEM RESIDENT, THE TABLE ;STARTING AT LABEL GLOTAB HAS TO BE EXTENDED. ; THE TABLE GLOTAB DEFINES THE RADIX50 NAMES OF EMT'S. ;WHEN THERE REMAIN UNDEFINED GLOBALS,THE LINKER SEARCHES ;THE TABLE GLOTAB, AND THE TABLE INDEX ;DIVIDED BY TWO OF ANY TABLE ENTRY MATCHING AN UNDEFINED ;GLOBAL WILL BE THE NUMBER OF A EMT pT e TTTTTL&M 0   E Rh&Caee D!K& E ae f.M &0 & .L &0 L ~X$ d!?K ?h7 &^ %T&e  E eE`E& & $) EfdCCm  Bhbe &    h&  BB`   \ \ \ @ fff&6  D!w&f&\Aa@e\Aa@ e\Aa@ e\Aa@ e\\g\e\ \\\ \g\e\ \\\ \&g\&e\& \&\&\& \&b\&\g\e\ \\\ \g\e\ \\\ \\\\\\\\\\\\\\R\PP RESIDENT .ENDM URESEM ;DECLARE SYSTEM EMT'S RESIDENT ;NOW THE MRT PROTOTYPE IS THE THERE ;START HERE THE DDL PROTOTYPE PRODDL: GSLOT DC,210 GSLOT KB,60 GSLOT PR,70 GSLOT PP,74 .IF DF,FTLP DVNUM=DVNUM+2 .IF EQ,FTLP .RAD50 /LP0/ .WORD 0,200,0 .IFF .IF EQ, .RAD50 /LP1/ .WORD 0,200,0 .IFF .MERROR ;UNSUPPORTED LINE PRINTER .ENDC .ENDC .ENDC GSLOT DT,214 .IF DF,FTCR DVNUM=DVNUM+4 .RAD50 /CR/ .WORD 0,230,0 .RAD50 /CD/ .WORD 0,230,0 .ENDC TO BE LOADED ;RESIDENT. ;TO ADD THE GLOBAL NAMES OF USER DEFINED EMT'S ;USE THE FOLLOWING RULES: ;1 SUBTRACT 100 FROM THE LOWEST DEFINED EMT ;2 IF THIS NUMBER IS X,THEN EXTEND THE TABLE WITH X ZEROES ;3 ADD NEXT .RAD50 /EMX/ ; WHERE EMX IS THE GLOBAL NAME ;4 IF MORE THAN ONE EMT HAS BEEN DEFINED,REPLACE 100 BY THE VALUE ; OF THE EMT JUST DEFINED +1, AND TAKE THE NEXT EMT VALUE AS ; LOWEST EMT VALUE, AND REPEAT STEP 1. ; ;NOTE: ALL NUMBERS ARE OCTAL ; GLOTAB: .WORD GLOLST-GLOTAB ;  <#  %  Wh&U% vd nE   EemLA %%  & $)h .M $M "M$^ &&e E]e( &^ &` ݁ "u>$ d!ρK 2h wF&M e v a( I D | j  X E hbeaE& & EfID\\7 ~b}Tyc ypy0y^,5@bJ"}bT~b}T~b}T 5|] 5~] 5GFJ',5_(1H1,3('* '),'LISTING OF [',O3,',',O3,'] USER DIRECTORY ',3('* ')//)J( 5T 5_>FJ),5 `(3X,'FILE EXT',7X,'DATE',2X,'TYPE',2X,'USAGE',2X,'LOCK',3X,'ST GSLOT MT,224 GSLOT DK,220 GSLOT DF,204 GSLOT DP,254 GSLOT DPB,264 GSLOT CT,260 ;PROTO TYPES OF USER DEFINED DDL SLOTS DIFFER THAT THE SECOND WORD IS ;NON ZERO THIS ALLOWS THE INITIALIZER TO DIFFERENTIATE BETWEEN ;NON STANDARD AND STANDARD DEVICES SEQ=0 SEQ1=0 ;# OF USER DEFINED MNEMONIC USEQ=0 .REPT UDDEV+2/3 NUMMAC GDVU,\SEQ .ENDM .WORD 0 ;TO TERMINATE PRODDL LPROTO=.-PROMRT ;HEADER SHOULD NOT MOVE PART2: ;HERE STARTS THE SECOND SECTION OF CF.TBL ;ITS CONTENT CLENGTH OF TABLE HEADER INCLUDED .RAD50 /EMT/ ; 0,WAITR .RAD50 /EMT/ ; 1,WAIT .RAD50 /RWN/ ;2 WRITE .RAD50 /RWR/ ;3 NYA .RAD50 /RWN/ ;4 READ .RAD50 /RWR/ ; .RAD50 /INR/ ; 6,DATASET INITIALIZATION .WORD 0 ;INR TOO LONG MCO #D14 .RAD50 /RLS/ ; 7,DATASET RELEASE .RAD50 /TRA/ ; 10,TRAN PRCESSOR .RAD50 /BLO/ .RAD50 /SPC/ .RAD50 /STT/ .RAD50 /DIR/ .RAD50 /ALO/ ; .RAD50 /OPN/ .WORD 0 ;OPN TOO LONG MCO D#14 .RAD50 /CLS/ .RAD50 /REN/ .RAD50 /DEL/ .RAD50 /APP/ Dm &! & e#  E  h eDbeA LA   ! 0 e e h& | .M $M "U%G$CE   em A h   e$^ &&e E]e( &^ &X ݁ "u>$ Pd!ρ K "h&M &&  &ART',2X,'LENGTH',6X,'END',2X,'PROT',5X,'EBP'//)J*J+}bTyc ypy0y(`,5@bJ,}bT~TJ->~b}T~TJ.J/bb ypy0y^`,5`J0 5T 5`> 5T 5GFJ1,5`(1H0,'UFD BLOCK = ',O6/)J2J3}Y~**J4}Y~**J5}Y~**J6}Y~**J7}Y~**J8`R|.T7 J9`R8c7 xJ:bc ypy0ya,56aJ;~zYTJ<`R*+zYzYTb7 DJ=,5F`J>J?bb ypy0yNa,5 5\Y 5GFJA,5a(1H0,'TOTAL BLOCKS = ',F7.0)JBbb{TYJCbb{PYJDbbx{py0ya,5@bJEbbzXYJF 5T 5ONSISTS OF 2 PARTS: ;1 GENERAL INFO AND POINTERS TO ENTRIES IN THE SECOND PART ;2 A SET OF TABLES NEEDED TO PROCES THE THE REDUCED CILS ;THE GENERAL INFO SECTION HAS THE LAY-OUT: ;1 WORD 1 NUMBER OF TYPES HAVING TABLE INFO INSECOND PART OF THIS SECTION ;2 A TYPE HAS BEEN DEFINED IN RMON5 AS A NUMBER REPRESENTING ;3 AN ENTITY SUCH AS EMT,DRIVER .. THESE NUMBERS ARE MULTIPLES ; OF 4 STARTING WITH 4 AND ARE USEDTO ADDRESS THESECOND PART ; INFO BLOCKS ;2 WORD 2 POINTS TO A TABLE OF VAR.RAD50 /GAR/ .RAD50 /PRO/ .RAD50 /REC/ .WORD 0 .WORD 0 .PAGE .WORD 0,0,0,0,0,0 ;EMT'S 30-35 .WORD 0 .WORD 0 .RAD50 /SPE/ ; 40,MSB OVERLAY PROCESSOR, RESIDENT .RAD50 /GUT/ ; 41, GENERAL UTILITIES .RAD50 /CVT/ ; 42,CONVERSION PROCESSOR .RAD50 /FOP/ .RAD50 /FCR/ .RAD50 /FCL/ .RAD50 /LUK/ .RAD50 /LBA/ .RAD50 /GMA/ .RAD50 /CBA/ .RAD50 /CKX/ ; .RAD50 /DLN/ .WORD 0 ;DLN IS NON REUSABLE .RAD50 /DCN/ .RAD50 /AP2/ .RAD50 /CSX/ .RAD50 /CSM/ .RAD50 /XIT/ ; .RA  mm$S #hb $m # f0 Ze $M "JU%G-Bh8< v! eeH! 6$^ &&e E]e0&( &^ & ݁ "uH$ d!ρ# K hC  e e(   e&  L̥ ̥ ̥̥̋ ̥ H  ^ hb˥*{ k D ˥,a> 5XY 5G 5T 5GFJG,5~TPm {~XmJJ ~ZmJ!Hmx\mJ"}ZmzYy^m ypy0yc,5iJ#&~Zm}zYyym{\YJ$mhm{`YJ%}ZmzY ;MAKE EMTS 10&20 RESIDENT. ; .MACRO URESEM .IRP P,<> SUBST >,3 .ENDM .ENDM URESEM ;IF NO NON STANDARD DEVICES HAVE TO BE ;DEFINED, THE EDITING OF THIS FILE IS READY. ;OTHERWISE INSERT THE NUMBER (OCTAL) ;OF NONSTANDARD DEVICES ON THE NEXT LINE. UDDEV=0 ;REPLACE THIS BY OCTAL NUMBER ;OF NON STANDARD DEVICES. ;FOR EACH NON STAN! `. z1 J Ѥ 1ӥ, ӥ4hb,<˥  ˥.˥[ i˥*";D`%  % %2Uh"4U%G  1 K Ӌc j2 & Β | r˥:h& ˥.˥$D U    F` 0˥: ӥ*@ & Β0h e& ˥0 ˥Z˥9˥A &f˥* Ŕ@Ŕ@a   @a,'LOCKED FILE ',6('* ')/1X,2(A2,A1),'.',A2,A1,'[',O3,',',O3,']'/)J: 5T 5e> 5l 5l 5l 5G 5|] 5~] 5GFJ;J<m^m ypy0ybf,5gJ= 5T 5f> 5m 5G 5l 5l 5l 5G 5|] 5~] 5GFJ>,5g(1H0,6('* '),'OPEN FILE,USAGE COUNT = ',O6,6(' *')/1X,2(A2,A1),'.',A2,A1,'[',O3,',',O3,']'/)J?J@ll ypy0yg,5RhJA 5T 5g> 5l 5l 5l 5l 5G 5m 5m 5m 5m 5G 5lY 5G 5m 5m 5m 5GFJB,5g(1X,2(A2,A1),'.',A2,A1,2X,4A2,A1,5X,A1,5X,O2,5X,O1,2X,O6,2X,F7.0,2X,O6,3X,O3,3X,O6 COUNT .ENDC .ENDC CLSLOT: .WORD CLNUM .WORD CLPRIM-PART2 GINFO:;HERE DIFINE THE PRIMARY EMT TABLE CONSISTING OF ;RAD50 REPRESENTATIONS OF EMT'S A ZERO MEANS IGNORE ;THE EMT NOTE RMON5 ZEROES ELEMENTS ON PROCESSING THE TABLE EMPRIM: .WORD *2 BBB=000 .REPT STDEMT RAD50N BBB BBB=BBB+1 .ENDM ;NOW ZERO NON EXISTANT EMT'S IN THE RADIX50 TABLE CFNOEM ;ZERO TABLE ENTRIES RESEMP ;ZERO LOADED ONES TOO .REPT UDEMT .WORD 0 .ENDM SEQ=0 .REPT UDEMSW+12/1DARD DEVICE,THE ;MNEMONIC AN INTERRUPT VECTOR ADDRESS ;AND AN EXTERNAL PAGE ADDRESS SPECIFIC FOR THE DEVICE ;HAVE TO BE SPECIFIED. ;NOTE: THE EXTERNAL PAGE ADDRESS MUST BE READABLE, IT CAN ; IF THIS CONDITION IS SATISFIED BE ANY ADDRESS ; SPECIFIC FOR THE DEVICE ;THE SPECIFICATION OF THESE ITEMS HAS TO BE DONE ;BY MEANS OF THE MACROS GDVUO, GVDU1 ;AND GDVU2 USING THE FOLLOWING RULES. ; 1 START DEFINING BY USING GDVU0, NEXT ; GDVU1, AND THEREAFTER GDVU2 ; 2 IN EACH MACRO, SPECIFICAT$ d!>ρK oh D  5 &f  ez H 5 & &  hb e"D(&( e * ߕ7 \7 V /$ d!@сCK he e("ep &&(  0D$^ ( Fhb&^ , .v eR  " eB`$ )JCm^m yym^m yydy0yg,5RhJDl^m ypy0yh,5RhJE&~Zm}zYym ypy0y,h`RmZm7 FJF&~Zm}zYy m ypy0yRh`RmZm7 JGJH|m^m ypy0yjh,5iJIhY:mJJ(m.m{hm{DmJK4mmx{hy0yh,5hJL4mm{xh`Ry7 x}mdy~mJM,5hJN`Ry:m7 ~mJO`R|.m7 JP4mhm{:mJQ4m>mx{hy0yi,5hJR,5iJSJTmdYJUm^m ypy0y8i,5iJV`R|.m7 *JW~mTJX~TmJY`R*+TTrmm7 JZ"mhm{dYJ[m^m ypy0yi,5iJ\`R|.T7 J].mm{"mx{jy0yi,5kJ^,5RiJ_J`.m"m3 NUMMAC GEMU,\SEQ .ENDM .REPT UDEMRS+12/13 NUMMAC GEMU,\SEQ .ENDM KBPRIM: .WORD KBNUM*2 .RAD50 /TS/ ;60 HERTZ TIME COMMAND .RAD50 /TF/ ;FIFTY HERTZ TIME COMMAND .IRP P, .RAD50 /P/ .ENDM KBNUM=.-KBPRIM-2/2 .WORD "TI,"TI .IRP P, .WORD "P .ENDM .WORD 2,2,4,3,4,2,2,3,3 .WORD 1,1,1,1,1,1,1,1,1,1,1,1 .MACRO GSLOT X .IRP P, .IF DF,FT'P .RAD50 /P/IONS ; FOR ONLY 3 DEVICES CAN BE GIVEN ; 3 IF THERE ARE 3 OR MORE SPECIFICATIONS ; TO BE DONE, SPECIFY 3 IN THE CURRENT MACRO. ; 4 NOTE: IF THERE IS ONE DEVICE USE DOUBLE SQUARE BRACKETS ; IN THE USER DEVICE MACROS ; E.G. .IRP P,<> ;THE MACROS GDVU0, GDVU1 AND GDVU2 ;PROVIDE THE FACILITY FOR 9 DEVICES. WHEN ;MORE DEVICES HAVE TO BE ADDED, ADD ;ADDITIONAL MACROS WITH NAMES STARTING ;WITH GDVU3,-.... ;HAVING THE SAME LAYOUT AS ;GDVU0, GDVU1 AND GDVU2. .PAGE ;HERE TH e 8;h 9&e2E? c  Tc8$)  E gS e$^ l&( v<  [h0&^  e  d80B`e 6 5 N4  AAIe ߋtߕ$v,"hU%G]$ d!AρK h&^ %&  aef& )ɋȕ ` | 5& eXhb  s K x{y0yi,5jJamm yy0yi,5kJbJcR Zm@yNm\mXmlcJdbJJe 5T 5Xj> 5l 5l 5l 5G 5|] 5~] 5G 5lY 5dY 5GFJf,5j(1H0,6('* '),'FILE SIZE IS INCORRECT',6(' *')/1X,2(A2,A1),'.',A2,A1,'[',O3,',',O3,']'/1X,'SYSTEM THINKS FILE SIZE = ',F7.0/1X,'ACTUAL FILE SIZE = ',F7.0)Jg,5iJh 5T 5Dk> 5l 5l 5l 5G 5|] 5~] 5m 5m 5GFJi,5k(1H0,6('* '),'FILE END BLOCK IS INCORRECT',6(' *')/1X,2(A2,A1),'.',A2,A1,'[',O3,',',O3,']'/1X,'SYSTEM THINKS END BLOCK = ',O6/1X,'ACTUAL E ;GENERATE RADIX50 DEVICE CODE .ENDC .ENDM .ENDM GSLOT DVPRIM: .WORD DVNUM*2 ;NUMBER OF DEVICES *2 GSLOT .IF DF,FTLP .RAD50 /LP0/ .RAD50 /LP1/ .ENDC .IF DF,FTCR .RAD50 /CR0/ .RAD50 /CR1/ .RAD50 /CR2/ .RAD50 /CR3/ .ENDC SEQ=0 .REPT UDDEV NUMMAC DEV,\SEQ .ENDM CLPRIM: .WORD LLEN .IF DF,FTCLP .RAD50 /P / .ENDC .IF DF,FTCLL .RAD50 /L / .ENDC LLEN=.-CLPRIM-2 .IIF DF,FTCLP .WORD 300 .IIF DF,FTCLL .WORD 200 .IIFHE MNEMONIC AND INTERRUPT VECTOR ;ADDRESS OF UP TO 3 DEVICES CAN BE SPECIFIED. ;IF THE MNEMONICS AND INTERRUPT VECTOR ;ADDRESS ARE RESPECTIVELY: ;X1,X2,X3 AND IVA1,IVA2 AND IVA3 ;EPA1,EPA2 AND EPA3 ARE THE RESPECTIVE EXTERNAL PAGE ADDRESSES ;THEN EDIT THE LINE AFTER THE MACRO DEFINITION TO READ: ; .IRP P,<,,> .MACRO GDVU0 .IRP P,<> UDEVG P .ENDM .ENDM GDVU0 ;HERE THE MNEMONIC AND INTERRUPT VECTOR ;ADDRESS OF UP TO 3 DEVICES CAN BE SPECIFIED. ;I$   0, h & E  I, 5ȕ &  ȕe h&Հ e 0  "U%M&0 &.^  2   4 (_h "5p   & &"u e $^ C( f&^ $ d!Bρ!K -h  eeW qqqD`% ND BLOCK = ',O6/)Jj,5iJk 5T 58l> 5l 5l 5l 5G 5|] 5~] 5G 5lY 5dY 5GFJl,5l(1H0,6('* '),'FILE GROSSLY EXCEEDS LENGTH',6(' *')/1X,2(A2,A1),'.',A2,A1,'[',O3,',',O3,']'/1X,'SYSTEM THINKS LENGTH = ',F7.0/1X,'ACTUAL SIZE IS = ',F7.0)Jm,5iYPYPYPYP\@\<\D\@\\`YjdYghYdlYapY^>m[HmV\ \ \rmA@ \\\\\L C mGmH DF,FTCLP .WORD 'P .IIF DF,FTCLL .WORD 'L KBNT=KBNUM .END F THE MNEMONICS AND INTERRUPT VECTOR ;ADDRESS ARE RESPECTIVELY: ;X1,X2,X3 AND IVA1,IVA2 AND IVA3 ;THEN EDIT THE LINE AFTER THE MACRO DEFINITION TO READ: ; .IRP P,<,,> .MACRO GDVU1 .IRP P,<> UDEVG P .ENDM .ENDM GDVU1 ;HERE THE MNEMONIC AND INTERRUPT VECTOR ;ADDRESS OF UP TO 3 DEVICES CAN BE SPECIFIED. ;IF THE MNEMONICS AND INTERRUPT VECTOR ;ADDRESS ARE RESPECTIVELY: ;X1,X2,X3 AND IVA1,IVA2 AND IVA3 ;THEN EDIT THE LINE AFTER THE MACRO DEFINITION CBMW(C EE hbE& Nee '&&et&ffe$)&ff EU  :qF e"(U%M !$B!$ d!Cρ5$K xheʋ_ w  " eBqF  58 eePPe)hb ( t$ ffeteh ~ f@  /K |  hp   &$ !\\mA&&\7 ,,> .MACRO GDVU2 .IRP P,<> UDEVG P .ENDM .ENDM GDVU2 U%Gv  7    & & h& &ff P0e>1& & 2% Ge~hfVeJ _ F _ `E $  (&  U ( L z$ d!Dρ&K hCEe  e  CS K  I X0ECEDVONTCOPESGUALUJNUJYAMRRhbPARAMBEFNAJ 0J8&~u}zYyu yy0yo,5@pJ9 5T 5p>FJ:,5@p(1H0,6('* '),'THIS CIL IS HOOKED TO THE BOOTSTRAP',6(' *')/)J;J< 5T 5p> 5u 5u 5G 5u 5u 5u 5u 5GFJ=,5Lq(1X,/'* CIL CREATION TIME - ',5A2,/'* CIL CREATION DATE - ',4A2,A1,/'* BLOCK SIZE - 'I5,'.',/'* SIZE OF CIL - ',I5,'.',/'* BLOCKS USED IN CIL- ',I5,'.',/'* MODULES IN CIL - ',I5,'.',/)J>uxuJ?`R- Tuuu7 J@u5qs2tJA,5tJB} T>,0 .ENDM ZERO1 ;SUBST SAVES THE CURRENT LOCATION COUNTER AND SUBSTITUTES ;AT LOCATION LOC THE VALUE VAL,AFTER DOING THIS THE LOCATION COUNTER WILL ;BE RESTORED .MACRO SUBST LOC,VAL ZZZ=. .=LOC .WORD VAL .=ZZZ .ENDM SUBST ;PSUBST SUBSTITUTES A GLOBAL VARIABLE IN THE PROTOTYPE MRT ;NOTE: THIS MACRO IS AN AUXILLARY ONE AND DOES NOT NEED TO ;BE INVOKED DIRECTLY .MACRO PSUBST LOC,VAL .GLOBL VAL SUBST >,VAL .ENDM PSUBST ;GSLOT GENERAT;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; VERSION NUMBER: EDIT01 FTCOM=1 ;COMTEX SWITCH XFTCOM=0 ;COMTEX EXPERIMENTAL SWITCH FTMUO=1 ;MUO SWITCH XFTMUO=0 ;MUO EXPERIMENTAL SWITCH FTRPG=1 ;RPG SWITCH XFTRPG=0 ;RPG EXPERIMENTAL SWITCH FTDOS=1 ;DOS SWITCH XFTDOS=0 ;DOS EXPERIMENTAL SWITCH ;TEMPORARY FEATURE SWITCHES FTRPO3=1 ;RPO3 KEN ELFAND &  B `e”tf !  -h-[{   3a 7kV%_2P e $  " M ih&e   a@ B  AE    E``  < < 2:T  $@ ``F "RU%M:/  ` $ &d!Eρ)K hEW! +qF   Rȋ W! F& e& c eEuu ypy0yq,5*uJFuu yy0yq,5>uJG}TFJI,5*uJJ 5T 5Hr>FJK,5Nr(' ')JL}TFJN,5*uJO 5T 5r> 5u 5GFJP,5r(1X,'INIT ERROR IN LSTLDA,INDEX = ',I5)JQbJJR 5T 5r>FJS,5s(5X,'OPEN FAILURE, FILE IS PROTECTED')JT`R@.7 LJUbJJV 5T 5Rs> 5u 5GFJW,5zs(1X,'OPEN ERROR IN LSTLDA,INDEX = ',I5)JX`R@.7 JYbJJZ 5T 5s>FJ[,5s(1X,'UNRECOGNIZED OPEN ERRORES A DDL ENTRY FOR THE DEICE WITH MNEMONIC DEV ;AND INTERRUPT VECTOR IVA .MACRO GSLOT DEV,IVA .IF DF,FT'DEV .RAD50 /DEV/ ;DEVICE NAME RADIX 50 .WORD 0,IVA,0 ;CORE ADDR,INTERR. VECT ,DISK ADDR DVNUM=DVNUM+1 .ENDC .ENDM GSLOT ;RAD50N AND RAD53 GENERATE A RADIX SYMBOL FOR THE VALUE X ;PASSED TO RAD50N. THIS CONVERSION IS DONE FOR EMT MODULES .MACRO RAD50N X B123=X D3=B123- B120=B123-D3 B12=B120/10 D2=B12- D1=B12/10 RAD53 \D1,\D2,\D3 .ENDM RAD50N ;TEUNIS KORTEWEG. ;CHECK 1-FEB-73! ;XFTRPO=0 ;EXPERIMENTAL RPO3 SWITCH aehbU@&E@5@3 (˥$ E O  ˥# ˥* S vh S ",U%MKK$$#E5 E@  U0eȊN}$ d!mρy4K $ d!TЁ;J ohDqF & &  e O& e$4 B % __2 b. fe0N hr& E NaeEM MJ f& N FROM OPENFB')J\`RO7 J] 5T 5s>FJ^,5t(1X,'UNEXPECTED EOF IN LSTLDA')J_`R@.7 FJ`bJJa 5T 5Nt>FJb,5|t(1X,'*** READ ERROR FROM FILE IN LSTLDA ***'/)Jc`R@.7 JdbJJe 5T 5t>FJf,5t(1X,'UNRECOGNIZED RETURN ERROR FROM READFB'/)Jg`R@.7 JhbJJi 5T 5 u>FJj,5"u(1X,'COMD DATA ERROR'/)Jk,5|tJl`R@.7 :JmbJJn 5T 5Zu>FJo,5zu(1X,'COMD ERROR WITHIN A CIL'/)Jp,5*upYPYPn\\\\\\.MACRO RAD53 X1,X2,X3 .RAD50 /X1'X2'X3/ .ENDM RAD53 ;DFU DEFINES THE DEFAULT UIC FOR BATCH SYSTEMS .MACRO DFU P2,P1 .MACRO DFUG .BYTE P1,P2 .ENDM DFUG .ENDM DFU ;CONSOL IS USED TO GENERATE THE CHARACTER FILL COUNT FOR THE ;CONSOLE TERMINAL .MACRO CONSOL C1 .MACRO FILCH FCCNT=0 .IF NE,C1 FCCNT=100000 FCVAL=C1 .MACRO FILCHL,Z1,Z2 Z1=Z1-1 .IIF EQ,Z1 .MEXIT Z2=Z2/2 FILCHL Z1,Z2 .ENDM FILCHL FILCHL FCVAL,FCCNT .ENDC .WORD FCCNT .ENDM FILCH .ENDM CONSOL ;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; VERSION NUMBER: EDIT01 ;REGISTER ASSIGNMENTS: R0=%0 R1=%1 R2=%2 R3=%3 R4=%4 R5=%5 SP=%6 PC=%7 ;SYMBOLIC DEFINITIONS FOR COMMUNICATION ;VECTOR ENTRIES: ;SYMBOLS ARE CONSTRUCTED BY THE RULE: ;V.XXXX WHERE XXXX DENOTES FUNCTION V.SVT=40 ;ADDRESS OF SVT TABLE V.XIT=42 ;EXIT MODULE V.RSAV=44 ;SAVE REGISTEJ    A/& NLhe %%d %i %U%%t ̋%$)&wE eAaW$  vnh6  @W" gE    5<U.,(& ze`& Μe  w & $e(&f"  W  @`E$ :OЁJ hDqF & &  e O& e$4 B % __2 .\\\ 7 5w 5w 5w 5w 5G 5&x 5GFJ(,5w(3X,'.TITLE /',6A1,'/'1X,'.IDENT /',6A1,'/'1X,'TIME-',8A1,1X,'DATE-',9A1,1X,'SIZE-',I6,'. WDS';NUMMAC GENERATES A MACRO CALL WITH A SEQUENCE NUMBER ;APPENDED TO THE BASIC MACRO PREFIX .MACRO NUMMAC MACRO,SEQU,ARGL MACRO'SEQU ARGL SEQ=SEQ+1 .ENDM NUMMAC ;UDEVG GENERATES A DDL ENTRY FOR A USER DEFINED DEVICE ;THE DIFFERENCE BEING THAT WORD 2 OF THE USER DEFINED DEVICE IS NOT ;EQUAL TO ZERO .MACRO UDEVG W1,W2,W3 .RAD50 /W1/ .WORD W3,W2,0 DVNUM=DVNUM+1 .IRP P,<\USEQ> .MACRO DEV'P .RAD50 /W1/ .ENDM DEV'P .ENDM USEQ=USEQ+1 .ENDM UDEVG STDEMT=100 ;77 OCTAL STANDARRS V.RRES=46 ;RESTORE REGISTERS V.CDB=50 ; V.CDQ=52 ; V.GTB=54 ;GET BUFFERS V.RLB=56 ;RELEASE BUFFERS: ;SYMBOLIC DEFINITIONS FOR ENTRIES IN THE ;DRIVER INTERFACE TABLE, ALL SYMBOLS START WITH DIT DITBSY=0 ;DDB ADDRESS WHEN BUSY ELSE 0 DITFAC=2 ;FACILITIES WORD DITBFS=4 ;BYTE CONTAINING SIZE OF DEVICE BUFFER IN 16 WORD UNITS ;OR THE OFFSET OF THE DEVICE DESCRIPTOR TABLE FROM RPDSC1 DITINT=5 ;OFFSET OF INTERFACE CODE DITPRI=6 ;PRIORITY FOR INTERRUPT SERVICE DITOPN=7 ;OFFSET OF OPEb feDL hr& E NaeEM MJ f& NJ    A/& Ne|h %%d %i %U%%t ̋%$)&wE eAaW$  vVh6  @W" gE    5<U.,(& ze@& Μe  w & $e(h_ `%f (,^ %Cf e 3  4 A)J)bJPw@w@w@w@ \  7  Rf E( pFU%E e<gE ,^ $)6B h "&f( f0 R,E KSa KcW" ge2& B Q$p E  __ $ d!|ЁA/J )hac)$BbF %"  E& ' `%hb% * , "w:eX$_ `6 6 &  f 6A  v  6N\&f  & N & . )   v     C 6  %%    6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       #    &  B  BB`   \ \ \   B -  e \e&&   v NTIFIES THE MODULES ENTRY POINT ;NEW VALUES SHOULD BE APPENDED TO RSEM1 WHENENEVER THIS HAS ;4 ARGUMENT PAIRS GENERATE A SIMILAR MACRO RSEM2ETC ;AND NOTE THAT EVEN A SINGLE PAIR NEEDS TO BE EMBEDDED ;IN SQUARE BRACKETS ;UPDATE THE VALUE OF RESEMT TOO .MACRO RSEM0 .IRP P,<<0,>,<1,>,<2,>,<4,>> PSUBST P SEQ1=SEQ1+1 .ENDM .ENDM RSEM0 .MACRO RSEM1 .IRP P,<<30,>,<40,>> PSUBST P SEQ1=SEQ1+1 .ENDM .ENDM RSEM1 RESEMT=6 ;CFNOEM DEFINES NON EXISTN DDB DDBUNT=13 DDBCRT=14 ;COMPLETION RETURN. ; ; EMTVAL=104000 ;VALUE OF EMT OPCODE EMTRET=14 ;LOCATION OF EMT RETURN ON STACK. EMTINT=6 ;VALUE OF INIT EMT EMTVEC=30 ;EMT INTERRUPT VECTOR LOCATION ;IN THE NEXT LIST SYMBOLICS ARE DEFINED ;FOR THE EMT'S ADD DEFINITIONS IN NUMERICAL ORDER ; ; PS=177776 ;ADDRESS OF PROGRAM STATUS. PSPRIO=177437 ;MASK USED TO EXTRACT PRIORITY. PRI4=200 ;PRIORITY LEVEL 4 PRI7=340 ;PRIORITY LEVEL 7 ;ERROR MESSAGE VALUES STACKED ;BEFORE MAKING AN x c "h, J Vc! K C` S5 3m59 R&* C`$U5$h&B  $5$U@( __ ހ (   %0 7hC`  J D`$ !$$a!!  (( #)& &f(&W  @`  $ N`Ё1J Ghac)$BbF %"  E& ' `%|N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\ \    0  @  @  "   N A f C %C B    \   \\f&\Aa@e\Aa@ e\Aa@ANT EMT'S WHENEVER A NEW EMT IS DEFINED ;THE CORRESPONDING ENTRY SHOULD BE DELETED FROM THE .IRP LIST .MACRO CFNOEM TAB .IRP P,<3,5,23,26,27,36,37,70,72,73,74,75,76,77> SUBST >,0 SEQ=SEQ+1 .ENDM .ENDM CFNOEM ;RESEMP DEFINNES THE RESIDENT EMT'S WHICH ARE HANDLED ;AUTOMATICALLY BY THE SYSTEM .MACRO RESEMP .IRP P,<0,1,2,4,30,40> ZERO1 P,EMPRIM .ENDM .ENDM RESEMP ;IDENT MONVRS DEFINED MONITOR IDENTIFICATION TO BE ;PRINTED ON REBOOTING OF THE SYSTEM .MACRO IDENT T IOT CALL TO PRINT THE ;MESSAGE F002=1402 ;F002 MESSAGE. F001=1401 ;F001 MESSAGE F005=1405 ;F005 MESSAGE A002=402 ;A002 MESSAGE: F050=1450 ;F050 MESSAGE F003=1403 ;F003 MESSAGE F011=1411 ;F011 MESSAGE F012=1412 ;F012 MESSAGE F007=1407 ;F007 MESSAGE F017=1417 ;F017 ERROR F052=1452 ;F052 MESSAGE F024=1424 ;F024 MESSAGE F042=1442 ;F042 ERROR MESSAGE STMASK=107070 ;MASK TO IDENTIFY TOB ;GLOBAL DEFINITIONS ;GLOBALS IN COM VECTOR STARTING AT ;40 ENDING AT 56. ;SYMBOLS AS#hb% * , "w:eX$_ x c ,h J Vc! K C` S5 3m59 R&* C`$U5$Bh&  $5$U@( __ ހ (   %0 cJC`  J D`$ !$$a!!  (( #)& Ih_ `%  #" ͋͊KQ$B S($e$ɋ'0,e 0 (. e\Aa@ e\\Aa@ g\Aa@ g\g\&g\&e\& \&\&\& \&b\&\z~ ~~~~~~~FC C  \v\\\\\\\\\\\\\\\\\\\\R\PP\\XT .MACRO USRTXT .IF NB, .ASCIZ /TXT/<15><12> .ENDC .EVEN .ENDM USRTXT .ENDM IDENT .MACRO MONVRS TXT .MACRO MONVER .ASCIZ <15><12>\TXT\<15><12> .ENDM MONVER .ENDM MONVRS .PAGE ;ON THE FOLLOWING PAGES ALL MACROS ASSOCIATED WITH THE MONITOR ;START DIALOGUE ARE DEFINED ;MACRO DIAL SHOULD BE AN EXACT COPY ;OF THE MACRO DIAL IN FILE SYSMAC.MAC THE ONLY REASON ;TO IN THIS MODULE IS TO REDUCE THE SPACE REQUIREMENT BY ;MACRO .MACRO DIAL CASE .IRP P,FJ&,5^(1H1,6('* '),'MAP VERIFICATION',6(' *')//)J'J(`R*+TThh7 J)nUJozYJ*J+hbihJ,nhxYhoihhh^J-hhzii~i_,5fJ.FozYhJ/nzYi:_`R*+zYTh7 .J0RhJ1n~YJohJ2n~YnBYJ3hhzii~iz_,5`J4 5T 5_>hbihnhxYn 5Gihhh_FJ5,5B`(1H0GO,SV,YN,GN,TX,TXA,GD,GT,FC> CASE P .ENDM .ENDM DIAL ;CODES GENERATES ALL THE OPCODES NEEDE BY THE PSEUDOCODE ;GENERATED BY THE CODE MACROS (E.G. IF GOTO SVAR ETC.) .MACRO CODES PREF PREF'CODE=CODVAL CODVAL=CODVAL+2 .ENDM CODES CODVAL=0 DIAL CODES ;DEFINE THE CODES ;IF GENERATES A BOOLEAN TEST A ND BRANCH IN THE ELSE CASE TO THE ;NEXT CODE MACRO CALL .MACRO IF BOOL,THEN,LINE,ELSE,LINE2,?LABEL,?LABEL2 .GLOBL BOOL .WORD IFCODE,BOOL .IF IDN,THEN,THEN .WORD LABEL-2-. OS CAN BE FOUND IN MODULE RMN0.MAC ;TO GET THE DEBUGGING FEATURES ON DEFINE XFTRPO3=1 PATSIZ=30 ;THIS IS THE SIZE OF THE PATCH SPACE IN WORDS ;IN THE FOLLOWING LIST MNEMONICS FOR ASCII SYMBOLS ARE DEFINED CR=15 LF=12 TABCH=11 BLANK=40 BSLSH='\ RUBOUT=177  um5 ,, F%@h_ Fe 5@ fʊ U p (AQ$H5@ Q$&f W   @` m$ KOЁK ^h_ `%(  e% % E%l%  E V  Eb &  NcuV hrN ! !O  U%DC aU%  (  & fe& f df dhvΊ%,6('* '),'MAP HEADER INFORMATION',6(' *')/' LINK = ',O6,/' MAP NUMBER = ',I2,'.',/' WORDS IN MAP = ',I3,'.',/' LINK TO FIRST MAP = ',O6/)J6 5T 5|`>hbihnhxYn 5GihhBYZ`FJ7,5`(8(2X,O6))J8J9hbihJ:`R0h7 \ohJ;nhxYvihzii~i`,5dJ<hhzii~i`,5dJ= 5T 5a> 5h 5h 5h 5GnhxYn 5GFJ>,5a(1H0,6('* '),'MAP VERIFICATION ERROR',6(' *')/1X,'MAP NUMBER = ',I3,'. ,WORD NUMBER = ',I3,'.'/1X,'RECONSTRUCTED ENTRY = ',O6/1X,'SYSTEM ENTRY = ',O6)J?`R $GOFLG=0 LINE .IF NB,ELSE .IF DIF,ELSE,ELSE .MERROR ;WRONG IF THEN ELSE STATEMENT .ENDC .IIF EQ,$GOFLG GOTO LABEL2 .IFTF LABEL: .IFT LINE2 LABEL2: .ENDC .IFF .ERROR ;WRONG IF FORMAT .ENDC .ENDM IF .MACRO IFF B ,THEN,LIN,?LA .WORD IFFCODE,B .IF IDN,THEN,THEN .WORD LA-2-. LIN .IFF .ERROR ;WRONG IFF FORMAT STATEMENT .ENDC LA: .ENDM IFF .MACRO GOTO LABEL $GOFLG=1 .WORD GOCODE .WORD LABEL-2-. .ENDM GOTO .MACRO SVAR AVALUE,VAR .GLOBL VAR ;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; VERSION NUMBER: EDIT01 ;THE FOLLOWING SET OF MACROS ENABLES THE GENEARTION ;OF DOS ERROR MESSAGES,THE PARAMETERS PASSED TO THE MACRO ;ARE: ; ;1. INFO THE VALUE TO BE PRINTED IN ADDITION TO THE ERROR IDENTIFICATION ;2. CODE THE ERROR NUMBER ;THE ERROR TYPE IS DETERMINED BY PREFIXING EEROR WITH THE ;PROPER ERROR3 ? RF%N_ F__ , !ԋ|h6 !  e um5 ,, F%P_ Fe 5@ fʊ U p (AQ$H5@ Q$}h_ `%ˊKf  FrB eQ$!w^! eE! $5 $hb5fN P(5d5 CCh(5@ Hp p ppej h 5550h7 nnhxYviiNoiJ@`R0h7 nfia`Rj.i7 \o iJAnhxYib`Rj.i7 \\oiJBhbihJCnhYviiihzii~iBb,5dcJDn|Y@ofiVb`R2j7 nn~Yinb`R2j7 niDjDjohJEnhfib`R2j7 niDjhl`R2jh7 nl"ilohJFh,ili~ib,5cJGh6ilfib`Rj7 n@iiNoHiJH,5cJI`Rjh7 b\oHiJJJK 5T 5>c> 5Hi 5GFJL,5\c(1X,'LOST BLOCK NUMBER = ',O6)JMRhJNihhi$bJOhbihJPnhYviiihzii~ic,5dJQn|Y@ofic`R2j7  .WORD SVCODE .WORD AVALUE-.-2,VAR .ENDM SVAR .MACRO YESNO BOOL .GLOBL BOOL .WORD YNCODE,BOOL .ENDM YESNO .MACRO GETNUM LOW,HIGH,VAR,SUCCESS .GLOBL VAR .WORD GNCODE .WORD LOW-.-2,HIGH-.-2,VAR .WORD SUCCESS-.-2 .ENDM GETNUM .MACRO TEXT TXT,?LABEL .WORD TXCODE .WORD LABEL-2-. .ASCIZ /TXT/ .EVEN LABEL: .ENDM TEXT .MACRO TEXTM TXT,?LABEL .WORD TXCODE .WORD LABEL-2-. TXT .EVEN LABEL: .ENDM TEXTM .MACRO TEXTA TXT .WORD TXACODE,TXT-2-. .ENDM TEXTA TYPE E.G. F344 012400 IS GENERATED BY: ; FERROR <#12400>,344 .MACRO ERROR INFO,TYPE PUSH <,<#TYPE>> IOT .ENDM ERROR .MACRO IOTERR IOT .ENDM IOTERR .MACRO FERROR INFO,CODE ERROR ,<1400+CODE> .ENDM FERROR .MACRO AERROR INFO,CODE ERROR ,<400+CODE> .ENDM AERROR .MACRO SERROR INFO,CODE ERROR ,<2000+CODE> .ENDM SERROR .MACRO IERROR INFO,CODE ERROR , .ENDM IERROR .MACRO WERROR INFO,CODE ERROR ,<1000+CODE> .ENDM XU 4!dddQ$B e0 H""H&NHAh&! aF !!Fah ! _ ` 8$Re)RJ _ |_9 _ & _~F-O GP f5e (q@ &f(& W  @` $ KPЁK h_ `%(  e% % E%l%  E V  Eb &  Ncunn~Yic`R2j7 niDjDjohJRnhfic`R2j7 niDjhl`R2jh7 hnl"ilohJSh,ili~i*d,5ZdJTh6ilfi>d`Rj7 2n@ii:kohJU,5ndJV`Rjh7 \oHiJWJX 5T 5d> 5Hi 5GFJY,5d(1X,'FREE BLOCK NUMBER = ',O6)JZRhJ[ihhi|cJ\`R0h7 nnhxYdoJ]RhihhBY`J^hJizii~i e,5^J_~hRizii~i e,5^J`hhzii~i4e,5ZeJanzYiHe`R"+hTh7 Jb,5^Jc 5T 5e> 5 Y 5GFJd 5T 5e> 5 Y 5GFJe,5f(1H0,6('* '),I5,'. M .MACRO END .WORD NDCODE .ENDM END .MACRO QUEST TXT,BOOL IFF TDATE THEN > YESNO BOOL .ENDM QUEST .MACRO GDATE .WORD GDCODE .ENDM GDATE .MACRO GTIME .WORD GTCODE .ENDM GTIME .MACRO FCOUNT .WORD FCCODE .ENDM FCOUNT WERROR ;MACROS FOR STACK OPERATIONS ;1. PUSH CAN STACK ANY LIST OF ARGUMENTS ;2. POP POP UNDOES PUSH HOWEVER SEE NOTE!!! ;NOTE: THE ORDER IN WHICH POP POPS IS THE REVERSED OF THAT ; USED BY PUSH TO PUSH ; ;E.G. PUSH ;IS UNDONE BY!!!!! ; POP .MACRO PUSH LIST .IRP P, MOV P,-(SP) .ENDM .ENDM PUSH .MACRO POP LIST .IRP P, MOV (SP)+,P .ENDM .ENDM POP .MACRO CALL5 R JSR R5,R .ENDM CALL5 .MACRO CALL S JSR PC,S .ENDM CALL V hrN ! !O  U%DC aU%  (  & fe& f df dhvΊ%3 ? RF%N_ F__ , !ԋ|h6 !  e um5 ,, F%P_ Fe 5@ fʊ U p (AQ$H5@ Q$}h_ `%ˊKf  FrB eQ$!w^! eE! $5  ULTIPLY ALLOCATTED BLOCKS SEEN'/' MAP FIXING WILL NOT BE ATTEMPTED',6(' *')/)JfRoTJg,5^JhJinhhhzii~i.f,5fJj 5T 5Xf> 5h 5h 5GFJk,5f(1H1,'TOTAL FREE BLOCKS = ',I5,'. TOTAL LOST = ',I5,'.')Jl 5T 5Xf> 5h 5h 5GFJmJnhhzii~if,5lhJohhnkoXYJp 5T 5g> 5TY 5PY 5XY 5G 5T 5GFJq,5g(1H0,'NUMBER OF FILES SEEN = ',F7.0,/' NUMBER OF BLOCKS USED = ',F7.0,/' AVERAGE FILE SIZE = ',F7.0,' BLOCKS, ',I6,'. WORDS EACH')Jrhhzii~ig,5hhJs 5T 5 ;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MA 01754 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .TITLE CMDS .GLOBL DFLIST .IDENT /EDIT01/ ; THESE ARE THE PROCEDURE FILES FOR CCL ; THIS FILE IS EDITED WHENEVER A COMMAND IS ; TO BE ADDED, DELETED OR CHANGED. CR=15 ;ASCII CARRIAGE RETURN LF=12 ;ASCII LINE FEED CMDS: ;PROCEDURE FILES MACRO: .ASCII 'MACRO' ;COMMAND NAME .BYTE 0 ;NAME DE  .MACRO RETURN RTS PC .ENDM RETURN ;SWPCAL IS A MACRO, WHICH GENERATES A CALL ;FROM A SWAPPABLE MODULE TO A RESIDENT ROUTINE .MACRO SWPCAL ROUTIN .GLOBL ROUTIN JSR PC,@#ROUTIN .ENDM SWPCAL ;MACRO CHKPNT CAN BE USED TO MAKE A CALL TO THE SYSTEM BREAKPOINTS ;CHKP0-CHKP7 CALL ANY OF THEM WITH CHKPNT SEQ ;THIS WILL GENERATE A CALL TO: CHKP'SEQ ;NOTE: THAT THIS WIIL ONLY PRODUCE CODE WHENEVER ;XFTRPO3 HAS BEEN DEFINED NOT EQUAL TO ZERO .MACRO CHKPNT SEQ .IIF NE,XFTRPO3 SWPCA $5hbfN P(5d5 CCh(5@ Hp p ppej h 555XU 4!dddQ$B e0 H""H&NHA!h& aF !!Fah ! _ ` 8$Re)RJ _ ~_Y _ & s|F/Q I0f5e (q@ h_ `%MF !ԋW$!  6 g> 5 Y 5GFJt 5T 5g> 5 Y 5GFJu,5hh(1H0,6('* '),I5,'. MULTIPLY ALLOCATED BLOCKS.',6(' *')/' THIS IS A SERIOUS CONDITION AND SHOULD'/' BE CORRECTED IMMEDIATELY'/)JvJwJxhiJybJ^\l\j\\\\TYZXYWZ\hQ\\@\\\\\"iB,i@6iG@iH\\DT\DT&&\\\&&&&\\  \\\ .ENDM SAVREG .MACRO RESREG .IIF NDF,S.RRES .GLOBL S.RRES CALL5 <@#S.RRES> .ENDM RESREG ;THE MACROS GETBUF AND RELBUF ;GET SMALL BUFFER SPACE AND RELEASE IT ;PARAMETERS ARE: ;1. BNUM THE NUMBER OF SMALL BUFFERS ;2. ADR THE ADDRESS OF THE AREA BEING RETURNED(RELBUF!) ;3. ERROR THE ERROR EXIT WHEN THERE IS NO BUFFER AVAILe! E NEekhbfemwLa%Qw !UN` (! &e֋%_ FH__ & &! $ d!gL[1,K h_ `%& p &  ))e f a ȕ &w Q$hbN & N MMMM& N  &&D&  E `#'[h 'ċ ĕe ee e  E\U\& \\ W   r  \ P   D&&7 n,jw>f7 :k|n@jw,&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    (   `@ `  ` `  6 6 &  f 6A  v  6N\&f  & N & . )   v  .BYTE 3 .ASCII 'BI:' .BYTE CR,LF .EVEN COPY: .ASCII 'CPY' .BYTE 0,0,0,0,0 .WORD DELETE-COPY .RAD50 /PIP/ .WORD 0 .ASCII 'C .IF NB,BUFADR POP BUFADR .IFF TST (SP) .ENDC BNE LABEL JMP ERROR LABEL: .ENDM GETBUF .MACRO RELBUF BNUM,ADR PUSH .IIF NDF,S.RLB .GLOBL S.RLB CALL5 <@#S.RLB>   e Օ g4h& M (121110090807060504030201XX _ F  E 5 Ch@`Ӥ  /: W:U`U Ք _ & &f$"W   @`` $ L[.K h_ `%& p &  ))e f a ȕ &w Q$hbN & N MMMM& N  &&D&    C 6  %%    (6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @          B -  e \e&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0   .RAD50 /FOR/ ;ASSUME FORTRAN REQUEST. .RAD50 /TRN/ .ASCII 'F,I0,ȕ ? & EEhb ʋŀʥ*E$     A C v %\ L    0  @  @     N A f C %C B    \   \\f&\Aa@ e\Aa@ e\\&g\&e\& \&\&\& \&b\&\g\\e\\ \\\\\\ \\&g\&e\& \&\&\& \\\\\\\\\\\\\\R\PP\\ DFLIST: ;DEFAULT LISTING SPECIFIER .BYTE 3 ;BYTE COUNT - 0=NO DEFAULT .ASCII 'LP:' ;SYSTEM DEFAULT DATASET .EVEN .END TABS IS AN AUXILLARY MACRO IT BUILDS THE ABSOLUTE ADDRES ;OF LABEL IN REGISTER REG OR WORD IN CORE .MACRO SETABS R,LABEL MOV PC,R ADD #,R .ENDM SETABS ;THE SYMBOLS $$SEC AND $$PASS ARE USED DURING ASSEMBLY ;OF SOURCE MODULES CONTAINIG SEVERAL OVERLAYS ;$$PASS IS THE SECTION COUNT MADE BY THE ASSEMBLER ;$$SEC IS THE SECTION DESIRED BY THE USER $$PASS=0 ;ZERO IS ALLWAYS THE START .MACRO MODSTA UCOUNT,REENT,LABEL $$END=0 .IIF NDF,$$SEC $$SEC=0 .IF EQ,$$PASS $$SECL:.   5  .hȕw 5  u u,  f Bvh& FF h     @ 4E 25wr 1p  h  & &*  _ ` e._ F( f_ & &f ` W  @`$ L[1K h_ `%& p &  )).$IL vQ@ X@.D@%@%\!@%""@%@.a',@a'p0@E@SN@Ss@h.$T@ .IIF NB,SAVE PUSH MOV MODSTA-2,R0 TSTB MODSTA .IIF NB,SAVE BEQ MODEND+14 .IIF B,SAVE BEQ MODEND+10 .GLOBL BKZ MOV @#BKZ,R1 CMP R1,#2 BEQ .+4 ASL R1 ADD R1,R0 MODEND MSB .MEXIT .ENDC .=$$SECL MODSTA UCOUNT,REENT RESREG CMP (SP)+,(SP)+ .IIF NB,SAVE POP .ENDM EMTOVL .IF EQ,<$$PASS-$$SEC> .LIST .IF NB,LABEL LABEL: .ENDC MODSTA: .IIF NB,UCOUNT .BYTE UCOUNT,REENT .IFF .NLIST .ENDC $$PA e f a ȕ &w Q$hbN & N MMMM& N  &&D&  E `#'h 'ċ ĕe ee e    e Օ g&M $ h0(121110090807060504030201XX _ F  E 5 @`Ӥ D /: W:U`U Ք _ `& h_ `%   5!.DρLL;@(KDhf` f.f & e`feDˋ >.` je `$.X &  , %].  e- A 3. `w w~wwwwwwwt.$  weTy.JL$)Ce K  N  S .pKEH&5  "W%%<.f^fMUDe"@v.  H P  @`$   ~.  eee J- ) (.0 e d%   e& e.V  C, 2 ((B.| +e$)  Q$fE.Q$f ( & $ $ .ea(eh B eE.R z KEewE->k. 7  #SS=$$PASS+1 .ENDM MODSTA ;MACRO OVLNAM WILL GENERATE A TITLE STATEMENT WITH NAME ;NAME WHEN THE CURRENT OVERLAY IS THE ONE DESIRED ;NOTE: THIS MACRO SHOULD BE USED AFTER THE MODSTA MACRO!!! .MACRO OVLNAM NAME .IIF EQ,<$$SEC-$$PASS-1> .TITLE NAME .ENDM OVLNAM ;MACRO MODEND HAS AS A PARAMETER (ACTUAL!!) MSB OR KSB ;IT WILL DEFINE A FIXED END LABEL FOR THE MODULE AND ;VERHFY THAT THE CODE DOES NOT EXCEED A SWAP BUFFER .MACRO MODEND PREF $$END=1 SEGFIL=PREF'SIZ-<.-MODSTA> .IF LT,$&  >0,ȕ ? & EE0hb ʋŀʥ*E$ .   5  hȕw 5  u u,  f Bv h&FF h     @ 4E 25wr 1p  \  & &*  _ ` e._ F( f_ `& h_ `% $Հ  %f f.    ^ v  .C` F ^  |  J .  b  ,  ׯ.,     ׀ 7`9..     f W..Tf V 'wkQr fc.z& "e %u#U%(kQ4d=. 7V7N   & ). TO ԕ ԕ p.77&     ̕<ׯ.<7 7 & e, $TSN",&SNr.:L& 0f ee^ .`~ e&ߓpe6P. 5@w%V5wʋ5 .5E ~ wU@fE@ D.@ʋE 5fe.E@wjeW$AB QI.fU%AAaW %e&&).DE@ehf h EB &|.jpe ! (Mq .p'SEGFIL .ERROR ;MODULE EXCEEDS THE MAX POSSIBLE VALUE .IFF .IIF NE,SEGFIL BR MODEND .IIF NE, .BLKB SEGFIL-2 .ENDC MODEND: .ENDM MODEND ;THE NEXT TWO MACROS DO ALL THINGS NEEDE TO LEAVE THE MAIN SWAP ;BUFFER MSB. .THEIR USE DEPENDS ON THE SITUATION, ;1. FREMSB SOULD BE USED WHENEVER THE EMT PROCES IS COMPLETELY ; FINISHED NO PARAMETER IS NEEDED ;2. OUTMSB SHOULD BE USED WHEN THE PROCES CANNOT CONTINUE ; AND AN INTERRUPT WILL FINISH ITS ACTION .MACRO FREMSB ?LABEL TSTB( C maa Q e0  __&0 &\b.^  2RV ~r $ ,E(ρvN /h&^ %0el&A.l&#B& Ne  vUUBb  Il&f  h1K$ ,EHρxN dh&^ %@@ &   c `@@ @)#&%7 2JANFEBMARAPRMAYJUNJULAU)ׯ 7 7 w|.8f r  2& 0I.^Z 9A e.7* ̋   . 6 , & ] .<    &.   7s.e 6  f t.B   A f P.h M R|ҕSҕ.Yҕ:   f  W:;*eR#w wfW;A!J. A5 W#JOW#FI0 -9.feT  fBѕ$ w.eHeGҕ ҕ W#AS4 eR#L.("eR f w(& 5e4.N X  e  w.tQ$  \ Nv @ 5E". w w  . w E .$&& &  ( U h.`̵@$^ . r&ŀe 2& N+ MODSTA BEQ LABEL .GLOBL S.XIT,S.XITL JMP @#S.XIT LABEL: JMP @#S.XITL .ENDM FREMSB .MACRO OUTMSB .GLOBL S.XITL JMP @#S.XITL .ENDM OUTMSB ;MOVMSB THE EMT PART IN THE MAIN SWAP BUFFER IS ;TRANSFERRED TO AN AUXILLARY AND EXECUTION CONTINUES THERE ;PARAMETERS: ;1. ERROR LABEL WHICH RECEIVES CONTROL WHEN THERE IS ; NO MORE SPACE AVAILABLE ;2. LABEL AN OPTIONAL LABEL LABELLING CODE FOLLOWING THE MOVE ;NOTE: REGISTERS R2,R3,R4,R5 ARE USED AS SCRATCH .MACRO MOVMSB ERROR,?LABEL ,GSEhbPOCTNOVDECL e `  %@ 44W-& 5"< de#$N#e % $$ ,EIρG{N h&^ %w6DECNOVOCTSEPAUGJULJUNMAYAPRMARFEBJANXXX E 5 hb@`e /: W: "` @- B ` W$ ,EJρ}N #h&^ % & & . Ҕ  eee.Be  L; "  A.N`# .2^R BAGECHFIJOLORU  G HW#.XJO FffA!N ,lJ.~ X  " w&e:'.7 0ߓp |   .wx7 7 &e # `%TI%J.NE%LOU   d.w6Uv   e,\.<Ahe e  Lf_ vQ h X vQ.bNUMe :  z<   .>` X eh B & N/ MOVSEG MSB,ERROR,LABEL .ENDM MOVMSB ;RETEMT RETURNS THE EMT SPACE OBTAINED WHENEVER THE EMT WAS ;MOVED OUT OF THE EMT MAIN BUFFER ELSEWHISE IT WILL SIMPLY EXIT .MACRO RETEMT ?LAB .GLOBL S.RLB,S.XITL MOV #S.XITL,R5 TSTB MODSTA BNE LAB MOV R5,PC LAB: PUSH PC ADD #MODSTA-.,(SP) PUSH <#20,R5> MOV #S.RLB,PC .ENDM RETEMT ;MOVSEG MOVES ASEGMENT OF CODE TO CORE OBTAINED FROM THE ;S.GTB CODE THE CODE FREES THE BUFFER IT OCCUPIES AND ;THE EFFECT IS THAT THE CODE SEGMENT CONTINUES 0NU%ef&f6DECNOVOCTSEPAUGJULJUNMAYAPRMAhbRFEBJANXXX E 5 @`e /: W:T`T@w-T  T$ ,Evρ{O  B&^ %l@ɕ 5A j Ɋb$ ,EwρO G<&^ %l@E l<4$ JRh> [RA!&. S f%f/E Ae h"RA9"31. vQIL( vQh Xhk~MGh.*2&Tp f- KI :.w&l@XD Ý@Ì̵. f(̵eDe.  C3!!F"%L-H. C "D & 7PLb.@`$^ Pĝ@5@?.f$5Ee@ ы2N`e.e cf cfcc$$B!.c   5  >  e.4  ,e $    .  ]n 4 4 0d %  n.FV  w ^  %&.l > z  . eL eR w6 w4   f.f f%5  .6 &f" &" . &" e< %[.*%wz3AT LABEL ;'LABEL',WHICH DOES NOT NEED TO BE SPECIFIED .MACRO MOVSEG PREF,LABEL,?$LAB1,?$LAB2,?$LAB3 .GLOBL S.GTB SETABS R2,MODSTA TSTB (R2) BEQ $LAB1 PUSH <#/SMBSIZ> CALL5 <@#S.GTB> MOV R2,R3 MOV (SP),R4 BNE $LAB3 JMP LABEL $LAB3: MOV #PREF'SIZ/2,R5 $LAB2: MOV (R3)+,(R4)+ DEC R5 BNE $LAB2 SUB R2,(SP) CLR (R2) CLR -(R2) ADD (SP)+,PC $LAB1: .ENDM MOVSEG ;MACRO DIAL ENSURES THE COMPATIBILITY BETWEEN THE INITIALIZER ;THE CFTBL MODULE IN TERMS OF THE OP4 Ɍ"-?f$+Ɋ,^ #$ $RR"&( @ %  A$ ,E wρO hvv@K  `Be (e E T%T%T%TThbTT $ (a%ee e  e%X& & & &eJ###  p&f&1 f&AAcDD h!  & h  &^ '*#$] R,  -&f06 $  .Pet X D  e4 .v x& Da(t $  vG. fQ$ tw&K.    ^ UO.EI1 K , .et . t   f E_.4  Ae"$   =.Z U wH% lft ( V. nee . :U wl 8. e  e  x4   CODES TO BE INTERPRETED AND ;THEIR CORRESPONDING INTERPRETING ROUTINES ;NOTE: INSERT NEW VALUES AT THE END OF THE .IRP LIST AS NDVAL MUST BE 0 .MACRO DIAL CASE .IRP P, CASE P .ENDM .ENDM DIAL ;STDEV CONTAINS A LIST OF ALL STANDARD DEVICES ;WHEN THIS IS UPDATED UPDATE CFMAC.MAC TOO .MACRO STDEV MACRO .IRP P, MACRO P .ENDM .IRP P, MACRO P .ENDM .ENDM STDEV 8 T&& 3e0 ߕߋtZ|ߕ$v0 Yb& "U%.$)&&&cA!D 5@ 7j& ^$ ,EρyO h&^ % CO  WA # ee 6##Ŝ Ō dbMf F$ ,Eρ O h&^ %SP  I W W,CAנ> ` `hb g E9.d!ρL L@ L@(SNhr. EeRRRR J-.&%  22 2  f.L  2 G&USw.r& E p 4,0n.  2% e 0%  L%. 00 0 & J.0"U%G *.    #c :.   wf7  4(#. wEee  f"f. e" Q$% ff"7 ` & .> e  `%TI B t%NL.d o  2 hJ *   b e.  n R 9 45U f .  h   U&7 E. 67  -n  U e r.  f  v &5 m."  T  F 4   wB.H w2 e& ;EBASCI.DOC -- 4-APR-73 PAGE 1 OF 2 DOCUMENT NUMBER ----DEC-11-UEATA-A-MA9 OPERATING PROCEDURES FOR EBCDIC CONVERSION ROUTINE THE ROUTINE ASSUMES THAT THE INPUT DEVICE IS A MAG-TAPE; THE DEFAULT DEVICE IS MT0, BUT ANY OTHER MAG-TAPE CAN BE USED IF IT IS ASSIGNED THE LOGICAL NAME 'IN'. THE OUTPUT DEVICE MAY BE ANY DOS DEVICE CAPABLE OF DOING OUTPUT. THE DEFAULT DEVICE IS DK1; ANY OTHER DEVICE CAN BE USED IF IT IS ASSIGNED THE LOGICAL NAME 'OUT'. IF THE INPUT TAPE HAS LABELS, THEY MUST< A(eE eE ΊE`e EN W= EC@@@DPN $ ,E`^ρ O mh&^ %  a WR  WK [%@eJ!!! ,b̋ee&^ ߓp<$ ,EH ρIO 8h&^ %2 ɊA!@ , 0"3  BEB WS Ɍ  7hb3U%## A =A! # L(.0cD  fNUVU00%%.V% p b .|$^ &&e E].e( &^ & ݁ "u>ee 5t.n  c #qk~MG vQ. N@e  @e,PHw. ee  @e. fN e F. `ee 8 U0 &P. e2&E2 ., e e  ew .R e`RA!ʕ eve6eL7 D%.x e4. eL/EK.  - w EUT.  E& Ne&? BE ANSI-STANDARD, WITH BOTH 'HDR1' AND 'HDR2' LABELS PRECEDING THE FILE. THERE MUST BE TAPE- MARKS AFTER THE 'HDR' LABELS, AFTER THE DATA, AND AFTER THE 'EOF' LABELS. AN OPTIONAL 'VOL' LABEL MAY APPEAR RIGHT AFTER THE LOAD POINT; IF IT DOES EXIST, IT IS IGNORED. THE MAXIMUM BLOCK SIZE ALLOWED IS 8000 BYTES; THE MAXIMUM RECORD SIZE ALLOWED IS 8000 BYTES. THE TAPE IS AUTOMATICALLY REWOUND WHEN THE PROGRAM STARTS, BUT IS NOT REWOUND AGAIN (UNLESS NECESSARY TO POSITION TO A FILE THAT IS BEFO@!E[ &  `Ll@$,eo$4   $)3F& ɕ$ ,Eh сO h&^ %ߋt JĜ Č dMfwl  %eJ   & e4   Rb$)3U%l@ @   ( e&^ `p)$ ,Ei ЁsO h_ `%l@ Aq  H D! ! f d aeɋ]E Z L e&C 3e bhbfE e d- D 1A.rvLU(rvL(.%b|ht^(<,:("7W!4JZ.,, " U@W7 v.@% 0p * e0.f4 w&CRE THE CURRENT POSITION) UNTIL THE END OF THE RUN. IN THIS WAY FILES MAY BE COPIED ONE AFTER THE OTHER WITHOUT A GREAT DELAY BETWEEN FILES. IF A NEW TAPE IS TO BE READ, MOUNT THE NEW TAPE, THEN TYPE '^CRESTART', AND THE PROGRAM WILL RESTART AT STEP 2. OPERATING INSTRUCTIONS FOLLOW. THE 'YES' RESPONSE IMPLIES ANY WORD BEGINNING WITH 'Y'; ANY OTHER RESPONSE IS TAKEN TO MEAN 'NO'. 1. START EXECUTION IN THE NORMAL DOS WAY: RUN EBASCI 2. THE PROGRAM WILL QUERY THE OPERATOR: DOES TAPD&3)d ddEEd > 5    U%֌> ܁ LɌa M &&&AQ$ ,Ej ρO Dh&^ %  e0e K" A  W$@ $` @  F e 8  @ hbP$0e Œ A% W)E(H$I1 e Ō(D$      $ ,ERρO h&^ % >::Em* Rv* Rv7 Rvi &Rv~.  w  b`5@5  Rv( .0 %E`$ .V* N7 J.| z5@w *   ( .w pd   w TFz" d    &F(.   %mp   >. nȋ H WM nj.F&    U.E 0$&&. `̵@ .wff^A-v eeL . *e@ ŌD((I.$J v   J.JU%  v  E7  B 7 (.p8h   t DU&@.&7 >E ew4 7. x v VE@ D K.&  4-(U5U5 UzGE HAVE LABELS? ANSWER WITH 'YES' OR 'NO'. 3. THE PROGRAM WILL QUERY THE OPERATOR: POSITION: IT IS ASKING FOR THE POSITION OF THE FILE ON THE REEL. IF YOU WANT TO CONVERT THE FIRST FILE, RESPOND WITH 1; IF YOU WANT TO CONVERT THE FIFTH FILE, RESPOND WITH 5, ETC. IF YOU ARE DONE, RESPOND WITH 0, AND THE PROGRAM WILL EXIT. EBASCI.DOC -- 4-APR-73 PAGE 2 OF 2 OPERATING PROCEDURES FOR EBCDIC CONVERSION ROUTINE 4. IF THE TH6U : f W W BbB W  exUj 1H$ ,E}ρDO @@&^ %  o5 U@$ ,E(FρO sh͕ &^ %  dߋt  5 & aW-Y5U 0thb& e T! - E D @e      % % E4  RB :@eI A A 5P7\wZ5j.:@7@w>`^ A A (*.`$&7` w w`7`w w`F. m.w mw ---.d (-F n >dF. w  5rw k w5` Rv Rvk .U%]?8RU``.DHd 5Ee0w w  ( Rv &Rv .jw5  J. eee   U.. veew& 4  5 .Td Xw Ee .z &  8  Ea'p0a',U.e&ef e@&&.  ev  7 .% 0p LH  ezA.e8 RwB r  5 ~/.8\vb ' r' & R.^ &&%  jVKAPE HAS LABELS, THE PROGRAM WILL POSITION THE TAPE AT THE 'HDR' BLOCKS FOR THE SPECIFIED FILE, THE PULL INFOR- MATION FROM THE 'HDR1' (FILE NAME) AND 'HDR2' (RECORD SIZE, RECORDING MODE) BLOCKS. THIS INFORMATION WILL BE DISPLAYED, E.G.: FILE NAME: TSRIOX FIXED-LENGTH RECORDS RECORD SIZE: 136 OK? IF ALL IS WELL, RESPOND WITH 'YES'. IF THIS IS NOT THE DESIRED FILE, RESPOND WITH 'NO' AND THE PROGRAM WILL SIMPLY CYCLE BACK TO STEP 3. 5. THE PROGRAM WILL LJ!!! E0  l@$ ,EHFρ"O `&^  aU@  & &)cEI̕U%&^ '$ ,Eρ/%O h&^ %ea'W0$  dU6Uhbl"L && $e   & &f&  KX<>I/: `A dT  TMPnȋw  nj.5Pw R  w "P Rv .h (w d 6 h Rv.Tw P zn   Rȕ- T.ȋ ]w xPw  l .(w   (= Rv ].Nw Tw  RvT.t -T   @X  T. ` w N.0 ew  < .peV04 wee.%zAB I# . % Bff& f a( w#.ֵ f@ed.B@d7 nev 6e-7 \T.h 4      5Ue& .`& `  @ w.U v w e   .(W!DUee& t4. - OQUERY TO OPERATOR: DO YOU WANT ASCII TRANSLATION? RESPOND WITH 'YES' OR 'NO' 6. IF THE ANSWER TO STEP 5 WAS 'YES', THE PROGRAM WILL QUERY THE OPERATOR: DO YOU WANT CR/LF? ANSWER WITH 'YES' IF YOU WANT A CARRIAGE-RETURN, LINE-FEED AFTER EACH LOGICAL RECORD; ANSWER WITH 'NO' IF CR,LF NOT WANTED. 7. THE FILE WILL BE PROCESSED, AND THE PROGRAM WILL CYCLE BACK TO STEP 3. 8. IF THE TAPE HAS NO LABELS, THE PROGRAM WILL POSITION THE REEL TO THE DESIRED P  $ ,Eρ'O Lh&^ %I@W0=&& & K<<< B: e  ` `  d L b $ hb $< A!  2  KX<B ZI</: `A d    1$ ,E}ρ}*O h&^ %ea'W0$  dU6Uhbl"L && Q6H wJDF Rv "RvH -DCDK*DPDTMT$:  ,  <  F_P F/TR x/DI `/PL `/RW /RE   /SK ((/BOh 00(/NO 88 /HE @@/NU HHj/FIt PP/DA XR  b.&4 WPWRWLWAI p.Lf" " % .r`U&&e wp..K5. .zb. zzzb.0z  $ ^CK.V . DATE:- TIME)|:- PLEASE LOG IN  7FILE, THEN ASK FOR THE REQUIRED INFOR- MATION FROM THE OPERATOR. ANSWER 'FILE NAME:' WITH 1-6 LETTERS AND/OR DIGITS TO BE USED AS THE FILE NAME; ANSWER 'FIXED-LENGTH RECORDS?' WITH EITHER 'YES' OR 'NO'; ANSWER 'RECORD SIZE:' WITH THE SIZE OF THE LOGICAL RECORD, IN BYTES. AFTER THE FILE HAS BEEN CONVERTED, THE PROGRAM WILL CYCLE BACK TO STEP 3. T$e   & &f& @w 0u 2>I/: `A dT  T  $ ,E~ρ"-O  h&^ %I@W0=&& &  ?< <2 B: e  ` `  d L b $ hb $< A!  2  @w 0u 2B ZI</: `A d    1$ ,E!ρ/O KUX2/VE ``V/WL\ h|hN/FOj pt.p ^& ыBwp`H .ɋVB`Gh  5 }.Pw 55U:.704UU@ ".  w &.. h 5.@.T0 70nӋ:! #n&s.z! [[נAנZנ0נ9.@ 2.2EEXt.IKxXL(<,:lZ<,:  Xb&^ %   W W,W  a %& eU@ &^ $ ,ESρP2O yh&^ %;7  W:A!) D02!/5 -)  &"a 3 5Fb3     =pl@$5Z$ ,ESρ4O h&^ sɌ p n7T  A!B0Z0W W   Bvhb   •/ Y  aW `߇  . ww P  P% &Ps.weeeeeeee.eee t = c{'8Fe w,-JAN- XX-FEB- bb~-MAR- lvlt-APR- vlvp-MAY- bl-JUN- Xh-JUL- Nd-AUG- D`-SEP- :\-OCT-.XL(<,:l<,:  [11 CILOV .BAT 1 10-AUG-73 <233> 007124 LIBR .BAT 1 10-AUG-73 <233> 007471 FILDMP.BAT 1 10-AUG-73 <233> 010151 CREF .BAT 1 10-AUG-73 <233> 010065 EDIT .BAT 1 10-AUG-73 <233> 007732 FILCOM.BAT 1 10-AUG-73 <233> 010144 DSKINT.BAT 1 10-AUG-73 <233> 010254 EBASCI.BAT 1 10-AUG-73 <233> 027440 MONODT.SYS 25 10-AUG-73 <233> 124426 RMON .LDA 19 10-AUG-73 <233> 056400 RMON .STB 3 10-AUG-73 <233> 024000 TAILB .LDA 120 02-JUL-74 <233>\ :  A ŀ^UWI•\ ͋BKBa͊QB  BN DIA% $ ,E8 ρ7O h&^ %@& aoB: ( $W[7e Zc p  K!hb# bRK l c  A! ,  J W. ScA!W]W0W9B@WAͥZfᕕW,W VA!N  m$ ,EX Ё+:O ] 0X-NOV- &T-DEC- .Pw F w  w rw.@$T` `  ! 2 .f!2J !5 .5 PR5P ( .*** THE FOLLOWING DIFFERENCES EXIST BETWEEN THE FILE *** *** "TAILB .LDA" ON THIS TAPE AND THE ORIGINAL *** *** DEC-ISSUED FILE: *** DATE INITIALS CHANGES MADE ---- -------- ------------ 2-JUL-74 JER PATCHES MADE AS PER SOFTWARE DISPATCH APRIL, 1974, DOS/BATCH SEQUENCE # 95 TO MONITOR MODULES ALO (EM.015) AND FCR (EM.044) TO CURE 'DATE' PROBLEM _ 067400 SYSTEM.MAC 25 06-SEP-73 <233> 067146 CONFIG.MAC 18 06-SEP-73 <233> 174532 CFMAC .MAC 13 10-AUG-73 <233> 140764 FEATSW.MAC 2 23-OCT-73 <233> 110534 PRAMTR.MAC 7 10-AUG-73 <233> 012011 SYSMAC.MAC 15 10-AUG-73 <233> 172350 CMDS .MAC 5 10-AUG-73 <233> 152646 TMON .OBJ 15 10-AUG-73 <233> 042400 CCL .OBJ 4 10-AUG-73 <233> 164400 BATMAN.OBJ 2 10-AUG-73 <233> 101000 LKP .OBJ 2 10-AUG-73 <233> 112000 EBASCI.DOC 7 10-AUG-73`h&^ %ew J""T   fa eX%!  hbD b aB !  p & . 'Ȋ% W, 6 e ! B  e 05   f @m?$ ,EY Ё 030532 ROLLIN.OBJ 27 10-AUG-73 <233> 146000 LA30S .OBJ 1 10-AUG-73 <233> 007000 VT05B .OBJ 1 10-AUG-73 <233> 007400 TAILB .DOC 1 02-JUL-74 <233> 053240 FREE BLKS: 108 FREE FILES: 17 d ! em*   ͋e K)   $ ,EHρo?O h&^  )$A!@ , e @`e 2 0 hbD B  I 9" 0 15. `5'N 끃  xB$w M @C#  m e%A $ ,EhρBO h&^ %7 Ll֋NVie$..  \P>0 !!.T !5ɋ 85b.z 5ߕ  0A A A A e0\. ww Fw >7 w( G jRv Rv Rv. e e N`  ",=.   7 7 O.    e%C $.8 le^ w wPJ= .^   ee h *fE E  @ E N  Q% 8hbEE \5 E `` E N @`C`  5? 5ŗrEWBB$   @  :  F* $ ,EiρDO u&^ % tL$ ,EXaρJGO h&^ %   W W,W  a  e*&  er%  b Հ$ iנ . w B -, -$&w B  1 "Rv ). ww < w<-w  w "# w S Rv Rv &Rv# .  w I w*w n  w 8 w RvI Rvn "Rv8 . E7 7 5@w  "M. 7 7  5@ w "E.B 7 7 5e[7 )  ( +.h 5w:7 7 lxρt th8xB$"  e "E8b$^ $C Bx   (8b"u U  7 ~f5t =$ ρw AhBJߓ1$:Ó C"""E8b$^ 0B 5 >b "uU   7 xf5n $ с2z Jh" EDm7 f  $(. 7 7 ) E7 7   $({. w$ wUbc. 7 5 E ". wVp 02IF7@ Rvn.& `w dh4fm\&  d h .L n HF`ߕ w ~K$  Rv.r ( f&   w Pp    $  &@` ahbEA! ea L$$E0d_ FlABD5x W U b 5. 7 $ @_ ͋55uM55 &$ V| hz>4F 5p7^ w~e& 5 phbAp w8&p w.wfȋt<rW wW w&% %q Rv &Rv. K M  wN  Rv Rv .  |7w dh Rv&d(h(. xf& 7 lhd X  .   d ` l _& Rv Rv Rv Rv e.0C _   b  Rv Rv Rv .V ΕP&.|5 (0L! .t{h%S 7 DF<4wBE U U 5 A%DWh& W` ef EW  fmae7 6ȓ7pȋ#$^ h ȋ Ћ!@ ѕѕ Jx p " x4qH p$h356*:'"90SUVY*!_?Z-KMNP*$\ҦABDGH*.<(+{}356*_'\90SUhLVY*("Z-KMNP*:$۾+ABDGH*?.KwʋW (RvL Rv>x.Me0 w 8 40YRv Rv Rv D.:w 0 w   &eBen Rv0 (n2.`  R w < RvH.h   P h 1"h Rv  P (Rv 3.7$$7$!$r5 T ȕ .ȋx***0SUVY*\_?Z*h*** *****-KMNP*$*****}~twx**********************ABDGH*.<(+!ɁIL* **** {cef*******i**************jloq*******r********+$ ǻ hd:F 5p7 72U,RN &eexDhbe&7v  w & 5 pZAphP7 w  wz&y +7 .-  7 Rv M.  xw  w PM Rv Rv.ww  wxw  w PKd Rv Rv $RvPy.D5P ~7 xh    P.jXw Bh  7 Rvh &Rv o.PPw L PrP!P Rv .  N7 5 0 :0&y. * 7x7 |p wwfZrp w!h&8%pȊnȌmwNȋt<rW w6W wF% %%S 7 F`hwBE U U 5 A%TDW W` ef hEW  fmae7 pFȓ7pȋ0$^ tD ȋ hLЋ!@ ѕѕ x  "up ( te  H p^qh356}v  l Rv V. VJH .( ɝ0ɋ   @ 7`M.NlB hU J H5t 5 .t `w p" i5@ LD w  Rv" .R Zw J w : wh50  -V Rv Rv Rv.   w  Mf "Rv Q.w  wNY  Rv . Rɕ T ɋ5@A 7 *:'"90SUVY*!_?Z-KMNP*$\ҦABDGH*.<(+{}356*_'\90SHhUVY*("Z-KMNP*:$۾+ABDGH*?..2Q$%   8-PFw Z .F $RvZ .XRȕȋ P ȕ .~T ɕ ɋP5 ɕ 5. w > wRe@ fe Rv .  m@f4@ $4. . E b ED DEVICE DOES NOT EXIST. REACHED EN@.wP7 >7 N I߳tՀ h:@Jߕ@t97 D7G7 LՀ 8 B%& V R   h&7 6ߓp n߳t&^  #ʔ `Z 7 h& 7 \ ~   R ꀣw e@@ tA @ w ~~phex ̓@ p @ L e`B (%w"CY7|hLfe  d D-OF-DATA ON SKIP, OPERATION KILLED. . END-OF-FILE DURING READ, TYPEMAGTAPE. FILE NAME DOES NOT MATCH SPECIFIED NAO. ME. CAN'T FIND SPECIFIED FILE ON TAP. E. NO OUTPUT FILE NAME SPECIFIED. ." MAGTAPE RECORD TOO LONG FOR BUFFER. ;.H VERIFICATION ERROR--COPY IS BAD. /VE.n RIFY IS NOT IMPLEMENTED FOR THIS COMMA. ND. STARTING VERIFICATION PASS. SE. T FORMAT ENABLING SWITCHES THEN TYPE C. R DISABLE FORMAT SWITCHES Tߓp& w|   eph ! ~z w!nw!pefL@  \e= xh׋*R* @@W 7wt  7Hwf^$ Ushr 4׋    x ́R "-~t N.h͕eBC 5  & ͓ N N"7  V7 Gbq Y6w &HEN TYPE C. R STARTING RK FORMAT PASS END RK FO., RMAT PASS REQUEST KILLED ERROR DURJ.R ING FORMAT PASS - RESTART DISK NOT R,x EADY - TYPE CR TO TRY FORMAT AGAIN ZO 7e: e ABCf#ef}  ,$ fρ  Th.xf 77UAh h j UAh$^ h*b px  h |:$ fρ h<f7 7> l  ߟn U@l@b$_  lx f7e~Tv$ zMX< hH0MP[ ,ew  77 E@Lw *&f,hbW "wI 5LYP ߕ N_N vߋLCw $^ Hx W hH`aUW   4* W W W   WzE W׭Z&_ w *U@L w G7a$ MX %f"N":MP[ h zew7 ɥwx N77 E@Lw  *&fhW "wvc 5Lsj ߕ N_N XߋL]w $^ *x W *6h 8 `7 $aUW     WW W W :hF   WzE W׭_ w *U@L vw O*G7b\^$ ~L |h  `@Bw`w5 e   Uw hb>7 5 R1  E5~~  :  h3d1 7xLF  ! L@V 5  2 Nh&>w w,  5   T5 W (E@5 5leh7 . 5 x5 1ew  & Ew fReŀ hR  ! 5  n5 w  w >0 jhLw)U 7 V e7 x "1$W  %%  55h \     1  Œ % Ga      h1 Galhj<Lh,3C-0 &.^ (e ,^ H?hr6 2  >b('&#" %% zh |5 $  DE7fE fEU f EU fEU h6UEe DQ3wE@$^ 5  5 U% h(B b%5V  N&^ UA@ ?5D N' 0A 15 Gb!yh7654 5 eGb  $ M0 z0  % %h\ 5 B7 _$ ,   xp_ E% 0 f >hae.w g Nb.7 5  f$^  5 x5h  l5 BBe5e      >_eBwhw   *_e=h("%  w   _  z@ _$ | ρ} h @$ $7 !7vv@@&EPe dΓ hb3  ;'8 O76  ew%ߕ/h $^ $ )ɐ ǁ $^ f5ɕ h\&&M 585 U ѐB`Ѱ `L7 & $ XҁG h ($w$w7 $W!@&#5sEs5ghb  NdE` W X  ` E`  e BaE g D:7 5h&5 b#L "nh E ¥e¥ $$Eh&d ( w_ F 7 ABD5,x 5'5 h5n7 f"55R 7 H MEeW V5&__Uj  ( h&#ߋ 6 EB g e K55 5  Px $ Xҁ ! h ($w$w7 $W!@&#5sEs5ghb  NdE` W X  ` E`  e BaE g D:7 5h&5 b#L "nh E ¥e¥ $$Eh&d ( w_ F 7 ABD5,x 5'5 h5n7 f"55R 7 H MEeW V5&__Uj  ( h&#ߋ 6 EB g e K55 5  Px $ Kρ  b" f  d  f f$ dρ $ f  d  f M`a$ $I q h & peJ 6e D% UN @@$  K@  $hb0 E J  R  eʋl  5@fh^fMUDe"@  H P  @`$    eee J- 4h&)  e d%   e& e  C, 2 (( +e%hp $)  Q$fQ$f ( & $ $ ea(eh B  eX hR z KEewE-> 7   n ej, jL& 0f ehPe^ ~ e&ߓpe6P 5@w%V5wʋ5 5hE ~ wU@fE@@ʋE 5feE@wjeW$AhB QfU%AAaW %e&&E@ehf h EB &pehv ! (Mq peR#w wfW;A! A5 W#JOW#FI0 ih-feT  fBѕ$ weHeGҕ ҕ W#AS4 eR#"eR f w(h:& 5e4 X  e  wQ$  \ Nv @ 5E hw w  . w E $&& &  ( U `̵@!h$^ r&ŀe 2& NN`# ^R BAGECHFIJOLORU  G HW#JO Nh` FffA!N ,lJ X  " w&e:'7 0ߓp | Ph  wx7 7 &e # `%TI%NE%LOU   w6Uv h$  e,A:he e:  LfNUMe :  z<  h >` X eh B & NN`ee cf cfcc$$Bc   5ih  >  e4  ,e $     ]n 4 4 0d %  hJV  w ^  % > z   eL eR w6 w4 h  ff f%5  6 &f" &" &h" e< %%wz $  et X D  eUhp4  x& Da(t $  v fQ$ tw&   kh ^ UEI1 K , .et t   f E>h4  Ae"$   U wH% lft ( nee . :ih U wl e  e  x4     wf7  4(wh Eee  f"fe" Q$% ff"7 ` & e  `%TI B hZ t%NLo  2 hJ *   b e n R 9 45U f  h jh  U&7 E67  -n  U e r  f  v &h 5  T  F 4   w w2 e& ee 5 7 c #~ | :h N@e  @e,PHwee  @e. fN e `ee 8h U0 &e2&E2 e e  ew e`RhX A!ʕ eve6eL7 De4. eL/E - wh  EU E& Ne&& ee *Be  $)h $ee& Neeen&e &ee6e /h~ e& 6eUU@& Ne eYыW W & eeah we D f#>"7W!4J,, " U@W7 hB% 0p * e04 w&&    UE 0h$&& `̵@ wff^A-v eeL  *eh@ ŌD((IJ v   U%  v  E7  Bphh 7 8h   t DU&&7 >E ew4 7 x ;hv VE@ D &  4-(U5U5 U eee   Uh, veeP:L :bb!y+(:NN;d{3L ‰։}} :։‰ :։‰8 :‰ :‰P :&‰ :&‰ :N‰ :b‰ :b‰zt^^w t ΁ \7 z.f7 ^ 67T  BBA U^ * n /A U@   L hA U  d:5 U  .w66 6B ze -  D50 0pe PPPH v9*1*777X5f  w:  B& 5* ꗠ. ‹1 .5? wNF,<  5#55 ,  JA n  U| | pAeQ$RReRRRR7 7 `w hf 9@  $! DEe!I  W H P HB妍w*#,< w J7 ΁f 55  q;JDg"   X,U &  ?jm  5S N\ 7 TP 7 @  & B .w &   6 .W 0$ H@db@ wT \6   w &    :B%/OL%/EDB [ B, ]/• :      ԕ ԕ w(@   UPUFwɋw  8&e fefef/-`}\}5̜ 33   N 5 2  h  l e*J @ ʥ ɕ &. ! a S# DT#&@ D e,</-  :W #墔f:Ee& Ԕ :E :։Ȗ :։X$09AZ ,-/ w 7 7 VE  h 6  / &ȋȥ;Ė% % % % ¥:uu e)I#q-eW ܞ$~e wA5 ¥;U%E #wf wb(wR Je) x¥; s .  QIae) e))  U% ¥;¥,Q , e)S# *m  .  QQ )& &S %f De f ށ 7 RRR妍`e R?7 %)w  T  : , e w '  U 7 7  P *2 #$$ .B   r0)zn虂Йęęę ͥ  $ *-+#  (  % ͥ   # # .wB P * R Z P%!* h "\X@l "e 2 œEzxffp5 . (5A 5 1p pp 7Tƒ wB 5p 7& w e@e  .5U@e 0  1* 5U ee  =*5* 5w%N $) >ȋȥ;!% *);%H!HHHHu۞ +w  p&&– ȥ:0  – L 7 4 e)ȥ:*ȥ..ȥ[+ȥ/( %  fAf j !6ddw,w"   > uuz e^ȥ.  ȥ[ ȥ,hf ȥ]b z&   &&f/=  W  W 4:3 # &  ɋB /D,7 <7 $   %  e 2 ـ ` xE B6E Aq#q-u5uuu֯1R՗߱`ES(),-*  &,@ 3@8K@oMBaTq rt ENTER OPTIONS: w h7 L7 5 595w 5z zȋ%/Os%/Em ȥ; ¥=8e)rt#t- e !9N7  ȋ-ȥ;*E  n ¥,¥! ¥;¥: 5 ! &  ¥;¥!U  x>55   e   e  ?7 PPP Aā & ppp ā p Ae  Hpp@p  e P 6p # D & & J!Z෕Uexx eD  76 % +CA%}%}# C&  N  CA   QF!ۂ e e A0 0  09*1*0  ~~~~~~~~~~~@~~~~~~~~~~~~5@5 6&  d7  7 f& f 677 5@ <-8 & 7     $7"mw    7m  C" "E7mjh  zE" #& N  E J b Ԍ͂Ee  ,   w X֋  5  5@ 4  7 6 * l  l|***0ލ5  v ,  ڍB " @ Ž Ў b6 44 55 e  ,   @@I Lw@7 B @ 2 * v' h ` @ڍ. 7<x47 47*ڍ $e &-  rڍppp&@e | b5  49:1: ڍ5EE  C & P &6  7 (%9w!,ҁ5J%5@' $e  l5R  ڍ  5@ Z Xw~0Cf l 55 < wr`    j  Z @ = wt Lp Հ& &=.5. 0w 7w7 7x tU E7Z 2 "4&f;&d " 0 Հ & b.:.2. 0  ҆1 -  &7  p0 "@e  @ PHtt    p` $ $p p 5@7   7 t r  D4w:w5 7 JU 7 7 :  "wR5  07wz  "&  ,  v7T7 7 @7 >7 <7 > ۇ  $  N e h 77?7&fe   W  7PލQQQQڍe | v t l6^ Xe 7 H7 F J "w 4 .4 4 e  e A Q#eI- @ GLOBAL CROSS REFERENCE TABLE%2NSYMBOL MODULE REFERENCES-----%2N–і(S%2R %2R%A%N%2R %2R%A %2R%A%N%2R %2R%A %2R%A %2R%A%N%2R %2R%A %2R%A %2R%A %2R%A%N%2R %2R%A %2R%A %2R%A %2R%A %2R%A%N%2R %2R%A %2R%A %2R%A %2R%A %2R%A %2R%A%N%2R %2R%A %2R%A %2R%A %2R%A %2R%A %2R%A %2R%A%N# U@7 0f x (  f E@w ndf7 f7 ` ^    $VN @ :0e LQ77   f  !e3 f ށ PPe "e,D w ~p \fE)4RRD    A  4  P4 fRP pef& 6ww& $ f  B ȋf  ȋ&e    w F   &f :"& 6?7: E& 6  V5 0e  7 & 2  &f\ 7t5^z7 z7 l7 b7 de \NFmL @7 ,7 (O 8 X SE7 &f< fm  m V@ m7  e   m|mH jed-h7 d 7 VPmJp Z L87:700, ( &f&  ~5  6.7 C\}w V l Z H4m l   H ! ^PPPP FeA f % Rw p@4w! | @`e,ED ŀ4 e @5zw F0f 5p|& v @ ~7b 7 Z j   D 8 J ff f 77& 7V&Nf | Be E 6 w4 4f :  m6e5w 7 7 7 P7D!C!L5T@7  8 0Am $    f    P E 7 B 5 5@  Am A  z r 5v `A XA P H @ 8 0 *e j 5" E  4w`pD7ah& eX ҋ wL e$&@& ,e A fm $ N#  zz7 l v @ TdI!XDF z< f$b$b$e7bH6> f Rezv "l 8` 6Pe dll"Xddw  "*^ee ,,z Ր & $ f B ȋf ȋ&e     ta7 7 7 2* p j5 ,N2# F  |/l5@J  mN(/  Jte  w 8p0 A  H$5u22 Vr , 54  %$w!0 f    @0 f    5 2w!Be $  pw!   @ v5@ p 5 `  8@@m  & @e\@2A @25$ @2 527 7  7 7@5 e8&e^5&  t  &r v @ `&ā   > 3 3 $3  3  3 @` @` f (ށ @Be .΁E E "ҁ% J%  `l m@e^   pl X w L΁5@"5 <   n   e  E@5V5@ 7 t7 7 R7 :e X  mwN < 5@5  z  5 D w L 5@ ֋  5&%"p nD6mw!\A F AB 8 AmVA $e AA6m e A e T,04mh76&m^ Bw6 mF m4wf A e E |56E2D 0%0% e p% m l  e  n " (5@ taw f Jf Be  N?      B@UU@  ta7h, -X   f w 6.% e C f 7e^ ! 7,J7,D 5 mE T !Z.2⒦ e  w D 5@  : |  \.j,.p5@^ F B H  wΕЕҕ*e ,1 e ! f@     wA5=  lm7  5X 7 mzE  n w~7 .Ԗؗ".(4B @mmn: X9 1 F- :& e$ ,& e   & e  & xe5P5  &e  p `wv&  e7Z  @mm78r Xmde ze $  @m,  e  2   A @ m L7 D7   p` 7 Q& & /b -h7lJ7 PeEmD7 7`E?7- 7 $m77l7  777 Tleee- -llp5l& lL<=>? -R-XFILE %2R.%R MEMORY ALLOCATION MAP%NTHIS ALLOCATION WAS DONE ON DD-MMM-YY%NAT HH:MM BY LINK VERSION %Z%4N 5 6ldRm`XRG 5@P  P fއ5 Xff x5R RRR Ae RRR  : t&9 j!Ae RRJ@ 6d 6pvw5(&f  f J @; -  - wvw P P 3 7 4 B6 -f- ~5 f -B@C N J%7 8 ҁ%8 " D  `5e8&e^5&  6    E \b mm   7 A XP 0 *P 6e  F7 TPʋ-X * e55; & p 5 f&& `5,5z$ :> : %P %P %P%2N %2R %P%2A%N %2R %P%2A %2R %P%2A%N %2R %P%2A %2R %P%2A %2R %P%2A%N %2R %P%2A %2R %P%2A %2R %P%2A %2R %P%2A%N%4N************%2NUNDEFINED REFERENCES:%2N %2R%N %2R**%NIDENTIFICATION : %2R%N%2NPROGRAM SECTION ALLOCATION SYNOPSIS:%2N<%2R>: %P %P %P%N>>>>>>>>>>>> UNDEFINED REFERENCE: %2R%2N%NSPACE USED %P, SPACE FREE %P%N