;um intdemo.asm zu übersetzen rufen Sie:
;> tasm intdemo
; -> es wird "intdemo.obj" erzeugt
;mit int.obj zusammenbinden:
;> tlink intdemo int
; -> es wird intdemo.exe erzeugt


assume cs:code,ds:data

extrn ReadInt:near, WriteInt:near

data segment
  mesg db 13,10,"Geben Sie eine dezimale ganze Zahl ein: $"
  mesg2 db 13,10,"Die folgende Zahl wurde eingelesen: $"
data ends

code segment



start:
  mov   ax, data
  mov   ds, ax

  mov ah,09h
  lea dx,mesg
  int 21h

  call  ReadInt ; nach dem Ausführung dieses Unterprogrammes haben wir
	    	; die eingelesene ganze Zahl in AX
  push ax
  
  mov ah,09h
  lea dx,mesg2
  int 21h 

  pop ax
  call  WriteInt ; wir geben die Zahl von AX (die vorher eingelesene ganze Zahl) 
		 ; auf dem Bldschirm aus
 

  mov   ax, 4C00h
  int   21h


code ends

stapel segment stack
  db 4096 dup(?)

stapel ends
end start