50 lines
606 B
Text
50 lines
606 B
Text
.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
|