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

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