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

        .export         CHKIN
        .import         checkst


.proc   CHKIN

        jsr     $FFC6           ; Call kernal function
        jmp     checkst         ; Check status, return carry on error

.endproc