https://github.com/virtualagc/virtualagc
Revision 66d8e606a8d996ded60bc81d5edf319142a5fad9 authored by Ron Burkey on 04 October 2021, 11:49:55 UTC, committed by Ron Burkey on 04 October 2021, 11:49:55 UTC
Tip revision: 66d8e606a8d996ded60bc81d5edf319142a5fad9 authored by Ron Burkey on 04 October 2021, 11:49:55 UTC
Merge branch 'master' of https://github.com/virtualagc/virtualagc
Merge branch 'master' of https://github.com/virtualagc/virtualagc
Tip revision: 66d8e60
ParseOCT.c
/*
Copyright 2003-2004 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: ParseOCT.c
Purpose: Assembles the 2DEC pseudo-op.
Mode: 04/18/03 RSB. Began.
07/23/04 RSB. Added 2OCT.
2012-09-25 JL Add support for 2OCT with 2 arguments.
*/
#include "yaYUL.h"
#include <stdlib.h>
#include <math.h>
#include <string.h>
//-------------------------------------------------------------------------
// Returns non-zero on unrecoverable error We don't do a heckuva lot of
// error-checking in this version.
int ParseOCT(ParseInput_t *InRecord, ParseOutput_t *OutRecord)
{
char *s;
int Value;
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->Words[0] = ILLEGAL_SYMBOL_VALUE;
OutRecord->NumWords = 1;
s = InRecord->Operand;
if (*s == '+' || *s == '-')
s++;
for (; *s; s++)
if (*s < '0' || *s > '7')
break;
if (!*s && s != InRecord->Operand) {
int Minus;
Minus = 0;
if (InRecord->Operand[0] == '-')
Minus = 1;
if (sscanf(&InRecord->Operand[Minus], "%o", &Value) == 1) {
if ((Value & ~077777) != 0) {
Value &= 077777;
strcpy(OutRecord->ErrorMessage, "Value out of range.");
OutRecord->Warning = 1;
}
if (Minus)
Value = ~Value;
OutRecord->Words[0] = Value;
}
} else {
strcpy (OutRecord->ErrorMessage, "Not an octal number.");
OutRecord->Fatal = 1;
}
return (0);
}
int Parse2OCT(ParseInput_t *InRecord, ParseOutput_t *OutRecord)
{
char *s;
int Value = 0;
int Value1 = 0;
int Value2 = 0;
IncPc(&InRecord->ProgramCounter, 2, &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->Words[0] = ILLEGAL_SYMBOL_VALUE;
OutRecord->NumWords = 2;
s = InRecord->Operand;
if (*s == '+' || *s == '-')
s++;
for (; *s; s++)
if (*s < '0' || *s > '7')
break;
if (!*s && s != InRecord->Operand) {
int Minus;
Minus = 0;
if (InRecord->Operand[0] == '-')
Minus = 1;
if (sscanf(&InRecord->Operand[Minus], "%o", &Value1) == 1) {
if (sscanf(InRecord->Mod1, "%o", &Value2) == 1) {
Value = ((Value1 & 077777) << 15) | (Value2 & 077777);
} else {
Value = (Value1 & 07777777777);
}
if ((Value & ~07777777777) != 0) {
Value &= 07777777777;
strcpy(OutRecord->ErrorMessage, "Value out of range.");
OutRecord->Warning = 1;
}
if (Minus)
Value = ~Value;
OutRecord->Words[0] = 077777 & (Value >> 15);
OutRecord->Words[1] = 077777 & Value;
}
} else {
strcpy(OutRecord->ErrorMessage, "Not an octal number.");
OutRecord->Fatal = 1;
}
return (0);
}
Computing file changes ...