Mercurial > repos > simple16
view checker.s16 @ 58:bed2d84eeabe
Fix ldimh special casing of loading labels for the case when the label is not a forward reference
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 06 Sep 2016 09:42:31 -0700 |
parents | 8e39a877c651 |
children |
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 $F8, 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