STR:	LOD	R0,A
		STO	R0,B
BEG:	LOD	R1,B
		STO	R1,OL
		OUT	2,OL
		CALL	SBT
		JZE	END
		JMP	BEG
SBT:	LOD	R1,B
		ADD	R1,MON
		STO	R1,B
		RET

END:	HLT

A:		DC		5
B:		DC		0
OL:	DS		2
MON:	DC		-1

		END	STR