Solutions to levels 10-13

10-unknown-network-ngtu.asm

@@ -0,0 +1,24 @@
+;XA
+
+LINK 800
+
+MARK ITER
+REPL L
+JUMP R
+MARK L
+LINK 800
+JUMP OK
+MARK R
+LINK 801
+JUMP OK
+MARK OK
+ADDI X 1 X
+TEST X > 2
+FJMP ITER
+
+KILL
+GRAB 276
+LINK -1
+LINK -1
+LINK -1
+LINK -1

11-uc-berkeley.asm

@@ -0,0 +1,49 @@
+;XA
+
+LINK 800
+COPY M X
+MARK GOFURTHER
+LINK 800
+LINK 800
+HOST T
+TEST X = T
+FJMP GOFURTHER
+;READ FILE
+GRAB 200
+SEEK 9999
+
+COPY M X
+MARK READFURTHER
+SEEK -3
+TEST F = X
+SEEK -1
+FJMP READFURTHER
+SEEK 1
+
+COPY F X;OFFSET
+COPY F T;LEN
+
+COPY T M;SEND LEN OVER
+
+SEEK -9999
+SEEK X
+MARK FILEREAD
+COPY F M
+SUBI T 1 T
+TJMP FILEREAD
+
+
+;XB
+
+GRAB 300
+COPY F M
+COPY F M
+DROP
+
+COPY M T; MSGLEN
+MAKE
+MARK COPYMORE
+COPY M F
+SUBI T 1 T
+TJMP COPYMORE
+DROP

12-workhouse.asm

@@ -0,0 +1,45 @@
+;XA
+
+GRAB 300
+COPY F X
+DROP
+LINK 800
+GRAB 199
+
+MARK LOOKUSER
+TEST F = X
+TJMP USERFOUND
+SEEK 2
+JUMP LOOKUSER
+
+MARK USERFOUND
+SEEK 1
+COPY F X; USERFILE
+DROP
+
+LINK 799
+GRAB X; USERFILE
+SEEK 2
+
+COPY 0 X
+MARK LOOP
+TEST EOF
+TJMP AFTER
+ADDI F X X
+TEST X < 75
+TJMP LOOP
+SEEK -1
+COPY 75 F
+SUBI X 75 X
+JUMP LOOP
+
+MARK AFTER
+TEST X > 75
+FJMP SMALL
+SUBI X 75 X
+COPY 75 F
+JUMP AFTER
+
+MARK SMALL
+COPY X F
+DROP

13-equity-first-bank.asm

@@ -0,0 +1,22 @@
+;XA
+
+LINK 800
+LINK 800
+LINK 800
+
+COPY 800 X
+MARK CLONE
+REPL GO
+ADDI 1 X X
+TEST X > 806
+FJMP CLONE
+
+MARK GO
+LINK X
+
+MARK DISPOSE
+TEST #CASH > 1
+COPY 20 #DISP
+TJMP DISPOSE
+
+MARK EMPTY