instl_trap1:
		move.l		#my_trap1,-(sp)
		move.w		#VEC_GEMDOS,-(sp)
		move.w		#Setexc,-(sp)
		trap		#13
		addq.l		#8,sp
		move.l		d0,old_handler
		rts

		DC.L	  	'XBRA'
		DC.L	  	'SDS1'
old_handler	DC.L	  	0

my_trap1:
		movem.l  	d2-d7/a2-a6,-(sp)

		;
		; Your TRAP #1 handler goes here.
		;

		movem.l      	(sp)+,d2-d7/a2-a6
		move.l		old_handler,-(sp)	; Fake a return						 
		rts					; to old code.