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

   1 ;
   2 ; Jede (jede@oric.org), 2017-10-27
   3 ;
   4 ; unsigned char _sysmkdir (const char* name, ...);
   5 ;
   6
   7         .export         __sysmkdir
   8         .import         addysp, popax
   9
  10         .include        "telestrat.inc"
  11         .include        "zeropage.inc"
  12
  13
  14 __sysmkdir:
  15         ; Throw away all parameters except the name
  16         dey
  17         dey
  18         jsr     addysp
  19
  20         ; Get name
  21         jsr     popax
  22
  23         ; Call telemon primitive
  24
  25         BRK_TELEMON(XMKDIR)
  26
  27         rts
  28
  29
  30