Fetcher: Fix issue #25

This closes #25.
This commit is contained in:
Ry 2023-07-25 16:26:47 -07:00
parent ccd0b837c8
commit 6ab8c6dfb3

View File

@ -213,7 +213,7 @@ MODULE Browser;
(* find the first space in the name *) (* find the first space in the name *)
j := 7; j := 7;
WHILE j DO WHILE j DO
IF GETCHAR(PTROF(browserFileList) + (i * 11) + j) # 32 THEN IF GETCHAR(PTROF(browserFileList) + (browserPage * 11 * 12) + (i * 11) + j) # 32 THEN
BREAK(); BREAK();
END; END;
j := j - 1; j := j - 1;
@ -222,7 +222,7 @@ MODULE Browser;
(* j now equals the index of where the file name ends and the extension begins *) (* j now equals the index of where the file name ends and the extension begins *)
PUTCHAR(browserFileListFriendly[i] + j, 46); PUTCHAR(browserFileListFriendly[i] + j, 46);
copy_memory_bytes(PTROF(browserFileList) + (i * 11) + 8, browserFileListFriendly[i] + j + 1, 3); copy_memory_bytes(PTROF(browserFileList) + (browserPage * 11 * 12) + (i * 11) + 8, browserFileListFriendly[i] + j + 1, 3);
PUTCHAR(browserFileListFriendly[i] + j + 4, 0); PUTCHAR(browserFileListFriendly[i] + j + 4, 0);
i := i + 1; i := i + 1;