DLRP @\.CBT ) !#DL 4J24999-16245 REV.1932 790917 RTE-IVA (& RTE-III) EXEC COR.ADLSUB;`dcF+)cϔ t Ct0D/,t0,cD.t3$'( -36&d D,t1#01`Pc$$&*~ 1DLSUB cREV. 1938 790917 RTE-IVA @DLSUB <?I.FMP .FDV .FAD .FSB .MPY .DIV .DLD .DST ..MAP.ENTR.DIO..RIO..IIO..IAY..DTA..GOTO FLOATEXEC IFIX #6LOGLUGETSTREIO NAMR STGFD ISOL8 FSTAT LURQ IFBRKJULIANAMCKALPHAASCIIIGET PURGE!IFMGR"AMOD $`C::`Cm J!`Xd}% `Am M `Fb`Am N`B`B`Bm O`Am} < `Em Q`A ?:: `G| 5`PE_0 Wt Vd V  `J5@ (" /DL - REV 1932") :`^ᢊd X,, +  @t Yd At Zd =t [d Xt \d ]t ^d `D Vt _$ a bd c.`YZTt ed dPT e, ,d IT b,,d V  <`n$ (/" ENTER: Namr filter[,List dev.,List opt.,Special opt.,Reverse ""filter,ALL]"//" WHERE: Li<`n;)st opt. is ,Special opt. is"6X",Reverse filter is,"/7X"'OF' LIST OFF ,'HE' EXPAND HEAD<`nWING ,'RF' Rev. NAME FILTER"/7X"'OP' OPEN FILES ,'FC' FILE CNT & SIZE ,'RS' Rev. SC FILTER"<`ne/7X"'PU' PURGED FILES,'BO' BOTH 'HE' & 'FC','RT' Rev. TYPE FILTER"/24X",'SC' SCAN SEC CODE <`n_M ,'RA' Rev. ALL FILTERS"/24X",'PU' PURGE FILES"/24X",'DI' DIRCT. LOCATION"/7X"'EN' END OF DI3`gq~R. , # OF FILES TO LIST"//7X" ALL PARAMETERS OPTIONAL (EXCEPT NAMR FILTER)"/) `NE, d XT b, ,8d V &`Pg(" ENTER FILE NAMR FILTER : _") ;`d&, A _0 adt bd XT b,7, >$ b Q,d AD St S $K SK <``oJ6d =t gd X T g,U,d iD Qt hd At j b h$ ? A j kd X T j,i,ud i<`] jD ht kd hT b,td ht k,xd iD kt kd kB  ID At ld At jd jD mtd jD n;``dd jD At jXD l, $ I =t gd XT g,d it Pdt odt R $ G p;`[Pt gd gD X,dt N,8d =t gd AT g,dt q,8dt U,8dt T,8:`^ ^¶d At jd jD r T s,ζd tt 6d jD r T u,ضd tt 7d jD r T v,;`]d tt 8d jD r T w,,d tt 6d tt 7d tt 8d jD At jZD =,d xT U:`^h,d At Z(" VETO OPTION ? _")"`TiCI A _ ~6 d T ~,Qd At Od V dW`QLd(" ENTER MASTER SECURITY CODE: _")0`^Wd At Q_ A$ V  g6 QT,n,ud V ut,6`Qu(" ILLEGAL MASTER SECURITY CODE") *`Vud t Md AT O,~,d X T R,B,d V 0$`Z(" YOU MUST SPECIFY A CARTRIDGE FOR THIS OPTION _") <`bvd V  R,~d Xtd At $ A @ T X,,d D At D ,d:`^t d iD t d X T R,P,d RD X,,d At [d Rt Rd At  [ :`cб" @T R,,  A @t $ = @t Rd t J,d PD At D '`U,d t d AT [Z,d Bt d V 0  R`Q,(1X,A2" = ",I5," IS NOT MOUNTED") <`\, *d XT R, d At ,d iD Zt d t Td tt 4d Xt Pd At >d t d AT Z;`b,!,&d >D nt o,sd AT >,-,6  A J" @t  I J @t d AD J<`_jAt Jd t d Xt d Xt d IT ,O,Sd t d At [$ A = 4P d ZD A,a<`_s`,>d T ,h,d At d D t  A Ed D At ZD =,jd <`bmItd@t d At d FD t  A ET X,,d D t  $P A E<`]d D At D G,d Gt ,d iD t dCt dDt dFDD d Xt d XTB;`e,,d i  dBDCt d   d   d I 0   dE<``:3t d  6 @D it d IT Z,d D t d qT V,,'$ q At d XT !`SyrZ,,'d XT \B,d V 0 q`L~(1X"WAITING FOR LU# "I3);`aZd At \ $ X I X $P" , *,,d dT Tt ed T T4 et d |T T4 9``7t 4d t$ 4,>,mAd q JJd ZZD A,P,md T M,W, `Ef(67X,6A2) `UDWd q lB  C0FB <`n0(1X,31("*"),5X,3A2,5X,31("*")/32X,"CR=",I5," LU=",I4//30X,"SECTORS/TRACK = ",I3/18X,"NEXT TR+``ACK = ",I3,10X,"NEXT SECTOR = ",I3/28X,"BLOCKS AVAILABLE = ",I6)`Mjl,d T M,yd q &y`NX("**** FILES PURGED ON ***")-`ZNyd T M,,>d <D X,,d q   %`[ (/25X,5("*"),5X,3A2,5X,5("*")/30X,"CR=",I5," LU=",I4/)<`_d It d At d Xt d Xt d Xt d XT T,d Xt d t   A$P ET X;`c4,,b  A ED X, B,  $ p ED t d }T U,,d {T U;`aKt ed T  e,඀,d {T U,,d XTZ,,  A& Et<`cѠ G& k d 6t 9d XD ,d 6t 9d XD P, ,d 7Bt :  $ ET o;`ajZ,d 7t :d iT N,&,8d 8Bt ;  $ @ ET NZ,8d 8t ;d : 9<``: ;t 5d 5,@,d |T T,G,d ZD nBt  $ Ed AT Z,Z,w<`_{7Zd At d iD Zt fd D nt  E,p,d D At ZD f,_d AD Z$`S yPt Zd ZD B,,d iD ZBt Zd V 90 Z`Tn9(" /DL : MORE THAN "I4" SECURITY CODES")<``h,6d T U,,d At d D t  ET X,,d D At D p;``,,d iD Pt d XD ,,d }T Ut e  A ED X e,,<`c6u̴d At $ @t  $Z Ed PD At D =X,d D 6 t d iD <`cB6 `4 t  @ @td 4 d AD t d D Y,,  A ET i;`\,,d AD t d AD t d D At D D,d At d AD t d 6 ID it <``.d D ,5,Hd T ,<,bd iD t d  ID t d  t d :`cbgN  0  D t a A $= , d {T Ut e d T 4 e,o,vd T;`_,qD t d t ,Dd iD t d D t d  I0  d D t d t$ 4`J,,d q &M `UޝM(23X,"DIRECTORY ENTRIES AVAILABLE = ",I5/)`P@  ,d q b À`Ub(/23X,"BLOCKS AVAILABLE AFTER PACK = ",I6)`Nd T B,d q w0 %`[Q=w(17X,"DIRECTORY ENTRIES AVAILABLE AFTER PACK = ",I5/) `J`Nd D X,Ѣd q  `EyĶd D t `B´d At `H$ɶd D At D ,`Qd(30X,"BAD TRACK LIST"/6(35X,I3/)) ;`_Kф , $d XT ,, d |T Tt ed {T UZ e,, d <D X,, `FYYd q <`nT(3X,"NAME",3X,"TYPE",2X,"BLKS\LU EXT RECLEN",3X,"SECURITY",3X,"TRACK",2X,"SECTOR OPEN TO")<`cd {T U,,d }T U,,$ d At d it $ @ @t d ;`_Z D t d   `D At d ˶ t d AT ,1,@d ̠ T ,8,@<`aF8d T ,?,@,LH$ A = 6 d t d t Ͷd  t d {T UZ,V,r <`e ,Y$ @ E T X,dB,  $ G E  `t ΢d ,,ϴd XT,~,;`gO~  A$P ETt e $ I EZT4 et   =$P ETP4 ,<`cF, Td {T U,,  G E 6 `t d D ,d t d { T U,:`cȴP,d , ,, d XT,, T  D " ET X, $ D Et<`h`qd  $ Et  A " ET i,  $ A Et d ;`hK" $ p Et   p$ E  I  G 4 Et $ G E d {T U;`c ;t ed T TZ4 e, E, f  D& Et d iD Ɇ E  H Et d <`_ ^ G Et d d T t ed {T U e, ud AD t d T%Z, |, d A<`bo }Bt  $ A Dt d Ӷ d D At D =, ~d At d D t  ET X;``W , , d D Bt  $ E D t d At d AD t $ Dt d D ;`_ D it  ض d D At D =, d Ct ٶd D t  EPt d X , ;``+{ ޶d t d AD t   & = Dt d AD נBt  $ = D ۶4 d AD t נd I;`^ ZD , d It d At d AD נBt  $ Dt d Ӷ d D At D =, d D A<`^ t D p, d {T Ut e d XT  e, ., d iT Z, 5, Md At d D rt <`` :  $Z E d PD At D , 7d t, d X T , TP, d <D X, Z, &`[ Zd q  0 0`J y  & Dt  `B wd At `G d D At D =, y `B ud At <`_ d D At D Z, wd t ^, d ]t ^d AD φB K Kd T M, , d XT O`Oi Z, , Ͷd t d t d V  `P(" PURGE ? (YES, NO, ABORT) _") ;`d  A _ ~6 d T ~, Ŭ d T ~Z, , * !  $ " $ F Vd Xt ;`^&J ܶd Xtd T t ed {T U et d XT  , P,d D t ed XT `J  e, , d Z,,,1`e'D(2X,3A2,2X,I3,4X,I5," +",I2,3X,I5,3X,I6,"=",A2,4X,I3,4X,I3,4X,3A2,1X,3A2) :`c /   @$P ET Xt ed T TZ e, , -d <D X, B, d q  B  ;`j<9 '$ A Et ,B  $ I Et 6B  $ = Et @B  $ @ Et JB  $ p ;`jP Q6 Et T  D 6 Et ^  6 Et h B  $ H Et tB  $ G `DJ {6 Et ~`J   & Dt  `B d At `G d D At D =, `B d At .`X d D At D Z, d At d I t d ZD , d q & `J   & Dt  `B d At `GP d D At D =, `FLr d AD t d ID t +`T Ŷd D At D Z, d D At D =, d Xt d Xt ܬ ^`H%(&(64X,3A2,1X,3A2);`b ٴd T M, , d XT O, , d t d t ,  A 4 Et $ E;`i+ t !  $  A Et "  F$ V $ @ E T X, B,  p`H+ $$H E0 K K+``}(2X,3A2,2X,I3,4X,I5,7X,I5,3X,I6,"=",A2,4X,I3,4X,I3,4X3A2,1X,3A2)<`f g ,P, d <D X, 3, $ H E 4 t $ H E t d q $. ;`j R A 6 Et Z  I 6 Et d  = 6 Et n  @ 6 Et x0 `Nv | B  $ Et  `S8.(2X,3A2,2X,I3,4X,O3,I2,15X,I6,"=",A2) ;`apc d D t e d XT  e, , T " , $d D At D , d 2 I<`dJ 0  K #t $ K2 #t d I6 t d X6 Kd T T, ,  & o d ZD At e`P Ϣd <D X eB, d q A0  o Ѐ`SVA(" SECURITY CODE ",I6,"=",A2," HAS A")7`_ ߴ d dT Tt e d XT T4 et d {T U4 , , d q T 0   8`koT(/" TOTAL OF ",I4," FILES USING",I4," TRACKS AND ",I2," SECTORS (64 WORD SECTORS)"//) `I B, d V 0  Y!`X6(" DIRECTORY TOO LARGE MORE THAN",I5," ENTRIES")<`c d ZD At ed XPT < e,   = y6 id >D At >D ,d q  $$ ) = y i, *`Ni(17(" *"),"END DL",16("* "))`GԺ *Bd V 0 1$`ZQ(" /DL : PARTITION TO SMALL INCREASE SIZE OF DL !") `AF 1`Am =`Jnn @  `Am X`Aw ] `Bnf ``B) c??HE`Am i`B m$`Am p `G& r RFRSRTRAOF `DX z@ENSCPU `D_ YEc`Br `CC CRLUFC`A `Bnb `B $=`A `Am `C  `AA BO`An `AM OP`Av `Bu `C --DI `A; %`BmI -`B $ `A `Ae AB`B% $  `B~+ @`Anl ? YASCII 3c@ ASCII N.ENTR<`^Bd,d.Zt-d/t1D041,d/d2D-,d2t-`Lgd.T-,&d2t-4-`Aal,`C. ~`As2 " HNAMCK cREV. 1924 790614 CHECK FILE NAME @&NAMCKN.ENTR;``tttZttdtl |<,T,IT;`] P,-d,( <D,,<d,5<<,,||d,>PdD,i<`] =Zt[tlZttd,o|d,O|,d,VdDDt[t<`_Z,l"[<Z,i<,\tlZdD,yttd,,|9`_#yd,iZd,|d,dtDZ,,i[,|-+ 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& JULIA ocTIME ROUTINE A.T. 14JUN79 <<21MX ONLY!>> @JULIA 9EXEC .ENTR;`cgBKl6dl9L:>T<(