;Egy 20 elemű szavas tömb minden elemét tegye 8-cal oszthatóvá! 
;Nem használhat DIV utasítást!
;MEGOLDÁS: UTOLSÓ 3 BIT NULLÁZÁSA

ADAT SEGMENT

  A1	DW	280, 290, 300, 458, 397, 222, 789, 987, 564, 456, 591, 375, 753, 999, 1337, 1222, 1526, 1920, 1938, 3947

ADAT ENDS

PROG SEGMENT
	ASSUME DS:ADAT, CS:PROG

KEZD:	MOV	AX, ADAT
	MOV	DS, AX

	MOV	CX, 20
	MOV	SI, 0
	XOR	AX, AX
	XOR	BX, BX

NYOLC:	MOV	AX, A1[SI]
	MOV	BX, AX
	SHL	BX, 3
	AND	AX, BX
	INC	SI
	INC	SI
	LOOP	NYOLC

	MOV	AH, 4CH
	INT	21H
	PROG	ENDS
		END	KEZD