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.
53 lines
4.1 KiB
Plaintext
53 lines
4.1 KiB
Plaintext
BEGIN 00000100
|
|
COMMENT CUBE LIBRARY NUMBER IS J400005. THE PROGRAM NAME IS 00000200
|
|
"TAPEDIR/LIST". THIS VERSION DATED 5/8/68; 00000300
|
|
COMMENT LIST AND PUNCH A LIBRARY TAPE DIRECTORY ; 00000400
|
|
BOOLEAN PUNCHTOG ; 00000500
|
|
FILE LIBTAPE (1,200) ; 00000600
|
|
FILE OUT LINE 4(2,15) ; 00000700
|
|
FILE OUT PUNCH 0(2,10) ; 00000800
|
|
FILE OUT SPO 11(1,12); 00000900
|
|
LABEL CLOSEIT; 00001000
|
|
REAL MFI1,MFI2; 00001100
|
|
INTEGER DATE; 00001200
|
|
INTEGER I,J,SEQ ; 00001300
|
|
LABEL EOF ; 00001400
|
|
ARRAY A[0:200] ; 00001500
|
|
LIST LP(A[I].[6:6],A[I],A[I+1].[6:6],A[I+1],SEQ) ; 00001600
|
|
FORMAT SPF ("WHEN #NO FILE LIBTAPE OCCURS USE UL MESSAGE ", 00001700
|
|
"TAPEDIR/PUNCH ~"); 00001800
|
|
FORMAT FHEAD (A1," LOAD FROM ",A1,A6," -"/ 00001900
|
|
A1," DUMP TO ",A1,A6," -"/ 00002000
|
|
A1," REMOVE -") , 00002100
|
|
FEND("LAZY/GUY ; END .") , 00002200
|
|
FP(A1,A6,"/",A1,A6,",-",X55,I8) , 00002300
|
|
FL(A1,A6,"/",A1,A6,",-",I9) ; 00002400
|
|
SEQ ~ 0 ; 00002500
|
|
WRITE (SPO,SPF); 00002600
|
|
WHILE TRUE DO 00002700
|
|
BEGIN 00002800
|
|
READ (LIBTAPE,10,A[*])[CLOSEIT]; 00002900
|
|
MFI1 ~ A[1].[6:6]; 00003000
|
|
MFI2 ~ A[1]; 00003100
|
|
END; 00003200
|
|
CLOSEIT: 00003300
|
|
CLOSE(LIBTAPE,*) ; 00003400
|
|
WRITE (LINE[DBL],FHEAD,12,MFI1,MFI2,12,MFI1,MFI2,12); 00003500
|
|
IF PUNCHTOG THEN 00003600
|
|
WRITE (PUNCH,FHEAD,12,MFI1,MFI2,12,MFI1,MFI2,12); 00003700
|
|
DO BEGIN 00003800
|
|
READ(LIBTAPE,*,FOR J ~ 0 STEP 1 UNTIL 199 DO A[J])[EOF] ; 00003900
|
|
FOR I ~0 STEP 2 UNTIL J-2 DO 00004000
|
|
BEGIN 00004100
|
|
SEQ ~ SEQ + 1 ; 00004200
|
|
WRITE(LINE[DBL],FL,LP) ; 00004300
|
|
IF PUNCHTOG THEN 00004400
|
|
WRITE(PUNCH,FP,LP) ; 00004500
|
|
END ; 00004600
|
|
END UNTIL FALSE ; 00004700
|
|
EOF: WRITE(LINE[DBL],FEND) ; 00004800
|
|
IF PUNCHTOG THEN 00004900
|
|
WRITE(PUNCH,FEND) ; 00005000
|
|
END . 00005100
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %% % % % 00005200
|