; Se da un sir de numere reprezentate pe 16 biti fara semn
; fiecare. Se cere sa se afiseze toate numerele din sir.
extrn	tipar:near	; informam asamblorul ca exista o functie
			; numita 'tipar'

; modulul principal

_data segment public
sir		dw 20, 01234h, 0, 15, 65530, 0111010111b
final_sir	label word
_data ends

_text segment public
assume cs:_text
assume ds:_data


; programul principal
; facem o bucla in care parcurgem sirul, tiparind fiecare element
start:
	mov ax, _data
	mov ds, ax

	mov si, offset sir
	cld
bucla:
	cmp si, offset final_sir
	je final
	lodsw
	call tipar
	jmp bucla
final:
	mov ax, 4C00h
	int 21h
_text ends

_stack segment stack
	db 512 dup (?)
_stack ends

end start