Skip to content

optimize libload #798

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
mateoconlechuga merged 2 commits into from
Apr 25, 2026
Merged

optimize libload #798

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
04cd228
combined two nearby rjumps
ZERICO2005 Jan 31, 2026
22dc2df
optimize jump relative (it no longer clobbers IX)
ZERICO2005 Sep 22, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 9 additions & 10 deletions src/libload/libload.asm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -155,12 +155,13 @@ call_relative:
jp (ix)
end if
jump_relative:
pop ix
ex (sp), hl
push de
ld de, (ix)
add ix, de
ld de, (hl)
add hl, de
pop de
jp (ix)
ex (sp), hl
ret
ld_relative:
pop hl
ld de, 0
Expand Down Expand Up @@ -538,10 +539,7 @@ check_for_lib_marker:
jr z, goto_load_lib
set optional, (iy + LIB_FLAGS)
cp a, OPT_LIB_MARKER
jr nz, check_has_deps
goto_load_lib:
rjump load_lib ; load the next library

jr z, goto_load_lib ; load the next library
check_has_deps: ; the first time we hit this, we have all the dependencies placed onto the queue that the libraries use.
res optional, (iy + LIB_FLAGS)
bit is_dep, (iy + LIB_FLAGS)
Expand All @@ -555,15 +553,16 @@ load_next_dep:
sbc hl, de ; make sure we are done parsing the dependency queue
add hl, de
; now we need to parse the libraries like they are programs. this will be fun.
jr z, .exit
jr z, start_execution
dec hl
dec hl
dec hl ; hl->dependency ($C0, "LIBNAME", 0, VERSION, JUMP_TABLE)
ld (end_dep_queue), hl
ld hl, (hl) ; valid pointer to $C0 (REQ_LIB_MARKER)
goto_load_lib:
rjump load_lib ; load current dependency if needed, or resolve entry points

.exit:
start_execution:
call ti.PopOP1 ; restore program name
ld hl, (prgm_start)
ld ix, (ix_save) ; restore IX register
Expand Down
Loading