home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / decmal.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  208 b   |  17 lines
  1. i = r3
  2. .globl putcall,iget,kput,putdec
  3. .globl generate,succ
  4. .globl decimal
  5.  
  6. decimal:
  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,putdec
  16.     jmp    generate
  17.