1 files changed, 27 insertions(+), 0 deletions(-)

M 44-us-department-of-defense-usaf-secure-facility/XA.exa

@@ 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