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.
6 lines
405 B
Plaintext
6 lines
405 B
Plaintext
COMMENT PROCEDURE - JOBFINISH, CUBE LIBRARY NUMBER IS Z200002. 00000100
|
|
THIS VERSION DATED 2/1/67; 00000200
|
|
PROCEDURE JOBFINISH(A);FILE A;BEGIN FORMAT FORM("PROCESSOR",I10," SEC. 00000300
|
|
"," I/O ",I10," SEC. "," COST $",F10.2);WRITE(A[PAGE]);WRITE(A,F00000400
|
|
ORM,TIME(2)/60,TIME(3)/60,TIME(2)|0.00138888)END OF JOBFINISH; 00000500
|