; Play animation
; made by Svjatoslav Agejenko
; in 2002
; H-Page: svjatoslav.eu
; E-Mail: svjatoslavagejenko@gmail.com
 
[BITS 16]
[ORG 0x100]
[SECTION .text]

l1:
; mov ah, 9
; mov dx, file1
; int 21h

mov bx, 100
mov ax,03e8h
mul bx
mov cx,dx
mov dx,ax
mov ah,86h
int 15h

mov ah, 3dh
xor al, al
mov dx, file1
int 21h
mov bx, ax
mov word [hand], ax
jc l3

mov ah, 3fh             ;first
mov cx, 32000
mov dx, fbuf
int 21h
jc l3

mov ax, 0A000h
mov es, ax
mov di, 0
mov cx, 32000
mov si, fbuf
rep movsb

mov ah, 3fh             ;Second
mov cx, 32000
mov dx, fbuf
int 21h
jc l3

mov ax, 0A000h
mov es, ax
mov di, 32000
mov cx, 32000
mov si, fbuf
rep movsb


mov ah, 3eh
mov bx, word [hand]
int 21h

inc byte[n2]
cmp byte[n2], 123
jnz l2
inc byte[n1]
mov byte[n2], 97
l2:

inc byte[fra]
cmp byte[fra], 33
jl l1
ret

l3:
mov ah, 9
mov dx, errmsg
int 21h
ret
 
[SECTION .data]
fra db 1
file1 db 'mov'
n1 db 'a'
n2 db 'a'
file1t db '.frm', 0,'$'
errmsg db 'error$'

[SECTION .bss]
fbuf resb 33000
hand resw 1