.ENABLE SUBSTITUTION
.ASK EX Do you want an explanation
.IFF EX .GOTO CON
;
;  The files required to build the dual-ported ACP
;  and their expected locations
;
;  On device  IN:  in the current UIC
;      DPACP source files
;      RSXMC.MAC for the target system
;
;  On the device  LB:  
;      The files
;      [1,1]EXELIB.OLB, [1,54]RSX11M.STB
;      [1,1]EXEMC.MLB and [1,1]NETLIB.MLB
;      for the target system
;
;  On the device  SY:  in the current UIC
;      The F11ACP library assembled for the target system
;         (FCP.OLB)
;      Also the destination for the object files.
;
;  The device  SC:  in the current UIC
;      Scratch storage for the TKB and MAC command files
;
.ASK EX Continue
.IFF EX .GOTO OUT
.CON:
.SETT ERASE  ;  To clean up objects and command files created
.SETS UIC <UIC>
.ASK TK Task build only
.SETF MC
.IFF TK .ASK MC MAC only
.IFF TK .ASK LIST Do you want listings
.IFF MC .ASK MMAP Do you want a map
.ASK ERASE Clean up when done
.IFT TK .GOTO TKBIT
.ASKS [1:6] NODE Enter Master system DECNET node name
; Starting assembly at '<TIME>' '<DATE>'
.; Create connect block macro file, for prefix to NTDAT assembly
.OPEN NTCONB.MAC
.ENABLE DATA
	.PSECT	NTDAT
	.MCALL  CONB$$
	.EVEN
CONB::	CONB$$	'NODE',NO.TAS,1,<ACPAUX>
	.EVEN
.DISABLE DATA
.CLOSE
.; Create MACRO command file
.OPEN SC:DPACPMAC.CMD
.IFT LIST .GOTO LSTMAC
.ENABLE DATA
ACCESX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,ACCESX
CLACCX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLACCX
CLCREX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLCREX
CLDACX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLDACX
CLNUPX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLNUPX
CRFILX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CRFILX
DEACCX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DEACCX
DISPAX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DISPAX
DLFILX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DLFILX
DLMRKX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DLMRKX
DIRBUX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DIRBUX
ENTNMX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,ENTNMX
EXTENX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,EXTENX
FNDNMX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,FNDNMX
RMVNMX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,RMVNMX
TRUNCX=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,TRUNCX
RQIO=LB:[1,1]EXEMC/ML,NETLIB/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DPRE,RQIO
NTSUBS=LB:[1,1]EXEMC/ML,NETLIB/ML,IN:'UIC'DPRE,NTSUBS
NTDAT=LB:[1,1]EXEMC/ML,NETLIB/ML,IN:'UIC'DPRE,NTCONB,NTDAT
.DISABLE DATA
.GOTO ENDMAC
.LSTMAC:
.ENABLE DATA
ACCESX,SC:ACCESX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,ACCESX
CLACCX,SC:CLACCX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLACCX
CLCREX,SC:CLCREX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLCREX
CLDACX,SC:CLDACX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLDACX
CLNUPX,SC:CLNUPX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CLNUPX
CRFILX,SC:CRFILX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,CRFILX
DEACCX,SC:DEACCX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DEACCX
DISPAX,SC:DISPAX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DISPAX
DLFILX,SC:DLFILX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DLFILX
DLMRKX,SC:DLMRKX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DLMRKX
DIRBUX,SC:DIRBUX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,DIRBUX
ENTNMX,SC:ENTNMX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,ENTNMX
EXTENX,SC:EXTENX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,EXTENX
FNDNMX,SC:FNDNMX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,FNDNMX
RMVNMX,SC:RMVNMX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,RMVNMX
TRUNCX,SC:TRUNCX/-SP=LB:[1,1]EXEMC/ML,IN:'UIC'RSXMC/PA:1,F11PRX,TRUNCX
RQIO,SC:RQIO/-SP=LB:[1,1]EXEMC/ML,NETLIB/ML,IN:'UIC'RSXMC/PA:1,F11PRX,-
                 DPRE,RQIO
NTSUBS,SC:NTSUBS/-SP=LB:[1,1]EXEMC/ML,NETLIB/ML,IN:'UIC'DPRE,NTSUBS
NTDAT,SC:NTDAT/-SP=LB:[1,1]EXEMC/ML,NETLIB/ML,IN:'UIC'DPRE,NTCONB,NTDAT
.DISABLE DATA
.ENDMAC:
.CLOSE
MAC @SC:DPACPMAC
.IFT ERASE PIP SC:DPACPMAC.CMD;0/DE
.IFT MC .GOTO DONE
.;
.; Task build
.;
.TKBIT:
; Starting task build at '<TIME>' '<DATE>'
.SETS MAP ""
.IFT MMAP .SETS MAP ",SC:DPACP/CR/-SP"
.OPEN SC:DPACPTKB.CMD
.ENABLE DATA
;
; Adapted from FPLG0BLD.CMD
;	Daniel S. McCoy  27 NOV 79
;
;	FCB LIST - 15 FCB'S
;	NO SEPARATE DIRECTORY BUFFER
;
DPACP/AC/MM/-FP'MAP'=DPACPTKB.ODL/MP
;
; OPTIONS INPUT
;
TASK=DPACP
STACK=40
UNITS=3
ASG=NS:2:3
UIC=[1,1]
PRI=149
PAR=GEN:0:0
TSKV=.SSTVC:7
;
; The only extra buffer space allocated is for FCB's
; EACH FCB = 52 OCTAL
;
EXTSCT=$$AFR1:1042
/
.DISABLE DATA
.CLOSE
.OPEN SC:DPACPTKB.ODL
.ENABLE DATA
;
; DPACP
;	Daniel S. McCoy   27 NOV 79
;
; Standard F11ACP modules are taken from FCP.OLB
; Modified routines are taken as separate object modules from
; the default directory and disk.
;
	.NAME	F11ACP
	.ROOT	F11ACP-FCPROT-DPACP-FCPCO-REST
;
;	THE FOLLOWING MODULES MUST BE IN THE ROOT
FCPROT:	.FCTR	FCP/LB:F11ACP:F11CM:ARWVB:OVERR:FCPGBL-DISPAX
;
FCPCO:	.FCTR	FCP/LB:F11BUF:INIT-DIRBUX
;
DPACP:	.FCTR	NTDAT-NTSUBS-RQIO-DPACP1
DPACP1:	.FCTR	ACCESX-DEACCX-CLACCX-CLDACX-EXTENX-CRFILX-ENTNMX-DPACP2
DPACP2:	.FCTR	DLFILX-TRUNCX-RMVNMX-CLCREX-DLMRKX-FNDNMX-CLNUPX
;
REST:	.FCTR	FCP/LB-LB:[1,1]EXELIB/LB-LB:[1,54]RSX11M.STB/SS
;
	.END
.DISABLE DATA
.CLOSE
.;
TKB @SC:DPACPTKB
.IFF ERASE .GOTO DONE
PIP SC:DPACPTKB.CMD;0/DE
PIP SC:DPACPTKB.ODL;0/DE
PIP SC:*.OBJ;*/DE
.DONE:
; Done at '<TIME>' '<DATE>'
.OUT: