1; use for library code only
2; use l_call_ix_dd for compile time user code
3
4SECTION code_clib
5SECTION code_l
6
7PUBLIC l_jpix_18
8PUBLIC l_jpix_15
9PUBLIC l_jpix_12
10PUBLIC l_jpix_09
11PUBLIC l_jpix_06
12PUBLIC l_jpix_03
13
14; implement jump table pointed at by ix
15
16l_jpix_18:
17
18   push ix
19   push bc
20
21   ld bc,18
22   jr l_jpix_go
23
24l_jpix_15:
25
26   push ix
27   push bc
28
29   ld bc,15
30   jr l_jpix_go
31
32l_jpix_12:
33
34   push ix
35   push bc
36
37   ld bc,12
38   jr l_jpix_go
39
40l_jpix_09:
41
42   push ix
43   push bc
44
45   ld bc,12
46   jr l_jpix_go
47
48l_jpix_06:
49
50   push ix
51   push bc
52
53   ld bc,12
54   jr l_jpix_go
55
56l_jpix_03:
57
58   push ix
59   push bc
60
61   ld bc,12
62   jr l_jpix_go
63
64l_jpix_go:
65
66   add ix,bc
67
68   pop bc
69   ex (sp),ix
70
71   ret
72