<<<--- % Author M.Ruckert LOC #100 Main SET $1,3 SET $2,4 PUSHJ $0,Exp TRAP 0,Halt,0 --->>> x IS $0 &Parameter n IS $1 & y IS $2 &Local variable z IS $0 &Alias for $x$ & Exp SET y,1 \hfil 1&\ul{\sl A1.~Initialize.} JMP 2F \hfil 1& & 0H SRU n,n,1 \hfil $L+1-K$&\ul{\sl A2.~Halve $N$.} $n$ even. 5H MULU z,z,z \hfil $10L$&\ul{\sl A5.~Square $Z$.} 2H PBEV n,0B \hfil $L +1+2K$&\ul{\sl A2.~Halve $N$.} SRU n,n,1 \hfil K&$n$ odd. MULU y,z,y \hfil $10K$&\ul{\sl A3.~Multiply $Y$ by $Z$.} PBNZ n,5B \hfil $K+2$&\ul{\sl A4.~$N=0$?.} SET $0,y \hfil 1& POP 1,0 \hfil 3&