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

        .export         SETNAM

        .include        "pet.inc"


.proc   SETNAM
        
        sta     FNLEN
        stx     FNADR
        sty     FNADR+1
        rts

.endproc