|
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: 16128 (0x3f00)
Types: TextFile
Names: »tsjob«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »tsjob«
; 56.6
;
; ehp 800620
;
; do-call til udskrivning af statistik fra disc
; ved angivelse af name på logisk eller fysisk disc.
;
message tast x3.name go 0
message
message hvor name erstattes med navnet på den logiske eller fysiske disc
do clear,
go 0 process description,
if w0.eq.0,
x0.process.does.not.exist,
write x0.name.32 end,
exit,
fi,
if x0.0.ne.62,
x0.device.not.disc,
write x0.name.24 end,
exit,
fi,
if x0.10.ne.0 w0.x0.10,
fi,
w0.in.110,
write x0.words5.6.bytes10.80 end,
og,
x3.0,
▶EOF◀