Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
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