vSDLS4 c24999-16050 REV.1938 790919 @SSDLS4 <.MPY .DIV .DST .ENTR.DIO..IIO..IAY..DTA.FLOATEXEC CLRIORMPARLURQ CLOSE REIO GETRC CODE CREATOPEN WRITFLOCF READFPOSNTALPHAPURGEPARSE`Ano.`An{9`Aǵ/YE4`h REEL #: `T$P `Be`Anr2`SY20 PART NUMBER TYPE LABEL`Cny6<`bPD;D<d=T,d>td@Dt?dtAd %`["("24999-16050 1938 SOFTWARE SERVICE KIT SYSTEM 1000"/) `FGd `ND(/"/SDLS4: MAG TAPE LU = _");`d]d BC&BB> d@DBtD &4Dd=T., &Ed=t.d=tF`H޶dGtPd &`J|(/"/SDLS4: TASK: _");`a愒 >?P64dHTP,,dITPZ,, dJTP,, *dKTP,:`^J, dLTP,,zdMTPZ,, dNTP,, dOTP,$,dP;``J% TP,+,dQTPtSdRTP4S,8,dT TP,?B, d 0E`L("/SDLS4: INPUT ERROR!");`bcxE,d=T;,M,Td S,дdUT;,[,dd &c9@,d  `F@g&l;,<`n("/SDLS4: END OF TAPE") ("/SDLS4: BREAK AT FILE"I5) ("/SDLS4: ERROR"I4". PLEASE REFER TO LI `Fإ STINGS...") `Hymd uE`LD]("/SDLS4: FILE ERROR"I5)#`Ugu yE,Є dBV&;9,dWtXd `L)q("/SDLS4: LIST FILE: _");`c&, dYtEd2D=,,md> T9, dBV&;9 d$B=;9d; D=,`PD,F>T=Z,,d +`R+("/SDLS4: TAPE HAS NO LABEL!! ???");`Y݉,zdZD;D3`[UFֶD:tDDd:D>t:D],d. =d_D;DTY,;`Z,d=t`dGtd*Datdbd4DatdcddDatdGd=T2,0;`_!/,Nd@td=TZ,:detd*DftdDHE$0d48d=DE,m,\<`deNVE0$=48d=DE,\,m $cdB>;4P9d;, ,k>TdZ,q,xd `Er ?w`N?("/SDLS4: END OF DIRECTORY")<`Z"w,d9tgd\D;Dt:Dh,`FڶdmD;DtmDo,`M M(1X,I4,": "11A2,1X,27A2):`cʬ脒E4P-d=DE,,md>D`t`,\E&>d=DE, ,m $Epqr<`au 4sds *tDdqDDDett $Etd;ZD=, $,Fd., _,ж, _dutX `FM ,d Z 2`RZ("/SDLS4: ENTER BATCH-FILE NAME: _") `P 2, deT2, :,?d>t.d l B `Fl("ECHO? _") `G_ Bd r Iv`Br(A2);`c8 IdwTv, Qdxt7 Y$E0*44P8d=DE, _,m f$EP+yd=ZDE, l,m;`^? ldeTy, s,dzTP, z,zdytd{tX, d>tF, *d{tXd t `O9t("/SDLS4: LOAD INTO FILE: _") ;`^6 , d=t3d>t:d:D|t dG Ͷd:D>t:D+, d=T., , $ EP}%`T 4Pyd=DE, ,mdeTy,?, d  `T|("/SDLS4: ENTER STOCK # OR FILE #: _") <`c  >?P4Z}d6, , fdiPT~, ,?ddD|TG, , X dP  ;`_ 4P3d3D>, ,?d3D9, , d9B dD3td3D9PtdD, ;`b H , " dB$V;9d>t:d9D3tD $ dBe;4P9d;D=, ,Fd:D>t:DD;`` , , Jd>t:d>Dt .d$BY;9d; D=, 5,Fd:D>t:D, ' C$dB<`e? @$e;9d;ZD=, J,F QdB=&;9d;D=,F, f $ _dB>;4P9d;D=, f;`]H" e ,Fd7, k, d>t:d:Dt d*D:t& v d:D>t:D, md `Ac `E d:D|t  `B= d>t:`G* d:D>t:D, `E d:Dt  `BK d>t:`H-L d:D>t:D,  `F(6A2,4X,6A2)<`]R dt6d>t:d*D:t td:D|TZ, , d:D>t:D, , d><`] t:d*D:t& td:D|Pt d , , d*D:t td:PD|D<`^ , , Xd:D>t:D, dxt6, _dD|TG, , d=TF, , ;`^ & tdD|Pt d , , F tdD|TtS 6td}D|t `G d S, F, _`NW(9X,"REV CODE DISCREPANCY:");`^ PdD|TG, &, fdD|t  , td}D|Dt 7"Dtd=<`` ; T, FdA  Fd=TF, M, fdD|t  S Ͷd}D|t  Z4 <`cg [ `Ee fEP4y iitd @Dtd=ttt:`G) d:D>t:D4, `FN d:D;Dt:D, `Fl ɶd:D;Dt:Do, `M&m(1X,3A2,": ",8A2,1X,27A2) ;`Z^ ׶d>tgd4t:dgDt d:D;D< d>Dgtgd:D>t:D, dgDt ͠dG;`ZZh d>Dgtgdnt:dgDt d:ZD;D< d>Dgtgd:D>t:ZDo, dgD;`^% t d= deT2Z, , 3d@td*Dft ͶdD d=T, $det -E0;`b )$<48d=ZDE,m, h ;E0$=48d=DE, A,mdeZT2tSdED=S`Jyg KB, UdA 0 U0`Qt(9X"DUPLICATE FILE NAME - - "3A2) ;`aG UdEt2d=T2tSd84S, b, f f&`d=t $ odB=;4P9d;D=, v, ;`bk vZd;D<t& }>Td, ,  $Ede, h >T4, , d=T<`bo , d>t0, h& >TY, , d=T0X, $ Ed=d=t0 >Te;`_o , , d=T, , d>td*D;D2 4d &PM :d :`h' <\ @d t Fd  LBd 2 Rd &P Xd  ^d  d;`hl dd  jBd M2 pd &P vd * |d G d d Bd r`Ba 0 <`n% (/" TASK FUNCTION"/) ("LABEL PRINT TAPE LABEL")("DIRECTORY LIST ALL FILE IDENTIFICA`Vٴ7TION ON TAPE")("REWIND REWIND THE TAPE") <`n3\("N PRINT CURRENT FILE POSITION NUMBER")("LL CHANGE THE LOG DEVICE, LU # WILL<`n( BE ASKED") ("LOAD LOAD A FILE FROM THE TAPE TO DISC") (" NAME & PART # OR FIL<`nE # WILL BE ASKED") ("BATCH GET LOAD COMMANDS FROM A FILE") (" TAPE FORMAT: NAM4`h`R") (" PART # OR FILE #") (" NAMR") `O\M(" .")<`n(" /E TERMINATES THE COMMANDS") ("UPDATE SAME AS BATCH,BUT MUST U<`nI<SE PART #. IT LOADS") (" FILES WITH LATER REV THAN THAT SPECIFIED IN")(" `W)j COMMAND FILE") ("END/EXIT EXIT FROM SDLS4") ;`^6 ,d>t:d:D|tdGd:D>t:D+,  >?P0+ d>t:Zd:D|iT<`])n Z, , d:D|td:D|4d:D|T, , d:D|td:D|;``h 4od:PD>t:D, d*t P/d/D>, ,?det2$ 9`a( $E0=48d=DE, , dTE, ,mXdEt2 6EXd & `N("PUNCH LU FOR LABEL IS? _")+`\? d dxt8,Є dBV&;9 &B>d &&`I}("/SDLS4: DONE!"/)`H,& )(+`An1`Bn42`C< c`Ao@`AC`LG DILOBAUPREN LLLAPUENEX `DkT?? `G3Y" % `FMa 1FILE  `Eh  1 `Bnn,`Au 3`BGwYE `Efz/E O `Cy+_`Cn `F7 SSRRAADD /`An`HU:,: "GETRC Fc VERSION 2 REV.1938 790919 @GETRC EXEC .ENTRIFBRK<`]IRdD(tGt:dT!,T",)ZT#,4,D,8d/tt t ;`[g"td":dd0d0dD"td1<,dl !,~;`_=dt t I+|;O$'dڔ4>d$3t<d$3t <d?,t?;`\ޓ#ZdD$Dl ,%d ,:d@tdAGdB:t dT,l ;`\?,E<\,,;2,Jd,itDl\,tDD$tCl  ,l ;`\'[ \C,`,[,dd",idZD#D#lDLdDD#L|,%\,xd;`^Tw,iDtCl  ,dTC,,dD$,d",iD! D#lDD<`\DdDDt,%d(tDDZtCl P, ,T9,dD#l",dD#;`\D#lDdDD#L|,%d l Zd!,iD#l ,iD#lL | <`_ץZL) ,id ZD:t@tl< \ ,GtAZ:tBt ,=@Q;`h.@QجtE$Ed ,i%99SSRRAADD2`f   P1ALPHA Qc REV A 750120 @ALPHAN.ENTR;`]SltKtEdEDtLtIdE TK,D,DtFdFDtMtJdPtG;`]xdLM<M ,@ ,3 <G, p4NM4NM,@dOtHdLtIIJ@IJ`I+<<I<J<H,7<F,<E, `Ca N