crazyettin
/
Thingamajig
1
0
Fork 0
Code Issues Pull Requests Projects Releases 2 Wiki Activity

Fix a bug with non-initial ORG statements in the assembler

This commit is contained in:
CrazyEttin 2022-09-15 22:26:30 +03:00
parent 9d318c4c75
commit f0e676facb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
assembler.pas
View File

@ -170,6 +170,7 @@ begin
LP := 1;
BP := 0;
SP := 0;
EP := 0;
//Begin the main loop
repeat
@ -264,7 +265,9 @@ begin
DatOrg := ExtractWord (2, Line, [' ']);
try
if Hex2Dec (DatOrg) <=$ffff then begin
if BP > EP then EP := BP;
BP := Hex2Dec (DatOrg);
if BP < SP then SP := BP;
end
else ArgError;
except
@ -434,7 +437,7 @@ begin
if AllRefsResolved = false then halt (1);
//Set the end pointer and reset the byte pointer to the start of the program
EP := BP;
if BP > EP then EP := BP;
BP := SP;
//Write the program file