Ghosts'n Goblins (Amiga)

Ghosts 'n Goblins
Developer: Elite Systems Publisher: Elite Systems Platform: Amiga Released in EU: 1990 This game has uncompiled source code.

Source Code

Hidden inside the ADF dump at 0xBDC78:

        move.b	(a5)+,d0
	move.b	0(a0,d0.w),(a4)
	addq.l	#2,a4

	move.b	(a5)+,d0
	move.b	0(a0,d0.w),1(a2)
	move.b	(a5)+,d0
	move.b	0(a0,d0.w),(a2)
	addq.l	#2,a2

	move.b	(a5)+,d0
	move.b	0(a0,d0.w),1(a4)
	move.b	(a5)+,d0
	move.b	0(a0,d0.w),(a4)
	addq.l	#2,a4

	dbf	d6,nslL
	dbf	d7,nspL

	lea	fsprLA(pc),a0
	lea	fsprRA(pc),a1
	lea	spr4a,a2
	lea	spr6a,a3
	moveq	#34-1,d7
.1
	move.l	(a0)+,(a2)+
	move.l	(a1)+,(a3)+
	dbf	d7,.1

	lea	spr5a,a2
	lea	spr7a,a3
	moveq	#34-1,d7
.2
	move.l	(a0)+,(a2)+
	move.l	(a1)+,(a3)+
	dbf	d7,.2
*
	lea	msprites(pc),a0
	lea	spr0a,a1
	lea	spr2a,a2
	moveq	#13-1,d7

	clr.l	(a1)+
	clr.l	(a2)+
.3
	move.l	(a0)+,(a1)+
	clr.l	(a2)+
	dbf	d7,.3

	clr.l	(a1)+
	clr.l	(a2)+

	lea	spr1a,a1
	lea	spr3a,a2
	moveq	#13-1,d7

	clr.l	(a1)+
	clr.l	(a2)+
.4
	move.l	(a0)+,(a1)+
	clr.l	(a2)+
	dbf	d7,.4

	clr.l	(a1)+
	clr.l	(a2)+

	lea	tspriteL(pc),a0
	lea	tspr

(Source: redblade)