misc.e 508 B

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