home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / append.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  165 b   |  17 lines
  1. .globl succ
  2. .globl putcstr,iget
  3. .globl append
  4.  
  5. append:
  6.     jsr    pc,iget
  7.     mov    r0,-(sp)
  8. 1:
  9.     movb    *(sp),r0
  10.     beq    1f
  11.     jsr    pc,putcstr
  12.     inc    (sp)
  13.     br    1b
  14. 1:
  15.     tst    (sp)+
  16.     jmp    succ
  17.