Added two useful opcode mnemonic aliases.

[cc65] / libsrc / conio / scrsize.s

diff --git a/libsrc/conio/scrsize.s b/libsrc/conio/scrsize.s
index 4be59964a1361c6f6d9a295948dd4d9b34a97b08..291f42d4a7b9d7a49b65a42536f6a44bcafe3216 100644 (file)
--- a/libsrc/conio/scrsize.s
+++ b/libsrc/conio/scrsize.s
@@ -5,34 +5,31 @@
 ;
 
        .export         _screensize
-       .export         xsize, ysize
 
-       .import         popax
-       .importzp       ptr1, ptr2
+       .import         popsreg
+       .import         screensize
+       .importzp       ptr1, sreg
 
 .proc  _screensize
 
-       sta     ptr1            ; Store the y pointer
+       sta     ptr1            ; Store the y pointer
        stx     ptr1+1
+        jsr     popsreg         ; Get the x pointer into sreg
+        jsr     screensize      ; Get screensize into X/Y
+        tya                     ; Get Y size into A
+
+.IFP02
+       ldy     #0
+        sta     (ptr1),y
+        txa
+        sta     (sreg),y
+.ELSE
+        sta     (ptr1)
+        txa
+        sta     (sreg)
+.ENDIF
 
-       jsr     popax           ; get the x pointer
-       sta     ptr2
-       stx     ptr2+1
-
-       ldy     #0
-       lda     xsize
-       sta     (ptr2),y
-       lda     ysize
-       sta     (ptr1),y
        rts
 
-.endproc       
-
-
-.bss
-
-xsize: .res    1
-ysize: .res    1
-
-
+.endproc