#=====NamNhuanGanNhat=====#
#$a0 chua dia chi bien time
#Dau thu tuc:
NamNhuanGanNhat:
	addi $sp,$sp,-20
	#backup thanh ghi
	sw $ra,($sp)
	sw $s0,4($sp)
	sw $s1,8($sp)
	sw $t0,12($sp)
	sw $t1,16($sp)

#Than thu tuc:
	#Lay ra nam
	jal Year
	move $s0, $v0
	move $t0, $v0
	move $t1, $v0
	#Kiem tra xem phai la nam nhuan khong
	move $a0, $s0
	jal KiemTraNamNhuan #Ket qua tra ve $v0
	beq $v0,0,NamNhuanGanNhat.KoNhuan
	  #Nam hien tai la nam nhuan
		move $t0,$s0
		move $t1,$s0
	 	j NamNhuanGanNhat.KT
	  #Nam hien tai khong la nam nhuan
NamNhuanGanNhat.KoNhuan:
	#Tang nam hien tai len 1
	addi $t1,$t1,1
	#Kiem tra xem phai la nam nhuan khong
	move $a0, $t1
	jal KiemTraNamNhuan #Ket qua tra ve $v0
	beq $v0,0,NamNhuanGanNhat.KoNhuan
	move $v1,$t1
	j NamNhuanGanNhat2
NamNhuanGanNhat2:
	#Giam nam hien tai len 1
	addi $t0,$t0,-1
	#Kiem tra xem phai la nam nhuan khong
	move $a0, $t0
	jal KiemTraNamNhuan #Ket qua tra ve $v0
	beq $v0,0,NamNhuanGanNhat2
	move $v0,$t0
	sub $t0,$v1,$v0
	ble $t0,8,TimNamGanNhat
	j NamNhuanGanNhat.KT
TimNamGanNhat:
	sub $t1,$v1,$s0
	sub $t0,$s0,$v0
	beq $t0,$t1,NamNhuanGanNhat.KT
	blt $t0,$t1,NhoGan
	j LonGan
NhoGan:
	move $v1,$v0
	subi $v0,$v0,4
	j NamNhuanGanNhat.KT
LonGan:
	move $v0,$v1
	addi $v1,$v1,4
	j NamNhuanGanNhat.KT

NamNhuanGanNhat.KT:
#Cuoi thu tuc
	#restore thanh ghi
	lw $ra,($sp)
	lw $s0,4($sp)
	lw $t0,8($sp)
	lw $t1,12($sp)
	#xoa stack
	addi $sp,$sp,20
	#tra ve
	jr $ra