;----------------------------------------------------------------------;
;                                                                      ;
;       T  W  T  .  C  M  D                                            ;
;                                                                      ;
;----------------------------------------------------------------------;
;       ASSEMBLE AND TASK BUILD THE MOSTEK MAGNETIC TAPE WRITE UTILITY ;
;----------------------------------------------------------------------;
        .ENABLE SUBSTITUTION
        .ASK LIST Print Listings
        .SETS UIC <UIC>
        MAC TWT,TWT/-SP=[1,1]EXEMC/ML,[11,10]RSXMC,'UIC'TWT
        .IFT LIST .XQT NFT PRT::LP:=TWT.LST
        TKB @TWT.TKB
        SET /UIC='<SYSUIC>'
        PIP /NV='UIC'TWT.TSK
        .IFINS TWT REM TWT
        PIP TWT.TSK/PU
        SET /UIC='UIC'
        PIP TWT.LST/PU,TWT.OBJ,TWT.MAP,TWT.TSK
        INS $TWT
        .IFT LIST .WAIT NFT
        .IFT LIST .XQT NFT PRT::LP:=TWT.MAP