IFNDEF REENTR, 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 ,< XWD Z,Z > IFNB ,< 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, GEN 42,43,ERROR, GEN 44,45,, GEN 46,51,ERROR GEN 52,53,STARDX, GEN 54,55,ERROR, GEN 56,57,, GEN 60,77,ERROR GEN 100,101,,ERROR GEN 102,135,ERROR GEN 136,137,,ERROR GEN 140,177,ERROR SUBTTL CARDTB PAGE CARDTB: GEN 0,37, GEN 40,41,, GEN 42,51, GEN 52,53,, GEN 54,55,, GEN 56,57,, GEN 60,71, GEN 72,73,, GEN 74,177, 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,,ERROR GEN 44,45,ERROR GEN 46,47,ERROR, GEN 50,51,,ERROR GEN 52,57,ERROR GEN 60,71, GEN 72,77,ERROR GEN 100,101,ERROR, GEN 102,131, GEN 132,133,,ERROR GEN 134,137,ERROR GEN 140,141,ERROR, GEN 142,171, GEN 172,173,,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, GEN 10,11,,CONTIN GEN 12,13,,CONTIN GEN 14,15,CONTIN, GEN 16,37, GEN 40,41,CONTIN, GEN 42,47, GEN 50,51,, GEN 52,53, GEN 54,55,, GEN 56,71, GEN 72,73,, GEN 74,75,, GEN 76,77,, GEN 100,133, GEN 134,135,, GEN 136,137,, GEN 140,177, SUBTTL GOTFTB PAGE GOTFTB: GEN 0,47,ERROR GEN 50,51,,ERROR GEN 52,73,ERROR GEN 74,75,,ERROR GEN 76,133,ERROR GEN 132,133,ERROR, GEN 134,177,ERROR SUBTTL GOTOTB PAGE GOTOTB: GEN 0,47,ERROR GEN 50,51,,ERROR GEN 52,73,ERROR GEN 74,75,,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, GEN 134,177,ERROR SUBTTL GOTSTB PAGE GOTSTB: GEN 0,47,ERROR GEN 50,51,,ERROR GEN 52,73,ERROR GEN 74,75,,ERROR GEN 76,131,ERROR GEN 132,133,ERROR, 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, GEN 74,177,ERROR SUBTTL INTGTB PAGE INTGTB: GEN 0,7,ERROR GEN 10,11,ERROR, GEN 12,13,ERROR, GEN 14,15,,ERROR GEN 16,37,ERROR GEN 40,41,,ERROR GEN 42,47,ERROR GEN 50,51,ERROR, GEN 52,53,ERROR GEN 54,55,,ERROR GEN 56,57,,ERROR GEN 60,71,CONTIN GEN 72,73,ERROR, GEN 74,75,ERROR GEN 76,77,,ERROR GEN 100,133,ERROR GEN 134,135,ERROR, 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,,NUMCDX GEN 56,57,ERROR GEN 60,71,NUMCDX GEN 72,73,,ERROR GEN 74,177,ERROR SUBTTL NUMCTB PAGE NUMCTB: GEN 0,53,ERROR GEN 54,55,,ERROR GEN 56,57,ERROR GEN 60,71,CONTIN GEN 72,73,,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, GEN 12,13,ERROR, GEN 14,15,,ERROR GEN 16,37,ERROR GEN 40,41,,ERROR GEN 42,51,ERROR GEN 52,53,,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, GEN 44,45,, GEN 46,47,,ERROR GEN 50,51,ERROR GEN 52,53,, GEN 54,55,ERROR, ;- GEN 56,57,, ;. / GEN 60,75,ERROR GEN 76,77,ERROR, ;QUESYM GEN 100,101,,ERROR GEN 102,133,ERROR GEN 134,135,,ERROR ;NOTSYM IS "\" GEN 136,137,,ERROR GEN 140,177,ERROR SUBTTL VARATB PAGE VARATB: GEN 0,47,ERROR GEN 50,51,ERROR, GEN 52,53,ERROR GEN 54,77,,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,, GEN 52,53,ERROR GEN 54,55,,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, GEN 12,13,ERROR, GEN 14,15,,ERROR GEN 16,37,ERROR GEN 40,41,,ERROR GEN 42,47,ERROR GEN 50,51,, GEN 52,53,ERROR GEN 54,55,,ERROR GEN 56,57,CONTIN,ERROR GEN 60,71,CONTIN GEN 72,73,ERROR, GEN 74,75,,ERROR GEN 76,77,,ERROR GEN 100,101,ERROR,CONTIN GEN 102,131,CONTIN GEN 132,133,CONTIN, 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