mirror of
https://github.com/PDP-10/stacken.git
synced 2026-02-19 13:55:12 +00:00
48 lines
599 B
Plaintext
48 lines
599 B
Plaintext
title iflist - list ip interfaces
|
|
search jobdat, uuosym, macten
|
|
|
|
opdef ifnam. [call [sixbit 'ifnam.']]
|
|
|
|
t1==1
|
|
t2==2
|
|
t3==3
|
|
t4==4
|
|
|
|
c==10
|
|
|
|
p==17
|
|
|
|
pdl: block <pdllen==^D100>
|
|
|
|
iflist: jfcl
|
|
reset
|
|
move p,[iowd pdllen, pdl]
|
|
movei t4,0
|
|
loop: move t1,t4
|
|
ifnam. t1,
|
|
jrst fail
|
|
pushj p,prsix
|
|
pushj p,pcrlf
|
|
aoja t4,loop
|
|
|
|
fail: monrt.
|
|
jrst iflist
|
|
|
|
prsix: setz t2,
|
|
rotc t1,6
|
|
cail t2,'A'
|
|
caile t2,'Z'
|
|
subi t2,40
|
|
movei c,100(t2)
|
|
pushj p,prchr
|
|
jumpn t1,prsix
|
|
popj p,
|
|
|
|
prchr: outchr c
|
|
popj p,
|
|
|
|
pcrlf: outstr[ byte (7) 15, 12, 0]
|
|
popj p,
|
|
|
|
end iflist
|