From: cpg Date: Wed, 18 Oct 2000 23:47:42 +0000 (+0000) Subject: adapted to new parameters X-Git-Tag: V2.12.0~3145 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=e9e7fd4d31b47c4488e48ddb0e557ef05faede6a;p=cc65 adapted to new parameters git-svn-id: svn://svn.cc65.org/cc65/trunk@381 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- diff --git a/libsrc/atari/dio_cts.s b/libsrc/atari/dio_cts.s index 75a65a670..013a92628 100644 --- a/libsrc/atari/dio_cts.s +++ b/libsrc/atari/dio_cts.s @@ -7,14 +7,17 @@ ; cylinder and head 0 and returns as sector number the ; sector number it got ; -; _sectnum_t __fastcall__ _dio_chs_to_snum(unsigned int cyl, unsigned int head, unsigned int sector); -; -; _driveid_t - 8bit +; _sectnum_t __fastcall__ _dio_chs_to_snum(_dhandle_t handle, +; unsigned int cyl, +; unsigned int head, +; unsigned int sector); +; _dhandle_t - 16bit (ptr) ; _sectnum_t - 16bit ; .export __dio_chs_to_snum - .import addsp4 + .import addsp4,popax + .importzp ptr1 .include "atari.inc" .proc __dio_chs_to_snum @@ -23,10 +26,26 @@ txa pha jsr addsp4 ; ignore other parameters + + jsr popax + sta ptr1 + stx ptr1+1 + ldy #sst_flag + lda (ptr1),y + and #128 + beq _inv_hand ; handle not open or invalid + pla tay pla rts +_inv_hand: + pla + pla + ldx #255 + txa + rts + .endproc diff --git a/libsrc/atari/dio_stc.s b/libsrc/atari/dio_stc.s index 992eebe70..d6f51e899 100644 --- a/libsrc/atari/dio_stc.s +++ b/libsrc/atari/dio_stc.s @@ -6,17 +6,19 @@ ; on the Atari this function is a dummy, it returns ; cylinder and head 0 and as sector the sectnum it got ; -; void __fastcall__ _dio_snum_to_chs(_sectnum_t sect_num, -; unsigned int *cyl, -; unsigned int *head, -; unsigned int *sector); +; void __fastcall__ _dio_snum_to_chs(_dhandle_t handle, +; _sectnum_t sect_num, +; unsigned int *cyl, +; unsigned int *head, +; unsigned int *sector); +; _dhandle_t - 16bit (ptr) ; _sectnum_t - 16bit ; .export __dio_snum_to_chs .include "atari.inc" .importzp ptr1,ptr2 - .import popax + .import popax,addsp2 .proc __dio_snum_to_chs @@ -46,6 +48,8 @@ txa sta (ptr1),y + jsr addsp2 + rts .endproc