* system calls - file 6

 name Syscals6

 text

 ext _errno,ret3,ret3a,ret5,ret5a

 lib sysdef

* GETEUID()

  global _geteuid
_geteuid sys guid
  tfr x,d
  rts

* GETPID()

  global _getpid
_getpid sys gtid
  rts

* GETUID()

  global _getuid
_getuid sys guid
  rts

* GTTY(fildes, buf)

  global _gtty
_gtty  ldd 4,s
  pshs d
  ldb #ttyget
  pshs b
  ldd 5,s
  jmp ret3a

* KILL(taskid, signum)

  global _kill
_kill  ldd 4,s
  pshs d
  ldb #spint
  pshs b
  ldd 5,s
  jmp ret3a

* LINK(path, newlink)

  global _link
_link ldd 4,s
  pshs d
  ldd 4,s
  pshs d
  ldb #link
  pshs b
  jmp ret5a

* LOCK(flag)

  global _lock
_lock ldd 2,s
  pshs d
  ldb #lock
  pshs b
  jmp ret3a

* LREC(fildes, count)

  global _lrec
_lrec  ldd 4,s
  pshs d
  ldb #lrec
  pshs b
  ldd 5,s
  jmp ret3a


* STTY(fildes, buf)

  global _stty
_stty  ldd 4,s
  pshs d
  ldb #ttyset
  pshs b
  ldd 5,s
  jmp ret3a