	.global	main
	.type	main, @function
main:
	clearf nzvc
	setf   nzv
	bcc    0f
	addq   1, $r3
	jump   dofail

0:
	clearf nzvc
	setf   nzv
	bcs    dofail
	addq   1,$r3

	clearf nzvc
	setf   ncv
	bne    1f
	addq   1, $r3

fail:
dofail:
	jump	_fail

1:
	clearf nzvc
	setf ncv
	beq dofail
	addq 1,$r3

	clearf nzvc
	setf ncz
	bvc 2f
	addq 1,$r3
	jump dofail

2:
	clearf nzvc
	setf ncz
	bvs dofail
	addq 1,$r3

	clearf	nzvc
	setf	vcz
	bpl	3f
	addq	1,$r3
	jump	fail
3:
	clearf	nzvc
	setf	vcz
	bmi	dofail
	addq	1,$r3

	clearf	nzvc
	setf	nv
	bls	dofail
	addq	1,$r3

	clearf	nzvc
	setf	nv
	bhi	4f
	addq	1,$r3
	jump	dofail

4:
	clearf	nzvc
	setf	zc
	bge	5f
	addq	1,$r3
	jump	dofail

5:
	clearf	nzvc
	setf zc
	blt dofail
	addq 1,$r3

	clearf nzvc
	setf c
	bgt 6f
	addq 1,$r3
	jump  fail

6:
 clearf nzvc
 setf c
 ble dofail
 addq 1,$r3

;;;;;;;;;;

 setf nzvc
 clearf nzv
 bcc dofail
 addq 1,$r3

 setf nzvc
 clearf nzv
 bcs 0f
 addq 1,$r3
 jump fail

0:
 setf nzvc
 clearf ncv
 bne dofail
 addq 1,$r3

 setf nzvc
 clearf ncv
 beq 1f
 addq 1,$r3
 jump fail

1:
 setf nzvc
 clearf ncz
 bvc dofail
 addq 1,$r3

 setf nzvc
 clearf ncz
 bvs 2f
 addq 1,$r3
 jump fail

2:
 setf nzvc
 clearf vcz
 bpl dofail
 addq 1,$r3

 setf nzvc
 clearf vcz
 bmi 3f
 addq 1,$r3
 jump fail

3:
 setf nzvc
 clearf nv
 bls 4f
 addq 1,$r3
 jump fail

4:
 setf nzvc
 clearf nv
 bhi dofail
 addq 1,$r3

 setf zvc
 clearf nzc
 bge dofail
 addq 1,$r3

 setf nzc
 clearf vzc
 blt 5f
 addq 1,$r3
 jump fail

5:
 setf nzvc
 clearf c
 bgt dofail
 addq 1,$r3

 setf nzvc
 clearf c
 ble 6f
 addq 1,$r3
 jump fail

6:
	; do a forward branch.
	ba   2f
	nop
	.fill	100
1:
	ba	3f
	nop
	.fill	800
2:
	ba	1b
	nop
	.fill	1024
3:

	moveq	31, $r0
1:	bne	1b
	subq	1, $r0

	jsr	pass
	moveq	0, $r10
	ret
	nop