home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update25.zoo / gas / diffs
Encoding:
Text File  |  1992-10-09  |  33.6 KB  |  1,200 lines
  1. *** 1.2    1992/04/02 22:56:29
  2. --- Makefile    1992/10/09 21:39:14
  3. ***************
  4. *** 1,9 ****
  5. - # HISTORY
  6. - # 31-Jul-91  Shin Iwamoto (shin) at CANON Inc.
  7. - #    Added difinitions for STONE.
  8. - # old day    Shin Iwamoto (shin) at CANON Inc.
  9. - #    Added -DCANON.
  10. - 
  11.   # Makefile for GAS.
  12.   # Copyright (C) 1989, Free Software Foundation
  13.   # 
  14. --- 1,3 ----
  15. ***************
  16. *** 27,43 ****
  17.   # SPARC, ns32k, or i860 assembler(s).
  18.   
  19.   BINDIR = /usr/local/bin
  20. ! CC=gcc
  21.   
  22.   # If you are on a BSD system, un-comment the next two lines, and comment out
  23.   # the lines for SystemV and HPUX below
  24. ! #G0 = -g  -I. #-O -Wall
  25. ! #LDFLAGS = $(CFLAGS)
  26. ! #
  27. ! # To compile gas for STONE, link m-stone.h to m68k.h, and un-comment the
  28. ! # next two lines.
  29. ! G0 = -g  -I. -Dm68040 -DCANON #-O -Wall
  30. ! LDFLAGS = 
  31.   #
  32.   # To compile gas on a System Five machine, comment out the two lines above
  33.   # and un-comment out the next three lines
  34. --- 21,32 ----
  35.   # SPARC, ns32k, or i860 assembler(s).
  36.   
  37.   BINDIR = /usr/local/bin
  38. ! #CC=gcc
  39.   
  40.   # If you are on a BSD system, un-comment the next two lines, and comment out
  41.   # the lines for SystemV and HPUX below
  42. ! G0 = -g  -I. #-O -Wall
  43. ! LDFLAGS = $(CFLAGS)
  44.   #
  45.   # To compile gas on a System Five machine, comment out the two lines above
  46.   # and un-comment out the next three lines
  47. ***************
  48. *** 133,139 ****
  49.   
  50.   G1 = # -DUSE_SYSTEM_HDR
  51.   G2 = # -DUSE_HP_HDR
  52. ! G3 =  -DSUN_ASM_SYNTAX
  53.   
  54.   OPTIONS = $(O1) $(O2) $(O3) $(O4) $(O5) $(O6) $(O7) $(O8) $(O9) $(O10)
  55.   
  56. --- 122,128 ----
  57.   
  58.   G1 = # -DUSE_SYSTEM_HDR
  59.   G2 = # -DUSE_HP_HDR
  60. ! G3 = # -DSUN_ASM_SYNTAX
  61.   
  62.   OPTIONS = $(O1) $(O2) $(O3) $(O4) $(O5) $(O6) $(O7) $(O8) $(O9) $(O10)
  63.   
  64. *** 1.2    1992/06/03 18:48:09
  65. --- PatchLev.h    1992/10/09 21:39:56
  66. ***************
  67. *** 1,4 ****
  68. ! #define PatchLevel "3"
  69.   
  70.   /*
  71.    *    the Patch Level above is to identify the version
  72. --- 1,4 ----
  73. ! #define PatchLevel "4"
  74.   
  75.   /*
  76.    *    the Patch Level above is to identify the version
  77. *** 1.3    1992/04/02 22:56:29
  78. --- app.c    1992/10/09 21:39:16
  79. ***************
  80. *** 257,268 ****
  81.               (*unget)(ch);
  82.               goto flushchar;
  83.           }
  84. - #ifdef CANON
  85. -         if(ch==':') {
  86. -             (*unget)(ch);
  87. -             goto flushchar;
  88. -         }
  89. - #endif CANON
  90.           (*unget)(ch);
  91.           if(state==0 || state==2) {
  92.               state++;
  93. --- 257,262 ----
  94. *** 1.1    1992/04/02 22:56:29
  95. --- m-stone.h    1992/10/09 21:39:22
  96. ***************
  97. *** 1,34 ****
  98. - /*
  99. -  * m-stone.h -- 68040 version of the assembler for th stone.
  100. -  *
  101. -  */
  102. - /*
  103. -  * HISTORY
  104. -  * 31-Jul-91  Shin Iwamoto (shin) at CANON Inc.
  105. -  *    Copied from m-sun3.h.
  106. -  *    Moved SUN_ASM_SYNTAX to Makefile.
  107. -  */
  108. - 
  109. - /* m-sun3.h -- 68020 version of the assembler for the Sun-3
  110. -    Copyright (C) 1987 Free Software Foundation, Inc.
  111. - 
  112. - This file is part of GAS, the GNU Assembler.
  113. - 
  114. - GAS is free software; you can redistribute it and/or modify
  115. - it under the terms of the GNU General Public License as published by
  116. - the Free Software Foundation; either version 1, or (at your option)
  117. - any later version.
  118. - 
  119. - GAS is distributed in the hope that it will be useful,
  120. - but WITHOUT ANY WARRANTY; without even the implied warranty of
  121. - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  122. - GNU General Public License for more details.
  123. - 
  124. - You should have received a copy of the GNU General Public License
  125. - along with GAS; see the file COPYING.  If not, write to
  126. - the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  127. - 
  128. - /*
  129. -  * These definitions reflect only m68k.c.
  130. -  */
  131. - #define M_SUN    1
  132. --- 0 ----
  133. *** 1.3    1992/04/02 22:56:29
  134. --- m68k-opcode.h    1992/10/09 21:39:22
  135. ***************
  136. *** 1,17 ****
  137. - /*
  138. -  * HISTORY
  139. -  * 09-Aug-91  Shin Iwamoto (shin) at CANON Inc.
  140. -  *    Added the following floating-point instruction on mc68040:
  141. -  *        F[SD]ADD, F[SD]SUB, F[SD]MUL, F[SD]DIV, F[SD]ABS,
  142. -  *        F[SD]NEG, F[SD]SQRT, F[SD]MOVE
  143. -  *    Removed fsubx with one register.
  144. -  * 07-Aug-91  Shin Iwamoto (shin) at CANON Inc.
  145. -  *    Added definitions for indirectly supported floating-point
  146. -  *    instructions on mc68040.
  147. -  * 23-Jan-91  K. Chyo (chyo) at DPS of CANON Inc.
  148. -  *    Enhanced for mc68040 support.
  149. -  */
  150. - 
  151.   /* Opcode table for m68000/m68020 and m68881.
  152.      Copyright (C) 1989, Free Software Foundation.
  153.   
  154. --- 1,3 ----
  155. ***************
  156. *** 31,36 ****
  157. --- 17,23 ----
  158.   along with GDB or GAS; see the file COPYING.  If not, write to
  159.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  160.      
  161. + 
  162.   struct m68k_opcode
  163.   {
  164.     char *name;
  165. ***************
  166. *** 100,115 ****
  167.       802    CAAR    Cache Address Register
  168.       803    MSP    Master Stack Pointer
  169.       804    ISP    Interrupt Stack Pointer
  170. - #ifdef m68040
  171. -     003    MMU Translation Control reg
  172. -     004    Instruction Transparant Tlanslation reg 0
  173. -     005    Instruction Transparant Tlanslation reg 1
  174. -     006    Data Transparant Tlanslation reg 0
  175. -     007    Data Transparant Tlanslation reg 1
  176. -     805    MMU Status reg
  177. -     806    User Root Pointer
  178. -     807    Supervisor Root Pointer
  179. - #endif m68040
  180.   
  181.       L  Register list of the type d0-d7/a0-a7 etc.
  182.          (New!  Improved!  Can also hold fp0-fp7, as well!)
  183. --- 87,92 ----
  184. ***************
  185. *** 134,145 ****
  186.      /  control, or data register            (modes 0,2,5,6,7.0,7.1,7.2,7.3)(not 1,3,4,7.4)
  187.   */
  188.   
  189. - #ifdef m68040
  190. - /*
  191. -    a  address register indirect only.  Stored as 3 bits.
  192. -    c  cache immediate data.  Stored as 2 bits.
  193. - */
  194. - #endif m68040
  195.   /* JF: for the 68851 */
  196.   /*
  197.      I didn't use much imagination in choosing the 
  198. --- 111,116 ----
  199. ***************
  200. *** 334,342 ****
  201.   
  202.   {"bkpt",    one(0044110),        one(0177770),        "Qs"},
  203.   {"bra",        one(0060000),        one(0177400),        "Bg"},
  204. ! {"bras",    one(0060000),        one(0177400),        "Bw"},
  205.   {"bsr",        one(0060400),        one(0177400),        "Bg"},
  206. ! {"bsrs",    one(0060400),        one(0177400),        "Bw"},
  207.   
  208.   {"callm",    one(0003300),        one(0177700),        "#b!s"},
  209.   {"cas2l",    two(0007374, 0),    two(0177777, 0107070),    "D3D6D2D5R1R4"}, /* JF FOO this is really a 3 word ins */
  210. --- 305,313 ----
  211.   
  212.   {"bkpt",    one(0044110),        one(0177770),        "Qs"},
  213.   {"bra",        one(0060000),        one(0177400),        "Bg"},
  214. ! {"bras",    one(0060000),        one(0177400),        "Bg"},
  215.   {"bsr",        one(0060400),        one(0177400),        "Bg"},
  216. ! {"bsrs",    one(0060400),        one(0177400),        "Bg"},
  217.   
  218.   {"callm",    one(0003300),        one(0177700),        "#b!s"},
  219.   {"cas2l",    two(0007374, 0),    two(0177777, 0107070),    "D3D6D2D5R1R4"}, /* JF FOO this is really a 3 word ins */
  220. ***************
  221. *** 1214,1220 ****
  222.   {"fsubw",    two(0xF000, 0x5028),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  223.   {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  224.   {"fsubx",    two(0xF000, 0x4828),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  225. ! /* {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiFt"}, Shin removed */
  226.   
  227.   {"ftanb",    two(0xF000, 0x580F),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  228.   {"ftand",    two(0xF000, 0x540F),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  229. --- 1185,1191 ----
  230.   {"fsubw",    two(0xF000, 0x5028),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  231.   {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  232.   {"fsubx",    two(0xF000, 0x4828),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  233. ! {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiFt"},
  234.   
  235.   {"ftanb",    two(0xF000, 0x580F),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  236.   {"ftand",    two(0xF000, 0x540F),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  237. ***************
  238. *** 1507,1686 ****
  239.   {"movsw",    two(0007100, 0),    two(0177700, 07777),    "~sR1"},
  240.   {"movsw",    two(0007100, 04000),    two(0177700, 07777),    "R1~s"},
  241.   
  242. - #ifdef m68040
  243. - {"mov16",    two(0173040, 0100000),    two(0177770, 0100000),    "+s+1"},
  244. - {"mov16",    one(0173000),        one(0177770),        "+s#l"},
  245. - {"mov16",    one(0173010),        one(0177770),        "#l+s"},
  246. - {"mov16",    one(0173020),        one(0177770),        "as#l"},
  247. - {"mov16",    one(0173030),        one(0177770),        "#las"},
  248. - 
  249. - {"cinvl",    one(0172010),        one(0177470),        "c9as"},
  250. - {"cinvp",    one(0172020),        one(0177470),        "c9as"},
  251. - {"cinva",    one(0172030),        one(0177470),        "c9"},
  252. - 
  253. - {"cpushl",    one(0172050),        one(0177470),        "c9as"},
  254. - {"cpushp",    one(0172060),        one(0177470),        "c9as"},
  255. - {"cpusha",    one(0172070),        one(0177470),        "c9"},
  256. - 
  257. - {"pflushn",    one(0172400),        one(0177770),        "as"},
  258. - {"pflush",    one(0172410),        one(0177770),        "as"},
  259. - {"pflushan",    one(0172420),        one(0177770),        ""},
  260. - {"pflusha",    one(0172430),        one(0177770),        ""},
  261. - 
  262. - {"ptestw",    one(0172510),        one(0177770),        "as"},
  263. - {"ptestr",    one(0172550),        one(0177770),        "as"},
  264. - 
  265. - {"fsaddb",    two(0xF000, 0x5862),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  266. - {"fsaddd",    two(0xF000, 0x5462),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  267. - {"fsaddl",    two(0xF000, 0x4062),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  268. - {"fsaddp",    two(0xF000, 0x4C62),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  269. - {"fsadds",    two(0xF000, 0x4462),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  270. - {"fsaddw",    two(0xF000, 0x5062),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  271. - {"fsaddx",    two(0xF000, 0x0062),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  272. - {"fsaddx",    two(0xF000, 0x4862),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  273. - 
  274. - {"fdaddb",    two(0xF000, 0x5866),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  275. - {"fdaddd",    two(0xF000, 0x5466),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  276. - {"fdaddl",    two(0xF000, 0x4066),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  277. - {"fdaddp",    two(0xF000, 0x4C66),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  278. - {"fdadds",    two(0xF000, 0x4466),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  279. - {"fdaddw",    two(0xF000, 0x5066),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  280. - {"fdaddx",    two(0xF000, 0x0066),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  281. - {"fdaddx",    two(0xF000, 0x4866),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  282. - 
  283. - {"fssubb",    two(0xF000, 0x5868),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  284. - {"fssubd",    two(0xF000, 0x5468),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  285. - {"fssubl",    two(0xF000, 0x4068),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  286. - {"fssubp",    two(0xF000, 0x4C68),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  287. - {"fssubs",    two(0xF000, 0x4468),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  288. - {"fssubw",    two(0xF000, 0x5068),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  289. - {"fssubx",    two(0xF000, 0x0068),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  290. - {"fssubx",    two(0xF000, 0x4868),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  291. - 
  292. - {"fdsubb",    two(0xF000, 0x586C),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  293. - {"fdsubd",    two(0xF000, 0x546C),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  294. - {"fdsubl",    two(0xF000, 0x406C),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  295. - {"fdsubp",    two(0xF000, 0x4C6C),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  296. - {"fdsubs",    two(0xF000, 0x446C),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  297. - {"fdsubw",    two(0xF000, 0x506C),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  298. - {"fdsubx",    two(0xF000, 0x006C),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  299. - {"fdsubx",    two(0xF000, 0x486C),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  300. - 
  301. - {"fsmulb",    two(0xF000, 0x5863),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  302. - {"fsmuld",    two(0xF000, 0x5463),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  303. - {"fsmull",    two(0xF000, 0x4063),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  304. - {"fsmulp",    two(0xF000, 0x4C63),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  305. - {"fsmuls",    two(0xF000, 0x4463),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  306. - {"fsmulw",    two(0xF000, 0x5063),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  307. - {"fsmulx",    two(0xF000, 0x0063),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  308. - {"fsmulx",    two(0xF000, 0x4863),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  309. - 
  310. - {"fdmulb",    two(0xF000, 0x5867),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  311. - {"fdmuld",    two(0xF000, 0x5467),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  312. - {"fdmull",    two(0xF000, 0x4067),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  313. - {"fdmulp",    two(0xF000, 0x4C67),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  314. - {"fdmuls",    two(0xF000, 0x4467),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  315. - {"fdmulw",    two(0xF000, 0x5067),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  316. - {"fdmulx",    two(0xF000, 0x0067),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  317. - {"fdmulx",    two(0xF000, 0x4867),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  318. - 
  319. - {"fsdivb",    two(0xF000, 0x5860),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  320. - {"fsdivd",    two(0xF000, 0x5460),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  321. - {"fsdivl",    two(0xF000, 0x4060),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  322. - {"fsdivp",    two(0xF000, 0x4C60),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  323. - {"fsdivs",    two(0xF000, 0x4460),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  324. - {"fsdivw",    two(0xF000, 0x5060),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  325. - {"fsdivx",    two(0xF000, 0x0060),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  326. - {"fsdivx",    two(0xF000, 0x4860),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  327. - 
  328. - {"fddivb",    two(0xF000, 0x5864),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  329. - {"fddivd",    two(0xF000, 0x5464),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  330. - {"fddivl",    two(0xF000, 0x4064),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  331. - {"fddivp",    two(0xF000, 0x4C64),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  332. - {"fddivs",    two(0xF000, 0x4464),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  333. - {"fddivw",    two(0xF000, 0x5064),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  334. - {"fddivx",    two(0xF000, 0x0064),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  335. - {"fddivx",    two(0xF000, 0x4864),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  336. - 
  337. - {"fsabsb",    two(0xF000, 0x5858),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  338. - {"fsabsd",    two(0xF000, 0x5458),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  339. - {"fsabsl",    two(0xF000, 0x4058),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  340. - {"fsabsp",    two(0xF000, 0x4C58),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  341. - {"fsabss",    two(0xF000, 0x4458),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  342. - {"fsabsw",    two(0xF000, 0x5058),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  343. - {"fsabsx",    two(0xF000, 0x0058),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  344. - {"fsabsx",    two(0xF000, 0x4858),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  345. - {"fsabsx",    two(0xF000, 0x0058),    two(0xF1C0, 0xE07F),    "IiFt"},
  346. - 
  347. - {"fdabsb",    two(0xF000, 0x585C),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  348. - {"fdabsd",    two(0xF000, 0x545C),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  349. - {"fdabsl",    two(0xF000, 0x405C),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  350. - {"fdabsp",    two(0xF000, 0x4C5C),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  351. - {"fdabss",    two(0xF000, 0x445C),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  352. - {"fdabsw",    two(0xF000, 0x505C),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  353. - {"fdabsx",    two(0xF000, 0x005C),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  354. - {"fdabsx",    two(0xF000, 0x485C),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  355. - {"fdabsx",    two(0xF000, 0x005C),    two(0xF1C0, 0xE07F),    "IiFt"},
  356. - 
  357. - {"fsnegb",    two(0xF000, 0x585A),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  358. - {"fsnegd",    two(0xF000, 0x545A),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  359. - {"fsnegl",    two(0xF000, 0x405A),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  360. - {"fsnegp",    two(0xF000, 0x4C5A),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  361. - {"fsnegs",    two(0xF000, 0x445A),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  362. - {"fsnegw",    two(0xF000, 0x505A),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  363. - {"fsnegx",    two(0xF000, 0x005A),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  364. - {"fsnegx",    two(0xF000, 0x485A),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  365. - {"fsnegx",    two(0xF000, 0x005A),    two(0xF1C0, 0xE07F),    "IiFt"},
  366. - 
  367. - {"fdnegb",    two(0xF000, 0x585E),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  368. - {"fdnegd",    two(0xF000, 0x545E),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  369. - {"fdnegl",    two(0xF000, 0x405E),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  370. - {"fdnegp",    two(0xF000, 0x4C5E),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  371. - {"fdnegs",    two(0xF000, 0x445E),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  372. - {"fdnegw",    two(0xF000, 0x505E),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  373. - {"fdnegx",    two(0xF000, 0x005E),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  374. - {"fdnegx",    two(0xF000, 0x485E),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  375. - {"fdnegx",    two(0xF000, 0x005E),    two(0xF1C0, 0xE07F),    "IiFt"},
  376. - 
  377. - {"fssqrtb",    two(0xF000, 0x5841),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  378. - {"fssqrtd",    two(0xF000, 0x5441),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  379. - {"fssqrtl",    two(0xF000, 0x4041),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  380. - {"fssqrtp",    two(0xF000, 0x4C41),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  381. - {"fssqrts",    two(0xF000, 0x4441),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  382. - {"fssqrtw",    two(0xF000, 0x5041),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  383. - {"fssqrtx",    two(0xF000, 0x0041),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  384. - {"fssqrtx",    two(0xF000, 0x4841),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  385. - {"fssqrtx",    two(0xF000, 0x0041),    two(0xF1C0, 0xE07F),    "IiFt"},
  386. - 
  387. - {"fdsqrtb",    two(0xF000, 0x5845),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  388. - {"fdsqrtd",    two(0xF000, 0x5445),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  389. - {"fdsqrtl",    two(0xF000, 0x4045),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  390. - {"fdsqrtp",    two(0xF000, 0x4C45),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  391. - {"fdsqrts",    two(0xF000, 0x4445),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  392. - {"fdsqrtw",    two(0xF000, 0x5045),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  393. - {"fdsqrtx",    two(0xF000, 0x0045),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  394. - {"fdsqrtx",    two(0xF000, 0x4845),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  395. - {"fdsqrtx",    two(0xF000, 0x0045),    two(0xF1C0, 0xE07F),    "IiFt"},
  396. - 
  397. - {"fsmoveb",    two(0xF000, 0x5840),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  398. - {"fsmoved",    two(0xF000, 0x5440),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  399. - {"fsmovel",    two(0xF000, 0x4040),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  400. - {"fsmovep",    two(0xF000, 0x4C40),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  401. - {"fsmoves",    two(0xF000, 0x4440),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  402. - {"fsmovew",    two(0xF000, 0x5040),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  403. - {"fsmovex",    two(0xF000, 0x0040),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  404. - {"fsmovex",    two(0xF000, 0x4840),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  405. - 
  406. - {"fdmoveb",    two(0xF000, 0x5844),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  407. - {"fdmoved",    two(0xF000, 0x5444),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  408. - {"fdmovel",    two(0xF000, 0x4044),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  409. - {"fdmovep",    two(0xF000, 0x4C44),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  410. - {"fdmoves",    two(0xF000, 0x4444),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  411. - {"fdmovew",    two(0xF000, 0x5044),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  412. - {"fdmovex",    two(0xF000, 0x0044),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  413. - {"fdmovex",    two(0xF000, 0x4844),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  414. - #endif m68040
  415. - 
  416.   #ifdef m68851
  417.    /* name */    /* opcode */        /* match */        /* args */
  418.   
  419. --- 1478,1483 ----
  420. ***************
  421. *** 1886,1902 ****
  422.   int numopcodes=sizeof(m68k_opcodes)/sizeof(m68k_opcodes[0]);
  423.   
  424.   struct m68k_opcode *endop = m68k_opcodes+sizeof(m68k_opcodes)/sizeof(m68k_opcodes[0]);
  425. - 
  426. - #ifdef m68040
  427. - char *indirect_fp_opcodes[] =
  428. - {
  429. -     "facos",   "fasin",   "fatanh",  "fatan",    "fcosh",
  430. -     "fcos",    "fetoxm1", "fetox",   "fgetexp",  "fgetman", 
  431. -     "fintrz",  "fint",    "flog10",  "flog2",    "flognp1",
  432. -     "flogn",   "fmod",    "fmovecr", "frem",     "fscale",
  433. -     "fsgldiv", "fsglmul", "fsincos", "fsinh",    "fsin",
  434. -     "ftanh",   "ftan",    "ftentox", "ftwotox",
  435. - };
  436. - 
  437. - char **endfpinst = indirect_fp_opcodes+sizeof(indirect_fp_opcodes)/sizeof(indirect_fp_opcodes[0]);
  438. - #endif m68040
  439. --- 1683,1685 ----
  440. *** 1.3    1992/04/02 22:56:29
  441. --- m68k.c    1992/10/09 21:39:23
  442. ***************
  443. *** 1,18 ****
  444. - /*
  445. -  * HISTORY
  446. -  * 09-Sep-91  Shin Iwamoto (shin) at CANON Inc.
  447. -  *    Changed the default machine type as mc68040.
  448. -  *    Only changed the initial value of m68k_kind.
  449. -  * 09-Aug-91  Shin Iwamoto (shin) at CANON Inc.
  450. -  *    Supported -m68040 option. When -m68040 is specified,
  451. -  *    indirectly supported floating-point instructions and
  452. -  *    68020 instructions (callm and rtm) aren't assembled.
  453. -  * 31-Jul-91  Shin Iwamoto (shin) at CANON Inc.
  454. -  *    Changed <caches> definitions for CINV as mnemonic.
  455. -  * 23-Jan-91  K. Chyo (chyo) at DPS of CANON Inc.
  456. -  *    Supported instructions on mc68040.
  457. -  */
  458. - 
  459.   /* m68k.c  All the m68020 specific stuff in one convenient, huge,
  460.      slow to compile, easy to find file.
  461.      Copyright (C) 1987 Free Software Foundation, Inc.
  462. --- 1,3 ----
  463. ***************
  464. *** 293,315 ****
  465.   #define FPI    (MSP+1)        /* 45 */
  466.   #define FPS    (FPI+1)        /* 46 */
  467.   #define FPC    (FPS+1)        /* 47 */
  468. - 
  469. - #ifdef m68040
  470. - #define TC    (FPC+1)        /* 48 */
  471. - #define ITT0    (TC+1)        /* 49 */
  472. - #define ITT1    (ITT0+1)    /* 50 */
  473. - #define DTT0    (ITT1+1)    /* 51 */
  474. - #define DTT1    (DTT0+1)    /* 52 */
  475. - #define MMUSR    (DTT1+1)    /* 53 */
  476. - #define URP    (MMUSR+1)    /* 54 */
  477. - #define SRP    (URP+1)        /* 55 */
  478. - 
  479. - #define    NC    (SRP+1)        /* 56 */
  480. - #define    DC    (NC+1)        /* 57 */
  481. - #define    IC    (NC+2)        /* 58 */
  482. - #define    BC    (NC+3)        /* 59 */
  483. - 
  484. - #else /* m68040 */
  485.   /*
  486.    * these defines should be in m68k.c but
  487.    * i put them here to keep all the m68851 stuff
  488. --- 278,283 ----
  489. ***************
  490. *** 329,335 ****
  491.   #define BAC    (BAD+8)        /* 64,65,66,67, 68,69,70,71 */
  492.   #define PSR    (BAC+8)        /* 72 */
  493.   #define PCSR    (PSR+1)        /* 73 */
  494. - #endif m68040
  495.   
  496.   
  497.   /* Note that COPNUM==processor #1 -- COPNUM+7==#8, which stores as 000 */
  498. --- 297,302 ----
  499. ***************
  500. *** 418,423 ****
  501. --- 385,392 ----
  502.      the_ins.opcode[z]=the_ins.opcode[z-1];\
  503.    for(z=0;z<the_ins.nrel;z++)\
  504.      the_ins.reloc[z].n+=2;\
  505. +  for(z=0;z<the_ins.nfrag;z++)\
  506. +    the_ins.fragb[z].fragoff+=1;\
  507.    the_ins.opcode[opcode->m_codenum]=w;\
  508.    the_ins.numo++;\
  509.   }
  510. ***************
  511. *** 467,483 ****
  512.   #define getone(x)    ((((x)->m_opcode)>>16)&0xffff)
  513.   #define gettwo(x)    (((x)->m_opcode)&0xffff)
  514.   
  515. - #ifdef m68040
  516. - /*
  517. -  * When m68k_kind is 4 (meaning m68040), our as doesn't assemble indirectly
  518. -  * supported floating-point instructions. And then the default is 4.
  519. -  */
  520. - /* int    m68k_kind = 4; *
  521. - 
  522. - /* ++jrb -- change m68k_kind to 0, to use 68040 support use -m68040 arg */
  523. - int    m68k_kind = 4;
  524. - #endif m68040
  525. - 
  526.   /* JF modified this to handle cases where the first part of a symbol name
  527.      looks like a register */
  528.   
  529. --- 436,441 ----
  530. ***************
  531. *** 488,499 ****
  532.       register char c1,
  533.           c2,
  534.           c3,
  535. - #ifdef m68040
  536. -         c4,
  537. -         c5;
  538. - #else
  539.           c4;
  540. - #endif m68040
  541.       register int n = 0,
  542.           ret = FAIL;
  543.   
  544. --- 446,452 ----
  545. ***************
  546. *** 505,520 ****
  547.       c2=mklower(ccp[0][2]);
  548.       c3=mklower(ccp[0][3]);
  549.       c4=mklower(ccp[0][4]);
  550. - #ifdef m68040
  551. -     c5=mklower(ccp[0][5]);
  552. - #endif m68040
  553.   #else
  554.       c2=mklower(ccp[0][1]);
  555.       c3=mklower(ccp[0][2]);
  556.       c4=mklower(ccp[0][3]);
  557. - #ifdef m68040
  558. -     c5=mklower(ccp[0][4]);
  559. - #endif m68040
  560.   #endif
  561.       switch(c1) {
  562.       case 'a':
  563. --- 458,467 ----
  564. ***************
  565. *** 529,542 ****
  566.           }
  567.   #endif
  568.           break;
  569. - #ifdef m68040
  570. -     case 'b':
  571. -         if (c2 == 'c') {
  572. -             n = 2;
  573. -             ret = BC;
  574. -         }
  575. -         break;
  576. - #endif m68040
  577.   #ifdef m68851
  578.       case 'b':
  579.           if (c2 == 'a') {
  580. --- 476,481 ----
  581. ***************
  582. *** 594,613 ****
  583.               ret = (DRP);
  584.           }
  585.   #endif
  586. - #ifdef m68040
  587. -         else if (c2 == 't' && c3 == 't' && c4 == '0') {
  588. -              n = 4;
  589. -             ret = DTT0;
  590. -         }
  591. -         else if (c2 == 't' && c3 == 't' && c4 == '1') {
  592. -             n = 4;
  593. -             ret = DTT1;
  594. -         }
  595. -         else if (c2 == 'c') {
  596. -             n = 2;
  597. -             ret = DC;
  598. -         }
  599. - #endif m68040
  600.           break;
  601.       case 'f':
  602.           if(c2=='p') {
  603. --- 533,538 ----
  604. ***************
  605. *** 633,652 ****
  606.               n=3;
  607.               ret = ISP;
  608.           }
  609. - #ifdef m68040
  610. -         else if (c2 == 't' && c3 == 't' && c4 == '0') {
  611. -             n = 4;
  612. -             ret = ITT0;
  613. -         }
  614. -         else if (c2 == 't' && c3 == 't' && c4 == '1') {
  615. -             n = 4;
  616. -             ret = ITT1;
  617. -         }
  618. -         else if (c2 == 'c') { 
  619. -             n = 2;
  620. -             ret = IC;
  621. -         }
  622. - #endif m68040
  623.           break;
  624.       case 'm':
  625.           if(c2=='s' && c3=='p') {
  626. --- 558,563 ----
  627. ***************
  628. *** 653,674 ****
  629.               n=3;
  630.               ret = MSP;
  631.           }
  632. - #ifdef m68040
  633. -         else if (c2 == 'm' && c3 == 'u' && c4 == 's' && c5 == 'r') 
  634. -         {
  635. -             n = 5;
  636. -             ret = MMUSR;
  637. -         }
  638. - #endif m68040
  639. -         break;
  640. - #ifdef m68040
  641. -     case 'n':
  642. -         if(c2=='c') {
  643. -             n=2;
  644. -             ret = NC;
  645. -         }
  646.           break;
  647. - #endif m68040
  648.       case 'p':
  649.           if(c2=='c') {
  650.   #ifdef m68851
  651. --- 564,570 ----
  652. ***************
  653. *** 690,701 ****
  654.   #endif
  655.           break;
  656.       case 's':
  657. - #ifdef m68040
  658. -         if (c2 == 'r' && c3 == 'p') {
  659. -             n = 3;
  660. -             ret = (SRP);
  661. -         } else
  662. - #endif m68040
  663.   #ifdef m68851
  664.           if (c2 == 'c' && c3 == 'c') {
  665.               n = 3;
  666. --- 586,591 ----
  667. ***************
  668. *** 716,722 ****
  669.               ret = SFC;
  670.           }
  671.           break;
  672. ! #if defined(m68851) || defined(m68040)
  673.       case 't':
  674.           if(c2 == 'c') {
  675.               n=2;
  676. --- 606,612 ----
  677.               ret = SFC;
  678.           }
  679.           break;
  680. ! #ifdef m68851
  681.       case 't':
  682.           if(c2 == 'c') {
  683.               n=2;
  684. ***************
  685. *** 725,736 ****
  686.           break;
  687.   #endif
  688.       case 'u':
  689. - #ifdef m68040
  690. -         if (c2 == 'r' && c3 == 'p') {
  691. -             n = 3;
  692. -             ret = (URP);
  693. -         } else
  694. - #endif m68040
  695.           if(c2=='s' && c3=='p') {
  696.               n=3;
  697.               ret = USP;
  698. --- 615,620 ----
  699. ***************
  700. *** 790,803 ****
  701.           return FAIL;
  702.       }
  703.       for(strend=str;*strend;strend++)
  704. - #if defined(CANON) && defined(SUN_ASM_SYNTAX)
  705. -         if (*strend == ' ' || *strend == '\t') {
  706. -             *strend = '\0';
  707. -             break;
  708. -         }
  709. - #else
  710.           ;
  711. - #endif CANON && SUN_ASM_SYNTAX
  712.       --strend;
  713.   
  714.           /* Guess what:  A constant.  Shar and enjoy */
  715. --- 674,680 ----
  716. ***************
  717. *** 1140,1154 ****
  718.     /* Scan up to end of operation-code, which MUST end in end-of-string
  719.        or exactly 1 space. */
  720.       for (p = instring; *p != '\0'; p++)
  721. - #if defined(CANON) && defined(SUN_ASM_SYNTAX)
  722. -         /*
  723. -          * On SUN's Assembler, an operator and operands can be
  724. -          * separeted by spaces or tabs. (Shin)
  725. -          */
  726. -         if (*p == ' ' || *p == '\t')
  727. - #else
  728.           if (*p == ' ')
  729. - #endif CANON && SUN_ASUM_SYNTAX
  730.               break;
  731.   
  732.   
  733. --- 1017,1023 ----
  734. ***************
  735. *** 1164,1176 ****
  736.        look it up in the hash table, then fix it back. */   
  737.       c = *p;
  738.       *p = '\0';
  739. - #ifdef m68040
  740. -     if (m68k_kind == 4 && (
  741. -              (instring[0] == 'f' && indirect_fp_inst(instring))
  742. -             || m68020_only_inst(instring) )){
  743. -         opcode = NULL;
  744. -     } else
  745. - #endif m68040
  746.       opcode = (struct m68_incant *)hash_find (op_hash, instring);
  747.       *p = c;
  748.   
  749. --- 1033,1038 ----
  750. ***************
  751. *** 1181,1192 ****
  752.           return;
  753.       }
  754.   
  755. - #if defined(CANON) && defined(SUN_ASM_SYNTAX)
  756. -     for (; *p != '\0'; p++)
  757. -         if (!(*p == ' ' || *p == '\t'))
  758. -             break;
  759. - #endif CANON && SUN_ASM_SYNTAX
  760. - 
  761.     /* found a legitimate opcode, start matching operands */
  762.       for(opP= &the_ins.operands[0];*p;opP++) {
  763.           p = crack_operand (p, opP);
  764. --- 1043,1048 ----
  765. ***************
  766. *** 1315,1326 ****
  767.                       losing++;
  768.                   break;
  769.   
  770. - #ifdef m68040
  771. -             case 'a':
  772. -                 if(opP->mode!=AINDR)
  773. -                     losing++;
  774. -                 break;
  775. - #endif m68040
  776.               case 'A':
  777.                   if(opP->mode!=AREG)
  778.                       losing++;
  779. --- 1171,1176 ----
  780. ***************
  781. *** 1330,1342 ****
  782.                   if(opP->mode!=ABSL)
  783.                       losing++;
  784.                   break;
  785. - #ifdef m68040
  786. -             case 'c':
  787. -                 if(opP->mode!=MSCR || opP->reg<NC || opP->reg>BC)
  788. -                     losing++;
  789. -                 break;
  790. - 
  791. - #endif
  792.   
  793.               case 'C':
  794.                   if(opP->mode!=MSCR || opP->reg!=CCR)
  795. --- 1180,1185 ----
  796. ***************
  797. *** 1366,1378 ****
  798.                   break;
  799.   
  800.               case 'J':
  801. - #ifdef m68040
  802. -                 if(opP->mode!=MSCR ||
  803. -                    ((opP->reg<USP && opP->reg>MSP) &&
  804. -                     (opP->reg<TC && opP->reg>SRP)))
  805. - #else
  806.                   if(opP->mode!=MSCR || opP->reg<USP || opP->reg>MSP)
  807. - #endif m68040
  808.                       losing++;
  809.                   break;
  810.   
  811. --- 1209,1215 ----
  812. ***************
  813. *** 1526,1531 ****
  814. --- 1363,1369 ----
  815.               /* This switch is a doozy.
  816.                  What the first step; its a big one! */
  817.           switch(s[0]) {
  818. + 
  819.           case '*':
  820.           case '~':
  821.           case '%':
  822. ***************
  823. *** 1651,1659 ****
  824.                       else
  825.                           tmpreg=0x30+opP->reg-ADDR;    /* 6.areg */
  826.                       if(isvar(opP->con1)) {
  827. !                         if(opP->reg==PC) {
  828. !                                add_frag(adds(opP->con1),
  829. !                              offs(opP->con1),
  830.                                TAB(PCLEA,SZ_UNDEF));
  831.                               break;
  832.                           } else {
  833. --- 1489,1498 ----
  834.                       else
  835.                           tmpreg=0x30+opP->reg-ADDR;    /* 6.areg */
  836.                       if(isvar(opP->con1)) {
  837. !                         if(opP->reg==PC &&
  838. !                            !subs(opP->con1)) {
  839. !                             add_frag(adds(opP->con1),
  840. !                              offs(opP->con1)+2,
  841.                                TAB(PCLEA,SZ_UNDEF));
  842.                               break;
  843.                           } else {
  844. ***************
  845. *** 1670,1676 ****
  846.                           tmpreg=0x28+opP->reg-ADDR; /* 5.areg */
  847.   
  848.                       if(isvar(opP->con1)) {
  849. !                         if(opP->reg==PC) {
  850.                               add_fix('w',opP->con1,1);
  851.                           } else
  852.                               add_fix('w',opP->con1,0);
  853. --- 1509,1517 ----
  854.                           tmpreg=0x28+opP->reg-ADDR; /* 5.areg */
  855.   
  856.                       if(isvar(opP->con1)) {
  857. !                         if(opP->reg==PC &&
  858. !                            !subs(opP->con1)) {
  859. !                             offs(opP->con1) += 2;
  860.                               add_fix('w',opP->con1,1);
  861.                           } else
  862.                               add_fix('w',opP->con1,0);
  863. ***************
  864. *** 1729,1735 ****
  865.                           nextword +=baseo&0xff;
  866.                           addword(nextword);
  867.                           if(isvar(opP->con1))
  868. !                             add_fix('B',opP->con1,0);
  869.                           break;
  870.                       }
  871.                   } else
  872. --- 1570,1581 ----
  873.                           nextword +=baseo&0xff;
  874.                           addword(nextword);
  875.                           if(isvar(opP->con1))
  876. !                             if(opP->reg==PC &&
  877. !                                !subs(opP->con1)) {
  878. !                                 offs(opP->con1) += 2;
  879. !                                 add_fix('B',opP->con1,1);
  880. !                             } else
  881. !                                 add_fix('B',opP->con1,0);
  882.                           break;
  883.                       }
  884.                   } else
  885. ***************
  886. *** 1791,1799 ****
  887.                   addword(nextword);
  888.   
  889.                   if(isvar(opP->con1)) {
  890. !                     if(opP->reg==PC || opP->reg==ZPC) {
  891.                           add_fix(siz1==3 ? 'l' : 'w',opP->con1,1);
  892. !                         opP->con1->e_exp.X_add_number+=6;
  893.                       } else
  894.                           add_fix(siz1==3 ? 'l' : 'w',opP->con1,0);
  895.                   }
  896. --- 1637,1647 ----
  897.                   addword(nextword);
  898.   
  899.                   if(isvar(opP->con1)) {
  900. !                     if((opP->reg==PC || opP->reg==ZPC) &&
  901. !                        !subs(opP->con1)) {
  902. !                         offs(opP->con1) += (siz1==3) ? 6 : 4;
  903.                           add_fix(siz1==3 ? 'l' : 'w',opP->con1,1);
  904. ! 
  905.                       } else
  906.                           add_fix(siz1==3 ? 'l' : 'w',opP->con1,0);
  907.                   }
  908. ***************
  909. *** 1803,1813 ****
  910.                       addword(baseo);
  911.   
  912.                   if(isvar(opP->con2)) {
  913. !                     if(opP->reg==PC || opP->reg==ZPC) {
  914. !                         add_fix(siz2==3 ? 'l' : 'w',opP->con2,1);
  915. !                         opP->con1->e_exp.X_add_number+=6;
  916. !                     } else
  917. !                         add_fix(siz2==3 ? 'l' : 'w',opP->con2,0);
  918.                   }
  919.                   if(siz2==3)
  920.                       addword(outro>>16);
  921. --- 1651,1657 ----
  922.                       addword(baseo);
  923.   
  924.                   if(isvar(opP->con2)) {
  925. !                     add_fix(siz2==3 ? 'l' : 'w',opP->con2,0);
  926.                   }
  927.                   if(siz2==3)
  928.                       addword(outro>>16);
  929. ***************
  930. *** 1924,1932 ****
  931.           case '+':
  932.           case '-':
  933.           case 'A':
  934. - #ifdef m68040
  935. -         case 'a':
  936. - #endif m68040
  937.               install_operand(s[1],opP->reg-ADDR);
  938.               break;
  939.   
  940. --- 1768,1773 ----
  941. ***************
  942. *** 1986,1992 ****
  943.                       }
  944.   
  945.                           /* Don't ask! */
  946. !                     opP->con1->e_exp.X_add_number+=2;
  947.                       add_fix('w',opP->con1,1);
  948.                   }
  949.                   addword(0);
  950. --- 1827,1833 ----
  951.                       }
  952.   
  953.                           /* Don't ask! */
  954. !                     offs(opP->con1) += 2;
  955.                       add_fix('w',opP->con1,1);
  956.                   }
  957.                   addword(0);
  958. ***************
  959. *** 2026,2037 ****
  960.               }
  961.               break;
  962.   
  963. - #ifdef m68040
  964. -         case 'c':
  965. -             install_operand(s[1],opP->reg-NC);
  966. -             break;
  967. - #endif m68040
  968. - 
  969.           case 'C':        /* Ignore it */
  970.               break;
  971.   
  972. --- 1867,1872 ----
  973. ***************
  974. *** 2100,2131 ****
  975.               case ISP:
  976.                   tmpreg=0x804;
  977.                   break;
  978. - #ifdef m68040
  979. -             case TC:
  980. -                 tmpreg=0x003;
  981. -                 break;
  982. -             case ITT0:
  983. -                 tmpreg=0x004;
  984. -                 break;
  985. -             case ITT1:
  986. -                 tmpreg=0x005;
  987. -                 break;
  988. -             case DTT0:
  989. -                 tmpreg=0x006;
  990. -                 break;
  991. -             case DTT1:
  992. -                 tmpreg=0x007;
  993. -                 break;
  994. -             case MMUSR:
  995. -                 tmpreg=0x805;
  996. -                 break;
  997. -             case URP:
  998. -                 tmpreg=0x806;
  999. -                 break;
  1000. -             case SRP:
  1001. -                 tmpreg=0x807;
  1002. -                 break;
  1003. - #endif m68040
  1004.               default:
  1005.                   abort();
  1006.               }
  1007. --- 1935,1940 ----
  1008. ***************
  1009. *** 2444,2454 ****
  1010.       case '8':
  1011.           the_ins.opcode[1]|=val<<10;
  1012.           break;
  1013. - #ifdef m68040
  1014. -     case '9':
  1015. -         the_ins.opcode[0]|=val<<6;
  1016. -         break;
  1017. - #endif m68040
  1018.   #ifdef m68851
  1019.       case '9':
  1020.           the_ins.opcode[1]|=val<<5;
  1021. --- 2253,2258 ----
  1022. ***************
  1023. *** 2524,2536 ****
  1024.       register int c;
  1025.       register char *beg_str;
  1026.   
  1027. - /*
  1028. - #ifdef CANON && SUN_ASM_SYNTAX
  1029. -     for (; *str != '\0'; str++)
  1030. -         if (!(*str == ' ' || *str == '\t'))
  1031. -             break;
  1032. - #endif CANON && SUN_ASM_SYNTAX
  1033. -  */
  1034.       if(!str) {
  1035.           return str;
  1036.       }
  1037. --- 2328,2333 ----
  1038. ***************
  1039. *** 3080,3086 ****
  1040.       break;
  1041.     case TAB(PCLEA,LONG):
  1042.       subseg_change(SEG_TEXT,0);
  1043. !     fix_new(fragP,(int)(fragP->fr_fix)+2,4,fragP->fr_symbol,(symbolS *)0,fragP->fr_offset+2,1);
  1044.       *buffer_address++ = 0x01;
  1045.       *buffer_address++ = 0x70;
  1046.       fragP->fr_fix+=2;
  1047. --- 2877,2883 ----
  1048.       break;
  1049.     case TAB(PCLEA,LONG):
  1050.       subseg_change(SEG_TEXT,0);
  1051. !     fix_new(fragP,(int)(fragP->fr_fix)+2,4,fragP->fr_symbol,(symbolS *)0,fragP->fr_offset+4,1);
  1052.       *buffer_address++ = 0x01;
  1053.       *buffer_address++ = 0x70;
  1054.       fragP->fr_fix+=2;
  1055. ***************
  1056. *** 3454,3465 ****
  1057.           break;
  1058.       case SEG_ABSOLUTE:
  1059.           switch(ok) {
  1060. - #ifdef m68040
  1061. -         case 5:
  1062. -             if(offs(exp)<0 || offs(exp)>3)
  1063. -                 goto outrange;
  1064. -             break;
  1065. - #endif m68040
  1066.           case 10:
  1067.               if(offs(exp)<1 || offs(exp)>8) {
  1068.                   as_warn("expression out of range: defaulting to 1");
  1069. --- 3251,3256 ----
  1070. ***************
  1071. *** 3604,3612 ****
  1072.           break;
  1073.   
  1074.       case 'm':
  1075. - #ifdef m68040
  1076. -         m68k_kind = 0;
  1077. - #endif m68040
  1078.           /* Gas almost ignores this option! */
  1079.           (*argP)++;
  1080.           if(**argP=='c')
  1081. --- 3395,3400 ----
  1082. ***************
  1083. *** 3621,3633 ****
  1084.           } else if(!strcmp(*argP,"68020"))
  1085.               flagseen['m']=0;
  1086.           else
  1087. - #ifdef m68040
  1088. -             if(!strcmp(*argP,"68040")) {
  1089. -             flagseen['m']=0;
  1090. -             m68k_kind = 4;
  1091. -             }
  1092. -         else
  1093. - #endif m68040
  1094.               as_warn("Unknown -m option ignored");
  1095.           while(**argP)
  1096.               (*argP)++;
  1097. --- 3409,3414 ----
  1098. ***************
  1099. *** 3777,3802 ****
  1100.       abort();
  1101.   }
  1102.   #endif
  1103. - 
  1104. - #ifdef m68040
  1105. - indirect_fp_inst(name)
  1106. - char *name;
  1107. - {
  1108. -     char **fpinst;
  1109. - 
  1110. -     for (fpinst = indirect_fp_opcodes; fpinst < endfpinst; fpinst++) {
  1111. -         if (!strncmp(name, *fpinst, strlen(*fpinst))
  1112. -             && strlen(name) == strlen(*fpinst)+1)
  1113. -             return TRUE;
  1114. -     }
  1115. -     return FALSE;
  1116. - }
  1117. - 
  1118. - m68020_only_inst(name)
  1119. - char *name;
  1120. - {
  1121. -     if (!strcmp(name, "callm") || !strcmp(name, "rtm"))
  1122. -         return TRUE;
  1123. -     return FALSE;
  1124. - }
  1125. - #endif m68040
  1126. --- 3558,3560 ----
  1127. *** 1.2    1992/04/02 22:56:29
  1128. --- read.c    1992/10/09 21:39:24
  1129. ***************
  1130. *** 1117,1128 ****
  1131.           input_line_pointer --; /* Backup over what was not a ','. */
  1132.           temp_fill = 0;
  1133.       }
  1134. - #ifdef CANON
  1135. -     if ( temp_repeat == 0 ) {
  1136. -         ignore_rest_of_line();
  1137. -         return;
  1138. -     }
  1139. - #endif CANON
  1140.       if ( temp_repeat <= 0 ) {
  1141.           as_warn("Repeat < 0, .space ignored");
  1142.           ignore_rest_of_line();
  1143. --- 1117,1122 ----
  1144. *** 1.3    1992/04/03 03:32:06
  1145. --- version.c    1992/10/09 21:39:27
  1146. ***************
  1147. *** 1,15 ****
  1148.   #if defined(__STDC__) || defined(const)
  1149.   const
  1150.   #endif
  1151. - #ifdef CANON
  1152. - char version_string[] = "GNU assembler version 1.38(Modified 1.5)\n";
  1153. - #else
  1154.   #if defined(CROSSATARI) || defined(atarist) || defined(atariminix)
  1155.   char version_string[] = "GNU assembler version 1.38";
  1156.   #else
  1157.   char version_string[] = "GNU assembler version 1.38\n";
  1158.   #endif /* atari */
  1159. - #endif CANON
  1160.   
  1161.   /* DO NOT PUT COMMENTS ABOUT CHANGES IN THIS FILE.
  1162.   
  1163. --- 1,11 ----
  1164. *** 1.3    1992/06/03 18:48:09
  1165. --- write.c    1992/10/09 21:39:28
  1166. ***************
  1167. *** 1091,1097 ****
  1168.             add_number += add_symbolP -> sy_value;
  1169.             add_number -=
  1170.   #ifndef NS32K
  1171. ! /*              size + */
  1172.   #endif
  1173.                 where + fragP -> fr_address;
  1174.   #if defined(NS32K) && defined(SEQUENT_COMPATABILITY)
  1175. --- 1091,1097 ----
  1176.             add_number += add_symbolP -> sy_value;
  1177.             add_number -=
  1178.   #ifndef NS32K
  1179. !               size + 
  1180.   #endif
  1181.                 where + fragP -> fr_address;
  1182.   #if defined(NS32K) && defined(SEQUENT_COMPATABILITY)
  1183. ***************
  1184. *** 1141,1147 ****
  1185.       {
  1186.         add_number -=
  1187.   #ifndef NS32K
  1188. ! /*          size +  */
  1189.   #endif
  1190.             where + fragP -> fr_address;
  1191.         if (add_symbolP == 0)
  1192. --- 1141,1147 ----
  1193.       {
  1194.         add_number -=
  1195.   #ifndef NS32K
  1196. !           size +  
  1197.   #endif
  1198.             where + fragP -> fr_address;
  1199.         if (add_symbolP == 0)
  1200.