home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 September
/
Simtel20_Sept92.cdr
/
msdos
/
pcmag
/
vol5n15.arc
/
WRITEDOT.SCR
< prev
next >
Wrap
Text File
|
1986-08-05
|
418b
|
28 lines
N WRITEDOT.COM
A 100
MOV AX,0010 ; Set video mode
INT 10 ; to 16
SUB BH,BH ; Page 0
SUB DX,DX ; Row 0
SUB CX,CX ; Column 0
MOV AL,01 ; Blue
MOV AH,0C ; Write Dot
INT 10
INC CX ; Next Column
CMP CX,0280 ; See if 640
JB 010B ; If below, loop
INC DX ; Next Row
CMP DX,015E ; See if 350
JB 0109 ; If below, loop
MOV AX,0003 ; Set video mode
INT 10 ; to 3
INT 20 ; Terminate
R CX
26
W
Q