git.sur5r.net Git - cc65/blob - libsrc/apple2/mli.s

   1 ;
   2 ; Oliver Schmidt, 30.12.2004
   3 ;
   4 ; Apple ProDOS 8 MLI
   5 ;
   6
   7         .import         __dos_type
   8
   9         .include        "mli.inc"
  10
  11         .bss
  12
  13 mliparam:.tag   MLI
  14
  15         .data
  16
  17 callmli:
  18         ; Store parameters
  19         sta     call
  20         stx     mliparam
  21
  22         ; Check for ProDOS 8
  23         lda     __dos_type
  24         beq     oserr
  25
  26         ; Call MLI and return
  27         jsr     $BF00           ; MLI call entry point
  28 call:   .byte   $00
  29         .addr   mliparam
  30         rts
  31
  32         ; Load oserror code and return
  33 oserr:  lda     #$01            ; "Invalid MLI function code number"
  34         sec
  35         rts