Apple-2-Tools
/
dmolony-DiskBrowser
mirror of https://github.com/dmolony/DiskBrowser.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

removed CALL target from integer list

This commit is contained in:
Denis Molony 2021-02-21 06:50:18 +10:00
parent ba6c067fb3
commit 1aaee043a3
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/com/bytezone/diskbrowser/applefile/SubLine.java
View File

@ -55,7 +55,11 @@ public class SubLine implements ApplesoftConstants
doToken (firstByte);
if (is (TOKEN_REM) || is (TOKEN_DATA)) // no further processing
return;
ptr = startPtr + 1;
if (is (TOKEN_CALL))
ptr = startPtr + callTarget.length ();
else
ptr = startPtr + 1;
}
else
{
@ -66,8 +70,8 @@ public class SubLine implements ApplesoftConstants
return;
}
else if (Utility.isLetter (firstByte)) // variable assignment
recordEqualsPosition ();
else if (firstByte == Utility.ASCII_COLON || firstByte == 0) // empty subline
setEqualsPosition ();
else if (isEndOfLine (firstByte)) // empty subline
return;
else // probably Beagle Bros 0D or 0A
System.out.printf ("Unexpected bytes at %5d: %s%n", parent.lineNumber,
@ -82,7 +86,7 @@ public class SubLine implements ApplesoftConstants
int stringPtr = 0;
int max = startPtr + length - 1;
if (buffer[max] == 0 || buffer[max] == Utility.ASCII_COLON)
if (isEndOfLine (buffer[max]))
--max;
while (ptr <= max)
@ -162,6 +166,13 @@ public class SubLine implements ApplesoftConstants
checkVar (var, (byte) 0); // unprocessed variable or number
}
// ---------------------------------------------------------------------------------//
private boolean isEndOfLine (byte b)
// ---------------------------------------------------------------------------------//
{
return b == 0 || b == Utility.ASCII_COLON;
}
// ---------------------------------------------------------------------------------//
private void addString (int stringPtr, int ptr)
// ---------------------------------------------------------------------------------//
@ -285,7 +296,7 @@ public class SubLine implements ApplesoftConstants
break;
case TOKEN_LET:
recordEqualsPosition ();
setEqualsPosition ();
break;
case TOKEN_GOTO:
@ -484,7 +495,7 @@ public class SubLine implements ApplesoftConstants
// Record the position of the equals sign so it can be aligned with adjacent lines.
// ---------------------------------------------------------------------------------//
private void recordEqualsPosition ()
private void setEqualsPosition ()
// ---------------------------------------------------------------------------------//
{
int p = startPtr + 1;