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