2005-03-31 07:24:01 +00:00
|
|
|
;
|
|
|
|
|
; Oliver Schmidt, 31.03.2005
|
|
|
|
|
;
|
2005-04-01 09:59:53 +00:00
|
|
|
; sectsize_t __fastcall__ dio_query_sectsize (dhandle_t handle);
|
2005-03-31 07:24:01 +00:00
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _dio_query_sectsize
|
|
|
|
|
|
2010-06-04 21:41:22 +00:00
|
|
|
.include "errno.inc"
|
|
|
|
|
|
2005-03-31 07:24:01 +00:00
|
|
|
_dio_query_sectsize:
|
2010-06-04 21:41:22 +00:00
|
|
|
; Clear error
|
|
|
|
|
stx __oserror ; X = 0
|
|
|
|
|
|
|
|
|
|
; Return ProDOS 8 block size
|
2010-07-17 19:07:57 +00:00
|
|
|
txa ; X = 0
|
2005-03-31 07:24:01 +00:00
|
|
|
ldx #>512
|
|
|
|
|
rts
|
