em4.e 408 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. mes 2,4,4
  2. oldtrp
  3. bss 4, 0, 0
  4. exp $init
  5. pro $init, 0
  6. loc -321-1
  7. sim
  8. lpi $catch1
  9. sig
  10. ste oldtrp
  11. cal $initfile
  12. ret 0
  13. end 0
  14. pro $catch1, 0
  15. loe oldtrp
  16. sig
  17. asp 4
  18. loe 0
  19. loe 4
  20. lol 0
  21. cal $catch
  22. asp 12
  23. lol 0
  24. trp
  25. rtt
  26. end 0
  27. exp $now
  28. pro $now, 12
  29. zre deadlock
  30. lal -12
  31. loc 35
  32. mon
  33. asp 4
  34. lol -12
  35. ret 4
  36. end 12
  37. exp $block_mo
  38. pro $block_mo, 0
  39. lol 4
  40. lol 8
  41. lol 0
  42. bls 4
  43. ret 0
  44. end 0