Mercurial > repos > simple16
view checker.s16 @ 48:9a3b9d86dabf
Implement push and pop
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 30 Aug 2016 21:27:33 -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