~~ I>~~~~~~~~~ q ~ q~~~~ .TITL DP0DB .NREL .ENT DP0DB .EXTN DP1DB,DKPDC "D*400+"P ;KEY CODE FOR DISK PACK MPDCB  ;MAP DCB ADDRESS DP1DB  ;NEXT DCB IN CHAIN .BLK 1  ;NUMBER OF LAST BLOCK .BLK 1  ;BYTES IN LAST BLOCK DP0DB: DKPDC  ;DCT ADDRESS 0  ;UNIT NUMBER .BLK 2 STCMK  ;UNIT RELEASED .BLK 2 DP0DB  ;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 0  ;UNIT NUMBER .BLK DCBLA-DCBCA+1 DP0DB  ;SYS.DR DCB ADDRESS .BLK 1 .END *U*U*U*U cp