seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-26 09:54:20 +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

30
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/COMMON.LIT Normal file
View File

@@ -0,0 +1,30 @@
$nolist
/*
Common Literals
*/
declare true literally '0FFFFH';
declare false literally '0';
declare forever literally 'while true';
declare boolean literally 'byte';
declare enter$region literally
'disable';
exitr:
procedure external;
end exitr;
declare exit$region literally
'call exitr';
declare restarts literally
'0C7C7H,0C7C7H,0C7C7H,0C7C7H,
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
0C7C7H,0C7C7H,0C7C7H,0C7C7H,
0C7C7H,0C7C7H,0C7C7H';
$list


9
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/COPYRT.LIT Normal file
View File

@@ -0,0 +1,9 @@
/*
Copyright (C) 1979,1980,1981
Digital Research
P.O. Box 579
Pacific Grove, CA 93950
*/


25
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/DPGOS.LIT Normal file
View File

@@ -0,0 +1,25 @@
$nolist
declare
ostod literally '0000h',
osrlr literally '0005h',
osdlr literally '0007h',
osdrl literally '0009h',
osplr literally '000bh',
osslr literally '000dh',
osqlr literally '000fh',
osthrdrt literally '0011h',
osnmbcns literally '0013h',
oscnsatt literally '0014h',
oscnsque literally '0034h',
osnmbflags literally '0054h',
ossysfla literally '0055h',
osnmbsegs literally '0095h',
osmsegtbl literally '0096h',
ospdtbl literally '00b6h',
osnmblst literally '0256h',
oslstatt literally '0257h',
oslstque literally '0277h';
$list


20
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/FCB.LIT Normal file
View File

@@ -0,0 +1,20 @@
$nolist
/*
FCB Literals
*/
declare fcb$descriptor literally
'structure (
et byte,
fn (8) byte,
ft (3) byte,
ex byte,
nu address,
rc byte,
dm (16) byte,
nr byte,
r0r1 address,
r2 byte )';
$list


9
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/FLAG.LIT Normal file
View File

@@ -0,0 +1,9 @@
$nolist
/*
Flag Literals
*/
declare nmbflags literally '16';
$list


15
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/MEMMGR.LIT Normal file
View File

@@ -0,0 +1,15 @@
$nolist
/*
Memmgr Literals
*/
declare allocated literally '80H';
declare memory$descriptor literally
'structure (base byte,
size byte,
attrib byte,
bank byte)';
$list


44
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/PROCES.LIT Normal file
View File

@@ -0,0 +1,44 @@
$nolist
/*
Proces Literals
*/
declare process$header literally
'structure (pl address,
status byte,
priority byte,
stkptr address';
declare bdos$save literally
'disk$set$dma address,
disk$slct byte,
dcnt address,
searchl byte,
searcha address,
drvact address,
registers (20) byte,
scratch (2) byte)';
declare process$descriptor literally
'process$header,
name (8) byte,
console byte,
memseg byte,
b address,
thread address,
bdos$save';
declare rtr$status literally '0',
dq$status literally '1',
nq$status literally '2',
poll$status literally '3',
FlgWt$status literally '4',
Delay$status literally '5',
Swap$status literally '6',
Terminate$status literally '7',
Set$Prior$status literally '8',
Dispatch$status literally '9',
Attach$status literally '10',
Detach$status literally '11',
Set$cns$status literally '12';
$list


47
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/QUEUE.LIT Normal file
View File

@@ -0,0 +1,47 @@
$nolist
/*
Queue Literals
*/
declare queueheader literally
'ql address,
name(8) byte,
msglen address,
nmbmsgs address,
dqph address,
nqph address';
declare queuehead literally
'structure (queueheader)';
declare cqueue literally
'queueheader,
msgin address,
msgout address,
msgcnt address ';
declare circularqueue literally
'structure (cqueue,
buf (1) byte )';
declare lqueue literally
'queueheader,
mh address,
mt address,
bh address';
declare linkedqueue literally
'structure (lqueue,
buf (1) byte )';
declare userqcbhead literally
'structure (pointer address,
msgadr address )';
declare userqcb literally
'structure (pointer address,
msgadr address,
name(8) byte)';
$list


111
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/SYSDAT.LIT Normal file
View File

@@ -0,0 +1,111 @@
/*
System Data: byte assignments
-----------------------------
000-000 Mem$top, top page of memory
001-001 Nmb$cns, number of consoles
002-002 Brkpt$RST, breakpoint RST #
003-003 Add system call user stacks, boolean
004-004 Bank switched, boolean
005-005 Z80 version, boolean
006-006 banked bdos, boolean
007-007 RESBDOS top+1 (BNKBDOS XIOS jmp tbl) base page
008-008 RESBDOS base page
009-010 used by CP/NET for mstr cfg tbl addr
011-011 XDOS base page
012-012 RSP's (BNKXIOS top+1) base page
013-013 BNKXIOS base page
014-014 BNKBDOS base page
015-015 Max$mem$seg, max memory segment number
016-047 Memory segment table, filled in by GENSYS if
memory bank switched, otherwise by MPMLDR
048-063 Breakpoint vector table, filled in by DDTs
064-079 Unassigned
080-095 System call user stacks
096-119 Unassigned
120-121 Nmb records in MPM.SYS
122-122 # ticks/sec
123-123 System Drive
124-124 Common Memory Base Page
125-125 Number of Rsp's
126-127 Listcp Address
128-143 Subflg, submit flag array
144-180 Copyright message
181-186 Serial #
187-187 Max locked records/process
188-188 Max open files/process
189-190 # list items
191-192 Pointer to base of lock table free space
193-193 Total system locked records
194-194 Total system open files
195-195 Dayfile logging
196-196 Temporary file drive
197-197 Number of printers
198-240 Unassigned
241-241 Common Xdos base
242-242 Banked Xdos base
243-243 Tmp pd base
244-244 Console dat base
245-246 Bdos/Xdos address
247-247 Tmp base address
248-248 Nmbrsps
249-249 Brsp base address
250-251 Brspl, non-resident rsp process link
252-253 Sysdatadr, MP/M data page address
254-255 Rspl, resident system process link, the address
of the next Rsp, list terminates with a zero.
*/
declare mem$top byte at (.system$data(000));
declare nmb$cns byte at (.system$data(001));
declare brkpt$RST byte at (.system$data(002));
declare sys$call$stks boolean at (.system$data(003));
declare bank$switched boolean at (.system$data(004));
declare z80$cpu boolean at (.system$data(005));
declare banked$bdos boolean at (.system$data(006));
declare xios$jmp$tbl$base byte at (.system$data(007));
declare resbdos$base byte at (.system$data(008));
declare xdos$base byte at (.system$data(011));
declare rsp$base byte at (.system$data(012));
declare bnkxios$base byte at (.system$data(13));
declare bnkbdos$base byte at (.system$data(14));
declare nmb$mem$seg byte at (.system$data(015));
declare mem$seg$tbl (8) structure (
base byte,
size byte,
attrib byte,
bank byte )
at (.system$data(016));
declare breakpoint$vector (8) address at (.system$data(048));
declare user$stacks (8) address at (.system$data(080));
declare nmb$records address at (.system$data(120));
declare ticks$per$second byte at (.system$data(122));
declare system$drive byte at (.system$data(123));
declare common$base byte at (.system$data(124));
declare nmb$rsps byte at (.system$data(125));
declare listcpadr address at (.system$data(126));
declare submit$flags (16) address at (.system$data(128));
/*declare copyright (37) byte at (.system$data(144));*/
/*declare serial$number (6) byte at (.system$data(181));*/
declare max$locked$records byte at (.system$data(187));
declare max$open$files byte at (.system$data(188));
declare total$list$items address at (.system$data(189));
declare lock$free$space$adr address at (.system$data(191));
declare total$system$locked$records byte at (.system$data(193));
declare total$system$open$files byte at (.system$data(194));
declare day$file byte at (.system$data(195));
declare temp$file$drive byte at (.system$data(196));
declare nmb$printers byte at (.system$data(197));
declare cmnxdos$base byte at (.system$data(241));
declare bnkxdos$base byte at (.system$data(242));
declare tmpd$base byte at (.system$data(243));
declare console$dat$base byte at (.system$data(244));
declare bdos$xdos$adr address at (.system$data(245));
declare tmp$base byte at (.system$data(247));
declare nmb$brsps byte at (.system$data(248));
declare brsp$base byte at (.system$data(249));
declare brspl address at (.system$data(250));
declare rspl address at (.system$data(254));


45
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL8/XDOS.LIT Normal file
View File

@@ -0,0 +1,45 @@
$nolist
/*
Xdos Literals
*/
declare abs$request literally '128',
rel$request literally '129',
memory$free literally '130',
poll literally '131',
flag$wait literally '132',
flag$set literally '133',
make$queue literally '134',
open$queue literally '135',
delete$queue literally '136',
read$queue literally '137',
cond$read$queue literally '138',
write$queue literally '139',
cond$write$queue literally '140',
delay literally '141',
dispatch literally '142',
terminate literally '143',
create literally '144',
set$priority literally '145',
attach literally '146',
detach literally '147',
set$console literally '148',
assign$console literally '149',
send$cli$command literally '150',
call$res$sys$p literally '151',
parse$fname literally '152',
get$console$nmb literally '153',
system$data$adr literally '154',
get$tod literally '155',
rtn$pd$adr literally '156',
abort$spcfd$proc literally '157',
attach$list literally '158',
detach$list literally '159',
set$list literally '160',
cond$attach$list literally '161',
cond$attach literally '162',
mpm$ver literally '163',
get$list$nmb literally '164';
$list