aboutsummaryrefslogtreecommitdiffstats
path: root/tests/fsm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/fsm')
0 files changed, 0 insertions, 0 deletions
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-29 12:01:37 +0000
85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 
	.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