From cd253033e1cb4e1693229b7a8b4689d114defaeb Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 20 Dec 2018 13:01:13 +0100 Subject: [PATCH] Fix bug in 11LOGO turtle graphics LEFT command. No need to compute sign extension when using EAE, moving to MQ does that automatically. When a negative number was used as dividend, the sign extension was accidentally complemented. --- src/11logo/{turtle.61 => turtle.62} | 2 -- 1 file changed, 2 deletions(-) rename src/11logo/{turtle.61 => turtle.62} (99%) diff --git a/src/11logo/turtle.61 b/src/11logo/turtle.62 similarity index 99% rename from src/11logo/turtle.61 rename to src/11logo/turtle.62 index 0392c18a..2242cfba 100644 --- a/src/11logo/turtle.61 +++ b/src/11logo/turtle.62 @@ -769,10 +769,8 @@ FIX: ROL C ;PUT TOP BIT OF C INTO CARRY ; ALWAYS OUTPUTS A POSITIVE NUMBER MOD360: MOV #360.,C MOV #AC,A - CLR (A) ;CLEAR HIGH PART OF DIVIDEND MOV B,2(A) ;MOVE NUMBER TO LOW PART OF DIVIDEND BGE M360A - COM (A) ;EXTEND SIGN TO HIGH PART OF DIVIDEND M360A: MOV C,-(A) ;360 TO DIVISOR MOV 2(A),B ;REMAINDER BGE M360R