Translated and optimized for the Scenix SX by Nikolai Golovchenko
From: Regulus Berdin
mov W, term0 add prod0, W mov W, term1 snb C movsz W, ++term1 add prod1, W mov W, term2 snb C movsz W, ++term2 add prod2, W mov W, term3 snb C movsz W, ++term3 add prod3, W