git.sur5r.net Git - cc65/blob - libsrc/cbm/c_setlfs.s

   1 ;
   2 ; Ullrich von Bassewitz, 03.06.1999
   3 ;
   4 ; void __fastcall__ cbm_setlfs (unsigned char LFN,
   5 ;                               unsigned char DEV,
   6 ;                               unsigned char SA);
   7 ;
   8
   9         .include        "cbm.inc"
  10
  11         .export         _cbm_setlfs
  12         .import         popa
  13         .importzp       tmp1
  14
  15 _cbm_setlfs:
  16         sta     tmp1            ; Save SA
  17         jsr     popa            ; Get DEV
  18         tax
  19         jsr     popa            ; Get LFN
  20         ldy     tmp1            ; Get SA
  21         jmp     SETLFS
  22
  23