UNIX 6th Ed. - /usr/source/tmg/tmgb/octal.s

   1: i = r3
   2: .globl putcall,iget,kput,putoct
   3: .globl generate,succ
   4: .globl octal
   5: 
   6: octal:
   7:         mov     $1f+1,r0
   8:         jsr     pc,putcall
   9:         jsr     pc,iget
  10:         mov     (r0),r0
  11:         jsr     pc,kput
  12:         jmp     succ
  13: 1:
  14:         mov     (i),r0
  15:         jsr     pc,putoct
  16:         jmp     generate

Defined functions