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