mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
22 lines
296 B
Plaintext
22 lines
296 B
Plaintext
.title sbreak
|
|
; copyright (c) 1980 by Whitesmiths, Ltd.
|
|
; buy storage from system
|
|
|
|
.globl sbreak
|
|
.globl lib$get_vm
|
|
|
|
.psect c$text,shr,nowrt,quad
|
|
sbreak:
|
|
.word ^O0 ; (bytes)
|
|
pushl #0
|
|
pushal (sp)
|
|
pushal 4(ap)
|
|
calls #2,G^lib$get_vm
|
|
blbc r0,$1
|
|
movl (sp)+,r0
|
|
ret
|
|
$1:
|
|
clrl r0
|
|
ret
|
|
.end
|