Apple-2-Tools/dmolony-DiskBrowser
1
0
Fork 0
mirror of https://github.com/dmolony/DiskBrowser.git synced 2024-09-22 22:03:03 +00:00
Code Issues Projects Releases Wiki Activity

formatted REM statements

Browse Source
This commit is contained in:
Denis Molony 2020-11-22 20:23:35 +10:00
parent e2e4b554e7
commit 145bcb38de
1 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/com/bytezone/diskbrowser/applefile/ApplesoftBasicProgram.java
View File

@ -94,6 +94,14 @@ public class ApplesoftBasicProgram extends BasicProgram
continue;
}
// Beagle Bros often have multiline REM statements
if (subline.is (TOKEN_REM) && subline.containsControlChars ())
{
subline.addFormattedRem (text);
fullText.append (text + "\n");
continue;
}
// Reduce the indent by each NEXT, but only as far as the IF indent allows
if (subline.is (TOKEN_NEXT))
{
@ -751,9 +759,44 @@ public class ApplesoftBasicProgram extends BasicProgram
for (int p = startPtr + 1, max = startPtr + length; p < max; p++)
if (isHighBitSet (buffer[p]))
return true;
return false;
}
public boolean containsControlChars ()
{
for (int p = startPtr + 1, max = startPtr + length; p < max; p++)
{
int c = buffer[p] & 0xFF;
if (c == 0)
break;
if (c < 32)
return true;
}
return false;
}
public void addFormattedRem (StringBuilder text)
{
int ptr = startPtr + 1;
int max = startPtr + length - 2;
while (ptr <= max)
{
int c = buffer[ptr] & 0xFF;
// System.out.printf ("%02X %s%n", c, (char) c);
if (c == 0x08 && text.length () > 0)
text.deleteCharAt (text.length () - 1);
else if (c == 0x0D)
text.append ("\n");
else
text.append ((char) c);
ptr++;
}
}
public int getAddress ()
{
return getLoadAddress () + startPtr;