home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / table.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  231 b   |  18 lines
  1. .globl allocate,putword,putchar
  2. .globl iget
  3. .globl succ
  4. .globl table
  5.  
  6. table:
  7.     mov    $10,r0
  8.     jsr    pc,allocate
  9.     mov    r1,-(sp)
  10.     clr    r0
  11.     jsr    pc,putword
  12.     jsr    pc,putword
  13.     jsr    pc,putword
  14.     jsr    pc,putchar
  15.     jsr    pc,iget
  16.     mov    (sp)+,(r0)
  17.     jmp    succ
  18.