lib.e 534 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. #
  2. ; $Id$
  3. mes 2, EM_WSIZE, EM_PSIZE
  4. exp $__Get_LB
  5. pro $__Get_LB,0
  6. lor 0
  7. 1
  8. lol 0
  9. zlt *2
  10. dup EM_PSIZE
  11. zer EM_PSIZE
  12. cmp
  13. zeq *2
  14. dch
  15. del 0
  16. bra *1
  17. 2
  18. ret EM_PSIZE
  19. end
  20. exp $__Get_Hol0
  21. pro $__Get_Hol0,0
  22. lae 0
  23. ret EM_PSIZE
  24. end
  25. exp $__Get_HP
  26. pro $__Get_HP,0
  27. lor 2
  28. ret EM_PSIZE
  29. end
  30. exp $__Set_HP
  31. pro $__Set_HP,0
  32. lal 0
  33. loi EM_PSIZE
  34. str 2
  35. ret 0
  36. end
  37. exp $__Cvt_LB_AB
  38. pro $__Cvt_LB_AB,0
  39. lal 0
  40. loi EM_PSIZE
  41. zer EM_PSIZE
  42. cmp
  43. zeq *2
  44. lal 0
  45. loi EM_PSIZE
  46. lpb
  47. ret EM_PSIZE
  48. 2
  49. zer EM_PSIZE
  50. ret EM_PSIZE
  51. end