git.sur5r.net Git - cc65/blob - libsrc/plus4/ksetlfs.s

   1 ;
   2 ; Ullrich von Bassewitz, 22.11.2002
   3 ;
   4 ; SETLFS replacement function
   5 ;
   6
   7         .export         SETLFS
   8
   9         .include        "plus4.inc"
  10
  11 ; Write directly to the zero page to avoid banking in the ROM
  12
  13 .proc   SETLFS
  14         sta     LFN
  15         stx     DEVNUM
  16         sty     SECADR
  17         rts                             ; Return to caller
  18 .endproc
  19
  20