;
; Oliver Schmidt, 24.03.2005
;

        .export         dioprolog, diocommon, dioepilog
        .import         popax

        .include        "errno.inc"
        .include        "mli.inc"

dioprolog:
        ; Set buffer
        sta     mliparam + MLI::RW_BLOCK::DATA_BUFFER
        stx     mliparam + MLI::RW_BLOCK::DATA_BUFFER+1

        ; Get and set sect_num
        jsr     popax
        sta     mliparam + MLI::RW_BLOCK::BLOCK_NUM
        stx     mliparam + MLI::RW_BLOCK::BLOCK_NUM+1

        ; Get and set handle
        jsr     popax
        sta     mliparam + MLI::RW_BLOCK::UNIT_NUM
        rts

diocommon:
        ; Call read_block or write_block
        ldx     #RW_BLOCK_COUNT
        jsr     callmli

dioepilog:
        ; Return success or error
        sta     __oserror
        ldx     #$00
        rts