diff options
| author |  Mark Zbikowski | 2024-04-25 21:24:10 +0100 |
|---|---|---|
| committer |  Microsoft Open Source | 2024-04-25 22:32:27 +0000 |
| commit | 2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch) | |
| tree | 80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM | |
| parent | Merge pull request #430 from jpbaltazar/typoptbr (diff) | |
| download | ms-dos-main.tar.gz ms-dos-main.tar.xz ms-dos-main.zip | |
Diffstat (limited to 'v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM')
| -rw-r--r-- | v4.0/src/CMD/GRAPHICS/GRCOLPRT.ASM | 1122 |
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; | ||
| 60 | PAGE ;AN000; | ||
| 61 | CODE 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; | ||
| 69 | INCLUDE GRCTRL.STR ; Stuctures needed ;AN000; | ||
| 70 | INCLUDE GRSHAR.STR ; for both set of print modules ;AN000; | ||
| 71 | INCLUDE GRPATTRN.STR ; ;AN000; | ||
| 72 | ; ;AN000; | ||
| 73 | INCLUDE GRCTRL.EXT ; Externals from PRT_SCR control module ;AN000; | ||
| 74 | INCLUDE 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; | ||
| 111 | PRINT_MODULE_START LABEL BYTE ;AN000; | ||
| 112 | PRINT_COLOR PROC NEAR ;AN000; | ||
| 113 | JMP SHORT PRINT_COLOR_BEGIN ;AN000; | ||
| 114 | WHITE_BOX DB 0,0,0,0 ; Print boxes for APA mode ;AN000; | ||
| 115 | BLACK_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; | ||
| 119 | REQ_BAND_MASK DB ? ; Mask = "All color bands needed for the current;AN000; | ||
| 120 | ; print line". ;AN000; | ||
| 121 | ;AN000; | ||
| 122 | PRINT_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; | ||
| 166 | PRINT_COLOR_END: ;AN000; | ||
| 167 | RET ;AN000; | ||
| 168 | PRINT_COLOR ENDP ;AN000; | ||
| 169 | PAGE ;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; | ||
| 219 | PRINT_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; | ||
| 243 | PRINT_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; | ||
| 307 | PRINT_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; | ||
| 319 | PRINT_COLOR_TXT ENDP ;AN000; | ||
| 320 | PAGE ;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; | ||
| 354 | SCAN_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; | ||
| 368 | SCAN_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; | ||
| 393 | SCAN_FOR_BANDS_TXT ENDP ;AN000; | ||
| 394 | PAGE ;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; | ||
| 425 | PRINT_BAND_TXT PROC ;AN000; | ||
| 426 | SOLID_BOX EQU 219 ; ASCII Code for printing a solid box ;AN000; | ||
| 427 | BLANK 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; | ||
| 438 | PRINT_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; | ||
| 475 | PRINT_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; | ||
| 481 | CUR_CHAR DB ? ;AN000; | ||
| 482 | PRINT_BAND_TXT ENDP ;AN000; | ||
| 483 | PAGE ;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; | ||
| 575 | PRINT_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; | ||
| 608 | PRINT_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; | ||
| 684 | PRINT_COLOR_APA_END: ;AN000; | ||
| 685 | POP DX ;AN000; | ||
| 686 | POP CX ;AN000; | ||
| 687 | POP BX ;AN000; | ||
| 688 | POP AX ;AN000; | ||
| 689 | RET ;AN000; | ||
| 690 | PRINT_COLOR_APA ENDP ;AN000; | ||
| 691 | PAGE ;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; | ||
| 754 | SCAN_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; | ||
| 769 | SCAN_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; | ||
| 780 | SCAN_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; | ||
| 813 | SCAN_FOR_BANDS_APA ENDP ;AN000; | ||
| 814 | PAGE ;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; | ||
| 887 | PRINT_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; | ||
| 904 | PRINT_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; | ||
| 913 | CLEAR_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; | ||
| 932 | STORE_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; | ||
| 980 | PRINT_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; | ||
| 989 | PRINT_BAND_APA ENDP ;AN000; | ||
| 990 | PAGE ;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; | ||
| 1004 | SET_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; | ||
| 1017 | SET_CURSOR ENDP ;AN000; | ||
| 1018 | PAGE ;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; | ||
| 1032 | SET_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; | ||
| 1041 | SEND_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; | ||
| 1048 | SET_COLOR_BAND_END: ;AN000; | ||
| 1049 | POP CX ;AN000; | ||
| 1050 | POP BX ;AN000; | ||
| 1051 | POP AX ;AN000; | ||
| 1052 | RET ;AN000; | ||
| 1053 | SET_COLOR_BAND ENDP ;AN000; | ||
| 1054 | PAGE ;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; | ||
| 1086 | INIT_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; | ||
| 1108 | INIT_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; | ||
| 1118 | INIT_BLACK_BOX ENDP ;AN000; | ||
| 1119 | INCLUDE GRCOMMON.ASM ;AN000; | ||
| 1120 | LEN_OF_COLOR_MODULES EQU $-PRINT_COLOR ;AN000; | ||
| 1121 | CODE ENDS ;AN000; | ||
| 1122 | END ;AN000; | ||