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.
33 lines
2.5 KiB
Plaintext
33 lines
2.5 KiB
Plaintext
BEGIN 00000100
|
|
COMMENT THIS PROGRAM MERGES TWO CARD IMAGE TAPES ACCORDING TO 00000200
|
|
SEQUENCE NUMBER. 00000240
|
|
00000250
|
|
FIRST TAPE ALREADY HAS SEQUENCE NUMBERS - SEQUENCE NUMBERS 00000300
|
|
FOR SECOND TAPE SPECIFIED AT INTERVALS BY CARD IMAGES 00000350
|
|
WHICH BEGIN WITH A "$" CONTAINING STARTING SEQUENCE NUMBER 00000400
|
|
AND INCREMENTAL VALUE. IF COLUMN POSITIONS 71 AND 72 00000450
|
|
ON UNSEQUUNCED CARDS ARE BLANK, "%A" IS INSERTED; 00000500
|
|
00000600
|
|
FILE IN TAPE1 (2,56,10); 00000700
|
|
FILE IN TAPE2 (2,56,10); 00000800
|
|
SAVE FILE OUT TAPE3 (2,56,10,SAVE 10); 00000900
|
|
STRING CARD1(72,SEQ1(8)), 00001000
|
|
CARD2(72,SEQ2(8), NEWSEQ(INCR(8),SEQ(8))); 00001100
|
|
LABEL L1,L2,EOF; 00001200
|
|
L1: READ(TAPE1,10,CARD1)[EOF]; 00001300
|
|
L2: READ(TAPE2,10,CARD2); 00001400
|
|
IF CARD2(0,1) = "$" THEN 00001500
|
|
BEGIN NEWSEQ := CARD2(64,16); GO TO L2 END; 00001600
|
|
SEQ2 := SEQ; COMMENT SET SEQ2 TO CURRENT SEQ NO; 00001700
|
|
SEQ := + INCR; COMMENT INCREMENT CURRENT SEQ NO; 00001800
|
|
WHILE SEQ1 LSS SEQ2 DO 00001900
|
|
BEGIN 00002000
|
|
WRITE(TAPE3,10,CARD1); 00002100
|
|
READ(TAPE1,10,CARD1); 00002200
|
|
END; 00002300
|
|
IF CARD2(70,2) = " " THEN CARD2(70,2) := "%A"; 00002400
|
|
WRITE(TAPE3,10,CARD2); 00002500
|
|
IF SEQ1 = SEQ2 THEN GO TO L1 ELSE GO TO L2; 00002600
|
|
EOF: 00002700
|
|
END. 00002800
|