em2.e 426 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  1. mes 2,2,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. sde oldtrp
  11. cal $initfile
  12. ret 0
  13. end 0
  14. pro $catch1, 0
  15. lde oldtrp
  16. sig
  17. asp 4
  18. loe 0
  19. lde 4
  20. lol 0
  21. cal $catch
  22. asp 8
  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 2
  34. ldl -12
  35. ret 4
  36. end 12
  37. exp $block_mo
  38. pro $block_mo, 0
  39. ldl 4
  40. ldl 8
  41. ldl 0
  42. loc 4
  43. loc 2
  44. cuu
  45. bls 2
  46. ret 0
  47. end 0