home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fx6.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  273 b   |  32 lines
  1. /
  2. /
  3.  
  4. / fx6 -- teletype
  5.  
  6. .globl    tput
  7. .globl    tdecml
  8.  
  9. tdecml:
  10.     mov    r1,-(sp)
  11.     jsr    r5,td
  12.     mov    (sp)+,r1
  13.     rts    r5
  14.  
  15. td:
  16.     mov    r0,r1
  17.     clr    r0
  18.     dvd    $10.,r0
  19.     mov    r1,-(sp)
  20.     tst    r0
  21.     beq    1f
  22.     jsr    r5,td
  23. 1:
  24.     mov    (sp)+,r0
  25.     add    $'0,r0
  26.  
  27. tput:
  28.     movb    r0,ch+1
  29.     mov    $1,r0
  30.     sys    write; ch+1; 1
  31.     rts    r5
  32.