uaveiro-leci/2ano/2semestre/ac2/aula03/part2-5.s

	.equ	ADDR_BASE, 0xBF88
	.equ	TRISE, 0x6100
	.equ	LATE,  0x6120

	.equ	READ_CORE_TIMER, 11
	.equ	RESET_CORE_TIMER, 12

	.data
	.text
	.globl main

# Mapa de registos
# $t7:	endereço base periféricos
# $t0:	contador

main:
	lui	$t7, ADDR_BASE
	
	lw	$t0, TRISE($t7)
	andi	$t0, $t0, 0xFFE1		# 1111 1111 1110 0001 (isola bits 4-1)
	sw	$t0, TRISE($t7)			# Configura RE4-RE1 como output

	li	$t0, 0x0001			# Iniciar contagem

loop:
	lw	$t1, LATE($t7)
	andi	$t1, $t1, 0xFFE1		# 1111 1111 1110 0001 (reset bits 4-1)
	sll	$t2, $t0, 1			# shift do contador para os bits 4-1
	or	$t1, $t1, $t2			# merge contador com valor do LATE
	sw	$t1, LATE($t7)			# atualiza valor do LATE

	li	$v0, RESET_CORE_TIMER
	syscall

delay:
	li	$v0, READ_CORE_TIMER
	syscall
	move	$t2, $v0

	blt	$t2, 13333333, delay

	andi	$t1, $t1, 0x0010		# isolar bit 4
	srl	$t1, $t1, 4			# colocar bit na posição menos significativa para o contador
	xori	$t1, $t1, 0x0001		# negar bit
	sll	$t0, $t0, 1			# shift left do contador
	or	$t0, $t0, $t1			# colocar bit lido no contador

	j	loop