1985-02-07 15:58:40 +00:00
|
|
|
.define _brk
|
|
|
|
|
.define _sbrk
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-02-07 15:58:40 +00:00
|
|
|
.extern _brk
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .text
|
1985-02-07 15:58:40 +00:00
|
|
|
_brk:
|
|
|
|
|
tst.b -40(sp)
|
|
|
|
|
link a6,#-0
|
|
|
|
|
move.l 8(a6),-(sp)
|
|
|
|
|
jsr __Sbrk
|
|
|
|
|
add.l #4,sp
|
|
|
|
|
unlk a6
|
|
|
|
|
rts
|
|
|
|
|
.extern _sbrk
|
|
|
|
|
_sbrk:
|
|
|
|
|
tst.b -40(sp)
|
|
|
|
|
link a6,#-0
|
|
|
|
|
move.w 8(a6), d2
|
|
|
|
|
ext.l d2
|
|
|
|
|
move.l d2,-(sp)
|
|
|
|
|
jsr __Ssbrk
|
|
|
|
|
add.l #4,sp
|
|
|
|
|
unlk a6
|
|
|
|
|
rts
|
|
|
|
|
__Ssbrk: tst.b -8(sp)
|
|
|
|
|
move.l 4(sp),d0
|
|
|
|
|
beq 1f
|
|
|
|
|
add.l nd,d0
|
|
|
|
|
move.l d0,-(sp)
|
|
|
|
|
clr.l -(sp)
|
|
|
|
|
trap #0
|
1987-01-27 20:37:46 +00:00
|
|
|
.data2 0x11
|
1985-02-07 15:58:40 +00:00
|
|
|
add.l #8,sp
|
|
|
|
|
bcc 1f
|
|
|
|
|
jmp cerror
|
|
|
|
|
1:
|
|
|
|
|
move.l nd,d0
|
|
|
|
|
move.l 4(sp),d1
|
|
|
|
|
add.l d1,nd
|
|
|
|
|
rts
|
|
|
|
|
__Sbrk: trap #0
|
1987-01-27 20:37:46 +00:00
|
|
|
.data2 0x11
|
1985-02-07 15:58:40 +00:00
|
|
|
bcc 1f
|
|
|
|
|
jmp cerror
|
|
|
|
|
1:
|
|
|
|
|
move.l 4(sp),nd
|
|
|
|
|
clr.l d0
|
|
|
|
|
rts
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .data
|
|
|
|
|
nd: .data4 endbss
|
|
|
|
|
.sect .text
|
