BFS Exa




LINK 800
MAKE
COPY -1 F
COPY -9999 F
COPY 3 X
JUMP BFS



MARK GO
TEST X = -5
TJMP READ_VALUE

LINK X
MAKE
SUBI 0 X F
COPY 3 X
JUMP BFS



MARK BFS
SEEK -9999
TEST X = F
SEEK 9999
TJMP NEXT
REPL PROBE_LINK
@REP 3
NOOP
@END
TEST MRD
FJMP NEXT
REPL GO
COPY M T

MARK GET_RESPONSE
COPY M F
SEEK -1
TEST F = -9999
TJMP FINISHED_RESPONSE
COPY M F
JUMP GET_RESPONSE
MARK FINISHED_RESPONSE
SEEK -1
VOID F

MARK NEXT
SUBI X 2 X
TEST X = -5
FJMP BFS

REPL READ_VALUE
TEST MRD
FJMP WALK_BACK
COPY M F
COPY M F

MARK WALK_BACK
SEEK -9999
LINK F
SEEK -1
VOID F

JUMP RETURN_VALUES_START



MARK READ_VALUE
COPY #NERV M
HOST M
HALT

MARK PROBE_LINK
LINK X
SUBI 0 X X
LINK X
COPY 1111 M
HALT



MARK RETURN_VALUES_START
TEST F = -9999
SEEK -1
TJMP MAIN_END

MARK RETURN_VALUES
TEST EOF
TJMP END_RETURN_VALUES
COPY F M
COPY F M
JUMP RETURN_VALUES
MARK END_RETURN_VALUES
COPY -9999 M
WIPE
HALT



MARK MAIN_END
VOID F
COPY -9999 M
HALT









Sort EXA




COPY M X
GRAB 400

REPL SORTED

MARK FIND_LOWEST
SEEK -9999
TEST EOF
TJMP END1
SEEK 1
COPY F X

MARK COMPARE
TEST EOF
TJMP FOUND_LOWEST
SEEK 1
TEST F < X
FJMP COMPARE
SEEK -1
COPY F X
JUMP COMPARE

MARK FOUND_LOWEST


NOTE TELL LOWEST
SEEK -9999

MARK FIND_LOWEST_INDEX
SEEK 1
TEST F = X
FJMP FIND_LOWEST_INDEX

COPY X M
SEEK -2
COPY F M
SEEK -1
VOID F
VOID F

JUMP FIND_LOWEST



MARK SORTED
MAKE
MARK WRITE
COPY M X
TEST X = -9999
TJMP END2
COPY X F
COPY M F
JUMP WRITE

MARK END1
WIPE
COPY -9999 M
MARK END2
HALT