setjmp.s 428 B

123456789101112131415161718
  1. TEXT longjmp(SB), $0
  2. MOVL r+4(FP), AX
  3. CMPL AX, $0
  4. JNE ok /* ansi: "longjmp(0) => longjmp(1)" */
  5. MOVL $1, AX /* bless their pointed heads */
  6. ok: MOVL l+0(FP), BX
  7. MOVL 0(BX), SP /* restore sp */
  8. MOVL 4(BX), BX /* put return pc on the stack */
  9. MOVL BX, 0(SP)
  10. RET
  11. TEXT setjmp(SB), $0
  12. MOVL l+0(FP), AX
  13. MOVL SP, 0(AX) /* store sp */
  14. MOVL 0(SP), BX /* store return pc */
  15. MOVL BX, 4(AX)
  16. MOVL $0, AX /* return 0 */
  17. RET