1990-01-19 16:03:46 +00:00
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss
|
|
|
|
|
.sect .text
|
|
|
|
|
break = 17
|
|
|
|
|
.define __sbrk
|
|
|
|
|
.define __brk
|
|
|
|
|
|
|
|
|
|
.align 1
|
|
|
|
|
__sbrk:
|
|
|
|
|
.data2 0x0000
|
1990-01-22 14:14:38 +00:00
|
|
|
addl3 .limhp,4(ap),-(sp)
|
1990-01-19 16:03:46 +00:00
|
|
|
bcc 1f
|
|
|
|
|
movl $0xFFFFFFFF,(sp) ! will cause an error (I hope)
|
|
|
|
|
1:
|
1990-01-22 14:14:38 +00:00
|
|
|
movl .limhp,r3
|
|
|
|
|
calls $1,__brk
|
1990-01-19 16:03:46 +00:00
|
|
|
tstl r0
|
|
|
|
|
blss 1f
|
|
|
|
|
movl r3,r0
|
|
|
|
|
1:
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
.align 1
|
|
|
|
|
__brk:
|
|
|
|
|
.data2 0x0000
|
|
|
|
|
chmk $break
|
|
|
|
|
bcc 1f
|
|
|
|
|
jmp errmon
|
|
|
|
|
1:
|
1990-01-22 14:14:38 +00:00
|
|
|
movl 4(ap),.limhp
|
1990-01-19 16:03:46 +00:00
|
|
|
clrl r0
|
|
|
|
|
ret
|
