diff options
Diffstat (limited to 'v4.0/src/INC/CASVAR.INC')
| -rw-r--r-- | v4.0/src/INC/CASVAR.INC | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/v4.0/src/INC/CASVAR.INC b/v4.0/src/INC/CASVAR.INC new file mode 100644 index 0000000..452a511 --- /dev/null +++ b/v4.0/src/INC/CASVAR.INC | |||
| @@ -0,0 +1,88 @@ | |||
| 1 | ; | ||
| 2 | ; Revised: 02-15-88 | ||
| 3 | ; | ||
| 4 | CASRM EQU 0 ;Set to zero (0) to create an | ||
| 5 | ; object module to put in the | ||
| 6 | ; CAS Library. Set to one (1) | ||
| 7 | ; to create the CAS Routine | ||
| 8 | ; Manager version of the routine. | ||
| 9 | ; | ||
| 10 | CASFAR EQU 1 ;Set to zero (0) to create an | ||
| 11 | ; object module that is called | ||
| 12 | ; as a near procedure. Set to | ||
| 13 | ; one (1) to create an object | ||
| 14 | ; module that is called as a far | ||
| 15 | ; procedure. | ||
| 16 | ; | ||
| 17 | COPYRIGHT EQU 1 ;Set to zero (0) to include | ||
| 18 | ; Copyright 1988 Microsoft | ||
| 19 | ; (1) to exclude Copyright 1988 Microsoft | ||
| 20 | ; notice. | ||
| 21 | ; | ||
| 22 | SMODE EQU 2 ;Set to one (1) for Interpertive | ||
| 23 | ; BASIC. Set to two (2) for | ||
| 24 | ; Compiled BASIC. | ||
| 25 | ; | ||
| 26 | CASINT EQU 7FH ;CAS Routine Manager interupt | ||
| 27 | ; | ||
| 28 | CASFILEID EQU 01234H ;This CAS file identification | ||
| 29 | ; is found at the beginning of all | ||
| 30 | ; CAS files in the first word | ||
| 31 | PANELOBJID EQU 0FFH ;This is the panel object | ||
| 32 | ; identification number that is | ||
| 33 | ; found inside a valid CAS file's | ||
| 34 | ; object list when panels have | ||
| 35 | ; been saved inside a file | ||
| 36 | HELPOBJID EQU 0FEH ;This is the help/error object | ||
| 37 | ; identification number that is | ||
| 38 | ; found inside a valid CAS file's | ||
| 39 | ; object list when helps have | ||
| 40 | ; been saved inside a file | ||
| 41 | COLOROBJID EQU 0FDH ;This is the color object | ||
| 42 | ; identification number that is | ||
| 43 | ; found inside a valid CAS file's | ||
| 44 | ; object list when colors have | ||
| 45 | ; been saved inside a file | ||
| 46 | INPUTOBJID EQU 0FCH ;This is the input object | ||
| 47 | ; identification number that is | ||
| 48 | ; found inside a valid CAS file's | ||
| 49 | ; object list when input fields | ||
| 50 | ; have been saved inside a file | ||
| 51 | DIALOGOBJID EQU 0FBH ;This is the dialog object | ||
| 52 | ; identification number that is | ||
| 53 | ; found inside a valid CAS file's | ||
| 54 | ; object list when dialogs have | ||
| 55 | ; been saved inside a file | ||
| 56 | SCROLLOBJID EQU 0FAH ;This is the scroll field object | ||
| 57 | ; identification number that is | ||
| 58 | ; found inside a valid CAS file's | ||
| 59 | ; object list when scroll fields | ||
| 60 | ; have been saved inside a file | ||
| 61 | TRANSOBJID EQU 0F9H ;This is the translation object | ||
| 62 | ; identification number that is | ||
| 63 | ; found inside a valid CAS file's | ||
| 64 | ; object list when a translation | ||
| 65 | ; table has been saved inside a | ||
| 66 | ; file | ||
| 67 | GRAPHOBJID EQU 0F8H ;This is the graphic field object | ||
| 68 | ; identification number that is | ||
| 69 | ; found inside a valid CAS file's | ||
| 70 | ; object list when a graphic | ||
| 71 | ; fields has been saved inside a | ||
| 72 | ; file | ||
| 73 | MENUOBJID EQU 0F7H ;This is the maintain menu object | ||
| 74 | ; identification number that is | ||
| 75 | ; found inside a valid CAS file's | ||
| 76 | ; object list when a menu table | ||
| 77 | ; has been saved inside a file | ||
| 78 | MAXNUMOBJS EQU 20 ;Maximum possible number of | ||
| 79 | ; objects types reserved in CAS | ||
| 80 | ; data files. (i.e. panel, help, | ||
| 81 | ; error, color, input objects,,,) | ||
| 82 | ; | ||
| 83 | LIBVER MACRO | ||
| 84 | DB "Version 4.0" ;CAS library version number | ||
| 85 | ENDM | ||
| 86 | ; | ||
| 87 | INCLUDE CASRN.INC ;Include the CAS routine numbers | ||
| 88 | ; | ||