set 14 16383
ldia 0
out
rdexp
swp
ldib 0
add
jmpz 0
sta 400
ain 14
ldib 1
add
sta 14
ain 400
stlge
, addr stored here
jmp 0
