ORG $8100
off_op1		EQU	0
off_op2		EQU	2
offh_ris	EQU	4
offl_ris	EQU	6

op1			DC.W 30000
op2			DC.W 40000
somma

Areap		DS.L 8


START	MOVE.L	A0,-(SP)
		MOVE.L  #Areap,A0 			;passo in A0 l'inizio dell'area param.
		MOVE.W  op1,off_op1(A0) 	;carico i param. ingresso nell'area
		MOVE.W  op2,off_op2(A0)
		JSR		SUB_SOMMA
		MOVE.L  offh_ris(A0),somma 	;recupero il risultato
		STOP	#$00

SUB_SOMMA	MOVE.L D0,-(SP) 		;salvo i registri per le var. locali
			MOVE.W	off_op1(A0),D0	;recupero i dati di ingresso
			ADD.W	off_op2(A0),D0
			BCS	RIPORTO
			MOVE.W	#0,offh_ris(A0)
			BRA	CARICA
RIPORTO 	MOVE.W  #1,offh_ris(A0)
CARICA 		MOVE.W	D0,offl_ris(A0)
			MOVE.L	(SP)+,D0
			RTS
			END	START