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

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