home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s4 / gtty.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  304 b   |  25 lines
  1. / C library -- gtty
  2.  
  3. / error = gtty(filep, ttyvec);
  4.  
  5. / filep is descriptor of open tty
  6. / ttyvec[0, 1, 2] correspond to args of gtty
  7.  
  8. .globl    _gtty, cerror
  9.  
  10. _gtty:
  11.     mov    r5,-(sp)
  12.     mov    sp,r5
  13.     mov    4(r5),r0
  14.     mov    6(r5),0f
  15.     sys    0; 9f
  16.     bec    1f
  17.     jmp    cerror
  18. 1:
  19.     clr    r0
  20.     mov    (sp)+,r5
  21.     rts    pc
  22. .data
  23. 9:
  24.     sys    gtty; 0:..
  25.