~noelle/exapunks-solutions

e1f1b9eb55817cb923489e42416ade3ddea849b8 — Noelle Leigh 9 months ago 8a04a43
44: Solved
1 files changed, 27 insertions(+), 0 deletions(-)

M 44-us-department-of-defense-usaf-secure-facility/XA.exa
M 44-us-department-of-defense-usaf-secure-facility/XA.exa => 44-us-department-of-defense-usaf-secure-facility/XA.exa +27 -0
@@ 26,10 26,14 @@ DROP
LINK 800
LINK 800

; FILE TO STORE NEW LINK
MAKE
COPY 801 T
COPY T F
DROP

; LOOP 801-804 TO FIND
; FILE
MARK FINDFILE
LINK T
GRAB 200


@@ 42,18 46,40 @@ COPY F T
ADDI T 1 T
SEEK -1
COPY T F
TEST T = 805
TJMP FINDINNEXTHOST
SEEK -1
COPY F T
DROP
JUMP FINDFILE

; MOVE TO THE NEXT HUB
; HOST. JUMP TO FINDFILE
; AT END 'CAUSE GENERIC
MARK FINDINNEXTHOST
LINK 800
COPY 801 T
SEEK -1
COPY T F
DROP
JUMP FINDFILE


MARK FOUNDFILE
DROP
LINK -1
; MAKE THE FILE TO STORE
; THE COPY
MAKE
COPY X F
DROP

; 44-1=43 SINCE WE HAVE
; 1ST VALUE ALREADT
COPY 43 T

; ZIP BACK & FORTH X43
; COPY 1 VALUE PER LOOP
MARK COPYLOOP
GRAB 400
COPY F X


@@ 78,3 104,4 @@ WIPE
GRAB 401
LINK -1
LINK -1
LINK -1