Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/outtim.sim
There is 1 other file named outtim.sim in the archive. Click here to see a list.
! This procedure prints TIME on the outfile OUTF according
! to PUTTIME format. See PUTTIME.
! The width parameter W is the output field length and
! should conform to the rules for PUTTIME FIELD parameter length.
!
! Author: Mats Ohlin, FOA 1, Fack, S-104 50 STOCKHOLM 80, SWEDEN.
! Date: 760916
;
OPTIONS(/E/C/-A/-Q/-I/-D);
EXTERNAL TEXT PROCEDURE putfloat,puttime;
PROCEDURE outtime(outf,time,unit,secdec,w);
REF (Outfile) outf;
REAL time;   CHARACTER unit;   INTEGER secdec,w;
INSPECT outf DO
BEGIN
    IF w > Length THEN w:= Length;
    IF Pos + w > Length + 1 THEN Outimage;
    puttime(Image.Sub(Pos,w),time,unit,secdec);
    Setpos(Pos+w);
END of outtime;