Apple-2-SW/qasm
1
0
Fork 0
mirror of https://github.com/marketideas/qasm.git synced 2024-12-29 12:33:03 +00:00
Code Issues Projects Releases Wiki Activity
adc9a0d147
qasm/ciderpress/reformat/Asm.cpp

2359 lines
68 KiB
C++
Raw Normal View History

expression shifting
2019-11-13 23:45:39 +00:00
/*
* CiderPress
* Copyright (C) 2007 by faddenSoft, LLC. All Rights Reserved.
* See the file LICENSE for distribution terms.
*/
/*
* Convert assembly source code.
*
* S-C Assembler, LISA, and Merlin-8 are handled here. Others, such as
* Orca/M, are either plain text or close enough that the "converted text"
* code handles it well enough.
*/
#include "StdAfx.h"
#include "Asm.h"
/*
* ===========================================================================
* S-C Assembler
* ===========================================================================
*/
/*
* S-C Assembler file format (thanks to Paul Schlyter, pausch at saaf.se):
*
* <16-bit file length> [DOS 3.3 only]
* <line> ...
*
* Each line consists of:
* <8-bit line length>
* <16-bit line number>
* <characters> ...
* <end-of-line token ($00)>
*
* Characters may be:
* $00-$1f: invalid
* $20-$7f: literal character
* $80-$bf: compressed spaces (0 to 63 count)
* $c0 : RLE token ($c0 <n> <ch> == repeat <ch> for <n> times)
* $c1-$ff: invalid
*
* There is no end-of-file marker.
*/
/*
* Decide whether or not we want to handle this file.
*/
void ReformatSCAssem::Examine(ReformatHolder* pHolder)
{
if (pHolder->GetFileType() == kTypeINT && pHolder->GetAuxType() == 0) {
if (ReformatSCAssem::IsSCAssem(pHolder)) {
/* definitely S-C assembler */
pHolder->SetApplic(ReformatHolder::kReformatSCAssem,
ReformatHolder::kApplicYes,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
} else {
/* possibly S-C assembler */
pHolder->SetApplic(ReformatHolder::kReformatSCAssem,
ReformatHolder::kApplicMaybe,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
} else {
/* not S-C assembler */
pHolder->SetApplic(ReformatHolder::kReformatSCAssem,
ReformatHolder::kApplicNot,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
}
/*
* Figure out if a type 'I' file is an Integer BASIC program or an S-C
* assembler listing.
*
* They both have a line length and line number, but use different conventions
* for marking the end of a line, and have different sets of valid chars. We
* don't need to fully validate the file, just test the first line.
*/
/*static*/ bool ReformatSCAssem::IsSCAssem(const ReformatHolder* pHolder)
{
const uint8_t* ptr = pHolder->GetSourceBuf(ReformatHolder::kPartData);
long srcLen = pHolder->GetSourceLen(ReformatHolder::kPartData);
int len;
len = *ptr;
if (len == 0 || len > srcLen)
return false; // should return an error, really
if (ptr[len-1] == 0x00) {
LOGI(" Found 0x00, looks like S-C assembler");
return true;
} else if (ptr[len-1] == 0x01) {
LOGI(" Found 0x01, looks like Integer BASIC");
return false;
} else {
LOGI(" Got strange value 0x%02x during S-C test", ptr[len-1]);
return false; // again, should return an error
}
}
/*
* Reformat an S-C Assembler listing into text. I don't know exactly what the
* original listings looked like, so I'm just doing what A2FID.C does.
*/
int ReformatSCAssem::Process(const ReformatHolder* pHolder,
ReformatHolder::ReformatID id, ReformatHolder::ReformatPart part,
ReformatOutput* pOutput)
{
const uint8_t* srcPtr = pHolder->GetSourceBuf(part);
long srcLen = pHolder->GetSourceLen(part);
long length = srcLen;
// (this was written before tab stuff in ReformatAsm class existed)
static const char* kSpaces64 = " "
" ";
int retval = -1;
fUseRTF = false;
RTFBegin();
/*
* Make sure there's enough here to get started. We want to return an
* "okay" result because we want this treated like a reformatted empty
* BASIC program rather than a non-Integer file.
*/
if (length < 2) {
LOGI(" SCAssem truncated?");
BufPrintf("\r\n");
goto done;
}
while (length > 0) {
uint8_t lineLen;
uint16_t lineNum;
/* pull the length byte, which we sanity-check */
lineLen = *srcPtr++;
length--;
if (lineLen == 0) {
LOGI(" SCAssem found zero-length line?");
break;
}
/* line number */
lineNum = Read16(&srcPtr, &length);
BufPrintf("%04u ", lineNum);
while (*srcPtr != 0x00 && length > 0) {
if (*srcPtr >= 0x20 && *srcPtr <= 0x7f) {
BufPrintf("%c", *srcPtr);
} else if (*srcPtr >= 0x80 && *srcPtr <= 0xbf) {
BufPrintf("%s", kSpaces64 + (64+128 - *srcPtr));
} else if (*srcPtr == 0xc0) {
if (length > 2) {
int count = *(srcPtr+1);
uint8_t ch = *(srcPtr + 2);
srcPtr += 2;
length -= 2;
while (count--)
BufPrintf("%c", ch);
} else {
LOGI(" SCAssem GLITCH: RLE but only %d chars left",
length);
BufPrintf("?!?");
}
} else {
LOGI(" SCAssem invalid char 0x%02x", *srcPtr);
BufPrintf("?");
}
srcPtr++;
length--;
}
/* skip past EOL token */
ASSERT(*srcPtr == 0x00 || length <= 0);
srcPtr++;
length--;
RTFNewPara();
}
done:
RTFEnd();
SetResultBuffer(pOutput);
retval = 0;
//bail:
return retval;
}
/*
* ===========================================================================
* Merlin 8 and Merlin 8/16 Assembler
* ===========================================================================
*/
/*
* Merlin source code uses ordinary text files that usually have names
* ending in ".S". They use high ASCII text -- unusual for ProDOS text
* files -- with the occasional low-ASCII space character.
*
* We don't absolutely need this conversion, because the files are already
* plain text, but it's easier to read when the various pieces are tabbed
* to reasonable screen offsets.
*
* The 0xa0 values seem to be used to separate pieces, while the 0x20
* values are used for comments and other filler. It is entirely possible
* to have a Merlin source file with no 0x20 values.
*/
/*
* Decide whether or not we want to handle this file. We know it's type
* TXT, though the aux type can be almost anything.
*
* If we really just want Merlin we should probably exclude DOS disks,
* since the text file contents will match. However, it's probably useful
* to support DOS ED/ASM sources with this.
*/
void ReformatMerlin::Examine(ReformatHolder* pHolder)
{
if (pHolder->GetFileType() == kTypeTXT) {
bool isAsm = ReformatMerlin::IsMerlin(pHolder);
bool isDotS = stricmp(pHolder->GetNameExt(), ".S") == 0;
if (isAsm && isDotS) {
/* gotta be */
pHolder->SetApplic(ReformatHolder::kReformatMerlin,
ReformatHolder::kApplicYes,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
} else if (isAsm) {
/* probably Merlin assembler, or at least *some* sort of asm */
pHolder->SetApplic(ReformatHolder::kReformatMerlin,
ReformatHolder::kApplicProbably,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
} else if (isDotS) {
/* not likely, but offer it as non-default option */
pHolder->SetApplic(ReformatHolder::kReformatMerlin,
ReformatHolder::kApplicProbablyNot,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
} else {
/* probably not Merlin, don't allow */
pHolder->SetApplic(ReformatHolder::kReformatMerlin,
ReformatHolder::kApplicNot,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
} else {
/* not S-C assembler */
pHolder->SetApplic(ReformatHolder::kReformatMerlin,
ReformatHolder::kApplicNot,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
}
/*
* Figure out if the contents of this file match up with our expections
* for Merlin source code.
*
* Specifically, does it use high ASCII and 0x20 exclusively, and does
* it have a large number of lines that begin with a single space or the
* comment token ('*')?
*
* Typical source files start with a space on 40-60% of lines, but "equates"
* files and files that are substantially comments break the rule.
*
* This will also return "true" for DOS ED/ASM files.
*/
/*static*/ bool ReformatMerlin::IsMerlin(const ReformatHolder* pHolder)
{
const uint8_t* ptr = pHolder->GetSourceBuf(ReformatHolder::kPartData);
long srcLen = pHolder->GetSourceLen(ReformatHolder::kPartData);
bool isLineStart = true;
int lineCount, spaceLineCount, commentLineCount;
lineCount = spaceLineCount = commentLineCount = 0;
while (srcLen--) {
if ((*ptr & 0x80) == 0 && (*ptr != 0x20)) {
LOGI(" Merlin: not, found 0x%02x", *ptr);
return false;
}
if (isLineStart) {
lineCount++;
if ((*ptr & 0x7f) == 0x20 && srcLen != 0 &&
(*(ptr+1) & 0x7f) != 0x20)
spaceLineCount++;
if (*ptr == 0xaa) // '*'
commentLineCount++;
isLineStart = false;
}
if (*ptr == 0x8d)
isLineStart = true;
ptr++;
}
if (!lineCount)
return false; // don't divide by zero
LOGI(" Merlin: found %d lines", lineCount);
LOGI(" %d start with spaces (%.3f%%), %d with comments (%.3f%%)",
spaceLineCount, (spaceLineCount * 100.0) / lineCount,
commentLineCount, (commentLineCount * 100.0) / lineCount);
if ((spaceLineCount * 100) / lineCount > 40)
return true;
if (((spaceLineCount + commentLineCount) * 100) / lineCount > 50)
return true;
return false;
}
/*
* Re-tab a Merlin assembly file.
*
* We try to track quoted material on the operand field to avoid tabbing
* parts of quoted text around. This isn't strictly necessary for a well-
* formed Merlin file, which uses 0x20 as a "non-breaking space", but if it
* has been "washed" through a converter or if this is actually a DOS ED/ASM
* file, tracking quotes is almost always beneficial.
*/
int ReformatMerlin::Process(const ReformatHolder* pHolder,
ReformatHolder::ReformatID id, ReformatHolder::ReformatPart part,
ReformatOutput* pOutput)
{
const uint8_t* srcPtr = pHolder->GetSourceBuf(part);
long srcLen = pHolder->GetSourceLen(part);
int retval = -1;
enum { kStateLabel, kStateMnemonic, kStateOperand, kStateComment };
int tabStop[] = { 0, 9, 15, 26 }; // 1:1 map with state enum
int state;
uint8_t quoteChar = '\0';
fUseRTF = false;
RTFBegin();
bool isLineStart = true;
for ( ; srcLen > 0; srcLen--, srcPtr++) {
bool wasLineStart = false;
if (isLineStart) {
isLineStart = false;
wasLineStart = true;
OutputStart(); // begin new line in output buffer
state = kStateLabel;
if (*srcPtr == 0xaa) {
// leading '*' makes entire line a comment
state = kStateComment;
}
}
if (*srcPtr == 0x8d) {
OutputFinish(); // end of line
BufPrintf("%s", GetOutBuf());
RTFNewPara();
isLineStart = true;
if (quoteChar != '\0') {
// unterminated quote
DebugBreak();
quoteChar = '\0';
}
continue;
}
if (state >= kStateComment) {
Output(*srcPtr & 0x7f);
} else if (quoteChar != '\0') {
if (*srcPtr == quoteChar) {
/* close quote */
quoteChar = '\0';
}
Output(*srcPtr & 0x7f);
} else if (state == kStateOperand &&
(*srcPtr == '\'' + 0x80 || *srcPtr == '"' + 0x80))
{
/* open quote */
quoteChar = *srcPtr;
Output(quoteChar & 0x7f);
} else if (*srcPtr == 0xa0) { // high-ASCII space
// does not trigger on 0x20; this matches behavior of
// Merlin-16 v3.40
state++;
OutputTab(tabStop[state]);
} else if (*srcPtr == 0xbb &&
(wasLineStart || *(srcPtr-1) == 0xa0)) {
// Found a high-ASCII ';' at the start of the line or right after
// a space. Semicolons can appear in the middle of macros, so
// we need the extra test to avoid introducing a column break.
//
// just comment, or comment on mnemonic w/o operand
// (shouldn't tab out if line started with label but
// contains 0x20s instead of 0xa0s between components;
// oh well.)
state = kStateComment;
OutputTab(tabStop[state]);
Output(*srcPtr & 0x7f);
} else {
Output(*srcPtr & 0x7f);
}
}
RTFEnd();
SetResultBuffer(pOutput);
retval = 0;
return retval;
}
/*
* ===========================================================================
* LISA Assembler - v2.x
* ===========================================================================
*/
/*
* This is for LISA v2.5 and earlier, which ran under DOS 3.3. It used a
* fairly simple format with tokenized mnemonics.
*
* The conversion was created by examination of the source files. The table
* of mnemonics was extracted from the assembler binary.
*/
/*
* Decide whether or not we want to handle this file.
*/
void ReformatLISA2::Examine(ReformatHolder* pHolder)
{
if (pHolder->GetSourceFormat() == ReformatHolder::kSourceFormatDOS &&
pHolder->GetFileType() == kTypeDOS_B)
{
if (ReformatLISA2::IsLISA(pHolder)) {
/* definitely LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA2,
ReformatHolder::kApplicYes,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
} else {
/* maybe LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA2,
ReformatHolder::kApplicMaybe,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
} else {
/* not LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA2,
ReformatHolder::kApplicNot,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
}
/*
* Quick sanity check on the file contents.
*/
bool ReformatLISA2::IsLISA(const ReformatHolder* pHolder)
{
const uint8_t* srcPtr = pHolder->GetSourceBuf(ReformatHolder::kPartData);
long srcLen = pHolder->GetSourceLen(ReformatHolder::kPartData);
uint16_t version, len;
if (srcLen < 8)
return false;
version = Read16(&srcPtr, &srcLen);
len = Read16(&srcPtr, &srcLen);
if (len > srcLen)
return false;
return true;
}
/*
* Opcode mnemonics.
*/
static const char gOpcodes[] =
"BGEBLTBMIBCCBCSBPLBNEBEQ" // 80-87
"BVSBVCBSBBNMBM1BNZBIZBIM" // 88-8f
"BIPBICBNCBRABTRBFLBRKBKS" // 90-97
"CLVCLCCLDCLIDEXDEYINXINY" // 98-9f
"NOPPHAPLAPHPPLPRTSRTIRSB" // a0-a7
"RTNSECSEISEDTAXTAYTSXTXA" // a8-af
"TXSTYAADDCPRDCRINRSUBLDD" // b0-b7
"POPPPDSTDSTPLDRSTOSET___" // b8-bf
"ADCANDORABITCMPCPXCPYDEC" // c0-c7
"EORINCJMPJSR___LDALDXLDY" // c8-cf
"STASTXSTYXORLSRRORROLASL" // d0-d7
"ADREQUORGOBJEPZSTRDCMASC" // d8-df
"ICLENDLSTNLSHEXBYTHBYPAU" // e0-e7
"DFSDCI...PAGINVBLKDBYTTL" // e8-ef
"SBC___LET.IF.EL.FI= PHS" // f0-f7
"DPH.DAGENNOGUSR_________" // f8-ff
;
/*
* Format:
* 2-byte version (?)
* 2-byte length
* <LINE> ...
*
* Each line is:
* 1-byte length
* <DATA>
* CR
*
* Last line has length=255.
*/
/*
* Parse a file.
*/
int ReformatLISA2::Process(const ReformatHolder* pHolder,
ReformatHolder::ReformatID id, ReformatHolder::ReformatPart part,
ReformatOutput* pOutput)
{
const uint8_t* srcPtr = pHolder->GetSourceBuf(part);
long srcLen = pHolder->GetSourceLen(part);
long actualLen;
int retval = -1;
fUseRTF = false;
if (srcLen < 8) {
LOGI(" LISA truncated?");
goto bail;
}
uint16_t version;
version = Read16(&srcPtr, &srcLen); // usually 0x1800; maybe "2.4"?
actualLen = Read16(&srcPtr, &srcLen);
LOGI(" LISA version 0x%04x, len=%d", version, actualLen);
if (actualLen > srcLen) {
LOGI(" LISA bad length (len=%ld actual=%ld)", srcLen, actualLen);
goto bail;
}
int lineNum;
lineNum = 0;
while (actualLen > 0) {
int lineLen = *srcPtr;
if (lineLen == 0) {
LOGI(" LISA bad line len (%ld)", lineLen);
break;
} else if (lineLen == 255) {
// used as end-of-file marker
break;
}
lineNum++;
OutputStart();
ProcessLine(srcPtr);
OutputFinish();
//BufPrintf("%4d %s\r\n", lineNum, GetOutBuf());
BufPrintf("%s\r\n", GetOutBuf());
srcPtr += lineLen+1;
actualLen -= lineLen+1;
}
SetResultBuffer(pOutput);
retval = 0;
bail:
return retval;
}
void ReformatLISA2::ProcessLine(const uint8_t* buf)
{
int len = *buf;
uint8_t uch;
// consume length byte
buf++;
len--;
if (*buf >= 0x80) {
// starting the opcode, tab past label field
OutputTab(kOpTab);
} else if (*buf != ';' && len > 8) {
// starting with 8-character label
bool doPrint = true;
for (int i = 0; i < 8; i++) {
uch = *buf;
if (uch < 0x20 || uch >= 0x80) {
LOGI(" LISA funky char 0x%02x in label", uch);
break;
} else if (uch == 0x20) {
doPrint = false;
}
if (doPrint)
Output(uch);
buf++;
len--;
}
if (len > 0 && *buf == ':') {
Output(*buf);
buf++;
len--;
}
OutputTab(kOpTab);
}
bool mnemonicDone = false;
bool operandDone = false;
while (len--) {
uch = *buf++;
if (uch >= 0x20 && uch < 0x80) {
if (mnemonicDone && uch != 0x20)
operandDone = true;
if (mnemonicDone && !operandDone && uch == 0x20) {
// suppress extra spaces between mnemonic and operand
} else
Output(uch);
} else if (uch < 0x20) {
// Values from 0x01 - 0x05 are used to separate the opcode from
// the operand, and seem to "hint" the operand type (immediate,
// absolute, etc). Just ignore for now.
} else if (uch == 0x0d) {
// don't output CR to line buf
if (len) {
LOGI("WARNING: got early CR");
}
} else if (mnemonicDone) {
// Values >= 0x80 are mnemonics, but we've already seen it.
// LISA seems to use 0xbb to separate operand and comment field
// (would be "STP" mnemonic). I don't see other uses, so I'm
// just going to tab over instead of outputing a second
// mnemonic value.
if (len > 1) {
OutputTab(kComTab);
Output(';');
}
} else {
const char* mnemonic;
mnemonic = &gOpcodes[(uch - 128) * 3];
Output(mnemonic[0]);
Output(mnemonic[1]);
Output(mnemonic[2]);
OutputTab(kAdTab);
mnemonicDone = true;
}
}
}
/*
* ===========================================================================
* LISA Assembler - v3
* ===========================================================================
*/
/*
* The ProDOS version of LISA uses the INT filetype with the assembler
* version number in the aux type. The version is always < $4000.
*
* The file format looks like this:
* 4-byte header
* symbol dictionary, 8 bytes per symbol
* <line> ...
*
* The way the lines are decoded is fairly involved. The code here was
* developed from the LISA v3.2a sources, as found on the A2ROMulan CD-ROM.
*/
/*
* Opcode mnemonics.
*/
static const char gMnemonics3[256*3 +1] =
// 0x00 (SN, M65.2) - Group 1 instructions
"addadcandcmpeorldaorasbc"
"stasubxor"
// 0x0b - Group 2 instructions
"asldecinclsrrol"
"ror"
// 0x11 - Group 3 instructions
".ifwhlbrabccbcsbeqbfl"
"bgebltbmibnebplbtrbvcbvs"
"jsrobjorgphs"
// 0x24 - Group 4 instructions
".mdfzrinplcl"
"rls"
// 0x29 - Group 5 instructions
"bitcpxcpyjmpldxldystx"
"stytrbtsbstz"
// 0x34 - Group 6 instructions
"= conepzequ"
"set"
// 0x39 - Group 7 instructions
".daadrbytcspdbyhby"
// 0x3f - Group 8 instructions
"anx"
"sbtttlchnblkdciinvrvsmsg"
"strzro"
// 0x4a - Group 9 instructions
"dfshexusrsav"
//M65LEN2 equ * - M65.2
"??????" // 0x4e-0x4f
"????????????????????????" // 0x50-0x57
"????????????????????????" // 0x58-0x5f
"????????????????????????" // 0x60-0x67
"????????????????????????" // 0x68-0x6f
"????????????????????????" // 0x70-0x77
"????????????????????????" // 0x78-0x7f
"????????????????????????" // 0x80-0x87
"????????????????????????" // 0x88-0x8f
"????????????????????????" // 0x90-0x97
"????????????????????????" // 0x98-0x9f
"????????????????????????" // 0xa0-0xa7
"????????????????????????" // 0xa8-0xaf
// 0xb0 (SS M65.1) - assembler directives
".el.fi.me.wedphif1if2end"
"expgenlstnlsnognoxpagpau"
"nlccnd "
// 0xc2 - Single-byte instructions
"asllsrrolrordec"
"incbrkclccldcliclvdexdey"
"inxinynopphaphpplaplprti"
"rtssecsedseitaxtaytsxtxa"
"txstyaphxphyplxply"
//M65LEN1 equ * - M65.1
"??????" // 0xe6-0xe7
"????????????????????????" // 0xe8-0xef
"????????????????????????" // 0xf0-0xff
"????????????????????????" // 0xf8-0xff
;
/*
* Determine whether this is one of our files.
*/
void ReformatLISA3::Examine(ReformatHolder* pHolder)
{
/*
* Note we cannot false-positive on an INT file on a DOS disk, because
* in DOS 3.3 INT files always have zero aux type.
*/
if (pHolder->GetFileType() == kTypeINT &&
pHolder->GetAuxType() < 0x4000)
{
if (ReformatLISA3::IsLISA(pHolder)) {
/* definitely LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA3,
ReformatHolder::kApplicYes,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
} else {
/* possibly LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA3,
ReformatHolder::kApplicMaybe,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
} else {
/* not LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA3,
ReformatHolder::kApplicNot,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
}
/*
* Decide if this is one of ours or perhaps an Integer BASIC or S-C
* assembler source.
*/
/*static*/ bool ReformatLISA3::IsLISA(const ReformatHolder* pHolder)
{
bool dosStructure = (pHolder->GetSourceFormat() == ReformatHolder::kSourceFormatDOS);
const uint8_t* srcPtr = pHolder->GetSourceBuf(ReformatHolder::kPartData);
long srcLen = pHolder->GetSourceLen(ReformatHolder::kPartData);
if (pHolder->GetSourceFormat() == ReformatHolder::kSourceFormatDOS)
return false; // can only live under ProDOS; need len + aux type
if (srcLen < kHeaderLen+2)
return false; // too short
uint16_t codeLen, symLen;
codeLen = srcPtr[0x00] | srcPtr[0x01] << 8;
symLen = srcPtr[0x02] | srcPtr[0x03] << 8;
if ((symLen & 0x0003) != 0 || symLen > 512*8 || symLen > srcLen) {
LOGI(" LISA3 bad symLen");
return false;
}
if (codeLen > srcLen) {
LOGI(" LISA3 funky codeLen");
return false;
}
if (codeLen + symLen + kHeaderLen > srcLen) {
LOGI(" LISA3 bad combined len");
return false;
}
return true;
}
/*
* Parse a file.
*/
int ReformatLISA3::Process(const ReformatHolder* pHolder,
ReformatHolder::ReformatID id, ReformatHolder::ReformatPart part,
ReformatOutput* pOutput)
{
const uint8_t* srcPtr = pHolder->GetSourceBuf(part);
long srcLen = pHolder->GetSourceLen(part);
int retval = -1;
if (srcLen < kHeaderLen+2) {
LOGI(" LISA3 too short");
goto bail;
}
fUseRTF = false;
uint16_t codeLen, symLen;
codeLen = srcPtr[0x00] | srcPtr[0x01] << 8;
symLen = srcPtr[0x02] | srcPtr[0x03] << 8;
printf("codeLen=%d, symLen=%d\n", codeLen, symLen);
if ((symLen & 0x0003) != 0 || symLen > 512*8 || symLen > srcLen) {
LOGI(" LISA3 bad symLen");
goto bail;
}
if (codeLen > srcLen) {
LOGI(" LISA3 funky codeLen");
goto bail;
}
if (codeLen + symLen + kHeaderLen > srcLen) {
LOGI(" LISA3 bad combined len");
goto bail;
}
fSymCount = symLen / 8;
fSymTab = srcPtr + kHeaderLen;
#if 0
int ii;
for (ii = 0; ii < fSymCount; ii++) {
OutputStart();
PrintSymEntry(ii);
OutputFinish();
LOGI("%d: %hs", ii, GetOutBuf());
}
#endif
/*
* Do stuff with source lines.
*/
const uint8_t* codePtr;
const uint8_t* endPtr;
int lineNum;
codePtr = srcPtr + kHeaderLen + symLen;
endPtr = srcPtr + srcLen;
assert(codePtr < endPtr);
lineNum = 0;
while (codePtr < endPtr) {
uint8_t flagByte;
int lineLen;
OutputStart();
lineNum++;
#if 0
{
char offbuf[12];
sprintf(offbuf, "0x%04x", codePtr - srcPtr);
Output(offbuf);
Output('-');
}
#endif
flagByte = *codePtr++;
if (flagByte < 0x80) {
/* BIGONE - explicit length, complex line */
lineLen = flagByte;
/* subtract 1 from flagByte, because len includes flagByte */
if (flagByte > 0)
ProcessLine(codePtr, flagByte-1);
} else {
/* SPCLCASE - locals, labels, comments */
if (flagByte >= kLCLTKN) {
lineLen = 1;
if (flagByte == kCMNTTKN+1) {
Output(';');
} else if (flagByte == kCMNTTKN) {
Output('*');
} else if (flagByte < kLBLTKN) {
/* CNVRTLCL: 0xf0 - 0xf9 - local numeric labels */
Output('^');
Output('0' + flagByte - 0xf0);
Output(':');
} else if (flagByte < kMACTKN) {
/* normal label; 0xfb means add 256 */
int idx;
idx = *codePtr | (flagByte & 0x01) << 8;
PrintSymEntry(idx);
Output(':');
lineLen = 2;
} else {
/* macro (only object on line) */
assert(flagByte == kMACTKN || flagByte == kMACTKN+1);
OutputTab(kOpTab);
int idx;
idx = *codePtr | (flagByte & 0x01) << 8;
Output('/'); // MACROCHR
PrintSymEntry(idx);
lineLen = 2;
}
} else {
/* SHRTMNM2 - simple, standard mnemonic */
lineLen = 1;
OutputTab(kOpTab);
PrintMnemonic(flagByte);
}
}
if (lineLen == 0) {
/* end of file */
break;
}
OutputFinish();
//BufPrintf("%d: %s\r\n", lineNum, outBuf);
BufPrintf("%s\r\n", GetOutBuf());
codePtr += lineLen-1;
}
LOGI("codePtr=0x%p endPtr=%p numLines=%d", codePtr, endPtr, lineNum-1);
LOGI("extra = %d", endPtr - codePtr);
SetResultBuffer(pOutput);
retval = 0;
bail:
fSymTab = NULL;
return retval;
}
/*
* BIGONE
*/
void ReformatLISA3::ProcessLine(const uint8_t* codePtr, int len)
{
uint8_t mnemonic = 0;
//printf("{code=0x%02x len=%d}", *codePtr, len);
if (*codePtr == kCMNTTKN+1 || *codePtr == kCMNTTKN) {
switch (*codePtr) {
case kCMNTTKN+1: Output(';'); break;
case kCMNTTKN: Output('*'); break;
default:
assert(false);
}
// CNVCMNT
codePtr++;
while (--len)
Output(*codePtr++ & 0x7f);
goto bail;
} else if (*codePtr == kMACTKN || *codePtr == kMACTKN+1) {
/* CHKMACRO - handle macro */
uint16_t idx;
mnemonic = *codePtr;
idx = (*codePtr & 0x01) << 8;
idx |= *++codePtr;
OutputTab(kOpTab);
Output('/'); // MACROCHR
PrintSymEntry(idx);
codePtr++;
len -= 2;
goto ConvtOperand;
} else if (*codePtr == kLBLTKN || *codePtr == kLBLTKN+1) {
/* CHKCLBL - handle label at start of line */
uint16_t idx;
idx = (*codePtr & 0x01) << 8;
idx |= *++codePtr;
PrintSymEntry(idx);
codePtr++;
len -= 2;
// goto ConvtMnem
} else if (*codePtr >= kLCLTKN) {
/* CHKLLBL - handle local label (^) */
Output('^');
Output((char) (*codePtr - 0xc0));
codePtr++;
len--;
// goto CNVTMNEM
} else {
/* no label; current value is the mnemonic; continue w/o advancing */
// fall through to CNVTMNEM
}
/* CNVTMNEM */
mnemonic = *codePtr++;
len--;
//printf("{mne=0x%02x}", mnemonic);
if (mnemonic >= kMACTKN) {
/* CNVRTMAC */
assert(mnemonic == kMACTKN || mnemonic == kMACTKN+1);
OutputTab(kOpTab);
int idx;
idx = *codePtr++;
idx |= (mnemonic & 0x01) << 8;
Output('/'); // MACROCHR
PrintSymEntry(idx);
len--;
//printf("{MAC:%d}", len);
} else {
OutputTab(kOpTab);
PrintMnemonic(mnemonic);
}
ConvtOperand:
/* ConvtOperand */
//printf("{cen=%d}", len);
ConvertOperand(mnemonic, &codePtr, &len);
bail:
//if (len > 0)
// LOGI("{LEN=%d}", len);
return;
}
/*
* CNVOPRND
*/
void ReformatLISA3::ConvertOperand(uint8_t mnemonic,
const uint8_t** pCodePtr, int* pLen)
{
static const char kOPRTRST1[] = "+-*/&|^=<>%<><";
static const char kOPRTRST2[] = "\0\0\0\0\0\0\0\0\0\0\0==>";
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
OperandResult result;
uint8_t adrsMode = 0;
uint8_t val;
//printf("{opr len=%d}", len);
if (mnemonic >= kCMNTTKN) {
/* OUTCMNT2 */
PrintComment(adrsMode, codePtr, len);
goto bail;
}
if (mnemonic < kSS) {
if (mnemonic < kGROUP3 || (mnemonic >= kGROUP5 && mnemonic < kGROUP6)) {
// address mode is explicit
adrsMode = *codePtr++;
len--;
//printf("{adrs=0x%02x}", adrsMode);
}
}
OutputTab(kAdTab);
if (adrsMode >= 0x10 && adrsMode < 0x80)
Output('(');
/* OUTOPRND */
while (len > 0) {
val = *codePtr++;
len--;
if (val == 0x0e) {
Output('~');
continue; // goto OutOprnd
} else if (val == 0x0f) {
Output('-');
continue; // goto OutOprnd
} else if (val == 0x3a) {
Output('#');
continue; // goto OutOprnd
} else if (val == 0x3b) {
Output('/');
continue; // goto OutOprnd
} else if (val == 0x3d) {
Output('@');
continue; // goto OutOprnd
} else {
result = PrintNum(adrsMode, val, &codePtr, &len);
if (result == kResultGotoOutOprnd)
continue; //goto OutOprnd;
else if (result == kResultFailed)
goto bail;
// else goto OutOprtr
}
OutOprtr:
uint8_t opr;
if (!len)
break;
opr = *codePtr++;
len--;
if (opr < 0x0e) {
Output(' ');
Output(kOPRTRST1[opr]);
if (kOPRTRST2[opr] != '\0')
Output(kOPRTRST2[opr]);
Output(' ');
// goto OutOprnd
} else if (opr < 0x20 || opr >= 0x30) {
// NOOPRTR
if (opr == kCMNTTKN+1) {
PrintComment(adrsMode, codePtr, len);
codePtr += len;
len = 0;
goto bail;
}
Output(',');
codePtr--; // back up
len++;
// goto OutOprnd
} else {
Output('+');
result = PrintNum(adrsMode, opr - 0x10, &codePtr, &len);
if (result == kResultGotoOutOprnd)
continue;
else if (result == kResultGotoOutOprtr)
goto OutOprtr;
else
goto bail;
}
}
PrintComment(adrsMode, codePtr, len);
bail:
*pCodePtr = codePtr;
*pLen = len;
}
/*
* Output a single byte as a binary string.
*/
void ReformatLISA3::PrintBin(uint8_t val)
{
char buf[9];
buf[8] = '\0';
for (int bit = 0; bit < 8; bit++)
buf[bit] = '0' + ((val >> (7-bit)) & 0x01);
Output(buf);
}
/*
* OUTNUM
*/
ReformatLISA3::OperandResult ReformatLISA3::PrintNum(int adrsMode, uint8_t val,
const uint8_t** pCodePtr, int* pLen)
{
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
OperandResult result = kResultUnknown;
char numBuf[12];
// OUTNUM - these all jump to OutOprtr unless otherwise specified
if (val < 0x1a) {
Output(val | '0');
} else if (val == 0x1a) {
// 1-byte decimal
sprintf(numBuf, "%u", *codePtr++);
Output(numBuf);
len--;
} else if (val == 0x1b) {
// 2-byte decimal
uint16_t num;
num = *codePtr++;
num |= *codePtr++ << 8;
len -= 2;
sprintf(numBuf, "%u", num);
Output(numBuf);
} else if (val == 0x1c) {
// 1-byte hex
Output('$');
sprintf(numBuf, "%02X", *codePtr++);
Output(numBuf);
len--;
} else if (val == 0x1d) {
// 2-byte hex
Output('$');
uint16_t num;
num = *codePtr++;
num |= *codePtr++ << 8;
sprintf(numBuf, "%04X", num);
Output(numBuf);
len -= 2;
} else if (val == 0x1e) {
Output('%');
PrintBin(*codePtr++);
len--;
} else if (val == 0x1f) {
Output('%');
PrintBin(*codePtr++);
PrintBin(*codePtr++);
len -= 2;
} else if (val >= 0x36 && val <= 0x39) {
// OUTIMD
if (val == 0x36 || val == 0x37)
Output('#');
else
Output('/');
int idx;
idx = (val & 0x01) << 8;
idx |= *codePtr++;
PrintSymEntry(idx);
len--;
} else if (val == 0x3c) {
Output('*'); // loc cntr token
} else if (val < 0x4a) {
// <0..<9 tokens
Output('<');
Output(val - 0x10);
} else if (val < 0x50) {
// ?0..?5 tokens (+0x66)
Output('?');
Output(val - 0x1a);
} else if (val < 0x5a) {
Output('>');
Output(val - 0x20);
} else if (val < 0x60) {
// ?6..?9 tokens (+0x5c)
uint8_t newVal = val - 0x24;
Output('?');
if (newVal == ';')
Output('#');
else
Output(newVal);
if (newVal == ':')
result = kResultGotoOutOprnd;
} else if (val < 0x80) {
// String tokens
int strLen = val & 0x1f;
if (strLen == 0) {
// explict length
strLen = *codePtr++;
len--;
}
if (strLen > len) {
Output("!BAD STR!");
DebugBreak();
result = kResultFailed;
goto bail;
}
char delim;
if (*codePtr >= 0x80)
delim = '"';
else
delim = '\'';
Output(delim);
while (strLen--) {
if ((*codePtr & 0x7f) == delim)
Output(delim);
Output(*codePtr++ & 0x7f);
len--;
}
Output(delim);
} else if (val == kLBLTKN || val == kLBLTKN+1) {
int idx;
idx = (val & 0x01) << 8;
idx |= *codePtr++;
len--;
PrintSymEntry(idx);
} else if (val == kCMNTTKN+1) {
/* OUTCMNT2 */
PrintComment(adrsMode, codePtr, len);
codePtr += len;
len = 0;
} else {
// just go to OutOprtr
}
if (result == kResultUnknown)
result = kResultGotoOutOprtr;
bail:
*pCodePtr = codePtr;
*pLen = len;
return result;
}
/*
* Print symbol table entry. Each entry is an 8-byte label packed into
* 6 bytes.
*/
void ReformatLISA3::PrintSymEntry(int ent)
{
if (ent < 0 || ent >= fSymCount) {
Output("!BAD SYM!");
LOGI("invalid entry %d (max %d)", ent, fSymCount);
DebugBreak();
return;
}
const uint8_t* packed = &fSymTab[ent * 8];
uint8_t tmp[8];
int i;
tmp[0] = packed[0] >> 2;
tmp[1] = ((packed[0] << 4) & 0x3c) | packed[1] >> 4;
tmp[2] = ((packed[1] << 2) & 0x3c) | packed[2] >> 6;
tmp[3] = packed[2] & 0x3f;
tmp[4] = packed[3] >> 2;
tmp[5] = ((packed[3] << 4) & 0x3c) | packed[4] >> 4;
tmp[6] = ((packed[4] << 2) & 0x3c) | packed[5] >> 6;
tmp[7] = packed[5] & 0x3f;
for (i = 0; i < 8; i++) {
if (tmp[i] == 0x20)
break;
else if (tmp[i] >= 0x20)
Output(tmp[i]);
else
Output(tmp[i] | 0x40);
}
}
void ReformatLISA3::PrintMnemonic(uint8_t val)
{
const char* ptr = &gMnemonics3[val * 3];
Output(ptr[0]);
Output(ptr[1]);
Output(ptr[2]);
}
/*
* OUTCMNT2
*
* Prints the comment. Finishes off the operand if necessary.
*/
void ReformatLISA3::PrintComment(int adrsMode, const uint8_t* codePtr, int len)
{
assert(len >= 0);
if (adrsMode == 0x04)
Output(",X");
else if (adrsMode == 0x08)
Output(",Y");
else if (adrsMode == 0x10)
Output(')');
else if (adrsMode == 0x20)
Output(",X)");
else if (adrsMode == 0x40)
Output("),Y");
if (len > 0) {
OutputTab(kComTab);
Output(';');
while (len--)
Output(*codePtr++ & 0x7f);
}
}
/*
* ===========================================================================
* LISA Assembler - v4 and v5
* ===========================================================================
*/
/*
* The ProDOS / GS/OS version of LISA uses the INT filetype with the
* assembler version number in the aux type. The version is always > $4000.
*
* The file format looks like this:
* 16-byte header
* symbol dictionary
* <line> ...
*
* The way the lines are decoded is fairly involved. The code here was
* developed from the LISA/816 v5.0a (433) sources, as found on
* the A2ROMulan CD-ROM.
*/
/*
* Determine whether this is one of our files.
*/
void ReformatLISA4::Examine(ReformatHolder* pHolder)
{
/*
* Note we cannot false-positive on an INT file on a DOS disk, because
* in DOS 3.3 INT files always have zero aux type.
*/
if (pHolder->GetFileType() == kTypeINT &&
pHolder->GetAuxType() >= 0x4000)
{
if (ReformatLISA4::IsLISA(pHolder)) {
/* definitely LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA4,
ReformatHolder::kApplicYes,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
} else {
/* possibly LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA4,
ReformatHolder::kApplicMaybe,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
} else {
/* not LISA */
pHolder->SetApplic(ReformatHolder::kReformatLISA4,
ReformatHolder::kApplicNot,
ReformatHolder::kApplicNot, ReformatHolder::kApplicNot);
}
}
/*
* Decide if this is one of ours or perhaps an Integer BASIC or S-C
* assembler source.
*/
/*static*/ bool ReformatLISA4::IsLISA(const ReformatHolder* pHolder)
{
bool dosStructure = (pHolder->GetSourceFormat() == ReformatHolder::kSourceFormatDOS);
const uint8_t* srcPtr = pHolder->GetSourceBuf(ReformatHolder::kPartData);
long srcLen = pHolder->GetSourceLen(ReformatHolder::kPartData);
if (pHolder->GetSourceFormat() == ReformatHolder::kSourceFormatDOS)
return false; // can only live under ProDOS; need len + aux type
if (srcLen < kHeaderLen+2)
return false; // too short
uint16_t version;
uint16_t symEnd;
uint16_t symCount;
version = srcPtr[0x00] | srcPtr[0x01] << 8;
symEnd = srcPtr[0x02] | srcPtr[0x03] << 8;
symCount = srcPtr[0x04] | srcPtr[0x05] << 8;
if (symEnd > srcLen) {
LOGI(" LISA4 bad symEnd");
return false;
}
if (symCount > symEnd) {
LOGI(" LISA4 funky symCount (count=%d end=%d)",
symCount, symEnd);
return false;;
}
uint8_t opTab, adTab, comTab;
opTab = srcPtr[0x06];
adTab = srcPtr[0x07];
comTab = srcPtr[0x08];
if (opTab < 1 || adTab < 2 || comTab < 3) {
LOGI(" LISA4 missing tabs");
return false;
}
if (opTab >= 128 || adTab >= 128 || comTab >= 128) {
LOGI(" LISA4 huge tabs");
return false;
}
return true;
}
static const char gHexDigit[] = "0123456789ABCDEF";
/*
* Table of mnemonics, from v5.0a editor sources.
*
* Some entries were not present in the editor sources, but were used
* by sample source code, and have been added here:
* 0x6c .assume
* 0x7f .table
*/
static const char* gMnemonics4[] = {
// 00 - 0f
"???", "add", "adc", "and", "cmp", "eor", "lda", "ora",
"sbc", "sta", "sub", "xor", "asl", "dec", "inc", "lsr",
// 10 - 1f
"rol", "ror", ".if", "whl", ".go", "bra", "bcc", "bcs",
"beq", "bfl", "bge", "blt", "bmi", "bne", "bpl", "btr",
// 20 - 2f
"bvc", "bvs", "obj", "org", "phs", ".db", "pea", "per",
"brl", ".md", "far", "fdr", "fzr", "inp", "lcl", "rls",
// 30 - 3f
"bit", "cpx", "cpy", "ldx", "ldy", "stx", "sty", "trb",
"tsb", "stz", "pei", "rep", "sep", "jmp", "jsr", "jml",
// 40 - 4f
"jsl", "mvn", "mvp", "= ", "con", "epd", "epz", "eql",
"equ", "set", ".da", "adr", "byt", "csp", "dby", "hby",
// 50 - 5f
"bby", "anx", "chn", "icl", "lib", "lnk", "msg", "psm",
"rlb", "sbt", "ttl", "dci", "rvs", "str", "zro", "dfs",
// 60 - 6f
"hex", "usr", "sav", ".tf", "seg", "cpu", ".entry", ".ref",
".group", ".deref", "long", NULL, ".assume", NULL, NULL, NULL,
// 70 - 7f
NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
NULL, NULL, NULL, NULL, NULL, NULL, NULL, ".table",
// 80 - 8f
NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
// 90 - 9f
".el", ".fi", ".me", ".we", ".la", ".lx", ".sa", ".sx",
"dph", "if1", "if2", "end", "exp", "gen", "lst", "nls",
// a0 - af
"nog", "nox", "pag", "pau", "nlc", "cnd", "asl", "lsr",
"rol", "ror", "dec", "inc", "mvn", "mvp", "brk", "clc",
// b0 - bf
"cld", "cli", "clv", "dex", "dey", "inx", "iny", "nop",
"pha", "php", "pla", "plp", "rti", "rts", "sec", "sed",
// c0 - cf
"sei", "tax", "tay", "tsx", "txa", "txs", "tya", "phx",
"phy", "plx", "ply", "cop", "phb", "phd", "phk", "plb",
// d0 - df
"pld", "rtl", "stp", "swa", "tad", "tas", "tcd", "tcs",
"tda", "tdc", "tsa", "tsc", "txy", "tyx", "wai", "xba",
// e0 - ef
"xce", ".proc", ".endp", ".table", ".endt", NULL, NULL, NULL,
NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
// f0 - ff
NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
};
/*
* Parse a file.
*/
int ReformatLISA4::Process(const ReformatHolder* pHolder,
ReformatHolder::ReformatID id, ReformatHolder::ReformatPart part,
ReformatOutput* pOutput)
{
const uint8_t* srcPtr = pHolder->GetSourceBuf(part);
long srcLen = pHolder->GetSourceLen(part);
int retval = -1;
if (srcLen < kHeaderLen+2) {
LOGI(" LISA4 too short");
goto bail;
}
fUseRTF = false;
uint16_t version;
uint16_t symEnd;
version = srcPtr[0x00] | srcPtr[0x01] << 8;
symEnd = srcPtr[0x02] | srcPtr[0x03] << 8;
fSymCount = srcPtr[0x04] | srcPtr[0x05] << 8;
fOpTab = srcPtr[0x06];
fAdTab = srcPtr[0x07];
fComTab = srcPtr[0x08];
fCpuType = srcPtr[0x09];
LOGD(" LISA4 version = 0x%04x symEnd=%d symCount=%d",
version, symEnd, fSymCount);
LOGD(" LISA4 opTab=%d adTab=%d comTab=%d cpuType=%d",
fOpTab, fAdTab, fComTab, fCpuType);
if (symEnd > srcLen) {
LOGI(" LISA4 bad symEnd");
goto bail;
}
if (fSymCount > symEnd) {
LOGI(" LISA4 funky symCount");
goto bail;
}
if (fSymCount > 0) {
fSymTab = new const uint8_t*[fSymCount];
if (fSymTab == NULL)
goto bail;
}
const uint8_t* symPtr;
const uint8_t* endPtr;
int symIdx;
symPtr = srcPtr + kHeaderLen;
endPtr = srcPtr + symEnd;
if (symPtr > endPtr) {
LOGI(" LISA4 GLITCH: bad symEnd");
goto bail;
}
/*
* Generate symbol table index.
*/
symIdx = 0;
while (symPtr < endPtr) {
if (symIdx < fSymCount)
fSymTab[symIdx++] = symPtr;
while (*symPtr != '\0')
symPtr++;
symPtr++;
}
if (symIdx != fSymCount) {
LOGI(" LISA4 err: symIdx is %d, symCount is %d", symIdx, fSymCount);
goto bail;
}
LOGI(" LISA4 symPtr=0x%p endPtr=0x%p symIdx=%d", symPtr, endPtr, symIdx);
/*
* Process source lines.
*/
const uint8_t* codePtr;
int lineNum;
codePtr = srcPtr + symEnd;
endPtr = srcPtr + srcLen;
assert(codePtr < endPtr);
lineNum = 0;
while (codePtr < endPtr) {
uint8_t flagByte;
int lineLen;
lineNum++;
OutputStart();
flagByte = *codePtr++;
if (flagByte < 0x80) {
/* explicit length, complex line */
lineLen = flagByte;
/* subtract 1 from flagByte, because len includes flagByte */
if (flagByte > 0)
ProcessLine(codePtr, flagByte-1);
} else {
/* SpecMnem - locals, labels, comments */
if (flagByte >= kLocalTKN) {
lineLen = 1;
if (flagByte == kComntSemiTKN) {
Output(';');
} else if (flagByte == kCommentTKN) {
Output('*');
} else if (flagByte == kBlankTKN) {
// just a blank line
} else if (flagByte < kLabelTKN) {
/* 0xf0 - 0xf9 - local numeric labels, e.g. "^1" */
Output('^');
Output('0' + flagByte - 0xf0);
} else if (flagByte < kMacroTKN) {
/* 0xfa - 0xfb */
if (flagByte == 0xfa) {
/* label */
lineLen = 3;
int tmp = *codePtr | *(codePtr+1) << 8;
PrintSymEntry(tmp);
} else {
/* not used?? */
assert(lineLen == 1);
Output("??? ");
}
} else {
/* macro (only object on line) */
assert(flagByte == kMacroTKN);
OutputTab(fOpTab);
int idx;
idx = *codePtr | *(codePtr+1) << 8;
Output('_'); // MacroChar
PrintSymEntry(idx);
lineLen = 3;
}
} else {
/* OutMnem - simple, standard mnemonic */
lineLen = 1;
OutputTab(fOpTab);
if (gMnemonics4[flagByte])
Output(gMnemonics4[flagByte]);
else
Output("!BAD MNEMONIC!");
}
}
if (lineLen == 0) {
/* end of file */
break;
}
OutputFinish();
//BufPrintf("%d: %s\r\n", lineNum, GetOutBuf());
BufPrintf("%s\r\n", GetOutBuf());
codePtr += lineLen-1;
}
LOGI(" LISA4 codePtr=0x%p endPtr=0x%p numLines=%d",
codePtr, endPtr, lineNum-1);
LOGI(" LISA4 extra = %d", endPtr - codePtr);
SetResultBuffer(pOutput);
retval = 0;
bail:
delete[] fSymTab;
fSymTab = NULL;
return retval;
}
void ReformatLISA4::ProcessLine(const uint8_t* codePtr, int len)
{
uint8_t mnemonic = 0;
if (*codePtr == kComntSemiTKN || *codePtr == kComntStarTKN ||
*codePtr == kErrlnTKN)
{
switch (*codePtr) {
case kComntSemiTKN: Output(';'); break;
case kComntStarTKN: Output('*'); break;
case kErrlnTKN: Output('!'); break;
default:
assert(false);
}
codePtr++;
while (--len)
Output(*codePtr++ & 0x7f);
goto bail;
} else if (*codePtr == kMacroTKN) {
/* handle macro */
int idx;
idx = *++codePtr;
idx |= *++codePtr << 8;
OutputTab(fOpTab);
Output('_'); // MacroChar
PrintSymEntry(idx);
codePtr++;
len -= 3;
mnemonic = kMacroTKN;
goto ConvtOperand;
} else if (*codePtr == kLabelTKN) {
/* handle label at start of line */
uint16_t idx;
idx = *++codePtr;
idx |= *++codePtr << 8;
PrintSymEntry(idx);
codePtr++;
len -= 3;
// goto ConvtMnem
} else if (*codePtr >= kLocalTKN) {
/* handle local label (^) */
Output('^');
Output((char) (*codePtr - 0xc0));
codePtr++;
len--;
// goto ConvtMnem
} else {
/* no label; current value is the mnemonic; continue w/o advancing */
// fall through to ConvtMnem
}
/* ConvtMnem */
mnemonic = *codePtr++;
len--;
if (mnemonic >= kMacroTKN) {
/* OutMacro */
assert(mnemonic == kMacroTKN);
OutputTab(fOpTab);
int idx;
idx = *codePtr++;
idx |= *codePtr++ << 8;
Output('_'); // MacroChar
PrintSymEntry(idx);
len -= 2;
//printf("{MAC:%d}", len);
} else {
OutputTab(fOpTab);
if (gMnemonics4[mnemonic] != NULL)
Output(gMnemonics4[mnemonic]);
else {
Output("!BAD MNEMONIC!");
LOGI(" LISA4 bad mnemonic 0x%02x", mnemonic);
DebugBreak();
}
if (mnemonic >= kSS) {
/* CnvMnem2 - mnemonic has no associated operand */
/* need to fall into ConvertOperand to show comment */
if (len > 0) {
/* can only be comment here; skip comment token */
if (*codePtr != kComntSemiTKN)
printf("{SKIP=0x%02x,len=%d}", *codePtr, len);
codePtr++;
len--;
}
}
}
ConvtOperand:
/* ConvtOperand */
//printf("{cen=%d}", len);
ConvertOperand(mnemonic, &codePtr, &len);
bail:
if (len > 0)
printf("{LEN=%d}", len);
return;
}
/*
* ConvtOperand
*/
void ReformatLISA4::ConvertOperand(uint8_t mnemonic,
const uint8_t** pCodePtr, int* pLen)
{
/*
* Address header char.
*/
static const char kAdrsModeHeader[] = {
0, 0, 0, 0, 0, 0, 0, 0, 0, // 0-8 are null
'(', '(', '(', '(', // 9-12
'[', '[', // 13-14
0 // 15
};
/*
* operand lookup table - 1st char
* 0 : not simple operand
* b7=1 : 1st char of simple operand
*/
static const char kOperandTbl1[] =
"+-*/&|^=" // 0-7
"<>%<><~-" // 8-F
"01234567" //10-17
"89\0\0\0\0\0\0" //18-1F
"++++++++" //20-27
"++\0\0\0\0\0\0" //28-2F
"\0<>\0\0\0\0\0" //30-37
"\0*@#/^|\\" //38-3F
"<<<<<<<<" //40-47
"<<??????" //48-4F
">>>>>>>>" //50-57
">>????\0?" //58-5F
"\0\0\0\0\0\0\0\0" //60-67
"\0\0\0\0\0\0\0\0" //68-6f
"\0\0\0\0\0\0\0\0" //70-77
"\0\0\0\0\0\0\0\0" //78-7f
;
/*
* operand lookup table - 2nd char
* 0 : only 1 char
* 1 : was unary op
* b7=1 : 2nd char of simple operand
*
* (Changed numeric 1 to '!'. Bit 7 never set. Normally it's set
* for anything that isn't numeric 0 or 1.)
*/
static const char kOperandTbl2[] =
"\0\0\0\0\0\0\0\0" // 0-7
"\0\0\0==>!!" // 8-F note: 1's mark unaries
"\0\0\0\0\0\0\0\0" //10-17
"\0\0\0\0\0\0\0\0" //18-1F
"01234567" //20-27
"89\0\0\0\0\0\0" //28-2F
"\0<>\0\0\0\0\0" //30-37
"\0\0!!!!!!" //38-3F note: 1's mark unaries
"01234567" //40-47
"89012345" //48-4F
"01234567" //50-57
"896789\0#" //58-5F
"\0\0\0\0\0\0\0\0" //60-67
"\0\0\0\0\0\0\0\0" //68-6f
"\0\0\0\0\0\0\0\0" //70-77
"\0\0\0\0\0\0\0\0" //78-7f
;
/*
* operator lookup table
* 0 : not operator
* 1 : complex operator
* b7=1 : 1st char of simple operator
*
* (Changed numeric 1 to '!'. Bit 7 never set.)
*/
static const char kOperatorTbl1[] =
"+-*/&|^=" // 0-7
"<>%<><\0\0" // 8-F
"\0\0\0\0\0\0\0\0" //10-17
"\0\0\0\0\0\0\0\0" //18-1F
"!!!!!!!!" //20-27
"!!!!!!!!" //28-2F
"\0<>\0\0\0\0\0" //30-37
"\0\0\0\0\0\0\0\0" //38-3F
"\0\0\0\0\0\0\0\0" //40-47
"\0\0\0\0\0\0\0\0" //48-4F
"\0\0\0\0\0\0\0\0" //50-57
"\0\0\0\0\0\0\0\0" //58-5F
"\0\0\0\0\0\0\0\0" //60-67
"\0\0\0\0\0\0\0\0" //68-6f
"\0\0\0\0\0\0\0\0" //70-77
"\0\0\0\0\0\0\0\0" //78-7f
;
static const char* kOperatorTbl2 = kOperandTbl2;
static const char* kAdrsModeTrailer[] = {
NULL, NULL, NULL, ",X",
",X", ",X", NULL, ",S",
",Y", "),Y", ",X)", ")",
",S),Y", "]", "],Y", NULL,
};
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
OperandResult result;
uint8_t adrsMode = 0;
uint8_t val;
char ch;
if (mnemonic == kMacroTKN || mnemonic < kSS) {
/* ConvtOperand */
OutputTab(fAdTab);
if (mnemonic != kMacroTKN) {
if (mnemonic < kGROUP3_tkns ||
!(mnemonic < kGROUP5_tkns || mnemonic == kMVN_tkn ||
mnemonic == kMVP_tkn || mnemonic >= kGROUP6_tkns))
{
if (len <= 0) {
Output("!BAD ADRS!");
} else {
adrsMode = *codePtr++;
len--;
}
}
if (adrsMode < NELEM(kAdrsModeHeader)) {
ch = kAdrsModeHeader[adrsMode];
if (ch != 0)
Output(ch);
} else {
Output("!BAD ADRSMODE!");
}
}
//printf("{ven=%d val=0x%02x}", len, *codePtr);
/* OutOprnd */
while (len > 0) {
bool doOutOprtr = false;
val = *codePtr++;
len--;
if (val >= 0x80) {
if (val == kLabelTKN) {
/* OutLabel */
int idx;
idx = *codePtr++;
idx |= *codePtr++ << 8;
len -= 2;
PrintSymEntry(idx);
doOutOprtr = true;
} else if (val == kComntSemiTKN) {
break; // out of while, to OutOprndDone */
} else {
/* illegal token */
Output('!');
Output(',');
/* keep looping in OutOprnd */
}
} else {
/* OutOpr2 */
ch = kOperandTbl1[val];
if (ch != '\0') {
/* simple operand */
Output(ch);
ch = kOperandTbl2[val];
if (ch == '!')
continue; // unary, no operator, go to OutOprnd
else if (ch != '\0')
Output(ch);
doOutOprtr = true;
} else {
/* OutOprComp - complex operand */
result = PrintComplexOperand(val, &codePtr, &len);
if (result == kResultGotoOutOprtr)
goto OutOprtr;
// else continue around in OutOprnd
}
}
if (doOutOprtr) {
OutOprtr:
uint8_t opr;
if (!len)
break;
opr = *codePtr++;
len--;
if (opr >= 0x80) {
not_operator:
if (opr == kComntSemiTKN)
break; // goto OutOprndDone
else {
/* must be two sequential operands */
Output(',');
codePtr--; // back up
len++;
// continue around to OutOprnd
}
} else {
char opch;
opch = kOperatorTbl1[opr];
if (opch == 0) {
goto not_operator;
} else if (opch == 0 || opch == '!') {
/* complex */
Output('+');
opch = kOperatorTbl2[opr];
//printf("{opch=0x%02x}", opch);
if (opch != '\0') {
Output(opch);
goto OutOprtr; // look for another
} else {
int num;
num = opr - 0x10;
result = PrintNum(num, &codePtr, &len);
if (result == kResultGotoOutOprtr)
goto OutOprtr;
}
} else {
/* simple */
Output(' ');
Output(opch);
opch = kOperatorTbl2[opr];
if (opch != '\0')
Output(opch);
Output(' ');
// continue to OutOprnd
}
}
}
}
}
/* OutOprndDone */
if (adrsMode != 0) {
if (adrsMode < NELEM(kAdrsModeHeader)) {
if (kAdrsModeTrailer[adrsMode] != NULL)
Output(kAdrsModeTrailer[adrsMode]);
} else {
Output("!BAD ADRSMODE!");
printf("{ADRS=%d}", adrsMode);
}
}
if (len > 0) {
OutputTab(fComTab);
Output(';');
while (len--)
Output(*codePtr++ & 0x7f);
}
//bail:
*pCodePtr = codePtr;
*pLen = len;
}
/*
* CnvrtDec - convert to decimal output.
*/
void ReformatLISA4::PrintDec(int count, const uint8_t** pCodePtr,
int* pLen)
{
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
long val = 0;
char buf[12]; // 4 bytes, max 10 chars + sign + nul
for (int i = 0; i < count; i++) {
val |= *codePtr++ << (8 * i);
len--;
}
sprintf(buf, "%lu", val);
Output(buf);
*pCodePtr = codePtr;
*pLen = len;
}
/*
* CnvrtHex - convert to hex output.
*/
void ReformatLISA4::PrintHex(int count, const uint8_t** pCodePtr,
int* pLen)
{
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
uint8_t val;
Output('$');
for (int i = count-1; i >= 0; i--) {
val = *(codePtr+i);
Output(gHexDigit[(val & 0xf0) >> 4]);
Output(gHexDigit[val & 0x0f]);
}
codePtr += count;
len -= count;
*pCodePtr = codePtr;
*pLen = len;
}
/*
* CnvrtBin - convert to binary output.
*/
void ReformatLISA4::PrintBin(int count, const uint8_t** pCodePtr,
int* pLen)
{
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
uint8_t val;
char buf[9];
buf[8] = '\0';
Output('%');
for (int i = count-1; i >= 0; i--) {
val = *(codePtr+i);
for (int bit = 0; bit < 8; bit++)
buf[bit] = '0' + ((val >> (7-bit)) & 0x01);
Output(buf);
}
codePtr += count;
len -= count;
*pCodePtr = codePtr;
*pLen = len;
}
/*
* OUTNUM
*/
ReformatLISA4::OperandResult ReformatLISA4::PrintNum(uint8_t opr,
const uint8_t** pCodePtr, int* pLen)
{
OperandResult result = kResultUnknown;
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
int idx;
switch (opr) {
case kDec3_tkn:
PrintDec(3, &codePtr, &len);
break;
case kDec2_tkn:
PrintDec(2, &codePtr, &len);
break;
case kDec1_tkn:
PrintDec(1, &codePtr, &len);
break;
case kHex3_tkn:
PrintHex(3, &codePtr, &len);
break;
case kHex2_tkn:
PrintHex(2, &codePtr, &len);
break;
case kHex1_tkn:
PrintHex(1, &codePtr, &len);
break;
case kBin3_tkn:
PrintBin(3, &codePtr, &len);
break;
case kBin2_tkn:
PrintBin(2, &codePtr, &len);
break;
case kBin1_tkn:
PrintBin(1, &codePtr, &len);
break;
case kcABS_tkn:
/* coerce absolute */
if (*codePtr == kLabelTKN) {
codePtr++;
len--;
}
idx = *codePtr++;
idx |= *codePtr++ << 8;
len -= 2;
PrintSymEntry(idx);
Output(':');
Output('A');
break;
case kcLONG_tkn:
/* coerce long */
if (*codePtr == kLabelTKN) {
codePtr++;
len--;
}
idx = *codePtr++;
idx |= *codePtr++ << 8;
len -= 2;
PrintSymEntry(idx);
Output(':');
Output('L');
break;
case kMacE_tkn:
/* macro expression */
Output('?');
Output(':');
result = kResultGotoOutOprnd;
break;
default:
if (opr >= kStr31_tkn+1) {
/* CheckMoreOprnd - none currently */
// (not expected, but not much we can do)
Output("{CheckMoreOprnd}");
} else {
/* CheckStrings */
uint8_t strLen;
uint8_t val;
uint8_t delimit;
if ((opr & 0x1f) == 0) {
strLen = *codePtr++;
len--;
} else {
strLen = opr & 0x1f;
}
if (strLen > len) {
Output("!BAD STR!");
printf("{opr=0x%02x, strLen=%d, len=%d}", opr, strLen, len);
return kResultFailed;
}
val = *codePtr;
if (val < 0x80) {
/* ISAPOST */
delimit = '\'';
} else {
/* DETKNSTR */
delimit = '\"';
}
Output(delimit);
while (strLen--) {
val = *codePtr++ & 0x7f;
len--;
Output(val);
if (val == delimit)
Output(val);
}
Output(delimit);
}
break;
}
if (result == kResultUnknown)
result = kResultGotoOutOprtr;
*pCodePtr = codePtr;
*pLen = len;
return result;
}
/*
* OutOprComp
*/
ReformatLISA4::OperandResult ReformatLISA4::PrintComplexOperand(uint8_t opr,
const uint8_t** pCodePtr, int* pLen)
{
if (opr != kBign_tkn)
return PrintNum(opr, pCodePtr, pLen);
/*
const uint8_t* codePtr = *pCodePtr;
int len = *pLen;
*pCodePtr = codePtr;
*pLen = len;
*/
uint8_t subClass;
/* OutOprComp */
subClass = *(*pCodePtr)++;
(*pLen)--;
if (subClass == kBigndec4_tkn) {
PrintDec(4, pCodePtr, pLen);
} else if (subClass == kBignhex4_tkn) {
PrintHex(4, pCodePtr, pLen);
} else if (subClass == kBignbin4_tkn) {
PrintBin(4, pCodePtr, pLen);
} else if (subClass == kBignhexs_tkn) {
/* hex string, for HEX pseudo-op */
uint8_t hexLen = *(*pCodePtr)++;
(*pLen)--;
if (hexLen > *pLen) {
Output("!BAD HEX!");
return kResultFailed;
}
while (hexLen--) {
uint8_t val = *(*pCodePtr)++;
(*pLen)--;
Output(gHexDigit[(val & 0xf0) >> 4]);
Output(gHexDigit[val & 0x0f]);
}
} else if (subClass == kBignstring_tkn) {
/* undelimited string */
uint8_t strLen = *(*pCodePtr)++;
(*pLen)--;
if (strLen > *pLen) {
Output("!BAD USTR!");
return kResultFailed;
}
while (strLen--) {
uint8_t val = *(*pCodePtr)++;
(*pLen)--;
Output(val & 0x7f);
}
} else {
Output("!BAD CPLX OPRND!");
DebugBreak();
printf("OPR=%d SUBCLASS=%d", opr, subClass);
return kResultFailed;
}
return kResultGotoOutOprtr;
}
/*
* Print symbol table entry.
*/
void ReformatLISA4::PrintSymEntry(int ent)
{
if (ent < 0 || ent >= fSymCount) {
Output("!BAD SYM!");
return;
}
const uint8_t* str = fSymTab[ent];
uint8_t uc;
str++;
while (1) {
uc = *str++;
if (!uc)
break;
else if (uc < 0x80)
uc |= 0x20;
Output(uc & 0x7f);
}
}
Reference in New Issue Copy Permalink