SP <- TOS*OPC (supponendo TOS>0 e OPC>0)
cioe' SP<- TOS+TOS+...+TOS(OPC volte)

      SP=TOS          //poiche si assume OPC>0, si puo' inizializzare SP con TOS
loop  OPC=OPC-1; if (Z) goto end //uso OPC come contatore
      SP=SP+TOS; goto loop       //sommo TOS ad SP, OPC volte
end

==================================================================

SP <- TOS^OPC (supponendo TOS>0 e OPC>0)
cioe' SP<- TOS*TOS*...*TOS(OPC volte)
Si utilizzeranno due cicli: uno interno per eseguire la moltiplicazione, ed uno esterno per l'esponenziazione


         SP=TOS                         //SP conterra' sempre il risultato parziale (TOS*..*TOS); lo inizializzo quindi con TOS, poiche' si assume OPC>0
extLoop  OPC=OPC-1; if (Z) goto end     //OPC e' utilizzato come contatore per il numero di moltiplicazioni per TOS
         CPP=TOS                        //CPP e' utilizzato come contatore per eseguire il prodotto per TOS per somme successive; lo inizializzo quindi con TOS
         H=SP                           //per calcolare SP*TOS sommero' H ad SP, TOS volte
intLoop  CPP=CPP-1; if (Z) goto extLoop //uso CPP come contatore per eseguire la moltiplicazione
SP=SP+H; goto intLoop
end