d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Franks version

Browse source
This commit is contained in:
ceriel 1987-03-27 10:05:53 +00:00
parent 0cc30a7e49
commit 129343dc94
1 changed files with 15 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
mach/m68k4/libem/shp.s
View file

@ -6,19 +6,22 @@
.sect .text
.strhp:
move.l (sp)+,a0
move.l (sp)+,d0 ! heap pointer
move.l d0,.reghp
cmp.l .limhp,d0
move.l 4(sp), d1 ! new heap pointer
cmp.l .limhp, d1
blt 1f
add.l #0x400,d0
and.l #~0x3ff,d0
move.l d0,.limhp
cmp.l d0,sp
ble 2f
add.l #0x400, d1
and.l #~0x3ff, d1
move.l d1, .limhp
move.l d1, -(sp)
jsr _brk ! allocate 1K bytes of extra storage
add.l #4, sp
bcs 2f
1:
jmp (a0)
move.l 4(sp), .reghp ! store new value of heap pointer
move.l (sp)+,a0
move.l a0,(sp)
rts
2:
move.w #EHEAP,-(sp)
jmp .fat
move.l #EHEAP, -(sp)
jmp .fatal
.align 2