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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 29.10.99
   6
   7 ; char TestPoint        (struct pixel *mypixel);
   8
   9             .import PointRegs
  10             .export _TestPoint
  11
  12             .include "../inc/jumptab.inc"
  13
  14 _TestPoint:
  15             jsr PointRegs
  16             jsr TestPoint
  17             bcc goFalse
  18             lda #$ff
  19             rts
  20 goFalse:    lda #0
  21             rts