Notes

;PLAYING SOUND WITH LIST OF TONE
;ORACL4
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;REFERENCE : 1. https://stackoverflow.com/questions/34500138/play-music-with-assembly-code
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;SOUND VARIABLE
;BAGIAN INI MERUPAKAN NILAI-NILAI YANG MENENTUKAN FREKUENSI SUARA YANG DIHASILKAN
;VARIABEL FREQUENCY

C1 = 9121
C1S = 8609
D1 = 8126
D1S = 7670
E1 = 7239
F1 = 6833
F1S = 6449
G1 = 6087
G1S = 5746
A1 = 5423
A1S = 5119
B1 = 4831

C2 = 4560
C2S = 4304
D2 = 4063
D2S = 3834
E2 = 3619
F2 = 3416
F2S = 3224
G2 = 3043
G2S = 2873
A2 = 2711
A2S = 2559
B2 = 2415

C3 = 2280
C3S = 2152
D3 = 2031
D3S = 1917
E3 = 1809
F3 = 1715
F3S = 1612
G3 = 1521
G3S = 1436
A3 = 1355
A3S = 1292
B3 = 1207

C4 = 1140

;BAGIAN INI MERUPAKAN NILAI DELAY BERAPA LAMA NADA YANG DIBUNYIKAN AKAN DIJALANKAN
;VARIABEL DELAY

P8 = 1500
P7 = P8/2 + P8/4
P6 = P8/2
P5 = P8/4 + P8/8
P4 = P8/4
P3 = P8/8 + P8/16
P2 = P8/8
P1 = P8/16 + P8/32
P0 = P8/16

PAUSE = 300

LOCALS

.MODEL SMALL

.STACK

.DATA
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
DIV1 DD 14318180
DIV2 DD 786432000

;LIST OF SOUND
;BAGIAN INI MERUPAKAN LIST SUARA/TANGGA NADA YANG AKAN DIBUNYIKAN

;ENDING SONG / ZELDA - SONG OF STORM
ENDINGSONG DW 0, P3

DW D2, P2
DW F2, P2
DW D3, P5,0,100
;
DW D2, P2
DW F2, P2
DW D3, P5,0,100
;
DW E3, P4
DW F3, P2
DW E3, P2
DW F3, P2
DW E3, P2
DW C3, P2
DW A2, P6,0,150
;
DW A2, P1
DW D2, P4
DW F2, P2
DW G2, P2
DW A2, P6,0,150
;
DW A2, P1
DW D2, P4
DW F2, P2
DW G2, P2
DW E2, P6,0,300

;X2
DW D2, P2
DW F2, P2
DW D3, P5,0,100
;
DW D2, P2
DW F2, P2
DW D3, P5,0,100
;
DW E3, P4
DW F3, P2
DW E3, P2
DW F3, P2
DW E3, P2
DW C3, P2
DW A2, P6,0,150
;
DW A2, P1
DW D2, P4
DW F2, P2
DW G2, P2
DW A2, P6,0,150
;
DW A2, P1
DW D2, P4
DW F2, P2
DW G2, P2
DW E2, P6,0,300

DW 0,0

;OPENING SONG / HEDWIGS THEME
OPENINGSONG DW 0, P3

;--
DW B1, P3
DW E2, P4
DW G2, P2
DW F2S, P3
DW E2, P5
DW B2, P3
DW A2, P6
DW F2S, P6
DW E2, P4
DW G2, P2
DW F2S, P3
DW D2S, P5
DW F2, P3
DW B1, P7,0,500

;--
DW B1, P3
DW E2, P4
DW G2, P2
DW F2S, P3
DW E2, P5
DW B2, P3
DW D3, P5
DW C3S, P3
DW C3, P5
DW G2S, P3
DW C3 , P5
DW B2, P2
DW A2S, P3
DW A1S, P5
DW G2, P3
DW E2, P7,0,500

;--
DW G2, P3
DW B2, P5
DW G2, P3
DW B2, P5
DW G2, P3
DW C3, P5
DW B2, P3
DW A2S, P5
DW F2S, P3
DW G2, P4
DW B2, P2
DW A2S, P3
DW A1S, P5
DW B1, P3
DW B2, P7,0,500

;--
DW G2, P3
DW B2, P5
DW G2, P3
DW B2, P5
DW G2, P3
DW D3, P5
DW C3S, P3
DW C3, P5
DW G2S, P3
DW C3, P4
DW B2, P2
DW A2S, P3
DW A1S, P5
DW G2, P3
DW E2, P7,0,1500

DW 0,0
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
.CODE
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
.486
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;PROCEDURE UNTUK OUTPUT SUARA
;SOUND PROCEDURE

;DELAY SUARA PADA LAGU
DELAY PROC NEAR MS:WORD
PUSH BP
MOV BP, SP
SUB SP, 4

XOR AX, AX
MOV ES, AX
MOV EDX, ES:[046CH]

FILD WORD PTR MS
FIMUL DWORD PTR DIV1
FIDIV DWORD PTR DIV2
FISTP DWORD PTR [BP-4]

ADD EDX, [BP-4]

@@L1:
MOV EAX, ES:[046CH]
CMP EAX, EDX
JB @@L1

LEAVE

RET 2
DELAY ENDP

;PROCEDUR UNTUK MEM-PLAY LIST NADA YANG SUDAH DISEDIAKAN
PLAY PROC NEAR
MOV DI, SI

@@L1:
CMP WORD PTR [SI], 0
JE @@J1

;MENGATUR FREQUENCY
CLI
MOV AL, 0B6H
OUT 43H, AL
MOV AX, [SI]
OUT 42H, AL
MOV AL, AH
OUT 42H, AL
STI

IN AL, 61H ;SPEAKER ON
OR AL, 03H
OUT 61H, AL

@@J1:
PUSH WORD PTR [SI+2]
CALL DELAY

IN AL, 61H ;SPEAKER OFF
AND AL, 0FCH
OUT 61H, AL

ADD SI, 4
CALL CHECK_KEY ;CEK INPUT DARI KEYBOARD USER
CMP WORD PTR [SI+2], 0
JNE @@L1

RET
PLAY ENDP

;CEK INPUT KEYBOARD DARI USER
CHECK_KEY PROC

MOV AH, 1 ;CEK INPUT KEYBOARD
INT 16H
JZ @@DONE
MOV AH, 0
INT 16H

@@K2: ;KETIKA USER MENEKAN APAPUN SELAIN '`' MAKA EXIT DARI LOOP LAGU
CMP AL, '`'
JNE ENDD

@@DONE:

RET
CHECK_KEY ENDP

;PROGRAM UTAMA
.STARTUP
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
MOV AX, @DATA
MOV DS, AX

MAIN :

LOOPSONG:

LEA SI, OPENINGSONG
CALL PLAY

LEA SI, ENDINGSONG
CALL PLAY

JMP LOOPSONG

;SELESAI
ENDD:

MOV AX, 4C00H
INT 21H

.EXIT
END