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

63
CPM OPERATING SYSTEMS/CPM 3.X/CPM 3.0/SOURCE/sopt.dcl Normal file
View File

@@ -0,0 +1,63 @@
declare
opt$mod(19) structure(modifier(8) byte)
data(1,1,1,0,0,0,0,0, /* 0 access */
1,1,1,0,0,0,0,0, /* 1 archive */
1,1,1,0,0,0,0,0, /* 2 create */
1,0,0,0,0,0,0,1, /* 3 default */
0,0,0,0,0,0,0,0, /* 4 directory */
1,1,1,0,0,0,0,0, /* 5 f1 */
1,1,1,0,0,0,0,0,
1,1,1,0,0,0,0,0,
1,1,1,0,0,0,0,0,
1,0,0,0,0,0,0,1, /* 9 name */
1,0,0,0,0,0,0,1, /* 10 password */
1,1,1,1,1,1,1,0, /* 11 protect */
0,0,0,0,0,0,0,0, /* 12 ro */
0,0,0,0,0,0,0,0, /* 13 rw */
0,0,0,0,0,0,0,0, /* 14 sys */
1,1,1,0,0,0,0,0, /* 15 update */
0,0,0,0,0,0,0,0, /* 16 page */
0,0,0,0,0,0,0,0), /* 17 nopage */
options(*) byte
data('ACCESS0ARCHIVE0CREATE0DEFAULT0DIR0F10F20F30F40',
'NAME0PASSWORD0PROTECT0RO0RW0SYS',
'0UPDATE0PAGE0NOPAGE',0ffh),
off$opt(20) byte data(0,7,15,22,30,34,37,40,43,46,51,60,68,71,
74,78,85,90,96),
mods(*) byte
data('OFF0ON0READ0WRITE0DELETE0NONE',0ffh),
off$mods(7) byte data(0,4,7,12,18,25,29),
end$list byte data (0ffh),
end$of$string byte data(0),
delimiters(*) byte data (0,'[]=, :;<>%\|"()/#!@&+-*?',0,0ffh),
SPACE byte data (5), /* index in delim to space */
RBRACKET byte data(2), /* ] in delim */
ENDFF byte data(25),
EQUAL byte data (3),
LBRACKET byte data (1),
option$map(19) byte,
mods$map(19) byte;
declare
sfamsg byte initial(false),
drvmsg byte initial(false),
j byte initial(0),
string$ptr address,
defpass address,
labname address,
passname address,
lendef byte,
lenpass byte,
lenlab byte,
buf$ptr address,
index byte,
endbuf byte,
mindex byte,
delimiter byte;
$ eject