home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / push.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  329 b   |  26 lines
  1. .globl succ
  2. .globl iget
  3. .globl push
  4.  
  5. push:
  6.     jsr    pc,iget
  7.     mov    (r0),r2
  8.     mov    r2,r1
  9. 1:
  10.     mov    r1,-(sp)
  11.     jsr    pc,iget
  12.     mov    (sp)+,r1
  13.     mov    r0,-(sp)
  14.     mov    (r0),-(sp)
  15.     dec    r2
  16.     bgt    1b
  17.     mov    r1,-(sp)
  18.     jsr    pc,succ
  19. /            preserve c bit from here on
  20.     mov    (sp)+,r2
  21. 1:
  22.     mov    (sp)+,*(sp)+
  23.     dec    r2
  24.     bgt    1b
  25.     rts    pc    /pass sret or fret back to invoking rule
  26.