assembler

[JJFCNC]

hi guy's

ich kann machen was ich will, die Abfrage: THEN_b
funktioniert nicht.

Weiß jemand einen Rat ?

Delphi-Quellcode:

              asm
                INC nZaehler
                JMP @start
              @start:
                FLD apX
                FMUL Rate
                FST sum_asm
                FLD apMin
                FCOM ST(1)
                JNA @THEN_a        // wenn nicht größer
                JMP @ELSE_a
              @THEN_a:
                FLD apMin
                FSTP apX
                JMP @END_a
              @ELSE_a:
                FLD apX
                FMUL Rate
                FSTP apX
                JMP @END_a
              @END_a:
                FLD Summe
                FADD apX
                FST sum_asm
                FLD H
                FCOM ST(1)
                JNB @THEN_b        // wenn nicht kleiner
                JMP @END_b
              @THEN_b:
                FLD H
                FSUB Summe
                FSTP apX
                JMP @END_b
              @END_b:
                FLD apX
                FMUL halbe_asm
                FADD D_ist
                FSTP D_Ist
                FLD Summe
                FADD apX
                FSTP Summe
              end;