Apple-2-SW/apple2a
1
0
Fork 0
mirror of https://github.com/bradgrantham/apple2a.git synced 2024-05-28 15:41:29 +00:00
Code Issues Projects Releases Wiki Activity

Fix NEXT jump (close #3).

Browse Source
This commit is contained in:
Lawrence Kesteloot 2023-08-28 21:58:51 -07:00
parent 98c79e5100
commit 00922326e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
main.c
View File

@ -1270,7 +1270,7 @@ static void compile_buffer(uint8_t *buffer, uint16_t line_number) {
c[7] = 3; // Skip over indirect jump. c[7] = 3; // Skip over indirect jump.
// Jump to top of loop, indirectly through ptr1, which has the address. // Jump to top of loop, indirectly through ptr1, which has the address.
c[8] = I_JMP_IND; c[8] = I_JMP_IND;
c[9] = (uint8_t) &ptr1 & 0x0F; c[9] = (uint8_t) &ptr1 & 0xFF;
c[10] = (uint8_t) &ptr1 >> 8; c[10] = (uint8_t) &ptr1 >> 8;
g_c = c + 11; g_c = c + 11;
} else if (*s == T_DIM) { } else if (*s == T_DIM) {