Google
 

Trailing-Edge - PDP-10 Archives - BB-R595B-SM_11-9-85 - mcb/nsp/nspall.ctl
There is 1 other file named nspall.ctl in the archive. Click here to see a list.
;                    COPYRIGHT (c) 1980, 1981, 1982
;                    DIGITAL EQUIPMENT CORPORATION
;                        Maynard, Massachusetts
;
;     This software is furnished under a license and may  be  used
;     and copied only in accordance with the terms of such license
;     and with the inclusion of the above copyright notice.   This
;     software  or any other copies thereof may not be provided or
;     otherwise made available to any other person.  No  title  to
;     and ownership of the software is hereby transferred.
;
;     The information  in  this  software  is  subject  to  change
;     without  notice  and should not be construed as a commitment
;     by DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL assumes no responsibility for the use or reliability
;     of  its  software  on  equipment  which  is  not supplied by
;     DIGITAL.

@def nspbli: nsp:
@run bli:blis16
*nspdat/lis/variant:1
*ns2/list/unames/optl:3/variant:1
*ns1/list/unames/optl:3/variant:1
*nsp/list/unames/optl:3/variant:1
@delete nspdat.obj
@copy nspdata.req nspdat.req  ! Need 6 character name for BLSCRF
@def BED: NUL: ! To handle the conditional require
@bli:blscrf
*,nspdat=nspdat
*nsp,nsp=nsp/d
*ns1,ns1=ns1/d
*ns2,ns2=ns2/d
@append v3p0:ff,nsp.xrf nsp.lst
@append v3p0:ff,ns1.xrf ns1.lst
@append v3p0:ff,ns2.xrf ns2.lst
@delete nspdat.req,nsp.xrf,ns1.xrf,ns2.xrf
@append nsp.gxr,ns1.gxr,ns2.gxr nspdat.gxr
@sort
*sort/record:150/key:1,40,alpha,ascend/ascii nspdat.gxr nsp.sor
@delete nspdat.gxr,nsp.gxr,ns1.gxr,ns2.gxr
@conden
*nsp.gxr=nsp.sor
@delete nsp.sor