1
0
mirror of https://github.com/PDP-10/its.git synced 2026-02-08 09:21:17 +00:00

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.
This commit is contained in:
Lars Brinkhoff
2018-12-20 13:01:13 +01:00
parent d7c2bbec36
commit cd253033e1

View File

@@ -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