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

   1 ;
   2 ; Ullrich von Bassewitz, 03.06.1999
   3 ;
   4 ; void __fastcall__ cbm_k_setlfs (unsigned char LFN,
   5 ;                                 unsigned char DEV,
   6 ;                                 unsigned char SA);
   7 ;
   8
   9         .export         _cbm_k_setlfs
  10         .import         SETLFS
  11         .import         popa
  12         .importzp       tmp1
  13
  14
  15 _cbm_k_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