git.sur5r.net Git - cc65/blob - libsrc/cbm610/kopen.s

   1 ;
   2 ; Ullrich von Bassewitz, 2003-12-20
   3 ;
   4 ; OPEN kernal call.
   5 ;
   6 ; NOTE: The OPEN system call in the CBM610 kernal is different from the
   7 ; standard. It evaluates the carry flag and does a normal open if carry clear
   8 ; and some strange things (output sa 15 + name on IEC) if carry set. To be
   9 ; compatible with our CBM file stuff, we have to clear the carry before
  10 ; calling the real OPEN.
  11
  12         .export         OPEN
  13
  14 .proc   OPEN
  15
  16         clc
  17         jmp     $FFC0
  18
  19 .endproc
  20
  21
  22