DLRP @\.CBT # DL LJ24999-16244 REV.2024 800605 RTE-IVB @%IFGLU2tJ$=>(C6Jd(DBlLF ,%,%9`i-#$GtI+HI. @.;$./012~0y# qDLSUB c REV.2024 800605 RTE-IVB @DLSUB W<?Y.FMP .FDV .FAD .FSB .MPY .DIV .DLD .DST ..MAP.ENTR.DIO..RIO..IIO..IAY..DTA..GOTO FLOATEXEC IFIX &<TLOGLUGETSTREIO NAMR STGFD ISOL8 FSTAT JULIAIFGLULURQ IFBRKASCIICNUMDNAMCK ALPHA!MOD "IGET #PURGE$IFMGR%  iAMOD 'ABREG(`C!::`Cp!`Xe `Ap `FbN`Ap`B`B`Bp`Ap `Eq`A$::`Bq `G`A`C$ `Ap`A$- `Ap`PU^T0T]tĢd d`J1(" /DL - REV 2024") ;`\ddU,j,WU tdtȶdtdtd˶tdtdtжdtd<`_$tdtdDİt6dTtdT,,d T,, `FSd 2<`n[2(/" 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<`nING ,'RF' Rev. NAME FILTER"/7X"'OP' OPEN FILES ,'FC' FILE CNT & SIZE ,'RS' Rev. SC FILTER"<`ni/7X"'PU' PURGED FILES,'BO' BOTH 'HE' & 'FC','RT' Rev. TYPE FILTER"/24X",'SC' SCAN SEC CODE <`nO ,'RA' Rev. ALL FILTERS"/24X",'PU' PURGE FILES"/24X",'DI' DIRCT. LOCATION"/24X",'DS' DISC US<`nVpAGE SUMMARY"/7X"'EN' END OF DIR. , # OF FILES TO LIST"//7X" ALL PARAMETERS OPTIONAL (EXCEPT `Hj]FNAMR FILTER)"/) `N,dT,,d N`Pl6N(" ENTER FILE NAMR FILTER : _") ;`db0dtڴdT,ĬW, $,dDt $Uy |;```&dtߴdT,,%dDtdt $dT,,<`^dDtdTZ,dt,dDtd 6DtdD,dt;`^1dtdDthZdDhdPDtD, *6tdT,3dt<`_3dT,;dtdtdtVT,Gdt LPtdD,T;`]Rdt,dtdT,`dtd T,hdtdT,pd;`\otdT,xdt,Ŷdt,dt,dtdDT,dt:`^ ^PdDT,dtPdDT,dtPdDT,,d<`]NtdtdtdDtD,,dTZ,dtdT,dt<`^1ƴ dTtݴ dT4ݶtdT,dtd4tdtݢd,;`\#, dtdtжdtdtdtdTtdTtdT`Hr,, d &`P9(" OPTION NOT AVAILABLE TO YOU");`beh,7 &dT,,d T,,dT,$,d *<`n(" **** CAUTION ****"/" YOU ARE ABOUT TO PURGE ALL FILES ""LISTED WITH THIS PROGRAM"/" DO YO`LU WANT TO PROCEED ? _") "`Tw*06dT,7,>d =,V`HZ(" DL ABORTED") `FX>d &D`J &(" VETO OPTION ? _")"`TDJ6dT,Rdtd 0X`Q0(" ENTER MASTER SECURITY CODE: _")0`^kXdt`$C hC6VT,o,vd Au,7`QA(" ILLEGAL MASTER SECURITY CODE") *`VyvdtdT,,dƠ T,B,d R0$`ZR(" YOU MUST SPECIFY A CARTRIDGE FOR THIS OPTION _") ;`d}<dt$C C6dt,dƶtdt  T,;`\,dDtD,dt dDtdTZ,,dD,ʶ,dt<`fB̢dtdt   $P T,,   "t   td 6`]t,d Dt ZD,d t dT,dt d l0 `Ql(1X,A2" = ",I5," IS NOT MOUNTED") ;`],VdT,dt,"dDtdtdtdtd T,),@,%`Tq,dTN,3,7dtdBtNd }0@<`n}(/16X"DISC CARTRIDGE UTILAZATION SUMMARY "6A2//25X"AVAILABLE"10X,"A F T E R P A C K"/3X,"C<`n RN LU LABEL SCT/ BLKS/ DIR."" %USED BLKS/ DIR. %USED NEXT LAST DIR"/19X"TRK"9X"EN`V@T."16X"ENT."10X"TRK TRK TRK"/2X,77("-")) <`_y@dtd,KK 6dtdtdT,V,[dDt,dT;`cv_,b,k  t $ tdDtdtdtdt ;``+$,^dZD,,dT,,dtdDth $hd;`\ DthdhdPDtD,d@t@dötdtdt dD t! !;```$PT,,d D"th $!hd Dt D,dt#,d;`^l޶D t#dt$dǶt%dt&dD%'dBD)dt+dT,,d<`h$))dDt+d$).d+.6B0d2026B,d$'.d;`f :$00.0440,486dt:d$:Dt;dT,F,r$K)`Wk?J6t$Pm?,V,?,?v6dT,6dTt<`bY d@T4ݶtdT4td$,,4Bd 0dD`I},,dT,, `EkC(67X,6A2) )`^EXd ΄B@ Ɔ0:,6<`n6(1X,31("*"),5X,3A2,5X,31("*")/32X,"CR=",3A2," LU=",I3//30X,"SECTORS/TRACK = ",I3/" 1ST TRACK<`n+. ="I4,2X"NEXT TRACK ="I4,10X,"NEXT SECTOR = ",I3/18X,"LAST TRACK ="I4,11X,"DIR TRACKS = ",I3!`X9\//28X,"BLOCKS AVAILABLE = ",I6,2X,F6.2,"% USED")`Mζ,dT,d &t`N]t("**** FILES PURGED ON ***")<``X۴dT,,dD,,dTZ,,dD,B,d 0`Hwi"@ &`\$H(/25X,5("*"),5X,3A2,5X,5("*")/30X,"CR=",3A2," LU=",I3/) <`_dtAdtBdƶtCdtDdtEdT,dtdAtF $PFT;`crM",%, FD,2B,C $FDDtDdT,C,dT;`aEtdT,P,dT,W,dTNZ,^,w &Fth<`cf mhN&GdtdDG,wdtdD,},dBt $HFT;`aZ,dtdT,,dBt $FTZ,dtd<``td,,dT,,dDBt $HF dT,,<`_ʶdtIdDt޶dIDt HF ,,dIDtIZD,dD$`S1UPtdD,,dDȴBtd 0`T (" /DL : MORE THAN "I4" SECURITY CODES")<``,7dJT,,)dtKdHDKtL LFT,,)dKDtKD;``/y,,dDPtdD,),dTt FD,<,<`c <dtM $TMBt  M$ZF dMPDtMDX,>dD6OtNdDF<`c6_64NtN TBt d4N dDBtBdBD,v, FT;`\,,dDEtEdDCtCdFDtFD,dtAdDtd$ 6DtL<``3IdDL,,d%T,,dᶀDtd$ DtdPtLdP:`c  0$$DLt $, dTtݴ dT4,,d;`cDEtdt,ydDBtBdCD;tQdD 0,R4R408TdE<`g D;tVdT, , V0,R, , :d  9" "@$0,Q:`k)} +06RVT&0:, d  VB B@$,Q06&:<`n/(1X,3A2,I4,1X,3A2,I4,I7,"/",I5,F7.2,I7,"/",I5,F7.2,I6,I6,2X,I3) (1X,3A2,I4,1X,3A2,I4,I7,"/",`PUI5,F7.2,2X,18("-"),I6,I6,2X,I3) `N' V d$, \B, d 0 dQ`U@(23X,"DIRECTORY ENTRIES AVAILABLE = ",I5/)`R d,R, vd  vRT'`]%(23X,"BLOCKS AVAILABLE AFTER PACK = ",I6,2X,F6.2"% USED") `N) vdVTQB, d "0 V%`[V"(17X,"DIRECTORY ENTRIES AVAILABLE AFTER PACK = ",I5/) `Ju d#D, d = `Ez d D"t  `B dt `H6 d Dt D#, `Q=(30X,"BAD TRACK LIST"/6(35X,I3/)) ;`_  W,QdTB, ,7dTtdTZ, ,dD, , <`b dDtdZ, d  "@P dD, , d, , d `EZq   <`nU(3X,"NAME",3X,"TYPE",2X,"BLKS\LU EXT RECLEN",3X,"SECURITY",3X,"TRACK",2X,"SECTOR OPEN TO")3`g&^(3X,"NAME",3X,"TYPE",2X,"BLKS\LU EXT RECLEN",3X,"TRACK",2X,"SECTOR OPEN TO");`aj d, , !$ TBXd, , dZtYdXDBtZdZ 6t[" Z6t\d[<`[ n Pt]d\D, dD]t]dtKdKD^t d dKDtKD, dt_dtK<`[h, d\t`dD_t_dtad_tbdtdDbtcdƴPtddD`, 7dtddTb:`h :, >, Tc4t $TbP t Tc4t* $Tb:`c bZ*t T&cte Tb e, dtd_ Tb, ;`\ , ddD[Dtad, dD_t_dT, , dDataddD[Ta<`^-T , , dtadD`t`dtfdYDfD^t Tfb dfDtfZD, d<`]3' PDYD^T, dDYD^t dg dDYthdDYtY dT`tݴd]TK<`_z ܢ, , dZDY, ,  6hdtYdbDtbDB, (dKDtKD]<`a , dTY, dDYtL 6L,'dtidtMdtj TMtkdk<`a. B ODtdmkB ضDtldnktdTM, 7, FdoT, >;``r =, FdpT, E, F, R$ N &dtodtpdktqd, Z, v <`eb ]$l T, hB, $l tqdq, , ʹdT, , ;`g  $PlTt $lZT4t $PlTP4, <`a Z, ad, ,  &lt  $ڋrtjdjZDs, djZtsd, , Ԣdj,:`cO , ,dTZ, , a $PlT, lt d d;`h6 B, $Hlt dB  $Hlt $  lTB,  :`h+ $lt)dgB) $lt) l  ) lBt) <`cG =$ln)dTtdT4, P, q l6t)dDl4) <`aE `$lt)d) $lt)d)dBTMZ, {dDMtMdT, <`a , dtt utt)d)dtDttD, dtdHDtL L$l<`a6 T, , ,# wDtvdHDtL Ll"ytxdxDvtL# LD=tzd:`^g ötKdD{tL uLK6t)dKDzDᰚt|# |)dKDtKD, dt}dH<`b DtL $Llt)d), d~t}dD{tL uL&t)dD{@t| <``>U $u|4})dD{Pt{dD{, dtdtKdD{tL uLK4t)<`^ #d)dKDtKZD, dPDtD, dTj, ;,d Tj, B<`_ A, ZdtKdKDBt) $Kl)dKDtKDH, Ddt,dTs, a3`bu `P,dD, g, d & 0s0`J  u&Kt  `B dtK`G dKDtKD, `B dt<`a dDtDZ, dDsBdt,dtΆ6dT, , "`QX dT, , dtdBtd N0 `P,N(" PURGE ? (YES, NO, ABORT) _") ;`a.P ɶdt $dTZ, جdT, ,V0dsDiDti<`b3 ꄒ$ &% $dtsdtdBTMtdTq, P, dBDM"`P tdTqZ,,dq, , Ԡ, 1`e(E(2X,3A2,2X,I3,4X,I5," +",I3,2X,I5,3X,I6,"=",A2,3X,I4,4X,I3,4X,3A2,1X,3A2) *`_(2X,3A2,2X,I3,4X,I5," +",I3,2X,I5,2A2,I4,4X,I3,4X,3A2,1X,3A2) :`cl $PlTtdTZ,0,IdD,6B,:d  B ;`j?$ltDB $ltNB $ltXB $ltbB $l;`j i6tl l6tv Hl6t B $ltB $l `DT,6t`J u&Kt `BdtK`G"dKDtKD, `Bdt;`cݴdDtD, ldtdtd{D,d `J} u&Kt `BմdtK`G"ᶊdKDtKD,`Fd϶dDtdDtL+`T52越dDtDLZ,dDtD,dt{dt`H%(64X,3A2,1X,3A2)`H%(52X,3A2,1X,3A2)<`c6dT, ,:dTZ,,dtdt,  &lt) ;`iHlt*$,$)* lt9%:$ď9 $l T,H,+``~(2X,3A2,2X,I3,4X,I5,7X,I5,3X,I6,"=",A2,3X,I4,4X,I3,4X3A2,1X,3A2)$`ZD(2X,3A2,2X,I3,4X,I5,7X,I5,2A2,I4,4X,I3,4X3A2,1X,3A2)<`fFHP,dD,O, $l 4t $ltd $ ;`j<nl6tv l6t l6t l6t0`N2i B $Hlt`S9(2X,3A2,2X,I3,4X,O3,I2,15X,I6,"=",A2) `N_"(2X,3A2,2X,I3,4X,O3,I2,2A2) <`_`dBDMtݴ dTs,, a"W,QdMDtMDB, diDBtBd$ ;`fF2&t'&Z&tdtddT,,'$$`TdDtdD,d ^`S\^(" SECURITY CODE ",I6,"=",A2," HAS A")7`_ dTtݴ dT4ݶtdT4,,'d q0B8`kq(/" TOTAL OF ",I4," FILES USING",I4," TRACKS AND ",I3," SECTORS (64 WORD SECTORS)"//) `IB,'d 0'!`XS(" DIRECTORY TOO LARGE MORE THAN",I5," ENTRIES")<`b}'dDtdƠPT,776dDtD,Bd,GG &d`M*[I,K,Qd &BQV$`N(17(" *"),"END DL",16("* "))`G VBWd 0]$`Zn(" /DL : PARTITION TO SMALL INCREASE SIZE OF DL !") <`bl]W(bdT,i,dT,p,$v  tdtdTP,`KC*B,yd 0 "`Y (" /DL :"I5" ERROR TRYING TO MAP LU"I3" INTO SST")`L B,7d 0`K(2A2,2X," DL ABORTED")`A.W`Ap`Kr!(@ `Aq`A `A  `A `A  `A `A5 `Bq`B??HE`Aq!`C|$M`Aq1`MOSFLFNORFRSRTRAALOFENPU`H@^ DISC `DYEc`Bv `E CRLUFCDS `AS`B `D$? `A" G`BՈ8d`Bq= `A@BO`AqH `AJOP`ByO`A^^ `Ag--`By.m`Aqr`A^u `Augw`Ary`Bp~-`Be$ `A `B Y A `B$:`A`Ar?`B[IO12WW ASCII ]cCHECK FOR LEGAL ASCII 790720@ ASCII N.ENTR;`^BdRtQdTtSdU,,0dVDQtXdQDW4X,,-dS<`]}_ZDYtXdZPDS4X,*,-d[dVDQtXdQD\4X,;PtQdYDS,CdYtSdTZDS,KdYtSdQ4S`AaR `DT _ `D;Y ` ~" 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[,|-+ wALPHA Zc REV.2020 750120 @ALPHAN.ENTR;`]&tSZtWtMdMDtTtQdMTS,J,JtNdNDtUtRdY;`]> tOdTUP<U ,F ,9<O,"p4VUV<WU4VU,FdXtPdTtQ'`Pm=ZQR@QR<Q<R<P,=<N,<M, dW `DaV& JULIA ocTIME ROUTINE A.T. 14JUN79 <<21MX ONLY!>> @JULIA 9EXEC .ENTR;`cgBKl6dl9L:>T<( IFG.LU vc92067-16125 REV.1903 780926 @ FG.LUl$SMVE.ENTP$LIBR$LIBX:`cOtE6tpd7 ,pcD8ƒԀt=$:=;t?;`_#T@,DDA6״Zt TB,F<>>BT,F<?,-d9,p* .Z- ;`^ cB<EtCtl 6T6|T|C,JdslELC ,pdrlC l ,p<E$`V`Pd4|mL|uo$t=u:B