mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-29 05:29:47 +00:00
33 lines
563 B
R
33 lines
563 B
R
|
type 'CODE' (0) {
|
||
|
|
longint; // size above A5
|
||
|
|
longint; // size of application globals
|
||
|
|
longint = (jtend - jtstart) / 8; // size of jump table
|
||
|
|
longint; // a5 offset of jump tabe
|
||
|
|
jtstart:
|
||
|
|
array {
|
||
|
|
integer; // offset
|
||
|
|
integer = 0x3f3c;
|
||
|
|
integer; // segment
|
||
|
|
integer = 0xa9f0;
|
||
|
|
};
|
||
|
|
jtend:
|
||
|
|
;
|
||
|
|
};
|
||
|
|
|
||
|
|
#define RETRO68_CODE_TYPE \
|
||
|
|
hex string dontBreakAtEntry = $"", breakAtEntry = $"A9FF"; \
|
||
|
|
hex string;
|
||
|
|
|
||
|
|
type 'CODE' (1) {
|
||
|
|
integer = 0;
|
||
|
|
integer = 1;
|
||
|
|
RETRO68_CODE_TYPE
|
||
|
|
};
|
||
|
|
|
||
|
|
#define RETRO68_JUMP_TABLE { \
|
||
|
|
0x28, 0, 0x20, \
|
||
|
|
{ \
|
||
|
|
0, 1; \
|
||
|
|
}; \
|
||
|
|
}
|