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:
@@ -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
|
||||
Reference in New Issue
Block a user