12345678910111213141516171819202122232425 |
- #
- 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
|