PS1 VAB Scanner

# PS1 VAB bank scanner
# Script for QuickBMS: https://aluigi.altervista.org/quickbms.htm

get BNAME basename
get EOF asize

for i = 0
	findloc OFFSET string "pBAV" 0 -1
	if OFFSET == -1
		cleanexit
	endif

	goto OFFSET
	goto 0x12 0 SEEK_CUR
	get PROGRAMS short
	get TONES short
	get WAVES short

	xmath PROGRAMS_OFF "OFFSET + 0x20"
	xmath TONES_OFF "PROGRAMS_OFF + 0x800"
	xmath WAVES_OFF "TONES_OFF + PROGRAMS * 0x200"
	xmath SIZE "WAVES_OFF + 0x200 - OFFSET"
	goto WAVES_OFF

	for j = 0 < WAVES
		get WAVE_SIZE short
		math WAVE_SIZE << 3
		math SIZE + WAVE_SIZE
	next j

	string NAME p "%s_%d.vab" BNAME i
	log NAME OFFSET SIZE
next i