А для чего такой изврат-то?
Вот пример генератора синуса в 75 байт http://zxpress.ru/article.php?id=1289
Вышеприведенный пример врядли будет короче, даже без учета процедуры умножения.