made to work on small machines

1988-07-18 16:45:25 +00:00 · 1988-07-18 16:45:25 +00:00 · becd33d3a9
commit becd33d3a9
parent ca51618fe9
1 changed files with 4 additions and 4 deletions
--- a/lang/occam/lib/misc.e
+++ b/lang/occam/lib/misc.e
@ -34,14 +34,14 @@ oldtrp

 exp $block_move
 pro $block_move, 0
- lal 4
+ lal EM_PSIZE
 loi EM_PSIZE
- lal 8
+ lal 2*EM_PSIZE
 loi EM_PSIZE

 lal 0
- loi EM_LSIZE
- loc EM_LSIZE
+ loi EM_PSIZE
+ loc EM_PSIZE
 loc EM_WSIZE
 cuu
 bls EM_WSIZE