From 4966926947cfa2b9e8fa7e4d28075022538cf341 Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Fri, 22 Apr 1988 16:32:44 +0000 Subject: [PATCH] Fixed the MULS MULU DIVS and DIVU instructions; the operands were reversed. NOTE: The dissassembler totally screws up on these instructions. --- v7/src/compiler/machines/bobcat/instr2.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/instr2.scm b/v7/src/compiler/machines/bobcat/instr2.scm index 50b6fbc3b..980336ee4 100644 --- a/v7/src/compiler/machines/bobcat/instr2.scm +++ b/v7/src/compiler/machines/bobcat/instr2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/instr2.scm,v 1.14 1988/03/14 19:16:16 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/instr2.scm,v 1.15 1988/04/22 16:32:44 markf Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -199,7 +199,7 @@ MIT in each case. |# (let-syntax ((define-mul-and-div (macro (keyword word-form-bit long-form-bit) `(define-instruction ,keyword - (((? sgn us) W (D (? n)) (? ea ea-d)) + (((? sgn us) W (? ea ea-d) (D (? n))) (WORD (1 #b1) (1 ,word-form-bit) (2 #b00) @@ -208,7 +208,7 @@ MIT in each case. |# (2 #b11) (6 ea SOURCE-EA 'W))) - (((? sgn us) L (D (? q)) (? ea ea-d)) + (((? sgn us) L (? ea ea-d) (D (? q))) (WORD (9 #b010011000) (1 ,long-form-bit) (6 ea SOURCE-EA 'L)) @@ -218,7 +218,7 @@ MIT in each case. |# (8 #b00000000) (3 q))) - (((? sgn us) L (D (? r)) (D (? q)) (? ea ea-d)) + (((? sgn us) L (? ea ea-d) (D (? r)) (D (? q))) (WORD (9 #b010011000) (1 ,long-form-bit) (6 ea SOURCE-EA 'L)) @@ -231,7 +231,7 @@ MIT in each case. |# (define-mul-and-div DIV #b0 #b1)) (define-instruction DIVL - (((? sgn us) L (D (? r)) (D (? q)) (? ea ea-d)) + (((? sgn us) L (? ea ea-d) (D (? r)) (D (? q))) (WORD (9 #b010011000) (1 #b1) ; DIV long-form-bit (6 ea SOURCE-EA 'L)) -- 2.25.1