home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s2 / tty.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  151 b   |  18 lines
  1. / tty -- get tty number
  2.  
  3. .globl    ttyn
  4.  
  5.     clr    r0
  6.     jsr    pc,ttyn
  7.     movb    r0,nam
  8.     mov    $1,r0
  9.     sys    write; name; 5
  10.     sys    exit
  11.  
  12. .data
  13. name:
  14.     <tty>
  15. nam:
  16.     <x\n>
  17. .even
  18.