mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-03 01:47:56 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
88 lines
6.9 KiB
Plaintext
88 lines
6.9 KiB
Plaintext
BEGIN 00000100
|
|
FILE IN OLD DISK SERIAL (2, 10, 150) ; 00000200
|
|
SAVE FILE OUT NEW DISK SERIAL [20:300] (2,10,150, SAVE 99) ; 00000300
|
|
FILE IN CARD (2,10) ; 00000400
|
|
FILE OUT LINE 18 (2,15) ; 00000500
|
|
FORMAT X72I8 (X72, I8), 00000600
|
|
X90I8 (X90, I8) ; 00000700
|
|
ARRAY C, D [0:9] ; 00000800
|
|
INTEGER CS, DS, I ; 00000900
|
|
DEFINE READCARD = 00001000
|
|
IF CARDTOG THEN 00001100
|
|
BEGIN 00001200
|
|
READ (CARD, 10, C [*]) [EOC] ; 00001300
|
|
READ (C [*], X72I8, CS) ; 00001400
|
|
END#, 00001500
|
|
READOLD = 00001600
|
|
IF OLDTOG THEN 00001700
|
|
BEGIN 00001800
|
|
READ (OLD, 10, D [*]) [EOD] ; 00001900
|
|
READ (D [*], X72I8, DS) ; 00002000
|
|
END#, 00002100
|
|
WRITENEWC = 00002200
|
|
BEGIN 00002300
|
|
WRITE (LINE [NO], X90I8, I ~ I + 1) ; 00002400
|
|
WRITE (NEW, 10, C [*]) ; 00002500
|
|
WRITE (LINE, 10, C [*]) ; 00002600
|
|
END#, 00002700
|
|
WRITENEWD = 00002800
|
|
BEGIN 00002900
|
|
WRITE (LINE [NO], X90I8, I ~ I + 1) ; 00003000
|
|
WRITE (NEW, 10, D [*]) ; 00003100
|
|
WRITE (LINE, 10, D [*]) ; 00003200
|
|
END# ; 00003300
|
|
BOOLEAN CARDTOG, OLDTOG ; 00003400
|
|
BOOLEAN READOLDTOO ; 00003500
|
|
LABEL START, STOP, EOC, EOD ; 00003600
|
|
BOOLEAN STREAM PROCEDURE NOTALLBLANK (C) ; 00003700
|
|
BEGIN 00003800
|
|
LABEL EXIT ; 00003900
|
|
SI ~ C ; 00004000
|
|
2 (36 (IF SC ! " " THEN 00004100
|
|
BEGIN 00004200
|
|
TALLY ~ 1 ; 00004300
|
|
JUMP OUT 2 TO EXIT ; 00004400
|
|
END; SI ~ SI + 1)) ; 00004500
|
|
EXIT: 00004600
|
|
NOTALLBLANK ~ TALLY ; 00004700
|
|
END NOTALLBLANK ; 00004800
|
|
CARDTOG ~ OLDTOG ~ TRUE ; 00004900
|
|
READCARD ; 00005000
|
|
READOLD ; 00005100
|
|
START: 00005200
|
|
READOLDTOO ~ FALSE ; 00005300
|
|
IF CS LSS DS THEN 00005400
|
|
BEGIN 00005500
|
|
WRITENEWC ; 00005600
|
|
READCARD ; 00005700
|
|
END ELSE 00005800
|
|
IF CS = DS THEN 00005900
|
|
BEGIN 00006000
|
|
IF NOTALLBLANK (C) THEN 00006100
|
|
WRITENEWC ; 00006200
|
|
READOLDTOO ~ TRUE ; 00006300
|
|
READCARD ; 00006400
|
|
READOLD ; 00006500
|
|
END ELSE 00006600
|
|
BEGIN 00006700
|
|
WRITENEWD ; 00006800
|
|
READOLD ; 00006900
|
|
END ; 00007000
|
|
GO TO START ; 00007100
|
|
EOC: 00007200
|
|
IF NOT OLDTOG THEN GO TO STOP ; 00007300
|
|
CARDTOG ~ FALSE ; 00007400
|
|
CS ~ 99999999 ; 00007500
|
|
IF READOLDTOO THEN READOLD ; 00007600
|
|
GO TO START ; 00007700
|
|
EOD: 00007800
|
|
IF NOT CARDTOG THEN GO TO STOP ; 00007900
|
|
OLDTOG ~ FALSE ; 00008000
|
|
DS ~ 99999999 ; 00008100
|
|
GO TO START ; 00008200
|
|
STOP: 00008300
|
|
CLOSE (OLD) ; 00008400
|
|
LOCK (NEW) ; 00008500
|
|
END. 00008600
|
|
END;END. LAST CARD ON 0CRDING TAPE 00008700
|