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.
35 lines
2.7 KiB
Plaintext
35 lines
2.7 KiB
Plaintext
PBDPBT 000124AA 00000100
|
|
00000200
|
|
************************************************************************00000300
|
|
PLEASE NOTE THAT THE BURROUGHS CORPORATION ASSUMES 00000400
|
|
NO RESPONSIBILITY FOR THE USE OR MAINTENANCE OF THIS PROGRAM. 00000500
|
|
************************************************************************00000600
|
|
00000700
|
|
PROGRAM TO MAKE A PRINTER BACK-UP TAPE FROM A PRINTER 00000800
|
|
BACK-UP DISK FILE. COMMON IS THE SUFFIX OF THE PBD FILE. 00000900
|
|
THIS VALUE IS ENTERED BY USING A COMMON CARD EQUAL TO THE 00001000
|
|
PBD FILE ID. - JAMES HARLEY, GEORGIA TECH 00001100
|
|
00001200
|
|
BEGIN 00001300
|
|
REAL COMMON; 00001400
|
|
SAVE FILE PBT "PBTMCP" "BACK-UP" (4,90,SAVE 10); 00001500
|
|
SAVE FILE PBD DISK SERIAL "PBD" " " (4,90); 00001600
|
|
LABEL REED,EOF; 00001700
|
|
SAVE ARRAY A[0:89]; 00001800
|
|
% 00001900
|
|
STREAM PROCEDURE CONVERT(I,Z); 00002000
|
|
VALUE I; 00002100
|
|
BEGIN 00002200
|
|
DI:=Z; 00002300
|
|
SI:=LOC I; 00002400
|
|
DS:=8 DEC; 00002500
|
|
END CONVERT; 00002600
|
|
% 00002700
|
|
CONVERT(COMMON,A); 00002800
|
|
FILL PBD WITH *, A[0]; 00002900
|
|
REED: READ(PBD,90,A[*]) [EOF]; 00003000
|
|
WRITE(PBT,90,A[*]); 00003100
|
|
GO REED; 00003200
|
|
EOF: END. 00003300
|
|
END;END. LAST CARD ON 0CRDING TAPE 99999999
|