blob: c5df987c3882cc81ad596336ff1c3d3575c1e6da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
; jumps to index a in pointer table hl
JumpToFunctionInTable:
add a
add l
ld l, a
ld a, $0
adc h
ld h, a
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
; call function at [hl] if non-NULL
CallIndirect:
push af
ld a, [hli]
or [hl]
jr nz, .call_hl
pop af
ret
.call_hl
ld a, [hld]
ld l, [hl]
ld h, a
pop af
; fallthrough
CallHL:
jp hl
|
