|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »writecmttx«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦bf33d74f6⟧ »iogeofile«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦bf33d74f6⟧ »iogeofile«
└─⟦this⟧
; write_cmt_tx * page 1 13 09 77, 10.45;
; write_cmt
; *********
if listing.yes
char 10 12 10
write_cmt = set 1 disc
write_cmt = algol
external integer procedure write_cmt
____________________________________
_ (z, cmt, scmt);
value cmt;
zone z;
long cmt, scmt;
begin
boolean old_cmt;
old_cmt := cmt <=99 99 99 99;
if cmt = scmt then
write_cmt := write(z, if old_cmt then
<:____________do___:> else <:_________do______:>)
else
begin
scmt := cmt;
write_cmt := if old_cmt then
write(z, <<______dd_dd_dd_dd>, cmt)
else wr_date_time(z, cmt);
end;
end write_cmt;
end
if warning.yes
(mode 0.yes
message write_cmt not ok
lookup write_cmt)
▶EOF◀