XA.exa

; FIRST ATTEMPTS WERE
; BAD, BUT IM HAPPY
; WITH THIS ONE
;
;
; BROADCASTER SEND DNA
; GLOBALLY
;
; OVERWRITER RECEIVE DNA
; GLOBALLY
;
; BROAD/OVERW MAKE COPY
; OF DNA IN REPL

MARK START
GRAB 300
FJMP SKIP_SEEK
SEEK 1

MARK SKIP_SEEK
COPY F X
DROP

LINK 800

LINK 801
GRAB 200

MARK FIND_NAME
TEST F = X
TJMP FOUND_NAME
SEEK 10
JUMP FIND_NAME


MARK FILE_COPIER
MAKE

@REP 10
COPY M F
@END

FILE X
COPY X M
HALT


MARK KILL
WIPE
LINK -1
KILL
HALT


MARK FOUND_NAME
REPL FILE_COPIER

MARK LOOP_LOCAL_SEND
@REP 10
COPY F M
@END

DROP
COPY M X
GRAB X

TEST X = 400 ; FIRST
TJMP BROADCASTER_START
TEST X > 401 ; DNA SEND
TJMP BROADCASTER_DNA


; **********************
; OVERWRITER START *****
LINK -1
COPY 1 M
LINK -1

; WAIT LOCAL
MARK WAIT_OVERWRITER
VOID M

; COPY FILE TO X -> REPL
MARK DUPE_OVERWRITER
COPY F X
REPL OVERWRITER_DUPE
JUMP WAIT_OVERWRITER

MARK OVERWRITER_DUPE
MODE ; <- GLOBAL

LINK 800

SWIZ X 3 T
ADDI 800 T T
LINK T

SWIZ X 2 T
ADDI 200 T T
GRAB T

SWIZ X 1 T
MULI T 10 X
SEEK X

@REP 10
COPY M F
@END

HALT


; *********************
; BROADCASTER START ****
MARK BROADCASTER_START
; REPL FOR OVERWRITER
LINK -1
LINK -1
REPL START
LINK 800

; WAIT LOCAL
MARK WAIT_BROADCASTER
VOID M

; COPY FILE TO X -> REPL
TEST EOF
TJMP KILL
COPY F X
REPL BROADCASTER_DUPE
JUMP WAIT_BROADCASTER

MARK BROADCASTER_DUPE
SWIZ X 3 T
ADDI 800 T T
LINK T

SWIZ X 2 T
ADDI 200 T T
GRAB T

SWIZ X 1 T
MULI T 10 X
SEEK X

COPY 10 T
REPL FILE_COPIER

JUMP LOOP_LOCAL_SEND

MARK BROADCASTER_DNA
LINK -1
LINK -1
COPY 1 M
MODE ; <- GLOBAL

@REP 10
COPY F M
@END

MODE ; <- LOCAL
LINK 800
COPY 1 M
WIPE