LOD R0,A
STO R0,B
LOD R1,B
STO R1,OL
OUT 2,OL
CALL SBT
JZE END
JMP BEG
LOD R1,B
ADD R1,MON
STO R1,B
RET
HLT
DC  5
DC  0
DS  2
DC  -1
END STR