home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / abs.s next >
Encoding:
Text File  |  1975-07-17  |  195 b   |  25 lines
  1. /
  2. /
  3.  
  4. / abs & dabs fortran functions
  5.  
  6. .globl    abs.
  7. .globl    dabs.
  8.  
  9. .globl    retrn
  10. .globl    temp
  11.  
  12. dabs.:    temp
  13.     .+2
  14.     setd
  15.     br    1f
  16.  
  17. abs.:    temp
  18.     .+2
  19.     setf
  20. 1:
  21.     movf    *2(r3),r0
  22.     absf    r0
  23.     movf    r0,temp
  24.     jmp    retrn
  25.