mirror of
https://github.com/PDP-10/stacken.git
synced 2026-01-28 12:39:06 +00:00
18 lines
310 B
Plaintext
18 lines
310 B
Plaintext
title clean -- clear arp cache and zap all tcbs.
|
|
search jobdat, uuosym, macten
|
|
|
|
.text "/symseg:low/locals"
|
|
|
|
clean:: jfcl
|
|
reset
|
|
movei 1,[ab: exp 5, 0, 0]
|
|
call 1,[sixbit "arp."]
|
|
jfcl
|
|
movei 1,[tb: exp 6, 0, 0, 0, 0, 0, 0, 0, 0]
|
|
call 1,[sixbit "tcp."]
|
|
jfcl
|
|
monrt.
|
|
jrst clean
|
|
|
|
end clean
|