#
 mes 2,EM_WSIZE,EM_PSIZE
 exp $execle
 pro $execle,0
 lal EM_PSIZE
1
 dup EM_PSIZE
 loi EM_PSIZE
 zer EM_PSIZE
 cmp
 zeq *2
 adp EM_PSIZE
 bra *1
2
 adp EM_PSIZE
 loi EM_PSIZE
 lal EM_PSIZE
 lal 0
 loi EM_PSIZE
 loc 59
 mon
 ste errno
 loc -1
 ret EM_WSIZE
 end