summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/GRAPHICS/GRLOAD.ASM
diff options
context:
space:
mode:
authorGravatar Mark Zbikowski2024-04-25 21:24:10 +0100
committerGravatar Microsoft Open Source2024-04-25 22:32:27 +0000
commit2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch)
tree80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/CMD/GRAPHICS/GRLOAD.ASM
parentMerge pull request #430 from jpbaltazar/typoptbr (diff)
downloadms-dos-main.tar.gz
ms-dos-main.tar.xz
ms-dos-main.zip
MZ is back!HEADmain
Diffstat (limited to 'v4.0/src/CMD/GRAPHICS/GRLOAD.ASM')
-rw-r--r--v4.0/src/CMD/GRAPHICS/GRLOAD.ASM840
1 files changed, 840 insertions, 0 deletions
diff --git a/v4.0/src/CMD/GRAPHICS/GRLOAD.ASM b/v4.0/src/CMD/GRAPHICS/GRLOAD.ASM
new file mode 100644
index 0000000..dd16ca4
--- /dev/null
+++ b/v4.0/src/CMD/GRAPHICS/GRLOAD.ASM
@@ -0,0 +1,840 @@
1 PAGE ,132 ;AN000;
2 TITLE DOS - GRAPHICS Command - Profile Load Modules ;AN000;
3 ;AN000;
4;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
5;; DOS - GRAPHICS Command
6;; (C) Copyright 1988 Microsoft
7;; ;AN000;
8;; File Name: GRLOAD.ASM ;AN000;
9;; ---------- ;AN000;
10;; ;AN000;
11;; Description: ;AN000;
12;; ------------ ;AN000;
13;; This file contains the modules used to load the ;AN000;
14;; GRAPHICS profile into resident memory. ;AN000;
15;; ;AN000;
16;; ************* The EGA Dynamic Save Area will be built (by ;AN000;
17;; ** NOTE ** CHAIN_INTERRUPTS in file GRINST.ASM) over top of these ;AN000;
18;; ************* modules to avoid having to relocate this save just before ;AN000;
19;; terminating. This is safe since the maximum memory used is ;AN000;
20;; 288 bytes and the profile loading modules are MUCH larger than ;AN000;
21;; this. So GRLOAD.ASM MUST be linked before GRINST.ASM and after ;AN000;
22;; GRPRINT.ASM. ;AN000;
23;; ;AN000;
24;; ;AN000;
25;; Documentation Reference: ;AN000;
26;; ------------------------ ;AN000;
27;; PLACID Functional Specifications ;AN000;
28;; OASIS High Level Design ;AN000;
29;; OASIS GRAPHICS I1 Overview ;AN000;
30;; ;AN000;
31;; Procedures Contained in This File: ;AN000;
32;; ---------------------------------- ;AN000;
33;; LOAD_PROFILE - Main module for profile loading ;AN000;
34;; ;AN000;
35;; Include Files Required: ;AN000;
36;; ----------------------- ;AN000;
37;; ?????????? - Externals for profile loading modules ;AN000;
38;; ;AN000;
39;; External Procedure References: ;AN000;
40;; ------------------------------ ;AN000;
41;; None ;AN000;
42;; ;AN000;
43;; Linkage Instructions: ;AN000;
44;; --------------------- ;AN000;
45;; Refer to GRAPHICS.ASM ;AN000;
46;; ;AN000;
47;; Change History: ;AN000;
48;; --------------- ;AN000;
49;; ;AN000;
50;; ;AN000;
51;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
52 ;; ;AN000;
53 ;; ;AN000;
54CODE SEGMENT PUBLIC 'CODE' BYTE ;; ;AN000;
55 ;; ;AN000;
56 INCLUDE STRUC.INC ;; ;AN000;
57 INCLUDE GRINST.EXT ;; Bring in external declarations ;AN000;
58 ;; for transient command processing ;AN000;
59 INCLUDE GRSHAR.STR ;; ;AN000;
60 INCLUDE GRPARSE.EXT ;; ;AN000;
61 INCLUDE GRLOAD2.EXT ;; ;AN000;
62 INCLUDE GRLOAD3.EXT ;; ;AN000;
63 INCLUDE GRMSG.EQU ;; ;AN000;
64 ;; ;AN000;
65;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
66;; ;AN000;
67;; Public Symbols ;AN000;
68;; ;AN000;
69;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
70 ;; ;AN000;
71 PUBLIC LOAD_PROFILE ;AN000;
72 PUBLIC GROW_SHARED_DATA ;AN000;
73 PUBLIC BLOCK_START ;AN000;
74 PUBLIC BLOCK_END ;AN000;
75 PUBLIC FIRST_BLOCK ;AN000;
76 PUBLIC MAX_BLOCK_END ;AN000;
77 PUBLIC GROUPS_DONE ;AN000;
78 PUBLIC STMTS_DONE ;AN000;
79 PUBLIC STMTS_DONE ;AN000;
80 PUBLIC PTD_FOUND ;AN000;
81 PUBLIC BUILD_STATE ;AN000;
82 PUBLIC STMT_ERROR ;AN000;
83 PUBLIC FILE_ERROR ;AN000;
84 PUBLIC PARSE_ERROR ;AN000;
85 PUBLIC END_OF_FILE ;AN000;
86 PUBLIC MEM_OVERFLOW ;AN000;
87 PUBLIC STMT_BUFFER ;AN000;
88 PUBLIC CUR_STMT ;AN000;
89 PUBLIC PREV_STMT ;AN000;
90 PUBLIC PRT_BOX_ERROR ;AN000;
91 ;; ;AN000;
92;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
93 ;; ;AN000;
94 ASSUME CS:CODE,DS:CODE ;; ;AN000;
95 ;; ;AN000;
96;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
97 ;; ;AN000;
98 ;; ;AN000;
99;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
100;; ;AN000;
101;; Profile Load Variables ;AN000;
102;; ;AN000;
103;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
104 ;; ;AN000;
105NO EQU 0 ;; ;AN000;
106YES EQU 1 ;; ;AN000;
107 ;; ;AN000;
108 ;; ;AN000;
109;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
110;; ;AN000;
111;; Module Name: ;AN000;
112;; LOAD_PROFILE ;AN000;
113;; ;AN000;
114;; Input Parameters: ;AN000;
115;; DS,ES,SS - points to our transient segment ;AN000;
116;; ;AN000;
117;; Output Parameters: ;AN000;
118;; Temporary Shared Data Area ;AN000;
119;; Carry flag set if errors in profile. ;AN000;
120;; ;AN000;
121;; Data Structures Referenced: ;AN000;
122;; Shared Data Area ;AN000;
123;; Profile Load Variables ;AN000;
124;; ;AN000;
125;; Description: ;AN000;
126;; Build the profile information in the Temporary Shared Data Area. ;AN000;
127;; The information will be built for the printer type parsed off ;AN000;
128;; the command line. ALL Printer Type Descriptions will be ;AN000;
129;; parsed to issue error messages and determine the maximum ;AN000;
130;; amount of resident memory required for initial load. ;AN000;
131;; The Shared Data Area begins with a fixed length section ;AN000;
132;; and then has several variable length sections. PROFILE_BUILD_PTR ;AN000;
133;; is used to build the variable length sections by serving ;AN000;
134;; as a running pointer to the sections as they are built. ;AN000;
135;; ;AN000;
136;; Register Usage: ;AN000;
137;; BP - points to beginning of Temp Shared Data ;AN000;
138;; ;AN000;
139;; Called By: ;AN000;
140;; GRAPHICS_INSTALL ;AN000;
141;; ;AN000;
142;; External Calls: ;AN000;
143;; PARSE_PRINTER, PARSE_DISPLAYMODE, PARSE_SETUP, PARSE_RESTORE ;AN000;
144;; PARSE_PRINTBOX, PARSE_GRAPHICS, PARSE_COLORSELECT, ;AN000;
145;; PARSE_COLORPRINT, GET_STATEMENT ;AN000;
146;; SYSPARSE ;AN000;
147;; ;AN000;
148;; Logic: ;AN000;
149;; IF profile path not specified THEN ;AN000;
150;; PROFILE_PATH := "GRAPHICS.PRO" /* Current directory */ ;AN000;
151;; Open profile using PROFILE_PATH ;AN000;
152;; IF error during open THEN ;AN000;
153;; PROFILE_PATH := ARG(V0) with "GRAPHICS.COM" replaced ;AN000;
154;; by "GRAPHICS.PRO" ;AN000;
155;; Open profile using PROFILE_PATH ;AN000;
156;; IF error during open THEN ;AN000;
157;; Issue "Cannot find profile" msg ;AN000;
158;; Set carry flag ;AN000;
159;; RETURN ;AN000;
160;; ENDIF ;AN000;
161;; ENDIF ;AN000;
162;; ELSE ;AN000;
163;; Open profile using specified path ;AN000;
164;; IF error during open THEN ;AN000;
165;; Issue "Cannot find profile" msg ;AN000;
166;; Set carry flag ;AN000;
167;; RETURN ;AN000;
168;; ENDIF ;AN000;
169;; ENDIF ;AN000;
170;; /* don't start building until we find our printer type*/ ;AN000;
171;; PARSE_MODE := NOBUILD ;AN000;
172;; MAX_BUILD_PTR := 0 ;AN000;
173;; CALL GROW_SHARED_DATA(PROFILE-BUILD_PTR,size of FIXED PART ;AN000;
174;; of Shared Data Area) ;AN000;
175;; WHILE (not end of file) AND (no I/O error) DO ;AN000;
176;; CALL GET_STATEMENT ;AN000;
177;; IF I/O error THEN ;AN000;
178;; Issue error message ;AN000;
179;; ELSE ;AN000;
180;; CALL SYSPARSE to parse the statement verb ;AN000;
181;; IF verb found THEN ;AN000;
182;; IF invalid verb THEN ;AN000;
183;; Issue error message ;AN000;
184;; PARSE_MODE := ERROR ;AN000;
185;; ELSE ;AN000;
186;; CASE statement verb ;AN000;
187;; PRINTER: ;AN000;
188;; CALL PARSE_PRINTER ;AN000;
189;; DISPLAYMODE: ;AN000;
190;; CALL PARSE_DISPLAYMODE ;AN000;
191;; PRINTBOX: ;AN000;
192;; CALL PARSE_PRINTBOX ;AN000;
193;; SETUP: ;AN000;
194;; CALL PARSE_SETUP ;AN000;
195;; RESTORE: ;AN000;
196;; CALL PARSE_RESTORE ;AN000;
197;; GRAPHICS: ;AN000;
198;; CALL PARSE_GRAPHICS ;AN000;
199;; COLORPRINT: ;AN000;
200;; CALL PARSE_COLORPRINT ;AN000;
201;; COLORSELECT: ;AN000;
202;; CALL PARSE_COLORSELECT ;AN000;
203;; ENDCASE ;AN000;
204;; IF error on statement THEN ;AN000;
205;; IF OVERFLOW bit set in RETURN_CODE THEN ;AN000;
206;; Issue "Insufficient memory" message ;AN000;
207;; RETURN to caller ;AN000;
208;; ELSE ;AN000;
209;; IF MISSING bit set in RETURN_CODE THEN ;AN000;
210;; Issue "required statement missing" message ;AN000;
211;; ENDIF ;AN000;
212;; IF INVALID bit set in RETURN_CODE THEN ;AN000;
213;; Issue "statement invalid" message ;AN000;
214;; ENDIF ;AN000;
215;; IF SEQUENCE bit set in RETURN_CODE THEN ;AN000;
216;; Issue "out of sequence" message ;AN000;
217;; ENDIF ;AN000;
218;; display the statement in error ;AN000;
219;; ENDIF ;AN000;
220;; PARSE_MODE := ERROR ;AN000;
221;; ENDIF ;AN000;
222;; ENDIF ;AN000;
223;; ENDIF ;AN000;
224;; ENDIF ;AN000;
225;; ENDWHILE ;AN000;
226;; ;AN000;
227;; /* Check length of last PTD */ ;AN000;
228;; IF PROFILE_BUILD_PTR > MAX_BUILD_PTR THEN ;AN000;
229;; MAX_BUILD_PTR := PROFILE_BUILD_PTR ;AN000;
230;; ENDIF ;AN000;
231;; ;AN000;
232;; /* Make sure all required statements were in previous */ ;AN000;
233;; /* Printer Type Description */ ;AN000;
234;; /* Must have completed PRINTER, DISPLAYMODE, PRINTBOX and */ ;AN000;
235;; /* GRAPHICS statements */ ;AN000;
236;; IF PRT+DISP+BOX+GR bits not all set in STMTS_DONE THEN ;AN000;
237;; Issue "required statement missing" message ;AN000;
238;; Display "END OF FILE." ;AN000;
239;; ENDIF ;AN000;
240;; ;AN000;
241;; IF errors during build THEN ;AN000;
242;; set carry flag ;AN000;
243;; ELSE ;AN000;
244;; SD_TOTAL_SIZE := MAX_BUILD_PTR - TEMP_SHARED_DATA_PTR ;AN000;
245;; ENDIF ;AN000;
246;; RETURN ;AN000;
247;; ;AN000;
248;; ;AN000;
249;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
250 ;; ;AN000;
251FILE_NOT_FOUND EQU 2 ;; DOS Int21H error codes ;AN000;
252PATH_NOT_FOUND EQU 3 ;; ;AN000;
253 ;; ;AN000;
254SUBLIST LABEL BYTE ;; Message substituion list for stmt # ;AN000;
255 DB 11 ;; sublist size ;AN000;
256 DB 0 ;; ;AN000;
257 DW STMT_NUM ;; \ Dword pointer to item ;AN000;
258SUBLIST_SEG DW ? ;; / ;AN000;
259 DB 1 ;; Substitution # ;AN000;
260;; Flag format a0sstttt ;; ;AN000;
261 DB 00100001B ;; Unsigned binary word - left align ;AN000;
262;;;; DB 00000000B ;; charcater ;AN000;
263 DB 0 ;; max field width ;AN000;
264 DB 1 ;; min width width ;AN000;
265 DB ' ' ;; pad characeter ;AN000;
266 ;; ;AN000;
267STMT_NUM DW 0 ;; ;AN000;
268 ;; ;AN000;
269 ;; ;AN000;
270FILE_ERROR DB 0 ;; Error opening or reading PROFILE ;AN000;
271PARSE_ERROR DB 0 ;; Syntax errors in PROFILE ;AN000;
272END_OF_FILE DB 0 ;; 1 if end of file ;AN000;
273MEM_OVERFLOW DB 0 ;; 1 if insufficient memory ;AN000;
274 ;; ;AN000;
275STMT_ERROR DB 0 ;; Error flag for individual stmt errors ;AN000;
276MISSING EQU 1 ;; Required statement missing ;AN000;
277INVALID EQU 2 ;; Invalid statement format ;AN000;
278SEQUENCE EQU 4 ;; Statement out of sequence ;AN000;
279 ;; ;AN000;
280DEFAULT_PATH DB "GRAPHICS.PRO",0 ;; ;AN000;
281BUFFER DB 64 DUP("$") ;; ;AN000;
282 ;; ;AN000;
283HANDLE DW 0 ;; Profile handle ;AN000;
284 ;; ;AN000;
285BUILD_STATE DB 0 ;; 1 if we are currently building ;AN000;
286 ;; data. 0 means syntax checking ;AN000;
287 ;; only ;AN000;
288 ;; ;AN000;
289 ;; Keep track of whether this PTD ;AN000;
290 ;; matches the type requested ;AN000;
291PTD_FOUND DB 0 ;; Values are NO (0), YES (1) and ;AN000;
292PROCESSED EQU 2 ;; PROCESSED (2) ;AN000;
293 ;; ;AN000;
294VERB DB 0 ;; PTR into VERB_JMP_TAB ;AN000;
295 ;; ;AN000;
296VERB_JMP_TAB LABEL WORD ;; ;AN000;
297 DW OFFSET PARSE_PRINTER ;; ;AN000;
298 DW OFFSET PARSE_DISPLAYMODE ;; ;AN000;
299 DW OFFSET PARSE_PRINTBOX ;; ;AN000;
300 DW OFFSET PARSE_SETUP ;; ;AN000;
301 DW OFFSET PARSE_RESTORE ;; ;AN000;
302 DW OFFSET PARSE_GRAPHICS ;; ;AN000;
303 DW OFFSET PARSE_COLORPRINT ;; ;AN000;
304 DW OFFSET PARSE_COLORSELECT ;; ;AN000;
305 DW OFFSET PARSE_DARKADJUST ;; ;AN000;
306 ;; ;AN000;
307STMTS_DONE DW 0 ;; ;AN000;
308GROUPS_DONE DW 0 ;; ;AN000;
309PREV_STMT DW 0 ;; ;AN000;
310CUR_STMT DW 0 ;; ;AN000;
311 ;; ;AN000;
312PRT EQU 1 ;; Bit masks for STMTS_DONE and ;AN000;
313DISP EQU 2 ;; GROUPS_DONE. There is one ;AN000;
314BOX EQU 4 ;; bit for each statement except ;AN000;
315GR EQU 8 ;; DARKADJUST ;AN000;
316SET EQU 10H ;; ;AN000;
317REST EQU 20H ;; ;AN000;
318COLS EQU 40H ;; ;AN000;
319COLP EQU 80H ;; ;AN000;
320DARK EQU 100H ;; ;AN000;
321 ;; ;AN000;
322BLOCK_START DW ? ;; Extents of the variable size block ;AN000;
323BLOCK_END DW ? ;; currently being built ;AN000;
324 ;; These are relative to the ;AN000;
325 ;; start of the Shared Data Area ;AN000;
326 ;; so the area can be relocated ;AN000;
327MAX_BLOCK_END DW 0 ;; End of largest PTD contained ;AN000;
328 ;; in profile ;AN000;
329FIRST_BLOCK DW ? ;; Pointer to first variable block ;AN000;
330 ;; (end of fixed part) ;AN000;
331PRT_BOX_ERROR DB 0 ;; ;AN000;
332 ;; ;AN000;
333LOAD_PROFILE PROC NEAR ;; ;AN000;
334 ;; ;AN000;
335 PUSH CS ;; ;AN000;
336 POP SUBLIST_SEG ;; setup segment for message sublist ;AN000;
337 ;; ;AN000;
338 CALL OPEN_FILE ;; ;AN000;
339 .IF <FILE_ERROR EQ YES> ;; Check for error during open ;AN000;
340 STC ;; ;AN000;
341 RET ;; ;AN000;
342 .ENDIF ;; ;AN000;
343 ;; ;AN000;
344 MOV BP,TEMP_SHARED_DATA_PTR ;; BP points to START of Shared Data ;AN000;
345 MOV AX,SIZE SHARED_DATA_AREA_STR ;; size of fixed part of Shared Data ;AN000;
346 MOV BLOCK_END,0 ;; Initialize BLOCK_START,BLOCK_END ;AN000;
347 MOV [BP].DARKADJUST_VALUE,0 ;; Init some values in the fixed ;AN000;
348 MOV [BP].NUM_PRT_COLOR,0 ;; area ;AN000;
349 MOV [BP].COLORPRINT_PTR,-1 ;; ;AN000;
350 MOV [BP].NUM_PRT_BANDS,0 ;; ;AN000;
351 MOV [BP].COLORSELECT_PTR,-1 ;; ;AN000;
352 MOV [BP].PRINTER_TYPE,BLACK_WHITE ;; ;AN000;
353 CALL GROW_SHARED_DATA ;; to the first byte after the ;AN000;
354 ;; fixed part of Shared Data ;AN000;
355 MOV AX,BLOCK_END ;; Variable size data will be built ;AN000;
356 MOV BLOCK_START,AX ;; starting at BLOCK_START ;AN000;
357 MOV FIRST_BLOCK,AX ;; Save start of variable data ;AN000;
358 ;; ;AN000;
359 MOV SI,BUFFER_PTR ;; Set up SI for GET_BYTE ;AN000;
360 CALL GET_BYTE ;; Get first byte from file ;AN000;
361 MOV NEXT_BYTE,AL ;; and store it ;AN000;
362 MOV BUFFER_PTR,SI ;; Save SI for next GET_BYTE ;AN000;
363 .WHILE <END_OF_FILE EQ NO> AND ;; Keep parsing until end of file or ;AN000;
364 .WHILE <FILE_ERROR EQ NO> ;; file error occurs ;AN000;
365 MOV STMT_ERROR,0 ;; Clear parse error flags ;AN000;
366 CALL GET_STATEMENT ;; Get next profile statement ;AN000;
367 INC STMT_NUM ;; ;AN000;
368 .IF NC ;; Carry flag set if get unsuccessful ;AN000;
369 CALL PARSE_VERB ;; Index into verb jump table returned ;AN000;
370 ;; in BX ;AN000;
371 .IF <AX EQ 0> THEN ;; AX=0 if there is a recognized ;AN000;
372 MOV AX,CUR_STMT ;; ;AN000;
373 MOV PREV_STMT,AX ;; Save last statement verb ;AN000;
374 CALL VERB_JMP_TAB[BX] ;; statement to parse ;AN000;
375 .ELSEIF <AX NE -1> THEN ;; ;AN000;
376 OR STMT_ERROR,INVALID ;; ;AN000;
377 MOV PARSE_ERROR,YES ;; ;AN000;
378 MOV BUILD_STATE,NO ;; ;AN000;
379 .ENDIF ;; ;AN000;
380 .IF <STMT_ERROR NE 0> ;; An error was detected ;AN000;
381 CALL SHOW_PARSE_ERROR ;; ;AN000;
382 MOV PARSE_ERROR,YES ;; ;AN000;
383 MOV STMT_ERROR,0 ;; ;AN000;
384 .ENDIF ;; ;AN000;
385 .ENDIF ;; ;AN000;
386 .ENDWHILE ;; ;AN000;
387 ;; ;AN000;
388 .IF <BIT STMTS_DONE AND PRT> ;; Must have at least one PRINTER ;AN000;
389 CALL TERMINATE_DISPLAYMODE ;; Terminate the last PRINTER and ;AN000;
390 CALL TERMINATE_PRINTER ;; DISPLAYMODE sections ;AN000;
391 .ELSE ;; ;AN000;
392 OR STMT_ERROR,MISSING ;; ;AN000;
393 .ENDIF ;; ;AN000;
394 .IF <STMT_ERROR NE 0> ;; ;AN000;
395 CALL SHOW_PARSE_ERROR ;; Issue Profile syntax messages ;AN000;
396 .ENDIF ;; ;AN000;
397 ;; ;AN000;
398 ;; ;AN000;
399 MOV AX,3E00H ;; Close the file ;AN000;
400 MOV BX,HANDLE ;; ;AN000;
401 INT 21H ;; ;AN000;
402 ;; ;AN000;
403 .IF <PARSE_ERROR EQ YES> ;; ;AN000;
404 MOV AX,SYNTAX_ERRORS ;; Issue "Syntax errors found in ;AN000;
405 MOV CX,0 ;; profile" message. ;AN000;
406 CALL DISP_ERROR ;; ;AN000;
407 .ENDIF ;; ;AN000;
408 ;; ;AN000;
409 .IF <PTD_FOUND EQ NO> ;; Did we find the requested printer ;AN000;
410 MOV AX,INVALID_PRT ;; type? If not issue error ;AN000;
411 MOV CX,0 ;; message. ;AN000;
412 CALL DISP_ERROR ;; ;AN000;
413 MOV PARSE_ERROR,YES ;; ;AN000;
414 .ENDIF ;; ;AN000;
415 ;; ;AN000;
416 .IF <PARSE_ERROR EQ YES> OR ;; ;AN000;
417 .IF <PRT_BOX_ERROR EQ YES> OR ;; ;AN000;
418 .IF <FILE_ERROR EQ YES> ;; Set carry flag if profile load ;AN000;
419 STC ;; was unsuccessful ;AN000;
420 .ELSE ;; ;AN000;
421 .IF <MEM_OVERFLOW EQ YES> ;; Everthing else was OK BUT we ran ;AN000;
422 .IF <INSTALLED EQ YES> ;; out of memory!!! ;AN000;
423 MOV AX,NB_FREE_BYTES ;; ;AN000;
424 .IF <AX LT RESIDENT_SHARED_DATA_SIZE> ;AN000;
425 MOV AX,NO_MEMORY ;; We ran out of physical memory! ;AN000;
426 .ELSE ;; ;AN000;
427 MOV AX,UNABLE_RELOAD ;; Allocated shared data is too small ;AN000;
428 .ENDIF ;; ;AN000;
429 .ELSE ;; ;AN000;
430 MOV AX,NO_MEMORY ;; We ran out of physical memory ;AN000;
431 .ENDIF ;; ;AN000;
432 MOV CX,0 ;; ;AN000;
433 CALL DISP_ERROR ;; ;AN000;
434 STC ;; Indicate unsuccessful ;AN000;
435 .ELSE ;; ;AN000;
436 MOV AX,MAX_BLOCK_END ;; Extent of largest PRINTER section ;AN000;
437 MOV [BP].SD_TOTAL_SIZE,AX ;; we parsed. ;AN000;
438 CLC ;; SUCCESSFUL LOAD!!!! ;AN000;
439 .ENDIF ;; ;AN000;
440 .ENDIF ;; ;AN000;
441 ;; ;AN000;
442 RET ;; ;AN000;
443 ;; ;AN000;
444LOAD_PROFILE ENDP ;; ;AN000;
445 ;; ;AN000;
446;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
447;; ;AN000;
448;; Module Name: ;AN000;
449;; SHOW_PARSE_ERROR ;AN000;
450;; ;AN000;
451;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
452 ;; ;AN000;
453CARRAIGE_RET EQU 13 ;; ;AN000;
454LINE_FEED EQU 10 ;; ;AN000;
455 ;; ;AN000;
456SHOW_PARSE_ERROR PROC ;; ;AN000;
457 ;; ;AN000;
458 MOV ERROR_DEVICE,STDOUT ;; profile syntax messages to STDOUT ;AN000;
459 ;; ;AN000;
460 .IF <BIT STMT_ERROR AND MISSING> ;AN000;
461 PUSH SI ;; ;AN000;
462 MOV AX,MISSING_STMT ;; ;AN000;
463 MOV CX,1 ;; ;AN000;
464 MOV SI,OFFSET SUBLIST ;; ;AN000;
465 CALL DISP_ERROR ;; ;AN000;
466 POP SI ;; ;AN000;
467 .ENDIF ;; ;AN000;
468 .IF <BIT STMT_ERROR AND INVALID> ;AN000;
469 PUSH SI ;; ;AN000;
470 MOV AX,INVALID_STMT ;; ;AN000;
471 MOV CX,1 ;AN000;
472 MOV SI,OFFSET SUBLIST ;; ;AN000;
473 CALL DISP_ERROR ;; ;AN000;
474 POP SI ;; ;AN000;
475 .ENDIF ;; ;AN000;
476 .IF <BIT STMT_ERROR AND SEQUENCE> ;AN000;
477 PUSH SI ;; ;AN000;
478 MOV AX,OUT_SEQ_STMT ;; ;AN000;
479 MOV CX,1 ;AN000;
480 MOV SI,OFFSET SUBLIST ;; ;AN000;
481 CALL DISP_ERROR ;; ;AN000;
482 POP SI ;; ;AN000;
483 .ENDIF ;; ;AN000;
484 ;; ;AN000;
485 MOV DI,STMT_END_INDEX ;; ;AN000;
486 MOV STMT_BUFFER[DI],'$' ;; For display ;AN000;
487 MOV AH,9 ;; ;AN000;
488 MOV DX,OFFSET STMT_BUFFER ;AN000;
489 INT 21H ;; ;AN000;
490 MOV DL,CARRIAGE_RET ;; ;AN000;
491 MOV AH,2 ;; ;AN000;
492 INT 21H ;; ;AN000;
493 MOV DL,LINE_FEED ;; ;AN000;
494 MOV AH,2 ;; ;AN000;
495 INT 21H ;; ;AN000;
496 ;; ;AN000;
497 MOV ERROR_DEVICE,STDERR ;; reset to STDERR ;AN000;
498 ;; ;AN000;
499 RET ;; ;AN000;
500 ;; ;AN000;
501SHOW_PARSE_ERROR ENDP ;; ;AN000;
502 ;; ;AN000;
503 ;; ;AN000;
504;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
505;; ;AN000;
506;; Module Name: ;AN000;
507;; OPEN_FILE ;AN000;
508;; ;AN000;
509;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
510 ;; ;AN000;
511 ;; ;AN000;
512OPEN_FILE PROC NEAR ;; ;AN000;
513 ;; ;AN000;
514 .IF <PROFILE_PATH NE 0> ;; If a path was specified then ;AN000;
515 MOV DX,OFFSET PROFILE_PATH ;; try and open it ;AN000;
516 MOV AX,3D00H ;; ;AN000;
517 INT 21H ;; Open it ;AN000;
518 .IF C ;; Open error if carry flag set ;AN000;
519 .IF <AX EQ FILE_NOT_FOUND> OR ;; Check for error other than ;AN000;
520 .IF <AX EQ PATH_NOT_FOUND> ;; file not found ;AN000;
521 MOV AX,PROFILE_NOT_FOUND ;; ;AN000;
522 MOV CX,0 ;; ;AN000;
523 CALL DISP_ERROR ;; Issue "File not found" common msg ;AN000;
524 MOV FILE_ERROR,YES ;; ;AN000;
525 .ELSE ;; ;AN000;
526 CALL FILE_ERROR_PROC ;; Issue "Open error" ;AN000;
527 .ENDIF ;; ;AN000;
528 .ELSE ;; ;AN000;
529 MOV HANDLE,AX ;; ;AN000;
530 .ENDIF ;; File opened OK ;AN000;
531 .ELSE ;; No path parameter ;AN000;
532 MOV DX,OFFSET DEFAULT_PATH ;; Try and open "GRAPHICS.PRO" ;AN000;
533 MOV AX,3D00H ;; ;AN000;
534 INT 21H ;; Open it ;AN000;
535 .IF C ;; Open error if carry flag set ;AN000;
536 .IF <AX EQ FILE_NOT_FOUND> OR ;; Check for file not found error ;AN000;
537 .IF <AX EQ PATH_NOT_FOUND> ;; ;AN000;
538 CALL COPY_ARGV0 ;; ;AN000;
539 MOV DX,OFFSET PROFILE_PATH ;; Try and open "GRAPHICS.PRO" in ;AN000;
540 MOV AX,3D00H ;; ARGV0 directory ;AN000;
541 INT 21H ;; ;AN000;
542 .IF C ;; Issue "File not found" common msg ;AN000;
543 .IF <AX EQ FILE_NOT_FOUND> OR ;AN000;
544 .IF <AX EQ PATH_NOT_FOUND> ;AN000;
545 MOV AX,PROFILE_NOT_FOUND ;; ;AN000;
546 MOV CX,0 ;; ;AN000;
547 CALL DISP_ERROR ;; Issue "File not found"common MSG;AN000;
548 MOV FILE_ERROR,YES ;; ;AN000;
549 .ELSE ;; ;AN000;
550 CALL FILE_ERROR_PROC ;; Issue "Open error" ;AN000;
551 .ENDIF ;; ;AN000;
552 .ELSE ;; ;AN000;
553 MOV HANDLE,AX ;; ;AN000;
554 .ENDIF ;; File opened OK ;AN000;
555 .ELSE ;; ;AN000;
556 CALL FILE_ERROR_PROC ;; Issue "Open error" ;AN000;
557 .ENDIF ;; ;AN000;
558 .ELSE ;; ;AN000;
559 MOV HANDLE,AX ;; ;AN000;
560 .ENDIF ;; ;AN000;
561 .ENDIF ;; ;AN000;
562 ;; ;AN000;
563 RET ;; ;AN000;
564OPEN_FILE ENDP ;; ;AN000;
565 ;; ;AN000;
566;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
567;; ;AN000;
568;; Module Name: ;AN000;
569;; COPY_ARGV0 ;AN000;
570;; ;AN000;
571;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
572 ;; ;AN000;
573 ;; ;AN000;
574COPY_ARGV0 PROC ;; ;AN000;
575 ;; ;AN000;
576 PUSH ES ;; ;AN000;
577 PUSH DI ;; ;AN000;
578 PUSH SI ;; ;AN000;
579 ;; ;AN000;
580 MOV DI,2CH ;; Locate environment string ;AN000;
581 MOV ES,[DI] ;; ;AN000;
582 XOR SI,SI ;; ;AN000;
583 .WHILE <<WORD PTR ES:[SI]> NE 0> ;; ;AN000;
584 INC SI ;; ;AN000;
585 .ENDWHILE ;; ;AN000;
586 ADD SI,4 ;; ;AN000;
587 LEA DI,PROFILE_PATH ;; Move string to work area ;AN000;
588 .REPEAT ;; ;AN000;
589 MOV AL,ES:[SI] ;; ;AN000;
590 MOV [DI],AL ;; ;AN000;
591 INC SI ;; ;AN000;
592 INC DI ;; ;AN000;
593 .UNTIL <<BYTE PTR ES:[SI]> EQ 0> ;; ;AN000;
594 MOV BYTE PTR [DI],0 ;; ;AN000;
595 MOV BYTE PTR [DI]-3,"P" ;; Change COM to PRO ;AN000;
596 MOV BYTE PTR [DI]-2,"R" ;; ;AN000;
597 MOV BYTE PTR [DI]-1,"O" ;; ;AN000;
598 ;; ;AN000;
599 POP SI ;; ;AN000;
600 POP DI ;; ;AN000;
601 POP ES ;; ;AN000;
602 RET ;; ;AN000;
603 ;; ;AN000;
604COPY_ARGV0 ENDP ;; ;AN000;
605 ;; ;AN000;
606;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
607;; ;AN000;
608;; Module Name: ;AN000;
609;; FILE_ERROR_PROC ;AN000;
610;; ;AN000;
611;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
612 ;; ;AN000;
613 ;; ;AN000;
614FILE_ERROR_PROC PROC ;; ;AN000;
615 MOV AX,FILE_ERRORS ;; ;AN000;
616 MOV CX,0 ;; ;AN000;
617 CALL DISP_ERROR ;; ;AN000;
618 MOV FILE_ERROR,YES ;; ;AN000;
619 RET ;; ;AN000;
620FILE_ERROR_PROC ENDP ;; ;AN000;
621 ;; ;AN000;
622;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
623;; ;AN000;
624;; Module Name: ;AN000;
625;; GET_STATEMENT ;AN000;
626;; ;AN000;
627;; Input Parameters: ;AN000;
628;; NONE ;AN000;
629;; ;AN000;
630;; Output Parameters: ;AN000;
631;; PROFILE_LINE ;AN000;
632;; RETURN CODE : 0 - successfull read ;AN000;
633;; : 1 - end of file ;AN000;
634;; : 2 - error during read ;AN000;
635;; ;AN000;
636;; ;AN000;
637;; Data Structures Referenced: ;AN000;
638;; ;AN000;
639;; Description: ;AN000;
640;; Get a statement from the profile. ;AN000;
641;; The file read in 512 byte buffers and parsed into ;AN000;
642;; lines by the presence of a carriage return at the end of each line. ;AN000;
643;; ;AN000;
644;; Called By: ;AN000;
645;; LOAD_PROFILE ;AN000;
646;; ;AN000;
647;; External Calls: ;AN000;
648;; NONE ;AN000;
649;; ;AN000;
650;; Logic: ;AN000;
651;; FOUND := FALSE ;AN000;
652;; RETURN_CODE := 0 ;AN000;
653;; WHILE NOT FOUND DO ;AN000;
654;; IF end of buffer THEN ;AN000;
655;; Read next profile record into buffer ;AN000;
656;; IF successful read THEN ;AN000;
657;; point to first byte in buffer ;AN000;
658;; ELSE ;AN000;
659;; IF end of file THEN ;AN000;
660;; Close profile ;AN000;
661;; RETURN_CODE := 1 ;AN000;
662;; FOUND := TRUE ;AN000;
663;; ELSE ;AN000;
664;; RETURN_CODE := 2 ;AN000;
665;; FOUND := TRUE ;AN000;
666;; ENDIF ;AN000;
667;; ENDIF ;AN000;
668;; ENDIF ;AN000;
669;; copy byte to PROFILE_LINE ;AN000;
670;; IF byte in buffer is a CR THEN ;AN000;
671;; FOUND := TRUE ;AN000;
672;; ENDIF ;AN000;
673;; ENDWHILE ;AN000;
674;; RETURN ;AN000;
675;; ;AN000;
676;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
677 ;; ;AN000;
678FOUND DB 0 ;; ;AN000;
679 ;; ;AN000;
680CARRIAGE_RET EQU 13 ;; ;AN000;
681LINE_FEED EQU 10 ;; ;AN000;
682NEXT_BYTE DB 0 ;; Save area for byte just read ;AN000;
683BUFFER_SIZE EQU 512 ;; ;AN000;
684FILE_BUFFER DB 512 DUP(0) ;; ;AN000;
685BUFFER_PTR DW 512 ;; ;AN000;
686BUFFER_END DW 512 ;; ;AN000;
687STMT_BUFFER DB 255 DUP(0) ;; ;AN000;
688 DB ? ;; In case we have to insert a CR ;AN000;
689 DB ? ;; and a LF ;AN000;
690 DB ? ;; Too put the "$" for displaying the ;AN000;
691 ;; line. ;AN000;
692 ;; ;AN000;
693STMT_END_INDEX DW ? ;; ;AN000;
694MAX_STMT_LEN EQU 255 ;; ;AN000;
695CR_FOUND DB 0 ;; 1 if we found a line terminator ;AN000;
696 ;; ;AN000;
697GET_STATEMENT PROC ;; ;AN000;
698 ;; ;AN000;
699 MOV FOUND,NO ;; ;AN000;
700 MOV STMT_ERROR,0 ;; Clear error flags ;AN000;
701 XOR DI,DI ;; Index for extracted statement ;AN000;
702 MOV SI,BUFFER_PTR ;; Init file buffer ptr ;AN000;
703 ;; ;AN000;
704 MOV AL,NEXT_BYTE ;; Restore current byte ;AN000;
705 MOV CR_FOUND,NO ;; ;AN000;
706 ;; ;AN000;
707 ;; ;AN000;
708 .WHILE <FOUND EQ NO> AND ;; Keep parsing until we find a stmt ;AN000;
709 .WHILE <FILE_ERROR EQ NO> AND ;; or a file error occurs ;AN000;
710 .WHILE <END_OF_FILE EQ NO> ;; or we reach end of file ;AN000;
711 .IF <CR_FOUND EQ YES> ;; ;AN000;
712 .IF <AL EQ LINE_FEED> ;; Return the line feed as well ;AN000;
713 .IF <DI NA MAX_STMT_LEN> ;; Truncate lines longer than MAX ;AN000;
714 MOV STMT_BUFFER[DI],AL ;; MOVE TO statement buffer ;AN000;
715 INC DI ;; Point to next byte in file buffr ;AN000;
716 .ELSE ;; ;AN000;
717 OR STMT_ERROR,INVALID ;; Line has been truncated > ERROR ;AN000;
718 MOV PARSE_ERROR,YES ;; ;AN000;
719 MOV BUILD_STATE,NO ;; ;AN000;
720 .ENDIF ;; ;AN000;
721 CALL GET_BYTE ;; Get the first byte of next statement ;AN000;
722 .ENDIF ;; ;AN000;
723 MOV FOUND,YES ;; Time to leave this WHILE ;AN000;
724 MOV NEXT_BYTE,AL ;; Save the byte we just read ;AN000;
725 .ELSE ;; ;AN000;
726 .IF <DI NA MAX_STMT_LEN> ;; Truncate lines longer than MAX ;AN000;
727 MOV STMT_BUFFER[DI],AL ;; move byte to statement buffer ;AN000;
728 INC DI ;; Point to next byte in file buffer ;AN000;
729 .ELSE ;; ;AN000;
730 OR STMT_ERROR,INVALID ;; Line has been truncated > ERROR ;AN000;
731 MOV PARSE_ERROR,YES ;; ;AN000;
732 MOV BUILD_STATE,NO ;; ;AN000;
733 .ENDIF ;; ;AN000;
734 .IF <AL EQ CARRIAGE_RET> ;; Found a line terminator ;AN000;
735 MOV CR_FOUND,YES ;; Indicate carriage return found ;AN000;
736 .ENDIF ;; and go through once more to ;AN000;
737 CALL GET_BYTE ;; check for a line feed ;AN000;
738 .ENDIF ;; ;AN000;
739 .ENDWHILE ;; ;AN000;
740 ;; ;AN000;
741 .IF <STMT_BUFFER[DI-1] NE CARRIAGE_RET> AND ;; ;AN000;
742 .IF <STMT_BUFFER[DI-1] NE LINE_FEED> ;; ;AN000;
743 MOV STMT_BUFFER[DI],CARRIAGE_RET ;; ;AN000;
744 MOV STMT_BUFFER[DI+1],LINE_FEED ;; ;AN000;
745 INC DI ;; ;AN000;
746 INC DI ;; ;AN000;
747 .ENDIF ;; ;AN000;
748 MOV STMT_END_INDEX,DI ;; ;AN000;
749 MOV BUFFER_PTR,SI ;; Save buffer ptr for next time ;AN000;
750 ;; ;AN000;
751 .IF <END_OF_FILE EQ YES> ;; ;AN000;
752 .IF <DI EQ 0> ;; Clear carry if we read something ;AN000;
753 STC ;; and no file error occured otherwise ;AN000;
754 .ELSE ;; set carry indicating unsuccessful ;AN000;
755 CLC ;; get. ;AN000;
756 .ENDIF ;; ;AN000;
757 .ELSE ;; ;AN000;
758 .IF <FILE_ERROR EQ YES> ;; ;AN000;
759 STC ;; ;AN000;
760 .ELSE ;; ;AN000;
761 CLC ;; ;AN000;
762 .ENDIF ;; ;AN000;
763 .ENDIF ;; ;AN000;
764 RET ;; ;AN000;
765 ;; ;AN000;
766GET_STATEMENT ENDP ;; ;AN000;
767 ;; ;AN000;
768 ;; ;AN000;
769;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
770;; ;AN000;
771;; Module Name: ;AN000;
772;; GET_BYTE ;AN000;
773;; ;AN000;
774;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
775 ;; ;AN000;
776GET_BYTE PROC ;; ;AN000;
777 ;; ;AN000;
778 .IF <SI EQ BUFFER_END> ;; If buffer empty do another read ;AN000;
779 MOV AH,3FH ;; ;AN000;
780 MOV DX,OFFSET FILE_BUFFER ;; ;AN000;
781 MOV CX,BUFFER_SIZE ;; ;AN000;
782 MOV BX,HANDLE ;; ;AN000;
783 INT 21H ;; ;AN000;
784 .IF C ;; Carry set by DOS if file error ;AN000;
785 CALL FILE_ERROR_PROC ;; ;AN000;
786 .ELSE ;; ;AN000;
787 .IF <AX EQ 0> ;; End of file if AX=0 ;AN000;
788 MOV END_OF_FILE,YES ;; ;AN000;
789 MOV AH,3EH ;; Close the file ;AN000;
790 MOV BX,HANDLE ;; ;AN000;
791 INT 21H ;; ;AN000;
792 .ELSE ;; ;AN000;
793 MOV BUFFER_END,AX ;; Number of bytes read ;AN000;
794 XOR SI,SI ;; Buffer pointer := 0 ;AN000;
795 .ENDIF ;; ;AN000;
796 .ENDIF ;; ;AN000;
797 .ENDIF ;; ;AN000;
798 ;; ;AN000;
799 .IF <FILE_ERROR EQ YES> OR ;; ;AN000;
800 .IF <END_OF_FILE EQ YES> ;; ;AN000;
801 STC ;; Unsuccessful get ;AN000;
802 .ELSE ;; ;AN000;
803 .IF <<FILE_BUFFER[SI]> EQ 1AH> ;; cHECK for EOF marker ;AN000;
804 MOV END_OF_FILE,YES ;; ;AN000;
805 STC ;; ;AN000;
806 .ELSE ;; ;AN000;
807 MOV AL,FILE_BUFFER[SI] ;; Return byte in AL ;AN000;
808 INC SI ;; ;AN000;
809 CLC ;; Successful get ;AN000;
810 .ENDIF ;; ;AN000;
811 .ENDIF ;; ;AN000;
812 RET ;; ;AN000;
813 ;; ;AN000;
814GET_BYTE ENDP ;; ;AN000;
815 ;; ;AN000;
816 ;; ;AN000;
817;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
818;; ;AN000;
819;; Module Name: ;AN000;
820;; GROW_SHARED_DATA ;AN000;
821;; ;AN000;
822;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
823 ;; ;AN000;
824GROW_SHARED_DATA PROC ;; ;AN000;
825 PUSH BX ;; ;AN000;
826 ADD BLOCK_END,AX ;; Grow the current block by AX ;AN000;
827 MOV BX,BLOCK_END ;; ;AN000;
828 .IF <BX A NB_FREE_BYTES> ;; Check for overflow ;AN000;
829 MOV BUILD_STATE,NO ;; Stop building shared data ;AN000;
830 MOV MEM_OVERFLOW,YES ;; ;AN000;
831 .ENDIF ;; ;AN000;
832 POP BX ;; ;AN000;
833 RET ;; ;AN000;
834GROW_SHARED_DATA ENDP ;; ;AN000;
835 ;; ;AN000;
836;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
837 ;AN000;
838CODE ENDS ;; ;AN000;
839 END ;AN000;
840;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
HIC SVNT DRACONES