* system calls - file 10

 name Syscals10

 text

 ext stk_base

 lib sysdef

* STACK(nbytes)

 global _stack
_stack tfr s,d
 subd 2,s
 subd #12
 cmpd stk_base
 bhs 4f
 pshs d
 ldx 0,s
 sys stack
 bes 6f
 puls d
 anda #$f0
 clrb
 std stk_base
4 ldd #0
 rts
6 std _errno
 puls d
 ldd #-1
 rts

 end