-iocberr:jsr incsp6 ; pop args
- plp ; throw away
- ldx #$FF ; indicate error + clear ZF
- rts
-
-
-;
-; this routine updates errno. do a JMP here right after calling
-; CIOV. we expect status in Y.
-;
- .export __do_oserror,__seterrno,__inviocb
-__do_oserror:
- sty __oserror ; save os dependent error code
-retminus:
- lda #$FF
- tax ; return -1
- rts
-
-__seterrno:
- sta __errno
- stx __errno+1