Welcome to the Lounge

Solve:
  load f0, K[0] // Read coefficient A
  load f1, K[1] // Read coefficient B
  load f2, K[2] // Read coefficient C
  load f3, f1 // Copy B
  mul f3, f3 // Square it
  mul f2, f0 // Multiply C by A (C overwritten)
  mul f2, 4 // 4.A.C
  sub f3, f2 // B.B - 4.A.C
  jmp neg, Done // No root
  push f3 // Push the argument onto the stack
  call Sqrt // Call the square root function
  pop f3 // Get the return value, Sqrt(B.B - 4.A.C)
  sub f3, f1 // - B + Sqrt(D)
  mul f0, 2 // 2.A
  div f3, f0 // (- B + Sqrt(D)) / 2.A
  store X, f3 // Write the root
Done:
  ret // Return control to the caller

Jon Plotner wrote:

22 credits a semester