mirror of
https://github.com/cc65/cc65.git
synced 2024-11-13 13:11:06 +00:00
35 lines
534 B
ArmAsm
35 lines
534 B
ArmAsm
|
;
|
||
|
|
; Oliver Schmidt, 30.12.2004
|
||
|
|
;
|
||
|
|
; Apple ProDOS 8 MLI
|
||
|
|
;
|
||
|
|
|
||
|
|
.import __dos_type
|
||
|
|
|
||
|
|
.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 ENTRY
|
||
|
|
call: .byte $00
|
||
|
|
.word mliparam
|
||
|
|
rts
|
||
|
|
|
||
|
|
; Load oserror code and return
|
||
|
|
oserr: lda #$01 ; "Invalid MLI function code number"
|
||
|
|
sec
|
||
|
|
rts
|