DATAS SEGMENT
LINE DW 0
ROW  DW 0   ;此处输入数据段代码  
COL  DB 0
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    ;此处输入代码段代码
   
       MOV AH,0
    MOV AL,12H
    INT 10H
   
    ;下面是主程序的设计
             MOV AH , 0CH       ;指明写点调用
             MOV AL , COL       ;取点的颜色
             MOV DI , 100       ;用于控制行显示循环
             MOV DX , LINE      ;取点的行坐标
DISP_2:
             MOV SI , 100        ;控制列显示循环
             MOV CX , ROW       ;取显示点的列坐标
DISP_1:
             INT 10H            ;完成点的显示
             INC CX             ;列坐标加1（行不变）
             DEC SI
             JNZ DISP_1         ;循环显示完一行的10个点
             INC DX             ;行坐标加1
             DEC DI
             JNZ DISP_2         ;循环显示完100行
            
   
    MOV AH,4CH
    INT 21H
   
CODES ENDS
END START