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

fixed

Browse source
This commit is contained in:
ceriel 1991-04-25 10:54:44 +00:00
parent 02d253d810
commit 0c137374ae
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mach/m68020/libem/shp.s
View file

@ -13,10 +13,14 @@ EHEAP=17
blt 1f
add.l #0x400, d1
and.l #~0x3ff, d1
move.l a0,-(sp)
move.l d1, -(sp)
move.l d1,(.limhp)
jsr (__brk) ! allocate 1K bytes of extra storage
bcs 2f
move.l (sp)+,(.limhp)
add.l #4,sp
move.l (sp)+,a0
tst.l d0
bne 2f
1:
move.l (sp)+, (.reghp) ! store new value
jmp (a0) ! return