no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / atari / dio_stc.s

diff --git a/libsrc/atari/dio_stc.s b/libsrc/atari/dio_stc.s
index 992eebe7060f9c2d9a8fa82b6ae307555457f533..b74e49283f0c54f58294ffba6669fe7b7c264563 100644 (file)
--- a/libsrc/atari/dio_stc.s
+++ b/libsrc/atari/dio_stc.s
@@ -1,52 +1,73 @@
 ;
 ; Christian Groessler, October 2000
 ;
-; this file provides the _dio_snum_to_chs function
+; this file provides the _dio_log_to_phys function
+; (previously called _dio_snum_to_chs, so the filename)
 ;
 ; 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);
-; _sectnum_t - 16bit
+; unsigned char __fastcall__ dio_log_to_phys(dhandle_t handle,
+;                                           sectnum_t *sectnum,        /* input */
+;                                           dio_phys_pos *physpos);    /* output */
+;
+; dhandle_t - 16bit (ptr)
+; sectnum_t - 16bit
 ;
 
-       .export         __dio_snum_to_chs
+       .export         _dio_log_to_phys
        .include        "atari.inc"
-       .importzp       ptr1,ptr2
-       .import         popax
+       .importzp       ptr1,ptr2,ptr3
+       .import         popax,__oserror
 
-.proc  __dio_snum_to_chs
+.proc  _dio_log_to_phys
 
-       sta     ptr1
-       stx     ptr1+1          ; save pointer to sector #
-       jsr     popax           ; get pointer to head
        sta     ptr2
-       stx     ptr2+1
+       stx     ptr2+1          ; pointer to output structure
+
+       jsr     popax
+       sta     ptr1
+       stx     ptr1+1          ; save pointer to input data
+
+       jsr     popax
+       sta     ptr3
+       stx     ptr3+1          ; pointer to handle
+
+       ldy     #sst_flag
+       lda     (ptr3),y
+       and     #128
+       beq     _inv_hand       ; handle not open or invalid
+
        lda     #0
        tay
-       sta     (ptr2),y        ; set head number
+       tax
+       sta     (ptr2),y        ; head
        iny
+       sta     (ptr2),y        ; track (low)
+       iny
+       sta     (ptr2),y        ; track (high)
+       iny
+
+       lda     (ptr1,x)
        sta     (ptr2),y
-       jsr     popax           ; get pointer to cyl
-       sta     ptr2
-       stx     ptr2+1
-       dey
-       tya
-       sta     (ptr2),y        ; set cylinder number
        iny
+       inc     ptr1
+       bne     _l1
+       inc     ptr1+1
+_l1:   lda     (ptr1,x)
        sta     (ptr2),y
-       jsr     popax           ; get sector #
 
-       dey
-       sta     (ptr1),y
-       iny
        txa
-       sta     (ptr1),y
+ret:
+       sta     __oserror
+       rts                     ; return success
+
+; invalid handle
 
-       rts
+_inv_hand:
+       ldx     #0
+       lda     #BADIOC
+       bne     ret
 
 .endproc