1 " BEGIN INCLUDE FILE gtss_prgdes_macros_.incl.alm
2 "
3 " Created: Kepner 1978
4 " Modified: Ron Barstad 82-08-09 To add .BCACH def
5 " Add qstring macro
6 " Modified: Ron Barstad 83-05-19 To add .BSCF def
7 "
8 macro BIN
9 zero 0,3
10 &end
11
12 macro CALLP
13 vfd 18/&=&1,0&0&;&1-.TPD/12+1&,6/&=1&2,1&06/0&;16/&2&,6/1
14 &end
15
16 macro EVEN
17 even
18 &end
19
20 macro EXEC
21 zero 0,2
22 &end
23
24 macro IFALSE
25 vfd 18/&2-BASNM,12/&1,6/8
26 &end
27
28 macro IFTRUE
29 vfd 18/&2-BASNM,12/&1,6/9
30 &end
31
32 macro NULL
33 null
34 &end
35
36 macro POPUP
37 zero 0,4
38 &end
39
40 macro PRGDES
41 " word 1 ss_name
42 ife 1&8,1
43 zero
44 ifend
45 ine 1&8,1
46 qstring &8
47 ifend
48 " word 2 program_size, load_size
49 zero &4,&5
50 " word 3 entry_point, parameters
51 zero &6,&11
52 " word 4 seek_address,initial_load_address
53 zero &3,&7
54 " word 5 command language offset and length
55 ine 1&9,1
56 &9&=&x1& zero &i-BASNM&&=&x2&&i&&
57 ifend
58 ife 1&9,1
59 zero
60 ifend
61 " words 6-9 statistics
62 dec 0,0,0,0
63 " word 10 BCI catalog name
64 ife 1&10,1
65 zero
66 ifend
67 ine 1&10,1
68 bci "&10",6
69 ifend
70 " word 11 library, component
71 zero &1,&2
72 " word 12 ss_name length
73 ife 1&8,1
74 zero
75 ifend
76 ine 1&8,1
77 zero ,&l8
78 ifend
79 &end
80
81 macro STFALS
82 vfd 18/&2-BASNM,12/&1,6/10
83 &end
84
85 macro STRUE
86 vfd 18/&2-BASNM,12/&1,6/11
87 &end
88
89 macro SYSTM
90 zero 0,7
91 &end
92
93 macro XCALL
94 CALLP BSED,17
95 CALLP &1
96 ife &2,BIN
97 BIN
98 ifend
99 &end
100
101 macro ZEROP
102 zero &1-BASNM
103 &end
104
105 macro qstring
106 ife &1,@
107 aci ~"~,4
108 ifend
109 ine &1,@
110 aci "&1",4
111 ifend
112 &end
113
114 ^L
115 "
116 " .LSWTH SYMBOLIC BIT POSITION DEFINITIONS.
117 "
118 equ .SW0,0
119 equ .SW1,1
120 equ .SW2,2
121 equ .SW3,3
122 equ .SW4,4
123 equ .SW5,5
124 equ .SW6,6
125 equ .SW7,7
126 equ .SW8,8
127 equ .SW9,9
128 equ .SW10,10
129 equ .SW11,11
130 equ .SW12,12
131 equ .SW13,13
132 equ .SW14,14
133 equ .SW15,15
134 equ .SW16,16
135 equ .SW17,17
136 " .LSWT2 DEFINITIONS PRESENTLY IN USE.
137 equ .SW36,36 databasic - update primitive flag.
138 equ .SW37,37 databasic - rerun primitive flag.
139 equ .SW38,38 vip terminal ucase/lcase control.
140 equ .SW39,39 vip terminal form/nform control.
141 equ .SW40,40 set by runy to invoke fortran compiler.
142 equ .SW41,41 cf processing $*$trap control.
143 equ .SW42,42 tex - term ss on any T.ERR occurrence.
144 ^L
145 " PROGRAM DESCRIPTOR PARAMETER BIT FLAGS
146 bool .BPRIV,1 PRIVILEGED SUBSYSTEM. D.2
147 bool .BMAST,2 MASTER SUBSYSTEM. D.2
148 bool .BPTCH,4 SUBSYSTEM MUST BE PATCHED WHEN LOADED. D.2
149 bool .BLUSE,10 LOW USE SUBSYSTEM # Q FILE D.2
150 bool .BCMCL,20 SUBSYSTEM USES COMMON COMMAND LIST. D.2
151 bool .BASIC,40 BASIC OR DATABASIC D.2
152 bool .BLSMC,100 SUBSYSTEM CAN READ SYSTEM MASTER CATALOG.D.2
153 bool .BEXEC,200 EXECUTE PERMISSION ALLOWED FOR FILE I/O. D.2
154 bool .BGSPC,400 SUBSYSTEM ALLOWED USE OF GET-SPECIFIC. D.2
155 bool .BNSYS,1000 SS NOT CALLABLE AT SYSTEM LEVEL. SR-H
156 bool .BTFSW,2000 SPECIAL FILE SWITCH PERM/TEMP ALLOWED. SR-H
157 bool .BHUSE,4000 HIGH USE PROGRAM FILE, #P SR-H
158 bool .BSPO,10000 SPECIAL PRODUCT OFFERING. SR-H
159 bool .BCMOV,20000 DRL T.CMOV PERMISSION SR.3/I
160 bool .BMASX,40000 DRL T.EXEC PERMISSION. SR.3/I
161 bool .BSPSZ,100000 SPECIAL SIZE REQUEST SR.3/I
162 bool .BSCF,200000 4JS3
163 bool .BCACH,400000 CACHE 4JS3
164 " END INCLUDE FILE gtss_prgdes_macros_.incl.alm