STACK1	SEGMENT	PARA	STACK
	DW	200H	DUP(0)
STACK1	ENDS
CODE	SEGMENT
	ASSUME	CS:CODE,SS:STACK1
START:MOV	AH,0
	MOV	AL,12H
	INT	10H
		
	MOV	DX,0

	MOV	AL,3
	L1:CALL	LINE
	INC	DX
	CMP	DX,120
	JB	L1
	JA	L2
	ADD	AL,4
	L2:CMP	DX,240
	JB	L1
	JA	L3
	ADD	AL,4
	L3:CMP	DX,360
	JB	L1
	JA	L7
	ADD	AL,4
	L7:CMP	DX,480
	JB	L1	
	
	MOV	AH,1
	INT	21H
	MOV	AH,0
	MOV	AL,3
	INT	10H
	MOV	AH,4CH
	INT	21H

LINE	PROC
	MOV	CX,0
	;PUSH	AX
	MOV	AH,0CH
	L:INT	10H
	INC	CX
	CMP	CX,160
	JB	L
	JA	L4
	INC	AL
	L4:CMP	CX,320
	JB	L
	JA	L5
	INC	AL
	L5:CMP	CX,480
	JB	L
	JA	L6
	INC	AL
	L6:CMP	CX,640
	JB	L
	;POP	AX
	RET
LINE	ENDP
CODE	ENDS
	END	START