Revision 07d422a97efd13e2c9cc89135ae2b9c9c982136f authored by Mike Stewart on 07 August 2019, 06:38:15 UTC, committed by Mike Stewart on 07 August 2019, 06:38:15 UTC
1 parent 047a9d2
ParseCADR.c
/*
* Copyright 2003,2016 Ronald S. Burkey <info@sandroid.org>
*
* This file is part of yaAGC.
*
* yaAGC is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* yaAGC is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with yaAGC; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* Filename: ParseCADR.c
* Purpose: Assembles the CADR and FCADR pseudo-ops.
* Mods: 04/27/03 RSB. Began.
* 2012-09-25 JL Handle arguments like "DUMMYJOB + 2",
* i.e. Mod1=+, Mod2=2.
* 2016-08-21 RSB Adjusted for --block1.
* 2016-08-22 RSB Removed the block 1 pre-operation '-'
* adjustment and put it in Pass.c
* instead.
* 2016-10-20 RSB When the operand for CADR was a simple number, it was
* incorrectly treating it as an offset to the current location
* rather than a full pseudo-address.
*/
#include "yaYUL.h"
#include <stdlib.h>
#include <math.h>
#include <string.h>
int
ParseFCADR(ParseInput_t *InRecord, ParseOutput_t *OutRecord)
{
return (ParseCADR(InRecord, OutRecord));
}
//-------------------------------------------------------------------------
// Returns non-zero on unrecoverable error.
int
ParseCADR(ParseInput_t *InRecord, ParseOutput_t *OutRecord)
{
Address_t Address;
int Value, i;
IncPc(&InRecord->ProgramCounter, 1, &OutRecord->ProgramCounter);
if (!OutRecord->ProgramCounter.Invalid && OutRecord->ProgramCounter.Overflow)
{
strcpy(OutRecord->ErrorMessage, "Next code may overflow storage.");
OutRecord->Warning = 1;
}
OutRecord->EBank = InRecord->EBank;
OutRecord->SBank = InRecord->SBank;
OutRecord->NumWords = 1;
OutRecord->Words[0] = 0;
if (InRecord->Extend && !InRecord->IndexValid)
{
strcpy(OutRecord->ErrorMessage, "Illegally preceded by EXTEND.");
OutRecord->Fatal = 1;
OutRecord->Extend = 0;
}
if (InRecord->IndexValid)
{
strcpy(OutRecord->ErrorMessage, "Illegally preceded by INDEX.");
OutRecord->Fatal = 1;
OutRecord->IndexValid = 0;
}
i = GetOctOrDec(InRecord->Operand, &Value);
if ((Block1 || blk2) && (InRecord->Operand == NULL || *InRecord->Operand == 0))
{
Address = InRecord->ProgramCounter;
goto DoIt;
}
if (!i && *InRecord->Mod1 == 0)
{
//IncPc(&InRecord->ProgramCounter, Value, &Address);
PseudoToStruct(Value, &Address);
DoIt:;
if (Address.Invalid)
{
strcpy(OutRecord->ErrorMessage, "Destination address not resolved.");
OutRecord->Fatal = 1;
return (0);
}
if (!Address.Address)
{
strcpy(OutRecord->ErrorMessage,
"Destination is not a memory address.");
OutRecord->Fatal = 1;
return (0);
}
if (Block1)
{
int address, isLiteralNumber = 0;
char *s;
unsigned offset;
if (1 == sscanf(InRecord->Mod1, "+%o", &offset))
OpcodeOffset = offset;
isLiteralNumber = 1;
for (s = InRecord->Operand; *s; s++)
if (*s > '9' || *s < '0')
{
isLiteralNumber = 0;
break;
}
if (isLiteralNumber)
sscanf(InRecord->Operand, "%o", &address);
else if (Address.Fixed)
{
if (Address.FB)
address = (Address.SReg & 01777) | (Address.FB << 10);
else
address = Address.SReg;
}
else
address = Address.Value;
OutRecord->Words[0] = 077777 & address;
}
else
{
if (!Address.Fixed || !Address.Banked)
{
strcpy(OutRecord->ErrorMessage, "Destination not in an F-bank.");
OutRecord->Fatal = 1;
return (0);
}
// If this is a superbank, we massage a little more to get into the 15-bit
// address range.
if (Address.Super && Address.FB >= 030)
Address.Value -= 010 * 02000;
if (Address.Value < 010000 || Address.Value > 0107777)
{
strcpy(OutRecord->ErrorMessage,
"Destination address out of range.");
OutRecord->Fatal = 1;
return (0);
}
OutRecord->Words[0] = Address.Value - 010000;
}
}
else
{
char args[32];
args[0] = '\0';
if (*InRecord->Mod1)
strcpy(args, InRecord->Mod1);
// Handle arguments like "DUMMYJOB + 2", i.e. Mod1=+, Mod2=2.
if (*InRecord->Mod2)
strcat(args, InRecord->Mod2);
// The operand is NOT a number. Presumably, it's a symbol.
i = FetchSymbolPlusOffset(&InRecord->ProgramCounter, InRecord->Operand,
args, &Address);
if (!i)
goto DoIt;
sprintf(OutRecord->ErrorMessage, "Symbol \"%s\" undefined or offset bad",
InRecord->Operand);
OutRecord->Fatal = 1;
}
return (0);
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...