mod mit extendet

[BenBE]

Für die Begrenzung von Winkeln im Gradmaß, kann man folgendes nehmen:

Delphi-Quellcode:

Function LimitAngleDeg2(Var Angle: Extended): Extended;
Asm
    FILD    WORD PTR [@@Value360]
    FLD     TBYTE PTR [Angle]
    FPREM
    FSTP    ST(1)

    JMP     @@Ret
@@Value360:
    DW      360
@@Ret:
End;

Die FILD-Anweisung durch     FLD TBYTE PTR [ObereSchranke] ersetzen für andere Grenzen, wenn Obere Grenze ein Parameter ist.