; Sei eine Folge von Zahlen gegeben, die auf 16 Bits, ohne
; Vorzeichen dargestellt sind. Zeigen Sie am Bildschirm alle
; Zahlen der Folge an.

extrn	ausgeben:near	; wir informieren den Assembler, dass es ein 
			; Unterprogramm namens 'ausgeben' gibt, das in
			; einem anderen Modul deklaiert ist

; Hauptmodul

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

_text segment public
assume cs:_text
assume ds:_data


; das Hauptprogramm
; wir machen eine Schleife: wir laufen die Elemente der Folge durch
; und zeigen jedes Element am Bildschirm an
start:
	mov ax, _data
	mov ds, ax

	mov si, offset String
	cld
Schleife:
	cmp si, offset Ende_String
	je Ende
	lodsw
	call ausgeben
	jmp Schleife
Ende:
	mov ax, 4C00h
	int 21h
_text ends

_stack segment stack
	db 512 dup (?)
_stack ends

end start