git.sur5r.net Git - cc65/blob - libsrc/telestrat/close.s

   1 ; jede jede@oric.org 2017-01-22
   2
   3     .export         _close
   4
   5     .import         addysp,popax
   6
   7     .include        "zeropage.inc"
   8     .include        "telestrat.inc"
   9     .include        "errno.inc"
  10     .include        "fcntl.inc"
  11
  12 ; int open (const char* name, int flags, ...);    /* May take a mode argument */
  13 .proc _close
  14     BRK_TELEMON XCLOSE  ; launch primitive ROM
  15     rts
  16 .endproc