|
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: »indateprotx«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦80900d603⟧ »giprocfile«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦80900d603⟧ »giprocfile«
└─⟦this⟧
; indatepro_tx * page 1 27 09 77, 10.57;
; indateproc
; **********
if listing.yes
char 10 12 10
indateproc = set 1
indateproc=algol
external integer procedure indateproc(z);
zone z;
begin
integer i, j, contentkey;
long aux;
integer array ia(1:10);
real time, r;
<***lookup entry***>
i:=monitor(42, z, j, ia);
if i>0 then indateproc:=-i
else
begin
if i=0 then
begin
contentkey:=ia(9)shift (-12);
if contentkey<>4 and contentkey<32 then
begin
systime(1, 0, time);
aux := time*625;
<*shortclock*>
ia(6) := (aux shift (-15)) extract 24;
<***change entry***>
indateproc:=monitor(44, z, j, ia);
end
else
indateproc:=10;
end;
end;
comment
indateproc<0 means entry not found
indateproc=0 means entry changed
indateproc>0 means entry found, but not changed
meaning of abs value see monitor 3 manual;
end;
end
if warning.yes
(mode 0.yes
message indateproc not ok
lookup indateproc)
▶EOF◀