INCLUDE Makros.asm

ASSUME DS:DATA, CS:CODE

DATA	SEGMENT
m	DW 298
n	DB 56
r	DB 1
erg	DB ?
ende	DB "$"
DATA	ENDS

CODE	SEGMENT
Start:		mov ax,data
		mov ds,ax
Marke1:		mov ax,m
		div n
		mov r,ah
		test r,077h
		jz Ausgabe
		mov al, n
		mov n, ah
		xor ah,ah	;schneller als mov ah,0
		mov m,ax
		jmp Marke1
Ausgabe:	mov erg,al
		add erg,48
		Display_String erg
		Terminate_Program
CODE	ENDS
END	Start