;
; Ullrich von Bassewitz, 19.11.2002
;
; SETLFS replacement function for the PETs
;

        .export         SETLFS

        .include        "pet.inc"


.proc   SETLFS

        sta     LFN             ; LFN
        stx     DEVNUM          ; Device address
        sty     SECADR          ; Secondary address
        rts

.endproc