.ENABLE SUBSTITUTION
; THIS ICF IS USED TO OBTAIN LISTINGS OF THE MAJOR
; MODULES OF ARC MAIL, AND/OR TO UPDATE THE MAIL OBJECT
; LIBRARY (MAIL.OLB). OBJECT FILES ARE DIRECTED TO THE
; SPECIFIED OBJECT DEVICE, AND LISTINGS ARE DIRECTED TO
; THE SPECIFIED LISTING DEVICE WITH A LISTING SWITCH "/-SP".
; ALL SOURCE FILES ARE ASSUMED TO RESIDE ON THE DEFAULT
; SYSTEM DEVICE (SY0:) AND THE DEFAULT UIC.
;
.SETS NULL ""
.ASKS LI THE LISTING DEVICE: [DDN:]
.IF LI EQ NULL .SETS LI "SY:"
.ASKS OB THE OBJECT DEVICE: [DDN:]
.OPEN MAI.CMD
;
; A NULL ENTRY (IE. CARRIAGE RETURN) CAUSES ALL MODULES
; SPECIFIED TO THAT POINT TO BE ASSEMBLED.
;
.AGAIN:.ASKS NAME MODULE TO BE ASSEMBLED:
.IF NAME EQ NULL .GOTO END
.DATA MAC 'OB''NAME','LI''NAME'.DMP/-SP='<UIC>'MAIL/ML,'NAME'
.IF OB EQ "NL0:" .GOTO AGAIN
.IF OB NE "NL:" .DATA LBR MAIL.OLB/RP='OB''NAME'
.IF OB NE "NL:" .DATA PIP 'OB''NAME'.OBJ;/DE
.GOTO AGAIN
.END:
.CLOSE
@MAI
PIP MAI.CMD;/DE
