~~ I>~~~~~~~~~ q  I>~~~~ .TITL DP3DB .NREL .ENT DP3DB .EXTN DP2DB,DKPDC "D*400+"P ;KEY CODE FOR DISK PACK MPDCB  ;MAP DCB ADDRESS -1  ;NEXT DCB IN CHAIN .BLK 1  ;NUMBER OF LAST BLOCK .BLK 1  ;BYTES IN LAST BLOCK DP3DB: DKPDC  ;DCT ADDRESS 3  ;UNIT NUMBER .BLK 2 STCMK  ;UNIT RELEASED .BLK 2 DP3DB  ;SYS.DR DCB ADDRESS .BLK 1 0 0 0 .BLK 1  ;NUMBER OF LAST BLOCK .BLK 1  ;BYTES IN LAST BLOCK MPDCB: DKPDC  ;DCT ADDRESS 3  ;UNIT NUMBER .BLK DCBLA-DCBCA+1 DP3DB  ;SYS.DR DCB ADDRESS .BLK 1 .END *U*U*U*UGaQ