;   davon bin ich nicht sehr ueberzeugt...

    xdef    _setjmp
    section "CODE",code
_setjmp
    move.l  4(a7),a0
    move.l  (a7),a1
    move.l  a1,(a0)
    movem.l d2-d7/a2-a7,4(a0)
    clr.l   d0
    rts

    xdef    _longjmp
_longjmp
    move.l  4(sp),a0
    move.l  8(sp),d0
    movem.l 4(a0),d2-d7/a2-a7
    move.l  (a0),(a7)
    rts