mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 17:29:50 +00:00
initial check-in
git-svn-id: svn://svn.cc65.org/cc65/trunk@3391 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
531320e242
commit
15d7996bfc
27
libsrc/atari/dioqsize.s
Normal file
27
libsrc/atari/dioqsize.s
Normal file
@ -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
|
Loading…
Reference in New Issue
Block a user