git.sur5r.net Git - cc65/blob - libsrc/geos/graph/bitmapregs.s

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 21.12.99
   6
   7             .importzp ptr4
   8
   9             .export BitmapRegs
  10
  11             .include "../inc/geossym.inc"
  12
  13 BitmapRegs:                     ;a/x is a struct iconpic*
  14             sta ptr4
  15             stx ptr4+1
  16             ldy #0
  17 bmpLp:      lda (ptr4),y
  18             sta r0L,y
  19             iny
  20             cpy #6
  21             bne bmpLp
  22             rts