Maths (Arithmetic): SQUA2

       Name: SQUA2                                             [View in context]
       Type: Subroutine
   Category: Maths (Arithmetic)
    Summary: Calculate (A P) = A * A


 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
}