; Oliver Schmidt, 24.03.2005
;
- .export dioprolog, diocommon, dioepilog
- .import popax
+ .export dioprolog, diocommon, dioepilog
+ .import popax
- .include "errno.inc"
- .include "mli.inc"
+ .include "errno.inc"
+ .include "mli.inc"
dioprolog:
; Set buffer
- sta mliparam + MLI::RW_BLOCK::DATA_BUFFER
- stx mliparam + MLI::RW_BLOCK::DATA_BUFFER+1
+ 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
+ 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
+ jsr popax
+ sta mliparam + MLI::RW_BLOCK::UNIT_NUM
rts
diocommon:
; Call read_block or write_block
- ldx #RW_BLOCK_COUNT
- jsr callmli
+ ldx #RW_BLOCK_COUNT
+ jsr callmli
dioepilog:
; Return success or error
sta __oserror
- ldx #$00
+ ldx #$00
rts