purgatory
void purgatory(void);
purgatory_t purgatory = (purgatory_t)image->start;
rc = call_nodat(1, int, purgatory, int, 0);
purgatory_t purgatory;
purgatory = (purgatory_t)image->start;
call_nodat(1, int, purgatory, int, 1);
extern void purgatory(void);