Small optimization in apple2 exec.s.

[cc65] / libsrc / apple2 / diosectsize.s

diff --git a/libsrc/apple2/diosectsize.s b/libsrc/apple2/diosectsize.s
index 40b8113b447d0295666f5e93f1cec6172352b908..d3ece37791e215aa00d00c3d4fc7ae34fa50e34c 100644 (file)
--- a/libsrc/apple2/diosectsize.s
+++ b/libsrc/apple2/diosectsize.s
@@ -1,12 +1,18 @@
 ;
 ; Oliver Schmidt, 31.03.2005
 ;
-; sectsize_t __fastcall__ dio_query_sectsize (dhandle_t handle);
+; unsigned __fastcall__ dio_query_sectsize (dhandle_t handle);
 ;
 
-        .export        _dio_query_sectsize
+        .export         _dio_query_sectsize
+
+        .include        "errno.inc"
 
 _dio_query_sectsize:
-        lda    #<512
-        ldx    #>512
+        ; Clear error
+        stx     __oserror       ; X = 0
+
+        ; Return ProDOS 8 block size
+        txa                     ; X = 0
+        ldx     #>512
         rts