; start main program
; Main program
; Variables declaration
	TSTO #2
	BOV Pile_pleine
	ADDSP #2
	LOAD #0, R2
	STORE R2, 1(GB)
	LOAD #0x1.6p2, R2
	STORE R2, 2(GB)
; Beginning of main instructions:
While.1:
	FLOAT 1(GB), R2
	CMP 2(GB), R2
	BGT Left_Op.1
	LOAD #0, R2
	BRA Left_Op_Fin.1
Left_Op.1:
	LOAD #1, R2
Left_Op_Fin.1:
	LOAD #1, R3
	CMP #2, R3
	BLT Right_Op.1
	LOAD #0, R3
	BRA Right_Op_Fin.1
Right_Op.1:
	LOAD #1, R3
Right_Op_Fin.1:
	CMP #0, R2
	BEQ And_Fin.1
	CMP #1, R3
	BEQ While_Fin.1
And_Fin.1:
; Moving i to the stack.
	LOAD 1(GB), R2
	ADD #1, R2
	STORE R2, 1(GB)
	BRA While.1
While_Fin.1:
	LOAD 1(GB), R2
	LOAD R2, R1
	WINT
	HALT
Pile_pleine:
	WSTR "stack overflow!"
	ERROR
; end main program