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         .import         iobuf_mli
   9
  10         .include        "mli.inc"
  11
  12         .bss
  13
  14 mliparam:.tag   MLI
  15
  16         .data
  17
  18 callmli:
  19         ; Store parameters
  20         sta     call
  21         stx     mliparam
  22
  23         ; Check for ProDOS 8
  24         lda     __dos_type
  25         beq     oserr
  26
  27         ; Call MLI and return
  28         jsr     iobuf_mli
  29 call:   .byte   $00
  30         .addr   mliparam
  31         rts
  32
  33         ; Load oserror code and return
  34 oserr:  lda     #$01            ; "Invalid MLI function code number"
  35         sec
  36         rts