Mercurial > repos > simple16
view checker.s16 @ 49:5f30c4d18d79
Updated the HTML documentation a bit
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 30 Aug 2016 22:04:29 -0700 |
parents | 506b531cf570 |
children | 8e39a877c651 |
line wrap: on
line source
;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