Найти все пятницы, 13 в этом и следующем году

.section .text.startup,"ax",@progbits
 .p2align 4,,15
 .globl main
 .type main, @function
main:
.LFB12:
 .cfi_startproc
 pushl %ebp
 .cfi_def_cfa_offset 8
 .cfi_offset 5, -8
 movl %esp, %ebp
 .cfi_def_cfa_register 5
 pushl %edi
 pushl %esi
 pushl %ebx
 andl $-16, %esp
 subl $32, %esp
 movl y_from, %edi
 .cfi_offset 3, -20
 .cfi_offset 6, -16
 .cfi_offset 7, -12
 movl y_to, %eax
 cmpl %eax, %edi
 jg .L3
 .p2align 4,,7
 .p2align 3
.L7:
 movl $1717986919, %eax
 imull %edi
 movl %edi, %eax
 sarl $31, %eax
 movl %edx, %ecx
 movl %edi, %edx
 sarl $2, %ecx
 subl %eax, %ecx
 leal (%ecx,%ecx,4), %eax
 addl %eax, %eax
 subl %eax, %edx
 movl %edx, %eax
 addl $48, %eax
 movb %al, 31(%esp)
 movl $1717986919, %eax
 imull %ecx
 movl %ecx, %eax
 sarl $31, %eax
 movl %edx, %ebx
 sarl $2, %ebx
 subl %eax, %ebx
 leal (%ebx,%ebx,4), %eax
 addl %eax, %eax
 subl %eax, %ecx
 movl $1717986919, %eax
 imull %ebx
 addl $48, %ecx
 movl %ebx, %eax
 movb %cl, 30(%esp)
 sarl $31, %eax
 movl %edx, %ecx
 sarl $2, %ecx
 subl %eax, %ecx
 leal (%ecx,%ecx,4), %eax
 addl %eax, %eax
 subl %eax, %ebx
 movl $1717986919, %eax
 imull %ecx
 movl %ecx, %eax
 sarl $31, %eax
 addl $48, %ebx
 movb %bl, 29(%esp)
 movl $1, %ebx
 sarl $2, %edx
 subl %eax, %edx
 leal (%edx,%edx,4), %eax
 addl %eax, %eax
 subl %eax, %ecx
 addl $48, %ecx
 movb %cl, 28(%esp)
 jmp .L5
 .p2align 4,,7
 .p2align 3
.L4:
 addl $1, %ebx
 cmpl $13, %ebx
 je .L12
.L5:
 xorl %eax, %eax
 cmpl $2, %ebx
 setle %al
 movl %edi, %ecx
 subl %eax, %ecx
 movl $1374389535, %eax
 testl %ecx, %ecx
 leal 3(%ecx), %esi
 cmovns %ecx, %esi
 imull %ecx
 sarl $2, %esi
 addl %ecx, %esi
 sarl $31, %ecx
 movl %edx, %eax
 sarl $5, %eax
 movl %eax, 24(%esp)
 movl %ecx, %eax
 subl 24(%esp), %eax
 sarl $7, %edx
 subl %ecx, %edx
 movl %eax, 24(%esp)
 addl %esi, %eax
 leal (%eax,%edx), %esi
 movl $-1840700269, %eax
 addl t-4(,%ebx,4), %esi
 addl $13, %esi
 imull %esi
 movl %esi, %eax
 sarl $31, %eax
 addl %esi, %edx
 sarl $2, %edx
 subl %eax, %edx
 leal 0(,%edx,8), %eax
 subl %edx, %eax
 subl %eax, %esi
 cmpl $5, %esi
 jne .L4
 movzbl 30(%esp), %eax
 movzbl 31(%esp), %edx
 movl $11, 8(%esp)
 movl $str, 4(%esp)
 movb %al, str+2
 movzbl 28(%esp), %eax
 movb %dl, str+3
 movzbl 29(%esp), %edx
 movl $1, (%esp)
 movb %al, str
 movl $1717986919, %eax
 movb %dl, str+1
 imull %ebx
 movl %ebx, %eax
 sarl $31, %eax
 movl %edx, %ecx
 movl %ebx, %edx
 sarl $2, %ecx
 addl $1, %ebx
 subl %eax, %ecx
 leal (%ecx,%ecx,4), %eax
 addl %eax, %eax
 subl %eax, %edx
 movl %edx, %eax
 addl $48, %eax
 movb %al, str+6
 movl $1717986919, %eax
 imull %ecx
 movl %ecx, %eax
 sarl $31, %eax
 sarl $2, %edx
 subl %eax, %edx
 leal (%edx,%edx,4), %eax
 addl %eax, %eax
 subl %eax, %ecx
 addl $48, %ecx
 movb %cl, str+5
 call write
 cmpl $13, %ebx
 jne .L5
 .p2align 4,,7
 .p2align 3
.L12:
 movl y_to, %eax
 addl $1, %edi
 cmpl %edi, %eax
 jge .L7
.L3:
 leal -12(%ebp), %esp
 popl %ebx
 .cfi_restore 3
 popl %esi
 .cfi_restore 6
 popl %edi
 .cfi_restore 7
 popl %ebp
 .cfi_def_cfa 4, 4
 .cfi_restore 5
 ret
 .cfi_endproc
.LFE12:
 .size main, .-main
 .data
 .align 4
 .type y_to, @object
 .size y_to, 4
y_to:
 .long 2016
 .align 4
 .type y_from, @object
 .size y_from, 4
y_from:
 .long 2015
 .globl str
 .type str, @object
 .size str, 12
str:
 .string "0000-00-13\n"
 .section .rodata
 .align 32
 .type t, @object
 .size t, 48
t:
 .long 0
 .long 3
 .long 2
 .long 5
 .long 0
 .long 3
 .long 5
 .long 1
 .long 4
 .long 6
 .long 2
 .long 4
 .ident "GCC: (Ubuntu/Linaro 4.6.3-1ubuntu5) 4.6.3"
 .section .note.GNU-stack,"",@progbits
============================

;FASM
format PE console 4.0
 
include 'win32a.inc'
LC_TIME =   2
LC_ALL  =   6
struct  tm   
tm_sec  dd  ?
tm_min  dd  ?
tm_hour dd  ?
tm_mday dd  ?
tm_mon  dd  ?
tm_year dd  ?
tm_wday dd  ?
tm_yday dd  ?
tm_isdst    dd  ?
ends    
;   invoke  setlocale, LC_ALL, rus
;   invoke  SetConsoleCP, 866
;   invoke  SetConsoleOutputCP, 866
    mov edi, ttt
    mov [ttt.tm_year], 2015-1900
    mov [ttt.tm_mday], 13
again:  invoke  mktime, ttt
;   invoke  localtime
    cmp [ttt.tm_wday],5
    jnz @F
    invoke  strftime,buf, bufsz, tpt, ttt
;   invoke  asctime, ttt
    cinvoke printf, tps, buf
@@: inc [ttt.tm_mon]
    cmp [ttt.tm_mon],12
    jz  nxt
    mov [ttt.tm_wday],0
    mov [ttt.tm_yday],0
    jmp again
nxt:    inc [ttt.tm_year]
    mov [ttt.tm_mon],0
    cmp [ttt.tm_year], 2017-1900
    jb  again
gtfo:
    invoke  exit,0
 
ttt tm  <0>
;rus    db  'Russian_Russia.866',0
tpt db  '%d-%B-%Y %A%n',0
tps db  '%s', 0Dh, 0Ah, 0
buf db  30 dup(0)
bufsz   =   $-buf
data import
;library    msvcrt,'msvcrt.dll'
 library kernel32,'KERNEL32.DLL',\
     msvcrt,'MSVCRT.DLL'
 
 import kernel32,\
    SetConsoleOutputCP,'SetConsoleOutputCP',\
    SetConsoleCP,'SetConsoleCP'
 
import  msvcrt,\
    mktime,'mktime',\
    strftime,'strftime',\
    asctime,'asctime',\
    printf,'printf',\
        setlocale,'setlocale',\ 
    exit,'exit'
end data