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