Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site tikal.UUCP
Path: utzoo!watmath!clyde!bonnie!akgua!whuxlm!harpo!decvax!tektronix!uw-beaver!tikal!bobc
From: bobc@tikal.UUCP (Bob Campbell)
Newsgroups: net.sources.mac
Subject: Bug in Disassembler for Modula-2 Link Files
Message-ID: <239@tikal.UUCP>
Date: Wed, 11-Sep-85 17:04:10 EDT
Article-I.D.: tikal.239
Posted: Wed Sep 11 17:04:10 1985
Date-Received: Sat, 14-Sep-85 06:41:43 EDT
References: <238@tikal.UUCP>
Distribution: net
Organization: Teltone Corp., Kirkland, WA
Lines: 27

Sharp eyes else where on the net found a bug in the code for decoding
the LEA instruction even before the code was posted (if I would have
examined my mail closer I would have seen it).  I used the IBM syntax
Reg,Address which is incorrect it should have been Address,Reg.

The diffs are as follows (the error is first, and the correction is
second).

RCS file: RCS/Disasm.MOD,v
retrieving revision 1.1
diff -c -r1.1 Disasm.MOD
*** /tmp/,RCSt1004956	Wed Sep 11 13:55:19 1985
--- Disasm.MOD	Wed Sep 11 13:53:36 1985
***************
*** 495,501
              ELSIF Size = 3 THEN
                  WriteString('LEA');
!                 Write2EA(1,ASH(Nibble1,-1) MOD 8,Mode,Reg,FALSE)
              ELSE
--- 495,501 -----
              ELSIF Size = 3 THEN
                  WriteString('LEA');
!                 Write2EA(Mode,Reg,1,ASH(Nibble1,-1) MOD 8,FALSE)
              ELSE

Bob Campbell
uw-beaver!tikal!bobc