Research V5 development

[unix-history] / usr / source / s2 / tty.s

/ tty -- get tty number

.globl  ttyn

       clr     r0
       jsr     pc,ttyn
       tst     r0
       movb    r0,nam
       mov     $1,r0
       sys     write; name; 5
       sys     exit

name:
       <tty>
nam:
       <x\n>
.even