Start	LDA	B
	OTC
Loop	LDA	R
	OTC
	LDA	B
	SUB	minus
	STO	B
	BRP	Loop
	HLT
	

B	DAT 98
R	DAT 114
minus	DAT 10