.global _start
.equ j, 3
.equ m, 10
.equ a, 2000
tab: .int 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334

_start: adr r6, tab
        mov r2, #m
        sub r2, r2 ,#1
        stmfd sp!,{r2}
        bl DEBUT
        add r0, #j

        cmp r0,#60
        movcs r1,r0
        bcs addBISSEX
        b _exit

addBISSEX:  mov r4, #a
            stmfd sp!,{r4}
            bl BISSEXTILE
            cmp r0,#1
            addeq r1, r1, #1

            mov r0,r1
            b _exit



BISSEXTILE: stmfd sp!,{r1-r2, lr}
            ldr r1, [sp,#12]
            mov r2, #400
            stmfd sp!,{r1,r2}
            bl DIVISIBLE
            add sp, sp, #8
            cmp r0,#1
            beq endBISEX
            mov r2,#4
            stmfd sp!,{r1,r2}
            bl DIVISIBLE
            add sp, sp, #8
            cmp r0,#0
            beq endBISEX
            mov r2, #100
            stmfd sp!,{r1,r2}
            bl DIVISIBLE
            add sp, sp, #8
            cmp r0, #0
            moveq r0,#1
endBISEX:   ldmfd sp!, {r1-r2 , pc}

DEBUT:  stmfd sp!,{r1}
      ldr r1, [sp,#4]
      ldr r0,[r6, r1, LSL #2]
      ldmfd sp!, {r1}
      mov pc,lr

DIVISIBLE:  stmfd sp!, {r1-r2}
            ldr r1, [sp,#8]
            ldr r2, [sp,#12]
tq:         cmp r1,r2
            subcs r1,r1,r2
            bcs tq
            cmp r1,#0
            moveq r0, #1
            movne r0, #0
            ldmfd sp!,{r1-r2}
            mov pc,lr

_exit: b _exit