XDEF	_ChkAdd


		SECTION Calci2,Code

		XREF	_OldZahl
		XREF	_Zahl
		XREF	_error

_ChkAdd:				move.l	d0,-(a7)
					move.l	_OldZahl,d0
					add.l	_Zahl,d0
					bcc.s	_okay
					move.l	#2,_error
_okay:					move.l	d0,_OldZahl
					move.l	(a7)+,d0
					rts

		END