MOV AX,0A000
MOV DS,AX
MOV AX,013 ; GRAPHICS MODE 13H 320X200
INT 010
MOV SI,0
MOV CX,0
L4:
MOV B[SI],31 ; DRAW PIXEL OF LINE 0,0 TO 320,200 USING BRESENHAM
ADD CX,200
MOV AX,CX
SHL AX,1
CMP AX,320
JB L5
ADD SI,320
SUB CX,320
L5:
ADD SI,1
CMP SI,64000
JB L4
L2:
MOV AX,0 ; HOLD SCREEN
INT 016
CMP AH,1
JE L3
JMP L2
L3:
MOV AX,2 ; RESET MODE 2
INT 010
MOV AX,04C00 ; NORMAL EXIT
INT 021