phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added sysprog entities

Browse Source
This commit is contained in:
Infineon\StieberD
2024-03-25 15:17:34 -07:00
parent 600a8e1f61
commit 3a6a2b6b5b
1028 changed files with 171660 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

178
SYSPROG/STPROCINS/GEC_CONSTANTS.txt Normal file
View File

@ -0,0 +1,178 @@
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