25 solution not work

[zhongff]

No description provided.

[zhongff]

note draft

note xa

GRAB 300
LINK 800
LINK 799
LINK 800
SEEK 1
MARK 3
COPY F X
COPY #AZIM T
TEST T = X
TJMP 0
SEEK -1
COPY F X
COPY #AZIM T
TEST T > X
TJMP 1
SEEK -1
COPY F X
COPY #AZIM T
TEST T < X
TJMP 2
MARK 1
COPY -1 #MOTR
SEEK -1
JUMP 3
MARK 2
COPY 1 #MOTR
SEEK -1
JUMP 3
MARK 0
LINK -1
LINK 801
SEEK 1
MARK 13
COPY F X
COPY #ELEV T
TEST T = X
TJMP 10
SEEK -1
COPY F X
COPY #ELEV T
TEST T > X
TJMP 11
SEEK -1
COPY F X
COPY #ELEV T
TEST T < X
TJMP 12
MARK 11
COPY -1 #MOTR
SEEK -1
JUMP 13
MARK 12
COPY 1 #MOTR
SEEK -1
JUMP 13
MARK 10
LINK -1
SEEK 1
COPY F #FREQ
COPY 0 X
MARK 100
COPY M #DATA
ADDI X 1 X
TEST X = 24
TJMP 101
JUMP 100
MARK 101
WIPE
HALT

note xb

COPY 0 X
MARK 10
ADDI X 1 X
TEST X < 200
TJMP 10
GRAB 301
SEEK 1
LINK 800
MODE
MARK 0
COPY F X
SUBI X 5000 X
SUBI X 5000 X
ADDI X M X
TEST X < 0
TJMP 1
MARK 2
MODE
COPY X M
MODE
TEST EOF
TJMP 3
JUMP 0
MARK 1
ADDI X 5000 X
ADDI X 5000 X
JUMP 2
MARK 3
WIPE
HALT

note xc

COPY 0 X
MARK 10
ADDI X 1 X
TEST X < 200
TJMP 10
LINK 800
GRAB 199
MODE
COPY 0 X
MARK 1
SEEK -9999
MARK 0
COPY F M
ADDI X 1 X
TEST X = 24
TJMP 4
MARK 3
TEST EOF
FJMP 0
TJMP 1
MARK 4
HALT