mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-02 17:44:40 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
72 lines
5.6 KiB
Plaintext
72 lines
5.6 KiB
Plaintext
DCMAP 000101AA 00000100
|
|
00000200
|
|
00000300
|
|
**********************************************************************00000400
|
|
PLEASE NOTE THAT THE BURROUGHS CORPORATION ASSUMES 00000500
|
|
NO RESPONSIBILITY FOR THE USE OR MAINTENANCE OF THIS PROGRAM. 00000600
|
|
**********************************************************************00000700
|
|
% 00000800
|
|
THIS PROGRAM WILL PROVIDE INFORMATION ABOUT A SPECIFIED DISK FILE TO 00000900
|
|
A USER AT A REMOTE TERMINAL. 00001000
|
|
% 00001100
|
|
BEGIN 00001200
|
|
ALPHA FILE OUT TWXOUT 14(2,8); 00001300
|
|
ALPHA FILE IN TWXIN 14(2,8); 00001400
|
|
ARRAY A[0:2], B[0:6]; 00001500
|
|
FORMAT F1 (X8,A1,A6), 00001600
|
|
F2 (X8,"TYPE MULTI FILE ID",A3), 00001700
|
|
F3 (X8,"MFID",X10,A1,A6,A3,), 00001800
|
|
F4 (X8,"FID",X11,A1,A6,A3), 00001900
|
|
F5 (X8,"RECORD LENGTH",I7," WORDS",A3), 00002000
|
|
F6 (X8,"BLOCK LENGTH",X1,I7," WORDS",A3), 00002100
|
|
F7 (X8,"EOF",X10,I7," RECORDS",A3), 00002200
|
|
F8 (X8,"OPEN COUNT",X3,I7,A3), 00002300
|
|
F9 (X8,"TYPE FILE ID",A3), 00002400
|
|
F10(X8,"USER TYPE",X4,I7,A3), 00002500
|
|
F11(X8,"FILE NOT PRESENT",A3), 00002600
|
|
F12(X8,"NOT A VALID USER OF THIS FILE",A3), 00002700
|
|
F13(X8,A1,A6,A3), 00002800
|
|
F14(X8,A3); 00002900
|
|
FILE HUNTED DISK "MFID""FID"(1,30); 00003000
|
|
ALPHA USEDID, TEMP1, TEMP2; 00003100
|
|
STREAM PROCEDURE FIX(A,B); 00003200
|
|
BEGIN 00003300
|
|
DI:=B; DI:=DI+1; DS:=7 LIT " "; DI:=DI-7; 00003400
|
|
SI:=A; SI:=SI+7; IF SC EQL ALPHA THEN DS:=CHR; 00003500
|
|
SI:=SI+2; 6(IF SC EQL ALPHA THEN DS:=CHR); 00003600
|
|
END STREAM PROCEDURE FIX; 00003700
|
|
FILL A[*] WITH OCT5774, OCT577437; 00003800
|
|
USEDID.[2:5]:=STATUS(B[*]); 00003900
|
|
USEDID := USEDID & B[1][6:6:42]; 00004000
|
|
A[2] := A[2] & B[0][9:9:9]; 00004100
|
|
SEEK(TWXIN(A[2])); 00004200
|
|
WRITE(TWXOUT(A[2],5),F2,A[1]); 00004300
|
|
READ(TWXIN(A[2],10),F1,TEMP1,TEMP2); 00004400
|
|
WRITE(TWXOUT(A[2],5),F14,A[1]); 00004500
|
|
FIX(TEMP1,B[1]); 00004600
|
|
WRITE(TWXOUT(A[2],5),F9,A[1]); 00004700
|
|
READ(TWXIN(A[2],10),F1,TEMP1,TEMP2); 00004800
|
|
WRITE(TWXOUT(A[2],5),F14,A[1]); 00004900
|
|
FIX(TEMP1,B[2]); 00005000
|
|
WRITE(TWXOUT(A[2],5),F3,B[1].[6:6],B[1].[12:36],A[1]); 00005100
|
|
WRITE(TWXOUT(A[2],5),F4,B[2].[6:6],B[2].[12:36],A[1]); 00005200
|
|
FILL HUNTED WITH B[1].[6:42], B[2].[6:42]; 00005300
|
|
SEARCH(HUNTED,B[*]); 00005400
|
|
IF B[0] EQL 0 THEN 00005500
|
|
BEGIN 00005600
|
|
WRITE(TWXOUT(A[2],5),F13,USEDID.[6:6], 00005700
|
|
USEDID.[12:36],A[1]); 00005800
|
|
WRITE(TWXOUT(A[2],5),F12,A[1]); 00005900
|
|
END; 00006000
|
|
IF B[0] EQL -1 THEN WRITE(TWXOUT(A[2],5),F11,A[1]); 00006100
|
|
IF B[0] GTR 0 THEN 00006200
|
|
BEGIN 00006300
|
|
WRITE(TWXOUT(A[2],5),F5,B[3],A[1]); 00006400
|
|
WRITE(TWXOUT(A[2],5),F6,B[4],A[1]); 00006500
|
|
WRITE(TWXOUT(A[2],5),F7,B[5],A[1]); 00006600
|
|
WRITE(TWXOUT(A[2],5),F8,B[6],A[1]); 00006700
|
|
WRITE(TWXOUT(A[2],5),F10,B[0],A[1]); 00006800
|
|
END; 00006900
|
|
END. 00007000
|
|
END;END. LAST CARD ON 0CRDING TAPE 99999999
|