/X hShhh QZ3h4hXMSOS 5.0 SYSTEM INITIALIZER FWA OF CONTRL = XX%DXX DATE MM/DD/YY XB9X Ö j qXEDhhJhhhh~h}hlhehdhchbhhhhhYh"h!h hhhhhhhhhhhhh _h ^h ]h \l*X9PA XBX3 `dX9 X'9NaO H  9 a aDQKB N NR CL LPM MPS Y YMV U I O C T D G H >^o( RJMV aDQK Xi Q 2 4  2  aN9Xn # 4 XEND0V4 aQ(uaalh  aNX X 8XB  aB0`A h+ aB0`A hIX!G]IX! IAA{XkH́{a{IA Cѓ+ ()" fH"N B fN XFXqfN  B0`zhHRH   shB XBX g{hhXPARTBL aQ(a hV "%  h hXLSTLOC aQ(bȶh? "" aȨ " aaX XMSIZV4 aQ(c ![hhal a{ haW aNh6X ,aB1 !ataka, B X{hhXXXX:D :l{hi{ha{XXXX kat,aB1 !h aka,vh h B1 !hB XFXB X  X alX {XKaXwDb a{ aN*a(aXKX'BAN aDQKI# Ia'a"H  aQ(b #X  IhEX6AhD a X XXJIh+X'h*paka,navaFaWX XEX XEX XC X%Q!є ( "f {fN  f@ fXL B X{hhXXX' X{hB XEX XX XX} Ih2 2 %Xt XkIhv3s 1XeX\IhX~hX5B XPARTBL aXxQ(b &hzHwahal@na aN aaaka,ava aWh+aX%h$X{ a{1FX XDX= XDX2 XC X "X F AXSECTOR aQ(b $Xh " ! saka, taka, d9 ` ;c q Y`#A P@QZ94H 44h  Xe ;@ X^X9X Q ERROR BX   hCX~> aDQK Ins IX 4`2 Y IjX5Q1XQXHX*A I H hhhh  h[h%hX Q B0`A FhDX  aDQKX hhhX XXAIh H  a aQ(q N# aXnRXZDaPQXT aPEXA aaFXMXA0XENABLE ADDRESS WRITE--THEN CR XaB9XXX9XDISK ERROR XJ XDISK REJECT X:XlXcIh!X?Ah&h?Xh;X!X;UUhDh4XXX3hX XX-DhXXX( _j q @X X6  1i H@Xs `X1Q _i q?`QZ3h#4h"QZ3h"4h!SQZ3h 4hȷQZ3h4hXDISK COMPARE ERROR SECT XXXX WORD XXXX IS XXXX SB XXXX X H~ȟ`QZ3h 4h X DISK FAILURE XXXX X n(XxX aNawafaEdhc b_^ [hZ hW3!2hO.hL*!zhIFX;DX@$;:7 H56zh4|av{aX(XSTMSV4 aQ(wX @ [ f Q+`X5`.XXLSTLOC aQ(a " e`XXAREAC aQ(```Xa nhm` H ^Db ]@ X;`XDATBAS ha aX fA?hXSWAPAR a aX aX3X' fXXP,kXX,k# f ftB1X:,kX fhZ c fh `hS  f# aWX h XJX aWXC X hXh1 h$,kB1A dhhQ@ `X@ GX `h Db A@X B8hG  C l{ B8׈hDF BAllRAi@X =XINITIALIZATION COMPLETED - YOU MAY AUTOLOAD X XERRORS OCCURED - YOU MAY ATTEMPT TO AUTOLOAD X  ae  !14;^ hXX 9X m 1; PN  aB0`A h/h5H  3;9BKA 6 (EhBK R A h1!W AX1$ I aX$ {A{CShbX _2XZ!$%X1N JHQZ3hB4hA X h9h9h9XN 4Q61N 1A HHAHHAAlXV# 0hDShX 2X{A{aAN lX,# {A{X? 5; /àcB aaaaaaN 9 Q^ 2esR4R4! a  aa9aa ehhXn a%omhHXla.XG    QRh CAX|X1tXa? 5; 7;X![Xa a?  ah) 'H% A aWAAV A a R  a a 9;  a  QRa qr315;qf"q>a aX%Q(uQb 8Q6XdX PH aX>a aXXX   4a ?=a A17Q6Qbda a a!a"a? aX1Q a1 aQ(a #13; h Xw va|1 A A|Xbѐ|"a !Q(a # aaQhBh| X|!h="CAaApqd4", gXca WFC 9Q6Xg xWA" BthXMh WQAa X5AN ILLEGAL MULTILEVEL INDIRECT IS IN THE EXTERNAL STRING FOR WHICH STARTS AT LOCATION hhhQZ3h4h 4Xrk,ka+X'+ a+,R2 q a' a- AXaXAaA--AX Xǀ aUva| a|X|  XaU , v2 6;,h a,X h a/"X16; X X X hX X hX6X * * * U N P A T C H E D E X T E R N A L S * * * Xva XI2X4 a2X LOADER ERROR h X5 a{XDH iHQZ3b4b #X] X h XAj  4 XnXDUPLICATE ENTRY POINT "Ahhh XPaX A3X 3A3XA4X4A4Y B q  : AGAIAAAAaHXH   a aI a2  J aG  J aGXH1XZ1J a aXaXtJXJ!JXwaI   A a a XFXYX!X]h "IİS !IaIIG$R AIaGJH t dH   a qH 6 "H "  1H AH1A ! b  !aHH  A  HvB HrH Hn Hghh HcwN ^h[ZB1zHYTthWWZ4AHSRAuwhPHQHOhMF#E2hB?/8N %{!h1H52h0uu0,z2H((h! `b bn8"n5An H amXRRX@n;(JP;N 12;A2 2;  bDbhb5n2%ABau  0au C uauuuj ȫX X]@(} 5 A(hz`ȕ RAuwhH XRX5Y@ (uuxzx2aAKW " 9; QB4QVRAcRBd4B4adAaQ XHE VHHQ6dHbMp`` Dbr  %`DcB Ea a *` DcB a`DaFaGaHaIaNaOaPaUaVaWaX j`DcB `aa9 a: a>`az[Ea`ac aB0caaX #11;!2a a" audaub bbu2Dhzhyhxhwhvhuhthshrhqhphohnhmfapaq`arEd `avaa}E `a/ a[ aB 0a X ` awafaawB0caa HXZOaN  BX E A aPDhhYhh``aP$daPNaBH@OAH `є N4a aDQK fX7XlQ QbX{" VX_R Q QPTDBHQ HMDhJa#a$a%DQK 7 1XQ" ,X6 AdaQ(2  ON%*$hua N`a{nIbj aXGBH a>BHHяXHd      4 BA4"2  4d xI ̘ " IhX # X#9  h Hhh n B  @RXheHeW h`H`h)'HSQXhXhhHh@JhG\FhD@h9C? D11 3  'd 4h$)+&hG!  hG xhT h da#,   1 V   p a 5 # a     hȶ  ' bج ȰH X hhHhm BH_pXE[ZV hVVhahS @ X"hNNRX/JXT hCF X<9X 986!X B X= h H . #  X Xh  !D 1 X  DATE 01234567BZ,/89AC(GH)RIFLMNOP[%"]DUSTVWXY+-.EJKQ*01234567$@'=89ACBZ,/RIFLMNOP(GH)DUST#\^!+-.EVWXY01234567JKQ*89AC&?<>RIFLMNOPBZ,/DUST(GH)+-.E:;_=01234567VWXY89ACJKQ*RIFLMNOP[%"]DUSTBZ,/+-.E(GH)01234567$@'=89ACVWXYRIFLMNOPJKQ*DUST#\^!+-.EBZ,/01234567(GH)89AC&?<>RIFLMNOPVWXYDUSTJKQ*+-.E:;_=HV#XHRhNhNTFH JO D`@@XXIh8XFh @QZ3h 4h XL, FAILED () ACTION X X BX ޘ DRPCU B0 400Hf!dhd hdDaFc  H [h[ OhQLsQ `RHIHEH DlBA>=  <h<: 51h1`"%'S11   `D B  QaFHtCXX nB  `DX ` X h$H$aRH X X 3[-h,H Dh!hvhvh  `8HdhH 1X hB0hB0h Xh XD*Dh>BX` TB! XW X3 S @ H'S@V`ȬhHD H HB Q>1 X* X5 HD "h Ha2 a!b1b1  `E   XC* X X 4h h X X X X h/P*V PP*S,SYSMON,$3031 PP*S,SYSDAY,$3236 PP*S,SYSYER,$3832 PP*S,SYSLVL,$3230 PP*V 17X14049PP*V 1700 MASS STORAGE OPERATING SYSTEM - VER 5.0 17X14050PP*V 17X14051PP*V EXXON DEVELOPMENT SYSTEM 17X14053PP*V 17X14054PP*YM,LIBEDT,1 PP*YM,LOADSD,2 PP*YM,JOBENT,3 PP*YM,JOBPRO,4 PP*YM,PROTEC,5 PP*YM,JPLOAD,6 PP*YM,JPCHGE,7 PP*YM,JPT13,8 PP*YM,JCRDV4,9 PP*YM,JLGOV4,10 PP*YM,JPSTV4,11 PP*YM,NAMEV4,12 PP*YM,JPFLV4,13 PP*YM,AFILV4,14 PP*YM,RESTOR,15 PP*YM,RCOVER,16 PP*YM,BRKPT,17 PP*YM,ODEBUG,18 PP*YM,SYSCOP,19 PP*YM,SYSSEG,20 PP*YM,MIPRO,21 PP*YM,TDFUNC,22 PP*YM,EFSTOR,23 PP*YM,EFLIST,24 PP*YM,VERIFY,25 PP*YM,SCMM17,26 PP*YM,DUMMY1,27 PP*YM,DUMMY2,28 PP*YM,DUMMY3,29 PP*YM,DUMMY4,30 PP*YM,DUMMY5,31 PP*YM,DUMMY6,32 PP*YM,DUMMY7,33 PP*YM,DUMMY8,34 PP*YM,DUMMY9,35 PP*YM,DUMMY0,36 PP*S,N4,$0800 17X14057PP*S,END0V4,$7FFF 17X14059PP*S,BGNMON,$8000 17X14061PP*S,MSIZV4,$FFFF 17X14063PP*S,SECTOR,$5BFA 17X14065PP* 17X14066PP*L SYSTEM DATA PROGRAM 17X14067Px P%SYSDAT EXXON DEVELOPMENT SYSTEM SUMMARY-122xx@PX?? @xx@P+ @ xx@PVxx@Pxx@Pxx@PExx`Pxx@Pxx@PU% <  xx@PTT 2T xT ET T 0T6T 8T6T6Txx@P+ T6T6T6T6T6xx@P@ z{|xx@Pk[bxx`Pxx@P EXXON DEVELOPMENT SYSTEM  hH h hxx`PGxx`P xx@P "&*xx@P).26:>BFJNRxx@PTVZ^.9IIYn ; H ; ` U o =  ) {O xx@P U3c o 3cY.@@@@@@@@@@@xx@P@@@@@@@@@@@@@@@@@@@.xx@P.xx`Pxx@P9Y ; H ` U o { 3c`YRxx@PIR R 0.Rlxx@PtOUUUUxx`Pxx@PORl{|nUUUUppxx`Pzxx`P0xx@P 2m ;R 2 4 6 fH T U0R 2 4 6xx@P ] f H IT o0R 2 4 6 f b cH$T xx@P 0R 2 4 6 f | }%T ;0 3R Fxx@P xx`P xx@P T \ R F xx`P xx@P T \xx@P ; =R F xx`P fxx@P {T D\ R F J Kxx`P xx@P T \xx@P R  ` R xx@P ` R   ` xx@P )R    +` HR xx@P T [ txx`P Uxx@P R I J K `[ xx@P xx`P *6xx@P `R  [ xx@P xx`P 6xx@P R a b c H[ xx@P xx`P B6xx@P x {R 6  5 7 xx@P R )$ <&   R !xx@P  'xx`P 7xx@P03R 3vU(< (xx`P["xx@P}R 4563v)< (xx`P!xx@PR 3v*< ( xx`P!xx@PR 3v9+< (!xx`P@!xx@PacR 3v,< ("xx`P!xx@PR def3v-< (#xx`P!xx@P3     xx@P$XX"xx@POdTRxxhTTR T"xx`Pz xx@Pq p [@ xx@P77xx@P77@JPRETNSNAPOLDExx@PFFILRELFILDEFIDXLOKFILUNLFILSTOSEQSTODIRSTOIDXRTVSEQRTVDIRRTVIDXxx@PRTVIDOFMPFLGxxPMASKT MAXSECMPFLAGMIINP SYSID eSYFAILRUBPROTLBPROTUPBDTBLOBDTBTSCNACTSCNMISIM200CCP xxPCPSET EINTSTKCVOLBLKVOLENDSCHSTKSCHLNGLOG1A NUMLU LOG1 nLOG2 ?ALTERRDGNTABDUMALTLIN1V4xxPINVINTP18ECMP18PGAP18ADDP18MXPPCORE P332D0CABF00P74300CABF01^CABF02CABF03CABF04zCABF05.xxPLSTLOCCALTHDLVLSTRN5 N6 N7 N8 N9 N10 N11 N12 N13 N14 N15 xxPPARTBLBUSY DIP LSTPRTTHDS USE IDLE IDLER INSTLUTMRTYPTMCODEE15761E1572FE1572 xxPO1572 E1573 H15721E15721D15721O15721EQ3644F10336O10336E10336DMICODEMPSRTTBLADRRQAQ xxPRLAQ BUFF BUFFE CGHOSTFMASK FLIST Q8STP E17811F17811AYERTOAMONTOADAYTOYERTO MONTO xxPDAYTO HORTO MINTO ~SECON }CONTA |HORMIN{TOTMINzTIMCPSTIMEC TODLVLNSCHEDyTMRLVLLSIZV4GPSIZV4GxxPODBSIZSCMMLCxCHRSFGwCOBOPSNDISP TSIPRCFISLU MAXMMARPTPERFDTPERFIDSECuFIBLSAtFIBNIXsFSLISTrxxPFSLLTHFSLENDADRFMSvNUMFS0BEGLU1NUMFS1BEGLU2NUMFS2BEGLU3NUMFS3BEGLU4NUMFS4 BEGLU5NUMFS5 xxPBEGLU6NUMFS6 BEGLU7NUMFS7 BEGLU8NUMFS8SMCLU1SMCLU2SMCLU3SMCLU4JLLUV4JBFLV4 FBASV4PKEYV4xxPJPRET xxPFMPFLGRTVIDORTVIDXRTVDIRRTVSEQSTOIDXSTODIRSTOSEQUNLFILLOKFILDEFIDXRELFILDEFFIL SNAPOLxxPJPRETNARGU0 E4SAVETIMEUPINPTV4RELFLELIBEDTLEND AREAC BGNMONE17432MC17432NI17432OS1728 -xxPL1728 .S42312NL42312OE1752 C1752 I1752 E17332C17332I17332EPSDSKCPSDSKIPSDSKSPSUDOhLPSUDOixxPS17323hL17323iMASERR?MASCONASCOSY LCOSY MASDRVCE1711 C1711 I1711 EDUMMYCDUMMYIDUMMYECORE xxPICORE SYSYERSSYSDAYTSYSMONUSECTORDATBASEND0V4RCTV JFILV4COBOP COUTV4ALLIN IPROC MSIZV4 xxPMONI DISPXXNABS @CABS ASABS BLUABS CVOLA DVOLR EREQXT FCOMPRQIFNR JxxP xP*L SPACE REQUEST PROCESSOR 17X14078Px PSPACE DECK-ID M29 MSOS 5.0 SUMMARY-136xx@P"3 a"aT   T h  ` xx@P+Cf d Qb4!bT"2@@hdddT xx@PV`TINSUFFICIENT ALLOCATABLE MEMORY ' D   `xx@P  _d #b f" cK  B "˰ xx@Pd d fl n fl n   t  txx@P ` T<H  f"f%f%ddxx@Pd/dd ]"*/:J_NW] YB6 xx@P-2 < d40 '7 d?< . xx@PX TR3TR/ T zSTALL REJECT xx@P 2b dT TIMER REJECT"  T xx@P1781-1 REJECT )$  /Hhh / HhT xx@Phh hl ! LL llxx@P!DhT  "h  d" ) xx@P/ } HT ,id;cd DhT xx@PZXXII""f"=) t B  h3xx@P hhd   dPdRqxx@P" MSOS 5.0--PSR LEVEL 1 SET PROGRAM PROTECT 32K MODE xx@P 65K MODE  a XhdW  XBHSHNhzJhKhK HExx@PBCh@DhB%?XXDh?;h:?7p;h38h4X,*+7++b$h" !h%h#X xx@P1h2JX(Dh xx@P\h% !TQu! xx@PXSTQȾYE ȺNO X>GDbH H+ f"bb @ ʦa aʫxx@PaG`   ` &" H h hT X h xx@PhT CHECKING FILES - OK ERRORS CLEAR ALL FILExx@PS? (YES/NO) Dhhhh=X0H"&bb  XLDhXxx@P3Y  XHDhhT`]!xx`P^_xx@PNLxxPSPACE T10 STMSV4T17 AREAC ALCLGHxxPO15721HP18MXPP18ADDP18PGAP18ECMoPCORE hOUTPV4RDPTV4SPCEV4PTNRELPTNALCSCH REL NOG30AxxPSPACE4OUTPUTNUMFS8eNUMFS7dNUMFS6cNUMFS5bNUMFS4aNUMFS3`NUMFS2_NUMFS1^NUMFS0]BEGLU8\BEGLU7[BEGLU6ZxxPBEGLU5YBEGLU4XBEGLU3WBEGLU2VBEGLU1UADRFMSFSLISTSYSID ASYSYERSYSDAYSYSMONTDFUNCMIBX EFLOCKxxPJBFLV48PSIZV4LSIZV4N15 N14 N13 N12 N11 N10 N9 N8 N7 N6 N5 xxPN4 N2 N1 AUTFB AUTFA AUTF9 INPTV4 IUP K65T10SYSLVLPROTECLIBEDTJOBENTF17811xxPE17811LOG1A TMRTYPF10336QO10336UE10336OEQ3644KE1572  E1572F"O1572 &E1573 +E15721;D15721FH15721BxxPE15761UPTOD lEMPSRT]TBLADRZDMICODXMPFLAGIDLE DTIMEReCALTHDNLEND 1LVLSTR-RPMASKSAVLU CKTHRD xxPEND0V48SYFAIL_CCP qLOBDTBUPBDTBLBPROTUBPROTxxP xP* 17X14080PP* SYSTEM CORE RESIDENT PROGRAMS 17X14081PP* 17X14082PP*LP MONITOR 17X14083PJ PMNMONI DECK-ID M10 MSOS 5.0 SUMMARY-136Jr@PT AA haa B\="a1Aa"a"a'2f"  aIr\@P+A" \HT\*PNMONI RCTV /MONI REQXT CASC *rPT19 BT18 AT17 @T16 ?T15 >T14 =T12 ;T10 9T9 8T8 7T6 5T4 3T2 1T1 0rPT0 /CPSET LCCP P J PRDISP DECK-ID M23 MSOS 5.0 SUMMARY-110Jr@PXp A` !1l:`2 @ @Ʒ!rr@P+h@X8&b@l"1 "+2lDb"2rr@PVaaaI %1C"I 1+a2rr@Pa RT`Af"bb A ""1bbdrr@Pa"I   b""f"I b%"aa+aTrr@Pb"a"1 "2" "f""2f"bbrr@Pb @@Ʒ!X&"I Db1 +2l+Hdrr@P-#! &hTahh `"  XT rr@PXf q H"c  Bq h@t̷#b @ rr@Pb qM"  X H f" Bq @hTHh   r@P12PRDISP DISPXXSCHTOPT9 RT18 RT19 2ZPF17811E17811K65CORCKTHRDSAVLU FMASK /FLIST .SCHLNGQSCHSTKPSCHERRSYFAILZP J PRW DECK-ID M09 MSOS 5.0 SUMMARY-110Jr@P"3 a"aX~TA4 x"12 A rr@P+Q"Z3bbTH9L, DOWN  n>/T Arr@PVhL hTA/nbb "2f"HT brr@PHT s% bdbTŠ x"122r @Pd JPRW T0 T1 T2 T4 T6 SAVLU CKTHRDRPMASKJ*PCONVERRALTSUB>LOG1A GLOG1 FLOG2 *P J PT14 DECK-ID M26 MSOS 5.0 SUMMARY-110J2@P"5 aaT"aT2PT14 CARDRD PCKTHRD SAVLU P J P T16 DECK-ID M04 MSOS 5.0 SUMMARY-110J"@P"4aa" PT16 PASC P J PqPARAME DECK-ID M03 MSOS 5.0 SUMMARY-110Jr@PH F  4 """aH"1 h"+h!2rr@P+b4 h12 a2aH"1"i+!!2a"arJ@PVH"19"+Ȱ122"aJ*PPARAMELUABS SABS NABS @CABS X*P J P'COMMON DECK-ID M13 MSOS 5.0 SUMMARY-110Jh@PH "D+DDb2bb@ @ "a@@Ʒ!"h PALLIN PPRO P J PNIPROC DECK-ID M12 MSOS 5.0 SUMMARY-118Jr@PMh!T hDh  DSA?d+XLH$rr@P+h$+ ` 2 +T PARITY, 0000hH  rr@PVh h"hhd"d`d" `TH"XhXȈ h X h X r2@PDd " : A2ZPIPROC IP1 ASAV %QSAV oMSAV pPWFOV qHA tPRO PWFAILPPTYERRNIPROCZ*PSYFAILmPARITYESWTCH JOBINDPOWERUn*P J PALVOL DECK-ID M16 MSOS 5.0 SUMMARY-110JP@PDRrbb@@`@"PPALVOL VOLA VOLR POVFVOL VOLENDP J P OFVOL DECK-ID M15 MSOS 5.0 SUMMARY-110J(@PA+ O VT(POFVOL OVFVOL PSYFAIL P J PALCORE DECK-ID M17 MSOS 5.0 SUMMARY-110Jr@PH/ h,h(( 2 h"H! Q@!1! 1h rr@P+h" H:h;:h<8h842 ! h,,H)@H(bA""rZ@PVl" l ! h@lf"bAH b b"Z @Px r@PzH0H, `&"@rQbAdah r@P`lbPALCOREREQALCRTNCOR|PCALTHDLEND LVLSTRP J PiDCORE DECK-ID M19 MSOS 5.0 SUMMARY-110Jr@P@TI"I a a 2HcT1_ 1 Z AbQhh"bNDT wrr@P+X '2= 9bb @Tx-b!H"Tp Shhrr@PV\b` 8 X TI a1JlI h  hTrr@PLX l3:h497TR& h# Lh bf"T r4@P  @ hTTi4r@PDh T ȺhȹhTHhlh bȢ  hrr@P92"#a"1,"+" ">" 'rr@P " "TR!T bTa̋ l̇ hrn@P@TR#hThh H  Q "5bbnjPICORE T12 ECORE #LEND SWAPONSTLPV4LOOP OUTPUTSPACE4NOG30AREL SCH ASWAPCK,jrPIDLER PRTCDR>OUTPV4RDPTV4SPCEV4K65T12PTNRELPTNALCSCHERRAREAC  LVLSTRREQALC(LOG2 XSPASW r"PUNPIO PCORE SWAPARRTNCOR""P J PPRTCDR DECK-ID M18 MSOS 5.0 SUMMARY-110Jr@PX "IHT`b1"b"2f"HT` M WD@[rr@P+D`a(q2 QH7 A "+H)L Q ` Bkrr@PVaH" h\ . "TVo   @h@hlrr@PhA"tlH؏ hDb>rw" DhH @rr@P " D 2ȹabm\\" !1brr@Pd h hh hhTLT h)TbTHrr@Pd b  lh haDph" X- rr@P-c" 1  h   h h rr@PXH"2ewsR4R4!    h'X J #rr@P" TR h"lDb"d"I aa("  "rr@Pc nAw   A!a" U" na"" >2rr@P1v!cR2q3b A HA H Q"2r>@Pbb%23TRhT>JPPRTCDRK65T12kPTNRELK65CORSPCEV4RDPTV4OUTPV4K65T10PTNALCJjPSCHERRRPMASKDIP  LSTLOCaBUSY PARTBLSTLPV4LOOP SWAPARUNPIO SPASW LOG1A SWAPONjP J PyNFNR DECK-ID M21 MSOS 5.0 SUMMARY-141Jr@P a A  GT "I) A  Ah a" 4"rr@P+a"n2a ,a ">a  a i& M J G D Yr^@PV    a "1 a a  a TA TA " !a ^PNFNR FNR FINDRQ"PALTSUB LOG2 $LOG1A LOG1 ["P J P0NCMPRQ DECK-ID M20 MSOS 5.0 SUMMARY-110Jr@PA a"Ib bb "2f"hT`a#r@P+a"PNCMPRQCOMPRQ PLOG1 ' P J P.MAKQ DECK-ID M08 MSOS 5.0 SUMMARY-110Jr@P a"I   ! 9  f"a 11r  r tr@P+a "PMAKQ MAKEQ P J PsADEV DECK-ID M22 MSOS 5.0 SUMMARY-132Jr@PTRc2 ?&th_H^\T@U(HY\SHVPhhMQRh8`nL\EVGrr@P+/nGe`,H`@``=\anY5U`DaO1A1n.(%& BhBChrJ@PVbT 4h1TRDt n QH^JP@PshhxHhj n hb ` "\V"Pr@PHhTRJXJhUR XFhVXChWTLt 8X8hC@ X4hDTLrr@P hETLTHa3330C H)e s r @P 0F400 0@PL, FAILED ALT, ACTION 0r@PRPQ"h`JanFDT B=`Th4` hTTrr@P0a &@0n#ch hTR"XnTR XsrD@P[t hK(B " hD*PADEV DEVERRALTDEVCONVERALTSUB^*ZPSYFAILUNPIOFLUNPIO JSWTCH QRELBYQLOG2 \LOG1A [LOG1 ZDUMALTrALTERRnJBCNCLVZP J PTMINT DECK-ID M06 MSOS 5.0 SUMMARY-116Jr@P"3 a"I 2" "1""TA"Td"@ rr@P+RTf"`Ab"D"ATbjObh< H9>3 j:4j7@rr@PV S*  b# a&bH$h"hT! h ab@r2@P ;2*PTMINT TIMEUPET8 T15 TMRTHD*PSYFAIL-TIMEC NSCHEDGP J P#DTIMER DECK-ID M05 MSOS 5.0 SUMMARY-136J^@P h Q! b1hhThTP ^PDTMER DTIMERPTMRLVL"DGNTABP J POTOD DECK-ID M25 MSOS 5.0 SUMMARY-110Jr@PXTTa?a9a6aAB81Aa !a#" :l 5rb@P+lBT$(l(lhhl lT <dbPUPTOD TOD JPTOTMINIHORMINHCONTA GSECON FMINTO EHORTO DTDFUNC/TODLVLTIMCPSJJP J P*MINT DECK-ID M07 MSOS 5.0 SUMMARY-116Jr@PpplTL #n qTH!%TRbrr@P+TR~H Zk65 Ed l-*RJD Ú[rr@PVC L  Tbk T0T$ ̢蘾dTR.̗rr@P*K T$"̋* ̅T$2 T$GTLrr@P h*BATCHJP05MI  ز hT n q l   hrr@P nTTH n hhTXTb TX̠RE ΚHrl@P %hhheT$̉H h "hvTl:PMINT MI MIB pMIBX qRELFLES200BS)JOBSTR[:rPLOADINIJPCHGERESTORLEND SWAPONLVLSTRMIPRO JBCNCL~BATCLU{JOBENTnSWTCH 7FILE1 JOBINDrCCP %r"PSIM200TSCNMI.TSCNAC)MIINP "P J PSTRVEC DECK-ID M14 MSOS 5.0 SUMMARY-116Jr@P S   rl@P+  hTRT$2d 2esR4R4!lrPTRVEC UNPIOF PARBV4COMPV4DINPTV4SCHERR?JOBIND NSTACKTRANV UNPIO IUP SPASW LIBET FILE1 rrPFILE2 FILE3 FILE4 RECOV LOCF LPTRS SWTCH LOADINUNPTIM VINPV4BATCLU PRORETMIBUF JPSWT rjPJBPROETRNVECRELS1AERRMSGAUTF9 AUTFA AUTFB JKIN JBCFGZ&JBCNCL JBCNFG6JPRETN8JPRET17j PPROTEC= P P*LP DEBUGGING / CHECKOUT 17X14116PJ PSNAPOL DECK-ID M02 MSOS 5.0 SUMMARY-110Jr@PhKegGl_]b?b bbc hOOhKILFHFTR r^@P+b h=="hh  1  :j E Dh Ȉ^r@PhOO P= PPPP Q= QQQQ A= AAAA M= MMMM I= IIII `HXiI rf@P"  `TLnc Oh Hhf PSNAPOL P J PDMP42X DECK-ID B17 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@P hhHX @X h h ABXj SLXf uXc RX_ ELX[ jXX jjrr@P+ĸhXzed " XW" h\ZZ_]TTPPO !JJhHK) Xk HEHX+@rr@PV  Xb9XC75X@ 0X h1h3.4X7,*3'$X# !X 1Hrr@PhX8X6a X3 **hXX X r^@P a A ! At X XX  ^ PCOUTV4 PCOUTV4J PRB17332 DECK-ID B11 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@PhHh2 X,X0-r[hB0h4B0-h,A* XXrh@P+ X A   XX  RB  !11h PCOBOP PMSIZV4COBOPSP P*LP FILE MANAGER 17X14148PJ PFILMGR DECK-ID F01 FILE MANAGER 1.0 SUMMARY-124Jr@P X5 X1 X- X) X% X! X X X X rr@P+X  X  X XTA bA A2\,\, \)\) b \#rr@PVbbb°bȲbET@ HEh;XH7AK@BTH4H6rr@PDH 4)d"f h 3h ^rr@P`RD R#% `+lh `hXrr@PHH XoT*2hr X."kfaȻa h W\ TRrr@PTDhBT|HKGX\BT ȜȎ`HG hTZ. rr@P-l'&%TR B QX ;TXTF`hArr@PX@hNfXlJ@XfX"H9XD h2$ Drr@P) A2X"h!Q } ' D rr@Pr`Pr@Prr@P 2"4HS  bqbrr@PD 2ah&X7X' X3KfTTL1z"rr@Poh ho hTTbT$`XM\`()1h(rr@PhL@ H H h%H HH `!ρ" hcA2hh,T rb@Pe Hq`X`HB<TbrPDEFFILRELFILDEFIDXLOKFIL UNLFILSTOSEQSTODIRSTOIDXEDFILS EDRTNS$RTVSEQ(RTVDIR,RTVIDX0RTVIDO4rrPFMPFLGFMRERRABSPARCKCFIS(CKPROTBCKUADRKGETSPCtMMREADMMWRITFILREQACTREQARQPRORPTABLFILNBRArJPFSTLOCFIDLOCRPTINTFDTINTNWFISDNWFISBLOKTBLLOKNOELOKNEUJrPEND0V4RSAFLGVFIBSIZMPFLAGTMRTYPWFIDSECFDTPERRPTPERMAXMMAFISLU SYFAILCPSET CCP JBCNFGCrrPSWAPCKcUNPIO BLPTRS ^LOCF eRACSPC6FMRENDFMRP12FMRP11FMRP10FMRP09 FMREDR FMREDFFMRP08FMRP07r2PFMRP06FMRP05FMRP04FMRP03FMRP02FMRP012P J PRSPCV4 DECK-ID F02 FILE MANAGER SUMMARY-116Jr@P@ )  ch WcTqLJ8 blEHT?H:rr@P+R1@H+QC f aH7 04aH `!h G hrr@PV h TLj@&f4$aaT rr@PbH> .3bG h H `ψ" h HTDȹ`srr@P 3#a?̴afTc̛̟̞lTDrJ@PrlTR  h TPJPFSLMMARACSPCRSAFLGjPFISLU FSLENDiFSLLTHFSLISTFDTINThFIDLOCgTMRTYPFSTLOCfFILNBR1RPTABLARQPROeACTREQdFILREQjP J PSRHFIS DECK-ID F03 FILE MANAGER SUMMARY-110Jr@PHhh:Ah\HH \fT*rr@P+Lvvb tAhjBg 8f Hegh`aɸ]h^h]Sh\aaNeK a hH]rr@PV@h?@HL \DbbDbb7bH2 H-  @n)A)(fL%H-rr@P x"b` hȷhDerr@Phr`P"PSRHFISFILBLKNWFBLKFIBSIZ"jPMMREADGETSPCFMRERR(NWFISBNWFISDFDTINTFIDLOCFSTLOCLOKNEU~LOKNOELOKTBLFIDSECFISLU IjP P*LP CORE RESIDENT DRIVERS 17X14153PJ PmEFDATA DECK-ID M27 MSOS 5.0 SUMMARY-110Jr@PbT aBrrAaa"2 a"F!B "rr@P+a aD a  H . }z C" ` hnp"f"jirr@PV fdbhT$X`aTh ` ,jki qH ` "j` q?`rr@PaThz3 0.q)nh(h(H&TR #`">"1hTrr@P b `hTXr`P`P2r@P Ȫ h C` jS qN\Kh8OTh< =H7 5H3h3@ \9h#<Ƞ \4h&B581H2rr@P8\. =Hh,\(B :hHTLD^M MM ERR XX LU=XX T=HHMM:SS S=XXXX Xr @PchSd :PLOG BSYEFSCEFDTAEFLOCKdEFCOVLEFDATAMMEF :JPHA CONVERfLOG1A -SECON HORMINYERTO MONTO DAYTO EFSTOR`JP J P#DUMMY DECK-ID M30 MSOS 5.0 SUMMARY-110J^@P@TT@?n 2a H TbT ^PIDUMMYCDUMMYEDUMMYPLOG1A DUMALT LOG1 "P J PD1711 DECK-ID B27 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@P@ d@TzX. a a S"I a a "pa     : hrr@P+ 5a ,  a!I a a !aarr@P+ .-.T"aa a!XF . .Da%* T" %rr@PVr@A A aa&a#2 2 04a  A$TB0`Q h#'Ttrr@P'T~   a'( ! a# `axXy3 1rr@P l ad|hz@x`Xa$ " VU$f   H FZh]rr@P[ ?DhS a ` a ) %( 0  _Q*+ 1y=& #rr@Pa$a a&X T&  UFBa ?a(  7H6X    v"`"` jjrr@PT 2a  2TTR$ r`Pr@P@XTR@XdhH jIHk 4@ڳrr@PbUbbM AʳX`H` jX/h)ʣjjX#Hʢrr@PXTR@ʋ@hn "jg rr@P3"F YA 5A  P"GjGjC hC@H1Xqrr@P^.   D a3  H@a3  hr @PHT 2PMASDRVMASEXTMASCONUMASERRMAS300RELBYQ2*PBUFFE BUFF LOG LOG1A ALTDEV*P J PID17432 DECK-ID B35 PERIPH. DRIVERS 1.0B SUMMARY-115Jr@P@"2*K`G BT+=a "Ǡ  a a  a   rr@P+ $2]X aT!X "aa a aAa  rr@PV@ Qta11a  TT5"X1Tarr@PRhTn@    7a   aa * * a %rr@P#XToT[ 1 ! @ah1X* a #TTXoa rr@Pa.q 14!a a  a f"  t"K`V rr@POO"    1 " "  !A k irr@P-&rTmVdXVXZ     2 *  >   rr@PX " f"   a "6 q!    a  0a  * a  rr@P a A f"  r ab HhH* a  Aahrr@PRh  f"1!"T 2/  "   Q 0 a K 8H rr@P a / @ * a * "  (     a      a 7rr@P  @ a H a1a"a 2  + aBrH@P/A FBA aQ  a   H HPE17432VC17432I17432"PP74300PLOG 7ALTDEVMAKEQ "P P*LP REENTRANT FORTRAN RUNTIME LIBRARY 17X14407PJ PDFORTR DECK-ID A01 FTN 3.3 RUNTIME SUMMARY-102Jr@PXXXSXN XI XXrr@P+X.X4  r"m" b f"HT  brr@PVXTa"A T" XHb XEb XBa bXMf"&"b"! rr@P6"b!b" 1f""b"b"bhT a r@PHTr@P AHThR\Or""JH \""h)" b\Trr@Pa"A \"Xa f"! 6"b!b$"A1f" Xbr @P ,@P H$"HhTf"H",p@P"b b   X X0XX6 H prPREAD WRITE FREAD FWRITESCHEDLTIMER DISPAT DISP LINK "ICLOCK(INPINS.OUTINS4RELESE:ICONCT0r POCONCT6 PPARTBL>PARABSP J P*Q8PRMR DECK-ID B01 FTN 3.3 RUNTIME SUMMARY-102Jn@Ph Hq``TH`T" hnPQ8PREPQ8PKUPQ9PKUP PPARABS P J PPARABR DECK-ID B02 FTN 3.3 RUNTIME SUMMARY-102J,@PHh "c", PPARABS PEND0V4 P J PQ8F2IR DECK-ID B03 FTN 3.3 RUNTIME SUMMARY-102Jr@P@ @ @ `T`\`h @G`!d`c'6rr@P+` `a@,'T `8&\ `X""`rr@PV`\[K]@ `@T\[@?9T"``\ĝ@T)1l\rr@P[Z%@XQ$    0jX"  \[@ @@r"PQ8QF2IQ8QI2FQ8QF2FE4SAVE+"*PPARABSEXP xALOG lFALT HFLOT 8*P J PABSR DECK-ID B04 FTN 3.3 RUNTIME SUMMARY-102JF@P@`T"`"`T@"\tFPQ8AB ABS PHFLOT PARABSP J P[SQRTFR DECK-ID B05 FTN 3.3 RUNTIME SUMMARY-102Jr@P@T"``"dR`@6G* AB ;1`Š 4`TQݾrr@P+SUۚWYOa 4dRd@`\ٴ@@?N^ A̼>r@PVL>aArI$ PSQRT PHFLOT $PARABSP J P,SIGNR DECK-ID B06 FTN 3.3 RUNTIME SUMMARY-102Jr@P `@` `Ta"``\ b#1Tt`r @P+ PQ8SG SIGN PHFLOT &PARABS P J P8FXFLTR DECK-ID B07 FTN 3.3 RUNTIME SUMMARY-102Jr@P @` `@X""``T\ ``@  r(@P+`@X""`\$(JPQ8QFIXQ8FX Q8QFLTQ8FLOT'IFIX FLOAT 'DFIX Q8DFLTDFLT 'JPARABS.HFLOT P J PEXPR DECK-ID B08 FTN 3.3 RUNTIME SUMMARY-102Jr@P@`T""``\W@ %\P}@ @\I[@}p?C5Ƙ1rr@P+ `?Ř3Ƙ> 1 " HX `B\#Z]Y^]J@Ő1G" `R rr@PVz` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@rT@Pŀ`\\յ@@>UV=UVrr@P+1` #d*@1*A`ݠ4ad`Š 1`T^]مٝYrZ@PVٵ ^\@Zy@X @@A@@UN<?j+Z PALOG PFALT HFLOT HPARABSP J PlTANHR DECK-ID B10 FTN 3.3 RUNTIME SUMMARY-102Jr@P `T@""\+[TQ3` "`!d8\[TCb\t"`!d?@!rr@P+#*BP*`T\T$յ$@\@ `\YVr>@PV@  @>Ie=h,> PTANH PPARABSHFLOT 8EXP 2P J PSNCSR DECK-ID B11 FTN 3.3 RUNTIME SUMMARY-102Jr@P@`T""``\L$@rr@P+`\""``\&@ %\}@ ``q@x7u3K@)Ř7X"rr@PV` Tե`Ũ"Gf $ ƪ` `\YJ^C>@:rr@P\X]9@ `Ř04Ơ,;.` `\~"@\ܞY&#^Y^Y^YrR@P\}@\@AdA@*@Ke>@U@>GP PATAN PHFLOT SPARABSP J PeQ8QIOR DECK-ID C01 FTN 3.3 RUNTIME SUMMARY-102Jr@PHT` h \ H"" dLonbb@ @ aaXWarr@P+2 APaXMr""" aO f32a/fq X3"" f Dfrr@PVrDX&r""` f  f" f" R2a"2" 4rr@P\  `h   `h f H"AXFrr@P CAa2-Taaaaa `%T2AT brr@P @4hI;  b bgbedDİb h $ b fT rr@P `"` H~ Dfy$h @T Hl!`" ]rr@P-c"A aahA3"hLH 3r(@PX )(RPQ8QINIQ8QX Q8QY Q8QZ Q8QEND'Q8QGET;SETBFRIOERR QIRWERR[ARGU0 RPPARABSBINARYFORMTRP J PKBINARR DECK-ID C02 FTN 3.3 RUNTIME SUMMARY-102Jr@P TDa a1X0" f 4`D`T X f" 4`rX@P+D`T    " ( "2f"X PBINARY PRSTORE9INITALQ8QGET1P J P4IOCODR DECK-ID D01 FTN 3.3 RUNTIME SUMMARY-102JZ@PTA a aX!`X""`X""aXaThhTZ2@P#TA T2PENCODEDECODE#PPARABS1FORMTRP J PINITLR DECK-ID D02 FTN 3.3 RUNTIME SUMMARY-102J,@PT "Aaa@, PINITAL P J PRSTORR DECK-ID D03 FTN 3.3 RUNTIME SUMMARY-102J0@Ph ```Th0 PRSTORE P J PGETCHR DECK-ID D04 FTN 3.3 RUNTIME SUMMARY-102JH@PTz a&TTڪ AHPIGETCHGETCH PEWRITE RSTOREINITALP J P>IPACKR DECK-ID D05 FTN 3.3 RUNTIME SUMMARY-102Jr@PT)  ؐ"T a1q\  d ڠ d f" "r6@P+a  `ڠd6 PIPACK "PCHCNT ,RSTORE=EWRITEINITAL"P J P UPDATR DECK-ID D06 FTN 3.3 RUNTIME SUMMARY-102J(@PT  d( PUPDATE PRSTORE INITALP J P&DECPLR DECK-ID D07 FTN 3.3 RUNTIME SUMMARY-102Jf@PT``؁ ` a `T  ` dT`Taef PDECPL *PRSTORE%INTGR UPDATEGETCH INITAL*P J P-INTGRR DECK-ID D08 FTN 3.3 RUNTIME SUMMARY-102Jr@PT` a؁ ` `T"  !T 9!a Fa ` `Tr @P+ PINTGR "PRSTORE,UPDATE)GETCH INITAL"P J PSPACER DECK-ID D09 FTN 3.3 RUNTIME SUMMARY-102JD@PT a`؁ ` `T ` `TD PSPACEX *PRSTOREIPACK UPDATEIGETCHINITAL*P J PHOLR DECK-ID D10 FTN 3.3 RUNTIME SUMMARY-102Jr@PT`` a ف ` `3TTa ` `T rr@P+ a  ) a؁ ` `T ` `T# T``ف ` `rr@PV3TTa ` `TE  ( $ 3 a  t r6@Pa؁ ` `T> ` `T c 6PHOLRTHQUOTE G:PCHCNT ~RSTOREIPACK UPDATEGETCH [IGETCHXINITALJ:P J PsDCHXR DECK-ID D11 FTN 3.3 RUNTIME SUMMARY-102Jr@PT` aaaaa `!T ` `Ta ` `T    rr@P+ 5 1 0a a' "T 9!\a !\ Fρ"rP@PV aA Fρa1A\aADdRAaP PDCHX *PRSTORErEWRITECUPDATE!IGETCHINITAL*P J PSHXASCR DECK-ID D12 FTN 3.3 RUNTIME SUMMARY-102Jr@PT` `ab a  0c    ` a`b% *aarl@P+ ` a"Td"2aR @ ` `T ` `Tl PHXASC *PEWRITE5RSTORERUPDATENIPACK GINITAL*P J P*AFMTOR DECK-ID D13 FTN 3.3 RUNTIME SUMMARY-102Jp@PT`a `! ` ܠ `Ta؁ ` `T ` `Tp PAFRMOT *PRSTORE)UPDATE%IPACK GETCH INITAL*P J PRFMTOR DECK-ID D14 FTN 3.3 RUNTIME SUMMARY-102JF@PT a`؁ ` `T ` `TF PRFRMOT "PRSTOREUPDATEIPACK INITAL"P J P.AFMTIR DECK-ID D15 FTN 3.3 RUNTIME SUMMARY-102Jr@PT`؁ ` `Ta ` `T a  ` `\a ` `\ȁr@P+a PAFRMIN "PRSTORE-UPDATEIGETCH INITAL"P J PRFMTIR DECK-ID D16 FTN 3.3 RUNTIME SUMMARY-102J@@PT`؁ ` `Ta ` `T@ PRFRMIN "PRSTOREUPDATEIGETCH INITAL"P J P;ASCHXR DECK-ID D17 FTN 3.3 RUNTIME SUMMARY-102Jr@PT` a `!, ` `Ta ` `T a 6 9 r0@P+2 2T aıa0 PASCHX *PEWRITE/RSTORE:UPDATEIGETCHINITAL*P J PHXDCR DECK-ID D18 FTN 3.3 RUNTIME SUMMARY-102Jr@PT` aafRda -a0F 0ac 2 .a `rr@P+9ac a aA `!J aa a(rr@PV a .a 0a!D Q" !yR *a aa A؁ ` r,@P`T ` `T, PHXDC "PRSTOREUPDATEIPACK INITAL"P J PJFLOTIR DECK-ID D19 FTN 3.3 RUNTIME SUMMARY-102Jr@PT``d` aTT! a@bRd@``\\aTTrT@P+@$\af\\a `aAT PFLOTIN :PE4SAVEBRSTOREIQ8QFI &HFLOT (Q8QFL DCHX INITAL:P J PFOUTR DECK-ID D20 FTN 3.3 RUNTIME SUMMARY-102Jr@PT`d`"Rd@`TTm@o1Q$\T arr@P+` a`T .a ` `T ` `T a`"d`!T(T\rr@PVk@\`\aa`BP@@JI>` *a ` `T= ` r@P`TD ` PFOUT RPE4SAVEfRSTOREjQ8QFL SUPDATEIPACK |HXDC 3Q8QFX QHFLOT Q8QFI INITALRP J PEOUTR DECK-ID D21 FTN 3.3 RUNTIME SUMMARY-102Jr@PT``d```` a` a `/" 4 A *a A   rr@P+ gR@R@ -A` .a ` ` `T ` `TT8Trr@PV\ ` c1Td 2Q \\ c1\T\׺rr@P@\ #  a ` a!T\@@@TTL a Err@Pa``؁ ` `TB ` `TII +#d` -A ` ' a``\ aar2@P``\a `aBP@@2 PEOUT ZPE4SAVERSTOREHXDC Q8QFL EWRITEeQ8QFX UPDATEIPACK HFLOT UQ8QFI |INITALZP J P EWRITR DECK-ID D22 FTN 3.3 RUNTIME SUMMARY-102J&@P2 Th & PEWRITE P J PINTI1R DECK-ID D23 FTN 3.3 RUNTIME SUMMARY-102JP@PT "AX`XahhTTPPINITL1RESTRE  PPARABS P J PFORMTR DECK-ID D24 FTN 3.3 RUNTIME SUMMARY-115Jr@PPTqa aa a a a aف ` `Ta"  6 9!rr@P+ M \ { a ` `T   ` rr@PV `{  `Ta`T" a   ` `\ rr@P a`T'bdRQ"T9 `T1 `T)  "Trr@P`T  !\`T \`TTf" !\f" a#rr@P a a A aA `@ TT" a a A aA  rr@P a  `T\"a A `` !RATaQ `rr@P-TI `T.A  "T`T4  !\`T(a "Trr@PX"a` `T `T "TW \`T aa  !\rr@P ` `TG a a a a a x a]a' ` `Tfrr@P`T``1 aF a؁ ` `T ` `\ ` `\<a rl@Pa Da  a  a ف ` `T 3 ! ` `TlPFORMTRCHCNT rPRSTOREEWRITE?IPACK DOUT wEOUT jFOUT bRFRMOTOAFRMOTCHXASC 6HXDC $SPACEX QUOTE HOLRTHFLOTINrRPRFRMINAFRMINASCHX DCHX DECPL fINTGR UPDATEGETCH INITALQ8QGEToRP J PQ8QFIR DECK-ID D25 FTN 3.3 RUNTIME SUMMARY-102JH@PT` ` $aaTBP@H PQ8QFI PRSTOREINITALHFLOT P J P/Q8QFLR DECK-ID D26 FTN 3.3 RUNTIME SUMMARY-102Jr@PT#dRAR`B@ @"si`  dr$Rdr@P+`@ PQ8QFL PRSTORE.INITALP J P7Q8QFXR DECK-ID D27 FTN 3.3 RUNTIME SUMMARY-102Jr@PT$dR@ R  DA * H f H gr&@P+ AddRAa& PQ8QFX PRSTORE6INITALP J PHEXAR DECK-ID D28 FTN 3.3 RUNTIME SUMMARY-102JD@PT aa a a aa `TD PHEXASC "PCHCNT RESTREHXASC INITL1"P J PHEXDR DECK-ID D29 FTN 3.3 RUNTIME SUMMARY-102JP@PT aa a a a aa @ !RATP PHEXDEC "PRESTRECHCNT HXDC INITL1"P J PASCIIR DECK-ID D30 FTN 3.3 RUNTIME SUMMARY-102J<@PT A a a a `Tf"< PASCII PRESTREASCHX INITL1P J P DECHXR DECK-ID D31 FTN 3.3 RUNTIME SUMMARY-102JX@PT a a a a a `TbdRQ" f"X PDECHEX PRESTREDCHX INITL1P J PAFORMR DECK-ID D32 FTN 3.3 RUNTIME SUMMARY-102JN@PT a aa a` `T f" N PAFORM PRESTREAFRMININITL1P J PRFORMR DECK-ID D33 FTN 3.3 RUNTIME SUMMARY-102JN@PT a aa a` `T f" N PRFORM PRESTRERFRMININITL1P J PFLOTGR DECK-ID D34 FTN 3.3 RUNTIME SUMMARY-102JN@PT aa a a a aaa `TN PFLOATG "PCHCNT RESTREEOUT INITL1"P J PNFLOTR DECK-ID B14 FTN 3.3 RUNTIME SUMMARY-112Jr@P  `a` ` `X8?"A  x&Jzrr@P+}Xa(XBXXȰ,` #`X`#`XE`Ȱ#`Xrr@PVMbXO`Ƞ$d `d`Ȱ.`XXVbb $`Trr@P@@`Ϡ *`@ed`d`Xp` `Ƞ4`n Ƞ$rr@PȰ$>a.`X"dR`2H `͠ `D`D```X=rr@PXXXU#.` A`@ @ X2X0` `2@rr@PA`πҐ`"G ~ @39` ` 2` 1`ϐ+ i& c rr@P-``"dR`2H ```XYXX8#.`rr@PXaA@͠`d `md 0 d1 " 2a0 `Da0 rr@P1 m  ! X` ` `{XXNdRXXrr@P@`!d߰2H `Ԡ"`@`ed`d``Yrr@Pِ.`@`@`@" h u>`hA``h`rr@PA``B΀" e " `@2T "rT@P/@k"Ƞ>.`Rd"Ƞ>`R@`" `TPFLOT HFLOT 2PPERORIXFOP9LOFOP6PECOP0XTOP PERND2P J PCOMFPR DECK-ID B15 FTN 3.3 RUNTIME SUMMARY-102Jr@P 'B``` "Ƞ,2!Ƞ#`'2 rr@P+ X"25#?FI@ B#`X @ `rr@PVX!X1 $XX Ȱ#!1rr@P RA1`R "dR@ R  B H grr@Pad `#`XZb Ȱ#`XK`!dB2 @rr@PrdR@`/@Ƞ4` H)X t` Q  T"" R1r2@P H XRRt`p2BPIFALT SFALT OPERNDNXTOP FPERORSPECOP.FLOFOPFIXFOPB PPARABS P J PSGDBLR DECK-ID E01 FTN 3.3 RUNTIME SUMMARY-102J:@P @`X""``TՀ:"PSNGL DBLE Q8SNGLQ8DBLE"PARABSHFLOT P J PQ8D2IR DECK-ID E02 FTN 3.3 RUNTIME SUMMARY-102Jr@PH& H H hT`\` @f`!d`Xrr@P+"```T[R]@#``"`\[@EAT"``` rr@PV`\ݝ@T+a@%\ѹ\ɹ1 \[Z@X+$ 1Xr2@Pz" \[@@2PQ8QD2IQ8QD2FQ8QD2D*PDLOG JDEXP \FALT HDFLOT5PARABS*P J PDABSR DECK-ID E03 FTN 3.3 RUNTIME SUMMARY-102JN@P@`T""```T@"\tNPQ8DAB DABS PHDFLOTPARABSP J PDSQRTR DECK-ID E04 FTN 3.3 RUNTIME SUMMARY-102Jr@P@T"``'d`dR``@PG* AB ;1`Š 4`rr@P+Tqtwۚz@}\nܐ ݐ ސ B\׽@rp@PVa 4gRd@R@`\´@@?N^ rA>L<"aArI$Jp PDSQRT PPARABSHDFLOT,P J P-DSIGNR DECK-ID E05 FTN 3.3 RUNTIME SUMMARY-102Jr@P @` ``Ta"```\ b#1Ttr @P+` PQ8DSG DSIGN PHDFLOT'PARABS P J PDEXPR DECK-ID E08 FTN 3.3 RUNTIME SUMMARY-102Jr@P@`T""```\Q@ %\J}@ @\C[@{x?Cؘ# `?Řrr@P+!1 " HX ``"Q\&Z]|^]^@Ř G" `R|@rr@PV` ``TS\՞LHY^BY^UUUV=UUUV<DDDD;[r0@P[9h8hh6w[5I>@X 0 PDEXP PFALT 4HDFLOTaPARABSP J PDLOGR DECK-ID E09 FTN 3.3 RUNTIME SUMMARY-102Jr@P@`T""```\A@1X"`  Ő@ ``rr@P+`\%Q1`` #d*@@1*A`4ad`Š 1`T^-rr@PV](YC>82,& ٵ ^@rd@P@Zy@X @@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxxd PDLOG PFALT HDFLOTQPARABSP J PDSNCSR DECK-ID E11 FTN 3.3 RUNTIME SUMMARY-102Jr@P@`T""```\f@```\[\V%rr@P+@`\""```\/@ %\(}@ ``rr@PV`@ؘ=Ƙ8ǘ3K@-Ř7X` TZ}]@Ũ1Grr@Pf $ ƪŪ` ` `\Ye^\7Y?V;\ѵM rr@P`ŘC4?4;??` ``\'\~-@\fݞYA=^Y7rr@P^Y1^Y+^Y%^Y^Y^Y@\t@QAdQAQ@*Q@Ke>V@U@>ffff6m>qq.>NN=xxxxp PDATAN PHDFLOTcPARABSP J PQ8QDFR DECK-ID E14 FTN 3.3 RUNTIME SUMMARY-102JN@PT` `` $aaTBP@N PQ8QDFI PRSTOREINITALHDFLOTP J P DOUTR DECK-ID E15 FTN 3.3 RUNTIME SUMMARY-102Jr@PT``d``````` a` a `/" 4 A *a rr@P+A %lR@@R@@R@ -A` .a ` ` `T ` `TTrr@PVDT``\" ` c1Td 2Q \rr@P``\ c1\T\@``\ #  a ` a!!Trr@P`` `\@@@T``TV a Da``؁ `  `TLrr@P ` `TSI +#d` -A ` ' a``\ aa``\a `ar@PBP@@ PDOUT ZPE4SAVERSTOREHXDC Q8QFL EWRITEsQ8QFX UPDATEIPACK HDFLOT_Q8QDFIINITALZP J P^DFLOTR DECK-ID E13 FTN 3.3 RUNTIME SUMMARY-102Jr@PThTX X a*` a aX 'rr@P+Baa"aA3%lrr@PV,` Ȱ#`XaXȰ#`XaȰ#`XbX$'rr@P)03*Ȱ#`X A a!1  rr@P!1Xu`` `"Ƞ>a.`AA&dRARAa rr@P2H a a a a 6Da a a a Ƞ>`+X X8bbb!rr@P T@@@ ` *`@ @id`d`d` rr@P-.`"Ƞ,2!Ƞ#`(2 ( err@PXXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xrr@Pa@ !! ƁXX@` !AX`""``@ Aarr@PaA3AasA``c` 1 m@`rr@P$ ` A a a a "-G - a a a a a a a rr@P#a =`XX$X~#.`1   #0a d a rr@P/ !13d #2d Ad( 2adaa1 aDa1bAarr@PZ?ad A2aF ad2aa1`a1`Da1` a a rr@PaȀ-`aaaaA&RARAda2H a aarr@Pa  ! Ta a a a \X[darr@PdRXQaAaA!dذ2H a "a aAa rr@PA a hda da da  a aa  a1 a A  a A a Arr@P1 a A a" x a ` d aa bAa a babAarr@P\"H1h #h`Aa`Aaa`AaaMrr@PaB a #a  A Dda a a #a  n a )a a #a rr@PA a A # a 2W  $or | AA A   rr@PAA A  a A kdRA a da . Ƞ>t` A U@ rr@P`a `X"dR@ R  B H gad `Ȱ#`rr@P3XbȰ#`X`!dB2 @rdR@`/@grPDFLOT HDFLOT PFPEROR P J P6DRSTRR DECK-ID E10 FTN 3.3 RUNTIME SUMMARY-102Jr@P @T"f"bb @\"f"b @\"f"r"@P+"  b`b"PDSTOR1RSTOR1DSTOR2! PPARABS P J PNXTLOC NEXT AVAILABLE LOCATION JP P* 17X14485PP* SYSTEM MASS RESIDENT PROGRAMS 17X14486PP* 17X14487PP*M LIBEDT 1 17X14488PJ PLIBEDT DECK-ID M35 MSOS 5.0 SUMMARY-122Jr@Pd X`<r`P+`P1r@PAr`Pl!r@PE`AS\gH*"'m@rr@P9!j4 hHX;H h T\f.HaPrr@PdXh XH h hT&\beh " ` rr@P hˆ`hhhVhRh` a_a `a` `aZ `a^ `aaac `arr@P` aU Vaq Xao ab` ]h h h h^ :h h_ ]h h` hrr@P^ ]h h hBSB""/4h da A  X rr@PLIB a; aN G` hM hSh~hX hy aO2rr@P;- A  Xt IN +' +cB A+ +da  Π XX:  rr@Pf XMQ o*P 0FȀ004h A X6 L Οh/ n h< rr@Pa<; a; Άh  cB T'/ nn~ irr@P  hh l ZhT lh 0$a h3 rr@Pu#  a al !h y  r HU2Q rr@PI ^              "2a1Ba2rr@P=jbHXHhh *M*L*P*V*U*Zrr@Ph*K*N*S*T*R*A*DM*DL X6A  h X%R rr@P / nA/ n~  X Rv AC A&$EȘFX'rr@PXH nc<XX?h:"66 // nM' XX' nB :rr@P1 !Qb  h aHI8h"% rr@P  Y `X pahjHj4h!BHe^aG a `aGAa X|G Zrr@P?R4B0CahMIQ A  Xf A  X_ FINI  a G"rr@Pj aG"hhh X/ aXG aG SECT. FILEH rr@Ph XhTLH% a X HhXHh h hXrr@PjX j h 0123456789ABCDEFrr@P``h3 }n0 qh HA 0%D   aEX 0 aE A HhX Arr@P  Xk FINI  hY` hUAT 0F400lIHGG 1 dhB>AX>rr@PAL;:l987 a 3 `h-` h h X[TLT\ A  Xrr@Pl  h E aEa h hXjX j rr@Ph 0123456789ABCDEF` aja ahaiaja XD `a rr@P XRXh?Xe)"7  FPaha aiaha ai. ajX+ rr@PX:d X7aB>. ajX X*d X'a2,X Xj Xg Xd Xa rr@P hj0aj X X XqaA X_ahai XdHThSH?`rr@PC Š .h h "QhyhhOs"2h" rr@Pn X" $ ah A H"\h T  `a   rr@PX  aX SAa # X)   U t 1A at `arr@PhhXw T\hTL \_Ȕ AQq `arr@P a a T\  Q_ bh# ah A H)bfGjrr@P 1hGaG!h a ah W h a A aLIBE *T Ye rr@PE1 aGaaaG zXS 1 a!a `a ;| T"Tch Tg rr@Ppa `a GaGA X%:aA X` atalapahaiaj a?a=X7B  rr@P K %aH4  HXqXV X[f XXg!GXa * X*A rr@P X% A XS h `` ha ` Xh  aHXrr@PSH hXAajXWMD Aa  XH1 rr@PXehAi  hX X Xe Xb XHXV Xf X!  UhOrr@PGB1A aHH bh~h}8b" 1A !m)1UaW Orr@Pr Xdax Xr\b3`baG  Aa # X aaarr@P zXM7"B!b0f"Db+aA X:$Db !1A daxa{ a 2 X(rr@Pa{ 1A dax a 2 X `XhW!T aV XT rr@P  a amapalaiahawaaf a=a?^h Xmh h X_Ai Xrr@P "ajAkHUaW O XO aIaDjh  XHhw \ X aXaaQkrr@P IaYaaRaSi"2anXYa XAa G Xm!1h&X al a=a? ajdYrr@P taR2an a?Y a XY aYRYS` UlaW V X X AhAim"  rr@P  `X{hW^h X XPAAQaaRXudhqq dhm^h rr@P XlXf lblb X.L[l[ \ X_fRaQaLKGF `C ?rr@P f `X?2`` UlaW V X2mah amRAkb XvHfhe Xrr@P  X'     >bh` :h h $hTn   rr@P K#KhJH h XHMmg X  4 h1/D nBrr@P v ! wؠ `XX1Ȗf+rr@P ' #w؃ ؚ2anaYa XC  PPP@Prr@P `PP `XhW a awahaiaja~a|aCatauaTalap ada?a=a`X$T  rr@P XoXCatXAXQavXBau XSABrr@P "avtTuA XHht XhW^h n Xa} HHJ!HhChBUrr@P MaW O X<dax Al Xa{21h-{XIda'` a 2 X}Xixb{bXVaxrr@P xa{ a 2 X X` AA} ]axayxdbX0X a{yxaxrr@P a 2 Xawa `a aAa X aAa # X h  `rr@P aAa # X a=DapalUaW O X g X n XHH  `X rr@P hWut$  a@ XJ|wa^h n X? HIaDaAdhurr@P $@B1A a|t 1AaAH `}h|aX@v$ @(B1AA h HaDDrr@P OaC `a`CXbAaD B1a~|,~ |h!ahX?Arr@P zX>CA5aX5TB )aDADX.H|~a|BHH~Aarr@P `ADCAX `a`XPAa XAa # Xt A@1AAaArr@P @ `aX_ hwXXn@XDA !@1  awarr@P a a XP` A``h] X   hM X  rr@P &hD 1 Xxh9 XpM-' 5B %h"2 "rr@P Qf"hB0`hHX | 6B h1 DaCNaD ) XAa rr@P | X)n ) XAa # X`X_F    a  bXQhjhahah`rr@P h` hBh%T C 6""h/hJX0*)hhX C rr@P  a  bXhX  hA X5EŠ rr@P hXK  dhXD ~d hXhrr@P(h  hh hh `hXz3 JȻhȶh ȶrr@PS hh} hhy hȭ [hY Xhk'D P nAXjE1.  (Xrr@P~x948 H30g*F b &ok nXndj `Kc Fh)rr@PX[8[gSAB87 X)XTL` rr@P \7 XXTH \hXTrr@P \aA X` a?a= alapahaiajXrT   h* rr@P* aH1X_Q !h?= :  _ahaiXEQ   rr@PU! h" < 2ah` gaiXU    rr@P 2aj XvHfheZ XXSR   1jajXES  rr@P  h  hXj XCkhh Xl* XMa a  X^"rr@P֘  *K hhD 8  XD hS M 2  !rr@PCa"y$ Q 1hPaA X Xq# rr@P, Xq XHXQ  p Xq Xa!XR   XHHrr@PW  OB1A a bhxhu 1A a!k h1daxrr@PUaW O X XoYb3` ab"A1f"hbaG aa zXR  rr@PAa # X 1aA X@*Db '1A dax"a{ a 2 X.a{ 1A dax rr@Pa 2 XA X G a "T &   + a GHXrr@P2r Aa Xh,XH aEh%#h('n A hN `rr@P.Ah" " H h TDhX`aXXZH/ 0rr@PYalA=UaWl? O X =0'hA= =h =h  a>dn>`l V Xla?rr@P2anx  ay a?{yXyxy `a ] XocAa Xa ;"aYrr@P a@aCaB ] X `a@AAa XBh!kh ` 4hX  !@rr@PAAa # X~aDB`4h h l H 0h&XH#rr@P hX H 4h 0F 0H 0F 0 X RECORDS TRANSFERRErr@P0D h ChT  j q HX9  FILES TRANSFERRED rr@P[ h%H$   E1aD  HHrr@PKXHXtbhhz hrahrahp hl `ahjfhfcAa rr@PXSX ZMB0Ca hN  aN !%KI   ? h=8 h64rr@PX /1.aad (hih i2Ahrr@Ph = a= 4 a=pp  ApA=UlaW V Xll 4  rr@P2UlaW O XZpA]"h4h4a\=b2\h+h+Ad\]f" !la\  !p\=rr@P] lHpH=H x! alapa=aDaaM `a`aLLMrr@PAa Xa ZaKXwLlMLAa # Xwa3 ` rr@P n A `aMLAa # X] aK DhZa|aa aB1a~"Df A `rr@PaEAa XH=h%&; 5wXK$*  ' `a~"1X"X|rr@P   " "   B1A a|LIBEB!a a|A rr@P4Aa # X|a|Dh H  1 h c+ AdaH&rr@P_4 h"d_DaCN aDXaA X`f" f"X # X#Ddd `a`rr@PC h0aC ] X `aA@Aa XDarZaD `4h A  !rr@P A a zXH_HXX-HZHPh\QN@   Frr@P  c+ q+da+3"aGa X1h,%A``h,d h*hdrr@P hX\DD@ h HTHrr@P6hKH8_h4hEd 1h!h*h;hh2h!hh/X X$8-h+hrr@PahXܶTH\XܤTL\rr@PHX 1H#Nh `a^aA X^f" f" # X #rr@PhXhthh 2rh #THT$hXrr@PHFa  ?h zhTLT `aQbX `aZrr@P qX `aZqXaDCa@`aA`hB X&A *AFn5F qRrr@P8 n)n# l `araDA@X} a e Xk}aXKa `aLMA@XWrr@PcOh^ he hYhWh\hX c qPs"H"HEEhEG6AD2=d rr@PR@ T A=1!#h0* 1= $9"0$h$! a9(hcrr@Pc aO ,  4    hh AErr@PE (hE aE7 Fh 2 cs c qaaȷrr@PaO S^h & cI  $ c nC h hHŠ  hh*h)hwX$rr@PeTH h\agaev(hh>hbXrr@PHHhTL`TH"h h hHT r0@PHh0rPIUP COMPV4SECTORFJPRET JPRETNJPRET1LOADIN LSTLOCpLSTPRTlPARTBLsLOADSD LIBEDTNUMLU nLOG1A Qr*PSWAPCKUNPIO SWTCH FILE2 IP1 *PLIBEDTP*M LOADSD 2 17X14490PJ P6LOAD1 DECK-ID M36 MSOS 5.0 SUMMARY-110Jr@PXLOADhHXr`P+r@P % rr@P7Q60123456789ABCDEFrr@Pb%rr@P`r`PG`P`PI`Ph@P`a A4a9 a: a>afae/]    T AAhrPLOAD NUMSECLENGTHal2PPRINT3STOP NMPRNTPRINT4PRINT6%PRINT5@2PISKRD2DRIV QPLOAD J PCLINK11 DECK-ID M45 MSOS 5.0 SUMMARY-110Jr@PhA"BaBX!gXa WE9 ; qhXh WQBrD@P+a pqd4" WA" !t݀D PLINK1 PISKWR"ISKRDPLINK1 J PyLOADR1 DECK-ID M46 MSOS 5.0 SUMMARY-116Jr@Ph c A9 X" 1 ;*Ta a<  P#hrr@P+ C3 ;) KA 6 (9h K R Ar^@PVh*PXaaT T  9^PALRMOKLOADERNXTBLKBPG2KRD`FRPROZXTPRORNTPROEZSPROCBDPROAAMPRO,DRIV BPLOADERJ PNAMPR1 DECK-ID M47 MSOS 5.0 SUMMARY-110Jr@P a(!  AX+!)y !aXt3 rr@P+a,! AX_!$XG4 ;xAAAAAyXF3rr@PV aaAyX1# a X(!A e  X1?rX@P5 ; aaa #Òc B aX !fa#R4XPSIGNCKNAMPRO PMPRNT PLOAD J PRBDBZ1 DECK-ID M48 MSOS 5.0 SUMMARY-110Jr@P a  aa9aa Ch~hX{ a%OMhHXrr@P+ya5XQ    QRhXX1rr@PVXa?5 7 6 ;XQr!pXZrr@Pa a?} ah* (H& A aWAAV A rr@Pa R 41Da a9 ;  aXs 9Xr\@P1 x QRa  qr315;qf"q\PRBDPROBZSPROPIGNCKISKWRzRDADRPLOAD J P6ENTEX1 DECK-ID M49 MSOS 5.0 SUMMARY-110Jr@P>a aXQ(wo8 Q6QbX>a aXX  4a ?=a Br"@P+17Q6Qbda "PENTPROEXTPROPXSTORNTSTRP J PXFRPR1 DECK-ID M50 MSOS 5.0 SUMMARY-110J2@Pa a!a"a e?2 PXFRPRO PLRMOK PLOAD J PSTBASE DECK-ID M51 MSOS 5.0 SUMMARY-110Jr@PfH]"a5 " aW X ! X "  a/=a' AAxrr@P+ A( AAy AA!a0We!h  !a1!h/ aW awhwBrr@PV0aa %11; !2aah" audauf ffu2 rr@P ° AA 32 ; 0a1  hGXBhB X< 4aarr@P4apaq4arW4aTaSȝ" a a!Aa Q(Xr2@Pװ!h !h + X  X2 PSTBASE rPNUMSECMODIFYvREFER tLVLSTRADJOF1LNKTBLLENGTHWTBLENDLOAD NUMBERqMAXSECIGNCKNTSTRDPAGERrPLGADRhISKWRPSTBASEJ PLNKENT DECK-ID M52 MSOS 5.0 SUMMARY-110JN@PX0 aQ(a a1Gh X13;N PLNKENT PXIT ATCH ISKWRPLNKENTJ PALNKCR1 DECK-ID M53 MSOS 5.0 SUMMARY-110Jr@P  aX(9aA" a Q(bX "X9XX  r>@P+ h akh9 `Xю h>"PEXIT #LNKCR1LNKCRPLNK01 ="*PRTOUT&ECTNO6DRIV :NTSTRATCH "*PLNKCR1J PBPATCH DECK-ID M54 MSOS 5.0 SUMMARY-110Jr@P ava A9AXbѐя"a ! Q(# aaQh!r@@P+h XXiH+ X/@ PPATCH PISKWR:ISKRDPPATCH J PHTBSCH1 DECK-ID M55 MSOS 5.0 SUMMARY-110Jr@PXX a' aX+X! + X4 a+X.a ' aUva aX   XaUrP@P+ a- AXaXa--A XPPTABSCHEXTSCHPISKRDEITCHKASH PTABSCHJ PHASH DECK-ID M56 MSOS 5.0 SUMMARY-110JD@P A, Aa--",a,B- 1la, Ca+D PHASH PHASH J PUTBSTR1 DECK-ID M57 MSOS 5.0 SUMMARY-110Jr@P B@>j}h4" v!2 ;+ X&A+ A}X +a- AH-X-Arp@P+ H-X-H-X  a+ aX X , 0' #"H"H hpPENTSTREXSTOR6BITCHKFPISKWR?ITTBLQPTABSTRJ PPAGE DECK-ID M58 MSOS 5.0 SUMMARY-136Jr@P HtB HpH"Hm HfHehdxX4"2B1zHZUthXX[2HTRAuwrr@P+hQHQhOYH"F2hC@%h XFXAX! XSh " İS ! a  "RA  rr@Pt d    a q 6 "  "  1  Z rH@Ptl tlRA  A 4H PSCAN PHPU `AVEA P J P CHPU1 DECK-ID M61 MSOS 5.0 SUMMARY-110J(@P "or a RAo( PCHPU PCHPU J PADJOV2 DECK-ID M62 MSOS 5.0 SUMMARY-110JF@PaAVRBcR!d4 4adBaQF PADJOVF PADJOVFJ PaADRPR1 DECK-ID M63 MSOS 5.0 SUMMARY-110Jr@Pfa e! Ao a X 5 daeaQ(a' ae   a rr@P+X e ae  ebEWS4 AQbXE16 X c r"@PVA9 XQ9a " PADRPRO PCAN ,DRIV [PLOAD P*M JOBENT 3 17X14520PJ PJOBENT DECK-ID M64 MSOS 5.0 SUMMARY-116Jr@Pluh;HxJP , 43f A e_ wr`P+`P,r@P-JbG xGb C yDb? zAb  -Bhhhhh/Ls@ #j q `rr@PXdd Ah * hH0hh G00 0H Frr@Ph ! %dZlT  DdTcJP05@ HH" hXTrr@PTX.T ` lhbLLrr@P h X@T hIhFhFldlX C Ar*@P ηhDnTB *PJBENT JBPRO MIPBUFrP11 x7 w5 z3 yJKIN TRANV RESTORNUMLU BATCLU\INPTV4XIUP AFILV4JPSTV4NAMEV4rrPJPFLV4JCRDV4JLGOV4JPT13 JPCHGEJPLOADJOBPROJPSWT RCOVERLIBEDTSWTCH JOBINDMIB JBCNFGrPFILE2 FILE1 vP J P7T11 DECK-ID M65 MSOS 5.0 SUMMARY-110Jr@P1\  "ae"""T \ "\ r&@P+"``a& PT11 "PCOMPV4LOADIN#EQERRJBCNFG2"P J P"T7 DECK-ID M66 MSOS 5.0 SUMMARY-110Jr@P1dBh^heh[THSHShOhOh"IVhFhF#:Hg hFhE"rr@P+1H:<hN5dh5H8 T, h,0f" `&!hh6h5h4h.X&Xrr@PVh hX~hh*  THrr@PT X],  XD% 3h. QhQ Thrr@Ph $γn qȬdh X,h    hhlAȒhrr@PDD@܁{{ X ȼ  X XhhX#haȩ rX@P h[X!Ƞ  hh"hnhhRheh`XWX PT7 rPLPTRS ALOCF ECOMPV4:MIBUF JOBINDJBCNFGSWAPCKUNPIO zLOADINeJPRET JPRETNJPRET1LOADSDkEQERRrP J PYT5 DECK-ID M67 MSOS 5.0 SUMMARY-110Jr@PaaT T aT1`  hh H( \$ rr@P+\  ! TRf"T r@PV`PT5 REQERRMBPCOMPV4 UNPIOFCUNPIO AINTSTKUNPTIM?JBCNCLJLOCF VLPTRS OBP J P7T3 DECK-ID M68 MSOS 5.0 SUMMARY-110Jr@P3 a"$-BF 2 ""a3"a r&@P+ae" aa& PT3 PJBCNFG1EQERR$LOG1A 6P P*S,N1,P 17X14526PP*M JOBPRO 4 17X14527PJ P=JOBPRO DECK-ID M69 MSOS 5.0 SUMMARY-132Jr@PlMHhd ` j A {l,HhDlrr@P+"l2K,BUVZSREOV,CSADBSR,JOCTPAUNFIPUMOREDECLOP123"H rr@PVId۸߸ ׸ 15;tG  qHBXX*> ~Q rr@Pa{ a|J w t3       h`X2 03b  ` fBrr@P / 4 h`X XBLX Xrr@PUh+ hsXzT pa_c`)h #fjk qX`hTrr@P%.9  "F #hhB? ; rr@P-j6f A0 (,* j'f##h T $X J B,r"@PXXX&"r@P`H H# #fB L "Hf# '@ "d AX T rr@PhX hjhTP5hbhah` bX Trr@P WhX `h T JH DTrr@P  b hdhhdl h`lr @P3 JOB ABORTED *T "PJOBTWORF3 JO3T RI "rPBATLSTJBCFGZHREE WO NE VINPV4BATCLULOG1A INPTV4JOBINDFILE3 MIB ZIUP -TRANV rJPNSTACKFILE2 NERRMSGRECOV (JBCNFG^JPSWT #MIBUF JBPROETRNVECJP J PONE DECK-ID M70 MSOS 5.0 SUMMARY-110J@P PONE PO3T  P J PTWO DECK-ID M71 MSOS 5.0 SUMMARY-110J@P PTWO PO3T  P J PTHREE DECK-ID M72 MSOS 5.0 SUMMARY-110J@P PTHREE PO3T  P P*S,N2,P 17X14532PP*M PROTEC 5 17X14533PJ PLUPROTK DECK-ID M73 MSOS 5.0 SUMMARY-115Jr@PlbhwH~huD2hn+Q hfehchd @Ʒ!]rr@P+W "OHQ" HO1 !HJhE T <\ k6"i"f;0"Irr@PV6h" 1Y "Q "J`k`k `k `k 8z(zJ JPJJJrr@P h h hXhl`Q+2lrr@P  H 0` "h T srr@PX|X9X`X  nXmXO "" " qa#a crr@PB  a a{D;arahnH"X l Db h rr@P-X""&1aX QuXX  wwt @r# rr@PXr$ UD+! d+6X X@ a .rr@PTe" TB " \ & . AˀaA  cr-.-.-.-.r@P  a " \ "\  "dddrr@Pdb  j Ahh"r`Pr@P" TT `h'$aI a a a DaDb Trr@P3Db h*  TGT3T 1!/4ahD  > /rr@P^ " ubH A h<T  hrr@P "!h "11"f"TD+!4d+Dbbb+b rr@P@\4   r?" Xrr@P `" H+HP+QhT~ \ < "H 8 2  D+rr@P d4 X+  ThA h h \ \ rr@P5 "#!TA\  \ Š rr@P`  8aa!  hr  qtrr@PT a (\" aAaa8N@XFB$ aAaQ rr@P:A+T v }B8'Q " a " a8Q \ r0@PU A [M`0r@P hbT00 U Hb @  g" q8@TE"ar @PK% rPSWAPONKILL KPROTECLPTRS LOCF IP1 FILE3 PRORETTRNVEC5JBCNFG8JKIN SWAPCK TMRTYPUNPTIM r:PUNPIO LOADINMAXSECMIBUF CCOMPV4HA FLOG1A F:P J P`JBKILL DECK-ID M75 MSOS 5.0 SUMMARY-110Jr@PHGHD  bb BD `!$ h hA3rr@P+ 1 T \ aTddr @PV A  `  PJKILL bPCOMPV43JKIN SJBPROE\JBCNFGQUNPIOFMUNPIO KLOADINIUP FILE3 LOG1A UNPTIMIINTSTKbP P*M JPLOAD 6 17X14541PJ PJPLOAD DECK-ID M76 MSOS 5.0 SUMMARY-110Jr@Pltgsh lpTliDT `jy A hX jy B Drr@P+hs feHB 5? q H9 h V  "Q Q \OX#4 hrr@PVXE ; 9O, 7XX,LL,LG3210/  qrr@P" X!x @ *LIBEDT     ,Nrr@P  hLj `XaBHLR2 q7hA"  ,6 ȥh02rr@PH+X> #b#Ah  $Ωn qȠd)0403lx rr@P h HTHX H LHuQH Drr@P-D@ ` h*`h(%hdhlSH T  X\rr@PXX " X05 h7ab2 ""(Dh"`  hrX@P H   r r4hʀXPJBL JP1 rPJOBINDCOMPV4MSWAPCKUNPIO BRKPT LOG1 FILE3 vFILE2 uJPRETN/JPRET1-JPRET 1LOADIN7LOADSDeIUP rZPTRANV JBCNFGJBCNCLLIBET MIB LOG1A PROTECRELS1AJBPROE+PRORETTRNVECZPJBL P*M JPCHGE 7 17X14543PJ P>JPCHGE DECK-ID M77 MSOS 5.0 SUMMARY-110Jr@PhJWlCDd"*Vh    "SYȠ  "rr@P+ @X"  dDdT  h` hA?Vrr@PVh=8XV3Adj6/rp*Bqlj,C  `!#aQr  Xp hT0rr@P  Xi hMMhM'  X` hD  h64  .h̝rr@PhIh"H"  " 1 (&  hl8rr@P 104b TT  X   H[Dh "DF  rr@P  "SF   hȠ  @/X\C!HH Tr2@P-x A !2PCHANGEOJPCG jPMIBUF JBPROECMIBX ;MIB LOG1A FILE2 GTRNVECIUP SCHEXNUMLU VINPV46MIINP JBCNCLjP J PUASCHEX DECK-ID M78 MSOS 5.0 SUMMARY-110Jr@P HO hOhOhO""MH XEV" X Q3 8 ,r^3 Y "  rp@P+ rD rR 2b  2yRBBl FԠh Fhp PASCHEX P P*M JPT13 8 17X14546PJ PT13 DECK-ID M79 MSOS 5.0 SUMMARY-110Jr@P-H3 abb H{x A"bHmrr@P+hu@"a2 aG4 \= hL\6 6hWhVhPhO L!5rr@PV r2""h;h:h9X78S h" 2S/h \ +T Uhrr@P h XTB` h  (,Ah " rr@P " hH b"!f"q!H T hh`h_`h drr@PDb f"h`T hT T hQH T `9 rr@P2 `(&$ `4!w1d(h~Axvb @a rr@P-alH  b Dd"r`PX7 PT13  :PCOMPV4xMIB 7FILE2 >LPTRS LOCF SWAPCKSCHERR:P P*M JCRDV4 9 17X14548PJ P^JCRDV4 DECK-ID M80 MSOS 5.0 SUMMARY-136Jr@Ph~lDdh`h YO, g #" j qT rr@P+ a Or`PVr@PYUS T aT  a READY?  rr@Ph `  B, x r 15b ```rr@PB d b  j qXFDi X h=X=;` Xv` #" rr@PjY q/hș5h IhET $aK  rr@P|y = " X'Ajv""QH XYjf h hrr@P003b S ,rU  rC rQ2H > :l  B r@P[ PCRDV4 RPFMPFLGLOG1A MIB FILE2 AUTFB AUTFA AUTF9 TRNVECMIBUF JBPROERP P*M JLGOV4 10 17X14550PJ PJLGOV4 DECK-ID M81 MSOS 5.0 SUMMARY-110Jr@Pl"H `j A h j B Dsh rr@P+04l   XX @  T u XsphB" hSrr@PV hQXhM" XC l l+h=Dh:h9`HJ3TF \A`rr@PX\:T 5h T `h HTHrr@P E5 E10 BRKPT X H LHaR_H DrJ@PD@ X X XX6aHI?J PJLGV4 bPCOMPV4wSWAPCKUNPIO BRKPT FILE2 $JPRETNJPRET1JPRET LOADINMIB JBPROETRNVECbPJLGV4 P*M JPSTV4 11 17X14552PJ PbJPSTV4 DECK-ID M84 MSOS 5.0 SUMMARY-110Jr@Pl d   h`2 +J"bll"`rr@P+ B  ` d dd7 ` bbbb b dlDT" r&@PVhT & PV4JPV4 RPMIB JBPROEFILE2 RELFLEQIP1 KLOADIN>JOBINDD_1 '# Xj{h'h hXTrr@PXXjl h h`$  h"  hDTrr@P DDX ݐ'h& h} h Cj, qT D&X rr@P- jػ hVXT   `  1700 MASS STORAGE OPERATING SYSTEM rr@PXVERSION 5.0 DATE OF RUN: MM/DD/YY SYSTEM ID:  (MMrr@P/DD/YY) X++  ++rr@P+++  ++rr@P++++++rr@P+++++)rr@P/)++ !"+#$%&!'*+*'!&%$#+rr@PZ+!'-)++++rr@P(,+"! +(,,(+(,+  +++++++++rr@P++++++++8p8p?8pppx888888r@P8x PNV4 RPJBPROE@TRNVECNADAYTO2AMONTO.AYERTO;SYSYER!SYSDAY'SYSMONSYSID FILE3 RP P*M JPFLV4 13 17X14556PJ PoJPFLV4 DECK-ID M82 MSOS 5.0 SUMMARY-110Jr@PlhhhHiHef2Hd@JZ2  H" "h "h 0FA hT rr@P+a hBH `Ah" Hhh-harr@PVadX A) aXVȫnr`P r@PDEFINERELEASOPEN CLOSE MODIFYFILTBLPURGE REW UNL F-X-1rr@Pmvvȴ` X =  ñ ʿ h L2    ʭa rr@P" 1(X#"Xf"bb"'"! -I G E E CS rr@P 04 H  f"h l >" XV" rr@P6aaa" X X" 5a8a ;a " X XX X"rr@PaR "W  f" XJ h "3"a X`X hrr@Pn 1Dl  h a a A f"bbXa , ( rr@P7 6 2 1  1 4  1 3"a" f"ؽ"rr@P4 "X"Ƞ 2 2X"X* 1 hX"hXh  (  Srr@P Hh00"HH "44rr@P8A2H Ƞ  " " 0"Xf"1r&@Pc ("D ݀& PJPFL bPPARBV4FILE3 iLOG1A nADAYTOMAMONTOJAYERTOPJBFLV4MIB TRNVECJBPROEPKEYV4rMIBUF bPJPFL P*M AFILV4 14 17X14558PJ PnJPF2V4 DECK-ID M83 MSOS 5.0 SUMMARY-110Jr@Pl9h9H792H7@62H4A32HH/ h'&m%$ 1 ` - rr@P+aXEHbc"B^r`PV`P^`r@P NAME DATE OP/CL R/W 09NT~JJX13>Xrr@P@f"bbbbbb b bX"X&f" b b b b b!brr@P!bbXXLX10 hDf"  X X Sh h h rr@P?XhTTT` #07XJ!2brr@Pjb Xb$b 14X)12bbHX`12rr@PDaaa"%!0!- 72 h7Df"4  Xvrr@P  XLDaX,bbaaXc 1 Dlh rr@PDaaX "HP"=hJ@`"aaaaaa &OPa rr@PENCLa OSaEDa)WRaITaE  REaADa a`XXX rr@PAf" hXe"h   H X"hT` htrr@Pl"4 "h hH h T``"E "rr@P  XHDaDaaa" ;&arr@Pa "!aa X "rr@P   1104b  h l HTLrr@P&`"  n qaXC2ÁH+Xrr@PCh&)"H$%D  E`HhT0 br PJPF2 RPRELFILGJBFLV4FBASV4Tcrh@P X DB I/O ERROR XfJhJPHANDLE7BRIPR1bERROR rIOERR SOMMORwSOME yMMADDR}MSG OFF oJrPNUMLU CHRSFGODEBUGDCONV ECONV NAMEMSFLCVDBFLCVSGCONFM MASOT PNTMD FETMM GETINTDECDMPr:PHEXASCASCDECDMPBUFASCHEXGETFLDPRINT GETREQ[:P J P GETREQ DECK-ID N08 MSOS 5.0 SUMMARY-110Jr@Ph9"!h:h6h14h31h0h-(h(  \$"`     rr@P+   q !WA \h`Aa" OFF LHX DPC SCN SET MBCrr@PV SCH SPE CPP SPP ADH SBH ALC REL DAC PTH ADF BSF ADR BSR WEF REW LHC LHO LHM DIC MSD Crr@PLU LIT LIM WCD RDC LAS DAS MLU DPT LSP DSP LDP DDP WDK RDK SMP CCC MMM DMH DMI DMA DMSrr@P DMD CWA CCM CMM SMN UNL SLD LIC LAC LIO LAO LSO LDO LAM LSM LDM LSTrr@Pr4@P4 PGETREQ rPMSG &OFF %MMADDR$BRIPR1#HANDLE"LSTREQLDMREQ LSMREQ LAMREQ LDOREQ LSOREQ LAOREQLIOREQLACREQrrPLICREQSLDREQUNLREQSMNREQCMMREQCCMREQCWAREQDMDREQDMSREQDMAREQDMIREQDMHREQMMMREQCCCREQrrPSMPREQRDKREQWDKREQDDPREQLDPREQDSPREQLSPREQDPTREQMLUREQDASREQLASREQRCDREQWCDREQLIMREQrrPLITREQCLUREQMSDREQDICREQLHMREQLHOREQLHCREQREWREQWEFREQBSRREQADRREQBSFREQADFREQPTHREQrrPDACREQRELREQALCREQSBHREQADHREQSPPREQCPPREQSPEREQSCHREQMBCREQSETREQSCNREQDPCREQLHXREQrP J PLHXREQ DECK-ID N09 MSOS 5.0 SUMMARY-110Jr@Ph$`h%h hDhkhkhkhkh  \ \ ; Z:hWȠhU rr@P+IIhGhIX)@ X$` >g"  \6 2n0 "Da rr@PV hȵQ7$ȯdȫB tj ضDh r`P! PLHXREQ P J PDPCREQ DECK-ID N10 MSOS 5.0 SUMMARY-132Jr@Ph=`h;h: h[DhZ hZ  \/    ' \$EjD HBAB?h;h6=:rr@P+4h761T!  6 5 hh #" H \ \" "r4@PV H \ \4PDPCREQDICREQ PCOMPV41 P J PSCNREQ DECK-ID N11 MSOS 5.0 SUMMARY-116Jr@Ph[`hYhXCh> hTDhS  \M    E \BAjK H>AG hDDhArr@P+C@>>9h<:#91551  ! hT #h  \ rN@PV"" CELL CONTENTS N PSCNREQ PHANDLEpOFF qCHRSFGRP J P`SETREQ DECK-ID N12 MSOS 5.0 SUMMARY-110Jr@Ph.`h,h+ h*  \%     \j HAL#1 1r @P+" PSETREQ P J PMBCREQ DECK-ID N13 MSOS 5.0 SUMMARY-110Jr@Phn`hhjhi hh  \c    [ \XWjV HTBSh6Ol \H0rr@P+*H#D3A4A>1;":38!44'0$..!,l))"($%%3"rT@PV"hl h h#1 1T PMBCREQ P J PSCHREQ DECK-ID N14 MSOS 5.0 SUMMARY-116Jr@Ph\`hZhY)h hW  \P    H \EFjE HCADXdMTArr@P+d/"T   X4aOK hhhhQhhrr@PVT"R FIRST WORD DATA ( ) CONFIRM  DB REQrr@PUEST ABORT h H X  hX Hh q  : j H I r`P"@Pf" f"" PSCHREQ P J P`SPEREQ DECK-ID N15 MSOS 5.0 SUMMARY-113Jr@Ph>`h<h;  \7    /   u \$hDh ;rD@P+3hh  h \D PSPEREQ P J P`CPPREQ DECK-ID N16 MSOS 5.0 SUMMARY-110Jr@Ph,`h*h) h(  \#     \j HA"# 1r@P+" PCPPREQ P J P`SPPREQ DECK-ID N17 MSOS 5.0 SUMMARY-110Jr@Ph,`h*h) h(  \#     \j HA"# 1r@P+" PSPPREQ P J P`ADHREQ DECK-ID N18 MSOS 5.0 SUMMARY-110Jr@Ph(`h&h% h h"  \     \ h  H A \"r @P+ PADHREQ P J P`SBHREQ DECK-ID N19 MSOS 5.0 SUMMARY-110Jr@Ph(`h&h% h$  \     \j HA h \"r@P+ PSBHREQ P J PALCREQ DECK-ID N20 MSOS 5.0 SUMMARY-116Jr@PhO`hMhLDh? hH  \C    ; \87j6 H4B 1! ̸)rr@P+h'hTb H \( \ T"r6@PV CORE ALLOCATED FROM TO 6 PALCREQ P J P`RELREQ DECK-ID N21 MSOS 5.0 SUMMARY-110JF@Ph`hh  \ \ 6hT  F PRELREQ P J P DACREQ DECK-ID N22 MSOS 5.0 SUMMARY-116Jr@Ph|"hzvhgh* `hqBjt " jm i4,"`]! j_ j^ rr@P+HUT BHMHJKIhK \@DC@Em A :j}  *jz H4 0js.rr@PV--h(- \!%$"je  hhT] Dh "rr@Pjr`P*@P ALLOCATABLE CORE MAP * PDACREQ PLEND LVLSTR P J P PTHREQ DECK-ID N23 MSOS 5.0 SUMMARY-116Jr@Ph|`hzhyeh?hn@ht ht  \m    e \bcj_ H`A[[`  rr@P+"`jV"jUjT$`   4 jG H@T b h7Dh655h13 \(rr@PV-,* )jS'%#X " X8j? HT;rr@PY LOC. WD1 rZ@PWD2 Z PPTHREQ P J P`MTRREQ DECK-ID N24 MSOS 5.0 SUMMARY-116Jr@PhN`hLhK  \GX7h 2 A  \=X-119 h62` H 1hTwrr@P+% 6h!"""     \hP`pr @PV 0 :PMTRREQADFREQBSFREQADRREQBSRREQWEFREQREWREQ:"POFF >HANDLE?CHRSFG2NUMLU *"P J PMSDREQ DECK-ID N25 MSOS 5.0 SUMMARY-116Jr@Ph|`hzhy>hWhv1h0h 2/!}T  `lc]" h  \W!,rr@P+ hh   \HK  hK#0"#hrr@PV hhhT #a""  j j  rr@P h  \     \j H B   \   r*@P  H  a R* PMSDREQ PCHRSFGfHANDLEmOFF nP J P`CLUREQ DECK-ID N26 MSOS 5.0 SUMMARY-110Jn@Ph&`h$h#  \ \ h"FK   1 n"n PCLUREQ PNUMLU %LOG1A P J P`WCDREQ DECK-ID N27 MSOS 5.0 SUMMARY-116Jr@PhQ`hOhNh:hL \GH  BBBh1H/  \: \8 h"  \. \,!rr@P+h X h hhTc ""DBr`PVPWCDREQRCDREQP J P LASREQ DECK-ID N28 MSOS 5.0 SUMMARY-110Jr@Phz`hrhwHt 4ht  \m \k   \a \_h  WahOhVhSrr@P+Xp PN HC `B :H;QH h8 23S / H*h,QXD'$% rr@PVX=` ζg"  2 \E  An "rr@P  \ \j%   qj "U37$2r`P(PLASREQLITREQPOFF HANDLEP J PDASREQ DECK-ID N29 MSOS 5.0 SUMMARY-116Jr@Ph~`hh|~hHtB@4h@hohq hhl  \f    ^ \[\j HXrr@P+ D!hXWhXR h>h>  nH DLXc"rr@PVHX^tl8DXY"XUt n. hF L l Hع   ȴ  rr@PX hT  "U37$2c"Ȃr0@P h"  1  :0 PDASREQ PCHRSFGOFF NHANDLEMP J P`MLUREQ DECK-ID N30 MSOS 5.0 SUMMARY-110Jh@Ph$`h"h!  \ \h" (EK    n"h PMLUREQ PNUMLU #LOG1A P J PDPTREQ DECK-ID N31 MSOS 5.0 SUMMARY-116Jr@Phl"hjhnghE"RBHaH`HDaHWTjV`jcML JDhGrr@P+GBhBQ%>A \9n9L \4l4 \0bPTh^/ifH h h)T c"rr@PV h" hUNh=USh;EDh9 @r`P`PH@P PARTITION CORE MAP PT JU H PDPTREQ "PLSTLOCLSTPRTPARTBLBUSY "P J P`SLDREQ DECK-ID N32 MSOS 5.0 SUMMARY-116Jr@PhI`hGhF1h:  \@ \> h2"< (EK  /,`   h rf@P+  \  \" 1hT! "fPSLDREQUNLREQPNUMLU LLOG1A P J P CWAREQ DECK-ID N33 MSOS 5.0 SUMMARY-132Jr@Ph=`h=h9h88hb H5 jvB  H- `B H&"QH hc _  7 rr@P+8 2 2   QjN H` ?iG  X'h2 X$B81rr@PVh.,8.H,*H'XNHHhH#XJHAhA XFHChCT.! " @ttrr@P` SECTOR/WORD ADDRESS = --  -- rT@P HH 1  : j J ȈT PCWAREQ P J PDMHREQ DECK-ID N34 MSOS 5.0 SUMMARY-116Jr@PhT`hRhQhQh! hL \GI   \@ < \9 `h h>7h 6h T `rr@P+9c$" h) #$h# \"՘h" h h rr@PVr`P>PDMHREQDMAREQDMIREQP J PSMNREQ DECK-ID N35 MSOS 5.0 SUMMARY-116Jr@Phd`hbhahh@]ht \Wh:h9 hWhU  \L \J   K  Arr@P+Aj; H= A  \- \+h0. h-hl((hjT `b " rr@PVT9PPh"Oh[ȹXZJȷXWJȵXTJ~XPKTrr@Pa'""RӘhH!Έh !hȧ `h#آhrr@P6> CELL CONTENT ( ) hHX Hrr@Ph q  : j H I Ȉf"Ȉbr`PT PSMNREQ PHANDLEOFF CHRSFGP J PSMPREQ DECK-ID N36 MSOS 5.0 SUMMARY-116Jr@PhS`hRhOh3h5 \J1  \F  \A" :   \5 \/ j,rr@P+   `h 2hT `c"Иh# ""hr`PV` PSMPREQ P J PLSPREQ DECK-ID N37 MSOS 5.0 SUMMARY-116Jr@Phj`hhhg  \c \a   \Y \Wh  OahNhMhWX|  \BTrr@P+TGa"HHH'X h ."V"h HTfTrr@PV" \$T,j-+j, `6 \ d"nr`P `P0@P "U37$20 PLSPREQ PMSG OMMADDRNECONV PP J P DSPREQ DECK-ID N38 MSOS 5.0 SUMMARY-116Jr@Pht`hhkhkhhhhf hb  \^    T \RQjNXJ rr@P+Asq!nohlllhjDh7 #n q^LX""YHXtl"TDX"OXrr@PVt n hGhIEDhGBTG  1  :a"HHH'X  h rr@P"V"h HTfT" \Tr`P r@P lش  !خحدȮ ܘ1Ȱ ZhT $a 4hrR@PX""" "U38%{2R PDSPREQ 2PCHRSFGHANDLEOFF MSG MMADDRECONV 2P J PDMSREQ DECK-ID N39 MSOS 5.0 SUMMARY-116Jr@Phw`hhnhnhkhhh6 \b2  \^ \\ UhQ$h#h (hhTrr@P+ bDh> ` c  X,aX)AaX%h$rr@PV /A aA hh_h] HTG+ HH 1 rr@P : j J Ȉa"HHH'X h "V"h HTrr@PfT" \T rr@P׊lؙ  !ؓؒؔD HBȐ  0 h-4Q+oȩ ahT $arr@P$ h hvwhmh hphpht  \h  e   \ \WWrr@P+jYXxRQ A"KI6hFH3G1?=x3:)՘7d%"2!h.rr@PV0/e#-2&'`"" "" h H`H_ T >rr@Pc"CXD2AXA7T,a0`- "U37rr@P$2 CELL CONTENTS () () h H X rr@P hX Hh q  : j H I Ȉf"Ȉ r @Pf" PCCCREQ PCHRSFGHANDLE$OFF %P J P CCMREQ DECK-ID N42 MSOS 5.0 SUMMARY-116Jr@Ph``H^4h\hYh8h h~h~h}  \L \JtjuX}oTmll6a h6rr@P+ 6bbq \.^ `h Wh Vh T `ic"C` "X<rr@PV>" *"%h%h H%h$ \ \ rr@P\%Z`  "U37$2r`P] PCCMREQ PCHRSFGHANDLE"OFF #P J P CMMREQ DECK-ID N43 MSOS 5.0 SUMMARY-116Jr@Ph?`H= 4h<h8 huh6Xh*hk \-g  \) \'4 Xph"hX rr@P+\TNhMh OhNhT0z{T 0c" H&[rr@PV R\ \L \v H ȥ h- r`Pr@P ! 0"h 0"h  \ \ h" (EK  r`P0`P0 PCMMREQ *PCHRSFGlHANDLE#OFF $NUMLU LOG1A *P x PMMMREQ DECK-ID N44 MSOS 5.0 SUMMARY-116xx@Pho`hHj'%4hhd h{hwXhuh{ \Ywqtjfsjeiho! Hg H#Xnh_xx@P+hd@` <NKhW"KHhT rR( $hJ HG h@hBhBhJh$ hrBCX\Xxx@PV h78hg h6+/ #h&.XF$ $5"!  #h "xx@P`Ww  \ \ hw" (EK  xx@Ph hHJ#"h!h h h T c" ʵ"ڱjț`xx@P (ȳ h&UةH h Hh șh Ȕh ȓh T  dxx@Pl \f cO\"xx`P-(xxPMMMREQxxPCHRSFGHANDLE-OFF .NUMLU LOG1A xxP xJ PLICREQ DECK-ID N45 MSOS 5.0 SUMMARY-118Jr@Ph}`hhzhyh{ hsho  \p \nhjhe  c  `hZh_hbaXXhVhrr@P+X R hON, HG `B H>QH h6 51T  0(rr@PV) H*h+"j%Q# h  \ \j Z rr@P hh  \ \ j /Ӡ hrr@PȠ h  "U37$2 h: H7  \32rr@Phh+0hh)X hT(c"HȔ2 \""T rr@Pdq` g" gr`P-PLHCREQLACREQLICREQP J PLIOREQ DECK-ID N46 MSOS 5.0 SUMMARY-116Jr@Ph`hhh~ hyh  \w \u sX  \m \k   \d \b  hYrr@P+h^ahWhUhZ Q A HIM- HE `B H<QH h9 rr@PV34T /(, H(h*!j#Q!V  \ \j H rr@P hh  \ \ jm ژrr@PԠ hȠ h  \?>hh+=hH;TG  1  :b#rr@PHHH*X h "V"h HTiT" \Trr@P Ȋlج  !ئإاȦ rr@P͘1Ȩ bhT $aȷ4hL" "U38%r@P|2 PDDPREQ 2PCHRSFGOFF #HANDLE"DCONV MSG MMADDR2P J P LDPREQ DECK-ID N49 MSOS 5.0 SUMMARY-116Jr@PhY`hWhV  \R \P   \H \Fh@`  jA=j@`1 \2 c"*nrr@P "U37$2r`P PLDPREQ PMSG PMMADDRODCONV QP J PLDOREQ DECK-ID N50 MSOS 5.0 SUMMARY-116Jr@Phy`hhhh  h hh \w(  \r \p" kX  \g rr@P+\e   \^ \\hhY Q \O ahZ \E|TGa!rr@PVHHH'X h 5h@11-"/V"h HTgT" \LT"rr@PYj\Xj[WjZ`7h hh hTaH rr@P\1 T .I ` g" "r`P`Ph@P h HH`0#  "h hhy hhPLDOREQLDMREQPMSG MMADDRDCONV P J PDMDREQ DECK-ID N51 MSOS 5.0 SUMMARY-116Jr@Phz`hhqhqhnhhh6 \e2  \a \_ XhT$h#h hhTrr@P+ bDhA ` c  X/aX,AaX(h'rr@PV /A" aA hhbh`h^ HTG+ HH rr@P 1  : j J a"HHH'X h "V"h Hrr@PTfT" \Tr`Pr@P lؑ  !؋؊؉؋Ȋ K HI $ h!3Bdȡ ihT $arr@P  h=h]/ h,U"Q""hC rd@P5#d PDMDREQ 2PHANDLE.OFF /CHRSFG MSG MMADDRDCONV 2P x P WDKREQ DECK-ID N52 MSOS 5.0 SUMMARY-116xx@Pha`h_h^h^hO hY  \T \R  \N \L \HJ ChXXxx@P+5sd44b4#*@h]iJӘ4  `h hh h T xx@PV`6n"WȨ1" `lؗț!xx@P"hxx`P>xx@P "U37$2xxPWDKREQRDKREQxxP xJ PLSTREQ DECK-ID N53 MSOS 5.0 SUMMARY-116Jr@Phi`hh>"V"h HT  `oa. >)h% `%h$$Y h h drr@P+!@hP#9"65 T  c"ɘ""rr@PVh ohȹ "صhH >hh ` i h hr`Ppr@Pr>@P> PLSTREQ rPLDMREQLSMREQLAMREQLDOREQLSOREQLAOREQLIOREQLACREQLICREQSLDREQUNLREQSMNREQCMMREQ+CCMREQ*rrPCWAREQ0DMDREQ DMSREQ DMAREQ DMIREQ DMHREQMMMREQ(CCCREQ)SMPREQRDKREQWDKREQDDPREQLDPREQDSPREQrrPLSPREQDPTREQ&MLUREQ.DASREQLASREQRCDREQWCDREQLIMREQLITREQCLUREQ/MSDREQ DICREQLHMREQLHOREQrrPLHCREQREWREQWEFREQBSRREQADRREQBSFREQADFREQPTHREQ$DACREQ%RELREQ#ALCREQ"SBHREQ-ADHREQ,SPPREQ rjPCPPREQSPEREQSCHREQ!MBCREQ'SETREQSCNREQDPCREQLHXREQNAMEMSCHRSFGNMMADDROFF MSG jP J PPRINT DECK-ID N54 MSOS 5.0 SUMMARY-116Jr@Ph`h h hTh ""-3:BG S rr@P+^_ j v  DEBUG IN DEBUG OUT DB I/O ERROR NEXT  DB Frr@PVORMAT INCORRECT DB INVALID REQUEST DB SEARCH FINISHED DB NO CORE AVAILABLErr@P DB ILLEGAL LU DB ILLEGAL MM ADD. DB ORDINAL OVER MAX. DB ORDINAL LENGTH r@PZERO  PPRINT PERROR MSG P J PGETFLD DECK-ID N55 MSOS 5.0 SUMMARY-110Jr@Phq`h!Hn00 c A ,a  a  h] hY `h\EBX QH rr@P+hJ  GHDC?>hB9`@a =a A H531$0h.!3 `h0E h@rf@PV HU c  c H h A A,/0f PGETFLD P J P`ASHX DECK-ID N56 MSOS 5.0 SUMMARY-110Jr@P`h.BLH,H,QH =" ,tlM  !" 1 E BH r*@P+ H* PASCHEX P J PDMPBUF DECK-ID N57 MSOS 5.0 SUMMARY-116Jr@PH@hw`hFB 0'h?#=pMSG ?CHRSFG6P J P`ASCDEC DECK-ID N58 MSOS 5.0 SUMMARY-110Jr@P`Dh8h6  j ! Ƞ j! w `   hD "D 1r@@P+ ) h ad'd @ PASCDEC P J P`HXAS DECK-ID N59 MSOS 5.0 SUMMARY-110Jf@P H!hDh HBh ! ASht f C Hf PHEXASC P J PDECDMP DECK-ID N60 MSOS 5.0 SUMMARY-116Jr@P h@`h7h: h7 h72h- s h7H7B@5m&0X5.. h+hrr@P+""X hT c"̹ lض +- h%dhrl@PVmB0F 0MB0F 0ȽmB0F 0MB0F 0ȽmB0F 0ml PDECDMP POFF .MSG /CHRSFG&P J P FETMM DECK-ID N61 MSOS 5.0 SUMMARY-132Jr@P Hgh+`h+h'h&h[ R H ` hhhhB H QH h 0r`P+r@P, &    7 8 2 2    h'(ۈh 1rr@PWb Hj$ H !ȿ`A Ȼa ȵa  0`Hh " hHrr@P h(" Hh `(Hh" LؾlJ r:@PH n  H""hhhʀ: PFETMM PLOG1A P J PPNTMD DECK-ID N62 MSOS 5.0 SUMMARY-116Jr@P hZ`HYXhLQ@ Q `HN"J IXQHixFXMIvivBAXHh@; B / Ij6rr@P+ Ifif, +" Ɉh&""X'IWiW B QhHTrr@PVq"6 @ @ HH 1  : j J rh@PȈ MASS MEMORY DATA / ( ) / ( ) h PPNTMD P J P MASOT DECK-ID N63 MSOS 5.0 SUMMARY-116Jr@P HShS`hWhS"""hAh@h?"h=ވh70hy h3rr@P+x ` c   X)aX&AaX"h! /A aA ` gl-rr@PV HH 1  : j J Ȉ"rr@P۠#  AaA hȘX hT 'ȯ`b " rr@P]ȬȧhsHXAaH) H(@"%d9$Hi  ` +A rD@P׈ 0a  'd 00D PMASOT PHANDLEOFF CHRSFGP J P CONFM DECK-ID N64 MSOS 5.0 SUMMARY-116Jr@P `hhhgfh[ hHhbHbh` hW]]XF hohsOTR he haheCDhcXrrr@P+HZhZ<=XmHZhZXP34X}Q88X,+.22XT #c"OK!rr@PV!X l hHTa % .3 NEW  OLD rr@P VERIFY DB REQUEST ABORTED HFHB 1  :>j7 D: rr@P730.+ H+ H)@"&d9%Hi  ` +A Ȉ 0e" r6@P Aa'd 006 PCONFM P J PGETINT DECK-ID N65 MSOS 5.0 SUMMARY-116Jr@P HMhJ"hH`hF hyh{hxhxhshs< g" q4`hp Hm `B HffQH h` rr@P+`\ { ! 1Mf"2  H " b A @9    rr@PV..H,)H& n !       rr@Pn n̿ C Ad n` 1 (܈ hr @P f" f" f" PGETINT P J P FLCVSG DECK-ID N66 MSOS 5.0 SUMMARY-116Jr@P Hh*`hk/hh# hKX?NEh!W hOLh$D h">>XA hHT  qrr@P+v VERIFY DB REQUEST ABORT  j qrr@PV ! ̠h؝"hؘTGb2HHRH-X (h "V"h rr@PHT ` SȊRi # fT"ίh= άh;\rr@P8 XΦh3 Σh1\. XȟXbȚ hTȔXU hT arP@POK$ȀX?K"P PFLCVSG PMSG MMADDRECONV P J P FLCVDB DECK-ID N67 MSOS 5.0 SUMMARY-116Jr@P Hh*`hp/hh# hPXDNEh"W h OLh(D h&CCXF hHT  qrr@P+{ VERIFY DB REQUEST ABORT   rr@PVj q "& ̛hؘ"hؓTGb2HHXH-X  (h rr@P"V"h HT ` \Ȋ[i  "fT"ίrr@PhE άhC ΩhA\= XΣh8 Πh6 Νh4\0 XșXWȔ hTȎXJ hrr@PT aOKyxX2>"r`P PFLCVDB PMSG MMADDRDCONV P J PNAMEMS DECK-ID N68 MSOS 5.0 SUMMARY-110Jr@P ***** DEBUG COMMAND LIST *****  $$$ CORE DATA OPERATION $$$  1 Drr@P+ATA LOADING LHX -- LOAD HEX CORE LIT -- LOAD CORE INTEGER LAS -- LOAD ASCII Trr@PVO CORE LSP -- LOAD CORE SINGLE PRECISION LDP -- LOAD CORE DOUBLE 2 DATA DUrr@PMPING DPC -- DUMP CORE HEX DIC -- DUMP CORE INTEGER DAS -- DUMP CORE ASCII rr@P DSP -- DUMP CORE SINGLE DDP -- DUMP CORE DOUBLE $$$ MASS STORAGE OPERATIONS $rr@P$$ 1 DATA LOADING, MASS MEMORY LHM -- LOAD MM HEX LIM -- LOAD MM INTEGER rr@P LAM -- LOAD MM ASCII LSM -- LOAD MM SINGLE LDM -- LOAD MM DOUBLE  2 DATrr@P-A LOADING, CORE IMAGE  LHC -- LOAD CORE IMAGE HEX  LIC -- LOAD CORE IMAGE INTEGER rr@PX LAC -- LOAD CORE IMAGE ASCII  3 DATA LOADING, ORDINAL LHO -- LOAD ORDINALrr@P HEX LIO -- LOAD ORDINAL INTEGER LAO -- LOAD ORDINAL ASCII LSO -- LOAD ORDINAL Srr@PINGLE  LDO -- LOAD ORDINAL DOUBLE  4 DATA DUMPING, MASS MEMORY DMH -- DUMPrr@P MM HEX DMI -- DUMP MM INTEGER DMA -- DUMP MM ASCII DMS -- DUMP MM SINGLE Drr@PMD -- DUMP MM DOUBLE MSD -- MASS MEMORY DUMP BY SECTOR 5 MASS STORAGE READ/Wrr@P/RITE RDC -- READ DISK TO CORE RDK -- READ DISK WCD -- WRITE CORE TO DISK WDKrr@PZ -- WRITE DISK $$$ AUXILIARY OPERATIONS $$$  1 MAGNETIC TAPE STATEMENTS rr@P ADF -- ADVANCE FILE BSF -- BACKSPACE FILE ADR -- ADVANCE RECORD BSR -- BACKSPrr@PACE RECORD WEF -- WRITE EOF  REW -- REWIND UNL -- UNLOAD SLD -- SELECT DENSITYrr@P 2 CORE  SCN -- SEARCH CORE FOR PATTERN SMN -- SEARCH MM PATTERN  SET -rr@P- SET PATTERN IN CORE SMP -- SET MM PATTERN SPE -- SEARCH PARITY CPP -- CLEAR rr@P1PROTECT BITS SPP -- SET PROTECT BITS SCH -- SCHEDULE PROGRAM ALC -- ALLOCATE CORrr@P\E REL -- RELEASE CORE PTH -- PRINT THREAD DAC -- DUMP ALLOCATE CORE MAP DPT -rr@P- DUMP PARTITION CORE 3 MOVE DATA MBC -- MOVE BLOCK OF CORE MMM -- MOVE Mrr@PM TO MM 4 COMPARE DATA  CCC -- COMPARE CORE TO CORE CCM -- COMPARE CORE Trr@PO MM CMM -- COMPARE MM TO MM 5 OTHER ADH -- ADD HEX NUMBERS  SBH -- SUBTrr@PRACT HEX NUMBERS MLU -- CHANGE MM LU CLU -- CHANGE LIST UNIT CWA -- CONVERT WORDrr@P3 ADDRESS TO SECTOR LST -- LIST COMMANDS OFF -- EXIT DEBUG DX -- ABNORMAL Er@P^XIT AFTER MI PNAMEMS P J P DCONV DECK-ID N69 MSOS 5.0 SUMMARY-110Jr@P hTXHdhb`  0c   +aa .a Da aah?h>"h:3G  rr@P+ -aX[}.-@+.!m h2)h% h$h$ h,X.[!@$"!XF[ rr@PV @ !@BPXR[@B0FH 0 n rr@P 0n hXr[@Xh 0 n XXY~ۭ@  -n rT@PhX[@ȩ6ȯh hhرȭ`  *c  \T PDCONV "PFIX FLT FLOT AZY2 "P J PLAZY2 DECK-ID N70 MSOS 5.0 SUMMARY-110Jr@P HY"hS`  jEB  hKhLhGE Ah A hXX_ r@,+22rr@P+ h0 (+h(& "h # hXX"_S@  hr`PVr@PY  "hWH HH!dh XA[G@ [! HXn@rr@P  6X~[}@ n n ȿnfR!۠QJ|Ow5M^LLK@JzHr,@PGN E}CBP@, PLAZY2 PFLT >FLOT P J PODDFLT DECK-ID N71 MSOS 5.0 SUMMARY-110Jr@P X`A"""a* "a)*$d)RA) R  B H )g*adrr@P+aXD X1A"""a**!da)a*) ! A+ )hX)X"2 rr@PVA)*qd)RA)HX HL@a a`"xr`P$"PDFIX DFLT /AVOLA aAVOLR p" PFLOT J P J PODDFTN DECK-ID N72 MSOS 5.0 SUMMARY-110Jr@PXADa a aaDa"a 1 aBa_```_)[rr@P+`V3B A  aXz aXuaa a ! AAA'dRARArr@PVa2H aaaaDaaaa aXX=bbbXrr@PhXTAAAa *aAAidadada rr@PaaAa' dXX)#arr@P! AaA! ! A! ! A! Aa AXa A! !  Xā XArr@Pa! AXa""aaA Aa a  A 3A a srr@P- Aaa ca 1 mAa$aAaarr@PXa"G #a a a aaaa#a"a[X7X|#rr@Pa 1  #0ad a  ! 1 3d   #2d rr@PA d ( 2adaa1 aDa1 bAaad A2aFrr@P ad2aa1 aa1 aDa1 aaaa#aa aa a A'rr@PRARAda 2H a a a a   ! aa arr@P/a a@@ XidadRX_aA arr@PZA !d2H a "a  a A a Aahdadarr@Pdaa a a a1aA aA aA aA a" xarr@P`daabAaa ba bA a "H1h #hrr@P `Aa `Aa a  `Aa a Ma B a#a ADdrr@Pa a a#a n a)a a#a AaA#arr@P12W  3or|AAA AAAaAkrR@P\dRAada  A AUAaaaR PDFLOT PVOLR VOLA P J PECONV DECK-ID N73 MSOS 5.0 SUMMARY-110Jr@P hTXHhY`7h86h7  0g"   +aa .a Ea hE"hB4  rr@P+X[}76@ - n11} /b)% 1bb@ hhhX,[rr@PV@?XR[@BPX][@B0FH  0n  0n hXk[rr@PXh 0 nؽȼ XXY~ۭ@ -n hX[@Ⱥr6@P"ػȔhȓhȯ`  *c  6 PECONV "P8QFIXLOAT LOT AZY1 "P J PLAZY1 DECK-ID N74 MSOS 5.0 SUMMARY-110Jr@P H6"h2` h/ h'h'Dh$(JzHGN E}CBP@>fff<;A79hی7rr@P+6C4k_BP h hXX_ @ h rr@PVh h hhXCXF_@ h  #@H Hh!drr@PhXf[@ȫ Ȩ [1 HX@ Λ 6X[}@ Ȍn Ȋnr @PR PLAZY1 PLOAT cLOT P J P@ODFLOT DECK-ID N75 MSOS 5.0 SUMMARY-110Jr@PXADa aaDa"a 1 aBa&***&i]+*rr@P+dB A  aXV aX1XPbbX*HXEa a ! A"dRrr@PVa 2H a a ka Da a a a SAA a *aAedrr@Pada a"(a" aq2XX#rr@Pa ! AaA ! A ! X4X2a a3A Aa  rr@Pa"G y @3a  a 2a  1a  a+ c% b XX9Rrr@P#a aAA \a d a Pd ! 1 d 1  " La1 aDrr@P-a1  1 aa"dRa -H a a ~a   !rr@PX a a a a@`@ XdRX rr@PAa!d׸H a !a A a eda da  a U . rr@Pa A a A a A  "h s < hAa a h`Aa a B rr@Pف "  e " a A T x"   A g A Rdr0@P A RYAa" a 0 PFLOT PBU  P J PODFXFL DECK-ID N76 MSOS 5.0 SUMMARY-110Jr@P XgAa*a)h X]A"""a* "a)*$d)RA) R  B Hrr@P+ )g*ad X0Aa*h X)A"""a**!da)a* )hX)rr@PV2 A)*qd)RA) hX `r`P:PQ8QFIXQ8FX Q8QFLT7Q8FLOT>IFIX FLOAT >DBU h: PLOT S P P*M SYSCOP 19 17X14640PJ PSYSCOP DECK-ID N77 MSOS 5.0 SUMMARY-110Jr@PX=H4hh`h QhQhH QDhBSYSCrr@P+OP STARTIMAGE START SECTOR IS hyhX +h h!$r`PV r@PaTr`I@XH0H2esR4R4!HJB8 Hrr@P"  H T  `!`h /yQzO(Q xTrr@P QةsXHX_XH X B b : AHhTSHO"Qm M JC rr@P  A@h%h! X,hhX 'hhX!h W"< rr@P HTȤ`T Hr`P8ZPCOBOPSSYSSEG PSYSCOPP*M SYSSEG 20 17X14642PJ PCO1ST DECK-ID N78 MSOS 5.0 SUMMARY-110Jr@PDh_h_h_h_h_ Q  Q  Q *Z  6Q"H ! 1 h@  Qj Brr@P+ Qh Q > .Q   Q r`PV r@P``Q h Q eh G Q Q (Q r`P5r@P`Q hh$:=A h5OKh/QH/h-t A Z"!$H " Qrr@PHht Q Q QA< C @Q   5Qrr@P`Q h H]4Qj"QQaQO q Q"qGhCrr@PAhBhB r`Plr@PbhDahCaHBZQ Q 8 hS hNQ  GhFH hE ? H  rr@PQ# 6 Q h F TQ  H YQ % Q  LL  LQ r`P r@P`Q hhQh) Qh$ Q 1 nQ 2 Q gCg gQDh<: h7rr@P Dh3 r`P6 r@P@Qh Q  *Q  ) 4 Q # #  #QBHE r`Pk5r@P Q  Q  YQ Z*Z  #  QQ" DhAhAhAhIXGR!h@9 h5X=Qrr@P87Q!Dh4h4  cY A[SBH h > & H  4 "rr@P bhLB_^QjHhE]5ZA hWS* T NLh? b G hE"rr@P! H QA7 iQ:8 N Q "K  a5a6a7  Qh1 rr@PLSELECT OPTION  A Q I  REGISTErr@PwR AAAA QQQQ IIIIFINISH SYSCOP r`Pr@P***LOCORE CONSTANT ERROR INITIALLYBIT TABLE CHECKSUM ERRORADDRESS IN 12 WAS 12rr@P34 BUT SHOULD BE 1234MAX CORE WAS 1234 WITH 1234 TO 1234 UNPROT (ERROR)MAXSEC Wrr@PAS 12345678 (ERROR)***POSSIBLE LEVEL HANGUPPRI LVL WAS 1234 (ERROR)r`PA?r@PDUMP 1234 0234 1234 2234 3234 4234 5234 6234 7234 1234 8234 9234 A234rr@P B234 C234 D234 E234 F234 FINISH SYSCOP ** r @P rPAREAC ALCLGHTSIPRCLOG1A 6MAXSECALLIN IPROC MONI DISPXXSABS LUABS VOLA VOLR  REQXT  r"PMASKT  COMPRQFNR COBOP ="P J PCO2ND DECK-ID N79 MSOS 5.0 SUMMARY-136Jr@P`Q hh5h9 <4 Q"j> r H7 q  Q QQA,  (Qrr@P+6  u0#h.Q QT Q Q  8Q r`PV`P]r@P``6 <4Q"j2 r Q** S0@aPP qQQaZA[@# Qrr@P aL  2 AL  LQ r`P r@P`Q hh* <4 Q"j7 r Q / ,c@ sHA( ' (Qrr@P  Qh2Dh/ *3#h' rHr`P r@P bDh^\ hY DhUhVhV  QPP"a4BH QAT Q  PQrr@PK Q6,#U(' g#E"c1 &3B Q ((  (Q 9 Qrr@Pv  UQ`Q hh 4Qjr C4 Qrr@Ph"#ISX b  3UNX q% H#s hH # rr@PQ QQA*  3Q a8  &Q`Dh]h]h_ X$Q h&& h$X';h&( rr@Pb   h QBD 8 LQ   DQ  4Qj r r`P"`P=r@P@Qh=;Q -B0C2 4. Ph-*B) h'QAj%"!!" H QHBrr@Pkc1 q&/&  &QBH( H% r`P r@P`Q hhh 5QQ QŠBĀ h&."S h Q B rr@P Q Q:a.H FWRa4ITa5 ,Q_UUr`P r@P`Q hh h0h1QhW8Q P3;0h/Xh++X(F c t Q Qrr@P+QABQAL  ?QQ QƠBĀh_UDh rr@PVh Dh ` Q h h hhh!h,h=QTQOXCL QA;  *Q rr@PQ" Q QD X* <B;h rr@P+ Q Q Q*$QA5%QAG # $Q r`PV r@P`b HQ QXA Q W TQ   SQM@Q  X)6 Q W %Q rr@P  Q%h%Q h Q V :Q 3!3  3Qhh h 4Qj rrr@P Q  $Q h_ hZQ  ShRT hQ  Q hD Qrr@PhDQ =: hQ  4h3Q h Q h)Q h& r`P r@P _h 4Qj q AL L4Q  q QXXA? H? Q<rr@PK p0Qa?A@  BQ   >Q 6 3$h":ȼh  QQh rr@PvȨh Qe\h\ AY qYRQFhLb1)Gc ?$ z w rr@P t q  Q86 Q-B0 h' \ (Q   $Q h!! rr@Pc@ Q h>^;Q 1X5Q Dh4Q. rr@Ph, Q Q'>$ h"A!Dh<hĈ;h9X75XC h8B2Q1X$$h& ,rr@PXhXh X hX" 8 & " " tHhrJ@P/ 1 FhD 1 H AQd J PMIPROC rPCRIMPTF10336O10336 E10336^EQ3644cO15721D15721E15721ZE1573 KO1572 E1572FE1572 GH15721VTMCODE9rrPTMRTYPda+a:31R5l"X8l2XA0X3h0 9Err@PB0F 0 04#X1!X#h! 15 dll <dlDl*Trr@PhH F4 B u cT DE ;̛hZ ;hV 8hTrr@P ̓HPhP̎XhR̉XhṖX :HKhKT D:ENTER DATE/TIME MMDDYYHHMM DATErr@P-/TIME ENTRY ERROR JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DECDATE: DD MMM YY r@PXTIME: HHMM:SS ZPADAYTOAMONTOAYERTOTOTMINHORMINSECON MINTO HORTO DAYTO MONTO YERTO ZP P*M EFSTOR 23 17X14656PJ PEFSTOR DECK-ID N04 MSOS 5.0 SUMMARY-110Jr@PhhK j qDd`3 ! T D8y  hh% rr@P+j qT D `hT D AT D `a rr@PVh C`BHd 1jg qDh C`^Y Y h h:h T Drr@P `a` hH;% `  4! )js qrr@PT D `naؖ 4 T D DdTr`P,`P`P`P `P@PEFSTOR MASS MEMORY ERROREF STACK OVERFLOW EFSTOR LU ERROR P*PEFCOVLBSYEFSfCEFDTA`EFDATA MMEF i*P P*M EFLIST 24 17X14658PJ P *EFLIST DECK-ID N05 MSOS 5.0 SUMMARY-123Jr@Ph#  R $ Q h T D T`h4K Xh.rr@P+Cq(D " 1 N(` Ij q1XhT D&T D rr@PV H`" `X*  h T D `7rr@PiT D X#` HX y2vT Drr@PgSr`P;r@PT D LISTING COMPLETED TT D ENTER LOGICAL UNIT (XX) rr@P=T D a{Bh Fh "d2a"T `Drr@PhX` H?h?"D "h6 h3" XJh0"XMhD H* :=H&h&"H X6rr@Ph!" X2h""XHH%h%h(T D"  rr@P `00B0F4B8h B8 ȈhXd"Xh XȈ rr@Ph X hXȈDd " : A ENGINEERING FILE INFORMATrr@PION LISTING LOGICAL UNIT XX TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTrr@P?TTTTTTTTTT DATE TIME FAILURE CODE HARDWARE STATUS MASS MEMORY RErr@PjAD ERRORJAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 1711 TELETYPEWRITER  rr@P 1721/1722 PAPER TAPE READER  1723rr@P/1724 PAPER TAPE PUNCH 1752 DRUM  rr@P 713-10/711-100/713-120 CRT/SLAVE PRINTER 1738/853rr@P DISK DRIVE 1751 DRUM  rr@PA 1739-1 CARTRIDGE DISK DRIVE 1738/854 DISrr@PlK DRIVE 1731/601 MAGNETIC TAPE DRIVE  rr@P SOFTWARE BUFFERING DEVICE COSY DRIVER UNITrr@P 1728/430 CARD READER/PUNCH  rr@P CORE ALLOCATOR 1733-1/854 DISK DRIVrr@PE 1733-2/856-2 CARTRIDGE DISK DRIVE  rr@PC 1733-2/856-4 CARTRIDGE DISK DRIVE 1742-30 LINE PRINTER rr@Pn 1742-120 LINE PRINTER  rr@P 1740/501 LINE PRINTER 1732-2/615-73 MAGNETIC TAPE rr@PDRIVE 1732-2/615-93 MAGNETIC TAPE DRIVE  17rr@P32-1/1706/608 BUFFERED MAGNETIC TAPE DRIVE 1726/405 CARD READER  rr@P 1732-1/608 MAGNETIC TAPE DRIVE  1732-1rr@PE/609 MAGNETIC TAPE DRIVE 1713 TELETYPEWRITER KEYBOARD rr@Pp 1713 TELETYPEWRITER PAPER TAPE PUNCH 1713 TELETrr@PYPEWRITER PAPER TAPE READER 1729-2 CARD READER  rr@P 1732-1/1706/609 BUFFERED MAGNETIC TAPE DRIVE SOFTWARE DUMMYrr@P DEVICE 364-4/361-1 HDX COMMUNICATION DEVICE rr@P 364-4/361-4 FDX COMMUNICATION DEVICE 1742-1 LINE PRINTErr@PGR 1777 PAPER TAPE READER  rr@Pr PSEUDO TAPE UNIT 1777 PAPER TAPE PUNCH rr@P 1729-3 CARD READER  rr@P 1733-1/853 DISK DRIVE 1731/1706/601 BUFFERED MAGrr@PNETIC TAPE UNIT 1726/1706/405 BUFFERED CARD READER  rr@P1747 DATA SET INTERFACE 1744/274 DIGIGRAPHIC CONSOLE rr@PI 1536 LOW LEVEL ANALOG INPUT  1501rr@Pt HIGH LEVEL ANALOG INPUT 1536 REMOTE LOW LEVEL ANALOG INPUTrr@P 1544 DIGITAL INPUT UNIT 1553 DIGrr@PITAL OUTPUT UNIT 1555 RELAY OUTPUT UNIT  rr@P 1566 DIGITAL-TO-ANALOG CONVERTER 1547 EVENTS rr@P COUNTER 1595 SERIAL I/O  rr@PK 1732-3/616-72 MAG TAPE 1732-3/616-92 MArr@PvG TAPE 1743-2 ASYN COMM CONTR  rr@P 1745/211 CRT 1725-1 CARD PUNCH rr@P 1720-1 PAPER TAPE READER  rr@P 1720-1 PAPER TAPE PUNCH MAGNETIC TAPE SIMULATOR rr@P " 1732-3 LONG RECORD MAG TAPE 7TRK  rr@P M 1810-1 LIAT CRT/PRINTER 1829-30/60 CARD READER rr@P x 1827-30/60 LINE PRINTER  18rr@P 60-72 LCTT 7TK MAG TAPE 1860-92 LCTT 9TK MAG TAPE rr@P 1832-5 CASSETTE MAG TAPE  1833-5rr@P FLOPPY DISK 1833-1 STORAGE MODULE DRIVE 25MB rr@P $ 1833-1 STORAGE MODULE DRIVE 50MB D18ECM EXTrr@P OENDED CORE DRIVER PSEUDO DISK DRIVER  rr@P z PSEUDO DRIVER FOR CRT 123*496CARTRIDGE DISKrr@P DRIVER 4.4M 123*496CARTRIDGE DISK DRIVER 2.2M  rr@P 123*496PSEUDO DRIVER FOR MATRIX PRINTER 123*496TAB CARD PUNCH DRIrr@P VER 123*496UNDEFINED DEVICE  r@P & PMMEF aLOG1A UP P*M VERIFY 25 17X14660PJ PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLUAh <2hTUrr@PhXhT$ 0j j j @B:o B ȼ hTrr@P* Ab D:*b bhHXrXXk X  " f" XArr@P(- h*BX6 H i "#f"X) h /H/hhrr@PSXX X% Dd T`54 " jB hXrr@P~X Uun1jHd(hh HT U r`Pr@P`TSTFa ?Z:8 jB X2X.Ӡ 0rr@PXD XB$HBHX qvrr@P zhg0# $  rXȠ Dhh j qrr@P/T Uqh7TSXHDh{rr@PZh{h{ j+ qTUbLH H n qTTUTrr@PTh hT UDh#rr@P?h"%! " 1 !H"   r 0rr@P # ʕ q /ʋȠ Trr@PAA""aDa ABa ! ASatf"C AhTrr@P1@A#dBABD0FD ABhpTArr@P\" 0XZ Dj9 j6 j3"4hTT h Xrr@PTA"DA AB FaDA AahTTHYXrr@PG"hTDh[PYhX A hTUb> h@hDh244 h@0a rr@Ph4h+B,l(' B Dh#" "` " hB"l  hTrr@PT TTSCMM IN CONTROL, TEST ID PROGRArr@P3M SCHEDULED CONTROL ERROR NOT IN LIBRARYPROGRAM NOT SCHEDULED DISK ERRORPGM STACK FULLrr@P^SCMM OUT TEST SECTOR LENGTH CORE ADD PSR LEVEL  rr@P SPACE ALLOCATION ERRORr`P @P PSYSCHK *PHORMINTAYERTOPAMONTOBADAYTOGSCMMLCc*P P*M DUMMY1 27 17X14673PP*M DUMMY2 28 17X14674PP*M DUMMY3 29 17X14675PP*M DUMMY4 30 17X14676PP*M DUMMY5 31 17X14677PP*M DUMMY6 32 17X14678PP*M DUMMY7 33 17X14679PP*M DUMMY8 34 17X14680PP*M DUMMY9 35 17X14681PP*M DUMMY0 36 17X14682PP* 17X14686PP* MASS RESIDENT DRIVERS 17X14687PP* 17X14688PP*M COSY DRIVER 17X14702PJ PDCOSY DECK-ID M34 MSOS 5.0 SUMMARY-114Jr@P@X bhȈhۈhU h` hO{+` hH"Xkrr@P+hGT a"* a! 8 Xsh*A Xdrr@PVh|V " 2HL\h /hyH~1pL aX rr@PHm/hd "X2hJ/h=h[!B H$ D$ UX X%X;F a,  frr@P|a X a Xp H 8/ H h H0 XHTL($rr@P` XXR H XuHT\`XX<  a   CSY/ rr@P aaX>XaX, a :a " " (A   XTTrr@P- (1aXc1a aaaaa aa hY (X 8-rr@PX" $a%aa h H XHTHv(ȃ` XxX&rr@P! V f" f" f" X a a aX MON END/ H%Xrr@PXXX 0F 002XX 0F 0H 0F 0 L H h nrr@P q aX aada a[aXsh"ArH W hrr@P  _hA= a 14Ae f" ߆"f"$a  _h :rr@P/! "!A 81  A%!aUUH 0X"X"X rr@PZ\h[XDhWhW _X: ^X8HQ h X #HG ! _X(A X% <;A % h3 rr@PX _X- 1  &Xȸ  h"ȲX hAdf""f"arr@P>X _X _X" XQ %E  Xanar<@Ph1aT)"hTa>< PICOSY "PMAKEQ ALTDEVLOG1A MAS300%"P J PNXTLOC NEXT AVAILABLE LOCATION JP P*S,SCOSY,S 17X14705PP*S,LCOSY,P 17X14706PP*M 1732-3 616 MAG TAPE 17X14709PJ PBD17323 DECK-ID B33 PERIPH. DRIVERS 1.0B SUMMARY-114Jr@P@h9" 54h#Y4h"`4h!84h$C4h*4h h@"hfh5brr@P+Yb`b"@hh ) (/ h-h7TH  Xrr@PV"I 2`1Dha&h  Th 7D rr@P  H h h{ #:=hu* $hXh & %0A h]rr@Ph\ # hU & hP  hL &IIXDDX h>Xa h88XJ2 #rr@PX[,)h+ H"h 'f" !f" X a af"e rr@P R h3/a$a X hrr@P- XXTR8@ XСTR C@ X B!bta Xs a rr@PX@U  @  X Xh a !ȚHhTy# %ȌTu rr@PX 3  "! !? 1 0 " ;l Xc+ 2 rr@P" `" \POXOLhI #a 6=: a a!& $1arr@P* 1 d! h! X X a X b5 v (Trr@PTE T~ !h .1a0! Thh r@P/h #r@P9Dhh h a hDh !fX#a XeX XaX}(rr@Pd"aaXyTa 1XJXf%X{DXyXxȚ ؖ XpXo 1X5XXaXOrr@P"XdȥhoȣhnȡhlaXFaX=X,iDa'  +a 1aMȀ 1rF@P|  HBX R  h;h9Fr@P-.-. Wa ! " 1 DB  /0sAX8 a  rr@P  h ,hhDh XXXX4Ch 1 XXXXX#XXrr@P1XXXX XXXXXXXXXXX#hȆ A h ! 1rr@P\h`Da h1a ( a ) a h  TT(rr@PTRXra (a 6hah}aLh d# Xhrr@P!TIJT Z[  XM# a TR! q!rr@P ( 1      * " ǡ4a8 a  3dX3X8 9)a rr@PlX0  hah 3a X% X 9ah{ htr,@P3 ! * - h,PI17323!C17323YE17323`ZPREWCK COMPV4 LOG RUCMPCDASCSCBCDNPK ACK ALTDEVMAKEQ MAS300pZP J P#D327TR DECK-ID B36 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@Ph'h&  c"`@X7HX0Ȉm a q `  @rr@P+hh c`@ Hm&1122334455667788990!="'#:$>%"& 'rr@PV/(S)TUVWXYZ_,=(%-\/@-J*KL?M+NOP QR[ <#:hh 8 F d hhXE "lG EDEXXZ<R:rr@PX0BXXXXXXXH   " L" rr@P BhhHXXBXXXXXX rZ@P߸h f"B XXX f" ĸZ*PPACK UNPK BCDASCASCBCDPRUCMP*P J PNXTLOC NEXT AVAILABLE LOCATION JP P*S,S17323,S 17X14715PP*S,L17323,P 17X14716PP*M 1732-3 616 MAG TAPE LONG RECORD 17X14719PJ P9D7323L DECK-ID B38 PERIPH. DRIVERS 1.0B SUMMARY-114Jr@P@h9" 54h#64h"34h!4h 4h4h h@"h9h5brr@P+6b3b"@hh ) (. h,hTH  Xrr@PV"I `1Dh&h  hmHkT = hc rr@Phf h^D  #  "   hKH hMEXa hAAXT2 #X[rr@P52h!8T@//^+ H"h 'f" !f" X! a rr@Paf"\  H h3/a$arr@P X h XXTR@ XСTR  @ X B!brr@P-ta Xs a @  X XR&@h a !ȝ*hȗHhTz# %rr@PXȉTT X 3  "! !6 1 0 " ;rr@PZ Xa+ 2 " N" JMLX=IhF #a a!" $1rr@Pa! 1 d! h *X a bXa (TTx T] rr@P!h .1a0! Thh h #rr@PDhh h a" hDh !fX#a XeX XaX}(rr@P1"aaXyTa 1XJXf%X{DXyXxȚ ؖ XpXo 1X5XXaXOrr@P\"Xdȥh~ȣh}ȡh{aXFaX=X,iDa'  +a 1aMȀ 1rF@P|  HQX R  hJhHFr@P-.-. Ea 0 ," 1 D%B  /0aAX8 a  rr@P   hH  'hhDh XXXX5Ch 1 XXXrr@PXX$XXXXXX XXXXXXXXXXX#hȁ A h{ !rr@P) 1h`Da h1a ( a ) a * h'  Trr@PTTTRXla (a 6hah}aLh drr@P# Xr!TIJT Z[  XW# a TRrr@P! q! ( 1      * " 4a8 a  3dX3rr@PX8 9)a X0  hah 3a X% X 9Ġah{rr@P ht ! * - hHchah_ h[BX hX>rr@P+^XhE I   MX)$"H,X2X $H#X)D rr@PVhX HXDX X#  Dmhrr@P   0T@ aXf"fhXf"bhXXHиXXXrr@P"D  0 lظȷH  b @a -H  b @a rr@P"hh c`@ Hm&1*23?4+567 8rr@P9<0,=0': >;" /STUVWXYZ _ ,.(>% \@:-J1K2L3M4N5O6P7Q8R9!!$"*#]$;%^&+'A(B)Cr&@P-DEFGHI?.=)[-  `brr@PF"" ,a a -XDB"a a AX  1 A . 2rr@Pa  ,a -Xa x AX A   A! a a Arr@Pa a@$a?LaHDaa a aB aA aG aC aDaE aF2Q> Das =a hTrr@P- a@a? aGaH aA aE aF"a 6  a  -+Da a a@CaEBaDBaC>aBQ> a 11 a  1X2rr@P"XX aDJ aC aB Jh h ΒnAQ>C" 4 a "<  =a 1rr@PBDT a 1< HMD jJAhEhCX_ :aBJ aCaDQ> rr@P"AE X%G FaG aDQ> `ba a! `a: Arr@PX AJ " ""f"" h,Jh)(n(AJ " 4a D .1A rr@P  a TTg* + 0, a  0 a HDa a 1aT"h Trr@PTr`P1 PIPSUDO JPLOG MAS3004JLLUV4ALTDEV MAKEQ STOSEQ0RTVSEQRELFIL\DEFFILhJP J PNXTLOC NEXT AVAILABLE LOCATION JP P*S,SPSUDO,S 17X14777PP*S,LPSUDO,P 17X14778PP*M 1742-30/120 LINE PRINTER 17X14788PJ PD42312 DECK-ID B37 PERIPH. DRIVERS 1.0B SUMMARY-132Jr@P@2A2E'4a!a BGa E AANA !a @X#b@Trr@P+ OXF+X aaa"I a a "panXBX X o4rr@PVXhXX412  X  TT Ha   rr@Pta a a  Tp aT@ @2   aX rr@P   "ZDa ' a $a$  X  1  0 rr@P    @  53 a ? : a @arr@P:XD a  a a XX9 5 B X~ E   @ad a\rr@P-  A B0 Q A  a aF  H  1-  a 'rr@PX "D " X !    aa 1R A L  rr@P  a :Q X$ aA  $ 1"X r @P PI42312'C42312E42312*PRAIN ILOG MAKEQ ALTDEVMAS300*P J PT5954 DECK-ID B77 PERIPH. DRIVERS 1.0B SUMMARY-112Jr@P01234567BZ,/89AC(GH)RIFLMNOP[%"]DUSTVWXY+-.EJKQ*01234567$@'=89ACBZ,/RIFLMNOP(GH)DUST#\rr@P+^!+-.EVWXY01234567JKQ*89AC&?<>RIFLMNOPBZ,/DUST(GH)+-.E:;_=01234567VWXY89ACJKQ*RIFLMNOPrr@PV[%"]DUSTBZ,/+-.E(GH)01234567$@'=89ACVWXYRIFLMNOPJKQ*DUST#\^!+-.EBZ,/01234567(GH)89AC&?r,@P<>RIFLMNOPVWXYDUSTJKQ*+-.E:;_=, PTRAIN P J PNXTLOC NEXT AVAILABLE LOCATION JP P*S,S42312,S 17X14794PP*S,L42312,P 17X14795PP*M 1728-430 CARD READER/PUNCH - 026 FORMAT 17X14823PJ PD1728 DECK-ID A30 PERIPH. DRIVERS 1.0A SUMMARY-106Jr@P@$2A2A'2AP2H=2H2Hl 2H@ (@T rr@P+aaaaA"I a a "pa ű9 `a a" Y  }rr@PV "!a 1a+aa  @A" a qa ba ca da ea fa ga rr@Pa ya pa `a P9 J" a ? ?@xa rr@P u8 a    h  2C !!a +X  T"a#X a#rr@PX  a#X X X    a+a !   3 " "rr@Pf"  a"  Y "thxppT@ $Dhrr@P-#a         #aTR P@    rr@PX O"  Ġt P      6&a 3  6a  rr@Pa H a aA UQQ  a "  !  a u a ?A Arr@P" " dA"A"1  f"  ITR@aTrr@P@: A# 5XA 4+A *a    a 1  Y rr@Pf"  b f" nX W ad    arr@P/"I BKa Q Q- Q,  " .2A O T%@T rr@PZa a a Ġa!a a Aa ta aD !!a   rr@PTR @TT@ a TA Aa A a T"  Ȱ rr@P f" "  "f"     ]A " " @! rr@Pf"(A"Af"̠b Aab b bĠb A rr@PATR  @ a    = "   P  a'  a o    rr@P1   a "aH 9 <   a   "H rr@P\ T 2   a " P!a  a P q    a { " rJ@P  P     a da JPI1728 'C1728 E1728 $JPCOMPV4_DPC DRD MAS300#RLAQ RQAQ LOG MAKEQ ALTDEVJP J P CR026 DECK-ID A16 PERIPH. DRIVERS 1.0A SUMMARY-106JX@P1 32547698=&:'">/0TSVUXWZY,\%(@_J-LKNMPORQ$!]*^;A+CBEDGFIH.?[)#<X PCDRD P J P@CP026 DECK-ID A14 PERIPH. DRIVERS 1.0A SUMMARY-106Jr@PB""""BB@   B  @ r<@P+@ @  < PCDPC P J PNXTLOC NEXT AVAILABLE LOCATION JP P*S,S1728,S 17X14829PP*S,L1728,P 17X14830PP*M 1728-430 CARD READER/PUNCH - 029 FORMAT 17X14832PJ PD1728 DECK-ID A30 PERIPH. DRIVERS 1.0A SUMMARY-106Jr@P@$2A2A'2AP2H=2H2Hl 2H@ (@T rr@P+aaaaA"I a a "pa ű9 `a a" Y  }rr@PV "!a 1a+aa  @A" a qa ba ca da ea fa ga rr@Pa ya pa `a P9 J" a ? ?@xa rr@P u8 a    h  2C !!a +X  T"a#X a#rr@PX  a#X X X    a+a !   3 " "rr@Pf"  a"  Y "thxppT@ $Dhrr@P-#a         #aTR P@    rr@PX O"  Ġt P      6&a 3  6a  rr@Pa H a aA UQQ  a "  !  a u a ?A Arr@P" " dA"A"1  f"  ITR@aTrr@P@: A# 5XA 4+A *a    a 1  Y rr@Pf"  b f" nX W ad    arr@P/"I BKa Q Q- Q,  " .2A O T%@T rr@PZa a a Ġa!a a Aa ta aD !!a   rr@PTR @TT@ a TA Aa A a T"  Ȱ rr@P f" "  "f"     ]A " " @! rr@Pf"(A"Af"̠b Aab b bĠb A rr@PATR  @ a    = "   P  a'  a o    rr@P1   a "aH 9 <   a   "H rr@P\ T 2   a " P!a  a P q    a { " rJ@P  P     a da JPI1728 'C1728 E1728 $JPCOMPV4_DPC DRD MAS300#RLAQ RQAQ LOG MAKEQ ALTDEVJP J P CR029 DECK-ID A17 PERIPH. DRIVERS 1.0A SUMMARY-106JX@P1 32547698#:'@"=/0TSVUXWZY,\_%?>J-LKNMPORQ$])*^;A&CBEDGFIH.[(<!+X PCDRD P J P@CP029 DECK-ID A15 PERIPH. DRIVERS 1.0A SUMMARY-106Jr@PBB"" BB@  "  " @ r<@P+@ @ < PCDPC P J PNXTLOC NEXT AVAILABLE LOCATION JP P* 17X14962PP* MASS RESIDENT FILE MANAGER 17X14963PP* 17X14964PP*M 17X14965PJ PDEFFIL DECK-ID F05 FILE MANAGER SUMMARY-116Jr@P@  HT{jzAHtwDs bsM|Tx9vŠ eAc12leXrr@P+T$VT"#X3#aDlKH@h@LFIJ 2G 8.AX1-+ h/rr@PVH- \9*b)bDbbbb bXhh h hTq*rr@P h fH\byaHhh.Yh h(Arr@P\HH \NdTL bHȾǠ 2ȼfȻbȶf\.arr@P̳bȨlȧ lZ "2 a84hH\'a̗b̒fL@vrr@P@B́ b8a{aT1u2aD c A` ` &Hh" Lbrr@P- " a8hH\bD@ Dl"BHhAhaalrr@PX DC c\aDH nAXN,LHTbr@PrPPEND ILSPCtSRHFIS1MMWRIT|MMREADGETSPCCKPROT CKCFIS-ABSPAR FILBLK}LOG1A FSLMMA9FSLISTFIBNIX@rJPFIBLSAFIDSEC`ADRFMSPFISLU NWFISBNWFISDFDTINTFIDLOCFSTLOCJP J PFILSPC DECK-ID F06 FILE MANAGER SUMMARY-110Jr@PhhBS _0`hnhnhm@ X ǸjH^ Hc  X*Rrr@P+hKXO9 hRXe!:>HBBH?hA HTHUE6OXH hL>-aX?/XI$H$H#'rr@PVh"Dhh: h6(X- h1h2" aX"aDd @Hrr@PhT}HhTq hDhh X Xј#r @P PFILSPC "PFSLENDoFSLISTMMWRITMMREAD"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP01,S 17X14969PP*M 17X14970PJ PRELFIL DECK-ID F08 FILE MANAGER SUMMARY-110Jr@P@  H<T8j7A4Ad12l1T$*T@2#$1T0rr@P+bG h HhTf* 0hG h `!h BHTrr@PVHATa fhX X h"XXmh  X  "r2@P XvDaa hHȵh2jPUMBLKNDSECTRSECELSPCPEND SRHFISMMWRIT8MMREADYGETSPCUCKPROT(CKCFISABSPARFISLU ;jP J PRELSPC DECK-ID F09 FILE MANAGER SUMMARY-110Jr@PHwHhihk@ ǸjhtH\  X*SNX_Klb: HKhBXrr@P+ ?HJDh8:h7X@79#1. H.1h---h' B 1 %X6 h<  h7(X. h2h3" rr@PVlX#Dd(a`hTaXHhrr@PTaXİh X hh hT`LF.M. Er@PRROR 1"PRELSPCSTRSECkENDSEClNUMBLKn""PFSLEND^FSLISTMMWRITMMREADu"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP02,S 17X14974PP*M 17X14975PJ PDEFIDX DECK-ID F10 FILE MANAGER SUMMARY-110Jr@P@  HjTfjeAbAd12lbT$XT@2# 1T0 rr@P+.CK$ B/"$6M|T997Š (!Xh' cB8'a2"rr@PVX"*a+A a `!hTHD n L`aa"r@@Pa a ( b8al  aaDz@RPPEND ILSPCWQRTFMMSRHFISGETSPCgCKPROT&CKCFISABSPARLOG1A yFDTINTRP J PSQRTFM DECK-ID F11 FILE MANAGER SUMMARY-110J0@Ph h B 8 A 0 PSQRTFM P J PFILSPC DECK-ID F06 FILE MANAGER SUMMARY-110Jr@PhhBS _0`hnhnhm@ X ǸjH^ Hc  X*Rrr@P+hKXO9 hRXe!:>HBBH?hA HTHUE6OXH hL>-aX?/XI$H$H#'rr@PVh"Dhh: h6(X- h1h2" aX"aDd @Hrr@PhT}HhTq hDhh X Xј#r @P PFILSPC "PFSLENDoFSLISTMMWRITMMREAD"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP03,S 17X14980PP*M 17X14981PJ PMLOKFIL DECK-ID F12 FILE MANAGER SUMMARY-110Jr@P@  HDT@j?A<Ad12l:T$2T2#H'G&$Tr\@P+0h  b fb$\BPPEND LOKNEU4LOKNOEHLOKTBLGSRHFISCKPROT*CKCFISABSPARBP J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP04,S 17X14984PP*M 17X14985PJ P=UNLFIL DECK-ID F13 FILE MANAGER SUMMARY-110Jr@P@  H4T0j/A,Ad12l*T$"T2#T0HR$r4@P+-fbb L42PPEND LOKNEU8SRHFISCKPROT CKCFISABSPAR2P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP05,S 17X14988PP*M 17X14989PJ PSTOSEQ DECK-ID F14 FILE MANAGER SUMMARY-110Jr@P@  HPTLjKAHAd12lHT$>T@2# .1T0rr@P+ (1h/ '"%B \) \'\%!lh' hJh" hEhV hhBhS  .!rr@PV` Hh\a? a FX11+H rr@Phhh fDbb\a f b I Hh\ȷlȵlȳlcrH@P*ba a A  A Lb #a$LHBPPEND ILSPCxSRHFISMMWRITaCKUADR`CKPROT(CKCFISABSPARBP J PFILSPC DECK-ID F06 FILE MANAGER SUMMARY-110Jr@PhhBS _0`hnhnhm@ X ǸjH^ Hc  X*Rrr@P+hKXO9 hRXe!:>HBBH?hA HTHUE6OXH hL>-aX?/XI$H$H#'rr@PVh"Dhh: h6(X- h1h2" aX"aDd @Hrr@PhT}HhTq hDhh X Xј#r @P PFILSPC "PFSLENDoFSLISTMMWRITMMREAD"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP06,S 17X14993PP*M 17X14994PJ PSTODIR DECK-ID F15 FILE MANAGER SUMMARY-110Jr@P@  HiTejdAaAd12laT$WT@2#T0$Frr@P+t->h2<!h/ h-4H+h)hAX ?h;8h( 2G 2rr@PV:8& 4 `!",\j*Dgfba Lr&@P&rPPEND LOKNEUSRHFISMMWRITMMREADCKPROT!CKCFISABSPARFSLISTJBEGLU8BEGLU7BEGLU6BEGLU5BEGLU4r"PBEGLU3BEGLU2BEGLU1ADRFMSB"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP07,S 17X14997PP*M 17X14998PJ PASTOIDX DECK-ID F20 FILE MANAGER SUMMARY-110Jr@P@  H{TwjvAsAd12ltT$iT@2# .1T0rr@P+BU\^ \\Rh\XOh4c !G hQ h `h> 9>h9à$h7 rr@PV.ah*1% `!h1h| TH* `! h5X8 !D1 (1" H !rr@PhTq*2lTa hMh/hJh.h rr@PChDXHBh 5X:h;h9 h8? ο13Ly,)%H'!h"hrr@PU ?'H ( d $ ! #h h ȉ Trr@P$!%& A:  &'  () 5*!+ ,!-HHrr@P-H Hn HQH1 H H-LHȸ Hx H? hh<hVhqXDhh6ȥprr@PXB' h 2l hH\lllaIoaprr@Ph\ja6f bid !%H  hH\OaQIrr@P HhH h BC\32l0lؾ.l0l1b#-a  a a Qa rr@Pd -  a  a| h h rr@Pd-2ȰX-HDh Hh1B rr@P/ȿHbȿbKhhh fDbȵ`HB  bȟbhhhDrr@PZbb fț#ȍf̖h2lHohoHohoK HbhbX B]ThYhXLrr@PbhSh^hShNhYh< 8FEX{EhPHCP;fDbb H('(h(h'/rr@P(% +h#" ( sn  n A nNrr@P\D|  l\8b - jAX ڈh hrr@P  hX ( d2 HX2+y  4$aȵb r0@P1ȰnWȫb$ Q'Y0bPPEND ILSPCASHCDpETKIDSRHFISMMWRIT!MMREADGETSPCfCKUADRCKPROT(CKCFISABSPARbP J P HASHCD DECK-ID F16 FILE MANAGER SUMMARY-110J"@Ph D A" PHASHCD P J P'GETKID DECK-ID F17 FILE MANAGER SUMMARY-110Jh@PA `!hTH HG h hTfT*Afh PGETKID "PMMREADGETSPC FDTINT#FMRERR"P J PFILSPC DECK-ID F06 FILE MANAGER SUMMARY-110Jr@PhhBS _0`hnhnhm@ X ǸjH^ Hc  X*Rrr@P+hKXO9 hRXe!:>HBBH?hA HTHUE6OXH hL>-aX?/XI$H$H#'rr@PVh"Dhh: h6(X- h1h2" aX"aDd @Hrr@PhT}HhTq hDhh X Xј#r @P PFILSPC "PFSLENDoFSLISTMMWRITMMREAD"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP08,S 17X15004PP*M 17X15005PJ PEDFDMY DECK-ID F27 FILE MANAGER SUMMARY-116J @P PFMREDF P J PFILSPC DECK-ID F06 FILE MANAGER SUMMARY-110Jr@PhhBS _0`hnhnhm@ X ǸjH^ Hc  X*Rrr@P+hKXO9 hRXe!:>HBBH?hA HTHUE6OXH hL>-aX?/XI$H$H#'rr@PVh"Dhh: h6(X- h1h2" aX"aDd @Hrr@PhT}HhTq hDhh X Xј#r @P PFILSPC "PFSLENDoFSLISTMMWRITMMREAD"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMREDF,S 17X15009PP*M 17X15010PJ PEDRDMY DECK-ID F28 FILE MANAGER SUMMARY-116J @P PFMREDR P J PRTNSPC DECK-ID F19 FILE MANAGER SUMMARY-110Jr@PHhHth\h]@ Ǹ\hfHN  J*FAXQ?lT/ H=h6X 3rr@P+H<Dh,.h+X2+,#%"H"H!#h Dh h4%X+ h/h0 lX Dd arr@PV `hTaXHhTaXİrT@Ph X hh hT`LF.M. ERROR 1TPRTNSPCSTRSEC^"PFSLENDRFSLISTMMWRITsMMREADf"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMREDR,S 17X15014PP*M 17X15015PJ PRTVSEQ DECK-ID F18 FILE MANAGER SUMMARY-110Jr@P@  HyTujtAqAd12lrT$gT@2#_1D$ rr@P+.1\J0BK\E \CI!hBh\9? \6 h,h|hh2 E  rr@PV+3B 3#  2#& h HTm*`rr@P 1b b h4H4Hh ("1HHZژ# ! Cq?hQrr@PsX}J' ;hE 7H  nI\^a chbb rr@Pb b bLb̝b ̘ : b̐# b ̍#(sf3 rr@P a a y a b R bnb%̫2sn l\qaX6hrr@P-HTDhq  a h a  LXLXȧhhrr@PX X aTz"A AbfEbDAr@Pa%A$rPPEND TRSECWTNSPC\LOKTBLLOKNEUmLOKNOEoNWFBLK}FILBLK0SRHFISMMWRIT:MMREAD CKUADR{CKPROTaCKCFISr PABSPAR P J PRTNSPC DECK-ID F19 FILE MANAGER SUMMARY-110Jr@PHhHth\h]@ Ǹ\hfHN  J*FAXQ?lT/ H=h6X 3rr@P+H<Dh,.h+X2+,#%"H"H!#h Dh h4%X+ h/h0 lX Dd arr@PV `hTaXHhTaXİrT@Ph X hh hT`LF.M. ERROR 1TPRTNSPCSTRSEC^"PFSLENDRFSLISTMMWRITsMMREADf"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP09,S 17X15019PP*M 17X15020PJ PRTVDIR DECK-ID F21 FILE MANAGER SUMMARY-110Jr@P@  HuTqjpAmAd12lnT$cT@2#[1D$ rr@P+.1\T0J!h;Dh8B\IA \Fh+LXVZ%' ;h 7H  nG\8o*rr@P"(1^+  a a  a P b'Ѱ2sn l\rr@PaX8hHTDhq`  a h߱ a  Lrr@PXLXhh X a\"A Ar6@PbufjbDfa%A$6rPPEND TRSECTNSPCLOKTBLLOKNEULOKNOENWFBLKFILBLKSRHFISMMWRITMMREADCKUADRCKPROTCKCFISr PABSPAR P J PRTNSPC DECK-ID F19 FILE MANAGER SUMMARY-110Jr@PHhHth\h]@ Ǹ\hfHN  J*FAXQ?lT/ H=h6X 3rr@P+H<Dh,.h+X2+,#%"H"H!#h Dh h4%X+ h/h0 lX Dd arr@PV `hTaXHhTaXİrT@Ph X hh hT`LF.M. ERROR 1TPRTNSPCSTRSEC^"PFSLENDRFSLISTMMWRITsMMREADf"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP10,S 17X15024PP*M 17X15025PJ PXRTVIDX DECK-ID F22 FILE MANAGER SUMMARY-110Jr@P@  HT{jzAwAd12lyT$mT@2# .b-D$rr@P+1\b0V4c !BHZJ\R \PG\NF \K  8|$h>h67 !rr@PVw dh5#  `! h.XH( `!h0TH,H5X8 !D1 (1"  rr@PAJhTq hh ~hGrr@P hHXvhv hs? ɞm3OyfdaHbA(bZVhZ"ȶ hWȶrr@PlUlRPlOȩh h<̥hXS2hB2b .b  h5b r%H0Ȏ1wrr@P Hh}i : fb\{xrr@P-*2cCT hnh5hhh0H0hH (T"S1QHYHQN /qrr@PX>hHyXGKB' ;h= 7H  nI\eaȳ Lbrr@Pb ȥh b ( hB$Ζn X`hHTDrr@PhaxaDh?  a a  a \ b.̤2sn l\rr@PaXBhhȹ h w3긅ȃXX  a h a rr@P LآX̜LXȑhh X ahb8`Kf GbTrn@P/T"A AbhHyXGKB' ;h= 7H  nI\eaȳ rr@PLbb ȥh b ( hB$Ζn X`hHrr@PTDhaxaDh?  a a  a \ b.̤2snrr@P l\aXBhhȹ h w3긅ȃXX  arr@P hر a  LآX̜LXȑhh X ahZ8Xrr@P/KfGbTL"A Ab4f#R!a%r@PZA$rPPEND ETKIDTRSECTNSPC!LOKTBL_LOKNEUBLOKNOEDNWFBLKFILBLKSRHFISMMWRITMMREADGETSPClCKUADRrPCKPROT6CKCFISABSPARP J P'GETKID DECK-ID F17 FILE MANAGER SUMMARY-110Jh@PA `!hTH HG h hTfT*Afh PGETKID "PMMREADGETSPC FDTINT#FMRERR"P J PRTNSPC DECK-ID F19 FILE MANAGER SUMMARY-110Jr@PHhHth\h]@ Ǹ\hfHN  J*FAXQ?lT/ H=h6X 3rr@P+H<Dh,.h+X2+,#%"H"H!#h Dh h4%X+ h/h0 lX Dd arr@PV `hTaXHhTaXİrT@Ph X hh hT`LF.M. ERROR 1TPRTNSPCSTRSEC^"PFSLENDRFSLISTMMWRITsMMREADf"P J PRPEND DECK-ID F07 FILE MANAGER SUMMARY-110J PRPEND P P*S,FMRP12,S 17X15037PP*M 17X15038PJ P`FMDUMY DECK-ID F24 FILE MANAGER SUMMARY-110JP P*S,FMREND,S 17X15040PP*S,JFILV4,S SPECIFY THE JOB FILE TABLE SPACE 17X15055PP*M,JFILV4+$40 17X15057PP*T END OF SYSTEM 17X15135PP*JOB,INSTAL,SYSTEM 17X15136PP*K,I6 17X15138PP*LIBEDT 17X15139PP*K,I6 17X15141PP*V DEFINE REQUEST PRIORITIES 17X15142PP*S,001,03,M 17X15144PP*S,002,00,M 17X15144PP*S,003,01,M 17X15144PP*S,004,02,M 17X15144PP*S,005,03,M 17X15144PP*S,006,02,M 17X15144PP*S,007,02,M 17X15144PP*S,008,02,M 17X15144PP*S,009,02,M 17X15144PP*S,010,02,M 17X15144PP*S,011,02,M 17X15144PP*S,012,03,M 17X15144PP*S,013,03,M 17X15144PP*S,014,03,M 17X15144PP*S,015,02,M 17X15144PP*S,016,03,M 17X15144PP*S,017,03,M 17X15144PP*S,018,04,M 17X15144PP*S,019,04,M 17X15144PP*S,020,04,M 17X15144PP*S,021,04,M 17X15144PP*S,022,04,M 17X15144PP*S,023,04,M 17X15144PP*S,024,04,M 17X15144PP*S,025,04,M 17X15144PP*S,026,04,M 17X15144PP*S,027,04,M 17X15144PP*S,028,04,M 17X15144PP*S,029,04,M 17X15144PP*S,030,04,M 17X15144PP*S,031,04,M 17X15144PP*S,032,04,M 17X15144PP*S,033,04,M 17X15144PP*S,034,04,M 17X15144PP*S,035,04,M 17X15144PP*S,036,04,M 17X15144PP*V 1700 MACRO ASSEMBLER 3. 17X15146PP*K,I6 17X15148PP*L,LIBMAC 17X15149PJ PILIBMAC DECK-ID A11 MACRO ASSEMBLER SUMMARY-120J6@PuS*2*S9f1<6r@P ` f q aUUaa aa ahTFa8K  T\rr@P+@`TT aTn$-!# X[4# 1 3a dnrr@P VT 0` a`T 02 X'TL  aTH `rr@PTT `X TT H aTL ` a aX   Trr@PT ? a f 64( a4  u   Ha"( rr@P| I S Ga uR u <a A @MACSKL END. TYPE (CR).  rr@P c qT  wAB Q#, 8 "E 2 1#U   K rr@P- acQC !AAT A  c q arr@PX 2 aX 3 4T a2 DTf n n A. ld rr@PaTXtn nA TTA J"a 1J XS ( !T aa TT xrr@P aa T2T#TT T3aT;  'a T" A  q Brr@P T" C  9aXX n a  ATrr@P  6 5T ԑ 7 q 2 8nT!T aa Xrr@P/TX!1X1X/a R  H a Ȁ "f" a a Trr@PZ a auDa Q  U $ f" H a Xh aTH(rr@P 2  n"A3` ah (f q aaF rr@Pa ? a c A c q DT "A2 0 0`"X>rr@P ` B1 aX a E ( ff q0h X $XT rr@PhHTL LIBMAC ERROR 00h H aTL`h H  aTHrD@P1` aT\ D PLIBMAC PLIBMACP*L,ASSEM 17X15151PJ P{aASSEM DECK-ID A01 MACRO ASSEMBLER SUMMARY-110Jr@P k d f pfvB 0 h hh5 phvhTZNrr@P+" fo fuX' hTLABS BASE ERR6 hPASS1 PASSr"@PV2 PASS3 TABLSTXREF "PASSEM ASSIM PASSEM P*K,P8 17X15153PP*P,F 17X15154PJ P PASS1 DECK-ID A02 MACRO ASSEMBLER SUMMARY-110Jr@P k dC f fB 0 h hh5  hhTZNrr@P+" f fX' hTLABS BASE ERR6 hPASS1 PASSrr@PV2 PASS3 TABLSTXREF dd Cd M lddl2rr@Pkd `B f q dL Jaa a! d Ia aUUaaadhmhrr@PhndX 0 c1 q\KT:5>Cd H  fD q8-rr@P -n< +n:\JXP\"\54#   dnT!a" a rr@PT\ B!g +n  -n +n  -n"aT9dKrr@P- A("(d Q< `( ; da(  -n( +n*  B ,n( +n ba*rr@PX)* q ( bR U 4\XVa - #n qrr@P # q 2TTQ J aa a A a''rr@PX' `a'TQ C a a a X    XPXN ?$ a#f rr@P64$( a4h u  Ha(M| I S Ga rr@P uR u rr@P1 *nX!X `T a "A2 0 X !" \Xharr@P\! a'M' M ""h)E *n )X'H hDh aTr,@PL SQMCMDOP**,r@P** ********** A(  2( :c((a- a(- A)*+, X   ( rr@P ff q a)a*#F a( ?# (a( &c+ A (c# qTLrr@P MASS STORAGE OVERFLOW $ ?#f 64$( a4a !drr@P Q `~0N6ɱ~N)JH/Nl%>9%%.%. NS2SE1rr@PDL.L0L-N:N.N0N-NNMMNMNMƳK RARMRQRBPaPmPqPb-1"-1"0-010" - 1 "|X5 rr@Po4 s S;:$$&2t@o$9NTΏ6A]p#^g5g#Eg@ `HPX(rr@P08hpxhJHJGH?h> _:n: q H66T `"0 rr@Ph A& `#4 ZdnTL  OV CORE RES. MACRO DIR. ?rr@Pr`PrPPASS1 aMCHPR JJAN12PIL 1READIMGETOP RECV MER nMDEX CHPU CONAC rMACER PUNT RIMSB {r*PP1D SKLOUTGCONAB P1A READI **rPGFILE MACROSMC7A MCCON MCNAM DISKW5DIRSCHSLMC MC5 CO RCO (MACCALDIN ENDMACrBPMACCON MACGETMACDEFOPT DOUT BGFL1 GTFIL MAXSECkBPPASS1 J PPA1PR2 DECK-ID A03 MACRO ASSEMBLER SUMMARY-120Jr@Pa( A)@ #2 d, C   1` R2 C `  arr@P+ a TsT\y aX#f $n %n A. l`  aT/rr@PVXpn nA h\J\J\JA J!1DXL#Xp a aT3rr@P3T$X\* \3a(\:  '(a( \9 ( qJ \9rr@P <a.X.h n a  ATU$ $ \rr@P # q 1#nX!\ T 0 aA a \\\rr@P3 a aX\X"1X1X0ah R  H aȀrr@P-naaT aata Q H U $ n H a  rr@PXa( a\( Aah ahy _nv qa6alo nk a TR rr@P %  *!]\ A\W= a  \X"Z26 A? _a6rr@P a 4  Q\ aaa6aXm8    A6 rr@P * n #c. q: Xi a  *n  "jX" " _ rr@Pnb q^ah [XE E(  2( 2 A :c((a+ a(+ A*a()X)(X' X%rr@P/ aa(@ *n a (9T #. ra\ a Ga a Rrr@PZ _n  E 0aXUalTa a a\!6S rr@P  *\ X,  T4T31\ a7X  aa6X6 R\66 \rr@P1 TX7 7a(!"ȟ\% X  `lrr@P h q aa X" A"T1 HaF LXH _H hrr@Ph aTZ;MACROSh H aTL;` `hrr@P1h H aTH;` fD q a \)x Q B !TLrr@P\ (n q aTH; (`a a TaGETOP r"PREADIMPIL JJAN125MCHPR "P J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X15158PP*K,I8 17X15159PP*N,PASS1,,,B 17X15160PP*K,I6 17X15162PP*K,P8 17X15163PP*P,F 17X15164PJ PvPASS2 DECK-ID A04 MACRO ASSEMBLER SUMMARY-110Jr@P k d f kfqB 0 h hh5  khqhTZNrr@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASSrr@PV2 PASS3 TABLSTXREF t` a#a a7a8a a9aa=T= 0rr@P`A  a?a> c@ q@aF AIT a h8h7h6 cD qahX !rr@P alrA 0h!d Bar a8r9 A9T )a  anhirr@PXcr`P8r@P:TL  7 a7FAgAX Aa**aa c B T agaQ *wrr@Pe nq9T aV  2V :cVVa[ aV[ AWXYȅZ D7  Drr@PDSEXLBPPOPRGRLOVUDMO  Xi\UQA^m \J\I Fj$c: q # rr@P   j r  *nn 9Tlr`P r@PC\\ "AZ q al al\m  HlAa4aBXerr@P aXaYM\ C aMXYYa1\Ya!\XaW\AXl % BZW rr@PI X D   RTLBFV\L ak\m 1X%m8\ akj\B amXrr@Ptm  aj$TT Xm aT aa\`  rr@P  \ \eam A' 1 a\<  am 4aTrr@Pm  1 aj\7h" cM aXdaZXP a 2a\ hrr@PaMT am aakTBcm4B kTma^A  B rr@P $1qFaq4o  aMAA  cVB Tl alMrr@PK\A\ D B Q" Q 1 a3\\VcV aM\ am arr@Pv V V r"]^q4btcqFao aoqTmi\rr@Pmaq cP q ARTaQm  \Am 2\ aQaRa+A^F 3Srr@P0_Q-CaaaQ(\$ UT1L \ aQ`daa\  ahaRaRTrr@PRQCSbA!  Ac R aQ D TB  rU cUcm Ac11q*arr@P"ARaR aaQm t AS aQ U U QAc QAQc  QaUarr@PMaTQGUAUa!T" 4"BcaaT 1aCaC Tahdrr@PxCaC& TCQX C aC ]cF qQ:rr@P d `d TCTD X 8c qh H a8TLXr*@P8c d D8*rPPASS2 aPCO nIFR ASSEM NEXT PRNT ER CCOT COP MOVE UP1 UP2 ADC ZEIF rrPALF NUM jDEC ~VFD IFA IFC 5EMC LST NLS NAM1 NAM AXPR NAMC PUNC rrPDSKWLNIMJ SYCH RESTBLTBLIN D5 CHPR sRECV CHPU DD1C N2 OB DOUT DIN rPLBPK SYPT ZSYTAB}PPASS2 J PvPA2PR2 DECK-ID A05 MACRO ASSEMBLER SUMMARY-120Jr@P"F]UH H%Ac `d d c`>bA wrr@P+ RR  ]H:h/F \ JL . XTT E TTrr@PV1XXI aX7HI df CwFF 1>?rr@P !7  c qTL =h>T Da a>?a>a@a@XNMASS Srr@PTORAGE OVERFLOW > @AX$ >a=h>TD>?a>=h>T(X rr@P  A @>a=he>\=hs@A>\hh = f Afrr@P\A   TR alk\% -" \ aF CT^mq[n(!rr@P-oC\0ikT AamTaN aO  + -b  aO1rr@PXkwaTAbCT7T mO maNf  "X7wTN  Trr@Pn$1p +tq -o aq T Qp  [iUAq T Apl rr@Pl q HaJ({JM Ii S Gal uR u X 8aJXJ6R\(3^0h Crr@P1\^m 1 aRaQ TS? 7yxk\ aRaQm rr@P\\_^ \Xxm  \\\ B \ GKINX11\ rr@P bIahIFf qX hN $#bXQ\\ Qrr@Pb\ E \TX1\ \N  aCaaQAAHakTE B qrr@PVCQRAAaCQa@F=haXTN TB c q PAAABACA %HGrr@PAT `hB aAaBaC7 0 c q al a a9 cD q a rr@P3a7 **cB NNaTG7h H aTL` `hh H aTrr@P^HK` `h aGaHF aF ? FaF H 6cF Br(@P  P C D X-P-C-D(r@PhHh `h`1X& dhf  Dhh`1X  hf DrJ@Phh`  fTD dhf( dfJrPZSYTABSYPT 7LBPK DIN XDOUT DOB UN2 6D1C ]CHPU RECV lCHPR D5 /TBLIN RESTBLrPSYCH IMJ DSKWLNNrPPUNC  IFR PCO NEXT ER NAMC +PRNT ?AXPR NAM NAM1 NLS LST EMC IFC rjPIFA COT COP _ASSEM 1VFD DEC NUM ALF EIF ADC UP2 MUP1 LMOVE NjP J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X15168PP*K,I8 17X15169PP*N,PASS2,,,B 17X15170PP*K,I6 17X15172PP*K,P8 17X15173PP*P,F 17X15174PJ PvPASS3 DECK-ID A06 MACRO ASSEMBLER SUMMARY-110Jr@P k d f kfqB 0 h hh5  khqhTZNrr@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASSrr@PV2 PASS3 TABLSTXREF fjdih Ȅidid g aa8a5a6hTFrr@Pa`   T$18 h h $h1 hh Tadhrr@P T cD qahd 8"TX,q[# Tn#T al rr@PaV  2V :cVVa[ aV[ AWXYȁZ rA 0h4d Bar r)9 A9Trr@P )$a  an  c A |2t wA "XAanr`P-\r@P8o Tm TTTx aaa8XJ\"A A a Prr@P a A \Q P C D X-P-C-DCTAaaX aGaHF rr@P aF ? FaF H >cF B  8ìcs q S h7 l rr@P \ hXy5Xd T hDsX X 8g qhH XTrr@P5Ȓ1X a8TLR a@PAACA AdX eJc a X 0rr@P`Ac aT 8aec rdQC Tc  dXe AT aAc rr@P@  q  :EV B c`VWXȁY 0c q gA rr@P a XX aTLZp Xh  A  Hrr@Ph= 0j7 q aTLZ hT #hr#oarr@P ZAg **aAXAaX aQagHU r`P7h@PRc d  D8 D D5 D6DSEXLBPPOPRGRLOVUDMO****** **********hr@P zF]UH H%Ac  `dd c`>bA  y rr@PRTX >@AX >a>?a>=d>T   rr@P A @>a=l@A>\T  alk\5 T aF CT^mrr@Pqnqgo " A aoX oikTAarr@P& \mTaN aO  +aO1 -k ,AJ mO maN r&@PQg  "T+i&r@P`hHh `h`1X dhf  Dhh`1X hf Dh`rD@P `d5 fT5 dh f dfDrPPASS3 aPCO PCOSETPRNFLGPJECT JJ5 CARCONNEXT STATUSEND WDPK LDCP RECV PUNC rjPRBPK BUNCP xPRNT WRIT ER CO RCOWR ^CORD bOE &SYCH |IGNORETBLIN RESTBLjrPDISKW5OFJ2 SKPROCDISKR5MAPR \REGP KN3 ?CHPU WMOVE DOUT CHPR  DIN EJECT RP2 rPPASS3 J Pv>PA3PR2 DECK-ID A07 MACRO ASSEMBLER SUMMARY-120Jr@Pn%1p +q - aq Tp  [i UAq T Apl rr@P+l q Ha(KzM Ii S Gal uR u <am Ai @ rr@PV ; #)DI[i c] q\u m yAmA ehPDr rr@Pag_e > !( 9 'Z Ae_AM  A` J a3mm]c]`dB rr@P14  Taa ae Qamda mjxAav Aa{axmurr@PbA1 T# agT( Am  ahd c] qg akaPg]lQ^h Drr@P`C !A`VbbkAb abYj_ aPAb^hhOrr@P-C L3 3  z   aPAdX 6 5 2 1 rr@PXaeWO  o|XfUo 1e><]{+"rr@PvhmaN M  D B SXiEDX&+EAaJR"P cAJrr@P AQDXYZQaJwXkRAF\eh aR \UB m q^  [EX1aJWrr@P\?E\CR\DU aJ\:\ /H9e #T drr@PVX \X \X  PAGE 0  rr@PDATE: MO/DA/YR aXG TTA aaR 2 aR\R aRrr@P h cP q ARTaQfSm  \m 2\ aQaRahA^F 3Srr@P _Q CaaaQYq\l \\h AT2\T L  aQ`Ydrr@PBAaa\@MPm .S +bN2L 3 LaQ̲bKN P̂b`rr@P-daRCL db LSOaaha@=h>XTRQaRQoSbArr@PX!  Ac R aQ D TB  rU cUcm Ac19q2aRARaR aaQmrr@P SAS. t AS( aQ U U QAc QxAQc  QaUaaTQrr@PGUAUa!Ta" 4#BcaaTB!1aQX rr@PC aC ]cF qNO b aN\tfQEN2 hm i g rr@PeO rNQ# JP QqqhϱRaRaQRCc aRaR!dI1aEJaJrr@P/C1Zh?JaJNRqMZD L"aKQAU AQm. \(     rr@PZ JaJ\  am\P\\\m N'KaJUaQaNrr@PQD  \RJaJ\mRA!dam R Y CQLQYC aR!rr@PQaQR 2 \ RJaJQmi\ \ AWAXAZ     rr@P VCVJAJ\ \ h H a5TLh H a6TH`rr@P6 `h aaJ aL aaPaQaajahTmS     Tj aarr@P1aP aXr ajaoTm aaJ8 3j aNTaofhrr@P\E \ a i   C aX5m 2 1j\E rr@P\ aabadaj" c aTAX j T am P  Qrr@P  U C T- "qRA  C bAVaVR!A A rr@P݁aC AJaJ aTkTlT aJ cV qX7ab gTm rr@P\.aaabX5aamB R C Z A\XaVX%\T" qVad\cWm 7 B"rr@P3T   l al  a]ae\e 2 2] Sa]eam ]zA]v]rr@P^tmrA] a/X!I Ae ! A\<eQC!aQ!aaX\aXXWdYZ!rr@PaV 2 aVCA aabaadaJm amTwUdaV %aVE!  drZ@P'daX Ae2ZaVa2YY AY 1VZrPM2J5 TA\HhhhAI\B\HkhkBT\ h7 !\X \X  d  hsrr@PHXHXHXH nB  h HH  0F 0Hrr@P- 0F 0  PGM= () COM = () DAT = () rr@PX Pa 5 1XT1T aD AT aaParr@P!aX\1\C A\Pa] a^]XFaGaHa A\X7 uTrr@P dX a aa aT3aXTA# aT aX1T=rr@Pa\XAaaaa\,, ac T XaFcGcHcT 1ATrr@PdT$AVac Vc C #AaAa\LX3& 8c qX=X<Ia rr@P/ c A XX a8T\{8\4X&! aT\rr@PZ!XyXs a8TD{8ERRORS*Tah H TaFaFrr@P2hadahFc Gc Hc hc D 8AA 9AXr> @AX rr@P>a>?a>=hR>T   A @>a=h8@A>Trr@P gA   XXU aTL  Xh =rr@PA  Hh; 0j5 q aTLIAc @  q  :EVrr@P1 Bc`VWXȁY 0c qr`P\r@P{c d  D8 D D6 D5****** ********** P C D X-P-C-D aGaHrr@PF aF ? FaF H 6cF B  aV  2V :cVVaZ aVZ rr@PAWXY 85 ìcs qh H"h a5TLrr@Ph H a6TH`6 `h hQ7 d TP rr@P'XXX hT DsX 8c qhH Xȩ1X a8TL{rr@PRAg**aAXbAaXx aQagH*DSEXLBPPOPRGRLOVUDMOrr@P} h}h Xd a (X dghH  aTLrr@P 5hXhp a :jPB pB0 0HRB8  Krr@PHJ 0UhB ""hL ""hD ""B /h> /H9h $X ,Xrr@P X/ X PAGE 0 DATE: MOr@@P)/DA/YR *** S Y M B O L T A B L E *** @r@P Gh( a  hi `h iHh  ` H fj (`hhrr@Pr@g ?g d dhh+8l dihhrr@Ph6 f j `h`hjiXOih  ` bh  H~rr@Pi` h52b 2  `b `c!i `g a ("r2@P h A!` 2`P`P r@P  hh h hXe h`&2 1 d h" rr@P8H"f  hȾȽ @e  hȪ`ت12rr@PcȤ !'ȡ"Ț H"f " `b h  hrl@P{ u hrph c hbHd_ ^ h[ hT_lr@P `XhHh HX ( X (X29XvFfGf Hfrr@PIaK X7]f ^f  hĘ( 1 $ AX HXer*@P  XX] h\B*`Pr@PHKB!KdBaK hK 0 aKp 0c]K 0 aK h0]c]C H] -rr@PHa] h aGaHF aF ? FeF H 6eF daIh _r2@Ps f  q _ f q2 PPASS4 a PPASS4 J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X15188PP*K,I8 17X15189PP*N,TABLST,,,B 17X15190PP*K,I6 17X15192PP*K,P8 17X15193PP*P,F 17X15194PJ PvXREF DECK-ID A10 MACRO ASSEMBLER SUMMARY-110Jr@P k d f kfqB 0 h hh5 khqhTZNrr@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASSrn@PV2 PASS3 TABLSTXREF TFa   h $hh1 h8nr@P ` ai `hiHh  ` Hfj `hh؈@rr@P g:g ddB dihhh6 fj `h0hjiXrr@P ih  `bh   H`gh i` $  `~rr@P1Whs`Hp XhXc daK Xy  ]f^fUX Frr@P 2fGfHf IaJaKX DfEf  (f  KXP ]f ^f _f() f Xrr@P] i` $ `1@h `H XhX rr@PdaK X  ]f^fX" FfGf HfIaJX8 Df EfX brr@P`gi` 3 `2?h`H X;hrr@PX' daK X ]f ^fX  FfGfHf IaJX Df EfrJ@P X `c ho `h `c17Jr@P&h `d @ aKXk, f]f^f  HA"dd "rX@PQX HX   Ȯd` X`BXr@P ri` hb 2  `b `! i ` g a r4@P" h A ! ` 4`P`Pr@P hh h hX= h`&2 1 d h" rr@PH"f  hȾȽ @e  hȪ`ت12rr@P Ȥ !'ȡ"Ț H"f " `b h  hrl@P8{ u hrph c hbHd_ ^ h[ hT_lr@P a` XhUHhS HX::XAFfGf HfIaK X]frr@P ^f  h̘ 1$  Xf HXWX[rr@PXN "XH a kd  (XHb1 / aT\!"aK 2rr@PXL X]h)^h(X  X! h X  X  X c qr@P r@P ERRORS "JeXX X X XX !X a XXrr@P>X X XXADhcDRhaESh^S h\ !X a XXXrr@Pi X XX}VAh9LUh7E h5 h3X a XXe E Q U I V Arr@P L E N C E S ----------------------- DEF.LINE NAME VALUE REFERENCED AT rr@PLINE NUMBER S Y M B O L S ------------- E X T E R N A L S *** A L P H A B E T I Crr@P A L S O R T O F S Y M B O L S *** _ f  q _ f qhH rr@P aTL 5hXh p a :jCB (pBrr@P@0 0HEB8  >H= 0ih5 ""h? ""h7 ""B /h1 /H,rr@Pkh t $XX PAGE 0 DATE: MO/Dr@PA/YR Dr@PHK 0 aKp 0c]K 0 aK h0]c]C H aGaHF  aF ?rr@PȢ FeF H 6eF daIh J 2 A :cDJD 2 A :ȃDcDrT@PE JHaJh H a6TH`6 `h( D6TPXREF P*K,I8 17X15196PP*N,XREF,,,B 17X15197PP*K,I6 17X15199PP*N,MACSKL,,,B 17X15200P O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC O0T' ',5,',',' EMC O0T' ',6,',',' EMC O0T' ',7,',',' EMC O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 ` EMC ` IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC O0G' ',',',6,' EMC O0G' ',',',7,' EMC O1'' ',0,',' EMC O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC O1'' ',3,13,0 EMC O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC O1'' ',6,11,0 EMC O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC O0OIR 7,0,3,' EMC O0OIR 7,0,4,' EMC O0OIR 7,0,5,' EMC O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC O0OSRX 0,1,' EMC O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC O0OSRX 1,2,' EMC O0OSRX 1,3,' EMC O0OSRX 1,0,' EMC O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC O0OSRX 2,2,' EMC O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC O3'' ',',',3 EMC O3'' ',',',6 EMC O3'' ',',',7 EMC O0OSB ',1 EMC O0OSB ',2 EMC O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC O0OSB ',6 EMC O0OSB ',7 EMC IFR ',GT,-16 IFR ',LT,16 IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF VFD X8/6,X3/',X1/0,X4/' EIF I0 ` EMC ` IFC ',EQ, O0EX I0 IFC A,NE,A EIF IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF IFC ',EQ,Q O01 5,' I0 IFC A,NE,A EIF IFA ',GT,4 O0EX I0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF O01 ',' EIF I0 ` EMC ` VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC O00 ',1 EMC O00 ',2 EMC O00 ',3 EMC O00 ',4 EMC O00 ',5 EMC VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0 ` EMC ` VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 ` EMC ` VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0 ` EMC ` VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC VFD N8/11,N8/6 EMC VFD N8/11,N8/5 EMC IIN 0 RTJ- ($BB) VOLATILE ASSIGN ADC '+3 LDA* ' STA- 3,I SAVE RETURN EIN 0 ` EMC ` IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED EIF STA' ' RESTORE RETURN ADDRESS RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS ` EMC ` EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS ` EMC ` EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2 JMP ' EIF ` EMC ` EXT DECODE RTJ+ DECODE DECODE INPUT ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 JMP ' GO TO ERROR PROCESSOR EIF ` EMC ` EXT DECHEX RTJ+ DECHEX ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS ` EMC ` EXT ASCII RTJ+ ASCII ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS ` EMC ` EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS ` EMC ` EXT CLOCK RTJ+ CLOCK ADC 0 IFC ',NE, STA' ' EIF ` EMC `FN' ADC ' MR' ADC ' IFC ',EQ, LU' ADC 8 EIF IFC ',NE, LU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' FC' ADC ' RL' ADC ' RP' ADC 0,0 EMC EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X* STA FC' RTJ+ LOKFIL LOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC EXT STOSEQ IFC ',NE, LDA =X' STA RL' EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' ADC' FN',RP',',RL',RB',RI' EMC EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT ' ADC' FN',FC',RP',',RL',RB',RI' EMC LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF IFC ',NE, SAZ 2 NOTHING TRUE JMP ' JUMP IF ANY SET EIF ` EMC ` RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0 EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF I1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' EIF I1 ADC ' ` EMC ` RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ,1 VFD N2/0,N5/16,N8/0 ADC ' EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*2071` EMC ` RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 ` EMC ` RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 ` EMC ` RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 ` EMC ` RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' EIF I3 ADC ' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' EIF I3 ADC ',' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/' ,N5/13,N1/1,X4/',X4/' EIF I3 ADC ',0 ADC $8C2,',' ADC ',' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' EIF I3 ADC ',0,0,' ` EMC ` RTJ- ($F4) I1 IFC ',EQ, IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 EIF I2 ADC ' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/' EIF I3 ADC ',0,0,',' ` EMC ` RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ' ,NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ' ,EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R VFD N1/1,X3/',X12/' EIF ` EMC ` RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/' ADC ' EMC NLS IFC ',NE, EQU ' (') EIF 0 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, EQU ' (') REPEAT MANY TIMES EIF 0 IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED IFC ',EQ, NO COMPLETION EQU ' (' *16+' +$5C00) EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU ' (' *16+' +$1D00) 81*205 EIF 0 IFC ',EQ, ABS COMPLETION EQU ' (' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST RTJ- ($F4) ADC ' NLS IFC ',EQ, LST ADC 0 COMPLETION NLS EIF 0 C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712C2 IFC ',EQ,* IS IT RELATIVE 88*2712 LST ADC '-*+1 COMPLETION NLS EIF C2 88*2712C3 IFC 'EQ, LST ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS EIF 0 IFC ',EQ,I A ABS CORE LOCATION LST VFD N6/2,X10/' ABS CORE LOCATION NLS EIF 0 LST ADC (' ) REPEAT TIMES N ` EMC ` NLS MOT' ',',',',',1 ` EMC ` NLS MOT' ',',',',',2 ` EMC ` NLS MOT' ',',',',',3 ` EMC ` NLS MOT' ',',',',',4 ` EMC ` NLS MOT' ',',',',',5 ` EMC ` NLS MOT' ',',',',',6 ` EMC ` NLS MOT' ',',',',',7 ` EMC ` LST JMP- ($EA) ` EMC ` SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED) ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED) ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE BZS '(') 45 CHARACTER BUFFER EMC P*N,MACROS,,,B 17X15202PO0S O11 `O12 O13  O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 O42 O43 `O44 O4Q  O4A O4I O0F @O3 O31 O32 `O33 O34  O3Q O3A O3I  @O2  O21 !O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI &AR1 'AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 *SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 ,AN3 -AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2LRQ 3LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8AMI 9AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 <OM2 <`OM3 @AS2 >AS3 ?AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 BSMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 DERQ EERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA HEMI H`C1N HC2N I C3N IC4N ICQN J@CAN JCIN KCCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 NXFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z PS1N QS2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P TS2P T`S3P TS4P U LFA USFA USFZ V@SFN VCLF WSEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP ZO0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS cWPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX fGPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS jVOLA k@VOLR lHEXDECnHEXASCoENCODEpDECODEs DECHEXu`ASCII vFLOATGwCLOCK xFLDF z@DEFFIL}@DEFIDX~LOKFIL~UNLFILRELFILSTOSEQ`RTVSEQSTOIDXRTVIDX`RTVIDO STODIRRTVDIRSTATFL`FREAD @FWRITE STATUSREAD @WRITE INDIR EXIT CORE `LOADER DISCHDENSCHDSCHDLE`TIMPT1TIMER GTFILE @SPACE @RELEASPTNCORMOTION ŠSYSCHD̀MOT @BSR EOF REW ܀UNL @ADF BSF ADR ߀DISP @FFERGTFILE @SPACE @RELEASPTNCORMOTION ŠSYSCHD̀MOT @BSR EOF REW ܀P*V TEXT EDITOR 17X15207PP*K,I6 17X15209PP*L,EDITOR 17X15210PJ PEDITOR DECK-ID F25 FILE MANAGER SUMMARY-110J:@PTZ$EDITFL: PEDITOR PEDITORP*K,P8 17X15212PP*P 17X15213Px PEDITFL DECK-ID F26 FILE MANAGER 1.0 SUMMARY-138xx@PTZ$EDITFLREADY STRING FOUND IN LINEOPERATION FINIxx@P+SHED--STRING NOT FOUND CHANGES+xx@PZ'@xx@Pxx`Pxx`Pxx@P hT`?@BAT`^_@BA X7 /ʺ   & ʫ  xx@P b ʗ j q /jXNH  xx@P h hTL%+a +hh y1 . j[s ph hlxx@PChhhh FHRhPhQX1h  HJ    _AX-? >| xx@Pnl3 /. X+* !( Et  *j !qH  axx@P4(h!j dhXX X{Xxx@PXTLDhTH-/ h <h'3X'hXxx@PȻTLTH-X*X&"#hDhxx@PTL%$> TH-/XXB hbD`hd X iZ 7xx@PE . : (P  `AI X  <5Ȉ3h00Ȉ.hxx@Pp*'`(0i HBZ `j4 0 Q j xx`Pxx@P X h = h hv2hhhh hlh h )h &dhhhhhxx@Phkh hX / j qXS @HHHHXxx@P  h(R(X/NDh`HX)ih  "xx@P Ƚ2h1غ ع )ض H/Ȫ <0"DhhhjY xx@PIAz  X GIH"@ "LIST CLEAR AUTO DELETERESEQ xx@PtGET SAVE MERGE ALIGN SEARCHCHANGEEXIT CONTRLDUMP LOAD ADR BSR ADF BSF RExx@PW '$ -    MQSTURxx@P X  @ j! q 0F0I @Ȉh  h Ȉ hxx@P H4 H@.Ƞ j) j%Ƞ j j ! 1 ) xx@P h  d  hdhahXȓ^\ X Uxx@PKhA1Dah>H;@32I. 'Ƞ"i"&`" xx@PvXj.hCh- DjX4'PD/AhI XDh(X 0X xx@P8Xk T=b\f?NA hT\?NAhw+xx@Ps X H]Dh_h]  X    O DhFBxx@P@H;8 hD `X h. 2 1)&i!h% "ȉiDh ` 4xx@P"1 0h1X DhX h  xx@PM   Dhn hSHT^aZ?BAˠ&xx@Px+{z h ahT~aZzBAh"(&-(xx@P hhX*!h[h SX !hX #h hݘ"Xq4hCh?xx@Ph>X X 3ǘ4hhX\X|-ȸ!3ȸȵh ȱhX,hXxx@Phh hX TL|ȑ hT\  rxx@P$.l .z( HeC hnM hlUX Pth xx@POhY hT2S7 hS hOHL,KHHh00hXb  h8 h813H.H.xx@PzH1+9H*-+ h( h( h$ȁhTLb hh hP8xx@PXX XDh {XyX hTBAxx@PX! hX; hX'h h!X-hjDXdxx@P1h4XDhSX X|hhH"XBrhxx@P&X& hh h  hhX!  hXTh^XJh! ֈhxx@PQh@h{'1X\hyXcXYhH/XQXGXxx@P| h[!  X H  j qD`hhhJ)XSh  xx@P Dh8 h i iDh $Ⱦ Ⱥ xx@P % iXX2 hXNhXOXLXXXXxx@Ph"'1H3Xh hhXe hiXhXxx@P(hX0XjlXXUXsSAX hX )XXaXxx@PS\ hI h ȿhl Xnjhhhȸhb j"  ȫ% hVTxx@P~afNA dT!NA hT!NA d X3Ȃ -hN+hLwxx@Phxu 1j:hXj0  j- H aX H hTxx@PNAX `+Z* Xxx`Pxx@P  / y jn |i  jb h hxx@P : eHX XXH h TZ ^`"xx`P e`xx@P RMIH   CEXoDh;Dh7h4h1h,+" xx@P  hhXÈ xx@P  X{} XuwX_XhXhX[he4!XlNxx@P FhJhU1\Xg{h hFX&ɘ.9+hfXKX!Ⱥxx@P qX:X"ȴV h HXXXGhO hS Dhh hxx@P h1'2XX- hh<XhX9H   xx@P hX " hX%hØ"[X{! ( juBxx@P *DheX (bjB h dT=!NAT=!ZNxx@P A d @ X    B VR X X7 `XX# `X/ 3 xx@P H`X LF0X 3 `X% q- VX '   qxx@P s V 1X|  X& Xw Xl  B V (DjB h  xx@P 1X  XMhH"!#jh  h  hhxx@P @ X)  X%   B V  `X X 2 1 X X 4xx@P " Xf `xx@P  hDhChDhXq6X#hrX$mhhɘg! Bj qxx@P >XPX(ȶJ!#Fh XȩHTL _ HXnTL kxx@P iȐTL w$)xx@P H Dj qhh`K0FDhBh?XKh.   5xx@P D Hh& X1h  2 ih ȡ HhD`xx@P Q WX h  `D`  hDhThDhX:xx@P  H8 fj s- hXn!X"hqX$lhh͘f! hxx@P ;%XRX6ȽL#1D` HX EX0XئH{ 1Xxx@P f? B 1 XP ȇTL $thIXH j qxx@P TL 6X# HTL  ** FILE NOT DEFINED ** LINE NUM OVExx@P RFLOW ** FILE SPACE FULL ** INVALID COMMAND ** NAME NOT UNIQUE  ** INxx@P VALID LINE NUM. ** DIRECTORY READ ERROR** DISK READ ERROR ** PROTECTED FILE xx@P X2"h X*hhh"thhhhhh h*xx@P=h4h>hR] hTS98765X}5h 2ihXmxx@Ph$!  hhT\za h `P0pXH2"8xx@PhhpX=! h; [ hHW X_$ h,41&X#X+Xxx@P & j  hh hX h hh  xx@P !    H! #Ƞ  H h\ 2xx@P #xxPEDIT xxPLOG1A FMPFLG LOKFIL JLLUV4FBASV4 JBFLV4 UNLFILSTOSEQRTVSEQSTODIR RTVIDOkSTOIDXRTVIDX|RELFILxxPDEFIDXDEFFILxxPEDIT xJ PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X15216PP*K,I8 17X15217PP*N,EDITFL,,,B 17X15218PP*V 17X15222PP*V SORT/MERGE 1.0 17X15223PP*V 17X15224PP*K,I6 17X15226PP*L,SMC 17X15227PJ P8SMC DECK-ID S01 SMC 1.0 SUMMARY-108Jr@PX-H h Dh hTZaf@SMCMONSMCEDTSMCSRTSMCIMGSMr(@P+CFMGhhψh ,( PSMC PSMC P*K,P8 17X15229PP*P 17X15230PJ P SMCMON DECK-ID S02 SMC 1.0 SUMMARY-122Jr@PXA\4 \$ \ \ `X2`X-+Xrr@P+SMC ENDSghdhT]@ [1aeShRhT7]@ H1rr@PVNR>>R74<b!AE4 4r1>8++R74)b!3-4 !r1&*rr@P2b e! "ru15`@@rr@PhHHH bޠ 4!נ bӠ 41̠bǠ4!rr@PͿbͺ41طͪ2be!ؤ͗rr@P"ru1h H D cfh '2bhhrr@P- & h'h h7hPASSEDDOrr@PXNEVX XP)XaFX TDXbbLb\Xrr@P X   lQTTYPE GO/QT/BY ) 6 3Xrr@Pa!Xc h4a ( 5 1 #VB1Rrr@PXBLKSIZ/RECLTH .NE. 1,2,3... a CCVVX;X XXhrr@PH XLXGLUN FILNUMh hh4a 2 arr@P/XXh Va  BVX Xrr@PZ'h hhTCXTXXXXXrr@PTRELFIL REQIND Xw`cEXfbXgrr@P@SEQ. DIR. ERrr@PROR X* H`X hhXrr@P1eDaX@XhHXXrr@P1hhh h h<hh XTw`V a rr@P\t zvwX\X| X{PRTVSEQ REQIND rr@P$X12Hh7]`X@h4ȬhX B`X hK` Lrr@P>h97h6h@@aeXؾ SEGMENT-LIST ERRORH a Xarr@Pa a  X$Da a r`Pr@PH`hՠ-ehDaaX@hheaX aaXhhȶfrr@P:ȵb@XHhX}`Xc hvȢ` Uhh h  hTrr@PeHi`|q a X XkFREAD STATrr@PUSOVERSIZE BLOCK hhTh1`hhh h rr@PhhhX1XXT` cXfVx]$rr@P)Hi(QX!  XE2XSTOSEQ REQrr@PIND h>h h hTL$`r  Xi 8XFWrr@PaX.XH H HTH_af"rr@Pi h b X bXFmXTYPE-IN ERROR r`Pr@PhHh4h  rjh7X Htrr@P XUhHHXLX LRR B q  :h H X rr@PXX'3X@00AB8 0EB8 0E`Earr@P+X X t XX0tXXMXFATAL ERROR rr@PVXXhH HX3 hbX f Xr`Pr@P =XXH, hhhȽU $hX2ȬX B0' XMHrr@PXHhH!dX4nABNORMAL ERROR@rr@P ";}DQrr@P'+C-ESVY.AVi|rr@P=X9lX@hNX1h HfFTh"5%rr@PhrDSMC BEGINSTOO LITTLE CORE l ahl&%VW^jrr@P @ABCOsKqc}/$7AYvyrr@P*=H`c   !345rr@P6789:;<=>CGWe  x XDjHhBH:B H Bir@P  PSMCMON ZPSMCLU4 SMCLU3 SMCLU2 SMCLU1 IUP ORELFILRTVSEQISTOSEQDEFFILFSLIST FLOT JZPSMCMONJ P=FLOTN DECK-ID S08 SMC 1.0 SUMMARY-108Jr@P  `a` ` `X8A"C  w&Korr@P+rXa*XEXXȰ,` Ȱ#`X`Ȱ#`XB`Ȱ#`XJXrr@PVbXO`Ƞ$d`d`.`X XSXUbb Ƞ$`S@@rr@P`Ϡ *`@ed`d`Xn` `Ƞ4`o $$>arr@P.`X"dR`2H `͠ `D`D```XDXXXS#Ȱ.`rr@P A`@ @ ŀX2X0` `2@A`πҐ`"G rr@Pz @35` ` 2` 1`+ e% b ``"dR`rr@P-2H ```XcXX8#Ȱ.`aA@͠`d `rrr@PXd 0 d1 " 2a0 `Da0 1 q  ! Xrr@P` ` `X X@dRXX@`!d2H `rr@PԠ"`@`ed`d``Vϐ.`@`@`@rr@Pϐ"h t=`hA``h`A``B΀" e rr@P" `@2T "@k">.`Rd"Ƞ>r*@P/`R@`" `*PFLOT HFLOT :PPERORIXFOP6LOFOP3PECOP-XTOP ROCHKpPERND:P J PPARABN DECK-ID S07 SMC 1.0 SUMMARY-108J*@PHh "c"* PPARABS P J P3COMNFP DECK-ID S09 SMC 1.0 SUMMARY-108Jr@P &B``` ",2!#`&2  rr@P+X/2 <CF=B#`X X9@ `X!X1rr@PV Ƞ$XX #!1H$rr@PX"XX X 4 4p"d 2esR4rr@PR4!D RȢA1`R "dR@ R  B H gadrr@P `#`X1Xb #`X%`!dB2 @rdR@rr@P`/@Ƞ4` H(X t` Q  T"" R1 H XRRtr@P-`pJPIFALT  SFALT $OPERNDNXTOP FPERORPROCHKSPECOP*FLOFOPFIXFOPJ PPARABS P J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X15236PP*K,I8 17X15237PP*N,SMCMON,,,B 17X15238PP*K,I6 17X15240PP*P 17X15241PJ PSMCEDT DECK-ID S03 SMC 1.0 SUMMARY-108Jr@PDa hXX;uX * ahlsy3?rr@P+q,4D\p)2>6h;hhhh?hVhYhrr@PV\hP7h&Bh\EDIT BEGINS krr@PTXXR 2 ha8X&XkX{XLXXXo3  T5rr@PT8T*Da a aXQXX  X a  rr@P% B2a X " \aX  2a X a  rr@P B h B  `!j BhUXXG hNahMXBHE rr@P-A@  <; 76 Xp  &XEh" q(2rr@PX8X Tl$X? l aXR AlHXhrr@P1  !$X\lAh݈hXؘhX^lXZl rr@PhXXlػȼ hضصDh"a!h T U\]  "rr@P h   hhVa BhDh3K`aE 2T-XXrr@Pb:`XBH    e1X"? E/ rr@P/BeȲDa XXaXPbbF"teX@aEErr@PZ$B1B,bEX(aB1Bb"b XAaRrr@P @A0eX  XX)AaTAa>q.e brr@P4>X[XXBHALAMAD    aCBAD%rr@PXր2aDXbGb"CtaCXaFB1EB1X"rr@PC? E/ BaCHT   TTTrr@P1H% h XXT\XT!h anH rr@P\ C nh hU HhT1a"H h(rr@PThh0Th h$r`P r@Ph"Xh8"0Hh  h`)Xw/ #h !  rr@P      h hhhȮjX]rr@PX< Ah9R 4h4X)R E 0j  jB  `) hrr@P@d  `ɾ)hh j 4 "H HX\rr@PkXH X0X hXHhR h 'H rr@P H X XXX H H XXrr@P h H XX] RUN= 1 D,(WKBKSZ),(S/N),(KEYCNT),(FILCNT),(CR)rr@P M,(S/N),(KEYCNT),(FILCNT),(CR) C,(FILCNT),(CR) AWAITING REPLY  KEYS= rr@P ...L/S/F,A/D,(KEYCOL),... ...C,A/D,(KEYCOL),(KEYCOLS),... INFILE rr@PB= S D,(FILNUM),(RECLTH),(BLKSIZ),(SKIPCNT),(DOCNT),(CR) T,(LUN),(RECLTH),(BLKrr@PmSIZ),(SKIPCNT),(DOCNT),(CR) P,A/B,(LUN),(RECLTH),(BLKSIZ),(SKIPCNT),(DOCNT),(CR) rr@P OUTFILE= - D,(FILNUM),(LUN),(BLKSIZ),(CR) T,(LUN),(BLKSIZ),(CR)  P,A/Brr@P,(LUN),(BLKSIZ),(CR)D/M/C (FILCNT)S/N (KEYCNT), (WKBKSZ)L/S/F/C A/D rr@P(KEYCOL)(KEYCOLS) D/T/P (LUN) (RECLTH)(BLKSIZ)(FILNUM) (PROMLVL) (SKIrr@PPCNT) (DOCNT) A/B EXPECTED FOUND TOO LITTLE CORE G IWAYrr@PDFWAYh BH7 B,1 !EX5a !   HB8rr@Poa " FB8a 1Ց Faa!dʑF Xh  HBr0@P8h% c hR0 PSMCEDT PNUMLU  PSMCEDTP*T 17X15243PP*K,I8 17X15244PP*N,SMCEDT,,,B 17X15245PP*K,I6 17X15247PP*P 17X15248PJ P@SMCSRT DECK-ID S04 SMC 1.0 SUMMARY-108Jr@PXXXXX=@\ @T`aa4T`rr@P+:T@\SEQUENCES RECORDS INRECORDS OUT `T hrr@PVrRhD 4hh?X5T/.TT r`Pr@PREADY FILE an XhH"BhT= T h ahH HH(qhhhN rB 8rr@Pi n 3BntDhppho INTERNAL SORT BEGINSCOPY BEGINS  a Hrr@PX_Xs B|5Th8aKvC`T@ #XFhChghr@@P h(EhhB 0'hHE Xq@ @P r@P ahl!(.e-h ?hhX@h6hhhrZ@P$h-1h h22h;h#h?%h0h Bh\Z PSMCSRT PSMCSRTJ PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X15251PP*K,I8 17X15252PP*N,SMCSRT,,,B 17X15253PP*K,I6 17X15255PP*P 17X15256PJ P5SMCIMG DECK-ID S05 SMC 1.0 SUMMARY-122Jr@PX1XXh9rr@PX h+hJ 1;1H( l-` Xu n`a haaTTrr@P q aa hREADY FILEh )eTTrr@Phhl` XXT` h h FINAL-MERGE BEGINS MERGrr@PE-ONLY BEGINS a /h+l""66hhhh&@rr@Phh!$hJhvh-h%h9hh#hh&h/hX2hhUh?rJ@P/hhxaaDaaaaBh\J PSMCFMG PSMCFMGJ PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X15267PP*K,I8 17X15268PP*N,SMCFMG,,,B 17X15269PP*V FTN 3.3B COMPILER 17X16021PP*V 17X16022PP*K,I6 17X16024PP*K,P8 17X16025PP*L,FTN 17X16026PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN P*P 17X16028PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P[GOA DECK-ID 02F FORTRAN 3.3B SUMMARY-114Jr@P d0"T TF" C A lTT l) O rr@P+&PT\TZ  M ONT \TTشT lT$r@PV )PGOA SKIPITXZPCBAV "CRDBF ,WAIT MEXIT AREAD 2OPANALWRITE RPHASEAJLOCLZ2HLOCLIZIOPR ZP D PKPHASEA DECK-ID 07A FORTRAN 3.3B SUMMARY-102D @P @P .4@P 0 06 e/ 8S@P# A J BE @BB@PPa @P"-- @P8<p@P$ dT hm6 fo h_6 fe d Ⱦd dd ( ddpp@POddddddd d0Z % "lTd d dT lpp@PzT ld T #T  l̼  1# 1̴pp@P T ḻ % " l̩ ̦ ̣ ̣ \̚ d  $ 1pp@P̝ . \ \ dl d"!7 132?A@BA@<98pp@P7 dT  dpp@P &d 5TT0Z T 0<0: \   7 !4:pp@P Q d  l lT-T  \T0 c@hm0 elT(pp@P|TT l d \ l\TT0 d[ d\  \ Wpp@P K\0b ν θK  αK T7\̽ Q̹  pp@Pl d @m dT̤ ̠ Tb̚    l\ dpp@P̛  d d<dcT fk0 d[hK pp@P( !o @mI @m0V d0DŽenܬ\̢ pp@PSTId )0b μIlll\̗lTk @m mp`@P~ jm̴mc n  MT ̊dl l`@P@PT@P@PT( d@P@P0: \ ld@P@P l@P@P@Pp@P dT  B  ^\ldTb \  @hpp@Pm̡enܟ  "\̓ \ l dlpp@P   ̡lT T̘l dT̯ 0cα άIdpp@P< 7ΦK d ,\Tp \ 0@hm mфen̟dp@Pg l@Pe @Pl\̱ \ d @Po@P n@P m@P lX@Pw dT̕     \) nlwX@P p@P    8 5 0:  l lT +l ̯d0n T#pp@P0Ôods 8d l lT  d l\T p:@P T T 0 d:@P @P@P @PT @P@P@P@P@P@PT dd@P@P@P@P@P@P p@P \ !dd! * 7 d  d ! l  l l a pL@P9l #l l!dl' 2ad T L@PA@P@ @PUT @PB@PAp@PX dddT{   $ l $T"  pp@PIll l dT+ l l̻dT̶ 0b TJ c0@hmpp@P0en̬  ܩ̬ \O d̠ \B +dT d (dpp@PT" dl. !l\ 1 ll l\\! ܖ pp@P d Tyl dT l lh #a /2p$@P/a \W l&$@P#@P;T@P?@P? @ HH PPHASEAC rPSAVEID{GNST lPLABELwTYPE {DIAG  OUTENTPEQVS DIMPR "COMNPR-TYPEPR0SUBPPR^GETF bSTORE BYEQPR~rrPEXRLPRDATAPRCHECKFARITH GETSYMSYMBOLUASGNPRRDLABLGETC ENDDO RCPLOOPSKIPITWRITE ERBPR r"PIOSPR BDOPR VSTCHARASEMPR<"P J P&IOPRBA DECK-ID 08F FORTRAN 3.3B SUMMARY-114Jr@P HWhbH HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> rr@P+R+ q )0dhh bh h h T`r @PV `P[r@PcA n qH   >Dh}>w8rr@P 0` h !aH + _N ȯ "ج Q#uMrrr@PJF (jj AXBf ` h[ h. + X ` rr@Pi k qYh|%.$&),% *N, 12 MON TH))rr@Pb{ ^ OPT !  rr@P: `TKI r6@Pek qY=hR TLx6 @P9 TL @P r@Pp&XADRYh h@h"1kl qߘX"%A hrr@Pψhs    Hh3tȾh Ƚ  TLm41 rr@PCNVT DECK-ID 01A FORTRAN 3.3B SUMMARY-102Dp@P' h Hj  &jn  &n 1(h(l (h p@P/(Ո l l@P8H PCNVT : P J P3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102Jr@P hhH(h'  f qh @HB0Fh Fd 0m `h rH r@P+` PCONV P J P[DIAG DECK-ID 04F FORTRAN 3.3B SUMMARY-102Jr@P H~ h} lr  j A *h Nh ,hh00d d Fh T4l1rr@PET1Z ,h/* 2 h `ȥ#!2 (  4!"-rn@Pp=i؍ ` !`̷hT\ {j ATT#F؄n2@P'!"#%&:;<>?@[\]^_2 PDIAG  "PDIAGRGWRITE PACK CONV G"P J P!DIAGRG DECK-ID 37F FORTRAN 3.3B SUMMARY-102JN@PHh" "dL` 3#n 3#l`0N PDIAGRG P J P,DXP9 DECK-ID 05F FORTRAN 3.3B SUMMARY-102Jr@P H s" Ժ hsHXhh`Xhhh HL#dh`H !rr@P+ laal aaI`GchGW "X bX 8L "rr@PVHT H'sLoAAdT|LZ3Aar@PRyr@P 'Lv T*a)RH%3I  aHQ A a"vR  rr@P2LaHH ALȾa `\R  [1rr@P Q Aa !2!* *l hhhuhi frR@P[G ߂M^@BPCE}GN HJzLLK@RPDXP9 Q8DXPTQ8DXP2 PDFLOT Y P J P7DFLOT DECK-ID 06F FORTRAN 3.3B SUMMARY-102Jr@P````hTTa"aaDa"a 1 aBa rr@P+    @ 0BXiaa a ! AAA&dRARArr@PVa2H aaaaDaaaa aX X2bbbXrr@P~TAAAa *aAAidadada arr@P ' dXX,#a! AaA! ! A! ! rr@PA! Aa AXa A! !  XÁ XAa! AXa""rr@PaaA Aa a  A 3A a s Aaa ca rr@P-1 mAa$a+Aaaa"#G a rr@PXa a aaaa#a"aYX=X}#a 1  #rr@P0ad a  ! 1 3d   #2d A d ( 2adaa1 rr@PaDa1 bAa?ad A2aF ad2aa1 aa1 rr@PaDa1 aaaa#aa aa a A&RARAda 2H a rr@Pa a a   ! aa aa ar@P/@  PDFLOT PAVOLR AVOLA P J P/DUMVOL DECK-ID 35F FORTRAN 3.3B SUMMARY-102Jr@PL bb@`"r`P+PAVOLA AVOLR P J P%+GETC DECK-ID 14F FORTRAN 3.3B SUMMARY-102Jp@P H)0' a! !( da!  !( l  p PGETC P D P GETF DECK-ID 04A FORTRAN 3.3B SUMMARY-102D@P@P $$@P   %% 0@P'!"#%&:;<>?@[\]^_0p@P) hhhhh h h f 1T  h  !3 !?^ I pp@PTe" ; 'lr '"   l  lȝ" : pp@P'" : '_Y" ; '(.pp@P   l" ; ' ld(dpp@P .l  lTl  l̿  l l d pp@P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨pp@P+ ? d̠  l̛d d d!&\̎ 2  0=f n pp@PV  l ln l̹   d̼llȌl\lpZ@P d l  T l l d d Z@P@P !@P$<@P "S "S ,l̻dRl<@P9@P( @P  \! @P&@Pp@PT&  "^]  1 - 4 >̪ \ l l lLpp@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭p @P \̧l l @P@P)@P).@P)\̠ ̜l\̘  l.@Pp@P 9 2  " $l l T9  pp@P dd d  l !L f$l"Lh<h9,5l # dpp@PLh*h(,$lLh h,؈l lll " l̳ ( p @Pl b@P  % #$,l̙ 3i dd l` Zb@P>p@P B d0 lT "f $!#̽  l d2̳ pL@P\̯  ll(֬ ll %l l  lL@Pk*@Pq*@Pe8@P*̺ ̧  X̄d8@P~>p@P> d $ !M  dl l݌l  lT lpp@Pild   TZ$\%  d &lZ lV'l p@P\$ \(@P:@P   ll  l d:@P@P@P@P@PV@Pdd lT  llV@P@P@P p@P d̮    ̡  l  l d     p*@P&TTH* PGETF  2PGETC GPUT DIAG yDXP9 dCNVT SYMBOL2P J P)9GETSYM DECK-ID 07F FORTRAN 3.3B SUMMARY-102Jr@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$r @P+h h T867i @P8 PGETSYM PREAD "WRITE P D P)GPUT DECK-ID 02A FORTRAN 3.3B SUMMARY-102Dd@P 0p4^d h, h` dRm @HHd PGPUT " P J PIGETCF DECK-ID 15F FORTRAN 3.3B SUMMARY-102JD@P H h h !#H D PIGETCF P J P%PACK DECK-ID 09F FORTRAN 3.3B SUMMARY-102J^@P H"h! h h Ah @ m 5@^ PPACK P D PRDLABL DECK-ID 10A FORTRAN 3.3B SUMMARY-102D @P 06; @P 06; p@P; d h h h h .j 1 h h j lh lT $ pp@P;4  hÌ   1 6 -3T d ȧḻ ȡ pp@Pf\ #3̽ / h ؘ 1\dȄ d Ȅp$@P dTTHt$ PRDLABL "PGETC 4DIAG ZCNVT SYMBOL"P J P)VSTORE DECK-ID 11F FORTRAN 3.3B SUMMARY-102Jr@P HS00cehOT""U 0n1fif0 jf0 kf0le5`al  rn@P+2 nB n n $$0h,n %% -n/nn`PU PSTORE PWRITE  P D PSYMBOL DECK-ID 03A FORTRAN 3.3B SUMMARY-102D @P @Pn @Pp$$%% @P *F,58 @Pi p@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %p(@P 0؄eh  l (p@P̌d` 0bc l    ~ 'dopp@P   q00chIn pI Kpp@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽pp@P00edrj0Z ddTl di l9 `ܷ pp@P[nҔ0` \rLm" 8 % l̵cds lpp@Pd !al\̟d *\nn0 d T db׌ dtdk6 p @PfhH PSYMBOL PGETSYM(WRITE @SKIPITP D PENDDO DECK-ID 29A FORTRAN 3.3B SUMMARY-102D@P I@P H@P@P)p@P dh0n  holsD _ hghh0dcT @pp@P08jmpl\ @m0ql\ @mrl\ @pp@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dnpp@Pd-ΌМ # dT do d l; d npp@PӜl̜l 1 2 .!dl    5 2 \ pR@P    8 5̭ \ @ HH R PENDDO PGETSYM4OUTENTzDIAG P D P6GNST DECK-ID 05A FORTRAN 3.3B SUMMARY-114D @P @P /@P@P @P`)(@P M09+ O @PONMON @Ppqpr @P0"0# 060/K @PEND 0@P'!"#%&:;<>?@[\]^_0@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION$@P7REALFUNCTION$*@PCINTEGERFUNCTION*@PRBLOCKDATA@P[MACRO>@P`DOUBLEPRECISIONFUNCTION> @PxQ8QNAM @P{Q8QBDS @P~@P&5>CZ @P p@P d hhh h uhh TZ T0 Ȱ ddpp@P dT \ \Ȓ  dwf  $1l h pp@P,d l!T!wd   9 2~" 8 % pp@PB  l  1\ 0T %" 8 pp@Pm%  0 ?̻" 9 %T*̾  dpp@Pw nܷ (1 'n̪ \ܩ l d Hl)T!wpp@PdT!w l   Al̾ l 1 ~" 8 % &pp@Pdll l얶h+ w 1"̮"p<@P"! + "<p@P0 dEl  !Tl̖  dd pp@P[ 1W l fܥ 1 l d!Td n̐ ܍ H1Tpp@P l f 1TT̾$l dwd!  pN@P  l dHd/d d~ d N@PH@Pp@P $ l\d $d l̸dfܯ (1 pZ@P ! |ܔHl l՜9TawaZ@P@Pp@P T\l TD  pp@PF- l~dd dTod Z X !M̪ Tpp@Pq{] l f 1 ll !# H!!\l  9 Z!(̿pp@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x pp@P~  d l0d0# 7T dD df 1Tpp@P$d  T % ld!% $ \ p.@Pnf &̴f' lܫ l d^.@PL-p@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐pp@PX  1T /l d/T8!w/ !l\/ (lp@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'c@P<@PB@PT@P@Pp@P0    lfܘ 1T \ ~" 9 &pF@P |l\/ lTF@PAp@P  Fd  Ta !2 !l pp@P ld dw f $1  $l lc dTj dp@P%T\R@PJ,@P,\\H PGNST 1 ZPCONV PACK WRITE IGETCF@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P[GOA DECK-ID 02F FORTRAN 3.3B SUMMARY-114Jr@P d0"T TF" C A lTT l) O rr@P+&PT\TZ  M ONT \TTشT lT$r@PV )PGOA SKIPITXZPCBAV "CRDBF ,WAIT MEXIT AREAD 2OPANALWRITE RPHASEAJLOCLZ2HLOCLIZIOPR ZP D PKPHASEA DECK-ID 07A FORTRAN 3.3B SUMMARY-102D @P @P .4@P 0 06 e/ 8S@P# A J BE @BB@PPa @P"-- @P8<p@P$ dT hm6 fo h_6 fe d Ⱦd dd ( ddpp@POddddddd d0Z % "lTd d dT lpp@PzT ld T #T  l̼  1# 1̴pp@P T ḻ % " l̩ ̦ ̣ ̣ \̚ d  $ 1pp@P̝ . \ \ dl d"!7 132?A@BA@<98pp@P7 dT  dpp@P &d 5TT0Z T 0<0: \   7 !4:pp@P Q d  l lT-T  \T0 c@hm0 elT(pp@P|TT l d \ l\TT0 d[ d\  \ Wpp@P K\0b ν θK  αK T7\̽ Q̹  pp@Pl d @m dT̤ ̠ Tb̚    l\ dpp@P̛  d d<dcT fk0 d[hK pp@P( !o @mI @m0V d0DŽenܬ\̢ pp@PSTId )0b μIlll\̗lTk @m mp`@P~ jm̴mc n  MT ̊dl l`@P@PT@P@PT( d@P@P0: \ ld@P@P l@P@P@Pp@P dT  B  ^\ldTb \  @hpp@Pm̡enܟ  "\̓ \ l dlpp@P   ̡lT T̘l dT̯ 0cα άIdpp@P< 7ΦK d ,\Tp \ 0@hm mфen̟dp@Pg l@Pe @Pl\̱ \ d @Po@P n@P m@P lX@Pw dT̕     \) nlwX@P p@P    8 5 0:  l lT +l ̯d0n T#pp@P0Ôods 8d l lT  d l\T p:@P T T 0 d:@P @P@P @PT @P@P@P@P@P@PT dd@P@P@P@P@P@P p@P \ !dd! * 7 d  d ! l  l l a pL@P9l #l l!dl' 2ad T L@PA@P@ @PUT @PB@PAp@PX dddT{   $ l $T"  pp@PIll l dT+ l l̻dT̶ 0b TJ c0@hmpp@P0en̬  ܩ̬ \O d̠ \B +dT d (dpp@PT" dl. !l\ 1 ll l\\! ܖ pp@P d Tyl dT l lh #a /2p$@P/a \W l&$@P#@P;T@P?@P? @ HH PPHASEAC rPSAVEID{GNST lPLABELwTYPE {DIAG  OUTENTPEQVS DIMPR "COMNPR-TYPEPR0SUBPPR^GETF bSTORE BYEQPR~rrPEXRLPRDATAPRCHECKFARITH GETSYMSYMBOLUASGNPRRDLABLGETC ENDDO RCPLOOPSKIPITWRITE ERBPR r"PIOSPR BDOPR VSTCHARASEMPR<"P J P&IOPRBA DECK-ID 08F FORTRAN 3.3B SUMMARY-114Jr@P HWhbH HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> rr@P+R+ q )0dhh bh h h T`r @PV `P[r@PcA n qH   >Dh}>w8rr@P 0` h !aH + _N ȯ "ج Q#uMrrr@PJF (jj AXBf ` h[ h. + X ` rr@Pi k qYh|%.$&),% *N, 12 MON TH))rr@Pb{ ^ OPT !  rr@P: `TKI r6@Pek qY=hR TLx6 @P9 TL @P r@Pp&XADRYh h@h"1kl qߘX"%A hrr@Pψhs    Hh3tȾh Ƚ  TLm41 rr@PCNVT DECK-ID 01A FORTRAN 3.3B SUMMARY-102Dp@P' h Hj  &jn  &n 1(h(l (h p@P/(Ո l l@P8H PCNVT : P J P3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102Jr@P hhH(h'  f qh @HB0Fh Fd 0m `h rH r@P+` PCONV P J P[DIAG DECK-ID 04F FORTRAN 3.3B SUMMARY-102Jr@P H~ h} lr  j A *h Nh ,hh00d d Fh T4l1rr@PET1Z ,h/* 2 h `ȥ#!2 (  4!"-rn@Pp=i؍ ` !`̷hT\ {j ATT#F؄n2@P'!"#%&:;<>?@[\]^_2 PDIAG  "PDIAGRGWRITE PACK CONV G"P J P!DIAGRG DECK-ID 37F FORTRAN 3.3B SUMMARY-102JN@PHh" "dL` 3#n 3#l`0N PDIAGRG P J P,DXP9 DECK-ID 05F FORTRAN 3.3B SUMMARY-102Jr@P H s" Ժ hsHXhh`Xhhh HL#dh`H !rr@P+ laal aaI`GchGW "X bX 8L "rr@PVHT H'sLoAAdT|LZ3Aar@PRyr@P 'Lv T*a)RH%3I  aHQ A a"vR  rr@P2LaHH ALȾa `\R  [1rr@P Q Aa !2!* *l hhhuhi frR@P[G ߂M^@BPCE}GN HJzLLK@RPDXP9 Q8DXPTQ8DXP2 PDFLOT Y P J P7DFLOT DECK-ID 06F FORTRAN 3.3B SUMMARY-102Jr@P````hTTa"aaDa"a 1 aBa rr@P+    @ 0BXiaa a ! AAA&dRARArr@PVa2H aaaaDaaaa aX X2bbbXrr@P~TAAAa *aAAidadada arr@P ' dXX,#a! AaA! ! A! ! rr@PA! Aa AXa A! !  XÁ XAa! AXa""rr@PaaA Aa a  A 3A a s Aaa ca rr@P-1 mAa$a+Aaaa"#G a rr@PXa a aaaa#a"aYX=X}#a 1  #rr@P0ad a  ! 1 3d   #2d A d ( 2adaa1 rr@PaDa1 bAa?ad A2aF ad2aa1 aa1 rr@PaDa1 aaaa#aa aa a A&RARAda 2H a rr@Pa a a   ! aa aa ar@P/@  PDFLOT PAVOLR AVOLA P J P/DUMVOL DECK-ID 35F FORTRAN 3.3B SUMMARY-102Jr@PL bb@`"r`P+PAVOLA AVOLR P J P%+GETC DECK-ID 14F FORTRAN 3.3B SUMMARY-102Jp@P H)0' a! !( da!  !( l  p PGETC P D P GETF DECK-ID 04A FORTRAN 3.3B SUMMARY-102D@P@P $$@P   %% 0@P'!"#%&:;<>?@[\]^_0p@P) hhhhh h h f 1T  h  !3 !?^ I pp@PTe" ; 'lr '"   l  lȝ" : pp@P'" : '_Y" ; '(.pp@P   l" ; ' ld(dpp@P .l  lTl  l̿  l l d pp@P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨pp@P+ ? d̠  l̛d d d!&\̎ 2  0=f n pp@PV  l ln l̹   d̼llȌl\lpZ@P d l  T l l d d Z@P@P !@P$<@P "S "S ,l̻dRl<@P9@P( @P  \! @P&@Pp@PT&  "^]  1 - 4 >̪ \ l l lLpp@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭p @P \̧l l @P@P)@P).@P)\̠ ̜l\̘  l.@Pp@P 9 2  " $l l T9  pp@P dd d  l !L f$l"Lh<h9,5l # dpp@PLh*h(,$lLh h,؈l lll " l̳ ( p @Pl b@P  % #$,l̙ 3i dd l` Zb@P>p@P B d0 lT "f $!#̽  l d2̳ pL@P\̯  ll(֬ ll %l l  lL@Pk*@Pq*@Pe8@P*̺ ̧  X̄d8@P~>p@P> d $ !M  dl l݌l  lT lpp@Pild   TZ$\%  d &lZ lV'l p@P\$ \(@P:@P   ll  l d:@P@P@P@P@PV@Pdd lT  llV@P@P@P p@P d̮    ̡  l  l d     p*@P&TTH* PGETF  2PGETC GPUT DIAG yDXP9 dCNVT SYMBOL2P J P)9GETSYM DECK-ID 07F FORTRAN 3.3B SUMMARY-102Jr@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$r @P+h h T867i @P8 PGETSYM PREAD "WRITE P D P)GPUT DECK-ID 02A FORTRAN 3.3B SUMMARY-102Dd@P 0p4^d h, h` dRm @HHd PGPUT " P J PIGETCF DECK-ID 15F FORTRAN 3.3B SUMMARY-102JD@P H h h !#H D PIGETCF P J P%PACK DECK-ID 09F FORTRAN 3.3B SUMMARY-102J^@P H"h! h h Ah @ m 5@^ PPACK P D PRDLABL DECK-ID 10A FORTRAN 3.3B SUMMARY-102D @P 06; @P 06; p@P; d h h h h .j 1 h h j lh lT $ pp@P;4  hÌ   1 6 -3T d ȧḻ ȡ pp@Pf\ #3̽ / h ؘ 1\dȄ d Ȅp$@P dTTHt$ PRDLABL "PGETC 4DIAG ZCNVT SYMBOL"P J P)VSTORE DECK-ID 11F FORTRAN 3.3B SUMMARY-102Jr@P HS00cehOT""U 0n1fif0 jf0 kf0le5`al  rn@P+2 nB n n $$0h,n %% -n/nn`PU PSTORE PWRITE  P D PSYMBOL DECK-ID 03A FORTRAN 3.3B SUMMARY-102D @P @Pn @Pp$$%% @P *F,58 @Pi p@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %p(@P 0؄eh  l (p@P̌d` 0bc l    ~ 'dopp@P   q00chIn pI Kpp@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽pp@P00edrj0Z ddTl di l9 `ܷ pp@P[nҔ0` \rLm" 8 % l̵cds lpp@Pd !al\̟d *\nn0 d T db׌ dtdk6 p @PfhH PSYMBOL PGETSYM(WRITE @SKIPITP D PENDDO DECK-ID 29A FORTRAN 3.3B SUMMARY-102D@P I@P H@P@P)p@P dh0n  holsD _ hghh0dcT @pp@P08jmpl\ @m0ql\ @mrl\ @pp@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dnpp@Pd-ΌМ # dT do d l; d npp@PӜl̜l 1 2 .!dl    5 2 \ pR@P    8 5̭ \ @ HH R PENDDO PGETSYM4OUTENTzDIAG P D P6GNST DECK-ID 05A FORTRAN 3.3B SUMMARY-114D @P @P /@P@P @P`)(@P M09+ O @PONMON @Ppqpr @P0"0# 060/K @PEND 0@P'!"#%&:;<>?@[\]^_0@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION$@P7REALFUNCTION$*@PCINTEGERFUNCTION*@PRBLOCKDATA@P[MACRO>@P`DOUBLEPRECISIONFUNCTION> @PxQ8QNAM @P{Q8QBDS @P~@P&5>CZ @P p@P d hhh h uhh TZ T0 Ȱ ddpp@P dT \ \Ȓ  dwf  $1l h pp@P,d l!T!wd   9 2~" 8 % pp@PB  l  1\ 0T %" 8 pp@Pm%  0 ?̻" 9 %T*̾  dpp@Pw nܷ (1 'n̪ \ܩ l d Hl)T!wpp@PdT!w l   Al̾ l 1 ~" 8 % &pp@Pdll l얶h+ w 1"̮"p<@P"! + "<p@P0 dEl  !Tl̖  dd pp@P[ 1W l fܥ 1 l d!Td n̐ ܍ H1Tpp@P l f 1TT̾$l dwd!  pN@P  l dHd/d d~ d N@PH@Pp@P $ l\d $d l̸dfܯ (1 pZ@P ! |ܔHl l՜9TawaZ@P@Pp@P T\l TD  pp@PF- l~dd dTod Z X !M̪ Tpp@Pq{] l f 1 ll !# H!!\l  9 Z!(̿pp@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x pp@P~  d l0d0# 7T dD df 1Tpp@P$d  T % ld!% $ \ p.@Pnf &̴f' lܫ l d^.@PL-p@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐pp@PX  1T /l d/T8!w/ !l\/ (lp@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'c@P<@PB@PT@P@Pp@P0    lfܘ 1T \ ~" 9 &pF@P |l\/ lTF@PAp@P  Fd  Ta !2 !l pp@P ld dw f $1  $l lc dTj dp@P%T\R@PJ,@P,\\H PGNST 1 ZPCONV PACK WRITE IGETCFd h h nصض 1l̼  dpp@PYT̳ 1 lȜlT\̤ ̠  l l\̥ lT p2@P +4 1 Ho2 PCOMNPR PGETF DIMPR [DIAG gP D PCONSUB DECK-ID 30A FORTRAN 3.3B SUMMARY-102D@P@P @P W, p@P  hhh d 0c0hh $ah"p8 h0(h Hhh h hp@P8 'T lՀ=p@PAT  $ \ ȶh0 "\ jت Ƞ  \ pD@Plȕ @-h %-܈DŽl @HHD PCONSUB PDIAG ;GETF BP D PDATAPR DECK-ID 31A FORTRAN 3.3B SUMMARY-102D@P@P*SU@P/@P6@P9,= @P@0 @PE[@PK\ @PN2. @PU 0@P'!"#%&:;<>?@[\]^_0p@PV hh hh hhT  ؽT* 0b T08chIpp@P @mK-  @m K K pp@P\+C; K \,οO κE \-"d.ή ) pp@PTn/l d0 f 1 d1d2d3d4ced0hIdpp@PlH    l`笚d jm $ah(p8% d5pV@P0-(lƬ Hl6l ld70n l ܘ߀Vp@PN ) !  !d"d#dT d8 d( m dpp@Py0̞lTb mb T{chI;  @mK  pp@P@mI T9K ̈́0ef5 l̍  pp@Pm 4\:̟ l ) l l l d7T  mT}̓dpp@P0 \ m  $ \<f\ 1 ؞ pp@P%!Ι !f̚ \ 1 f m̙ l5 l p:@PP̩ lܗ) T=\̫  m:@Pe@Peep@Pe   d>d?d4d3̳d2(  $!dM ,$"pp@Pd8$1lnff l @!) n d'& m lpp@P eT ] \A l̝l̩l 1̜l pN@P1̎d4 1? ^ m n"N@PYp@P̖dB$ll dC dDŢ   m  2l\  pp@P.  T[E    ldF d T   l\pd@PY*dG dHdI=dJ /$l lhTdp@PHJ\ 4  l\K Ȍ l  l̰dL̺ dd%pF@P lMl d$dBlḽ  lܤ̜ h\Fp@PHJ̟ lC ľ d d  FdrT dD l  9pp@P\   9dldldl    pp@P  T:N lll n ff̞ l  nn lpp@PG̷n lC l  d d%'   =\O(dpp@PrMd Pd Qd Rd SdT d$dBlT?l  lllpp@Plllll0 d(d)d&̐lT T"Ul ̣  d̝ pj@P'l̖ ^\U C (D J'  m\ǐAj@Pq@P@P@P@P@P^@P@P[@P@P @ HH\ PDATAPR :PGETF DIAG STORE CONSUBgGETC NSTCHAR~OUTENT:P D PDIMPR DECK-ID 16A FORTRAN 3.3B SUMMARY-102D@P,@P 9 @P p@P%  &-T  #T  \ \     pp@P:0b chKd 1 K Kd &\T0:h hpp@Pe܄ehOh } L\\̘ 09 $T  fpp@P   xlT@m $ah0cp8 d p @P  0( n p@P̙h n̳lT ̺ ̵ 5̰ 0\ '8hEpp@Pd  T(@m  '+@fi̗pp@Pem @m  c@mͻ |\  2pp@PH\΢I  dΗI  ΐI  \  8@hpp@Psm  @m  @m  @mTp@P"@P0@P;@P @ HHk PDIMPR  "PGETF DIAG STORE _GETSYM"P D P^EXRLPR DECK-ID 24A FORTRAN 3.3B SUMMARY-102Dp@P+T    CT <b 00chK K pp@P+ K \T @m  @m̿ ̻ \ @p@PVHH PEXRLPRW PGETF DIAG STORE 6P D PFGETC DECK-ID 21A FORTRAN 3.3B SUMMARY-102D @P\ @PH0@P'!"#%&:;<>?@[\]^_0p@P hT   h    l d h h\ Tp@PK lxp@PQ   ȿ  ػȻ1ȵlȴ h \9T h  ܨȤp@P|hT* p@P؛ 1 d! T%=l /$l\ ܚ lvlpp@P /#l\"  l  El  $lHTThhh\hyHp PFGETC 2PQ8PKUPQ8PREPGETC DIAG ICONV nSTCHAR~2P D PFORK DECK-ID 22A FORTRAN 3.3B SUMMARY-102D@P 0@PAEFH@PI.)R@P$/X,@P (p@P l3 l2l2l2l2hhhT h     h h "! 'p@P? p@PMȽ d 1Ⱥ !" : ' hȣ裖 " ;pp@Px '_zyw  1 ̷" 8 $ ̥pp@P" 8 $ H" 8 $`["! 1upp@PmfvmxJmkGEvtf̧ d !g"! *[Z7Xpp@P l ̵  1@"! )F542F76> dJ pp@P$dH m l dI l l l lܿ l l llpd@PO l lьl l l l l̻h , l "Jld@Pe@Pf\@Pv̲  ̠h $Ll ̑h $Kl\@PDU@PET@PGp@P̋l̊ J l dT  " d "{ dHl pp@P  l "Z_| l$H!TThfhh?h\h_hF\h[p$@Ph1\hWh\hTh$ PFORK  PQ8PKUPQ8PREPFGETC P D PSUBPPR DECK-ID 23A FORTRAN 3.3B SUMMARY-102Dp@P+QR e h d0:T  ,T   [}\ \b pp@P,P\  CT d_T 0c@hm  @mpp@PW@m @mׄen̦ ̖ \"\ @pb@Pm̾nܱ B1̬ l T l\ @ HH_b PSUBPPR "PGETF DIAG SAVEID8STORE @"P D PTYPEPR DECK-ID 18A FORTRAN 3.3B SUMMARY-102D<@P d d  l lTH< PTYPEPR PDIMPR  P J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16117PP*K,I8 17X16118PP*N,FTN3A2,,,B 17X16119PP*K,I6 17X16121PP*P,,,MARKER 17X16122PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P[GOA DECK-ID 02F FORTRAN 3.3B SUMMARY-114Jr@P d0"T TF" C A lTT l) O rr@P+&PT\TZ  M ONT \TTشT lT$r@PV )PGOA SKIPITXZPCBAV "CRDBF ,WAIT MEXIT AREAD 2OPANALWRITE RPHASEAJLOCLZ2HLOCLIZIOPR ZP D PKPHASEA DECK-ID 07A FORTRAN 3.3B SUMMARY-102D @P @P .4@P 0 06 e/ 8S@P# A J BE @BB@PPa @P"-- @P8<p@P$ dT hm6 fo h_6 fe d Ⱦd dd ( ddpp@POddddddd d0Z % "lTd d dT lpp@PzT ld T #T  l̼  1# 1̴pp@P T ḻ % " l̩ ̦ ̣ ̣ \̚ d  $ 1pp@P̝ . \ \ dl d"!7 132?A@BA@<98pp@P7 dT  dpp@P &d 5TT0Z T 0<0: \   7 !4:pp@P Q d  l lT-T  \T0 c@hm0 elT(pp@P|TT l d \ l\TT0 d[ d\  \ Wpp@P K\0b ν θK  αK T7\̽ Q̹  pp@Pl d @m dT̤ ̠ Tb̚    l\ dpp@P̛  d d<dcT fk0 d[hK pp@P( !o @mI @m0V d0DŽenܬ\̢ pp@PSTId )0b μIlll\̗lTk @m mp`@P~ jm̴mc n  MT ̊dl l`@P@PT@P@PT( d@P@P0: \ ld@P@P l@P@P@Pp@P dT  B  ^\ldTb \  @hpp@Pm̡enܟ  "\̓ \ l dlpp@P   ̡lT T̘l dT̯ 0cα άIdpp@P< 7ΦK d ,\Tp \ 0@hm mфen̟dp@Pg l@Pe @Pl\̱ \ d @Po@P n@P m@P lX@Pw dT̕     \) nlwX@P p@P    8 5 0:  l lT +l ̯d0n T#pp@P0Ôods 8d l lT  d l\T p:@P T T 0 d:@P @P@P @PT @P@P@P@P@P@PT dd@P@P@P@P@P@P p@P \ !dd! * 7 d  d ! l  l l a pL@P9l #l l!dl' 2ad T L@PA@P@ @PUT @PB@PAp@PX dddT{   $ l $T"  pp@PIll l dT+ l l̻dT̶ 0b TJ c0@hmpp@P0en̬  ܩ̬ \O d̠ \B +dT d (dpp@PT" dl. !l\ 1 ll l\\! ܖ pp@P d Tyl dT l lh #a /2p$@P/a \W l&$@P#@P;T@P?@P? @ HH PPHASEAC rPSAVEID{GNST lPLABELwTYPE {DIAG  OUTENTPEQVS DIMPR "COMNPR-TYPEPR0SUBPPR^GETF bSTORE BYEQPR~rrPEXRLPRDATAPRCHECKFARITH GETSYMSYMBOLUASGNPRRDLABLGETC ENDDO RCPLOOPSKIPITWRITE ERBPR r"PIOSPR BDOPR VSTCHARASEMPR<"P J P&IOPRBA DECK-ID 08F FORTRAN 3.3B SUMMARY-114Jr@P HWhbH HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> rr@P+R+ q )0dhh bh h h T`r @PV `P[r@PcA n qH   >Dh}>w8rr@P 0` h !aH + _N ȯ "ج Q#uMrrr@PJF (jj AXBf ` h[ h. + X ` rr@Pi k qYh|%.$&),% *N, 12 MON TH))rr@Pb{ ^ OPT !  rr@P: `TKI r6@Pek qY=hR TLx6 @P9 TL @P r@Pp&XADRYh h@h"1kl qߘX"%A hrr@Pψhs    Hh3tȾh Ƚ  TLm41 rr@PCNVT DECK-ID 01A FORTRAN 3.3B SUMMARY-102Dp@P' h Hj  &jn  &n 1(h(l (h p@P/(Ո l l@P8H PCNVT : P J P3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102Jr@P hhH(h'  f qh @HB0Fh Fd 0m `h rH r@P+` PCONV P J P[DIAG DECK-ID 04F FORTRAN 3.3B SUMMARY-102Jr@P H~ h} lr  j A *h Nh ,hh00d d Fh T4l1rr@PET1Z ,h/* 2 h `ȥ#!2 (  4!"-rn@Pp=i؍ ` !`̷hT\ {j ATT#F؄n2@P'!"#%&:;<>?@[\]^_2 PDIAG  "PDIAGRGWRITE PACK CONV G"P J P!DIAGRG DECK-ID 37F FORTRAN 3.3B SUMMARY-102JN@PHh" "dL` 3#n 3#l`0N PDIAGRG P J P,DXP9 DECK-ID 05F FORTRAN 3.3B SUMMARY-102Jr@P H s" Ժ hsHXhh`Xhhh HL#dh`H !rr@P+ laal aaI`GchGW "X bX 8L "rr@PVHT H'sLoAAdT|LZ3Aar@PRyr@P 'Lv T*a)RH%3I  aHQ A a"vR  rr@P2LaHH ALȾa `\R  [1rr@P Q Aa !2!* *l hhhuhi frR@P[G ߂M^@BPCE}GN HJzLLK@RPDXP9 Q8DXPTQ8DXP2 PDFLOT Y P J P7DFLOT DECK-ID 06F FORTRAN 3.3B SUMMARY-102Jr@P````hTTa"aaDa"a 1 aBa rr@P+    @ 0BXiaa a ! AAA&dRARArr@PVa2H aaaaDaaaa aX X2bbbXrr@P~TAAAa *aAAidadada arr@P ' dXX,#a! AaA! ! A! ! rr@PA! Aa AXa A! !  XÁ XAa! AXa""rr@PaaA Aa a  A 3A a s Aaa ca rr@P-1 mAa$a+Aaaa"#G a rr@PXa a aaaa#a"aYX=X}#a 1  #rr@P0ad a  ! 1 3d   #2d A d ( 2adaa1 rr@PaDa1 bAa?ad A2aF ad2aa1 aa1 rr@PaDa1 aaaa#aa aa a A&RARAda 2H a rr@Pa a a   ! aa aa ar@P/@  PDFLOT PAVOLR AVOLA P J P/DUMVOL DECK-ID 35F FORTRAN 3.3B SUMMARY-102Jr@PL bb@`"r`P+PAVOLA AVOLR P J P%+GETC DECK-ID 14F FORTRAN 3.3B SUMMARY-102Jp@P H)0' a! !( da!  !( l  p PGETC P D P GETF DECK-ID 04A FORTRAN 3.3B SUMMARY-102D@P@P $$@P   %% 0@P'!"#%&:;<>?@[\]^_0p@P) hhhhh h h f 1T  h  !3 !?^ I pp@PTe" ; 'lr '"   l  lȝ" : pp@P'" : '_Y" ; '(.pp@P   l" ; ' ld(dpp@P .l  lTl  l̿  l l d pp@P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨pp@P+ ? d̠  l̛d d d!&\̎ 2  0=f n pp@PV  l ln l̹   d̼llȌl\lpZ@P d l  T l l d d Z@P@P !@P$<@P "S "S ,l̻dRl<@P9@P( @P  \! @P&@Pp@PT&  "^]  1 - 4 >̪ \ l l lLpp@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭p @P \̧l l @P@P)@P).@P)\̠ ̜l\̘  l.@Pp@P 9 2  " $l l T9  pp@P dd d  l !L f$l"Lh<h9,5l # dpp@PLh*h(,$lLh h,؈l lll " l̳ ( p @Pl b@P  % #$,l̙ 3i dd l` Zb@P>p@P B d0 lT "f $!#̽  l d2̳ pL@P\̯  ll(֬ ll %l l  lL@Pk*@Pq*@Pe8@P*̺ ̧  X̄d8@P~>p@P> d $ !M  dl l݌l  lT lpp@Pild   TZ$\%  d &lZ lV'l p@P\$ \(@P:@P   ll  l d:@P@P@P@P@PV@Pdd lT  llV@P@P@P p@P d̮    ̡  l  l d     p*@P&TTH* PGETF  2PGETC GPUT DIAG yDXP9 dCNVT SYMBOL2P J P)9GETSYM DECK-ID 07F FORTRAN 3.3B SUMMARY-102Jr@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$r @P+h h T867i @P8 PGETSYM PREAD "WRITE P D P)GPUT DECK-ID 02A FORTRAN 3.3B SUMMARY-102Dd@P 0p4^d h, h` dRm @HHd PGPUT " P J PIGETCF DECK-ID 15F FORTRAN 3.3B SUMMARY-102JD@P H h h !#H D PIGETCF P J P%PACK DECK-ID 09F FORTRAN 3.3B SUMMARY-102J^@P H"h! h h Ah @ m 5@^ PPACK P D PRDLABL DECK-ID 10A FORTRAN 3.3B SUMMARY-102D @P 06; @P 06; p@P; d h h h h .j 1 h h j lh lT $ pp@P;4  hÌ   1 6 -3T d ȧḻ ȡ pp@Pf\ #3̽ / h ؘ 1\dȄ d Ȅp$@P dTTHt$ PRDLABL "PGETC 4DIAG ZCNVT SYMBOL"P J P)VSTORE DECK-ID 11F FORTRAN 3.3B SUMMARY-102Jr@P HS00cehOT""U 0n1fif0 jf0 kf0le5`al  rn@P+2 nB n n $$0h,n %% -n/nn`PU PSTORE PWRITE  P D PSYMBOL DECK-ID 03A FORTRAN 3.3B SUMMARY-102D @P @Pn @Pp$$%% @P *F,58 @Pi p@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %p(@P 0؄eh  l (p@P̌d` 0bc l    ~ 'dopp@P   q00chIn pI Kpp@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽pp@P00edrj0Z ddTl di l9 `ܷ pp@P[nҔ0` \rLm" 8 % l̵cds lpp@Pd !al\̟d *\nn0 d T db׌ dtdk6 p @PfhH PSYMBOL PGETSYM(WRITE @SKIPITP D PENDDO DECK-ID 29A FORTRAN 3.3B SUMMARY-102D@P I@P H@P@P)p@P dh0n  holsD _ hghh0dcT @pp@P08jmpl\ @m0ql\ @mrl\ @pp@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dnpp@Pd-ΌМ # dT do d l; d npp@PӜl̜l 1 2 .!dl    5 2 \ pR@P    8 5̭ \ @ HH R PENDDO PGETSYM4OUTENTzDIAG P D P6GNST DECK-ID 05A FORTRAN 3.3B SUMMARY-114D @P @P /@P@P @P`)(@P M09+ O @PONMON @Ppqpr @P0"0# 060/K @PEND 0@P'!"#%&:;<>?@[\]^_0@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION$@P7REALFUNCTION$*@PCINTEGERFUNCTION*@PRBLOCKDATA@P[MACRO>@P`DOUBLEPRECISIONFUNCTION> @PxQ8QNAM @P{Q8QBDS @P~@P&5>CZ @P p@P d hhh h uhh TZ T0 Ȱ ddpp@P dT \ \Ȓ  dwf  $1l h pp@P,d l!T!wd   9 2~" 8 % pp@PB  l  1\ 0T %" 8 pp@Pm%  0 ?̻" 9 %T*̾  dpp@Pw nܷ (1 'n̪ \ܩ l d Hl)T!wpp@PdT!w l   Al̾ l 1 ~" 8 % &pp@Pdll l얶h+ w 1"̮"p<@P"! + "<p@P0 dEl  !Tl̖  dd pp@P[ 1W l fܥ 1 l d!Td n̐ ܍ H1Tpp@P l f 1TT̾$l dwd!  pN@P  l dHd/d d~ d N@PH@Pp@P $ l\d $d l̸dfܯ (1 pZ@P ! |ܔHl l՜9TawaZ@P@Pp@P T\l TD  pp@PF- l~dd dTod Z X !M̪ Tpp@Pq{] l f 1 ll !# H!!\l  9 Z!(̿pp@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x pp@P~  d l0d0# 7T dD df 1Tpp@P$d  T % ld!% $ \ p.@Pnf &̴f' lܫ l d^.@PL-p@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐pp@PX  1T /l d/T8!w/ !l\/ (lp@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'c@P<@PB@PT@P@Pp@P0    lfܘ 1T \ ~" 9 &pF@P |l\/ lTF@PAp@P  Fd  Ta !2 !l pp@P ld dw f $1  $l lc dTj dp@P%T\R@PJ,@P,\\H PGNST 1 ZPCONV PACK WRITE IGETCFASEMPR8CHECKFBP D PARAYSZ DECK-ID 42A FORTRAN 3.3B SUMMARY-102D@P@Pp@P0c0hIVhH   IH  h hH  I5  hpp@P2@mϨ'h0 $ah#p8 h(h̽ ȵHhȲhhȭ  Ȩ8&hp@P]ȥ hإ*@PdΤ ȗnl@* @PtH HTTh PARAYSZt PQ8PKUP|Q8PREPyP D PASEMPR DECK-ID 40A FORTRAN 3.3B SUMMARY-102D@P@PGg7 @P p@P n hf hT # "l "T0e0cf  Rhpp@P6   \ lT0b T @0hpp@Pam#  KI Ξ !Oh=E8  ֬h,K(pj@P(  @m̗ iT& m mTldjp@P ldcTΛH  hI I lI pp@P,lfTe0nb TW @ml3 ) pV@P !׌n l 1  L lTNV@P+p@P+ > c  n 0\ '̩  ci  \ \ p>@PV@hmZn nef >@P=m@PCm@PImp@Pm\ E dT̶  d n̫ " d #! npL@PlT  n nܼܻj   ḻ lL@PQ@P @ HHM PASEMPR 2PGETC yGETF DIAG (STORE GETSYMRDLABL2P D PFASGNPR DECK-ID 32A FORTRAN 3.3B SUMMARY-102Dp@PFT  T0T0b T c0@hme n TpD@P+ \ Tf l @HHD PASGNPR? 2PRDLABLDIAG SYMBOL STORE GETC )CKNAME22P D P?@[\]^_0p@P hT   h    l d h h\ Tp@PK lxp@PQ   ȿ  ػȻ1ȵlȴ h \9T h  ܨȤp@P|hT* p@P؛ 1 d! T%=l /$l\ ܚ lvlpp@P /#l\"  l  El  $lHTThhh\hyHp PFGETC 2PQ8PKUPQ8PREPGETC DIAG ICONV nSTCHAR~2P D PFORK DECK-ID 22A FORTRAN 3.3B SUMMARY-102D@P 0@PAEFH@PI.)R@P$/X,@P (p@P l3 l2l2l2l2hhhT h     h h "! 'p@P? p@PMȽ d 1Ⱥ !" : ' hȣ裖 " ;pp@Px '_zyw  1 ̷" 8 $ ̥pp@P" 8 $ H" 8 $`["! 1upp@PmfvmxJmkGEvtf̧ d !g"! *[Z7Xpp@P l ̵  1@"! )F542F76> dJ pp@P$dH m l dI l l l lܿ l l llpd@PO l lьl l l l l̻h , l "Jld@Pe@Pf\@Pv̲  ̠h $Ll ̑h $Kl\@PDU@PET@PGp@P̋l̊ J l dT  " d "{ dHl pp@P  l "Z_| l$H!TThfhh?h\h_hF\h[p$@Ph1\hWh\hTh$ PFORK  PQ8PKUPQ8PREPFGETC P D P^ERBPR DECK-ID 38A FORTRAN 3.3B SUMMARY-102D@P p@P T I n f f f h@0 ;e e e  e( e %pp@P -e0 Ze echK ( e ee l l  T @ p@PXHH PERBPR W PCKIVC DIAG PP D PMODMXR DECK-ID 39A FORTRAN 3.3B SUMMARY-102D@P@P@P p@P0 hh h ld l h d d d& d( d ) d*( dUpp@P  d̿  l  f Uf llsd l!pp@Pi   , dm l " le l  " ll "pX@P̹ l lĜ?̶ ḏlή ܖ nnX@Pp@P̝ l 2 d  U5 2 l " " 2o̪pp@Pn  ld nɖ s !0 d 4d , pp@P l  d l 5Χ 2 lݎ錚lކ ḻ l̫pp@P6dUf '̷ ̲ ̭  ll̳8Θf$ܺ( pp@PaF d B l̙  dnl l̕l8nܬpp@P  l d  dl6˜n l ll nSp@P%@Pp@P U ld +  -2 d%d? 'l $ 4얮lpp@P d'  l= d  n " ̵ l pp@P >l  ̵  d l  l n̤dl d ;dpp@P8 ! d< 'd $ n  dd l͜!pp@Pc4d !) n( l춞 Uḻ l؜ f 7pp@Pξnܬll ̷ d  l!>Ξl 칞!4̵ 1 pp@Pn l 'dl̖lܜ8n l̦9 $n̚lpp@P l l̸d ! Þ !̾l ll̤7λnܹ lܪpL@P    d l7nܐL@P+@P+p@P+d '  #l d% d d!'dΎ 5 $ npp@PVdRll  lۜ8l n l d l . *̻pp@P & d+ξd ̰l =αlη  n̠ ̟l̚l d dp.@P  !q n.@P:p@P ld sdd!   ) dllpp@Pn llӜ l̯ ( dl6ʜn̳l lpp@P̴ܵl7θnܭ l뜏nܺ Ul̍d ,l̐  dٌl ' pp@P=Є l  l  l̯ l ( d l d̟l̽ !pp@Ph(d"Tmd:ln l9쌘ln لpV@Plӌn l̸  l l9 $ n\V@PT@Pp@P̠  ' ll̒8nܩ̑l7nܜ  #pp@P f d Ul ll d+d , d% l̑ V چpp@P ldڜ7҄ nl 1;̺ l s  l d  6pp@P4ζ 3 d̮ 잆  h ̥s dl7Βnܶ d  pD@P_  d  d  dd dd  dU=D@Px$@P x @ HH$ PMODMXR~ PPUNT qGETSYM~P D P8PUNT DECK-ID 27A FORTRAN 3.3B SUMMARY-102D@P @Pd) @PEND p@P dTT  h hTh   H1 Tp @P4H PPUNT 4 "PDIAG READ IGETCFSKIPIT1"P J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16171PP*K,I8 17X16172PP*N,FTN3A3,,,B 17X16173PP*K,I6 17X16175PP*P,,,MARKER 17X16176PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P[GOA DECK-ID 02F FORTRAN 3.3B SUMMARY-114Jr@P d0"T TF" C A lTT l) O rr@P+&PT\TZ  M ONT \TTشT lT$r@PV )PGOA SKIPITXZPCBAV "CRDBF ,WAIT MEXIT AREAD 2OPANALWRITE RPHASEAJLOCLZ2HLOCLIZIOPR ZP D PKPHASEA DECK-ID 07A FORTRAN 3.3B SUMMARY-102D @P @P .4@P 0 06 e/ 8S@P# A J BE @BB@PPa @P"-- @P8<p@P$ dT hm6 fo h_6 fe d Ⱦd dd ( ddpp@POddddddd d0Z % "lTd d dT lpp@PzT ld T #T  l̼  1# 1̴pp@P T ḻ % " l̩ ̦ ̣ ̣ \̚ d  $ 1pp@P̝ . \ \ dl d"!7 132?A@BA@<98pp@P7 dT  dpp@P &d 5TT0Z T 0<0: \   7 !4:pp@P Q d  l lT-T  \T0 c@hm0 elT(pp@P|TT l d \ l\TT0 d[ d\  \ Wpp@P K\0b ν θK  αK T7\̽ Q̹  pp@Pl d @m dT̤ ̠ Tb̚    l\ dpp@P̛  d d<dcT fk0 d[hK pp@P( !o @mI @m0V d0DŽenܬ\̢ pp@PSTId )0b μIlll\̗lTk @m mp`@P~ jm̴mc n  MT ̊dl l`@P@PT@P@PT( d@P@P0: \ ld@P@P l@P@P@Pp@P dT  B  ^\ldTb \  @hpp@Pm̡enܟ  "\̓ \ l dlpp@P   ̡lT T̘l dT̯ 0cα άIdpp@P< 7ΦK d ,\Tp \ 0@hm mфen̟dp@Pg l@Pe @Pl\̱ \ d @Po@P n@P m@P lX@Pw dT̕     \) nlwX@P p@P    8 5 0:  l lT +l ̯d0n T#pp@P0Ôods 8d l lT  d l\T p:@P T T 0 d:@P @P@P @PT @P@P@P@P@P@PT dd@P@P@P@P@P@P p@P \ !dd! * 7 d  d ! l  l l a pL@P9l #l l!dl' 2ad T L@PA@P@ @PUT @PB@PAp@PX dddT{   $ l $T"  pp@PIll l dT+ l l̻dT̶ 0b TJ c0@hmpp@P0en̬  ܩ̬ \O d̠ \B +dT d (dpp@PT" dl. !l\ 1 ll l\\! ܖ pp@P d Tyl dT l lh #a /2p$@P/a \W l&$@P#@P;T@P?@P? @ HH PPHASEAC rPSAVEID{GNST lPLABELwTYPE {DIAG  OUTENTPEQVS DIMPR "COMNPR-TYPEPR0SUBPPR^GETF bSTORE BYEQPR~rrPEXRLPRDATAPRCHECKFARITH GETSYMSYMBOLUASGNPRRDLABLGETC ENDDO RCPLOOPSKIPITWRITE ERBPR r"PIOSPR BDOPR VSTCHARASEMPR<"P J P&IOPRBA DECK-ID 08F FORTRAN 3.3B SUMMARY-114Jr@P HWhbH HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> rr@P+R+ q )0dhh bh h h T`r @PV `P[r@PcA n qH   >Dh}>w8rr@P 0` h !aH + _N ȯ "ج Q#uMrrr@PJF (jj AXBf ` h[ h. + X ` rr@Pi k qYh|%.$&),% *N, 12 MON TH))rr@Pb{ ^ OPT !  rr@P: `TKI r6@Pek qY=hR TLx6 @P9 TL @P r@Pp&XADRYh h@h"1kl qߘX"%A hrr@Pψhs    Hh3tȾh Ƚ  TLm41 rr@PCNVT DECK-ID 01A FORTRAN 3.3B SUMMARY-102Dp@P' h Hj  &jn  &n 1(h(l (h p@P/(Ո l l@P8H PCNVT : P J P3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102Jr@P hhH(h'  f qh @HB0Fh Fd 0m `h rH r@P+` PCONV P J P[DIAG DECK-ID 04F FORTRAN 3.3B SUMMARY-102Jr@P H~ h} lr  j A *h Nh ,hh00d d Fh T4l1rr@PET1Z ,h/* 2 h `ȥ#!2 (  4!"-rn@Pp=i؍ ` !`̷hT\ {j ATT#F؄n2@P'!"#%&:;<>?@[\]^_2 PDIAG  "PDIAGRGWRITE PACK CONV G"P J P!DIAGRG DECK-ID 37F FORTRAN 3.3B SUMMARY-102JN@PHh" "dL` 3#n 3#l`0N PDIAGRG P J P,DXP9 DECK-ID 05F FORTRAN 3.3B SUMMARY-102Jr@P H s" Ժ hsHXhh`Xhhh HL#dh`H !rr@P+ laal aaI`GchGW "X bX 8L "rr@PVHT H'sLoAAdT|LZ3Aar@PRyr@P 'Lv T*a)RH%3I  aHQ A a"vR  rr@P2LaHH ALȾa `\R  [1rr@P Q Aa !2!* *l hhhuhi frR@P[G ߂M^@BPCE}GN HJzLLK@RPDXP9 Q8DXPTQ8DXP2 PDFLOT Y P J P7DFLOT DECK-ID 06F FORTRAN 3.3B SUMMARY-102Jr@P````hTTa"aaDa"a 1 aBa rr@P+    @ 0BXiaa a ! AAA&dRARArr@PVa2H aaaaDaaaa aX X2bbbXrr@P~TAAAa *aAAidadada arr@P ' dXX,#a! AaA! ! A! ! rr@PA! Aa AXa A! !  XÁ XAa! AXa""rr@PaaA Aa a  A 3A a s Aaa ca rr@P-1 mAa$a+Aaaa"#G a rr@PXa a aaaa#a"aYX=X}#a 1  #rr@P0ad a  ! 1 3d   #2d A d ( 2adaa1 rr@PaDa1 bAa?ad A2aF ad2aa1 aa1 rr@PaDa1 aaaa#aa aa a A&RARAda 2H a rr@Pa a a   ! aa aa ar@P/@  PDFLOT PAVOLR AVOLA P J P/DUMVOL DECK-ID 35F FORTRAN 3.3B SUMMARY-102Jr@PL bb@`"r`P+PAVOLA AVOLR P J P%+GETC DECK-ID 14F FORTRAN 3.3B SUMMARY-102Jp@P H)0' a! !( da!  !( l  p PGETC P D P GETF DECK-ID 04A FORTRAN 3.3B SUMMARY-102D@P@P $$@P   %% 0@P'!"#%&:;<>?@[\]^_0p@P) hhhhh h h f 1T  h  !3 !?^ I pp@PTe" ; 'lr '"   l  lȝ" : pp@P'" : '_Y" ; '(.pp@P   l" ; ' ld(dpp@P .l  lTl  l̿  l l d pp@P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨pp@P+ ? d̠  l̛d d d!&\̎ 2  0=f n pp@PV  l ln l̹   d̼llȌl\lpZ@P d l  T l l d d Z@P@P !@P$<@P "S "S ,l̻dRl<@P9@P( @P  \! @P&@Pp@PT&  "^]  1 - 4 >̪ \ l l lLpp@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭p @P \̧l l @P@P)@P).@P)\̠ ̜l\̘  l.@Pp@P 9 2  " $l l T9  pp@P dd d  l !L f$l"Lh<h9,5l # dpp@PLh*h(,$lLh h,؈l lll " l̳ ( p @Pl b@P  % #$,l̙ 3i dd l` Zb@P>p@P B d0 lT "f $!#̽  l d2̳ pL@P\̯  ll(֬ ll %l l  lL@Pk*@Pq*@Pe8@P*̺ ̧  X̄d8@P~>p@P> d $ !M  dl l݌l  lT lpp@Pild   TZ$\%  d &lZ lV'l p@P\$ \(@P:@P   ll  l d:@P@P@P@P@PV@Pdd lT  llV@P@P@P p@P d̮    ̡  l  l d     p*@P&TTH* PGETF  2PGETC GPUT DIAG yDXP9 dCNVT SYMBOL2P J P)9GETSYM DECK-ID 07F FORTRAN 3.3B SUMMARY-102Jr@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$r @P+h h T867i @P8 PGETSYM PREAD "WRITE P D P)GPUT DECK-ID 02A FORTRAN 3.3B SUMMARY-102Dd@P 0p4^d h, h` dRm @HHd PGPUT " P J PIGETCF DECK-ID 15F FORTRAN 3.3B SUMMARY-102JD@P H h h !#H D PIGETCF P J P%PACK DECK-ID 09F FORTRAN 3.3B SUMMARY-102J^@P H"h! h h Ah @ m 5@^ PPACK P D PRDLABL DECK-ID 10A FORTRAN 3.3B SUMMARY-102D @P 06; @P 06; p@P; d h h h h .j 1 h h j lh lT $ pp@P;4  hÌ   1 6 -3T d ȧḻ ȡ pp@Pf\ #3̽ / h ؘ 1\dȄ d Ȅp$@P dTTHt$ PRDLABL "PGETC 4DIAG ZCNVT SYMBOL"P J P)VSTORE DECK-ID 11F FORTRAN 3.3B SUMMARY-102Jr@P HS00cehOT""U 0n1fif0 jf0 kf0le5`al  rn@P+2 nB n n $$0h,n %% -n/nn`PU PSTORE PWRITE  P D PSYMBOL DECK-ID 03A FORTRAN 3.3B SUMMARY-102D @P @Pn @Pp$$%% @P *F,58 @Pi p@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %p(@P 0؄eh  l (p@P̌d` 0bc l    ~ 'dopp@P   q00chIn pI Kpp@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽pp@P00edrj0Z ddTl di l9 `ܷ pp@P[nҔ0` \rLm" 8 % l̵cds lpp@Pd !al\̟d *\nn0 d T db׌ dtdk6 p @PfhH PSYMBOL PGETSYM(WRITE @SKIPITP D PENDDO DECK-ID 29A FORTRAN 3.3B SUMMARY-102D@P I@P H@P@P)p@P dh0n  holsD _ hghh0dcT @pp@P08jmpl\ @m0ql\ @mrl\ @pp@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dnpp@Pd-ΌМ # dT do d l; d npp@PӜl̜l 1 2 .!dl    5 2 \ pR@P    8 5̭ \ @ HH R PENDDO PGETSYM4OUTENTzDIAG P D P6GNST DECK-ID 05A FORTRAN 3.3B SUMMARY-114D @P @P /@P@P @P`)(@P M09+ O @PONMON @Ppqpr @P0"0# 060/K @PEND 0@P'!"#%&:;<>?@[\]^_0@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION$@P7REALFUNCTION$*@PCINTEGERFUNCTION*@PRBLOCKDATA@P[MACRO>@P`DOUBLEPRECISIONFUNCTION> @PxQ8QNAM @P{Q8QBDS @P~@P&5>CZ @P p@P d hhh h uhh TZ T0 Ȱ ddpp@P dT \ \Ȓ  dwf  $1l h pp@P,d l!T!wd   9 2~" 8 % pp@PB  l  1\ 0T %" 8 pp@Pm%  0 ?̻" 9 %T*̾  dpp@Pw nܷ (1 'n̪ \ܩ l d Hl)T!wpp@PdT!w l   Al̾ l 1 ~" 8 % &pp@Pdll l얶h+ w 1"̮"p<@P"! + "<p@P0 dEl  !Tl̖  dd pp@P[ 1W l fܥ 1 l d!Td n̐ ܍ H1Tpp@P l f 1TT̾$l dwd!  pN@P  l dHd/d d~ d N@PH@Pp@P $ l\d $d l̸dfܯ (1 pZ@P ! |ܔHl l՜9TawaZ@P@Pp@P T\l TD  pp@PF- l~dd dTod Z X !M̪ Tpp@Pq{] l f 1 ll !# H!!\l  9 Z!(̿pp@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x pp@P~  d l0d0# 7T dD df 1Tpp@P$d  T % ld!% $ \ p.@Pnf &̴f' lܫ l d^.@PL-p@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐pp@PX  1T /l d/T8!w/ !l\/ (lp@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'c@P<@PB@PT@P@Pp@P0    lfܘ 1T \ ~" 9 &pF@P |l\/ lTF@PAp@P  Fd  Ta !2 !l pp@P ld dw f $1  $l lc dTj dp@P%T\R@PJ,@P,\\H PGNST 1 ZPCONV PACK WRITE IGETCFVV綀$@P+ @P@P &'@P -,--) @P*/ p@P; h f 1 dd hhh dUT   d  ( pp@Pf   HT  f $ f% d )  pp@P\&h00chK*d !̴ 3 `̦ ̣ pp@Pܼ nld'q Un̮ 4\%0; "TTR  d# lpp@P   ll l l0b ΓK pp@Pchh-A)  K* Tv$ @mEl f $ܑ̝ U !\p@P=Ԅenp@PEC3  f#d̦ <κ 6αI d    pp@Pp   lΙH  hI  ld'n 3T%&pp@Pd) cIlI  rI3d e dpp@P!λId 2αIlQ̻ 2̶ 2\& lU  p&@P `΍ ` &@Pp@P d - d; "Tf$l"! 1pp@P)R   1 l 7 #T+  "\,  \pj@PT-'  \ . %  dT! |Tuj@P|@P|d@P| h l/d  l" &̫ 8̨  2\& ld@Pp@P  ̯ T   U Td l pf@P6 2 !F 0#dcTh3 ̼  % f@Pp@PTF0\̺ E̵ \1 f$l̯ d; "T f%ܢܡ̨ p$@P̩ d)$@P  V@P+ n ܋   l d d 8  2V@P<K@PK\& l\(@P!4@PU Un@P#7@P$6@P%5@P&4@P'3@P(2*@PZ n  dl l*@PJ@P3i<@P i  ln ! n$l<@P)V@P*U$@P n̿ $ !$@P+`@P,_4@P f %  n̥ # n4@P-q@P n@P"L@Pܴ  n ̗  ̔    ! dL@P4@PT   E  O 4@Php@P U n . &0b T0c00e\ 0hK*  @pp@PmK T2̹ *̵   \$f  f$j  @mpp@P0'  \4u?/d d"dW d VU n f % l̗fp @PR#g @PU@PU|d'@PY@PYp@P0Yb T nchI3    @m d pp@P" 8 $&"l" 8 $Id $d lpp@P  Fl l \ U d5d6% pp@PlT '    ll 0 c@hpp@Pm d7\   l   l 1 @mpN@P0T2U$ n:K* "   \2N@PMp@PM  x  n#/dΘK  nyd'p2@Px nld)l2@P**@P  "fVfW l*@Pp@P , 1&̥8!dl dl dlT Uf"̞ p(@P l llb !T^(@P7@PP@P 0c@hm  @m @mP@PT@P4@P #f $1d'G be4@P @P  l @Pp@PȤ K*   Y YT12 nΣK pp@P9> U޵Glΰd     "0c0h K pb@PdK A K 1ଔ \9 @mb@Pb@P\:@P@P @ HH PARITH  RPLOCAL wGETF DIAG .PUNT TREE oGETSYMSUBSCRSTORE GETC SYMBOLRP D PSUBSCR DECK-ID 17A FORTRAN 3.3B SUMMARY-102D@P@P @P p@P$$ch h j 1hI h      hH pp@PC I  hרh hȻ!# $ahp8 h0(hȧ ȧHhȤp$@Pn hfؖ$p@P{ hdf 1 U dT   #T 'pp@P , z ? \Yb TchI (pp@P@mKC  n I K, \τ0 efpp@P̤  l̟ ̜ T    ̡f dn lypp@P ' UT \  C 3 ` ,m\̼ pp@PRD\̿ Uf$Wd0; "T̩ ̥ pp@P}̡n ̓      l̳  l ,,l ,l,pp@P,؄,d d d  1  l   1pp@P 6 Uf$d W -f%dcT  nhpp@PC  nJ̣ U̞ n d0; "Tr n( f&̱pp@P) lίd d xΑ I d d d  #n܍Ϝ !\Tpp@P0Tb T @m m̌eUf$ud n d !\pp@P f % nΪdcT0hC  n d; "T!ΐn( f& pP@P f'̿ l 22 f " f#̮n nP@P3@PX@P @ HHG PSUBSCR 2PGETF  DIAG -STORE YPUNT GETSYMSYMBOLS2P D PTREE DECK-ID 41A FORTRAN 3.3B SUMMARY-102D@P @P  @P0  p@P dd d Ud ddlh n 0d; "T f lhpp@PB h j 1Ⱦh$dΜ 2K !G hNh !쾞" pp@Pm " h d  d  " 8 %i 1U pp@P 'lo li % !O̦ b̡ | / ($ pp@PT  0; 2T8 fV ld&   dNd pp@P  !̠ l  aNlUε β   dpp@P lll ll %d Η  l d  )Υ   ,dpp@PDl  ,l l $ ;ܬܫ l l dܠܟ̞ 1 pp@Po !U  l gd "yl pp@P $ε  n d; "T f f  f lΗn d pp@P!\̳ `%n !$6  "1&nܶȜ !\ 3 /pp@PU   'nܘ̪ !\   (n0; "Tpp@P ld[d  dcT O0j Opp@PF OT @m lb? d  y l U 2(s p>@Pql d̗ f d\>@PPp@P  " l l V l a ] p̰  lpp@P    d0cT5 0jZ  @mpL@P0  h TMd d lLp@Pܸ>̶ l: l7Ad    lw lsAl  pp@P&     l " ln̯ d0; "T fpp@PQ f  f̜ l Rl ̾  &  f$n n l pp@P| f%2cjZ  @0m  T d $ !Tpp@P       l fd 0; "pp@PTM5f V lU ln9n̿ /  f$ lpp@Pd̟@m R le (̐   $nκnnpp@P(̣ l  lnl d !\nܻܺ  ! l Udpp@PS d Qn̗ ln l l̒ n̏fVXfS l p$@P~ l fO̽ l$@Pxp@P̺l d; "T̯`WlnҤl !? d $  !lpP@P K G n  ? ; lܭoP@P@P fQR l@Pp@Pd dU^VdJd ll    n   np@P l@P @P @P @P? @P T@P @P\ @P@P@P @ HH PTREE  PPUNT DIAG  GETSYMP J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16215PP*K,I8 17X16216PP*N,FTN3A4,,,B 17X16217PP*K,I6 17X16219PP*P,,,MARKER 17X16220PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P[GOA DECK-ID 02F FORTRAN 3.3B SUMMARY-114Jr@P d0"T TF" C A lTT l) O rr@P+&PT\TZ  M ONT \TTشT lT$r@PV )PGOA SKIPITXZPCBAV "CRDBF ,WAIT MEXIT AREAD 2OPANALWRITE RPHASEAJLOCLZ2HLOCLIZIOPR ZP D PKPHASEA DECK-ID 07A FORTRAN 3.3B SUMMARY-102D @P @P .4@P 0 06 e/ 8S@P# A J BE @BB@PPa @P"-- @P8<p@P$ dT hm6 fo h_6 fe d Ⱦd dd ( ddpp@POddddddd d0Z % "lTd d dT lpp@PzT ld T #T  l̼  1# 1̴pp@P T ḻ % " l̩ ̦ ̣ ̣ \̚ d  $ 1pp@P̝ . \ \ dl d"!7 132?A@BA@<98pp@P7 dT  dpp@P &d 5TT0Z T 0<0: \   7 !4:pp@P Q d  l lT-T  \T0 c@hm0 elT(pp@P|TT l d \ l\TT0 d[ d\  \ Wpp@P K\0b ν θK  αK T7\̽ Q̹  pp@Pl d @m dT̤ ̠ Tb̚    l\ dpp@P̛  d d<dcT fk0 d[hK pp@P( !o @mI @m0V d0DŽenܬ\̢ pp@PSTId )0b μIlll\̗lTk @m mp`@P~ jm̴mc n  MT ̊dl l`@P@PT@P@PT( d@P@P0: \ ld@P@P l@P@P@Pp@P dT  B  ^\ldTb \  @hpp@Pm̡enܟ  "\̓ \ l dlpp@P   ̡lT T̘l dT̯ 0cα άIdpp@P< 7ΦK d ,\Tp \ 0@hm mфen̟dp@Pg l@Pe @Pl\̱ \ d @Po@P n@P m@P lX@Pw dT̕     \) nlwX@P p@P    8 5 0:  l lT +l ̯d0n T#pp@P0Ôods 8d l lT  d l\T p:@P T T 0 d:@P @P@P @PT @P@P@P@P@P@PT dd@P@P@P@P@P@P p@P \ !dd! * 7 d  d ! l  l l a pL@P9l #l l!dl' 2ad T L@PA@P@ @PUT @PB@PAp@PX dddT{   $ l $T"  pp@PIll l dT+ l l̻dT̶ 0b TJ c0@hmpp@P0en̬  ܩ̬ \O d̠ \B +dT d (dpp@PT" dl. !l\ 1 ll l\\! ܖ pp@P d Tyl dT l lh #a /2p$@P/a \W l&$@P#@P;T@P?@P? @ HH PPHASEAC rPSAVEID{GNST lPLABELwTYPE {DIAG  OUTENTPEQVS DIMPR "COMNPR-TYPEPR0SUBPPR^GETF bSTORE BYEQPR~rrPEXRLPRDATAPRCHECKFARITH GETSYMSYMBOLUASGNPRRDLABLGETC ENDDO RCPLOOPSKIPITWRITE ERBPR r"PIOSPR BDOPR VSTCHARASEMPR<"P J P&IOPRBA DECK-ID 08F FORTRAN 3.3B SUMMARY-114Jr@P HWhbH HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> rr@P+R+ q )0dhh bh h h T`r @PV `P[r@PcA n qH   >Dh}>w8rr@P 0` h !aH + _N ȯ "ج Q#uMrrr@PJF (jj AXBf ` h[ h. + X ` rr@Pi k qYh|%.$&),% *N, 12 MON TH))rr@Pb{ ^ OPT !  rr@P: `TKI r6@Pek qY=hR TLx6 @P9 TL @P r@Pp&XADRYh h@h"1kl qߘX"%A hrr@Pψhs    Hh3tȾh Ƚ  TLm41 rr@PCNVT DECK-ID 01A FORTRAN 3.3B SUMMARY-102Dp@P' h Hj  &jn  &n 1(h(l (h p@P/(Ո l l@P8H PCNVT : P J P3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102Jr@P hhH(h'  f qh @HB0Fh Fd 0m `h rH r@P+` PCONV P J P[DIAG DECK-ID 04F FORTRAN 3.3B SUMMARY-102Jr@P H~ h} lr  j A *h Nh ,hh00d d Fh T4l1rr@PET1Z ,h/* 2 h `ȥ#!2 (  4!"-rn@Pp=i؍ ` !`̷hT\ {j ATT#F؄n2@P'!"#%&:;<>?@[\]^_2 PDIAG  "PDIAGRGWRITE PACK CONV G"P J P!DIAGRG DECK-ID 37F FORTRAN 3.3B SUMMARY-102JN@PHh" "dL` 3#n 3#l`0N PDIAGRG P J P,DXP9 DECK-ID 05F FORTRAN 3.3B SUMMARY-102Jr@P H s" Ժ hsHXhh`Xhhh HL#dh`H !rr@P+ laal aaI`GchGW "X bX 8L "rr@PVHT H'sLoAAdT|LZ3Aar@PRyr@P 'Lv T*a)RH%3I  aHQ A a"vR  rr@P2LaHH ALȾa `\R  [1rr@P Q Aa !2!* *l hhhuhi frR@P[G ߂M^@BPCE}GN HJzLLK@RPDXP9 Q8DXPTQ8DXP2 PDFLOT Y P J P7DFLOT DECK-ID 06F FORTRAN 3.3B SUMMARY-102Jr@P````hTTa"aaDa"a 1 aBa rr@P+    @ 0BXiaa a ! AAA&dRARArr@PVa2H aaaaDaaaa aX X2bbbXrr@P~TAAAa *aAAidadada arr@P ' dXX,#a! AaA! ! A! ! rr@PA! Aa AXa A! !  XÁ XAa! AXa""rr@PaaA Aa a  A 3A a s Aaa ca rr@P-1 mAa$a+Aaaa"#G a rr@PXa a aaaa#a"aYX=X}#a 1  #rr@P0ad a  ! 1 3d   #2d A d ( 2adaa1 rr@PaDa1 bAa?ad A2aF ad2aa1 aa1 rr@PaDa1 aaaa#aa aa a A&RARAda 2H a rr@Pa a a   ! aa aa ar@P/@  PDFLOT PAVOLR AVOLA P J P/DUMVOL DECK-ID 35F FORTRAN 3.3B SUMMARY-102Jr@PL bb@`"r`P+PAVOLA AVOLR P J P%+GETC DECK-ID 14F FORTRAN 3.3B SUMMARY-102Jp@P H)0' a! !( da!  !( l  p PGETC P D P GETF DECK-ID 04A FORTRAN 3.3B SUMMARY-102D@P@P $$@P   %% 0@P'!"#%&:;<>?@[\]^_0p@P) hhhhh h h f 1T  h  !3 !?^ I pp@PTe" ; 'lr '"   l  lȝ" : pp@P'" : '_Y" ; '(.pp@P   l" ; ' ld(dpp@P .l  lTl  l̿  l l d pp@P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨pp@P+ ? d̠  l̛d d d!&\̎ 2  0=f n pp@PV  l ln l̹   d̼llȌl\lpZ@P d l  T l l d d Z@P@P !@P$<@P "S "S ,l̻dRl<@P9@P( @P  \! @P&@Pp@PT&  "^]  1 - 4 >̪ \ l l lLpp@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭p @P \̧l l @P@P)@P).@P)\̠ ̜l\̘  l.@Pp@P 9 2  " $l l T9  pp@P dd d  l !L f$l"Lh<h9,5l # dpp@PLh*h(,$lLh h,؈l lll " l̳ ( p @Pl b@P  % #$,l̙ 3i dd l` Zb@P>p@P B d0 lT "f $!#̽  l d2̳ pL@P\̯  ll(֬ ll %l l  lL@Pk*@Pq*@Pe8@P*̺ ̧  X̄d8@P~>p@P> d $ !M  dl l݌l  lT lpp@Pild   TZ$\%  d &lZ lV'l p@P\$ \(@P:@P   ll  l d:@P@P@P@P@PV@Pdd lT  llV@P@P@P p@P d̮    ̡  l  l d     p*@P&TTH* PGETF  2PGETC GPUT DIAG yDXP9 dCNVT SYMBOL2P J P)9GETSYM DECK-ID 07F FORTRAN 3.3B SUMMARY-102Jr@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$r @P+h h T867i @P8 PGETSYM PREAD "WRITE P D P)GPUT DECK-ID 02A FORTRAN 3.3B SUMMARY-102Dd@P 0p4^d h, h` dRm @HHd PGPUT " P J PIGETCF DECK-ID 15F FORTRAN 3.3B SUMMARY-102JD@P H h h !#H D PIGETCF P J P%PACK DECK-ID 09F FORTRAN 3.3B SUMMARY-102J^@P H"h! h h Ah @ m 5@^ PPACK P D PRDLABL DECK-ID 10A FORTRAN 3.3B SUMMARY-102D @P 06; @P 06; p@P; d h h h h .j 1 h h j lh lT $ pp@P;4  hÌ   1 6 -3T d ȧḻ ȡ pp@Pf\ #3̽ / h ؘ 1\dȄ d Ȅp$@P dTTHt$ PRDLABL "PGETC 4DIAG ZCNVT SYMBOL"P J P)VSTORE DECK-ID 11F FORTRAN 3.3B SUMMARY-102Jr@P HS00cehOT""U 0n1fif0 jf0 kf0le5`al  rn@P+2 nB n n $$0h,n %% -n/nn`PU PSTORE PWRITE  P D PSYMBOL DECK-ID 03A FORTRAN 3.3B SUMMARY-102D @P @Pn @Pp$$%% @P *F,58 @Pi p@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %p(@P 0؄eh  l (p@P̌d` 0bc l    ~ 'dopp@P   q00chIn pI Kpp@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽pp@P00edrj0Z ddTl di l9 `ܷ pp@P[nҔ0` \rLm" 8 % l̵cds lpp@Pd !al\̟d *\nn0 d T db׌ dtdk6 p @PfhH PSYMBOL PGETSYM(WRITE @SKIPITP D PENDDO DECK-ID 29A FORTRAN 3.3B SUMMARY-102D@P I@P H@P@P)p@P dh0n  holsD _ hghh0dcT @pp@P08jmpl\ @m0ql\ @mrl\ @pp@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dnpp@Pd-ΌМ # dT do d l; d npp@PӜl̜l 1 2 .!dl    5 2 \ pR@P    8 5̭ \ @ HH R PENDDO PGETSYM4OUTENTzDIAG P D P6GNST DECK-ID 05A FORTRAN 3.3B SUMMARY-114D @P @P /@P@P @P`)(@P M09+ O @PONMON @Ppqpr @P0"0# 060/K @PEND 0@P'!"#%&:;<>?@[\]^_0@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION$@P7REALFUNCTION$*@PCINTEGERFUNCTION*@PRBLOCKDATA@P[MACRO>@P`DOUBLEPRECISIONFUNCTION> @PxQ8QNAM @P{Q8QBDS @P~@P&5>CZ @P p@P d hhh h uhh TZ T0 Ȱ ddpp@P dT \ \Ȓ  dwf  $1l h pp@P,d l!T!wd   9 2~" 8 % pp@PB  l  1\ 0T %" 8 pp@Pm%  0 ?̻" 9 %T*̾  dpp@Pw nܷ (1 'n̪ \ܩ l d Hl)T!wpp@PdT!w l   Al̾ l 1 ~" 8 % &pp@Pdll l얶h+ w 1"̮"p<@P"! + "<p@P0 dEl  !Tl̖  dd pp@P[ 1W l fܥ 1 l d!Td n̐ ܍ H1Tpp@P l f 1TT̾$l dwd!  pN@P  l dHd/d d~ d N@PH@Pp@P $ l\d $d l̸dfܯ (1 pZ@P ! |ܔHl l՜9TawaZ@P@Pp@P T\l TD  pp@PF- l~dd dTod Z X !M̪ Tpp@Pq{] l f 1 ll !# H!!\l  9 Z!(̿pp@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x pp@P~  d l0d0# 7T dD df 1Tpp@P$d  T % ld!% $ \ p.@Pnf &̴f' lܫ l d^.@PL-p@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐pp@PX  1T /l d/T8!w/ !l\/ (lp@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'c@P<@PB@PT@P@Pp@P0    lfܘ 1T \ ~" 9 &pF@P |l\/ lTF@PAp@P  Fd  Ta !2 !l pp@P ld dw f $1  $l lc dTj dp@P%T\R@PJ,@P,\\H PGNST 1 ZPCONV PACK WRITE IGETCF @P!#. @P$@P(O @P!+ @P!+ @P!+ @P !)."p@P* ddd hdh hdhhhdd  8 l l (lnpp@PU n nff ff  f %ff 0@f 0Zf T     4Tpp@P n l f n n0Tn n f f f  f n n̓ l n %pp@Pnn̈ l #ddJ̺    l̉ ld̡ pp@P   l f  #f dd d T0b T0c0 efpp@PT d  n   ff̕nn̐ Ռn lpp@P, l܏h \   t f̳fs d̓ l % dZpp@P Wd̫d\  } l %lmlTr f  %f f %fZf fpp@P f  ̯   }  f f f  f f f n n n pp@Pn n n f ' l %n n  n n n n n n n n npp@P n n dd d   lT 0b }T c@pp@PhmtlTn } \ @m m Kpp@P.d %T~ @mĤ ξI \5̗ l̙ ̔ l fpp@PY dΥH 0 ΚI  l0cΑI  l f  d8epp@P f   }d T    d  d̵ l̲ l pn@Ph)h'h$h!hhhɈ f d np@P̺   T2 d(   d d ld d  d( dpp@P Edl d T   0}b T 0c@hpp@P6m Kd $\ @m dH 0 I pp@Pa lI  l  &  2} lT \  }̒ pp@P}d  + + }\    dT̶ pp@P̳ }  } d  d    l  !l dpp@P d ˔ A d  dd̻d l d d̳!T{   lTpp@P"   l\! d\d d 00ch d( dpp@P8 0 $alp< d#0(l Hl$ll l d d  lpp@Pc! ̋ l d%dTb T,̯0ef  l 2?pp@P d d   l  !l d ld& l d pp@Pl М!T ̤ lT " ܛܲ l!\̒ d\" lpp@P Al l!̔ $d' ddn 1 , l\pp@P , l\! ,l\ d  d̼ d0d7d ̵d  lpp@P: 1Knol0m  %T( 0@sm m (lA8m0@P50@P0@P0@PD08@P 0ld h @ HH8 PIOSPR > bPLOCAL GETF DIAG SYMBOLuSTORE {CKIVC RDLABLGETC STCHARENDDO BDOPR OUTENTbP D P4PEQVS DECK-ID 25A FORTRAN 3.3B SUMMARY-102D@P @Pj @PPU @P PW @P@PPTp@P"PX d00cdeT %hI  h0k# 7% 2 hȷ@pp@PMm  h hȧ h hhȡ 2 e ؖȕh hhlTpp@Px0jO ΫO  TΜ d d f  pZ@Pl g  lh  l  4 nG܀ehTZp@P\ n  n3d $0ahcp8 d (l Hllp @P p@Pl좞 ! 윞 "0hH  I I pp@P f nI `, mE& \0id 1NlTx dνpp@PJdZd  d?~  d.l0cΞH ̠ ΖI pp@PuhI lI ,lΕn؄0ef e0g "pf@P` &f mh ܞ " @--n>f@Pgp@P lddl ɔ 1E l̻d γ  ̴`ͮ fWfX̩ lpp@PΡ  nܞ̝n 7 nl̐l d =ܹܺ ! n̮lpp@PT e f  glld  lΪΞ  lpp@PHd   `fWɜfX l n n l pp@Ps dd d /`lm̥nlm̟nܼܽ pp@P lκ Ԝ γ l d ddld!%  8VdcTpp@PD0hEYl W  l Ԟn ̔ l d̐dd" pp@Pl\EdOd   ļdd!μ  θl\pp@P@m ̾@m̺ d ' Ü ̾ ̦ WhTpp@PKT fWOc0@hmlld!< 4Ğ (XpL@Pv "lTO   ހWh\L@P̟Wh\p@P\ n̔  Ed "0 dld d Ζ <  3pp@Pl-Af0 f0 dld!0dc\@0jm  !1pp@Pl̲ܳ 11W ܧܦ0 *!  lTL" ̔`nXnܛp(@Pܚ̘  l\"(@PW(@Pu(@P( @ HH PPEQVS , "PSYMSCN)GETSYMDIAG PRNTNMI"P D PPRNTNM DECK-ID 26A FORTRAN 3.3B SUMMARY-102D@P@Pv@P @P @P@P'@P p@P h_dcT h h hhkh &h h h(hA(dŘ<"`ppp@PF9iɺh  .h0=jؽ hؾ 1ض 1 hȯA hȱ@)jȤ hp @Pq 1T *@P~@H HTTh* PPRNTNM "PQ8PKUPQ8PREPGETSYM!WRITE v"P D P)SYMSCN DECK-ID 28A FORTRAN 3.3B SUMMARY-102DH@P0c  le0al` 3 lTHH PSYMSCN PGETSYM P J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16262PP*K,I8 17X16263PP*N,FTN3A5,,,B 17X16264PP*K,I6 17X16266PP*P 17X16267PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J PGOB DECK-ID 26F FORTRAN 3.3B SUMMARY-102J>@P 0l lLTTT$ #>PGOB SKIPITPWRITE IOPR PHASEB P D PPHASEB DECK-ID 21B FORTRAN 3.3B SUMMARY-102D @P @P̊CCr @P  @P  @P0@  @P0 @P0  @P0"& @P00  @P0    @P0 @P0 @P0  @P0  @P8@P8@P8@P8@P8@P0 !"#@P0$%&'()@P0*+,-/@P045678:@P0;<=>@P8?@P8@@P0HIJKLNO@P0 @P0 @P023 @P0FG (@P0F $).38=BG( @P0lL @P8` @P0> @P8` @P0 @P8` @P0V @P8` @P0l @P8` @P0oHb @P8` @P0 p@P d hdd 0{d;d cdSd dd  dddn 1d5T \T\pp@P>n<d  :!\0ȶcf0k ȯflȫn >\ T3(nTpp@Pi\\| d 0V (\n̼  \u\2u\1\u1\2\u;Tpf@Pu2\u lTs d d    ( hTfp@P  dp0ld     d l"!( 1##;:<;=?pp@P  ̟d   j pp@P !0T; lTTTT2t\tsd d d    p`@P=fR f^; ldcT0hI d nhT`p@Pb  z Td3H \3G  \3T3\ Tpp@P̠dwtdyTV lfsl\ d ΫE   hp @Ph\ @P(@P 2\u ׀h\(&@P3  Ȁh T`&2@P%0 T1o ̶h\2 @P @P@P3\  @P@P̤;h\ @P @P@PT@PL@PΗd0clTO0hO T  s h\L8@P3#\3 \  \ 8@PI@PH@PG@PF8@P 7 d  # d0Eh\8(@PL  hT( @P[ @Pc@P]T@Pf@PaT@Pi@Pe̵hTp@Pl d ξ θ   l d0Z  lsΠdcT 8ipp@P l\  l\   l̻" 9 &$9]̀p@PhTW@PÀ;h\@P̵  ̸h\$@P$̨  ̫ h\$@P̢ h\*@P s;h\*@P  h\@P h\;$@P  ݀ h\$@P$Ԁ h\ @P- @P2@P/ dhT%P@P 8 dT d S O d߀ Nh\P`@PWNf f ̚ l f f ٖ!U̿ 2T0̺h\`p@P| 1Mnf̷`nͦn̰f0̭ l̨ n̡ pp@P nn l n  nnnΦ Σ   dp@PnnhTjp@P o l  lΙ aΑd " ; (pl@Pedkfe0dT ^ο  l 1Q0h Tl$@P2Ϋ hT6$p@P?` 0d͙ d  l NlΠ " ; (pp@Pj  lll ds l d d l\p @P @P@P@PTf@P$@PT @ HHk$ PPHASEB rPLABLER=LABKPC0KPC3PRHELEN iKPCSTKREADIR>TSALOCSUBFUNNOPROCARITHR"GETSYMASUPERINXRSTENTCODr:PCGOTO BGINDO^BANANAbAFIDL PUNT uASSEM END :P J P$tIOPRBB DECK-ID 27F FORTRAN 3.3B SUMMARY-102Jr@P HRhWH HIhNLHAh0h@=<H.-@87h954h'&h%0h$ q ./drh@P+hh a*h hh TT`h`PVr@PX HChA!Ih>>) h;=8@h;"513/!Jn,, q+%s%̘HrP@P>XEJA hh j2 h   P @P@? R@P̩&X*/hF h k) XA hR"@P Xh TH@)"&@P X h TL@&f@P  heX0;# hX j2l hhDfr@P( hQhqhQ "p0ST >h hX hr @PSV "@PiTLs T SO""PIOPR READ WRITE EXIT p"PPAGCHK@MAXSEC.P J PQ8PRMS DECK-ID 10F FORTRAN 3.3B SUMMARY-102JH@PHq``Hs"ܨHPQ8PREPQ8PKUP P D P>CNVT DECK-ID 01A FORTRAN 3.3B SUMMARY-102Dp@P' h Hj  &jn  &n 1(h(l (h p@P/(Ո l l@P8H PCNVT : P D PDUMMY DECK-ID 01B FORTRAN 3.3B SUMMARY-102D@P@P @P@P @P *F,80 @Pp@P  hb c hJhIhd0cThK@ .jH9h pp@P<h. '辞   hF C  hε  p@PgȠ hp@Po hΪhȒ  d  8h l 1; ;pp@Pd bfd  lnTnc c0@hm pp@Pm m&T d0 T lR ܛ^l \npN@P܏άl̽dn@HHTThgh\hbN PDUMMY 2PQ8PKUPQ8PREPGETSYM*KSYMGNWRITE SKIPIT2P D PFCMSTK DECK-ID 02B FORTRAN 3.3B SUMMARY-102D @P `@P hv h  h  h(Tl ;  T`p@P0*d 07d 8d9 h d T  4 Sl lXl! ]pp@P Ud: lnOn n ~  nRn l  ldvH Tp@PTh\h| PFCMSTK} PQ8PKUPQ8PREPKOUTPT;P J P)9GETSYM DECK-ID 07F FORTRAN 3.3B SUMMARY-102Jr@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$r @P+h h T867i @P8 PGETSYM PREAD "WRITE P D P1KCPART DECK-ID 03B FORTRAN 3.3B SUMMARY-102DN@P h ,h (h n ,h ( h n 1N(@P"H TT h h\h( PKCPART" PQ8PKUP(Q8PREP%P D PKOUTPT DECK-ID 04B FORTRAN 3.3B SUMMARY-102D0@P d3T$3 3H0 PKOUTPT PWRITE  P D PKPCSTK DECK-ID 05B FORTRAN 3.3B SUMMARY-102D @P @P @P@P l@P(d O&dP $dQ"dR d S h N T!=\=!\= lp@P?ה :0Д  ”0 ̻ 0̴ ̭pp@P0j ̦ /̟0 /̘ R̒ Ľ F 8P pp@P? 9 3 - ' !۔  pp@Pϔ0   0Ŕ  T/!=̷0 #0̱ ̫0 pp@P̥ ̟  0̚ P0 \!=0 !0 0 pp@P 0   0֔ !\=\=!\=\= > App@PA S R ?  Q= B  @   dp@PLl@Pl l@PSpp@Pp dyd T=.Μ  ̿  œ  lll̺  ̫p:@P ̫ ̭ >l̴ḽdA:@PZl@P S G  RE Q C H  F D  dll@Pa @P l( @Phb@PԔM Ք K I Ô N L  ŔJ  lDb@Po8@P l ,h 7 9 dd8p@P  d ,h ,hPf 6 1 l ,h ,h n 1pp@PA lJlK  l $h ,ƈhf 5 ,h ,h nܴ 1pj@Pl l ,h ,h n ,h ,h nܘ 1 @T}=!\=8j@Pxp@P Qd0cThK C 0jH  dS l\Cp$@P H  l=$@P.@P9p@P OL  l  l\κO !TSP BU pp@PBN BG QdcT0hI I K pp@P!& 0”  ̽ ̸0  k& "?Kpp@PL )0̛ !ζO ί ΫK  ΥK ΠK T" QRpp@P w ch HdR lI  lP "Opp@P  \QR OM  l lSl0jH  l pp@P  @m lT @ mQl\̫ j̥ pp@Pd̟0 ^0̙ X̓0 RP K E ? pp@P#90 J0 D۔0 >0Ք 8ϔ0 20ɔ ,Ô0 &pp@PN̽  ̷  { A TT= 0lId 9 + pp@Py\!\= l0ld 07d 8 dT\= d}d~dT dvd (Ppp@P ? ?S  O lݜ dcTd\SQl\pp@P \ll10 *0hOdE ̦  Olpp@PE  Te̔d d~̧ l ̡ l -d{  AlP pP@P%  1l0   Ell\Q[\ WP@PDCp@P0Cc0 kdQ dl ll Ol l ̲p@Pn (@P9r@Pr@Pr@Pvr@P[rf@Pŗ  0̪ T l d d d7 Nf6Tf@PV@Pf@P@P@P@PN@P@HHTTh\h\h\h\h\N PKPCSTK :PQ8PKUPQ8PREPKCPARTiGETSYMDUMMY rFCMSTK{KOUTPT:P D PKPC3PR DECK-ID 06B FORTRAN 3.3B SUMMARY-102D>@PTH TTh\h\h> PKPC3PR PQ8PKUPQ8PREP KPCSTKP D PHKSYMGN DECK-ID 07B FORTRAN 3.3B SUMMARY-102Dn@P##0 de0 &d0 'd0 (dT0cdlTTl )%* nL@P+(nl #l l HTThL PKSYMGN> *PQ8PKUPDQ8PREPACNVT SYMBOLSTOREB*P D PLABKPC DECK-ID 08B FORTRAN 3.3B SUMMARY-102D4@PT0 HTTh4 PLABKPC PQ8PKUPQ8PREP KPCSTKP D PLABLER DECK-ID 09B FORTRAN 3.3B SUMMARY-102DL@PT0 c@hm@H HTThL PLABLER PQ8PKUPQ8PREPKSYMGNP D P#PUNT DECK-ID 10B FORTRAN 3.3B SUMMARY-102D@P @P  @P*F,100  8@PTZT   d TH8 PPUNT  PCONV WRITE SKIPITP J P3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102Jr@P hhH(h'  f qh @HB0Fh Fd 0m `h rH r@P+` PCONV P J P)4STOREB DECK-ID 34F FORTRAN 3.3B SUMMARY-102Jr@P H20c nf00ifj 0fk 0fl00`al$$0h,n %% r@P+-n/n PSTOREB P D PSYMBOL DECK-ID 11B FORTRAN 3.3B SUMMARY-102D@P @P$$%% @P *F,58 p@P0 c 0&`lT] h ld0bh\0ed @c 0l_( pp@P5  hI I K 0[ ;Čhpp@P`alȝ Țloh'̰0dd +T d T lc d p0@Pd5 nHn0 PSYMBOL PGETSYMWRITE ySKIPITP D PTSALOC DECK-ID 12B FORTRAN 3.3B SUMMARY-102DL@PQ h   d  jʔlLB@Poʍ ʯ j4 ("ThTBp@Pc0@hm m  @m @mأ@p$@PH H TTh\h$ PTSALOC "PQ8PKUPQ8PREPPUNT KSYMGN"P D PARAYSZ DECK-ID 42A FORTRAN 3.3B SUMMARY-102D@P@Pp@P0c0hIVhH   IH  h hH  I5  hpp@P2@mϨ'h0 $ah#p8 h(h̽ ȵHhȲhhȭ  Ȩ8&hp@P]ȥ hإ*@PdΤ ȗnl@* @PtH HTTh PARAYSZt PQ8PKUP|Q8PREPyP D PpASSEM DECK-ID 13B FORTRAN 3.3B SUMMARY-102D@Pp@P s0 d% # l h  L0hh" ; ( pf@P10/ h0h h0h0hȼh0hh ̷hTf*@PYȦ ܩܨܧ̥ hT*@PiH PASSEM l PKPCSTKULABKPCgP D PBANANA DECK-ID 14B FORTRAN 3.3B SUMMARY-102D@Pp@P  0ln0olh~dm" : &gk0sO (= hՀop@P.hT;@P4̀q;h\@P<À0oh\@PEȻr;h\R@PMnqdcT0k 0hK Bwhțo;h\R@Pmȓq;h\@Pu0oh\&@P,doh\;&@P  th\@PjhT&@P&lԀ0ohT0;&@Pˀr;h\@PÀo;h\@PҀt;h\@PH9 PBANANA PKPC3PRGETSYMULABKPCP D P BGINDO DECK-ID 15B FORTRAN 3.3B SUMMARY-102D @P p@P0 n0o d0m "T h! h s h nh֌l hTpp@P6ftpdcT0hK. ػ0rl\K" دخql\KpX@Pa Ȣ hȟ  Ȝ   h\ Șfi d0phT;Xj@P !<0sO l\0k ΫK 5d +Հ0oh\j(@PO 80ƀrh\(2@P dm1\ ;l0̳oh\2.@PT7l̢0rh\.@P̚o;h\.@P l1\rhT..@P l l̿ f}H. PBGINDO *PPUNT LABLER4GETSYMBKPC3PRLABKPC*P D PQEND DECK-ID 16B FORTRAN 3.3B SUMMARY-102D@Pp@P 0:1TT 3T \ dw ndyT3\d<8"Xdp\@P-cThhI hI 0h\XH\ PEND M *PLABKPC INXRST KPC3PRENTCOD!GETSYM/*P D PENTCOD DECK-ID 17B FORTRAN 3.3B SUMMARY-102D@P?{@P p@PT3\3 \3\3 |0  ddTb 3\cllpp@P;\00cfk 0hV Gc PhG b cȱ hh h3\RاȦ pd@Pf蘠hhȝ ș!d4h1h\ bhTdp@PS d \3S\2wiR \30R^d \1p>@P3\ yT|1\\\1HB> PENTCOD PKPC3PRSYMBOL.LABKPCP D PWHELEN DECK-ID 18B FORTRAN 3.3B SUMMARY-102D@P@Pp@P dcde @0hmhKA K9 A  @pp@P9mK$ K D˨ D d0  @mpp@Pd0khlh Ȑ0 lΜIh,0N& 08cjpN@Ph   0@hmp< mNp@P?TT3Hd E TO \;\pp@Pk c̨ded n d d 0lT\ d d pb@P "ld  chO 1\ lO 0̛h TbH@P)ܔܓ  O ̶dT1̣l\H@PD0@PDT̟  @ HH0 PHELEN O *PLABKPC'KPC3PR +  pj@PbMnLn0f0Kn n0nhTj&@P dTdcT &@P@P@Pp@P9@8H5H2TT hhh7h& hh2hhh$h hh`h$ p(@Phh? hhz hC( PACP  RPQ8PKUPQ8PREPPUNT INTRAMKPC3PRGETSYMKPCSTK TSALOCPARTSBkFINK RP D PxAFIDL DECK-ID 25B FORTRAN 3.3B SUMMARY-102D@Pp@PTz # h!Tq 0h 0h1T q dT\2q8pl@P0 $ 1&#h h! h  Ⱥ h0ηJ   ثlL@P3[\Ȣ  !HTT h h hL PAFIDL h 2PQ8PKUPnQ8PREPkASUPERTSALOCKPC3PR!INTRAM)2P D PASUPER DECK-ID 26B FORTRAN 3.3B SUMMARY-102Dp@Ph d "T h@ff0 ) 60f*f fp`@P.f0`h hl ž! !H̼l ݀`\@PS̵ l A !襞! ί  Ϊ # 8hT\<@Pw0ΪdcThK hT<d@P "Tdwd T@HH TT h hPd PASUPER :PQ8PKUPQ8PREPPUNT SUBPR1uGETSYM~SUBPR2ACP :P D PCGOTO DECK-ID 27B FORTRAN 3.3B SUMMARY-102D@Pp@PT\\sd       hTp@P0 ހ hT;p@P3:\3\͜ h 8ȹ(h\31\1\3T!\3Tp @P e̦h̤;h\ *@Pqܜ̛ !\̔;h\*@P\ h\@PHs PCGOTO *PLABLERASUPER.KPC3PR6KPCSTKZLABKPCe*P D PFINK DECK-ID 28B FORTRAN 3.3B SUMMARY-102D@Pp@Pph h 1 hj hh h # h   jjpp@P:@i hi hcjHhT1ȳ" < ( 0pp@Pe6:9TT1\1T7\130\\3\3\pn@P13\1\3\\3\3 @ HHVn PFINK "PKPCSTKSLABLERkKPC3PRnLABKPCw"P D PINTRAM DECK-ID 29B FORTRAN 3.3B SUMMARY-102D @P @Pp@P  p l !f; !2!d"= *   pp@P:frn onqnn fTȪ h  Tpp@P3e" qor T3\3\1  l d  " : & pp@P lpΠd  lΕd l!dd "d  ddpp@P 4T     ̴ l ̱l ̪ l ̡ @pp@P ̙ = "! .#;&*8-100dk0lfpp@P0lal\0lWl0RlMlH0lCl>dpp@P<cT0hK* 0kd d  d  l 1 l̎ X p @Pgl l @P\rf@P0rl 3Te" qorTopd ld l*f@P@P@Pp@P0 0dld ^ ld NdcT> @0jmpp@P 1 - ! ! l  \ 7 4T̝ l̙pF@P lΗl̓ l T3T\1F@P @P> @PU @P @P @ HH PINTRAM 2PPUNT WKPCSTKzKPC3PRTSALOCGETSYMLABKPC2P D PPARTSB DECK-ID 30B FORTRAN 3.3B SUMMARY-102D @P$$ @P @P? @P @P  @P ? p@Pdch hh\ ZhW VhR PhPhT0lT0hC@ ?pp@PAjDhh  ) T1騹 hʟd d ȯd Tbp&@Pl Ţe3h \~ &@P}p@P¤d d \30cγDl\1HTTh h h h p @Phi PPARTSB :PQ8PKUPQ8PREPKPCSTK/GETSYM8KPC3PRTSYMBOLiSTOREBo:P D P>SUBPR1 DECK-ID 31B FORTRAN 3.3B SUMMARY-102D@Pj@P & "T  nTn d dqT܈ hTj @P, &@P0H TTh h h& PSUBPR10 2PQ8PKUP6Q8PREP3SUBPR3 TSALOCINTRAM#KPC3PR(2P D PSUBPR2 DECK-ID 32B FORTRAN 3.3B SUMMARY-102D @P @P@P4p@P h6 1 d0cT      hI pn@P3I I hT   h   hȮxhTnp@P^ȣ ȟ 1\1\ 1\ d Sl l,dcTΧIpX@PdΡEBhBΝO= 0  l  ,l0ԀhTX`@P 2\uT@hm1\ $d@̭l@`@P2@PHHTThch h h$2 PSUBPR2 :PQ8PKUPQ8PREPGETSYMSUBPR3?KPC3PRZKPCSTKLABLER:P D PGSUBPR3 DECK-ID 33B FORTRAN 3.3B SUMMARY-102Dj@P l'' % '! #     T l l jH@P+T\ lHTTh hh hh\hH PSUBPR35 "PQ8PKUP;Q8PREP8ACP PARTSB,"P D PARITHR DECK-ID 34B FORTRAN 3.3B SUMMARY-102D@P@Pp@P hs " " 0 dcThI  h pp@P3  h  Ȼ躆h 츞 .ȩ h dpp@P^Ȥ!ȟ  ḍ h薞 Ȋ h !+ dδ pp@Phν ld\0k  0Yc0hI O G lls p@P hTB@P + l  l hTB0@P ̶lTε  h\;0D@P  dξ  l\̳h\D$@P̭쬆  dhT$p@Pd0c\ d lΘ Δ  s   Ηl  Εlδpp@P9l0hI ~I  z  0d lÀ hTp@Pd2@P fC C ̯ h\2p@P y dcT0jD  Dd h/T1Dh%d  ;h\p>@P  ج h1\s ;h\> @P(6 D@P z 0dd) $ l  hTb;D>@P  0ll ,lɀ ;h\>>@P !Tq2\q dTTq>@P @P H PARITHR :PGETSYMSUBPR1KPCSTKASUPER KPC3PRTSALOCINTRAM:P J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16313PP*K,I8 17X16314PP*N,FTN3B1,,,B 17X16315PP*K,I6 17X16317PP*P 17X16318PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P| GOC DECK-ID 28F FORTRAN 3.3B SUMMARY-102JR@P lLTT'00T$0#R PGOC PWRITE IOPR PHASECP D P| xPHASEC DECK-ID 13C FORTRAN 3.3B SUMMARY-102D@P@P  `@P|7@P"hh@P(@P @P`  @P @ @P Q"dRp@P0+fp4g$h hTil hTi h\) h\ lpp@P0VAd00&Bd00'Cd0( dcdeT E ȡfi @m pp@Ph f؏ȏ1 h f0l؄ȅ1 dN d c dadvdidudG dMpp@P dH dE ddT d d[ b 4{T̎]lTpp@P0h K Z" ; '5=<; c@m dpp@PXO  d YlT0 %0i!TβE  lpp@P-ΩO 1̫  l ;d` dQ d Vdd d [TT  dbpp@P XlT\  d]T d a\ 4l l d ^l ll\\T "pp@P 5l l dX l dxT S Tdc \d hK Tpp@P}T!zT̢l\  \!| dW" ; ( UT\T(]dpp@P lT\id! d"d  d`t#1 dV l dQTRTTT {vpp@P 1% A  da l$lBl ;l ḻl l\\b pp@P/[l Wd ̱l \:T  dx dW !! l l l\pp@PZ]%l d^ '!.   deT  l dN_K  pD@Pd%Tl\ "l l l /"FT#D@P @P0c0itn @P@P@P@P#p@P [ dQ̫l^l Z (d`# dVT\T"7 $\Xpp@P+d&d' 0lde d n 1Th 0ΰ(Td)8hKpp@P H d]I  lTdTu\Tv d* ld! pp@P*쵖B <tn l;l l̤ ̚d[ d \ d` l ddp@PUQ d Ve@P0@P[ad&v l r<@P4X;XA hh h   < @P N@P̱%X?\h h kW X,IA hN^@P `XEhT  hj՘2 5` h hH@^^@P `X!hT  hj2 5` h  hL@ ^P@P ʖ hAX# hX h~h(Pr@P hQhdhwQ "p0SmTg>hchr@P h"@PTL T SO""PIOPR  READ WRITE EXIT "PPAGCHK@MAXSECP J PQ8PRMS DECK-ID 10F FORTRAN 3.3B SUMMARY-102JH@PHq``Hs"ܨHPQ8PREPQ8PKUP P D P| _BKDWN DECK-ID 01C FORTRAN 3.3B SUMMARY-102D@P @P@? p@P h fQ 1xh # dRh hp8h)nAh 1BhpF@P4dZʨ d [ h h hØ8nػشF*@P OT ^d _ lH* PBKDWN [ P D P| CBLDUP DECK-ID 02C FORTRAN 3.3B SUMMARY-102D@P@P@p@P dR lh h Q(h)'dRlAh 1 ` hdRp*@P/l]d^d_d* @P?H PBLDUP ? P D P| BSS DECK-ID 03C FORTRAN 3.3B SUMMARY-102DN@P (d`]d  da d V dQ dWTHN PBSS  PBLDUP  P D P| CHKWD DECK-ID 04C FORTRAN 3.3B SUMMARY-102Dp@P dJ\ S  dKdL h ff: f 1 dM Upp@P/ 0dcThE0  l  l\E"  lih h h!pp@PZ l\E +̻ؖl% l\οE  dJ \pp@P <^ T ]K  l L  l dd d M9pp@P0 vl̴  l 2M̻ "Md0cT6jH Upp@P  ll lĜ=Hd캆: 7̴ܴlH0l%l\Hpp@P؜  dJLl\Hd  lKl\γHd  lYdpp@P1M?0f00 f0;nl nnn \  m % "apf@P\ 2m "k 2m l dIl̽"ξ  nܣf@P*@Pt@P@PHz PCHKWD  PGETSYM P D P| CHOP DECK-ID 05C FORTRAN 3.3B SUMMARY-102D@P @P @P  @P @P *F, 77 p@PT 0hc0hEk Kg eK`  O KLpp@P@ KD K?  d 6K4 Z  \ # & pp@Pk  li!+ n @0eh d` d F dcEpp@Pd0-  l̻ T$^l  dRltޔ " cpp@P V Ѥ l d dG!40 0 ' !d ̱ 1̦ pp@P 1̟  ; #dl̺!J ɔ E !* ld!l!dlpp@P̠̜? d.l ̡  "g̚d Gnt fpl@PB dnP l`dRm d] dT dV d ` dF l@PPk0@Pkcid "|2|0@P3|@PC|b@P|hAlK  ߔ !(̪ n l dW lb@P;p@P̔!Ɯn; lZ ~ l t쬞 ! d dvpp@P!3̍ A )  B !n l ޞ 1؞d 9 dpp@P]c ̲  d!n̰n̛ܹܺdẖ  1̫ dp2@P"1& TTlK2d@P5nܒܑch K t  vf@I n lܡܠWd@P[@PN[\@P[ E d AhĘd#d" 8 $\@P~@P~@Pj~@P~ @ HH PCHOP  PGETSYMWRITE ,P D P| CL12 DECK-ID 06C FORTRAN 3.3B SUMMARY-102D@P@P  h @PP @P`@ @P @P 0 @P @P @P @P@ p@P dF\l[dQ  Z!1 -"7 $ d` l lpp@PI l]ll l_l !l0dcThO  YV pp@Pt@E;  9h̢h̨hȕlȔl d ^dd d aTTl dpp@P dQ\\lll l dF0̘lTZ  dWd `  l lpp@P ]l\ l  l 3 „l⌐l " l  dVʌl̿lTp@PH" PCL12 *PGETSYMdINOUT COUNT CHOP BLDUP *P D P| SCON DECK-ID 07C FORTRAN 3.3B SUMMARY-102Dp@P dV Z <chI5 -d `I/ dQ0 kd !ld] pf@P+j d^D dRlIdaT l .l lHf PCON O PBLDUP C P D P| COUNT DECK-ID 08C FORTRAN 3.3B SUMMARY-102DN@Ptal . l dO0 dd00 d" lHN PCOUNT  P D P| DATAST DECK-ID 09C FORTRAN 3.3B SUMMARY-102D@P@Pp@P *F,85 hh dbdcT 2d `hE_ EW  4l pp@P2 hLi؆ E h hdT d d] d^  l  dQ dV dpZ@P][TT h̰`hͲI H 6 1 l Zp@P dbl `00chId l l\\  ll lpj@P،l "% l΍l lf n f ̹hTj*@P d0& @ HH(* PDATAST "PGETSYMBLDUP _INOUT aWRITE "P D P GETSYM DECK-ID 10C FORTRAN 3.3B SUMMARY-102Dp@P6 c0p4g,delf p<( hp8hp8(d pp@P,T0i h\0) h\0 \0iȷ h\0Iȯ h\pp@PW p<( hp8hp8(d Tiȍ h\)ȅ h\ pX@P\0i l\I l\ edfHcX PGETSYM PWRITE -READ mP D P| oINOUT DECK-ID 11C FORTRAN 3.3B SUMMARY-102D@Pp@P`  b[ 4T le    dxlT\ pp@P -U 7 l4 h Q=cf nغ̻ ȶ1 ldsTp<@PX$c h5 n؜ lH< PINOUT k PREED BKDWN (WRITE WP D P| FIXOPT DECK-ID 12C FORTRAN 3.3B SUMMARY-102D@P@Pp@P _d0 %\hbh X >U T  h dI ^ T ]pp@P5h L ˔K \J "̿lȲdȮl\ȩl̯ pp@P`T !+\ \ ḥ[l 1Q ̚dxT S G̘ \ pp@P%_ 7l dNdb TlI \\\ dLpp@PK  Fl\l l   %3 ( 3 "̯l d ̪pp@P᜺  l̰l\ d l ff: f 1 dM l9pp@P _ & dI0ndcTjHn lۜ:  nܯ2 p@P7 ")@P)>@P>H PIXOPT A "PCHKWD BKDWN {QXLD GETSYM"P D P| "LABEL DECK-ID 14C FORTRAN 3.3B SUMMARY-102DX@P t00cfi dSdV dQed d`TT lHX PLABEL  PBLDUP INOUT P D P| fLABIN DECK-ID 15C FORTRAN 3.3B SUMMARY-102D@Pp@P b  d $T 0lc0jO 0hB  @mT3 l/pp@P-K O  d 1\Ʉe0h( Ȳ0' 8Ȭ& p$@PX @HH$ PLABIN _ PREED LABEL 'P D P| QXLD DECK-ID 16C FORTRAN 3.3B SUMMARY-102DZ@P@`"  [h h fQ 1" ; ' Zp@P%d l d` lFl l d V%dcd] d\  l ldF TWpp@PP  lٌl l̈l Ƙl  ̽l l̾ 3 dal̶ " pB@P{lTTTd[ H TThuB PQXLD 2PQ8PKUPQ8PREPCHOP MBLDUP }INOUT COUNT 2P D P| ]REED DECK-ID 17C FORTRAN 3.3B SUMMARY-102D @P &@P d bhT#&N@P   7 !2 l߀ h\#Np@P1 hώ lhɘ6nؾ ȹ5̷ܹ l̴l lHp PREED Y PREAD  P D P| VSKIP DECK-ID 18C FORTRAN 3.3B SUMMARY-102D@P@P 0 @P@P p@P ]d0cT \ d` d  &  l $ l l dQ d WTTp\@P2T * 7ʵ l\\\ ll l0el daH\ PSKIP R "PCHOP BLDUP 0INOUT 2COUNT 4"P D P| SYMSCN DECK-ID 19C FORTRAN 3.3B SUMMARY-102DH@P0c  le0al` 3 lTHH PSYMSCN PGETSYM P J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16343PP*K,I8 17X16344PP*N,FTN3C1,,,B 17X16345PP*K,I6 17X16347PP*P 17X16348PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P* 'GOOD DECK-ID 30F FORTRAN 3.3B SUMMARY-102Jh@P $$l"L"TT"`TF8T\! ;#$h PGOD PIOPR PHASE6P D P* PHASE6 DECK-ID 14D FORTRAN 3.3B SUMMARY-102D@Pxu0p@PP "d dd ( d' dTT#  d! ld 1 9pp@P3d Μ*T'l\ l\l hhȼ<\d) fܺذȭ  lȔpp@P^ ! ! ļ lT̨  l̲ !Tȍdm d%n0: p4@P n 1 dTHn4 PPHASE6 2PBEGINOREAD INDEX :AMOUT lFINISHyNPUNCH2P J P$IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112Jr@P HwhvhrH Hfgfh hZX n hN HRhWrr@P+H HIhNLHAh0h@=>M h;=8@h;"513/!Hn,, q+%s%̘FrP@Ph hXhr@Pw hT"@PTL T SO"*PIOPR  READ %WRITE .RESET EXIT *PMAXSECRPAGCHKeP J PQ8PRMS DECK-ID 10F FORTRAN 3.3B SUMMARY-102JH@PHq``Hs"ܨHPQ8PREPQ8PKUP P D P* AMOUT DECK-ID 01D FORTRAN 3.3B SUMMARY-102D @P @P@P@P@P@P@P@P?@P P @P *UD @Pp@P !'d 0d " d l  4ld& hT   (8 pp@PL"8Ԝ  dȬ "h  T̾ ̽  +) ̱pp@Pw 7̩l !x̠l̢l̞l\̶  $ 1; $ 1R $ 1*pp@P  d  dcT0il 2@ " ! d{llp4@P hTl̙`͙ dRm 4p@P  "l dM $d ld 0!6 $ 1. 'pp@P ̔d  # ) # #  l  lT̵ "̝d &T=pp@P7 T d dd  d LddHdld̞ %̛pp@Pb 2 T l !0 " ! "pp@P " $ d ld̯d  !̡d TTd) `pp@PdRml̊lܙ̘" 9 &\2RQW 0 "d %dlpp@Pl  "l̿ #̼dl "d  d 0dcTlڜ pp@P"lǜll "̻ ḻl̳ d̪l\d    0 hKpp@P9  0i "T ̠ N̏ !J" ! C dpp@Pdd#! Q!d !d   P  O   Rd !pp@P d   ll d dTcd̾ "illdcT ̦ipH@P #ldT<llḴņn dH@P@Pp@P0 ̸ 0 l̳l)̬d #fQ l" n l d " $ p@P첎 d@Pp@Pl  l dRl d d  d  1U,c lhpp@P0E  lK  6  l !K EpR@P[  lEd0-  l >$  췆i" lR@Pzp@Pz l/̣ l nΦK ΡA  d d  ̛lp @P @PuD@P !> dd 'dRlD@Pzp@PD l l dcTΠ l l & 3ΏlEp@P ll@P@Pp@P  1̸D "l̴l  l l (= +llTkdT+ -"pp@P̹l\̭d ,d̠d 0hK   .0i1D )!Gpp@PI $c "d Xln d   llCpd7(#fpp@PtOf Pf QfR l ll&TK    ΗO  +pp@P̫,ll$l  l0hEd  l0-  lpp@Pd  $00cid&dRl "d &dRll̞ pp@Pl̕,l -d 0 $ dd ̿ll  llT Td )`pD@P dRm"= )D@Pe9@P9@P9p@P9̧l dd̢l 8̽ 4T dcT $0 id ld (d" *pL@Pdll d̘ " l -ll\d %llL@P @P @Pp@P\ .d l lll:  d0m d0%n 10<dl\ίdq dp@PT d'@P6@P @ HHd PAMOUT  ZPBKDWN 5ADMAX dGETSYMQINDEX COUNT LABOUTUNPUNCKNP2OUTWRITE TABDECNPUNCHZP D P*  ADMAX DECK-ID 02D FORTRAN 3.3B SUMMARY-102D@Pp@P0 @T d)  h`\~h hZ\~h hT\~h hN\~h hH\~h pp@P@Pg7" !1 9̦` dRm>p@Pd   d]  l)` dRm n̮ T  lpp@P`m dRm l   2q d l lTl̴`ͥ dRpp@PmBd " l " l̦`͊dRe lw ̿ ' pp@P   l̲ d l ~!_ 1[ d 1V̼ !R̸ ̵  dpp@P + S N   l̞  V % !N # l )`͜pp@PVdRm n l n dT` m dRm lpp@P d`լm ,d $ldRm d̚  l d"! *pp@P 3E6GFEn`͠ dR m n̊nn`pp@PdRmnnn`dRmnn @ p@PHH PADMAX  PINDEX GETSYM[TABDECpP D P* mBEGINO DECK-ID 03D FORTRAN 3.3B SUMMARY-102D@P P@P @P /@P @P  @P  p@P dd"0hl 0hkf 71dm h0ה8 1 h8- pp@PG h0+fl„09h  dn o } hʘh0=nآ 1pp@PrT 2 hʌhn، 1a0fTo (nhTp @Po p@P̸ l )f̳ 3̯ 1 ddαf0ܜ 1ܖܕn\n܏܎p@P (n0̊h \np@P )f l\\0d00@Pk ̪ !\&d @ HH> PFINISH| 2PNWRITEMIHCON RCONV _SYMSCN)IACON RNPUNCH 2P D P GETSYM DECK-ID 10C FORTRAN 3.3B SUMMARY-102Dp@P6 c0p4g,delf p<( hp8hp8(d pp@P,T0i h\0) h\0 \0iȷ h\0Iȯ h\pp@PW p<( hp8hp8(d Tiȍ h\)ȅ h\ pX@P\0i l\I l\ edfHcX PGETSYM PWRITE -READ mP D P* ZIACON DECK-ID 07D FORTRAN 3.3B SUMMARY-102D@P v@P@P'p@P h0c h hhkh &h h h(h((dژ#"`p9iψh pB@P6 .h0= 0f h 1ؾ 1B@PO @HH PIACON S P D P* -IHCON DECK-ID 08D FORTRAN 3.3B SUMMARY-102D@PN@Ph hp8hh0= 0fDh 1 N@P#HTTh PIHCON # PQ8PKUP)Q8PREP&P D P* INDEX DECK-ID 09D FORTRAN 3.3B SUMMARY-102D&@P p4 (,dh h&$@P HTTh$ PINDEX  PQ8PKUPQ8PREPP D P* LABOUT DECK-ID 10D FORTRAN 3.3B SUMMARY-102D@P@Pp@P? "h ddcT hd #  O  h `Rl( dpp@P01i PlQ $dn 14 dRl  lTT\ȩ  pp@P\̺ hȠhȠ6Snؚ̬ l nnnn );ε"d  lpp@PdΫ Φ d&dRll&dRllӤlpp@P0c0hO  Q  ̽dRll@H HTTp@P* PLABOUT *PQ8PKUPQ8PREPGETSYMUNPUNCTRBPK V*P D P* /NP2OUT DECK-ID 11D FORTRAN 3.3B SUMMARY-102D@P @P @P CORE OV@PFLd@PTT  T  ,d ddl lHd PNP2OUT+ PRBPK COUNT WRITE P D P* JNPUNCH DECK-ID 12D FORTRAN 3.3B SUMMARY-102D@P@P`P: @P  @P*T @P @P @P @P @P p@P00 0lh l 0>kh `lT1$kl\13$ll lmpp@PE h n 91\1$1T$1T$"d hȥ褆 hȠp@Pph\$p@Pv <" <2d1d d0  pH@P!   !$1=h ζ h T94"H @P8" $@P׀h λ h\"$(@Ph Ε h\(&@P̺ h Ξ h\&p@P̭쬆 l̚ 1 lrl\"̠ 9TFH K  pp@Pd n (1TD(K TT\! @PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P* &GOE DECK-ID 32F FORTRAN 3.3B SUMMARY-102Jf@P ##l!L!TT"`TF8T\! #$f PGOE PIOPR PHASE6P D P* PHASE6 DECK-ID 14E FORTRAN 3.3B SUMMARY-102D@Pxu0p@PP "d dd ( d' dTT#  d! ld 1 9pp@P3d Μ*T'l\ l\l hhȼ<\d) fܺذȭ  lȔpp@P^ ! ! ļ lT̨  l̲ !Tȍdm d%n0: p4@P n 1 dTHn4 PPHASE6 2PBEGINOREAD INDEX :AMOUT lFINISHyNPUNCH2P J P$IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112Jr@P HwhvhrH Hfgfh hZX n hN HRhWrr@P+H HIhNLHAh0h@=>M h;=8@h;"513/!Hn,, q+%s%̘FrP@Ph hXhr@Pw hT"@PTL T SO"*PIOPR  READ %WRITE .RESET EXIT *PMAXSECRPAGCHKeP J PQ8PRMS DECK-ID 10F FORTRAN 3.3B SUMMARY-102JH@PHq``Hs"ܨHPQ8PREPQ8PKUP P D P* AMOUT DECK-ID 01E FORTRAN 3.3B SUMMARY-102D @P @P@P@P@P@P@P@P?@P P @P *UD @Pp@P !'d 0d " d l  4ld& hT   (8 pp@PL"8Ԝ  dȬ "h  T̾ ̽  +) ̱pp@Pw 7̩l !x̠l̢l̞l\̶  $ 1; $ 1R $ 1*pp@P  d  dcT0il 2@ " ! d{llp4@P hTl̙`͙ dRm 4p@P  "l dM $d ld 0!6 $ 1. 'pp@P ̔d  # ) # #  l  lT̵ "̝d &T=pp@P7 T d dd  d LddHdld̞ %̛pp@Pb 2 T l !0 " ! "pp@P " $ d ld̯d  !̡d TTd) `pp@PdRml̊lܙ̘" 9 &_2UTZ 0 "d %dlpp@Pl  "l̿ #̼dl "d  d 0dcTd (lpp@Pל "lll "̸ l̮l̰ d ̧l\l  8hKpp@P9  0i "T  ̞ N̍ !J" !C pp@Pddd#! Q!d !d  P  O   Rdpp@P ! d  ll d  dTcd̾ "glldcȚpN@P0i #ldT<llI̱ņn dN@P@Pp@P0 ̸ . l̳l'̬d #fQ l" n l d " $ p@P첎 d@Pp@Pl  l dRl d d  d  1U,c lhpp@P2E  lK  6  l !K EpR@P]  lEd0-  l <$  췆i" lR@P|p@P| l-̣ l nΦK ΡA  d d  ̛lp @P @PuD@P !> dd 'dRlD@Pzp@PD l l dcTΠ l l & 3ΏlEp@P ll@P@Pp@P  1̸D "l̴l  l l (? +llTkTdT+ -pp@P "̷l\̫d ,d ̞d 0hK   .0i1D )!pp@PKG $c "d  Tln d  ll?td5pp@Pv#fO fP fQfR l ll"TM    ΗO  pp@P+̫,쫎ll$l  l0hEd  l0-  lpp@Pd  $ 0c0id&dR l"d  &dRll̞ pp@Pl̕,l -d 0$ dd ̿ll  llTT (d)pH@P"`dRm"= )H@Pe=@P=@P=p@P=̧l dd̢l :̽ 6T dcT $0 id ld (d" *pP@PhlTl d̖ " l -ll\ d%llP@P@P 0hT  @P @Pp@P\ .d l ll\0l:  dm d%n 1<dl\8Σdq p@P dT  d'@P6@P @ HHT PAMOUT  jPBKDWN 5ADMAX dGETSYMUINDEX COUNT LABOUTUNPUNCONP2OUTWRITE TABDECSETPRTjCONV NPUNCHjP D P*  ADMAX DECK-ID 02E FORTRAN 3.3B SUMMARY-102D@Pp@P0 @T d)  h`\~h hZ\~h hT\~h hN\~h hH\~h pp@P@Pg7" !1 9̦` dRm>p@Pd   d]  l)` dRm n̮ T  lpp@P`m dRm l   2q d l lTl̴`ͥ dRpp@PmBd " l " l̦`͊dRe lw ̿ ' pp@P   l̲ d l ~!_ 1[ d 1V̼ !R̸ ̵  dpp@P + S N   l̞  V % !N # l )`͜pp@PVdRm n l n dT` m dRm lpp@P d`լm ,d $ldRm d̚  l d"! *pp@P 3E6GFEn`͠ dR m n̊nn`pp@PdRmnnn`dRmnn @ p@PHH PADMAX  PINDEX GETSYM[TABDECpP D P* BEGINO DECK-ID 03E FORTRAN 3.3B SUMMARY-102D@P P@P@P @P /@P @P  @P  p@P dd"0hl 0hkf 71dm h0֔8 1 h8- pp@PH h0+fl09h  dn o } hʗh0=nء 1pp@PsT 2 hʋhn؋ 1a0fTo (nhTp @Po p@P̸ l )f̳ 3̯ 1 ddαf0ܜ 1ܖܕn\n܏܎p@P (n0̊h \np@P )f l\\0d00@Pk ̪ !\&d @ HH> PFINISH| 2PNWRITEMIHCON RCONV _SYMSCN)IACON RNPUNCH 2P D P GETSYM DECK-ID 10C FORTRAN 3.3B SUMMARY-102Dp@P6 c0p4g,delf p<( hp8hp8(d pp@P,T0i h\0) h\0 \0iȷ h\0Iȯ h\pp@PW p<( hp8hp8(d Tiȍ h\)ȅ h\ pX@P\0i l\I l\ edfHcX PGETSYM PWRITE -READ mP D P* ZIACON DECK-ID 07E FORTRAN 3.3B SUMMARY-102D@P v@P@P'p@P h0c h hhkh &h h h(h((dژ#"`p9iψh pB@P6 .h0= 0f h 1ؾ 1B@PO @HH PIACON S P D P* ,IHCON DECK-ID 08E FORTRAN 3.3B SUMMARY-102D@PN@Ph hp8hh0= 0fDh 1 N@P"HTTh PIHCON " PQ8PKUP(Q8PREP%P D P* INDEX DECK-ID 09E FORTRAN 3.3B SUMMARY-102D&@P p4 (,dh h&$@P HTTh$ PINDEX  PQ8PKUPQ8PREPP D P* LABOUT DECK-ID 10E FORTRAN 3.3B SUMMARY-102D@P@Pp@P?"h  dd0cT  hd# O  h`R l dpp@P1iPl Q $dn 14 dRl  lTT\Ȩ pp@P\ ̺ hȟhȟ6 Snؙ̬ l nnnn );ε "d  lpp@PdΫ Φ d&dRll&dRl lӤpp@PlchO Q  ̽dRll ; T p @P dK T& @Pɀ0khTp@P $lI θI 0=fn@H H TThp@P PLABOUT BPQ8PKUPQ8PREPGETSYMUNPUNCURBPK WNWRITEIACON IHCON BP D P* 8NP2OUT DECK-ID 11E FORTRAN 3.3B SUMMARY-102D@P @P @P CORE OV@PFLp@P TT hT  T  ,d ddl lp @P4H PNP2OUT4 "PRBPK SETPRT COUNT WRITE "P D P* JNPUNCH DECK-ID 12E FORTRAN 3.3B SUMMARY-102D@P@P`P: @P  @P*T @P @P @P @P @P p@P00 0lh l 0>kh `lT1$kl\13$ll lmpp@PE h n 91\1$1T$1T$"d hȥ褆 hȠp@Pph\$p@Pv <" <2d1d d0  pH@P!   !$1=h ζ h T94"H @P8" $@P׀h λ h\"$(@Ph Ε h\(&@P̺ h Ξ h\&p@P̭쬆 l̚ 1 lrl\"̠ 9TFH K  pp@Pd n (1TD(K TT\! 23 @P$@@S @P'S0 . @P*JA`2 @P- 1L @P0@@P1--**@P5 ++ @P9 , @P< PCDp@PK h  d T" l\ f !.  hʕh Eh Jpp@Pvh̨h hG0fػ 1 %ʡf0̻ &l  k !pn@P h  hȕ fnܞ =dc0hKB TZkhTSnp@P $dDIC 0= nI nA z +l̖ 1p\@P  =̚l0vaf\  "z !ǀ hT\b@P̿ l 7      57nܡ0̠h \ bp@PA̙ l̳  ̡ gn HdD̸ 1! ;nI  lJpH@Pl l l<0fT d dHH PSETPRT "PIHCON IACON CONV NWRITE{"P D P SYMSCN DECK-ID 17D FORTRAN 3.3B SUMMARY-102DH@P0c  le0al` 3 lTHH PSYMSCN PGETSYM P D P* |TABDEC DECK-ID 18E FORTRAN 3.3B SUMMARY-102D@Pp@P dcdeT  0hE K  "i (% n pp@P-hd !- ( $n0 :踞 $n dd謎 $p\@PXnȤ  hd $>̵ %n ÜlH\ PTABDECx PSYMSCN P D P* UNPUNC DECK-ID 19E FORTRAN 3.3B SUMMARY-102D:@P   l dTT lH: PUNPUNC PRBDX NPUNCH P J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16410PP*K,I8 17X16411PP*N,FTN3E1,,,B 17X16412PP*K,I6 17X16414PP*P 17X16415PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P GOF DECK-ID 38F FORTRAN 3.3B SUMMARY-102J @P T0 dT PGOF PIOPR PHASEFENDLOCP D P)SYMSCN DECK-ID 28A FORTRAN 3.3B SUMMARY-102DH@P0c  le0al` 3 lTHH PSYMSCN PGETSYM P D PH PHASEF DECK-ID 01G FORTRAN 3.3B SUMMARY-102D @P @P6  `@P @P@P @P@P- p@P,f0p4g( hp8ڈhp8(d Ti h\)Ⱦ h\pp@P0I \0iȰ h\0IȨ h\0 dm0 dn dȞl0 dc h npp@Pt nf0rؑ 1TT0e =hK d0 id "! ,pF@P 439876  d9̺khTFl@Pw l +O 0w  ̼ lckh\l\@Pw  l" 9 & 0kl d0x2܀0khT\@PlԀ0lh\n@Pl"̻ 4 l d d 0v  $ l 1lnhTnp@P:wC l l0nd 0c `fhlr 1 d lpp@Pe췎lܴ 1 l6fܦ0 df ll T~ 씎 dlpp@P"lTηKd αIdΫCdid ΢Ed " : p0@P&t00ckhT0p@Pw S d00{d| (d}T1wkl '\̻dlTw )l\w pp@Pd 5 n l\ 0w l 0fv 1̠  Cl-  Dl\wp@P#\ ll̞lh\$@P-}\w̒khT$\@P:w ld~\w  <l l 4 lT ckh\\D@P^w d0}lT1w  l lkh\DF@Pxw\ww deh Td \F<@P \Tw\w l<@P@P  d@P0@P 2~ @ HH`0 PPHASEF bPWRITE 6TITLE SYMSCNACON 8IREPAKSORT 8GETSYMHCON LWRITEdCONV WRTYP TMATCH bP J PQ8PRMS DECK-ID 10F FORTRAN 3.3B SUMMARY-102JH@PHq``Hs"ܨHPQ8PREPQ8PKUP P D PH `GETSYM DECK-ID 02G FORTRAN 3.3B SUMMARY-102Dp@P6 c0p4g,delf Dp<( hp8hp8(d Tpp@P,i h\) h\ \iȸ h\IȰ h\ p@PW̵lH PGETSYM\ PREAD , P D P _ACON DECK-ID 03G FORTRAN 3.3B SUMMARY-102D@P v@P@P'p@P hh hh4h %h h h(h'(dߘ""`p9iԈh  . h=p.@P7n h 1 1ɀ.4@PJ@HH TT h\ h4 PACON N PQ8PKUPVQ8PREPSP D P 3HCON DECK-ID 04G FORTRAN 3.3B SUMMARY-102D@PL@Ph hhp8h h0@P nff fcef l'> @P hhhT @P( =Ԁh\p@P3 1 nl lȽn̽nȶhθh HTTh\p@P^hh hh PSORT U PQ8PKUP[Q8PREPXIFOVPF%P D PXIREPAK DECK-ID 08G FORTRAN 3.3B SUMMARY-102D@P v@P @P'@P p@P hh3h h %h h h(h$(d"`p9iՈh  h*Ɉhp @P9 h 1ȿh .@PF@ȶH HTTh. PIREPAKK PQ8PKUPSQ8PREPPP J P3CONV DECK-ID 03F FORTRAN 3.3B SUMMARY-102Jr@P hhH(h'  f qh @HB0Fh Fd 0m `h rH r@P+` PCONV P J PHnGETSYR DECK-ID 39F FORTRAN 3.3B SUMMARY-102J<@P m0!lh TH< PGETSYR P J PTITLE DECK-ID 40F FORTRAN 3.3B SUMMARY-102Jr@P H2"WTUr !lX X XXXX X T4 h.h Trr@P+2  H")hTE rr@PV 6ALWbmx ***** L I S T O F  S Y M rr@PB O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATErr@PMENT NB : VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENTrr@P NB : EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB rr@P: LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED rr@P-BY STATEMENT NB : B Y T E S I G N . B Y T E I N T R . F N . Srr@PX T A T . F N . I N T E G E R R E A L  rr@P D B L E . P R E C . F U N C T I O N I N T E G E R . F N . R E A L . F N . r@@P D B L . P R C . F N . S U B R O U T I N E @PTITLE WRTYP 7PLWRITE>WRITE +P J PIFOVPF DECK-ID 41F FORTRAN 3.3B SUMMARY-102J:@P hh h  3 d: PIFOVPF P J P%PACK DECK-ID 09F FORTRAN 3.3B SUMMARY-102J^@P H"h! h h Ah @ m 5@^ PPACK P J P$IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112Jr@P HwhvhrH Hfgfh hZX n hN HRhWrr@P+H HIhNLHAh0h@=>M h;=8@h;"513/!Hn,, q+%s%̘FrP@Ph hXhr@Pw hT"@PTL T SO"*PIOPR  READ %WRITE .RESET EXIT *PMAXSECRPAGCHKeP J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16435PP*K,I8 17X16436PP*N,FTN3F1,,,B 17X16437PP*K,I6 17X16439PP*P 17X16440PJ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132J>@PwXfvh h Dh h h TZy>r@PehT%X28Ih[ X8R+hP= : h84H+rr@PChF X h,A1h;h.xh2 " l TLf rr@PnhERh  unFTN3A1 __ 2h\Y hX < rr@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  rh@P PAGE DATE: MM/DD/YY TIME:  hBPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME BPFTN J P ERRMSG DECK-ID 42F FORTRAN 3.3B SUMMARY-102Jr@P  < #h* h) h( h'0 dh1h"$0`# `r@P+X r@P0 hHCDhBhB2<h" jQ q1 hh X4X3TrX@P[/X(X' Hh 2ȽXH@P~  f0B y hvt T[ Hr@Pn3Wi~)AUky( 6KcgT{rr@PBa /Fnr  * ; Q p   & ; O    0 b   Drr@P* o s    5 ^ b f j n r v z@Dz~!FXimquyr`PUr@Ply***** D I A G N O S T I C S R E P O R T ***** 1 : FIELD IS NOT RECOGNIZABLrr@PE. (ILLEGAL CHARACTERS IN FIELD SUCH AS 8 IN OCTAL FIELD.) 2 : MINIMUM RANGE LIMIT rr@POF A CONSTANT IS EXCEEDED. 3 : MORE THAN SIX CHARACTERS IN A NAME. 4 : MAXIMUM rr@PRANGE LIMIT OF A CONSTANT IS EXCEEDED. 5 : EXPONENT IS MISSING IN A CONSTANT. 6 rr@P: SUBSCRIPTED VARIABLE WAS NOT PREVIOUSLY DIMENSIONED. 7 : EXPRESSION IN AN IF STATrr@PCEMENT DOES NOT HAVE INITIAL PARENTHESIS. 8 : INCORRECT FORMAT STATEMENT.  9 : ILrr@PnLEGAL USE OF THE .NOT. OPERATOR. 10 : ILLEGAL OPERATOR OR OPERAND. 11 : SUBPROGRAMrr@P REFERENCE IS ILLEGAL. 12 : LABELED END CARD IS ILLEGAL. 13 : NUMBER OF ARGUMENTS rr@PDIFFERS IN REFERENCES TO THE SAME SUBPROGRAM. 14 : IMPLIED DO IN DATA STATEMENT EITrr@PHER CONTAINS WRONG NUMBER OF SUBSCRIPTS OR SUBSCRIPT IS OUT OF RANGE. 15 : EXPRESSIrr@PON HAS AN ILLEGAL TERMINATION. 16 : UNMATCHED PARENTHESES IN AN EXPRESSION.  17 : rr@PERELATIONAL OPERATOR IS MISSING. 18 : RELATIONAL OPERATOR USED ILLEGALLY.  19 : ASrr@PpTERISK IS ASSUMED. 20 : ONLY ONE ** IS ALLOWED PER PARENTHESES LEVEL. 21 : A VARIrr@PABLE IS USED AS A SUBPROGRAM NAME OR A SUBPROGRAM NAME IS USED AS A VARIABLE.  22 : rr@PSUBPROGRAM NAME DOES NOT APPEAR IN AN EXTERNAL STATEMENT. 23 : ONE OR MORE DO LOOPSrr@P TERMINATE ON AN UNDEFINED STATEMENT LABEL. 24 : ILLEGAL SUBSCRIPT. 25 : SYNTAX Err@PRROR IN THIS STATEMENT. 26 : THIS ARRAY PREVIOUSLY DIMENSIONED IN DIMENSION, COMMONrr@PG, OR TYPE STATEMENT, OR PREVIOUSLY DEFINED IN AN EXTERNAL STATEMENT. THE PREVIOUS DIMrr@PrENSIONING OR DEFINING IS RETAINED AND THE NEW IGNORED. 27 : THIS FIELD MUST BE A VARrr@PIABLE OR ARRAY NAME IF PROCESSING A COMMON, DATA, EQUIVALENCE, BYTE, OR SIGNED BYTE STrr@PATEMENT; AN ARRAY NAME IF PROCESSING A DIMENSION STATEMENT; OR AN ARRAY, VARIABLE, ORrr@P FUNCTION NAME IF PROCESSING A TYPE STATEMENT. 28 : LOGICAL IF STATEMENT CONTAINS ANrr@POTHER LOGICAL IF, DO, DATA, OR FORMAT STATEMENT. 29 : NAME MUST BE THE NAME OF AN ARrr@PIRAY. 30 : MUST BE FIRST STATEMENT OF PROGRAM UNIT. 31 : 32 : A MISSING COMMA INrr@Pt THIS STATEMENT IS ASSUMED. 33 : 34 : ILLEGAL CHARACTER IN THIS STATEMENT WILL Brr@PE CHANGED TO A BLANK. 35 : THIS LINE, WHICH BEGINS A STATEMENT, HAS OTHER THAN ZEROrr@P OR BLANK IN COLUMN 6; BLANK IS ASSUMED. 36 : TOO MANY LABELED COMMON BLOCKS DECLARErr@PD; CONTINUATION OF THE LAST DECLARED BLOCK IS ASSUMED. 37 : THE NAME IN THIS COMMON rr@P STATEMENT IS EITHER A FORMAL ARGUMENT OR DEFINED IN A PREVIOUS COMMON STATEMENT. THErr@PK NAME IS IGNORED. 38 : NAME SPECIFIED AS TWO DIFFERENT TYPES. THIS SPECIFICATION Irr@PvS IGNORED. 39 : THIS BYTE TYPED AS OTHER THAN AN INTEGER, OR IT IS A FORMAL ARGUMENTrr@P. THE BYTE SPECIFICATION IS IGNORED. 40 : THIS BYTE PREVIOUSLY SPECIFIED AS A DIFFrr@PERENT BYTE. THE PREVIOUS SPECIFICATION IS RETAINED AND THIS ONE IGNORED. 41 : THE BIrr@PT SPECIFIED IS NOT WITHIN BOUNDS OF THE 1700 WORD SIZE. 42 : LEAST SIGNIFICANT BIT rr@P"IN THIS SPECIFICATION IS GREATER THAN THE MOST SIGNIFICANT BIT. 43 : NAME MUST BE Arr@PMN EXTERNAL FUNCTION OR SUBROUTINE NAME. 44 : FIELD MUST BE A NON-ZERO POSITIVE INTErr@PxGER CONSTANT. 45 : ARRAY HAS MORE THAN THREE DIMENSIONS. 46 : DATA STATEMENT CONrr@PTAINS TOO MANY CONSTANTS FOR THE SPACE PROVIDED. 47 : STATEMENT HAS MORE THAN FIVE Crr@PONTINUATION CARDS; EXCESS CARDS ARE IGNORED. 48 : AN INSUFFICIENT NUMBER OF CONSTANTrr@PS IS PROVIDED IN THIS DATA STATEMENT. 49 : 50 : CONSTANT IS NOT SAME TYPE AS CORrr@P$RESPONDING DATA CELL. 51 : STATEMENT REDEFINES DO LOOP PARAMETER. 52 : STATEMENT rr@POTYPE IS UNRECOGNIZABLE; OR IT FOLLOWS AN EXECUTABLE STATEMENT. 53 : 54 : STATEMENrr@PzT LABEL IS MEANINGLESS; LABEL IS IGNORED. 55 : STATEMENT LABEL PREVIOUSLY DEFINED; rr@PCURRENT LABEL IS IGNORED. 56 : A PROGRAM NAME WAS EXPECTED IN THIS FIELD.  57 : TOrr@PO MANY DIMENSIONS CAUSED TABLE OVERFLOW. 58 : SYMBOL TABLE OVERFLOWED; COMPILATION Trr@PERMINATES. 59 : STATEMENT LABEL MAY NOT BE ZERO. 60 : NO APPARENT EXIT FROM THIS Prr@P &ROGRAM. 61 : UNCLOSED DO-IMPLIED LIST. 62 : UNFORMATTED WRITE MUST HAVE A LIST. rr@P Q 63 : NAME MUST BE AN INTEGER VARIABLE OR INTEGER CONSTANT. 64 : NAME NOT IMPLICIrr@P |TLY AN INTEGER VARIABLE. 65 : A RETURN STATEMENT MAY APPEAR ONLY IN A SUBROUTINE OR rr@P FUNCTION DEFINITION. A STOP STATEMENT IS ASSUMED. 66 : SUPERFLUOUS INFORMATION IN Trr@P HIS STATEMENT IS IGNORED. 67 : THIS FIELD ON STOP CARD MUST HAVE AN OCTAL NUMBER NOrr@P T GREATER THAN 77777. STOP IS ASSUMED. 68 : FIELD MUST BE A POSITIVE INTEGER. 6rr@P (9 : FIELD MUST BE AN INTEGER VARIABLE. 70 : FIELD MUST BE A STATEMENT LABEL. 71 : rr@P STHIS FORM OF ASSEM STATEMENT ARGUMENT CAN'T REFERENCE ELEMENTS IN COMMON, EXTERNAL NAMrr@P ~ES OR SUBPROGRAM ARGUMENTS. 72 : THIS TYPE OF STATEMENT MAY NOT TERMINATE A DO LOOPrr@P . 73 : THIS STATEMENT TERMINATES A DO LOOP WHICH IS NOT THE LAST DO ENCOUNTERED. rr@P 74 : THIS 'GO TO' JUMPS TO ITSELF. 75 : A PROGRAM CONSISTING OF ONLY AN END CARD Irr@P S ILLEGAL. 76 : 77 : 78 : LABEL IN A DO STATEMENT MUST REFERENCE A STATEMENT Frr@P *OLLOWING IT. 79 : MAXIMUM ALLOWABLE NUMBER OF NESTED DO'S EXCEEDED. THE DO LOOP MAYrr@P U BE IMPLIED IN A DO LIST. 80 : OVERFLOW OF TABLE OF SUBROUTINE PARAMETERS. CAUSED Brr@P Y LARGE NUMBER OF DECLARED PARAMETERS AND UNIQUE REFERENCES TO THEM. 81 : THIS FORMArr@P L ARGUMENT WAS PREVIOUSLY SPECIFIED AS ANOTHER FORMAL ARGUMENT OR THE SUBPROGRAM NAME.rr@P 82 : TOO MANY FORMAL ARGUMENTS CAUSED A COMPILER TABLE OVERFLOW. 83 : THE ABOVE rr@P NAME IS NOT A VARIABLE OR ARRAY ELEMENT. 84 : TWO ELEMENTS OF THE SAME ARRAY OR COMMrr@P ,ON BLOCK ARE ASSIGNED TO THE SAME STORAGE UNIT. 85 : BLANK COMMON AND FORMAL ARGUMErr@P WNTS MAY NOT BE INITIALIZED WITH DATA STATEMENTS. 86 : 87 : AN ARRAY ELEMENT IN A rr@P BYTE, SIGNED BYTE, DATA, OR EQUIVALENCE STATEMENT EITHER HAS WRONG NUMBER OF SUBSCRIPTrr@P S OR A SUBSCRIPT IS OUT OF RANGE. 88 : TOO MANY EQUIVALENCE NAMES CAUSED A COMPILERrr@P TABLE OVERFLOW. 89 : AT LEAST TWO ELEMENTS MUST APPEAR IN AN EQUIVALENCE STATEMENT.rr@P  90 : 91 : DATA STATEMENT FIELD IS NOT AN INTEGER, REAL, DOUBLE PRECISION OR LITErr@P .RAL CONSTANT. 92 : MISSING TERMINATING ASTERISK OR QUOTE IN A LITERAL STRING AS APPrr@P YROPRIATE. 93 : 94 : 95 : 96 : 97 : 98 : 99 : 100 : CATASTROPHICrr@P TABLE OVERFLOW; COMPILATION IS ABANDONED. COMPILER IS LIMITED TO 300 WORDS OF GENERATrr@P ED CODE PER SOURCE STATEMENT. IF THE OFFENDING STATEMENT IS ARITHMETIC OR A LOGICAL IFrr@P , THE STATEMENT SHOULD BE BROKEN INTO TWO OR MORE STSTATEMENTS AND THE PROGRAM RECOMPIrr@PLED. 101 : TWO PROGRAM, FUNCTION, SUBROUTINE, OR BLOCK DATA STATEMENTS IN IN ONE PROGrr@P0RAM UNIT; THE SECOND IS IGNORED. 102 : 103 : RELATIVE ADDRESS ARGUMENT IN ASSEM STArr@P[TEMENT REQUIRES PRECEDING CONTROL INDICATOR ARGUMENT (*). (*). 104 : 105 :  106 : rr@P 107 : 108 : 109 : 110 : SYMBOL REFERENCE TABLE OVERFLOW. SUBSEQUENT REFERENCESrr@P WILL NOT BE LISTED BY 'C' OPTION PROCESSOR. 111 : THE INDEX USED IN THIS SUBSCRIPTEDrr@P VARIABLE IS IN CONFLICT WITH THE DIMENSION DECLARATION. 112 113 : MAXIMUM NUMBER Orr@PF MACROS EXCEEDED. THIS MACRO DEFINITION IS IGNORED. 114 : THIS MACRO WAS PREVIOUSLY rr@P2DEFINED; THE NEW DEFINITION IS IGNORED. 115 : CALL TO AN UNDEFINED MACRO. 116 : NErr@P]STED MACROS ARE ILLEGAL. 117 : 118 : 119 : 120 : 152 : ARITHMETIC TABLE OVERFr @PLOW. PERRMSG PWRITE ENDLOCP J P$IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112Jr@P HwhvhrH Hfgfh hZX n hN HRhWrr@P+H HIhNLHAh0h@=>M h;=8@h;"513/!Hn,, q+%s%̘FrP@Ph hXhr@Pw hT"@PTL T SO"*PIOPR  READ %WRITE .RESET EXIT *PMAXSECRPAGCHKeP J PENDLOC DECK-ID 17F FORTRAN 3.3B SUMMARY-102J PENDLOC P P*T 17X16445PP*K,I8 17X16446PP*N,FTN3ER,,,B 17X16447PP*K,I6 17X16454PP*L,READ 17X16455PJ PFORTN DECK-ID F01 FTN 3.3 RUNTIME SUMMARY-126Jr@PX/X+X'X# XX}X$Xrr@P+)Xa"a X" XIb XFb XCa X@b bXL>aArI%@@b PSQRT PHFLOT DARABSP P*L,SIGN 17X16465PJ P$SIGN DECK-ID G05 FTN 3.3 RUNTIME SUMMARY-102Jb@P @` `Xah\ b#1Tt`bPQ8SG SIGN PHFLOT ARABSP P*L,FLOAT 17X16467PJ P0FIXFLT DECK-ID G06 FTN 3.3 RUNTIME SUMMARY-102Jr@P @` `@X""``T\ ``@ `@X ""`r@P+\$JPQ8QFIXQ8FX Q8QFLTQ8FLOT!IFIX FLOAT !DFIX Q8DFLTDFLT !JPARABS&HFLOT P P*L,EXP 17X16469PJ PEXP DECK-ID G07 FTN 3.3 RUNTIME SUMMARY-102Jr@P@Xh`\V@ %\O}@ @\H[@|o?C5Ƙ1 `>Ř3rr@P+Ƙ= " HX `B\#Z]Y^]J@1G" `R zrr@PV` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\rD@P\յ@@>UV=UVŐ1` #rr@P+d*@1*A`ݠ4ad` 1`T^]YrJ@PV ^\@Zy@X @@A@@UNIe=h,6 PTANH PHFLOT 4ARABSXP .P P*L,SIN 17X16475PJ PSINCOS DECK-ID G10 FTN 3.3 RUNTIME SUMMARY-102Jr@P@Th`\6@Th`\&@ %\}@ ``q@ؘxrr@P+7u3K@)Ř7X"` Tե`1Gf $ "Ţ` `\rr@PVYJ^C>@:\X]9@ `Ř04Ơ,;.` `\õ~"@\rr@PܞY&#^Y^Y^Y\}@\@AdA@*@Ke>@U@>G4 PATAN  PHFLOT OARABSP P*L,PARABS 17X16479PJ PPARABN DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-111J0@PHhB4 "c"0 PPARABS P P*L,Q8IFRM 17X16481PD P?Q8IFRM DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106D>@P  hhhhhT>P@P THTTh\hh\hhP PQ8IFRM/ "PQ8PKUP5Q8PREP2Q8FS Q8TRAN!"P P*L,Q8FS 17X16483PD P5Q8FS DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106D @P @P!@P/  @P1 D@P+ )(,/.XH0123456789AREF$ID@PD'*Z@P @P3 h.@P; l : T l .@PLll hp@PV l \ hlElh hhhh hhT*() h hظȶ ,Ȱ"!& 1pZ@P ,jZp@P, 1TT6 l44 l2 / ! + !l dKd- l!!  pD@P d.d( d)Tj.() % VdDp@P\/\  l !  "ld0l l l l l\.() pp@Pd L6'1l$ V L"TT 6TG pX@PBl d  d& d% l ll  T*Xp@Pd\*T*̙ l !  d(d)T*()\*" l ! p @Pd* @P@P@P@P@P@P4@P̹ $2 l#, l4@P.@P dd: ld$l d.@P @P l @P @P l @P! @P l @P#@P@P @P l @P% @P l @P' @P l @P)@P d̘ @P/p@P l̒ \*̹  a̱  aTg*\*̡  a̙ p@P aT`*@P9@PS@P@Pp@P2H/TThV\hD\hB\hhh\hh\h\h\h#h\hp@P-\hh PQ8FS  BPQ8STP 8Q8PKUP Q8PREPQ8SKIP@Q8FGET}Q8FERM5Q8RWBUQ8FPUTBP P*L,Q8TRAN 17X16485PD PAQ8TRAN DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-115D@P@PQ@PS @PU @PY-0 @P`F@PfED.@Pp@P{*@P<'d @PAp@P T h jظ 1 h " < )pp@PP d; h\ dP̼ !TR 9lpp@PRdRl̩ l  dTTPT\R̛  lUdRlVl  dWpp@P dX\R    !> ḷ l !& !/ l 9!/̫pB@P, !+̧ h$[l !( l 5TRBp@PE l̻ ̵dl\WTgTQTR  0l\\\ ld]d ^ dNpp@Pp:\R  ld_ 9!. !* hWĈl̨ l 3\Rpp@P    dT !TWT l F7̣ 4̠ l̜  0lTSQp @PTV @P@P@Pp@P dadbldXdcddde dN f 1TARR  l pp@P  l  l \Rl;  $[ lL dDfpp@PdWgl,lLlll ̲ l,lLlll, lhpp@PJd^ il ̓ l TRR B > : 6 pp@Pu 93 % Rd e l 95 2v  0lo  dpp@P dalX̺ ̷ ; ̯  EdO l D\R̠ ̜  dcpp@PR  9! ! dDb$[l c"a l T_R p@PR 0lԀ@Pp@P d ̱ k3 dleld3d4d5d6d7 d8;pp@P% D ll d9d:l T ̻ aO  lX  pp@PPdldldl dTTT l\T l\TṊl T ap:@P{ ̚dl̛dl l\T l\T):@Pp@P" < ) EH d;; dPl\PT ! ! lHdRpp@PVlTR̘l\R l\R l  Hll\Rˬl dm lpp@P dEdFdG dN n 1 dn +dXdc dTT\ET l\FT̗  lpp@P\GTdKdIdJʤpdo  -lܺdldl; dl THpp@Pܚ d^n 1 l 0n 1 dN 0n 1  d]pp@Pi  mdlc ÔMl̿ !i̻  l̶8TU lpb@PX \X ldn dl !  0ṉ h\bl@Pܫ l̹ l\l̳ l  2\Z̥ l 2] h\lp@Pr l l 2\{ lm !d^  dN8pV@PTU lX \X l\Z\l l  ̳ h\Vp@P0ܭ l; \k l\j\cMd|Kd}+ z!" 8 %pp@P[ l\Zܨ 1P\Z\J\\ DdTdx dqdwld^ dNpf@Pl`p=l  lܹ 0f.lۜll 1 f@Pp@P +dX dmlT|Tl|pdo dl -l l lz  l 0dpb@Pd~ !#  l5TUܘ \Y lڜ9Nh\b*@P l4\{*@Ppp@P dT\|T̨ldx dqdwdyl *l ̬ l̩d ,\Ṳpp@P8 l ! l l윳4\Zܯm lz`p5@dDfl 0e 4 pp@Pcn ḽḷlN 1 l l  1 d~ "pf@P l  +TU l ! d^ " ll 8̽h\ff@Pܷ " l  l\`̥ l !\U̶ l  !f@P@PX@Pep@Pb@aH^H[TThh\hhhFhhhh{hhh\hhpp@Phhhhhah\hqhhvhhI\hgh\hch\h_h\h[hp$@P3\hWh\hShA$ PQ8TRAN ZPQ8STP Q8PKUPQ8PREPQ8FS Q8RWBUQ8MOVEQ8FERMQ8DXP9=Q8EXP9rQ8DXP19Q8EXP1=ZP P*L,Q8QINI 17X16487PJ PQ8QINI DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-117Jr@P H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cTh.h;X7rf@P+H&8%#T$h$h`  TT f@PRr@PX TF TT4h255؈ȇXh&ڨ*Irr@PhTTp=H ' &eh @ȫTrl@PȨXȞ Tȡ`><Ȓ T H T艀lPQ8QINIQ8UNITVQ8SKIPjPARABSzQ8DFIN'Q8QUN2Q8CMP1Q8IGP Q8IFRMQ8QENDQ8MAGT5Q8CMP0lQ8QT0MQ8EREMNQ8INTBoQ8ERRM"jP P*L,Q8QEND 17X16489PJ P!Q8QEND DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102JZ@P dT TTT Z PQ8QEND 2PQ8FS Q8DFADQ8UNITQ8QUN2Q8QUN1Q8CMP12P P*L,Q8CMP0 17X16491PJ PQ8CMP DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-137Jr@P h3HHdǐhdDhhdTFKhh rr@P+hHL8@ hk"ThT h"  b hwT Prr@PVިXM H֨CbC}Ψ [ hY Va `hR1D{lKwerr@P& E!XX"ȭ ȩ!6XNyl-e )! 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlrr@Pؘؚș _ U hr`PBJPQ8BINBQ8LOCB#Q8RWBUPQ8INTBQ8BEGB(Q8CLRB+Q8RINT:Q8IBUFWRFLG OJPQ8EREM{Q8CMP1P P*L,Q8ERRM 17X16495PJ PQ8ERRM DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102Jr@P HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBHr,@P+ j `0, @P; @P@'d ^@PJ hrHr s"htjqh hDh`Hah`I/O REQUEST ^r@Pp     X XX*EX XX&X+@XXX< XwhHhr^@P h,ph*X" dh$ h!X mh hX ThX THX^<@P TL `u<PQ8ERRMQ8FERMJQ8EREM[PQ8LOCBQ8LOCFP P*L,Q8DFNF 17X16497PJ PQ8DFIO DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-116Jr@P HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HArr@P+XHXR(?R!39h9X?XInhTK  NX0h+p nmh nrr@PV ;ln  H T` + ȋXh؆1  rr@P HhH  TT hhhhdhhuXvh̺r@@P (BD n&ȫdȫ @PQ8DFNFQ8DFIN:PARABSRECENDQ8QENSQ8DFADQ8QINIQ8EREMQ8ERRM :P P*L,Q8QX 17X16499PJ PeQ8QX DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-116Jr@P hJIEhE h h  hh h8H60TXX h%`"rr@P+ "h*hTHIJ T h hhr,@PVh ll,2PQ8QT0MQ8QTRMQ8QX Q8MOVENQ8QY Q8QZ 2*PARABS#Q8UNITQ8QUN1Q8BINB>Q8IFRM7*P P*L,Q8QUN1 17X16501PJ PQ8QUNI DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102Jr@P X# Xhh@4i` Xj TT Cr q dr`P+^PQ8QUN1Q8QUN2Q8QUN3 PQ8EREM P P*L,Q8FGET 17X16503PJ PbQ8FGET DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-116Jr@P Y hUDhT XHXhNX hXh:a62Hl2rr@P+0X), H,)H& XXh a&hh۸nX X h H r&@PV &"PQ8FGET Q8FPUT7Q8LOCFQ8IGP " PARABS; P P*L,Q8MAGT 17X16505PJ PVQ8MAGT DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-117Jr@P HShhh<@ TH $T\h9Dh5TFh122-3 T*rr@P+*%!!T TF \TT \T rPQ8MAGTQ8EOTT=*PQ8QUN19Q8QWNDGQ8COMIKQ8QUN2 Q8EREM)*P P*L,EOF 17X16507PJ PTAPCON DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-117Jr@P H+h* r Gh hlBhHX"9" "hh0" T+TX%rr@P+ hT\H `CT T@ TFhT&hrr@PV XX TTT 2X X' h$  X0XrN@P XzШ Xhˠ T TcN"PQ8QBCKQ8QFLEYQ8QWNDyEOF i"JPARABSQ8IBUFQ8QUN3Q8QUN2EQ8QUN1_Q8CMP1Q8CMP0Q8EREMQ8ERRM#JP P*L,IOCK 17X16509PJ PIOCK DECK-ID H15 FTN 3.3 RUNTIME SUMMARY-116JF@P HXhTh  T  F PIOCK PARABSQ8QUN3Q8QUN1P P*L,Q8PSE 17X16511PJ P?PSSTOP DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-126Jr@P H= X H8X H0:TX*@) 7\TJ   hTr @P+H5 @P7STOP PAUSE *PQ8PSE Q8PSENQ8STP Q8STPNQ8COMI!* PQ8PAND P P*L,Q8PAND 17X16513PJ PnQ8PAND DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-126Jr@P h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhL1a: Lw T&RH5 I  vR  r4@PLaT\T 4^@P hh Huhi[G M^@BPCE}GN HJzLLK@^PQ8EXP9 Q8EXPTQ8EXP2PIFALT PARABSHFLOT HP P*L,SETBFR 17X16519PJ PQ8QGTX DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102J@PPQ8QGETSETBFRP P*L,ENCODE 17X16521PJ P9IOCODE DECK-ID J01 FTN 3.3 RUNTIME SUMMARY-116Jr@PXXHH"4` "a "a a#XaX""aX""aXaXh hr@P+`@P2XPENCODEDECODE"PARABS7SAVE OMMON ORMTR'"P P*L,COMMON 17X16523PJ P%PSUEDO DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102J`P%PCOMMONISAVE P P*L,IGETCH 17X16525PJ PIGETCH DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102J@@P#y a%XH!""" A@PIGETCHGETCH  PWRITE P P*L,IPACK 17X16527PJ PBIPACK DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102Jr@P#*   "!"X# a1rX ""  "!f" !" f""" f"r@@P+ "a""! h " "f"@ PIPACK PHCNT .WRITEP P*L,UPDATE 17X16529PJ P UPDATN DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102J @P" "f" !" PUPDATE P P*L,DECPL 17X16531PJ PDECPL DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102JP@P` a! a a"X  a! a"XXaaP PDECPL PNTGR PDATEETCH P P*L,INTGR 17X16533PJ P&INTGR DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102Jf@P a a! a"X"  !T 9!a Fa a! a"Xf PINTGR PPDATE$ETCH P P*L,SPACEX 17X16535PJ PSPACEN DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102J6@P a a! a"X a! a"X6 PSPACEX PPACK PDATEGETCHP P*L,HOLRTH 17X16537PJ PHOLRTH DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102Jr@P a a! a"3XXa a! a"X  a  rr@P+! a a! a"X a! a"X a! a"3XXa a! a"X=rr@PV    + a  e a a! a"X6 a! a"Xr @PT PHOLRTHQUOTE ?*PHCNT oPACK zPDATEETCH LGETCHI*P P*L,DCHX 17X16539PJ PpDCHX DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102Jr@P aaaaa `!W a! a"Xa a! a"X    8rr@P+ 4 0a a* "X 9"X>a "XC Fρ" arH@PVA Fρa1BXLaADdRAaH PDCHX PWRITE`PDATEGETCHP P*L,HXASC 17X16541PJ PLHXASC DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102Jr@P `ab a  0c    ` a`b% *aa ` arZ@P+"Xd"2aR @ a! a"X a! a"XZ PHXASC PWRITE0PDATEIPACK BP P*L,AFRMOT 17X16543PJ P#AFRMOT DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102J^@Pa `! a! ܠ a"Xa a! a"X a! a"X^ PAFRMOT PPDATE PACK ETCH P P*L,RFRMOT 17X16545PJ PRFRMOT DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102J:@P a a! a"X a! a"X: PRFRMOT PPDATEPACK P P*L,AFRMIN 17X16547PJ P,AFRMIN DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102Jr@P a! a"Xa a! a"X a  a! a"Xa a! a"Xȁar @P+ PAFRMIN PPDATE&GETCHP P*L,RFRMIN 17X16549PJ PRFRMIN DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102J4@P a! a"Xa a! a"X4 PRFRMIN PPDATEGETCHP P*L,ASCHX 17X16551PJ P4ASCHX DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102Jr@P a `! a! a"Xa a! a"X a 6 9 2 2Xr@P+ aıa PASCHX PWRITE*PDATEGETCHP P*L,HXDC 17X16553PJ PHXDC DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102Jr@P aafRda -a0F 0ac 2 .a `9rr@P+ac a aA `! aa a( a .a 0rr@PVa!D Q" !yR *a aa A a! a"X r@Pa! a"Xـ PHXDC PPDATEPACK P P*L,FLOTIN 17X16555PJ PFFLOTIN DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102Jr@P`hA` aXX!!a@bRd@`X X aXT@%rJ@P+T"ahX T,a`aAJ PFLOTIN "P8QFI 5HFLOT 78QFL CHX "P P*L,FOUT 17X16557PJ PFOUT DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102Jr@Ph`"Rd@`XT[ZqXn]@1K%TX a`rr@P+ aX .a a! a"X a! a"X aa`"d`!X%XT Y,rr@PV]@XMX.aaȝ`h *a a! a"X8 a! a"X? hr@PBP@@JI> PFOUT  :P8QFL OPDATEyPACK rXDC [8QFX YHFLOT Q8QFI :P P*L,EOUT 17X16559PJ PEOUT DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102Jr@Ph`X``` a` a` `/" 4 A *a A    grr@P+R@R@ -A` .a ` a! a"X a! a"XX@Trr@PVXI -`" ` c1Xd 2QTRqXY c1XfTrr@Pq[Zd@Xx #  a` aܐ!XTYD]@XX arr@P Ea a! a"X? a! a"XF a  +a `"d` 5 aX r4@PaaXa `aBP@@4 PEOUT  BPXDC 8QFL WRITE8QFX PDATEPACK HFLOT 8QFI BP P*L,EWRITE 17X16561PJ PEWRITE DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102J,@P#4h h` , PEWRITE PORMTR P P*L,INITL1 17X16563PJ P(INITL1 DECK-ID J22 FTN 3.3 RUNTIME SUMMARY-116Jl@PXHH"4` " "aXaX ahh`XlPINITL1RESTREPARABS&SAVE OMMONP P*L,FORMTR 17X16565PJ PFORMTN DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-115Jr@PPqa aa a a a a a! a"Xa"  6 9! rr@P+T d  a a! a"X   `  `rr@PV  aXaaX" a   a! a"XD rr@P aaX'bdRQ"X; aX3 aX+  "Xrr@PaX  "XaX XaXXf" #"Xf" a#rr@P a a A aA aA  XX" a a A aA  rr@P  a  aXX"a A a` !RAXaS rr@P-aXK aX0C  "XaX6  "XAaX)a#rr@PX"X"a` aX aX#"XZ XNaX aa rr@P "Xw a! a"Xw a az a a a p a_a( a! rr@Pa"X^aX]X1 aA a a! a"X a! a"X a! a"Xrr@Pِ2a a Da  a  a  a! a"X 3 ! a! a"Xr@P PFORMTRCHCNT rPWRITEPACK OUT {OUT mOUT eFRMOTRFRMOTEXASC 8XDC &PACEX UOTE OLRTHLOTINFRMINrBPFRMINSCHX CHX ECPL cNTGR PDATEETCH 8QGETrBP P*L,Q8QFI 17X16567PJ PQ8QFI DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102J>@P` ``TBP@> PQ8QFI PHFLOT P P*L,Q8QFL 17X16569PJ P+Q8QFL DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102Jr@P#dRAR`B@ @"si`  dr$Rd`@r PQ8QFL P P*L,Q8QFX 17X16571PJ P0Q8QFX DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102Jr@P$dR@ R  DA ) H f H g Addr@P+RAa PQ8QFX P P*L,HEXASC 17X16573PJ PHEXASC DECK-ID J27 FTN 3.3 RUNTIME SUMMARY-102J@@PX a#a a a a"a aX@ PHEXASC "PHCNT ESTREXASC NITL1"P P*L,HEXDEC 17X16575PJ PHEXDEC DECK-ID J28 FTN 3.3 RUNTIME SUMMARY-102JP@PX a#a a a a a"a !RA aXP PHEXDEC "PHCNT ESTREXDC NITL1"P P*L,ASCII 17X16577PJ PASCII DECK-ID J29 FTN 3.3 RUNTIME SUMMARY-114J:@PX a# a a a aXf": PASCII PESTRESCHX NITL1P P*L,DECHEX 17X16579PJ PDECHEX DECK-ID J30 FTN 3.3 RUNTIME SUMMARY-102JT@PX a# a a a a aXbRdQ" f"T PDECHEX PESTRECHX NITL1P P*L,AFORM 17X16581PJ PAFORM DECK-ID J31 FTN 3.3 RUNTIME SUMMARY-102JJ@PX a# aa a` aX f" J PAFORM PESTREFRMINNITL1P P*L,RFORM 17X16583PJ PRFORM DECK-ID J32 FTN 3.3 RUNTIME SUMMARY-102JJ@PX a# aa a` aX f" J PRFORM PESTREFRMINNITL1P P*L,FLOATG 17X16585PJ PFLOATG DECK-ID J33 FTN 3.3 RUNTIME SUMMARY-102JN@PX a#a a a a a"a "a aXN PFLOATG "PHCNT ESTREOUT NITL1"P P*L,FLOT 17X16592PJ P>FLOTN DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-112Jr@P  `a` ` `X8A"C  x&Lprr@P+sXa*XFXXȰ,` Ȱ#`X`Ȱ#`XB`Ȱ#`XJXrr@PVbXO`Ƞ$d `d`Ȱ.`X XSXUbb $`S@rr@P@` *`@ed`d`Xo` `Ƞ4`n Ƞ$Ȱ$>rr@Pa.`X"dR`2H `͠ `D`D```XCXXXS#Ȱ.`rr@P A`@ @ ŀX2X0` `2@A`π`"Grr@P z @35` ` 2` 1`ϐ+ e% b ``"dRrr@P-`2H ```XcXX8#Ȱ.`aA@͠`d `rr@PXrd 0 d1 " 2a0 `Da0 1 q  ! Xrr@P` ` `X XAdRXX@`!d߰2H rr@P`"`@`ed`d``Vϐ.`@`@`rr@P@ϐ"h t=`hA``h`A``B" err@P " `@2T "@k"Ƞ>.`Rd"r,@P/>`R@`" `,PFLOT HFLOT :PPERORIXFOP6LOFOP3PECOP-XTOP ROCHKqPERND:P P*L,OPERND 17X16594PJ P4COMNFP DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-114Jr@P &B``` ",2!#`&2  rr@P+X/2 <CF=B#`X X9@ `X!X1rr@PV Ƞ$XX #!1H%rr@PX#X X X 4 4p"d 2esRrr@P4R4!D RȢA1`R "dR@ R  B H garr@Pd `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdRrr@P@`/@Ƞ4` H(X t` Q  T"" R1 H XRRr@P-t`pJPIFALT  SFALT %OPERNDNXTOP FPERORPROCHKSPECOP*FLOFOPFIXFOPJ PPARABS P P*L,Q8QD2I 17X16602PJ PtQ8QD2I DECK-ID K01 FTN 3.3 RUNTIME SUMMARY-116Jr@PH  H H h@X`X` f`!d`X"``rr@P+`T@p#``"`\q0T"``` `\@TrR@PVa@%\Թ\̹1\ú@p@RPQ8QD2IQ8QD2F Q8QD2D*PARABSDLOG @DEXP RHDFLOT.FALT $*P P*L,SNGL 17X16604PJ PSGLDBL DECK-ID K03 FTN 3.3 RUNTIME SUMMARY-102J*@P H XhT*"PSNGL DBLE Q8SNGLQ8DBLE"PARABSHFLOT P P*L,DABS 17X16606PJ PDABS DECK-ID K04 FTN 3.3 RUNTIME SUMMARY-102J6@P HXhT@"\t6PDABS Q8DAB PHDFLOTARABSP P*L,DSQRT 17X16608PJ PDSQRT DECK-ID K05 FTN 3.3 RUNTIME SUMMARY-102Jr@P@X"``'d`dR``@RG* AB ;1`Š 4`Trr@P+tܾwzۚ}@\q@Ő Ɛ ǐ B\ֽ@rr@PVa 4gRd@R@`\\@@?N^ rA̼>L<"aArr @PI$J PDSQRT PARABSHDFLOT*P P*L,DSIGN 17X16610PJ P$DSIGN DECK-ID K06 FTN 3.3 RUNTIME SUMMARY-102Jb@P @` `Xah\ b#1Tt`bPQ8DSG DSIGN PHDFLOTARABSP P*L,DEXP 17X16612PJ PDEXP DECK-ID K08 FTN 3.3 RUNTIME SUMMARY-102Jr@P@Xh`\P@ %\I}@ @\B[@zw?Cؘ# `>! " Hrr@P+X ``"Q\&Z]|^]^@Ř G" `R|@` rr@PV``TS\՞LHY^BY^UUUV=UUUV<DDDD;[[9h8hh6r@Pw[5I>@X  PDEXP PFALT ,HDFLOTYARABSP P*L,DLOG 17X16614PJ PDLOG DECK-ID K09 FTN 3.3 RUNTIME SUMMARY-102Jr@P@Xh@\A@1X"`  Ő@ ```\%Qrr@P+1`` #d*@@1*A`ߠ4ad` 1`T^-](rr@PVYC>82,& ٵ ^@@Zy@X rR@P@@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxxR PDLOG PFALT HDFLOTJARABSP P*L,DSIN 17X16616PJ P DSNCSN DECK-ID K10 FTN 3.3 RUNTIME SUMMARY-102Jr@P@Xh`\c@```\X\Srr@P+@Xh`\2@ %\+}@ ```\"@ؘ=Ƙrr@PV8ǘ3K@,Ř7X"` TZ}]@Ũ1Gf $ ƪŪ`rr@P ` `\Ye^Ř]7ƘZ?ǘW;\ҵN `ŘD4@4rr@P<!?` ``\(\~-]@\fY@<^Y6^Y0^Y*^Y$rr@P^Y^Y^Y@\t@QAdQAQ@*Q@Kerb@P?j g>ׁV@U@>ffff6m>qq.>NN=xxxxb PDATAN PHDFLOT]ARABSP P*L,Q8DXP1 17X16620PJ PQ8DXP1 DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102Jr@P X` h9aaaa&H}H |H%2H M A chxV "Xarr@P+ bX\ kJ " H\\@T:\ BKTMrr@PVB  HI ;a88Aa,h/aAa+aah$cDAagrD@PhDaau h h HR D PQ8DXP1 "PQ8DXP2LQ8DXPTUARABSHDFLOTR"P P*L,Q8DXP9 17X16622PJ P Q8DXP9 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102Jr@P H XԺ hfHXhh`Xhh[ HL#dhSH ! rr@P+laal aa<`9ch9W "X bX *L "HrR@PVTxx HsLoAAd]Rr@P}|LQ3AaI 'Lv T*a)RH%3I  aHrr@PQ A a#vR  2LaHH ALȱaX \xrr@PX N[ hhhuhi f[G ߂M^@BPCE}r(@PGN HJzLLK@(PQ8DXP9 Q8DXPTQ8DXP2PFALT HDFLOTWARABSP P*L,Q8QDFI 17X16624PJ PQ8QDFN DECK-ID K17 FTN 3.3 RUNTIME SUMMARY-102JD@P` ```TBP@D PQ8QDFI PHDFLOT P P*L,DOUT 17X16626PJ PDOUTN DECK-ID K18 FTN 3.3 RUNTIME SUMMARY-109Jr@Ph`X`````` a` a` `/" 4 A *a A rr@P+%lR@@R@@R@ -A` .a ` a! a"X a! a"XXrr@PVJT``XS -`% ` c1Xd 2Q\ݵrr@P``Xg c1Xt\[Zr@``X #  a` aܐrr@P!X`` `\YH]@X``X a Da a! a"XI rr@Pa! a"XP a  +a `"d` 5 aX aaXa`ar@PBP@@ PDOUT  BPXDC 8QFL WRITE8QFX PDATEPACK HDFLOT\8QDFIBP P*L,DFLOT 17X16629PJ PuDFLOTN DECK-ID K12 FTN 3.3 RUNTIME SUMMARY-102J(@PH  bb@`(r@P*X X a*` a aX &Baa"aCrr@PU3%p,` Ȱ#`Xarr@PXȰ#`XaȰ#`XTbX&)+25,Ȱ#rr@P`X TA a!1  !1rr@PXv`` `">a.`AA&dRARAa 2H a  rr@Pa a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ rr@P,` *`@ @id`d`d`  Ȱ.`"Ƞ,rr@PW2!Ƞ#`'2 ' dXX.#Ȱ.` rr@P!Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@rr@P` !AX`"Š"Š``@ AaaA3Aasrr@PA``c` 1 m@`$ `ǨA a a rr@P a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#rr@P.Ȱ.`1   #0a d a  !13d #2drr@PY Ad( 2adaa1 aDa1bAa?ad A2rr@PaF ad2aa1`a1`Da1` a a a-`aaaarr@PA&RARAda2H a aaa  ! Ta rr@Pa a a _XadadRXWaAaA!drr@Pذ2H a "a aAa A a hda da da rr@P0 a aa  a1 a A  a A a A a A a" x a  `rr@P[ d aa bAa a babAa"H1h #h`Arr@Pa`Aaa`AaaMaB a #a  A Dda a rr@Pa #a  n a )a a #a A a A # a 2W rr@P ,or | AA A   AA A  a A kdRA a rr@Pda . Ƞ>t` A U@ `a `X"dR@ R rr@P2 B H gad `Ȱ#`XTbȰ#`X`!drD@P]B2 @rdR@`/@oDPDFLOT *HDFLOT/PFPERORPROCHKLP P*L,DRSTOR 17X16631PJ P8DRSTOR DECK-ID K14 FTN 3.3 RUNTIME SUMMARY-116Jr@P @s""f"bb @s""f"b @s""r(@P+f""  b`b(PDSTOR1RSTOR1DSTOR2" PARABS P P*V DEBUGGING AND CHECKOUT 17X17263PP*K,I6 17X17265PP*L,TRACE 17X17266PJ P rTRACE DECK-ID O53 MSOS 5.0 SUMMARY-110Jr@P TL a ' jP qTH(] SPECIFY PARMS (SSSS,LLLL,EEEE,Arr@P+AAA,QQQQ,IIII,X,Y) P REGISTER = 0, *C ILLEGAL REQUEST SPECIFY PARMS (AAAA,QQQQrr@PV,IIII,X,Y) r`Pr@Pbʐ*CPTL5a[`VU "   hrr@Ph h]H  h; h7 hL h-hh6hK h?Xarr@PXd{h$THhwhhXTXh\HhfhphXhrr@P?9j8 H4 q h,h, I  H'!!j  3 h  q rr@Pjh j H q  X:HjH jE rr@PH q h hhhhhTLQ EXECUTION TIME DURING THIS PART OF rr@PEXECUTION 1784-1**1774**1704**1784-2 * * * rr@PT R A C E C O M P L E T E * * * XjX hHNX$rr@P/9<?DHUY[ajr X h h "XX14H"h"h Hrr@P h X h h=rHrr@PR] EVjFJh  hqhoXHlrr@PChl{XHYhY XxHUhU(XsHShSXnH\h\XiHThTh$ FQ """""&K  ""r*@P d  ؋hh*"PRTRTJ 5TRACE TRACE2 hTRACE1 b" PLOG1A X PTRACE P*K,I6 17X17269PP*K,P8 17X17270PP*P,F 17X17271PJ PSETBR1 DECK-ID M91 MSOS 5.0 SUMMARY-110Jr@P `Dh hXw   (hXhyXe Xths  rrr@P+(XIX7el +Ha _ a WnXW hURnSXlOX h "hTLrr@PVD(TOO MANY BREAKPOINTS. XR 'XL )) hDhr2@PQȠ DBH  A (2 @PT p@PDh hX !" u { ith(X 2esR4R4!pP P*T 17X17273PP*K,I8 17X17274PP*N,BPST,,,B 17X17275PP*K,I6 17X17277PP*K,P8 17X17278PP*P,F 17X17279PJ PTERMI1 DECK-ID M92 MSOS 5.0 SUMMARY-110Jr@P ` +hYDhM hLX|   (5?hFXGh=Xm XB8h7  4(XQrh@P+ 1( qXXR  Q (Dn l  h X qhr@P^Dh hX# !" u { ithX hDhr,@PQȠ DBH A (,P P*T 17X17281PP*K,I8 17X17282PP*N,BPCLR,,,B 17X17283PP*K,I6 17X17285PP*K,P8 17X17286PP*P,F 17X17287PJ P+ENTCO1 DECK-ID M93 MSOS 5.0 SUMMARY-110Jr@P `ȠB  6      H? HDhX, (h Xhrr@P+X ( XhX |hXX   Xrr@PVXXXiX&DhYX XR MhLX{JlHG FTChA?Brr@PH>hNMX hEHCIHXhEHC CXh,H*X 'h 9hTLrr@P+X h,X *D 1  :XhXP= A= Q= I= r@PVM=P P*T 17X17305PP*K,I8 17X17306PP*N,BPRLST,,,B 17X17307PP*K,I6 17X17309PP*K,P8 17X17310PP*P,F 17X17311PJ PhSETAQ1 DECK-ID M96 MSOS 5.0 SUMMARY-110Jn@P ` h%Dh$X3  (X?hX,  X3hIB#1   g"nr@P/ hDhQȠ DBH ADh hX !" u {r*@PZ ithX*P P*T 17X17313PP*K,I8 17X17314PP*N,BPRSET,,,B 17X17315PP*K,I6 17X17317PP*K,P8 17X17318PP*P,F 17X17319PJ PCORDM1 DECK-ID M97 MSOS 5.0 SUMMARY-110Jr@P `Dhs hphn "h f hihehdhcXl  (X1hOrr@P+Xc V(X(hGXZ   X8h777h542" (X:h # j1rX@PV qDhh'X h Z`|hzh"XjXd݀Xr@PAPD I S X!X"XXRXrr@P hTL̑ǰ HB"HBH yH}|rr@PH{Hyvj|pjyH0123456789ABCDEFS 0#-0rr@P+dH+00H)H)B0'#h"B0hB0dhB0 4h@ k3 qr @PV r@PZh&Dh hX, !" u } kth (Xhrb@P hDhQȠ FBH A (bP P*T 17X17321PP*K,I8 17X17322PP*N,BPDMPC,,,B 17X17323PP*K,I6 17X17325PP*K,P8 17X17326PP*P,F 17X17327PJ PJUMPR1 DECK-ID M98 MSOS 5.0 SUMMARY-110Jr@Ph< `Dh6h9 h6X9h1XT   (X,$h# X` XZ  )Pr4@P+@h DeJ ` 4r@PBDh hX !" u { ithXQȠ DBH rJ@PmA hDh 2esR4R4!JP P*T 17X17329PP*K,I8 17X17330PP*N,BPJMP,,,B 17X17331PP*K,I6 17X17333PP*K,P8 17X17334PP*P,F 17X17335PJ PLUCHG1 DECK-ID M99 MSOS 5.0 SUMMARY-110Jr@P h) ` h&h&X7  h'X2  (X>"h2A  lrr@P4 hDhQȠ DBH ADhhh hXZ  rZ@P_ -Q ! 1 h (AhXȲAZ PLOG1A  P P*T 17X17337PP*K,I8 17X17338PP*N,BPBPLU,,,B 17X17339PP*K,I6 17X17341PP*K,P8 17X17342PP*P,F 17X17343PJ PBPTAP1 DECK-ID N02 MSOS 5.0 SUMMARY-110Jr@P ` hMDhLhK RH vMh>Xe  (Xq"h52a!)7 XMrf@P+ XH  XN9"! 1h  hT\fr@PXDFSFDRSREFEW0NL@LD hDhQȠ DBHrr@P ADhhh hXZ  ػغ -Qض ! 1 h (Ar @P (hXȟA PLOG1A ! P P*T 17X17345PP*K,I8 17X17346PP*N,BPTAPC,,,B 17X17347PP*K,I6 17X17349PP*K,P8 17X17350PP*P,F 17X17351PJ P\MASDM1 DECK-ID N03 MSOS 5.0 SUMMARY-110Jr@P `Dh hh h "h  hhhhrr@P+XXhXXhXXB0`ĠhHXXh{#y(X rr@PVX}hh ho hXX hX hX hXrr@PX| # jN q h. 7h45X h~,ZJ+,!h*w'hu' h% XgUr(@P 5XaXDhXX(r@PAHD I S X~XXlXXrr@PfXS (TH`!TLȝhDhrr@P hX) !" u | jth،ȋȓ(XȄ{xw htDhorr@PKliQ FBHba]\ A (ajkX HBrF@PvHBH tHH jNjMHFr@P0123456789ABCDEF"T 0#-0dH00HHB0'hB0hrD@PB0dhB0 4hH@ ʿk qD@PY (P P*T 17X17353PP*K,I8 17X17354PP*N,BPMASS,,,B 17X17355PP*V SYSTEM UTILITY PROGRAMS 17X17356PP*K,I6 17X17358PP*L,LULIST 17X17359PJ P8LULIST DECK-ID N87 MSOS 5.0 SUMMARY-132Jr@P j qhh//hHTL'TL$ rr@P+ h (.HT D 1  PĀhXAhH X-DA Ch rr@PVX"K h X3GXhITL$`h h crr@Pxfx 0F400LU. EQUIPMENT DESCRIPTION READ/WRITE CLASrr@PS CODE EQ NO MSOS 5.0 LOGICAL UNIT LISTING FOR  rr@P MM/DD/YYRFIELD = 0READ ONLYWRITE ONLYREAD/WRITE1711 TELETYPEWRITER  1721rr@P/1722 PAPER TAPE READER 1723/1724 PAPER TAPE PUNCH 1752 DRUM UNIT rr@P- 713,10/711-100/713-120 CRT 1738/853 DISK UNIT (1.5M) 1751 DRUM rr@PX 1739-1 CARTRIDGE DISK UNIT 1738/854 DISK UNIT (3.1M)  1731/6rr@P01 MAGNETIC TAPE SOFTWARE BUFFERING DEVICE COSY UNIT  rr@P 1728/430 CARD READER/PUNCH SOFTWARE CORE ALLOCATOR 1733-1/854 DISK UNrr@PIT (3.1M) 1733-2/856-2 DISK UNIT (2.2M) 1733-2/856-4 DISK UNIT (4.5M) 1742-30 rr@PLINE PRINTER 1742-120 LINE PRINTER 1740/501 LINE PRINTER rr@P/ 1732-2/615-73 MAG TAPE UNIT 1732-2/615-93 MAG TAPE UNIT 1732-1/1706/608 BUFRrr@PZ MAG. TAPE 1726/405 CARD READER 1732-1/608 MAG TAPE UNIT 1732-1/609rr@P MAG TAPE UNIT 1713 TELETYPE KEYBOARD 1713 TTY PAPER TAPE PUNCH rr@P1713 TTY PAPER TAPE READER 1729-2 CARD READER 1732-1/1706/609 BUFR Mrr@PAG TAPE SOFTWARE DUMMY ALTERNATE DEVICE364-4/361-1 HDX COMM DEVICE 364-4/361-4 rr@PFDX COMM DEVICE 1742-1 LINE PRINTER 1777 PAPER TAPE READER  PSrr@P1EUDO TAPE UNIT 1777 PAPER TAPE PUNCH 1729-3 CARD READER rr@P\ 1733-1/853 DISK UNIT (1.5M) 1731/1706/601 BUF MAG TAPE 1726/1706/405 rr@PBUF CARD READER 1747 DATA SET INTERFACE 1744/274 DIGIGRAPHIC CONSOLE 1536rr@P LOW LEVEL ANALOG INPUT 1501 HIGH LEVEL ANALOG INPUT 1536 REMOTE LOW LEVEL ANALrr@POG INP1544 DIGITAL INPUT UNIT 1553 DIGITAL OUTPUT UNIT 1555 RELAY OUTPUrr@PT UNIT 1566 DIGITAL-TO-ANALOG CONVERTER1547 EVENTS COUNTER  1595 Srr@P3ERIAL I/O 1732-3/616-72 MAG TAPE 1732-3/616-92 MAG TAPE rr@P^ 1743-2 ASYN COMM CONTR 1745/211 CRT 1725-1 CARD PUNCH rr@P 1720-1 PAPER TAPE READER 1720-1 PAPER TAPE PUNCH MAGNETICrr@P TAPE SIMULATOR 1732-3 LONG RECORD MAG TAPE 7TRK1810-1 LIAT CRT/PRINTER rr@P 1829-30/60 CARD READER 1827-30/60 LINE PRINTER 1860-72 LCTT 7TK MAGrr@P TAPE 1860-92 LCTT 9TK MAG TAPE 1832-5 CASSETTE MAG TAPE 1835-5 FLErr@P5XIBLE DISK 1833-1 STORAGE MODULE DRIVE 25MB1833-1 STORAGE MODULE DRIVE 50MBrr@P`D18ECM EXTENDED CORE DRIVER PSEUDO DISK DRIVER 1843-2 8 CHANNEL CLA rr@P 1866-14 CARTRIDGE DISK 1866-12 CARTRIDGE DISK 1827-7 MATRIrr@PX PRINTER 501-12 TAB CARD PUNCH SPOOLED PRINTER DRIVER  18rr@P43-1 2 CHANNEL CLA UNDEFINED UNIT TYPE NO CLASS CODE MAGNETIC Trr@P APE MASS STORAGE CARD RDR/PUNCHPAPER TAPE I/OLINE PRINTER TELETYPE UD CLASS CODr @P7E PLULIST *PLOG1A fSYSID SYSYER SYSDAYSYSMON *PLULISTP*L,LISTR 17X17361PJ PLISTR DECK-ID N86 MSOS 5.0 SUMMARY-110Jr@P TL  X%2 hWhVhUhThVhUhThShRhQhrr@P+PXXXAX?Xx5PX4 X2 X/X-X+X2[d TLW)0Trr@PV + hTLd)ET h00hh h HHHH(H,Drr@Ph0 h: 0 d Dh ddX&Xrr@PXX njB XE2U XBXJXXXX; j Arr@PTHnT bT @ hH*| P h h hn rr@P j/ A p^WSjB OUT OF ORDER INPUT BLOCKrr@P- + 0000  rr@PX 0000 RECORDS 0000 TOTAL RECORDS..1 r PLISTR PLISTR P*L,OPSORT 17X17363PJ POPSORT DECK-ID N88 MSOS 5.0 SUMMARY-110Jr@P h hTH2qEH 1H0hrr@P+ȠhȠhH}h|Ƞ hw @z*t0 hbrr@PV m  h[WFb (DhP[0 HIHAhCAK8I7Eh:rr@P h) h%hP5h+Xe h%Dh!- h (Hh" hr*@PHh hENNDD ***r@PD$ j j ȱ`E ɲ( ɪj arr@P! hɝhj؎ A H\H\ȍ1!7'K 1   hI 1'1Krr@PL % mD   ? K !  4 "    +TLvwrr@Pw ILLEGAL CHARACTER WAS DETECTED | p&HLF [hhrr@P h Zh ,h n q 2 ` Hj CTLrr@P h. r`P`P|U`P `P[`P[`Pp[`P[`P&[`P)r@P 8"ljh h h TL[ lrr@P- 1 [h Zh F"Bnʗlj H|h|h{{ʈhs vu 5rr@P h|ih hh ch TH[ ѰB   HHH hrr@P+h> Z=h<;h6757735jA H1 @ Zh-' $h+0Fh* & !rr@PVGHh h>!#&&rr@Phh h Hc H^"W hԘ h Ei{rr@P j8ȼ hȿhTL Fhȯh `rr@Phhȝ hm h jB  j{B hhhhh r@PhihPOPSORTBGNRD PBGNRD P*L,EESORT 17X17365PJ PuEESORT DECK-ID O28 MSOS 5.0 SUMMARY-110Jr@PENTER LIST FOR LIST ONLY, SORT FOR LIST AND SORTTLTH/rr@P+"LISOh]Dhh hht hhX LISTING OF Prr@PVROGRAM NAMES, ENTRY POINTS AND EXTERNALS XD j ATH<rr@P""  @H L    Dh~h~ {Orr@P X& Xo X XXj qh" hh TFrr@P T\0 0F 0 04 T\ dbb"` hBrr@PhBXX ( 2//h/ h, > , h'$ F$h!h Xr>@P 6(` 2 aaضص>r@P1/Q/h:h:.h TL$+OHXhhTL6 9 ` ****r>@Pr@PzX My (hhhhhhXhhh7%hrr@Phh0 (h&&hhh hhhhh0h/h.hfhfhhl``rr@P1/hrX [% W T FJhJHDC X1 l=hJX rr@P} 6/l. -/l%  X&ܘX  Xrr@P& hh-Rz H X hlhhhrr@PQ)/h$X# -)h X hXj h~  UUrr@P| + hq X hf"j$ch` X hXX=hT , hOrr@P X{ hf"hC<h9 Xf h0XMMh, H Hrr@PrȠ hh"ȗ"  hTFrr@P    " hTF ENX 2 3  hX : (hRrr@P( FM  X hX  XjXj b X} rr@PS |; h X h2f"ȏh$?XHmhZhhh hhqrr@P~hsBh?Xlfhh?X.X{Xrr@PX XvXXXL Xg4X. f!^ hurr@PV#X/NhHXHXh   { 0 ujrr@P  B w hsXXXX hoh XXrr@P*X~ S  XWR?dX BX XcA/h h hrr@PUhTLa(X /h`h!X#4XXhhXXDrr@P0 XX (hF_hXnX\ h2XY h+hL hNI'Jh,rr@Ph>)X6h3 h,X?Xh"TLTHrr@PX!   REWIND LU 004HH}zhvrr@P h+h&X'XHXH 0F 0HhheX 0F 0H 0F 0**rr@P,HH-5'h"O E $n Q h1h.b$% b%rr@PWTL_(# h  0X"X"X  hX _X; ^X9 rr@PHN hN DC ! _X#= X 9 % h3 X _X- 1  &X . rr@P h#(X h"Hcll-h TL s sUU srr@P _X _X" X h %L TL shhrr@P h  hTH|(jh 'n q hhyh{{vthvrr@P.qhuTH8kkHirfH eW ha  _hZȉ hTȄNHLdrr@PY lGE lCBuhB  _ 2< 81  .H-%,!)h(qhȐ1rr@P`b) "$ g" g"aXQ d UUUUUUhXSrr@PXV:Xmhghh|h ?X8T`DTH(rr@PRrIhCXXXX>X X hJX^XX hrr@P<X6 X /حX X X0i-f*c rr@P0[hZhYhSQOX` X"H0rr@P[hQ hMKhIhhhhhhhTLr@P(r@P 3&D h?!9 h XTL S(R zhrr@P ^i (hsXX ChFXEXtTL (rr@P i - j Q  hTL (Lh.hXEX)ȧrr@P  hh*COPIED*X hh^ hhhTh)/h/hrr@P M h`h\hh8h5hhhhhhh^XZX (  r:@P   pho lm 2 1( hd Fla:r@P !o/hkV/hR"Y/"HU ZGWM UX=EXXXRrr@P LXXdX hh`"aaaȹ XشX2X} X*X^Xr@P wXY @P ~ @P R @P I r@P h`Hh`HhH| XtXnXrr@P  hXtXXXohXX^XXeXXXXSXXZXȨ! ȣrr@P 阙XXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XXrr@P %X hzXX}XX uhSh hn@"XXrr@P ?XXRh0h hKaa"aaa9'?S\X"5hhrr@P j h.aa, X,hGX@$X aaaX!8XShTL  r@P XXr@P  IRH H%u bbhTL (d brr@P bTL + **Rhheh ?X!T`DTH  (Rrr@P hTH ( I1 p`bg "$Ƞ g"Ⱦ g"ahhXrrr@P ahTH ((RTL 2(RXhHXbbX| r @P H PCOSY  PCOSY P*L,LCOSY 17X17369PJ PLCOSY DECK-ID N85 MSOS 5.0 SUMMARY-110Jr@P CSY/ END/ END OF COSY LIBRARY XX j qTHrr@P  TL T  j qTLrr@PX DCK/ I ,H ,C TL (THd "/.rr@PH  hHHH   h"I=rr@PsH=C=H   H  "H @32B1h H rr@PH+ DCK/  rr@P ,hDh 4 HX ,Hɏ Hh H ȁ jBr(@P TL(( PLCOSY PLCOSY P*L,CYFT 17X17371PJ PCYFT DECK-ID N84 MSOS 5.0 SUMMARY-110Jr@P X NhDNAhQM hSAMhUX+֐  Ϡ fǐM rr@P+h h4 h h0 hh,dXXXXXX DCK/ I,C  rr@PV XXXXXX HOL/  rr@P @b`hhZhhThh X.X"XX6 THrr@P(T %#X0T  TL(T  TL(dT  TL(j Q q _nB @6X9 6 A ! 1 OU T rr@PiT , A  A " ! A))Р aQa*Xrr@P Q  L )"@ a 5 A" rr@Pa a  :a 6a) > , a("H a  XN)u""rr@P  X HX X  X7  X3& Xo HG Xi HA H> H; Xerr@P XZ H2 H. H+  X aB) 1)  4 3 ! rr@P@" BA+rX6,A2H%,"Ƞ a , 7 7 2 42 0 rr@Pk 2D/1a #"f"  Da a a a a a6Xrr@P a    7 X @Daa- a  a = w rr@PA !/   a#){ Ƞ P  rr@P   2aX a#-a  Fa 7 ) a   rr@P 6XdXj +-ja A"v13rK arr@PB) 1+(    Ƞ  ! L  C     rr@PmB21H+ +~*D 7u2 XV,RErr@PJ EXCEEDED MAX LIMIT NNNNN XA) 2 1 )  F  rr@P%+%#4a% !9)  +a'Daaa"a#a$a%a4a& aa a6h Xrr@P"   a!DXhX7X X/a"aDa"#!a$+XX"Brr@P!0`A *!mXDa#a$X) +/4%X c5+ rr@PDUU7f"X/a a!X XZhXG,Da"!a$Xb+XXXn( +/4rr@Po%X8+ +4 %X&5X3IX+XX*rr@PX&b" ,/a a"hT\`!rr@PUTnp RX:EOF ON INPUT LU NNNN  PP)   2 D/aXrr@P Xh a!X12!7f"!#a$+XXX*X ) 7   rr@P  + + ԑ4ܑ%)X,o|1 zw "ta!!7f"rr@PF!a$+XXXXp XPDhh)u""C/2 H vrr@PqN I G E A  a'Da%a&ah   h X., T\rr@P` a$.$,"X Sh&KIh$PDh"  RhEChrr@PS  FhILhE h!^XUNIT AAAAA BBBB NNNN Da%a&   hrr@Ph XΠ-T\` a$&$-X5 BhAChKDhrr@P   'h D̸ hhT\2!l(Xta  rr@PH A a+_Da%a&a4a57h ah THc`":`BAa$UT(rr@Ps5WDa5X&XE 5h$ !/Aha!TH `rr@P, X(`X(5Da5Xs hC6hC+!h>h h:B8A rr@PɁa XXY Ȼa  a'' hȭ #h C'Q h  rr@Pa XhT !`   Ch' l! rr@P#hh` a5+6hu K `7"a$UT  UDarr@PJ:5(Xr{X a5+.$UT XN&%+) q) arr@Pu " 0K X +X_D%XZ0NUMBER OF FILES COPIED Nrr@PNNNN NBR RECS COPIED NN*32768+NNNNN  XTHa@rr@P cX+!h a! a!$ A#!/A8h Xhh^XDhapXf rr@P+5s)  w3 Xv% a%X XCHECKED RECORDS NN*32768+NNNNN rr@P! k 1h X-T\;`!/aXZrr@PL XRMODE DIFFERENT ON MAG TAPE 3!! Ϟ2 X{ q+/rr@Pw4%X&+5B8A aMISMATCH RECORD NN*32768+NNNNN h rr@Pth h hT`!1 "a!hTF@rr@P &ɱ$h #6h h TL`"-Da#B8A arr@P7f"7 X7h h TL ``#"$2a$Drr@P #aa!hh X~A>hT = `!% $.&rr@P N&%a!$, "QŠ    ?; 9' 3rr@P yHX @b b X 0' 0lp0 0hp0d 0 h p0 0t 0rr@P Dn qa $5)  PP,F-.A-1  8 $%&*XH3brr@P Ȩb b *14X#b bb b b 0b X/NNb*3b 27b 68rr@P %b +Nb hHTL 7!`hahT\ J `"rr@P POPhMa5 TL b cUNIT1 = UNIT2, READY FOR UNIT2 - TL |  rl@P {TH a@COPY COMPLETED, C/R WHEN READY FOR NEXT COPY. l PIOUPV4 PMAXSECLOG1A PIOUPV4J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X17380PP*K,I8 17X17381PP*N,IOUPV4,,,B 17X17382PP*K,I6 17X17386PP*K,P8 17X17387PP*L,MTUP 17X17388PJ PMTUP DECK-ID U01 MAG TAPE UTILITY SUMMARY-106JJ@PTZ$MTUPFLDBTTJ PMTUP PMTUP P*P,F,,TAPUTL 17X17390PJ PMTUP DECK-ID U01 MAG TAPE UTILITY SUMMARY-106JJ@PTZ$MTUPFLDBTTJ PMTUP PMTUP J PTAPUTL DECK-ID U02 MAG TAPE UTILITY SUMMARY-106Jr@P" !"/H/h./H) Xf` DbTXyGXQTrr@P+h1\z( hh!h"dT! bbhhDhrr@PVhlHHllr`Pr@P hșhh\?X HRXX0@TXWj BHhhsh\rr@PXT R****WCS4A1X1A3D4-4A; X h!%hXrr@P#X*X "XDb  h H\1FE5D14C LINES PRINTED; 5D13rr@PC INPUT BLOCKS/5D14C INPUT RECORDS; 5D14C OUTPUT BLOCKS/5D15C OUTPUT RECORDS; E*16C**Trr@PJAPE UTILITY**;8C*NEXT: ; 16CFILE(S) NOT OPEN;  hh`q qa rr@Pu`  l XHDb  `T"hTh %Trr@P!T  X h  Xh 2 h rr@P h TL  DlhDbbbhX1 `bbbrrPWTOR TAPUTLMESAGERMESS A a  aȥ` TrT@P a BA X  F .M    6  a   A T:PPUTIT GETFF tGETMOVGETLOC$MOVE PUTMOVPUTLOC:JPSETCNTSELECTVSYSERRGSBYTE LBYTE RDWT WRITE READ aCVASEBJP J P Tp a Xs X  Xa!TXrr@Pn hDa  ȽhhXXlhLHdlX 2lEX! br@Ph PPRINT ( :PSETCT2VMESAGEONAM 8ETAB EFTB rELTB sLEXP Z2PLBYTE2OPN27 NSBYTE _MOVE [SETCNTLBYTE (2P J PvPRINTI DECK-ID U13 MAG TAPE UTILITY SUMMARY-106Jr@P h\TT2hPTP nIH T hF AHCA N AM BTrr@P+H1       h HT_ZTh1DhTTTrX@PV .(E).(/).%A/.(E)*/14CFORMS ALIGNED?; DhXPPRINTIFTN1 rrPMESAGESTATISUWTOR EPRNM1 APRNDMBWINPM1 INPUT XCOUNT2QCOUNT1MSYSERRGETLOCSTNDMP LBYTE *PRINT >rP J PDUMP DECK-ID U14 MAG TAPE UTILITY SUMMARY-106Jr@P A=281T51b@ hhX&X TXTrr@P+TDhT    QX[ @ h>\fQ XMrr@PV R40h/EB0h@lAhh: h h h X \DtOX2 \7<6q rr@PX \.2~ hHBȽ # b4 " b rr@Pd2 <  4h1 hDhkh%heXmhqhdh hehe hb rr@PhbBHH8hHhDbHCAhB hA h@ XX<QH."!H*XYX-Dhhh"XArr@PȦ؂"4A hHH!H X: h hX X` \!rr@P-Uf/6CBLK = 5D3X7CBLEN = 5D3X6CREC = 5D3X7CRLEN = 5D;.(.K4Drr@PX4C - 2-.2+%A%2-.K2C -3-/)* .(.K4D4C - .%(4H1X)%1C-.X1C*2-%4-.A%1C*1+.K3-/)* .(.2+%A%rr@P2-.K3-/)* 4CCHAR4X8CPOSITION/4X.(3X5K2D1-)2X1+2D; 5CCHAR 3+.(3C +2K2D1-);6X2C--.(1C-)rr@P2C--; 6X2C--1+.(5(1C-))1C-10X2-1C*.(1C*)1C*;E10CASCII DUMP39X5CPAGE 5D/;E8CHEX DUMP36Xr@P5CPAGE 5D/; :PDUMP SCDMP 6FMDMP 6SUDMP 8SHDMP 4T \ X  \\\1\\ \rr@P T*\\ \&\ hX \ \Da \ \$\X rr@PXX9XX.DaX \\\ \XXX bb\hX  hrr@P "\  \A hDaXM22C*MOUNT, O, NEXT VOLUME;9CVOLSER = 6A;rr@P122C*INCORRECT VOL MOUNT: ;20CVOL NOT EXPIRED USE:;%.A%.(1X)%6A%%6A%*%4A%17A6X4D4D6C000rr@P\10012A1X1C05D20X/ %4A%1A5D5D35X2C0028X; 15C*DATA SET NAME:; @RRr`P ZPSTNLABSDATE fEDATE pCLSLABRLLAB RELLABEOFSL BAVSEOTGETDSNSYSDATtEXPDTEuZrPLBYTE2LBYTE FMTMSGSCCBM1MMOVE SETCNTINITBFSCAN rSBYTE nWRITE APUTMOVPUTLOC@READ GETFF rZPGETLOCMOTIONRELBUFPRINT .CLRRGNtWTOR SYSERRGETBUFlTTYDM1INPM1 9NOLABL5ZP J PCVASEB DECK-ID U19 MAG TAPE UTILITY SUMMARY-110Jr@P X,h'X*h&%4h# h"dh ?!h h"HX"h"X f" h hrr@P+ 5"$4" "R46u " ` _"aH @ Z{[rr@PVlP}M]\[N.k`(K+a&z!^$*~);o_|-/|,%^rr@P?`:J#@'m=_"yabcdefghijklmnopqrrr@Pj>>>~>s>t>u>v>w>x>y>z>>>>>>>>>>>>>>>>>>>>>>>{>A>B>C>D>rr@PE>F>G>H>I>>>]>><>>}>J>K>L>M>N>O>P>Q>R>>>>>>>>>S>T>U>V>W>X>Y>Z>>>>>>>>r0@P0>1>2>3>4>5>6>7>8>9>\>>>>>>0 PCVASEB P J PnALCBUF DECK-ID U18 MAG TAPE UTILITY SUMMARY-106Jr@P h " T! btrtb BD2  hhrr@P+0e"""  7( h  !HBbrtrbb"b"rD@PVb H b"ȽBb bbB HDPRELBUFGETBUF% PSYSERR P J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X17410PP*K,I8 17X17411PP*N,MTUPFL,,,B 17X17412PP*K,I6 17X17417PP*L,DTLP 17X17418PJ P~DTLP DECK-ID N89 MSOS 5.0 SUMMARY-110Jr@P>TZ ;9TL+TURN OFF PROTEC SWITCH,TYPE CARRIAGE RETURN rr@P+THaDSKTAP?6! hhB@ q  :I BBrl@PVȈh!Ȉ hTLjDTLP FIRST WORD ADDRESS WILL BE ;l PDTLP PDTLP P*K,P8 17X17420PP*P,F 17X17421PJ PDSKTAP DECK-ID N90 MSOS 5.0 SUMMARY-122Jr@PX XXXHh iXf %XXV X "urr@P+ SAVELOAD h@ X X/ X@XhX h@rr@PVX2X&X 9`"X 2 2esR4R4! `hh rr@P X X X $XGX XH rr@P  d @HX X d X1X hXX   qrr@P`  XQ(~p0`H X H0h/XH/h. 5X drr@P X1XHAh@n X X~f XXQ XXK hjXXrr@P-e`  XQ ) SXXH!h 5 X% X7Cr^@PXXIH"h!& XQXYHh Xa f q^r@P Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOArr@PD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT rr@P0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TOrr@P RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPArr@P2RE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, rr@P]INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( r @P) PDSKTAPFST |:PGREADTGDRIVDRIVECDRIVEnQCODECODHXMNCDHXf:PDSKTAPJ P~DSKEQC DECK-ID N91 MSOS 5.0 SUMMARY-110Jr@P XX h  y0j/ +1) X' X" X XXhhrr@P+X&hh X"I\AEp4 DIG. EQ. CODE FOR .. rl@PVMAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDl PEQCODE *PCODHX/DRIVE9ENFC 2WES1 +WES )*P J PDSKDHX DECK-ID O68 MSOS 5.0 SUMMARY-110Jp@PH)h*H'h( H'H'!H!  h 2 q 4h !pr@P1 H  H $Ⱥ0123456789ABCDEFH(h)H&h'r^@P\ H&H& H!h  (h !"h r  !^X@P3h4**"00hh 8H 8 H 8r' X"PDCODHXENCDHX1DCODECVENCDEC"P J PDSKCDR DECK-ID B39 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@P hHh+hXh~h }~z!t  omfh9brr@P+huadhrDh gkHDhaec^" SIFSR  rr@PV;  ! @hB   4Dh112,n0ؼ*ȸ*H rd@P b h d A$ ydPNUMWDSCDRIVEP J PDSKMTI DECK-ID B42 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@Ph!h h  "R    HDh<?rr@P+hD?ĸhDB"BlDbhD?ȸhDB¸hDE"DlDdhrr@PVDBƸhDEʸlؿ o ? f 6 ] - Trr@P $ K  B  9  0  rr@Phq h"h l  hd h [XWh /rR@P 1h@<   RPIDRIVEMGREADEWES P J PDSKMTO DECK-ID B43 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@P U "  Hh4 hFG HA Dh==77  /..rr@P+"*n'&  l   Dn Dlrr@PVDh  @ hr@@P   h@PMGDRIVEWES1 ZP J PMDRV56 DECK-ID B46 PERIPH. DRIVERS 1.0B SUMMARY-113Jr@Ph h~h~ b Rh}Hih`$Dt  X3~ofXarr@P+QL"hMMhJ6@@h9X B *' c KI  d є l d  ddpp@P%T  ḽl l l\ ḷl ll\ 1  ll l lpp@PP\c ll l $dll\P̦ ̳l ll l\ . llpp@P{ l l\4 ll d $dld T& l  d ̫d  pp@Pl̰l\ ̥  ̠ l ll l\ l(p2@P lll\ lH>2 PSUP  BPREDCONoASCOUT/IREAD 8BUFIN IERRORICAT :WREOF WMOVE BP D P SIERROR DECK-ID N95 MSOS 5.0 SUMMARY-110D @P 010 @P *****ERROR p@P h 4h hhde dd hf  1d T"!pH@P7 , TJ dHH PIERRORO PASCOUT1 P D P GETPAG DECK-ID N97 MSOS 5.0 SUMMARY-110D(@P d T gH( PGETPAG PDISKR  P D P WBTOA DECK-ID O09 MSOS 5.0 SUMMARY-110D @P 00 p@P0 h hp8(dhp8hp8(dȈ߈hp8h h(fpb@P1 1 h̘n nظ 1ȼdHb PBTOA S P D P 4ISTAT DECK-ID O10 MSOS 5.0 SUMMARY-110Dp@P8 hTFhH dhh  lژըhp@P.H PISTAT 0 P D P SCIO DECK-ID O11 MSOS 5.0 SUMMARY-110D(@P d T H( PSCIO PDISKW  P D P SCRD DECK-ID O12 MSOS 5.0 SUMMARY-110D(@P d T H( PSCRD PDISKR  P D P XREDCON DECK-ID N99 MSOS 5.0 SUMMARY-110D@P`p@P h f 12h  hf "p8  h lT (dhnpd@P1     h h hȷ6OhزHd PREDCONT PGETPAG% P D P ICAT DECK-ID O13 MSOS 5.0 SUMMARY-110D @P1  @P @P P P @P BIN CON @P RELO BIN @P UD BINARY@P ASCII p@Pd dddeT hd d d dhhT lT pp@PJˈ) h ;hf h 1 hʜfص 1T̷ lȥl\ܽȤpp@Pu [̧; "h γf ȗ h 1 hn؋ 1\d d d (ddpp@P )d dd eT) \ d 9 ld n 1\ pp@Pll\g ldTF 8dl 6n  lf  pb@P1̝lTk̦ l̥l\ܨT<l\  l(Hb PICAT  "PASCOUTIREAD ISTAT BTOA "P D P BUFIN DECK-ID O14 MSOS 5.0 SUMMARY-110D@P* P @P P p@P d d h l hTd T 2 bhdl h͘pp@P7՘E͘dlTNhTh\\̿l\ qlӘpp@Pb\\̧ ؕȝ"TJf  "TJfd\̤ pp@P d f `1 dܧ\T bldldT% dpX@P,,, lH3X PBUFIN PIREAD ISTAT SCIO IP D P iMOVE DECK-ID O15 MSOS 5.0 SUMMARY-110D@Pa@Pdp@Pg* P Ph"T Jh Q " d T4h Tbpp@P $d ldd  hfؾ _1 \l hnخ _1 `lpp@P 1d l lTȔ h̛ `gdf̹dhȔpp@Pi# l\d ܲdcT l\̧j̸ ̵l\pp@P ܕ3lrl\dT  b l 5 dT l̟pn@P >d : lT d|̠  `d lHn PMOVE d *PIREAD SCRD IWRITEJISTAT #IERROR2*P J P IREAD DECK-ID O03 MSOS 5.0 SUMMARY-110Jr@P  h dHh a hhTF8  hTrr@P+q/ hh$TFh$8. .+//dȱ 2hTJTrr@PV\ hTF8 %H"" &/ r<@P d cddwhsL hdh<PIREAD IWRITE PLOG1A z P J P -ASCOUT DECK-ID O04 MSOS 5.0 SUMMARY-110Jr@Pd h e/hTL hhTF8T\ r @P+ PASCOUTWREOF P J P PARAMS DECK-ID O05 MSOS 5.0 SUMMARY-110J&@P``܀&PQ8PREPQ8PKUPP J P +DISKIO DECK-ID O06 MSOS 5.0 SUMMARY-110Jr@PhHLH!h"h% dT hT`rPDISKR DISKW  PIERROR P J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X17507PP*K,I8 17X17508PP*N,STP2V4,,,B 17X17509PP*V SCMM TEST ROUTINES 17X17510PP*K,I6 17X17512PP*K,P8 17X17513PP*P,F 17X17514PJ PSCMTTY DECK-ID B75 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@PTSTTTYDhGhGhhT\D4 \\b j2 A01\h-*\hrr@P+"H&?D    \ɂD7 DhTrr@PV$XXGX%XX>X&XX4Xw h4h2X* %h.h, $rr@P j q&hXD`" (i hh T D %rr@P D Dq h& %4" A*B "4h\:D-rr@P*#!ع#c3ȭ\\ di\rr@P\a\DQ)Dh\)()2 h$#h#B!`_2rr@P- h jp $ h 2 h  j`He`BEGIN TTY TEST DLU,SECTIONS,Lrr@PXINESEND TTY TEST RUNS ERRORS INPUT CHARACTER STRING DLU ERROR TIMEOUTrr@P LOST DATA ALARM PARITY INT REJ EXT REJ LINE BRK r`P PTSTTTY PLOG1A - P P*T 17X17521PP*K,I8 17X17522PP*N,SCMTTY,,,B 17X17523PP*K,I6 17X17531PP*K,P8 17X17532PP*P,F 17X17533PJ PySCMCRD DECK-ID B64 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@PTSTCRDyDhL\Dw \\bN j A1\h\h8h`rr@P+"H-h*? 0\łDT Dh2hrr@PVhy"C r5 r1 H0-H 9h h#/rr@PhPDhTD@Р- D`X-i XX D D2D0 rr@Pr6 r2 H]ZH-B@ 9kB   ;UUrr@P> |r7 r|3 Ho(%Hk\D \ \ bfhrr@P\- ;j^B  h 8 rrr@P-84 H+H'7 ;Dj'B h!ah=hXah8 # - ;rr@PXDj B T DC9r`Pr@Pea*Xȶ-Xh(  #h#Dh#  h$H&H$ X$Hrr@PH X  X h-H+*A=$X"o-   rr@P+!Ch Bh \ DX #RH n X4\Crr@P" "#@ @  rr@PM  %-4<CILSDh]rr@Px!&h@h@XAh?XRX>h:X<h9L X7h5h3XF >j+B X=; xhhhrr@PhhhX-DhX*((% hX!D hX(h a"H*rr@PA 5 `hthnߠhii X.|zh_РhYY Xmrr@P khO hII X^hBȵh>> XȾ4B0F 0hN0 HJ)rr@P$\JH 0hD\ׁFE(hAX )\D #`rr@PO" '\(v3# X\@X\@\D-)rr@PzDh\zBEGIN CARD R/P TEST DLU,SECTIONS,CARDS DLU ERROREND CARD Rrr@P/P TEST, CARDS ERRORS ERROR SPECIAL PATTERN TIME OUT CKSUM ERROR INT RErr@PJECTEXT REJECTNO 7-9 PUNCHNON-NEG RCD LENGTHDATA INT AFTER COL 80 EOP INT BEFORE COL 8rr@P0 NOT RDY BUSYLOST DATA MOTION FAILURECHIP BOX FULL HOPPER EMPTYSTACKER FULLFEED FAILUrr@P&REREADER AREA JAM PUNCH AREA JAMSTACKER AREA JAMPRE-READ ERRORPUNCH ERROR MANUALINHIBIrl@PQT SW SETINTERLOCK SEC CARD DATA ERROR COLACTUAL EXPECTED l PTSTCRD PLOG1A - P P*T 17X17540PP*K,I8 17X17541PP*N,SCMCRD,,,B 17X17542PP*K,I6 17X17562PP*K,P8 17X17563PP*P,F 17X17564PJ P SCMCD1 DECK-ID B62 PERIPH. DRIVERS 1.0B SUMMARY-117Jr@PTSTCD1 Dh\\D- \\o\D  rr@P+j A1\h\h("H}?p*   hsp\Di rr@PV|dd]T1WWT]7\DFTc1F?N-BB(>ψrr@P@?" B(3hhHH+% N-BB("$#" B( heHcrr@PDh:hhhZ`[[_$ 1hDh X Urr@PjZZ۠%5 2h}X.h&.Hz# jB whmXZqmho ih^XKrr@Pb^h`.Xȣ& 3hD.HFD`h* (vh ai rr@P-!9h/X3/h12h'X+'h) h (Xha.Xj!rK#HhXH rr@PXjB TD DDDhh*bX#^! $Dh)"0rr@P`h 2hض 5 hHB h b(rr@P]1YVhH'O 4hD`hF (h ai !1rr@PhȌh(h hXh ~yhz1yhm(h hjXRhchdh rr@P(haXX!!( 5hGXDhX)B rr@P/AhB# Ah 6h jB .hh [(AhWarr@PZh hhph'0!*X!h h0XS.X,rr@P'&h"hH0?h\fDY.(Arr@Ph HO*H2hXW  hXhX7\1Xw\rr@P0D# "#BHhΚ$Jhh @Ch h B04Brr@P--["''\B 1-u+B=a0`H\ځLrr@P1\ՁAX\6ȗ\C\CX \D !* X\rr@P\XFW #hD\BH>=>a:#44>h'=h&-61H rr@Pa0`hx\ysXU\r\sDf p   rr@P  '+ ;#2{X4\/vXrr@P-\(u\)Dc)Dh\ ILLEGAL CHARACTER PRESENT IN REQUESrr@PT ( ) BEGIN CDD 1 TEST BEWARE OF SCRATCH CONFLICT. $C1= LU,SECTIONS,BEG rr@P3SEC,END SEC,RUNS LU ERROR SEC ADR ERREND CDD 1 TEST, RUNS, ERRORS SEC rr@P^ RUN COMP ERR H/W ADDR. SECTOR WORD WAS IS  COMP ERrr@PR TOTAL NOT READY NO COMP CHKWRD ERR LOST DATA ADDRESS ERROR CONTROLLER SEEK Err@PRROR DRIVE SEEK ERROR PARITY PROTECT ERR D-C XFER C-D XFER NO RANDOM SECTOR ADDRrr@PESS CREATED WAS WITHIN BOUNDS r`P  PTSTCD1 PCOMPV4sLOG1A <P P*T 17X17571PP*K,I8 17X17572PP*N,SCMCD1,,,B 17X17573PP*K,I6 17X17577PP*K,P8 17X17578PP*P,F 17X17579PJ P SCMCD2 DECK-ID B63 PERIPH. DRIVERS 1.0B SUMMARY-117Jr@PTSTCD2 Dh\\D, \\o\D  rr@P+j A1\h\h("H}?p*   hsp\Di rr@PV|dd]T1WWT]7\DFTc1F?N-BB(>ψrr@P@?" B(3hhHH+% N-BB("$#" B( heHcrr@PDh:hhhZ`[[_$ 1hDh X Urr@PjZZ۠%5 2h|X.h&.Hz# jB whmXZqmho ih^XKrr@Pb^h`.Xȣ& 3hC.HFD`h* (vh ai rr@P-!9h/X3/h12h'X+'h) h (Xha.Xj!rK#HhXH rr@PXjB TD DDDhh*bX#^! $Dh)"0rr@P`h 2hض 5 hHB h b(rr@P]1YVhH'O 4hD`hF (h ai !1rr@PhȌh(h hXh ~yhz1yhm(h hjXRhchdh rr@P(haXX!!( 5hFXDhX)B rr@P/AhB# Ah 6h jB .hh [(AhWarr@PZh hhph'0!*X!h h0XS.X,rr@P'&h"hH0?h\fDY-(Arr@Ph HO*H1hXW  hXhX7\1Xw\rr@P0D# "#BHhΚ$Jhh @Ch h B04Brr@P--["''\B 1-u+B=a0`H\ځKrr@P1\Ձ@X\5ȗ\B\BX \D !* X\rr@P\XFW #hD\BH>=>a:#44>h'=h&-50H rr@Pa0`hx\ysXU\r\sDf p   rr@P  &* ;#2~zX4\/uXrr@P-\(t\)Db)Dh\ ILLEGAL CHARACTER PRESENT IN REQUESrr@PT ( ) BEGIN CDD 2 TEST BEWARE OF SCRATCH CONFLICT. $C1= LU,SECTIONS,BEG SErr@P3C,END SEC,RUNS LU ERROR SEC ADR ERREND CDD 2 TEST, RUNS, ERRORS  SEC rr@P^ RUN COMP ERR H/W ADDR. SECTOR WORD WAS IS COMP ERR rr@PTOTAL NOT READY NO COMP CHKWRD ERR LOST DATA ADDRESS ERROR CONTROLLER SEEK ERRrr@POR DRIVE SEEK ERROR PARITY PROTECT ERR D-C XFER C-D XFER NO RANDOM SECTOR ADDRESrr@PS CREATED WAS WITHIN BOUNDS r`P  PTSTCD2 PCOMPV4sLOG1A <P P*T 17X17586PP*K,I8 17X17587PP*N,SCMCD2,,,B 17X17588PP*K,I6 17X17629PP*K,P8 17X17630PP*P,F 17X17631PJ PSCMPRT DECK-ID B70 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@PTSTPRTDhF\D4 \\b j A1\h\hC"rr@P+H%?)?h \̂D[ Dh!hrr@PVB@[i   BXT$ 1h X h DhXD  VHrr@P  4H3%2 2h H'XXD !B@hIrr@PB th&" 3hXh"h`` Cj rr@PqXD A Bؠ' 4htXDh Cj qXeD ؿȾ  (#rr@P( 5hS XCchZDhXI  h X@  MhE)rr@P- 6h. XDhX&7 h3h*XHX > $hhXrr@PX #h hT DnD  DDr`P3r@P XBHhhj   h XD X}./q**srr@Ph$ #4  "h ha #H \D^rr@P sx{*#2!Aݠ3h X"\܁DcР)rr@P7Dh\BEGIN LINE PRINTER TEST DLU,SECTIONS,RUNS SECTION1SINGrr@PbLE SPACE02DOUBLE SPACE0 TIME OUT ALARM PARITY INT REJ EXT REJ CNTRL NOT READY CNTrr@PRL READY END PRINTER TEST DLU ERRORSIX LINES/INCH?EIGHT LINES/INCH 0? 0!"#$%&'(rN@P)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ N PTSTPRT PLOG1A , P P*T 17X17638PP*K,I8 17X17639PP*N,SCMPRT,,,B 17X17640PP*K,I6 17X17644PP*K,P8 17X17645PP*P,F 17X17646PJ P2SCMMTT DECK-ID B68 PERIPH. DRIVERS 1.0B SUMMARY-117Jr@PTSTMTT2\Dg h \a\o\DD  jrr@P+9 A51\h10\h-\сDR h  j q \\b QQ!i\rr@PVj"?J    : 7rr@P j  jon  h\vDi b qi"  "  rr@P" 1 jJU BO hL"{%\CD \7\6b>h*Dhrr@P jB 0XDX0Xz$1 hDh X  iirr@PZZ`%2 hXU&h3 hDhKhI`HH jNAhX6rr@P-5h j8AX%D"h3Xh-Xh',Xh!rr@PXbX hXdhXB#'4 h-rr@PDhhx`H}H jAhX~ XŐ_hcc jAXj Xrr@PȳDذhXhXh,XhbXjhaXF4h4H2H\/ rr@PjAXhPDh(h(X2&%~D0XEh<Dr`Pr@PDhh!@D jMA#TD rr@P1CDDXA2ߠ)*\D DhxȬXrr@P\ȭتH.B' "Dʌ2jh HDhhPX( rr@PHX?\tVsX \pDcF `#i%\ rr@P1TX\L\H\D\ED8rr@P  H-Z h$, XOBHq arr@P!HX8# A "X5 hXh  X  rr@P3  X1ʇhʆh-Hrr@P^X\DHiX H X\,rr@PX\|Ec\t\nh*"''\`hBHQrr@PAh Fa6 HTDq)<ڧ32j/X8!Xa3 \.Drr@P!z  \$D  B' [#rr@P [2RNX\ \D 9BH?>Xk :hCXr\.rr@P5bh\ςDwTD0)Dh\rr@P` ILLEGAL CHARACTER PRESENT IN REQUEST BEGIN MAG TAPE TEST SECTIONS,NO. OF RECDS,rr@PRUNSDLU,DENSITY DLU ERROR--REENTER SPECIAL PATTERN FOR SECTION 2 SEC RUN  TAPrr@PE LU INT/EXT REJ OR NOT RDY COMP ERR RECORD WORD WAS  IS rr@P COMP ERR TOTAL T-C XFER C-T XFER NOT RDY LOST DATA PARITY NO WRITE RING Err@P ND OF TAPE SHORT XFER END MAG TAPE TEST, RUNS , ERRORS - NONRECOVERABLE ERRrr@P7 CORRECTED DROPOUT WRONG POSTAMBLE PE WARNING PE LOST DATA NO ID ILLEGAL DENSITY SELrr@PbECTED UNEXPECTED END-OF-FILE r`P PTSTMTT PLOG1A ? P P*T 17X17653PP*K,I8 17X17654PP*N,SCMMTT,,,B 17X17655PP*K,I6 17X17659PP*K,P8 17X17660PP*P,F 17X17661PJ P WSCMDRM DECK-ID A80 PERIPH. DRIVERS 1.0A SUMMARY-106Jr@PTSTDRM WDhk\\D0 \\bX jU ATR!%Q1\hNI\rr@P+h"HG?B0 A\D: /01 7\D~ rr@PV!(hhiHHe(h_H]DhNhhghT `$ 1hrr@PdDh X UjZZ%5 2hMX.h&.Hz# jB whmXZqrr@Pmho ih^XKb^h`.Xȩ& 3h.HFD`rr@Ph* (vh aiy !9h/X3/h12h'X+'h) h (Xha.X!rr@PrK#HhXH jGB TD BDDDhh*bX۠#rr@P-F! $Dh"+Ah 2hض 5 hrr@PXHB h b(]1YVhH'O 4hiD`hF rr@P(h ai !1hȌh(h hXh ~yhz1yhm(h hrr@PjXRhchdh (haXX!!( 5hXDhXrr@P)? 6h jpB .h+.h#*(Zh&ah"X hXrr@P.X{h hHAT*D 7hh.h"rr@P/Ch `j ! G `hXՈh`hhrr@PZX`.X! `hhX`NhIhh rr@PH}*H^h\X(  hXhXW\`fXD\_DRrr@PY Q# 1*;'BSa0`H X.\7*\3\/'rr@P\+'X \*D  * X\"''\rr@PX=h #h;BH878a4#..7h#6h"-Hrr@P1a0`B04\̀\D  rr@P\   p# 2gcX\_X\_\DN)rr@PDh{sr\ymBEGIN DRUM TEST BEWARE OF SCRATCH CONFLICT. $C1=  LU, rr@PSECTIONS, BEG SEC, END SEC, RUNS DLU ERROR SEC ADR ERREND DRUM TEST, RUNS, rr@P ERRORS SEC RUN COMP ERR SECTOR WORD WAS IS  COMrr@PP ERR TOTAL NOT READY LOST DATA CHKWRD ERR PROTECT FAULT TIMING TRACK ERRORPOWER rr@P3FAILURE GUARDED ADDRESS ERROR SECTOR OVERRANGE ERROR D-C XFER C-D XFER r`P^ PTSTDRM PLOG1A / P P*T 17X17663PP*K,I8 17X17664PP*N,SCMDRM,,,B 17X17665PP*V INSTALL LIBRARY BUILDER 17X17829PP*K,I6 17X17831PP*L,LIBILD 17X17832PJ PLIBILD DECK-ID O29 MSOS 5.0 SUMMARY-110J4@PTZ"LIBIDO4 PLIBILD PLIBILDP*K,P8 17X17834PP*P,F 17X17835PJ PLIBIDO DECK-ID O30 MSOS 5.0 SUMMARY-110JP@PTZT"T hhhhHELPERP PCONVRS P D PuCONVRS DECK-ID O38 MSOS 5.0 SUMMARY-110D @P|  @P(*Z @P_--  -@Pq@P @P@P @Pf @Pr  @Pi @Pl @PW@Ps(p@P  h h6 f hdhd h hh Tpp@Pzrh !ȿ $ȼ ! h h hhȩl hpp@PȜd]^l hhehh\zrdy 8  d v pL@Pd{thdokdp ,h f 1ÀLp@P$*dx l} l d l dwT~-d/lJlOlpp@POTzrl <̞ 8l dq_jl̍fܝ 1 n̔ pp@Pz@dv l=l]\zrdy 8  {l,d{}   pD@P{l dwބ|d  d l lD@P`@PT<w -d 1T^-  !q  l] `@Pp@P d}f (1 dzT] "ל  ns p$@P d#\# "_$@P@P p@P̐dhdy 4  :Rdv dw lC+ "hF ^pp@PD 3Rl l dqll"! )EU; HTp@PoT PCONVRSk :PQ8PKUPqQ8PREPnRIOSUBWIOSUBLOG1A 7LJA2B PMESSY :P J PyMESSY DECK-ID O31 MSOS 5.0 SUMMARY-110Jr@PCONTROL LU = DEFS LU = INSTALL LU = NEWLIB LU = SPARE LIB 00 LU = SKELETON Lrr@P+U = INVALID LUINVALID CLASS CODESKELETON LU = INSTALL LU &-2;Hr^@PVH"hHb Q qݚhh tn^ PMESSY W P D PMLJA2B DECK-ID O37 MSOS 5.0 SUMMARY-110DB@P hTh * lBp@P h ! ! (ՈBh hhH TThp@PG\h\h PLJA2B ? PQ8PKUPEQ8PREPBNEXTCHP J PTMOVECH DECK-ID O32 MSOS 5.0 SUMMARY-132Jr@PX9XChKXAhJ GHFC ! >@a:XX(h0X&h/X$h. *H)&rn@P+ ! !H " q4lHhd$d h c"ΠnPNEXTCHSTORCH PEND0V4B P J PPICKUP DECK-ID O33 MSOS 5.0 SUMMARY-110JF@PHq``Hs"ܠFPQ8PREPQ8PKUP P J P$IOSUB DECK-ID O34 MSOS 5.0 SUMMARY-110Jb@PhHLhH"h h "hTbPRIOSUBWIOSUBP J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X17844PP*K,I8 17X17845PP*N,LIBIDO,,,B 17X17846PP*K,I6 17X17848PP*K,P8 17X17849PP*P,F 17X17850PJ PHELPER DECK-ID O35 MSOS 5.0 SUMMARY-110Jr@PTT  d T d T d T rr@P +d T' d T d  T5TTTTTTrr@PVTTX@d LIBRARY BUILD COMPLETE TYPE *Z TO TERMINATE OR  TYPE *rr@PC TO CONTINUE WITH CURRENT SKELETON AND/OR OUTPUT LIBRARY LU'S =XXbrr@P NAM RECORD NOT 1ST RECORD OF DECK. XXb XFR RECORD MISSING FOR Lrr@PAST PGM LISTED. PGM DELETED. XEXXATOO MANY BINARY DECKS LOADrr@PED. CHANGE LIMIT AND RECOMPILE.XX0X FATAL PROGRAM ERROR. RUN Krr@P-ILLED. XXF` X XGGaX^bH ILLEGAL RECORD SIZE (.GT.96). RErr@PXCORD DELETED  TYPE 1, CR TO TERMINATE EXECUTION TYPE 2, CR TO PROCEED TO SUBrr@PSEQUENT LIBRARY OR SKELETON TYPE 3, CR TO CONTINUE ON WITH CURRENT LIBRARY.  HHrr@PXh"XhX""h HLhT`tHlXhXdrr@PhX@ Hg" H B X""HLTHa!Xrr@P,X5    dq ` Cf*ElNDd (drr@P/H TL( H3( T.h hTL rr@PZhH hhhhh TQ8hHT\ rr@P HXh X""hTLa HX h X""hTLrr@PTHaXY X!X \ (d r,@P d X5 $ ufXI,rPHELPERKILJOBBINDECINCIDXGETCHR"STOREC)CLEAR 0STODEK>UNICHK7MAKLIBFDEFINEJGETITMNHASH RGETPGMVrrPGETBINZSTODEFBRESTAR^ERROR2ERROR3ERROR4ERROR5DISKIOMOVE GETRECPRINT 2OUTBINAINIT ^WEF xrPCOMMNTGNSCHRNXTRECjPHELP14HELP13\HELP12XHELP11THELP10PHELP9 LHELP8 HHELP5 DHELP4 @HELP3 @a:XX(h0X&h/X$h. *H)&rn@P+ ! !H " q4lHhd$d h c"ΠnPNEXTCHSTORCH PEND0V4B P x P(HELP0 DECK-ID O39 MSOS 5.0 SUMMARY-136xx@Pxx@P; xx@P@xx@PB P$*N**ENDxx@PJ  xx@PPxx@PT xx@PZ*B*USE*WEFxx@Pbxx@P"xx@P#xx@Pfxx@Pg(46H*** ILLEGAL CHARACTER STARTS IDENT FIELD. ***) xx@Pxx@P(48H*** ILLEGAL IDENT FIELD. RECORD IGNORED. *** ) xx@Pxx@P(46H*** ILLEGAL *B RECORD. RECORD IGNORED. *** ) xx@Pxx@P(30H*** END FILE MARK WRITTEN. ***) xx@Pxx@P(46H*** NULL PROGRAM NAME. RECORD IGNORED. *** ) xx@Pxx@P(48H*** PROGRAM NAME TOO LONG. RECORD IGNORED. ***) xx@Pxx@P(54H LOAD LIBRARY INPUT ON LU . CR WHEN READY. ) xx@P!xx@P"(32HLOAD SKEL/INSTAL, CR WHEN READY ) xx@P5xx@P6(38H LOAD OUTPUT LIBRARY. CR WHEN READY. ) xx@PLxx@PM(52H*** NO DEFINITIONS ARE STORED. RECORD IGNORED. ***) xx@Pj"xx@Pk(60H*** INVALID *USE RECORD. IDENT FIELD. RECORD IGNORED. ***) xx@P(xx@P(72H*** INVALID *USE RECORD. MAX IMBEDDED LEVEL IS 6. RECORD IGNORED. ***) xx@P(xx@P(72H*** INVALID *USE RECORD. REQUESTED SET IS IN USE. RECORD IGNORED. ***) xx@Pxx@P(26HLOAD DEFS, CR WHEN READY ) xx@Pxx@P(44H*** INVALID ASCII RECORD. RECORD IGNORED. ) xx@PT  d9 d: f !1"l7 f  l ln !1xx@P2T ;dT d#dddd=d>d?d dxx@P]T @d d dAl6 n̟ TBT  !B\ dxx@P lT d:f $1\ dD lf 1\ŤExx@PF H̸GT3;d T9 l# !> 8\dIxx@PTIJK ld l l\ "l dd\ Mdd T Nd (dxx@P T^d dO  dl\ \6lܰܯ\IP ̳ldxx@P!4\QT\̉l\? >R  ddSl=ld \ Txx@P_dITITKdd\UT\;lTd\\"l\(IVxx@Pld!TW dl 3Ts. Xd  YdT" T ̞ l xx@P̘ $< *d9T lUll lEF d: f $1\Txx@P^dITfIL \Z \Д[k^]P(\ xx@P  d dT lnܻ $1TzTԔH̥Gk\;d \T lxx@P6nܚ 1 ̐d d T \  %TTdITxx@PaIU \-\ d: f $1\\ Ml\I_ \  l\ Pxx@P*kl\I` l>  da̢T S :l ܩܨ\Ixx@P C  l윩!̦ $< )d9ٔ  ܘX fU YfV , exx@Pln l aldIxx@Pxx@P d TD H" Mddd d:\ H"̺  A lxx@P En ̥h+b&n 1  ,\ H"  xx@PI\̩ 8 d T@xx@PV TYglܑܐTaIc T\ l fܛ $1\ lT :xx@P 11A $̺ F l l\̰ ! Ad9  yEn ̚xx@Phbn 11 H7 14 !!̽ dIT[\ Id dexx@PMn 1 l̝ d dTR\lTbIcTg\ d:(fxx@P $1\\lܹܸ\Ic\lܮܭ\(Idxx@PB!xx@PJ!xx@PO!xx@P!H?xxPHELP0 #xxPHELP14CLEAR PRINT INIT  GETRECSTODEKzBINDECMOVE COMMNTMAKLIB8STODEFtDISKIOGETBINOUTBINxxPRESTAR1GNSCHRWEF WGETPGMGETCHR{xxP xD PSHELP1 DECK-ID O40 MSOS 5.0 SUMMARY-110Dp@P  " 8 %,+ d"h hp8(d 0jp8h h 1pX@P1 h dT 1  `)T lHX PHELP1 O PSTOREC8DISKIOEP D PGHELP2 DECK-ID O41 MSOS 5.0 SUMMARY-110D@Pp@P "7 $ Ah d Hll  Ahp:@P- Όn hĈn: @PCH PHELP2 C P D P\HELP3 DECK-ID O42 MSOS 5.0 SUMMARY-110D@P p@P  " 8 % d" h f (1 3h " h h pp@P/hј!!  Ř hؿȾ  屮  hشȳ حHp@PZ PHELP3 X P D PHELP4 DECK-ID O43 MSOS 5.0 SUMMARY-110D@P @P P*N @P @PP* @P@P@PX@P Pں ** ABSOLUTE FILE **  X@P!@PH@P(48H*** LAST DECK REJECTED - NO XFR RECORD  ) H@PF@P(46H*** LAST DECK REJECTED - NOT UNIQUE ) Fp@P hh = hh f!؛ `1h hȒ6n؊ȉlpp@P h h d!Td  !T 1   d( dpp@P'T d  dTddd̬ !̨d (" (l l6pp@PRΑfܬT d̐ fT d l: nl\܎n\̩ pp@P} l dߜ6!n lT pp@PH kk nT ldΩn `1̝ll l pp@PlT d lΰn `1̟d ̜lT)dT TXp @Pl @Pp@PT d d Ad Hd l  3= : dpp@P, 1"7 $10"7 $+*" 8 % Tpp@PW d 5TH  l&T d̸" 8 % Tp8@PdTT lH8 PHELP4  jPNEXTCHSTORCH CLEAR BINDEC3PRINT INCIDXaGETREC]DISKIODEFINEMOVE ERROR2KILJOBWERROR3ljP D PHELP5 DECK-ID O44 MSOS 5.0 SUMMARY-110D@P*DEF*END@P @P @P*TERD@P(44H*** INVALID DEFINITION RECORD. IGNORED. ***) D@P+L@P,(50H*** NO DEFINITIONS WERE SUCCESSFULLY LOADED. M** ) L@PHD@PI(44H*** TOO MANY DEFINITION SETS. IGNORED. ***) D@PbF@Pc(46H*** BAD *DEF RECORD. NO IDENT CHARACTER. ***) F@P}"X@P~(60H*** BAD *DEF RECORD. IDENT CHAR ALREADY USED. IGNORED. ***) Xp@P dT ?TdT T\ܜpp@Pޜ՜ל  \,l\ \\d \ 1 l\pp@PIl\\\̤̦  d d T P/\clܢܡ\ pp@P ̶ l\̱ d ( d ?  d T T~dTpp@PK Ttn fU dT  (fT d  lpZ@P vnl\ܰ (1n\ nT" HyZ PHELP5  :PNXTREC^CLEAR CMOVE KPRINT PGNSCHRINCIDXoDISKIO:P D P HELP8 DECK-ID O45 MSOS 5.0 SUMMARY-110D@P  @Pں @P * @P *ENDH@P(48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** ) Hp@P, h    TdT h"ȼd T  d ad  dpp@PWTئ\ d ȡdT hh d d d  !h ( # (dpp@P d7f\̞ ;T\ ̺ !*$ dpp@P n $1 d $l\T7d T T<m \pp@P d  d Tb d d\  l̼n $1ld( $d\p@PH PHELP8  :PCLEAR PRINT GETITMIGETBINXBINDECOUTBINMOVE :P D PHELP9 DECK-ID O46 MSOS 5.0 SUMMARY-110Dp@P  h adT T d h7 f dd dpp@P/T h yd nlT ff fff ̱fa\pp@PZ h hؤξ衞 Eؚ 1 l d  al\̘ \ dT ̝ l4pp@P ̲nl\ d̟ d n 1nܙΠl\Μ ̍p(@PnΔdHF( PHELP9 *PGETBIN ERROR5HASH 0GETITMCUNICHK}*P D PvHELP10 DECK-ID O47 MSOS 5.0 SUMMARY-117D@P@P@Pp@P  h 3 "T Dh h h : = hhל! pR@P4( %hh n hh ȸ hT R@PUȯh\D@P\ȥn nȝ d ( d HD PHELP10r PERROR4DISKIOQP D PPHELP11 DECK-ID O48 MSOS 5.0 SUMMARY-110D@Pp@P Hh hHhhHhh h  ?j % Zي j p>@P4j 1hhè d> @PLH PHELP11L P D PHELP12 DECK-ID O49 MSOS 5.0 SUMMARY-136D@P@P*@P.@P0@P2ںN@P6(52H*** PROGRAM SPECIFIED BY THIS RECORD NOT FOUND. ***) N@PSH@PT(48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** ) H@PoH@Pp(48H*** PROGRAM HAVING THIS ID INFO NOT FOUND. *** ) H@PP@P(54H*** MORE THAN ONE PGM HAS THIS NAME (NO ID INFO.) ***) Pp@P d' f &1Td( yd  T6d)T)* T\pp@P l f $1\Td+d,   pp@P   d  ad dT  T   d lT pp@P+' 1 lAd- 1̪  ̧d\ ΟlΡlTpd) Tpp@PV).w l l!\ Ad(yHd/̻ 0ḽ ܬpp@P\ d dTddd !d1 (" (l d'7pp@P f T 32TT   ,TMTd)TU).pR@P\+ \l\ )4\, dR@P@PH9 PHELP12 RPHASH CLEAR MOVE PRINT GETITMGETBINERROR5GETCHR&BINDECOUTBINRP D PbHELP13 DECK-ID O50 MSOS 5.0 SUMMARY-110D@Pp@P   T" l dh B d h \ l ahҘpp@P0 "h h; flȼh ̻ ܼ\  l찞 p@P[ܪH PHELP13^ PDISKIO P J P HELP14 DECK-ID O36 MSOS 5.0 SUMMARY-132J&@PX !dd & PHELP14 P J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X17867PP*K,I8 17X17868PP*N,HELPER,,,B 17X17869PP*V INSTALL SKELETON EDITOR 17X17870PP*K,I6 17X17872PP*L,SKED 17X17873PJ PSKED DECK-ID O51 MSOS 5.0 SUMMARY-110J>@PTZ$SKFILE > PSKED PSKED P*K,P8 17X17875PP*P,F 17X17876PJ PSKFILE DECK-ID O52 MSOS 5.0 SUMMARY-136Jr@PTZ$SKFILEDhLh hJhXh q XDh h8rr@P+/h h /h XDh'h h h huh hhhhXXrr@PVX( T Xu @HHHHXaXh((XCrr@P HD  "X,vhDغio rr@P "Ȳ 2ȩ2h1ئ  1 HȖ 30rr@P"Dj> AX+ LIST BUILD LOAD CATLOGDELETEINSERTDUMP COMANDCHANGEEXrr@PIT REW ADR BSR ADF BSF WEF UNL B"rr@P-~m#LM9_0pP` @ XDh   6XTXrr@PX )X  z  /h Dhh   } eX7wrr@P h p w h PX"bh ^ ['  Uh T R J1XXrr@P~h OXtX - ! : 6h`X} 0 EW!B * h +h &  hrr@P %h XI ( k  k X;XRX5X@ * k  k   rr@P !X  ( h  h !k XDh G  Zrr@P/Xx7XMX0 z0h& 2[X/Xh X0X - ` XXrr@PZ h (k N h k G h X5  h ~h |h wh rr@PX | w * "h l  h h mh ` hh [XX * Vk   Rk Xrr@P Qh G Lh D ( Jk  Fk X_ =h - :h (XS * -k rr@P  'k X C  bX,XXq v%hgDh h XXrr@P:BXa>h B(TXW8h (20. i X  h[ X7 hUrr@P1 I  D  @   X$X1X0  0 i X  rr@P\X X  |X uXX}XSDh XBrr@P ( qk %  mk  ik   ek  Dk   hk f# O5 0` Jhrr@P K Eh H Ch @ @h ; :h 8 3ػ /h 3 ,h 0 ( %k  krr@P ,kXD & h :Dh h h h h ` h h h h Xrr@P XX5  Xg( )XXUX8 v/rr@P3h- XXXXCX X< $ XQX&X rr@P^ v /hTh XX  ->! ,9!X"X* ,.5XXrr@PhXO ' Vj q 'j qhX rr@PL( q ;XS XK  hSDh Xrr@Pߘ  hX}X: /hUn h.   IXrr@P h<7 h2X  hDhIhrr@P5XX K\X 2 rr@P`#h hȽ u h~sDh]pZXrr@PX*jhda_GXYV"QhPLIA3rr@PDhHh?(hrr@P77 X' DhhhhXhXhrr@Pbh XXhXh(hkX(rr@PXXQ ,"XX hX()h,Xrr@PߘMJ XӘB?X:8,h0Xh,('Xrd@P#X!"X(X hXo((XX$dr@P hh/h %hXDH 'jAB DhOrr@P7/h`hwXp}2D qhDh Hrr@Pb( qh DH!?QH    >h rr@Ph=DhQX/(0+$ ?"'!h6F1 hrr@P+B F&h%Dh  h @(j q.B0F0Irr@P @ȈhȈhyhs`Hh>h<BVrr@P9   DȘ#h 8Hj1 'jrr@Pd* #jhXDh)qh25t/h*mh+rr@Ph.X(D_A 0`F hFhF` rr@PhT T H r`DH%B h<h9 4k/ h+ rr@P % kDh(hhhhhH_j qrr@P D`mH XN jc a Dk q 'kx rr@P ;qXX ^hxXq %DXH( qhQrr@P fh hKDhJhJhFHp 'XE X27 h(,A#,Rhrr@P &% h" DhhnX hh4 'X DhhRrr@P H##!hK#D hA>ȸ<k 3/XXX rr@P hX: j qh #j qL$ ' rr@P h$ X h HX HADhh (yh rr@P =thhhXXXT X'Xhrr@P h"8  HrpDKir`P `P q(r@P     ) 5G\u*N*K*B*END, 000HLrr@P POSSIBLE COMMANDS  COMANDrr@P,LU SET COMMAND INPUT TO LU BUILD,LU READ INSTALL FILE FROM LU, BUILD rr@PISKELETON FILE LOAD,LU READ SKELETON FILE FROM LU CATLOG,N1,N2  LIST RErr@PtCORD N1 THROUGH N2 FROM SKELETON FILE DELETE,N1,N2 DELETE RECORDS N1 THROUGH N2 rr@P INSERT,N,LU READ RECORDS FROM LU, INSERT AFTER RECORD N DUMP,LU  WRITErr@P SKELETON FILE ONTO DEVICE LU CHANGE,ILU1,LU2 CHANGE LU1 TO LU2 ON *K RECORDS REW,rr@PLU REWIND LU/SK (LU=SK FOR SKELETON) UNL,LU UNLOAD LU ADF,LU,N rr@P ADVANCE N FILES ON LU BSF,LU,N BACKUP N FILES ON LU ADR,LU,N rr@PK ADVANCE N RECORDS ON LU/SK BSR,LU,N BACKUP N RECORDS ON LU/SK WEF,LU,N rr@Pv WRITE N FILE MARKS ON LU EXIT EXIT FROM SKED SKED IN  NEXT rr@P ANY MORE INPUT. ENTER LU ENTER COMMANDS ON INPUT COMMENT DEVICEINVALID COMMAND ERrr@PROR IN COMMAND FORMAT LU NOT LEGAL FOR COMMANDS SKELETON NOT LOADED RECORD NUMBER ISrr@P ZERO INVALID CHARACTER IN NUMBER INVALID RECORD NUMBER RANGE CONTAINS RECORD NUMBER Arr@P"LREADY DELETEDCOMMAND NAME NOT UNIQUE RECORDS HAVE PREVIOUSLY BEEN DELETEDNO INSERTIONrr@PM RECORDS FOUND AT SPECIFIED LU RECORDS NOT DELETED PLEASE RESEQUENCE SKELETON RESPr*@PxONSE MUST BE LU(CR) OR (CR) * PSKFILE PLOG1A PSKFILEJ PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X17879PP*K,I8 17X17880PP*N,SKFILE,,,B 17X17881PP*V SYSTEM INITIALIZER 17X17882PP*K,I6 17X17884PP*L,SILP 17X17885PJ PSILP DECK-ID O16 MSOS 5.0 SUMMARY-110Jr@P_TZ \ZTL-TURN OFF PROTEC SWITCH AND TYPE CARRIAGE RETrr@P+URN TH5%#B/#`g"#t "!` g"#4 rr@PV h"#\\SI !#B@ q  :I BBȈh&Ȉ h#TL rb@PTHE INITIALIZER WILL BE MOVED TO LOCATION AND EXECUTED b PSILP PSILP P*K,P8 17X17887PP*P,F 17X17888PJ P CONTRL DECK-ID O17 MSOS 5.0 SUMMARY-132Jr@PX h0hhh QZ3h4hXMSOS 5.0 SYSTEM INITIALIZER FWA rr@P+OF CONTRL = XXDXX DATE MM/DD/YY X8B9X Ö j rr@PVqXDhhJhhhhhhlhehdhchbhhhhhYh"h!rr@Ph hhhh~h}hhhhhhhhhhhl*X9rr@PPA XBXO `dX9 X9NaO H  9 a aDQKrr@PB N NR CL LPM MPS Y YMV U I O C T D G H >rr@P^\( /'jjj*3v aDQK X Q 2 rr@P-4  2  aN9Xn # 4 XEND0V4 aQ(uaalh  aNrr@PXX X X{B  aB0`A h+ aB0`A rr@PhuIX!G]IX! IAA{XHH{a{IA Cѓ+ ()"rr@P fH"N B fN XFXfN  rr@PB0`WhdHfRHh   shB XX{hch_XPARTBL aQ(rr@Pa hV "%  h hXLSTLOC aQ(bȶh? "" aȨ " arr@P/aX XMSIZV4 aQ(c !8hhal a{ haW aNhX ,aB1 !atrr@PZaka, B X{hhXXXX= 3{hx{ha{XXrr@PXX kat,aB1 !h aka,vh h B1 !hB Xf   Xrr@PalX {X/aXwDb a{ aNaaXRX BAN rr@PaDQKI# Ia'a"H  aQ(b #X  Ihrr@P)X%h( a XXXJIhX hwaka,uavaFaWrr@P1X X2C X5%Q!є ( "f {fN  f@ fXrr@P\_ B X9{hhXXXr  X{hB XfXX0Xrr@P Ihz2 2 %X XIhl3i 1X~XuIhXthrr@PX+B XPARTBL aXnQ(b &h>ahTal6a aNarr@Paaka,ava aWh!aXhX{ a{1FX XC X2rr@PX AXSECTOR aQ(b $Xh " ! sakrr@P3a, taka,9 ` ;c q>`#AI@QZ94H 4rr@P^4h  XKR@ XdX9BX Q ERROR BX   hCX> aDQKrr@P Is IX  42  IjX5Q1XtXkrr@PX*A I H hhhh  hhhrr@PX% Q B0`A FhDX/ aDQKX( hhhXr`P r@P X XAIh H  a aQ(q N# aXuXZrr@P7DaPtXT aPhXA aaFXpXA0XENABLE ADDRESS WRITE--THEN Crr@PbR  XkB9XX6XDISK ERROR Xh' XDISK REJECT rr@PXXXIh!X?Ah&h?Xh;X!X;UUhDh4XXX3hX Xrr@PX-DhXXX( _j q @X Xo6  1irr@P H@Xs `X1Q _i q?`QZ3h#4h"QZ3h"4h!SQZ3rr@Ph 4hȷQZ3h4hXDISK COMPARE ERROR SECT XXXX WORD XXXX IS XXXX SB XXXX  Xrr@P9 H~ȟ`QZ3h 4h X DISK FAILURE XXXX  X9Kr`PdZr@PXX aNawafadhc b_^ [hZ hW!2hOޑhL!zrr@PhIFXDXg@$;:7 H56zh4avaX(XSTMSV4 aQ( wX=rr@P@ [ f Q+:`X0`.(XXLSTLOC rr@P?aQ(a "  `XXAREAC aQ(```Xar`PjXr@P nhm` H ^Db ]@ X;`XDATBAS ha aXrr@P1 fA?hXSWAPAR a aX aXX' fXXK,k Xrr@PX,k# f ftB1X4,k X fhT c fh `hM  f rr@PCaWX h XJC XK hXh2 h%,k B1A dhhUrr@Pn@ `X@ KXq `h Db A@rr@PXxB8hG  C l B8׈hDF BAllRArr@Pm@X=XINITIALIZATION COMPLETED - YOU MAY AUTOLOAD X[XrR@PERRORS OCCURED - YOU MAY ATTEMPT TO AUTOLOAD  XRrPRSTARTTCODE IN OU CO COMMA #VALID CM45 CM65 BACKGRa aX%Q(uQb 8Q6X{Xrr@P0 PH aX>a aXXo   4a ?=a Arr@P[17Q6Qbda a a!a"a? aX1Q a1 aQ(a #13; h Xrr@Pv va|1 A A|Xbѐ|"a !Q(a # arr@PaQhBh| X|!h="CAaApqd4", gXzrr@Pa WFC 9Q6Xg xWA" BthXdh WQAa X5AN ILLEGrr@PAL MULTILEVEL INDIRECT IS IN THE EXTERNAL STRING FOR WHICH STARTS AT LOCATrr@P2ION hhhQZ3h4h 4Xk,ka+,A.XN  !eta+A.rr@P]Xsa+A.X X'+ a+.R2 q a' a- AXaXAaA--rr@PAX X aUva| a|X|  XaU , v2 6;,h a,Xrr@P h a/"X16; X X X hX X hXrr@PX * * * U N P A T C H E D E X T E R N A L S * * * Xvarr@P  XI2X4 a2X LOADER ERROR h XG5 a{XDH rr@P4HQZ3b4b #X] X h XAj  4 XBrr@P_XDUPLICATE ENTRY POINT "Ahhh X]aX A3X 3A3XA4X4A4Yrr@P B q  : AGAIAAAAaHXH   a aI a2  J aGrr@P  J aGXH1XZ1J a aXaXtJXJ!JXwaI   A arr@P a XFXYX!X]h "IİS !IaIIG$R AIaGJH t rr@P dH   a qH 6 "H "  1H AH1A rr@P6! b  !aHH  A  HvB HrH Hnrr@Pa Hghh HcwN ^h[ZB1zHYTthWWZ4AHSRAuwhPHQHOhMF#rr@PE2hB?/8N %c!h1H52h0uu0,z2H((h! `brr@P bn8"n5An H amXRRXrr@P@n;(J3;N 12;A2 2;  bDbhb5n2%ABaurr@P  0au C uauuuj ȫX X@(} 5 A(rr@P8hz`ȕ RAuwhH XRX&(@ uuxzx2aArb@PcKW " 9; QB4QVRAcRBd4B4adAaQbrPSIGNCK9ILOAD WRTOUT@LENSDTDISKWRYFNDSEC/PRNT3 PRNT4 8PRNT5 _ADJOV1aCNVERT}LINK11ENTSTRFLGADRrrPISCAN SCHTBLIRWFLAGPGEFLGSA SQ VALUE WORD PAGENOPARSTR8LSTPGEMINREFMAXREFMINBASrBPADPAGEMINFLGNXTBLKDATBS0DATLM0DATBS1DATLM1STOP ,BbPM65 7TYPE UACKGR`azEa`ac aBrr@P0caaX #11;!2a a" audaub bbu2Dhhhrr@Phhhhhhhhhhhfapaq`arEd `avaa}Erl@P `a/ a aB 0a X ` awafaawB0caalBPNUMSECCONENTCONMS1CONMS  CONMASWRDADRSTRTBL5ISAV "BrPMAXSECINFLGDPAGEINBASAXREFINREFSTPGEAGENOORD ALUE Q A GEFLGWFLAGrrPENSDT RTOUT SCAN PCHTBL-INK11mLGADRSSECTRNT5 gRNT4 cNVERT_DJOV1WXTBLKCTOP @RNT3 ;rP J PI1 DECK-ID O20 MSOS 5.0 SUMMARY-110Jr@P HXZOaN  BX E A aPDhhYhh`rr@P+`aP$daPNaBH@OAH `є N4a aDrr@PVQK fX7XlQ QbX{" VX_R Q QPTDBHQ HMDhJrr@Pa#a$a%DQK 7 1XQ" ,X6 AdaQ(2  ON%*$hua Nrr@P`a{nIbj aXBH a>BHHяXHd    rr@P  4 BA4"2  4d xI  " IhX #r`P@P XPI1 OETERMFATE *PSTARTCOM SAV *NTSTRYPEQ *P J P I2 DECK-ID O21 MSOS 5.0 SUMMARY-110JX@P  h Hhh n B  @RXX*PI2 I2RETNPART1APART1LPART1C*PDRIV MINITU P J PQ1711 DECK-ID B57 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@PheHeW h`H`hHSQXhXhhHh@JhG\FhDrr@P+@h9C? D11 3  'd 4h$)+&hG!  rr@PVhG xhT h da#,   1 V rr@P  p a 5 # a    rR@P hȶ  ' bج H XR"PQCOM TTYOUTTELOUTECOM m"PACKGRABLE O P J P{Q42312 DECK-ID B59 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@P hhHhm BH_XE[ZV hVVhahS @ X"hNNRX/JXT hCrr@P+F X<9X 986!X B X= h H . #   Xrd@PV Xh  !D 1 X  DATE  d:PQPRINTEPRINTpFORMFDlHEADR1vHEADR2wHEADR3xHEADR4y: PRAIN P J PT5954 DECK-ID B77 PERIPH. DRIVERS 1.0B SUMMARY-112Jr@P01234567BZ,/89AC(GH)RIFLMNOP[%"]DUSTVWXY+-.EJKQ*01234567$@'=89ACBZ,/RIFLMNOP(GH)DUST#\rr@P+^!+-.EVWXY01234567JKQ*89AC&?<>RIFLMNOPBZ,/DUST(GH)+-.E:;_=01234567VWXY89ACJKQ*RIFLMNOPrr@PV[%"]DUSTBZ,/+-.E(GH)01234567$@'=89ACVWXYRIFLMNOPJKQ*DUST#\^!+-.EBZ,/01234567(GH)89AC&?r,@P<>RIFLMNOPVWXYDUSTJKQ*+-.E:;_=, PTRAIN P J PtIDRIV DECK-ID O23 MSOS 5.0 SUMMARY-110Jr@PHVXHRhNhNTFH JO D`@@XXIh8XFh @rr@P+QZ3h 4h XL, FAILED () ACTION X XD BX ޘ rR@PVDRPCU B0 400RJPI2MZV4IDRIV QSAVEQZPROCES SIB MASS COLU TABLE bMESG @JRPSAV )ELOUTICOM NPRINTiTYOUThMASS fMTAPEeCARD dPTAPEcN RP J PoQMT9TK DECK-ID B53 PERIPH. DRIVERS 1.0B SUMMARY-106Jr@PHf!dhd hdDaFc  H [h[ OhQLsQ `RHIHEH DlBArr@P+>=  <h<: 51h1`"%'S11   rF@PV`D B  QaFFPQMTAPEEMTAPElP J PMDRIV DECK-ID O22 MSOS 5.0 SUMMARY-110J@PHX PMDRIV PROCESSAVEQU P J P)Q17332 DECK-ID B58 PERIPH. DRIVERS 1.0B SUMMARY-132Jr@PX hnB  `DX ` X h)rr@P+Dh&H$aRH X X 3[-h,H Dh!hvhvh rr@PV `8HdhH 1X hB0hB0h Xhrr@P XD*Dh>BX` TB! XW X3 S @ H'S@V`ȬhHDrr@P H HB Q>1 X* X5 HD "h Harr@P2 a!b1b1  `E   XC%rh@P X X 4h h X X X X hh"PMAXSECMMINITQMASS 'EMASS " P2RETN P J PQCDDMY DECK-ID B48 PERIPH. DRIVERS 1.0B SUMMARY-106J @P PQCARD ECARD P J PQPTDMY DECK-ID B56 PERIPH. DRIVERS 1.0B SUMMARY-106J @P PQPTAPEEPTAPEP J PNXTLOC NEXT AVAILABLE LOCATION JP P*T 17X18005PP*K,I8 17X18006PP*N,SI,,,B 17X18007PP*Z 17X18032PP*K,I10,P11,L9 17X18033PP*CTO, MSOS 5.0 INSTALLATION COMPLETED - YOU MAY AUTOLOAD 17X18035PP*Z 17X18036PPVERIFY 124 PP*JOB PP*LIBEDT PP*M,25,,,M,N PJ P 7VERFY2 DECK-ID V01 MSOS VERIFICATION TESTS Jr@PFXbХ Ц %: h XT bb b 0b  bG q*&hrr@P+ X`4b :` `X1"^mVlNrr@PV0\bk.C{%TD,MbTR Xi bGrr@P qb bbb `d E b *E`rr@Pb `dTD  X,Xb{B X!8  XfЦЦ, Xrr@Pb XbZEXh XȀ`}HpD  i AffXP_rr@P\ XZD  X XX7 `T`UE``V@a<b bXrr@P-cX% FXX( XX" b bX*X$  XЦ Tb rr@PXUbVbk XcXB Xu  XXD  rr@P XЦwb  XUXbB XJaX X /X /rr@Pb ASSEM X. Xl/Xw X&BXo XbnD  XbdHrr@P  XX XX[ X bG qhN X3/X>Db Xu   rr@P   BX%Q Xb#H  X X f"5b rr@P/b "b ?td6c*& bK  XX T D arr@PZX ^h hX,$X'Ц/ XD XX X  X X  Xrr@P `u XY X/X XQЦBX XbD XbDrr@P  X2  X}EFTN3AAFTN3A1BXp  Xnu XblD  XbbHrr@P  XV XXW X X7X= X X.X4y X(X.s X"X(rr@Pm  X' - Xb$G  X Xz  X   bG rr@P1q STB>X 7XN X=  X ` X $' Xrr@P\ X XX X XX XXHDFLOT$  X  Xbrr@PG  X XT   Xc  X X  X X rr@P X `F X*b  X X\X X ɰ  X\ rr@PXbYG  XM X  XA  X  X4Ц Xrr@P2b f X XX  X XbG  X  Xkrr@P3  X=Db 2 /*"E *E X X;RPGII / rr@P^X X X/ X X `0 Xo bG q X/X X`rr@P X XbD  XbH  XZ !X>U "X9 9/rr@P X0 X{/ Xx XuЦ# X` Xk &X sbG q Xb^Grr@P  XS #XX )X/ XB X?Ц; $X bG qh9 X/rr@P X( b 'X`SMC "GOTY XbF  X %Xrr@P5 bR#H99hT Dx 'w  ~\!m hh" rr@P`,    (X{:;*UB H X/ X h H X Xrr@P h H'h T D `) U` rk rr@P  THE SYSTEM AND PROGRAM LIBRARY DIRECTORYS WILL BE LISTED ON THE SYSTEM Lrr@PIST DEVICE h 4hT DZh )7ETcqrr@P (8HYgt"   rr@P7    *** ERROR IN TEST EXECUTIVE THE SYSTEM LOGICAL UNITS Wrr@PbILL BE LISTED ON THE SYSTEM LIST DEVICE BEGIN MSOS MONITOR TEST MSOS MONITOR TEST COrr@PMPLETE BEGIN MSOS FILE MANAGER TESTMSOS FILE MANAGER TEST COMPLETE L.U. 7 NOT A PSEUrr@PDO TAPE - TEST OMITTED BEGIN PSEUDO TAPE TEST JOB FILE REQUEST PSEUDO TAPE rr@PTEST COMPLETE BEGIN MACRO ASSEMBLER TEST ASSEMBLER EXECUTION MACRO ASSEMBLER rr@PTEST COMPLETE BEGIN LIBRARY BUILDER TEST LIBRARY BUILDER EXECUTION LIBRARY BUILDER rr@P9TEST COMPLETE BEGIN FORTRAN COMPILER TEST COMPILER EXECUTION FORTRAN COMPILrr@PdER TEST COMPLETE BEGIN FORTRAN LIBRARY TESTFORTRAN LIBRARY TEST COMPLETE BEGIN DOUBrr@PLE-PRECISION TEST DOUBLE-PRECISION TEST COMPLETE BEGIN RE-ENTRANT FORTRAN TEST RE-ENTrr@PRANT FORTRAN TEST COMPLETE FORTRAN EXECUTION INSUFFICIENT UNPROTECTED MEMORYrr@P - TEST OMITTED *** ERROR IN MULTIPROGRAMMING EXECUTION PREPARE NEXT VERIFICATION TAPErr@P READY? BEGIN MAG TAPE SIMULATOR TEST MAG TAPE SIMULATOR TEST COMPLETE BEGIN RPG COrr@P;MPILER VERIFICATION RPG COMPILER EXECUTION RPG COMPILER TEST COMPLETE BEGIN RPG rr@PfRUNTIME VERIFICATIONRPG RUNTIME COMPLETE BEGIN SORT/MERGE VERFICATIONSORT/MERGE TESrr@PT COMPLETE RUNTIME EXECUTION SORT/MERGE EXECUTION *** UNEXPECTED END Orr@PF FILEr`PPrPE17811INSTLUsJOBSTRyINPTV4:DOUT FLIST FSLISTLOG1A pLOG1 aMAXSECoSORTM%PGRUNPGTTBPGTTLrrPRNVDF!RNTDFRNVSFRNTSFRNTDBRNTSBTNTSBTNTLBTNTLAIBLDTSEMTBSEMTLTSMTFELESEGr*PUDOTBgUDOTF,ILTSTONTSTERFY1C*P J PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLUT <Х 6T . @T a'Х "rr@P+ " X X| ` h X{hrr@PVTTT$B8 ХB8 ХB8  rr@P XJ xX6 XBT,X, ` X6Tx "  X#rr@P Q n qХ\ X X  1X TT rr@P` `2`)ha 2b XT|XZV hRRQ ( XXR X rr@PX `h?T&T cX8 XX9 -, !X X h"h T& T'|Xrr@P- h ( XX XX  T `brr@PXQ XqP  ;LJ IF T  X^5hT#C1$ 0nrr@P q\(H%& Tk hT#HHTX X) WX Rrr@PW H HTP$TX TD-VERIFIED h hT Drr@P*8GUbp~    PROGRAM SCHrr@PEDULE REQUEST *** ERROR IN SCHEDULE REQUEST TIMER DELAY REQUEST *** ERROR INrr@P/ TIMER REQUEST MEASURED DELAY (30 SEC.) MEMORY SPACE REQUEST *** ERROR IN SPArr@PZCE REQUEST SPACE RELEASE REQUEST DIRECTORY SCHEDULE REQUEST *** ERROR IN DIRECTOrr@PRY SCHEDULE DISABLE-SCHEDULE REQUEST *** ERROR IN DISABLE-SCHEDULE ENABLE-SCHEDULErr@P REQUEST *** ERROR IN ENABLE-SCHEDULE PARTITIONED CORE REQUEST *** ERROR IN PARTIrD@PTION SET-UP ** ERROR IN PARTITIONED CORE REQUESTD PMONTST 2PLSTLOCLSTPRTPARTBLCOMPV4TIMCPSHVERIFY*2P J PVFDMY1 DECK-ID V03 MSOS VERIFICATION TESTS J@P rPFILTSTSUDOTFSUDOTBRELESERPGTTLRPGTTBRPGRUNFSORTMMTSMTFASEMTLASEMTBLIBLDTFTNTLAFTNTLBr:PFTNTSBFRNTSBFRNTDBFRNTSFFRNVSFFRNTDFFRNVDF:P P*T PP*Z PP*U PP*JOB,VERIFY,SYSTEM PP*LIBEDT PP*DM PP*DL PP*Z PP*U PP*JOB PP*LULIST PP*U PP*JOB PP*LIBEDT PP*M,25,,,M,N PJ P 7VERFY2 DECK-ID V01 MSOS VERIFICATION TESTS Jr@PFXbХ Ц %: h XT bb b 0b  bG q*&hrr@P+ X`4b :` `X1"^mVlNrr@PV0\bk.C{%TD,MbTR Xi bGrr@P qb bbb `d E b *E`rr@Pb `dTD  X,Xb{B X!8  XfЦЦ, Xrr@Pb XbZEXh XȀ`}HpD  i AffXP_rr@P\ XZD  X XX7 `T`UE``V@a<b bXrr@P-cX% FXX( XX" b bX*X$  XЦ Tb rr@PXUbVbk XcXB Xu  XXD  rr@P XЦwb  XUXbB XJaX X /X /rr@Pb ASSEM X. Xl/Xw X&BXo XbnD  XbdHrr@P  XX XX[ X bG qhN X3/X>Db Xu   rr@P   BX%Q Xb#H  X X f"5b rr@P/b "b ?td6c*& bK  XX T D arr@PZX ^h hX,$X'Ц/ XD XX X  X X  Xrr@P `u XY X/X XQЦBX XbD XbDrr@P  X2  X}EFTN3AAFTN3A1BXp  Xnu XblD  XbbHrr@P  XV XXW X X7X= X X.X4y X(X.s X"X(rr@Pm  X' - Xb$G  X Xz  X   bG rr@P1q STB>X 7XN X=  X ` X $' Xrr@P\ X XX X XX XXHDFLOT$  X  Xbrr@PG  X XT   Xc  X X  X X rr@P X `F X*b  X X\X X ɰ  X\ rr@PXbYG  XM X  XA  X  X4Ц Xrr@P2b f X XX  X XbG  X  Xkrr@P3  X=Db 2 /*"E *E X X;RPGII / rr@P^X X X/ X X `0 Xo bG q X/X X`rr@P X XbD  XbH  XZ !X>U "X9 9/rr@P X0 X{/ Xx XuЦ# X` Xk &X sbG q Xb^Grr@P  XS #XX )X/ XB X?Ц; $X bG qh9 X/rr@P X( b 'X`SMC "GOTY XbF  X %Xrr@P5 bR#H99hT Dx 'w  ~\!m hh" rr@P`,    (X{:;*UB H X/ X h H X Xrr@P h H'h T D `) U` rk rr@P  THE SYSTEM AND PROGRAM LIBRARY DIRECTORYS WILL BE LISTED ON THE SYSTEM Lrr@PIST DEVICE h 4hT DZh )7ETcqrr@P (8HYgt"   rr@P7    *** ERROR IN TEST EXECUTIVE THE SYSTEM LOGICAL UNITS Wrr@PbILL BE LISTED ON THE SYSTEM LIST DEVICE BEGIN MSOS MONITOR TEST MSOS MONITOR TEST COrr@PMPLETE BEGIN MSOS FILE MANAGER TESTMSOS FILE MANAGER TEST COMPLETE L.U. 7 NOT A PSEUrr@PDO TAPE - TEST OMITTED BEGIN PSEUDO TAPE TEST JOB FILE REQUEST PSEUDO TAPE rr@PTEST COMPLETE BEGIN MACRO ASSEMBLER TEST ASSEMBLER EXECUTION MACRO ASSEMBLER rr@PTEST COMPLETE BEGIN LIBRARY BUILDER TEST LIBRARY BUILDER EXECUTION LIBRARY BUILDER rr@P9TEST COMPLETE BEGIN FORTRAN COMPILER TEST COMPILER EXECUTION FORTRAN COMPILrr@PdER TEST COMPLETE BEGIN FORTRAN LIBRARY TESTFORTRAN LIBRARY TEST COMPLETE BEGIN DOUBrr@PLE-PRECISION TEST DOUBLE-PRECISION TEST COMPLETE BEGIN RE-ENTRANT FORTRAN TEST RE-ENTrr@PRANT FORTRAN TEST COMPLETE FORTRAN EXECUTION INSUFFICIENT UNPROTECTED MEMORYrr@P - TEST OMITTED *** ERROR IN MULTIPROGRAMMING EXECUTION PREPARE NEXT VERIFICATION TAPErr@P READY? BEGIN MAG TAPE SIMULATOR TEST MAG TAPE SIMULATOR TEST COMPLETE BEGIN RPG COrr@P;MPILER VERIFICATION RPG COMPILER EXECUTION RPG COMPILER TEST COMPLETE BEGIN RPG rr@PfRUNTIME VERIFICATIONRPG RUNTIME COMPLETE BEGIN SORT/MERGE VERFICATIONSORT/MERGE TESrr@PT COMPLETE RUNTIME EXECUTION SORT/MERGE EXECUTION *** UNEXPECTED END Orr@PF FILEr`PPrPE17811INSTLUsJOBSTRyINPTV4:DOUT FLIST FSLISTLOG1A pLOG1 aMAXSECoSORTM%PGRUNPGTTBPGTTLrrPRNVDF!RNTDFRNVSFRNTSFRNTDBRNTSBTNTSBTNTLBTNTLAIBLDTSEMTBSEMTLTSMTFELESEGr*PUDOTBgUDOTF,ILTSTONTSTERFY1C*P J PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLUT 4 .D XTc X   Xsrr@P XbDhh X8c( XtXc XjXc Xbrr@PX X]Xc XUXc XM H " X/(Xc X:سdrr@P Dhhh HBXc X#  Xs XؓaXL XXUcrr@P- X XZc X  Xz Xc X H  X kXc X Brr@PX H  X XXc X aDhdhd H^ Xc X'!rr@P Xs X Dh@h@ H7 X^c X  Xs XرaXXrr@PO@d]:r`P`Pr@P 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCD THIS MESSAGE IS SECOND RECORD. THIS TEXrr@PT IS THE 3RD RECORD BUFFER**  hh/B X h `  3 Xrr@P?X " q " q ]oXNXXYVgXFQXQOrr@Pj_X>JXI TD-VERIFIED h7T4444?= h$T'!rr@P&&1/ hH.T*#! hH T   hT rr@P hDXZT hHT hHTrr@P hHT HTrr@P hHT hHT  h !h 5hTrr@PA Da ({X;Hkhk B $ hQj{ 'rr@Pl8IXiw      h X h Ƞ X"rr@P h 2 A :"D 2 A :4 VALUE REQUEST INDICATOR $XXXX*** ERROR INrr@P FILE DEFINITION*** ERROR IN STORE SEQUENTIAL *** ERROR IN LOCK FILESPARE *** ERROR INrr@P UNLOCK FILE*** ERROR IN RETRIEVE SEQUENTIAL*** ERROR IN RETRIEVE INDEXED ORDERED *** rr@PERROR IN STORE DIRECT *** ERROR IN RETRIEVE DIRECT*** ERROR IN STORE INDEXED*** ERROR rr@PCIN RETRIEVE INDEXED *** ERROR IN RELEASE FILE *** ERROR IN DEFINE INDEXED *** ERROR INrr@Pn STORE INDEXED ORDERED*** ERROR IN SEQUENTIAL FILE TEXT *** ERROR IN INDEXED FILE TEXTrr@P*** ERROR IN DIRECT RETRIEVE TEXT SEQUENTIAL FILES INDEXED FILES  rR@P INDEXED ORDERED FILES INDEXED LINKED FILES R PFILTST bPRTVDIR-STODIRRTVIDO RTVIDXSTOIDXRTVSEQSTOSEQRELFILUNLFILLOKFILDEFIDXDEFFILbPFILTSTJ PSUDOTF DECK-ID V05 MSOS VERIFICATION TESTS Jr@P XhTˀˀ0Xo He Xc X]\aX^c X1XWrr@P+c X/XPr- XxXFc Xp XNX;c Xe XC0X0c XZrr@PV X8PX%c XOXf. XC H Xuc X; r0Xc X/rr@PfPXc X' HX rpXr. XDhK XCc X /Xc rr@PXDh XXf, X0Xc XTD#)rr@P hT DXH,HABCDEFGHIJKLMNOPrr@PQRSTUVWXYZ0123456789THIS IS THE 1ST TEXTTHIS IS THE SECOND TEXT ANY INFORMATION CAN GOrr@P- HERE*****TEXT THREE IS HERE,THIS IS ALSO THE LAST TEXT BUFFER****r`PXr@Pj T DXHd  h[ HTDXHM HXcrr@PXX @ " X q_{  h&)h 4hT Darr@P .X0HYhYX+H]h] B $ h`s)rr@P   h X h Ƞ X" h 2 A :"D 2 A :rr@P4 V-FIELD = $XXXX ESTAT2 = $XXXX*** ERROR IN FWRITE REQUEST *** ERROR IN FRErr@PAAD REQUEST*** ERROR IN READ REQUEST *** ERROR IN WRITE REQUEST*** ERROR IN MOTION REQUrr@PlEST *** ERROR IN BACKSPACE FROM LOAD POINT*** ERROR IN READ RECORD PAST FILE MARK *** rr@PERROR IN BACKSPACE RECORD OVER FILE MARK*** ERROR IN READ RECORD PAST END OF TAPE *** rr@PERROR IN ADVANCE RECORD OVER FILE MARK*** ERROR IN RECORD TEXT FOREGROUND REQUEST r@P -VERIFIED  PSUDOTF PLOG1A {RELFIL PSUDOTFJ PSUDOTB DECK-ID V06 MSOS VERIFICATION TESTS Jr@PH=XCHh`"}TDBj eXf_rr@P+ XB] HRHR`N a"LEB `> HT Drr@PV9a X-*% "   rr@PXvRPFIL1L2L3*U*** r`PBr@P  #), h hT Da  (-VERIFIED  *** ERrr@PROR IN VERIFICATION TEST I/O*** ERROR IN JOB FILE LISTING T D `Uc Xrr@PD 5 rDj3 q h+T Ds,c X 1H #rr@Po h X  r`P^ PSUDOTB PSUDOTBJ PRELESE DECK-ID V07 MSOS VERIFICATION TESTS Jr@P X ?hN hM hL `"Xb hGhEhCA !h=9XZ4Xe 2Xb 0X_2XXrr@P+ XE*  j7 q"XBT!"  RPFIL1RP1111RPFIL2RP2222RPFIL3RP3333rr@PVDD " H h  hTD  r*@P ` ߖ q* PRELESE PRELFIL8JBFLV4FBASV4P J PVFDMY2 DECK-ID V08 MSOS VERIFICATION TESTS J@P rPMONTSTRPGTTLRPGTTBRPGRUNFSORTMMTSMTFASEMTLASEMTBLIBLDTFTNTLAFTNTLBFTNTSBFRNTSBFRNTDBr"PFRNTSFFRNVSFFRNTDFFRNVDF"P P*T PP*Z PP*U PP*JOB PP*DEFINE,RPFIL1,RP1111,010101 PP*DEFINE,RPFIL2,RP2222,010101 PP*OPEN,RPFIL1,RP1111,W,7 PP*LGO,10 PJ PSUDOB1 DECK-ID V09 MSOS VERIFICATION TESTS Jr@P H X> a0XP HX3 r&XCX? Xn/X9TL+rr@P+c X~0X)X% XTPX XM hTLNXHc Xrr@PVVIe HT\dX Hlc X@ H h TF@hY THrr@PeXHI HXc XX @ " X qrr@P  h"%h (hTLa .XHEhE XHIhI Bprr@P"/=  h X h  X" h 2 A :"D 2 A :4 rr@P V-FIELD = $XXXX ESTAT2 = $XXXX*** ERROR IN FWRITE REQUEST *** ERROR IN FREAD REQrr@P-UEST*** ERROR IN MOTION REQUEST *** ERROR IN RECORD TEXTABCDEFGHIJKLMNOPQRSTUVWXYZ0123rr@PX456789THIS IS THE 1ST TEXTTHIS IS THE SECOND TEXT ANY INFORMATION CAN GO HERE*****TEXTrr@P THREE IS HERE,THIS IS ALSO THE LAST TEXT BUFFER****0123456789012345678901234567890123rr@P4567890123456789ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCB********************rr@P******************************THIS BUFFER CONTAINS TWO HUNDRED WORDS THE MAXIMUMRECORDrr@P LENGTH FOR A PSEUDO TAPE IS ONE HUNDRED ANDNINETY TWO WORDS THEREFORE ONLY THE FIRST rr@P/HUNDRED AND NINETY TWO WORDS SHOULD BE WRITTEN THE OTHER EIGHT WORDS SHOULD BE TRUNCArh@PZTED STARTING NEAR HEREh PSUDOB1 PSUDOB1P*T PP*CLOSE,RPFIL1,RP1111 PP*OPEN,RPFIL2,RP2222,W,7 PP*LGO,10 PJ P~SUDOB2 DECK-ID V10 MSOS VERIFICATION TESTS Jr@P H X= a0XO HX2 r&XBX> Xm/X8TD+rr@P+c X|1X)X% XTPX XM hTDMXHc XUrr@PVFb~ HT\cX Hkc X? H h TF@hX TBrr@PbXHH HXc XX @ " X q rr@P h"%h (hTLa .XHEhE XHIhI Bq,rr@P:  h X h Ƞ X" h 2 A :"D 2 A :4 Vrr@P-FIELD = $XXXX ESTAT2 = $XXXX*** ERROR IN WRITE REQUEST*** ERROR IN READ REQUEST **rr@P-* ERROR IN MOTION REQUEST *** ERROR IN RECORD TEXTTHIS IS THE 1ST TEXTABCDEFGHIJKLMNOPrr@PXQRSTUVWXYZ0123456789ANY INFORMATION CAN DO HERE*****THIS IS THE SECOND TEXT.THIS IS THrr@PE LAST TEXT BUFFER****ALSO,TEXT THREE IS HERE.0123456789012345678901234567890123456789rr@P0123456789**************************************************ABCDEFGHIJKLMNOPQRSTUVWXYZrr@PYXWVUTSRQPONMLKJIHGFEDCBTHIS BUFFER CONTAINS TWO HUNDRED WORDS THE MAXIMUMRECORD LENGTrr@PH FOR A PSEUDO TAPE IS ONE HUNDRED ANDNINETY TWO WORDS THEREFORE ONLY THE FIRST HUNDRErr@P/D AND NINETY TWO WORDS SHOULD BE WRITTEN THE OTHER EIGHT WORDS SHOULD BE TRUNCATED STrb@PZARTING NEAR HEREb PSUDOB2 PSUDOB2P*T PP*CLOSE,RPFIL2,RP2222 PP*FILTBL PP*MODIFY,RPFIL1,RP1111,RPFIL3,RP3333,010201 PP*OPEN,RPFIL3,RP3333,R,7 PP*LGO,10 PJ PSUDOB3 DECK-ID V11 MSOS VERIFICATION TESTS Jr@P/Xr- X`Xr- X HRXen. XEN X@s Xrr@P+ X8 `XupXbr. X/XYr. XPX^ HX,c X{ rr@PV1 Xr XP e5PXDb Xu   rr@P   BX%Q Xb#H  X X f"5b rr@P/b "b ?td6c*& bK  XX T D arr@PZX ^h hX,$X'Ц/ XD XX X  X X  Xrr@P `u XY X/X XQЦBX XbD XbDrr@P  X2  X}EFTN3AAFTN3A1BXp  Xnu XblD  XbbHrr@P  XV XXW X X7X= X X.X4y X(X.s X"X(rr@Pm  X' - Xb$G  X Xz  X   bG rr@P1q STB>X 7XN X=  X ` X $' Xrr@P\ X XX X XX XXHDFLOT$  X  Xbrr@PG  X XT   Xc  X X  X X rr@P X `F X*b  X X\X X ɰ  X\ rr@PXbYG  XM X  XA  X  X4Ц Xrr@P2b f X XX  X XbG  X  Xkrr@P3  X=Db 2 /*"E *E X X;RPGII / rr@P^X X X/ X X `0 Xo bG q X/X X`rr@P X XbD  XbH  XZ !X>U "X9 9/rr@P X0 X{/ Xx XuЦ# X` Xk &X sbG q Xb^Grr@P  XS #XX )X/ XB X?Ц; $X bG qh9 X/rr@P X( b 'X`SMC "GOTY XbF  X %Xrr@P5 bR#H99hT Dx 'w  ~\!m hh" rr@P`,    (X{:;*UB H X/ X h H X Xrr@P h H'h T D `) U` rk rr@P  THE SYSTEM AND PROGRAM LIBRARY DIRECTORYS WILL BE LISTED ON THE SYSTEM Lrr@PIST DEVICE h 4hT DZh )7ETcqrr@P (8HYgt"   rr@P7    *** ERROR IN TEST EXECUTIVE THE SYSTEM LOGICAL UNITS Wrr@PbILL BE LISTED ON THE SYSTEM LIST DEVICE BEGIN MSOS MONITOR TEST MSOS MONITOR TEST COrr@PMPLETE BEGIN MSOS FILE MANAGER TESTMSOS FILE MANAGER TEST COMPLETE L.U. 7 NOT A PSEUrr@PDO TAPE - TEST OMITTED BEGIN PSEUDO TAPE TEST JOB FILE REQUEST PSEUDO TAPE rr@PTEST COMPLETE BEGIN MACRO ASSEMBLER TEST ASSEMBLER EXECUTION MACRO ASSEMBLER rr@PTEST COMPLETE BEGIN LIBRARY BUILDER TEST LIBRARY BUILDER EXECUTION LIBRARY BUILDER rr@P9TEST COMPLETE BEGIN FORTRAN COMPILER TEST COMPILER EXECUTION FORTRAN COMPILrr@PdER TEST COMPLETE BEGIN FORTRAN LIBRARY TESTFORTRAN LIBRARY TEST COMPLETE BEGIN DOUBrr@PLE-PRECISION TEST DOUBLE-PRECISION TEST COMPLETE BEGIN RE-ENTRANT FORTRAN TEST RE-ENTrr@PRANT FORTRAN TEST COMPLETE FORTRAN EXECUTION INSUFFICIENT UNPROTECTED MEMORYrr@P - TEST OMITTED *** ERROR IN MULTIPROGRAMMING EXECUTION PREPARE NEXT VERIFICATION TAPErr@P READY? BEGIN MAG TAPE SIMULATOR TEST MAG TAPE SIMULATOR TEST COMPLETE BEGIN RPG COrr@P;MPILER VERIFICATION RPG COMPILER EXECUTION RPG COMPILER TEST COMPLETE BEGIN RPG rr@PfRUNTIME VERIFICATIONRPG RUNTIME COMPLETE BEGIN SORT/MERGE VERFICATIONSORT/MERGE TESrr@PT COMPLETE RUNTIME EXECUTION SORT/MERGE EXECUTION *** UNEXPECTED END Orr@PF FILEr`PPrPE17811INSTLUsJOBSTRyINPTV4:DOUT FLIST FSLISTLOG1A pLOG1 aMAXSECoSORTM%PGRUNPGTTBPGTTLrrPRNVDF!RNTDFRNVSFRNTSFRNTDBRNTSBTNTSBTNTLBTNTLAIBLDTSEMTBSEMTLTSMTFELESEGr*PUDOTBgUDOTF,ILTSTONTSTERFY1C*P J PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLUDb Xu   rr@P   BX%Q Xb#H  X X f"5b rr@P/b "b ?td6c*& bK  XX T D arr@PZX ^h hX,$X'Ц/ XD XX X  X X  Xrr@P `u XY X/X XQЦBX XbD XbDrr@P  X2  X}EFTN3AAFTN3A1BXp  Xnu XblD  XbbHrr@P  XV XXW X X7X= X X.X4y X(X.s X"X(rr@Pm  X' - Xb$G  X Xz  X   bG rr@P1q STB>X 7XN X=  X ` X $' Xrr@P\ X XX X XX XXHDFLOT$  X  Xbrr@PG  X XT   Xc  X X  X X rr@P X `F X*b  X X\X X ɰ  X\ rr@PXbYG  XM X  XA  X  X4Ц Xrr@P2b f X XX  X XbG  X  Xkrr@P3  X=Db 2 /*"E *E X X;RPGII / rr@P^X X X/ X X `0 Xo bG q X/X X`rr@P X XbD  XbH  XZ !X>U "X9 9/rr@P X0 X{/ Xx XuЦ# X` Xk &X sbG q Xb^Grr@P  XS #XX )X/ XB X?Ц; $X bG qh9 X/rr@P X( b 'X`SMC "GOTY XbF  X %Xrr@P5 bR#H99hT Dx 'w  ~\!m hh" rr@P`,    (X{:;*UB H X/ X h H X Xrr@P h H'h T D `) U` rk rr@P  THE SYSTEM AND PROGRAM LIBRARY DIRECTORYS WILL BE LISTED ON THE SYSTEM Lrr@PIST DEVICE h 4hT DZh )7ETcqrr@P (8HYgt"   rr@P7    *** ERROR IN TEST EXECUTIVE THE SYSTEM LOGICAL UNITS Wrr@PbILL BE LISTED ON THE SYSTEM LIST DEVICE BEGIN MSOS MONITOR TEST MSOS MONITOR TEST COrr@PMPLETE BEGIN MSOS FILE MANAGER TESTMSOS FILE MANAGER TEST COMPLETE L.U. 7 NOT A PSEUrr@PDO TAPE - TEST OMITTED BEGIN PSEUDO TAPE TEST JOB FILE REQUEST PSEUDO TAPE rr@PTEST COMPLETE BEGIN MACRO ASSEMBLER TEST ASSEMBLER EXECUTION MACRO ASSEMBLER rr@PTEST COMPLETE BEGIN LIBRARY BUILDER TEST LIBRARY BUILDER EXECUTION LIBRARY BUILDER rr@P9TEST COMPLETE BEGIN FORTRAN COMPILER TEST COMPILER EXECUTION FORTRAN COMPILrr@PdER TEST COMPLETE BEGIN FORTRAN LIBRARY TESTFORTRAN LIBRARY TEST COMPLETE BEGIN DOUBrr@PLE-PRECISION TEST DOUBLE-PRECISION TEST COMPLETE BEGIN RE-ENTRANT FORTRAN TEST RE-ENTrr@PRANT FORTRAN TEST COMPLETE FORTRAN EXECUTION INSUFFICIENT UNPROTECTED MEMORYrr@P - TEST OMITTED *** ERROR IN MULTIPROGRAMMING EXECUTION PREPARE NEXT VERIFICATION TAPErr@P READY? BEGIN MAG TAPE SIMULATOR TEST MAG TAPE SIMULATOR TEST COMPLETE BEGIN RPG COrr@P;MPILER VERIFICATION RPG COMPILER EXECUTION RPG COMPILER TEST COMPLETE BEGIN RPG rr@PfRUNTIME VERIFICATIONRPG RUNTIME COMPLETE BEGIN SORT/MERGE VERFICATIONSORT/MERGE TESrr@PT COMPLETE RUNTIME EXECUTION SORT/MERGE EXECUTION *** UNEXPECTED END Orr@PF FILEr`PPrPE17811INSTLUsJOBSTRyINPTV4:DOUT FLIST FSLISTLOG1A pLOG1 aMAXSECoSORTM%PGRUNPGTTBPGTTLrrPRNVDF!RNTDFRNVSFRNTSFRNTDBRNTSBTNTSBTNTLBTNTLAIBLDTSEMTBSEMTLTSMTFELESEGr*PUDOTBgUDOTF,ILTSTONTSTERFY1C*P J PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLU[7Bzs , H/ 2h 7hT Da  4 rr@P1n 1 %hhX hT D RlAP^m~rr@P-VERIFIED *** ERROR IN LISTING LINE 0000*** ERROR IN CROSS-REFERENCE*** ERROR rr@PIIN BINARY XXX BLOCK*** ERROR IN VERIFICATION TEST I/O PROGRAM LISTING  PROrr@PtGRAM CROSS-REFERENCE PROGRAM BINARY OUTPUT T D `~c XArr@P TD 5 rDj3 q h+T Ds,c X 1rr@PH # h X  r`Per@PZ h X}hT D<|c Xn1Df"iX!~^rr@P P " N`AM.020E0 I  E`NT0 ;  E`XT rr@P0 X)  X`FRH5hh0 @ 8 b @  R`BD @ rr@P8 b @   B`ZST D <+c X ޺r@P X qUPASEMTLASEMTBZPASSEMTJ PLIBLDT DECK-ID V14 MSOS VERIFICATION TESTS Jr@P HX XX%H7h7`"2X+B $ XB Hrr@P+RH` a" Xj*Ur`PVMr@P H+ .h /hT Da  4 1hX hT D rr@Pj<5GX-VERIFIED *** ERROR IN LIBRARY BUILDER OUTPUT *** ERROR rr@PIN VERIFICATION TEST I/O LIBRARY BUILDER OUTPUT T D `-c Xrr@P$ TD DhHH rDjF q h>T Ds?c X]BH1/ 1rr@PO,('H%% P 0 h #" h X  rr@Pzr`PO PLIBLDT PLIBLDTJ PDFTNTST DECK-ID V15 MSOS VERIFICATION TESTS Jr@P T hHX XXHMhM`"HXB;46  d1rr@P++  h& % XXB HRH` a"  Xrr@PV*Ur`P>r@P @Ș 0F0I @ Ȉ hȈh =o{rr@P W-dw61HX`=o{ W-drr@Pw61HX` H/ 2h 6hT Da  4 1! 1 %rr@P@hX hT D ]?N]l}-VERIFIED *** rr@PkERROR IN LISTING LINE 0000*** ERROR IN PROGRAM REFERENCE*** ERROR IN BINARY XXX BLOCKrr@P*** ERROR IN VERIFICATION TEST I/O PROGRAM LISTING PROGRAM BINARY OUTPUT rr@P T D `~c XP TD 5 rDj3 q h+T Drr@Ps,c X, 1H # h X  r`Pxr@P hm XhT D<|c X}1Df"iX!I^rr@P P " N`AM.020E0 I  E`NT0 ;  E`XT rr@P0 X8  X`FRH5hh0 @ 8 b @  R`BD @ rr@P8 b @   B`ZST D <+c X ޺r@P; X qUPFTNTLAFTNTLBFTNTSBPFTNTSTJ P&FRNBAK DECK-ID V16 MSOS VERIFICATION TESTS Jr@P h? h" @  A--<Kpn@PVZlxsB!gOV]+0?ow  n`P`P`Pn@PT  T MESSAGE IN ASCII FORMAT a?)2' e a  hn@P0pz00@P @P0 @PPASSEMD"PGNTABINPTV4LOG1A }LOG1 "PASSEMDP*U PP*JOB PP*LIBILD PP PP9 PP PP10 PP PP10 PJ PPROGM2 DECK-ID 1 J @P PPROGM2J PPROGM1 DECK-ID 1 J @P PPROGM1J PPROGM1 DECK-ID 1 J @P PPROGM1J PPROGM1 DECK-ID 2 J @P PPROGM1P*END PP*COMMENT PP*B 'PROGM1' ' DECK-ID 1' PP*B 'PROGM2' ' DECK-ID 1' PP*B 'PROGM2' ' DECK-ID 2' PP*END PP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 DATE OF RUN: 04/01/75 SYSTEM ID: RELEASE PROCEDURES VERIFY 2 (03/31/75) *LIBILD DEFS LU = INSTALL LU = 9 NEWLIB LU = LIB 01 LU = 10LIB 02 LU = SKELETON LU = 10 0001 PROGM2 DECK-ID 1 0002 PROGM1 DECK-ID 1 0003 PROGM1 DECK-ID 1 *** LAST DECK REJECTED - NOT UNIQUE 0004 PROGM1 DECK-ID 2 0005 *END 0001 *COMMENT*COMMENT 0002 PROGM1 DECK-ID 1 PPROGM1 DECK-ID 1 @PPPROGM1 0003 PROGM2 DECK-ID 1 PPROGM2 DECK-ID 1 @PPPROGM2 *** PROGRAM HAVING THIS ID INFO NOT FOUND. *** *B 'PROGM2' ' DECK-ID 2' 0004 *END*END P*U PP*JOB PP*FTN PP OPT LXCO PP PROGRAM FTNMAY PPC MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 1 PPC 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 PPC SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA PPC COPYRIGHT CONTROL DATA CORPORATION 1975 PPC PPC THIS PROGRAM IS DESIGNED TO EXERCISE PPC THE FORTRAN COMPILER AND IS NON-EXECUTABLE PPC FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNMAY COMPILATION PPC PPC PPC EXTERNAL STATEMENT PPC PP EXTERNAL FTNSUB,FTNFCN PPC PPC RELATIVE STATEMENT PPC PP RELATIVE REL1,REL2,REL3,BLKDAT PPC PPC TYPE STATEMENT PPC PP INTEGER AINT1,BINT2,CINT3,GINT7(5),HINT8, PP 1IINT9,JINT10,FINT6 PP REAL AREAL1,BREAL2,CREAL3(3,3),IREAL1,JREAL2, PP 1KREAL3(9) PPO DOUBLE PRECISION MDBL1,NDBL2,ODBL3,PDBL4(3,5), PP 1QDBL5,RDBL6,SDBL7,TDBL8(2,4),UDBL9,VDBL10,WDBL11 PP SINGLE DINT4,EINT5,KINT11 PPC PPC DIMENSION STATEMENT PPC PP DIMENSION LINT12(5),QDBL5(2,3,4),AINT1(10), PP 1AREAL1(3,4),FINT6(5) PPC PPC BYTE AND SIGNED BYTE STATEMENT PPC PP BYTE (FINT6,LINT12(1)(13=6)) PP SIGNED BYTE (HINT8,GINT7(3)(7=0)) PPC PPC COMMON STATEMENT PPC PP COMMON /LABEL/AREAL1,EINT5,MINT13(12),P4BL4 PP COMMON /LABEL/HREAL8,WDBL11 PP COMMON //BREAL2(2,2,2),BINT2,QDBL5 PP COMMON AINT1,VDBL10(10),EREAL5 PPC PPC DATA STATEMENT PPC PPO DATA (GINT7(J),J=1,5)/$FDB9,$DB97,$B975,$9753,$7531/ PP DATA ((CREAL3(I,J),I=1,3),J=1,3)/3567.508,1.2, PP 15286.3254,98.6,110.9,0.000050,.1,1056.3219,36500000.0/ PP DATA MDBL1/345.67D-03/,NDBL2/.34567D+5/, PP 1ODBL3/34567.D-05/ PPC PPC EQUIVALENCE STATEMENT PPC PP EQUIVALENCE (DREAL4,KREAL3(8)) PP EQUIVALENCE (AINT1(6),LINT12(1)),(MDBL1,NDBL2) PPC PPC STATEMENT FUNCTION,INTRINSIC FUNCTION,EXTERNAL PPC FUNCTION,FUNCTION SUBPROGRAM CALL PPC PP MYFUNC (I,J,DREAL4,EREAL5,RDBL6) = PP 1DFLT(ABS(I))*RDBL6/(SIN(EREAL5))**2 PP 2+ALOG(DREAL4)-SQRT(J)+FTNFCN(DREAL4,EREAL5,FREAL6,BINT2,CINT3, PP 3AINT1(5)) PPC PPC ASSIGNMENT STATEMENT PPC PP10 I = LINT12(1)+LINT12(2)-LINT12(3)*BREAL2(1,2,1)/.005 PP 1**2 PP20 WDBL11 = (TDBL8(2,2)*(I/5)+365.568)/LINT12(3)**2+MYFUNC(I, PP 1J,DREAL4,EREAL5,RDBL6) PPC PPC LOGICAL IF,RELATIONAL EXPRESSIONS,UNCONDITIONAL GO TO, PPC LABLED ASSIGNMENT,SUBROUTINE CALL,FORMATTED WRITE,STOP, PPC LOGICAL EXPRESSIONS,PAUSE PPC PP30 IF (I.EQ.LINT12(4)) GO TO 40 PP40 IF (I.NE.LINT12(4)) J = I+1 PP50 IF (LINT12(5).GT.J) ASSIGN 800 TO IFORM PP60 IF (J.GE.I) CALL FTNSUB(25,AREAL1,MDBL1) PP70 IF (J.LT.I) WRITE (4,600) PP80 IF (3.LE.AREAL1) STOP 6 PP90 IF (.NOT.(I.EQ.LINT12(4)).AND.(LINT12(5).GT.J).OR. PP 1(J.LT.3)) PAUSE 7 PPC PPC FORMAT STATEMENT PPC PP500 FORMAT (//5F10.5,E10.2/15D11.7,3(I10,$4),2Z3,2A2,R1/) PP600 FORMAT (1H0,22HREPLACE THIS STATEMENT,5X, PP 1*COMMENT '1'*,'COMMENT *2*') PP700 FORMAT (I8) PP800 FORMAT (1H1,F6.4) PP900 FORMAT (/D17.10) PPC PPC RELEASE STATEMENT PPC PP CALL RELESE (FTNMAY) PPC PPC END STATEMENT PPC PP END PP OPT LXARCOV PP SUBROUTINE FTNSUB (I,LREAL4,XDBL12) PPC MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 2 PPC 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 PPC SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA PPC COPYRIGHT CONTROL DATA CORPORATION 1975 PPC PPC THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER PPC FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNSUB COMPILATION PP REAL IREAL4 PP DOUBLE PRECISION XDBL12 PP SINGLE I,IBUF(58),IDAT(3),INUM,ITEMP(8) PP DATA (IDAT(I),I =1,3)/$0023,$FFFE,$001A/,INUM/5/ PPC PPC SETBFR,FORMATTED WRITE,IOERR,IRWERR PPC PP1 CALL SETBFR (IBUF,58) PPO WRITE (I,100)(IDAT(I),I=1,3),INUM PP IF (IOERR(0).EQ.-1) GO TO 50 PP JERROR = IRWERR(0) PPC PPC CHARACTER CONVERSION PPC PP50 CALL HEXASC(I,IBUF(1)) PP55 CALL HEXDEC(I,IBUF(1)) PP60 CALL ASCII(IBUF(1),I) PP65 CALL DECHEX(IBUF(1),I) PP70 CALL AFORM(IBUF(1),IDAT) PP CALL RFORM(IBUF(1),IDAT) PP CALL FLOATG(LREAL4,IBUF(1)) PPC PPC INPUT/OUTPUT PPC PP CALL OUTINS(IDAT) PP CALL INPINS(IDAT) PP CALL ICONCT(IDAT) PP CALL OCONCT(IDAT) PPC PPC FORTRAN/MONITOR INTERFACE PPC PP IFLAG = $0011 PP ASSIGN 75 TO ICOMP PP CALL FWRITE ($18FB,IBUF(1),40,ICOMP,IFLAG,ITEMP(1)) PP CALL DISPAT PP75 CALL SCHEDL (80,$1,I,ITEMP) PP CALL DISPAT PP CALL TIMER (1,$21,5,ITEMP) PP CALL DISPAT PP80 N = LINK(0) PP K = ICLOCK(0) PPC PPC ENCODE/DECODE PPC PP ASSIGN 99 TO IFORM PP CALL ENCODE (IBUF,IFORM,3,IDAT) PP IFLAG = DECODE (IBUF,IFORM,3,IDAT) PP RETURN PP99 FORMAT (I3) PP100 FORMAT (/3I2,10H TERMINAL ,I2,11H TERMINATED) PP END PP OPT LXMVC PP REAL FUNCTION FTNFCN (A1,A2,A3,I1,I2,I3) PPC MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 3 PPC 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 PPC SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA PPC COPYRIGHT CONTROL DATA CORPORATION 1975 PPC PPC THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER PPC FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNFCN COMPILATION PP SINGLE LENGTH,BUFFER(50),ITEMP PPC PPC ASSEMBLY CODE,CONTINUE STATEMENT PPC PP ASSEM .15,$C8FE,$6400,+I1,$6400,ITEMP PP ASSEM .16,$54F4,*,$0901,*17,$0,$08F9,*(LENGTH),*BUFFER(1) PP17 CONTINUE PPC PPC ASSIGNED GO TO,COMPUTED GO TO PPC PP GO TO I3,(20,30,40,50,60) PP GO TO (20,30,40,50,60),I2 PPC PPC ARITHMETIC IF PPC PP20 IF (A1/A2) 30,40,50 PPC PPC PAUSE STATEMENT PPC PP30 PAUSE 30 PPC PPC DO LOOP,UNFORMATTED READ,UNFORMATTED WRITE PPC PP40 DO 45 J =1,50,1 PP READ (1) (BUFFER(I), I =1,50) PP WRITE (3) (BUFFER(I), I =1,50,1) PP45 CONTINUE PP50 DO 59 M =I2,1,-1 PP DO 58 N =1,20,5 PP A3 = FLOAT(M+N)+A3 PP58 CONTINUE PP59 CONTINUE PPC PPC OPEN MASS STORAGE FILE PPC PP60 OPEN 2,1,200,8,1 PPC PPC FORMATTED READ AND WRITE STATEMENTS PPC PP70 READ (6,200) (BUFFER(I),I=1,50) PP WRITE (8,200) (BUFFER(I),I=1,50) PPC PPC TAPE CONTROL,BACKSPACE,ENDFILE,REWIND PPC PP BACKSPACE 6 PP ENDFILE 6 PP REWIND 6 PPC PPC FUNCTION VALUE RETURN PPC PP FTNFCN = A3+A1/FLOAT(BUFFER(20)) PP RETURN PPC PP200 FORMAT (50(1X,I2)) PP END PP OPT LXKVCO PP BLOCK DATA PPC MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 4 PPC 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 PPC SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA PPC COPYRIGHT CONTROL DATA CORPORATION 1975 PPC PPC THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER PPC FTNTST VERIFIES LIST AND BINARY OUTPUT OF BLOCK DATA COMPILATION PPO COMMON /ENTER/A,C,D,I,K PP DIMENSION A(4),B(4),C(5),D(2),I(3),J(3),K(2) PP EQUIVALENCE (A,B),(I,J) PP DATA A(1),A(2),A(3),A(4)/1.1,2.2,3.3,4.4/,C(1),C(2),C(3),C(4),C(5) PP */1.1,2.2,3.3,4.4,5.5/,D(1),D(2)/10.1,10.2/,I(1),I(2),I(3),K(1), PP *K(2)/1,2,3,4,5/ PP END PP MON PP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: 01/11/77 SYSTEM ID: MSOS ORDER SYSTEM - 65 K (12/17/76) *FTN FTN 3.3A (OPT = LXCO) FTNMAY PAGE 1 DATE: 01/11/77 TIME: 1148 1 PROGRAM FTNMAY C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 1 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS PROGRAM IS DESIGNED TO EXERCISE C THE FORTRAN COMPILER AND IS NON-EXECUTABLE C FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNMAY COMPILATION C C C EXTERNAL STATEMENT C 2 EXTERNAL FTNSUB,FTNFCN C C RELATIVE STATEMENT C 3 RELATIVE REL1,REL2,REL3,BLKDAT C C TYPE STATEMENT C 4 INTEGER AINT1,BINT2,CINT3,GINT7(5),HINT8, 4 1IINT9,JINT10,FINT6 5 REAL AREAL1,BREAL2,CREAL3(3,3),IREAL1,JREAL2, 5 1KREAL3(9) O 6 DOUBLE PRECISION MDBL1,NDBL2,ODBL3,PDBL4(3,5), 6 1QDBL5,RDBL6,SDBL7,TDBL8(2,4),UDBL9,VDBL10,WDBL11 7 SINGLE DINT4,EINT5,KINT11 C C DIMENSION STATEMENT C 8 DIMENSION LINT12(5),QDBL5(2,3,4),AINT1(10), 8 1AREAL1(3,4),FINT6(5) C C BYTE AND SIGNED BYTE STATEMENT C 9 BYTE (FINT6,LINT12(1)(13=6)) 10 SIGNED BYTE (HINT8,GINT7(3)(7=0)) C C COMMON STATEMENT C 11 COMMON /LABEL/AREAL1,EINT5,MINT13(12),P4BL4 12 COMMON /LABEL/HREAL8,WDBL11 13 COMMON //BREAL2(2,2,2),BINT2,QDBL5 14 COMMON AINT1,VDBL10(10),EREAL5 C C DATA STATEMENT C O 15 DATA (GINT7(J),J=1,5)/$FDB9,$DB97,$B975,$9753,$7531/ 16 DATA ((CREAL3(I,J),I=1,3),J=1,3)/3567.508,1.2, 16 15286.3254,98.6,110.9,0.000050,.1,1056.3219,36500000.0/ 17 DATA MDBL1/345.67D-03/,NDBL2/.34567D+5/, 17 1ODBL3/34567.D-05/ C FTN 3.3A (OPT = LXCO) FTNMAY PAGE 2 DATE: 01/11/77 TIME: 1148 C EQUIVALENCE STATEMENT C 18 EQUIVALENCE (DREAL4,KREAL3(8)) 19 EQUIVALENCE (AINT1(6),LINT12(1)),(MDBL1,NDBL2) C C STATEMENT FUNCTION,INTRINSIC FUNCTION,EXTERNAL C FUNCTION,FUNCTION SUBPROGRAM CALL C 20 MYFUNC (I,J,DREAL4,EREAL5,RDBL6) = 20 1DFLT(ABS(I))*RDBL6/(SIN(EREAL5))**2 20 2+ALOG(DREAL4)-SQRT(J)+FTNFCN(DREAL4,EREAL5,FREAL6,BINT2,CINT3, 20 3AINT1(5)) C C ASSIGNMENT STATEMENT C 21 10 I = LINT12(1)+LINT12(2)-LINT12(3)*BREAL2(1,2,1)/.005 21 1**2 22 20 WDBL11 = (TDBL8(2,2)*(I/5)+365.568)/LINT12(3)**2+MYFUNC(I, 22 1J,DREAL4,EREAL5,RDBL6) C C LOGICAL IF,RELATIONAL EXPRESSIONS,UNCONDITIONAL GO TO, C LABLED ASSIGNMENT,SUBROUTINE CALL,FORMATTED WRITE,STOP, C LOGICAL EXPRESSIONS,PAUSE C 23 30 IF (I.EQ.LINT12(4)) GO TO 40 24 40 IF (I.NE.LINT12(4)) J = I+1 25 50 IF (LINT12(5).GT.J) ASSIGN 800 TO IFORM 26 60 IF (J.GE.I) CALL FTNSUB(25,AREAL1,MDBL1) 27 70 IF (J.LT.I) WRITE (4,600) 28 80 IF (3.LE.AREAL1) STOP 6 29 90 IF (.NOT.(I.EQ.LINT12(4)).AND.(LINT12(5).GT.J).OR. 29 1(J.LT.3)) PAUSE 7 C C FORMAT STATEMENT C 30 500 FORMAT (//5F10.5,E10.2/15D11.7,3(I10,$4),2Z3,2A2,R1/) 31 600 FORMAT (1H0,22HREPLACE THIS STATEMENT,5X, 31 1*COMMENT '1'*,'COMMENT *2*') 32 700 FORMAT (I8) 33 800 FORMAT (1H1,F6.4) 34 900 FORMAT (/D17.10) C C RELEASE STATEMENT C 35 CALL RELESE (FTNMAY) C C END STATEMENT C 36 END FTN 3.3A (OPT = LXCO) FTNMAY PAGE 3 DATE: 01/11/77 TIME: 1148 COMMON LABEL $002C ( 44) BLANK $0083 ( 131) PROGRAM LENGTH $01CD ( 461) EXTERNALS Q8QFIX HFLOT Q8QF2I Q8QI2F Q8STP Q8STPN Q8PSEN Q8PKUP Q8PREP Q8QINI HDFLOT FLOAT DFLT DBLE FTNSUB FTNFCN ABS SIN ALOG SQRT RELESE FTN 3.3A (OPT = LXCO) FTNMAY PAGE 4 DATE: 01/11/77 TIME: 1148 ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : 0002 (2) 007C 20,21,22 0003 (3) 0086 28,29 0005 (5) 0081 22,25,29 0019 (25) 0085 26 3C51 EB85 007F 21 44DB 645A 0082 22 VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : AINT1 INTEGER 0059 C 1,8,14,19,20 AREAL1 REAL 0000 D 1,8,11,26,28 BINT2 INTEGER 0010 C 1,13,20 BREAL2 REAL 0000 C 1,13,21 CINT3 INTEGER 0002 1,20 CREAL3 REAL 0008 1,16 DREAL4 REAL 0028 17,20,22 EINT5 INTEGER 0018 D 1,11 EREAL5 REAL 0081 C 14,20,22 FINT6 INTEGER 005E C 1,8,9 FREAL6 REAL 007D 20 GINT7 INTEGER 0003 1,10,15 HINT8 INTEGER 0005 1,10 HREAL8 REAL 0027 D 11 I INTEGER 007B 16,16,20,21,22,23,24,26,27,29 IFORM INTEGER 0084 25 J INTEGER 007A 15,15,16,20,22,24,25,26,27,29 KREAL3 REAL 001A 1,18 LINT12 INTEGER 005E C 1,9,19,21,22,23,24,25,29 MDBL1 DBLE.PREC. 002C 1,17,19,26 MINT13 INTEGER 0019 D 11 MYFUNC STAT.FN. 00DB 19,22 NDBL2 DBLE.PREC. 002C 1,17,19 ODBL3 DBLE.PREC. 002F 1,17 P4BL4 REAL 0025 D 11 PDBL4 DBLE.PREC. 0032 1 QDBL5 DBLE.PREC. 0011 C 1,8,13 RDBL6 DBLE.PREC. 005F 1,20,22 TDBL8 DBLE.PREC. 0062 1,22 VDBL10 DBLE.PREC. 0063 C 1,14 WDBL11 DBLE.PREC. 0029 D 1,12,22 FTN 3.3A (OPT = LXCO) FTNMAY PAGE 5 DATE: 01/11/77 TIME: 1148 EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : ABS REAL.FN. 00BB 20 ALOG REAL.FN. 009A 20 DBLE DBL.PRC.FN. 00A2 DFLT DBL.PRC.FN. 00C1 20 FLOAT REAL.FN. 00FB FTNSUB SUBROUTINE 0161 1,26 HDFLOT DBL.PRC.FN. 00A5 HFLOT REAL.FN. 0090 Q8PKUP INTEGER.FN. 00E5 Q8PREP INTEGER.FN. 00E2 Q8PSEN INTEGER.FN. 0192 Q8QF2I REAL.FN. 00AF Q8QFIX INTEGER.FN. 00C9 Q8QI2F INTEGER.FN. 011C Q8QINI INTEGER.FN. 016C Q8STP INTEGER.FN. 01F1 Q8STPN INTEGER.FN. 017E RELESE SUBROUTINE 01EE 33 SIN REAL.FN. 00A9 20 SQRT REAL.FN. 0094 20 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : 10 00F4 20 20 010E 21 30 013E 22 40 0145 23,24 50 014F 24 60 015A 25 70 0165 26 80 0171 27 90 0180 28 500 01A2 29 600 01BB 27,31 700 01DD 31 800 01E1 25,33 900 01E8 33 FTNMAY 0000 1,35 FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 1 DATE: 01/11/77 TIME: 1151 1 SUBROUTINE FTNSUB (I,LREAL4,XDBL12) C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 2 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER C FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNSUB COMPILATION 2 REAL IREAL4 3 DOUBLE PRECISION XDBL12 4 SINGLE I,IBUF(58),IDAT(3),INUM,ITEMP(8) 5 DATA (IDAT(I),I =1,3)/$0023,$FFFE,$001A/,INUM/5/ C C SETBFR,FORMATTED WRITE,IOERR,IRWERR C 6 1 CALL SETBFR (IBUF,58) O 7 WRITE (I,100)(IDAT(I),I=1,3),INUM 8 IF (IOERR(0).EQ.-1) GO TO 50 9 JERROR = IRWERR(0) C C CHARACTER CONVERSION C 10 50 CALL HEXASC(I,IBUF(1)) 11 55 CALL HEXDEC(I,IBUF(1)) 12 60 CALL ASCII(IBUF(1),I) 13 65 CALL DECHEX(IBUF(1),I) 14 70 CALL AFORM(IBUF(1),IDAT) 15 CALL RFORM(IBUF(1),IDAT) 16 CALL FLOATG(LREAL4,IBUF(1)) C C INPUT/OUTPUT C 17 CALL OUTINS(IDAT) 18 CALL INPINS(IDAT) 19 CALL ICONCT(IDAT) 20 CALL OCONCT(IDAT) C C FORTRAN/MONITOR INTERFACE C 21 IFLAG = $0011 22 ASSIGN 75 TO ICOMP 23 CALL FWRITE ($18FB,IBUF(1),40,ICOMP,IFLAG,ITEMP(1)) 24 CALL DISPAT 25 75 CALL SCHEDL (80,$1,I,ITEMP) 26 CALL DISPAT 27 CALL TIMER (1,$21,5,ITEMP) 28 CALL DISPAT 29 80 N = LINK(0) 30 K = ICLOCK(0) C C ENCODE/DECODE C 31 ASSIGN 99 TO IFORM 32 CALL ENCODE (IBUF,IFORM,3,IDAT) FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 2 DATE: 01/11/77 TIME: 1151 33 IFLAG = DECODE (IBUF,IFORM,3,IDAT) 34 RETURN 35 99 FORMAT (I3) 36 100 FORMAT (/3I2,10H TERMINAL ,I2,11H TERMINATED) 37 END FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 3 DATE: 01/11/77 TIME: 1151 0000 0000 NAM FTNSUB .00001 0000 0001 0001$ NUM 1 0001 0000 0000$ NUM 0 0002 003A IBUF BSS 58 003C 0003 IDAT BSS 3 003F 0001 INUM BSS 1 0040 0008 ITEMP BSS 8 0048 003A 003A$ NUM 58 0049 0003 0003$ NUM 3 004A 0001 JERROR BSS 1 004B 0001 IFLAG BSS 1 004C 0001 ICOMP BSS 1 004D 18FB 18FB$ NUM 6395 004E 0028 0028$ NUM 40 004F 0050 0050$ NUM 80 0050 0021 0021$ NUM 33 0051 0005 0005$ NUM 5 0052 0001 N BSS 1 0053 0001 K BSS 1 0054 0001 IFORM BSS 1 0055 5802 .00002 RTJ* .00005 0056 FFA9 ADC .00001 0057 0001 .00005 BSS 1 0058 C8FE LDA* .00005 0059 88FC ADD* .00005 -1 005A 68FC STA* .00005 5 003C 003C ORG IDAT 003C 0023 NUM 35 003D FFFE NUM -1 003E 001A NUM 26 003F 0005 NUM 5 6 005B 0A02 1 ENA 2 005C 5400 RTJ+ SETBFR 005D 7FFF 005E FFA3 ADC IBUF 005F FFE8 ADC 003A$ 7 0060 0A04 ENA 4 0061 5400 RTJ+ Q8QINI 0062 7FFF 0063 5A00 NUM 23040 0064 0007 NUM 7 0065 0000 .00006 ADC .00006 0066 80A0 ADC 100 7 0067 0A01 ENA 1 0068 6CFC STA* (.00006) 7 0069 CCFB .00007 LDA* (.00006) 006A 8000 ADD IDAT -1 006B 003B 006C 88EA ADD* .00005 006D 6804 STA* .00008 006E 0A01 ENA 1 006F 5400 RTJ+ Q8QX 0070 7FFF FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 4 DATE: 01/11/77 TIME: 1151 0071 0001 .00008 BSS 1 7 0072 DCF2 RAO* (.00006) 0073 0A03 ENA 3 0074 9CF0 SUB* (.00006) 0075 0131 SAM 1 0076 18F2 JMP* .00007 7 0077 0A01 ENA 1 0078 5CF7 RTJ* (Q8QX ) 0079 FFC5 ADC INUM 7 007A 0A00 ENA 0 007B 5400 RTJ+ Q8QEND 007C 7FFF 8 007D 0A01 ENA 1 007E 5400 RTJ+ IOERR 007F 7FFF 0080 FF80 ADC 0000$ 0081 0901 INA 1 0082 0105 SAZ 5 9 0083 0A01 .00009 ENA 1 0084 5400 RTJ+ IRWERR 0085 7FFF 0086 FF7A ADC 0000$ 0087 68C2 STA* JERROR 10 0088 0A02 50 ENA 2 0089 5400 RTJ+ HEXASC 008A 7FFF 008B 0000 ADC .00006 008C FF75 ADC IBUF 11 008D 0A02 55 ENA 2 008E 5400 RTJ+ HEXDEC 008F 7FFF 0090 0000 ADC .00006 0091 FF70 ADC IBUF 12 0092 0A02 60 ENA 2 0093 5400 RTJ+ ASCII 0094 7FFF 0095 FF6C ADC IBUF 0096 0000 ADC .00006 13 0097 0A02 65 ENA 2 0098 5400 RTJ+ DECHEX 0099 7FFF 009A FF67 ADC IBUF 009B 0000 ADC .00006 14 009C 0A02 70 ENA 2 009D 5400 RTJ+ AFORM 009E 7FFF 009F FF62 ADC IBUF 00A0 FF9B ADC IDAT 15 00A1 0A02 ENA 2 00A2 5400 RTJ+ RFORM 00A3 7FFF 00A4 FF5D ADC IBUF 00A5 FF96 ADC IDAT 16 00A6 0A02 ENA 2 FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 5 DATE: 01/11/77 TIME: 1151 00A7 5400 RTJ+ FLOATG 00A8 7FFF 00A9 0000 .0000A ADC .0000A 00AA FF57 ADC IBUF 17 00AB 0A01 ENA 1 00AC 5400 RTJ+ OUTINS 00AD 7FFF 00AE FF8D ADC IDAT 18 00AF 0A01 ENA 1 00B0 5400 RTJ+ INPINS 00B1 7FFF 00B2 FF89 ADC IDAT 19 00B3 0A01 ENA 1 00B4 5400 RTJ+ ICONCT 00B5 7FFF 00B6 FF85 ADC IDAT 20 00B7 0A01 ENA 1 00B8 5400 RTJ+ OCONCT 00B9 7FFF 00BA FF81 ADC IDAT 21 00BB 0A11 ENA 17 00BC 688E STA* IFLAG 22 00BD C000 LDA 75 00BE 00CD 00BF 8897 ADD* .00005 00C0 688B STA* ICOMP 23 00C1 0A06 ENA 6 00C2 5400 RTJ+ FWRITE 00C3 7FFF 00C4 FF88 ADC 18FB$ 00C5 FF3C ADC IBUF 00C6 FF87 ADC 0028$ 00C7 FF84 ADC ICOMP 00C8 FF82 ADC IFLAG 00C9 FF76 ADC ITEMP 24 00CA 0A00 ENA 0 00CB 5400 RTJ+ DISPAT 00CC 7FFF 25 00CD 0A04 75 ENA 4 00CE 5400 RTJ+ SCHEDL 00CF 7FFF 00D0 FF7E ADC 0050$ 00D1 FF2E ADC 0001$ 00D2 0000 ADC .00006 00D3 FF6C ADC ITEMP 26 00D4 0A00 ENA 0 00D5 5CF6 RTJ* (DISPAT) 27 00D6 0A04 ENA 4 00D7 5400 RTJ+ TIMER 00D8 7FFF 00D9 FF26 ADC 0001$ 00DA FF75 ADC 0021$ 00DB FF75 ADC 0005$ 00DC FF63 ADC ITEMP FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 6 DATE: 01/11/77 TIME: 1151 28 00DD 0A00 ENA 0 00DE 5CED RTJ* (DISPAT) 29 00DF 0A01 80 ENA 1 00E0 5400 RTJ+ LINK 00E1 7FFF 00E2 FF1E ADC 0000$ 00E3 6800 STA N 00E4 FF6D 30 00E5 0A01 ENA 1 00E6 5400 RTJ+ ICLOCK 00E7 7FFF 00E8 FF18 ADC 0000$ 00E9 6800 STA K 00EA FF68 31 00EB C000 LDA 99 00EC 0104 00ED 8800 ADD .00005 00EE FF68 00EF 6800 STA IFORM 00F0 FF63 32 00F1 0A04 ENA 4 00F2 5400 RTJ+ ENCODE 00F3 7FFF 00F4 FF0D ADC IBUF 00F5 FF5E ADC IFORM 00F6 FF52 ADC 0003$ 00F7 FF44 ADC IDAT 33 00F8 0A04 ENA 4 00F9 5400 RTJ+ DECODE 00FA 7FFF 00FB FF06 ADC IBUF 00FC FF57 ADC IFORM 00FD FF4B ADC 0003$ 00FE FF3D ADC IDAT 00FF 5400 RTJ+ HFLOT 0100 7FFF 34 0101 5140 NUM 20800 0102 FF48 ADC IFLAG 0103 1816 JMP* .00000 35 0104 0002 99 BSS 2 0104 0104 ORG 99 0104 2849 NUM 10313 0105 3329 NUM 13097 36 0106 0013 100 BSS 19 0106 0106 ORG 100 0106 282F NUM 10287 0107 3349 NUM 13129 0108 322C NUM 12844 0109 3130 NUM 12592 010A 4820 NUM 18464 010B 5445 NUM 21573 010C 524D NUM 21069 010D 494E NUM 18766 010E 414C NUM 16716 FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 7 DATE: 01/11/77 TIME: 1151 010F 202C NUM 8236 0110 4932 NUM 18738 0111 2C31 NUM 11313 0112 3148 NUM 12616 0113 2054 NUM 8276 0114 4552 NUM 17746 0115 4D49 NUM 19785 0116 4E41 NUM 20033 0117 5445 NUM 21573 0118 4429 NUM 17449 37 0119 E81A .00000 LDQ* .00003 011A 1C01 JMP* (FTNSUB) 011B 0000 FTNSUB NUM 0 011C 4817 STQ* .00003 011D 5400 RTJ+ Q8PREP 011E 7FFF 011F FFFB ADC FTNSUB 0120 5400 RTJ+ Q9PKUP 0121 7FFF 0122 6800 STA .00006 0123 FF41 0124 6800 STA .00006 0125 FF65 0126 6800 STA .00006 0127 FF68 0128 6800 STA .00006 0129 FF6C 012A 6800 STA .00006 012B FF6F 012C 68A5 STA* .00006 012D 5CF3 RTJ* (Q9PKUP) 012E 6800 STA .0000A 012F FF79 0130 5CF0 RTJ* (Q9PKUP) 0131 1800 JMP .00002 0132 FF22 .00004 0133 0001 .00003 BSS 1 0000 0000 END 0 PROGRAM LENGTH $0134 ( 308) EXTERNALS HFLOT Q9PKUP Q8PREP Q8QINI Q8QX Q8QEND SETBFR IOERR IRWERR HEXASC HEXDEC ASCII DECHEX AFORM RFORM FLOATG OUTINS INPINS ICONCT OCONCT FWRITE DISPAT SCHEDL TIMER LINK ICLOCK ENCODE DECODE FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 8 DATE: 01/11/77 TIME: 1151 ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : 0000 (0) 0001 8,9,29,30 0001 (1) 0000 5,7,8,10,11,12,13,14,15,16,23,25,27 0003 (3) 0049 7,32,33 0005 (5) 0051 27 0021 (33) 0050 27 0028 (40) 004E 23 003A (58) 0048 6 0050 (80) 004F 25 18FB (6395) 004D 21 VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : I INTEGER 7FFF 1,4,5,7,10,11,12,13,25 IBUF INTEGER 0002 4,6,10,11,12,13,14,15,16,23,32,33 ICOMP INTEGER 004C 21,23 IDAT INTEGER 003C 4,5,7,14,15,17,18,19,20,32,33 IFLAG INTEGER 004B 20,21,23,33 IFORM INTEGER 0054 30,32,33 INUM INTEGER 003F 4,5,7 ITEMP INTEGER 0040 4,23,25,27 JERROR INTEGER 004A 8,9 K INTEGER 0053 29,30 LREAL4 INTEGER 7FFF 1,16 N INTEGER 0052 28,29 EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : AFORM SUBROUTINE 009E 13 ASCII SUBROUTINE 0094 11 DECHEX SUBROUTINE 0099 12 DECODE REAL.FN. 00FA 33 DISPAT SUBROUTINE 00CC 23,26,28 ENCODE SUBROUTINE 00F3 30 FLOATG SUBROUTINE 00A8 15 FWRITE SUBROUTINE 00C3 21 HEXASC SUBROUTINE 008A 10 HEXDEC SUBROUTINE 008F 10 HFLOT REAL.FN. 0100 FTN 3.3A (OPT = LXARCOV) FTNSUB PAGE 9 DATE: 01/11/77 TIME: 1151 ICLOCK INTEGER.FN. 00E7 30 ICONCT SUBROUTINE 00B5 18 INPINS SUBROUTINE 00B1 17 IOERR INTEGER.FN. 007F 8 IRWERR INTEGER.FN. 0085 9 LINK INTEGER.FN. 00E1 29 OCONCT SUBROUTINE 00B9 19 OUTINS SUBROUTINE 00AD 16 Q8PREP INTEGER.FN. 011E Q8QEND INTEGER.FN. 007C Q8QINI INTEGER.FN. 0062 Q8QX SUBROUTINE 0070 7 Q9PKUP INTEGER.FN. 0121 RFORM SUBROUTINE 00A3 14 SCHEDL SUBROUTINE 00CF 25 SETBFR SUBROUTINE 005D 5 TIMER SUBROUTINE 00D8 26 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : 1 005B 5 50 0088 8,10 55 008D 10 60 0092 11 65 0097 12 70 009C 13 75 00CD 21,25 80 00DF 28 99 0104 30,35 100 0106 7,36 FTNSUB 011B 1 FTN 3.3A (OPT = LXMVC) FTNFCN PAGE 1 DATE: 01/11/77 TIME: 1153 1 REAL FUNCTION FTNFCN (A1,A2,A3,I1,I2,I3) C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 3 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER C FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNFCN COMPILATION 2 SINGLE LENGTH,BUFFER(50),ITEMP C C ASSEMBLY CODE,CONTINUE STATEMENT C 3 ASSEM .15,$C8FE,$6400,+I1,$6400,ITEMP 4 ASSEM .16,$54F4,*,$0901,*17,$0,$08F9,*(LENGTH),*BUFFER(1) 5 17 CONTINUE C C ASSIGNED GO TO,COMPUTED GO TO C 6 GO TO I3,(20,30,40,50,60) 7 GO TO (20,30,40,50,60),I2 C C ARITHMETIC IF C 8 20 IF (A1/A2) 30,40,50 C C PAUSE STATEMENT C 9 30 PAUSE 30 C C DO LOOP,UNFORMATTED READ,UNFORMATTED WRITE C 10 40 DO 45 J =1,50,1 11 READ (1) (BUFFER(I), I =1,50) 12 WRITE (3) (BUFFER(I), I =1,50,1) 13 45 CONTINUE 14 50 DO 59 M =I2,1,-1 15 DO 58 N =1,20,5 16 A3 = FLOAT(M+N)+A3 17 58 CONTINUE 18 59 CONTINUE C C OPEN MASS STORAGE FILE C 19 60 OPEN 2,1,200,8,1 C C FORMATTED READ AND WRITE STATEMENTS C 20 70 READ (6,200) (BUFFER(I),I=1,50) 21 WRITE (8,200) (BUFFER(I),I=1,50) C C TAPE CONTROL,BACKSPACE,ENDFILE,REWIND C 22 BACKSPACE 6 23 ENDFILE 6 FTN 3.3A (OPT = LXMVC) FTNFCN PAGE 2 DATE: 01/11/77 TIME: 1153 24 REWIND 6 C C FUNCTION VALUE RETURN C 25 FTNFCN = A3+A1/FLOAT(BUFFER(20)) 26 RETURN C 27 200 FORMAT (50(1X,I2)) 28 END FTN 3.3A (OPT = LXMVC) FTNFCN PAGE 3 DATE: 01/11/77 TIME: 1153 3 .00001 4 0044 54F4 16 NUM 21748 6 004B CC04 17 LDA* (.00007) 7 0050 CC0E LDA* (.0000B) 8 0060 5400 20 RTJ+ HFLOT 9 006C 5400 30 RTJ+ Q8PSEN 10 006F 0A01 40 ENA 1 11 0071 0A03 .0000F ENA 3 11 0077 0A01 ENA 1 11 0079 C8BE .0000G LDA* I 11 0081 D8B6 RAO* I 11 0086 0A00 ENA 0 12 0089 0A03 ENA 3 12 008E 0A01 ENA 1 12 0090 C8A7 .0000I LDA* I 12 0097 D8A0 RAO* I 12 009C 0A00 ENA 0 13 009E D898 45 RAO* J 14 00A3 CCBA 50 LDA* (.0000B) 15 00A9 0A01 ENA 1 16 00AC 0A01 .0000M ENA 1 17 00B7 CCF3 58 LDA* ($00AB) 18 00BE CCE6 59 LDA* ($00A5) 19 00C1 0A06 60 ENA 6 20 00CA 0A04 70 ENA 4 20 00D0 0A01 ENA 1 20 00D3 CCFE .0000O LDA* ($00D2) 20 00DA DCF7 RAO* ($00D2) 20 00DF 0A00 ENA 0 21 00E1 0A04 ENA 4 21 00E7 0A01 ENA 1 21 00E9 CCE8 .0000Q LDA* ($00D2) 21 00F0 DCE1 RAO* ($00D2) 21 00F5 0A00 ENA 0 22 00F7 0A02 ENA 2 23 00FC 0A02 ENA 2 24 0101 0A02 ENA 2 25 0106 0A01 ENA 1 26 0110 D400 NUM -11263 27 0113 0006 200 BSS 6 28 0119 E823 .00000 LDQ* .00002 PROGRAM LENGTH $013D ( 317) EXTERNALS HFLOT Q8PSEN Q9PKUP Q8PREP Q8QFLE Q8QWND Q8QBCK Q8QINI Q8QX Q8QEND Q8DFNF FLOAT FTN 3.3A (OPT = LXMVC) FTNFCN PAGE 4 DATE: 01/11/77 TIME: 1153 ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : 0001 (1) 0000 4,10,11,12,14,15,19,20,21 0002 (2) 003B 19 0006 (6) 003E 19,22,23,24 0008 (8) 003D 19,21 00C8 (200) 003C 19 VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : A1 REAL 7FFF 1,8,25 A2 REAL 7FFF 1,8 A3 REAL 7FFF 1,16,25 BUFFER INTEGER 0004 1,4,11,12,20,21,25 FTNFCN REAL 0001 1,25 I INTEGER 0038 11,11,12,20,21 I1 INTEGER 7FFF 1,3 I2 INTEGER 7FFF 1,7,14 I3 INTEGER 7FFF 1,6 ITEMP INTEGER 0036 1,3 J INTEGER 0037 10 LENGTH INTEGER 0003 1,4 M INTEGER 0039 14,16 N INTEGER 003A 14,16 EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : FLOAT REAL.FN. 00B1 16,25 HFLOT REAL.FN. 010A Q8DFNF INTEGER.FN. 00C3 Q8PREP INTEGER.FN. 0121 Q8PSEN INTEGER.FN. 006D Q8QBCK INTEGER.FN. 00F9 Q8QEND INTEGER.FN. 0088 Q8QFLE INTEGER.FN. 00FE Q8QINI INTEGER.FN. 0073 Q8QWND INTEGER.FN. 0103 Q8QX SUBROUTINE 007F 11,12,20,21 Q9PKUP INTEGER.FN. 0124 FTN 3.3A (OPT = LXMVC) FTNFCN PAGE 5 DATE: 01/11/77 TIME: 1153 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : 15 003F 1 16 0044 3 17 004B 3,5 20 0060 6,8 30 006C 6,8,9 40 006F 6,8,10 45 009E 10,13 50 00A3 6,8,14 58 00B7 14,17 59 00BE 14,18 60 00C1 6,19 70 00CA 19 200 0113 19,21,27 FTNFCN 011E FTN 3.3A (OPT = LXKVCO) Q8QBDS PAGE 1 DATE: 01/11/77 TIME: 1156 1 BLOCK DATA C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 4 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER C FTNTST VERIFIES LIST AND BINARY OUTPUT OF BLOCK DATA COMPILATION O 2 COMMON /ENTER/A,C,D,I,K 3 DIMENSION A(4),B(4),C(5),D(2),I(3),J(3),K(2) 4 EQUIVALENCE (A,B),(I,J) 5 DATA A(1),A(2),A(3),A(4)/1.1,2.2,3.3,4.4/,C(1),C(2),C(3),C(4),C(5) 5 */1.1,2.2,3.3,4.4,5.5/,D(1),D(2)/10.1,10.2/,I(1),I(2),I(3),K(1), 5 *K(2)/1,2,3,4,5/ 6 END FTN 3.3A (OPT = LXKVCO) Q8QBDS PAGE 2 DATE: 01/11/77 TIME: 1156 COMMON LABEL $0020 ( 32) PROGRAM LENGTH $0000 ( 0) FTN 3.3A (OPT = LXKVCO) Q8QBDS PAGE 3 DATE: 01/11/77 TIME: 1156 ***** L I S T O F S Y M B O L S ***** VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : A REAL 0000 D 1,3,4,5 B REAL 0000 D 3,4 C REAL 0008 D 1,3,5 D REAL 0012 D 1,3,5 I INTEGER 0016 D 1,3,4,5 J INTEGER 0016 D 3,4 K INTEGER 001C D 1,3,5 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : Q8QBDS 7FFF P*U PD P,FTNMAY D @P @P|@PfffE'MED2 @P,?X}A6 @P,HC?X}A6p@PT!} ]TT\T\TTT\T|pF@P\\\T\T\T F4@PHTTh\h\hh\hh\h4p@P\|\uT`\!uu ^_h{\w\@u{X{!z(_hn\w\xT!`|hd\pp@Pw\{TT~{p4hR\w\k~{x) a   dzpp@P@b $d 5T, &Tr\T~1u3T 8Ӝp@Pk '̳ T$>@P(//5F10.5,E10.2/15D11.7,3(I10,$4),2Z3,2A2,R1/)>@P!V@P(1H0,22HREPLACE THIS STATEMENT,5X,11HCOMMENT '1',11HCOMMENT *2*)V@P @P(I8) @P@P(1H1,F6.4)@P@P(/D17.10) @PTTPFTNMAYrPQ8QFIXHFLOT ]Q8QF2IQ8QI2FQ8STP Q8STPNdQ8PSENrQ8PKUPQ8PREPQ8QINIUHDFLOTFLOAT DFLT DBLE r:PFTNSUBLFTNFCNABS SIN ALOG SQRT RELESE:PFTNMAYD P4FTNSUB D @P @PH: @PM(P! @PUX @PXh @P<#<@P[ T TZ l;h T<p@Pr 1 \ T T  Tzh Tu Tp Tl Tg pp@PTb T] TW T T T T h͈h T@PT;<= \| d8h \>:@P 21 \ \z lh \:\@P 21 \ T> T> T> \Taۮjj\@P(50(1X,I2)) \@P#\HTTh@P0@ffAFffAiAff@ffAFffAiAffABPBQ>@P8@P8@P8@P8P P*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: 01/11/77 SYSTEM ID: MSOS ORDER SYSTEM - 65 K (12/17/76) *FTN FTN 3.3B (OPT = LXCO) FTNMAY PAGE 1 DATE: 01/11/77 TIME: 1113 1 PROGRAM FTNMAY C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 1 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS PROGRAM IS DESIGNED TO EXERCISE C THE FORTRAN COMPILER AND IS NON-EXECUTABLE C FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNMAY COMPILATION C C C EXTERNAL STATEMENT C 2 EXTERNAL FTNSUB,FTNFCN C C RELATIVE STATEMENT C 3 RELATIVE REL1,REL2,REL3,BLKDAT C C TYPE STATEMENT C 4 INTEGER AINT1,BINT2,CINT3,GINT7(5),HINT8, 4 1IINT9,JINT10,FINT6 5 REAL AREAL1,BREAL2,CREAL3(3,3),IREAL1,JREAL2, 5 1KREAL3(9) O 6 DOUBLE PRECISION MDBL1,NDBL2,ODBL3,PDBL4(3,5), 6 1QDBL5,RDBL6,SDBL7,TDBL8(2,4),UDBL9,VDBL10,WDBL11 7 SINGLE DINT4,EINT5,KINT11 C C DIMENSION STATEMENT C 8 DIMENSION LINT12(5),QDBL5(2,3,4),AINT1(10), 8 1AREAL1(3,4),FINT6(5) C C BYTE AND SIGNED BYTE STATEMENT C 9 BYTE (FINT6,LINT12(1)(13=6)) 10 SIGNED BYTE (HINT8,GINT7(3)(7=0)) C C COMMON STATEMENT C 11 COMMON /LABEL/AREAL1,EINT5,MINT13(12),P4BL4 12 COMMON /LABEL/HREAL8,WDBL11 13 COMMON //BREAL2(2,2,2),BINT2,QDBL5 14 COMMON AINT1,VDBL10(10),EREAL5 C C DATA STATEMENT C O 15 DATA (GINT7(J),J=1,5)/$FDB9,$DB97,$B975,$9753,$7531/ 16 DATA ((CREAL3(I,J),I=1,3),J=1,3)/3567.508,1.2, 16 15286.3254,98.6,110.9,0.000050,.1,1056.3219,36500000.0/ 17 DATA MDBL1/345.67D-03/,NDBL2/.34567D+5/, 17 1ODBL3/34567.D-05/ C FTN 3.3B (OPT = LXCO) FTNMAY PAGE 2 DATE: 01/11/77 TIME: 1113 C EQUIVALENCE STATEMENT C 18 EQUIVALENCE (DREAL4,KREAL3(8)) 19 EQUIVALENCE (AINT1(6),LINT12(1)),(MDBL1,NDBL2) C C STATEMENT FUNCTION,INTRINSIC FUNCTION,EXTERNAL C FUNCTION,FUNCTION SUBPROGRAM CALL C 20 MYFUNC (I,J,DREAL4,EREAL5,RDBL6) = 20 1DFLT(ABS(I))*RDBL6/(SIN(EREAL5))**2 20 2+ALOG(DREAL4)-SQRT(J)+FTNFCN(DREAL4,EREAL5,FREAL6,BINT2,CINT3, 20 3AINT1(5)) C C ASSIGNMENT STATEMENT C 21 10 I = LINT12(1)+LINT12(2)-LINT12(3)*BREAL2(1,2,1)/.005 21 1**2 22 20 WDBL11 = (TDBL8(2,2)*(I/5)+365.568)/LINT12(3)**2+MYFUNC(I, 22 1J,DREAL4,EREAL5,RDBL6) C C LOGICAL IF,RELATIONAL EXPRESSIONS,UNCONDITIONAL GO TO, C LABLED ASSIGNMENT,SUBROUTINE CALL,FORMATTED WRITE,STOP, C LOGICAL EXPRESSIONS,PAUSE C 23 30 IF (I.EQ.LINT12(4)) GO TO 40 24 40 IF (I.NE.LINT12(4)) J = I+1 25 50 IF (LINT12(5).GT.J) ASSIGN 800 TO IFORM 26 60 IF (J.GE.I) CALL FTNSUB(25,AREAL1,MDBL1) 27 70 IF (J.LT.I) WRITE (4,600) 28 80 IF (3.LE.AREAL1) STOP 6 29 90 IF (.NOT.(I.EQ.LINT12(4)).AND.(LINT12(5).GT.J).OR. 29 1(J.LT.3)) PAUSE 7 C C FORMAT STATEMENT C 30 500 FORMAT (//5F10.5,E10.2/15D11.7,3(I10,$4),2Z3,2A2,R1/) 31 600 FORMAT (1H0,22HREPLACE THIS STATEMENT,5X, 31 1*COMMENT '1'*,'COMMENT *2*') 32 700 FORMAT (I8) 33 800 FORMAT (1H1,F6.4) 34 900 FORMAT (/D17.10) C C RELEASE STATEMENT C 35 CALL RELESE (FTNMAY) C C END STATEMENT C 36 END FTN 3.3B (OPT = LXCO) FTNMAY PAGE 3 DATE: 01/11/77 TIME: 1113 COMMON LABEL $002C ( 44) BLANK $0083 ( 131) PROGRAM LENGTH $01CD ( 461) EXTERNALS Q8QFIX HFLOT Q8QF2I Q8QI2F Q8STP Q8STPN Q8PSEN Q8PKUP Q8PREP Q8QINI HDFLOT FLOAT DFLT DBLE FTNSUB FTNFCN ABS SIN ALOG SQRT RELESE FTN 3.3B (OPT = LXCO) FTNMAY PAGE 4 DATE: 01/11/77 TIME: 1113 ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : 0002 (2) 007C 20,21,22 0003 (3) 0086 28,29 0005 (5) 0081 22,25,29 0019 (25) 0085 26 3C51 EB85 007F 21 44DB 645A 0082 22 VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : AINT1 INTEGER 0059 C 1,8,14,19,20 AREAL1 REAL 0000 D 1,8,11,26,28 BINT2 INTEGER 0010 C 1,13,20 BREAL2 REAL 0000 C 1,13,21 CINT3 INTEGER 0002 1,20 CREAL3 REAL 0008 1,16 DREAL4 REAL 0028 17,20,22 EINT5 INTEGER 0018 D 1,11 EREAL5 REAL 0081 C 14,20,22 FINT6 INTEGER 005E C 1,8,9 FREAL6 REAL 007D 20 GINT7 INTEGER 0003 1,10,15 HINT8 INTEGER 0005 1,10 HREAL8 REAL 0027 D 11 I INTEGER 007B 16,16,20,21,22,23,24,26,27,29 IFORM INTEGER 0084 25 J INTEGER 007A 15,15,16,20,22,24,25,26,27,29 KREAL3 REAL 001A 1,18 LINT12 INTEGER 005E C 1,9,19,21,22,23,24,25,29 MDBL1 DBLE.PREC. 002C 1,17,19,26 MINT13 INTEGER 0019 D 11 MYFUNC STAT.FN. 00D6 19,22 NDBL2 DBLE.PREC. 002C 1,17,19 ODBL3 DBLE.PREC. 002F 1,17 P4BL4 REAL 0025 D 11 PDBL4 DBLE.PREC. 0032 1 QDBL5 DBLE.PREC. 0011 C 1,8,13 RDBL6 DBLE.PREC. 005F 1,20,22 TDBL8 DBLE.PREC. 0062 1,22 VDBL10 DBLE.PREC. 0063 C 1,14 WDBL11 DBLE.PREC. 0029 D 1,12,22 FTN 3.3B (OPT = LXCO) FTNMAY PAGE 5 DATE: 01/11/77 TIME: 1113 EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : ABS REAL.FN. 00BB 20 ALOG REAL.FN. 009A 20 DBLE DBL.PRC.FN. 011A DFLT DBL.PRC.FN. 00C1 20 FLOAT REAL.FN. 00F1 FTNSUB SUBROUTINE 014C 1,26 HDFLOT DBL.PRC.FN. 011D HFLOT REAL.FN. 015D Q8PKUP INTEGER.FN. 00DC Q8PREP INTEGER.FN. 00D9 Q8PSEN INTEGER.FN. 0172 Q8QF2I REAL.FN. 00AF Q8QFIX INTEGER.FN. 00C9 Q8QI2F INTEGER.FN. 0110 Q8QINI INTEGER.FN. 0155 Q8STP INTEGER.FN. 01CC Q8STPN INTEGER.FN. 0164 RELESE SUBROUTINE 01C9 33 SIN REAL.FN. 00A9 20 SQRT REAL.FN. 0094 20 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : 10 00EA 20 20 0103 21 30 0130 22 40 0136 23,24 50 013E 24 60 0147 25 70 0150 26 80 015A 27 90 0166 28 500 0181 29 600 0199 27,31 700 01BA 31 800 01BD 25,33 900 01C3 33 FTNMAY 0000 1,35 FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 1 DATE: 01/11/77 TIME: 1114 1 SUBROUTINE FTNSUB (I,LREAL4,XDBL12) C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 2 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER C FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNSUB COMPILATION 2 REAL IREAL4 3 DOUBLE PRECISION XDBL12 4 SINGLE I,IBUF(58),IDAT(3),INUM,ITEMP(8) 5 DATA (IDAT(I),I =1,3)/$0023,$FFFE,$001A/,INUM/5/ C C SETBFR,FORMATTED WRITE,IOERR,IRWERR C 6 1 CALL SETBFR (IBUF,58) O 7 WRITE (I,100)(IDAT(I),I=1,3),INUM 8 IF (IOERR(0).EQ.-1) GO TO 50 9 JERROR = IRWERR(0) C C CHARACTER CONVERSION C 10 50 CALL HEXASC(I,IBUF(1)) 11 55 CALL HEXDEC(I,IBUF(1)) 12 60 CALL ASCII(IBUF(1),I) 13 65 CALL DECHEX(IBUF(1),I) 14 70 CALL AFORM(IBUF(1),IDAT) 15 CALL RFORM(IBUF(1),IDAT) 16 CALL FLOATG(LREAL4,IBUF(1)) C C INPUT/OUTPUT C 17 CALL OUTINS(IDAT) 18 CALL INPINS(IDAT) 19 CALL ICONCT(IDAT) 20 CALL OCONCT(IDAT) C C FORTRAN/MONITOR INTERFACE C 21 IFLAG = $0011 22 ASSIGN 75 TO ICOMP 23 CALL FWRITE ($18FB,IBUF(1),40,ICOMP,IFLAG,ITEMP(1)) 24 CALL DISPAT 25 75 CALL SCHEDL (80,$1,I,ITEMP) 26 CALL DISPAT 27 CALL TIMER (1,$21,5,ITEMP) 28 CALL DISPAT 29 80 N = LINK(0) 30 K = ICLOCK(0) C C ENCODE/DECODE C 31 ASSIGN 99 TO IFORM 32 CALL ENCODE (IBUF,IFORM,3,IDAT) FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 2 DATE: 01/11/77 TIME: 1114 33 IFLAG = DECODE (IBUF,IFORM,3,IDAT) 34 RETURN 35 99 FORMAT (I3) 36 100 FORMAT (/3I2,10H TERMINAL ,I2,11H TERMINATED) 37 END FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 3 DATE: 01/11/77 TIME: 1114 0000 0000 NAM FTNSUB .00001 0000 0001 0001$ NUM 1 0001 0000 0000$ NUM 0 0002 003A IBUF BSS 58 003C 0003 IDAT BSS 3 003F 0001 INUM BSS 1 0040 0008 ITEMP BSS 8 0048 003A 003A$ NUM 58 0049 0003 0003$ NUM 3 004A 0001 JERROR BSS 1 004B 0001 IFLAG BSS 1 004C 0001 ICOMP BSS 1 004D 18FB 18FB$ NUM 6395 004E 0028 0028$ NUM 40 004F 0050 0050$ NUM 80 0050 0021 0021$ NUM 33 0051 0005 0005$ NUM 5 0052 0001 N BSS 1 0053 0001 K BSS 1 0054 0001 IFORM BSS 1 0055 5802 .00002 RTJ* .00005 0056 FFA9 ADC .00001 0057 0001 .00005 BSS 1 0058 C8FE LDA* .00005 0059 88FC ADD* .00005 -1 005A 68FC STA* .00005 5 003C 003C ORG IDAT 003C 0023 NUM 35 003D FFFE NUM -1 003E 001A NUM 26 003F 0005 NUM 5 6 005B 0A02 1 ENA 2 005C 5400 RTJ+ SETBFR 005D 7FFF 005E FFA3 ADC IBUF 005F FFE8 ADC 003A$ 7 0060 0A04 ENA 4 0061 5400 RTJ+ Q8QINI 0062 7FFF 0063 5A00 NUM 23040 0064 0007 NUM 7 0065 0000 .00006 ADC .00006 0066 80A0 ADC 100 7 0067 0A01 ENA 1 0068 6CFC STA* (.00006) 7 0069 CCFB .00007 LDA* (.00006) 006A 8000 ADD IDAT -1 006B 003B 006C 88EA ADD* .00005 006D 6804 STA* .00008 006E 0A01 ENA 1 006F 5400 RTJ+ Q8QX 0070 7FFF FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 4 DATE: 01/11/77 TIME: 1114 0071 0001 .00008 BSS 1 7 0072 DCF2 RAO* (.00006) 0073 0A03 ENA 3 0074 9CF0 SUB* (.00006) 0075 0131 SAM 1 0076 18F2 JMP* .00007 7 0077 0A01 ENA 1 0078 5CF7 RTJ* (Q8QX ) 0079 FFC5 ADC INUM 7 007A 0A00 ENA 0 007B 5400 RTJ+ Q8QEND 007C 7FFF 8 007D 0A01 ENA 1 007E 5400 RTJ+ IOERR 007F 7FFF 0080 FF80 ADC 0000$ 0081 0901 INA 1 0082 0105 SAZ 5 9 0083 0A01 .00009 ENA 1 0084 5400 RTJ+ IRWERR 0085 7FFF 0086 FF7A ADC 0000$ 0087 68C2 STA* JERROR 10 0088 0A02 50 ENA 2 0089 5400 RTJ+ HEXASC 008A 7FFF 008B 0000 ADC .00006 008C FF75 ADC IBUF 11 008D 0A02 55 ENA 2 008E 5400 RTJ+ HEXDEC 008F 7FFF 0090 0000 ADC .00006 0091 FF70 ADC IBUF 12 0092 0A02 60 ENA 2 0093 5400 RTJ+ ASCII 0094 7FFF 0095 FF6C ADC IBUF 0096 0000 ADC .00006 13 0097 0A02 65 ENA 2 0098 5400 RTJ+ DECHEX 0099 7FFF 009A FF67 ADC IBUF 009B 0000 ADC .00006 14 009C 0A02 70 ENA 2 009D 5400 RTJ+ AFORM 009E 7FFF 009F FF62 ADC IBUF 00A0 FF9B ADC IDAT 15 00A1 0A02 ENA 2 00A2 5400 RTJ+ RFORM 00A3 7FFF 00A4 FF5D ADC IBUF 00A5 FF96 ADC IDAT 16 00A6 0A02 ENA 2 FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 5 DATE: 01/11/77 TIME: 1114 00A7 5400 RTJ+ FLOATG 00A8 7FFF 00A9 0000 .0000A ADC .0000A 00AA FF57 ADC IBUF 17 00AB 0A01 ENA 1 00AC 5400 RTJ+ OUTINS 00AD 7FFF 00AE FF8D ADC IDAT 18 00AF 0A01 ENA 1 00B0 5400 RTJ+ INPINS 00B1 7FFF 00B2 FF89 ADC IDAT 19 00B3 0A01 ENA 1 00B4 5400 RTJ+ ICONCT 00B5 7FFF 00B6 FF85 ADC IDAT 20 00B7 0A01 ENA 1 00B8 5400 RTJ+ OCONCT 00B9 7FFF 00BA FF81 ADC IDAT 21 00BB 0A11 ENA 17 00BC 688E STA* IFLAG 22 00BD C000 LDA 75 00BE 00CD 00BF 8897 ADD* .00005 00C0 688B STA* ICOMP 23 00C1 0A06 ENA 6 00C2 5400 RTJ+ FWRITE 00C3 7FFF 00C4 FF88 ADC 18FB$ 00C5 FF3C ADC IBUF 00C6 FF87 ADC 0028$ 00C7 FF84 ADC ICOMP 00C8 FF82 ADC IFLAG 00C9 FF76 ADC ITEMP 24 00CA 0A00 ENA 0 00CB 5400 RTJ+ DISPAT 00CC 7FFF 25 00CD 0A04 75 ENA 4 00CE 5400 RTJ+ SCHEDL 00CF 7FFF 00D0 FF7E ADC 0050$ 00D1 FF2E ADC 0001$ 00D2 0000 ADC .00006 00D3 FF6C ADC ITEMP 26 00D4 0A00 ENA 0 00D5 5CF6 RTJ* (DISPAT) 27 00D6 0A04 ENA 4 00D7 5400 RTJ+ TIMER 00D8 7FFF 00D9 FF26 ADC 0001$ 00DA FF75 ADC 0021$ 00DB FF75 ADC 0005$ 00DC FF63 ADC ITEMP FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 6 DATE: 01/11/77 TIME: 1114 28 00DD 0A00 ENA 0 00DE 5CED RTJ* (DISPAT) 29 00DF 0A01 80 ENA 1 00E0 5400 RTJ+ LINK 00E1 7FFF 00E2 FF1E ADC 0000$ 00E3 6800 STA N 00E4 FF6D 30 00E5 0A01 ENA 1 00E6 5400 RTJ+ ICLOCK 00E7 7FFF 00E8 FF18 ADC 0000$ 00E9 6800 STA K 00EA FF68 31 00EB C000 LDA 99 00EC 0104 00ED 8800 ADD .00005 00EE FF68 00EF 6800 STA IFORM 00F0 FF63 32 00F1 0A04 ENA 4 00F2 5400 RTJ+ ENCODE 00F3 7FFF 00F4 FF0D ADC IBUF 00F5 FF5E ADC IFORM 00F6 FF52 ADC 0003$ 00F7 FF44 ADC IDAT 33 00F8 0A04 ENA 4 00F9 5400 RTJ+ DECODE 00FA 7FFF 00FB FF06 ADC IBUF 00FC FF57 ADC IFORM 00FD FF4B ADC 0003$ 00FE FF3D ADC IDAT 00FF 5400 RTJ+ HFLOT 0100 7FFF 34 0101 5140 NUM 20800 0102 FF48 ADC IFLAG 0103 1816 JMP* .00000 35 0104 0002 99 BSS 2 0104 0104 ORG 99 0104 2849 NUM 10313 0105 3329 NUM 13097 36 0106 0013 100 BSS 19 0106 0106 ORG 100 0106 282F NUM 10287 0107 3349 NUM 13129 0108 322C NUM 12844 0109 3130 NUM 12592 010A 4820 NUM 18464 010B 5445 NUM 21573 010C 524D NUM 21069 010D 494E NUM 18766 010E 414C NUM 16716 FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 7 DATE: 01/11/77 TIME: 1114 010F 202C NUM 8236 0110 4932 NUM 18738 0111 2C31 NUM 11313 0112 3148 NUM 12616 0113 2054 NUM 8276 0114 4552 NUM 17746 0115 4D49 NUM 19785 0116 4E41 NUM 20033 0117 5445 NUM 21573 0118 4429 NUM 17449 37 0119 E81A .00000 LDQ* .00003 011A 1C01 JMP* (FTNSUB) 011B 0000 FTNSUB NUM 0 011C 4817 STQ* .00003 011D 5400 RTJ+ Q8PREP 011E 7FFF 011F FFFB ADC FTNSUB 0120 5400 RTJ+ Q9PKUP 0121 7FFF 0122 6800 STA .00006 0123 FF41 0124 6800 STA .00006 0125 FF65 0126 6800 STA .00006 0127 FF68 0128 6800 STA .00006 0129 FF6C 012A 6800 STA .00006 012B FF6F 012C 68A5 STA* .00006 012D 5CF3 RTJ* (Q9PKUP) 012E 6800 STA .0000A 012F FF79 0130 5CF0 RTJ* (Q9PKUP) 0131 1800 JMP .00002 0132 FF22 .00004 0133 0001 .00003 BSS 1 0000 0000 END 0 PROGRAM LENGTH $0134 ( 308) EXTERNALS HFLOT Q9PKUP Q8PREP Q8QINI Q8QX Q8QEND SETBFR IOERR IRWERR HEXASC HEXDEC ASCII DECHEX AFORM RFORM FLOATG OUTINS INPINS ICONCT OCONCT FWRITE DISPAT SCHEDL TIMER LINK ICLOCK ENCODE DECODE FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 8 DATE: 01/11/77 TIME: 1114 ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : 0000 (0) 0001 8,9,29,30 0001 (1) 0000 5,7,8,10,11,12,13,14,15,16,23,25,27 0003 (3) 0049 7,32,33 0005 (5) 0051 27 0021 (33) 0050 27 0028 (40) 004E 23 003A (58) 0048 6 0050 (80) 004F 25 18FB (6395) 004D 21 VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : I INTEGER 7FFF 1,4,5,7,10,11,12,13,25 IBUF INTEGER 0002 4,6,10,11,12,13,14,15,16,23,32,33 ICOMP INTEGER 004C 21,23 IDAT INTEGER 003C 4,5,7,14,15,17,18,19,20,32,33 IFLAG INTEGER 004B 20,21,23,33 IFORM INTEGER 0054 30,32,33 INUM INTEGER 003F 4,5,7 ITEMP INTEGER 0040 4,23,25,27 JERROR INTEGER 004A 8,9 K INTEGER 0053 29,30 LREAL4 INTEGER 7FFF 1,16 N INTEGER 0052 28,29 EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : AFORM SUBROUTINE 009E 13 ASCII SUBROUTINE 0094 11 DECHEX SUBROUTINE 0099 12 DECODE REAL.FN. 00FA 33 DISPAT SUBROUTINE 00CC 23,26,28 ENCODE SUBROUTINE 00F3 30 FLOATG SUBROUTINE 00A8 15 FWRITE SUBROUTINE 00C3 21 HEXASC SUBROUTINE 008A 10 HEXDEC SUBROUTINE 008F 10 HFLOT REAL.FN. 0100 FTN 3.3B (OPT = LXARCOV) FTNSUB PAGE 9 DATE: 01/11/77 TIME: 1114 ICLOCK INTEGER.FN. 00E7 30 ICONCT SUBROUTINE 00B5 18 INPINS SUBROUTINE 00B1 17 IOERR INTEGER.FN. 007F 8 IRWERR INTEGER.FN. 0085 9 LINK INTEGER.FN. 00E1 29 OCONCT SUBROUTINE 00B9 19 OUTINS SUBROUTINE 00AD 16 Q8PREP INTEGER.FN. 011E Q8QEND INTEGER.FN. 007C Q8QINI INTEGER.FN. 0062 Q8QX SUBROUTINE 0070 7 Q9PKUP INTEGER.FN. 0121 RFORM SUBROUTINE 00A3 14 SCHEDL SUBROUTINE 00CF 25 SETBFR SUBROUTINE 005D 5 TIMER SUBROUTINE 00D8 26 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : 1 005B 5 50 0088 8,10 55 008D 10 60 0092 11 65 0097 12 70 009C 13 75 00CD 21,25 80 00DF 28 99 0104 30,35 100 0106 7,36 FTNSUB 011B 1 FTN 3.3B (OPT = LXMVC) FTNFCN PAGE 1 DATE: 01/11/77 TIME: 1114 1 REAL FUNCTION FTNFCN (A1,A2,A3,I1,I2,I3) C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 3 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER C FTNTST VERIFIES LIST AND BINARY OUTPUT OF FTNFCN COMPILATION 2 SINGLE LENGTH,BUFFER(50),ITEMP C C ASSEMBLY CODE,CONTINUE STATEMENT C 3 ASSEM .15,$C8FE,$6400,+I1,$6400,ITEMP 4 ASSEM .16,$54F4,*,$0901,*17,$0,$08F9,*(LENGTH),*BUFFER(1) 5 17 CONTINUE C C ASSIGNED GO TO,COMPUTED GO TO C 6 GO TO I3,(20,30,40,50,60) 7 GO TO (20,30,40,50,60),I2 C C ARITHMETIC IF C 8 20 IF (A1/A2) 30,40,50 C C PAUSE STATEMENT C 9 30 PAUSE 30 C C DO LOOP,UNFORMATTED READ,UNFORMATTED WRITE C 10 40 DO 45 J =1,50,1 11 READ (1) (BUFFER(I), I =1,50) 12 WRITE (3) (BUFFER(I), I =1,50,1) 13 45 CONTINUE 14 50 DO 59 M =I2,1,-1 15 DO 58 N =1,20,5 16 A3 = FLOAT(M+N)+A3 17 58 CONTINUE 18 59 CONTINUE C C OPEN MASS STORAGE FILE C 19 60 OPEN 2,1,200,8,1 C C FORMATTED READ AND WRITE STATEMENTS C 20 70 READ (6,200) (BUFFER(I),I=1,50) 21 WRITE (8,200) (BUFFER(I),I=1,50) C C TAPE CONTROL,BACKSPACE,ENDFILE,REWIND C 22 BACKSPACE 6 23 ENDFILE 6 FTN 3.3B (OPT = LXMVC) FTNFCN PAGE 2 DATE: 01/11/77 TIME: 1114 24 REWIND 6 C C FUNCTION VALUE RETURN C 25 FTNFCN = A3+A1/FLOAT(BUFFER(20)) 26 RETURN C 27 200 FORMAT (50(1X,I2)) 28 END FTN 3.3B (OPT = LXMVC) FTNFCN PAGE 3 DATE: 01/11/77 TIME: 1114 3 .00001 4 0044 54F4 16 NUM 21748 6 004B CC04 17 LDA* (.00007) 7 0050 CC0E LDA* (.0000B) 8 0060 5400 20 RTJ+ HFLOT 9 006C 5400 30 RTJ+ Q8PSEN 10 006F 0A01 40 ENA 1 11 0071 0A03 .0000F ENA 3 11 0077 0A01 ENA 1 11 0079 C8BE .0000G LDA* I 11 0081 D8B6 RAO* I 11 0086 0A00 ENA 0 12 0089 0A03 ENA 3 12 008E 0A01 ENA 1 12 0090 C8A7 .0000I LDA* I 12 0097 D8A0 RAO* I 12 009C 0A00 ENA 0 13 009E D898 45 RAO* J 14 00A3 CCBA 50 LDA* (.0000B) 15 00A9 0A01 ENA 1 16 00AC 0A01 .0000M ENA 1 17 00B7 CCF3 58 LDA* ($00AB) 18 00BE CCE6 59 LDA* ($00A5) 19 00C1 0A06 60 ENA 6 20 00CA 0A04 70 ENA 4 20 00D0 0A01 ENA 1 20 00D3 CCFE .0000O LDA* ($00D2) 20 00DA DCF7 RAO* ($00D2) 20 00DF 0A00 ENA 0 21 00E1 0A04 ENA 4 21 00E7 0A01 ENA 1 21 00E9 CCE8 .0000Q LDA* ($00D2) 21 00F0 DCE1 RAO* ($00D2) 21 00F5 0A00 ENA 0 22 00F7 0A02 ENA 2 23 00FC 0A02 ENA 2 24 0101 0A02 ENA 2 25 0106 0A01 ENA 1 26 0110 D400 NUM -11263 27 0113 0006 200 BSS 6 28 0119 E823 .00000 LDQ* .00002 PROGRAM LENGTH $013D ( 317) EXTERNALS HFLOT Q8PSEN Q9PKUP Q8PREP Q8QFLE Q8QWND Q8QBCK Q8QINI Q8QX Q8QEND Q8DFNF FLOAT FTN 3.3B (OPT = LXMVC) FTNFCN PAGE 4 DATE: 01/11/77 TIME: 1114 ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : 0001 (1) 0000 4,10,11,12,14,15,19,20,21 0002 (2) 003B 19 0006 (6) 003E 19,22,23,24 0008 (8) 003D 19,21 00C8 (200) 003C 19 VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : A1 REAL 7FFF 1,8,25 A2 REAL 7FFF 1,8 A3 REAL 7FFF 1,16,25 BUFFER INTEGER 0004 1,4,11,12,20,21,25 FTNFCN REAL 0001 1,25 I INTEGER 0038 11,11,12,20,21 I1 INTEGER 7FFF 1,3 I2 INTEGER 7FFF 1,7,14 I3 INTEGER 7FFF 1,6 ITEMP INTEGER 0036 1,3 J INTEGER 0037 10 LENGTH INTEGER 0003 1,4 M INTEGER 0039 14,16 N INTEGER 003A 14,16 EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : FLOAT REAL.FN. 00B1 16,25 HFLOT REAL.FN. 010A Q8DFNF INTEGER.FN. 00C3 Q8PREP INTEGER.FN. 0121 Q8PSEN INTEGER.FN. 006D Q8QBCK INTEGER.FN. 00F9 Q8QEND INTEGER.FN. 0088 Q8QFLE INTEGER.FN. 00FE Q8QINI INTEGER.FN. 0073 Q8QWND INTEGER.FN. 0103 Q8QX SUBROUTINE 007F 11,12,20,21 Q9PKUP INTEGER.FN. 0124 FTN 3.3B (OPT = LXMVC) FTNFCN PAGE 5 DATE: 01/11/77 TIME: 1114 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : 15 003F 1 16 0044 3 17 004B 3,5 20 0060 6,8 30 006C 6,8,9 40 006F 6,8,10 45 009E 10,13 50 00A3 6,8,14 58 00B7 14,17 59 00BE 14,18 60 00C1 6,19 70 00CA 19 200 0113 19,21,27 FTNFCN 011E FTN 3.3B (OPT = LXKVCO) Q8QBDS PAGE 1 DATE: 01/11/77 TIME: 1115 1 BLOCK DATA C MSOS VERIFICATION TEST COMPILER SOURCE PROGRAM 4 C 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 C SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA C COPYRIGHT CONTROL DATA CORPORATION 1975 C C THIS NONEXECUTABLE SUBPGM. IS DESIGNED TO EXERCISE THE COMPILER C FTNTST VERIFIES LIST AND BINARY OUTPUT OF BLOCK DATA COMPILATION O 2 COMMON /ENTER/A,C,D,I,K 3 DIMENSION A(4),B(4),C(5),D(2),I(3),J(3),K(2) 4 EQUIVALENCE (A,B),(I,J) 5 DATA A(1),A(2),A(3),A(4)/1.1,2.2,3.3,4.4/,C(1),C(2),C(3),C(4),C(5) 5 */1.1,2.2,3.3,4.4,5.5/,D(1),D(2)/10.1,10.2/,I(1),I(2),I(3),K(1), 5 *K(2)/1,2,3,4,5/ 6 END FTN 3.3B (OPT = LXKVCO) Q8QBDS PAGE 2 DATE: 01/11/77 TIME: 1115 COMMON LABEL $0020 ( 32) PROGRAM LENGTH $0000 ( 0) FTN 3.3B (OPT = LXKVCO) Q8QBDS PAGE 3 DATE: 01/11/77 TIME: 1115 ***** L I S T O F S Y M B O L S ***** VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : A REAL 0000 D 1,3,4,5 B REAL 0000 D 3,4 C REAL 0008 D 1,3,5 D REAL 0012 D 1,3,5 I INTEGER 0016 D 1,3,4,5 J INTEGER 0016 D 3,4 K INTEGER 001C D 1,3,5 LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : Q8QBDS 7FFF P*U PD P,FTNMAY D @P @P|@PfffE'MED2 @P,?X}A6 @P,HC?X}A6p@PT!} ]TT\T\TTT\T|pF@P\\\T\T\T F4@PHTTh\h\hh\hh\h4p@P\|\uT`\!uu ^_h{\w\@u{X{!z(_hn\w\xT!`|hd\pp@Pw\{TT~{p4hR\w\k~{x) a   dzpp@P@b $d 5T, &Tr\T~1u3T 8Ӝp@Pk '̳ T$>@P(//5F10.5,E10.2/15D11.7,3(I10,$4),2Z3,2A2,R1/)>@P!V@P(1H0,22HREPLACE THIS STATEMENT,5X,11HCOMMENT '1',11HCOMMENT *2*)V@P @P(I8) @P@P(1H1,F6.4)@P@P(/D17.10) @PTTPFTNMAYrPQ8QFIXHFLOT ]Q8QF2IQ8QI2FQ8STP Q8STPNdQ8PSENrQ8PKUPQ8PREPQ8QINIUHDFLOTFLOAT DFLT DBLE r:PFTNSUBLFTNFCNABS SIN ALOG SQRT RELESE:PFTNMAYD P4FTNSUB D @P @PH: @PM(P! @PUX @PXh @P<#<@P[ T TZ l;h T<p@Pr 1 \ T T  Tzh Tu Tp Tl Tg pp@PTb T] TW T T T T h͈h T@PT;<= \| d8h \>:@P 21 \ \z lh \:\@P 21 \ T> T> T> \Taۮjj\@P(50(1X,I2)) \@P#\HTTh@P0@ffAFffAiAff@ffAFffAiAffABPBQ>@P8@P8@P8@P8P P*U PP*JOB PP*LGO,10 PD PTSIOSB DECK-ID V18 MSOS VERIFICATION TESTS D @P^ @PM$2 4@P] Tr\, hhT4H@Pq (1TTMNOP\+$ hh\HN@Pؾ (1\ hȻfز (1\- $ hȦh\N0@Pؠ (1\\*  hȔh\0F@P؎ (1\\, \L\\|  dLh\Fd@P 1\R\T\V\XToY\Z\[\T_z\R\T l׀h\dZ@P 1\Z\[\\V\\X\YTw\{$ l̴h\Zp@P"ܮ 1\R\T\V\X\Y\Z\[\ dXdYdZd[TRTV@ l fp4@PML 1\}$ lh\4Z@Pa 1TR\T\V\X\Y\Z\[\Tz" lπh\ZX@P 1\R\T\V\X\Y\Z\[T\|A ḽh\Xp@Pܧ (1\Dd\T\] lQfܐ (1RlT\]\z$A p@PdLh\4@P (1\\|%A l hTg4P@P (1\l\\Twr(\|)A\L\TP@Pc >@P (40HSINGLE PRECISION BACKGROUND INPUT-OUTPUT) >@P"R@P"(2I3,$4,Z3,5X,2F7.3,E11.1/2A2,2R2,4HXXXX,7HREPLACE,7HREPLACE) R @PA(40A2) (@PD(3F8.4,I5,$4,Z4,3X,2A2,2R1) (0@PR(2E10.3,3X,F12.4,I5,$4,Z4,2A2,2R1)0@Pc8@Pc(2E12.3,2I4,2R4,Z10/8X,F10.4,$5,5X,2A4) 8@Pw@PXw2@Pw(2I3,$4,Z3,5X,2F14.7,E15.7,2A2,2R2) 2>@P(40H  ) >@PB @P PTSIOSB BPHFLOT @Q8STP  Q8QINIQ8QX Q8QENDQ8DFNFyDECODEENCODEBPTSIOSBJ PTAPDMY DECK-ID V19 MSOS VERIFICATION TESTS J@P T"PQ8QBCKQ8QFLEQ8QWNDEOF "P J PDBLDMY DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079J @P d" PQ8DXP1Q8DXP9DOUT P P*T PP1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ UNFORMATTED READ AND WRITE TO MASS STORAGE PP*U PP999005ABCD0EA 027345 76.63 532E 02 PPWORDFOURHEREABCDEFGHIJKLMN PP123456788.7654321233.567 987FACE12AB STAYGO PPPLACE THIS MESSAGE IN THE FORMAT STATEMENT PP*U PP*U PP*JOB PP*LGO,10 PD PTSEDSB DECK-ID V20 MSOS VERIFICATION TESTS D@PSp@PQ Tr\,TJT\|\K\L\\M\TKTLTOpn@P|TPTThȈhȆhhTM\z\O\P hȨh\n.@Pآ 1\\|\J\T.>@P(41HSINGLE PRECISION BACKGROUND ENCODE-DECODE)>@P(2I10,A2,F10.5) @P(2I10,12A2)  @P(40A2) PTSEDSB ZPQ8STP Q8QINITQ8QX ^Q8QENDaHEXASCqHEXDECuASCII yDECHEX}AFORM RFORM FLOATGZPTSEDSBJ PDBLDMY DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079J @P d" PQ8DXP1Q8DXP9DOUT P P*T PP*U PP 8351 23966XY2419012006 PP*U PP*U PP*JOB PP*LGO,10 PD P9TMTHSB DECK-ID V21 MSOS VERIFICATION TESTS D @P p@PTr\,TT h\|\\\\\TT Ⱦ!dhTpp@PI\ ThT\ȩ(hȤdRhȞhțhȘdh\z \ pp@Pt\ \\\z\ \\\\\\\ 1 l\|\\\pp@P\\T\ T\ T\T\TTAT\Tpp@P\Td TdTdTzT) \ \\\\\T,\pF@Pz \ \\\܍ 1\|"7\\TF@P(2I10,2F15.5) @P(8E15.6) @P(8I10) F@P(46HSINGLE PRECISION BACKGROUND ARITHMETIC LIBRARY) F @P7(A2) PTMTHSB rPHFLOT Q8STP Q8QINIQ8QX Q8QENDFLOAT IABS >IFIX OSIGN SEXP ALOG SIN COS TANH r*PSQRT ATAN EOF IFALT IOCK *PTMTHSBJ PDBLDMY DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079J @P d" PQ8DXP1Q8DXP9DOUT P P*T PP*U PP 12345 -5 2835.001 -8964328 PP -16657 +2328 -123.4567 +0.0001 PP +32736 +511 +883265501 +99.99999 PP 0 +5 4550386 123.456 PP 1 -5 -30.61 -123.456 PP 2 5 2097153.0 +123.456 PP*U PP*U PP*JOB PP*LGO,10 PD PTSTMOB DECK-ID V22 MSOS VERIFICATION TESTS D @PB @P8z@P: @P= p@PATr\,T5T^h hT678TThrh h ( hT:pp@Pl 267\\hhèh\z\9\;\h h uhT> 267\ hȨpp@Pf ؚ (1h h\hThh hT> 267\d6TA 2p0@P67\TC|&TM5TPT0:@P(36HBACKGROUND FORTRAN-MONITOR INTERFACE) : @P(2$10) @P(A2) PTSTMOB bPQ8STP Q8QINIQ8QX Q8QENDSCHEDLWDISPAT]LINK _FREAD jWRITE ICLOCKREAD FWRITEbPTSTMOBJ PDBLDMY DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079J @P d" PQ8DXP1Q8DXP9DOUT P P*T PP*U PPTHIS TEXT WHEN OUTPUT CORRECTLY WILL VERIFY CORRECT FORTRAN MONITOR INTERFACE PP*U PP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST S. (06/07/76) *LGO,10 TSIOSB 28A3 DECK-ID V18 MSOS VERIFICATION TESTS TAPDMY 2B45 DECK-ID V19 MSOS VERIFICATION TESTS DBLDMY 2B49 DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 Q8QINI 2B4B DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 2C22 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 2C43 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 2D21 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 2E3A DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 2F11 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 2FDF DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 3047 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 30D0 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 313D DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 3193 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 31CA DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 IOCODE 322C DECK-ID J01 FTN 3.3 RUNTIME SUMMARY-102 PSUEDO 326A DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102 FORMTN 328F DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-102 FLOTN 346F DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-102 COMNFP 36AC DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-102 PARABN 37DF DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 37EF DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 382E DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 3A63 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 4292 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 430D DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8QGTX 43C9 DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102 IGETCH 43D1 DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102 IPACK 43E8 DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102 UPDATN 442A DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102 DECPL 4434 DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102 INTGR 4451 DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102 SPACEN 4477 DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102 HOLRTH 448A DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102 DCHX 450D DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102 HXASC 457D DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102 AFRMOT 45C9 DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102 RFRMOT 45EC DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102 AFRMIN 4600 DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102 RFRMIN 462C DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102 ASCHX 463E DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102 HXDC 4672 DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102 FLOTIN 46FB DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102 FOUT 4741 DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102 EOUT 47C8 DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102 EWRITE 48B1 DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102 Q8QFI 48C0 DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102 Q8QFL 48D6 DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102 Q8QFX 4901 DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 4931 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8QFL 48D6 DECPL 4434 ASCHX 463E Q8DXP1 2B49 Q8QFLE 2B45 Q8QBCK 2B45 Q8INTB 2D21 Q8DXP9 2B49 Q8MAGT 313D Q8FGET 30D9 AFRMIN 4600 Q8RWBU 2D71 EOF 2B45 Q8IGP 30D4 Q8BINB 2DBA ISAVE 326C Q8COMI 31B4 Q8EOTT 317A RFRMOT 45EC Q8PSE 3193 Q8QX 2FF2 Q8QY 2FEB Q8QZ 2FE5 INTGR 4451 Q8PAND 31CA Q8IBUF 2DD9 Q8EXP1 4292 Q8EXP2 43BB DOUT 2B49 Q8CLRB 2D4C Q8EXP9 4319 Q8TRAN 4233 Q8PSEN 3198 Q8UNIT 2BA4 Q8EXPT 43B9 Q8QFI 48C0 Q8STP 31AA DCHX 450D FLOT 346F Q8MOVE 3030 Q8QTRM 2FF2 EWRITE 48B1 OPERND 36BB AFRMOT 45C9 SPACEX 4477 IFALT 37B5 IPACK 43E8 Q8QUN1 3047 Q8QUN2 304B Q8QUN3 305A Q8QEND 2C22 EOUT 47C9 Q8QINI 2B4B HXASC 457D Q8DFIN 2F99 Q8QENS 2CE9 Q8QWND 2B45 PROCHK 372B ENCODE 3231 TSIOSB 28A3 FLOTIN 46FB GETCH 43DA CHCNT 3290 Q8BEGB 2D49 Q8DFNF 2F11 Q8IFRM 381E RECEND 2CEA Q8FPUT 310B IGETCH 43D1 FORMTR 3291 FPEROR 375E Q8QFX 4901 SFALT 37D0 HFLOT 3473 Q8DFAD 2C43 FOUT 4742 Q8RINT 2D5B Q8ERRM 2E3A HOLRTH 448A Q8FS 3A32 Q8CMP0 2C45 Q8CMP1 2C7C WRFLG 2D70 Q8SKIP 2C1B Q9PKUP 494C PARABS 37E1 UPDATE 442A Q8EREM 2E95 Q8QT0M 2FDF FIXFOP 3790 RFRMIN 462C FLOFOP 3766 NXTOP 36AC Q8LOCB 2D44 Q8FERM 2E84 Q8LOCF 30D1 Q8STPN 31B1 DECODE 322D COMMON 326A SPECOP 36D6 Q8QGET 43C9 SETBFR 43CD QUOTE 44C9 HXDC 4672 Q8PREP 4931 Q8PKUP 493F SINGLE PRECISION BACKGROUND INPUT-OUTPUT34567890ABCDEFGHIJKLMNOPQRSTUVWXYZ UNFORMATTED READ AND WRITE TO MASS STORAGE 0.273E+02 0.766E+02 999 5 FO UR ABCD 5319.9995 EA WO RD999 5ABCD EA 27.345 76.630 0.5E+04 WORDFOURHEREABCDEFGHIJKLMN .123E+04 .876E+01 1233.5668 987FACE12ABSTAYGOPLACE THIS MESSAGE IN THE FORMAT STATEME STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST S. (06/07/76) *LGO,10 TSEDSB 28A3 DECK-ID V20 MSOS VERIFICATION TESTS DBLDMY 2982 DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 Q8QINI 2984 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 2A5B DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 2A7C DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 2B5A DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 2C73 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 2D4A DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 2E18 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 2E80 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 2F09 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 2F76 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 TAPCON 2FCC DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 306C DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 30A3 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 HEXASC 3105 DECK-ID J27 FTN 3.3 RUNTIME SUMMARY-102 HEXDEC 311C DECK-ID J28 FTN 3.3 RUNTIME SUMMARY-102 ASC11 3139 DECK-ID J29 FTN 3.3 RUNTIME SUMMARY-102 DECHEX 314D DECK-ID J30 FTN 3.3 RUNTIME SUMMARY-102 AFORM 316C DECK-ID J31 FTN 3.3 RUNTIME SUMMARY-102 RFORM 3187 DECK-ID J32 FTN 3.3 RUNTIME SUMMARY-102 FLOATG 31A2 DECK-ID J33 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 31BE DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 31FD DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 3432 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 3C61 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 3CDC DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 DCHX 3D98 DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102 HXASC 3E08 DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102 AFRMIN 3E54 DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102 RFRMIN 3E80 DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102 ASCHX 3E92 DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102 HXDC 3EC6 DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102 EOUT 3F4F DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102 EWRITE 4038 DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102 INITL1 4047 DECK-ID J22 FTN 3.3 RUNTIME SUMMARY-102 FORMTN 4074 DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-102 Q8QFI 4254 DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102 Q8QFL 426A DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102 Q8QFX 4295 DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102 FLOTN 42C5 DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-102 COMNFP 4502 DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 4635 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 PARABN 4663 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8QGTX 4673 DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102 PSUEDO 467B DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102 IGETCH 46A0 DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102 IPACK 46B7 DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102 UPDATN 46F9 DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102 DECPL 4703 DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102 INTGR 4720 DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102 SPACEN 4746 DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102 HOLRTH 4759 DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102 AFRMOT 47DC DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102 RFRMOT 47FF DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102 FLOTIN 4813 DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102 FOUT 4859 DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8QFL 426A DECPL 4703 RFORM 3187 ASCHX 3E92 Q8DXP1 2982 Q8QFLE 3028 Q8QBCK 3052 Q8INTB 2B5A Q8DXP9 2982 HEXDEC 311C Q8MAGT 2F76 Q8FGET 2F12 RESTRE 405E AFRMIN 3E54 Q8RWBU 2BAA EOF 3038 Q8IGP 2F0D Q8BINB 2BF3 HEXASC 3105 Q8COMI 308D Q8EOTT 2FB3 RFRMOT 47FF Q8PSE 306C Q8QX 2E2B Q8QY 2E24 Q8QZ 2E1E INTGR 4720 AFORM 316C Q8PAND 30A3 Q8IBUF 2C12 Q8EXP1 3C61 Q8EXP2 3D8A DOUT 2982 Q8CLRB 2B85 Q8EXP9 3CE8 Q8TRAN 3C02 Q8PSEN 3071 Q8UNIT 29DD Q8EXPT 3D88 Q8QFI 4254 Q8STP 3083 DCHX 3D98 FLOT 42C5 Q8MOVE 2E69 Q8QTRM 2E2B EWRITE 4038 OPERND 4511 AFRMOT 47DC SPACEX 4746 IFALT 460B IPACK 46B7 Q8QUN1 2E80 Q8QUN2 2E84 Q8QUN3 2E93 Q8QEND 2A5B EOUT 3F50 Q8QINI 2984 HXASC 3E08 Q8DFIN 2DD2 Q8QENS 2B22 Q8QWND 3048 PROCHK 4581 DECHEX 314D FLOTIN 4813 GETCH 46A9 CHCNT 4075 Q8BEGB 2B82 Q8DFNF 2D4A Q8IFRM 31ED RECEND 2B23 TSEDSB 28A3 Q8FPUT 2F44 IGETCH 46A0 FORMTR 4076 FPEROR 45B4 Q8QFX 4295 SFALT 4626 HFLOT 42C9 ASCII 3139 Q8DFAD 2A7C FOUT 485A Q8RINT 2B94 Q8ERRM 2C73 HOLRTH 4759 Q8FS 3401 Q8CMP0 2A7E Q8CMP1 2AB5 WRFLG 2BA9 Q8SKIP 2A54 Q9PKUP 4650 PARABS 4665 UPDATE 46F9 Q8EREM 2CCE Q8QT0M 2E18 FIXFOP 45E6 RFRMIN 3E80 FLOFOP 45BC NXTOP 4502 Q8LOCB 2B7D Q8FERM 2CBD Q8LOCF 2F0A FLOATG 31A2 Q8STPN 308A HXDC 3EC6 INITL1 4047 SPECOP 452C Q8PREP 4635 Q8PKUP 4643 Q8QGET 4673 SETBFR 4677 COMMON 467B ISAVE 467D QUOTE 4798 SINGLE PRECISION BACKGROUND ENCODE-DECODE 8351 23966X Y X Y .241901E+05 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST S. (06/07/76) *LGO,10 TMTHSB 28A3 DECK-ID V21 MSOS VERIFICATION TESTS DBLDMY 29DC DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 ABS 29DE DECK-ID G03 FTN 3.3 RUNTIME SUMMARY-102 SQRT 29EE DECK-ID G04 FTN 3.3 RUNTIME SUMMARY-102 SIGN 2A6A DECK-ID G05 FTN 3.3 RUNTIME SUMMARY-102 FIXFLT 2A8E DECK-ID G06 FTN 3.3 RUNTIME SUMMARY-102 EXP 2ABE DECK-ID G07 FTN 3.3 RUNTIME SUMMARY-102 ALOG 2B57 DECK-ID G08 FTN 3.3 RUNTIME SUMMARY-102 TANH 2BC8 DECK-ID G09 FTN 3.3 RUNTIME SUMMARY-102 SINCOS 2C31 DECK-ID G10 FTN 3.3 RUNTIME SUMMARY-102 ATAN 2CDF DECK-ID G11 FTN 3.3 RUNTIME SUMMARY-102 PARABN 2D73 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8QINI 2D83 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 2E5A DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 2E7B DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 2F59 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 3072 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 3149 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 3217 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 327F DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 3308 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 3375 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 TAPCON 33CB DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-102 IOCK 346B DECK-ID H15 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 3488 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 34BF DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 FLOTN 3521 DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-102 COMNFP 375E DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 3891 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 38D0 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 3B05 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 4334 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 43AF DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 446B DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - SIN 2C41 Q8DXP1 29DC Q8QFLE 3427 Q8QBCK 3451 Q8INTB 2F59 Q8DXP9 29DC Q8MAGT 3375 Q8QFLT 2AA9 Q8FGET 3311 Q8RWBU 2FA9 ABS 29DE EOF 3437 Q8IGP 330C ATAN 2CE0 Q8BINB 2FF2 Q8COMI 34A9 Q8DFLT 2AA9 Q8EOTT 33B2 TANH 2BC8 Q8PSE 3488 Q8QX 322A Q8QY 3223 Q8QZ 321D ALOG 2B57 DFLT 2AAF Q8PAND 34BF Q8IBUF 3011 Q8EXP1 4334 Q8EXP2 445D DOUT 29DC Q8CLRB 2F84 Q8EXP9 43BB Q8FLOT 2AAF Q8PSEN 348D Q8UNIT 2DDC Q8EXPT 445B EXP 2ABE Q8STP 349F IOCK 346B FLOT 3521 Q8MOVE 3268 Q8QFIX 2A8E Q8QTRM 322A OPERND 376D IFALT 3867 SIGN 2A6A Q8QUN1 327F Q8QUN2 3283 Q8QUN3 3292 Q8QEND 2E5A Q8QINI 2D83 Q8DFIN 31D1 Q8QENS 2F21 Q8QWND 3447 PROCHK 37DD COS 2C31 DFIX 2A93 Q8BEGB 2F81 Q8DFNF 3149 Q8IFRM 38C0 RECEND 2F22 Q8FPUT 3343 FPEROR 3810 Q8AB 29DE Q8SG 2A6A SFALT 3882 HFLOT 3525 IFIX 2A93 Q8DFAD 2E7B Q8RINT 2F93 Q8ERRM 3072 Q8FS 3AD4 Q8FX 2A93 Q8CMP0 2E7D Q8CMP1 2EB4 WRFLG 2FA8 Q8SKIP 2E53 Q9PKUP 4486 PARABS 2D75 Q8EREM 30CD Q8QT0M 3217 FIXFOP 3842 FLOFOP 3818 FLOAT 2AAF SQRT 29EE NXTOP 375E Q8LOCB 2F7C Q8FERM 30BC Q8LOCF 3309 TMTHSB 28A3 Q8STPN 34A6 SPECOP 3788 Q8TRAN 42D5 Q8PREP 446B Q8PKUP 4479 SINGLE PRECISION BACKGROUND ARITHMETIC LIBRARY 0.283500E+04 0.123450E+05 -0.283500E+04 12345 2835 -12345 -4 -12348 12344 -12345 0.123457E+03 -0.166570E+05 0.123457E+03 16657 -123 16657 -16385 -18441 2056 16657 0.883265E+04 0.327360E+05 0.883265E+04 32736 8832 32736 32767 32287 480 -32736 0.578196E+20 0.381780E+01 0.998789E+00 0.492112E-01 0.100000E+01 0.674566E+01 0.154882E+01 2 2 2 0.508447E-13 0.170141E+39 0.721471E+00 0.692444E+00 -0.100000E+01 -0.553263E+01 -0.153814E+01 2 2 2 0.170141E+39 0.145561E+02 0.170141E+39 0.170141E+39 0.100000E+01 0.144816E+04 0.157080E+01 2 2 2 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST S. (06/07/76) *LGO,10 TSTMOB 28A3 DECK-ID V22 MSOS VERIFICATION TESTS DBLDMY 2990 DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 FORTN 2992 DECK-ID F01 FTN 3.3 RUNTIME SUMMARY-102 Q8QINI 2AC7 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 2B9E DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 2BBF DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 2C9D DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 2DB6 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 2E8D DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 2F5B DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 2FC3 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 304C DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 30B9 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 TAPCON 310F DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 31AF DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 31E6 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 Q8IFRM 3248 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 3287 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 34BC DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 3CEB DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 3D66 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 FLOTN 3E22 DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-102 COMNFP 405F DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 4192 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 PARABN 41C0 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8DXP1 2990 Q8QFLE 316B Q8QBCK 3195 WRITE 2996 Q8INTB 2C9D Q8DXP9 2990 Q8MAGT 30B9 Q8FGET 3055 TSTMOB 28A3 Q8RWBU 2CED EOF 317B Q8IGP 3050 TIMER 29A7 FREAD 299A Q8BINB 2D36 Q8COMI 31D0 Q8EOTT 30F6 ICLOCK 29B2 OCONCT 2A9A DISPAT 29AC Q8PSE 31AF Q8QX 2F6E Q8QY 2F67 Q8QZ 2F61 Q8PAND 31E6 Q8IBUF 2D55 Q8EXP1 3CEB Q8EXP2 3E14 DOUT 2990 Q8CLRB 2CC8 Q8EXP9 3D72 Q8TRAN 3C8C Q8PSEN 31B4 Q8UNIT 2B20 Q8EXPT 3E12 Q8STP 31C6 FLOT 3E22 Q8MOVE 2FAC Q8QTRM 2F6E OPERND 406E IFALT 4168 LINK 29AE Q8QUN1 2FC3 Q8QUN2 2FC7 Q8QUN3 2FD6 Q8QEND 2B9E Q8QINI 2AC7 Q8DFIN 2F15 Q8QENS 2C65 Q8QWND 318B PROCHK 40DE INPINS 29B6 Q8BEGB 2CC5 Q8DFNF 2E8D Q8IFRM 3277 RECEND 2C66 Q8FPUT 3087 FWRITE 299E FPEROR 4111 SFALT 4183 HFLOT 3E26 Q8DFAD 2BBF RELESE 29C0 SCHEDL 29A2 Q8RINT 2CD7 Q8ERRM 2DB6 OUTINS 29BB Q8FS 348B Q8CMP0 2BC1 Q8CMP1 2BF8 DISP 29AC WRFLG 2CEC Q8SKIP 2B97 Q9PKUP 41AD PARABS 41C2 Q8EREM 2E11 Q8QT0M 2F5B FIXFOP 4143 FLOFOP 4119 ICONCT 2A95 READ 2992 NXTOP 405F Q8LOCB 2CC0 Q8FERM 2E00 Q8LOCF 304D Q8STPN 31CD SPECOP 4089 Q8PREP 4192 Q8PKUP 41A0 BACKGROUND FORTRAN-MONITOR INTERFACE 7ACE 0000THIS TEXT WHEN OUTPUT CORRECTLY WILL VERIFY CORRECT FORTRAN MONITOR INTERFACE STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST H. (06/04/76) *LGO,10 TSIOSB 3C3C DECK-ID V18 MSOS VERIFICATION TESTS TAPDMY 3EDE DECK-ID V19 MSOS VERIFICATION TESTS DBLDMY 3EE2 DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 Q8QINI 3EE4 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 3FBB DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 3FDC DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 40BA DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 41D3 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 42AA DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 4378 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 43E0 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 4469 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 44D6 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 452C DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 4563 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 IOCODE 45C5 DECK-ID J01 FTN 3.3 RUNTIME SUMMARY-102 PSUEDO 4603 DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102 FORMTN 4628 DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-102 D1781N 4808 DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 PARABN 4866 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 4876 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 48B5 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 4AEA DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 5319 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 5394 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8QGTX 5450 DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102 IGETCH 5458 DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102 IPACK 546F DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102 UPDATN 54B1 DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102 DECPL 54BB DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102 INTGR 54D8 DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102 SPACEN 54FE DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102 HOLRTH 5511 DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102 DCHX 5594 DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102 HXASC 5604 DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102 AFRMOT 5650 DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102 RFRMOT 5673 DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102 AFRMIN 5687 DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102 RFRMIN 56B3 DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102 ASCHX 56C5 DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102 HXDC 56F9 DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102 FLOTIN 5782 DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102 FOUT 57C8 DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102 EOUT 584F DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102 EWRITE 5938 DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102 Q8QFI 5947 DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102 Q8QFL 595D DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102 Q8QFX 5988 DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 59B8 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8QFL 595D DECPL 54BB ASCHX 56C5 Q8DXP1 3EE2 Q8QFLE 3EDE Q8QBCK 3EDE Q8INTB 40BA Q8DXP9 3EE2 Q8MAGT 44D6 Q8FGET 4472 AFRMIN 5687 Q8RWBU 410A EOF 3EDE Q8IGP 446D Q8BINB 4153 ISAVE 4605 Q8COMI 454D Q8EOTT 4513 RFRMOT 5673 Q8PSE 452C Q8QX 438B Q8QY 4384 Q8QZ 437E INTGR 54D8 Q8PAND 4563 Q8IBUF 4172 Q8EXP1 5319 Q8EXP2 5442 DOUT 3EE2 Q8CLRB 40E5 Q8EXP9 53A0 Q8TRAN 52BA Q8PSEN 4531 Q8UNIT 3F3D HDFLOT 4808 Q8QFI 5947 Q8STP 4543 DCHX 5594 Q8MOVE 43C9 Q8QTRM 438B Q8STPN 454A EWRITE 5938 AFRMOT 5650 SPACEX 54FE IFALT 4818 IPACK 546F Q8QUN1 43E0 Q8QUN2 43E4 Q8QUN3 43F3 Q8QEND 3FBB EOUT 5850 Q8QINI 3EE4 HXASC 5604 Q8DFIN 4332 Q8QENS 4082 Q8QWND 3EDE ENCODE 45CA TSIOSB 3C3C FLOTIN 5782 E17811 160D GETCH 5461 CHCNT 4629 Q8BEGB 40E2 Q8DFNF 42AA Q8IFRM 48A5 RECEND 4083 Q8FPUT 44A4 IGETCH 5458 FORMTR 462A Q8QFX 5988 SFALT 4844 HFLOT 480C Q8DFAD 3FDC FOUT 57C9 Q8RINT 40F4 Q8ERRM 41D3 HOLRTH 5511 Q8FS 4AB9 Q8CMP0 3FDE Q8CMP1 4015 WRFLG 4109 Q8SKIP 3FB4 Q9PKUP 59D3 PARABS 4868 UPDATE 54B1 Q8EREM 422E Q8QT0M 4378 RFRMIN 56B3 Q8LOCB 40DD Q8FERM 421D Q8LOCF 446A DECODE 45C6 COMMON 4603 Q8EXPT 5440 Q8QGET 5450 SETBFR 5454 QUOTE 5550 HXDC 56F9 Q8PREP 59B8 Q8PKUP 59C6 SINGLE PRECISION BACKGROUND INPUT-OUTPUT34567890ABCDEFGHIJKLMNOPQRSTUVWXYZ UNFORMATTED READ AND WRITE TO MASS STORAGE 0.273E+02 0.766E+02 999 5 FO UR ABCD 5319.9995 EA WO RD999 5ABCD EA 27.345 76.630 0.5E+04 WORDFOURHEREABCDEFGHIJKLMN .123E+04 .876E+01 1233.5668 987FACE12ABSTAYGOPLACE THIS MESSAGE IN THE FORMAT STATEME STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST H. (06/04/76) *LGO,10 TSEDSB 3C3C DECK-ID V20 MSOS VERIFICATION TESTS DBLDMY 3D1B DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 Q8QINI 3D1D DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 3DF4 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 3E15 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 3EF3 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 400C DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 40E3 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 41B1 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 4219 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 42A2 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 430F DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 TAPCON 4365 DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 4405 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 443C DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 HEXASC 449E DECK-ID J27 FTN 3.3 RUNTIME SUMMARY-102 HEXDEC 44B5 DECK-ID J28 FTN 3.3 RUNTIME SUMMARY-102 ASC11 44D2 DECK-ID J29 FTN 3.3 RUNTIME SUMMARY-102 DECHEX 44E6 DECK-ID J30 FTN 3.3 RUNTIME SUMMARY-102 AFORM 4505 DECK-ID J31 FTN 3.3 RUNTIME SUMMARY-102 RFORM 4520 DECK-ID J32 FTN 3.3 RUNTIME SUMMARY-102 FLOATG 453B DECK-ID J33 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 4557 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 4596 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 47CB DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 4FFA DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 5075 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 DCHX 5131 DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102 HXASC 51A1 DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102 AFRMIN 51ED DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102 RFRMIN 5219 DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102 ASCHX 522B DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102 HXDC 525F DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102 EOUT 52E8 DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102 EWRITE 53D1 DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102 INITL1 53E0 DECK-ID J22 FTN 3.3 RUNTIME SUMMARY-102 FORMTN 540D DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-102 Q8QFI 55ED DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102 Q8QFL 5603 DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102 Q8QFX 562E DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102 D1781N 565E DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 Q8PRMS 56BC DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 PARABN 56EA DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8QGTX 56FA DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102 PSUEDO 5702 DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102 IGETCH 5727 DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102 IPACK 573E DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102 UPDATN 5780 DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102 DECPL 578A DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102 INTGR 57A7 DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102 SPACEN 57CD DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102 HOLRTH 57E0 DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102 AFRMOT 5863 DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102 RFRMOT 5886 DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102 FLOTIN 589A DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102 FOUT 58E0 DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8QFL 5603 DECPL 578A RFORM 4520 ASCHX 522B Q8DXP1 3D1B Q8QFLE 43C1 Q8QBCK 43EB Q8INTB 3EF3 Q8DXP9 3D1B HEXDEC 44B5 Q8MAGT 430F Q8FGET 42AB RESTRE 53F7 AFRMIN 51ED Q8RWBU 3F43 EOF 43D1 Q8IGP 42A6 Q8BINB 3F8C HEXASC 449E Q8COMI 4426 Q8EOTT 434C RFRMOT 5886 Q8PSE 4405 Q8QX 41C4 Q8QY 41BD Q8QZ 41B7 INTGR 57A7 AFORM 4505 Q8PAND 443C Q8IBUF 3FAB Q8EXP1 4FFA Q8EXP2 5123 DOUT 3D1B Q8CLRB 3F1E Q8EXP9 5081 Q8TRAN 4F9B Q8PSEN 440A Q8UNIT 3D76 Q8EXPT 5121 Q8QFI 55ED Q8STP 441C DCHX 5131 Q8MOVE 4202 Q8QTRM 41C4 Q8STPN 4423 EWRITE 53D1 AFRMOT 5863 SPACEX 57CD IFALT 566E IPACK 573E Q8QUN1 4219 Q8QUN2 421D Q8QUN3 422C Q8QEND 3DF4 EOUT 52E9 Q8QINI 3D1D HXASC 51A1 Q8DFIN 416B Q8QENS 3EBB Q8QWND 43E1 DECHEX 44E6 FLOTIN 589A E17811 160D GETCH 5730 CHCNT 540E Q8BEGB 3F1B Q8DFNF 40E3 Q8IFRM 4586 RECEND 3EBC TSEDSB 3C3C Q8FPUT 42DD IGETCH 5727 FORMTR 540F Q8QFX 562E SFALT 569A HFLOT 5662 ASCII 44D2 Q8DFAD 3E15 FOUT 58E1 Q8RINT 3F2D Q8ERRM 400C HOLRTH 57E0 Q8FS 479A Q8CMP0 3E17 Q8CMP1 3E4E WRFLG 3F42 Q8SKIP 3DED Q9PKUP 56D7 PARABS 56EC UPDATE 5780 Q8EREM 4067 Q8QT0M 41B1 RFRMIN 5219 Q8LOCB 3F16 Q8FERM 4056 Q8LOCF 42A3 FLOATG 453B HXDC 525F INITL1 53E0 HDFLOT 565E Q8PREP 56BC Q8PKUP 56CA Q8QGET 56FA SETBFR 56FE COMMON 5702 ISAVE 5704 QUOTE 581F SINGLE PRECISION BACKGROUND ENCODE-DECODE 8351 23966X Y X Y .241901E+05 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST H. (06/04/76) *LGO,10 TMTHSB 3C3C DECK-ID V21 MSOS VERIFICATION TESTS DBLDMY 3D75 DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 ABS 3D77 DECK-ID G03 FTN 3.3 RUNTIME SUMMARY-102 SQRT 3D87 DECK-ID G04 FTN 3.3 RUNTIME SUMMARY-102 SIGN 3E03 DECK-ID G05 FTN 3.3 RUNTIME SUMMARY-102 FIXFLT 3E27 DECK-ID G06 FTN 3.3 RUNTIME SUMMARY-102 EXP 3E57 DECK-ID G07 FTN 3.3 RUNTIME SUMMARY-102 ALOG 3EF0 DECK-ID G08 FTN 3.3 RUNTIME SUMMARY-102 TANH 3F61 DECK-ID G09 FTN 3.3 RUNTIME SUMMARY-102 SINCOS 3FCA DECK-ID G10 FTN 3.3 RUNTIME SUMMARY-102 ATAN 4078 DECK-ID G11 FTN 3.3 RUNTIME SUMMARY-102 PARABN 410C DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8QINI 411C DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 41F3 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 4214 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 42F2 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 440B DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 44E2 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 45B0 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 4618 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 46A1 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 470E DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 TAPCON 4764 DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-102 IOCK 4804 DECK-ID H15 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 4821 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 4858 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 D1781N 48BA DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 Q8IFRM 4918 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 4957 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 4B8C DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 53BB DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 5436 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 54F2 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - SIN 3FDA Q8DXP1 3D75 Q8QFLE 47C0 Q8QBCK 47EA Q8INTB 42F2 Q8DXP9 3D75 Q8MAGT 470E Q8QFLT 3E42 Q8FGET 46AA Q8RWBU 4342 ABS 3D77 EOF 47D0 Q8IGP 46A5 ATAN 4079 Q8BINB 438B Q8COMI 4842 Q8DFLT 3E42 Q8EOTT 474B TANH 3F61 Q8PSE 4821 Q8QX 45C3 Q8QY 45BC Q8QZ 45B6 ALOG 3EF0 DFLT 3E48 Q8PAND 4858 Q8IBUF 43AA Q8EXP1 53BB Q8EXP2 54E4 DOUT 3D75 Q8CLRB 431D Q8EXP9 5442 Q8FLOT 3E48 Q8PSEN 4826 Q8UNIT 4175 HDFLOT 48BA EXP 3E57 Q8STP 4838 IOCK 4804 Q8MOVE 4601 Q8QFIX 3E27 Q8QTRM 45C3 Q8STPN 483F IFALT 48CA SIGN 3E03 Q8QUN1 4618 Q8QUN2 461C Q8QUN3 462B Q8QEND 41F3 Q8QINI 411C Q8DFIN 456A Q8QENS 42BA Q8QWND 47E0 COS 3FCA E17811 160D DFIX 3E2C Q8BEGB 431A Q8DFNF 44E2 Q8IFRM 4947 RECEND 42BB Q8FPUT 46DC Q8AB 3D77 Q8SG 3E03 SFALT 48F6 HFLOT 48BE IFIX 3E2C Q8DFAD 4214 Q8RINT 432C Q8ERRM 440B Q8FS 4B5B Q8FX 3E2C Q8CMP0 4216 Q8CMP1 424D WRFLG 4341 Q8SKIP 41EC Q9PKUP 550D PARABS 410E Q8EREM 4466 Q8QT0M 45B0 FLOAT 3E48 SQRT 3D87 Q8LOCB 4315 Q8FERM 4455 Q8LOCF 46A2 TMTHSB 3C3C Q8TRAN 535C Q8EXPT 54E2 Q8PREP 54F2 Q8PKUP 5500 SINGLE PRECISION BACKGROUND ARITHMETIC LIBRARY 0.283500E+04 0.123450E+05 -0.283500E+04 12345 2835 -12345 -4 -12348 12344 -12345 0.123457E+03 -0.166570E+05 0.123457E+03 16657 -123 16657 -16385 -18441 2056 16657 0.883265E+04 0.327360E+05 0.883265E+04 32736 8832 32736 32767 32287 480 -32736 0.578196E+20 0.381780E+01 0.998789E+00 0.492112E-01 0.100000E+01 0.674566E+01 0.154882E+01 2 2 2 0.508447E-13 0.170141E+39 0.721471E+00 0.692444E+00 -0.100000E+01 -0.553263E+01 -0.153814E+01 2 2 2 0.170141E+39 0.145561E+02 0.170141E+39 0.170141E+39 0.100000E+01 0.144816E+04 0.157080E+01 2 2 2 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST H. (06/04/76) *LGO,10 TSTMOB 3C3C DECK-ID V22 MSOS VERIFICATION TESTS DBLDMY 3D29 DECK-ID K19 3.2 FTN RUNTIME SUMMARY-079 FORTN 3D2B DECK-ID F01 FTN 3.3 RUNTIME SUMMARY-102 Q8QINI 3E60 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 3F37 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 3F58 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 4036 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 414F DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 4226 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 42F4 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 435C DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 43E5 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 4452 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 TAPCON 44A8 DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 4548 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 457F DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 Q8IFRM 45E1 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 4620 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 4855 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 5084 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 50FF DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 D1781N 51BB DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 Q8PRMS 5219 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 PARABN 5247 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8DXP1 3D29 Q8QFLE 4504 Q8QBCK 452E WRITE 3D2F Q8INTB 4036 Q8DXP9 3D29 Q8MAGT 4452 Q8FGET 43EE TSTMOB 3C3C Q8RWBU 4086 EOF 4514 Q8IGP 43E9 TIMER 3D40 FREAD 3D33 Q8BINB 40CF Q8COMI 4569 Q8EOTT 448F ICLOCK 3D4B OCONCT 3E33 DISPAT 3D45 Q8PSE 4548 Q8QX 4307 Q8QY 4300 Q8QZ 42FA Q8PAND 457F Q8IBUF 40EE Q8EXP1 5084 Q8EXP2 51AD DOUT 3D29 Q8CLRB 4061 Q8EXP9 510B Q8TRAN 5025 Q8PSEN 454D Q8UNIT 3EB9 Q8EXPT 51AB Q8STP 455F Q8MOVE 4345 Q8QTRM 4307 Q8STPN 4566 IFALT 51CB LINK 3D47 Q8QUN1 435C Q8QUN2 4360 Q8QUN3 436F Q8QEND 3F37 Q8QINI 3E60 Q8DFIN 42AE Q8QENS 3FFE Q8QWND 4524 INPINS 3D4F E17811 160D Q8BEGB 405E Q8DFNF 4226 Q8IFRM 4610 RECEND 3FFF Q8FPUT 4420 FWRITE 3D37 SFALT 51F7 HFLOT 51BF Q8DFAD 3F58 RELESE 3D59 SCHEDL 3D3B Q8RINT 4070 Q8ERRM 414F OUTINS 3D54 Q8FS 4824 Q8CMP0 3F5A Q8CMP1 3F91 DISP 3D45 WRFLG 4085 Q8SKIP 3F30 Q9PKUP 5234 PARABS 5249 Q8EREM 41AA Q8QT0M 42F4 ICONCT 3E2E READ 3D2B Q8LOCB 4059 Q8FERM 4199 Q8LOCF 43E6 HDFLOT 51BB Q8PREP 5219 Q8PKUP 5227 BACKGROUND FORTRAN-MONITOR INTERFACE 7ACE 0000THIS TEXT WHEN OUTPUT CORRECTLY WILL VERIFY CORRECT FORTRAN MONITOR INTERFACE STOPP*U PP*JOB PP*LGO,N,10 PD PTSIODB DECK-ID V23 MSOS VERIFICATION TESTS D@Pp@PTr\,TTT@\z\\\\\| \p*@PH\\ h"4h\*H@PX 1\\z \\\ hȰ"4h\H.@Ptا 1\\| \\T.>@P(40HDOUBLE PRECISION BACKGROUND INPUT-OUTPUT) >2@P(D11.4,2X,D15.8,2X,D10.3,2X,3D12.5) 2 @P(D15.8,5X,2(D12.6,5X)) @P(A2) @P?X}A6HCCtj PTSIODB *PQ8STP Q8QINIQ8QX (Q8QEND+HDFLOT-*PTSIODBJ PTAPDMY DECK-ID V19 MSOS VERIFICATION TESTS J@P T"PQ8QBCKQ8QFLEQ8QWNDEOF "P P*T PP*U PP 0.8765E+02 365.123456E+25 765432E 02 9765432E+21 2345678E-07 198.67330E5 PP*U PP*U PP*JOB PP*LGO,N,10 PD PTSEDDB DECK-ID V24 MSOS VERIFICATION TESTS D@P<@P9 p@P;Tr\,T8T hj (1T),/2@ 5p4@PfhT:;)\z hh\4.@Pzؽ (1\\|\8\T.>@P(41HDOUBLE PRECISION BACKGROUND ENCODE-DECODE)> @P(40A2) @P(2D15.8,2D10.4,D12.6) *@P?CumHYCH"HC;* PTSEDDB 2PQ8STP Q8QINI=Q8QX GQ8QENDJHDFLOTVENCODEh2PTSEDDBJ PTAPDMY DECK-ID V19 MSOS VERIFICATION TESTS J@P T"PQ8QBCKQ8QFLEQ8QWNDEOF "P P*T PP*U PP*U PP*U PP*JOB PP*LGO,10 PD P TMTHDB DECK-ID V25 MSOS VERIFICATION TESTS D@Pp@PTr\,TT h\|\\\\TT\\Tpp@PJTT\ThT\ T\ \z\\\ \\pp@Pu\ \ \؛ 1 h\|\\\\\\T\T\Tpp@P\T\ T\ T\T zT*\\\ \  \T-p.@P 1\|\\T.F@P(46HDOUBLE PRECISION BACKGROUND ARITHMETIC LIBRARY) F@P(I10,2F10.5) @P(A2) @P(F15.5,I10,5D15.6)@P(6D15.6) PTMTHDB rPHFLOT LQ8STP Q8QINIQ8QX Q8QENDHDFLOT@DFLT [DBLE =DABS aDSIGN PDSIN DCOS DATAN DSQRT r"PDLOG DEXP DFIX WSNGL I"PTMTHDBJ PTAPDMY DECK-ID V19 MSOS VERIFICATION TESTS J@P T"PQ8QBCKQ8QFLEQ8QWNDEOF "P P*T PP*U PP 14433-234567891+259.74088 PP -1234 974.2851 -70604811 PP +9876 408936501 1.4576 PP 00001 45.50386 0.0 PP 00002 -30.61 0.0 PP 00003 2097153.0 0.0 PP*U PP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST S. (06/07/76) *LGO,N,10 TSIODB 28A3 DECK-ID V23 MSOS VERIFICATION TESTS TAPDMY 2966 DECK-ID V19 MSOS VERIFICATION TESTS Q8QINI 296A DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 2A41 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 2A62 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 2B40 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 2C59 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 2D30 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 2DFE DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 2E66 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 2EEF DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 2F5C DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 2FB2 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 2FE9 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 DFLOTN 304B DECK-ID K12 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 34C0 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 34FF DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 3734 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 3F63 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 3FDE DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 FLOTN 409A DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-102 COMNFP 42D7 DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP1 440A DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP9 44A7 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 45B2 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 PARABN 45E0 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 DOUBLE PRECISION BACKGROUND INPUT-OUTPUT 0.34567000D+00 0.345670D+05 0.123456D+03 0.8765D+02 0.36512340D+28 0.765D+05 0.97654D+23 0.23457D-05 0.19867D+08 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST S. (06/07/76) *LGO,N,10 TSEDDB 28A3 DECK-ID V24 MSOS VERIFICATION TESTS TAPDMY 2961 DECK-ID V19 MSOS VERIFICATION TESTS Q8QINI 2965 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 2A3C DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 2A5D DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 2B3B DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 2C54 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 2D2B DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 2DF9 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 2E61 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 2EEA DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 2F57 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 2FAD DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 2FE4 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 IOCODE 3046 DECK-ID J01 FTN 3.3 RUNTIME SUMMARY-102 PSUEDO 3084 DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102 FORMTN 30A9 DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-102 DOUTN 3289 DECK-ID K18 FTN 3.3 RUNTIME SUMMARY-109 DFLOTN 3391 DECK-ID K12 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 3806 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 3845 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 3A7A DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 42A9 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 4324 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8QGTX 43E0 DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102 IGETCH 43E8 DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102 IPACK 43FF DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102 UPDATN 4441 DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102 DECPL 444B DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102 INTGR 4468 DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102 SPACEN 448E DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102 HOLRTH 44A1 DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102 DCHX 4524 DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102 HXASC 4594 DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102 AFRMOT 45E0 DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102 RFRMOT 4603 DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102 AFRMIN 4617 DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102 RFRMIN 4643 DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102 ASCHX 4655 DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102 HXDC 4689 DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102 FLOTIN 4712 DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102 FOUT 4758 DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102 EOUT 47DF DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102 EWRITE 48C8 DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102 Q8QFI 48D7 DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102 Q8QFL 48ED DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102 Q8QFX 4918 DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102 FLOTN 4948 DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-102 COMNFP 4B85 DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP1 4CB8 DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP9 4D55 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102 Q8QDFN 4E60 DECK-ID K17 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 4E78 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 PARABN 4EA6 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 DOUBLE PRECISION BACKGROUND ENCODE-DECODE .49813270D-00 .58765432D+02 .1928D+28 .5918D+15 .987654D-18 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST S. (06/07/76) *LGO,10 TMTHDB 28A3 DECK-ID V25 MSOS VERIFICATION TESTS TAPDMY 29AD DECK-ID V19 MSOS VERIFICATION TESTS FIXFLT 29B1 DECK-ID G06 FTN 3.3 RUNTIME SUMMARY-102 PARABN 29E1 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8QINI 29F1 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 2AC8 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 2AE9 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 2BC7 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 2CE0 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 2DB7 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 2E85 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 2EED DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 2F76 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 2FE3 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 3039 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 3070 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 FLOTN 30D2 DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-102 COMNFP 330F DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-102 SGLDBL 3442 DECK-ID K03 FTN 3.3 RUNTIME SUMMARY-102 DABS 3450 DECK-ID K04 FTN 3.3 RUNTIME SUMMARY-102 DSQRT 3463 DECK-ID K05 FTN 3.3 RUNTIME SUMMARY-102 DSIGN 34E6 DECK-ID K06 FTN 3.3 RUNTIME SUMMARY-102 DEXP 350A DECK-ID K08 FTN 3.3 RUNTIME SUMMARY-102 DLOG 35BE DECK-ID K09 FTN 3.3 RUNTIME SUMMARY-102 DSNCSN 365D DECK-ID K10 FTN 3.3 RUNTIME SUMMARY-102 DATAN 3768 DECK-ID K11 FTN 3.3 RUNTIME SUMMARY-102 DFLOTN 3839 DECK-ID K12 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 3CAE DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 3CED DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 3F22 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 4751 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 47CC DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP1 4888 DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP9 4925 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 4A30 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8DSG 34E6 DABS 3450 Q8DXP1 4888 Q8DXP2 4A1B Q8QFLE 29AD Q8QBCK 29AD Q8INTB 2BC7 Q8DXP9 4931 Q8MAGT 2FE3 Q8QFLT 29CC Q8FGET 2F7F Q8RWBU 2C17 EOF 29AD Q8IGP 2F7A Q8DBLE 3442 Q8BINB 2C60 Q8COMI 305A Q8DFLT 29CC Q8EOTT 3020 DATAN 3768 DBLE 3442 Q8PSE 3039 Q8QX 2E98 Q8QY 2E91 Q8QZ 2E8B DFLT 29D2 Q8PAND 3070 Q8IBUF 2C7F Q8EXP1 4751 Q8EXP2 487A Q8CLRB 2BF2 Q8EXP9 47D8 Q8FLOT 29D2 Q8PSEN 303E Q8UNIT 2A4A HDFLOT 3868 Q8STP 3050 FLOT 30D2 Q8MOVE 2ED6 Q8SNGL 3442 Q8QFIX 29B1 Q8QTRM 2E98 OPERND 331E IFALT 3418 SNGL 3442 Q8QUN1 2EED Q8QUN2 2EF1 Q8QUN3 2F00 Q8QEND 2AC8 Q8QINI 29F1 Q8DFIN 2E3F Q8QENS 2B8F Q8QWND 29AD PROCHK 338E DFIX 29B6 Q8BEGB 2BEF DSIN 368E Q8DFNF 2DB7 Q8IFRM 3CDD RECEND 2B90 TMTHDB 28A3 Q8FPUT 2FB1 FPEROR 33C1 SFALT 3433 HFLOT 30D6 IFIX 29B6 Q8DFAD 2AE9 Q8RINT 2C01 Q8ERRM 2CE0 Q8FS 3EF1 Q8FX 29B6 Q8CMP0 2AEB Q8CMP1 2B22 DSIGN 34E6 WRFLG 2C16 Q8SKIP 2AC1 Q9PKUP 4A4B PARABS 29E3 Q8EREM 2D3B Q8QT0M 2E85 FIXFOP 33F3 FLOFOP 33C9 Q8DAB 3450 FLOAT 29D2 DLOG 35BE DEXP 350A DCOS 365D DSQRT 3463 NXTOP 330F Q8LOCB 2BEA Q8FERM 2D2A Q8LOCF 2F77 Q8STPN 3057 SPECOP 3339 DFLOT 3863 Q8TRAN 46F2 Q8EXPT 4878 Q8DXPT 4A18 Q8PREP 4A30 Q8PKUP 4A3E DOUBLE PRECISION BACKGROUND ARITHMETIC LIBRARY -2345.67881 259 -0.234568D+04 0.259741D+03 0.234568D+04 0.144330D+05 0.234568D+04 974.28513 -706 0.974285D+03 -0.706048D+03 -0.974285D+03 -0.123400D+04 0.974285D+03 4089.36501 1 0.408936D+04 0.145760D+01 0.408936D+04 0.987600D+04 0.408936D+04 0.578197D+20 0.381780D+01 0.998788D+00 0.492131D-01 0.674565D+01 0.154882D+01 0.508447D-13 0.170141D+39 0.721472D+00 0.692444D+00 -0.553263D+01 -0.153814D+01 0.170141D+39 0.145561D+02 0.170141D+39 0.170141D+39 0.144816D+04 0.157080D+01 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST H. (06/04/76) *LGO,N,10 TSIODB 3C3C DECK-ID V23 MSOS VERIFICATION TESTS TAPDMY 3CFF DECK-ID V19 MSOS VERIFICATION TESTS Q8QINI 3D03 DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 3DDA DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 3DFB DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 3ED9 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 3FF2 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 40C9 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 4197 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 41FF DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 4288 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 42F5 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 434B DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 4382 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 D1781N 43E4 DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 PARABN 4442 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 4452 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 4491 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 46C6 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 4EF5 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 4F70 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP1 502C DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP9 50C9 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 51D4 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 DOUBLE PRECISION BACKGROUND INPUT-OUTPUT 0.34567000D+00 0.345670D+05 0.123456D+03 0.8765D+02 0.36512340D+28 0.765D+05 0.97654D+23 0.23457D-05 0.19867D+08 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST H. (06/04/76) *LGO,N,10 TSEDDB 3C3C DECK-ID V24 MSOS VERIFICATION TESTS TAPDMY 3CFA DECK-ID V19 MSOS VERIFICATION TESTS Q8QINI 3CFE DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 3DD5 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 3DF6 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 3ED4 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 3FED DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 40C4 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 4192 DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 41FA DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 4283 DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 42F0 DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 4346 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 437D DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 IOCODE 43DF DECK-ID J01 FTN 3.3 RUNTIME SUMMARY-102 PSUEDO 441D DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102 FORMTN 4442 DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-102 D1781N 4622 DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 DOUTN 4680 DECK-ID K18 FTN 3.3 RUNTIME SUMMARY-102 PARABN 4788 DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 4798 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 47D7 DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 4A0C DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 523B DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 52B6 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8QGTX 5372 DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102 IGETCH 537A DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102 IPACK 5391 DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102 UPDATN 53D3 DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102 DECPL 53DD DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102 INTGR 53FA DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102 SPACEN 5420 DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102 HOLRTH 5433 DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102 DCHX 54B6 DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102 HXASC 5526 DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102 AFRMOT 5572 DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102 RFRMOT 5595 DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102 AFRMIN 55A9 DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102 RFRMIN 55D5 DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102 ASCHX 55E7 DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102 HXDC 561B DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102 FLOTIN 56A4 DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102 FOUT 56EA DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102 EOUT 5771 DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102 EWRITE 585A DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102 Q8QFI 5869 DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102 Q8QFL 587F DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102 Q8QFX 58AA DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP1 58DA DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP9 5977 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102 Q8QDFN 5A82 DECK-ID K17 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 5A9A DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 DOUBLE PRECISION BACKGROUND ENCODE-DECODE .49813270D-00 .58765432D+02 .1928D+28 .5918D+15 .987654D-18 STOPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: HOUSE 4 VERF. TEST H. (06/04/76) *LGO,10 TMTHDB 3C3C DECK-ID V25 MSOS VERIFICATION TESTS TAPDMY 3D46 DECK-ID V19 MSOS VERIFICATION TESTS FIXFLT 3D4A DECK-ID G06 FTN 3.3 RUNTIME SUMMARY-102 PARABN 3D7A DECK-ID G12 FTN 3.3 RUNTIME SUMMARY-102 Q8QINI 3D8A DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-102 Q8QEND 3E61 DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102 Q8CMP 3E82 DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-102 Q8RWBU 3F60 DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102 Q8ERRM 4079 DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102 Q8DFIO 4150 DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-102 QBQX 421E DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-102 Q8QUNI 4286 DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102 Q8FGET 430F DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-102 Q8MAGT 437C DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-102 PSSTOP 43D2 DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-102 Q8PAND 4409 DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-106 D1781N 446B DECK-ID G13 FTN 3.3 RUNTIME SUMMARY-108 SGLDBL 44C9 DECK-ID K03 FTN 3.3 RUNTIME SUMMARY-102 DABS 44D7 DECK-ID K04 FTN 3.3 RUNTIME SUMMARY-102 DSQRT 44EA DECK-ID K05 FTN 3.3 RUNTIME SUMMARY-102 DSIGN 456D DECK-ID K06 FTN 3.3 RUNTIME SUMMARY-102 DEXP 4591 DECK-ID K08 FTN 3.3 RUNTIME SUMMARY-102 DLOG 4645 DECK-ID K09 FTN 3.3 RUNTIME SUMMARY-102 DSNCSN 46E4 DECK-ID K10 FTN 3.3 RUNTIME SUMMARY-102 DATAN 47EF DECK-ID K11 FTN 3.3 RUNTIME SUMMARY-102 Q8IFRM 48C0 DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106 Q8FS 48FF DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106 Q8TRAN 4B34 DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-106 Q8EXP1 5363 DECK-ID H18 FTN 3.3 RUNTIME SUMMARY-102 Q8EXP9 53DE DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP1 549A DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102 Q8DXP9 5537 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102 Q8PRMS 5642 DECK-ID G01 FTN 3.3 RUNTIME SUMMARY-102 ENTRY POINT TABLE - Q8DSG 456D DABS 44D7 Q8DXP1 549A Q8DXP2 562D Q8QFLE 3D46 Q8QBCK 3D46 Q8INTB 3F60 Q8DXP9 5543 Q8MAGT 437C Q8QFLT 3D65 Q8FGET 4318 Q8RWBU 3FB0 EOF 3D46 Q8IGP 4313 Q8DBLE 44C9 Q8BINB 3FF9 Q8COMI 43F3 Q8DFLT 3D65 Q8EOTT 43B9 DATAN 47EF DBLE 44C9 Q8PSE 43D2 Q8QX 4231 Q8QY 422A Q8QZ 4224 DFLT 3D6B Q8PAND 4409 Q8IBUF 4018 Q8EXP1 5363 Q8EXP2 548C Q8CLRB 3F8B Q8EXP9 53EA Q8FLOT 3D6B Q8PSEN 43D7 Q8UNIT 3DE3 HDFLOT 446B Q8STP 43E9 Q8MOVE 426F Q8SNGL 44C9 Q8QFIX 3D4A Q8QTRM 4231 Q8STPN 43F0 IFALT 447B SNGL 44C9 Q8QUN1 4286 Q8QUN2 428A Q8QUN3 4299 Q8QEND 3E61 Q8QINI 3D8A Q8DFIN 41D8 Q8QENS 3F28 Q8QWND 3D46 E17811 160D DFIX 3D4F Q8BEGB 3F88 DSIN 4715 Q8DFNF 4150 Q8IFRM 48EF RECEND 3F29 TMTHDB 3C3C Q8FPUT 434A SFALT 44A7 HFLOT 446F IFIX 3D4F Q8DFAD 3E82 Q8RINT 3F9A Q8ERRM 4079 Q8FS 4B03 Q8FX 3D4F Q8CMP0 3E84 Q8CMP1 3EBB DSIGN 456D WRFLG 3FAF Q8SKIP 3E5A Q9PKUP 565D PARABS 3D7C Q8EREM 40D4 Q8QT0M 421E Q8DAB 44D7 FLOAT 3D6B DLOG 4645 DEXP 4591 DCOS 46E4 DSQRT 44EA Q8LOCB 3F83 Q8FERM 40C3 Q8LOCF 4310 Q8TRAN 5304 Q8EXPT 548A Q8DXPT 562A Q8PREP 5642 Q8PKUP 5650 DOUBLE PRECISION BACKGROUND ARITHMETIC LIBRARY -2345.67881 259 -0.234568D+04 0.259741D+03 0.234568D+04 0.144330D+05 0.234568D+04 974.28513 -706 0.974285D+03 -0.706048D+03 -0.974285D+03 -0.123400D+04 0.974285D+03 4089.36501 1 0.408936D+04 0.145760D+01 0.408936D+04 0.987600D+04 0.408936D+04 0.578197D+20 0.381780D+01 0.998788D+00 0.492131D-01 0.674565D+01 0.154882D+01 0.508447D-13 0.170141D+39 0.721472D+00 0.692444D+00 -0.553263D+01 -0.153814D+01 0.170141D+39 0.145561D+02 0.170141D+39 0.170141D+39 0.144816D+04 0.157080D+01 STOPP*U PP*JOB PP*LIBEDT PP*M,25,,,M,N PJ P 7VERFY2 DECK-ID V01 MSOS VERIFICATION TESTS Jr@PFXbХ Ц %: h XT bb b 0b  bG q*&hrr@P+ X`4b :` `X1"^mVlNrr@PV0\bk.C{%TD,MbTR Xi bGrr@P qb bbb `d E b *E`rr@Pb `dTD  X,Xb{B X!8  XfЦЦ, Xrr@Pb XbZEXh XȀ`}HpD  i AffXP_rr@P\ XZD  X XX7 `T`UE``V@a<b bXrr@P-cX% FXX( XX" b bX*X$  XЦ Tb rr@PXUbVbk XcXB Xu  XXD  rr@P XЦwb  XUXbB XJaX X /X /rr@Pb ASSEM X. Xl/Xw X&BXo XbnD  XbdHrr@P  XX XX[ X bG qhN X3/X>Db Xu   rr@P   BX%Q Xb#H  X X f"5b rr@P/b "b ?td6c*& bK  XX T D arr@PZX ^h hX,$X'Ц/ XD XX X  X X  Xrr@P `u XY X/X XQЦBX XbD XbDrr@P  X2  X}EFTN3AAFTN3A1BXp  Xnu XblD  XbbHrr@P  XV XXW X X7X= X X.X4y X(X.s X"X(rr@Pm  X' - Xb$G  X Xz  X   bG rr@P1q STB>X 7XN X=  X ` X $' Xrr@P\ X XX X XX XXHDFLOT$  X  Xbrr@PG  X XT   Xc  X X  X X rr@P X `F X*b  X X\X X ɰ  X\ rr@PXbYG  XM X  XA  X  X4Ц Xrr@P2b f X XX  X XbG  X  Xkrr@P3  X=Db 2 /*"E *E X X;RPGII / rr@P^X X X/ X X `0 Xo bG q X/X X`rr@P X XbD  XbH  XZ !X>U "X9 9/rr@P X0 X{/ Xx XuЦ# X` Xk &X sbG q Xb^Grr@P  XS #XX )X/ XB X?Ц; $X bG qh9 X/rr@P X( b 'X`SMC "GOTY XbF  X %Xrr@P5 bR#H99hT Dx 'w  ~\!m hh" rr@P`,    (X{:;*UB H X/ X h H X Xrr@P h H'h T D `) U` rk rr@P  THE SYSTEM AND PROGRAM LIBRARY DIRECTORYS WILL BE LISTED ON THE SYSTEM Lrr@PIST DEVICE h 4hT DZh )7ETcqrr@P (8HYgt"   rr@P7    *** ERROR IN TEST EXECUTIVE THE SYSTEM LOGICAL UNITS Wrr@PbILL BE LISTED ON THE SYSTEM LIST DEVICE BEGIN MSOS MONITOR TEST MSOS MONITOR TEST COrr@PMPLETE BEGIN MSOS FILE MANAGER TESTMSOS FILE MANAGER TEST COMPLETE L.U. 7 NOT A PSEUrr@PDO TAPE - TEST OMITTED BEGIN PSEUDO TAPE TEST JOB FILE REQUEST PSEUDO TAPE rr@PTEST COMPLETE BEGIN MACRO ASSEMBLER TEST ASSEMBLER EXECUTION MACRO ASSEMBLER rr@PTEST COMPLETE BEGIN LIBRARY BUILDER TEST LIBRARY BUILDER EXECUTION LIBRARY BUILDER rr@P9TEST COMPLETE BEGIN FORTRAN COMPILER TEST COMPILER EXECUTION FORTRAN COMPILrr@PdER TEST COMPLETE BEGIN FORTRAN LIBRARY TESTFORTRAN LIBRARY TEST COMPLETE BEGIN DOUBrr@PLE-PRECISION TEST DOUBLE-PRECISION TEST COMPLETE BEGIN RE-ENTRANT FORTRAN TEST RE-ENTrr@PRANT FORTRAN TEST COMPLETE FORTRAN EXECUTION INSUFFICIENT UNPROTECTED MEMORYrr@P - TEST OMITTED *** ERROR IN MULTIPROGRAMMING EXECUTION PREPARE NEXT VERIFICATION TAPErr@P READY? BEGIN MAG TAPE SIMULATOR TEST MAG TAPE SIMULATOR TEST COMPLETE BEGIN RPG COrr@P;MPILER VERIFICATION RPG COMPILER EXECUTION RPG COMPILER TEST COMPLETE BEGIN RPG rr@PfRUNTIME VERIFICATIONRPG RUNTIME COMPLETE BEGIN SORT/MERGE VERFICATIONSORT/MERGE TESrr@PT COMPLETE RUNTIME EXECUTION SORT/MERGE EXECUTION *** UNEXPECTED END Orr@PF FILEr`PPrPE17811INSTLUsJOBSTRyINPTV4:DOUT FLIST FSLISTLOG1A pLOG1 aMAXSECoSORTM%PGRUNPGTTBPGTTLrrPRNVDF!RNTDFRNVSFRNTSFRNTDBRNTSBTNTSBTNTLBTNTLAIBLDTSEMTBSEMTLTSMTFELESEGr*PUDOTBgUDOTF,ILTSTONTSTERFY1C*P J PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLU<oh TNp@Pf2 (/1\_h2\/TTr-\\|/\\\upp@P\ \TihTdh T_T]TXTVTUOTQNhIHpp@PhDCh?h\\\\ hp @P hTd p@P 1TP\3\r@ hTz'T~|C\\\\\TTpp@P]@!dhT\]@TthTop\]@o(njhnfedRpp@PAhf]\hjWVheQdha\B\zO\O\O\O\\3\zQTpp@Pl<\;\6\5\=\<\;T 2{ hTT|U\\\pp@P\\TT]@ T\]@T\]@T\]@T\]@T\]@Tpp@P\]@Th\h\Y\z`\\\\\\\\\B\zbpp@PTl\ 1\/\reh hTwTTh+pp@Ph Dh (hlTg\\\h|hvhrT\Tztpp@PC\e\dT{aho `H9h8Ti1``&\ h652j. (pp@Pn+1\hG hETAAF\\}hTxh<Ch. Dh,T.j%pp@P%T0hT!Z\T[e hhh h\pp@P hT \YJT\^h h\\1 pp@P hh  h\[(\[ @3 h<<.zpp@Ph  hT[q h hh\\Yp\n\^ZYpL@PI{1TT:FT>| h><ohTLL@Pf2 (/1TH\'\zh h Qh\L$@P (1\;$@PބL@P(50HSINGLE PRECISION FOREGROUND FORMATTED INPUT-OUTPUT) L@Pq:@P*@P(2I3,$4,Z3,5X,3F10.5,2A2,2A2) *@Pƃ<@P(2E12.3,I4,I5.3,2A2,Z10/8X,F10.4,$5,5X,2A2) <@PF@P(2I10,A2,F10.4) @PՃ@P(4I10,12A2) @P@P;@PX @P(40A2) @P (@P(3F8.4,2I5,$4,Z4,3X,2A2,A2) (@P)8@P(2E10.3,3X,F10.4,I4,I5.1,$4,Z4,A2,A2,A2)8@Po@P>@P(40H1234567890123456789012345678901234567890) >@PF@P(46HSINGLE PRECISION FOREGROUND ARITHMETIC LIBRARY) F@P,@P@P4(2I10,2F15.5) @P[@PՂf@P;(8E15.6)@Pj@PS @P?(8I10) @PCD@PB(45HSINGLE PRECISION FOREGROUND MONITOR INTERFACE)D@PB @P[(2$10) @P^Hk PFRNTSF` rPHFLOT )Q8QINITQ8QX dQ8QENDnFLOAT SETBFRPDECODEENCODE/IOERR IRWERRHEXASCHEXDECASCII DECHEXrrPAFORM RFORM FLOATGABS IFIX &SIGN +EXP ALOG SIN COS TANH SQRT ATAN IFALT rJPSCHEDL DISPATNLINK FREAD #WRITE YTIMER {ICLOCKREAD FWRITEJP J P;FRNVSF DECK-ID V27 MSOS VERIFICATION TESTS Jr@P HvX{GXXHIhI`"DXm=BH43 d.''XVrr@P+#X F X9B HRH` a"  Xm*Urr@PVr`P6r@P H/ 2h 7hT Da  4 1 1 %h{X  hTrr@P D e%AScr-VERIFIED *** ERROR IN FORMATTrr@P ED INPUT-OUTPUT *** ERROR IN ARITHMETIC LIBRARY *** ERROR IN MONITOR INTERFACE*** ERROrr@P8R IN VERIFICATION TEST I/O FORMATTED INPUT-OUTPUT ARITHMETIC LIBRARY  MONrr@PcITOR INTERFACE T D `~c X< TDz 5rr@P rDj3 q h+T Ds,c X 1H # h X rr@P r`PW PFRNVSF PFRNVSFJ PVFDMY4 DECK-ID V28 MSOS VERIFICATION TESTS J@P rPMONTSTFILTSTSUDOTFSUDOTBRELESERPGTTLRPGTTBRPGRUNFSORTMMTSMTFASEMTLASEMTBLIBLDTFTNTLAr2PFTNTLBFTNTSBFRNTSBFRNTDBFRNTDFFRNVDF2P P*T PP*Z PP*U PP1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ UNFORMATTED READ AND WRITE TO MASS STORAGE PP*U PP999 -5ABCD0EA 12345 6663.2 -8.7654WORDFOUR PP123456788.7654321233.567 987 -411FACE12AB STAYGO PPPLACE THIS MESSAGE IN THE FORMAT STATEMENT PP +32767 -2591XY1299.46835 PP 12345 -5 2835.001 -8964328 PP -16657 +2328 -123.4567 +0.0001 PP +32736 +511 +883265501 +99.99999 PP 0 +5 4550386 123.456 PP 1 -5 -30.61 -123.456 PP 2 5 2097153.0 +123.456 PPTHIS TEXT WHEN OUTPUT CORRECTLY WILL VERIFY CORRECT FORTRAN MONITOR INTERFACE PP*U PSINGLE PRECISION FOREGROUND FORMATTED INPUT-OUTPUT1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ UNFORMATTED READ AND WRITE TO MASS STORAGE 999 -5ABCD0EA 0.123456663.20019 -8.76540WORDFOUR .123E+00 .666E+04 999-.005FOUR ABCD -8.7654 00EA WORD .123E+04 .876E+01 1233.5668 987-41.1FACE12ABSTAYGOPLACE THIS MESSAGE IN THE FORMAT STATEME 32767 -2591 0 22777X Y X Y .129946E+04SINGLE PRECISION FOREGROUND ARITHMETIC LIBRARY .283500E+04 .123450E+05 -.283500E+04 12345 2835 -12345 -4 -12348 12344 -12345 .123456E+03 -.166570E+05 .123456E+03 16657 -123 16657 -16385 -18441 2056 16657 .883265E+04 .327360E+05 .883265E+04 32736 8832 32736 32767 32287 480 -32736 .578196E+20 .381779E+01 .998788E+00 .492111E-01 .100000E+01 .674565E+01 .154882E+01 2 .508447E-13 .170141E+39 .721471E+00 .692444E+00 -.100000E+01 -.553263E+01 -.153813E+01 2 .170141E+39 .145560E+02 .170141E+39 .170141E+39 .100000E+01 .144815E+04 .157079E+01 2SINGLE PRECISION FOREGROUND MONITOR INTERFACE 7ACE 0000THIS TEXT WHEN OUTPUT CORRECTLY WILL VERIFY CORRECT FORTRAN MONITOR INTERFACE P*U PSINGLE PRECISION FOREGROUND FORMATTED INPUT-OUTPUT1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ UNFORMATTED READ AND WRITE TO MASS STORAGE 999 -5ABCD0EA 0.123456663.20019 -8.76540WORDFOUR .123E+00 .666E+04 999-.005FOUR ABCD -8.7654 00EA WORD .123E+04 .876E+01 1233.5668 987-41.1FACE12ABSTAYGOPLACE THIS MESSAGE IN THE FORMAT STATEME 32767 -2591 0 22777X Y X Y .129946E+04SINGLE PRECISION FOREGROUND ARITHMETIC LIBRARY .283500E+04 .123450E+05 -.283500E+04 12345 2835 -12345 -4 -12348 12344 -12345 .123456E+03 -.166570E+05 .123456E+03 16657 -123 16657 -16385 -18441 2056 16657 .883265E+04 .327360E+05 .883265E+04 32736 8832 32736 32767 32287 480 -32736 .578196E+20 .381779E+01 .998788E+00 .492111E-01 .100000E+01 .674565E+01 .154882E+01 2 .508447E-13 .170141E+39 .721471E+00 .692444E+00 -.100000E+01 -.553263E+01 -.153813E+01 2 .170141E+39 .145560E+02 .170141E+39 .170141E+39 .100000E+01 .144815E+04 .157079E+01 2SINGLE PRECISION FOREGROUND MONITOR INTERFACE 7ACE 0000THIS TEXT WHEN OUTPUT CORRECTLY WILL VERIFY CORRECT FORTRAN MONITOR INTERFACE P*U PP*JOB PP*LIBEDT PP*M,25,,,M,N PJ P 7VERFY2 DECK-ID V01 MSOS VERIFICATION TESTS Jr@PFXbХ Ц %: h XT bb b 0b  bG q*&hrr@P+ X`4b :` `X1"^mVlNrr@PV0\bk.C{%TD,MbTR Xi bGrr@P qb bbb `d E b *E`rr@Pb `dTD  X,Xb{B X!8  XfЦЦ, Xrr@Pb XbZEXh XȀ`}HpD  i AffXP_rr@P\ XZD  X XX7 `T`UE``V@a<b bXrr@P-cX% FXX( XX" b bX*X$  XЦ Tb rr@PXUbVbk XcXB Xu  XXD  rr@P XЦwb  XUXbB XJaX X /X /rr@Pb ASSEM X. Xl/Xw X&BXo XbnD  XbdHrr@P  XX XX[ X bG qhN X3/X>Db Xu   rr@P   BX%Q Xb#H  X X f"5b rr@P/b "b ?td6c*& bK  XX T D arr@PZX ^h hX,$X'Ц/ XD XX X  X X  Xrr@P `u XY X/X XQЦBX XbD XbDrr@P  X2  X}EFTN3AAFTN3A1BXp  Xnu XblD  XbbHrr@P  XV XXW X X7X= X X.X4y X(X.s X"X(rr@Pm  X' - Xb$G  X Xz  X   bG rr@P1q STB>X 7XN X=  X ` X $' Xrr@P\ X XX X XX XXHDFLOT$  X  Xbrr@PG  X XT   Xc  X X  X X rr@P X `F X*b  X X\X X ɰ  X\ rr@PXbYG  XM X  XA  X  X4Ц Xrr@P2b f X XX  X XbG  X  Xkrr@P3  X=Db 2 /*"E *E X X;RPGII / rr@P^X X X/ X X `0 Xo bG q X/X X`rr@P X XbD  XbH  XZ !X>U "X9 9/rr@P X0 X{/ Xx XuЦ# X` Xk &X sbG q Xb^Grr@P  XS #XX )X/ XB X?Ц; $X bG qh9 X/rr@P X( b 'X`SMC "GOTY XbF  X %Xrr@P5 bR#H99hT Dx 'w  ~\!m hh" rr@P`,    (X{:;*UB H X/ X h H X Xrr@P h H'h T D `) U` rk rr@P  THE SYSTEM AND PROGRAM LIBRARY DIRECTORYS WILL BE LISTED ON THE SYSTEM Lrr@PIST DEVICE h 4hT DZh )7ETcqrr@P (8HYgt"   rr@P7    *** ERROR IN TEST EXECUTIVE THE SYSTEM LOGICAL UNITS Wrr@PbILL BE LISTED ON THE SYSTEM LIST DEVICE BEGIN MSOS MONITOR TEST MSOS MONITOR TEST COrr@PMPLETE BEGIN MSOS FILE MANAGER TESTMSOS FILE MANAGER TEST COMPLETE L.U. 7 NOT A PSEUrr@PDO TAPE - TEST OMITTED BEGIN PSEUDO TAPE TEST JOB FILE REQUEST PSEUDO TAPE rr@PTEST COMPLETE BEGIN MACRO ASSEMBLER TEST ASSEMBLER EXECUTION MACRO ASSEMBLER rr@PTEST COMPLETE BEGIN LIBRARY BUILDER TEST LIBRARY BUILDER EXECUTION LIBRARY BUILDER rr@P9TEST COMPLETE BEGIN FORTRAN COMPILER TEST COMPILER EXECUTION FORTRAN COMPILrr@PdER TEST COMPLETE BEGIN FORTRAN LIBRARY TESTFORTRAN LIBRARY TEST COMPLETE BEGIN DOUBrr@PLE-PRECISION TEST DOUBLE-PRECISION TEST COMPLETE BEGIN RE-ENTRANT FORTRAN TEST RE-ENTrr@PRANT FORTRAN TEST COMPLETE FORTRAN EXECUTION INSUFFICIENT UNPROTECTED MEMORYrr@P - TEST OMITTED *** ERROR IN MULTIPROGRAMMING EXECUTION PREPARE NEXT VERIFICATION TAPErr@P READY? BEGIN MAG TAPE SIMULATOR TEST MAG TAPE SIMULATOR TEST COMPLETE BEGIN RPG COrr@P;MPILER VERIFICATION RPG COMPILER EXECUTION RPG COMPILER TEST COMPLETE BEGIN RPG rr@PfRUNTIME VERIFICATIONRPG RUNTIME COMPLETE BEGIN SORT/MERGE VERFICATIONSORT/MERGE TESrr@PT COMPLETE RUNTIME EXECUTION SORT/MERGE EXECUTION *** UNEXPECTED END Orr@PF FILEr`PPrPE17811INSTLUsJOBSTRyINPTV4:DOUT FLIST FSLISTLOG1A pLOG1 aMAXSECoSORTM%PGRUNPGTTBPGTTLrrPRNVDF!RNTDFRNVSFRNTSFRNTDBRNTSBTNTSBTNTLBTNTLAIBLDTSEMTBSEMTLTSMTFELESEGr*PUDOTBgUDOTF,ILTSTONTSTERFY1C*P J PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLUT2\]@;Tz TT\T\"\#\$\pp@PO%\&T; 81 h3\|#\0\/\/\\*\]@T\]@T\]@pp@PzT\]@T \]@T\]@T\]@\z+\\\\\\\p>@P 1\|-r hۀCh\>F@P (1\T>z.X hChTDF@P (1TSv@P2 @P?X}A6 @P3 @PHC @P3 @PCtj @P$ @P? @P% @PCu @P% @PmH @P& @PYCHޘ @P& @P"HC; @PN>@P(40HDOUBLE PRECISION FOREGROUND INPUT-OUTPUT) >@P @P(I10,2F10.5)@P\ @P(D15.8,5X,2(D12.6,5X)) @P3 @P"(40A2) @P"F@P%(46HDOUBLE PRECISION FOREGROUND ARITHMETIC LIBRARY) F@P? @P?(2D15.8,2D10.4,D12.6) @PB@PJ(F15.5,I10,5D15.6)@PS(6D15.6)@PWH@ PFRNTDFY rPHFLOT !Q8QINIQ8QX Q8QENDHDFLOT4DFLT 1DBLE DABS 8DSIGN %DSIN |DCOS DATAN DSQRT DLOG vr*PDEXP pDFIX ,SETBFRENCODESNGL *P J PFRNVDF DECK-ID V30 MSOS VERIFICATION TESTS Jr@P HZX`GXXdHIhI`"DXR=BH43 d.''X;#rr@P+X + XB HRH` a"  Xl*Ur`PV`r@P H/ 2h 6hT Da  4 1 1 %h|X hT Drr@P f&?Qafw-VERIFIED *** ERROR IN FORMATTED INPrr@P UT-OUTPUT *** ERROR IN ARITHMETIC LIBRARY *** SPARE *** ERROR IN VERIFICATION TEST I/Orr@P7 FORMATTED INPUT-OUTPUT ARITHMETIC LIBRARY T D `c XVrr@Pb TD 5 rDj3 q h+T Ds,c X2 1rr@PH # h X  r`Pg PFRNVDF PFRNVDFJ PVFDMY5 DECK-ID V31 MSOS VERIFICATION TESTS J@P rPMONTSTFILTSTSUDOTFSUDOTBRELESERPGTTLRPGTTBRPGRUNFSORTMMTSMTFASEMTLASEMTBLIBLDTFTNTLAr2PFTNTLBFTNTSBFRNTSBFRNTDBFRNTSFFRNVSF2P P*T PP*Z PP*U PP 14433-234567891+259.74088 PP -1234 974.2851 -70604811 PP +9876 408936501 1.4576 PP 00001 45.50386 0.0 PP 00002 -30.61 0.0 PP 00003 2097153.0 0.0 PP*U PDOUBLE PRECISION FOREGROUND INPUT-OUTPUT .34567000D+00 .345670D+05 .123456D+03 .49813270D+00 .58765432D+02 .1928D+28 .5918D+15 .987654D-18DOUBLE PRECISION FOREGROUND ARITHMETIC LIBRARY -2345.67871 259 -.234567D+04 .259740D+03 .234567D+04 .144330D+05 .234567D+04 974.28515 -706 .974285D+03 -.706048D+03 -.974285D+03 -.123400D+04 .974285D+03 4089.36425 1 .408936D+04 .145760D+01 .408936D+04 .987600D+04 .408936D+04 .578196D+20 .381779D+01 .998788D+00 .492131D-01 .674565D+01 .154882D+01 .508446D-13 .170141D+39 .721472D+00 .692443D+00 -.553263D+01 -.153813D+01 .170141D+39 .145560D+02 .170141D+39 .170141D+39 .144815D+04 .157079D+01P*U PDOUBLE PRECISION FOREGROUND INPUT-OUTPUT .34567000D+00 .345670D+05 .123456D+03 .49813270D+00 .58765432D+02 .1928D+28 .5918D+15 .987654D-18DOUBLE PRECISION FOREGROUND ARITHMETIC LIBRARY -2345.67871 259 -.234567D+04 .259740D+03 .234567D+04 .144330D+05 .234567D+04 974.28515 -706 .974285D+03 -.706048D+03 -.974285D+03 -.123400D+04 .974285D+03 4089.36425 1 .408936D+04 .145760D+01 .408936D+04 .987600D+04 .408936D+04 .578196D+20 .381779D+01 .998788D+00 .492131D-01 .674565D+01 .154882D+01 .508446D-13 .170141D+39 .721472D+00 .692443D+00 -.553263D+01 -.153813D+01 .170141D+39 .145560D+02 .*<*****D-** .*@*****D-** .144815D+04 .157079D+01P*U PP*JOB PP*LIBEDT PP*M,25,,,M,N PJ P 7VERFY2 DECK-ID V01 MSOS VERIFICATION TESTS Jr@PFXbХ Ц %: h XT bb b 0b  bG q*&hrr@P+ X`4b :` `X1"^mVlNrr@PV0\bk.C{%TD,MbTR Xi bGrr@P qb bbb `d E b *E`rr@Pb `dTD  X,Xb{B X!8  XfЦЦ, Xrr@Pb XbZEXh XȀ`}HpD  i AffXP_rr@P\ XZD  X XX7 `T`UE``V@a<b bXrr@P-cX% FXX( XX" b bX*X$  XЦ Tb rr@PXUbVbk XcXB Xu  XXD  rr@P XЦwb  XUXbB XJaX X /X /rr@Pb ASSEM X. Xl/Xw X&BXo XbnD  XbdHrr@P  XX XX[ X bG qhN X3/X>Db Xu   rr@P   BX%Q Xb#H  X X f"5b rr@P/b "b ?td6c*& bK  XX T D arr@PZX ^h hX,$X'Ц/ XD XX X  X X  Xrr@P `u XY X/X XQЦBX XbD XbDrr@P  X2  X}EFTN3AAFTN3A1BXp  Xnu XblD  XbbHrr@P  XV XXW X X7X= X X.X4y X(X.s X"X(rr@Pm  X' - Xb$G  X Xz  X   bG rr@P1q STB>X 7XN X=  X ` X $' Xrr@P\ X XX X XX XXHDFLOT$  X  Xbrr@PG  X XT   Xc  X X  X X rr@P X `F X*b  X X\X X ɰ  X\ rr@PXbYG  XM X  XA  X  X4Ц Xrr@P2b f X XX  X XbG  X  Xkrr@P3  X=Db 2 /*"E *E X X;RPGII / rr@P^X X X/ X X `0 Xo bG q X/X X`rr@P X XbD  XbH  XZ !X>U "X9 9/rr@P X0 X{/ Xx XuЦ# X` Xk &X sbG q Xb^Grr@P  XS #XX )X/ XB X?Ц; $X bG qh9 X/rr@P X( b 'X`SMC "GOTY XbF  X %Xrr@P5 bR#H99hT Dx 'w  ~\!m hh" rr@P`,    (X{:;*UB H X/ X h H X Xrr@P h H'h T D `) U` rk rr@P  THE SYSTEM AND PROGRAM LIBRARY DIRECTORYS WILL BE LISTED ON THE SYSTEM Lrr@PIST DEVICE h 4hT DZh )7ETcqrr@P (8HYgt"   rr@P7    *** ERROR IN TEST EXECUTIVE THE SYSTEM LOGICAL UNITS Wrr@PbILL BE LISTED ON THE SYSTEM LIST DEVICE BEGIN MSOS MONITOR TEST MSOS MONITOR TEST COrr@PMPLETE BEGIN MSOS FILE MANAGER TESTMSOS FILE MANAGER TEST COMPLETE L.U. 7 NOT A PSEUrr@PDO TAPE - TEST OMITTED BEGIN PSEUDO TAPE TEST JOB FILE REQUEST PSEUDO TAPE rr@PTEST COMPLETE BEGIN MACRO ASSEMBLER TEST ASSEMBLER EXECUTION MACRO ASSEMBLER rr@PTEST COMPLETE BEGIN LIBRARY BUILDER TEST LIBRARY BUILDER EXECUTION LIBRARY BUILDER rr@P9TEST COMPLETE BEGIN FORTRAN COMPILER TEST COMPILER EXECUTION FORTRAN COMPILrr@PdER TEST COMPLETE BEGIN FORTRAN LIBRARY TESTFORTRAN LIBRARY TEST COMPLETE BEGIN DOUBrr@PLE-PRECISION TEST DOUBLE-PRECISION TEST COMPLETE BEGIN RE-ENTRANT FORTRAN TEST RE-ENTrr@PRANT FORTRAN TEST COMPLETE FORTRAN EXECUTION INSUFFICIENT UNPROTECTED MEMORYrr@P - TEST OMITTED *** ERROR IN MULTIPROGRAMMING EXECUTION PREPARE NEXT VERIFICATION TAPErr@P READY? BEGIN MAG TAPE SIMULATOR TEST MAG TAPE SIMULATOR TEST COMPLETE BEGIN RPG COrr@P;MPILER VERIFICATION RPG COMPILER EXECUTION RPG COMPILER TEST COMPLETE BEGIN RPG rr@PfRUNTIME VERIFICATIONRPG RUNTIME COMPLETE BEGIN SORT/MERGE VERFICATIONSORT/MERGE TESrr@PT COMPLETE RUNTIME EXECUTION SORT/MERGE EXECUTION *** UNEXPECTED END Orr@PF FILEr`PPrPE17811INSTLUsJOBSTRyINPTV4:DOUT FLIST FSLISTLOG1A pLOG1 aMAXSECoSORTM%PGRUNPGTTBPGTTLrrPRNVDF!RNTDFRNVSFRNTSFRNTDBRNTSBTNTSBTNTLBTNTLAIBLDTSEMTBSEMTLTSMTFELESEGr*PUDOTBgUDOTF,ILTSTONTSTERFY1C*P J PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLU>??ppqqrrssttuuvvwwxxyy::#@ '==""pp@Ppp@P׿{#AABBCCDDEEFFGGHHII})J$K.L>3? 1/ 1)O 1*o 1+ 1, 1-(.pp@P ..23(! !aa &/"  ("(pp@P-(/  /(((YYO# Y$^Y@# pp@PXY$^^/ \pp@Ppp@PGHvMfM)-Ip.@P4<L\+$.@P2@P@H #@@@2@P8@P@CI@@@P8@P@MHPRk@@P8@P HVV@P@P$@P*@P"@@@@@@@@@@@@*@P8(@P":@@@@@@@@@@@@(@P"8@P0H@@@@@@@P08  @P9H @P;@P;$@P<@*@P@"@@@@@@@@@@@@*@PA8(@PO:@@@@@@@@@@@@(@PO8@P]H@@@@@@@@@P]8  @PfH @P;h@Ph$@Pim*@Pm!\\\\\\\\\\\\\\\\\\\\\\\\*@Pn8(@P|9\\\\\\\\\\\\\\\\\\\\\\\\(@P|8@PI\\\\\\\\\\\\\\\\@P8 @PI @Ph@P4@P@P \@P8@PD HI\@P8 @P)Z@`@ @P8&@P*\@`@@&@P8(@P+^@`@(@P8*@P,`NNNN@`@@@*@P8*@P-`\\\\@`@@@*@P8 @PW@ @P8 $@P. P.DU`$@P@P @P*@P!\\\\\\\\\\\\\\\\\\\\\\\\*@P8(@P9\\\\\\\\\\\\\\\\\\\\\\\\(@P8@P!I\\\\\\\\\\\\\\\\@P!8 @P+I @P-(@P- $ 4@D`T(@P.;jPR9CLBGAR9DETLBR9TOTLhR9LSTRiR9DBGVjR9OPCDiR9LABLR9OTBGR9EOTTR9DOTTR9TOTTR9PAGER9FTOVjN@P;@KKNJPR9BINTR9YCODR9XCODR9EDCNR9ECODR9WOTV@R9UOTVHR9AOTVPR9FSTLJPR9IPUTbPR9MVRMR9MOVER9MOVER9COMPR9STONR9SETFR9GOTOR9NDSRR9EXSRR9XCPTR9OTPTWRIT17GbP D PRPGOS3D0@P0PR9FNBGPR9FINSP D PRPGOS0Dp@P(2KKKK@KKKKKRpp@P+(pp@PV((pp@P(pp@Ppp@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P-@@@@@@@@k@@k@@@@@@@pp@PX@@@@@@@K@@@@@@@@@@@@@@@@K@@@pp@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@pp@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@k@@pp@P@@@K@@@@@@@@@@@@@@@@@@@@@@@pp@P@@`@k@@@@@@@@@@@@k@k@k@K@@@@@@@@@@@@@@@@@@@@@pp@P/@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@PZ@@@@@@@@@@@@@@@@@@@@@}@@@@@@@@@@@@@@@@@pp@Pk@k@k@@@@K@@@@@@@@K@@@pp@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@k@pp@P@@@@k@@@@@@@@@@@@@@@@@@@@k@k@pp@Pk@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@pp@P\@@@@@@@@@@@@@@@k@@@@@K@@@pp@P@@@@@@@@@@@@k@@@@@@@K@@@@@@@@@@@pp@P@@@k@@@k@k@@k@@@@@@@@@@@pp@Pk@@@@@K@@@@@k@@@@@@@@@k@pp@P@@@k@@@@K@@@@@@@@@@@@@@pp@P3@@@@@K@@@@@@@@@@@@@@@K@@pp@P^@@@@@@@@@@@@@k@@@@@@@@@pp@P@@@@@@@@@@@@@@@K@@@@k@@pp@P@@@@@@@@@@@@@@@K@@@@@@@@@@@@pp@P@@@@@@@K@@@@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@@K@@@@@@@@@@@@@@k@pp@P5@@@@@@@@@K@@@@@@@@@@@@@pp@P`@@@l@@@@@@@@@@@@@@@@@@@k@pp@P@@@@@@@@@@@@@@@l@@@K@@@@@@pp@P@@@@@@@@@@@@k@@l@@@@@K@@pp@P@@k@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@`@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P7K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@Pb@k@K@@k@@@@@@@@@@@@@@@pp@P@@@k@@K@@k@@@@@@@@@@@@@@@pp@P@k@@@@@@@@@@@@@@@K@@@@k@pp@P@k@@@@@@@@@@@@@@k@@@pp@P@@@@@@@@@@@@@@@@}@@@@@pp@P9K@@@@@@@@@@@@@@@@@@@@k@@pp@Pd@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@pp@P@@@K@@k@@@@@k@@@@@@@@@@@@pp@P@@@@@}@@@@@@@@@@@@@@@@@pp@P@@@@K@@@}@@@@@@@@@@@@@@@@pp@P@@k@KK@@@@@@@@@@@@@@@@@@@@pp@P;@@@K@@@@@@@@@@@@@@k@@@@@l@pp@Pf@@KK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P@@@@@@@@@@@@@@@@k@k@@@@@@@@@@@pp@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P@@@@k@@k@@@@@@@@@@@@@@@pp@P @@k@@@@@K@@@@@@@@@@@@@@@@k@@@@pp@P =@@@@@@@k@@@@@@@@@@@K@@@k@@pp@P h@@@@@@@@@@@@@@@@@@K@@@k@pp@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P @K@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@pp@P @@k@@@@@@k@@@@@@@@@@@@@@@pp@P ?K@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@k@@pp@P j@@@@@@@@@@@@@@@@@@K@@@@@pp@P @K@@@@@@@@@@@@@@@K@@@@@@@@@pp@P @@@@@@@@@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P A@@@@@@@@@@@@@k@@@@@@@@@@@@@@pp@P l@@@@K@@@@@@@@@@@@@@@@@@@@pp@P @k@@}N}@@}\}@@K@@@k@@@@@@@@@@@@@@@@@@pp@P @@@@@k@@@k@@@@@@@@k@@@@pp@P k@@@K@@@@@@@@@@@@@@@K@@@@pp@P @@@@@@@@@@@@k@@@@@@@@K@@pp@P C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P n@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P s@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(@@@@@@@@@@@@@@pp@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@@@@@@@@@@@@@@@(t@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(@@@@@@@@@@@@pp@P E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P p@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@  @@pp@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pp@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  pp@P   <Z  2  K6 z  ~  *.0pp@P24TVXZ\_acehkmJ€ǀpf@PG̀΀рӀՀ׀ـۀ݀߀fPR9FBSEP P*U PP*JOB PP*LGO,N,10 Pr PBCHARTrrPR9BASER9RPGXR9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS rrPR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCDrr@PkK[\`@Nal@@ rr@P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~rr@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhrr@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""rr@Prr@P׿{#AABBCCDDEEFFGGHHII})J$K.L>3? 1/ 1)O 1*o 1+ 1, 1-(.rr@P ..23(! !aa &/"  ("(rr@P-(/  /(((YYO# Y$^Y@# rr@PXY$^^/ \rr@Prr@PGHvMfM)-Irr@P4<L\+$rr@Prr@P@H #@@@rr@P8rr@P@CI@@rr@P8rr@P@MHPRk@rr@P8rr@P HVVrr@Prr@P$rr@Prr@P"@@@@@@@@@@@@rr@P8rr@P":@@@@@@@@@@@@rr@P"8rr@P0H@@@@@@rr@P08 rr@P9Hrr@P;rr@P;$rr@P<@rr@P@"@@@@@@@@@@@@rr@PA8rr@PO:@@@@@@@@@@@@rr@PO8rr@P]H@@@@@@@@rr@P]8 rr@PfHrr@P;hrr@Ph$rr@Pimrr@Pm!\\\\\\\\\\\\\\\\\\\\\\\\rr@Pn8rr@P|9\\\\\\\\\\\\\\\\\\\\\\\\rr@P|8rr@PI\\\\\\\\\\\\\\\\rr@P8rr@PIrr@Phrr@P4rr@Prr@P \rr@P8rr@PD HI\rr@P8rr@P)Z@`@rr@P8rr@P*\@`@@rr@P8rr@P+^@`@rr@P8rr@P,`NNNN@`@@@rr@P8rr@P-`\\\\@`@@@rr@P8rr@PW@rr@P8 rr@P. P.DU`rr@Prr@P rr@Prr@P!\\\\\\\\\\\\\\\\\\\\\\\\rr@P8rr@P9\\\\\\\\\\\\\\\\\\\\\\\\rr@P8rr@P!I\\\\\\\\\\\\\\\\rr@P!8rr@P+Irr@P-rr@P- $ 4@D`Trr@P.;rrPR9CLBGAR9DETLBR9TOTLhR9LSTRiR9DBGVjR9OPCDiR9LABLR9OTBGR9EOTTR9DOTTR9TOTTR9PAGER9FTOVrr@P;@KKrrPR9BINTR9YCODR9XCODR9EDCNR9ECODR9WOTV@R9UOTVHR9AOTVPR9FSTLrrPR9IPUTREAD09@R9CALCAR9ADSBrR9ADSBsR9ZADStR9ZADSuR9ADSBvR9ADSBwR9MULTzR9MULT{R9DIVD|R9DIVD}rrPR9MVRMR9MOVER9MOVER9COMPR9STONR9SETFR9GOTOR9NDSRR9EXSRR9XCPTR9OTPTWRIT17GrP r PRPGOS3rr@PrrPR9FNBGR9CLSVR9TOTV rrPR9FINSCLOS35WRIT17rP r PRPGOS0rr@P(2KKKK@KKKKKRrr@P+(rr@PV((rr@P(rr@Prr@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P-@@@@@@@@k@@k@@@@@@@rr@PX@@@@@@@K@@@@@@@@@@@@@@@@K@@@rr@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@rr@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@k@@rr@P@@@K@@@@@@@@@@@@@@@@@@@@@@@rr@P@@`@k@@@@@@@@@@@@k@k@k@K@@@@@@@@@@@@@@@@@@@@@rr@P/@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@PZ@@@@@@@@@@@@@@@@@@@@@}@@@@@@@@@@@@@@@@@rr@Pk@k@k@@@@K@@@@@@@@K@@@rr@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@k@rr@P@@@@k@@@@@@@@@@@@@@@@@@@@k@k@rr@Pk@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@rr@P\@@@@@@@@@@@@@@@k@@@@@K@@@rr@P@@@@@@@@@@@@k@@@@@@@K@@@@@@@@@@@rr@P@@@k@@@k@k@@k@@@@@@@@@@@rr@Pk@@@@@K@@@@@k@@@@@@@@@k@rr@P@@@k@@@@K@@@@@@@@@@@@@@rr@P3@@@@@K@@@@@@@@@@@@@@@K@@rr@P^@@@@@@@@@@@@@k@@@@@@@@@rr@P@@@@@@@@@@@@@@@K@@@@k@@rr@P@@@@@@@@@@@@@@@K@@@@@@@@@@@@rr@P@@@@@@@K@@@@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@@K@@@@@@@@@@@@@@k@rr@P5@@@@@@@@@K@@@@@@@@@@@@@rr@P`@@@l@@@@@@@@@@@@@@@@@@@k@rr@P@@@@@@@@@@@@@@@l@@@K@@@@@@rr@P@@@@@@@@@@@@k@@l@@@@@K@@rr@P@@k@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@`@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P7K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@Pb@k@K@@k@@@@@@@@@@@@@@@rr@P@@@k@@K@@k@@@@@@@@@@@@@@@rr@P@k@@@@@@@@@@@@@@@K@@@@k@rr@P@k@@@@@@@@@@@@@@k@@@rr@P@@@@@@@@@@@@@@@@}@@@@@rr@P9K@@@@@@@@@@@@@@@@@@@@k@@rr@Pd@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@rr@P@@@K@@k@@@@@k@@@@@@@@@@@@rr@P@@@@@}@@@@@@@@@@@@@@@@@rr@P@@@@K@@@}@@@@@@@@@@@@@@@@rr@P@@k@KK@@@@@@@@@@@@@@@@@@@@rr@P;@@@K@@@@@@@@@@@@@@k@@@@@l@rr@Pf@@KK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P@@@@@@@@@@@@@@@@k@k@@@@@@@@@@@rr@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P@@@@k@@k@@@@@@@@@@@@@@@rr@P @@k@@@@@K@@@@@@@@@@@@@@@@k@@@@rr@P =@@@@@@@k@@@@@@@@@@@K@@@k@@rr@P h@@@@@@@@@@@@@@@@@@K@@@k@rr@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P @K@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@rr@P @@k@@@@@@k@@@@@@@@@@@@@@@rr@P ?K@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@k@@rr@P j@@@@@@@@@@@@@@@@@@K@@@@@rr@P @K@@@@@@@@@@@@@@@K@@@@@@@@@rr@P @@@@@@@@@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P A@@@@@@@@@@@@@k@@@@@@@@@@@@@@rr@P l@@@@K@@@@@@@@@@@@@@@@@@@@rr@P @k@@}N}@@}\}@@K@@@k@@@@@@@@@@@@@@@@@@rr@P @@@@@k@@@k@@@@@@@@k@@@@rr@P k@@@K@@@@@@@@@@@@@@@K@@@@rr@P @@@@@@@@@@@@k@@@@@@@@K@@rr@P C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P n@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P s@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(@@@@@@@@@@@@@@rr@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@@@@@@@@@@@@@@@(t@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(@@@@@@@@@@@@rr@P E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P p@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@  @@rr@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@rr@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  rr@P   <Z  2  K6 z  ~  *.0rr@P24TVXZ\_acehkmJ€ǀrr@PG̀΀рӀՀ׀ـۀ݀߀rrPR9FBSER9ALSQR9CARAR9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB rP P*T PPCONTROL DATA CORP. 090819550919760001 PP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: 11/11/11 SYSTEM ID: MSOS 5.0 TEST SYSTEM 5 (09/23/76) *LGO,N,10 BCHART 2DD3 RPGOS1 30FA RPGOS2 310B RPGOS3 3763 RPGOS0 3774 R9ADSB 45E2 DECK-ID R03 RPGII 1.0 SUMMARY-108 R9ARG 46B3 DECK-ID R04 RPGII 1.0 SUMMARY-108 R9CALC 46CB DECK-ID R12 RPGII 1.0 SUMMARY-108 R9COMP 46E7 DECK-ID R21 RPGII 1.0 SUMMARY-108 R9DIVD 479E DECK-ID R25 RPGII 1.0 SUMMARY-108 R9FINS 4877 DECK-ID R33 RPGII 1.0 SUMMARY-108 R9FLOW 4888 DECK-ID R35 RPGII 1.0 SUMMARY-108 R9GOTO 4897 DECK-ID R41 RPGII 1.0 SUMMARY-108 R9INTL 48DE DECK-ID R49 RPGII 1.0 SUMMARY-108 R9IPUT 4916 DECK-ID R52 RPGII 1.0 SUMMARY-108 R9LBY 491B DECK-ID R55 RPGII 1.0 SUMMARY-108 R9LEL 4928 DECK-ID R57 RPGII 1.0 SUMMARY-108 R9MIW 495B DECK-ID R63 RPGII 1.0 SUMMARY-108 R9MOVE 4962 DECK-ID R66 RPGII 1.0 SUMMARY-108 R9MTWK 4AB4 DECK-ID R69 RPGII 1.0 SUMMARY-108 R9MULT 4ACF DECK-ID R70 RPGII 1.0 SUMMARY-108 R9MVB 4B44 DECK-ID R71 RPGII 1.0 SUMMARY-108 R9MVW 4B5F DECK-ID R73 RPGII 1.0 SUMMARY-108 R9NRMX 4B6C DECK-ID R74 RPGII 1.0 SUMMARY-108 R9NTOA 4BD5 DECK-ID R76 RPGII 1.0 SUMMARY-108 R9OPNF 4C03 DECK-ID R79 RPGII 1.0 SUMMARY-108 R9OTPT 4C56 DECK-ID R81 RPGII 1.0 SUMMARY-108 R9OVOP 4C5C DECK-ID R82 RPGII 1.0 SUMMARY-108 R9PACK 4C89 DECK-ID R84 RPGII 1.0 SUMMARY-108 R9POSS 4CE2 DECK-ID R86 RPGII 1.0 SUMMARY-108 R9PRCL 4DE9 DECK-ID R87 RPGII 1.0 SUMMARY-108 R9PUTS 5010 DECK-ID R89 RPGII 1.0 SUMMARY-108 R9RPGO 506B DECK-ID R93 RPGII 1.0 SUMMARY-108 R9RPRT 5071 DECK-ID R94 RPGII 1.0 SUMMARY-108 R9RSLT 5118 DECK-ID R95 RPGII 1.0 SUMMARY-108 R9RSTS 515A DECK-ID R96 RPGII 1.0 SUMMARY-108 R9SBY 5182 DECK-ID R97 RPGII 1.0 SUMMARY-108 R9SETF 5195 DECK-ID R98 RPGII 1.0 SUMMARY-108 R9SETN 51AB DECK-ID R99 RPGII 1.0 SUMMARY-108 R9SHFT 51C7 DECK-ID S01 RPGII 1.0 SUMMARY-108 R9STH0 520A DECK-ID S06 RPGII 1.0 SUMMARY-108 R9STON 526B DECK-ID S08 RPGII 1.0 SUMMARY-108 R9TSTN 5285 DECK-ID S16 RPGII 1.0 SUMMARY-108 R9TTOP 529A DECK-ID S18 RPGII 1.0 SUMMARY-108 R9UNPK 52B9 DECK-ID S19 RPGII 1.0 SUMMARY-108 R9XCPT 530B DECK-ID S20 RPGII 1.0 SUMMARY-108 R9XRSD 530F DECK-ID S23 RPGII 1.0 SUMMARY-108 R9ZADS 5331 DECK-ID S25 RPGII 1.0 SUMMARY-108 OPEN01 535E DECK-ID M01 RPGII 1.0 SUMMARY-108 READ09 5503 DECK-ID M09 RPGII 1.0 SUMMARY-108 WRIT17 5619 DECK-ID M17 RPGII 1.0 SUMMARY-108 CLOS35 5710 DECK-ID M35 RPGII 1.0 SUMMARY-108 ROOT43 5783 DECK-ID M43 RPGII 1.0 SUMMARY-108 ROOT44 583B DECK-ID M44 RPGII 1.0 SUMMARY-108 ROOT45 597E DECK-ID M45 RPGII 1.0 SUMMARY-108 ERRO46 5A85 DECK-ID M46 RPGII 1.0 SUMMARY-108 STRACE 5BB1 DECK-ID M59 RPGII 1.0 SUMMARY-108 R9ATON 5BCD DECK-ID R06 RPGII 1.0 SUMMARY-108 R9BDPR 5BFE DECK-ID R07 RPGII 1.0 SUMMARY-108 R9CLOS 5C8E DECK-ID R15 RPGII 1.0 SUMMARY-108 R9CLRE 5CD1 DECK-ID R17 RPGII 1.0 SUMMARY-108 R9CMBD 5CEA DECK-ID R18 RPGII 1.0 SUMMARY-108 R9CNTR 5CFF DECK-ID R20 RPGII 1.0 SUMMARY-108 R9CRIN 5D1C DECK-ID R22 RPGII 1.0 SUMMARY-108 R9DETP 5D27 DECK-ID R24 RPGII 1.0 SUMMARY-108 R9EXCP 5D5D DECK-ID R30 RPGII 1.0 SUMMARY-108 R9FILR 5D68 DECK-ID R32 RPGII 1.0 SUMMARY-108 R9FLDL 5DD4 DECK-ID R34 RPGII 1.0 SUMMARY-108 R9ICTL 5E02 DECK-ID R42 RPGII 1.0 SUMMARY-108 R9IDMX 5ED0 DECK-ID R43 RPGII 1.0 SUMMARY-108 R9INIT 5EEE DECK-ID R46 RPGII 1.0 SUMMARY-108 R9INMV 5F1B DECK-ID R47 RPGII 1.0 SUMMARY-108 R9IOCL 60B5 DECK-ID R50 RPGII 1.0 SUMMARY-108 R9LCAE 60C6 DECK-ID R56 RPGII 1.0 SUMMARY-108 R9LOAD 6140 DECK-ID R59 RPGII 1.0 SUMMARY-108 R9LOCL 617E DECK-ID R60 RPGII 1.0 SUMMARY-108 R9LRCK 619A DECK-ID R61 RPGII 1.0 SUMMARY-108 R9NXFL 61CF DECK-ID R77 RPGII 1.0 SUMMARY-108 R9NXRC 61F1 DECK-ID R78 RPGII 1.0 SUMMARY-108 R9OTMG 621F DECK-ID S22 RPGII 1.0 SUMMARY-108 R9OTMV 6239 DECK-ID R80 RPGII 1.0 SUMMARY-108 R9OV50 64DA DECK-ID R83 RPGII 1.0 SUMMARY-108 R9SKIP 651D DECK-ID S02 RPGII 1.0 SUMMARY-108 R9SPAC 655D DECK-ID S03 RPGII 1.0 SUMMARY-108 R9TP40 658A DECK-ID S11 RPGII 1.0 SUMMARY-108 R9ZCOD 6597 DECK-ID S26 RPGII 1.0 SUMMARY-108 RPGFIL 65CF DECK-ID U20 RPGII 1.0 SUMMARY-108 R9ASQR 65F1 DECK-ID R05 RPGII 1.0 SUMMARY-108 R9CLRC 6612 DECK-ID R16 RPGII 1.0 SUMMARY-108 R9GETS 661C DECK-ID R40 RPGII 1.0 SUMMARY-108 R9PRFN 667E DECK-ID R88 RPGII 1.0 SUMMARY-108 R9RDEN 66A9 DECK-ID R91 RPGII 1.0 SUMMARY-108 E10 LOG1A LOG1A LOG1A 1 + BIORHYTHMIC 0 I. THEORY BIORHYTHMIC THEORY HOLDS THAT FROM THE MOMENT OF BIRTH, OUR PHYSICAL, EMOTIONAL AND INTELLECTUAL ENERGIES CAN BE CHARTED AS FIXED. REPETITIVE CYCLES.0 A. PHYSICAL CYCLE THIS IS THE SHORTEST CYCLE, BEING 23 DAYS IN DURATION. IT IS SAID TO AFFECT THE PHYSICAL CHARACTERISTICCS OF MAN - STRENGTH, ENERGY, ENDURANCE, RESISTANCE, ETC. B. EMOTIONAL CYCLE THIS CYCLE IS 28 DAYS LONG AND CONTROLS THE STATE OF MAN'S EMOTIONS, MOODS, SENSITIVITY, MENTAL STABILITY AND CREATIVITY. C. INTELLECTUAL CYCLE THIS LONGEST CYCLE, BEING 33 DAYS IN LENGTH, CONTROLS THE MEMORY, CONCENTRATION, RESPONSIVENESS, AND OTHER FUNCTIONS OF THE MIND.0 EACH CYCLY IS DIVIDED INTO TWO PARTS. THE FIRST HALF IS USUALLY CALLED THE HIGH CYCLE, ALSO ACTIVE OR POSITIVE CYCLE. DURING THIS HALF OF THE CYCLE, THE PHASES ARE SAID TO BE DISCHARGING. IF IT IS THE PHYSICAL CYCLE, WE ARE ACTIVE, EMOTIONAL, MORE ENTHUSIASTIC, INTELLECTUAL, ABLE TO ABSORB NEW MATERIAL. IN THE SECOND HALF, KNOWN AS THE LOW, PASSIVE OR NEGATIVE PHASE, THE CYCLES ARE RECHARGING. EACH CYCLE TAKES THE OPPOSITE CHARACTERISTIC OF THE HIGH PHASE. THIS IS NOT A BAD PERIOD IN THE CYCLES. SINCE THE CYCLES ARE DIFFERENT LENGTHS, THEY WILL BE IN DIFFERENT PHASES ON A GIVEN DATE OR THE CYCLE WILL BE ON THE LINE BETWEEN PHASES. THIS OCCURS TWICE, ON THE FIRST DAY AND IN THE MIDDLE OF EACH CYCLE. THESE DAYS ARE CALLED THE CRITICAL DAYS. IT IS ON THESE DAYS THAT THE CYCLE IS PASSING FROM POSITIVE TO NEGATIVE OR VICE VERSA AND THE CYCLE IS IN FLUX. ON THESE DAYS, OUR REACTIONS TO EVENTS AROUND US MAY NOT BE NORMAL.0 INDUSTRIAL STUDIES HAVE SHOWN THAT 60% OF INDUSTRIAL ACCIDENTS OCCURRED ON CRITICAL DAYS, ALTHOUGH CRITICAL DAYS REPRESENT ONLY 20% OF OUR DAYS. IF ACCIDENTS WERE EVENLY DISTRIBUTED THROUGHOUT OUR LIVES, ONLY 20% SHOULD OCCUR ON CRITICAL DAYS. IN OTHER WORDS, IT IS THREE TIMES MORE LIKELY FOR AN ACCIDENT TO OCCUR ON A CRITICAL DAY AS ON A NON-CRITICAL DAY. 0 II. HISTORY THOUGH WORKING INDEPENDENTLY, DR. HERMANN SWOBODA, A PROFESSOR OF PSYCHOLOGY AT THE UNIVERSITY OF VIENNA, AND DR. WILHELM FLIESS, A NOSE AND THROAT SPECIALIST IN BERLIN, DISCOVERED THE PHYSICAL AND EMOTIONAL CYCLES. IN THE 1920S, ALFRED TELTSCHER, AUSTRIAN DOCTOR OF ENGINEERING IN INNSBRUCK, DISCOVERED THE INTELLECTUAL CYCLE IN HIS OBSERVANCE OF HIS STUDENTS' DAILY ABILITY TO ABSORB MATERIAL. ALTHOUGH THE THEORY HAS BEEN ACCEPTED FOR THE PAST FIFTY YEARS, IT HAS NOT HELD WIDE-SPREAD USE BECAUSE IT IS VERY TIME CONSUMING TO CALCULATE THE THREE CYCLES. HOWEVER, WITH THE USE OF COMPUTERS, MANY COMPANIES ARE NOW CHARTING THEIR EMPLOYEES' CRITICAL DAYS TO ADVISE THEM TO BE MORE CAREFUL ON THOSE DAYS. UNITED AIRLINES' GROUND CREW AT NATIONAL AIRPORT IN WASHINGTON, D.C. CUT ACCIDENTS BY HALF OVER A ONE YEAR PERIOD AFTER THEIR CYCLES WERE CHARTED. A BUS COMPANY IN TOKYO, JAPAN HAS REPORTED A 50% REDUCTION IN ACCIDENTS.1 +III. USES THE FIRST USE, OBVIOULSY, IS TO DETERMINE THE CRITICAL DAYS IN EACH MONTH AND TO TAKE CARE TO BE MORE CAREFUL THEN IF ANY DAY IS A DOUBLE OR TRIPLE CRITICAL DAY, THAT IS, TWO OR THREE CYCLES CROSSING THE LINE AT THE SAME TIME, ADDITIONAL CARE SHOULD BE TAKEN. 0 SECOND, WE CAN OBSERVE HOW THE THREE CYCLES FALL DURING THE MONTH, HIGH OR LOW. WHEN POSSIBLE, USE THE HIGH PHASE TO OUR ADVANTAGE AND BE AWARE OF THE LOW PHASES. FOR EXAMPLE, THE LOW PHASE OF THE INTELLECTUAL CYCLE MAY NOT BE THE BEST TIME TO START A NEW PROJECT. 0 IT HAS BEEN OBSERVED THAT BABIES CONCEIVED DURNING A PHYSICAL HIGH WITH THE EMOTIONAL CYCLE LOW HAVE USUALLY BEEN BOYS. WHEN THE OPPOSITE OCCURRED, EMOTIONAL CYCLE HIGH AND PHYSICAL LOW, IT HAS BEEN A GIRL. BOTH HIGH OR LOW HAS BEEN UNPREDICTABLE.0 HOWEVER, BIORHYTHM CHARTS ARE ONLY A GUIDE AS TO HOW YOUR CYCLES MAY BE WORKING. IT IS NOT PREDICTING FACT. THEY MIGHT BE COMPARED TO A ROAD MAP. IT SHOWS YOU HOW TO GET TO A GIVEN POINT BUT CANNOT PREDICT WHAT WILL ACTUALLY HAPPEN IF YOU TAKE A GIVEN ROUTE ALONG THE WAY.0 IV. ANALYSIS OF THE CHART ON THE RIGHT HAND SIDE OF THE CHART, THERE IS A LEGEND TO DENOTE THE THREE CYCLES ON THE GRAPH. IF THE CYCLES GROSS OR ARE IN COMPLETE PHASE WITH ONE ANOTHER, A '+' OR '*' IS USED. BELOW THAT, THE CRITICAL DAYS FOR THE MONTH ARE LISTED WITH A LETTER, P FOR PHYSICAL, E FOR EMOTIONAL, OR I FOR INTELLECTUAL, TO THE RIGHT. THIS TELLS YOU WHAT CYCLE IS CRITICAL THAT DAY. IF THERE ARE TWO OR THREE LETTERS THERE, THIS IS A DOUBLE OR TRIPLE CRITICAL DAY. REVIEW THE CHART TO DETERMINE YOUR HIGH AND LOW PHASES FOR THE MONTH1 + 0 0SEP. 1976 BIORHYTHM CHART FOR CONTROL DATA CORP. BORN SEP. 08, 1955 0 01 03 05 07 09 11 13 15 17 19 21 23 25 27 29 31 02 04 06 08 10 12 14 16 18 20 22 24 26 28 30 **************************************************************** *II * * I * PPPP - PHYSICAL * I E * * I E E * EEEE - E EMOTIONAL * I E E * * PP I E E PP * IIII - INTELLECTUAL *P P I E E P P * * P I E E P P I * ++++ - 2 CYCLES CROSS * P I E E P P I * * P I E E P P I * **** - 3 CYCLES CROSS * P I E E P P I * * P I E E P PI * * P I E + IP * * P I E P E I P * * P I E P E I P * * P IE P E I P * *-------------P--EI------------------P-------E-----I--------P--* CRITICAL DAYS * PE I P E I * 7 P * EP I P E I * 9 EI * E P I P + * 19 P * E P I P I E * 23 E * E P I P I E * 26 I * E P I P I E * 30 P * E P I P I E * * E P I P I E * * E P IP I E * * E P PI I E * * E PP I I E * *E E I I E * * E E I I E E * * E I I E * * I I * * II * ****************************************************************1 1 P*U PP*JOB PP*K,I10,L9 PP*SMC PP0, PPD,720,S,2,1, PPC,A,75,5, PPC,A,1,5, PPP,A,10,40,40,0,E, PPP,A,9,40, PPAAAAA AAAAAAPPAAAAA BBBBBBPPAAAAA BBCBBBPPBBBBB BBBBBBPPBBBBB CCCCCCPPABCD CCCCCCPPABCDE CCCCCCPPABCDE ABCDEEPPBBCDE ABCDEEPPHHHHG ABCDEEPPHHHHH AAAAA AABCDEEPPHHHHI BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAABCDEEPP*U P*JOB JOB 1700 MASS STORAGE OPERATING SYSTEM VERSION 4.2 DATE OF RUN: 11/11/11 SYSTEM ID: MSOS 5.0 RESTRICTED USE (08/12/76) *K,I10,L9*SMC SMC BEGINSEDIT BEGINS 0,D,720,S,2,1,C,A,75,5, C,A,1,5,P,A,10,40,40,0,E, P,A,9,40, G = 0414IWAY = 0023FWAY = 0024INTERNAL SORT BEGINSREADY FILE = 0001GOLUN = 0010FILNUM = 0000PASSED = 00000012AAAAA AAAAAAABCDE ABCDEEBBCDE ABCDEEHHHHG ABCDEEHHHHH AAAAA AABCDEEHHHHI BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAABCDEEAAAAA BBBBBBBBBBB BBBBBBAAAAA BBCBBBABCD CCCCCCABCDE CCCCCCBBBBB CCCCCCLUN = 0009FILNUM = 0000PASSED = 00000012SEQUENCES = 0001RECORDS IN = 00000012RECORDS OUT = 00000012SMC ENDSP*U PP*JOB PP*LIBEDT PP*M,25,,,M,N PJ PVERFY1 DECK-ID O24 MSOS 5.0 SUMMARY-110Jr@P6hNPb bb b ?/dd `" G" HhX0hTBDrr@P+lG"s XvTh/hX" !Xz   { XZrr@PVVERIFYvh XM`dbh` LbW q b q bG qrr@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"rr@P h hT D  T D(r`Pr@P@T L # f"ATTT &"&0aA PGb b  hHrr@P T h T``LRWX*Z0J T  rr@PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-r:@Pv-PSR LEVEL 1XX ERROR MODE SELECTED : PVERFY1 2PINPTV4INSTLU_^0*_]_0_^0*_*S Y S T E M_!D A T A_!P R O G R A M_>_^0*_]_0_^0*_]_0_^0*_$TABLE OF CONTENTS_W_^0*_]_0_^0*_*1. COMMUNICATION EXTERNALS_I_^0*_]_0_^0*_*2. COMMUNICATION REGION (INCLUDING APPLICATIONS AREA)_._^0*_]_0_^0*_*3. INTERRUPT REGION_P_^0*_]_0_^0*_*4. INTERRUPT MASK TABLE (MASKT)_D_^0*_]_0_^0*_*5. EXTENDED COMMUNICATIONS REGION_B_^0*_]_0_^0*_*6. STORAGE STACKS (INTSTK,VOLBLK, SCHSTK)_:_^0*_]_0_^0*_*7. LOGICAL UNIT TABLES (LOG1A, LOG1, LOG2)_9_^0*_]_0_^0*_*8. DIAGNOSTIC TABLES (DGNTAB, ALTERR)_>_^0*_]_0_^0*_*9. STANDARD LOGICAL UNIT DEFINITIONS AND LINE 1 TABLE_._^0*_]_0_^0*_)10. PHYSICAL DEVICE TABLES WITH INTERRUPT RESPONSE ROUTINES_)_^0*_]_0_^0*_)11. CORE ALLOCATION INFORMATION (CALTHD, LVLSTR, NN'S)_._^0*_]_0_^0*_)12. CORE PARTITION INFORMATION (PARTBL, THDS, USE)_1_^0*_]_0_^0*_)13. SYSTEM COMMON DECLARATION_G_^0*_]_0_^0*_)14. MISCELLANEOUS PROGRAMS_J_^0*_]_0_^0*_)15. MISCELLANEOUS INFORMATION_G_^0*_]_0_^0*_)16. SYSTEM FILE INFORMATION_I_^0*_]_0_^0*_)17. PRESET REGION_S_^0*_]_0_^0*_)18. START OF SYSTEM DIRECTORY_G_^0*_]_0_^0_%EJT_]_'_^0*_*C O M M U N I C A T I O N S_!E X T E R N A L S_4_^0*_]_0_^0*_]_0_^0_%EXT FNR_*FIND NEXT REQUEST_D_^0_%EXT COMPRQ_'COMPLETE REQUEST_E_^0_%EXT REQXT_(REQUEST EXIT_I_^0_%EXT VOLR_)VOLATILE RELEASE_E_^0_%EXT VOLA_)VOLATILE ASSIGNMENT_B_^0_%EXT LUABS_(LOGICAL UNIT ABSOLUTIZING_<_^0_%EXT SABS_)STARTING ADDRESS ABSOLUTIZING_8_^0_%EXT CABS_)COMPLETION ADDRESS ABSOLUTIZING_6_^0_%EXT NABS_)NUMBER OF WORDS ABSOLUTIZING_9_^0_%EXT DISPXX_'DISPATCHER_K_^0_%EXT MONI_)MONITOR_N_^0_%EXT MSIZV4_'HIGHEST CORE LOCATION USED BY SYSTEM_1_^0_%EXT IPROC_(INTERNAL INTERRUPT PROCESSOR_9_^0_%EXT ALLIN_(COMMON INTERRUPT HANDLER_=_^0_%EJT_]_'_^0*_*C O M M U N I C A T I O N_!R E G I O N_<_^0*_]_0_^0_%ORG 0_]_#_^0_%RTJ SYFAIL_'GO TO COMMON SYSTEM FAILURE ROUTINE_2_^0*_]_0_^0LPMSK NUM 0_,LOGICAL PRODUCT MASK TABLE OF ONES_3_^0ONE_"NUM 1_/ONE_O_^0THREE NUM 3_/THREE_M_^0SEVEN NUM 7_/SEVEN_M_^0_%NUM $F_]_"_^0_%NUM $1F_]_!_^0_%NUM $3F_]_!_^0_%NUM $7F_]_!_^0_%NUM $FF_]_!_^0_%NUM $1FF_] _^0_%NUM $3FF_] _^0_%NUM $7FF_] _^0_%NUM $FFF_] _^0_%NUM $1FFF_] _^0_%NUM $3FFF_] _^0_%NUM $7FFF_] _^0*_]_0_^0NZERO NUM $FFFF_(LOGICAL PRODUCT MASK TABLE OF ZEROS (NEG ZERO)_'_^0_%NUM $FFFE_] _^0_%NUM $FFFC_] _^0_%NUM $FFF8_] _^0_%NUM $FFF0_] _^0_%NUM $FFE0_] _^0_%NUM $FFC0_] _^0_%NUM $FF80_] _^0_%NUM $FF00_] _^0_%NUM $FE00_] _^0_%NUM $FC00_] _^0_%NUM $F800_] _^0_%NUM $F000_] _^0_%NUM $E000_] _^0_%NUM $C000_] _^0_%NUM $8000_] _^0_%EJT_]_'_^0*_*C O M M U N I C A T I O N_!R E G I O N_<_^0*_]_0_^0ZERO_!NUM 0_/ZERO_N_^0*_]_0_^0ONEBIT NUM 1_,ONE BIT TABLE_H_^0TWO_"NUM 2_/TWO_O_^0FOUR_!NUM 4_/FOUR_N_^0EIGHT NUM 8_/EIGHT_M_^0_%NUM $10_]_!_^0_%NUM $20_]_!_^0_%NUM $40_]_!_^0_%NUM $80_]_!_^0_%NUM $100_] _^0_%NUM $200_] _^0_%NUM $400_] _^0_%NUM $800_] _^0_%NUM $1000_] _^0_%NUM $2000_] _^0_%NUM $4000_] _^0_%NUM $8000_] _^0*_]_0_^0ZROBIT NUM $FFFE_(ZERO BIT TABLE_G_^0_%NUM $FFFD_] _^0_%NUM $FFFB_] _^0_%NUM $FFF7_] _^0_%NUM $FFEF_] _^0_%NUM $FFDF_] _^0_%NUM $FFBF_] _^0_%NUM $FF7F_] _^0_%NUM $FEFF_] _^0_%NUM $FDFF_] _^0_%NUM $FBFF_] _^0_%NUM $F7FF_] _^0_%NUM $EFFF_] _^0_%NUM $DFFF_] _^0_%NUM $BFFF_] _^0_%NUM $7FFF_] _^0*_]_0_^0FIVE_!NUM 5_/FIVE_N_^0SIX_"NUM 6_/SIX_O_^0NINE_!NUM 9_/NINE_N_^0TEN_"NUM 10_.TEN_O_^0_%EJT_]_'_^0*_*C O M M U N I C A T I O N_!R E G I O N_<_^0*_]_0_^0*_8THIS AREA IS AVAILABLE FOR APPLICATIONS USE_*_^0*_]_0_^0_%NUM 0_,$47_R_^0_%NUM 0_,$48_R_^0_%NUM 0_,$49_R_^0_%NUM 0_,$4A_R_^0_%NUM 0_,$4B_R_^0_%NUM 0_,$4C_R_^0_%NUM 0_,$4D_R_^0_%NUM 0_,$4E_R_^0_%NUM 0_,$4F_R_^0_%NUM 0_,$50_R_^0_%NUM 0_,$51_R_^0_%NUM 0_,$52_R_^0_%NUM 0_,$53_R_^0_%NUM 0_,$54_R_^0_%NUM 0_,$55_R_^0_%NUM 0_,$56_R_^0_%NUM 0_,$57_R_^0_%NUM 0_,$58_R_^0_%NUM 0_,$59_R_^0_%NUM 0_,$5A_R_^0_%NUM 0_,$5B_R_^0_%NUM 0_,$5C_R_^0_%NUM 0_,$5D_R_^0_%NUM 0_,$5E_R_^0_%NUM 0_,$5F_R_^0_%NUM 0_,$60_R_^0_%NUM 0_,$61_R_^0_%NUM 0_,$62_R_^0_%NUM 0_,$63_R_^0_%NUM 0_,$64_R_^0_%NUM 0_,$65_R_^0_%NUM 0_,$66_R_^0_%NUM 0_,$67_R_^0_%NUM 0_,$68_R_^0_%NUM 0_,$69_R_^0_%NUM 0_,$6A_R_^0_%NUM 0_,$6B_R_^0_%NUM 0_,$6C_R_^0_%NUM 0_,$6D_R_^0_%NUM 0_,$6E_R_^0_%NUM 0_,$6F_R_^0_%EJT_]_'_^0_%SPC 4_]_#_^0*_*C O M M U N I C A T I O N_!R E G I O N_<_^0*_]_0_^0*_8THIS AREA IS AVAILABLE FOR APPLICATIONS USE_*_^0*_]_0_^0_%NUM 0_,$70_R_^0_%NUM 0_,$71_R_^0_%NUM 0_,$72_R_^0_%NUM 0_,$73_R_^0_%NUM 0_,$74_R_^0_%NUM 0_,$75_R_^0_%NUM 0_,$76_R_^0_%NUM 0_,$77_R_^0_%NUM 0_,$78_R_^0_%NUM 0_,$79_R_^0_%NUM 0_,$7A_R_^0_%NUM 0_,$7B_R_^0_%NUM 0_,$7C_R_^0_%NUM 0_,$7D_R_^0_%NUM 0_,$7E_R_^0_%NUM 0_,$7F_R_^0_%NUM 0_,$80_R_^0_%NUM 0_,$81_R_^0_%NUM 0_,$82_R_^0_%NUM 0_,$83_R_^0_%NUM 0_,$84_R_^0_%NUM 0_,$85_R_^0_%NUM 0_,$86_R_^0_%NUM 0_,$87_R_^0_%NUM 0_,$88_R_^0_%NUM 0_,$89_R_^0_%NUM 0_,$8A_R_^0_%NUM 0_,$8B_R_^0_%NUM 0_,$8C_R_^0_%NUM 0_,$8D_R_^0_%NUM 0_,$8E_R_^0_%NUM 0_,$8F_R_^0_%EJT_]_'_^0_%SPC 2_]_#_^0*_*C O M M U N I C A T I O N_!R E G I O N_<_^0*_]_0_^0*_8THIS AREA IS AVAILABLE FOR APPLICATIONS USE_*_^0*_]_0_^0_%NUM 0_,$90_R_^0_%NUM 0_,$91_R_^0_%NUM 0_,$92_R_^0_%NUM 0_,$93_R_^0_%NUM 0_,$94_R_^0_%NUM 0_,$95_R_^0_%NUM 0_,$96_R_^0_%NUM 0_,$97_R_^0_%NUM 0_,$98_R_^0_%NUM 0_,$99_R_^0_%NUM 0_,$9A_R_^0_%NUM 0_,$9B_R_^0_%NUM 0_,$9C_R_^0_%NUM 0_,$9D_R_^0_%NUM 0_,$9E_R_^0_%NUM 0_,$9F_R_^0_%NUM 0_,$A0_R_^0_%NUM 0_,$A1_R_^0_%NUM 0_,$A2_R_^0_%NUM 0_,$A3_R_^0_%NUM 0_,$A4_R_^0_%NUM 0_,$A5_R_^0_%NUM 0_,$A6_R_^0_%NUM 0_,$A7_R_^0_%NUM 0_,$A8_R_^0_%NUM 0_,$A9_R_^0_%NUM 0_,$AA_R_^0_%NUM 0_,$AB_R_^0_%NUM 0_,$AC_R_^0_%NUM 0_,$AD_R_^0_%NUM 0_,$AE_R_^0_%NUM 0_,$AF_R_^0_%NUM 0_,$B0_R_^0_%NUM 0_,$B1_R_^0_%NUM 0_,$B2_R_^0_%EJT_]_'_^0*_*C O M M U N I C A T I O N_!R E G I O N_<_^0*_]_0_^0_%ORG $B3_]_!_^0_%ADC SCRTCH_'LOGICAL UNIT OF STANDARD SCRATCH DEVICE_._^0_%ADC SCHSTK_'ADR OF TOP OF SCHEDULER STACK_8_^0AFNR_!ADC FNR_*ADR OF FIND NEXT REQUEST_=_^0ACOMPR ADC COMPRQ_'ADR OF COMPLETE REQUEST_>_^0_%ADC MASKT_(ADR OF MASK TABLE_D_^0_%ADC INTSTK_'ADR OF TOP OF INTERRUPT STACK_8_^0_%ADC REQXT_(ADR OF EXIT FOR MONITOR REQUESTS_5_^0AVOLR ADC VOLR_)ADR OF RELEASE VOLATILE ROUTINE_6_^0AVOLA ADC VOLA_)ADR OF ASSIGN VOLATILE ROUTINE_7_^0_%ADC LUABS_(ADR OF ABSOLUTIZING ROUTINE FOR LOGICAL UNIT_)_^0_%ADC SABS_)ADR OF ABSOLUTIZING ROUTINE FOR STARTING ADR_)_^0_%ADC CABS_)ADR OF ABSOLUTIZING ROUTINE FOR COMPLETION ADR_'_^0_%ADC NABS_)ADR OF ABSOLUTIZING ROUTINE FOR NUMBER OF WRDS_'_^0_%NUM 0_,MSB OF STARTING SCRATCH SECTOR_!(ALWAYS ZERO)_'_^0_%NUM 0_,LSB OF STARTING SCRATCH SECTOR_#(SET BY SI)_'_^0_%ADC LBUNIT_'LOGICAL UNIT OF STANDARD LIBRARY DEVICE_._^0_%NUM 0_,MSB OF PGM LIB DIRECTORY SECTOR (ALWAYS ZERO)_'_^0_%NUM 0_,LSB OF PGM LIB DIRECTORY SECTOR_"(SET BY SI)_'_^0*_]_0_^0_%BZS ($E3-$C5+1)_!RESERVED FOR FTN_0(UNPROTECTED)_'_^0_%NUM 0_,RESERVED FOR FTN + LOAD/GO SECTOR(UNPROTECTED)_'_^0_%NUM 0_,RESERVED FOR FTN_0(UNPROTECTED)_'_^0*_]_0_^0_%BSS (1)_*LENGTH OF MASS RESIDENT SYSTEM DIR.(SET BY SI)_'_^0_%BSS (1)_*LENGTH OF CORE RESIDENT SYSTEM DIR.(SET BY SI)_'_^0_%NUM 0_,REAL TIME CLOCK COUNTER_>_^0_%ADC EXTBV4_'ADDR OF EXTENDED CORE TABLE_:_^0ADISP ADC DISPXX_'ADR OF DISPATCHER_D_^0_%ADC SLDIRY_'ADR OF SYSTEM DIRECTORY_>_^0_%NUM 0_,TEMPORARY TOP+1 OF UNPROTECTED_#(SET BY SI)_'_^0_%NUM 0_,TEMPORARY BOTTOM-1 OF UNPROTECTED (SET BY SI)_'_^0_%NUM 0_,USED BY JOB PROCESSOR FOR LOADER RETURNS_-_^0_%NUM -1_+CURRENT PRIORITY LEVEL_?_^0_%ADC VOLBLK_'STARTING LOCATION OF VOLATILE STORAGE_0_^0_%ADC LPRSET_'LENGTH OF PRESETS TABLE_>_^0_%ADC APRSET_'STARTING LOCATION OF PRESETS TABLE_3_^0_%ADC 0_,ADR OF BREAKPOINT PROGRAM IN CORE(UNPROTECTED)_'_^0AMONI ADC MONI_)ADR OF MONITOR ENTRY FOR REQUESTS_4_^0_%ADC MSIZV4_'HIGHEST CORE LOCATION USED BY SYSTEM_1_^0_%NUM 0_,TOP+1 OF UNPROTECTED_.(SET BY SI)_'_^0_%NUM 0_,BOTTOM-1 OF UNPROTECTED_+(SET BY SI)_'_^0_%ADC IPROC_(ADR OF INTERNAL INTERRUPT PROCESSOR_2_^0_%ADC STDINP_'LOGICAL UNIT OF STANDARD INPUT DEVICE (FTN 1)_'_^0_%ADC BINOUT_'LOGICAL UNIT OF STANDARD BINARY DEVICE (FTN 2)_'_^0_%ADC LSTOUT_'LOGICAL UNIT OF STANDARD PRINT DEVICE (FTN 3)_'_^0_%ADC OUTCOM_'LOGICAL UNIT OF OUTPUT COMMENT DEVICE (FTN 4)_'_^0_%ADC INPCOM_'LOGICAL UNIT OF INPUT COMMENT DEVICE (FTN 4)_'_^0_%ADC ALLIN_(ADR OF COMMON INTERRUPT HANDLER_6_^0_%BSS (1)_*I (MEMORY INDEX) REGISTER_'(UNPROTECTED)_'_^0_%EJT_]_'_^0_%SPC 6_]_#_^0*_*I N T E R R U P T_!R E G I O N_D_^0*_]_0_^0*_]_0_^0*_]_0_^0LINE00 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($F8)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 15_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC IPROC_(INTERRUPT RESPONSE FOR THE PROTECT/PARITY ERR._'_^0*_]_0_^0LINE01 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 13_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC LIN1V4_'INTERRUPT RESPONSE FOR THE LOW SPEED I / O_*_^0*_]_0_^0LINE02 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 09_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC R1752_(INTERRUPT RESPONSE FOR THE 1752 DRUM_1_^0*_]_0_^0LINE03 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 09_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC R17332_'INTERRUPT RESPONSE FOR THE 1733-2/856-2/4 DISK_'_^0*_]_0_^0LINE04 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 10_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC R42312_'INTERRUPT RESPONSE FOR THE 1742-30/120 PRINTER_'_^0*_]_0_^0LINE05 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 10_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC R17432_'INTERRUPT RESPONSE FOR THE 1743-2 COMM. CONT._(_^0*_]_0_^0LINE06 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0*_]_0_^0LINE07 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 10_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC R17323_'INTERRUPT RESPONSE FOR THE 1732-3/616 MAG TAPE_'_^0*_]_0_^0LINE08 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0*_]_0_^0LINE09 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0*_]_0_^0LINE10 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 14_+PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC R1728_(INTERRUPT RESPONSE FOR THE 1728-430 READ/PNCH_(_^0*_]_0_^0LINE11 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0*_]_0_^0LINE12 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0*_]_0_^0LINE13 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0*_]_0_^0LINE14 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0*_]_0_^0LINE15 NUM 0_,INTERRUPT LINE ENTRY_A_^0_%RTJ- ($FE)_(GO TO INTERRUPT HANDLER ROUTINE_6_^0_%NUM 0_,PRIORITY LEVEL OF INTERRUPT_:_^0_%ADC INVINT_'INTERRUPT RESPONSE FOR THE INVALID INTERRUPTS_(_^0_%SPC 1_]_#_^0_%EJT_]_'_^0*_$C O R E_!R E S I D E N T_!D E B U G_!E N T R I E S_3_^0_%SPC 2_]_#_^0_%ORG $140_] _^0_%SPC 1_]_#_^0_%EXT COUTV4_]_^0_%EXT COBOP_] _^0_%SPC 2_]_#_^0_%JMP+ COUTV4_'OFF-LINE CORE DUMP_C_^0_%SPC 4_]_#_^0_%JMP+ COBOP_(SYSTEM CHECKOUT BOOTSTRAP_<_^0_%EJT_]_'_^0*_*I N T E R R U P T_!M A S K_!T A B L E_<_^0*_]_0_^0*_]_0_^0_'ENT MASKT_(INTERRUPT MASKS INDEXED BY PRIORITY LEVEL_+_^0*_]_0_^0*_]_0_^0*_+<----------------------------- INTERRUPT LINE NUMBER_._^0*_-15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0_1_^0*_+****************************************************_._^0*_%P -1 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%R 0 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%I 1 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%O 2 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%R 3 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%I 4 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%T 5 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%Y 6 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_)7 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%L 8 * 0 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 *_._^0*_%E 9 * 0 0 0 0 0 1 0 0 1 0 1 1 0 0 1 1 *_._^0*_%V 10 * 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 *_._^0*_%E 11 * 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 *_._^0*_%L 12 * 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 *_._^0*_%. 13 * 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 *_._^0*_%. 14 * 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 *_._^0*_%V 15 * 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 *_._^0*_+****************************************************_._^0*_]_0_^0*_]_0_^0_%NUM $04BF_(PRIORITY LEVEL -1_D_^0MASKT NUM $04BF_(PRIORITY LEVEL 00_D_^0_%NUM $04BF_(PRIORITY LEVEL 01_D_^0_%NUM $04BF_(PRIORITY LEVEL 02_D_^0_%NUM $04BF_(PRIORITY LEVEL 03_D_^0_%NUM $04BF_(PRIORITY LEVEL 04_D_^0_%NUM $04BF_(PRIORITY LEVEL 05_D_^0_%NUM $04BF_(PRIORITY LEVEL 06_D_^0_%NUM $04BF_(PRIORITY LEVEL 07_D_^0_%NUM $04BF_(PRIORITY LEVEL 08_D_^0_%NUM $04B3_(PRIORITY LEVEL 09_D_^0_%NUM $0403_(PRIORITY LEVEL 10_D_^0_%NUM $0403_(PRIORITY LEVEL 11_D_^0_%NUM $0403_(PRIORITY LEVEL 12_D_^0_%NUM $0401_(PRIORITY LEVEL 13_D_^0_%NUM $0001_(PRIORITY LEVEL 14_D_^0_%NUM $0000_(PRIORITY LEVEL 15_D_^0_%EJT_]_'_^0*_*E X T E N D E D C O M M U N I C A T I O N S R E G I O N_*_^0*_]_0_^0*_8REFERENCED THRU LOCATION $E9_9_^0_%SPC 3_]_#_^0_%ENT MAXSEC_]_^0_%ENT MPFLAG_]_^0_%ENT MIINP_] _^0_%EXT JFILV4_]_^0_%EXT RCTV_] _^0_%EXT END0V4_]_^0_%EXT DATBAS_]_^0_%EXT SECTOR_]_^0_%EQU CSYLST(9)_Z_^0_%EQU CSYINP(10)_Y_^0_%EQU CSYPUN(11)_Y_^0_%EQU SECT1(0)_[_^0_%EQU SECT3(0)_[_^0_%EQU SECT4($5BFA)_W_^0_%SPC 3_]_#_^0EXTBV4 ADC 0_,00_!MODE SWITCH_!32K=0_!65K=1_5_^0_%ADC CSYINP_'01_!STANDARD COSY INPUT LU NUMBER_2_^0_%ADC CSYPUN_'02_!STANDARD COSY OUTPUT LU NUMBER_2_^0_%ADC CSYLST_'03_!STANDARD COSY LIST_!LU NUMBER_2_^0_%ADC 0_,04_!FIRST SECTOR LSB OF SYSTEM CORE IMAGE_+_^0_%ADC 0_,05_!FIRST SECTOR LSB OF S. A. T._1_^0_%ADC 0_,06_!FIRST SECTOR LSB OF CREP TABLE_1_^0_%ADC 0_,07_!FIRST SECTOR LSB OF CREP1 TABLE_1_^0_%ADC JFILV4_'08_!FIRST SECTOR LSB OF JOB FILE DIRECTORY_*_^0_%ADC RCTV_)09_!ADDRESS OF RCTV TABLE IN THE MONITOR_,_^0_%ADC 0_,10_!UNPROTECTED CORE FLAG 0=PART0 / 1=PART1_(_^0_%ADC 0_,11_!UNPROTECTED SWAP ALLOWED 0=YES / 1=NO_+_^0_%ADC AYERTO_'12_!ADDRESS LOCATION CONTAINING THE YEAR_,_^0_%ADC AMONTO_'13_!ADDRESS LOCATION CONTAINING THE MONTH_+_^0_%ADC ADAYTO_'14_!ADDRESS LOCATION CONTAINING THE DAY_-_^0_%ADC END0V4_'15_!LAST ADDRESS OF PART 0 CORE_5_^0_%ADC 0_,16_!FIRST ADDRESS OF BLANK (SYSTEM) COMMON_*_^0_%ADC DATBAS_'17_!FIRST ADDRESS OF LABELED COMMON_1_^0_%ADC 0_,18_!COSY DRIVER CURRENT PHYSTAB ADDRESS_-_^0_%ADC 0_,19_!JOB TABLE INITIALIZATION FLAG_3_^0_%ADC 0_,20_!MASS MEMORY LOCATION OF ENGINEERING FILE_(_^0_%ADC SECT1_(21_!MSB OF MAXIMUM SCRATCH SECTOR_3_^0MAXSEC ADC SECTOR_'22_!LSB OF MAXIMUM SCRATCH SECTOR_3_^0_%ADC SECT3_(23_!MSB OF MAXIMUM LIBRARY SECTOR_3_^0_%ADC SECT4_(24_!LSB OF MAXIMUM LIBRARY SECTOR_3_^0_%ADC 0_,25_!LAST ADDRESS OF LABELED COMMON_2_^0_%ADC 0_,26_!UNUSED_J_^0MPFLAG ADC 0_,27_!ZERO IF NOT AN MP SYSTEM_8_^0_%ADC LOG1A_(28_!ADDRESS OF LOG1A TABLE_:_^0MIINP BZS MIINP(40)_#MANUAL INPUT BUFFER_B_^0_%EJT_]_'_^0*_*S Y S T E M_!I D E N T I F I C A T I O N_:_^0*_]_0_^0_%SPC 1_]_#_^0_%ENT SYSID_] _^0_%EXT SYSMON_'MONTH SYSTEM WAS BUILT_?_^0_%EXT SYSDAY_'DAY_!SYSTEM WAS BUILT_?_^0_%EXT SYSYER_'YEAR SYSTEM WAS BUILT_?_^0_%SPC 4_]_#_^0SYSID ALF 16, EXXON DEVELOPMENT SYSTEM_H_^0_%ADC SYSMON_] _^0_%ADC SYSDAY_] _^0_%ADC SYSYER_] _^0_%SPC 4_]_#_^0*_$COMMON SYSTEM FAILURE ROUTINE_K_^0_%SPC 2_]_#_^0_%ENT SYFAIL_]_^0_%SPC 1_]_#_^0SYFAIL NOP 0_]_#_^0_%IIN 0_,INHIBIT INTERRUPTS_C_^0_%STA* SAVEA_(SAVE A_O_^0_%STQ* SAVEQ_(SAVE Q_O_^0_%TRM A_,MOVE M TO A_J_^0_%STA* SAVEM_(SAVE M_O_^0_%LDA* SYFAIL_'PICK UP ADDRESS OF CALLER_<_^0_%INA -2_+CORRECT IT FOR 2 WORD RTJ_<_^0_%STA* SYFAIL_'STORE IT BACK_H_^0_%NUM $18FF_(HANG_Q_^0_%SPC 2_]_#_^0SAVEA NUM 0_]_#_^0SAVEQ NUM 0_]_#_^0SAVEM NUM 0_]_#_^0_%EJT_]_'_^0*_$C O N T R O L_!P O I N T / B O U N D S_!R E G I S T E R_-_^0*_8P A R A M E T E R S_B_^0*_]_0_^0_%ENT UBPROT_]_^0_%ENT LBPROT_]_^0_%ENT UPBDTB_]_^0_%ENT LOBDTB_]_^0_%ENT TSCNAC_]_^0_%ENT TSCNMI_]_^0_%ENT SIM200_]_^0_%ENT CCP_]_!_^0_%ENT CPSET_] _^0_%SPC_]_'_^0_%EQU UBPROT($7FFF),LBPROT($7FFF),UPBDTB($7FFF),LOBDTB($7FFF)_,_^0_%EQU TSCNAC($7FFF),TSCNMI($7FFF),SIM200($7FFF)_:_^0_%EQU CCP($7FFF)_Y_^0_%SPC 2_]_#_^0CPSET NUM 0_]_#_^0_%JMP* (CPSET)_\_^0_%EJT_]_'_^0*_*S T O R A G E_!S T A C K S_H_^0*_]_0_^0*_]_0_^0NUMPRI EQU NUMPRI(16)_#NUMBER OF SYSTEM PRIORITY LEVELS_5_^0EXTVOL EQU EXTVOL(00)_#AMOUNT OF EXTRA VOLATILE STORAGE_5_^0*_]_0_^0NFTNLV EQU NFTNLV(3)_$NUMBER OF REENTRANT FORTRAN LEVELS_3_^0NEDLVL EQU NEDLVL(3)_$NUMBER OF REENTRANT ENCODE/DECODE LEVELS_-_^0_%SPC 3_]_#_^0*_]_0_^0*_1I N T E R R U P T_!S T A C K_?_^0*_]_0_^0_%ENT INTSTK_'CONTENTS, 1 = Q-REGISTER_<_^0*_C2 = A-REGISTER_<_^0*_C3 = I-REGISTER_<_^0*_C4 = P-REGISTER_<_^0*_C5 = PRIORITY LEVEL AND OVERFLOW_+_^0*_GINDICATOR (BIT 15)_4_^0*_]_0_^0INTSTK BZS INTSTK(5*NUMPRI)_S_^0_%SPC 3_]_#_^0*_]_0_^0*_1V O L A T I L E_!B L O C K_!S T A C K_5_^0*_]_0_^0_%ENT VOLBLK_'CONTENTS, 1 = Q-REGISTER_<_^0_%ENT VOLEND_22 = A-REGISTER_<_^0*_C3 = I-REGISTER_<_^0*_C4 = USER ASSIGNMENTS_6_^0*_C._I_^0*_CN = USER ASSIGNMENTS_6_^0*_]_0_^0VOLBLK BZS VOLBLK(18*NUMPRI+98*NFTNLV+57*NEDLVL+EXTVOL+1)_5_^0VOLEND EQU VOLEND(*)_#END OF VOLATILE_F_^0_%SPC 3_]_#_^0*_]_0_^0*_1S C H E D U L E R / T I M E R_!S T A C K_3_^0*_]_0_^0_%ENT SCHSTK_'CONTENTS, 1 = SCHEDULER CALL_8_^0_%ENT SCHLNG_22 = STARTING ADDRESS_6_^0*_C3 = THREAD TO NEXT CALL_3_^0SCHSTK EQU SCHSTK(*)_/4 = Q-REGISTER CONTENTS_3_^0_%SPC 1_]_#_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 001_;_^0_%EJT_]_'_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 002_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 003_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 004_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 005_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 006_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 007_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 008_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 009_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 010_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 011_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 012_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 013_;_^0_%EJT_]_'_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 014_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 015_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 016_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 017_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 018_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 019_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 020_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 021_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 022_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 023_;_^0_%ADC 0,0,*+2,0_#SCHEDULER STACK ENTRY 024_;_^0_%ADC 0,0,(-0),0_"SCHEDULER STACK ENTRY 025_;_^0SCHLNG EQU SCHLNG(*-SCHSTK) SCHEDULER STACK LENGTH_;_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!T A B L E S_!( L O G 1 A )_._^0*_]_0_^0*_]_0_^0_%ENT LOG1A_#PHYSICAL DEVICES ADDRESSES BY LOGICAL UNIT_/_^0_%ENT NUMLU_] _^0_%SPC 1_]_#_^0LOG1A ADC NUMLU_(NUMBER OF LOGICAL UNITS_>_^0_%ADC PCORE_(1_"CORE ALLOCATOR_B_^0_%ADC PDUMMY_'2_"DUMMY LOGICAL UNIT_>_^0_%ADC PDUMMY_'3_"DUMMY LOGICAL UNIT_>_^0_%ADC P1711_(4_"1711 TELETYPE, 713-10 CRT_7_^0_%ADC PCOSY1_'5_"COSY DRIVER, FIRST UNIT_9_^0_%ADC P73230_'6_"1732-3 616-73/93/95 MAG TAPE UNIT 0_-_^0_%ADC PSUDO0_'7_"PSEUDO TAPE, UNIT 0_=_^0_%ADC P73320_'8_"1733-2 856-2/4 DISK, UNIT 0_5_^0_%ADC P42312_'9_"1742-30/120 LINE PRINTER_8_^0X73230 ADC P73230_'10_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 0_*_^0_%ADC P1728_(11_!1728-430 CARD PUNCH_=_^0FTN742 ADC P42312_'12_!1742-30/120 FORTRAN LINE PRINTER_0_^0_%ADC P73321_'13_!1733-2 856-2/4 DISK, UNIT 1_5_^0_%ADC P73322_'14_!1733-2 856-2/4 DISK, UNIT 2_5_^0_%ADC P73323_'15_!1733-2 856-2/4 DISK, UNIT 3_5_^0_%ADC P73231_'16_!1732-3 616-73/93/95 MAG TAPE UNIT 1_-_^0_%ADC P73232_'17_!1732-3 616-73/93/95 MAG TAPE UNIT 2_-_^0_%ADC P73233_'18_!1732-3 616-73/93/95 MAG TAPE UNIT 3_-_^0_%ADC PSUDO1_'19_!PSEUDO TAPE, UNIT 1_=_^0_%ADC PSUDO2_'20_!PSEUDO TAPE, UNIT 2_=_^0_%ADC PSUDO3_'21_!PSEUDO TAPE, UNIT 3_=_^0_%ADC PSDSK0_'22_!PSEUDO DISK, UNIT 0_=_^0_%ADC PSDSK1_'23_!PSEUDO DISK, UNIT 1_=_^0_%ADC PSDSK2_'24_!PSEUDO DISK, UNIT 2_=_^0_%ADC PSDSK3_'25_!PSEUDO DISK, UNIT 3_=_^0_%ADC P1752_(26_!1752 DRUM_G_^0_%ADC PCOSY2_'27_!COSY DRIVER, SECOND UNIT_8_^0_%ADC P1728_(28_!1728-430 CARD READER_<_^0X73231 ADC P73231_'29_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 1_*_^0L74300 ADC P74300_'30_!1743-2 COMMUNICATIONS UNIT 0_3_^0L74301 ADC P74301_'31_!1743-2 COMMUNICATIONS UNIT 1_3_^0L74302 ADC P74302_'32_!1743-2 COMMUNICATIONS UNIT 2_3_^0L74303 ADC P74303_'33_!1743-2 COMMUNICATIONS UNIT 3_3_^0L74304 ADC P74304_'34_!1743-2 COMMUNICATIONS UNIT 4_3_^0L74305 ADC P74305_'35_!1743-2 COMMUNICATIONS UNIT 5_3_^0X73232 ADC P73232_'36_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 2_*_^0X73233 ADC P73233_'37_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 3_*_^0X42312 ADC P42312_'38_!DIAGNOSTIC 1742-30/120 LINE PRINTER_-_^0X1728 ADC P1728_(39_!DIAGNOSTIC 1728-430 READER / PUNCH_._^0X74300 ADC P74300_'40_!DIAGNOSTIC 1743-2 COMM. , UNIT 0_0_^0X74301 ADC P74301_'41_!DIAGNOSTIC 1743-2 COMM. , UNIT 1_0_^0X74302 ADC P74302_'42_!DIAGNOSTIC 1743-2 COMM. , UNIT 2_0_^0X74303 ADC P74303_'43_!DIAGNOSTIC 1743-2 COMM. , UNIT 3_0_^0X74304 ADC P74304_'44_!DIAGNOSTIC 1743-2 COMM. , UNIT 4_0_^0X74305 ADC P74305_'45_!DIAGNOSTIC 1743-2 COMM. , UNIT 5_0_^0X1711 ADC P1711_(46_!DIAGNOSTIC 1711 TELETYPE, 713-10 CRT_,_^0NUMLU EQU NUMLU(*-LOG1A-1)_S_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!T A B L E S_!( L O G 1 )_0_^0*_]_0_^0*_]_0_^0_%ENT LOG1_$LOGICAL UNIT INFORMATION BY LOGICAL UNIT_1_^0*_8BIT 14 = 1, IMPLIES LU SHARES DEVICE_1_^0*_8BIT 13 = 1, IMPLIES LU IS MARKED DOWN_0_^0*_8BITS 0 - 11 IS ALTERNATE LOGICAL UNIT_0_^0*_GALTERNATE = 0, IMPLIES NONE_+_^0S_$EQU S($4000)_$SHARED BIT_K_^0_%SPC 1_]_#_^0LOG1_!ADC NUMLU_(NUMBER OF LOGICAL UNITS_>_^0_%ADC 0_,1_"CORE ALLOCATOR_B_^0_%ADC 0+S_*2_"DUMMY LOGICAL UNIT_>_^0_%ADC 0+S_*3_"DUMMY LOGICAL UNIT_>_^0_%ADC 2+S_*4_"1711 TELETYPE, 713-10 CRT_7_^0_%ADC 0_,5_"COSY DRIVER, FIRST UNIT_9_^0_%ADC 0+S_*6_"1732-3 616-73/93/95 MAG TAPE UNIT 0_-_^0_%ADC 0_,7_"PSEUDO TAPE, UNIT 0_=_^0_%ADC 0_,8_"1733-2 856-2/4 DISK, UNIT 0_5_^0_%ADC 0+S_*9_"1742-30/120 LINE PRINTER_8_^0_%ADC 0+S_*10_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 0_*_^0_%ADC 0+S_*11_!1728-430 CARD PUNCH_=_^0_%ADC 0+S_*12_!1742-30/120 FORTRAN LINE PRINTER_0_^0_%ADC 0_,13_!1733-2 856-2/4 DISK, UNIT 1_5_^0_%ADC 0_,14_!1733-2 856-2/4 DISK, UNIT 2_5_^0_%ADC 0_,15_!1733-2 856-2/4 DISK, UNIT 3_5_^0_%ADC 0+S_*16_!1732-3 616-73/93/95 MAG TAPE UNIT 1_-_^0_%ADC 0+S_*17_!1732-3 616-73/93/95 MAG TAPE UNIT 2_-_^0_%ADC 0+S_*18_!1732-3 616-73/93/95 MAG TAPE UNIT 3_-_^0_%ADC 0_,19_!PSEUDO TAPE, UNIT 1_=_^0_%ADC 0_,20_!PSEUDO TAPE, UNIT 2_=_^0_%ADC 0_,21_!PSEUDO TAPE, UNIT 3_=_^0_%ADC 0_,22_!PSEUDO DISK, UNIT 0_=_^0_%ADC 0_,23_!PSEUDO DISK, UNIT 1_=_^0_%ADC 0_,24_!PSEUDO DISK, UNIT 2_=_^0_%ADC 0_,25_!PSEUDO DISK, UNIT 3_=_^0_%ADC 0_,26_!1752 DRUM_G_^0_%ADC 0_,27_!COSY DRIVER, SECOND UNIT_8_^0_%ADC 0+S_*28_!1728-430 CARD READER_<_^0_%ADC 0+S_*29_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 1_*_^0_%ADC 0+S_*30_!1743-2 COMMUNICATIONS UNIT 0_3_^0_%ADC 0+S_*31_!1743-2 COMMUNICATIONS UNIT 1_3_^0_%ADC 0+S_*32_!1743-2 COMMUNICATIONS UNIT 2_3_^0_%ADC 0+S_*33_!1743-2 COMMUNICATIONS UNIT 3_3_^0_%ADC 0+S_*34_!1743-2 COMMUNICATIONS UNIT 4_3_^0_%ADC 0+S_*35_!1743-2 COMMUNICATIONS UNIT 5_3_^0_%ADC 0+S_*36_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 2_*_^0_%ADC 0+S_*37_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 3_*_^0_%ADC 0+S_*38_!DIAGNOSTIC 1742-30/120 LINE PRINTER_-_^0_%ADC 0+S_*39_!DIAGNOSTIC 1728-430 READER / PUNCH_._^0_%ADC 0+S_*40_!DIAGNOSTIC 1743-2 COMM. , UNIT 0_0_^0_%ADC 0+S_*41_!DIAGNOSTIC 1743-2 COMM. , UNIT 1_0_^0_%ADC 0+S_*42_!DIAGNOSTIC 1743-2 COMM. , UNIT 2_0_^0_%ADC 0+S_*43_!DIAGNOSTIC 1743-2 COMM. , UNIT 3_0_^0_%ADC 0+S_*44_!DIAGNOSTIC 1743-2 COMM. , UNIT 4_0_^0_%ADC 0+S_*45_!DIAGNOSTIC 1743-2 COMM. , UNIT 5_0_^0_%ADC 0+S_*46_!DIAGNOSTIC 1711 TELETYPE, 713-10 CRT_,_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!T A B L E S_!( L O G 2 )_0_^0*_]_0_^0*_]_0_^0_%ENT LOG2_$TOP OF I/O THREAD ADDRESSES BY LOGICAL UNIT_._^0_%SPC 1_]_#_^0LOG2_!ADC NUMLU_(NUMBER OF LOGICAL UNITS_>_^0_%NUM $FFFF_(1_"CORE ALLOCATOR_B_^0_%NUM $FFFF_(2_"DUMMY LOGICAL UNIT_>_^0_%NUM $FFFF_(3_"DUMMY LOGICAL UNIT_>_^0_%NUM $FFFF_(4_"1711 TELETYPE, 713-10 CRT_7_^0_%NUM $FFFF_(5_"COSY DRIVER, FIRST UNIT_9_^0_%NUM $FFFF_(6_"1732-3 616-73/93/95 MAG TAPE UNIT 0_-_^0_%NUM $FFFF_(7_"PSEUDO TAPE, UNIT 0_=_^0_%NUM $FFFF_(8_"1733-2 856-2/4 DISK, UNIT 0_5_^0_%NUM $FFFF_(9_"1742-30/120 LINE PRINTER_8_^0_%NUM $FFFF_(10_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 0_*_^0_%NUM $FFFF_(11_!1728-430 CARD PUNCH_=_^0_%NUM $FFFF_(12_!1742-30/120 FORTRAN LINE PRINTER_0_^0_%NUM $FFFF_(13_!1733-2 856-2/4 DISK, UNIT 1_5_^0_%NUM $FFFF_(14_!1733-2 856-2/4 DISK, UNIT 2_5_^0_%NUM $FFFF_(15_!1733-2 856-2/4 DISK, UNIT 3_5_^0_%NUM $FFFF_(16_!1732-3 616-73/93/95 MAG TAPE UNIT 1_-_^0_%NUM $FFFF_(17_!1732-3 616-73/93/95 MAG TAPE UNIT 2_-_^0_%NUM $FFFF_(18_!1732-3 616-73/93/95 MAG TAPE UNIT 3_-_^0_%NUM $FFFF_(19_!PSEUDO TAPE, UNIT 1_=_^0_%NUM $FFFF_(20_!PSEUDO TAPE, UNIT 2_=_^0_%NUM $FFFF_(21_!PSEUDO TAPE, UNIT 3_=_^0_%NUM $FFFF_(22_!PSEUDO DISK, UNIT 0_=_^0_%NUM $FFFF_(23_!PSEUDO DISK, UNIT 1_=_^0_%NUM $FFFF_(24_!PSEUDO DISK, UNIT 2_=_^0_%NUM $FFFF_(25_!PSEUDO DISK, UNIT 3_=_^0_%NUM $FFFF_(26_!1752 DRUM_G_^0_%NUM $FFFF_(27_!COSY DRIVER, SECOND UNIT_8_^0_%NUM $FFFF_(28_!1728-430 CARD READER_<_^0_%NUM $FFFF_(29_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 1_*_^0_%NUM $FFFF_(30_!1743-2 COMMUNICATIONS UNIT 0_3_^0_%NUM $FFFF_(31_!1743-2 COMMUNICATIONS UNIT 1_3_^0_%NUM $FFFF_(32_!1743-2 COMMUNICATIONS UNIT 2_3_^0_%NUM $FFFF_(33_!1743-2 COMMUNICATIONS UNIT 3_3_^0_%NUM $FFFF_(34_!1743-2 COMMUNICATIONS UNIT 4_3_^0_%NUM $FFFF_(35_!1743-2 COMMUNICATIONS UNIT 5_3_^0_%NUM $FFFF_(36_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 2_*_^0_%NUM $FFFF_(37_!DIAGNOSTIC 1732-3 616 MAG TAPE, UNIT 3_*_^0_%NUM $FFFF_(38_!DIAGNOSTIC 1742-30/120 LINE PRINTER_-_^0_%NUM $FFFF_(39_!DIAGNOSTIC 1728-430 READER / PUNCH_._^0_%NUM $FFFF_(40_!DIAGNOSTIC 1743-2 COMM. , UNIT 0_0_^0_%NUM $FFFF_(41_!DIAGNOSTIC 1743-2 COMM. , UNIT 1_0_^0_%NUM $FFFF_(42_!DIAGNOSTIC 1743-2 COMM. , UNIT 2_0_^0_%NUM $FFFF_(43_!DIAGNOSTIC 1743-2 COMM. , UNIT 3_0_^0_%NUM $FFFF_(44_!DIAGNOSTIC 1743-2 COMM. , UNIT 4_0_^0_%NUM $FFFF_(45_!DIAGNOSTIC 1743-2 COMM. , UNIT 5_0_^0_%NUM $FFFF_(46_!DIAGNOSTIC 1711 TELETYPE, 713-10 CRT_,_^0_%EJT_]_'_^0*_*D I A G N O S T I C_!T A B L E S_B_^0*_]_0_^0*_]_0_^0_%ENT ALTERR_"ALTERNATE DEVICE ERROR TABLE_=_^0_%SPC 1_]_#_^0ALTERR ADC NUMLU_(ERROR TABLE SIZE_E_^0_%BZS (NUMLU)_%SPACE FOR MAXIMUM SIMULTANEOUS FAILURES_._^0_%SPC 3_]_#_^0_%ENT DGNTAB_"DIAGNOSTIC TIMER TABLE_C_^0_%SPC 1_]_#_^0DGNTAB EQU DGNTAB(*)_#START OF TABLE_G_^0_%ADC PCORE_(1_"CORE ALLOCATOR_B_^0_%ADC P1711_(4_"1711 TELETYPE, 713-10 CRT_7_^0_%ADC P73230_'6_"1732-3 616-73/93/95 MAG TAPE UNIT 0_-_^0_%ADC P73320_'8_"1733-2 856-2/4 DISK, UNIT 0_5_^0_%ADC P42312_'9_"1742-30/120 LINE PRINTER_8_^0_%ADC P73321_'13_!1733-2 856-2/4 DISK, UNIT 1_5_^0_%ADC P73322_'14_!1733-2 856-2/4 DISK, UNIT 2_5_^0_%ADC P73323_'15_!1733-2 856-2/4 DISK, UNIT 3_5_^0_%ADC P73231_'16_!1732-3 616-73/93/95 MAG TAPE UNIT 1_-_^0_%ADC P73232_'17_!1732-3 616-73/93/95 MAG TAPE UNIT 2_-_^0_%ADC P73233_'18_!1732-3 616-73/93/95 MAG TAPE UNIT 3_-_^0_%ADC P1752_(26_!1752 DRUM_G_^0_%ADC P1728_(28_!1728-430 CARD READER_<_^0_%ADC P74300_'30_!1743-2 COMMUNICATIONS UNIT 0_3_^0_%ADC P74301_'31_!1743-2 COMMUNICATIONS UNIT 1_3_^0_%ADC P74302_'32_!1743-2 COMMUNICATIONS UNIT 2_3_^0_%ADC P74303_'33_!1743-2 COMMUNICATIONS UNIT 3_3_^0_%ADC P74304_'34_!1743-2 COMMUNICATIONS UNIT 4_3_^0_%ADC P74305_'35_!1743-2 COMMUNICATIONS UNIT 5_3_^0_%NUM $FFFF_(END OF TABLE_I_^0_%EJT_]_'_^0_%SPC 4_]_#_^0*_*S T A N D A R D_!L O G I C A L_!U N I T S_8_^0*_]_0_^0_%ENT DUMALT_] _^0*_]_0_^0DUMALT EQU DUMALT(2)_$STANDARD DUMMY ALTERNATE_=_^0INPCOM EQU INPCOM(4)_$STANDARD INPUT COMMENT_?_^0OUTCOM EQU OUTCOM(4)_$STANDARD OUTPUT COMMENT_>_^0LBUNIT EQU LBUNIT(8)_$STANDARD LIBRARY UNIT_@_^0SCRTCH EQU SCRTCH(8)_$STANDARD SCRATCH UNIT_@_^0LSTOUT EQU LSTOUT(9)_$STANDARD LIST OUTPUT_A_^0STDINP EQU STDINP(10)_#STANDARD INPUT_G_^0BINOUT EQU BINOUT(11)_#STANDARD BINARY OUTPUT_?_^0_%EJT_]_'_^0*_*L I N E_!O N E_!T A B L E_H_^0*_]_0_^0_%SPC 1_]_#_^0*_]_0_^0_%ENT LIN1V4_'LINE 1 INTERRUPT ENTRY_?_^0_%SPC 1_]_#_^0LIN1V4 LDQ* LN1TV4_'PLACE THE PDT ADDRESS IN Q_;_^0_%LDA- 2,Q_]_!_^0_%STA- I_]_#_^0_%JMP- (I)_*TRANSFER CONTROL TO THE DRIVER CONTINUATOR_+_^0_%SPC 3_]_#_^0_%ENT INVINT_]_^0_%SPC 1_]_#_^0INVINT JMP- (ADISP)_\_^0*_]_0_^0_%SPC 4_]_#_^0_%EQU LN1TV4(*)_#START OF TABLE_G_^0_%ADC P1711_,1711 TELETYPE, 713-10 CRT_8_^0_%NUM $FFFF_(END OF TABLE_I_^0_%EJT_]_'_^0*_*P H Y S I C A L_!D E V I C E_!T A B L E S_8_^0*_]_0_^0*_]_0_^0*_*THE FOLLOWING SECTION CONTAINS THE PHYSICAL DEVICE TABLES_*_^0*_*AND INTERRUPT RESPONSE ROUTINES FOR EACH LOGICAL UNIT IN_*_^0*_*THE SYSTEM._X_^0*_]_0_^0*_*LISTED BELOW ARE THE MANDATORY ENTRIES FOR ALL PHYSICAL_,_^0*_*DEVICE TABLES._$ADDITIONAL ENTRIES REQUIRED BY EACH_,_^0*_*DRIVER MAY BE ADDED AFTER THE LAST ENTRY INDICATED._0_^0_%SPC 3_]_#_^0PHYSTB EQU PHYSTB(*)_Z_^0_%EQU ELVL(0)_%00 SCHEDULER CALL WITH DRIVER LEVEL_1_^0_%EQU EDIN(1)_%01 DRIVER INITIATOR ENTRY_;_^0_%EQU EDCN(2)_%02 DRIVER CONTINUATOR ENTRY_9_^0_%EQU EDPGM(3)_$03 DRIVER DIAGNOSTIC ENTRY_:_^0_%EQU EDCLK(4)_$04 DIAGNOSTIC CLOCK_A_^0_%EQU ELU(5)_'05 LOGICAL UNIT_E_^0_%EQU EPTR(6)_%06 PARAMETER LOCATION_?_^0_%EQU EWES(7)_%07 CONVERTOR, EQUIPMENT, STATION_4_^0_%EQU EREQST(8)_#08 REQUEST STATUS_C_^0_%EQU ESTAT1(9)_#09 DRIVER STATUS_D_^0_%EQU ECCOR(10)_#10 CURRENT LOCATION_A_^0_%EQU ELSTWD(11)_"11 LAST LOCATION PLUS ONE_;_^0_%EQU ESTAT2(12)_"12 DEVICE STATUS_D_^0_%EQU MASLGN(13)_"13 DRIVER LENGTH (IF MASS MEMORY)_3_^0_%EQU MASSEC(14)_"14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%EQU RETURN(15)_"15 RESERVED FOR FNR AND CMR_9_^0_%SPC 3_]_#_^0*_$LINK UNSELECTED PHYSICAL DEVICE TABLES_B_^0_%SPC 1_]_#_^0_%ENT P18ECM_]_^0_%ENT P18PGA_]_^0_%ENT P18ADD_]_^0_%ENT P18MXP_]_^0P18ECM EQU P18ECM($7FFF)_V_^0P18PGA EQU P18PGA($7FFF)_V_^0P18ADD EQU P18ADD($7FFF)_V_^0P18MXP EQU P18MXP($7FFF)_V_^0_%EJT_]_'_^0*_*C O R E_!A L L O C A T O R_H_^0*_]_0_^0_%SPC 1_]_#_^0_%ENT PCORE_] _^0_%EXT ICORE,ECORE_X_^0_%EQU SWAPT(0)_$SWAP TIME_L_^0_%SPC 1_]_#_^0PCORE ADC $5207_(00 SCHEDULER CALL_C_^0_%ADC ICORE_(01 INITIATOR ADDRESS_@_^0_%ADC 0_,02 CONTINUATOR ADDRESS_!- NOT USED_1_^0_%ADC ECORE_(03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $00D6_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%VFD X16/SWAPT-1_!13 TIME BETWEEN SWAPS (NONE IF NEGATIVE)_,_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%EJT_]_'_^0*_*D U M M Y_!L O G I C A L_!U N I T_@_^0*_]_0_^0_%SPC 1_]_#_^0_%EXT IDUMMY,CDUMMY,EDUMMY_O_^0_%SPC 1_]_#_^0PDUMMY ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC IDUMMY_'01 INITIATOR ADDRESS_@_^0_%ADC CDUMMY_'02 CONTINUATOR ADDRESS_>_^0_%ADC EDUMMY_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_$- NOT USED_1_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $01F6_(08 REQUEST STATUS_C_^0_%NUM $8000_(09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%EJT_]_'_^0*_*1 7 1 1_!T E L E T Y P E ,_!7 1 3 - 1 0_!C R T_2_^0*_]_0_^0_%SPC 1_]_#_^0_%EXT I1711,C1711,E1711_R_^0_%EQU T713(04*$10) TYPE CODE - 713-10 CRT_?_^0_%EQU T1711(00*$10) TYPE CODE - 1711 TELETYPE_<_^0_%EQU U1711(X1711-LOG1A)_Q_^0_%SPC 1_]_#_^0P1711 ADC $520D_(00 SCHEDULER CALL_C_^0_%ADC I1711_(01 INITIATOR ADDRESS_@_^0_%ADC C1711_(02 CONTINUATOR ADDRESS_>_^0_%ADC E1711_(03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0091_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $3006+T1711_!08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 ERROR CODE AND STARTING LOCATION_1_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 DRIVER FLAGS_E_^0_%NUM 1_,17 HARDWARE PARITY CHECK FLAG_7_^0_%ADC U1711_(18 DIAGNOSTIC LU_D_^0_%EJT_]_'_^0*_*C O S Y_!D R I V E R_N_^0*_]_0_^0_%SPC 1_]_#_^0_%EQU MCOSY1(1)_Z_^0*_]_0_^0_%IFA MCOSY1,EQ,0_!CORE RESIDENT DRIVER_A_^0_%EXT ICOSY_] _^0_%EQU LCOSY(0)_[_^0_%EQU SCOSY($7FFF)_W_^0_%EIF_]_'_^0*_]_0_^0_%IFA MCOSY1,EQ,1_!MASS RESIDENT DRIVER_A_^0_%EXT MASDRV_]_^0ICOSY JMP+ MASDRV_'INITIATE DRIVER_F_^0_%EXT LCOSY_] _^0_%EXT SCOSY_] _^0_%EIF_]_'_^0*_]_0_^0_%EJT_]_'_^0*_*C O S Y_!D R I V E R ,_!F I R S T_!U N I T_6_^0*_]_0_^0_%SPC 1_]_#_^0PCOSY1 ADC $5208_(00 SCHEDULER CALL_C_^0_%ADC ICOSY_(01 INITIATOR ADDRESS_@_^0_%ADC 0_,02 CONTINUATOR ADDRESS_!- NOT USED_1_^0_%ADC 0_,03 TIMEOUT ERROR ADDRESS - NOT USED_1_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $08B6_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC LCOSY_(13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC SCOSY_(14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC PCOSY2_'16 PHYSTB THREAD_D_^0_%NUM 0_,17 SEQUENCE NUMBER_B_^0_%NUM 0_,18 ID_O_^0_%NUM 0_,19 ID-1_M_^0_%NUM 0_,20 ID-2_M_^0_%NUM 0_,21 NUMBER OF WORDS REQUESTED_8_^0_%NUM $5555_(22 HOL-CHARACTER POINTER_<_^0_%NUM $5555_(23 COSY-CHARACTER POINTER_;_^0_%NUM 0_,24 R/W FLAG_I_^0_%NUM 1_,25 PON5F_L_^0_%NUM 0_,26 FSTCHR_K_^0_%NUM 0_,27 ENDDCK_K_^0_%ADC INPBFA_'28 COSY BUFFER LOCATION_=_^0_%ADC INPBFA_'29 NEXT COSY WORD_C_^0_%NUM 0_,30 HOL-BUFFER POINTER_?_^0_%NUM 1_,31 INITIAL CALL FLAG_@_^0_%NUM 0_,32 SEQUENCE FLAG NONZERO=NO SEQUENCE NUMBER_(_^0*_]_0_^0_%BZS INPBFA(192)_!33 COSY BUFFER_F_^0*_7224 COSY BUFFER_F_^0_%EJT_]_'_^0*_*C O S Y_!D R I V E R ,_!S E C O N D_!U N I T_4_^0*_]_0_^0_%SPC 1_]_#_^0PCOSY2 ADC $5208_(00 SCHEDULER CALL_C_^0_%ADC ICOSY_(01 INITIATOR ADDRESS_@_^0_%ADC 0_,02 CONTINUATOR ADDRESS_!- NOT USED_1_^0_%ADC 0_,03 TIMEOUT ERROR ADDRESS - NOT USED_1_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $08B6_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC LCOSY_(13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC SCOSY_(14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC PCOSY1_'16 PHYSTB THREAD_D_^0_%NUM 0_,17 SEQUENCE NUMBER_B_^0_%NUM 0_,18 ID_O_^0_%NUM 0_,19 ID-1_M_^0_%NUM 0_,20 ID-2_M_^0_%NUM 0_,21  NUMBER OF WORDS REQUESTED_8_^0_%NUM $5555_(22 HOL-CHARACTER POINTER_<_^0_%NUM $5555_(23 COSY-CHARACTER POINTER_;_^0_%NUM 0_,24 R/W FLAG_I_^0_%NUM 1_,25 PON5F_L_^0_%NUM 0_,26 FSTCHR_K_^0_%NUM 0_,27 ENDDCK_K_^0_%ADC INPBFB_'28 COSY BUFFER LOCATION_=_^0_%ADC INPBFB_'29 NEXT COSY WORD_C_^0_%NUM 0_,30 HOL-BUFFER POINTER_?_^0_%NUM 1_,31 INITIAL CALL FLAG_@_^0_%NUM 0_,32 SEQUENCE FLAG NONZERO=NO SEQUENCE NUMBER_(_^0*_]_0_^0_%BZS INPBFB(192)_!33 COSY BUFFER_F_^0*_7224 COSY BUFFER_F_^0_%EJT_]_'_^0*_*6 1 6 - 7 2 / 9 2 / 9 5_!M A G_!T A P E_:_^0*_]_0_^0_%SPC 1_]_#_^0_%EQU T6167(53*$10) TYPE CODE - 616-72_"MAG TAPE_7_^0_%EQU T6169(54*$10) TYPE CODE - 616-92-95 MAG TAPE_7_^0_%EQU PHSREC(192)_!MAX. PHYSICAL RECORD SIZE FOR 7 TRACK_._^0_%SPC 2_]_#_^0BF1F33 BZS BF1F33(PHSREC*4/3+2)_#PACK/UNPACK BUFFER (7 TRACK)_._^0_%SPC 1_]_#_^0_%EQU M17323(1)_Z_^0*_]_0_^0_%IFA M17323,EQ,0_!CORE RESIDENT DRIVER_A_^0_%EXT I17323_]_^0_%EXT C17323_]_^0_%EXT E17323_]_^0_%EQU L17323(0)_Z_^0_%EQU S17323($7FFF)_V_^0_%EIF_]_'_^0*_]_0_^0_%IFA M17323,EQ,1_!MASS RESIDENT DRIVER_A_^0_%EXT MASDRV_]_^0_%EXT MASCON_]_^0_%EXT MASERR_]_^0I17323 JMP+ MASDRV_'INITIATE DRIVER_F_^0C17323 JMP+ MASCON_'INTERRUPT RESPONSE_C_^0E17323 JMP+ MASERR_'TIMEOUT ERROR_H_^0_%EXT L17323_]_^0_%EXT S17323_]_^0_%EIF_]_'_^0*_]_0_^0_%SPC 2_]_#_^0R17323 LDQ =XP73230_$INTERRUPT RESPONSE FOR 616-72-92-95 MAG TAPE_)_^0_%JMP* (P73230+2)_Y_^0_%EJT_]_'_^0*_*6 1 6 - 7 2 / 9 2 / 9 5_!M A G_!T A P E ,_!U N I T_!0_*_^0*_]_0_^0_%EQU U73230(X73230-LOG1A)_O_^0_%SPC 1_]_#_^0P73230 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17323_'01 INITIATOR ADDRESS_@_^0_%ADC C17323_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17323_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0381_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $0806+T6169_!08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC L17323_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC S17323_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM $0448_(16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL_'_^0_%ADC U73230_'17 DIAGNOSTIC LU_D_^0_%ADC 0_,18 ERROR CODE_G_^0_%NUM 0_,19 RECOVERY RETURN ADDRESS_:_^0_%NUM 0_,20 RECORD CHECKSUM_B_^0_%NUM $D554_(21 FUNCTION DIRECTORY BITWORD_7_^0_%NUM 0_,22 TEMPORARY CHECKSUM_?_^0_%ADC P73231_'23 PHYSTB THREAD_D_^0_%ADC PHSREC_'24 MAX PHY RECORD SIZE_$(7 TRACK)_/_^0_%ADC BF1F33_'25 PACK/UNPACK BUFFER_%(7 TRACK)_/_^0_%EJT_]_'_^0*_*6 1 6 - 7 2 / 9 2 / 9 5_!M A G_!T A P E ,_!U N I T_!1_*_^0*_]_0_^0_%EQU U73231(X73231-LOG1A)_O_^0_%SPC 1_]_#_^0P73231 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17323_'01 INITIATOR ADDRESS_@_^0_%ADC C17323_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17323_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0381_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $0806+T6169_!08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC L17323_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC S17323_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM $04C8_(16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL_'_^0_%ADC U73231_'17 DIAGNOSTIC LU_D_^0_%ADC 0_,18 ERROR CODE_G_^0_%NUM 0_,19 RECOVERY RETURN ADDRESS_:_^0_%NUM 0_,20 RECORD CHECKSUM_B_^0_%NUM $D554_(21 FUNCTION DIRECTORY BITWORD_7_^0_%NUM 0_,22 TEMPORARY CHECKSUM_?_^0_%ADC P73232_'23 PHYSTB THREAD_D_^0_%ADC PHSREC_'24 MAX PHY RECORD SIZE_$(7 TRACK)_/_^0_%ADC BF1F33_'25 PACK/UNPACK BUFFER_%(7 TRACK)_/_^0_%EJT_]_'_^0*_*6 1 6 - 7 2 / 9 2 / 9 5_!M A G_!T A P E ,_!U N I T_!2_*_^0*_]_0_^0_%EQU U73232(X73232-LOG1A)_O_^0_%SPC 1_]_#_^0P73232 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17323_'01 INITIATOR ADDRESS_@_^0_%ADC C17323_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17323_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0381_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $0806+T6169_!08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC L17323_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC S17323_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM $0548_(16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL_'_^0_%ADC U73232_'17 DIAGNOSTIC LU_D_^0_%ADC 0_,18 ERROR CODE_G_^0_%NUM 0_,19 RECOVERY RETURN ADDRESS_:_^0_%NUM 0_,20 RECORD CHECKSUM_B_^0_%NUM $D554_(21 FUNCTION DIRECTORY BITWORD_7_^0_%NUM 0_,22 TEMPORARY CHECKSUM_?_^0_%ADC P73233_'23 PHYSTB THREAD_D_^0_%ADC PHSREC_'24 MAX PHY RECORD SIZE_$(7 TRACK)_/_^0_%ADC BF1F33_'25 PACK/UNPACK BUFFER_%(7 TRACK)_/_^0_%EJT_]_'_^0*_*6 1 6 - 7 2 / 9 2 / 9 5_!M A G_!T A P E ,_!U N I T_!3_*_^0*_]_0_^0_%EQU U73233(X73233-LOG1A)_O_^0_%SPC 1_]_#_^0P73233 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17323_'01 INITIATOR ADDRESS_@_^0_%ADC C17323_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17323_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0381_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $0806+T6169_!08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC L17323_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC S17323_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM $05C8_(16 REC. OPT., UNIT, FUNCTION, DENSITY CONTROL_'_^0_%ADC U73233_'17 DIAGNOSTIC LU_D_^0_%ADC 0_,18 ERROR CODE_G_^0_%NUM 0_,19 RECOVERY RETURN ADDRESS_:_^0_%NUM 0_,20 RECORD CHECKSUM_B_^0_%NUM $D554_(21 FUNCTION DIRECTORY BITWORD_7_^0_%NUM 0_,22 TEMPORARY CHECKSUM_?_^0_%ADC P73230_'23 PHYSTB THREAD_D_^0_%ADC PHSREC_'24 MAX PHY RECORD SIZE_$(7 TRACK)_/_^0_%ADC BF1F33_'25 PACK/UNPACK BUFFER_%(7 TRACK)_/_^0_%EJT_]_'_^0*_*P S E U D O_!T A P E_N_^0*_]_0_^0_%SPC 1_]_#_^0_%EQU PSTPD0(1)_Z_^0*_]_0_^0_%IFA PSTPD0,EQ,0_!CORE RESIDENT DRIVER_A_^0_%EXT IPSUDO_]_^0_%EQU LPSUDO(0)_Z_^0_%EQU SPSUDO($7FFF)_V_^0_%EIF_]_'_^0*_]_0_^0_%IFA PSTPD0,EQ,1_!MASS RESIDENT DRIVER_A_^0_%EXT MASDRV_]_^0IPSUDO JMP+ MASDRV_'INITIATE DRIVER_F_^0_%EXT LPSUDO_]_^0_%EXT SPSUDO_]_^0_%EIF_]_'_^0*_]_0_^0_%EJT_]_'_^0*_*P S E U D O_!T A P E ,_!U N I T_!0_>_^0*_]_0_^0_%SPC 1_]_#_^0PSUDO0 ADC $5208_(00 SCHEDULER CALL_C_^0_%ADC IPSUDO_'01 INITIATOR ADDRESS_@_^0_%ADC 0_,02 CONTINUATOR ADDRESS_!- NOT USED_1_^0_%ADC 0_,03 TIMEOUT ERROR ADDRESS - NOT USED_1_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_$- NOT USED_1_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0PWES0 NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $0A46_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 1_,12 DEVICE STATUS_D_^0_%ADC LPSUDO_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC SPSUDO_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 FILE NUMBER_F_^0_%NUM 0_,17 TEMP FOR MOTION REQ PROCESSOR_4_^0_%NUM 0_,18 TEMP FOR MOTION REQ PROCESSOR_4_^0_%BZS (12)_)19 REQUEST BUFFER - REQBUF_:_^0_%NUM 0_,31 BLOCK POINTER - BLKPTR_;_^0_%BZS (30)_)32 POINTER BLOCK - PTRBLK_;_^0PSDRQ0 NUM 0_,62 *_P_^0_%NUM $5400_(63 *_P_^0_%NUM 0_,64 * AREA TO BE STUFFED WITH_8_^0_%ADC PWES0_(65 * FILE MANAGER AND DISK REQUESTS_1_^0_%BZS (6)_*66 *_P_^0_%NUM $1400_(72 *_P_^0_%RTJ* (PSDRQ0)_$73 *_P_^0_%ADC 0_,74 INPUT BUFFER ADDRESS_=_^0_%ADC PSUDO1_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*P S E U D O_!T A P E ,_!U N I T_!1_>_^0*_]_0_^0_%SPC 1_]_#_^0PSUDO1 ADC $5208_(00 SCHEDULER CALL_C_^0_%ADC IPSUDO_'01 INITIATOR ADDRESS_@_^0_%ADC 0_,02 CONTINUATOR ADDRESS_!- NOT USED_1_^0_%ADC 0_,03 TIMEOUT ERROR ADDRESS - NOT USED_1_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_$- NOT USED_1_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0PWES1 NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $0A46_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 1_,12 DEVICE STATUS_D_^0_%ADC LPSUDO_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC SPSUDO_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 FILE NUMBER_F_^0_%NUM 0_,17 TEMP FOR MOTION REQ PROCESSOR_4_^0_%NUM 0_,18 TEMP FOR MOTION REQ PROCESSOR_4_^0_%BZS (12)_)19 REQUEST BUFFER - REQBUF_:_^0_%NUM 0_,31 BLOCK POINTER - BLKPTR_;_^0_%BZS (30)_)32 POINTER BLOCK - PTRBLK_;_^0PSDRQ1 NUM 0_,62 *_P_^0_%NUM $5400_(63 *_P_^0_%NUM 0_,64 * AREA TO BE STUFFED WITH_8_^0_%ADC PWES1_(65 * FILE MANAGER AND DISK REQUESTS_1_^0_%BZS (6)_*66 *_P_^0_%NUM $1400_(72 *_P_^0_%RTJ* (PSDRQ1)_$73 *_P_^0_%ADC 0_,74 INPUT BUFFER ADDRESS_=_^0_%ADC PSUDO2_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*P S E U D O_!T A P E ,_!U N I T_!2_>_^0*_]_0_^0_%SPC 1_]_#_^0PSUDO2 ADC $5208_(00 SCHEDULER CALL_C_^0_%ADC IPSUDO_'01 INITIATOR ADDRESS_@_^0_%ADC 0_,02 CONTINUATOR ADDRESS_!- NOT USED_1_^0_%ADC 0_,03 TIMEOUT ERROR ADDRESS - NOT USED_1_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_$- NOT USED_1_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0PWES2 NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $0A46_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM $C401_(12 DEVICE STATUS_D_^0_%ADC LPSUDO_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC SPSUDO_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM $7FF7_(16 FILE NUMBER_F_^0_%NUM 0_,17 TEMP FOR MOTION REQ PROCESSOR_4_^0_%NUM 0_,18 TEMP FOR MOTION REQ PROCESSOR_4_^0_%BZS (12)_)19 REQUEST BUFFER - REQBUF_:_^0_%NUM 0_,31 BLOCK POINTER - BLKPTR_;_^0_%BZS (30)_)32 POINTER BLOCK - PTRBLK_;_^0PSDRQ2 NUM 0_,62 *_P_^0_%NUM $5400_(63 *_P_^0_%NUM 0_,64 * AREA TO BE STUFFED WITH_8_^0_%ADC PWES2_(65 * FILE MANAGER AND DISK REQUESTS_1_^0_%BZS (6)_*66 *_P_^0_%NUM $1400_(72 *_P_^0_%RTJ* (PSDRQ2)_$73 *_P_^0_%ADC 0_,74 INPUT BUFFER ADDRESS_=_^0_%ADC PSUDO3_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*P S E U D O_!T A P E ,_!U N I T_!3_>_^0*_]_0_^0_%SPC 1_]_#_^0PSUDO3 ADC $5208_(00 SCHEDULER CALL_C_^0_%ADC IPSUDO_'01 INITIATOR ADDRESS_@_^0_%ADC 0_,02 CONTINUATOR ADDRESS_!- NOT USED_1_^0_%ADC 0_,03 TIMEOUT ERROR ADDRESS - NOT USED_1_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_$- NOT USED_1_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0PWES3 NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $0A46_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM $C401_(12 DEVICE STATUS_D_^0_%ADC LPSUDO_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC SPSUDO_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM $7FF8_(16 FILE NUMBER_F_^0_%NUM 0_,17 TEMP FOR MOTION REQ PROCESSOR_4_^0_%NUM 0_,18 TEMP FOR MOTION REQ PROCESSOR_4_^0_%BZS (12)_)19 REQUEST BUFFER - REQBUF_:_^0_%NUM 0_,31 BLOCK POINTER - BLKPTR_;_^0_%BZS (30)_)32 POINTER BLOCK - PTRBLK_;_^0PSDRQ3 NUM 0_,62 *_P_^0_%NUM $5400_(63 *_P_^0_%NUM 0_,64 * AREA TO BE STUFFED WITH_8_^0_%ADC PWES3_(65 * FILE MANAGER AND DISK REQUESTS_1_^0_%BZS (6)_*66 *_P_^0_%NUM $1400_(72 *_P_^0_%RTJ* (PSDRQ3)_$73 *_P_^0_%ADC 0_,74 INPUT BUFFER ADDRESS_=_^0_%ADC PSUDO0_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*P S E U D O_!D I S K_!U N I T_!0_@_^0*_]_0_^0_%SPC 1_]_#_^0_%EXT IPSDSK,CPSDSK,EPSDSK_O_^0_%EQU SBIAS0(1)_[_^0_%SPC 1_]_#_^0PSDSK0 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC IPSDSK_'01 INITIATOR ADDRESS_@_^0_%ADC CPSDSK_'02 CONTINUATOR ADDRESS_>_^0_%ADC EPSDSK_'03 TIMEOUT ERROR ADDRESS_=_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $1486_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM 0_,14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 NEW REQUEST_F_^0_%ADC CPSDSK_'17 COMPLETION_G_^0_%NUM 0_,18 THREAD_K_^0_%NUM 8_,19 MASS MEMORY LOGICAL UNIT_9_^0_%NUM 0_,20 NUMBER OF WORDS_B_^0_%NUM 0_,21 BUFFER_K_^0_%NUM 0_,22 NEW REQUEST MSB_B_^0_%NUM 0_,23 NEW REQUEST LSB_B_^0_%NUM 0_,24 CONTROL POINT FOR TIME SHARE SYSTEM_._^0_%ADC SBIAS0_'25 SECTOR BIAS_F_^0_%ADC SBIAS0*$60_"26 WORD BIAS_H_^0_%NUM 9_,27 COMPLETION LEVEL_A_^0_%EJT_]_'_^0*_*P S E U D O_!D I S K_!U N I T_!1_@_^0*_]_0_^0_%EQU SBIAS1(1)_[_^0_%SPC 1_]_#_^0PSDSK1 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC IPSDSK_'01 INITIATOR ADDRESS_@_^0_%ADC CPSDSK_'02 CONTINUATOR ADDRESS_>_^0_%ADC EPSDSK_'03 TIMEOUT ERROR ADDRESS_=_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $1486_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM 0_,14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 NEW REQUEST_F_^0_%ADC CPSDSK_'17 COMPLETION_G_^0_%NUM 0_,18 THREAD_K_^0_%NUM 13_+19 MASS MEMORY LOGICAL UNIT_9_^0_%NUM 0_,20 NUMBER OF WORDS_B_^0_%NUM 0_,21 BUFFER_K_^0_%NUM 0_,22 NEW REQUEST MSB_B_^0_%NUM 0_,23 NEW REQUEST LSB_B_^0_%NUM 0_,24 CONTROL POINT FOR TIME SHARE SYSTEM_._^0_%ADC SBIAS1_'25 SECTOR BIAS_F_^0_%ADC SBIAS1*$60_"26 WORD BIAS_H_^0_%NUM 9_,27 COMPLETION LEVEL_A_^0_%EJT_]_'_^0*_*P S E U D O_!D I S K_!U N I T_!2_@_^0*_]_0_^0_%EQU SBIAS2(1)_[_^0_%SPC 1_]_#_^0PSDSK2 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC IPSDSK_'01 INITIATOR ADDRESS_@_^0_%ADC CPSDSK_'02 CONTINUATOR ADDRESS_>_^0_%ADC EPSDSK_'03 TIMEOUT ERROR ADDRESS_=_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $1486_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM 0_,14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 NEW REQUEST_F_^0_%ADC CPSDSK_'17 COMPLETION_G_^0_%NUM 0_,18 THREAD_K_^0_%NUM 14_+19 MASS MEMORY LOGICAL UNIT_9_^0_%NUM 0_,20 NUMBER OF WORDS_B_^0_%NUM 0_,21 BUFFER_K_^0_%NUM 0_,22 NEW REQUEST MSB_B_^0_%NUM 0_,23 NEW REQUEST LSB_B_^0_%NUM 0_,24 CONTROL POINT FOR TIME SHARE SYSTEM_._^0_%ADC SBIAS2_'25 SECTOR BIAS_F_^0_%ADC SBIAS2*$60_"26 WORD BIAS_H_^0_%NUM 9_,27 COMPLETION LEVEL_A_^0_%EJT_]_'_^0*_*P S E U D O_!D I S K_!U N I T_!3_@_^0*_]_0_^0_%EQU SBIAS3(1)_[_^0_%SPC 1_]_#_^0PSDSK3 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC IPSDSK_'01 INITIATOR ADDRESS_@_^0_%ADC CPSDSK_'02 CONTINUATOR ADDRESS_>_^0_%ADC EPSDSK_'03 TIMEOUT ERROR ADDRESS_=_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05  LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM 0_,07 CONVERTER, EQUIPMENT, STATION - NONE_-_^0_%NUM $1486_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM 0_,14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 NEW REQUEST_F_^0_%ADC CPSDSK_'17 COMPLETION_G_^0_%NUM 0_,18 THREAD_K_^0_%NUM 15_+19 MASS MEMORY LOGICAL UNIT_9_^0_%NUM 0_,20 NUMBER OF WORDS_B_^0_%NUM 0_,21 BUFFER_K_^0_%NUM 0_,22 NEW REQUEST MSB_B_^0_%NUM 0_,23 NEW REQUEST LSB_B_^0_%NUM 0_,24 CONTROL POINT FOR TIME SHARE SYSTEM_._^0_%ADC SBIAS3_'25 SECTOR BIAS_F_^0_%ADC SBIAS3*$60_"26 WORD BIAS_H_^0_%NUM 9_,27 COMPLETION LEVEL_A_^0_%EJT_]_'_^0*_$1 7 3 3 - 2 / 8 5 6_!D I S K_K_^0*_]_0_^0_%SPC 1_]_#_^0_%ENT P332D0_]_^0_%EXT I17332,C17332,E17332_O_^0_%EQU T8562(15*$10) TYPE CODE - 1733-2 856-2_=_^0_%EQU T8564(16*$10) TYPE CODE - 1733-2 856-4_=_^0_%SPC 2_]_#_^0R17332 LDQ =XP73320_$INTERRUPT RESPONSE FOR 1733-2 DISK_3_^0_%JMP* (P73320+2)_Y_^0_%EJT_]_'_^0*_$1 7 3 3 - 2 / 8 5 6_!D I S K - U N I T_!0_=_^0*_]_0_^0_%SPC 1_]_#_^0_%EQU P332D0(*)_Z_^0P73320 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC I17332_'01 INITIATOR ADDRESS_@_^0_%ADC C17332_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17332_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0181_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $1006+T8564_!08 REQUEST STATUS_C_^0_%NUM $0200_(09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 ERROR COUNTER_D_^0_%NUM 0_,14 DATA TRANSFER FUNCTION_;_^0_%NUM 0_,15 SECTOR NUMBER OR FNR RETURN_6_^0_%NUM $8100_(16 NO COMPARE FLAG / DIRECTOR FUNCTION_._^0_%NUM 0_,17 TEMSEC - USED BY WORD ADDRESSING_1_^0_%NUM 0_,18 OVERLAY AREA (SCHEDULER CALL)_4_^0_%NUM 0_,19 OVERLAY AREA (COMPLETION ADDRESS)_0_^0_%NUM 0_,20 OVERLAY AREA (THREAD)_<_^0_%NUM 0_,21 OVERLAY AREA (LOGICAL UNIT)_6_^0_%ADC P73321_'22 PHYSTB THREAD_D_^0_%NUM 0_,23 RETURN ADDRESS FOR DATA TRANSFER_1_^0_%NUM $5BFB_(24 FIRST SECTOR ADDRESS ON DISK 1_3_^0_%NUM  0_,25 LAST DATA TRANSFER FUNCTION_6_^0_%NUM 0_,26 BUFFER SIZE FOR SPLIT TRANSFERS_2_^0_%NUM 0_,27 CYLINDER ADDRESS FOR TRANSFER_4_^0_%NUM 1_,28 MASK FOR THIS UNITS SEEK COMPLETE BIT_,_^0_%ADC BF332A_'29 ADDRESS OF 96 WORD BUFFER_8_^0_%NUM 0_,30 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,31 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,32 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,33 REQUEST CODE_E_^0_%NUM 0_,34 REQUEST PRIORITY_A_^0_%NUM 0_,35 STARTING SECTOR FOR COMPARE OR RETRY_-_^0_%NUM 0_,36 FWA OF TRANSFER FOR COMPARE OR RETRY_-_^0_%NUM 0_,37 ERROR COUNTER_D_^0_%NUM 0_,38 DATA TRANSFER FUNCTION CODE_6_^0_%NUM $FFFF_(39 SECTOR NUMBER CURRENTLY IN BUFFER_0_^0_%NUM 0_,40 LAST VALUE OF CYLINDER ADDRESS STATUS_,_^0_%NUM 0_,41 LAST VALUE OF C W A STATUS_5_^0_%NUM 0_,42 LAST VALUE OF CHECKWORD STATUS_3_^0_%NUM 0_,43 LAST VALUE OF DRIVE CYLINDER STATUS_._^0*_]_0_^0_%BZS BF332A(96)_"44 BUFFER FOR WORD ADDRESSING_7_^0*_7139 BUFFER FOR WORD ADDRESSING_7_^0_%EJT_]_'_^0*_$1 7 3 3 - 2 / 8 5 6_!D I S K - U N I T_!1_=_^0*_]_0_^0_%SPC 1_]_#_^0P73321 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC I17332_'01 INITIATOR ADDRESS_@_^0_%ADC C17332_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17332_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0181_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $1006+T8564_!08 REQUEST STATUS_C_^0_%NUM $0200_(09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 ERROR COUNTER_D_^0_%NUM 0_,14 DATA TRANSFER FUNCTION_;_^0_%NUM 0_,15 SECTOR NUMBER OR FNR RETURN_6_^0_%NUM $8300_(16 NO COMPARE FLAG / DIRECTOR FUNCTION_._^0_%NUM 0_,17 TEMSEC - USED BY WORD ADDRESSING_1_^0_%NUM 0_,18 OVERLAY AREA (SCHEDULER CALL)_4_^0_%NUM 0_,19 OVERLAY AREA (COMPLETION ADDRESS)_0_^0_%NUM 0_,20 OVERLAY AREA (THREAD)_<_^0_%NUM 0_,21 OVERLAY AREA (LOGICAL UNIT)_6_^0_%ADC P73322_'22 PHYSTB THREAD_D_^0_%NUM 0_,23 RETURN ADDRESS FOR DATA TRANSFER_1_^0_%NUM $5BFB_(24 FIRST SECTOR ADDRESS ON DISK 1_3_^0_%NUM 0_,25 LAST DATA TRANSFER FUNCTION_6_^0_%NUM 0_,26 BUFFER SIZE FOR SPLIT TRANSFERS_2_^0_%NUM 0_,27 CYLINDER ADDRESS FOR TRANSFER_4_^0_%NUM 2_,28 MASK FOR THIS UNITS SEEK COMPLETE BIT_,_^0_%ADC BF332B_'29 ADDRESS OF 96 WORD BUFFER_8_^0_%NUM 0_,30 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,31 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,32 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,33 REQUEST CODE_E_^0_%NUM 0_,34 REQUEST PRIORITY_A_^0_%NUM 0_,35 STARTING SECTOR FOR COMPARE OR RETRY_-_^0_%NUM 0_,36 FWA OF TRANSFER FOR COMPARE OR RETRY_-_^0_%NUM 0_,37 ERROR COUNTER_D_^0_%NUM 0_,38 DATA TRANSFER FUNCTION CODE_6_^0_%NUM $FFFF_(39 SECTOR NUMBER CURRENTLY IN BUFFER_0_^0_%NUM 0_,40 LAST VALUE OF CYLINDER ADDRESS STATUS_,_^0_%NUM 0_,41 LAST VALUE OF C W A STATUS_5_^0_%NUM 0_,42 LAST VALUE OF CHECKWORD STATUS_3_^0_%NUM 0_,43 LAST VALUE OF DRIVE CYLINDER STATUS_._^0*_]_0_^0_%BZS BF332B(96)_"44 BUFFER FOR WORD ADDRESSING_7_^0*_7139 BUFFER FOR WORD ADDRESSING_7_^0_%EJT_]_'_^0*_$1 7 3 3 - 2 / 8 5 6_!D I S K - U N I T_!2_=_^0*_]_0_^0_%SPC 1_]_#_^0P73322 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC I17332_'01 INITIATOR ADDRESS_@_^0_%ADC C17332_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17332_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0181_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $1006+T8564_!08 REQUEST STATUS_C_^0_%NUM $0200_(09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 ERROR COUNTER_D_^0_%NUM 0_,14 DATA TRANSFER FUNCTION_;_^0_%NUM 0_,15 SECTOR NUMBER OR FNR RETURN_6_^0_%NUM $8500_(16 NO COMPARE FLAG / DIRECTOR FUNCTION_._^0_%NUM 0_,17 TEMSEC - USED BY WORD ADDRESSING_1_^0_%NUM 0_,18 OVERLAY AREA (SCHEDULER CALL)_4_^0_%NUM 0_,19 OVERLAY AREA (COMPLETION ADDRESS)_0_^0_%NUM 0_,20 OVERLAY AREA (THREAD)_<_^0_%NUM 0_,21 OVERLAY AREA (LOGICAL UNIT)_6_^0_%ADC P73323_'22 PHYSTB THREAD_D_^0_%NUM 0_,23 RETURN ADDRESS FOR DATA TRANSFER_1_^0_%NUM $5BFB_(24 FIRST SECTOR ADDRESS ON DISK 1_3_^0_%NUM 0_,25 LAST DATA TRANSFER FUNCTION_6_^0_%NUM 0_,26 BUFFER SIZE FOR SPLIT TRANSFERS_2_^0_%NUM 0_,27 CYLINDER ADDRESS FOR TRANSFER_4_^0_%NUM 4_,28 MASK FOR THIS UNITS SEEK COMPLETE BIT_,_^0_%ADC BF332C_'29 ADDRESS OF 96 WORD BUFFER_8_^0_%NUM 0_,30 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,31 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,32 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,33 REQUEST CODE_E_^0_%NUM 0_,34 REQUEST PRIORITY_A_^0_%NUM 0_,35 STARTING SECTOR FOR COMPARE OR RETRY_-_^0_%NUM 0_,36 FWA OF TRANSFER FOR COMPARE OR RETRY_-_^0_%NUM 0_,37 ERROR COUNTER_D_^0_%NUM 0_,38 DATA TRANSFER FUNCTION CODE_6_^0_%NUM $FFFF_(39 SECTOR NUMBER CURRENTLY IN BUFFER_0_^0_%NUM 0_,40 LAST VALUE OF CYLINDER ADDRESS STATUS_,_^0_%NUM 0_,41 LAST VALUE OF C W A STATUS_5_^0_%NUM 0_,42 LAST VALUE OF CHECKWORD STATUS_3_^0_%NUM 0_,43 LAST VALUE OF DRIVE CYLINDER STATUS_._^0*_]_0_^0_%BZS BF332C(96)_"44 BUFFER FOR WORD ADDRESSING_7_^0*_7139 BUFFER FOR WORD ADDRESSING_7_^0_%EJT_]_'_^0*_$1 7 3 3 - 2 / 8 5 6_!D I S K - U N I T_!3_=_^0*_]_0_^0_%SPC 1_]_#_^0P73323 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC I17332_'01 INITIATOR ADDRESS_@_^0_%ADC C17332_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17332_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0181_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $1006+T8564_!08 REQUEST STATUS_C_^0_%NUM $0200_(09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 ERROR COUNTER_D_^0_%NUM 0_,14 DATA TRANSFER FUNCTION_;_^0_%NUM 0_,15 SECTOR NUMBER OR FNR RETURN_6_^0_%NUM $8700_(16 NO COMPARE FLAG / DIRECTOR FUNCTION_._^0_%NUM 0_,17 TEMSEC - USED BY WORD ADDRESSING_1_^0_%NUM 0_,18 OVERLAY AREA (SCHEDULER CALL)_4_^0_%NUM 0_,19 OVERLAY AREA (COMPLETION ADDRESS)_0_^0_%NUM 0_,20 OVERLAY AREA (THREAD)_<_^0_%NUM 0_,21 OVERLAY AREA (LOGICAL UNIT)_6_^0_%ADC P73320_'22 PHYSTB THREAD_D_^0_%NUM 0_,23 RETURN ADDRESS FOR DATA TRANSFER_1_^0_%NUM $5BFB_(24 FIRST SECTOR ADDRESS ON DISK 1_3_^0_%NUM 0_,25 LAST DATA TRANSFER FUNCTION_6_^0_%NUM 0_,26 BUFFER SIZE FOR SPLIT TRANSFERS_2_^0_%NUM 0_,27 CYLINDER ADDRESS FOR TRANSFER_4_^0_%NUM 8_,28 MASK FOR THIS UNITS SEEK COMPLETE BIT_,_^0_%ADC BF332D_'29 ADDRESS OF 96 WORD BUFFER_8_^0_%NUM 0_,30 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,31 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,32 TEMPORARY FOR WORD ADDRESSING_4_^0_%NUM 0_,33 REQUEST CODE_E_^0_%NUM 0_,34 REQUEST PRIORITY_A_^0_%NUM 0_,35 STARTING SECTOR FOR COMPARE OR RETRY_-_^0_%NUM 0_,36 FWA OF TRANSFER FOR COMPARE OR RETRY_-_^0_%NUM 0_,37 ERROR COUNTER_D_^0_%NUM 0_,38 DATA TRANSFER FUNCTION CODE_6_^0_%NUM $FFFF_(39 SECTOR NUMBER CURRENTLY IN BUFFER_0_^0_%NUM 0_,40 LAST VALUE OF CYLINDER ADDRESS STATUS_,_^0_%NUM 0_,41 LAST VALUE OF C W A STATUS_5_^0_%NUM 0_,42 LAST VALUE OF CHECKWORD STATUS_3_^0_%NUM 0_,43 LAST VALUE OF DRIVE CYLINDER STATUS_._^0*_]_0_^0_%BZS BF332D(96)_"44 BUFFER FOR WORD ADDRESSING_7_^0*_7139 BUFFER FOR WORD ADDRESSING_7_^0_%EJT_]_'_^0*_*1 7 5 2_!D R U M_R_^0*_]_0_^0_%EXT I1752,C1752,E1752_R_^0_%SPC 2_]_#_^0R1752 LDQ =XP1752_%INTERRUPT RESPONSE FOR 1752 DRUM_5_^0_%JMP* (P1752+2)_Z_^0_%EJT_]_'_^0*_*1 7 5 2_!D R U M_R_^0*_]_0_^0_%SPC 1_]_#_^0P1752 ADC $5209_(00 SCHEDULER CALL_C_^0_%ADC I1752_(01 INITIATOR ADDRESS_@_^0_%ADC C1752_(02 CONTINUATOR ADDRESS_>_^0_%ADC E1752_(03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0101_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM $1036_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%NUM 0_,16 SECTOR NUMBER_D_^0_%NUM 0_,17 DATA TRANSFER FUNCTION_;_^0_%NUM 0_,18 COUNTER_J_^0_%NUM 0_,19 FULL SECTOR COUNTER_>_^0_%NUM 0_,20 SAVE ECCOR_G_^0_%NUM 0_,21 SAVE ELSTWD_F_^0_%NUM 0_,22 OVERLAY AREA (SCHEDULER CALL)_4_^0_%NUM 0_,23 OVERLAY AREA (COMPLETION ADDRESS)_0_^0_%NUM 0_,24 OVERLAY AREA (THREAD)_<_^0_%NUM 0_,25 OVERLAY AREA (LOGICAL UNIT)_6_^0_%NUM 0_,26 UNSUCCESSFUL I/O ATTEMPT COUNTER_1_^0_%NUM 0_,27 EQUIPMENT STATUS (ON LAST ERROR)_1_^0_%NUM 0_,28 CORE STATUS_$(ON LAST ERROR)_1_^0_%NUM 0_,29 SECTOR STATUS_"(ON LAST ERROR)_1_^0_%NUM 0_,30 DATA STATUS_$(ON LAST ERROR)_1_^0_%EJT_]_'_^0*_*1 7 4 2 - 3 0 / 1 2 0_!L I N E_!P R I N T E R_4_^0*_]_0_^0_%SPC 1_]_#_^0_%EQU T4230(17*$10) TYPE CODE - 1742-30_B_^0_%EQU T4212(18*$10) TYPE CODE - 1742-120_A_^0_%EQU U42312(X42312-LOG1A)_O_^0_%EQU F42312(FTN742-LOG1A)_O_^0_%SPC 1_]_#_^0_%EQU M42312(1)_Z_^0*_]_0_^0_%IFA M42312,EQ,0_!CORE RESIDENT DRIVER_A_^0_%EXT I42312_]_^0_%EXT C42312_]_^0_%EXT E42312_]_^0_%EQU L42312(0)_Z_^0_%EQU S42312($7FFF)_V_^0_%EIF_]_'_^0*_]_0_^0_%IFA M42312,EQ,1_!MASS RESIDENT DRIVER_A_^0_%EXT MASDRV_]_^0_%EXT MASCON_]_^0_%EXT MASERR_]_^0I42312 JMP+ MASDRV_'INITIATE DRIVER_F_^0C42312 JMP+ MASCON_'INTERRUPT RESPONSE_C_^0E42312 JMP+ MASERR_'TIMEOUT ERROR_H_^0_%EXT L42312_]_^0_%EXT S42312_]_^0_%EIF_]_'_^0*_]_0_^0_%SPC 2_]_#_^0R42312 LDQ =XP42312_$INTERRUPT RESPONSE FOR 1742-30/120 PRINTER_+_^0_%JMP* (P42312+2)_Y_^0_%EJT_]_'_^0*_*1 7 4 2 - 3 0 / 1 2 0_!L I N E_!P R I N T E R_4_^0*_]_0_^0_%SPC 1_]_#_^0P42312 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I42312_'01 INITIATOR ADDRESS_@_^0_%ADC C42312_'02 CONTINUATOR ADDRESS_>_^0_%ADC E42312_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTC CLOCK_B_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0201_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%ADC $2804+T4212_!08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC L42312_'13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC S42312_'14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 BLANK DETECTION INDICATOR_8_^0_%NUM 0_,16 LINE COUNT_F_^0_%NUM 0_,17 TEMPORARY STORAGE FOR CONTROL FUNC._._^0_%NUM 0_,18 CHARACTER COUNT_B_^0_%ADC F42312_'19 FORTRAN LOGICAL UNIT_=_^0_%NUM 0_,20 NUMBER OF BLANKS TO BE SENT_6_^0_%NUM 60_+21 MAXIMUM NUMBER OF LINES PER PAGE_1_^0_%NUM 136_*22 NUMBER OF CHARACTERS PER LINE_4_^0_%ADC U42312_'23 DIAGNOSTIC LU_D_^0_%EJT_]_'_^0*_]_0_^0*_*F O R T R A N_!L I N E_!P R I N T E R_<_^0_%SPC 2_]_#_^0*_*PHYSTB SHARED WITH 1742-30/120 LINE PRINTER_8_^0_%EJT_]_'_^0*_*1 7 2 8 / 4 3 0_!C A R D_!R E A D E R / P U N C H_0_^0*_]_0_^0_%SPC 1_]_#_^0_%EQU U1728(X1728-LOG1A)_Q_^0_%SPC 1_]_#_^0_%EQU M1728(1)_[_^0*_]_0_^0_%IFA M1728,EQ,0_"CORE RESIDENT DRIVER_A_^0_%EXT I1728_] _^0_%EXT C1728_] _^0_%EXT E1728_] _^0_%EQU L1728(0)_[_^0_%EQU S1728($7FFF)_W_^0_%EIF_]_'_^0*_]_0_^0_%IFA M1728,EQ,1_"MASS RESIDENT DRIVER_A_^0_%EXT MASDRV_]_^0_%EXT MASCON_]_^0_%EXT MASERR_]_^0I1728 JMP+ MASDRV_'INITIATE DRIVER_F_^0C1728 JMP+ MASCON_'INTERRUPT RESPONSE_C_^0E1728 JMP+ MASERR_'TIMEOUT ERROR_H_^0_%EXT L1728_] _^0_%EXT S1728_] _^0_%EIF_]_'_^0*_]_0_^0_%SPC 2_]_#_^0R1728 LDQ =XP1728_%INTERRUPT RESPONSE FOR 1728-430 READ/PUNCH_+_^0_%JMP* (P1728+2)_Z_^0_%EJT_]_'_^0*_*1 7 2 8 / 4 3 0_!C A R D_!R E A D E R / P U N C H_0_^0*_]_0_^0_%SPC 1_]_#_^0P1728 ADC $520E_(00 SCHEDULER CALL_C_^0_%ADC I1728_(01 INITIATOR ADDRESS_@_^0_%ADC C1728_(02 CONTINUATOR ADDRESS_>_^0_%ADC E1728_(03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0521_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM $18C6_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%NUM 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%ADC L1728_(13 DRIVER LENGTH IF MASS MEMORY_5_^0_%ADC S1728_(14 NAME ASSOCIATED WITH SECTOR NUMBER_/_^0_%NUM 0_,15 PACKING CYCLE ADDRESS STORAGE_4_^0_%NUM $800F_(16 READ/PUNCH SWITCH, EOF FORMAT (6789)_-_^0_%ADC BUF28_(17 FIRST LOCATION OF 80 WORD I / O BUFFER_+_^0_%NUM 0_,18 CURRENT CARD BUFFER LOCATION_5_^0_%NUM 0_,19 SUBROUTINE RETURN ADDRESS_8_^0_%NUM 0_,20 CARD SEQUENCE NUMBER_=_^0_%NUM 0_,21 RECORD LENGTH_D_^0_%NUM 0_,22 CHECKSUM ACCUMULATOR_=_^0_%NUM 0_,23 TEMPORARY STORAGE_@_^0_%NUM 0_,24 OUTPUT OFFSET SWITCH_=_^0_%NUM 0_,25 ERROR RETURN_E_^0_%NUM 0_,26 HOLLERITH ERROR FLAG_=_^0_%ADC U1728_(27 DIAGNOSTIC LU_D_^0*_]_0_^0_%BZS BUF28(80)_#28 INPUT / OUTPUT BUFFER_<_^0*_7107 INPUT / OUTPUT BUFFER_<_^0_%EJT_]_'_^0*_*1 7 4 3 - 2_!C O M M U N I C A T I O N S_:_^0*_]_0_^0*_*C O N T R O L L E R ,_!U N I T_!0_@_^0*_]_0_^0_%EXT I17432,C17432,E17432_O_^0_%ENT CABF00_]_^0_%ENT P74300_]_^0_%EQU U74300(X74300-LOG1A)_O_^0_%SPC 1_]_#_^0R17432 LDQ =XP74300_$INTERRUPT RESPONSE FOR 1743-2_8_^0_%JMP* (P74300+2)_Y_^0_%SPC 2_]_#_^0P74300 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17432_'01 INITIATOR ADDRESS_@_^0_%ADC C17432_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17432_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0282_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM $3376_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%ADC 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC CABF00_'16 START OF BUFFER ADDRESS_:_^0_%ADC U74300_'17 DIAGNOSTIC LOGICAL UNIT_:_^0_%NUM $0000_(18 TERMINATION CHARACTERS_;_^0_%NUM 0_,19 ERROR CODE STORAGE_?_^0_%NUM $8000_(20 TYPE OF I/O - = FULL DUPLEX_5_^0_%NUM $023C_(21 OUTPUT/INPUT DIAG CLOCK TIME_5_^0_%NUM $0800_(22 MOTION WORD 1 - BACKSPACE RECORD_1_^0_%NUM $1900_(23 MOTION WORD 2 - WRITE EOF_8_^0_%NUM 0_,24 MOTION WORD 3 - REWIND_;_^0_%NUM $0D00_(25 MOTION WORD 4 - REWIND/UNLOAD_4_^0_%NUM $0A00_(26 MOTION WORD 5 - ADVANCE FILE_5_^0_%NUM $1A00_(27 MOTION WORD 6 - BACKSPACE FILE_3_^0_%NUM $1500_(28 MOTION WORD 7 - ADVANCE RECORD_3_^0_%NUM $0000_(29 TIMESHARE FLAG AND PRIORITY LEVEL_0_^0_%NUM 40_+30 LENGTH OF INPUT BUFFER_;_^0_%ADC 0_,31 ENTRY POINT OF INPUT HANDLER_5_^0_%NUM 0_,32 CURRENT MOTION WORD_>_^0_%ADC L74300-LOG1A 33 ACTUAL LOGICAL UNIT_>_^0_%BZS CABF00(40)_"34 INPUT BUFFER_E_^0*_873 INPUT BUFFER_E_^0_%NUM 0_,74 INPUT LENGTH_E_^0_%ADC P74301_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*1 7 4 3 - 2_!C O M M U N I C A T I O N S_:_^0*_]_0_^0*_*C O N T R O L L E R ,_!U N I T_!1_@_^0*_]_0_^0_%ENT CABF01_]_^0_%EQU U74301(X74301-LOG1A)_O_^0_%SPC 1_]_#_^0P74301 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17432_'01 INITIATOR ADDRESS_@_^0_%ADC C17432_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17432_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $0292_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM $3376_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%ADC 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC CABF01_'16 START OF BUFFER ADDRESS_:_^0_%ADC U74301_'17 DIAGNOSTIC LOGICAL UNIT_:_^0_%NUM $0000_(18 TERMINATION CHARACTERS_;_^0_%NUM 0_,19 ERROR CODE STORAGE_?_^0_%NUM $8000_(20 TYPE OF I/O - = FULL DUPLEX_5_^0_%NUM $023C_(21 OUTPUT/INPUT DIAG CLOCK TIME_5_^0_%NUM $0800_(22 MOTION WORD 1 - BACKSPACE RECORD_1_^0_%NUM $1900_(23 MOTION WORD 2 - WRITE EOF_8_^0_%NUM 0_,24 MOTION WORD 3 - REWIND_;_^0_%NUM $0D00_(25 MOTION WORD 4 - REWIND/UNLOAD_4_^0_%NUM $0A00_(26 MOTION WORD 5 - ADVANCE FILE_5_^0_%NUM $1A00_(27 MOTION WORD 6 - BACKSPACE FILE_3_^0_%NUM $1500_(28 MOTION WORD 7 - ADVANCE RECORD_3_^0_%NUM $0000_(29 TIMESHARE FLAG AND PRIORITY LEVEL_0_^0_%NUM 40_+30 LENGTH OF INPUT BUFFER_;_^0_%ADC 0_,31  ENTRY POINT OF INPUT HANDLER_5_^0_%NUM 0_,32 CURRENT MOTION WORD_>_^0_%ADC L74301-LOG1A 33 ACTUAL LOGICAL UNIT_>_^0_%BZS CABF01(40)_"34 INPUT BUFFER_E_^0*_873 INPUT BUFFER_E_^0_%NUM 0_,74 INPUT LENGTH_E_^0_%ADC P74302_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*1 7 4 3 - 2_!C O M M U N I C A T I O N S_:_^0*_]_0_^0*_*C O N T R O L L E R ,_!U N I T_!2_@_^0*_]_0_^0_%ENT CABF02_]_^0_%EQU U74302(X74302-LOG1A)_O_^0_%SPC 1_]_#_^0P74302 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17432_'01 INITIATOR ADDRESS_@_^0_%ADC C17432_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17432_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $02A2_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM  $3376_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%ADC 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC CABF02_'16 START OF BUFFER ADDRESS_:_^0_%ADC U74302_'17 DIAGNOSTIC LOGICAL UNIT_:_^0_%NUM $0000_(18 TERMINATION CHARACTERS_;_^0_%NUM 0_,19 ERROR CODE STORAGE_?_^0_%NUM $8000_(20 TYPE OF I/O - = FULL DUPLEX_5_^0_%NUM $023C_(21 OUTPUT/INPUT DIAG CLOCK TIME_5_^0_%NUM $0800_(22 MOTION WORD 1 - BACKSPACE RECORD_1_^0_%NUM $1900_(23 MOTION WORD 2 - WRITE EOF_8_^0_%NUM 0_,24 MOTION WORD 3 - REWIND_;_^0_%NUM $0D00_(25 MOTION WORD 4 - REWIND/UNLOAD_4_^0_%NUM $0A00_(26 MOTION WORD 5 - ADVANCE FILE_5_^0_%NUM $1A00_(27 MOTION WORD 6 - BACKSPACE FILE_3_^0_%NUM $1500_(28 MOTION WORD 7 - ADVANCE RECORD_3_^0_%NUM $0000_(29 TIMESHARE FLAG AND PRIORITY LEVEL_0_^0_%NUM 40_+30 LENGTH OF INPUT BUFFER_;_^0_%ADC 0_,31 ENTRY POINT OF INPUT HANDLER_5_^0_%NUM 0_,32 CURRENT MOTION WORD_>_^0_%ADC L74302-LOG1A 33 ACTUAL LOGICAL UNIT_>_^0_%BZS CABF02(40)_"34 INPUT BUFFER_E_^0*_873 INPUT BUFFER_E_^0_%NUM 0_,74 INPUT LENGTH_E_^0_%ADC P74303_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*1 7 4 3 - 2_!C O M M U N I C A T I O N S_:_^0*_]_0_^0*_*C O N T R O L L E R ,_!U N I T_!3_@_^0*_]_0_^0_%ENT CABF03_]_^0_%EQU U74303(X74303-LOG1A)_O_^0_%SPC 1_]_#_^0P74303 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17432_'01 INITIATOR ADDRESS_@_^0_%ADC C17432_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17432_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $02B2_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM $3376_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%ADC 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC CABF03_'16 START OF BUFFER ADDRESS_:_^0_%ADC U74303_'17 DIAGNOSTIC LOGICAL UNIT_:_^0_%NUM $0000_(18 TERMINATION CHARACTERS_;_^0_%NUM 0_,19 ERROR CODE STORAGE_?_^0_%NUM $8000_(20 TYPE OF I/O - = FULL DUPLEX_5_^0_%NUM $023C_(21 OUTPUT/INPUT DIAG CLOCK TIME_5_^0_%NUM $0800_(22 MOTION WORD 1 - BACKSPACE RECORD_1_^0_%NUM $1900_(23 MOTION WORD 2 - WRITE EOF_8_^0_%NUM 0_,24 MOTION WORD 3 - REWIND_;_^0_%NUM $0D00_(25 MOTION WORD 4 - REWIND/UNLOAD_4_^0_%NUM $0A00_(26 MOTION WORD 5 - ADVANCE FILE_5_^0_%NUM $1A00_(27 MOTION WORD 6 - BACKSPACE FILE_3_^0_%NUM $1500_(28 MOTION WORD 7 - ADVANCE RECORD_3_^0_%NUM $0000_(29 TIMESHARE FLAG AND PRIORITY LEVEL_0_^0_%NUM 40_+30 LENGTH OF INPUT BUFFER_;_^0_%ADC 0_,31 ENTRY POINT OF INPUT HANDLER_5_^0_%NUM 0_,32 CURRENT MOTION WORD_>_^0_%ADC L74303-LOG1A 33 ACTUAL LOGICAL UNIT_>_^0_%BZS CABF03(40)_"34 INPUT BUFFER_E_^0*_873 INPUT BUFFER_E_^0_%NUM 0_,74 INPUT LENGTH_E_^0_%ADC P74304_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*1 7 4 3 - 2_!C O M M U N I C A T I O N S_:_^0*_]_0_^0*_*C O N T R O L L E R ,_!U N I T_!4_@_^0*_]_0_^0_%ENT CABF04_]_^0_%EQU U74304(X74304-LOG1A)_O_^0_%SPC 1_]_#_^0P74304 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17432_'01 INITIATOR ADDRESS_@_^0_%ADC C17432_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17432_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $02C2_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM $3376_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%ADC 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC CABF04_'16 START OF BUFFER ADDRESS_:_^0_%ADC U74304_'17 DIAGNOSTIC LOGICAL UNIT_:_^0_%NUM $0000_(18 TERMINATION CHARACTERS_;_^0_%NUM 0_,19 ERROR CODE STORAGE_?_^0_%NUM $8000_(20 TYPE OF I/O - = FULL DUPLEX_5_^0_%NUM $023C_(21 OUTPUT/INPUT DIAG CLOCK TIME_5_^0_%NUM $0800_(22 MOTION WORD 1 - BACKSPACE RECORD_1_^0_%NUM $1900_(23 MOTION WORD 2 - WRITE EOF_8_^0_%NUM 0_,24 MOTION WORD 3 - REWIND_;_^0_%NUM $0D00_(25 MOTION WORD 4 - REWIND/UNLOAD_4_^0_%NUM $0A00_(26 MOTION WORD 5 - ADVANCE FILE_5_^0_%NUM $1A00_(27 MOTION WORD 6 - BACKSPACE FILE_3_^0_%NUM $1500_(28 MOTION WORD 7 - ADVANCE RECORD_3_^0_%NUM $0000_(29 TIMESHARE FLAG AND PRIORITY LEVEL_0_^0_%NUM 40_+30 LENGTH OF INPUT BUFFER_;_^0_%ADC 0_,31 ENTRY POINT OF INPUT HANDLER_5_^0_%NUM 0_,32 CURRENT MOTION WORD_>_^0_%ADC L74304-LOG1A 33 ACTUAL LOGICAL UNIT_>_^0_%BZS CABF04(40)_"34 INPUT BUFFER_E_^0*_873 INPUT BUFFER_E_^0_%NUM 0_,74 INPUT LENGTH_E_^0_%ADC P74305_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*1 7 4 3 - 2_!C O M M U N I C A T I O N S_:_^0*_]_0_^0*_*C O N T R O L L E R ,_!U N I T_!5_@_^0*_]_0_^0_%ENT CABF05_]_^0_%EQU U74305(X74305-LOG1A)_O_^0_%SPC 1_]_#_^0P74305 ADC $520A_(00 SCHEDULER CALL_C_^0_%ADC I17432_'01 INITIATOR ADDRESS_@_^0_%ADC C17432_'02 CONTINUATOR ADDRESS_>_^0_%ADC E17432_'03 TIMEOUT ERROR ADDRESS_<_^0_%NUM -1_+04 DIAGNOSTIC CLOCK_A_^0_%NUM 0_,05 LOGICAL UNIT_E_^0_%NUM 0_,06 PARAMETER LOCATION_?_^0_%NUM $02D2_(07 CONVERTER, EQUIPMENT, STATION_4_^0_%NUM $3376_(08 REQUEST STATUS_C_^0_%NUM 0_,09 DRIVER STATUS_D_^0_%NUM 0_,10 CURRENT LOCATION_A_^0_%ADC 0_,11 LAST LOCATION PLUS ONE_;_^0_%NUM 0_,12 DEVICE STATUS_D_^0_%NUM 0_,13 RESERVED_I_^0_%NUM $7FFF_(14 RESERVED_I_^0_%NUM 0_,15 RESERVED FOR FNR AND CMR_9_^0_%ADC CABF05_'16 START OF BUFFER ADDRESS_:_^0_%ADC U74305_'17 DIAGNOSTIC LOGICAL UNIT_:_^0_%NUM $0000_(18 TERMINATION CHARACTERS_;_^0_%NUM 0_,19 ERROR CODE STORAGE_?_^0_%NUM $8000_(20 TYPE OF I/O - = FULL DUPLEX_5_^0_%NUM $023C_(21 OUTPUT/INPUT DIAG CLOCK TIME_5_^0_%NUM $0800_(22 MOTION WORD 1 - BACKSPACE RECORD_1_^0_%NUM $1900_(23 MOTION WORD 2 - WRITE EOF_8_^0_%NUM 0_,24 MOTION WORD 3 - REWIND_;_^0_%NUM $0D00_(25 MOTION WORD 4 - REWIND/UNLOAD_4_^0_%NUM $0A00_(26 MOTION WORD 5 - ADVANCE FILE_5_^0_%NUM $1A00_(27 MOTION WORD 6 - BACKSPACE FILE_3_^0_%NUM $1500_(28 MOTION WORD 7 - ADVANCE RECORD_3_^0_%NUM $0000_(29 TIMESHARE FLAG AND PRIORITY LEVEL_0_^0_%NUM 40_+30 LENGTH OF INPUT BUFFER_;_^0_%ADC 0_,31 ENTRY POINT OF INPUT HANDLER_5_^0_%NUM 0_,32 CURRENT MOTION WORD_>_^0_%ADC L74305-LOG1A 33 ACTUAL LOGICAL UNIT_>_^0_%BZS CABF05(40)_"34 INPUT BUFFER_E_^0*_873 INPUT BUFFER_E_^0_%NUM 0_,74 INPUT LENGTH_E_^0_%ADC P74300_'75 PHYSTB THREAD_D_^0_%EJT_]_'_^0*_*R E S I D E N T_!C O R E_!D A T A_@_^0*_]_0_^0_%ENT LSTLOC_]_^0_%EXT BGNMON_]_^0_%SPC 1_]_#_^0LSTLOC ADC BGNMON_'BEGINNING LOCATION OF CORE RESIDENT SYSTEM_+_^0_%SPC 2_]_#_^0*_*C O R E_!A L L O C A T I O N_!D A T A_<_^0*_]_0_^0_%ENT CALTHD_'CORE ALLOCATOR THREAD_@_^0_%ENT LVLSTR_'LEVEL START ALLOCATION TABLE_9_^0_%EXT AREAC_(START OF ALLOCATABLE AREA_<_^0_%EXT LEND_)END OF ALLOCATABLE AREA_>_^0*_]_0_^0CALTHD ADC 0_,TOTAL AVAILABLE ALLOCATABLE CORE_5_^0_%ADC AREAC_(START OF ALLOCATABLE AREA_<_^0*_]_0_^0LVLSTR ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 0_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 1_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 2_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 3_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 4_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 5_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 6_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 7_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 8_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 9_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 10_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 11_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 12_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 13_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 14_/_^0_%ADC AREAC_(START OF ALLOCATABLE CORE FOR LEVEL 15_/_^0_%ADC LEND_)END OF ALLOCATABLE CORE_>_^0*_]_0_^0_%ENT N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15_=_^0_%SPC 1_]_#_^0*_$NOTE - THE SIZE OF AREAS 1, 2, 3, AND 4 ARE SPECIFIED_2_^0*_-DURING SYSTEM INITIALIZATION_D_^0*_]_0_^0N5_#EQU_#N5()_%NUMBER OF CORE LOCATIONS FOR AREA 5_2_^0N6_#EQU_#N6()_%NUMBER OF CORE LOCATIONS FOR AREA 6_2_^0N7_#EQU_#N7()_%NUMBER OF CORE LOCATIONS FOR AREA 7_2_^0N8_#EQU_#N8()_%NUMBER OF CORE LOCATIONS FOR AREA 8_2_^0N9_#EQU_#N9()_%NUMBER OF CORE LOCATIONS FOR AREA 9_2_^0N10_"EQU_"N10()_%NUMBER OF CORE LOCATIONS FOR AREA 10_1_^0N11_"EQU_"N11()_%NUMBER OF CORE LOCATIONS FOR AREA 11_1_^0N12_"EQU_"N12()_%NUMBER OF CORE LOCATIONS FOR AREA 12_1_^0N13_"EQU_"N13()_%NUMBER OF CORE LOCATIONS FOR AREA 13_1_^0N14_"EQU_"N14()_%NUMBER OF CORE LOCATIONS FOR AREA 14_1_^0N15_"EQU_"N15()_%NUMBER OF CORE LOCATIONS FOR AREA 15_1_^0_%EJT_]_'_^0*_*P A R T I T I O N_!C O R E_!D A T A_>_^0*_]_0_^0_%ENT PARTBL,BUSY,DIP,LSTPRT,THDS,USE_E_^0_%SPC 1_]_#_^0_%EQU LSTPRT(2)_$LAST PARTITION IN SYSTEM_=_^0*_]_0_^0PARTBL NUM $BF20_(STARTING ADDRESS OF PARTITION 0_6_^0_%NUM $C310_(STARTING ADDRESS OF PARTITION 1_6_^0_%NUM $CAE0_(STARTING ADDRESS OF PARTITION 2_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 3_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 4_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 5_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 6_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 7_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 8_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 9_6_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 10_5_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 11_5_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 12_5_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 13_5_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 14_5_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 15_5_^0*_]_0_^0_%NUM $FFFF_(STARTING ADDRESS OF PARTITION 16 - SWAP AREA_)_^0_%SPC 2_]_#_^0THDS_!NUM $FFFF_(TOP OF REQUEST THREAD FOR PARTITION 0_0_^0_%NUM $FFFF_(TOP OF REQUEST THREAD FOR PARTITION 1_0_^0_%NUM $FFFF_(TOP OF REQUEST THREAD FOR PARTITION 2_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 3_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 4_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 5_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 6_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 7_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 8_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 9_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 10_/_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 11_/_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 12_/_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 13_/_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 14_/_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 15_/_^0*_]_0_^0_%NUM 0_,TOP OF REQUEST THREAD FOR PARTITION 16 - SWAP_(_^0_%SPC 2_]_#_^0USE_"BZS USE(16)_%PARTITION-IN-USE INDICATORS_:_^0_%SPC 2_]_#_^0BUSY_!NUM $FFF8_(BUSY INDICATOR - BIT 0 = PARTITION 0_/_^0DIP_"NUM -0_+PARTITION CORE DRIVER ACTIVE INDICATOR_/_^0_%EJT_]_'_^0*_*S Y S T E M_!C O M M O N_!D E C L A R A T I O N_2_^0*_]_0_^0*_$THIS ENTRY SPECIFIES THE AMOUNT OF SYSTEM (BLANK) COMMON_0_^0_%SPC 4_]_#_^0_%EQU_!NCOM($03E8)_W_^0_%SPC 1_]_#_^0COMMON COM COMMON(NCOM)_W_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!P R O G R A M S_8_^0*_]_0_^0*_*S Y S T E M_!I D L E_!L O O P_D_^0_%SPC 2_]_#_^0_%ENT IDLE_)BASIC SYSTEM IDLE LOOP_?_^0_%ENT IDLER_(SYSTEM IDLE SUBROUTINE_?_^0_%ENT INSTLU_'SYSTEM INSTALLATION L. U._<_^0_%SPC 2_]_#_^0IDLE_!LDA* STRTUP_'IS THIS THE INITIAL IDLE ENTRY_7_^0_%SAN IDLE1_(NO_S_^0_%RTJ* STRTUP_'YES, PERFORM STARTUP FUNCTIONS_7_^0IDLE1 RTJ* IDLER_] _^0_%JMP* IDLE_] _^0_%SPC 2_]_#_^0_%EXT LIBEDT_'LIBRARY EDIT_I_^0_%EXT RELFLE_'SYSTEM CORE SWAP ROUTINE_=_^0_%EXT INPTV4_'JOB PROCESSOR STANDARD INPUT DEVICE_2_^0_%EQU INSTLU(6)_[_^0_%SPC 1_]_#_^0STRTUP NUM 0_]_#_^0_%LDQ- $EB_]_!_^0_%ADQ =XLIBEDT_$OBTAIN THE DIRECTORY ADDRESS OF LIBEDT_/_^0_%LDA- (ZERO),Q_$HAVE THE REQUEST PRIORITIES BEEN SET UP_._^0_%SAN STRTP1_'YES_R_^0_%LDA =XINSTLU_[_^0_%STA+ INPTV4_'SET THE STD. INPUT TO THE INSTALLATION L.U._*_^0_%JMP* (STRTUP)_(AND EXIT_J_^0_%SPC 1_]_#_^0STRTP1 EQU STRTP1(*)_Z_^0*_]_0_^0*_$NOTE - ANY ADDITIONAL SYSTEM STARTUP FUNCTIONS_:_^0*_,MAY BE ADDED HERE._O_^0*_]_0_^0_%RTJ- (AMONI)_%SCHEDULE RELFLE TO FORCE A SWAP_6_^0_%ADC $5203_] _^0_%ADC RELFLE_]_^0_%JMP* (STRTUP)_[_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!P R O G R A M S_8_^0*_]_0_^0*_*I N T E R R U P T_!R E S P O N S E_!F O R_!T I M E R_,_^0*_]_0_^0_%ENT TMRTYP,TMCODE TYPE OF SYSTEM TIME BASE_=_^0_%EXT TIMEUP_'TMINT INTERRUPT ENTRY_@_^0_%EQU X($7FFF)_$VALUE FOR UNSELECTED ENTRY POINTS_4_^0_%ENT E15761_]_^0_%EQU E15761(X)_#LINK UNSELECTED ENTRY POINT_:_^0_%SPC 1_]_#_^0_%EQU TMCODE(0)_#SOFTWARE PSEUDO TIMER_@_^0TMRTYP ADC 6_,TIME BASE CODE_G_^0_%SPC 2_]_#_^0CTR_"NUM 30967_] _^0BASCTR NUM 30967_(APPROXIMATION TO 60 CPS_>_^0_%SPC 1_]_#_^0IDLER NUM 0_]_#_^0_%IIN 0_,USED AT LEVEL -1 OR LEVEL 2_:_^0_%SOV 0_]_#_^0_%RAO* CTR_*PSEUDO SYSTEM TIMER_B_^0_%SOV COUNT_(SKIP IF 1800 LOOPS EXECUTED_:_^0_%EIN 0_]_#_^0_%JMP* (IDLER)_%BACK TO BASIC IDLE LOOP_>_^0COUNT LDA* BASCTR_'INITIALIZE LOOP COUNTER_>_^0_%STA* CTR_]_!_^0_%LDQ* IDLER_(SAVE RETURN FOR RE-ENTRANCY IN VOLATILE_._^0_%RTJ- (AVOLA)_%GET 3 WORDS VOLATILE STORAGE_9_^0_%NUM 3_]_#_^0_%RTJ- (AMONI)_\_^0_%ADC $520D_(SCHEDULE TMINT AT LEVEL 13_;_^0_%ADC TIMEUP_]_^0_%IIN 0_]_#_^0_%RTJ- (AVOLR)_%RETURN VOLATILE_F_^0_%JMP- (ZERO),Q_$RETURN TO IDLE LOOP_B_^0_%SPC 4_]_#_^0*_]_0_^0*_*LINK ALL UNSELECTED ENTRY POINTS_C_^0*_]_0_^0_%ENT E1572F,E1572,O1572,E1573,H15721,E15721,D15721,O15721,EQ3644_(_^0_%ENT F10336,O10336,E10336_O_^0_%ENT DMICOD,EMPSRT,TBLADR_O_^0_%EQU E1572F(X),E1572(X),O1572(X),E1573(X),H15721(X)_5_^0_%EQU E15721(X),D15721(X),O15721(X),EQ3644(X)_<_^0_%EQU F10336(X),O10336(X),E10336(X)_F_^0_%EQU DMICOD(X),EMPSRT(X),TBLADR(X)_F_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!P R O G R A M S_8_^0*_]_0_^0*_*A / Q_!C H A N N E L_!A L L O C A T I O N_8_^0*_]_0_^0_%SPC 2_]_#_^0_%ENT RQAQ_)REQUEST ENTRY FOR A/Q_@_^0_%ENT RLAQ_)RELEASE ENTRY FOR A/Q_@_^0_%SPC 1_]_#_^0RQAQ_!NUM 0_,ENTRY USED IF NO A/Q ALLOCATION_6_^0_%IIN 0_]_#_^0_%LDQ- I_,TRANSFER PDT ADDRESS TO Q_<_^0_%EIN 0_]_#_^0_%JMP* (RQAQ)_'RETURN_O_^0_%SPC 1_]_#_^0_%EQU RLAQ(RQAQ)_"EQUATE BOTH ENTRIES_B_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*M A S S_!R E S I D E N T_!D R I V E R S_!B U F F E R_,_^0*_]_0_^0*_*THIS BUFFER WILL CONTAIN THE MASS RESIDENT DRIVER(S)_/_^0*_*WHEN THEY ARE IN CORE._!THE SMALLEST ALLOWABLE SIZE IS_,_^0*_*EQUAL TO THE LARGEST MASS RESIDENT DRIVER IN THE SYSTEM._+_^0*_*OPTIMUM THROUGHPUT REQUIRES SIZING EQUAL TO THE TWO_0_^0*_*LARGEST MASS RESIDENT DRIVERS IN THE SYSTEM._7_^0_%SPC 2_]_#_^0_%ENT BUFF,BUFFE_Y_^0_%EQU MBFSZ($A00)_X_^0_%SPC 2_]_#_^0BUFF_!BZS BUFF(MBFSZ)_X_^0_%EQU BUFFE(*)_[_^0_%SPC 2_]_#_^0*_*C O M M O N_!G H O S T_!I N T E R R U P T_!R O U T I N E_(_^0_%SPC 1_]_#_^0_%ENT CGHOST_]_^0_%SPC 1_]_#_^0CGHOST NOP 0_]_#_^0_%JMP- (ADISP)_\_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*F O R T R A N_!R E E N T R A N T_!I N F O R M A T I O N_*_^0*_]_0_^0_%ENT FMASK,FLIST_X_^0_%EXT E4SAVE_]_^0_%EXT ARGU0_] _^0_%SPC 1_]_#_^0FMASK NUM $0070_(FORTRAN REENTRANT LEVELS (BIT 0 = LEVEL 0)_+_^0_%SPC 1_]_#_^0*_$TABLE OF FORTRAN ENTRY POINTS SAVED TO MAINTAIN REENTRANCY_._^0_%SPC 1_]_#_^0*_$ENTRY POINT_'PROGRAM_%DESCRIPTION_<_^0*_$-----------_'-------_%----------_=_^0_%SPC 1_]_#_^0FLIST ADC FEND_] _^0_%ADC E4SAVE_'Q8EXPR_!LOCATION $E4_!STORAGE_6_^0_%ADC ARGU0_(Q8QIO_"TEMPORARY STORAGE_;_^0FEND_!EQU FEND(*-FLIST-1)_T_^0_%EJT_]_'_^0*_*F O R T R A N_!R E E N T R A N T_!I N F O R M A T I O N_*_^0*_]_0_^0_%SPC 4_]_#_^0*_$THIS ENTRY IS PROVIDED TO ALLOW COMPATIBILITY BETWEEN THE_/_^0*_$NON-REENTRANT (BACKGROUND) FORTRAN AND REENTRANT FORTRAN_0_^0_%SPC 1_]_#_^0_%ENT Q8STP_] _^0_%SPC 1_]_#_^0Q8STP NOP 0_,FORTRAN_"STOP_F_^0_%JMP- (ADISP)_\_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*1 7 8 1 - 1_!H A R D W A R E_!F L O A T I N G_4_^0*_]_0_^0*_*P O I N T_!I N F O R M A T I O N_B_^0*_]_0_^0_%SPC 4_]_#_^0*_*THESE ENTRIES ALLOW PROPER SYSTEM LINKAGE IF THE 1781-1_,_^0*_*IS NOT SELECTED._S_^0_%SPC 2_]_#_^0_%ENT E17811,F17811_V_^0E17811 NUM $7FFF_] _^0_%EQU F17811($7FFF)_V_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*T I M E / D A T E_!P A R A M E T E R_!S T O R A G E_._^0*_]_0_^0_%SPC 3_]_#_^0_%ENT AYERTO_'CURRENT YEAR_!(ASCII)_?_^0_%ENT AMONTO_'CURRENT MONTH (ASCII)_?_^0_%ENT ADAYTO_'CURRENT DAY_"(ASCII)_?_^0_%ENT YERTO_(CURRENT YEAR_!(INTEGER)_=_^0_%ENT MONTO_(CURRENT MONTH (INTEGER)_=_^0_%ENT DAYTO_(CURRENT DAY_"(INTEGER)_=_^0_%ENT HORTO_(CURRENT HOUR_!(INTEGER)_=_^0_%ENT MINTO_(CURRENT MINUTE (INTEGER)_=_^0_%ENT SECON_(CURRENT SECOND (INTEGER)_=_^0_%ENT CONTA_(CURRENT COUNT (INTEGER)_=_^0_%ENT HORMIN_'CURRENT 24-HOUR TIME_A_^0_%ENT TOTMIN_'CURRENT DAY ELAPSED MINUTES_:_^0_%SPC 3_]_#_^0AYERTO NUM 0_,00 CURRENT YEAR_!(ASCII)_;_^0AMONTO NUM 0_,01 CURRENT MONTH (ASCII)_;_^0ADAYTO NUM 0_,02 CURRENT DAY_"(ASCII)_;_^0YERTO NUM 0_,03 CURRENT YEAR_!(INTEGER)_9_^0MONTO NUM 0_,04 CURRENT MONTH (INTEGER)_9_^0DAYTO NUM 0_,05 CURRENT DAY_"(INTEGER)_9_^0HORTO NUM 0_,06 CURRENT HOUR_!(INTEGER)_9_^0MINTO NUM 0_,07 CURRENT MINUTE (INTEGER)_9_^0SECON NUM 0_,08 CURRENT SECOND (INTEGER)_9_^0CONTA NUM 0_,09 CURRENT COUNT (INTEGER)_9_^0HORMIN NUM 0_,10 CURRENT 24-HOUR TIME_=_^0TOTMIN NUM 0_,11 CURRENT DAY ELAPSED MINUTES_6_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*S Y S T E M_!T I M E R_!P A R A M E T E R S_6_^0_%SPC 4_]_#_^0_%ENT TIMCPS_'BASIC SYSTEM CLOCK FREQUENCY_9_^0_%SPC 1_]_#_^0TIMCPS EQU TIMCPS(60)_"TIMER CYCLES PER SECOND_>_^0_%SPC 4_]_#_^0_%ENT TIMEC_(TIMER CYCLES PER 1/10 SECOND MINUS 1_1_^0_%SPC 1_]_#_^0TIMEC EQU TIMEC(TIMCPS/10-1)_Q_^0_%SPC 4_]_#_^0_%ENT TODLVL_'TIME OF DAY(TOD) PROGRAM REQ. CODE + PRIORITY_(_^0_%SPC 1_]_#_^0TODLVL EQU TODLVL($5006) D-BIT = 1, REQUEST CODE 8, PRIORITY 6_0_^0_%SPC 4_]_#_^0_%ENT NSCHED_'MAX. NO. OF COMPLETIONS PER TIMER INTERVAL_+_^0_%SPC 1_]_#_^0NSCHED NUM 5_,MAXIMUM 5 COMPLETIONS PER INTERVAL_3_^0_%SPC 4_]_#_^0_%ENT TMRLVL_'DIAGNOSTIC TIMER PRIORITY LEVEL_6_^0_%SPC 1_]_#_^0TMRLVL EQU TMRLVL(13)_"LEVEL 13_M_^0_%EJT_]_'_^0*_$M I S C E L L A N E O U S_!I N F O R M A T I O N_7_^0*_]_0_^0*_$S Y S T E M_!P R O G R A M_!O V E R L A Y_!S I Z E S_1_^0_%SPC 2_]_#_^0_%ENT LSIZV4_'INITIAL OVERLAY SIZE OF LIBEDT_7_^0_%ENT PSIZV4_'SIZE OF AREA 3_G_^0_%ENT ODBSIZ_'INITIAL OVERLAY SIZE OF ODEBUG_7_^0_%SPC 4_]_#_^0_%EQU LSIZV4($4B8) INITIAL OVERLAY SIZE OF LIBEDT_7_^0_%EQU PSIZV4($4B8) SIZE OF AREA 3_G_^0_%EQU ODBSIZ($369) INITIAL OVERLAY SIZE OF ODEBUG_7_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*S C M M_"I N C O R E_!F L A G_@_^0*_]_0_^0_%ENT SCMMLC_]_^0_%SPC 2_]_#_^0SCMMLC NUM 0_,NON-ZERO IF S C M M RUNNING_8_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*O N_!L I N E_!D E B U G_!I N C O R E_!F L A G_2_^0*_]_0_^0_%ENT CHRSFG_]_^0_%SPC 2_]_#_^0CHRSFG NUM 0_,NON-ZERO IF ODEBUG RUNNING_;_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*S Y S T E M_!C H E C K O U T_!P A R A M E T E R S_0_^0_%SPC 4_]_#_^0*_$THE STARTING SECTOR OF THE FAILED CORE IMAGE IS SPECIFIED BY_,_^0*_$THE NAME COBOPS. THIS AREA MUST BE SIZED TO ACCOMODATE A_/_^0*_$FAILED IMAGE OF THE SIZE SPECIFIED BY NAME MSIZV4. THE FAILED_*_^0*_$IMAGE MUST RESIDE ON THE LIBRARY MASS MEMORY UNIT. IF THE_._^0*_$MASS MEMORY LIBRARY UNIT IS A CARTRIDGE DISK, THE IMAGE AREA_,_^0*_$CANNOT OVERLAP FROM ONE PLATTER TO THE OTHER._;_^0_%SPC 2_]_#_^0_%ENT COBOPS_]_^0COBOPS EQU COBOPS($5A00) START SECTOR OF FAILED IMAGE_9_^0_%SPC 4_]_#_^0*_$THIS ENTRY IS PROVIDED TO LINK THE NO-FORTRAN DISPATCHER_0_^0*_$ENTRY POINT_]_^0_%SPC 1_]_#_^0_%ENT NDISP_] _^0_%SPC 1_]_#_^0_%EQU NDISP($7FFF)_W_^0_%SPC 4_]_#_^0*_$THIS ENTRY IS PROVIDED TO LINK THE TIMESHARE PROTECT INTERRUPT_*_^0*_$PROCESSOR ENTRY POINT_S_^0_%SPC 1_]_#_^0_%ENT TSIPRC_]_^0_%SPC 1_]_#_^0_%EQU TSIPRC($7FFF)_V_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*F I L E_!M A N A G E R_!D A T A_B_^0*_]_0_^0_%SPC 2_]_#_^0_%ENT FISLU_(LOGICAL UNIT OF FIS DIRECTORY AND BLOCKS_-_^0_%ENT MAXMMA_'MAXIMUM NO. OF MASS MEMORY ATTEMPTS ON ERROR_)_^0_%ENT RPTPER_'REQUEST PROCESSOR TIMEOUT PERIOD_5_^0_%ENT FDTPER_'FILE/DIRECTORY TIMEOUT PERIOD_8_^0_%ENT FIDSEC_'FIS DIRECTORY, S SECTOR ADDRESS_6_^0_%ENT FIBLSA_'SECTOR ADDRESS OF LAST FIS BLOCK_5_^0_%ENT FIBNIX_'INDEX TO THE NEXT AVAILABLE LOCATION IN FIBLSA_'_^0_%ENT FSLIST_'START OF FILE SPACE LIST_=_^0_%ENT FSLLTH_'FILE SPACE LIST LENGTH_?_^0_%ENT FSLEND_'END OF FILE SPACE LIST_?_^0_%ENT ADRFMS_'BEGINNING OF FILE MANAGER SPACE ON LIB UNIT_*_^0_%SPC 2_]_#_^0_%EQU FISLU(LBUNIT) LOGICAL UNIT OF FIS DIRECTORY AND BLOCKS_-_^0_%EQU MAXMMA(1)_#MAXIMUM NO. OF MASS MEMORY ATTEMPTS ON ERROR_)_^0_%EQU FDTPER(1)_#FILE/DIRECTORY TIMEOUT PERIOD_"(1/10 SEC.)_)_^0_%EQU RPTPER(1)_#REQUEST PROCESSOR TIMEOUT PERIOD (1/10 SEC.)_)_^0_%SPC 2_]_#_^0ADRFMS ADC $5BFB_(BEGINNING OF FILE MANAGER SPACE ON LIB UNIT_*_^0_%SPC 1_]_#_^0********_*THE FOLLOWING MUST BE IN ORDER_-********_(_^0FIDSEC ADC 0_,1. FIS DIRECTORY, S SECTOR ADDRESS_3_^0FIBLSA ADC 0_,2. SECTOR ADDRESS OF THE LAST FIS BLOCK_._^0FIBNIX ADC 0_,3. INDEX TO NEXT AVAILABLE LOCATION IN FIBLSA_(_^0FSLIST EQU FSLIST(*)_#4. START OF FILE SPACE LIST_:_^0_%SPC 1_]_#_^0********_*START OF LOGICAL UNIT ENTRIES_.********_(_^0_%SPC 2_]_#_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!0_2_^0*_]_0_^0_%ENT NUMFS0_] _^0_%EQU NUMFS0($1F40) NUMBER OF FILE SECTORS - UNIT 0_6_^0_%SPC 1_]_#_^0LUE0_!VFD X9/LUEL0,X7/LBUNIT LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC 0_2ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC NUMFS0_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD OF TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL0 EQU LUEL0(*-LUE0)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!1_2_^0*_]_0_^0_%ENT BEGLU1_] _^0_%ENT NUMFS1_] _^0_%EQU LUNIT1(13)_#LOGICAL UNIT OF FILE MANAGER UNIT 1_2_^0_%EQU BEGLU1(1)_$BEGINNING FILE SECTOR - UNIT 1_6_^0_%EQU NUMFS1($7FFF) NUMBER OF FILE SECTORS - UNIT 1_6_^0_%SPC 1_]_#_^0LUE1_!VFD X9/LUEL1,X7/LUNIT1 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU1_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC NUMFS1_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD OF TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL1 EQU LUEL1(*-LUE1)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!2_2_^0*_]_0_^0_%ENT BEGLU2_] _^0_%ENT NUMFS2_] _^0_%EQU LUNIT2(14)_#LOGICAL UNIT OF FILE MANAGER UNIT 2_2_^0_%EQU BEGLU2(1)_$BEGINNING FILE SECTOR - UNIT 2_6_^0_%EQU NUMFS2($7FFF) NUMBER OF FILE SECTORS - UNIT 2_6_^0_%SPC 1_]_#_^0LUE2_!VFD X9/LUEL2,X7/LUNIT2 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU2_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC NUMFS2_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD OF TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL2 EQU LUEL2(*-LUE2)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!3_2_^0*_]_0_^0_%ENT BEGLU3_] _^0_%ENT NUMFS3_] _^0_%EQU LUNIT3(15)_#LOGICAL UNIT OF FILE MANAGER UNIT 3_2_^0_%EQU BEGLU3(1)_$BEGINNING FILE SECTOR - UNIT 3_6_^0_%EQU NUMFS3($7FFF) NUMBER OF FILE SECTORS - UNIT 3_6_^0_%SPC 1_]_#_^0LUE3_!VFD X9/LUEL3,X7/LUNIT3 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU3_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC  NUMFS3_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD OF TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL3 EQU LUEL3(*-LUE3)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!4_2_^0*_]_0_^0_%ENT BEGLU4_] _^0_%ENT NUMFS4_] _^0_%EQU LUNIT4(22)_#LOGICAL UNIT OF FILE MANAGER UNIT 4_2_^0_%EQU BEGLU4(1)_$BEGINNING FILE SECTOR - UNIT 4_6_^0_%EQU NUMFS4($37F5) NUMBER OF FILE SECTORS - UNIT 4_6_^0_%SPC 1_]_#_^0LUE4_!VFD X9/LUEL4,X7/LUNIT4 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU4_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC NUMFS4_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD OF TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL4 EQU LUEL4(*-LUE4)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!5_2_^0*_]_0_^0_%ENT BEGLU5_] _^0_%ENT NUMFS5_] _^0_%EQU LUNIT5(23)_#LOGICAL UNIT OF FILE MANAGER UNIT 5_2_^0_%EQU BEGLU5(1)_$BEGINNING FILE SECTOR - UNIT 5_6_^0_%EQU NUMFS5($37F5) NUMBER OF FILE SECTORS - UNIT 5_6_^0_%SPC 1_]_#_^0LUE5_!VFD X9/LUEL5,X7/LUNIT5 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU5_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC NUMFS5_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD OF TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL5 EQU LUEL5(*-LUE5)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!6_2_^0*_]_0_^0_%ENT BEGLU6_] _^0_%ENT NUMFS6_] _^0_%EQU LUNIT6(24)_#LOGICAL UNIT OF FILE MANAGER UNIT 6_2_^0_%EQU BEGLU6(1)_$BEGINNING FILE SECTOR - UNIT 6_6_^0_%EQU NUMFS6($37F5) NUMBER OF FILE SECTORS - UNIT 6_6_^0_%SPC 1_]_#_^0LUE6_!VFD X9/LUEL6,X7/LUNIT6 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU6_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC NUMFS6_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD OF TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL6 EQU LUEL6(*-LUE6)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!7_2_^0*_]_0_^0_%ENT BEGLU7_] _^0_%ENT NUMFS7_] _^0_%EQU LUNIT7(25)_#LOGICAL UNIT OF FILE MANAGER UNIT 7_2_^0_%EQU BEGLU7(1)_$BEGINNING FILE SECTOR - UNIT 7_6_^0_%EQU NUMFS7($37F5) NUMBER OF FILE SECTORS - UNIT 7_6_^0_%SPC 1_]_#_^0LUE7_!VFD X9/LUEL7,X7/LUNIT7 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU7_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC  NUMFS7_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD ON TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL7 EQU LUEL7(*-LUE7)_V_^0_%EJT_]_'_^0*_*L O G I C A L_!U N I T_!D A T A ,_!U N I T_!8_2_^0*_]_0_^0_%ENT BEGLU8_] _^0_%ENT NUMFS8_] _^0_%EQU LUNIT8(26)_#LOGICAL UNIT OF FILE MANAGER UNIT 8_2_^0_%EQU BEGLU8(1)_$BEGINNING FILE SECTOR - UNIT 8_6_^0_%EQU NUMFS8($4000) NUMBER OF FILE SECTORS - UNIT 8_6_^0_%SPC 1_]_#_^0LUE8_!VFD X9/LUEL8,X7/LUNIT8 LU ENTRY LENGTH(7/15), LOGICAL UNIT(0-6)_'_^0_%ADC BEGLU8_-ADDRESS OF FILE SPACE POOL_5_^0_%ADC 0_2NUMBER OF AVAILABLE SECTORS_4_^0_%ADC NUMFS8_-NUMBER OF SECTORS IN THIS FILE SPACE_+_^0_%NUM 0,1_0THREAD OF ONE SECTOR LONG_6_^0_%NUM 0,2_0THREAD ON TWO SECTORS LONG_5_^0_%NUM 0,3_0THREAD OF THREE SECTORS LONG_3_^0LUEL8 EQU LUEL8(*-LUE8)_V_^0_%SPC 2_]_#_^0FSLLTH EQU FSLLTH(*-FSLIST)_"FILE SPACE LIST LENGTH_9_^0_%SPC 1_]_#_^0FSLEND NUM -0_1END OF FILE SPACE LIST_9_^0_%EJT_]_'_^0*_*F I L E_!M A N A G E R_!D A T A_B_^0*_]_0_^0_%SPC 2_]_#_^0*_*LINK UNSELECTED ENTRY POINTS_G_^0_%SPC 2_]_#_^0*_]_0_^0*_*S O R T - M E R G E_!L O G I C A L_!U N I T S_4_^0*_]_0_^0_%SPC 1_]_#_^0_%ENT SMCLU1_]_^0_%ENT SMCLU2_]_^0_%ENT SMCLU3_]_^0_%ENT SMCLU4_]_^0_%SPC 1_]_#_^0SMCLU1 EQU SMCLU1(8)_$SORT MERGE L.U. 1_D_^0SMCLU2 EQU SMCLU2(8)_$SORT MERGE L.U. 2_D_^0SMCLU3 EQU SMCLU3(8)_$SORT MERGE L.U. 3_D_^0SMCLU4 EQU SMCLU4(8)_$SORT MERGE L.U. 4_D_^0_%EJT_]_'_^0*_*M I S C E L L A N E O U S_!I N F O R M A T I O N_2_^0*_]_0_^0*_*J O B_!P R O C E S S O R_!F I L E_!P A R A M E T E R S_*_^0*_]_0_^0_%SPC 3_]_#_^0_%ENT JLLUV4_'LOGICAL UNIT OF JOB PROCESSOR FILES_2_^0_%ENT JBFLV4_'NUMBER OF JOB PROCESSOR FILES_8_^0_%ENT FBASV4_'FIRST FILE NUMBER USED BY JOB PROCESSOR_._^0_%ENT PKEYV4_'JOB FILE PURGE KEY_C_^0_%SPC 3_]_#_^0JLLUV4 ADC LBUNIT_'LOGICAL UNIT OF JOB PROCESSOR FILES_2_^0_%SPC 2_]_#_^0_%EQU JBFLV4(500)_"NUMBER OF JOB PROCESSOR FILES_8_^0_%SPC 1_]_#_^0_%EQU FBASV4($7F2B-JBFLV4)_O_^0*_]_0_^0*_$NOTE - FILES $7FFD THRU $7FFF ARE RESERVED FOR THE MSOS_1_^0*_,VERIFICATION TESTS, FILES $7FF5 THRU $7FFC ARE_3_^0*_,RESERVED FOR FOREGROUND PSEUDO TAPES, FILES $7FF3_0_^0*_,THRU $7FF4 ARE RESERVED FOR THE TEXT EDITOR, AND_1_^0*_,FILES $7F2B THRU $7FF2 ARE RESERVED FOR RPGII._3_^0_%SPC 2_]_#_^0_%EQU PKEYV4($3030) JOB FILE PURGE KEY_C_^0_%EJT_]_'_^0*_*P R E S E T_!R E G I O N_J_^0*_]_0_^0*_*PRESET PROTECTED ENTRY POINTS FOR USE BY UNPROTECTED PGMS_*_^0*_]_0_^0APRSET EQU APRSET(*)_Z_^0_%ENT JPRET_] _^0_%SPC 2_]_#_^0*_*J O B_!P R O C E S S O R_!P R E S E T_<_^0_%SPC 2_]_#_^0_%EXT JPRETN_]_^0_%ALF 3,JPRETN_[_^0JPRET ADC JPRETN_'JOB PROCESSOR RETURN_A_^0*_]_0_^0_%SPC 2_]_#_^0*_*S N A P_!D U M P_!P R E S E T_D_^0_%SPC 2_]_#_^0_%EXT SNAPOL_]_^0_%ALF 3,SNAPOL_[_^0_%ADC SNAPOL_'REGISTER SNAPSHOT_D_^0*_]_0_^0_%SPC 2_]_#_^0*_*F I L E_!M A N A G E R_!P R E S E T S_<_^0_%SPC 2_]_#_^0_%EXT DEFFIL_]_^0_%ALF 3,DEFFIL_[_^0_%ADC DEFFIL_'DEFINE FILE_J_^0*_]_0_^0_%EXT RELFIL_]_^0_%ALF 3,RELFIL_[_^0_%ADC RELFIL_'RELEASE FILE_I_^0*_]_0_^0_%EXT DEFIDX_]_^0_%ALF 3,DEFIDX_[_^0_%ADC DEFIDX_'DEFINE INDEXED FILE_B_^0*_]_0_^0_%EXT LOKFIL_]_^0_%ALF 3,LOKFIL_[_^0_%ADC LOKFIL_'LOCK FILE_L_^0*_]_0_^0_%EXT UNLFIL_]_^0_%ALF 3,UNLFIL_[_^0_%ADC UNLFIL_'UNLOCK FILE_J_^0*_]_0_^0_%EXT STOSEQ_]_^0_%ALF 3,STOSEQ_[_^0_%ADC STOSEQ_'STORE SEQUENTIAL RECORD_>_^0*_]_0_^0_%EXT STODIR_]_^0_%ALF 3,STODIR_[_^0_%ADC STODIR_'STORE DIRECT_I_^0*_]_0_^0_%EXT STOIDX_]_^0_%ALF 3,STOIDX_[_^0_%ADC STOIDX_'STORE INDEXED RECORD_A_^0*_]_0_^0_%EXT RTVSEQ_]_^0_%ALF 3,RTVSEQ_[_^0_%ADC RTVSEQ_'RETRIEVE SEQUENTIAL RECORD_;_^0*_]_0_^0_%EXT RTVDIR_]_^0_%ALF 3,RTVDIR_[_^0_%ADC RTVDIR_'RETRIEVE DIRECT_F_^0*_]_0_^0_%EXT RTVIDX_]_^0_%ALF 3,RTVIDX_[_^0_%ADC RTVIDX_'RETRIEVE INDEXED RECORD_>_^0*_]_0_^0_%EXT RTVIDO_]_^0_%ALF 3,RTVIDO_[_^0_%ADC RTVIDO_'RETRIEVE INDEXED-ORDERED RECORD_6_^0_%SPC 2_]_#_^0*_*F I L E_!M A N A G E R_!F L A G_!P R E S E T_4_^0_%SPC 2_]_#_^0_%EXT FMPFLG_]_^0_%ALF 3,FMPFLG_[_^0_%ADC FMPFLG_]_^0_%SPC 1_]_#_^0LPRSET EQU LPRSET(*-APRSET)_S_^0_%EJT_]_'_^0_%SPC 10_]_"_^0*_*S Y S T E M_!L I B R A R Y_!D I R E C T O R Y_4_^0*_]_0_^0*_8COMPILED FROM *Y, *YM BY SYSTEM INITIALIZER_*_^0SLDIRY EQU SLDIRY(*)_Z_^0_%END_]_'_^__ END/