| Line | |
|---|
| 1 | #
|
|---|
| 2 | ;
|
|---|
| 3 | ; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|---|
| 4 | ; See the copyright notice in the ACK home directory, in the file "Copyright".
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | ; Module: REAL abs function
|
|---|
| 8 | ; Author: Ceriel J.H. Jacobs
|
|---|
| 9 | ; Version: $Header: /cvsup/minix/src/lib/ack/libm2/absf.e,v 1.1 2005/10/10 15:27:46 beng Exp $
|
|---|
| 10 | ;
|
|---|
| 11 | mes 2,_EM_WSIZE,_EM_PSIZE
|
|---|
| 12 | exp $absf
|
|---|
| 13 | pro $absf,0
|
|---|
| 14 | mes 5
|
|---|
| 15 | mes 9,8
|
|---|
| 16 | lal 0
|
|---|
| 17 | loi _EM_FSIZE
|
|---|
| 18 | zrf _EM_FSIZE
|
|---|
| 19 | cmf _EM_FSIZE
|
|---|
| 20 | zlt *3
|
|---|
| 21 | lal 0
|
|---|
| 22 | loi _EM_FSIZE
|
|---|
| 23 | bra *4
|
|---|
| 24 | 3
|
|---|
| 25 | lal 0
|
|---|
| 26 | loi _EM_FSIZE
|
|---|
| 27 | ngf _EM_FSIZE
|
|---|
| 28 | 4
|
|---|
| 29 | ret _EM_FSIZE
|
|---|
| 30 | end 0
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
