179 lines
6.2 KiB
Plaintext
179 lines
6.2 KiB
Plaintext
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<setcolor_field$+printer_table+offset>
|
|
|
|
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
|