18 ( exablaster ) fix

[alexwolfe19]

I tried using the solution to level 18 ( "TEC EXA-BLASTER MODEM" ), however, it didn't work for me. So, I of course wrote my own code to solve it, and figured I should share my solution.

My code isn't fancy - that's for sure. However, it gets the job done. Oh! Make sure you set the M to local. Otherwise the code will go crazy! Haha.

XA

GRAB 301
LINK 800

MARK ADDRLOOP
COPY 11 X

MARK DIALLOOP
COPY F #DIAL
SUBI X 1 X
TEST X > 0
TJMP DIALLOOP
COPY 1 M
VOID M
COPY -1 #DIAL
TEST EOF
FJMP ADDRLOOP
COPY -1 M
WIPE
HALT

XB

NOTE TRANSFER BOT
GRAB 300
MARK LOOP
COPY M X
TEST X = -1
TJMP DIE
COPY F M
TEST EOF
TJMP RESET
JUMP LOOP

MARK RESET
SEEK -9999
JUMP LOOP

MARK DIE
HALT

XC

LINK 800

MARK DATALOOP
COPY M X
TEST X = -1
TJMP DONE

MARK TRANSFER_LOOP
LINK -1
COPY 1 M
COPY M X
LINK 800
LINK 800
REPL OVERWRITE_NAMES
LINK -1
LINK -1
COPY 1 M
COPY M X
LINK 800
LINK 800
REPL OVERWRITE_ARTISTS
LINK -1
COPY 1 M
JUMP DATALOOP

MARK OVERWRITE_NAMES
GRAB 200
MARK OWN_LOOP
COPY X F
SEEK 1
TEST EOF
FJMP OWN_LOOP
COPY 1 M
HALT

MARK OVERWRITE_ARTISTS
VOID M
GRAB 200
MARK OWA_LOOP
SEEK 1
COPY X F
TEST EOF
FJMP OWA_LOOP
HALT

MARK DONE
LINK -1
COPY -1 M
HALT