Maths (Arithmetic): SQUA2

       Name: SQUA2                                                   [Show more]
       Type: Subroutine
   Category: Maths (Arithmetic)
    Summary: Calculate (A P) = A * A
    Context: See this subroutine in context in the source code
 References: This subroutine is called as follows:
             * HITCH calls SQUA2
             * MAS3 calls SQUA2
             * PLFL calls SQUA2
             * SUN (Part 1 of 2) calls SQUA2
             * TT111 calls SQUA2


 Do the following multiplication of unsigned 8-bit numbers:

   (A P) = A * A


.SQUA2

 STA P                  ; Copy A into P and X
 TAX

 BNE MU11               ; If X = 0 fall through into MU1 to return a 0,
                        ; otherwise jump to MU11 to return P * X