.EXTERN ALL

test_bge:
	MOV	#what_bge,R0
	CALL	print_start

test_bge_1:
; initialize flags
	MOV	#8.,R0
	MTPS	R0

; should not jump
	BGE	test_bge_1_fail
	JMP	test_bge_2

test_bge_1_fail:
	MOV	#1.,R0
	JMP	test_bge_fail

test_bge_2:
	MOV	#10.,R0
	MTPS	R0
	BGE	test_bge_2_ok

	MOV	#2.,R0
	JMP	test_bge_fail

test_bge_2_ok:
	RET

test_bge_fail:
; print test number
	CALL	print_binary

; flags are always (for this tester) in R2
	MOV	R2,R0
	CALL	print_binary

	MOV	#test_bge_fail_txt,R0
	CALL	print_start
	RET

test_bge_fail_txt:
	.ASCII	"BGE handling FAIL\r\n\x00"


what_bge:
	.ASCII	"BGE test\r\n\x00"

.EVEN