home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
modcomp.zip
/
dom5a.
< prev
next >
Wrap
Text File
|
1987-01-26
|
914b
|
48 lines
$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