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

   1 ;
   2 ; Maciej 'YTM/Alliance' Witkowiak
   3 ;
   4 ; 21.12.99
   5
   6 ; void BitmapClip       (char skipl, char skipr, int skipy, struct iconpic *myGfx);
   7
   8             .import popa, popax
   9             .import BitmapRegs
  10             .export _BitmapClip
  11
  12             .include "jumptab.inc"
  13             .include "geossym.inc"
  14
  15 _BitmapClip:
  16         jsr BitmapRegs
  17         jsr popax
  18         sta r12L
  19         stx r12H
  20         jsr popa
  21         sta r11H
  22         jsr popa
  23         sta r11L
  24         jmp BitmapClip