Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;                    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.

! Uses BLIS16 V2.1
! Gets MCBLIB and other libraries from MCB: (hard coded in sources)
!
@BLI:blis16
*SCPRM/LIB/LIST
*sc/list/optl:3
*scdsp/list/optl:3
*scres/list/optl:3
*scsub/list/optl:3
*sc1/list/optl:3
*scx/list/optl:3
*scxdsp/list/optl:3
*scxres/list/optl:3
*scxsub/list/optl:3
@def BED: NUL:
@bli:blscrf
*,scprm=scprm.req
*sc,sc=sc/d
*scdsp,scdsp=scdsp/d
*scres,scres=scres/d
*scsub,scsub=scsub/d
*sc1,sc1=sc1/d
*scx,scx=scx/d
*scxdsp,scxdsp=scxdsp/d
*scxres,scxres=scxres/d
*scxsub,scxsub=scxsub/d
@append v3p0:ff,sc.xrf sc.lst
@append v3p0:ff,scdsp.xrf scdsp.lst
@append v3p0:ff,scres.xrf scres.lst
@append v3p0:ff,scsub.xrf scsub.lst
@append v3p0:ff,sc1.xrf sc1.lst
@append v3p0:ff,scx.xrf scx.lst
@append v3p0:ff,scxdsp.xrf scxdsp.lst
@append v3p0:ff,scxres.xrf scxres.lst
@append v3p0:ff,scxsub.xrf scxsub.lst
@delete sc.xrf,scdsp.xrf,scres.xrf,scsub.xrf,sc1.xrf,scx.xrf,scxdsp.xrf,scxres.xrf,scxsub.xrf
@append scprm.gxr,scdsp.gxr,scres.gxr,scsub.gxr,sc1.gxr sc.gxr
@append scprm.gxr,scxdsp.gxr,scxres.gxr,scxsub.gxr scx.gxr
@sort
*sort/record:150/key:1,40,alpha,ascend/ascii sc.gxr sc.sor
*sort/record:150/key:1,40,alpha,ascend/ascii scx.gxr scx.sor
@delete scprm.gxr,sc.gxr,scdsp.gxr,scres.gxr,scsub.gxr,sc1.gxr
@delete scx.gxr,scxdsp.gxr,scxres.gxr,scxsub.gxr
@conden
*sc.gxr=sc.sor
scx.gxr=scx.sor
@delete sc.sor,scx.sor