! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF ! ! DEFINE TERMINAL SPECIAL SYMBOLS ! DECLARE LONG CONSTANT TT$C_BAUD_50 = 1 DECLARE LONG CONSTANT TT$C_BAUD_75 = 2 DECLARE LONG CONSTANT TT$C_BAUD_110 = 3 DECLARE LONG CONSTANT TT$C_BAUD_134 = 4 DECLARE LONG CONSTANT TT$C_BAUD_150 = 5 DECLARE LONG CONSTANT TT$C_BAUD_300 = 6 DECLARE LONG CONSTANT TT$C_BAUD_600 = 7 DECLARE LONG CONSTANT TT$C_BAUD_1200 = 8 DECLARE LONG CONSTANT TT$C_BAUD_1800 = 9 DECLARE LONG CONSTANT TT$C_BAUD_2000 = 10 DECLARE LONG CONSTANT TT$C_BAUD_2400 = 11 DECLARE LONG CONSTANT TT$C_BAUD_3600 = 12 DECLARE LONG CONSTANT TT$C_BAUD_4800 = 13 DECLARE LONG CONSTANT TT$C_BAUD_7200 = 14 DECLARE LONG CONSTANT TT$C_BAUD_9600 = 15 DECLARE LONG CONSTANT TT$C_BAUD_19200 = 16 DECLARE LONG CONSTANT TT$C_BAUD_38400 = 17 DECLARE LONG CONSTANT TT$C_BAUD_57600 = 18 DECLARE LONG CONSTANT TT$C_BAUD_76800 = 19 DECLARE LONG CONSTANT TT$C_BAUD_115200 = 20 ! *** MATCHES DCDEF MACRO DECLARE LONG CONSTANT TT$_UNKNOWN = 0 DECLARE LONG CONSTANT TT$_VT05 = 1 ! VT05 DECLARE LONG CONSTANT TT$_VK100 = 2 ! strange terminals DECLARE LONG CONSTANT TT$_VT173 = 3 DECLARE LONG CONSTANT TT$_TQ_BTS = 4 DECLARE LONG CONSTANT TT$_TEK401X = 10 DECLARE LONG CONSTANT TT$_FT1 = 16 ! FOREIGN TERMINAL TYPES DECLARE LONG CONSTANT TT$_FT2 = 17 ! new support also includes DECLARE LONG CONSTANT TT$_FT3 = 18 ! the negative numbers DECLARE LONG CONSTANT TT$_FT4 = 19 DECLARE LONG CONSTANT TT$_FT5 = 20 DECLARE LONG CONSTANT TT$_FT6 = 21 DECLARE LONG CONSTANT TT$_FT7 = 22 DECLARE LONG CONSTANT TT$_FT8 = 23 ! END OF FOREIGN TYPES ! RESERVE REST UP TO 32 FOR EXTENSIONS DECLARE LONG CONSTANT TT$_LAX = 32 DECLARE LONG CONSTANT TT$_LA36 = 32 DECLARE LONG CONSTANT TT$_LA120 = 33 DECLARE LONG CONSTANT TT$_LA34 = 34 DECLARE LONG CONSTANT TT$_LA38 = 35 DECLARE LONG CONSTANT TT$_LA12 = 36 DECLARE LONG CONSTANT TT$_LA100 = 37 DECLARE LONG CONSTANT TT$_LA24 = 37 DECLARE LONG CONSTANT TT$_LQP02 = 38 DECLARE LONG CONSTANT TT$_LA84 = 39 DECLARE LONG CONSTANT TT$_LA210 = 40 DECLARE LONG CONSTANT TT$_LN03 = 41 DECLARE LONG CONSTANT TT$_LN01K = 42 DECLARE LONG CONSTANT TT$_LA80 = 43 DECLARE LONG CONSTANT TT$_VT5X = 64 DECLARE LONG CONSTANT TT$_VT52 = 64 DECLARE LONG CONSTANT TT$_VT55 = 65 DECLARE LONG CONSTANT TT$_VT100 = 96 ! VT100 DECLARE LONG CONSTANT TT$_VT101 = 97 DECLARE LONG CONSTANT TT$_VT102 = 98 DECLARE LONG CONSTANT TT$_VT105 = 99 DECLARE LONG CONSTANT TT$_VT125 = 100 DECLARE LONG CONSTANT TT$_VT131 = 101 DECLARE LONG CONSTANT TT$_VT132 = 102 DECLARE LONG CONSTANT TT$_VT80 = 103 DECLARE LONG CONSTANT TT$_VT200_Series = 110 DECLARE LONG CONSTANT TT$_Pro_Series = 111 DECLARE LONG CONSTANT TT$_VT300_Series = 112 DECLARE LONG CONSTANT TT$_VT400_Series = 113 DECLARE LONG CONSTANT TT$_VT500_Series = 114 ! from 128 on is reserved for foreign terminals and must not be ! used for terminal definitions DECLARE LONG CONSTANT TT$M_PASSALL = x'00000001' DECLARE LONG CONSTANT TT$M_NOECHO = x'00000002' DECLARE LONG CONSTANT TT$M_NOTYPEAHD = x'00000004' DECLARE LONG CONSTANT TT$M_ESCAPE = x'00000008' DECLARE LONG CONSTANT TT$M_HOSTSYNC = x'00000010' DECLARE LONG CONSTANT TT$M_TTSYNC = x'00000020' DECLARE LONG CONSTANT TT$M_SCRIPT = x'00000040' DECLARE LONG CONSTANT TT$M_LOWER = x'00000080' DECLARE LONG CONSTANT TT$M_MECHTAB = x'00000100' DECLARE LONG CONSTANT TT$M_WRAP = x'00000200' DECLARE LONG CONSTANT TT$M_CRFILL = x'00000400' DECLARE LONG CONSTANT TT$M_LFFILL = x'00000800' DECLARE LONG CONSTANT TT$M_SCOPE = x'00001000' DECLARE LONG CONSTANT TT$M_REMOTE = x'00002000' DECLARE LONG CONSTANT TT$M_RESERVED = x'00004000' DECLARE LONG CONSTANT TT$M_EIGHTBIT = x'00008000' DECLARE LONG CONSTANT TT$M_MBXDSABL = x'00010000' DECLARE LONG CONSTANT TT$M_NOBRDCST = x'00020000' DECLARE LONG CONSTANT TT$M_READSYNC = x'00040000' DECLARE LONG CONSTANT TT$M_MECHFORM = x'00080000' DECLARE LONG CONSTANT TT$M_HALFDUP = x'00100000' DECLARE LONG CONSTANT TT$M_MODEM = x'00200000' DECLARE LONG CONSTANT TT$M_OPER = x'00400000' DECLARE LONG CONSTANT TT$M_PAGE = x'FF000000' DECLARE LONG CONSTANT TT$M_ALTFRAME = x'00000010' DECLARE LONG CONSTANT TT$M_ALTRPAR = x'00000020' DECLARE LONG CONSTANT TT$M_PARITY = x'00000040' DECLARE LONG CONSTANT TT$M_ODD = x'00000080' DECLARE LONG CONSTANT TT$M_TWOSTOP = x'00000100' DECLARE LONG CONSTANT TT$M_DISPARERR = x'00000200' DECLARE LONG CONSTANT TT$M_ALTDISPAR = x'00000400' DECLARE LONG CONSTANT TT$M_BREAK = x'00000800' DECLARE LONG CONSTANT TT$M_DS_DTR = x'00000002' DECLARE LONG CONSTANT TT$M_DS_SECTX = x'00000008' DECLARE LONG CONSTANT TT$M_DS_RTS = x'00000010' DECLARE LONG CONSTANT TT$M_DS_SECREC = x'00000008' DECLARE LONG CONSTANT TT$M_DS_CTS = x'00000010' DECLARE LONG CONSTANT TT$M_DS_CARRIER = x'00000020' DECLARE LONG CONSTANT TT$M_DS_RING = x'00000040' DECLARE LONG CONSTANT TT$M_DS_DSR = x'00000080' DECLARE LONG CONSTANT TT$S_TTDEF = 4 record TTDEF variant case group TT$R_TTDEF_BITS0 LONG PASSALL_bits ! COMMENT ADDED BY SDL - PASSALL_bits contains bits PASSALL through PAGE end group TT$R_TTDEF_BITS0 case group TT$R_TTDEF_BITS1 WORD FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FILL_43_ end group TT$R_TTDEF_BITS1 case group TT$R_TTDEF_BITS2 ! OUTPUT MODEM CONTROL BYTE FILL_3_bits ! COMMENT ADDED BY SDL - FILL_3_bits contains bits FILL_3 through FILL_44_ end group TT$R_TTDEF_BITS2 case group TT$R_TTDEF_BITS3 BYTE FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through DS_DSR end group TT$R_TTDEF_BITS3 end variant end record TTDEF