*
* Miscellaneous system calls
*

 use ..../defs/os9defs.a
 psect misc_a,0,0,1,0,0

* lock(flag)
lock: rts

* pause()
pause: ldx #0
 clrb
 os9 F$SLEEP
 lbra _os9err

* sync()
sync: rts

* crc(start,count,accum)
crc: pshs y,u save reg. variable and data pointer
 ldx 6,s get start pointer
 ldy 8,s get byte count
 ldu 10,s get address of accumulator
 os9 F$CRC call os9
 puls y,u,pc no error output

* prerr(fildes,error)
prerr: lda 3,s get path number
 ldb 5,s get error code
 os9 F$PERR call os9
 lbcs _os9err
 rts

* tsleep(ticks)
tsleep:
 ldx 2,s get sleep time
 os9 F$SLEEP call os9
 lbcs _os9err
 tfr x,d return ticks remaining in d reg
 rts
 endsect