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         .include        "cbm.inc"
  10
  11         .export         _cbm_k_setlfs
  12         .import         popa
  13         .importzp       tmp1
  14
  15
  16 _cbm_k_setlfs:
  17         sta     tmp1            ; Save SA
  18         jsr     popa            ; Get DEV
  19         tax
  20         jsr     popa            ; Get LFN
  21         ldy     tmp1            ; Get SA
  22         jmp     SETLFS