mach/proto/grind/lib.e

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