.align 2
.thumb

main:
	ldr r0, .VAR_8002
	ldrb r0, [r0]
	cmp r0, #0x0
	bne go_table
	ldr r1, .ORIG_DIPLOMA

continue:
	mov r0, #0x0
	str r0, [sp, #0x0]
	mov r0, #0x1
	ldr r4, .NEXT_INT
	bx r4

go_table:
	ldr r1, .TABLE_DIPLOMAS
	lsl r0, r0, #0x2
	add r1, r1, r0
	ldr r1, [r1]
	b continue

.hword 0x0000
.ORIG_DIPLOMA:		.word 0x084147C0
.TABLE_DIPLOMAS:	.word 0x08A48000
.NEXT_INT:		.word 0x080F4FD1
.VAR_8002:		.word 0x020370BC