compile insert GEC_CONSTANTS EQU NORMAL$ TO -11 EQU REVERSE$ TO -12 EQU HIGHLIGHT$ TO -13 EQU BLINK$ TO -14 EQU RBLINK$ TO -15 EQU ULINE$ TO -16 EQU BULINE$ TO -17 EQU DBLUE$ TO -18 EQU LBLUE$ TO -19 EQU DCYAN$ TO -20 EQU LCYAN$ TO -21 EQU DGRN$ TO -22 EQU LGRN$ TO -23 EQU DYEL$ TO -24 EQU LYEL$ TO -25 EQU DRED$ TO -26 EQU LRED$ TO -27 EQU DMAG$ TO -28 EQU LMAG$ TO -29 EQU DGREY$ TO -30 EQU LGREY$ TO -31 EQU BLACK$ TO -32 EQU WHITE$ TO -33 EQU WOB$ TO -34 EQU YOB$ TO -35 EQU WOR$ TO -36 EQU WOY$ TO -37 EQU YOR$ TO -38 EQU BOG$ TO -39 EQU DBOG$ TO -40 EQU ROG$ TO -41 EQU WOBLK$ TO -42 EQU GOBLK$ TO -43 EQU YOBLK$ TO -44 EQU BOLDON$ TO -50 EQU BOLDOFF$ TO -51 EQU ITALON$ TO -52 EQU ITALOFF$ TO -53 EQU ULINEON$ TO -54 EQU ULINEOFF$ TO -55 EQU SUBSON$ TO -56 EQU SUBSOFF$ TO -57 EQU SUPSON$ TO -58 EQU SUPSOFF$ TO -59 EQU ENHON$ TO -60 EQU ENHOFF$ TO -61 EQU WIDEON$ TO -62 EQU WIDEOFF$ TO -63 EQU PRNINIT$ TO -70 EQU PRELUDE$ TO -71 EQU ENDOFJOB$ TO -72 EQU DRIVERON$ TO -80 EQU DRIVEROFF$ TO -81 EQU VIDDRVOFF$ TO -82 EQU PRNDRVOFF$ TO -83 EQU DRIVERINIT$ TO -84 EQU FLUSHDRVINFO$ TO -85 EQU BEGINFONT1$ TO -90 EQU ENDFONT1$ TO -91 EQU BEGINFONT2$ TO -92 EQU ENDFONT2$ TO -93 EQU BEGINFONT3$ TO -94 EQU ENDFONT3$ TO -95 EQU BEGINFONT4$ TO -96 EQU ENDFONT4$ TO -97 EQU BEGINFONT5$ TO -98 EQU ENDFONT5$ TO -99 EQU BEGINFONT6$ TO -100 EQU ENDFONT6$ TO -101 EQU BEGINFONT7$ TO -102 EQU ENDFONT7$ TO -103 EQU BEGINFONT8$ TO -104 EQU ENDFONT8$ TO -105 EQU BEGINFONT9$ TO -106 EQU ENDFONT9$ TO -107 EQU BEGINFONT10$ TO -108 EQU ENDFONT10$ TO -109 EQU BEGINFONT11$ TO -110 EQU ENDFONT11$ TO -111 EQU BEGINFONT12$ TO -112 EQU ENDFONT12$ TO -113 EQU BEGINFONT13$ TO -114 EQU ENDFONT13$ TO -115 EQU BEGINFONT14$ TO -116 EQU ENDFONT14$ TO -117 EQU BEGINFONT15$ TO -118 EQU ENDFONT15$ TO -119 EQU BEGINFONT16$ TO -120 EQU ENDFONT16$ TO -121 * driver functions, defined by third byte of generic escape sequence EQU SETCOLOR$ TO \35\ EQU SETSTYLE$ TO \32\ EQU RESETSTYLE$ TO \22\ EQU PRNCTRL$ TO \10\ EQU DRVCTRL$ TO \34\ EQU BEGINFONT$ TO \31\ EQU ENDFONT$ TO \21\ * The first field in the printer definition record in the PRINTER_CONFIG file * is an mv field that is loaded with page width/height information. This * information is loaded into @LPTRWIDE/HIGH if present. EQU PRINTER_XY$ TO 1 EQU PX_VAL$ TO 2 EQU PY_VAL$ TO 1 * These equates define the field layout of the screen_table and printer_table * information that is stored in labeled common variables. * The printer definition record is "shifted up" by * PRINTER_TABLE_OFFSET$ after the PRINTER_XY$ field information is extracted. * * this is the format as it is loaded into memory by DRIVER_CONTROL. * To access fields in the PRINTER_CONFIG records, simply add * PRINTER_TABLE_OFFSET$ to the field equate * example: colors = @record EQU PRINTER_TABLE_OFFSET$ TO 1 EQU SETCOLOR_FIELD$ TO 1 EQU SETSTYLE_FIELD$ TO 2 EQU RESETSTYLE_FIELD$ TO 3 EQU PRNCTRL_FIELD$ TO 4 EQU BEGINFONT_FIELD$ TO 5 EQU ENDFONT_FIELD$ TO 6 EQU FONTNAME_FIELD$ TO 7 *-->11/01/90 rkp changed userrem_field$ from 8 to 9 to allow * charwidthtable_field$ to occupy 8. * also added PSHELL_CODES_FIELD$ and PSHELL_CMDS_FIELD$, * PSHELL_BEGIN$ and PSHELL_END$ equates. * EQU CHARWIDTHTABLE_FIELD$ TO 8 EQU USERREM_FIELD$ TO 9 EQU PSHELL_CODES_FIELD$ TO 10 EQU PSHELL_CMDS_FIELD$ TO 11 *--> 12/13/91 SLJ - add for end-of-job form feed feature EQU FORCE_FEED_FIELD$ TO 12 * 04/13/07 BZS EQU ORIENTATION$ TO 13 * 11/13/07 BZS EQU OIPI_FONT_REG$ TO 14 EQU OIPI_FONT_SIZE_REG$ TO 15 EQU OIPI_FONT_BOLD$ TO 16 EQU OIPI_FONT_SIZE_BOLD$ TO 17 * The following two equates are indexes into values for the * PSHELL_CODES_FIELD$ and PSHELL_CMDS_FIELD$ fields EQU PSHELL_BEGIN$ TO 1 EQU PSHELL_END$ TO 2 *-->11/01/90 rkp * the following equate is used to associate classes of esc codes with * an index to the field inwhich they are stored. EQU DRVINDEX$ TO \353222103121000000\ * These equates are used for referencing fields in the GEC_COMMON variable * printer_info@ EQU PINFO_PNO$ TO 1 EQU PINFO_PSTAT$ TO 2 EQU PS_SPECIAL$ TO 3 * These equates are used for building popups EQU STYLE_LITERAL$ TO "Bold,Italic,Underline,Subscript,Superscript,Enhanced,Wide" * Equate for error messages EQU NOFONT_MSG$ TO "B820" EQU NOPRNDEF$ TO "B821" EQU PRNINITERR$ TO "B822" EQU BADCOLOR$ TO "B823" EQU OPENPRINTPROC$ TO "B825" * Source Date: 13:53:13 03 MAY 1992 Build ID: AREV*2.2.5 Level: 2.2