seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-23 08:24:18 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/sbreak.mar Normal file
View File

@@ -0,0 +1,21 @@
.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