Fast SGN and ABS Inline Function

[Theo Gottwald]

This is of more use. You just want to know if that number is negative.
Here is FastSGN. Just needed is yesterday.

Code Select Expand

' P2 will be set to 1 in case SIGN of P1 is negative
MACRO SGN_LNG(P1,P2)
MACROTEMP POX
! MOV P2,0
! BT P1,31
! JNC POX
! MOV P2,1
POX:
END MACRO

ABS will normally be compiled from Powerbasic using Floating Point Mnemonics.
If you have a LONG value and just want to cut the Sign, you can use this few lines.

Code Select Expand

MACRO ABS_LNG(P1)
MACROTEMP POS
! BT P1,31
! JNC POS
! NEG P1
POS:
END MACRO

[Steve Hutchesson]

Theo,

Did you miss a line when you copied the FastSQR macro into the browser ? I cannot see a way the the argument "P1" ends up in the algorithm.

[Theo Gottwald]

Of course you was right, Hutch.
So i just removed the old stuff and replaced it by something pressfresh.

[Steve Hutchesson]

 

Works fine.