@@ -28,14 +28,14 @@
exp $brk
pro $brk,0
- lal 0
- loi EM_PSIZE
lpi $ctch
sig
lae .1
sti EM_PSIZE
loc 0
ste .2
+ lal 0
+ loi EM_PSIZE
str 2 ; The - possibly - occurring trap is caught
loi EM_PSIZE
@@ -38,7 +38,7 @@
lol 0
ads EM_WSIZE ; this is the new heap pointer, but watch out for overflow!
- dup EM_WSIZE
+ dup EM_PSIZE
lor 2
cmp ; compare with old heap pointer
zlt *1