mirror of
https://github.com/PDP-10/its.git
synced 2026-02-18 13:37:10 +00:00
1d0891aa97
This fixes issue with UPTIME daemon immediately dying with an ILOPR fault due to starting at address 0.
66 lines
880 B
Groff
66 lines
880 B
Groff
;Reconstructed from disassembly of BAWDEN; UPTIME BIN dated 1986-06-22.
|
|
|
|
a=1
|
|
time=2
|
|
date=3
|
|
|
|
chdski=10
|
|
chmfdi=11
|
|
|
|
upname==0
|
|
update==1
|
|
uptime==2
|
|
uplen==3
|
|
|
|
dbpage==1
|
|
dbaddr=dbpage_10.
|
|
|
|
quit=.logout 1,
|
|
slose=.lose %lssys
|
|
flose=.lose %lsfil
|
|
|
|
go: .call [ setz
|
|
sixbit /open/
|
|
[.bii,,chdski]
|
|
dbdev
|
|
dbfn1
|
|
dbfn2
|
|
setz dbdir ]
|
|
flose
|
|
.call [ setz
|
|
sixbit /corblk/
|
|
movei %cbndw
|
|
movei %jself
|
|
movei dbpage
|
|
601000,,chdski ]
|
|
slose
|
|
.call [ setz
|
|
sixbit /dskupd/
|
|
601000,,chdski ]
|
|
slose
|
|
.close chdski,
|
|
.rdatim time,
|
|
movei a,dbaddr
|
|
loop: skipn upname(a)
|
|
quit
|
|
.call [ setz
|
|
sixbit /open/
|
|
[.bii,,chmfdi]
|
|
upname(a)
|
|
[sixbit /m.f.d./]
|
|
setz [sixbit /(file)/] ]
|
|
jrst next
|
|
movem time,uptime(a)
|
|
movem date,update(a)
|
|
next: addi a,uplen
|
|
jrst loop
|
|
|
|
dbdev: sixbit /dsk/
|
|
dbdir: sixbit /bawden/
|
|
dbfn1: sixbit /uptime/
|
|
dbfn2: sixbit /data/
|
|
|
|
cnstnt: constants
|
|
|
|
end go
|