1 ; _____________________________________________
2 ; | |
3 ; | Project: APPLER |
4 ; | File: INTERFAC.INC |
5 ; | Compiler: 16-bit TASM (2.5) |
6 ; | |
7 ; | Subject: Global Data Definitions |
8 ; | |
9 ; | Author: Emil Dotchevski |
10 ; |_____________________________________________|
11
12 ;---- APPLER SEGMENTS DEFINITIONS ----------------------------------------------
13
14 Startup segment public use16
15 ends
16 Emulate segment common use16
17 ends
18 Peripher segment public use16
19 ends
20 Keyboard segment public use16
21 ends
22 SimKbd segment public use16
23 ends
24 TaskControl segment public use16
25 ends
26 CONio segment public use16
27 ends
28 Debug segment public use16
29 ends
30 FM segment public use16
31 ends
32 DM segment public use16
33 ends
34 KBDsetup segment public use16
35 ends
36 About segment public use16
37 ends
38 Help segment public use16
39 ends
40 User segment public use16
41 ends
42 Apple segment public use16
43 ends
44 Data segment stack 'stack' use16
45 ends
46
47 ;---- GLOBAL SYMBOLS -----------------------------------------------------------
48
49 Startup segment public
50 Global OldDebug :dword
51 Global OldKbd :dword
52 Global DosShell :far
53 Global QuitAppler :far
54 Global Buffer1000h :byte
55 Global Screen :word
56 Global StartupON :far
57 Global StartupOFF :far
58 Global InitData :near
59 Startup ends
60
61 Emulate segment common
62 Global DRAM_ModefyAdr :word
63 Global DRAM_ReadWrite :abs
64 Global DRAM_WriteOnly :abs
65 Global DRAM_DoNotWrite :abs
66 Global TEXT_ModefyAdr :word
67 Global TEXT_TextMode :abs
68 Global TEXT_GrMode :abs
69 Global TEXT_MixedGrMode :abs
70 Global TEXT_MixedHgrMode :abs
71 Global TEXT_NA :abs
72 Global HGR_ModefyAdr :word
73 Global HGR_HgrMode :abs
74 Global HGR_MixedMode :abs
75 Global HGR_NA :abs
76 Global PowerON :far
77 Global RESET :far
78 Global SetScrEntry :far
79 Global ChangeTEXTcolor :far
80 Global C000 :byte
81 Global C050 :byte
82 Global C080 :byte
83 Global SaveStack :word
84 Global ResetFlag :byte
85 Global AppleSP :word
86 Global AppleFlags :byte
87 Global HGRcolor :byte
88 Global Port3?4h :word
89 Global MixedHgrMode1 :near
90 Global MixedHgrMode2 :near
91 Global Synchronize :near
92 Global C0612r :near
93 Global C0645r :near
94 Global C061r :near
95 Global C062r :near
96 Global C064r :near
97 Global C065r :near
98 Global C030r :near
99 Global C020r :near
100 Global C030w :near
101 Global C020w :near
102 Global JoyButton1 :byte
103 Global JoyButton2 :byte
104 Global JoyStick :byte
105 Global synchro_push_ax :byte
106 Global DRAMSave :far
107 Global DRAMLoad :far
108 Emulate ends
109
110 Peripher segment public
111 Global SystemINIT :far
112 Global SystemTINI :far
113 Global SystemRESET :far
114 Global TimerINIT :far
115 Global TimerTINI :far
116 Global TimerReq :far
117 Global FlushBuffer :far
118 Global ReadTrack :far
119 Global FloppySave :far
120 Global FloppyLoad :far
121 Global TimerFlags :word
122 Global SectorImage :byte
123 Global SectorImageF :byte
124 Global CurrentDrive :byte
125 Global OtherDrive :byte
126 Global FLAGS :byte
127 Global BufferPTR :word
128 Global WriteCNT :word
129 Global WriteREG :byte
130 Peripher ends
131
132 Data segment stack 'stack'
133 Global C0XXRead :word
134 Global C0XXWrite :word
135 Global DRAM :byte
136 Global HGRadr :word
137 Global TEXTadr :word
138 Global TEXTchars :word
139 Global GRcolors :byte
140 Global HGRcolors :word
141 Global HGRmasks :word
142 Global HGRchars :word
143 Global HgrTextAdr :word
144 Global DACtable :byte
145 Global Bank1 :byte
146 Global Bank2 :byte
147 Data ends
148
149 Keyboard segment public
150 Global k_Table :word
151 Global k_Shifts :word
152 Global k_ScanCode :byte
153 Global k_AppleTable :word
154 Global k_DebugTable :word
155 Global k_KbdSetupTable :word
156 Global k_BufferFlag :byte
157 Global k_KeyPressed :byte
158 Global a_NormalTable :byte
159 Global a_CtrlTable :byte
160 Global a_ShiftTable :byte
161 Global a_CapsTable :byte
162 Global a_CpsShfTable :byte
163 Global a_AltTable :byte
164 Global K_KeyboardRet1 :byte
165 Global K_KeyboardRet2 :byte
166 Global K_KeyboardRet3 :byte
167 Global K_KeyboardRet4 :byte
168 Global K_SendCommand :far
169 Global K_SendData :far
170 Global K_GetData :far
171 Global SetLEDs :far
172 Global ClearBuffer :far
173 Global GetBuffer :far
174 Global k_int09 :far
175 Global get_table_ofs :far
176 Keyboard ends
177
178 SimKbd segment public
179 Global SimKbdRq :far
180 Global SimKbdClr :far
181 Global StartRecord :far
182 Global StopRecord :far
183 Global key_taken :far
184 SimKbd ends
185
186 TaskControl segment public
187 Global RETapple :far
188 Global TaskSwitch :far
189 Global CALLPowerOn :far
190 Global WaitInstrEnd :far
191 Global EnableTaskSwitch :byte
192 Global RetWhere? :byte
193 Global T_Iflags :byte
194 Global r_A :byte
195 Global r_X :byte
196 Global r_Y :byte
197 Global r_S :byte
198 Global r_P :byte
199 Global r_PC :word
200 TaskControl ends
201
202 CONio segment public
203 Global GL_Services :far
204 Global SIO_Services :far
205 Global ReadKey :far
206 Global AppleKeysOn :far
207 Global DebugKeysOn :far
208 Global ScreenSwapReq :far
209 Global GL_ParamsAdr :dword
210 Global GL_ParamsOfs :word
211 Global GL_ParamsSeg :word
212 Global SIO_ParamsAdr :dword
213 Global SIO_ParamsOfs :word
214 Global SIO_ParamsSeg :word
215 Global RK_ParamsAdr :dword
216 Global RK_ParamsOfs :word
217 Global RK_ParamsSeg :word
218 Global DKO_OldBuffFlag :byte
219 Global SwapFlag :byte
220 CONio ends
221
222 Debug segment public
223 Global DebugMainRet :far
224 Global DebugInInit :far
225 Global DebugOutInit :far
226 Global SetBreaks :far
227 Global UnsetBreaks :far
228 Global F1_or_Invalid? :byte
229 Debug ends
230
231 FM segment public
232 Global FM_MainRet :far
233 Global FMInInit :far
234 Global FMOutInit :far
235 Global FileIsLoaded :far
236 Global AddExt :far
237 Global ResetAppleII :far
238 FM ends
239
240 DM segment public
241 Global DM_MainRet :far
242 Global DMInInit :far
243 Global DMOutInit :far
244 Global OpenDiskFile :far
245 Global OpenDiskFile1 :far
246 Global OpenDiskFile2 :far
247 Global CloseDiskFile1 :far
248 Global CloseDiskFile2 :far
249 Global DMentry :far
250 DM ends
251
252 KBDsetup segment public
253 Global KBDsetupRET :far
254 Global KBDSetupInInit :far
255 Global KBDSetupOutInit :far
256 Global UpdateKeyboard :far
257 KBDsetup ends
258
259 About segment public
260 Global AboutMainRet :far
261 Global AboutInInit :far
262 Global AboutOutInit :far
263 About ends
264
265 Help segment public
266 Global HelpMainRet :far
267 Global HelpInInit :far
268 Global HelpOutInit :far
269 Help ends
270
271 Video segment at 0A000h use16
272 Video ends
273
274 ApplerVideo segment at 0B800h use16
275 ApplerVideo ends
276
277 User segment public
278 User ends
279
280 Apple segment public
281 Apple ends
282