UNIX 6th Ed. - /usr/source/fort/rt1/amax0.s

   1: /
   2: /
   3: 
   4: / max0 & amax0 fortran functions
   5: 
   6: .globl  amax0.
   7: .globl  max0.
   8: 
   9: .globl  retrn
  10: .globl  temp
  11: 
  12: max0.:  temp
  13:         .+2
  14:         mov     pc,r2
  15:         br      1f
  16: 
  17: amax0.: temp
  18:         .+2
  19:         clr     r2
  20: 1:
  21:         setf
  22:         setl
  23:         mov     *2(sp),r0               / arg count
  24:         mov     r3,r1
  25:         tst     (r1)+                   / argpp
  26:         movif   *(r1)+,r1
  27:         br      2f
  28: 1:
  29:         movif   *(r1)+,r0
  30:         cmpf    r0,r1
  31:         cfcc
  32:         ble     2f
  33:         movf    r0,r1
  34: 2:
  35:         dec     r0
  36:         bgt     1b
  37:         tst     r2
  38:         bne     1f
  39:         movf    r1,temp
  40:         br      2f
  41: 1:
  42:         movfi   r1,temp
  43: 2:
  44:         jmp     retrn

Defined functions