Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-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