Draw a box

[torbecire]

I am supposed to draw a box with coordinates UpperLeft(5,70) UpperRight(5,10), LowerRight(20,10) LowerLeft(20,70). I can't figure out what I am doing wrong. HERE IS ME CODE.

TITLE BOX

 INCLUDE Irvine32.inc

.code
main PROC

         COORDS BYTE 5,10,20,70
		     UL BYTE 0DAh
			 UR BYTE 0BFh
			 LL BYTE 0C0h
			 LR BYTE 0Dh
		   VERT BYTE 0B3h
		  HORIZ BYTE 0C4h

		  mov DH, COORDS
		  mov DL, COORDS + 1

		  ; Draw corners

		  mov DH, [ESI]
		  mov DL, [ESI + 1]
		  call gotoxy
		  mov AL, DH
		  call writechar
		  mov DH, [ESI]
		  mov DL, [ESI + 3]
		  call gotoxy

		  mov CL, [ESI + 3]
		  sub CL, [ESI]
		  DEC CL
exit
main ENDP
END main