|
|
1.1 ! root 1: # ! 2: # Copyright (c) 1979 Regents of the University of California ! 3: # ! 4: # char sccsid[] = "@(#)14neg.s 4.1 10/10/80"; ! 5: # ! 6: # NEGATION & ABSOLUTE VALUE ! 7: # ! 8: _NEG2: ! 9: incl r10 ! 10: cvtwl (sp)+,r0 ! 11: l1401: ! 12: mnegl r0,-(sp) ! 13: jmp (r8) ! 14: _ABS2: ! 15: _ABS4: ! 16: incl r10 ! 17: tstl (sp) ! 18: jgeq l1402 ! 19: mnegl (sp),(sp) ! 20: l1402: ! 21: jmp (r8) ! 22: _NEG4: ! 23: incl r10 ! 24: mnegl (sp),(sp) ! 25: jmp (r8) ! 26: _ABS8: ! 27: incl r10 ! 28: tstd (sp) ! 29: jgeq l1403 ! 30: mnegd (sp),(sp) ! 31: l1403: ! 32: jmp (r8) ! 33: _NEG8: ! 34: incl r10 ! 35: mnegd (sp),(sp) ! 36: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.