1 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
3 ;=- Tauron VGA Utilities Version 3.0 -=
\r
4 ;=- Released September 20, 1998 -=
\r
6 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
7 ;=- Copyright (c) 1997, 1998 by Jeff Morgan =-= This code is FREE provided -=
\r
8 ;=- All Rights Reserved. =-= that you put my name some- -=
\r
9 ;=- =-= where in your credits. -=
\r
10 ;=- DISCLAIMER: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
11 ;=- I assume no responsibility whatsoever for any effect that this package, -=
\r
12 ;=- the information contained therein or the use thereof has on you, your -=
\r
13 ;=- sanity, computer, spouse, children, pets or anything else related to -=
\r
14 ;=- you or your existance. No warranty is provided nor implied with this -=
\r
16 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
26 MOV AH,byte ptr [bp+4]
\r
28 MOV CX,Mode.width_bytes
\r
36 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
47 MOV AX,WORD PTR [BP+4]
\r
49 MOV CX,Mode.width_bytes
\r
57 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
58 ; Mode 0Dh clear screen
\r
74 XCHG DWORD PTR ES:[DI],EAX
\r
77 MOV AH,BYTE PTR [BP+4]
\r
81 MOV DWORD PTR ES:[DI],0FFFFFFFFH
\r
97 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
98 ; Mode 0Eh clear screen
\r
114 XCHG DWORD PTR ES:[DI],EAX
\r
117 MOV AH,BYTE PTR [BP+4]
\r
121 MOV DWORD PTR ES:[DI],0FFFFFFFFH
\r
137 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
151 ; 0d 0e 11 have bytes /2
\r
152 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
162 MOV CX,Mode.width_bytes
\r
171 XCHG WORD PTR ES:[DI],AX
\r
174 MOV AH,byte ptr [bp+4]
\r
178 MOV WORD PTR ES:[DI],0FFFFH
\r
194 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
204 MOV AL,byte ptr [bp+4]
\r
214 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r
216 UNCHAINEDCLEAR PROC
\r
220 mov dx, 03C4h ; 03c4h
\r
221 mov al, 2 ; Map Mask Register
\r
224 mov al,00001111B ; Select all planes to write to
\r
225 out dx, al ; Doing this to clear all planes at once
\r
229 XOR DI,DI ; set es:di = Screen Mem
\r
230 mov ah,byte ptr [bp+4] ; move the color into ah
\r
231 mov al,ah ; copy the value to al
\r
232 mov cx,Mode.width_bytes ; Number of words
\r
235 rep stosw ; clear it
\r
239 UNCHAINEDCLEAR ENDP
\r
241 ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\r