Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0028/syntax.316
There are 2 other files named syntax.316 in the archive. Click here to see a list.
IFNDEF REENTR,<REENTR==1>
IFN REENTR,<
	TWOSEG	;MAKE IT REENTRANT
	RELOC ^O400000	;HEREAFTER INTO HIGH SEGMENT
>
SUBTTL THIS LISTING MADE WITH SYNTAX.316


	INTERN SYNTAB,SYNSIZ,PUTTAB,PUTSIZ

	DEFINE GEN (NUM,ENUM,Z,B)<
	K=NUM
	KK=ENUM-NUM
	KK=KK/2
	KK=KK+1
REPEAT KK,<
IFB <B>,<
	XWD Z,Z
>

IFNB <B>,<
	XWD B,Z
>

	ZZ=K+1
	K=K+2
>>

	DEFINE XP (A,B)<
	A'DX=.-PUTTAB
	XWD 0,B >

ZZXX=.

	DEFINE X(A)<
	A'DX=<.-SYNTAB>B29
	XWD 0,A'TB
>

DX=0	;FOR THE CASE WHEN "TAB"=NULL AND DX GETS GENERATED

ZZYY=.
	RADIX 8

SYNTAB:	Z
	X BIOP
	X CARD
	X DQLI
	X ELEM
	X EOS
	X FLI
	X FRWD
	X GOTF
	X GOTO
	X GOTS
	X IBLK
	X INTG
	X LBL
	X LBLX
	X NBLK
	X NUMB
	X NUMC
	X SNAB
	X SQLI
	X STAR
	X TBLK
	X UNOP
	X VARA
	X VARB
	X VAR
SYNSIZ=.-SYNTAB



PUTTAB:	Z	;DUMMY
	XP ADD,ADDFN
	XP SUB,SUBFN
	XP NAM,NAMFN
	XP DOL,DOLFN
	XP DIV,DIVFN
	XP BIAT,BIATFN
	XP BIPD,BIPDFN
	XP BIPR,BIPRFN
	XP OR,ORFN
	XP CMTT,CMTTYP
	XP CTLT,CTLTYP
	XP CNTT,CNTTYP
	XP NEWT,NEWTYP
	XP QLIT,QLITYP
	XP NSTT,NSTTYP
	XP EQT,EQTYP
	XP RPT,RPTYP
	XP RBT,RBTYP
	XP CMAT,CMATYP
	XP CLNT,CLNTYP
	XP EOST,EOSTYP
	XP NBT,NBTYP
	XP FGOT,FGOTYP
	XP FTOT,FTOTYP
	XP UGOT,UGOTYP
	XP UTOT,UTOTYP
	XP SGOT,SGOTYP
	XP STOT,STOTYP
	XP ILIT,ILITYP
	XP FLIT,FLITYP
	XP DIMT,DIMTYP
	XP MPY,MPYFN
	XP EXP,EXPFN
	XP PLS,PLSFN
	XP MNS,MNSFN
	XP DOT,DOTFN
	XP IND,INDFN
	XP STR,STRFN
	XP SLH,SLHFN
	XP PR,PRFN
	XP AT,ATFN
	XP PD,PDFN
	XP KEY,KEYFN
	XP NEG,NEGFN
	XP QUES,QUESFN
	XP LPT,LPTYP
	XP VART,VARTYP
	XP FNCT,FNCTYP
	XP ARYT,ARYTYP
	XP AROW,AROWFN
PUTSIZ=.-PUTTAB

	SUBTTL BIOPTB
	PAGE

BIOPTB:	GEN 0,37,ERROR
	GEN 40,41,ERROR,<TBLKDX+ORDX>
	GEN 42,43,ERROR,<TBLKDX+BIPDDX>
	GEN 44,45,<TBLKDX+DOLDX>,<TBLKDX+BIPRDX>
	GEN 46,51,ERROR
	GEN 52,53,STARDX,<TBLKDX+ADDDX>
	GEN 54,55,ERROR,<TBLKDX+SUBDX>
	GEN 56,57,<TBLKDX+NAMDX>,<TBLKDX+DIVDX>
	GEN 60,77,ERROR
	GEN 100,101,<TBLKDX+BIATDX>,ERROR
	GEN 102,135,ERROR
	GEN 136,137,<EXPDX+TBLKDX>,ERROR
	GEN 140,177,ERROR

	SUBTTL CARDTB
	PAGE

CARDTB:	GEN 0,37,<STOPSH+NEWTDX>
	GEN 40,41,<STOPSH+NEWTDX>,<STOPSH+CMTTDX>
	GEN 42,51,<STOPSH+NEWTDX>
	GEN 52,53,<STOPSH+CMTTDX>,<STOPSH+CNTTDX>
	GEN 54,55,<STOPSH+NEWTDX>,<STOPSH+CTLTDX>
	GEN 56,57,<STOPSH+CNTTDX>,<STOPSH+NEWTDX>
	GEN 60,71,<STOPSH+NEWTDX>
	GEN 72,73,<STOPSH+NEWTDX>,<STOPSH+CMTTDX>
	GEN 74,177,<STOPSH+NEWTDX>

	SUBTTL DQLITB
	PAGE

DQLITB:	GEN 0,41,CONTIN
	GEN 42,43,STOP,CONTIN
	GEN 44,177,CONTIN

	SUBTTL ELEMTB
	PAGE

ELEMTB:	GEN 0,41,ERROR
	GEN 42,43,<DQLIDX+QLITDX>,ERROR
	GEN 44,45,ERROR
	GEN 46,47,ERROR,<SQLIDX+QLITDX>
	GEN 50,51,<STOP+NSTTDX>,ERROR
	GEN 52,57,ERROR
	GEN 60,71,<INTGDX+ILITDX>
	GEN 72,77,ERROR
	GEN 100,101,ERROR,<VARDX+VARTDX>
	GEN 102,131,<VARDX+VARTDX>
	GEN 132,133,<VARDX+VARTDX>,ERROR
	GEN 134,137,ERROR
	GEN 140,141,ERROR,<VARDX+VARTDX>
	GEN 142,171,<VARDX+VARTDX>
	GEN 172,173,<VARDX+VARTDX>,ERROR
	GEN 174,177,ERROR

	SUBTTL EOSTB
	PAGE

EOSTB:	GEN 0,71,CONTIN
	GEN 72,73,CONTIN,STOP
	GEN 74,177,CONTIN

	SUBTTL FLITB
	PAGE

FLITB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,STOPSH
	GEN 12,13,ERROR,STOPSH
	GEN 14,15,STOPSH,ERROR
	GEN 16,37,ERROR
	GEN 40,41,STOPSH,ERROR
	GEN 42,47,ERROR
	GEN 50,51,ERROR,STOPSH
	GEN 52,53,ERROR
	GEN 54,55,STOPSH,ERROR
	GEN 56,57,ERROR
	GEN 60,71,CONTIN
	GEN 72,73,ERROR,STOPSH
	GEN 74,75,ERROR
	GEN 76,77,STOPSH,ERROR
	GEN 100,133,ERROR
	GEN 134,135,ERROR,STOPSH
	GEN 136,177,ERROR

	SUBTTL FRWDTB
	PAGE

FRWDTB:	GEN 0,7,<STOPSH+NBTDX>
	GEN 10,11,<STOPSH+NBTDX>,CONTIN
	GEN 12,13,<STOPSH+NBTDX>,CONTIN
	GEN 14,15,CONTIN,<STOPSH+NBTDX>
	GEN 16,37,<STOPSH+NBTDX>
	GEN 40,41,CONTIN,<STOPSH+NBTDX>
	GEN 42,47,<STOPSH+NBTDX>
	GEN 50,51,<STOPSH+NBTDX>,<STOP+RPTDX>
	GEN 52,53,<STOPSH+NBTDX>
	GEN 54,55,<STOP+CMATDX>,<STOPSH+NBTDX>
	GEN 56,71,<STOPSH+NBTDX>
	GEN 72,73,<STOP+CLNTDX>,<STOP+EOSTDX>
	GEN 74,75,<STOPSH+NBTDX>,<STOP+EQTDX>
	GEN 76,77,<STOP+RBTDX>,<STOPSH+NBTDX>
	GEN 100,133,<STOPSH+NBTDX>
	GEN 134,135,<STOPSH+NBTDX>,<RBTDX+STOP>
	GEN 136,137,<STOPSH+NBTDX>,<EQTDX+STOP>
	GEN 140,177,<STOPSH+NBTDX>

	SUBTTL GOTFTB
	PAGE

GOTFTB:	GEN 0,47,ERROR
	GEN 50,51,<STOP+FGOTDX>,ERROR
	GEN 52,73,ERROR
	GEN 74,75,<STOP+FTOTDX>,ERROR
	GEN 76,133,ERROR
	GEN 132,133,ERROR,<FTOTDX+STOP>
	GEN 134,177,ERROR

	SUBTTL GOTOTB
	PAGE

GOTOTB:	GEN 0,47,ERROR
	GEN 50,51,<STOP+UGOTDX>,ERROR
	GEN 52,73,ERROR
	GEN 74,75,<STOP+UTOTDX>,ERROR
	GEN 76,105,ERROR
	GEN 106,107,GOTFDX,ERROR
	GEN 110,123,ERROR,GOTSDX
	GEN 124,125,ERROR
	GEN 126,131,ERROR
	GEN 132,133,ERROR,<UTOTDX+STOP>
	GEN 134,177,ERROR

	SUBTTL GOTSTB
	PAGE

GOTSTB:	GEN 0,47,ERROR
	GEN 50,51,<STOP+SGOTDX>,ERROR
	GEN 52,73,ERROR
	GEN 74,75,<STOP+STOTDX>,ERROR
	GEN 76,131,ERROR
	GEN 132,133,ERROR,<STOTDX+STOP>
	GEN 134,177,ERROR

	SUBTTL IBLKTB
	PAGE

IBLKTB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,FRWDDX
	GEN 12,13,ERROR,FRWDDX
	GEN 14,15,FRWDDX,ERROR
	GEN 16,37,ERROR
	GEN 40,41,FRWDDX,ERROR
	GEN 42,71,ERROR
	GEN 72,73,ERROR,<STOP+EOSTDX>
	GEN 74,177,ERROR

	SUBTTL INTGTB
	PAGE

INTGTB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,<STOPSH+ILITDX>
	GEN 12,13,ERROR,<STOPSH+ILITDX>
	GEN 14,15,<STOPSH+ILITDX>,ERROR
	GEN 16,37,ERROR
	GEN 40,41,<STOPSH+ILITDX>,ERROR
	GEN 42,47,ERROR
	GEN 50,51,ERROR,<STOPSH+ILITDX>
	GEN 52,53,ERROR
	GEN 54,55,<STOPSH+ILITDX>,ERROR
	GEN 56,57,<FLIDX+FLITDX>,ERROR
	GEN 60,71,CONTIN
	GEN 72,73,ERROR,<STOPSH+ILITDX>
	GEN 74,75,ERROR
	GEN 76,77,<STOPSH+ILITDX>,ERROR
	GEN 100,133,ERROR
	GEN 134,135,ERROR,<ILITDX+STOPSH>
	GEN 136,137,ERROR

	SUBTTL LBLTB
	PAGE

LBLTB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,STOPSH
	GEN 12,13,ERROR,STOPSH
	GEN 14,15,STOPSH,ERROR
	GEN 16,37,ERROR
	GEN 40,41,STOPSH,ERROR
	GEN 42,57,ERROR
	GEN 60,71,LBLXDX
	GEN 72,73,ERROR,STOPSH
	GEN 74,77,ERROR
	GEN 100,101,ERROR,LBLXDX
	GEN 102,131,LBLXDX
	GEN 132,137,LBLXDX,ERROR
	GEN 140,141,ERROR,LBLXDX
	GEN 142,171,LBLXDX
	GEN 172,173,LBLXDX,ERROR
	GEN 174,177,ERROR

	SUBTTL LBLXTB
	PAGE

LBLXTB:	GEN 0,7,CONTIN
	GEN 10,11,CONTIN,STOPSH
	GEN 12,13,CONTIN,STOPSH
	GEN 14,15,STOPSH,CONTIN
	GEN 16,37,CONTIN
	GEN 40,41,STOPSH,CONTIN
	GEN 42,71,CONTIN
	GEN 72,73,CONTIN,STOPSH
	GEN 74,177,CONTIN

	SUBTTL NBLKTB
	PAGE

NBLKTB:	GEN 0,7,STOPSH
	GEN 10,11,STOPSH,ERROR
	GEN 12,13,STOPSH,ERROR
	GEN 14,15,ERROR,STOPSH
	GEN 16,37,STOPSH
	GEN 40,41,ERROR,STOPSH
	GEN 42,47,STOPSH
	GEN 50,51,STOPSH,ERROR
	GEN 52,53,STOPSH
	GEN 54,55,ERROR,STOPSH
	GEN 56,71,STOPSH
	GEN 72,73,STOPSH,ERROR
	GEN 74,75,STOPSH
	GEN 76,77,ERROR,STOPSH
	GEN 100,133,STOPSH
	GEN 134,135,STOPSH,ERROR
	GEN 136,177,STOPSH

	SUBTTL NUMBTB
	PAGE

NUMBTB:	GEN 0,51,ERROR
	GEN 52,53,ERROR,NUMCDX
	GEN 54,55,<STOPSH+CMATDX>,NUMCDX
	GEN 56,57,ERROR
	GEN 60,71,NUMCDX
	GEN 72,73,<STOPSH+DIMTDX>,ERROR
	GEN 74,177,ERROR

	SUBTTL NUMCTB
	PAGE

NUMCTB:	GEN 0,53,ERROR
	GEN 54,55,<STOPSH+CMATDX>,ERROR
	GEN 56,57,ERROR
	GEN 60,71,CONTIN
	GEN 72,73,<STOPSH+DIMTDX>,ERROR
	GEN 74,177,ERROR

	RELOC 0	;PUT INTO LOW SEGMENT
	SUBTTL SNABTB
	PAGE

SNABTB:	GEN 0,105,ERROR
	GEN 106,107,STOP,ERROR
	GEN 110,121,ERROR
	GEN 122,123,ERROR,STOPSH
	GEN 124,177,ERROR

	RELOC	;PUT INTO HIGH SEGMENT HEREAFTER
	SUBTTL SQLITB
	PAGE

SQLITB:	GEN 0,45,CONTIN
	GEN 46,47,CONTIN,STOP
	GEN 50,177,CONTIN

	SUBTTL STARTB
	PAGE

STARTB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,<STOP+MPYDX>
	GEN 12,13,ERROR,<STOP+MPYDX>
	GEN 14,15,<STOP+MPYDX>,ERROR
	GEN 16,37,ERROR
	GEN 40,41,<STOP+MPYDX>,ERROR
	GEN 42,51,ERROR
	GEN 52,53,<TBLKDX+EXPDX>,ERROR
	GEN 54,177,ERROR

	SUBTTL TBLKTB
	PAGE

TBLKTB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,STOP
	GEN 12,13,ERROR,STOP
	GEN 14,15,STOP,ERROR
	GEN 16,37,ERROR
	GEN 40,41,STOP,ERROR
	GEN 42,177,ERROR

	SUBTTL UNOPTB
	PAGE

UNOPTB:	GEN 0,41,ERROR
	GEN 42,43,ERROR,<PDDX+NBLKDX>
	GEN 44,45,<NBLKDX+INDDX>,<NBLKDX+PRDX>
	GEN 46,47,<NBLKDX+KEYDX>,ERROR
	GEN 50,51,ERROR
	GEN 52,53,<NBLKDX+STRDX>,<NBLKDX+PLSDX>
	GEN 54,55,ERROR,<NBLKDX+MNSDX>	;-
	GEN 56,57,<NBLKDX+DOTDX>,<NBLKDX+SLHDX>	;.  /
	GEN 60,75,ERROR
	GEN 76,77,ERROR,<NBLKDX+QUESDX>	;QUESYM
	GEN 100,101,<NBLKDX+ATDX>,ERROR
	GEN 102,133,ERROR
	GEN 134,135,<NBLKDX+NEGDX>,ERROR ;NOTSYM IS "\"
	GEN 136,137,<AROWDX+NBLKDX>,ERROR
	GEN 140,177,ERROR

	SUBTTL VARATB
	PAGE

VARATB:	GEN 0,47,ERROR
	GEN 50,51,ERROR,<STOPSH+RPTDX>
	GEN 52,53,ERROR
	GEN 54,77,<STOPSH+CMATDX>,ERROR
	GEN 100,101,ERROR,VARBDX
	GEN 102,131,VARBDX
	GEN 132,133,VARBDX,ERROR
	GEN 134,137,ERROR
	GEN 140,141,ERROR,VARBDX
	GEN 142,171,VARBDX
	GEN 172,173,VARBDX,ERROR
	GEN 174,177,ERROR

	SUBTTL VARBTB
	PAGE

VARBTB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,CONTIN
	GEN 12,13,ERROR,CONTIN
	GEN 14,15,CONTIN,ERROR
	GEN 16,37,CONTIN
	GEN 40,41,CONTIN,ERROR
	GEN 42,47,ERROR
	GEN 50,51,<STOPSH+LPTDX>,<STOPSH+RPTDX>
	GEN 52,53,ERROR
	GEN 54,55,<STOPSH+CMATDX>,ERROR
	GEN 56,57,CONTIN,ERROR
	GEN 60,71,CONTIN
	GEN 72,77,ERROR
	GEN 100,101,ERROR,CONTIN
	GEN 102,131,CONTIN
	GEN 132,133,CONTIN,ERROR
	GEN 134,135,ERROR
	GEN 136,137,ERROR,CONTIN
	GEN 140,141,ERROR,CONTIN
	GEN 142,171,CONTIN
	GEN 172,173,CONTIN,ERROR
	GEN 174,177,ERROR

	SUBTTL  VARTB
	PAGE

VARTB:	GEN 0,7,ERROR
	GEN 10,11,ERROR,<STOPSH+VARTDX>
	GEN 12,13,ERROR,<STOPSH+VARTDX>
	GEN 14,15,<STOPSH+VARTDX>,ERROR
	GEN 16,37,ERROR
	GEN 40,41,<STOPSH+VARTDX>,ERROR
	GEN 42,47,ERROR
	GEN 50,51,<STOP+FNCTDX>,<STOPSH+VARTDX>
	GEN 52,53,ERROR
	GEN 54,55,<STOPSH+VARTDX>,ERROR
	GEN 56,57,CONTIN,ERROR
	GEN 60,71,CONTIN
	GEN 72,73,ERROR,<STOPSH+VARTDX>
	GEN 74,75,<STOP+ARYTDX>,ERROR
	GEN 76,77,<STOPSH+VARTDX>,ERROR
	GEN 100,101,ERROR,CONTIN
	GEN 102,131,CONTIN
	GEN 132,133,CONTIN,<ARYTDX+STOP>
	GEN 134,135,ERROR,<VARTDX+STOPSH>
	GEN 136,137,ERROR,CONTIN
	GEN 140,141,ERROR,CONTIN
	GEN 142,171,CONTIN
	GEN 172,173,CONTIN,ERROR
	GEN 174,177,ERROR