.enable substitution
.enable global
.sets cli <cli>
.if cli ne "DCL" set /dcl=ti:
.sets uic <uic>
.parse uic "," group prog
.ask $yn Do want to link in the debugger
ass sy: in:
ass sy: ou:
ass sy: li:
ass sy: mp:
mcr dmo du:/dev
mcr rem odsacp
.ifnins ...pip ins $pip
.ifnins ...mac ins $mac
.ifnins ...lbr ins $lbr
.ifnins ...tkb ins $tkb
delete ou:'group',24]ods.olb;*
.sets prefil ""
.sets file "ACCESS"
.gosub make
.sets file "ALLOC"
.gosub make
.sets file "ARWVB"
.gosub make
.sets file "ATCTL"
.gosub make
.sets file "BLXIO"
.gosub make
.sets prefil "dsmac"
.sets file "CATDT"
.gosub make
.sets file "CDTTA"
.gosub make
.sets prefil ""
.sets file "CKSUM"
.gosub make
.sets file "CLACC"
.gosub make
.sets file "CLATT"
.gosub make
.sets file "CLCOM"
.gosub make
.sets file "CLDAC"
.gosub make
.sets file "CLDIR"
.gosub make
.sets file "CLFCB"
.gosub make
.sets file "CLNUP"
.gosub make
.sets file "CNTRL"
.gosub make
.sets file "DARITH"
.gosub make
.sets file "DATIM"
.gosub make
.sets file "DEACC"
.gosub make
.sets file "DELCK"
.gosub make
.sets file "DIRBUF"
.gosub make
.sets file "DISPAT"
.gosub make
.sets file "DIVD"
.gosub make
.sets file "DIVQ"
.gosub make
.sets file "DMOUNT"
.gosub make
.sets file "DRACC"
.gosub make
.sets file "DRCPY"
.gosub make
.sets file "DREX"
.gosub make
.sets file "DRGET"
.gosub make
.sets file "DRINI"
.gosub make
.sets file "DRPAC"
.gosub make
.sets file "DRSEF"
.gosub make
.sets file "DRVLB"
.gosub make
.sets file "DWPND"
.gosub make
.sets file "F11ACP"
.gosub make
.sets file "F11BUF"
.gosub make
.sets file "F11CM"
.gosub make
.sets file "FDRMV"
.gosub make
.sets file "FIOSUB"
.gosub make
.sets file "FNDNM"
.gosub make
.sets file "GTFID"
.gosub make
.sets file "GTMAP"
.gosub make
.sets file "GTRTP"
.gosub make
.sets file "INFCB"
.gosub make
.sets file "INIT"
.gosub make
.sets file "INWIN"
.gosub make
.sets file "LOCAT"
.gosub make
.sets file "MATNAM"
.gosub make
.sets file "MONTB"
.gosub make
.sets file "MOUNT"
.gosub make
.sets file "MOUNT0"
.gosub make
.sets file "MOUNT1"
.gosub make
.sets file "MOUNT2"
.gosub make
.sets file "MPHDR"
.gosub make
.sets file "MPVBN"
.gosub make
.sets file "MXQIO"
.gosub make
.sets file "NXHDR"
.gosub make
.sets file "PROCK"
.gosub make
.sets file "RATCM"
.gosub make
.sets file "RDATT"
.gosub make
.sets file "RDHDR"
.gosub make
.sets file "RLEAS"
.gosub make
.sets file "RLFCB"
.gosub make
.sets file "RW1LB"
.gosub make
.sets file "RWATT"
.gosub make
.sets file "RWVB"
.gosub make
.sets file "RWVBL"
.gosub make
.sets file "SCFAC"
.gosub make
.sets file "SCFCB"
.gosub make
.sets file "SMCOM"
.gosub make
.sets file "SMNXB"
.gosub make
.sets file "SMRVB"
.gosub make
.sets file "WACCK"
.gosub make
.sets file "WATCM"
.gosub make
.sets file "WITRN"
.gosub make
.sets file "WRHDR"
.gosub make
.sets file "WTRN1"
.gosub make
.;
@buildit
.exit
.make:
del ou:'group',24]'file'.obj;*,li:'group',34]'file'.lst;*
.open macr.cmd
.data ou:'group',24]'file',li:'group',34]'file'/-sp= -
.sets defuic uic
.testfile in:'group',14]'file'.mac
.if <filerr> ne 1 .sets defuic "[13,10]"
.sets file1 defuic+file
.test prefil
.if <strlen> ne 0 .sets file1 defuic+prefil+","+file
.data	lb:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,IN:'group',14]F11PRE/PA:1,'file1'
.close
macro @macr
.if <exstat> ne 1 ; File 'file'.mac did not assemble correctly
.testfile ou:'group',24]ods.olb
.if <filerr> ne 1 .goto make1
libr/insert ou:'group',24]ods ou:'group',24]'file'
delete macr.cmd;*
.return
.make1:
libr/cre ou:'group',24]ods ou:'group',24]'file'
delete macr.cmd;*
.return
