58 lines
998 B
C
58 lines
998 B
C
|
#define RCSID5 "$Header$"
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Zilog Z80 special routines
|
||
|
|
*/
|
||
|
|
|
||
|
|
xyreg(r,byte) {
|
||
|
|
|
||
|
|
if (r==IX)
|
||
|
|
emit1(0335);
|
||
|
|
else if (r==IY)
|
||
|
|
emit1(0375);
|
||
|
|
else if (r!=HL)
|
||
|
|
serror("register error");
|
||
|
|
emit1(byte);
|
||
|
|
}
|
||
|
|
|
||
|
|
xymem(r,byte) {
|
||
|
|
|
||
|
|
xyreg(r,byte);
|
||
|
|
if (r != HL) {
|
||
|
|
#ifdef RELOCATION
|
||
|
|
RELOMOVE(relonami, rel_ind);
|
||
|
|
newrelo(exp_ind.typ, RELO1);
|
||
|
|
#endif
|
||
|
|
emit1(exp_ind.val);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
branch(opc,exp) register opc; expr_t exp; {
|
||
|
|
register sm,dist;
|
||
|
|
|
||
|
|
dist = exp.val - (DOTVAL + 2);
|
||
|
|
if (pass == PASS_2 && dist > 0 && !(exp.typ & S_DOT))
|
||
|
|
dist -= DOTGAIN;
|
||
|
|
sm = fitb(dist);
|
||
|
|
if ((exp.typ & ~S_DOT) != DOTTYP)
|
||
|
|
sm = 0;
|
||
|
|
if (opc == 020) { /* DJNZ must be short */
|
||
|
|
fit(sm);
|
||
|
|
sm = 1;
|
||
|
|
} else if ((sm = small(sm,1)) == 0) {
|
||
|
|
if (opc == 030) /* 'JR exp' */
|
||
|
|
opc = 0303; /* replace by 'JP exp' */
|
||
|
|
else /* 'JR CC,exp' */
|
||
|
|
opc ^= 0342; /* replace by 'JP CC,exp' */
|
||
|
|
}
|
||
|
|
emit1(opc);
|
||
|
|
if (sm == 0) {
|
||
|
|
#ifdef RELOCATION
|
||
|
|
newrelo(exp.typ, RELPC | RELO2);
|
||
|
|
#endif
|
||
|
|
emit2(exp.val);
|
||
|
|
} else {
|
||
|
|
emit1(lowb(dist));
|
||
|
|
}
|
||
|
|
}
|