git.sur5r.net Git - cc65/blob - libsrc/geos/mousesprite/possprite.s

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 30.10.99
   6
   7 ;
   8 ; void PosSprite (char spritenum, struct pixel *position );
   9 ;
  10
  11             .importzp ptr4
  12             .import popa
  13             .export _PosSprite
  14
  15             .include "../inc/jumptab.inc"
  16             .include "../inc/geossym.inc"
  17
  18 _PosSprite:
  19             sta ptr4
  20             stx ptr4+1
  21             ldy #0
  22             lda (ptr4),y
  23             sta r4L
  24             iny
  25             lda (ptr4),y
  26             sta r4H
  27             iny
  28             lda (ptr4),y
  29             sta r5L
  30             jsr popa
  31             sta r3L
  32             jmp PosSprite