;x86 bootsector ,one sector
; Program entry point
; Currently we are at 0:7C00
;************************************************************
org 0
EntryPoint:

    jmp 0x07C0:AfterData
     
                    
    ; BIOS PARAMETER BLOCK
              oemID                           db "MS-DOS", 0, 0     ; 8 bytes
           bytesPerSector          dw 0200h
            sectorsPerCluster       db 01h
              nrReservedSectors       dw 0001h                        ; bootloader is spanning 1 sectors
          nrFats                          db 02h
              nrRootDirs                      dw 00E0h
            totalSectorsSmall       dw 0B40h
            mediaID                         db 0F0h
             sectorsPerFat           dw 0009h
            sectorsPerTrack         dw 0012h
            headsPerCylinder        dw 0002h
            hiddenSectors           dd 00000000h
                totalSectorsLarge       dd 00000000h
                driveNr                         db 00h                                  
    ;OPTIONAL FIELDS, NOT NEEDED ON
     ;FAT12, SKIPPED TO SAVE SIZE.
               flags                           db 00h
              signature                       db 29h
              volumeID                        dd 0FFFFFFFFh
               volumeLabel                     db "Pauls kernel"
         systemID                        db "FAT12   "                 

        ;my data
             BOOT_MSG db 'SHAKE YA BOOTY !',10,13,0
                 ACTIVITY db 'TURN THAT NOISE OFF!',0
        
TONE_TABLE dw    666,444,555,777,212,660,0
           



      


AfterData:
; update DS to be 7C0 instead of 0
push CS
pop DS

; update ES also
push CS
pop ES

; create stack
mov ax, 0x0000
mov ss, ax
mov sp, 0xFFFF

 
; display boot message...
lea si, [BOOT_MSG]
call Print
call Play

mov dx,10
DIE_LOOP:
lea si, [ACTIVITY]
call Print
mov cx, 0xffff
delay1:
mov bx, 0xfff
delay2:
dec bx
jnz delay2
dec cx
jnz delay1
dec dx
jnz DIE_LOOP

int 19h          ;reboot

;************************************************************
; Procedure print
; prints a zero terminated string pointed to by si
;************************************************************
Print:
push ax
mov ah, 14; BIOS code for screen display
cld
print_loop:
lodsb; moving the character to be displayed to al
or al, al; checking if the char is NULL
jz printdone
int 10h; Calling BIOS routine
JMP print_loop

printdone:
pop ax
ret
; End of print procedure...


;************************************************************
; Procedure Play
; plays a sick and demented melody 
;************************************************************

Play:

        pusha                    ;save regs
        lea si, [TONE_TABLE]    ;load sound data
GET_NEXT: 
        mov di,[si]              ;grab a tone
      call Sound              ;play it 
   call Delay
  

        
        add si,2
        cmp word [si],0
     jne GET_NEXT
        
    mov  dx,0                        ;turn off speaker
        call ChangeSpeaker
          
      
        


        ;restore regs and return
        popa
RET
;end Play            

        ;status in dx ,1= on 0 = off
ChangeSpeaker:
in al,0x61
cmp dx,1
jne off
or al,3
jmp on

off:
mov dx,3
not dx
and ax,dx
on:
out 0x61,al
RET
;end ChangeSpeaker



Sound: 

;hertz in di
mov  dx,1                        ;turn on speaker
call ChangeSpeaker

mov al,0xb6
out 0x43, al

                                ;  calculate tone
        mov    dx,14h           
        mov    ax,4F38h          ;  divisor of frequency
        div    di 
                          ;  play tone                 
        out    42h,al            ;  lower byte of frequency
        mov    al,ah            ;
        out    42h,al            ;  higher byte of frequency

RET
;end sound


Delay:
        mov cx, 0xffff
        delay3:
        mov bx, 0xfff
        delay4:
        dec bx
        jnz delay4
        dec cx
        jnz delay3
RET
;end Delay

          
            
            
            
            
; Make the file 512 bytes long
TIMES 510-($-$$) DB 0

; Add the boot signature
dw 0AA55h







    

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <sys/io.h>



#define ON  (1)
#define OFF (0)
/*------------------------------------------------
ChangeSpeaker - Turn speaker on or off.
*/

void ChangeSpeaker( int status )
{
int portval;
portval = inb( 0x61 );
if ( status==ON )portval|= 0x03;
else
  portval &= ~0x03;
outb(portval,0x61 );


}



 /*--ChangeSpeaker( )----------*/
void Sound( int hertz )
{
unsigned divisor = 1193180L / hertz;

ChangeSpeaker( ON );

outb( 0x43, 0xB6 );
outb( (divisor & 0xFF),0x42 );
outb( divisor >> 8 ,0x42);
}

void NoSound( void )
{
ChangeSpeaker( OFF );
}


int main( int argc ,char **argv)
{

int Playlist[5];
int i;



if( iopl(3) < 0 )// for requesting kernel io perms

                {
                fprintf(stderr,"Error iopl(): Are you root? \n");
                exit(-1);
                }

printf("enter a series of 5 tones ->  ");

do
{
  for (i=0;i < 5;i++ ) {
      scanf("%d",&Playlist[i]);
             if(Playlist[i] == 0){
                i = 6;
                break;
              }
      }

  if(i == 6) break;


   for (i=0;i < 5;i++ ) {
      Sound( Playlist[i]);
        sleep( 1 );

     }

}while (1);

NoSound( );

return(0);

}






    

; create stack 
mov ax, 0x0000 
mov ss, ax 
mov sp, 0xFFFF 
    

; create stack 
push cs
pop ss
mov sp, 0xFFFF 
    

; create stack 
mov ax,cs
add ax,4096 ; + 64 kB @ offset side
mov ss,ax
mov sp, 0xFFFF 
    

; Program: Simple Note Player by MATRIX
org 256
call setup_pit_timer

mov si,msg
call Print
mov bx,tonedata
call Play

call reset_pit_timer
int 20h

;************************************************************
; Procedure print
; prints a zero terminated string pointed to by si
;************************************************************

Print:
push ax
mov ah,14; BIOS code for screen display
cld
print_loop:lodsb; moving the character to be displayed to al
or al, al; checking if the char is NULL
jz printdone
int 10h; Calling BIOS routine
JMP print_loop
printdone:pop ax
ret
; End of print procedure...

;************************************************************
; Procedure Play
; plays a sick and demented melody
;************************************************************
Play:
pusha          ;save regs
localloop:
mov ax,[bx]    ;load sound data
add bx,2
or ax,ax
jz finished
jns notdelay
delay:
push bx
neg ax
mov cx,ax
call pit_tick_delay
pop bx
jmp localloop
notdelay: ; not delay, its a note
push bx
call sound  ;play it
pop bx
jmp localloop
finished:
call nosound
popa
ret
;end Play

nosound: ; Silences the speaker.
in al,0x61
and al,0xFC
out 0x61,al
ret

sound: ; AX = frequency Starts the speaker emiting a sound of a given frequency
mov bx,ax ; RETURNS:  AX,BX,DX = undefined
mov dx,0x12
mov ax,0x34DD ; ;mov ax,0x34DC ; which is more accurate?
div bx
mov bl,al
mov al,0xB6
out 0x43,al
mov al,bl
out 0x42,al
mov al,ah
out 0x42,al
in al,0x61
or al,3
out 0x61,al
ret

pit_tick_delay:  ; waits cx ticks, destroys: ax bx
;cli ;if you need accurate timing uncomment this
  call    read_pit_value
 mov     bx,ax
.below:
  call    read_pit_value
 cmp     ax,bx
   jl     .below
.above:
  call    read_pit_value
 cmp     ax,bx
   jg      .above
 loop    .below
;sti ;if you need accurate timing uncomment this
ret

reset_pit_timer:
 mov al,00110110b ; count down twice generator
jmp setupcommon
setup_pit_timer:  ; returns status in al
 mov al,00110100b ; rate generator
setupcommon:
cli ;if you need accurate timing comment this refer to above
 out 43h,al
 xor al,al
 out $40,al
 out $40,al
.waitlatch:
 mov al,11100010b ; get timer 0 status
  out 43h,al
  in al,40h
bt ax,6
jc .waitlatch
sti ;if you need accurate timing comment this refer to above
ret

read_pit_value:
;.waitlatch:                                  ; if you have early 8253s comment
; mov al,11100010b ; get timer 0 status       ; this part out
; out 43h,al                                  ; ( wais for latch to be valid )
; in al,40h                                   ;
;bt ax,6                                      ;
;jc .waitlatch                                ;
  mov al,11010010b
cli
  out 43h,al
  in al,40h
  mov ah,al
  in al,40h
sti
  xchg al,ah
ret

msg: db 'Playing sound',0
tonedata: ; negatives are delay
dw 440,-7,880,-4,440,-4,330,-15
dw 440,-7,880,-4,440,-4,330,-15
dw 550,-7,440,-4,330,-4,440,-15
dw 0 ; stop !

; Make the file 512 bytes long
;times 512+256-$ Db 0 ; file is org 256 based so

    

Begin3
Title: MidiPlay
Version: 1.0
Entered-date: 03MAY2001
Description: play a MIDI file through a PC's internal speaker.
Keywords: midi, music, speaker
Author: James Allwright <J.R.Allwright_AT_westminster.ac.uk>
Maintained-by: James Allwright <J.R.Allwright_AT_westminster.ac.uk>
Primary-site: http://perun.hscs.wmin.ac.uk/~jra/MIDIplay/
Alternate-site: http://perun.hscs.wmin.ac.uk/~jra/MIDIplay/
Original-site: http://perun.hscs.wmin.ac.uk/~jra/MIDIplay/
Platforms: DOS
Copying-policy: freeware w/source
End