From c34be54fbcedad8a12701a873a54aa45e197e536 Mon Sep 17 00:00:00 2001 From: d6 Date: Tue, 28 Dec 2021 15:26:03 -0500 Subject: [PATCH] use STH for left-shift0 --- math32.tal | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/math32.tal b/math32.tal index feed397..13feea8 100644 --- a/math32.tal +++ b/math32.tal @@ -172,18 +172,18 @@ ( shift left by 0-7 bits ) @left-shift0 ( x** n^ -> x< r ) + #40 SFT STH ( n<<4 -> r ) SWP SWP2 SWP ( x3 x2 x1 x0 ) - ;sh/r LDA SFT ;sh/z0 STA ( x3 x2 x1 ) + STHkr SFT ;sh/z0 STA ( x3 x2 x1 ) - #00 SWP ;sh/r LDA SFT2 ( x3 x2 00x1<