
TITLE GRAPHIX.COM
codeseg segment
	assume cs:codeseg,ds:codeseg,ss:codeseg
	org 100h
main proc far
	mov	ah,0	     ;set graphics mode
	mov	al,04	     ;320 x 200 color
	int	10h

	mov	ah,0bh	     ;set color palrtte
	mov	bh,0	     ;background
	mov	bl,1	     ;blue
	int	10h	     ;call BIOS

	mov	ah,0bh	     ;select palette
	mov	bh,01
	mov	bl,0	     ;palette 0#
	int	10h

	mov	bx,0	     ;set initial color
	mov	cx,0	     ;  column and
	mov	dx,0	     ;    row
line:
	mov	ah,0ch	     ;write dot
	mov	al,bl	     ;set color
	int	10h
	inc	cx	     ;increment column
	cmp	cx,320	     ;column at 320?
	jne	line	     ;no, loop
	mov	cx,0	     ;yes, reset column
	inc	bl	     ;change color
	and	bl,03
	inc	dx	     ;increment row
	cmp	dx,40	     ;row at 40 ?
	jne	line	     ;no,loop
	ret		     ;yes,terminate
main    endp
codeseg ends
	end main

