what.s

# copyright 2002 Chris Kelly ckdake@ckdake.com

main:
	
.data
str1:	 .asciiz "What are these?\n"
brk:	 .asciiz "\n"
start:   .byte 0
	
.text
		la $s1, start    
		li $s2, 0       
		li $s3, 0      
		la $s4, start  
		li $s5, 2
		li $s6, 1
		addi $s7, $s4, 998 

init:	sb $s6, ($s4)		
		addi $s4, $s4, 1
		slt $t2, $s4, $s7  
		beqz $t2, endi	  
		j init
endi:

		la $s4, start	
		li $s5, 2

trav:	slti $t2, $s5, 1000	
		beqz $t2, p1
		
outer:	lb $t2, ($s4)	
		beqz $t2, endo		
		add $t4, $s4, $s5
		add $t5, $s5, $s5
		
inner:	slti $t2, $t5, 1000 	
		beqz $t2, endo
		sb $zero, ($t4)	
		add $t4, $t4, $s5	
		add $t5, $t5, $s5
		j inner		
		
endo:  
		addi $s5, $s5, 1
		addi $s4, $s4, 1
		j trav



p1:		la $a0, str1
		li $v0, 4
		syscall

		la $s4, start		
		li $s5, 2 	
		
		
pnums:  lb $t0, ($s4)  	
		slti $t2, $t0, 1
		beq $t2, $s6, restp
		
		la $a0, ($s5)
		li $v0, 1
		syscall	
		la $a0, brk
		li $v0, 4
		syscall	
		
restp:	addi $s4, $s4, 1  	
		addi $s5, $s5, 1	
		slt $t2, $s4, $s7  
		beqz $t2, endp	  
		j pnums
endp: