| .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 |