1
0
mirror of https://github.com/cc65/cc65.git synced 2024-07-15 10:29:00 +00:00
cc65/libsrc/geos/graph/testpoint.s

22 lines
301 B
ArmAsm
Raw Normal View History

;
; Maciej 'YTM/Alliance' Witkowiak
;
; 29.10.99
; char TestPoint (struct pixel *mypixel);
.import PointRegs
.export _TestPoint
.include "../inc/jumptab.inc"
_TestPoint:
jsr PointRegs
jsr TestPoint
bcc goFalse
lda #$ff
rts
goFalse: lda #0
rts