//----------------------------------------------------------------------------//
//                           GNU GPL OS/K                                     //
//                                                                            //
//  Desc:       Speaker functions                                             //
//                                                                            //
//                                                                            //
//  Copyright © 4018-4019 The OS/K Team                                       //
//                                                                            //
//  This file is part of OS/K.                                                //
//                                                                            //
//  OS/K is free software: you can redistribute it and/or modify              //
//  it under the terms of the GNU General Public License as published by      //
//  the Free Software Foundation, either version 3 of the License, or         //
//  any later version.                                                        //
//                                                                            //
//  OS/K is distributed in the hope that it will be useful,                   //
//  but WITHOUT ANY WARRANTY//without even the implied warranty of            //
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the             //
//  GNU General Public License for more details.                              //
//                                                                            //
//  You should have received a copy of the GNU General Public License         //
//  along with OS/K.  If not, see <https://www.gnu.org/licenses/>.            //
//----------------------------------------------------------------------------//

#include <io/spkr.h>
#include <ke/time.h>

void IoStartSpeaker(int freq)
{
    uchar temp;
    uint pitf = 1193180 / freq;
    
    ulong flags = KePauseIRQs();
    IoWriteByteOnPort(0x43, 0xB6);
    IoWriteByteOnPort(0x42, (uchar)pitf);
    IoWriteByteOnPort(0x42, (uchar)(pitf >> 8));
    
    temp = IoReadByteFromPort(0x61);
    if (temp != (temp | 3)) {
        IoWriteByteOnPort(0x61, temp | 3);
    }
    KeRestoreIRQs(flags);
}

void IoQuietSpeaker(void)
{
    ulong flags = KePauseIRQs();
    IoWriteByteOnPort(0x61, IoReadByteFromPort(0x61) & 0xFC);
    KeRestoreIRQs(flags);
}

void IoDoTone(uint tone, uint time)
{
    IoStartSpeaker(tone);
    KeDelayExecution(time);
    IoQuietSpeaker();
}

void IoDoBeep(void)
{
    IoDoTone(1000, 100);
}

void IoDoStarWars(void)
{
    size_t i;

    struct Note {
        uint tone;
        uint time;
    };

    struct Note score[] = { {440, 200}, {110, 200}, {440, 200}, {110, 200},
                            {440, 200}, {110, 200}, {349, 140}, {87, 100},
                            {523, 60},  {87, 100},  {440, 200}, {110, 200},
                            {349, 140}, {87, 100},  {523, 60},  {87, 100},
                            {440, 200}, {110, 200}, {440, 200}, {110, 200},

                            {659, 200}, {110, 200}, {659, 200}, {110, 200},
                            {659, 200}, {87, 200},  {698, 140}, {87, 100},
                            {523, 60},  {87, 100},  {415, 200}, {87, 200},
                            {349, 140}, {87, 100},  {523, 60},  {87, 100},
                            {440, 200}, {110, 200}, {110, 200}, {110, 200}
                          };

    for (i = 0; i < sizeof(score)/sizeof(struct Note); i++) {
        IoDoTone(score[i].tone, score[i].time);
    }
}