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

   1: /
   2: /
   3: 
   4: / min1, amin1 & dmin1 fortran functions
   5: 
   6: .globl  amin1.
   7: .globl  dmin1.
   8: .globl  min1.
   9: 
  10: .globl  retrn
  11: .globl  temp
  12: 
  13: min1.:  temp
  14:         .+2
  15:         setl
  16:         setf
  17:         mov     pc,r2
  18:         br      2f
  19: 
  20: dmin1.: temp
  21:         .+2
  22:         setd
  23:         br      1f
  24: 
  25: amin1.: temp
  26:         .+2
  27:         setf
  28: 1:
  29:         clr     r2
  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:         bge     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