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

op1			DC.W 3
op2			DC.W 4
somma       DS.L 1



START	MOVE.W  op1,-(A7) 	;carico i param. ingresso nello stack
		MOVE.W  op2,-(A7)
		SUB.L   #4,A7
		JSR		SUB_SOMMA
		MOVE.L  (A7)+,somma 	;recupero il risultato
		STOP	#$00

SUB_SOMMA	MOVE.L D0,-(A7) 		;salvo i registri per le var. locali
			MOVE.W	14(A7),D0	;recupero i dati di ingresso
			ADD.W	12(A7),D0
			BCS	RIPORTO
			MOVE.W	#0,8(A7)
			BRA	CARICA
RIPORTO 	MOVE.W  #1,8(A7)
CARICA 		MOVE.W	D0,10(A7)
			MOVE.L	(A7)+,D0
			RTS
			END	START












*~Font name~Courier New~
*~Font size~18~
*~Tab type~1~
*~Tab size~4~