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