Cadillac Quadratic Solver behaving like an Edsel - Problem solved!!

[Didier Lachieze]

(09-16-2014 11:46 AM)Paul Dale Wrote:  Another step forward would be to preserve the flag as well by using an extra label and another subroutine level:

[...]

And change the sign function to always set flag 4 at the end instead of clearing it.

Good idea!

Otherwise if you're ready to loose register Z (or another one), you can do even shorter with:

Code:

S01   LBL S
S02   STO Z
S03   ABS
S04   x=0?
S05   RTN
S06   STO/ Z
S07   X<> Z
S08   RTN