UNIX 6th Ed. - /usr/source/fort/fx/fx6.s

   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

Defined functions