M
()BTC U/W-FOCAL:HEADER15.10.78?MB6BJC THIS PROGRAM WRITES THE PARAMETER BLOCK USED BY DECSYSTEM-8?M?CXBTC AND ALSO BY VERSION 7 OF DIRECT.  BLOCK 6 IS USED FOR THIS.?M?C5B^A "DEVICE NAME
 ";DO 3;FOR =1,5;D .5;IF (FRA(2)),.6?MDNB(T "NO ROOM FOR A PARAMETER BLOCK, SORRY."!;Q?MD+B2O I (C(1),C(2),C(3),C(4)):<>[1] .3;O I,E FRA(-1,1)?M?EDB<B;S SB=F(.5,1)+FRA(1);A "DEVICE LENGTH
 "DL?M?E	CFS F(.5,6) FRA(,279) FRA(1,643) FRA(2,-1) FRA(3,-DL+1) FRA(8,SB)?M?FJCPS FRA(4,-1) FRA(5,-1) FRA(6,0) FRA(7,FSGN(7-SB)) FRA(74,FDAY())?M?F*CUS S(0PS/8)=1,S(0OS/8)=2,S(0OS/12)=3,S(0DS/8)=4,S(0OS/78)=5?MGLCZS FRA(69,0);IF (SB-8)2.1;A "SYSTEM ID
 "I,D,"VERSION NO.
 "VN?M?G/C
A "RELEASE CODE
 "RC;S FRA(69,-S(I/D)) FRA(70,VN) FRA(71,	?+RC)?MHODJA "LOGICAL DEVICE NAME
 ";DO 3;FOR I=1,4;S FRA(63+I,F(.9))?MH/DTA "VOLUME NUMBER
 "VN;S FRA(68,VN);F I=128,255;S FRA(I,);N?MIOD^A "DESCRIPTIVE LABEL
"!;F I=128,254;S C=FRA(I,FIN());GO .5?MI!D(S FRA(I,154) FRA(-1);T !;QUIT?M?I>D2I (C-154),.4;I (C-255),.6;I (C-141),.7;I (C-138),.8?M?J\D<S FRA(I,FOUT(92)),FRA(I=I-1,);I (FRA(I-1)-141),.6;Y -I?MJ	EFS FRA(I=I+1,138)?MKDEPT !;F C=128,I=I-1;I (FRA(C)-138),1.1
S FOUT(FRA(C))?M?K EZI (C(I)+	?),C(I)=;S -C(I);C TURN NULLS INTO ZEROS?MLFJFOR I=4,-1,1;SET C(I)=-	?; CLEAR OUT PREVIOUS CHARACTERS?M?L
FTIF (255-C=FIN()),.3;IF (141-C),1.1;SET C(I=I+1)=-C;GO .4?ML?F^SET C(I)=-	?,I=I-FSGN(I);IF (C).2;GO .2+FOUT(92);RUBOUTS?M?F(IF (C(I)+	:),.*C(I)=-	?;GO .2; REPLACE A 	:	 WITH A NULL?M?L?L D HEADER;L S HEADER;E?M?()-	0)*2^(5-J)?M?ML C LTRHED?M?MO C?M?

Note: Lines longer than 256 characters were wrapped