ORG	0B66EH		;B66E-B692
	LD A,026H		;OUT 15,&H26（PSG初期設定）
	OUT (15),A
	LD A,(0B69BH)		;A=長さ
	LD B,A

loop:
	    PUSH BC

		LD A,(0B69CH)	;A=音程用ループ数１
		LD B,A

loop1:
		OUT (12),A	;OUT 12,音程（PSG音程上位ビット設定）
		NOP
		DJNZ loop1

		LD A,(0B69DH)	;A=音程用ループ数２
		LD B,A

		LD A,8
loop2:
		OUT (2),A	;OUT 2,8（PSG音出し）
		NOP
		DJNZ loop2

	    POP BC
	DJNZ loop

	LD A,0			;OUT 2,0（PSG音消し）
	OUT (2),A
	RET