Apple-2-Tools/dmolony-DiskBrowser
1
0
Fork 0
mirror of https://github.com/dmolony/DiskBrowser.git synced 2024-06-27 08:29:31 +00:00
Code Issues Projects Releases Wiki Activity

tokens

Browse Source
This commit is contained in:
Denis Molony 2019-10-13 15:14:47 +10:00
parent 6da1441041
commit fb68f65a95
2 changed files with 34 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -212,7 +212,7 @@ public class ApplesoftBasicProgram extends BasicProgram
} }
int ptr = endPtr + 2; int ptr = endPtr + 2;
if (ptr < buffer.length) if (ptr < buffer.length - 1) // sometimes there's an extra byte on the end
{ {
int offset = HexFormatter.unsignedShort (buffer, 0); int offset = HexFormatter.unsignedShort (buffer, 0);
int programLoadAddress = offset - getLineLength (0); int programLoadAddress = offset - getLineLength (0);

65
src/com/bytezone/diskbrowser/applefile/ApplesoftConstants.java
View File

@ -2,38 +2,39 @@ package com.bytezone.diskbrowser.applefile;
public interface ApplesoftConstants public interface ApplesoftConstants
{ {
String[] tokens = { "END", "FOR ", "NEXT ", "DATA ", // 0x80 - 0x83 String[] tokens = { //
"INPUT ", "DEL", "DIM ", "READ ", // 0x84 - 0x87 "END ", "FOR ", "NEXT ", "DATA ", // 0x80 - 0x83
"GR", "TEXT", "PR#", "IN#", // 0x88 - 0x8B "INPUT ", "DEL ", "DIM ", "READ ", // 0x84 - 0x87
"CALL ", "PLOT ", "HLIN ", "VLIN ", // 0x8C - 0x8F "GR ", "TEXT ", "PR# ", "IN# ", // 0x88 - 0x8B
"HGR2", "HGR", "HCOLOR=", "HPLOT ", // 0x90 "CALL ", "PLOT ", "HLIN ", "VLIN ", // 0x8C - 0x8F
"DRAW ", "XDRAW ", "HTAB ", "HOME", // 0x94 "HGR2", "HGR", "HCOLOR=", "HPLOT ", // 0x90
"ROT=", "SCALE=", "SHLOAD", "TRACE", // 0x98 "DRAW ", "XDRAW ", "HTAB ", "HOME ", // 0x94
"NOTRACE", "NORMAL", "INVERSE", "FLASH", // 0x9C "ROT=", "SCALE=", "SHLOAD ", "TRACE ", // 0x98
"COLOR=", "POP", "VTAB ", "HIMEM:", // 0xA0 "NOTRACE ", "NORMAL ", "INVERSE ", "FLASH ", // 0x9C
"LOMEM:", "ONERR ", "RESUME", "RECALL", // 0xA4 - 0xA7 "COLOR=", "POP ", "VTAB ", "HIMEM:", // 0xA0
"STORE", "SPEED=", "LET ", "GOTO ", // 0xA8 "LOMEM:", "ONERR ", "RESUME", "RECALL ", // 0xA4 - 0xA7
"RUN", "IF ", "RESTORE", "& ", // 0xAC "STORE ", "SPEED=", "LET ", "GOTO ", // 0xA8
"GOSUB ", "RETURN", "REM ", "STOP", // 0xB0 "RUN ", "IF ", "RESTORE ", "& ", // 0xAC
"ON ", "WAIT", "LOAD", "SAVE", // 0xB4 "GOSUB ", "RETURN ", "REM ", "STOP ", // 0xB0
"DEF", "POKE ", "PRINT ", "CONT", // 0xB8 "ON ", "WAIT ", "LOAD ", "SAVE ", // 0xB4
"LIST", "CLEAR", "GET ", "NEW", // 0xBC "DEF", "POKE ", "PRINT ", "CONT", // 0xB8
"TAB(", "TO ", "FN", "SPC(", // 0xC0 "LIST ", "CLEAR ", "GET ", "NEW ", // 0xBC
"THEN ", "AT ", "NOT ", "STEP ", // 0xC4 "TAB(", "TO ", "FN ", "SPC(", // 0xC0
"+ ", "- ", "* ", "/ ", // 0xC8 "THEN ", "AT ", "NOT ", "STEP ", // 0xC4
"^ ", "AND ", "OR ", "> ", // 0xCC "+ ", "- ", "* ", "/ ", // 0xC8
"= ", "< ", "SGN", "INT ", // 0xD0 "^ ", "AND ", "OR ", "> ", // 0xCC
"ABS", "USR", "FRE", "SCRN(", // 0xD4 "= ", "< ", "SGN ", "INT ", // 0xD0
"PDL", "POS ", "SQR", "RND", // 0xD8 "ABS ", "USR", "FRE ", "SCRN(", // 0xD4
"LOG", "EXP", "COS", "SIN", // 0xDC "PDL ", "POS ", "SQR ", "RND ", // 0xD8
"TAN", "ATN", "PEEK", "LEN", // 0xE0 - 0xE3 "LOG ", "EXP ", "COS ", "SIN ", // 0xDC
"STR$", "VAL", "ASC", "CHR$", // 0xE4 - 0xE7 "TAN ", "ATN ", "PEEK ", "LEN ", // 0xE0 - 0xE3
"LEFT$", "RIGHT$", "MID$", "", // 0xE8 - 0xEB "STR$ ", "VAL ", "ASC ", "CHR$ ", // 0xE4 - 0xE7
"", "", "", "", // 0xEC - 0xEF "LEFT$ ", "RIGHT$ ", "MID$ ", "", // 0xE8 - 0xEB
"ELSE", "MOD", "INC", "DEC", // 0xF0 - 0xF3 "", "", "", "", // 0xEC - 0xEF
"DEEK", "DOKE", "REPEAT", "UNTIL", // 0xF4 - 0xF7 "ELSE", "MOD", "INC", "DEC", // 0xF0 - 0xF3
"", "", "", "", // 0xF8 - 0xFB "DEEK", "DOKE", "REPEAT", "UNTIL", // 0xF4 - 0xF7
"", "", "", "", // 0xFC - 0xFF "", "", "", "", // 0xF8 - 0xFB
"", "", "", "", // 0xFC - 0xFF
}; };
int[] tokenAddresses = int[] tokenAddresses =