home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / putoct.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  184 b   |  19 lines
  1. .globl putch,obuild
  2. .globl putoct
  3.  
  4.  
  5. putoct:    mov    r0,-(sp)
  6.     bic    $7,r0
  7.     bic    r0,(sp)
  8.     clc
  9.     ror    r0
  10.     ror    r0
  11.     ror    r0
  12.     beq    1f
  13.     jsr    pc,putoct
  14. 1:
  15.     mov    (sp)+,r0
  16.     add    $'0,r0
  17.     jsr    pc,putch
  18.     rts    pc
  19.