CSECT	text
		XDEF _checksum

_checksum	lea  	$fc0000,a0
		move.l  #$10000,d1
		move.l  d1,d2
		swap    d2
		clr.l	d0
		bra.s   lab2
lab1		add.l   (a0)+,d0
		bcc.s	lab2
		addi.l	#1,d0
lab2		dbra	d1,lab1
		dbra	d2,lab1
		not.l   d0
		rts
		END