dio implementation by Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@3432 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/apple2/mli.s

@@ -0,0 +1,35 @@
+;
+; 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