remove superfluous ".code" line

[cc65] / libsrc / tgi / tgi_getset.s

diff --git a/libsrc/tgi/tgi_getset.s b/libsrc/tgi/tgi_getset.s
index 1d6353b90f94a772a1c0fcc6e599a9a69e068e30..aded19d718e59ecfd333672fc81e5f6b81e90211 100644 (file)
--- a/libsrc/tgi/tgi_getset.s
+++ b/libsrc/tgi/tgi_getset.s
@@ -11,19 +11,15 @@
         .importzp       ptr1, ptr2
 
 
-tgi_getset:
-        sta     ptr2            ; Y
-        stx     ptr2+1
-        jsr     popax
-        sta     ptr1            ; X
-        stx     ptr1+1
+.proc   tgi_getset
 
-; Are the coordinates are out of range? First check if any ccord is negative.
+        jsr     tgi_popxy       ; Pop X/Y into ptr1/ptr2
+
+; Are the coordinates out of range? First check if any coord is negative.
 
         txa
         ora     ptr2+1
-        asl     a
-        bcs     @L9             ; Bail out if negative
+        bmi     @L9             ; Bail out if negative
 
 ; Check if X is larger than the maximum x coord. If so, bail out
 
@@ -41,4 +37,5 @@ tgi_getset:
         sbc     _tgi_yres+1
 @L9:    rts
 
+.endproc