home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / r8.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  289 b   |  33 lines
  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)+
  32.  
  33.