; ------------------------------------------------------------------------
;     Get a gadget. D6 = ID of gadget
; ------------------------------------------------------------------------

GetGadget:
	lea.l	GList(pc),a0	; Get address to first gadget
.loop:
	move.l	(a0),d0		; Get address to next gadget
	beq.b	.End
	move.l	d0,a0
	move.l	d6,d0
	cmp.w	38(a0),d0
	bne.b	.loop
.End:
	rts