Mercurial > repos > simple16
changeset 47:506b531cf570
Added checkerboard sample
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 30 Aug 2016 21:01:07 -0700 |
parents | 51672bd41cdd |
children | 9a3b9d86dabf |
files | checker.s16 |
diffstat | 1 files changed, 87 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/checker.s16 Tue Aug 30 21:01:07 2016 -0700 @@ -0,0 +1,87 @@ + + ;set both data banks to VRAM + ldim $E1, db + ldimh $E0, db + + ;setup palette + ldim 2, r0 + outi $E, r0 + ldim 0, r0 + outi $E, r0 + ldimh $F, r0 + outi $E, r0 + + ;pointer to VRAM + ldim 0, r0 + + ;black + ldim 0, r1 + + ;4 pixels of red + ldim $11, r2 + ldimh $11, r2 + + ;outer loop counter + ldim 8, r4 + + ;framebuffer offset + ldim 0, r5 +outer: + ;loop counter to do one row of pattern + ldim $A0, r3 + ldimh 0, r3 + +blackred: + str16 r0, r5, r1 + addi 2, r5 + str16 r0, r5, r1 + addi 2, r5 + str16 r0, r5, r1 + addi 2, r5 + str16 r0, r5, r1 + addi 2, r5 + str16 r0, r5, r2 + addi 2, r5 + str16 r0, r5, r2 + addi 2, r5 + str16 r0, r5, r2 + addi 2, r5 + str16 r0, r5, r2 + addi 2, r5 + + addi -1, r3 + bne blackred + + + ldim $A0, r3 + ldimh 0, r3 +redblack: + str16 r0, r5, r2 + addi 2, r5 + str16 r0, r5, r2 + addi 2, r5 + str16 r0, r5, r2 + addi 2, r5 + str16 r0, r5, r2 + addi 2, r5 + str16 r0, r5, r1 + addi 2, r5 + str16 r0, r5, r1 + addi 2, r5 + str16 r0, r5, r1 + addi 2, r5 + str16 r0, r5, r1 + addi 2, r5 + + addi -1, r3 + bne redblack + + addi -1, r4 + bne outer + + ldim 1, r4 + ldimh $80, r4 + outi $D, r4 + +forever: + bra forever \ No newline at end of file