* system calls - general routines

 name Syscalsg

  text

* system calls library for TSC 6809 C Compiler

  lib sysdef

* error number return cell

  data
 global _errno
_errno fdb 0
  text

* general purpose return routines

  global ret3
  global ret3a
ret3 pshs b
ret3a leax 0,s
  sys indx
  bec 1f
  std _errno
  ldd #-1
  bra 2f
1 ldd #0
2 leas 3,s
  rts

  global ret5
  global ret5a
ret5 pshs b
ret5a leax 0,s
  sys indx
  bec 1f
  std _errno
  ldd #-1
  bra 2f
1 ldd #0
2 leas 5,s
  rts