operations:
	add R1 R2 R3
	sub R1 R2 #69
	and R1 R2 R3
	xor R1 R2 R3
	or R1 R2 R3
	sl R1 R2 R3
	sr R1 R2 R3
io:
	str R1 R2 R3
	ld R1 R2 R3
sauts:
	jmp controle
	jequ R1 R2 io
	jneq R1 R2 sauts
	jsup R1 R2 operations
	jinf R1 R2 controle
controle:
	call io
	ret