Opt	c-
	Section	"MemSizes",Code_c
			
CheckMem	Moveq.l	#0,d0
	Lea	FastSize(pc),a5
	Move.l	d0,00(a5)
	Move.l	d0,04(a5)
			
	Move.l	4,a6
	Move.l	322(a6),a0
			
CheckNode	Move.w	14(a0),d0
	Move.l	20(a0),d1
	Move.l	24(a0),d2
	And.l	#$fffff000,d1
	Sub.l	d1,d2
	And.w	#4,d0
	Beq	AddChip
			
	Add.l	d2,00(a5)
	Bra	TryNextNode
			
AddChip	Add.l	d2,04(a5)

TryNextNode	Move.l	0(a0),a0			
	Tst.l	(a0)
	Bne	CheckNode
	Rts
			
FastSize	Dc.l	0	
ChipSize	Dc.l	0