UNIX 6th Ed. - /usr/source/fort/rt/r8.s

   1: /
   2: /
   3: 
   4: / r8 - fortran runtime -- powers of integers
   5: 
   6: .globl  ipi2
   7: 
   8: ipi2:
   9:         tst     (sp)+
  10:         mov     (sp)+,r0
  11:         bge     1f
  12:         clr     (sp)
  13:         jmp     *(r4)+
  14: 1:
  15:         mov     (sp)+,r1
  16:         mov     r3,-(sp)
  17:         mov     $1,r3
  18: 1:
  19:         tst     r0
  20:         beq     1f
  21:         asr     r0
  22:         bcc     2f
  23:         mpy     r1,r3
  24: 2:
  25:         mpy     r1,r1
  26:         br      1b
  27: 1:
  28:         mov     r3,r1
  29:         mov     (sp)+,r3
  30:         mov     r1,-(sp)
  31:         jmp     *(r4)+

Defined functions