;
; Ullrich von Bassewitz, 19.11.2002
; CKOUT replacement function for the PETs
.export CKOUT
.import checkst
.proc CKOUT
jsr $FFC9 ; Call kernal function
jmp checkst ; Check status, return carry on error
.endproc