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

   1 ;
   2 ; Ullrich von Bassewitz, 19.11.2002
   3 ;
   4 ; SETLFS replacement function for the PETs
   5 ;
   6
   7         .export         SETLFS
   8
   9         .include        "pet.inc"
  10
  11
  12 .proc   SETLFS
  13
  14         sta     LFN             ; LFN
  15         stx     DEVNUM          ; Device address
  16         sty     SECADR          ; Secondary address
  17         rts
  18
  19 .endproc
  20
  21