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

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