.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 .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 .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 .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 .GOTO LTTM .IFT $TT .SETS $SL "/LI:TTM"+$SL .END: