	.ENABLE GLOBAL
	.ENABLE ESCAPE
	.IFDF $LD .GOTO DLS
	.IFF $L .GOTO SAL
.LAL:	;
; An indirect file will be produced to do the actual assembly.
; Listing production is time consuming and is not recommended,
; unless you are an exceptionally curious sort of person or
; else need to modify the system.
;
.SAL:	.SETS $LD "NL"
	.SETS $SL ""
	.ASK Z Assembly listing files desired
	.IFT <ESCAPE> .GOTO LAL
	.IFF Z .GOTO END
.DLS:	.IFF $L .GOTO SDV
.LDV:	;
; You may direct listings to any device on the system, keeping
; in mind the fact that a lot of storage may be required for
; them.  If you are running offline, you may specify the line
; printer if you have one (LP:).
;
.SDV:	.ASKS ZS What is to be the listing device? [DDU]
	.IFT <ESCAPE> .GOTO LDV
	.IF ZS = "" .SETS ZS "SY0"
	.SETS $LD ZS
	.SETS ZS2 ZS[3:3]
	.SETS ZS3 ZS[4:4]
	.IF ZS2 = ":" .SETS $LD ZS[1:2]
	.IF ZS3 = ":" .SETS $LD ZS[1:3]
	.IF $LD = "" .GOTO LDV
	.IFF $L .GOTO SSP
.LSP:	;
; Spooling will actually only occur for directory devices and
; then only if the print spooler (PRT...) is installed.
;
.SSP:	.ASK Z Spool listing files
	.IFT <ESCAPE> .GOTO LSP
	.IFF Z .SETS $SL "/-SP"
	.IFT Z .SETS $SL "/SP"
	.IFF $L .GOTO STTM
.LTTM:	;
; The listings will default to a 132 column page width
; unless otherwise specified.
;
.STTM:	.ASK $TT Do you need narrow (80 column) output
	.IFT <ESCAPE> .GOTO LTTM
	.IFT $TT .SETS $SL "/LI:TTM"+$SL
.END:
