Cycles: 949
Size: 100
Activity: 193
;XA
REPL INITIAL
MAKE
COPY 14 T
REPL TIMER1
@REP 12
COPY M F
@END
KILL
DROP
;;;;;;;;;;;;;;;;;;;;;;;;
MARK CONTINUED
MAKE
DROP
JUMP START
HALT
MARK INITIAL
LINK 800
REPL LP1
REPL LN3
REPL LP3
JUMP BP
MARK LP1
LINK 1
REPL LP1
REPL LN3
REPL LP3
JUMP BP
MARK LP3
LINK 3
REPL LP3
REPL LP1
REPL LN1
JUMP BP
MARK LN1
LINK -1
REPL LN1
REPL LP3
REPL LN3
JUMP BP
MARK LN3
LINK -3
REPL LN3
REPL LN1
REPL LP1
JUMP BP
MARK BP
TJMP READNERV
COPY #NERV X
HOST M
HALT
MARK READNERV
MAKE
HOST F
SEEK -1
TEST X = F
WIPE
FJMP DONE
COPY #NERV M
MARK DONE
HALT
;;;;;;;;;;;;;;;;;;;;;;;;
MARK START
GRAB 400
; GOT ALL VALUES
; TIME TO FIND LOWEST H
MARK OUTER
COPY F X
SEEK -1
VOID F
MARK INNER
TEST EOF
TJMP END
TEST X < F
TJMP INNER
; FOUND LOWER HOSTNAME
SEEK -1
COPY F T
SEEK -1
COPY X F
COPY T X
JUMP INNER
MARK END
; WE HAVE THE HOSTNAME,
DROP
GRAB 401
SEEK 9999
COPY X F
COPY 1 T
; SPAWN FINDER
REPL INITIAL
COPY M F
DROP
JUMP START
MARK TIMER1
SUBI T 1 T
TJMP TIMER1
KILL
JUMP CONTINUED