123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460 |
- /* @(#)mach5.c 1.16 */
- /*
- * Motorola 68000/68010 auxiliary functions
- */
- ea_1(sz, bits)
- {
- register flag;
- if (mrg_1 > 074)
- serror("no specials");
- if ((flag = eamode[mrg_1>>3]) == 0)
- if ((flag = eamode[010 + (mrg_1&07)]) == 0)
- flag = eamode[015 + (sz>>6)];
- if ((mrg_1 & 070) == 010)
- checksize(sz, 2|4);
- bits &= ~flag;
- if (bits)
- serror("bad addressing categorie");
- if (flag & FITW)
- if (
- ! fitw(exp_1.val)
- &&
- (mrg_1 != 074 || ! fit16(exp_1.val))
- )
- nofit();
- if (flag & FITB) {
- if (
- ! fitb(exp_1.val)
- &&
- (mrg_1 != 074 || ! fit8(exp_1.val))
- )
- nofit();
- if (mrg_1 == 074)
- exp_1.val &= 0xFF;
- }
- #ifdef RELOCATION
- RELOMOVE(relonami, rel_1);
- if (flag & ~0xFF)
- #ifdef DUK
- newrelo(exp_1.typ, (flag>>8) | RELBR | RELWR);
- #else DUK
- newrelo(exp_1.typ, flag>>8);
- #endif DUK
- #endif
- if (flag & PUTL)
- emit4(exp_1.val);
- if (flag & PUTW)
- emit2(loww(exp_1.val));
- }
- ea_2(sz, bits)
- {
- mrg_1 = mrg_2;
- exp_1 = exp_2;
- RELOMOVE(rel_1, rel_2);
- ea_1(sz, bits);
- }
- index(hibyte)
- {
- fit(fitb(exp_2.val));
- exp_2.val = hibyte | lowb(exp_2.val);
- }
- checksize(sz, bits)
- {
- if ((bits & (1 << (sz>>6))) == 0)
- serror("bad size");
- }
- test68010()
- {
- if (model != 1)
- warning("68010 instruction");
- }
- badoperand()
- {
- serror("bad operands");
- }
- shift_op(opc, sz)
- {
- if (mrg_1 < 010 && mrg_2 < 010) {
- emit2((opc&0170470) | sz | mrg_1<<9 | mrg_2);
- return;
- }
- if (exp_1.typ != S_ABS || mrg_1 != 074) {
- badoperand();
- return;
- }
- if (mrg_2 < 010) {
- fit(fit3(exp_1.val));
- emit2((opc&0170430) | sz | low3(exp_1.val)<<9 | mrg_2);
- return;
- }
- checksize(sz, 2);
- fit(exp_1.val == 1);
- emit2((opc&0177700) | mrg_2);
- ea_2(SIZE_W, MEM|ALT);
- }
- bitop(opc)
- {
- register bits;
- bits = DTA|ALT;
- if (opc == 0 && (mrg_1 < 010 || mrg_2 != 074))
- bits = DTA;
- if (mrg_1 < 010) {
- emit2(opc | 0400 | mrg_1<<9 | mrg_2);
- ea_2(0, bits);
- return;
- }
- if (mrg_1 == 074) {
- emit2(opc | 04000 | mrg_2);
- ea_1(SIZE_W, 0);
- ea_2(0, bits);
- return;
- }
- badoperand();
- }
- add(opc, sz)
- {
- if ((mrg_2 & 070) == 010)
- checksize(sz, 2|4);
- if (
- mrg_1 == 074
- &&
- small(
- exp_1.typ==S_ABS && fit3(exp_1.val),
- sz==SIZE_L ? 4 : 2
- )
- ) {
- emit2((opc&0400) | 050000 | low3(exp_1.val)<<9 | sz | mrg_2);
- ea_2(sz, ALT);
- return;
- }
- if (mrg_1 == 074 && (mrg_2 & 070) != 010) {
- emit2((opc&03000) | sz | mrg_2);
- ea_1(sz, 0);
- ea_2(sz, DTA|ALT);
- return;
- }
- if ((mrg_2 & 070) == 010) {
- emit2((opc&0170300) | (mrg_2&7)<<9 | sz<<1 | mrg_1);
- ea_1(sz, 0);
- return;
- }
- if (to_dreg(opc, sz, 0))
- return;
- if (from_dreg(opc, sz, ALT|MEM))
- return;
- badoperand();
- }
- and(opc, sz)
- {
- if (mrg_1 == 074 && mrg_2 >= 076) { /* ccr or sr */
- if (sz != SIZE_NON)
- checksize(sz, mrg_2==076 ? 1 : 2);
- else
- sz = (mrg_2==076 ? SIZE_B : SIZE_W);
- emit2((opc&07400) | sz | 074);
- ea_1(sz, 0);
- return;
- }
- if (sz == SIZE_NON)
- sz = SIZE_DEF;
- if (mrg_1 == 074) {
- emit2((opc&07400) | sz | mrg_2);
- ea_1(sz, 0);
- ea_2(sz, DTA|ALT);
- return;
- }
- if ((opc & 010000) == 0 && to_dreg(opc, sz, DTA))
- return;
- if (from_dreg(opc, sz, (opc & 010000) ? DTA|ALT : ALT|MEM))
- return;
- badoperand();
- }
- to_dreg(opc, sz, bits)
- {
- if ((mrg_2 & 070) != 000)
- return(0);
- emit2((opc & 0170000) | sz | (mrg_2&7)<<9 | mrg_1);
- ea_1(sz, bits);
- return(1);
- }
- from_dreg(opc, sz, bits)
- {
- if ((mrg_1 & 070) != 000)
- return(0);
- emit2((opc & 0170000) | sz | (mrg_1&7)<<9 | 0400 | mrg_2);
- ea_2(sz, bits);
- return(1);
- }
- cmp(sz)
- {
- register opc;
- if ((mrg_1&070) == 030 && (mrg_2&070) == 030) {
- emit2(0130410 | sz | (mrg_1&7) | (mrg_2&7)<<9);
- return;
- }
- if (mrg_1 == 074 && (mrg_2 & 070) != 010) {
- emit2(06000 | sz | mrg_2);
- ea_1(sz, 0);
- ea_2(sz, DTA|ALT);
- return;
- }
- if (mrg_2 < 020) {
- if (mrg_2 >= 010) {
- checksize(sz, 2|4);
- opc = 0130300 | sz<<1;
- mrg_2 &= 7;
- } else
- opc = 0130000 | sz;
- emit2(opc | mrg_2<<9 | mrg_1);
- ea_1(sz, 0);
- return;
- }
- badoperand();
- }
- move(sz)
- {
- register opc;
- if (mrg_1 > 074 || mrg_2 > 074) {
- move_special(sz);
- return;
- }
- if (sz == SIZE_NON)
- sz = SIZE_DEF;
- if (
- mrg_2<010
- &&
- mrg_1==074
- &&
- sz==SIZE_L
- &&
- small(exp_1.typ==S_ABS && fitb(exp_1.val), 4)
- ) {
- emit2(070000 | mrg_2<<9 | lowb(exp_1.val));
- return;
- }
- switch (sz) {
- case SIZE_B: opc = 010000; break;
- case SIZE_W: opc = 030000; break;
- case SIZE_L: opc = 020000; break;
- }
- emit2(opc | mrg_1 | (mrg_2&7)<<9 | (mrg_2&070)<<3);
- ea_1(sz, 0);
- ea_2(sz, ALT);
- }
- move_special(sz)
- {
- if (mrg_2 >= 076) {
- if (sz != SIZE_NON)
- checksize(sz, 2);
- emit2(042300 | (mrg_2==076?0:01000) | mrg_1);
- ea_1(SIZE_W, DTA);
- return;
- }
- if (mrg_1 >= 076) {
- if (mrg_1 == 076)
- test68010();
- if (sz != SIZE_NON)
- checksize(sz, 2);
- emit2(040300 | (mrg_1==076?01000:0) | mrg_2);
- ea_2(SIZE_W, DTA|ALT);
- return;
- }
- if (sz != SIZE_NON)
- checksize(sz, 4);
- if (mrg_1==075 && (mrg_2&070)==010) {
- emit2(047150 | (mrg_2&7));
- return;
- }
- if (mrg_2==075 && (mrg_1&070)==010) {
- emit2(047140 | (mrg_1&7));
- return;
- }
- badoperand();
- }
- movem(dr, sz, regs)
- {
- register i;
- register r;
- if ((mrg_2>>3) == 04) {
- r = regs; regs = 0;
- for (i = 0; i < 16; i++) {
- regs <<= 1;
- if (r & 1)
- regs++;
- r >>= 1;
- }
- }
- checksize(sz, 2|4);
- if ((mrg_2>>3)-3 == dr)
- badoperand();
- emit2(044200 | dr<<10 | (sz & 0200) >> 1 | mrg_2);
- emit2(regs);
- i = CTR;
- if (dr == 0 && (mrg_2&070) == 040)
- i = MEM;
- if (dr != 0 && (mrg_2&070) == 030)
- i = MEM;
- if (dr == 0)
- i |= ALT;
- ea_2(sz, i);
- }
- movep(sz)
- {
- checksize(sz, 2|4);
- if (mrg_1<010 && (mrg_2&070)==050) {
- emit2(0610 | (sz & 0200)>>1 | mrg_1<<9 | (mrg_2&7));
- ea_2(sz, 0);
- return;
- }
- if (mrg_2<010 && (mrg_1&070)==050) {
- emit2(0410 | (sz & 0200)>>1 | mrg_2<<9 | (mrg_1&7));
- ea_1(sz, 0);
- return;
- }
- badoperand();
- }
- branch(opc, exp)
- expr_t exp;
- {
- register sm;
- exp.val -= (DOTVAL + 2);
- if ((pass == PASS_2)
- &&
- (exp.val > 0)
- &&
- ((exp.typ & S_DOT) == 0)
- )
- exp.val -= DOTGAIN;
- sm = fitb(exp.val);
- if ((exp.typ & ~S_DOT) != DOTTYP)
- sm = 0;
- if (small(sm,2)) {
- if (exp.val == 0)
- emit2(047161); /* NOP */
- else
- emit2(opc | lowb(exp.val));
- } else {
- fit(fitw(exp.val));
- emit2(opc);
- #ifdef RELOCATION
- #ifdef DUK
- newrelo(exp.typ, RELPC|RELO2|RELBR|RELWR);
- #else DUK
- newrelo(exp.typ, RELPC|RELO2);
- #endif DUK
- #endif
- emit2(loww(exp.val));
- }
- }
- ea5x73(rg, sz)
- {
- if ((exp_2.typ & ~S_DOT) == DOTTYP) {
- /* pc relative with index */
- if (sz == SIZE_NON)
- sz = SIZE_DEF;
- exp_2.val -= (DOTVAL + 2);
- mrg_2 = 073;
- checksize(sz, 2|4);
- index(rg<<12 | (sz&0200)<<4);
- return;
- }
- /* displacement */
- mrg_2 = 050 | rg;
- if (pass == PASS_1) /* tricky, maybe 073 in next passes */
- return;
- if ((rg & 010) == 0 || sz != SIZE_NON)
- badoperand();
- }
- ea707172(sz)
- {
- register sm;
- mrg_2 = 071;
- switch (sz) {
- case SIZE_B:
- badoperand();
- case SIZE_W:
- mrg_2 = 070;
- case SIZE_L:
- return;
- case SIZE_NON:
- break;
- }
- if (pass == PASS_1) {
- /*
- * reserve a bit in the bittable
- * in the following passes one call to small()
- * will be done, but we don't know which one
- * since exp_2.typ cannot be trusted
- */
- small(0, 2);
- return;
- }
- if ((exp_2.typ & ~S_DOT) == DOTTYP) {
- sm = fitw(exp_2.val-(DOTVAL+2));
- sm = small(sm, 2);
- if (sm) { /* pc relative */
- exp_2.val -= (DOTVAL+2);
- mrg_2 = 072;
- }
- } else {
- sm = fitw(exp_2.val);
- #ifdef ASLD
- if (exp_2.typ & S_VAR)
- sm = 0;
- #else
- if (exp_2.typ != S_ABS)
- sm = 0;
- #endif ASLD
- sm = small(sm, 2);
- if (sm)
- mrg_2 = 070;
- }
- }
- ea6x(rg, ir, sz)
- {
- mrg_2 = 060 | rg;
- checksize(sz, 2|4);
- index(ir<<12 | (sz&0200)<<4);
- }
- ea72()
- {
- mrg_2 = 072;
- exp_2.val -= (DOTVAL + 2);
- }
- ea73(ri, sz)
- {
- mrg_2 = 073;
- exp_2.val -= (DOTVAL + 2);
- checksize(sz, 2|4);
- index(ri<<12 | (sz&0200)<<4);
- }
|