playing sound samples

[nitrofurano]

btw, talking also a bit back about the library for playing sound samples, trying (humbly) to 'clean' a bit the Jay Salmon's disassembled code (from http://www.worldofspectrum.org/showmag.c...000081.jpg ), what should we fix/adapt to have it working as zxbasic-compiler library? (note that i'm not being able to understand exactly what the code does)

Code:

Adr01: LD HL,65220 LD DE,26300 PUSH HL AND A SBC HL,DE INC HL LD C,H LD B,L POP HL LD A,(BC) LD A,(23624) RRCA RRCA RRCA AND 007 EXX LD C,A PUSH HL LD H,016 EXX DI Adr02: LD A,(HL) RRCA RRCA RRCA RRCA EXX LD E,A LD D,008 Adr03: LD A,E SUB H DEC BC OUT (254),A RRC E DEC D JR Z,Adr05 LD B,020 Adr04: DJNZ Adr04 JR Adr03 Adr05: EXX DEC HL LD A,000 DJNZ Adr02 DEC C JR NZ,Adr02 EXX POP HL EXX EI RET