home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / MATH / ABS.SRC next >
Encoding:
Text File  |  1996-08-08  |  921 b   |  83 lines
  1.     SECTION    code
  2. _abs:
  3. ;
  4. ; Line 5:    {
  5. ;
  6.     MOVEM.L    D3/A6,-(A7)
  7.     MOVE.L    A0,A6
  8.     MOVE.L    (A6),D3
  9. ;
  10. ; Line 6:        if (x < 0)
  11. ;
  12.     CMP.L    #$0,D3
  13.     BGE    L_0
  14. ;
  15. ; Line 7:            return - x;
  16. ;
  17.     MOVE.L    D3,D0
  18.     NEG.L    D0
  19.     BRA    L_2
  20. L_0:
  21. ;
  22. ; Line 8:        return x;
  23. ;
  24.     MOVE.L    D3,D0
  25. L_2:
  26.     MOVEM.L    (A7)+,D3/A6
  27.     RTS
  28. _labs:
  29. ;
  30. ; Line 11:    {
  31. ;
  32.     MOVEM.L    D3/A6,-(A7)
  33.     MOVE.L    A0,A6
  34.     MOVE.L    (A6),D3
  35. ;
  36. ; Line 12:        if (x < 0)
  37. ;
  38.     CMP.L    #$0,D3
  39.     BGE    L_3
  40. ;
  41. ; Line 13:            return - x;
  42. ;
  43.     MOVE.L    D3,D0
  44.     NEG.L    D0
  45.     BRA    L_5
  46. L_3:
  47. ;
  48. ; Line 14:        return x;
  49. ;
  50.     MOVE.L    D3,D0
  51. L_5:
  52.     MOVEM.L    (A7)+,D3/A6
  53.     RTS
  54. ___abs__:
  55. ;
  56. ; Line 17:    {
  57. ;
  58.     MOVEM.L    D3/A6,-(A7)
  59.     MOVE.L    A0,A6
  60.     MOVE.L    (A6),D3
  61. ;
  62. ; Line 18:        if (x < 0)
  63. ;
  64.     CMP.L    #$0,D3
  65.     BGE    L_6
  66. ;
  67. ; Line 19:            return - x;
  68. ;
  69.     MOVE.L    D3,D0
  70.     NEG.L    D0
  71.     BRA    L_8
  72. L_6:
  73. ;
  74. ; Line 20:        return x;
  75. ;
  76.     MOVE.L    D3,D0
  77. L_8:
  78.     MOVEM.L    (A7)+,D3/A6
  79.     RTS
  80.     XDEF    _abs
  81.     XDEF    ___abs__
  82.     XDEF    _labs
  83.