$PROD DOM5A,,USL,NOLO,NO,DIRUL
$IFN %1=HELP,P/$GOTO NOHELP
$NOP
$NOP  ** PROCEDURE TO ASSEMBLE A SOURCE MODULE AND PLACE
$NOP  ** IN AN OBJECT LIBRARY.
$NOP
$NOP  ** ARG 1 - NAME OF PROGRAM TO BE ASSEMBLED
$NOP  ** ARG 2 - FILE CONTAINING PROGRAM (DEF. %2)
$NOP  ** ARG 3 - LISTING OPTION FOR M5A (DEF. %3)
$NOP  ** ARG 4 - FILE TO BE USED FOR UL (DEF. %4)
$NOP  ** ARG 5 - UL FILE DIRECTORIZED FLAG (DEF.)%5)
$NOP
$NOP  ** EXAMPLE - $DOM5A,NAME,BSL,LO,ULU
$ENDDO
$TAG NOHELP
$ASS USL %2
$IFM %1,4
$EXE SED
 ASS SI USL
 POS %1
 EXI
$ASS  BO SCA
$REW  BO
$NOTE     ASSEMBLING %1 FROM %2 TO %4
$EXE M5A,,%3,NOSC
$WEO BO
$IFN %5=DIRUL,P/$GOTO NODIR
$ASS SI SCA UL %4
$REW SI
$EXE LIB,,NOLO
 REC %1
 EXIT
$ASS BI BI BO BO SI SI
$ENDDO
$TAG NODIR
$ASS SI SCA BI %4 BO SC
$REW BI BO SI
$EXE LIB,,NOLO
LNA
ADD 0
DEL %1
COP
ASS BI SC BO %4
REW BI BO
COP
EXI
$ASS BI BI BO BO