PDP-10 Archive: tools/sed2/seditb.mlb from tops20tools_v6_9-jan-86

Trailing-Edge - PDP-10 Archives - tops20tools_v6_9-jan-86_dumper - tools/sed2/seditb.mlb

There are 2 other files named seditb.mlb in the archive. Click here to see a list.

%lX-11 Librarian V03-00 PsIS

=KS

^
Y	
%

-<GJS

9.MACRO PRMDEF	;Macro to define the general SED parametersCR=13LF=10MAX_FILE_SIZE=2000*512PCBSIZ=2048PARBLN=2048
NOBYTE=480	SQZVAL=64	MRKSIZ=10MRKSTL=8	XBFNUM=50XCFSIZ=XBFNUM*30
TYPSIZ=160
JRNSIZ=100
SPCSIZ=100

.ENDM	PRMDEFww-/JS

.MACRO SEQDEF

$inssp=  ^O1

$setfi=  ^O2

$abort=  ^O3

$insln=  ^O4

$srcbk=  ^O5

$delln=  ^O6

$put=    ^O7

$curlf= ^O10

$tab=   ^O11

$clrln= ^O12

$sldlf= ^O13

$sldrt= ^O14

$retrn= ^O15

$swt'^O16

$entcc= ^O17

$goto=  ^O20

$rlbkp= ^O21

$srcfw= ^O22

$delsp= ^O23

$rlfwl= ^O24

$bktab= ^O25

$pick=  ^O26

$rlbkl= ^O27

$exec=  ^O30

$rlfwp= ^O31

$exit=  ^O32

$enter= ^O33

$curdn= ^O34

$currt= ^O35

$curup= ^O36

$curhm= ^O37

$reset=  ^O0

$recal= ^O40

$inmod= ^O41

$delch= ^O42

$rltab= ^O43

$mark=  ^O44

$line=  ^O45

$case=  ^O46

$windw= ^O47

$ersln= ^O50

$tbset= ^O51

$uptab= ^O52

$dntab= ^O53

$rewrt= ^O54

$save=  ^O55

$help=  ^O56

$bline= ^O57

$eline= ^O60

$e0rswd= ^O61

$push=  ^O62

$subst= ^O63

$error= ^O64

$justi=	^O65

$markr=	^O66

.ENDM	SEQDEFww-NJS

.MACRO	FLGDEFX	FLG,0X	ENT,1X	XPL,2X	XPC,3X	XPB,4X	FNC,5X	CCH,6X	CWT,7X	CHG,8X	SCN,9X	WRH,10X	LFF,11X	ERF,12X	INS,13X	SMF,14X	FBL,15X	PCM,16X	POV,17X	COV,18X	RDO,19X	CMV,20X	CRE,21X	IMD,22X	WTB,23X	NRC,24X	NLC,25X	GFL,26X	DTB,27X	NHP,28X	NCR,29X	RST,30X	IND,31.ENDM	FLAGS

.ENDM	FLAGS1.MACRO X FLAG,BITM_'FLAG'=1@BIT.ENDM X	FLAGS	FLAGS1<SWFLGS=M_NLC!M_RST!M_NRC!M_RDO!M_DTB!M_NHP!M_NCR!M_IMD!M_WTB%SWFLGS2=M_XCT!M_XBN!M_BEP!M_LSD!M_JRC.MAC1RO X FLAG,BIT

V_'FLAG'=BIT.ENDM X	FLAGS	FLAGS1

.ENDM	FLGDEFww-OrKS

.MACRO	TRMDEFCUP=0CDN=4CRG=8CLF=12CHM=16CPG=20CLN=24RUP=28RLD=32PON=36POF=40ILN=44ISP=48DLN=52DSP=56MVB=60HCP=64PSC=68PSL=72LPP=76CPL=80TCH=84RTE=88RTX=92NUL=96ITB=100MAR=104KPD=108OVF=112IMO=116IMF=120

.ENDM	TRMDEFww-SKS

.MACRO	SNOOZE	VALUE	MOVL	#-10*1000*VALUE,SNZVAL	$SCHDWK_S DAYTIM=SNZVAL		$HIBER_S

.ENDM	SNOOZEww-`6(KS

,.MACRO	GENEXT	A1,A2,A3,A4,A5,A6,A7,A8,A9,A10*	.IRP	ARG,<A1,A2,A3,A4,A5,A6,A7,A8,A9,A10>		.IF NOT_BLANK, ARG'			.IIF NOT_DEFINED, ARG, .EXTERNAL ARG		.ENDC	.ENDR

.ENDM	GENEXTww- =KS

.MACRO	GLOB.NOCROSS<GENEXT	ABOPAR,ABORT,ABORT1,ADDCR,ADDLNS,ADDLNX,ADDLSP,ADDLSX7GENEXT	ADDSLN,ADDSPC,ADDSPS,ADJWRD,ADVDPT,ADVLPT,AGNFLG7GENEXT	AJDONE,ALPERR,ALPIMD,ALPNU1,ALPNUM,APPFLG,BAKDPT(GENEXT	BAKFLG,BAKTAB,BLIARG,BLINE,BOTPTRGENEXT	BTBARG,BUFFAB,CLSBUF"GENEXT	CLSCNT,CLSJFN,CLSNPM,CLSOPN1GENEXT	CMDCLN,CMDCON,CMDCON1,CMDTB1,CMDTB2,CNIERR0GENEXT	CMDLEN,CMDNAM,CMDSET,CMVBTM,CMVTBL,CMXERR'GENEXT	COMAND,CPL.0,CPL.1,CREFLG,CRIGHTGENEXT	CRRFLG,CURUP,DEBUG0FLAGGENEXT	DEC	STRING,DELBUT,EXIFIL,EXIFL1,EXIPAR,EXITBLOCKGENEXT	F,F1GENEXT	FENCE,FENCE1GENEXT	FILESAVED,FILESPECDESC7GENEXT	FILSIZ,FILSPC,FINDRW,FIXBLC,FIXBLF,FIXBLN,FIXBLW)GENEXT	FLLFLG,FNCCLR,FNCFLG,FNCPUT,FNDEOL GENEXT	FSPLEN,FSPTYP,FSPTYPSIZE@GENEXT	GETAK,GETMSG,GOBLK,GOPERC,GOPRCT,GREFLG,HELPFAB,HELPRAB GENEXT	HELPER,HOMARG,HOME,HOMPOS(GENEXT	ICMNPM,IDFLG,ILCER0,ILCER2,ILLCMDGENEXT	IMODOF,IMODON,IMDOFNGENEXT	INCSAV,INDFLG,INDIRE6GENEXT	INIFAB,INILEN1,INILEN2,ININAM1,ININAM2$GENEXT

LPP.0,LPP.1,LPP.2&GENEXT	MAINNAM,MAINUXAB,MAKBPT,MAKCHR7GENEXT	MAKCK1,MAKCNT,MAKCPT,MAKLNS,MAKLPT,MAKNUL,MAKPB0.GENEXT	MAKPTR,MAKSPC,MARK,MARKER,MARKUP,MARNPMGENEXT	MAXLRL,MFLPT07GENEXT	MFLPT1,MFLPTR,MRCPTR,MRKARG,MRKCUR,MRKEND,MRKLAT7GENEXT	MRKNT1,MRKNTB,MRKPTB,MRKPTR,MRKSET,MRKSTK,MRKSTP"GENEXT	MRLPTR,MSGFLG,NAMLEN,NAMTAB0GENEXT	NEWFIL,NEWFL0,NEWFL1,NEWMSG,NEWSPC,NUMBYT)GENEXT	NUMCHR,NUMNUL,NUMWDS,OLDOCTRLRMASK4GENEXT	OLDLEN,OLDSPC,OLDSPECKDESC,OLDTYP,OLDTYPMSIZE0GENEXT	OPENLN,OPENXT	PROTON,PSHARG2GENEXT	PTMBLK,PUSHDESC,PUSHCOMMAND,PUSHER,PUSMKS4GENEXT	PUT,PUTBTM,PUTFIL,PUTJFN,PUTNPM,PUTNPO,PUTNUM8GENEXT	PUTPTR,PUTSEQ,PUTSPCL,PUTSQ1,PUTSTC,PUTSTE,PUTSTF)GENEXT	PUTSTG,PUTSTS,PUTSTX,PUTTYF,PUTTYP;GENEXT	RBKNPM,RBLNPM,RDOERR,REALNAME,REALTB,RECATT,RECAL1(GENEXT	RECALL,RECAR1,RECARG,RECOVR,REDNO&GENEXT	REDSWH,REDSYM,REDTMP,REINITTTY9GENEXT	RESCANDESC,RESCANLENGTH,RESCANLINE,RESET,RESNPM3GENEXT	RESTORETTY,RESTP1,RESTPM,RESULTNAME,RETARG=GENEXT	RETROL,RETURN,RFLNPM,RFPNPM,RGTARG,RIGHT,RIGHT1,RLCFLG6GENEXT	RMARGN,ROLBKL,ROLBKP,ROLFW,ROLFW0,ROLFW1,ROLFWL6GENEXT	ROLFWP,ROLLDN,ROLLIN,ROLLS,ROLLUP,ROLPGS,RPLTAB0GENEXT	RSCANF,RSCANL,RSTNOM,RWRARG,SAMFIL,SAVCNTGENEXT	SAVCPG,SAVCPT,SAVDLN3GENEXT	SAVEPROT,SAVETTYBITS,SAVEAC,SAVEDP,SAVEFG)GENEXT	SAVEIT,SAVERW,SAVESL,SAVFGS,SAVFIL0GENEXT	SAVFLG,SAVILN,SAVLPP,SAVMGN,SAVNUM,SAVPML"GENEXT	SAVPOS,SAVPRM,SAVRLD,SAVRUP6GENEXT	SEDTERM,SETCHARBUFF,SETPROG,SETCHBF,SETCHLEN"GENEXT	SETFIL,SETFL1,SETFLC,SETI

NDGENEXT	SETLPP,SETMFL,SETNPM,GENEXT	SETSCN,SETXCB,SL,SLDFLG,SLDSIZ,SLIDELGENEXT	SLIDER,SLIDES7GENEXT	SLIDNM,SLLNPM,SLRNPM,SNZVAL,SPCBUF,SPCCNT,SQUEZW7GENEXT	SQZCNT,SRBNPM,SRCBAK,SRCFWD,SRCIPT,SRCKEY,SRCKLN'GENEXT	SRCPTR,SRFNPM,SROKEY,STACK,STARSEGENEXT	STFER1,STFERR,STRFLG,STTFLG,SUBCNT,SUBDIF,SUBLNS,SUBNPM,SUBNUMEGENEXT	SUBSLN,SUBSTG,SUBSTI,SUBTAB,SUBTBX,SUMERR,SVADSP,SVAFLG,SVALEN3GENEXT	SVARW,SVASL,SVASPC,SVATYP,SVATYPSIZE,SVEERR)GENEXT	SVPMRK,SWHBOT,SWHLPP,SWHLUR,SWHMNY)GENE

GENEXT	WBTAB7GENEXT	WINCLR,WINDIS,WINSET,WNCLST,WRTNUL,WRTNUM,WRTSYMGENEXT	XCEERR,
XCFPTR4GENEXT	XCT_FAB,XCT_RAB,XCT_XAB,XCTACR,XCTACW,XCTADR,"GENEXT	XCTASV,XCTCLS,XCTCTR,XCTERR0GENEXT	XCTFIL,XCTFRE,XCTGET,XCTGTE,XCTINI,XCTISV>GENEXT	XCTITR,XCTKEY,XCTKLK,XCTLVL,XCTNAM,XCTNSV,XCTNUM,XCTOVF7GENEXT	XCTPSV,XCTPTR,XCTPTW,XCTREL,XCTRPR,XCTRPT,XCTSET0GENEXT	XCTSNM,XCTTMP,XCTWRT,XCWGET,XCWRT0,XSHFLG.CROSS
.ENDM	GLOBww