forked from KolibriOS/kolibrios
168 lines
6.7 KiB
PHP
168 lines
6.7 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2023. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;; PLAYNOTE.INC version 1.1 22 November 2003 ;;
|
|
;; ;;
|
|
;; Player Notes for Speaker PC ;;
|
|
;; subfunction #55 from function #55 Menuet OS ;;
|
|
;; ;;
|
|
;; Copyright 2003 VaStaNi ;;
|
|
;; vastani@ukr.net ;;
|
|
;; >>>- SIMPLY - QUICKLY - SHORTLY -<<< ;;
|
|
;; ;;
|
|
;; Note: playnote.txt ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
$Revision$
|
|
|
|
align 4
|
|
sound_interface:
|
|
|
|
cmp eax, ebx ; this is subfunction #55 ?
|
|
jne .ret ; if no then return.
|
|
|
|
cmp byte [sound_flag], 0
|
|
jne .ret
|
|
|
|
movzx eax, byte [countDelayNote]
|
|
or al, al ; player is busy ?
|
|
jnz .ret ; return counter delay Note
|
|
|
|
mov [memAdrNote], esi;edx
|
|
call get_pid
|
|
mov [pidProcessNote], eax
|
|
xor eax, eax ; Ok! EAX = 0
|
|
.ret:
|
|
mov [esp + SYSCALL_STACK.eax], eax ; return value EAX for application
|
|
ret
|
|
|
|
iglobal
|
|
align 4
|
|
kontrOctave dw 0x4742, 0x4342, 0x3F7C, 0x3BEC, 0x388F, 0x3562
|
|
dw 0x3264, 0x2F8F, 0x2CE4, 0x2A5F, 0x2802, 0x25BF
|
|
memAdrNote dd 0
|
|
pidProcessNote dd 0
|
|
slotProcessNote dd 0
|
|
count_timer_Note dd 1
|
|
mem8253r42 dw 0
|
|
countDelayNote db 0
|
|
endg
|
|
|
|
playNote:
|
|
; jmp NotPlayNotes
|
|
mov esi, [memAdrNote]
|
|
or esi, esi ; ESI = 0 ? - OFF Notes Play ?
|
|
jz .NotPlayNotes ; if ESI = 0 -> ignore play pocedure
|
|
cmp eax, [count_timer_Note]
|
|
jb .NotPlayNotes
|
|
push eax
|
|
inc eax
|
|
mov [count_timer_Note], eax
|
|
mov al, [countDelayNote]
|
|
dec al ; decrement counter Delay for Playing Note
|
|
jz .NewLoadNote@Delay
|
|
cmp al, 0xFF ; this is first Note Play ?
|
|
jne .NextDelayNote
|
|
;This is FIRST Note, save counter channel 2 chip 8253
|
|
mov al, 0xB6 ; control byte to timer chip 8253
|
|
out 0x43, al ; Send it to the control port chip 8253
|
|
in al, 0x42 ; Read Lower byte counter channel 2 chip 8253
|
|
mov ah, al ; AH = Lower byte counter channel 2
|
|
in al, 0x42 ; Read Upper byte counter channel 2 chip 8253
|
|
mov [mem8253r42], ax ; Save counter channel 2 timer chip 8253
|
|
.NewLoadNote@Delay:
|
|
cld
|
|
; lodsb ; load AL - counter Delay
|
|
call ReadNoteByte
|
|
or al, al ; THE END ?
|
|
jz .EndPlayNote
|
|
cmp al, 0x81
|
|
jnc .NoteforOctave
|
|
mov [countDelayNote], al
|
|
; lodsw ; load AX - counter for Note!
|
|
call ReadNoteByte
|
|
mov ah, al
|
|
call ReadNoteByte
|
|
xchg al, ah
|
|
jmp .pokeNote
|
|
|
|
.EndPlayNote: ; THE END Play Notes!
|
|
in al, 0x61 ; Get contents of system port B chip 8255
|
|
and al, 0xFC ; Turn OFF timer and speaker
|
|
out 0x61, al ; Send out new values to port B chip 8255
|
|
mov ax, [mem8253r42] ; memorize counter channel 2 timer chip 8253
|
|
xchg al, ah ; reverse byte in word
|
|
out 0x42, al ; restore Lower byte counter channel 2
|
|
mov al, ah ; AL = Upper byte counter channel 2
|
|
out 0x42, al ; restore Upper byte channel 2
|
|
xor eax, eax ; EAX = 0
|
|
mov [memAdrNote], eax; clear header control Delay-Note string
|
|
.NextDelayNote:
|
|
mov [countDelayNote], al; save new counter delay Note
|
|
pop eax
|
|
.NotPlayNotes:
|
|
ret
|
|
|
|
.NoteforOctave:
|
|
sub al, 0x81 ; correction value for delay Note
|
|
mov [countDelayNote], al; save counter delay this new Note
|
|
; lodsb ; load pack control code
|
|
call ReadNoteByte
|
|
cmp al, 0xFF ; this is PAUSE ?
|
|
jne .packCode ; no, this is PACK CODE
|
|
in al, 0x61 ; Get contents of system port B chip 8255
|
|
and al, 0xFC ; Turn OFF timer and speaker
|
|
out 0x61, al ; Send out new values to port B chip 8255
|
|
jmp .saveESI
|
|
|
|
.packCode:
|
|
mov cl, al ; save code
|
|
and al, 0xF ; clear upper bits
|
|
dec al ; correction
|
|
add al, al ; transform number to offset constant
|
|
movsx eax, al ; EAX - offset
|
|
add eax, dword kontrOctave; EAX - address from constant
|
|
mov ax, [eax] ; read constant
|
|
shr cl, 4 ; transform for number Octave
|
|
shr ax, cl ; calculate from Note this Octave!
|
|
.pokeNote:
|
|
out 0x42, al ; Lower byte Out to channel 2 timer chip 8253
|
|
mov al, ah
|
|
out 0x42, al ; Upper byte Out to channel 2 timer chip 8253
|
|
in al, 0x61 ; Get contents of system port B chip 8255
|
|
or al, 3 ; Turn ON timer and speaker
|
|
out 0x61, al ; Send out new values to port B chip 8255
|
|
.saveESI:
|
|
; mov [memAdrNote], esi ; save new header control Delay-Note string
|
|
pop eax
|
|
ret
|
|
|
|
ReadNoteByte:
|
|
;result:
|
|
; al - note
|
|
push eax
|
|
push ecx
|
|
push edx
|
|
push esi
|
|
|
|
mov eax, [pidProcessNote]
|
|
call pid_to_slot
|
|
test eax, eax
|
|
jz .failed
|
|
lea ecx, [esp+12]
|
|
mov edx, 1
|
|
mov esi, [memAdrNote]
|
|
inc [memAdrNote]
|
|
|
|
call read_process_memory
|
|
.failed:
|
|
pop esi
|
|
pop edx
|
|
pop ecx
|
|
pop eax
|
|
ret
|
|
;------------------- END CODE -------------------
|