mirror of
https://github.com/cc65/cc65.git
synced 2024-07-04 13:29:35 +00:00
42 lines
730 B
ArmAsm
42 lines
730 B
ArmAsm
;
|
|
; Oliver Schmidt, 30.12.2004
|
|
;
|
|
; Apple ProDOS 8 MLI
|
|
;
|
|
|
|
.import __dos_type
|
|
.import iobuf_init, iobuf_done
|
|
.export iobuf_nop
|
|
|
|
.include "mli.inc"
|
|
|
|
.bss
|
|
|
|
mliparam:.tag MLI
|
|
|
|
.data
|
|
|
|
callmli:
|
|
; Store parameters
|
|
sta call
|
|
stx mliparam
|
|
|
|
; Check for ProDOS 8
|
|
lda __dos_type
|
|
beq oserr
|
|
|
|
; Call MLI and return
|
|
jsr iobuf_init
|
|
jsr ENTRY
|
|
call: .byte $00
|
|
.addr mliparam
|
|
jmp iobuf_done
|
|
|
|
; Load oserror code and return
|
|
oserr: lda #$01 ; "Invalid MLI function code number"
|
|
sec
|
|
; Fall through
|
|
|
|
iobuf_nop:
|
|
rts
|