Adjusted Apple2 targets to the new standard mouse driver paradigm.

[cc65] / libsrc / atari / dio_cts.s

diff --git a/libsrc/atari/dio_cts.s b/libsrc/atari/dio_cts.s
index 013a926285fba45d88338f8a0a1dd7eb8b8ae0b0..a618f5d8b8b4860f6cff48156a51e903b39f9a68 100644 (file)
--- a/libsrc/atari/dio_cts.s
+++ b/libsrc/atari/dio_cts.s
@@ -1,51 +1,69 @@
 ;
 ; Christian Groessler, October 2000
 ;
-; this file provides the _dio_chs_to_snum function
+; this file provides the _dio_phys_to_log function
+; (previously called _dio_chs_to_snum, so the filename)
 ;
 ; on the Atari this function is a dummy, it ignores
-; cylinder and head 0 and returns as sector number the
+; cylinder and head and returns as sector number the
 ; sector number it got
 ;
-; _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
+; unsigned char __fastcall__ dio_phys_to_log(dhandle_t handle,
+;                                           dio_phys_pos *physpos,     /* input */
+;                                           sectnum_t *sectnum);       /* output */
+;
+; dhandle_t - 16bit (ptr)
+; sectnum_t - 16bit
 ;
 
-       .export         __dio_chs_to_snum
-       .import         addsp4,popax
-       .importzp       ptr1
+       .export         _dio_phys_to_log
+       .import         popax,__oserror
+       .importzp       ptr1,ptr2,ptr3
        .include        "atari.inc"
 
-.proc  __dio_chs_to_snum
+.proc  _dio_phys_to_log
 
-       pha                     ; save sector value
-       txa
-       pha
-       jsr     addsp4          ; ignore other parameters
+       sta     ptr1
+       stx     ptr1+1          ; pointer to result
 
        jsr     popax
-       sta     ptr1
-       stx     ptr1+1
+       sta     ptr2
+       stx     ptr2+1          ; pointer to input structure
+
+       jsr     popax
+       sta     ptr3
+       stx     ptr3+1          ; pointer to handle
+
        ldy     #sst_flag
-       lda     (ptr1),y
+       lda     (ptr3),y
        and     #128
        beq     _inv_hand       ; handle not open or invalid
 
-       pla
-       tay
-       pla
-       rts
+; ignore head and track and return the sector value
 
-_inv_hand:
-       pla
-       pla
-       ldx     #255
+       ldy     #diopp_sector
+       lda     (ptr2),y
+       tax
+       iny
+       lda     (ptr2),y
+       ldy     #1
+       sta     (ptr1),y
+       dey
+       txa
+       sta     (ptr1),y
+
+       ldx     #0
        txa
-       rts
+ret:
+       sta     __oserror
+       rts                     ; return success
+
+; invalid handle
+
+_inv_hand:
+       ldx     #0
+       lda     #BADIOC
+       bne     ret
 
 .endproc