|
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: »writenivstx«
└─⟦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_niv_s_tx * page 1 13 09 77, 10.46;
; write_niv_stn
; *************
if listing.yes
char 10 12 10
write_niv_stn = set 1
write_niv_stn = algol
external procedure write_nivstn(z, stat, gi);
_____________________________________________
value stat; zone z; long stat; boolean gi;
begin
comment udskriver et internt nivellementstationsnummer på
sædvanlig form, jfr. read_nivstn. Hvis gi er true udskrives
G.M. henhv. G.I. foran nummeret, og proceduren udskriver da
23 karakterer ialt. Er gi false udskrives 19 karakterer;
integer nr, binr, dec, ekstra;
dec := stat extract 6;
ekstra:= stat shift (-6) extract 1;
binr:= stat shift (-7) extract 17;
nr:= stat shift (-24) extract 24;
if gi then write(z, if nr < 1600 then <:G.M.:> else <:G.I.:>);
if binr <> 0 then
begin
if nr < 1000 then write(z, <<_ddddd>, nr, <<zddd>, binr)
else
write(z, <<_dddd>, nr, <<zdddd>, binr)
end else
write(z, sp, 5, <<_dddd>, nr);
if dec = 0 then
write(z, if ekstra = 1 then <: ekstra :> else <:_________:>)
else
begin
if dec < 10 then write(z, <:.:>, <<d>, dec, if ekstra = 1
then <: ekstra:> else <:_______:>)
else
write(z, <:.:>, <<dd>, dec, if ekstra = 1 then <:ekstra:> else
<:______:>)
end;
end;
end
if warning.yes
(mode 0.yes
message writenivstn not ok
lookup writenivstn)
▶EOF◀