summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM')
-rw-r--r--v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM1122
1 files changed, 1122 insertions, 0 deletions
diff --git a/v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM b/v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM
new file mode 100644
index 0000000..0c1d0a2
--- /dev/null
+++ b/v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM
@@ -0,0 +1,1122 @@
1 PAGE ,132 ;AN000;
2 TITLE DOS GRAPHICS Command - Color printing modules
3;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
4;; DOS - GRAPHICS Command
5;; (c) Copyright 1988 Microsoft
6;; ;AN000;
7;; File Name: GRCOLPRT.ASM ;AN000;
8;; ---------- ;AN000;
9;; ;AN000;
10;; Description: ;AN000;
11;; ------------ ;AN000;
12;; This file contains the code for printing a screen (text and graphics) ;AN000;
13;; on a COLOR printer. ;AN000;
14;; ;AN000;
15;; Documentation Reference: ;AN000;
16;; ------------------------ ;AN000;
17;; OASIS High Level Design ;AN000;
18;; OASIS GRAPHICS I1 Overview ;AN000;
19;; ;AN000;
20;; Procedures Contained in This File: ;AN000;
21;; ---------------------------------- ;AN000;
22;; ;AN000;
23;; PRINT_COLOR ;AN000;
24;; SCAN_FOR_BANDS_APA ;AN000;
25;; SCAN_FOR_BANDS_TXT ;AN000;
26;; PRINT_BAND_APA ;AN000;
27;; PRINT_BAND_TXT ;AN000;
28;; SET_CURSOR ;AN000;
29;; SET_COLOR_BAND ;AN000;
30;; INIT_BLACK_BOX ;AN000;
31;; ;AN000;
32;; ;AN000;
33;; Include Files Required: ;AN000;
34;; ----------------------- ;AN000;
35;; ;AN000;
36;; GRCTRL.EXT - Externals for print screen control ;AN000;
37;; GRCTRL.STR - Structures and equates for print screen control ;AN000;
38;; GRPATTRN.STR - Structures for the printer patterns. ;AN000;
39;; ;AN000;
40;; GRSHAR.STR - Shared Data Area Structure ;AN000;
41;; ;AN000;
42;; STRUC.INC - Macros for using structured assembly language ;AN000;
43;; ;AN000;
44;; External Procedure References: ;AN000;
45;; ------------------------------ ;AN000;
46;; FROM FILE GRCTRL.ASM: ;AN000;
47;; PRT_SCR - Main module for printing the screen. ;AN000;
48;; TO FILE GRCOMMON.ASM ;AN000;
49;; Common modules - tools for printing a screen. ;AN000;
50;; ;AN000;
51;; Linkage Instructions: ;AN000;
52;; -------------------- ;AN000;
53;; Refer to GRAPHICS.ASM ;AN000;
54;; ;AN000;
55;; Change History: ;AN000;
56;; --------------- ;AN000;
57;; Date last updated 5/26/87. ;AN000;
58;; ;AN000;
59;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
60PAGE ;AN000;
61CODE SEGMENT PUBLIC 'CODE' ;AN000;
62 ASSUME CS:CODE,DS:CODE ;AN000;
63 ;AN000;
64 PUBLIC PRINT_MODULE_START ;; Color modules public ;AN000;
65 PUBLIC PRINT_COLOR ;; procedures ;AN000;
66 PUBLIC LEN_OF_COLOR_MODULES ;; ;AN000;
67 ;; ;AN000;
68.XLIST ; ;AN000;
69INCLUDE GRCTRL.STR ; Stuctures needed ;AN000;
70INCLUDE GRSHAR.STR ; for both set of print modules ;AN000;
71INCLUDE GRPATTRN.STR ; ;AN000;
72 ; ;AN000;
73INCLUDE GRCTRL.EXT ; Externals from PRT_SCR control module ;AN000;
74INCLUDE STRUC.INC ; ;AN000;
75.LIST ; ;AN000;
76;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AN000;
77;; ;AN000;
78;; ;AN000;
79;; PRINT_COLOR : PRINT TEXT AND APA MODE SCREEN ON A COLOR PRINTER ;AN000;
80;; ;AN000;
81;-------------------------------------------------------------------------------;AN000;
82; ;AN000;
83; INPUT: BP = Offset of the shared data area ;AN000;
84; XLT_TAB = Color translation table ;AN000;
85; ;AN000;
86; OUTPUT: PRINTER ;AN000;
87; ;AN000;
88;-------------------------------------------------------------------------------;AN000;
89;; ;AN000;
90;; Description: ;AN000;
91;; Main control module for printing of text and graphics ;AN000;
92;; on color printers. ;AN000;
93;; ;AN000;
94;; Calls either the text or graphics mode routine. ;AN000;
95;; ;AN000;
96;; Called By: ;AN000;
97;; PRINT_SCREEN ;AN000;
98;; ;AN000;
99;; External Calls: ;AN000;
100;; LOC_MODE_PRT_INFO, PRINT_COLOR_APA, PRINT_COLOR_TXT ;AN000;
101;; ;AN000;
102;; Logic: ;AN000;
103;; IF MODE_TYPE = TXT ;AN000;
104;; THEN CALL PRINT_COLOR_TXT ;AN000;
105;; ELSE (MODE_TYPE = APA) ;AN000;
106;; CALL LOC_MODE_PRT_INFO ; Get DISPLAYMODE record from the SHARED AREA ;AN000;
107;; CALL PRINT_COLOR_APA ;AN000;
108;; RETURN ;AN000;
109;; ;AN000;
110;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
111PRINT_MODULE_START LABEL BYTE ;AN000;
112PRINT_COLOR PROC NEAR ;AN000;
113 JMP SHORT PRINT_COLOR_BEGIN ;AN000;
114WHITE_BOX DB 0,0,0,0 ; Print boxes for APA mode ;AN000;
115BLACK_BOX DB ?,?,?,? ; NOTE: 1 print box = 1 screen pixel ;AN000;
116 ; only BOX_W bytes are used out of these 2 ;AN000;
117 ; boxes. ;AN000;
118 ;AN000;
119REQ_BAND_MASK DB ? ; Mask = "All color bands needed for the current;AN000;
120 ; print line". ;AN000;
121 ;AN000;
122PRINT_COLOR_BEGIN: ;AN000;
123.IF <MODE_TYPE EQ TXT> ;AN000;
124.THEN ;AN000;
125;-------------------------------------------------------------------------------;AN000;
126; The screen is in a text mode: ;AN000;
127;-------------------------------------------------------------------------------;AN000;
128 CALL PRINT_COLOR_TXT ; Print a text screen on a color printer;AN000;
129.ELSE ;AN000;
130;-------------------------------------------------------------------------------;AN000;
131; The screen is in All Points Addressable mode: ;AN000;
132; Locate and extract printer DISPLAYMODE information from ;AN000;
133; the shared data area. ;AN000;
134;-------------------------------------------------------------------------------;AN000;
135 CALL LOC_MODE_PRT_INFO ; Get printer info related to curr. mode;AN000;
136; ;AN000;
137;-------Test if DISPLAYMODE info record was found: ;AN000;
138 .IF <ERROR_CODE EQ DISPLAYMODE_INFO_NOT_FOUND> ;AN000;
139 .THEN ;AN000;
140 MOV ERROR_CODE,UNABLE_TO_PRINT ; IF no record found, ;AN000;
141 JMP SHORT PRINT_COLOR_END ; then, return error code ;AN000;
142 .ENDIF ; and quit procedure ;AN000;
143; ;AN000;
144;-------Get the box size from the DISPLAYMODE info record: ;AN000;
145 MOV BX,CUR_MODE_PTR ; BX := Offset current DISPLAYMODE info.;AN000;
146 MOV AH,[BX].BOX_WIDTH ; Take local copy of the box size. ;AN000;
147 MOV BOX_W,AH ; in BOX_W and BOX_H ;AN000;
148 MOV AL,[BX].BOX_HEIGHT ;AN000;
149 MOV BOX_H,AL ;AN000;
150; ;AN000;
151;-------Verify if the box size obtained from DISPLAYMODE info. is valid ;AN000;
152 .IF <ZERO AL> OR ; IF height of the box is 0 ;AN000;
153 .IF <ZERO AH> ; OR width of the box is 0 ;AN000;
154 .THEN ; THEN we can't print: ;AN000;
155 MOV ERROR_CODE,UNABLE_TO_PRINT ; return error code ;AN000;
156 JMP SHORT PRINT_COLOR_END ; and quit ;AN000;
157 .ENDIF ;AN000;
158; ;AN000;
159;-------Get the Print Orientation from the DISPLAYMODE info record ;AN000;
160 .IF <[BX].PRINT_OPTIONS EQ ROTATE>; If printing sideways ;AN000;
161 .THEN ; then: ;AN000;
162 MOV ROTATE_SW,ON ; Rotate switch := "ON" ;AN000;
163 .ENDIF ;AN000;
164 CALL PRINT_COLOR_APA ; Print APA screen on a color printer ;AN000;
165.ENDIF ;AN000;
166PRINT_COLOR_END: ;AN000;
167 RET ;AN000;
168PRINT_COLOR ENDP ;AN000;
169PAGE ;AN000;
170;===============================================================================;AN000;
171; ;AN000;
172; PRINT_COLOR_TXT: PRINT A TEXT MODE SCREEN ON A COLOR PRINTER ;AN000;
173; ;AN000;
174;-------------------------------------------------------------------------------;AN000;
175; ;AN000;
176; INPUT: BP = Offset of the shared data area ;AN000;
177; XLT_TAB = Color translation table ;AN000;
178; SCREEN_WIDTH = Maximum length of Screen scan line. ;AN000;
179; SCREEN_HEIGHT = Number of SCAN LINES on the screen ;AN000;
180; ;AN000;
181; OUTPUT: PRINTER ;AN000;
182; ;AN000;
183;-------------------------------------------------------------------------------;AN000;
184; ;AN000;
185; DESCRIPTION: The screen is read and printed line by line; character by ;AN000;
186; character. ;AN000;
187; Each line is first scanned in order to determine what colors are present on ;AN000;
188; it and what printer bands will be needed to approximate these colors. ;AN000;
189; ;AN000;
190; For each printer color band needed for the current line, this screen line ;AN000;
191; is READ AGAIN character by character; If the color of the ;AN000;
192; current character must use the current color band to be ;AN000;
193; approximated; then, the character is printed. ;AN000;
194; ;AN000;
195; ;AN000;
196; LOGIC : ;AN000;
197; ;AN000;
198; Save current coordinates of the cursor. ;AN000;
199; Initialize the cursor to the first character to be read (Top-left of screen) ;AN000;
200; FOR each row on the screen (SCREEN_HEIGHT) ;AN000;
201; BEGIN ;AN000;
202; CALL SCAN_FOR_BANDS_TXT(CUR_ROW,CUR_COLUMN,REQ_BAND_MASK) ;AN000;
203; CUR_BAND_MASK := 01H ;AN000;
204; IF REQ_BAND_MASK <> 0 THEN ;AN000;
205; DO 8 TIMES ;AN000;
206; IF (REQ_BAND_MASK AND CUR_BAND_MASK)=1 THEN ;AN000;
207; CALL PRINT_BAND_TXT(CUR_ROW,CUR_COLUMN,CUR_BAND_MASK) ;AN000;
208; CALL PRINT_BYTE(CARRIAGE_RETURN) ;AN000;
209; ENDIF ;AN000;
210; Shift CUR_BAND_MASK one bit left ;AN000;
211; ENDDO ;AN000;
212; CALL PRINT_BYTE(LINE_FEED) ;AN000;
213; ENDIF ;AN000;
214; CUR_COLUMN := 0 ; Get next row coordinates ;AN000;
215; CUR_ROW := CUR_ROW + 1 ;AN000;
216; END ; FOR each row on the screen ;AN000;
217; Restore initial coordinates of the cursor ;AN000;
218; ;AN000;
219PRINT_COLOR_TXT PROC ;AN000;
220 PUSH BX ;AN000;
221 PUSH CX ;AN000;
222 PUSH DX ;AN000;
223; ;AN000;
224;-------Save coordinates of the cursor on the stack: ;AN000;
225 MOV AH,READ_CURSOR_CALL ; Read position of the cursor on the screen;AN000;
226 MOV BH,CUR_PAGE ; for the current page ;AN000;
227 INT 10H ; Call BIOS ;AN000;
228 PUSH DX ; DH := Row number, DL := Column number ;AN000;
229 ; CX := Top line and bottom line for cursor;AN000;
230 ; (not needed) ;AN000;
231; ;AN000;
232;-------Initialize the cursor to the first character to be read ;AN000;
233 MOV CUR_ROW,0 ; cursor = position (0,0) on the screen ;AN000;
234 MOV CUR_COLUMN,0 ; (top-left corner) ;AN000;
235 CALL SET_CURSOR ;AN000;
236 ;AN000;
237 MOV CX,SCREEN_HEIGHT ; CX := Number of rows on the screen ;AN000;
238;-------------------------------------------------------------------------------;AN000;
239; ;AN000;
240; FOR EACH ROW ON THE SCREEN: ;AN000;
241; ;AN000;
242;-------------------------------------------------------------------------------;AN000;
243PRINT_1_TEXT_LINE: ;AN000;
244 CALL SCAN_FOR_BANDS_TXT ; REQ_BAND_MASK := Print bands needed ;AN000;
245 ; for this line ;AN000;
246 MOV DL,01H ; DL :="Current Band printed" mask ;AN000;
247 ;AN000;
248 ; NOTE: The COLORSELECT records are stored sequentially in the ;AN000;
249 ; Shared Data area. The band mask 00000001 corresponds to the first ;AN000;
250 ; record, 00000010 to the second, etc. ;AN000;
251 ; The COLORSELECT record indicates: "How to select the color band" ;AN000;
252 ; on the printer (It contains the bytes that must be sent to the printer;AN000;
253 ;AN000;
254 MOV BX,DS:[BP].COLORSELECT_PTR; BX := relative offset of COLORSELECT;AN000;
255 ADD BX,BP ; BX := absolute offset of COLORSELECT ;AN000;
256 PUSH CX ; Save row counter ;AN000;
257 MOV CX,8 ; For up to the maximum number of print ;AN000;
258 ; bands with this printer ;AN000;
259 ;-----------------------------------------------------------------------;AN000;
260 ; ;AN000;
261 ; FOR each Color Band available with the ribbon installed on the printer;AN000;
262 ; ;AN000;
263 ;-----------------------------------------------------------------------;AN000;
264 PRINT_1_COLOR_BAND_TXT: ; Do one pass of the printer head: ;AN000;
265 .IF <BIT REQ_BAND_MASK AND DL> ; IF this color band is needed ;AN000;
266 .THEN ; by any character on the line ;AN000;
267 CALL SET_COLOR_BAND ; then, select the color band ;AN000;
268 CALL PRINT_BAND_TXT ; and do one Print Pass for it. ;AN000;
269 .IF <BIT ERROR_CODE NZ PRINTER_ERROR> ;AN000;
270 .THEN ; A printer error occurred: ;AN000;
271 POP CX ; Restore the line counter ;AN000;
272 JMP PRINT_COLOR_TXT_END ; and quit. ;AN000;
273 .ENDIF ;AN000;
274 MOV AL,CR ; Print a carriage return ;AN000;
275 CALL PRINT_BYTE ;AN000;
276 .IF C ;AN000;
277 .THEN ; A printer error occurred: ;AN000;
278 POP CX ; Restore the line counter ;AN000;
279 JMP PRINT_COLOR_TXT_END ; and quit. ;AN000;
280 .ENDIF ; ENDIF printer error ;AN000;
281 .ENDIF ; ENDIF this color band is needed ;AN000;
282 SHL DL,1 ; Get next Color Band mask ;AN000;
283 ; [BX] := Next COLORSELECT record: ;AN000;
284 MOV AL,[BX].NUM_SELECT_ESC ; skip the escape bytes ;AN000;
285 XOR AH,AH ; ;AN000;
286 ADD BX,AX ; ;AN000;
287 INC BX ; skip the NUM_SELECT_ESC field ;AN000;
288 LOOP PRINT_1_COLOR_BAND_TXT ;AN000;
289 POP CX ; Restore row counter ;AN000;
290; ;AN000;
291;-----Print a line feed: ;AN000;
292 MOV AL,LF ;AN000;
293 CALL PRINT_BYTE ; Send the LF ;AN000;
294 JC PRINT_COLOR_TXT_END ; If printer error, quit ;AN000;
295; ;AN000;
296;-------Get coordinates of the first character in the next scan line: ;AN000;
297 INC CUR_ROW ; CUR_ROW + 1 ;AN000;
298 MOV CUR_COLUMN,0 ; CUR_COLUMN := 0 ;AN000;
299; ;AN000;
300;-------Point CURSOR to first character in the next scan line: ;AN000;
301 CALL SET_CURSOR ;AN000;
302 ;AN000;
303 LOOP PRINT_1_TEXT_LINE ; Print next scan line ;AN000;
304 ;AN000;
305; ;AN000;
306;-------Restore CURSOR to its original location (saved on the stack) ;AN000;
307PRINT_COLOR_TXT_END: ;AN000;
308 POP DX ; DH := Row number, DL := Column number ;AN000;
309 MOV CL,DH ;AN000;
310 MOV CUR_ROW,CX ; CUR_ROW := Original row number ;AN000;
311 MOV CL,DL ;AN000;
312 MOV CUR_COLUMN,CX ; CUR_COLUMN := Original column number ;AN000;
313 CALL SET_CURSOR ; Set the cursor back there ;AN000;
314 ;AN000;
315 POP DX ;AN000;
316 POP CX ;AN000;
317 POP BX ;AN000;
318 RET ;AN000;
319PRINT_COLOR_TXT ENDP ;AN000;
320PAGE ;AN000;
321;===============================================================================;AN000;
322; ;AN000;
323; SCAN_FOR_BANDS_TEXT: DETERMINE WHAT PRINTER COLOR BANDS ARE NEEDED FOR ;AN000;
324; PRINTING THE COLORS ON THE CURRENT SCREEN LINE. ;AN000;
325; ;AN000;
326;-------------------------------------------------------------------------------;AN000;
327; ;AN000;
328; INPUT: CUR_ROW = row to start scanning ;AN000;
329; CUR_COLUMN = column to start scanning ;AN000;
330; ROTATE_SW = ON if printing is sideways ;AN000;
331; ;AN000;
332; OUTPUT: REQ_BAND_MASK ;AN000;
333; ;AN000;
334; ;AN000;
335; DATA STRUCTURE REFERENCED: ;AN000;
336; XLT_TAB = Color translation table ;AN000;
337; ;AN000;
338;-------------------------------------------------------------------------------;AN000;
339; ;AN000;
340; DESCRIPTION: Read all characters on the current line from left to right. ;AN000;
341; For each character, extract its band mask from the color translation table. ;AN000;
342; Add the band mask required for this character to the "Required Bands" mask. ;AN000;
343; ;AN000;
344; LOGIC : ;AN000;
345; Save current coordinates ;AN000;
346; DO (SCREEN_WIDTH) TIMES ;AN000;
347; Read a character ;AN000;
348; Get its Band Mask from the color translation table in AL ;AN000;
349; OR REQ_BAND_MASK,AL ; Add its band mask to the "Required bands" mask;AN000;
350; ; Get coordinates of the next character: ;AN000;
351; INC CUR_COLUMN ;AN000;
352; Restore initial coordinates ;AN000;
353; ;AN000;
354SCAN_FOR_BANDS_TXT PROC NEAR ;AN000;
355 PUSH CUR_ROW ; Save coordinates ;AN000;
356 PUSH CUR_COLUMN ;AN000;
357 PUSH AX ;AN000;
358 PUSH BX ;AN000;
359 PUSH CX ;AN000;
360 ;AN000;
361 MOV REQ_BAND_MASK,0 ; No Color bands needed so far... ;AN000;
362 MOV CX,SCREEN_WIDTH ; For each character on the screen row ;AN000;
363;-------------------------------------------------------------------------------;AN000;
364; ;AN000;
365; FOR each character on the current scan line: ;AN000;
366; ;AN000;
367;-------------------------------------------------------------------------------;AN000;
368SCAN_1_CHAR: ;AN000;
369; ;AN000;
370;-------Read the character at the current cursor position ;AN000;
371 CALL SET_CURSOR ; Set cursor at character to be read ;AN000;
372 MOV AH,READ_CHAR_CALL ; Read one character ;AN000;
373 MOV BH,CUR_PAGE ; at CUR_PAGE, CUR_COLUMN and CUR_ROW ;AN000;
374 INT 10H ; Call BIOS ;AN000;
375 ; AL:=Character read, AH:=Byte attribute;AN000;
376 AND AH,00001111B ; AH := Foreground color attribute ;AN000;
377 XCHG AL,AH ; AL := AH, used as index in the XLT_TAB;AN000;
378 MOV BX,OFFSET XLT_TAB ; BX := Offset of translation table ;AN000;
379 XLAT XLT_TAB ; AL = Band mask ;AN000;
380; ;AN000;
381;-------Obtain what Print bands are required to print the color of this char: ;AN000;
382 OR REQ_BAND_MASK,AL ;AN000;
383 ;AN000;
384 INC CUR_COLUMN ; Get coordinates of next character ;AN000;
385 LOOP SCAN_1_CHAR ; Scan next character ;AN000;
386 ;AN000;
387 POP CX ;AN000;
388 POP BX ;AN000;
389 POP AX ;AN000;
390 POP CUR_COLUMN ; Restore initial coordinates ;AN000;
391 POP CUR_ROW ;AN000;
392 RET ;AN000;
393SCAN_FOR_BANDS_TXT ENDP ;AN000;
394PAGE ;AN000;
395;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AN000;
396;; ;AN000;
397;; PRINT_BAND_TXT: PRINT ALL CHARACTERS ON THE CURRENT LINE THAT ARE THE SAME ;AN000;
398;; COLOR AS THE CURRENT PRINT BAND. ;AN000;
399;; ;AN000;
400;-------------------------------------------------------------------------------;AN000;
401; ;AN000;
402; INPUT: CUR_ROW, ;AN000;
403; CUR_COLUMN : Coordinates of the first character to be read in ;AN000;
404; the current scan line. ;AN000;
405; DL : Band mask indicating what print band to use ;AN000;
406; for this print pass. ;AN000;
407; SCAN_LINE_LENGTH: Length of the current scan line. ;AN000;
408; ;AN000;
409; OUTPUT: PRINTER ;AN000;
410; ;AN000;
411;-------------------------------------------------------------------------------;AN000;
412; LOGIC: ;AN000;
413; DO (SCAN_LINE_LENGTH) TIMES ;AN000;
414; CALL BIOS INT 10H Read Character - returns CHAR, COLOR_NUM ;AN000;
415; IF (CUR_BAND_MASK AND XLAT_TAB[COLOR_NUM])=1 ;AN000;
416; THEN IF Background color is same as Foreground color ;AN000;
417; THEN ;AN000;
418; CALL PRINT_BYTE(SOLID_BOX) ;AN000;
419; ELSE ;AN000;
420; CALL PRINT_BYTE(CHAR) ;AN000;
421; ELSE ;AN000;
422; CALL PRINT_BYTE(blank) ;AN000;
423; Get coordinates of the next character ;AN000;
424; ;AN000;
425PRINT_BAND_TXT PROC ;AN000;
426SOLID_BOX EQU 219 ; ASCII Code for printing a solid box ;AN000;
427BLANK EQU 32 ; ASCII code for printing a space ;AN000;
428 PUSH CUR_COLUMN ; Save column number ;AN000;
429 PUSH AX ;AN000;
430 PUSH BX ;AN000;
431 PUSH CX ;AN000;
432 MOV CX,SCREEN_WIDTH ; CX := Number of character on one screen row ;AN000;
433;===============================================================================;AN000;
434; ;AN000;
435; FOR each character on the current row: ;AN000;
436; ;AN000;
437;===============================================================================;AN000;
438PRINT_1_CHAR: ;AN000;
439; ;AN000;
440;-------Read the character at the current cursor position ;AN000;
441 CALL SET_CURSOR ; Set cursor at character to be read ;AN000;
442 MOV AH,READ_CHAR_CALL ; Read one character ;AN000;
443 MOV BH,CUR_PAGE ; at CUR_PAGE, CUR_COLUMN and CUR_ROW ;AN000;
444 INT 10H ; Call BIOS ;AN000;
445 ; AL:=Character read, AH:=Byte attribute;AN000;
446 MOV CUR_CHAR,AL ;AN000;
447 MOV DH,AH ; DH := Byte attribute ;AN000;
448 AND DH,11110000B ; DH := Background color ;AN000;
449 SHR DH,1 ; DH := Background color right justified;AN000;
450 SHR DH,1 ;AN000;
451 SHR DH,1 ;AN000;
452 SHR DH,1 ;AN000;
453 AND AH,00001111B ; AH := Foreground color right justified;AN000;
454; ;AN000;
455;-------Test if this character should be printed (need color of the current band;AN000;
456 MOV AL,AH ; AL:=color used as index in the XLT_TAB;AN000;
457 MOV BX,OFFSET XLT_TAB ; BX := Offset of translation table ;AN000;
458 XLAT XLT_TAB ; AL := Band mask (DL=current band mask);AN000;
459 .IF <BIT AL AND DL> ;If needs this band to print the color ;AN000;
460 .THEN ; of this character ;AN000;
461 .IF <AH EQ DH> ; then: when foreground = background ;AN000;
462 .THEN ; send a solid box ;AN000;
463 MOV AL,SOLID_BOX ; ;AN000;
464 .ELSE ; when foreground <> background ;AN000;
465 MOV AL,CUR_CHAR ; send the character ;AN000;
466 .ENDIF ; Endif foreground = background ;AN000;
467 .ELSE ; else: send a blank ;AN000;
468 MOV AL,BLANK ; ;AN000;
469 .ENDIF ; Endif color band needed ;AN000;
470 CALL PRINT_BYTE ; Print the byte ;AN000;
471 JC PRINT_BAND_TXT_END ; If printer error occurred: QUIT ;AN000;
472 INC CUR_COLUMN ; Else, Get next column; keep going ;AN000;
473 LOOP PRINT_1_CHAR ;AN000;
474 ;AN000;
475PRINT_BAND_TXT_END: ;AN000;
476 POP CX ;AN000;
477 POP BX ;AN000;
478 POP AX ;AN000;
479 POP CUR_COLUMN ; Restore column number ;AN000;
480 RET ;AN000;
481CUR_CHAR DB ? ;AN000;
482PRINT_BAND_TXT ENDP ;AN000;
483PAGE ;AN000;
484;===============================================================================;AN000;
485; ;AN000;
486; PRINT_COLOR_APA: PRINT AN APA MODE SCREEN ON A COLOR PRINTER ;AN000;
487; ;AN000;
488;-------------------------------------------------------------------------------;AN000;
489; ;AN000;
490; INPUT: BP = Offset of the shared data area ;AN000;
491; XLT_TAB = Color translation table ;AN000;
492; CUR_MODE_PTR = Coordinates of current DISPLAYMODE info. ;AN000;
493; ;AN000;
494; OUTPUT: PRINTER ;AN000;
495; ;AN000;
496;-------------------------------------------------------------------------------;AN000;
497; ;AN000;
498; DESCRIPTION: Each pixel on the screen is printed as a "box" of dots on the ;AN000;
499; printer. For a screen pixel of a given color, the best color approximation ;AN000;
500; is chosen among the color available on the printer. ;AN000;
501; ;AN000;
502; The printer colors are obtained by selecting a print band. A few more printer ;AN000;
503; color are obtained by printing twice (or more times) with different color ;AN000;
504; bands. ;AN000;
505; ;AN000;
506; For example, let's say we have a ribbon on the printer with a YELLOW CYAN ;AN000;
507; MAGENTA ribbon and we read a GREEN pixel on the screen. ;AN000;
508; ;AN000;
509; We first determine what "box" size will be used to represent this pixel. ;AN000;
510; Let's say it's a 3x2 box (this is obtained from the DISPLAYMODE record) ;AN000;
511; In all cases, we will print this pixel as a 3x2 box of printer dots. ;AN000;
512; That is, we will print 6 dots on the printer for one on the screen. ;AN000;
513; We do not use any kind of patterns (e,g,. printing only 2 dots out of 6) ;AN000;
514; for printing on the color printer. A screen pixel is either printed ;AN000;
515; as a "full" box of printer dots or not printed at all (e,g,. if it's white).;AN000;
516; ;AN000;
517; Now, from the COLORPRINT records, we know all the colors availables on the ;AN000;
518; printer, and what print bands must be used (or overlaid) in order to ;AN000;
519; obtain them. ;AN000;
520; ;AN000;
521; So, we consult these COLORPRINT records one by one comparing how close ;AN000;
522; the color of each of them is to our GREEN pixel. (the colors for our pixel ;AN000;
523; AND for the printer color are both indicated in terms of RGB values) ;AN000;
524; WE PICK THE CLOSEST PRINTER COLOR. ;AN000;
525; ;AN000;
526; To conclude, our GREEN pixel will be printed by first selecting the YELLOW ;AN000;
527; band, then sending to the printer a "box". Then, the BLUE band is selected ;AN000;
528; and the "box" is sent again. ;AN000;
529; ;AN000;
530; This process is carried line by line. ;AN000;
531; ;AN000;
532; For each line, we first read each pixel to see what color bands are going ;AN000;
533; to be needed for this line. ;AN000;
534; ;AN000;
535; Then, we loop for each band available on the printer. ;AN000;
536; ;AN000;
537; IF the current line needs the current printer band (i.e.,if any pixel on ;AN000;
538; the line needs this color band in order to achieve its color. ;AN000;
539; THEN, we select this color band (we know how to do it from the COLORSELECT ;AN000;
540; record in the Shared Data area) ;AN000;
541; AND we must read the line again; for each pixel that needs the current ;AN000;
542; band a "box" is sent to the printer. ;AN000;
543; ;AN000;
544; LOGIC : ;AN000;
545; CALL INIT_BLACK_BOX ; Initialize a print box ;AN000;
546; CALL GET_SCREEN_INFO ;AN000;
547; CALL SETUP_PRT ;AN000;
548; DO (NB_SCAN_LINES) TIMES ;AN000;
549; CALL DET_CUR_SCAN_LNE_LENGTH ;AN000;
550; IF CUR_SCAN_LNE_LENGTH NE 0 THEN ;AN000;
551; CALL SCAN_FOR_BANDS_APA(CUR_ROW,CUR_COLUMN,REQ_BAND_MASK) ;AN000;
552; CUR_BAND_MASK := 01H ;AN000;
553; IF REQ_BAND_MASK <> 0 THEN ;AN000;
554; DO 8 TIMES ;AN000;
555; IF (REQ_BAND_MASK AND CUR_BAND_MASK)=1 THEN ;AN000;
556; CALL NEW_PRT_LINE ;AN000;
557; CALL PRINT_BAND_APA(CUR_ROW,CUR_COLUMN,CUR_BAND_MASK) ;AN000;
558; CALL PRINT_BYTE(CARRIAGE_RETURN) ;AN000;
559; ENDIF ;AN000;
560; Shift CUR_BAND_MASK one bit left ;AN000;
561; ENDDO ;AN000;
562; ENDIF ; Should make a print pass for this color band ;AN000;
563; CALL PRINT_BYTE(LINE_FEED) ;AN000;
564; ENDIF ; Current scan line is not empty ;AN000;
565; IF rotated print THEN ;AN000;
566; CUR_COLUMN := CUR_COLUMN - BOXES_PER_PRT_BUF ;AN000;
567; CUR_ROW := SAVE_START_ROW ;AN000;
568; ELSE ;AN000;
569; CUR_ROW := CUR_ROW + BOXES_PER_PRT_BUF ;AN000;
570; CUR_COLUMN := SAVE_START_COLUMN ;AN000;
571; ENDIF ;AN000;
572; ENDDO ; Number of Scan lines ;AN000;
573; CALL RESTORE_PRT ;AN000;
574; ;AN000;
575PRINT_COLOR_APA PROC ;AN000;
576 PUSH AX ;AN000;
577 PUSH BX ;AN000;
578 PUSH CX ;AN000;
579 PUSH DX ;AN000;
580 ;AN000;
581 ;AN000;
582;-------Initialize print box (A "box" represents one screen pel on the printer) ;AN000;
583 CALL INIT_BLACK_BOX ;AN000;
584;-------------------------------------------------------------------------------;AN000;
585; ;AN000;
586; Determine where to start reading the screen: ;AN000;
587; If printing sideways, start in LOW LEFT corner. ;AN000;
588; If normal printing, start in TOP LEFT corner. ;AN000;
589; Determine the maximum length for a scan line: ;AN000;
590; If printing sideways, it is the height of the screen. ;AN000;
591; For normal printing, it is the width of the screen. ;AN000;
592; Determine the number of scan lines on the screen. ;AN000;
593; ;AN000;
594;-------------------------------------------------------------------------------;AN000;
595 CALL GET_SCREEN_INFO ; Get info. about how to read the screen;AN000;
596 CALL SETUP_PRT ; Set up the printer (Line spacing, etc);AN000;
597 .IF <BIT ERROR_CODE NZ PRINTER_ERROR> ;AN000;
598 .THEN ; A printer error occurred: quit ;AN000;
599 JMP PRINT_COLOR_APA_END ; ;AN000;
600 .ENDIF ;AN000;
601 ;AN000;
602 MOV CX,NB_SCAN_LINES ;AN000;
603;---------------------------------------------------------------------------- ;AN000;
604; ;AN000;
605; FOR EACH SCAN LINE ON THE SCREEN (and each print line): ;AN000;
606; ;AN000;
607;---------------------------------------------------------------------------- ;AN000;
608PRINT_SCAN_LINE: ;AN000;
609 CALL DET_CUR_SCAN_LNE_LENGTH ; Determine length of the scan line ;AN000;
610 .IF <CUR_SCAN_LNE_LENGTH NE 0> ; If line is not empty ;AN000;
611 .THEN ;AN000;
612 CALL SCAN_FOR_BANDS_APA ; REQ_BAND_MASK := Mask for what print;AN000;
613 ; bands are needed. ;AN000;
614 MOV DL,01H ; DL := "Current Band to be printed" ;AN000;
615 MOV BX,DS:[BP].COLORSELECT_PTR; BX := Offset of COLORSELECT record;AN000;
616 ADD BX,BP ; ("How to select the color band");AN000;
617 PUSH CX ; Save scan line counter ;AN000;
618 MOV CX,8 ; For up to the maximum number of prin;AN000;
619 ; bands with this printer ;AN000;
620 ;---------------------------------------------------------------------;AN000;
621 ; ;AN000;
622 ; FOR each Color Band needed: ;AN000;
623 ; ;AN000;
624 ;---------------------------------------------------------------------;AN000;
625 PRINT_1_COLOR_BAND_APA: ; Only if this color band is needed: ;AN000;
626 .IF <BIT REQ_BAND_MASK AND DL> ; Do one pass of the printer head ;AN000;
627 .THEN ; ;AN000;
628 CALL SET_COLOR_BAND ; Select the color band on the printer;AN000;
629 CALL NEW_PRT_LINE ; Send escape sequence to the printer ;AN000;
630 ; for starting a new graphics line ;AN000;
631 .IF <BIT ERROR_CODE NZ PRINTER_ERROR> ;AN000;
632 .THEN ; A printer error occurred: ;AN000;
633 POP CX ; Restore the line counter and ;AN000;
634 JMP PRINT_COLOR_APA_END ; return ;AN000;
635 .ENDIF ; Endif printer error occurred ;AN000;
636 ;AN000;
637 CALL PRINT_BAND_APA ; Do one Print Pass for current band ;AN000;
638 MOV AL,CR ; Print a carriage return ;AN000;
639 CALL PRINT_BYTE ;AN000;
640 .IF C ; If a printer error occurred ;AN000;
641 .THEN ;AN000;
642 POP CX ; Restore the line counter and ;AN000;
643 JMP PRINT_COLOR_APA_END ; return ;AN000;
644 .ENDIF ; End if printer error occurred ;AN000;
645 .ENDIF ; End if this color band is needed ;AN000;
646 SHL DL,1 ; Get next Color Band mask ;AN000;
647 ; Locate next COLORSELECT record: ;AN000;
648 MOV AL,[BX].NUM_SELECT_ESC; skip the escape bytes ;AN000;
649 XOR AH,AH ;AN000;
650 ADD BX,AX ;AN000;
651 INC BX ; skip the NUM_SELECT_ESC field ;AN000;
652 LOOP PRINT_1_COLOR_BAND_APA ;AN000;
653 POP CX ; Restore scan line counter ;AN000;
654 .ENDIF ; Scan line length <> 0 ;AN000;
655; ;AN000;
656;-----Print a line feed: ;AN000;
657 MOV AL,LF ;AN000;
658 CALL PRINT_BYTE ;AN000;
659 JC PRINT_COLOR_APA_END ; If a printer error occurred: quit ;AN000;
660; ;AN000;
661;-------Get coordinates of next scan line: ;AN000;
662 .IF <ROTATE_SW EQ ON> ; If printing sideways ;AN000;
663 .THEN ; then: ;AN000;
664 MOV AL,NB_BOXES_PER_PRT_BUF; AX := Numbers of pels read on row ;AN000;
665 CBW ; ;AN000;
666 ADD CUR_COLUMN,AX ; CUR_COLUMN + Number of pels read ;AN000;
667 MOV AX,SCREEN_HEIGHT ; CUR_ROW := SCREEN_HEIGHT - 1 ;AN000;
668 DEC AX ; ;AN000;
669 MOV CUR_ROW,AX ; ;AN000;
670 .ELSE ; else, printing NOT rotated: ;AN000;
671 MOV AL,NB_BOXES_PER_PRT_BUF ; AX := Number of pels read on column ;AN000;
672 CBW ; ;AN000;
673 ADD CUR_ROW,AX ; CUR_ROW + Number of pels read ;AN000;
674 MOV CUR_COLUMN,0 ; CUR_COLUMN := 0 ;AN000;
675 .ENDIF ; End if printing sideways ;AN000;
676 LOOP PRINT_SCAN_LINE ; ;AN000;
677 ;AN000;
678;-------------------------------------------------------------------------------;AN000;
679; ;AN000;
680; Restore the printer (send a Page Eject, etc.) ;AN000;
681; ;AN000;
682;-------------------------------------------------------------------------------;AN000;
683 CALL RESTORE_PRT ;AN000;
684PRINT_COLOR_APA_END: ;AN000;
685 POP DX ;AN000;
686 POP CX ;AN000;
687 POP BX ;AN000;
688 POP AX ;AN000;
689 RET ;AN000;
690PRINT_COLOR_APA ENDP ;AN000;
691PAGE ;AN000;
692;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AN000;
693;; ;AN000;
694;; ;AN000;
695;; SCAN_FOR_BANDS_APA : DETERMINE WHAT PRINT BANDS ARE NEEDED FOR THE CURRENT ;AN000;
696;; PRINT PASS. ;AN000;
697;; ;AN000;
698;;------------------------------------------------------------------------------;AN000;
699; ;AN000;
700; INPUT: CUR_ROW : row to start scanning (word) ;AN000;
701; CUR_COLUMN : column to start scanning (word) ;AN000;
702; CUR_SCAN_LNE_LENGTH : length of the current scan line (word) ;AN000;
703; ROTATE_SW = ON if printing is sideways ;AN000;
704; ;AN000;
705; OUTPUT: REQ_BAND_MASK : band mask for required bands (byte) ;AN000;
706; ;AN000;
707;;------------------------------------------------------------------------------;AN000;
708;; ;AN000;
709;; Data Structures Referenced: ;AN000;
710;; Shared Data Area ;AN000;
711;; Print Info ;AN000;
712;; Color Translate Table ;AN000;
713;; ;AN000;
714;; ;AN000;
715;; Description: ;AN000;
716;; Read all the dots required for one print line to determine ;AN000;
717;; the print bands required. The print line corresponds to several ;AN000;
718;; screen rows (or columns if rotated printing). The number of ;AN000;
719;; rows / columns per print line is stored in NB_BOXES_PER_PRT_BUF. ;AN000;
720;; The band information is obtained from the Color Translate Table. ;AN000;
721;; ;AN000;
722;; Called By: ;AN000;
723;; PRINT_COLOR_APA ;AN000;
724;; ;AN000;
725;; External Calls: ;AN000;
726;; READ_DOT, BIOS INT 10H ;AN000;
727;; ;AN000;
728;; Logic: ;AN000;
729;; Save initial coordinates ;AN000;
730;; SAVE_START_COLUMN := CUR_COLUMN ;AN000;
731;; REQ_BAND_MASK := 00H ;AN000;
732;; DO (SCAN_LINE_LENGTH) TIMES ;AN000;
733;; Save coordinates of the "column" ;AN000;
734;; DO (BOXES_PER_PRT_BUF) TIMES ;AN000;
735;; CALL READ_DOT(IN CUR_ROW,CUR_COLUMN; OUT COLOR_NUM) ;AN000;
736;; REQ_BAND_MASK := REQ_BAND_MASK OR COLOR_XLAT_TAB[BX] ;AN000;
737;; IF rotated print THEN ;AN000;
738;; Increment CUR_COLUMN ;AN000;
739;; ELSE ;AN000;
740;; Increment CUR_ROW ;AN000;
741;; ENDIF ;AN000;
742;; Restore coordinates of the "column" ;AN000;
743;; ENDDO ;AN000;
744;; IF rotated print THEN ;AN000;
745;; Decrement CUR_ROW ;AN000;
746;; ELSE ;AN000;
747;; Increment CUR_COLUMN ;AN000;
748;; ENDIF ;AN000;
749;; ENDDO ;AN000;
750;; Restore initial coordinates ;AN000;
751;; RETURN ;AN000;
752;; ;AN000;
753;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
754SCAN_FOR_BANDS_APA PROC NEAR ;AN000;
755 PUSH CUR_ROW ;AN000;
756 PUSH CUR_COLUMN ;AN000;
757 PUSH AX ;AN000;
758 PUSH BX ;AN000;
759 PUSH CX ;AN000;
760 ;AN000;
761 MOV REQ_BAND_MASK,0 ; No Color bands needed so far... ;AN000;
762 MOV BX,OFFSET XLT_TAB ; BX := Offset of translation table ;AN000;
763 MOV CX,CUR_SCAN_LNE_LENGTH ;AN000;
764;===============================================================================;AN000;
765; ;AN000;
766; FOR each column on the current scan line (up to the last non=blank): ;AN000;
767; ;AN000;
768;===============================================================================;AN000;
769SCAN_1_COLUMN: ;AN000;
770 PUSH CX ; Save column counter ;AN000;
771 PUSH CUR_ROW ; Save coordinates of the "column" ;AN000;
772 PUSH CUR_COLUMN ;AN000;
773;-------------------------------------------------------------------------------;AN000;
774; ;AN000;
775; For each pixel within the current column of the scan line: ;AN000;
776; ;AN000;
777;-------------------------------------------------------------------------------;AN000;
778 XOR CX,CX ; CX := Number of pixels to read ;AN000;
779 MOV CL,NB_BOXES_PER_PRT_BUF ; within the current "column" ;AN000;
780SCAN_1_PIXEL: ;AN000;
781 CALL READ_DOT ; AL := Index into translation table ;AN000;
782 XLAT XLT_TAB ; AL := Band mask ;AN000;
783 OR REQ_BAND_MASK,AL ; Add bands required for this pixel ;AN000;
784 ;AN000;
785;-------Get coordinates of next pixel: ;AN000;
786 .IF <ROTATE_SW EQ ON> ; If printing sideways ;AN000;
787 .THEN ; ;AN000;
788 INC CUR_COLUMN ; then, increment column number ;AN000;
789 .ELSE ; ;AN000;
790 INC CUR_ROW ; else, increment row number ;AN000;
791 .ENDIF ; ;AN000;
792 LOOP SCAN_1_PIXEL ;AN000;
793 POP CUR_COLUMN ; Restore coordinates of the "column" ;AN000;
794 POP CUR_ROW ; ;AN000;
795 POP CX ; Restore column counter ;AN000;
796 ;AN000;
797 ;AN000;
798;-------Get coordinates of next "column": ;AN000;
799 .IF <ROTATE_SW EQ ON> ; If printing sideways ;AN000;
800 .THEN ; ;AN000;
801 DEC CUR_ROW ; then, get row above on screen ;AN000;
802 .ELSE ; ;AN000;
803 INC CUR_COLUMN ; else, get column next right ;AN000;
804 .ENDIF ; ;AN000;
805 LOOP SCAN_1_COLUMN ;AN000;
806 ;AN000;
807 POP CX ;AN000;
808 POP BX ;AN000;
809 POP AX ;AN000;
810 POP CUR_COLUMN ;AN000;
811 POP CUR_ROW ;AN000;
812 RET ;AN000;
813SCAN_FOR_BANDS_APA ENDP ;AN000;
814PAGE ;AN000;
815;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AN000;
816;; ;AN000;
817;; PRINT_BAND_APA : PRINT ALL DOTS ON CURRENT LINE THAT NEED THE CURRENT BAND ;AN000;
818;; TO APPROXIMATE THEIR COLOR. ;AN000;
819;; ;AN000;
820;-------------------------------------------------------------------------------;AN000;
821; ;AN000;
822; INPUT: CUR_ROW, ;AN000;
823; CUR_COLUMN : Coordinates of the first pixel to be read in the ;AN000;
824; current scan line. ;AN000;
825; DL : Band mask indicating what print band to use ;AN000;
826; for this print pass. ;AN000;
827; CUR_SCAN_LNE_LENGTH: Length of the current scan line. ;AN000;
828; ROTATE_SW = ON if printing is sideways ;AN000;
829; ;AN000;
830; OUTPUT: PRINTER ;AN000;
831; ;AN000;
832;-------------------------------------------------------------------------------;AN000;
833;; ;AN000;
834;; Data Structures Referenced: ;AN000;
835;; Shared Data Area ;AN000;
836;; Print Info ;AN000;
837;; Color Translate Table ;AN000;
838;; ;AN000;
839;; Description: ;AN000;
840;; Print all dots on this print line which need the current ;AN000;
841;; band. The print line corresponds to several ;AN000;
842;; screen rows (or columns if rotated printing). The number of ;AN000;
843;; rows / columns per print line is stored in NB_BOXES_PER_PRT_BUF. ;AN000;
844;; The band information is obtained from the Color Translate Table. ;AN000;
845;; ;AN000;
846;; Called By: ;AN000;
847;; PRINT_COLOR_APA ;AN000;
848;; ;AN000;
849;; External Calls: ;AN000;
850;; READ_DOT, BIOS INT 10H, STORE_BOX, PRT_BUFFER, PRINT_BYTE ;AN000;
851;; ;AN000;
852;; Logic: ;AN000;
853;; SAVE_START_ROW := CUR_ROW ;AN000;
854;; SAVE_START_COLUMN := CUR_COLUMN ;AN000;
855;; ;AN000;
856;; CALL SET_COLOR_BAND ; Select the color for this print pass ;AN000;
857;; DO (SCAN_LINE_LENGTH) TIMES ;AN000;
858;; Save coordinates of the "column" ;AN000;
859;; Clear the print buffer ;AN000;
860;; DO (BOXES_PER_PRT_BUF) TIMES ;AN000;
861;; CALL READ_DOT(CUR_ROW,CUR_COLUMN,COLOR_NUM) ;AN000;
862;; IF (CUR_BAND_MASK AND XLAT_TAB[COLOR_NUM])=1 THEN ;AN000;
863;; CALL STORE_BOX(black box) ;AN000;
864;; ELSE ;AN000;
865;; CALL STORE_BOX(white box) ;AN000;
866;; ENDIF ;AN000;
867;; IF rotated print THEN ;AN000;
868;; Decrement CUR_COLUMN ;AN000;
869;; ELSE ;AN000;
870;; Increment CUR_ROW ;AN000;
871;; ENDIF ;AN000;
872;; ENDDO ;AN000;
873;; CALL PRINT_BUFFER ;AN000;
874;; Restore coordinates of the "column" ;AN000;
875;; ; Get coordinates of the next "column"; ;AN000;
876;; IF rotated print THEN ;AN000;
877;; Decrement CUR_ROW ;AN000;
878;; CUR_COLUMN := SAVE_START_COLUMN ;AN000;
879;; ELSE ;AN000;
880;; Increment CUR_COLUMN ;AN000;
881;; CUR_ROW := SAVE_START_ROW ;AN000;
882;; ENDIF ;AN000;
883;; ENDDO ;AN000;
884;; RETURN ;AN000;
885;; ;AN000;
886;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AN000;
887PRINT_BAND_APA PROC NEAR ;AN000;
888 PUSH CUR_ROW ; Save coordinates ;AN000;
889 PUSH CUR_COLUMN ;AN000;
890 PUSH AX ;AN000;
891 PUSH BX ;AN000;
892 PUSH CX ;AN000;
893 PUSH SI ;AN000;
894 PUSH DI ;AN000;
895 ;AN000;
896 MOV BX,OFFSET XLT_TAB ; BX := Offset of translation table ;AN000;
897 MOV CX,CUR_SCAN_LNE_LENGTH ;AN000;
898;===============================================================================;AN000;
899; ;AN000;
900; FOR each column on the current scan line (up to the last non=blank): ;AN000;
901; (One "column" contains the number of pixels required to fill the Print buffer);AN000;
902; ;AN000;
903;===============================================================================;AN000;
904PRINT_1_COLUMN: ;AN000;
905;-------------------------------------------------------------------------------;AN000;
906; ;AN000;
907; Clear the print buffer "PRT_BUF" ;AN000;
908; ;AN000;
909;-------------------------------------------------------------------------------;AN000;
910 XOR DI,DI ; DI := Number of bytes cleared in the buffer ;AN000;
911 XOR AX,AX ;AN000;
912 MOV AL,BOX_W ; AX := Number of bytes in the print buffer ;AN000;
913CLEAR_BUF: ; For each byte in the PRT_BUF: ;AN000;
914 MOV PRT_BUF[DI],0 ; Initialize byte to blanks ;AN000;
915 INC DI ; One more has been cleared ;AN000;
916 CMP DI,AX ; All bytes cleared ? ;AN000;
917 JL CLEAR_BUF ; No, clear next one. ;AN000;
918 ;AN000;
919;-------------------------------------------------------------------------------;AN000;
920; ;AN000;
921; Fill up the print buffer "PRT_BUF" ;AN000;
922; ;AN000;
923;-------------------------------------------------------------------------------;AN000;
924 PUSH CX ; Save column counter ;AN000;
925 XOR CX,CX ; CX := Number of pixels to read ;AN000;
926 MOV CL,NB_BOXES_PER_PRT_BUF ; within the current "column" ;AN000;
927 ; of the scan line ;AN000;
928 PUSH CUR_ROW ; Save coordinates of the "column" ;AN000;
929 PUSH CUR_COLUMN ;AN000;
930; ;AN000;
931; For each pixel within the current column of the scan line: ;AN000;
932STORE_1_PIXEL: ;AN000;
933 CALL READ_DOT ; AL := Index into translation table ;AN000;
934 XLAT XLT_TAB ; AL := Band mask ;AN000;
935 .IF <BIT AL AND DL> ; If color of the current pixel needs ;AN000;
936 .THEN ; the current printer band ;AN000;
937 MOV SI,OFFSET BLACK_BOX ; then, store a box in the ;AN000;
938 CALL STORE_BOX ; PRT_BUF ;AN000;
939 .ELSE ; ;AN000;
940 MOV SI,OFFSET WHITE_BOX ; else, store an empty box ;AN000;
941 CALL STORE_BOX ; in the PRT_BUF ;AN000;
942 .ENDIF ;AN000;
943; ;AN000;
944;-------Get coordinates of next pixel: ;AN000;
945 .IF <ROTATE_SW EQ ON> ; If printing sideways ;AN000;
946 .THEN ; ;AN000;
947 INC CUR_COLUMN ; then, increment column number ;AN000;
948 .ELSE ; ;AN000;
949 INC CUR_ROW ; else, increment row number ;AN000;
950 .ENDIF ; ;AN000;
951 LOOP STORE_1_PIXEL ;AN000;
952 ;AN000;
953 POP CUR_COLUMN ; Restore coordinates of the "column" ;AN000;
954 POP CUR_ROW ; ;AN000;
955 POP CX ; Restore column counter ;AN000;
956;-------------------------------------------------------------------------------;AN000;
957; ;AN000;
958; Print the PRT_BUF: ;AN000;
959; ;AN000;
960;-------------------------------------------------------------------------------;AN000;
961 CALL PRINT_BUFFER ;AN000;
962 .IF <BIT ERROR_CODE NZ PRINTER_ERROR> ;AN000;
963 .THEN ; A printer error occurred: QUIT ;AN000;
964 JMP SHORT PRINT_BAND_APA_END ; ;AN000;
965 .ENDIF ;AN000;
966 ;AN000;
967;-------------------------------------------------------------------------------;AN000;
968; ;AN000;
969; Get coordinates of next "column": ;AN000;
970; ;AN000;
971;-------------------------------------------------------------------------------;AN000;
972 .IF <ROTATE_SW EQ ON> ; If printing sideways ;AN000;
973 .THEN ; ;AN000;
974 DEC CUR_ROW ; then, get row above on screen ;AN000;
975 .ELSE ; ;AN000;
976 INC CUR_COLUMN ; else, get column next right ;AN000;
977 .ENDIF ; ;AN000;
978 LOOP PRINT_1_COLUMN ;AN000;
979 ;AN000;
980PRINT_BAND_APA_END: ;AN000;
981 POP DI ;AN000;
982 POP SI ;AN000;
983 POP CX ;AN000;
984 POP BX ;AN000;
985 POP AX ;AN000;
986 POP CUR_COLUMN ; Restore initial coordinates ;AN000;
987 POP CUR_ROW ;AN000;
988 RET ;AN000;
989PRINT_BAND_APA ENDP ;AN000;
990PAGE ;AN000;
991;===============================================================================;AN000;
992; ;AN000;
993; SET_CURSOR : SET THE CURSOR TO CUR_ROW, CUR_COLUMN AND CUR_PAGE ;AN000;
994; ;AN000;
995;-------------------------------------------------------------------------------;AN000;
996; ;AN000;
997; INPUT: CUR_ROW, ;AN000;
998; CUR_COLUMN = Coordinates for the cursor (word) ;AN000;
999; CUR_PAGE = Page for which to set the cursor (byte) ;AN000;
1000; ;AN000;
1001; OUTPUT: SCREEN ;AN000;
1002; ;AN000;
1003;-------------------------------------------------------------------------------;AN000;
1004SET_CURSOR PROC NEAR ;AN000;
1005 PUSH AX ;AN000;
1006 PUSH BX ;AN000;
1007 PUSH DX ;AN000;
1008 MOV DH,BYTE PTR CUR_ROW ;AN000;
1009 MOV DL,BYTE PTR CUR_COLUMN ;AN000;
1010 MOV BH,CUR_PAGE ;AN000;
1011 MOV AH,SET_CURSOR_CALL ; Set cursor request ;AN000;
1012 INT 10H ; Call BIOS ;AN000;
1013 POP DX ;AN000;
1014 POP BX ;AN000;
1015 POP AX ;AN000;
1016 RET ;AN000;
1017SET_CURSOR ENDP ;AN000;
1018PAGE ;AN000;
1019;===============================================================================;AN000;
1020; ;AN000;
1021; SET_COLOR_BAND : SET THE PRINTER TO THE CURRENT COLOR BAND ;AN000;
1022; ;AN000;
1023;-------------------------------------------------------------------------------;AN000;
1024; ;AN000;
1025; INPUT: BX = Offset of current COLORSELECT record in the ;AN000;
1026; Shared data area. ;AN000;
1027; DS:[BP] = Offset of shared data area ;AN000;
1028; ;AN000;
1029; OUTPUT: PRINTER ;AN000;
1030; ;AN000;
1031;-------------------------------------------------------------------------------;AN000;
1032SET_COLOR_BAND PROC NEAR ;AN000;
1033 PUSH AX ;AN000;
1034 PUSH BX ;AN000;
1035 PUSH CX ;AN000;
1036 ;AN000;
1037;-------Send the escape sequence for selecting this color band to the printer: ;AN000;
1038 XOR CX,CX ;AN000;
1039 MOV CL,[BX].NUM_SELECT_ESC ; CX := Number of bytes to send ;AN000;
1040 ADD BX,OFFSET SELECT_ESC ; BX := Offset of bytes to send ;AN000;
1041SEND_1_COLORSELECT_BYTE: ;AN000;
1042 MOV AL,[BX] ; AL := Byte to send to printer ;AN000;
1043 CALL PRINT_BYTE ; Send it ;AN000;
1044 JC SET_COLOR_BAND_END ; If printer error: return ;AN000;
1045 INC BX ; Get next byte ;AN000;
1046 LOOP SEND_1_COLORSELECT_BYTE ;AN000;
1047 ;AN000;
1048SET_COLOR_BAND_END: ;AN000;
1049 POP CX ;AN000;
1050 POP BX ;AN000;
1051 POP AX ;AN000;
1052 RET ;AN000;
1053SET_COLOR_BAND ENDP ;AN000;
1054PAGE ;AN000;
1055;===============================================================================;AN000;
1056; ;AN000;
1057; INIT_BLACK_BOX: INIT. THE BOX FOR PRINTING APA MODE DOTS ON A COLOR PRINTER. ;AN000;
1058; ;AN000;
1059;-------------------------------------------------------------------------------;AN000;
1060; ;AN000;
1061; INPUT: BOX_W, ;AN000;
1062; BOX_H = Size of the print box for one pixel. ;AN000;
1063; ;AN000;
1064; OUTPUT: BLACK_BOX = A box for which all dots are on. ;AN000;
1065; ;AN000;
1066;-------------------------------------------------------------------------------;AN000;
1067; ;AN000;
1068; DESCRIPTION: Initialize the print box used to print a screen pixel. ;AN000;
1069; ;AN000;
1070; For example, ;AN000;
1071; with a size of 3x2 the BLACK_BOX will use 3 bytes: ;AN000;
1072; ;AN000;
1073; ;AN000;
1074; byte1 byte2 byte3 ;AN000;
1075; (column1) (column2) (column3) ;AN000;
1076; bit 7 -->0 0 0 ;AN000;
1077; 0 0 0 ;AN000;
1078; 0 0 0 ;AN000;
1079; 0 0 0 ;AN000;
1080; 0 0 0 ;AN000;
1081; 0 0 0 ;AN000;
1082; 1 1 1 ;AN000;
1083; bit 0 -->1 1 1 ;AN000;
1084; ;AN000;
1085;-------------------------------------------------------------------------------;AN000;
1086INIT_BLACK_BOX PROC NEAR ;AN000;
1087 PUSH AX ;AN000;
1088 PUSH BX ;AN000;
1089 PUSH CX ;AN000;
1090 ;AN000;
1091;-------Build one box column: ;AN000;
1092 XOR CX,CX ;AN000;
1093 MOV CL,BOX_H ; CX := Height in bits of the print box ;AN000;
1094 XOR AL,AL ; AX := Bit mask for creating box column ;AN000;
1095 .REPEAT ; For height of the box: ;AN000;
1096 SHL AL,1 ; ;AN000;
1097 OR AL,1 ; Insert one bit in the box column ;AN000;
1098 .LOOP ;AN000;
1099 ;AN000;
1100;-------------------------------------------------------------------------------;AN000;
1101; ;AN000;
1102; AL now contains one box column. ;AN000;
1103; ;AN000;
1104;-------------------------------------------------------------------------------;AN000;
1105 ;AN000;
1106;-------Replicate this column over all columns of the box. ;AN000;
1107 XOR BX,BX ; BX := Index into the BOX ;AN000;
1108INIT_1_BLACK_COLUMN: ;AN000;
1109 MOV BLACK_BOX[BX],AL; Init current column to black box column ;AN000;
1110 INC BX ; Get next column ;AN000;
1111 CMP BL,BOX_W ;AN000;
1112 JL INIT_1_BLACK_COLUMN ;AN000;
1113 ;AN000;
1114 POP CX ;AN000;
1115 POP BX ;AN000;
1116 POP AX ;AN000;
1117 RET ;AN000;
1118INIT_BLACK_BOX ENDP ;AN000;
1119INCLUDE GRCOMMON.ASM ;AN000;
1120LEN_OF_COLOR_MODULES EQU $-PRINT_COLOR ;AN000;
1121CODE ENDS ;AN000;
1122 END ;AN000;
HIC SVNT DRACONES