domingoDePascua.asm

segment .data
A:               dd 2002

segment .bss
M:               resd 1
N:               resd 1
a:               resd 1
aux:             resd 1
b:               resd 1
c:               resd 1
d:               resd 1
domingoDePascua: resd 1
e:               resd 1

Segment .text
   global main
main:
   mov   eax,[A]
   cmp   dword [A],1583
   jl    fin
   cmp   dword [A],1699
   jle   set1699
   cmp   dword [A],1799
   jle   set1799
   cmp   dword [A],1899
   jle   set1899
   cmp   dword [A],2099
   jle   set2099
   cmp   dword [A],2199
   jle   set2199
   cmp   dword [A],2299
   jle   set2299
   jmp   fin

set1699:
   mov   dword [N],2
   mov   dword [M],22
   jmp   inicializar
set1799:
   mov   dword [N],3
   mov   dword [M],23
   jmp   inicializar
set1899:
   mov   dword [N],4
   mov   dword [M],23
   jmp   inicializar
set2099:
   mov   dword [N],5
   mov   dword [M],24
   jmp   inicializar
set2199:
   mov   dword [N],4
   mov   dword [M],24
   jmp   inicializar
set2299:
   mov   dword [N],0
   mov   dword [M],25
   jmp   inicializar

inicializar:
   mov   dword eax,[A]
   mov   dword edx,0
   mov   dword [aux],19
   div   dword [aux]
   mov   [a],edx

   mov   eax,[A]
   mov   dword edx,0
   mov   dword [aux],4
   div   dword [aux]
   mov   [b],edx

   mov   eax,[A]
   mov   dword edx,0
   mov   dword [aux],7
   div   dword [aux]
   mov   [c],edx

   mov   eax,[a]
   mov   dword edx,0
   mov   dword [aux],19
   mul   dword [aux]
   add   eax,[M]
   mov   dword edx,0
   mov   dword [aux],30
   div   dword [aux]
   mov   [d],edx

   mov   eax,[b]
   mov   dword edx,0
   mov   dword [aux],2
   mul   dword [aux]
   mov   [aux],eax
   mov   eax,[c]
   mov   dword edx,0
   mov   dword ebx,4
   mul   dword ebx
   add   [aux],eax
   mov   eax,[d]
   mov   dword edx,0
   mov   dword ebx,6
   mul   dword ebx
   add   [aux],eax
   mov   dword eax,[N]
   add   dword [aux],eax
   mov   eax,[aux]
   mov   dword edx,0
   mov   dword ebx,7
   div   dword ebx
   mov   [e],edx

   mov   eax,[d]
   add   eax,[e]
   mov   [aux],eax
   cmp   dword eax,10
   jl    domingoMarzo
   mov   dword ebx,9
   sub   [aux],ebx
   mov   dword eax,[aux]
   mov   dword [domingoDePascua],eax
   cmp   dword [domingoDePascua],26
   jne   not26
   mov   dword [domingoDePascua],19
   jmp   fin


domingoMarzo:
   add   dword [aux],22
   mov   dword eax,[aux]
   mov   dword [domingoDePascua],eax
   jmp fin

not26:
   cmp   dword [domingoDePascua],25
   jne   fin
   cmp   dword [d],28
   jne   fin
   cmp   dword [e],6
   jne   fin
   cmp   dword [a],10
   jle   fin
   mov   dword [domingoDePascua],18
   jmp   fin

fin:
   mov   eax,[domingoDePascua]
   mov   eax,1
   mov   ebx,0
   int   0x80