mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 02:29:52 +00:00
Implemented large offsets for g_putind
git-svn-id: svn://svn.cc65.org/cc65/trunk@483 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
f6768466be
commit
5be5b3763b
@ -1039,22 +1039,55 @@ void g_putlocal (unsigned flags, int offs)
|
||||
|
||||
|
||||
|
||||
void g_putind (unsigned flags, unsigned offs)
|
||||
void g_putind (unsigned Flags, unsigned Offs)
|
||||
/* Store the specified object type in the primary register at the address
|
||||
* on the top of the stack
|
||||
*/
|
||||
{
|
||||
/* We cannot currently handle more than byte sized offsets */
|
||||
if (offs > 256 - sizeofarg (flags)) {
|
||||
Internal ("g_putind: Large offsets not implemented");
|
||||
/* We can handle offsets below $100 directly, larger offsets must be added
|
||||
* to the address. Since a/x is in use, best code is achieved by adding
|
||||
* just the high byte. Be sure to check if the low byte will overflow while
|
||||
* while storing.
|
||||
*/
|
||||
if ((Offs & 0xFF) > 256 - sizeofarg (Flags | CF_FORCECHAR)) {
|
||||
|
||||
/* Overflow - we need to add the low byte also */
|
||||
AddCodeLine ("\tldy\t#$00");
|
||||
AddCodeLine ("\tclc");
|
||||
AddCodeLine ("\tpha");
|
||||
AddCodeLine ("\tlda\t#$%02X", Offs & 0xFF);
|
||||
AddCodeLine ("\tadc\t(sp),y");
|
||||
AddCodeLine ("\tsta\t(sp),y");
|
||||
AddCodeLine ("\tiny");
|
||||
AddCodeLine ("\tlda\t#$%02X", (Offs >> 8) & 0xFF);
|
||||
AddCodeLine ("\tadc\t(sp),y");
|
||||
AddCodeLine ("\tsta\t(sp),y");
|
||||
AddCodeLine ("\tpla");
|
||||
|
||||
/* Complete address is on stack, new offset is zero */
|
||||
Offs = 0;
|
||||
|
||||
} else if ((Offs & 0xFF00) != 0) {
|
||||
|
||||
/* We can just add the high byte */
|
||||
AddCodeLine ("\tldy\t#$01");
|
||||
AddCodeLine ("\tclc");
|
||||
AddCodeLine ("\tpha");
|
||||
AddCodeLine ("\tlda\t#$%02X", (Offs >> 8) & 0xFF);
|
||||
AddCodeLine ("\tadc\t(sp),y");
|
||||
AddCodeLine ("\tsta\t(sp),y");
|
||||
AddCodeLine ("\tpla");
|
||||
|
||||
/* Offset is now just the low byte */
|
||||
Offs &= 0x00FF;
|
||||
}
|
||||
|
||||
/* Check the size and determine operation */
|
||||
switch (flags & CF_TYPE) {
|
||||
switch (Flags & CF_TYPE) {
|
||||
|
||||
case CF_CHAR:
|
||||
if (offs) {
|
||||
ldyconst (offs);
|
||||
if (Offs) {
|
||||
ldyconst (Offs);
|
||||
AddCodeLine ("\tjsr\tstaspidx");
|
||||
} else {
|
||||
AddCodeLine ("\tjsr\tstaspp");
|
||||
@ -1062,8 +1095,8 @@ void g_putind (unsigned flags, unsigned offs)
|
||||
break;
|
||||
|
||||
case CF_INT:
|
||||
if (offs) {
|
||||
ldyconst (offs);
|
||||
if (Offs) {
|
||||
ldyconst (Offs);
|
||||
AddCodeLine ("\tjsr\tstaxspidx");
|
||||
} else {
|
||||
AddCodeLine ("\tjsr\tstaxspp");
|
||||
@ -1071,8 +1104,8 @@ void g_putind (unsigned flags, unsigned offs)
|
||||
break;
|
||||
|
||||
case CF_LONG:
|
||||
if (offs) {
|
||||
ldyconst (offs);
|
||||
if (Offs) {
|
||||
ldyconst (Offs);
|
||||
AddCodeLine ("\tjsr\tsteaxspidx");
|
||||
} else {
|
||||
AddCodeLine ("\tjsr\tsteaxspp");
|
||||
@ -1080,7 +1113,7 @@ void g_putind (unsigned flags, unsigned offs)
|
||||
break;
|
||||
|
||||
default:
|
||||
typeerror (flags);
|
||||
typeerror (Flags);
|
||||
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user