2005-03-31 07:24:01 +00:00
|
|
|
;
|
|
|
|
|
; Oliver Schmidt, 31.03.2005
|
|
|
|
|
;
|
2012-10-11 18:22:49 +00:00
|
|
|
; unsigned __fastcall__ dio_query_sectsize (dhandle_t handle);
|
2005-03-31 07:24:01 +00:00
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _dio_query_sectsize
|
2005-03-31 07:24:01 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.include "errno.inc"
|
2010-06-04 21:41:22 +00:00
|
|
|
|
2005-03-31 07:24:01 +00:00
|
|
|
_dio_query_sectsize:
|
2010-06-04 21:41:22 +00:00
|
|
|
; Clear error
|
2013-05-09 11:56:54 +00:00
|
|
|
stx __oserror ; X = 0
|
2010-06-04 21:41:22 +00:00
|
|
|
|
|
|
|
|
; Return ProDOS 8 block size
|
2013-05-09 11:56:54 +00:00
|
|
|
txa ; X = 0
|
|
|
|
|
ldx #>512
|
2005-03-31 07:24:01 +00:00
|
|
|
rts
|
