;
;	simon for gmc-4
;
;	a:general
;	b:random seed
;	y:index
;	z:next ptr (=score)
;

gameOver:
	cal	ends		; game over sound
waitStart:
	ka
	jump	waitStart
initGame:
	tiy	0
	ch
	tiy	0
nextValue:
	tia	4
	cal	timr		; wait a minute
	ch
	cal	sift		; convert to 4-8
	am			; force exec next line
	cal	sift
	aia	4
	am
	aiy	1
	jump	gameOver	; no room
	tia	0
	am			; end mark
	ch
	tiy	0
dispLoop:
	ma
	ao
	cal	sund
	aiy	1
	cia	0		; end mark?
	jump	dispLoop
	tiy	0
inputLoop:
	ma
	cia	0		; answer all?
	jump	inputValue
	jump	nextValue
inputValue:
	ch
	aia	1		; shuffle random value
	ch
	ka
	jump	inputValue
	ao
	cal	sund
	m-
	cia	0		; correct?
	jump	gameOver
	aiy	1
	ma			; force exec next line
	jump	inputLoop