Retro68/libretro/Retro68.r

33 lines
563 B
R
Raw Normal View History

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; \
}; \
}