; Dit is een simpele versie om ADPCM Samples op de music module af te spelen
; Hij speelt gewoon de RAMBANKEN af die je kan invullen in de listing
; Gemaakt door FCS  Jeffrey Timmer een tijd terug
; Ik hoop dat jullie er wat aan hebben (SUCCES!)

        ORG   0C000H

        DI
        LD    A,17
        OUT   (0C0H),A
; Dit getal is voor de frequency
        LD    A,81
        OUT   (0C1H),A
        LD    A,18
        OUT   (0C0H),A
; Dit getal is voor het volume
        LD    A,255
        OUT   (0C1H),A
        LD    A,25
        OUT   (0C0H),A
        LD    A,8
        OUT   (0C1H),A
        LD    A,7
        OUT   (0C0H),A
        LD    A,128
        OUT   (0C1H),A
        LD    A,4
        OUT   (0C0H),A
        LD    A,96
        OUT   (0C1H),A
; Begin RAM-BANK
        LD    A,5
LUS01:  PUSH  AF
        OUT   (0FEH),A
        LD    HL,8000H
        LD    BC,4000H
LUS02:  LD    A,15
        OUT   (0C0H),A
        LD    A,(HL)
        OUT   (0C1H),A
        LD    A,4
        OUT   (0C0H),A
        LD    A,128
        OUT   (0C1H),A
        INC   HL
        DEC   BC
        LD    A,B
        OR    C
        JR    Z,OPVANG
WAIT:   IN    A,(0C0H)
        BIT   7,A
        JR    Z,WAIT
        BIT   4,A
        JR    Z,LUS02
OPVANG: POP   AF
        INC   A
; Eind RAM-BANK (EENTJE BIJ OPTELLEN)
        CP    8
        JR    NZ,LUS01
        LD    A,4
        OUT   (0C0H),A
        LD    A,120
        OUT   (0C1H),A
        LD    A,128
        OUT   (0C1H),A
        LD    A,7
        OUT   (0C0H),A
        LD    A,1
        OUT   (0C1H),A
        EI
        RET
OUT