!<BLF/REQUIRE'USR$LIBRARY:PTYMAC'>
MODULE b32_jump =
BEGIN
PSECT
    CODE = b32_dispatch(PIC);

LINKAGE
    JSB = JSB;


GLOBAL ROUTINE b32_jump (addr) : JSB NOVALUE =
    BEGIN

    BUILTIN
	SP;

    SP = .SP + 4;
    RETURN;
    END;

END

ELUDOM