; Apple ProDOS 8 MLI
;
- .import __dos_type
+ .import __dos_type
- .include "mli.inc"
+ .include "mli.inc"
.bss
-mliparam: .tag MLI
+mliparam:.tag MLI
.data
callmli:
; Store parameters
- sta call
- stx mliparam
+ sta call
+ stx mliparam
; Check for ProDOS 8
- lda __dos_type
- beq oserr
+ lda __dos_type
+ beq oserr
; Call MLI and return
- jsr ENTRY
-call: .byte $00
- .word mliparam
+ jsr $BF00 ; MLI call entry point
+call: .byte $00
+ .addr mliparam
rts
; Load oserror code and return
-oserr: lda #$01 ; "Invalid MLI function code number"
+oserr: lda #$01 ; "Invalid MLI function code number"
sec
- rts
\ No newline at end of file
+ rts