home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / amax1.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  492 b   |  53 lines
  1. /
  2. /
  3.  
  4. / max1, amax1 & dmax1 fortran functions
  5.  
  6. .globl    amax1.
  7. .globl    dmax1.
  8. .globl    max1.
  9.  
  10. .globl    retrn
  11. .globl    temp
  12.  
  13. max1.:    temp
  14.     .+2
  15.     setl
  16.     setf
  17.     mov    pc,r2        / integer flag
  18.     br    2f
  19.  
  20. dmax1.:    temp
  21.     .+2
  22.     setd
  23.     br    1f
  24.  
  25. amax1.:    temp
  26.     .+2
  27.     setf
  28. 1:
  29.     clr    r2        / integer flag
  30. 2:
  31.     mov    *2(sp),r0        / arg count
  32.     mov    r3,r1
  33.     tst    (r1)+            / argpp
  34.     movf    *(r1)+,r1
  35.     br    2f
  36. 1:
  37.     movf    *(r1)+,r0
  38.     cmpf    r0,r1
  39.     cfcc
  40.     ble    2f
  41.     movf    r0,r1
  42. 2:
  43.     dec    r0
  44.     bgt    1b
  45.     tst    r2
  46.     bne    1f
  47.     movf    r1,temp
  48.     br    2f
  49. 1:
  50.     movfi    r1,temp
  51. 2:
  52.     jmp    retrn
  53.