;
.import __dos_type
- .import iobuf_init, iobuf_done
- .export iobuf_nop
.include "mli.inc"
beq oserr
; Call MLI and return
- jsr iobuf_init
- jsr ENTRY
+ jsr $BF00 ; MLI call entry point
call: .byte $00
.addr mliparam
- jmp iobuf_done
+ rts
; Load oserror code and return
oserr: lda #$01 ; "Invalid MLI function code number"
sec
- ; Fall through
-
-iobuf_nop:
rts