main:
STZ $1413
	REP #$20
	LDA $1462
	EOR #$FFFF
	LSR A
	STA $1466
	SEP #$20
RTL

back to listings