- if (*tok == ')')
- {
- tok++;
- AnEXTEN |= EXT_FULLWORD; // Definitely using full extension format, so set bit 8
- AnEXTEN |= EXT_BS; // Base register suppressed
- AnEXTEN |= EXT_BDSIZE0; // Base displacement null
- AnEXTEN |= EXT_IISPOSN; // Indirect Postindexed with Null Outer Displacement
- AnREG = 6 << 3; // stuff 110 to mode field
- AMn = MEMPOST;
- goto AnOK;
- }
- else
- return error("unhandled so far");
+ if (*tok == ')')
+ {
+ tok++;
+ AnEXTEN |= EXT_FULLWORD; // Definitely using full extension format, so set bit 8
+ AnEXTEN |= EXT_BS; // Base register suppressed
+ AnEXTEN |= EXT_BDSIZE0; // Base displacement null
+ AnEXTEN |= EXT_IISPOSN; // Indirect Postindexed with Null Outer Displacement
+ AnREG = 6 << 3; // stuff 110 to mode field
+ AMn = MEMPOST;
+ goto AnOK;
+ }
+ else if (*tok==',')
+ {
+ tok++; // eat the comma
+ // It might be (Dn[.wl][*scale],od)
+ // Maybe this is wrong and we have to write some code here
+ // instead of reusing that path...
+ goto CHECKODn;
+ }
+ else
+ return error("unhandled so far");