COMP    ASM; --------------------------------
; Vergleich von vorzeichenlosen
; Dualzahlen
; --------------------------------
;
	ORG	4000H
;
	DEFW	7F7FH
	DEFM	'COMP'
	DEFB	1
;
; Parameteruebergabe
;
	LD	A,(0B784H)  ; 2. Param.
	LD	B,A
	LD	A,(0B782H)  ; 1. Param.
;
; Vergleich und bedingte Spruenge
;
	CP	B
;
	JR	C,KL	; C -> kleiner
;
	JR	Z,GL	; NC und Z
			; -> gleich
;
			; sonst groesser
;
; Ausgabe des Vergleichsergebnisses
; und Ruecksprung zum Betriebssystem
;
GR:	CALL	0F003H
	DEFB	23H
	DEFM	'gr|~er'
	DEFW	0A0DH
	DEFB	0
	RET
;
GL:	CALL	0F003H
	DEFB	23H
	DEFM	'gleich'
	DEFW	0A0DH
	DEFB	0
	RET
;
KL:	CALL	0F003H
	DEFB	23H
	DEFM	'kleiner'
	DEFW	0A0DH
	DEFB	0
	RET
;
	END
À@Àt(Àp6ÀnTop of Text: End of Text: Start L:	CALL	0F003H
	DEFB	23H
	DEFM	'kleiner'
	DEFW	0A0DH
	DEFB	0
	RET
;
	END
À@Àt(Àp6ÀnTop of Text: End of Text: Start 