14-mitsuzen-hdi-10.asm

;XA

LINK 800

MARK LOAD
COPY #NERV T
DIVI T -10 T

;10 = 40,-70
;01 = -70,40
;00 = -70,-70
;MSG SENT TWICE
COPY 10 X
REPL MSGSAN
REPL MSGAVN
COPY 01 X
REPL MSGSAN
REPL MSGAVN

SUBI T 2 T

MARK LOOP
SUBI T 1 T
COPY 00 X
REPL MSGSAN
REPL MSGAVN
TJMP LOOP

JUMP LOAD


;MSG IN X
MARK MSGSAN
LINK 1
LINK 1
DIVI X 10 X; 0 OR 1
MULI 110 X X
ADDI -70 X X
COPY X #NERV
JUMP DIE

MARK MSGAVN
LINK 3
LINK 3
MODI X 10 X; 0 OR 1
MULI 110 X X
ADDI -70 X X
COPY X #NERV
JUMP DIE

MARK DIE