From 15d7996bfcede25da7265e9a6d09ccb2138cf967 Mon Sep 17 00:00:00 2001
From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 19 Feb 2005 00:57:26 +0000
Subject: [PATCH] initial check-in

git-svn-id: svn://svn.cc65.org/cc65/trunk@3391 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/atari/dioqsize.s | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 libsrc/atari/dioqsize.s

diff --git a/libsrc/atari/dioqsize.s b/libsrc/atari/dioqsize.s
new file mode 100644
index 000000000..0c2c47bda
--- /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