Mercurial > repos > simple16
annotate checker.s16 @ 59:b15187a99d6f default tip
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Wed, 07 Sep 2016 23:15:27 -0700 |
| parents | 8e39a877c651 |
| children |
| rev | line source |
|---|---|
| 47 | 1 |
| 2 ;set both data banks to VRAM | |
| 3 ldim $E1, db | |
| 4 ldimh $E0, db | |
| 5 | |
| 6 ;setup palette | |
| 7 ldim 2, r0 | |
| 8 outi $E, r0 | |
| 9 ldim 0, r0 | |
| 10 outi $E, r0 | |
|
50
8e39a877c651
Switch from RGB 444 to RGB 565 for palette entries
Michael Pavone <pavone@retrodev.com>
parents:
47
diff
changeset
|
11 ldimh $F8, r0 |
| 47 | 12 outi $E, r0 |
| 13 | |
| 14 ;pointer to VRAM | |
| 15 ldim 0, r0 | |
| 16 | |
| 17 ;black | |
| 18 ldim 0, r1 | |
| 19 | |
| 20 ;4 pixels of red | |
| 21 ldim $11, r2 | |
| 22 ldimh $11, r2 | |
| 23 | |
| 24 ;outer loop counter | |
| 25 ldim 8, r4 | |
| 26 | |
| 27 ;framebuffer offset | |
| 28 ldim 0, r5 | |
| 29 outer: | |
| 30 ;loop counter to do one row of pattern | |
| 31 ldim $A0, r3 | |
| 32 ldimh 0, r3 | |
| 33 | |
| 34 blackred: | |
| 35 str16 r0, r5, r1 | |
| 36 addi 2, r5 | |
| 37 str16 r0, r5, r1 | |
| 38 addi 2, r5 | |
| 39 str16 r0, r5, r1 | |
| 40 addi 2, r5 | |
| 41 str16 r0, r5, r1 | |
| 42 addi 2, r5 | |
| 43 str16 r0, r5, r2 | |
| 44 addi 2, r5 | |
| 45 str16 r0, r5, r2 | |
| 46 addi 2, r5 | |
| 47 str16 r0, r5, r2 | |
| 48 addi 2, r5 | |
| 49 str16 r0, r5, r2 | |
| 50 addi 2, r5 | |
| 51 | |
| 52 addi -1, r3 | |
| 53 bne blackred | |
| 54 | |
| 55 | |
| 56 ldim $A0, r3 | |
| 57 ldimh 0, r3 | |
| 58 redblack: | |
| 59 str16 r0, r5, r2 | |
| 60 addi 2, r5 | |
| 61 str16 r0, r5, r2 | |
| 62 addi 2, r5 | |
| 63 str16 r0, r5, r2 | |
| 64 addi 2, r5 | |
| 65 str16 r0, r5, r2 | |
| 66 addi 2, r5 | |
| 67 str16 r0, r5, r1 | |
| 68 addi 2, r5 | |
| 69 str16 r0, r5, r1 | |
| 70 addi 2, r5 | |
| 71 str16 r0, r5, r1 | |
| 72 addi 2, r5 | |
| 73 str16 r0, r5, r1 | |
| 74 addi 2, r5 | |
| 75 | |
| 76 addi -1, r3 | |
| 77 bne redblack | |
| 78 | |
| 79 addi -1, r4 | |
| 80 bne outer | |
| 81 | |
| 82 ldim 1, r4 | |
| 83 ldimh $80, r4 | |
| 84 outi $D, r4 | |
| 85 | |
| 86 forever: | |
| 87 bra forever |