ZeusWPI/ass_messages
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add duration of note

Browse source
This commit is contained in:
redfast00 2019-10-01 01:23:27 +02:00
parent 26f7032808
commit a8a7a3d3d1
No known key found for this signature in database
GPG key ID: 5946E0E34FD0553C
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
messages.asm
View file

@ -70,14 +70,15 @@ mov sp, 0x2000
jmp .loop jmp .loop
.beep: .beep:
call .readduration
mov ah, 0
push ax
mov al, 182 ; Prepare the speaker for the mov al, 182 ; Prepare the speaker for the
out 43h, al ; note. out 43h, al ; note.
call .readbyte call .readbyte
mov ah, 0 mov ah, 0
sal ax, 5 ; multiply by 32 sal ax, 5 ; multiply by 32
add ax, 1140 add ax, 1140
;mov ax, 4560 ; Frequency number (in decimal)
; ; for middle C.
out 42h, al ; Output low byte. out 42h, al ; Output low byte.
mov al, ah ; Output high byte. mov al, ah ; Output high byte.
out 42h, al out 42h, al
@ -85,7 +86,14 @@ mov sp, 0x2000
; port 61h). ; port 61h).
or al, 00000011b ; Set bits 1 and 0. or al, 00000011b ; Set bits 1 and 0.
out 61h, al ; Send new value. out 61h, al ; Send new value.
mov bx, 50000 ; Pause for duration of note. ;; mov bx, 50000 ; Pause for duration of note.
pop bx
push ax
mov ax, 3125
mul bx
mov bx, ax
pop ax
.pause1: .pause1:
mov cx, 65535 mov cx, 65535
.pause2: .pause2:
@ -161,6 +169,14 @@ mov sp, 0x2000
or al, bl or al, bl
ret ret
.readduration:
;; Read duration (0-16 supported)
mov ah, 0x00
int 0x16
;; Read character is in al
sub al, 'a'
ret
halt: hlt halt: hlt
color_mode: db 0x02 color_mode: db 0x02