Digital Research
This commit is contained in:
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions

View File

@@ -0,0 +1,7 @@
COMMANDS
This directory contains .COM files which were batched to compile the
utilities. Look at ALL.COM, which documents which modules were
compiled on the VAX, and which were compiled on a micro. Look at
ALLGCD.SUB to get the GENCMD parameters for each utility.

View File

@@ -0,0 +1,39 @@
$ !module to compile everything for
$ ! Concurrent CP/M-86
$ ! Note: those utilities marked 'doit' are compiled here, while those
$ ! marked 'micro' are handled elsewhere
$ set verify
$ doit := @com:doit.com
$ micro := @com:micro.com
$ doit ABORT
$ !doit ASM86 !save time, don't compile this one
$ doit DATE
$ micro DDT86
$ doit DIR
$ doit ED
$ doit ERA
$ doit ERAQ
$ micro GENCCPM
$ doit GENCMD
$ doit HELP
$ micro INITDIR
$ doit PIN
$ doit PIP
$ micro PRINTER
$ doit REN
$ doit SDIR
$ doit SET
$ doit SHOW
$ micro SUBMIT
$ doit SYSTAT
$ micro TMP
$ doit TYPE
$ micro USER
$ doit VCMODE
$ doit VOUT
$ !
$ micro SERIAL
$ !

View File

@@ -0,0 +1,66 @@
;gencmd all utilities
;start with local gencmd
gencmd gencmd data[b1000 m86 xfff]
gencmd rabt data[b1000]
era abort.rsp
ren abort.rsp=rabt.cmd
;asm86 placeholder
;clock.rsp placeholder
gencmd date data[b1000]
;ddt86 placeholder
gencmd dircmd data[b1000]
era dir.cmd
ren dir.cmd=dircmd.cmd
gencmd dirrsp data[b1000]
era dir.rsp
ren dir.rsp=dirrsp.cmd
gencmd ed data[b1000 m80 xfff]
gencmd era data[b1000]
gencmd eraq data[b1000]
;genccpm placeholder
;(B3:GENCCPM.CMD)
gencmd help data[b1000 m169]
;initdir placeholder
;(B6:INITDIR.CMD)
;pin.rsp placeholder
gencmd pip data[b1000 m280 xfff]
gencmd ren data[b1000]
gencmd sdir data[b1000 m3c5 x800]
gencmd set data[b1000]
gencmd show data[b1000]
gencmd systat data[b1000]
;(B7:SUBMIT.H86)
gencmd submit
;(B7:TMP.H86)
gencmd tmp
era tmp.rsp
ren tmp.rsp=tmp.cmd
gencmd type data[b1000]
gencmd vcmode data[b1000]
;vout.rsp placeholder

View File

@@ -0,0 +1,23 @@
$ set noverify
$ COMDIR := DRB1:[CCPM86.COMMANDS]
$ default := ""
$ if ('f$locate(":",p1)' .eq. 'f$length(p1)') .and. -
('f$locate("[",p1)' .eq. 'f$length(p1)') then -
default := 'f$directory()'
$ open/error=TRYCOM tmpfi: 'default''p1'.com
$ close tmpfi:
$ goto DOCOPY
$ TRYCOM:
$ open/error=NOFIND tmpfi: 'COMDIR''p1'.com
$ close tmpfi:
$ default := 'COMDIR'
$ goto DOCOPY
$ NOFIND:
$ write sys$output can not find 'p1'
$ goto FINI
$ DOCOPY:
$ copy 'COMDIR'def.com,'default''p1'.com sys$login:'p1'.com
$ submit sys$login:'p1'/delete/parameters= -
("''p2'","''p3'","''p4'","''p5'","''p6'","''p7'","''p8'", -
"''f$directory()'")
$ FINI:

View File

@@ -0,0 +1,14 @@
$! setup environment for working on PL/M-86 utilities for
$! Concurrent CP/M-86 v2.0 10/15/82 whf
$ v='f$verify(0)
$ set noverify
$ comon :== _DRB1:[CCPM86.COMMON]
$ @com:oldplm
$ ! $ lstring :== _drb1:[CCPM86.ccpm
$ ! $ assign 'lstring'.com] coms:
$ ! $ common :== set def comon
$ ! $ phome :== set def 'lstring']
$ ! $ pclean :== @coms:pclean !cleans up PLM compile
$ if v then $ set verify

View File

@@ -0,0 +1,2 @@
$ set default 'p8'
$ assign nowhere sys$print

View File

@@ -0,0 +1,4 @@
$ set default [.'p1']
$ @'p1'.com
$ purge
$ set default [-]

View File

@@ -0,0 +1,3 @@
$! set up for current PLM project: Concurrent CP/M-86 v2.0
$ ccpmsetup

View File

@@ -0,0 +1,23 @@
$ set noverify
$ COMDIR := DRB1:[CCPM86.COMMANDS]
$ default := ""
$ if ('f$locate(":",p1)' .eq. 'f$length(p1)') .and. -
('f$locate("[",p1)' .eq. 'f$length(p1)') then -
default := 'f$directory()'
$ open/error=TRYCOM tmpfi: 'default''p1'.com
$ close tmpfi:
$ goto DOCOPY
$ TRYCOM:
$ open/error=NOFIND tmpfi: 'COMDIR''p1'.com
$ close tmpfi:
$ default := 'COMDIR'
$ goto DOCOPY
$ NOFIND:
$ write sys$output can not find 'p1'
$ goto FINI
$ DOCOPY:
$ copy 'default''p1'.com sys$login:'p1'.com
$ submit sys$login:'p1'/after=18:30:00/delete/parameters= -
("''p2'","''p3'","''p4'","''p5'","''p6'","''p7'","''p8'", -
"''f$directory()'")
$ FINI:

View File

@@ -0,0 +1,2 @@
$ ! micro: a placeholder script, this utility gets compiled elsewhere

View File

@@ -0,0 +1,11 @@
$ ! Mr. Clean (up files)
$ pu
$ del *.;*
$ del *.h86;*
$ del *.jou;*
$ del *.lnk;*
$ del *.lst;*
$ del *.mp*;*
$ del *.msg;*
$ del *.obj;*
$ del *.xrf;*

View File

@@ -0,0 +1,33 @@
$ ! set up environs for PLM work: use NEW compiler
$! Concurrent CP/M-86 v2.0 10/15/82 whf
$ v='f$verify(0)
$ set noverify
$ comon :== _DRB1:[CCPM86.COMMON]
$ assign drb1:[CCPM86.VAXTOOLS] SYS$BETA
$ NEWPLM86 :== "$ SYS$BETA:nplm86 PLM86 "
$ NEWLINK86 :== "$ SYS$BETA:nlink86 LINK86 "
$ NEWLOC86 :== "$ SYS$BETA:nloc86 LOC86 "
$ NEWASM86 :== "$ SYS$BETA:nasm86 ASM86 "
$ NHEX86 :== "$ SYS$BETA:nhex86"
$ AS86 :== @ sys$beta:NAS86
$ PL86 :== @ sys$beta:NPL86
$ LO86 :== @ sys$beta:NLO86
$ LI86 :== @ sys$beta:NLI86
$ NEWH86 :== @ sys$beta:NEWH86
$ REFMT :== @ sys$beta:NREFMT
$ PCLEAN :== @ com:PCLEAN
$ ! NEWLIB86:=="$SYS$BETA:LIB86 LIB86 "
$ ! NEWREL2:=="$SYS$BETA:REL2 REL2 "
$ ! ASS SYS$BETA:PLM86.LIB NEWLIB
$ ! ASS SYS$BETA: PLM$UDI
$ ASS SYS$INPUT: CI:
$ ASS SYS$OUTPUT: CO:
$ ASS 'COMON' F1:
$ ASS 'COMON' F2:
$ ASS 'COMON' F3:
$ ASS 'COMON' F4:
$ ASS 'COMON' F5:
$ ASS SYS$ERROR: FOR007
$ if v then $ set verify

View File

@@ -0,0 +1,19 @@
$ ! set up environs for PLM work: use old compiler
$ assign drb1:[CCPM86.VAXTOOLS] sys$mds
$ PLM86 :== $SYS$MDS:OPLM86
$ ASM86 :== $SYS$MDS:OASM86
$ LINK86 :== $SYS$MDS:OLINK86
$ LOC86 :== $SYS$MDS:OLOC86
$ ! $ LIB86 :== $SYS$MDS:LIB86
$ ! $ I2E :== $SYS$MDS:I2E
$ ! $ E2I :== $SYS$MDS:E2I
$ H86 :== $SYS$MDS:OH86
$ ASS SYS$INPUT: CI:
$ ASS SYS$OUTPUT: CO:
$ ASS 'COMON' F1:
$ ASS 'COMON' F2:
$ ASS 'COMON' F3:
$ ASS 'COMON' F4:
$ ASS 'COMON' F5:
$ ASS SYS$ERROR: FOR007

View File

@@ -0,0 +1,6 @@
$ !
$ ! clean up directory, keep last .LST and .MP2 files
$ !
$ delete *.jou;*, *.lin;*, *.sym;*, *.obj;*, *.lnk;*, *.dat;*
$ purge
$ purge sys$login:*.log

View File

@@ -0,0 +1,14 @@
$ if p2 .nes. "" then goto l2
$ if p1 .eqs. "" then goto l3
$ if 'f$locate(":",p1)' .ne. 'f$length(p1)' then goto l1
$ if 'f$locate("[",p1)' .ne. 'f$length(p1)' then goto l1
$ if 'f$locate("<",p1)' .ne. 'f$length(p1)' then goto l1
$ set def ['p1']
$ goto l3
$l1:
$ set def 'p1
$ goto l3
$l2:
$ set def 'p1':['p2']
$l3:
$ show default

View File

@@ -0,0 +1,7 @@
$ ! print volume 1 of CCP/M 2.0 source listings
$ control := /dev=lpa0/after=18:01
$ assign drb1:[ccpm86.kern] kern:
$
$ home
$ print/nofeed'control' com:vol1.toc, -
kern:csup.xrf, crtm.xrf, cmem.xrf, ccio.xrf, csysdat.xrf

View File

@@ -0,0 +1,63 @@
tm
Concurrent CP/M-86 Version 2.0
OPERATING SYSTEM
SOURCE LISTINGS
VOLUME I - Kernel, part 1
* * * * * * * * * * * * * * * * * * * *
Contents by Volume
Volume I Kernel, part 1
Volume II Kernel (continued),
Loader, and RSPs
Volume III ASM86
Volume IV CMDs: DATE to INITDIR
Volume V CMDs: PIP to VCMODE
Copyright (c) 1983
Digital Research
P.O. Box 579
Pacific Grove, CA 93950
(408) 649-3896
TWX 9103605001
Contents - Volume I - Kernel, part 1
Kernel, part 1:
sup
rtm
mem
cio
sysdat

View File

@@ -0,0 +1,29 @@
$ ! print volume 2 of CCP/M 2.0 source listings
$ control := /dev=lpa0/after=18:02
$ assign drb1:[ccpm86.commands] com:
$ assign drb1:[ccpm86.bdos] bdos:
$ assign drb1:[ccpm86.xios] xios:
$ assign drb1:[ccpm86.loader] loader:
$ assign drb1:[ccpm86.abort] abort:
$ assign drb1:[ccpm86.clock] clock:
$ assign drb1:[ccpm86.dir] dir:
$ assign drb1:[ccpm86.echo] echo:
$ assign drb1:[ccpm86.pin] pin:
$ assign drb1:[ccpm86.tmp] tmp:
$ assign drb1:[ccpm86.vout] vout:
$
$ home
$ print/nofeed'control' com:vol2.toc, -
bdos:cbdos.xrf, -
xios:xios.xrf, -
loader:boot.xrf, lbdos.xrf, load.xrf, -
tcopy.xrf, -
abort:rabt.lst, rabt.mp2/feed/header, rhabt.lst, -
clock:clock.xrf, -
dir:dirrsp.lst, dirrsp.mp2/feed/header, rhdir.lst, -
echo:echo.xrf, -
pin:pin.lst, pin.mp2/feed/header, rhpin.lst, -
pxios.lst, -
tmp:tmp.xrf, -
vout:vout.lst, vout.mp2/feed/header, rhvout.lst, -
pxios.lst

View File

@@ -0,0 +1,73 @@
tm
Concurrent CP/M-86 Version 2.0
OPERATING SYSTEM
SOURCE LISTINGS
VOLUME II - Kernel (continued), Loader, and RSPs
* * * * * * * * * * * * * * * * * * * *
Contents by Volume
Volume I Kernel, part 1
Volume II Kernel (continued),
Loader, and RSPs
Volume III ASM86
Volume IV CMDs: DATE to INITDIR
Volume V CMDs: PIP to VCMODE
Copyright (c) 1983
Digital Research
P.O. Box 579
Pacific Grove, CA 93950
(408) 649-3896
TWX 9103605001
Contents - VOLUME II - Kernel (continued), Loader, and RSPs
Kernel (continued):
bdos
xios
Loader:
boot.a86
lbdos.a86
load.a86
tcopy.a86
RSPs:
ABORT
CLOCK
DIR
ECHO
PIN
TMP
VOUT

View File

@@ -0,0 +1,23 @@
$ ! print volume 3 of CCP/M 2.0 source listings
$ control := /dev=lpa0/after=18:03
$ assign drb1:[ccpm86.commands] com:
$ assign drb1:[ccpm86.asm86] ASM:
$ !
$ print/nofeed'control' COM:vol3.toc, -
ASM:asm86all.com/header, c86lnk.lst, -
*.ext/feed/header, -
*.lit/feed/header, -
*.x86/feed/header, -
mainp.lst, cmac1.lst, cmac2.lst, -
cmac3.lst, cmac4.lst, cmac5.lst, -
mnem1.lst, mnem2.lst, mnem3.lst, -
mnem4.lst, symb.lst, io.lst, -
subr1.lst, subr2.lst, files.lst, -
scan.lst, print.lst, predef.lst, -
ermod.lst, text.lst, outp.lst, -
expr.lst, brexpr.lst, pseud1.lst, -
pseud2.lst, cmsubr.lst, instr.lst, -
dline.lst, global.lst, cm.lst, -
cm2.lst, -
asm86.mp2/feed
$ cd [-]

View File

@@ -0,0 +1,168 @@
tm
Concurrent CP/M-86 Version 2.0
OPERATING SYSTEM
SOURCE LISTINGS
VOLUME III - ASM86.CMD
* * * * * * * * * * * * * * * * * * * *
Contents by Volume
Volume I Kernel, part 1
Volume II Kernel (continued),
Loader, and RSPs
Volume III ASM86.CMD
Volume IV CMDs: DATE to INITDIR
Volume V CMDs: PIP to VCMODE
Copyright (c) 1983
Digital Research
P.O. Box 579
Pacific Grove, CA 93950
(408) 649-3896
TWX 9103605001
Contents - Volume III - ASM86.CMD
Com & Link:
asm86all.com c86lnk.a86
EXTs:
cm.ext cm2.ext cmlink.ext
cmsubr.ext dline.ext ermod.ext
exglob.ext expr.ext files.ext
global.ext instr.ext io.ext
mglob.ext mnem.ext outp.ext
predef.ext print.ext pseud1.ext
pseud2.ext scan.ext subr1.ext
subr2.ext symb.ext text.ext
LITs:
cm.lit cmac.lit cmacd.lit
dev.lit equals.lit ermod.lit
macro.lit mnem.lit outp.lit
struc.lit
X86s:
brexpr.x86 cmsubr.x86 dline.x86
expr.x86 instr.x86 pseud1.x86
pseud2.x86 symb.x86
PLMs:
mainp.plm cmac1.plm cmac2.plm
cmac3.plm cmac4.plm cmac5.plm
mnem1.plm mnem2.plm mnem3.plm
mnem4.plm symb.plm io.plm
subr1.plm subr2.plm files.plm
scan.plm print.plm predef.plm
ermod.plm text.plm outp.plm
expr.plm brexpr.plm pseud1.plm
pseud2.plm cmsubr.plm instr.plm
dline.plm global.plm cm.plm
cm2.plm
MAP:
asm86.mp2
Com & Link
asm86all.com c86lnk.a86
EXTs
cm.ext cm2.ext cmlink.ext
cmsubr.ext dline.ext ermod.ext
exglob.ext expr.ext files.ext
global.ext instr.ext io.ext
mglob.ext mnem.ext outp.ext
predef.ext print.ext pseud1.ext
pseud2.ext scan.ext subr1.ext
subr2.ext symb.ext text.ext
LITs
cm.lit cmac.lit cmacd.lit
dev.lit equals.lit ermod.lit
macro.lit mnem.lit outp.lit
struc.lit
X86s
brexpr.x86 cmsubr.x86 dline.x86
expr.x86 instr.x86 pseud1.x86
pseud2.x86 symb.x86
PLMs
mainp.plm cmac1.plm cmac2.plm
cmac3.plm cmac4.plm cmac5.plm
mnem1.plm mnem2.plm mnem3.plm
mnem4.plm symb.plm io.plm
subr1.plm subr2.plm files.plm
scan.plm print.plm predef.plm
ermod.plm text.plm outp.plm
expr.plm brexpr.plm pseud1.plm
pseud2.plm cmsubr.plm instr.plm
dline.plm global.plm cm.plm
cm2.plm
MAP
asm86.mp2

View File

@@ -0,0 +1,33 @@
$ ! print volume 4 of CCP/M 2.0 source listings
$ control := /dev=lpa0/after=18:04
$ assign drb1:[ccpm86.commands] com:
$ assign drb1:[ccpm86.common] common:
$ assign drb1:[ccpm86.date] date:
$ assign drb1:[ccpm86.ddt86] ddt86:
$ assign drb1:[ccpm86.dir] dir:
$ assign drb1:[ccpm86.ed] ed:
$ assign drb1:[ccpm86.era] era:
$ assign drb1:[ccpm86.eraq] eraq:
$ assign drb1:[ccpm86.genccpm] genccpm:
$ assign drb1:[ccpm86.gencmd] gencmd:
$ assign drb1:[ccpm86.help] help:
$ assign drb1:[ccpm86.initdir] initdir:
$
$ print/nofeed'control' com:vol4.toc, -
common:scd.lst, -
date:date.lst, date.mp2/feed, -
ddt86:ddt86.sub/header, gentab.prn/feed/header, ins86.lst, -
dis86.lst, dislnk86.lst, -
dis86.mp2/feed/header, -
ass86.lst, asmtab.lst, -
asslnk86.lst, ass86.mp2/feed/header, -
ddt86.xrf, -
dir:dircmd.lst, dircmd.mp2/feed/header, -
ed:ed.lst, ed.mp2/feed/header, -
era:era.lst, era.mp2/feed/header, -
eraq:eraq.lst, eraq.mp2/feed/header, -
genccpm:genccpm.xrf, genccpm.map, -
gencmd:gencmd.lst, gencmd.mp2/feed/header, -
help:help.lst, help.mp2/feed/header, -
initdir:initdir.xrf, initdira.xrf, initdir.sym/feed/header

View File

@@ -0,0 +1,82 @@
tm
Concurrent CP/M-86 Version 2.0
OPERATING SYSTEM
SOURCE LISTINGS
VOLUME IV - CMDs: DATE to INITDIR
* * * * * * * * * * * * * * * * * * * *
Contents by Volume
Volume I Kernel, part 1
Volume II Kernel (continued),
Loader, and RSPs
Volume III ASM86
Volume IV CMDs: DATE to INITDIR
Volume V CMDs: PIP to VCMODE
Copyright (c) 1983
Digital Research
P.O. Box 579
Pacific Grove, CA 93950
(408) 649-3896
TWX 9103605001
Contents - Volume IV - CMDs: DATE to INITDIR
CMDs:
Link Module: SCD.A86
DATE
DDT86
DIR
ED
ERA
ERAQ
GENCCPM
GENCMD
HELP
INITDIR
DDT86
ddt86.sub gentab.pli
ins86.plm dis86.plm
dislnk86.asm dis86.mp2
ass86.plm asmtab.plm
asslnk86.asm ass86.mp2
ddt86.a86

View File

@@ -0,0 +1,26 @@
$ ! print volume 5 of CCP/M 2.0 source listings
$ control := /dev=lpa0/after=18:05
$ assign drb1:[ccpm86.commands] com:
$ assign drb1:[ccpm86.pip] pip:
$ assign drb1:[ccpm86.ren] ren:
$ assign drb1:[ccpm86.sdir] sdir:
$ assign drb1:[ccpm86.set] set:
$ assign drb1:[ccpm86.show] show:
$ assign drb1:[ccpm86.submit] subm:
$ assign drb1:[ccpm86.systat] systat:
$ assign drb1:[ccpm86.type] type:
$ assign drb1:[ccpm86.vcmode] vcmode:
$ home
$
$ print/nofeed'control' com:vol5.toc, -
pip:pip.lst, scd1.lst, inpout.lst, pip.mp2/feed, -
ren:ren.lst, ren.mp2/feed, -
sdir:main86.lst, scan.lst, search.lst, sort.lst, -
disp.lst, dpb86.lst, util.lst, timest.lst, -
sdir.mp2/feed, -
set:set.lst, set.mp2/feed, -
show:show.lst, show.mp2/feed, -
subm:submit.xrf, -
systat:systat.lst, systat.mp2/feed, -
type:type.lst, type.mp2/feed, -
vcmode:vcmode.lst, vcmode.mp2/feed

View File

@@ -0,0 +1,66 @@
tm
Concurrent CP/M-86 Version 2.0
OPERATING SYSTEM
SOURCE LISTINGS
VOLUME V - CMDs: PIP to VCMODE
* * * * * * * * * * * * * * * * * * * *
Contents by Volume
Volume I Kernel, part 1
Volume II Kernel (continued),
Loader, and RSPs
Volume III ASM86
Volume IV CMDs: DATE to INITDIR
Volume V CMDs: PIP to VCMODE
Copyright (c) 1983
Digital Research
P.O. Box 579
Pacific Grove, CA 93950
(408) 649-3896
TWX 9103605001
Contents - Volume V - CMDs: PIP to VCMODE
CMDs:
PIP
REN
SDIR
SET
SHOW
SUBMIT
SYSTAT
TYPE
VCMODE