IN HELPER
IN Q
MOV POM0 0
MOV POM1 1
CMP B POM0
JNZ 36
IN T
IN L
IN R
CMP T POM1
JZ 24
IN X
CMP L R
JZ 21
LOAD L HELPER
ADD HELPER X
STORE L HELPER
ADD L POM1
CMP POM1 POM0
JZ 13
SUB Q POM1
CMP POM1 POM0
JZ 5
MOV X 0
CMP L R
JZ 32
LOAD L HELPER
ADD X HELPER
ADD L POM1
CMP POM1 POM0
JZ 27
OUT X
SUB Q POM1
CMP POM1 POM0
JZ 5
RETURN
