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

   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

Defined functions