home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / sign.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  297 b   |  36 lines
  1. /
  2. /
  3.  
  4. / sign & dsign fortran functions
  5.  
  6. .globl    sign.
  7. .globl    dsign.
  8.  
  9. .globl    retrn
  10. .globl    temp
  11. .globl    rerr
  12.  
  13. dsign.:    temp
  14.     .+2
  15.     setd
  16.     br    1f
  17.  
  18. sign.:    temp
  19.     .+2
  20.     setf
  21. 1:
  22.     cmp    *2(sp),$2
  23.     bne    2f
  24.     movf    *2(r3),r0
  25.     absf    r0
  26.     tstf    *4(r3)
  27.     cfcc
  28.     bge    1f
  29.     negf    r0
  30. 1:
  31.     movf    r0,temp
  32.     jmp    retrn
  33.  
  34. 2:
  35.     jsr    r5,rerr; 12.
  36.