;��                   �
;��� STEALTH GROUP WW � Mail:   BOX 15, 125080 MOSCOW   �������� ��������� ����
;��� ���������������� � ������������������ � ��������   �Ŀ� ��Ĵ� � � ¿� ����
; �� ��� ��� ��� ��� ��� ��� ���   � � ��� � ��� ���    ��ٳ ��Ŀ�Ĵ   ��� �  �
;  � � � ��  ��  �    �  ��  � �   � � � � � �   �      ���������� �   � � ����
;  � � � �   ��� ���  �  ��� ���    �� ��� � ��� ����   ����  WINTER ' 96  ����
;  � ����������������� ������������������������������   �����������������������

;    ������������� ���-�-�-��몠 ! �������������� 

;Copyright GURRE 1993-1996
;                       *** "Riorita" ***
;This programm dedicated to Samuil Gondonowitch Mavrodi-president "MMM" ltd.

 PAUS = 1
 END_MUSIC = 0

.model small
.8086
.code
int_1C_handler:

mov bx,cs:counter
shl bx,1
mov ax,word ptr cs:[bx][offset mus]
cmp ax,END_MUSIC
jne continue
mov cs:counter,0FFFFh
iret
continue: cmp ax,PAUS
jne not_pause
in al,97
and al,0FCh
out 97,al			;Speaker off
jmp return
not_pause:
 out 66,al
 mov al,ah
 out 66,al
 in al,97
 or al,3
 out 97,al
return:
 inc cs:counter
 iret

 start:
mov ax,351Ch			;Get 1C vect
int 21h
mov cs:old1c,bx
mov ax,es
mov cs:old1ch,ax		;Save 1C vector
push cs
pop ds
mov dx,offset int_1C_handler
mov ax,251ch			;Set vect
int 21h
wait_for: cmp cs:counter,0FFFFh
jne wait_for
in al,97
and al,11111100b
out 97,al			;Speaker off
lds dx,dword ptr cs:old1c
mov ax,251ch
int 21h				;Restore 1C vector
mov ax,4C00h
int 21h				;Terminate

EVEN


A = 5422
B = 5117
H = 4830  ;
C = 4559  ;��
CIS = 4303;��#
D = 4061  ;��
DIS = 3833;��#
E = 3619  ;��
F = 3416  ;��
FIS = 3224;��#
G = 3042  ;����
GIS = 2872;����#
A2 = 2711 ;��
B2 = 2559 ;��#
H2 = 2415 ;��
C2 = 2279 ;��
CIS2 = 2151;��# 
D2=2030   ;�� (2) ---------> (Das ist von mir produziert !!!)
DIS2=1870 ;��#(2) 
F=1690    ;�� (2) 
P = PAUS  ;�����
mus:
DW D,D,D,D,D, P, H2,H2,H2,H2,H2, P ;�� ��
DW A2,A2,A2, H2,H2,H2 ;�� ��
DW A2,A2,A2,     G,G,G,G,G,G, P,P ;�� ����

DW D,D,D,     G,G,G, A2,A2,A2 ;�� ���� ��
DW H2,H2, P, H2,H2, P, H2,H2 ;�� �� ��
DW C2,C2, H2,H2, A2,A2,A2, H2,H2,H2 ;�� �� �� ��
DW C2,C2,C2, D2,D2,D2, P,P,P,P,P  ;�� ��(2) 

DW D,D,D,D,D,D, P, A2,A2,A2,A2,A2,A2,A2, P,P ; �� ��  
DW G,G,G, A2,A2,A2 ;���� �� 
DW G,G,G, FIS,FIS,FIS,FIS,FIS,FIS, P,P ;���� ��# 

DW D,D,D,   FIS,FIS,FIS, A2,A2,A2 ; �� ��# ��
DW C2,C2, P, C2,C2, P, C2,C2 ;�� �� ��
DW D2,D2, C2,C2, H2,H2,H2, C2,C2,C2 ;�� �� �� �� 
DW D2,D2,D2,D2,D2,D2,D2,D2, P,P,P,P,P,P ;��







DW D2,D2,D2,D2, DIS2,DIS2,DIS2,DIS2 ;��(2) ��#(2) 
DW F,F,F,F,F, P,P,P ; ��(2)
DW DIS2,DIS2,DIS2, P, D2,D2,D2,D2, C2,C2,C2,C2 ;��#(2) ��(2) ��(2)   
DW P,P,P,P

DW A2,A2,A2,A2, B2,B2,B2,B2 ;�� ��#
DW C2,C2,C2,C2,C2, P,P,P ;��
DW DIS2,DIS2,DIS2, D2,D2,D2, C2,C2,C2, H2,H2,H2 ;��# �� �� ��
DW P,P,P,P,P,P

DW D,D,D,D,D,D, P, H2,H2,H2,H2,H2,H2, P,P ;�� ��
DW A2,A2,A2,    H2,H2,H2 ;�� ��
DW A2,A2,A2,     G,G,G,G,G,G, P,P,P ;�� ����

DW D,D,D,     G,G,G, A2,A2 ;�� ���� ��
DW H2,H2,H2, D2,D2,D2, C2,C2,C2 ;�� �� ��
DW P, D2,D2, C2,C2 ;�� ��
DW H2,H2,H2, A2,A2,A2, G,G,G  ;�� �� ����


DW PAUS,END_MUSIC

old1c	dw 00
old1ch	dw 00
counter dw 00


.stack
end start