Interrupt time Z80 for work with sound effect in assembler MSX

Hi,

I'd like to help, but I'm not really sure what you're trying to do. Do you want to create a routine which plays sound effects, or do you only need a routine which handles the interrupt service?

Have you checked a full listing for the assembled code, or loaded up in a debugger? That is, check what the assembler actually outputs as binary file, and where everything is located? I can see several problems with your code:

• the BLOAD header says code goes from startProgram to endProgram, possibly BASIC loads just that, and "start" routine (behind endProgram) isn't loaded?
• I get the feeling you're trying to use .ORG statements to make code start at specific addresses (and expect the assembler to fill up spaces in between). Don't! .ORG serves as reference for absolute addresses, but *you* should watch how much space everything takes up. One .ORG statement is enough, unless the code itself relocates pieces of code that contain absolute addresses. Also: doesn't the ".end" directive tell the assembler to stop assembling code? That means "start" routine shouldn't be included, even though you're calling it? Weird...
• The CAPON section is always executed... perhaps you'd want to end CAPOFF section with a JR to FIN ?
• Why not simply store the old hook contents directly behind your interrupt routine?
• Btw: what does that "start" routine do?

Let me make some edits, see if this works for you?

; [YOUR GROUP] MSX Z80 source file.
;
; Prog: 
; Code: [YOUR HANDLE]
; Date:
;
; cmnt:
;
; Coded in TeddyWareZ' Chaos Assembler 3
;
; (C) 2001 [YOUR GROUP]!



;*************************************************************
;   List 2.4   How to use HOOK safely
;	       This routine uses TIMER INTERRUPT HOOK
;				   and turn on/off CAPS LOCK
;	       To start, do  DEF USR=&HB000 : A=USR(0)
;	       To end,	 do  DEF USR=&HB002 : A=USR(0)
;*************************************************************
;
CHGCAP .EQU	0132H		;CAPS LAMP on/off
CAPST	 .EQU	0FCABH		;CAPS LOCK status
TIMI	 .EQU	0FD9FH		;timer interrupt hook
JPCODE .EQU	0C3H
TIMER	 .EQU	020H



	.db $fe
	.dw startProgram,end-1,startProgram

	.org $B000

startProgram:

;----- interrupt on ----- Note:  restore the former hook
				 ;when changing the hook
	JR INTON

;----- interrupt off ----- Note:  restore the reserved hook and exit

INTOFF:
	LD	HL,HKSAVE
	LD	DE,TIMI
	LD	BC,5
	DI
	LDIR
	EI  
	CALL $90 ; resetta canale audio
	RET


INTON:
	CALL START  ; load and initialize STAR MUSIC
	LD	HL,TIMI 	;OLD HOOK SAVE
	LD	DE,HKSAVE
	LD	BC,5
	LDIR

	LD	A,JPCODE	;NEW HOOK SET
	DI
	LD	(TIMI),A
	LD	HL,INT
	LD	(TIMI+1),HL
	EI
	RET


;----- interrupt routine -----

INT:	PUSH	AF
	LD	A,(CAPST)
	OR	A
	JR	Z,CAPON

CAPOFF: 
   ; silence
	JR FIN

CAPON:
   ; play 1 quark
   
FIN:
 	POP	AF
HKSAVE:
	NOP			;old HOOK save area
	NOP
	NOP
	NOP
	RET

COUNT1:           
      .DB TIMER
COUNT2:
      .DB TIMER


start:

 LD A,7
 LD E,254
 CALL 147
 LD A,8
 LD E,15
 CALL 147
 LD E,40
CICLO:
 LD A,0
 CALL 147
 LD A,10
RITARDO:
 PUSH AF
 LD A,255
MENO:
 DEC A
 JP NZ,MENO
 POP AF
 DEC A
 JP NZ,RITARDO
 LD A,E
 SUB 150
 JP Z,NEXT
 ADD A,151
 LD E,A
 JP CICLO
NEXT:
 LD A,0
 LD E,0
 CALL 147
 LD A,7
 LD E,247
 CALL 147
 LD A,0
NEXT1: 
 PUSH AF   
 LD E,A
 CALL 147
 LD A,50
PIPPO:
 PUSH AF
 LD A,255
PLUTO: 
 DEC A
 JP NZ,PLUTO
 POP AF
 DEC A
 JP NZ,PIPPO
 POP AF
 SUB 31
 JP Z,RITA
 ADD A,32
 JP NEXT1
RITA:
 LD A,100
RITA1:
 PUSH AF
 LD A,255
RITA2:
 DEC A
 JP NZ,RITA2
 POP AF
 DEC A
 JP NZ,RITA1
 LD A,7
 LD E,255
 CALL 147
 RET
  
end:

The start routine is somekind of sfx playing routine; but not designed to be executed under an interrupt.
... and isn't used that way (at least not in above code).

I have no idea about the exact PSG registers addressed and what they do , but: sequences of increasing/decreasing values written, delays in between... I suspect it serves as a "kill whatever PSG sound that may already be playing, gradually".

I hope than you have free time for make this litte work for me, OK??

You remember, than I job with CHAOS ASSEMBLER for Windows.
Gotta love those machine translations... only some of those Japanse/Korean/Chinese -> English manual translations are funnier

If it's just about soundeffects (not music) then the SEE replayer is probably the easiest to modify for use in basic.

Hi retro Techie,

I had already make to putting (.end) at the end of the programm in
assembler, but it doesn't work nothing!!

But You have tried to do to work this programm in assembler??
Have you do of the try!! If no, you try to do of TEST, OK??
And send me please, the source right!! Without error bug, Ok??

I wait your good news
Bye
Andrea