initial check-in

git-svn-id: svn://svn.cc65.org/cc65/trunk@3391 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/atari/dioqsize.s b/libsrc/atari/dioqsize.s
new file mode 100644 (file)
index 0000000..0c2c47b
--- /dev/null
+++ b/libsrc/atari/dioqsize.s
@@ -0,0 +1,27 @@
+;
+; Christian Groessler, February 2005
+;
+; sectsize_t __fastcall__ dio_query_sectsize(dhandle_t handle);
+;
+
+       .include        "atari.inc"
+       .export         _dio_query_sectsize
+       .importzp       ptr1,tmp1
+       .import         popax, __oserror
+
+.proc  _dio_query_sectsize
+
+       sta     ptr1            ; handle
+       stx     ptr1+1 
+
+       lda     #0
+       sta     __oserror
+
+       ldy     #sst_sectsize+1
+       lda     (ptr1),y
+       tax
+       dey
+       lda     (ptr1),y
+       rts
+
+.endproc