mirror of
https://github.com/PDP-10/its.git
synced 2026-05-25 06:40:45 +00:00
2e240f7da5
commit can run this program, create the file, and copy to bawden directory rather than using a pre-built version. Resolves #1471.
42 lines
555 B
Groff
42 lines
555 B
Groff
title UPTINI - Create UPTIME DATA
|
|
|
|
chdsko=10
|
|
|
|
flose=.lose %lsfil
|
|
|
|
data:
|
|
IRP M,,[DB,NO,UP,ES,LC]
|
|
sixbit/M/ ; sixbit host name
|
|
0 ; sixbit date
|
|
0 ; sixbit time
|
|
TERMIN
|
|
0 ;; end of data
|
|
dataln==.-data
|
|
|
|
datptr: -dataln,,data
|
|
|
|
go: .call [ setz
|
|
sixbit /open/
|
|
[.bio,,chdsko]
|
|
dbdev
|
|
dbfn1
|
|
dbfn2
|
|
setz dbdir ]
|
|
flose
|
|
.call [ setz
|
|
sixbit /iot/
|
|
%climm,,chdsko
|
|
setz datptr ]
|
|
flose
|
|
.close chdsko,
|
|
.logout 1,
|
|
|
|
dbdev: sixbit /dsk/
|
|
dbdir: sixbit /.temp./
|
|
dbfn1: sixbit /uptime/
|
|
dbfn2: sixbit /data/
|
|
|
|
cnstnt: constants
|
|
|
|
end go
|