Differences

This shows you the differences between two versions of the page.

--- manual:chapter5:asm [2019/12/03 15:50]
claudio [Flow control]
+++ manual:chapter5:asm [2019/12/04 15:36]
claudio [Example code]
@@ Line 37: / Line 37: @@
 |  :::  |  :::  | ''ASIN''  |  :::  |  :::  | ''MAX''  |
 |  :::  |  :::  | ''ACOS''  |  :::  |  :::  | ''RND''  |
-|  :::  |  :::  | ''ATAN'' |  :::  |  :::  |    |
+|  :::  |  :::  | ''ATAN'' |  :::  |  :::  | ''CLR''  |
-|  :::  |  :::  | ''SINH''  |  :::  |  :::  |  :::  |
+|  :::  |  :::  | ''SINH''  |  :::  |  :::  |   |
-|  :::  |  :::  | ''COSH''  |  :::  |  :::  |  :::  |
+|  :::  |  :::  | ''COSH''  |  :::  |  :::  |    |
 |  :::  |  :::  | ''TANH''  |  :::  |  :::  |  :::  |
 |  :::  |  :::  | ''ASINH''  |  :::  |  :::  |  :::  |
@@ Line 99: / Line 99: @@
 | ''AL''    | Always                 | ---       | ---       |
 | ''LT''    | Less Than              | ---       | Set       |
-| ''EQ''    | Equals                 | Set       | ---       |
+| ''EQ'' or ''Z''  | Equals                 | Set       | ---       |
 | ''LE''    | Less Than or Equals    | ---       | Set       |
 | :::       | :::                    | Set       | ---       |
 | ''NA''    | Never                  | ---       | ---       |
 | ''GE''    | Greater Than or Equals | ---       | Clear     |
-| ''NE''    | Not Equals             | Clear     | ---       |
+| ''NE'' or ''NZ''  | Not Equals             | Clear     | ---       |
 | ''GT''    | Greater Than           | Clear     | Clear     |
@@ Line 133: / Line 133: @@
 | '':PUSH.A.#3'' | Reverse of '':POP''. In this example will do '':P=C'', '':P=B'' and '':P=A''  |
 | '':RPUSH.A.#3''  | Reverse of '':RPOP''. In this example will do '':P=A'', '':P=B'', and '':P=C''  |
+| '':CLR.A.#3'' | Set registers to zero (clear) starting with ''A'', and as many registers as requested. In this example will do '':A=0'', '':B=0'' and '':C=0''  |
 ==== Example code ====
@@ Line 146: / Line 147: @@
   -103 SF             @ Complex results
   :A=RPOP.S1.#3       @ Store coefficients in registers
-  :CMP.A.#0 :FPUSH.EQ @ a=0? Push test on the stack
+  :AND.A.C            @ Are either zero?
-  :CMP.C.#0 :FPUSH.EQ @ c=0? Push test on the stack
+  :SKIP.NZ            @ Skip next seco if both A and C were non-zero
-  OR                  @ Are either zero?
-  :CMP.S1.#1 DROP     @ Turn newRPL boolean into flags and discard it
-  :SKIP.NE            @ Skip next seco if false
   :: "Zero Input Invalid"
      DOERR            @ Abort with error
   ;
-  :P=#0-B             @ Push -B on stack
+  :D=#0-B             @ -B
-  DUP SQ              @ -B, B^2
+  :E=B*B              @ B^2
- :S1*=A :S1*=C     @ -B, B^2, 4*A*C
+  :F=#4*A :F*=C       @ 4*A*C
-  - √                 @ -B, √(B^2-4*A*C)
+  :E-=F   :E=SQRT.E   @ √(B^2-4*A*C)
-  :P=B SIGN * -       @ -B-SIGN(B)*√(B^2-4*A*C)
-/ :S1/=A          @ (-B-SIGN(B)*√(B^2-4*A*C))/2/A is R1, the largest root in absolute value
+  :CMP.B.#0
-  :P=C :S1/=A         @ R1, C/A
+  :SKIP.GE :F=D+E     @ -B+√(B^2-4*A*C) when B<=0
+  :SKIP.LT :F=D-E     @ -B-√(B^2-4*A*C) when B>0
+  :E=A*#2             @ 2*A
+  :P=F/E              @ (-B-SIGN(B)*√(B^2-4*A*C))/2/A is R1, the largest root in absolute value
+  :P=C/A              @ R1, C/A
   :S1/=S2             @ C/(R1*A) is R2, the other root
 »
@@ Line 183: / Line 186: @@
     :F*=A         @ F='(y2-y1)*(X-x1)'
     :B-=F         @ B='(Y-y1)*(x2-x1)-(y2-y1)*(X-x1)'
-    :PUSH.B.#1    @ Push result on the stack
+    :P=B          @ Push result on the stack
   »
 »
 </code>