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

   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

Defined functions