home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n15.zip
/
EGA512.SCR
< prev
next >
Wrap
Text File
|
1986-08-05
|
465b
|
28 lines
N EGA512.COM
A 100
MOV BL,[005D] ; 1st Parameter
AND BL,03 ; Lower 3 bits
MOV BH,[006D] ; 2nd Parameter
AND BH,03 ; Lower 3 bits
MOV CX,BX ; Save in CX
SHL BH,1 ; Shift BH left
SHL BH,1
OR BL,BH ; Combine with BL
MOV AX,1103 ; Set block spec.
INT 10
MOV BX,0F12 ; Enable all planes
CMP CL,CH ; but only if
JZ 0124 ; blocks are equal
MOV BH,07 ; Otherwise low
MOV AX,1000 ; Enable planes
INT 10
INT 20
R CX
2B
W
Q