[TD_IML.git] / project / mips1.asm

.data

welcome:              .asciiz "Bienvenue dans le jeu de Mastermind.\nUne sequence de quatre chiffres de 1 à 8 a ete générée.\nA vous de la deviner !"
play:		      .asciiz "Commencer à jouer:"
lost_msg:             .asciiz "Vous avez perdu !" 
win_msg:              .asciiz "Vous avez gagné !"
temp_msg:             .asciiz " bien placé" 
exclamation_point:    .asciiz "! "  
interrogation_point:  .asciiz "? "
newline:	      .asciiz "\n"

O:                    .ascii  "O"
X:		      .ascii  "X"
tiret:		      .ascii  "-"

compare_buffer:       .space  5
input_value:	      .byte   0:5
guess_value:	      .byte   0:5

.text

main:

# show intro and rules
display_welcome:
    la      $a0, newline
    li      $v0, 4
    syscall
    la      $a0, welcome
    li      $v0, 4
    syscall
    la      $a0, newline
    li      $v0, 4
    syscall
    la      $a0, play
    li      $v0, 4
    syscall
    la      $a0, newline
    li      $v0, 4
    syscall
   
generate_sequence:
    la      $t0, guess_value
        
    li 	    $a1, 8
    li      $v0, 42
    syscall
    addi    $a0, $a0, 1             # Put the integer into the [1-8] range
    
    sb      $a0, 0($t0)
    
    li 	    $a1, 8
    li      $v0, 42
    syscall
    addi    $a0, $a0, 1             # Put the integer into the [1-8] range
        
    sb      $a0, 1($t0)
   
    li 	    $a1, 8
    li      $v0, 42
    syscall
    addi    $a0, $a0, 1             # Put the integer into the [1-8] range
        
    sb      $a0, 2($t0)
    
    li 	    $a1, 8
    li      $v0, 42
    syscall
    addi    $a0, $a0, 1             # Put the integer into the [1-8] range
        
    sb      $a0, 3($t0)
              
generate_sequence_loop_end:

    la      $s0, ($zero)            # Initialize loop counter to zero
    la      $s1, compare_buffer
loop:
    beq     $s0, 10, lost
# ask user for the next input
input:
    la      $a0, newline
    li      $v0, 4
    syscall
    
    la      $a0, ($s0)
    li      $v0, 1
    syscall
    la      $a0, interrogation_point
    li      $v0, 4
    syscall
    
    la 	    $a0, input_value	    # Store the answer
    li 	    $a1, 5
    li	    $v0, 8		    # Load syscall read_string
    syscall			    # Make the syscall	

# check that each input values are in the right range 
check_input:
    la 	    $t7, input_value
    
    lb 	    $t5, 0($t7)
    andi    $t5, $t5, 0x0F          # ASCII code to integer
    beq     $t5, $zero, input
    addi    $t5, $t5, -9
    bgez    $t5, input
    
    lb 	    $t5, 1($t7)
    andi    $t5, $t5, 0x0F          # ASCII code to integer
    beq     $t5, $zero, input
    addi    $t5, $t5, -9
    bgez    $t5, input
       
    lb 	    $t5, 2($t7)
    andi    $t5, $t5, 0x0F          # ASCII code to integer
    beq     $t5, $zero, input
    addi    $t5, $t5, -9
    bgez    $t5, input 
    
    lb 	    $t5, 3($t7)
    andi    $t5, $t5, 0x0F          # ASCII code to integer
    beq     $t5, $zero, input
    addi    $t5, $t5, -9
    bgez    $t5, input    
       
   la      $s2, ($zero)             # Same counter
   la      $s3  ($zero) 
compare_input:
    la	    $t7, input_value
    la      $t6, guess_value
    la      $t5, O
    la      $t4, X
    la      $t3, tiret   
    
    lb      $t0, 0($t7)
    andi    $t0, $t0, 0x0F          # ASCII code to integer
    lb      $t1, 0($t6)
    beq	    $t0, $t1, same1
    j	    different1
same1:
    sb      $0, 0($t7)
    sb      $t5, 0($s1)
    addi    $s2, $s2, 1    
different1:    
    lb      $t0, 1($t7)
    andi    $t0, $t0, 0x0F          # ASCII code to integer
    lb      $t1, 1($t6)
    beq	    $t0, $t1, same2
    j	    different2
same2:
    sb      $zero, 1($t7)
    sb      $t5, 1($s1)
    addi    $s2, $s2, 1
different2:
    lb      $t0, 2($t7)
    andi    $t0, $t0, 0x0F          # ASCII code to integer
    lb      $t1, 2($t6)
    beq	    $t0, $t1, same3
    j       different3
same3:
    sb      $zero, 2($t7)
    sb      $t5, 2($s1)
    addi    $s2, $s2, 1
different3:         
    lb      $t0, 3($t7)
    andi    $t0, $t0, 0x0F          # ASCII code to integer
    lb      $t1, 3($t6)
    beq	    $t0, $t1, same4
    j       different4 
same4: 
    sb      $zero, 3($t7)
    sb      $t5, 3($s1)
    addi    $s2, $s2, 1
different4:
    beq     $s2, 4, won   
    
   
print_comp_result:       
    la      $a0, newline
    li      $v0, 4
    syscall
    la      $a0, ($s0)
    li      $v0, 1
    syscall
    la      $a0, exclamation_point
    li      $v0, 4
    syscall
    la      $a0, ($s2)
    li      $v0, 1
    syscall
    la      $a0, temp_msg
    li      $v0, 4
    syscall
    
    addi    $s0, $s0, 1
    j       loop                    
                                                                                                                                              
won:
    la      $a0, newline
    li      $v0, 4
    syscall
    la      $a0, win_msg
    li      $v0, 4
    syscall   
    
    j       exit
    
lost:
    la      $a0, newline
    li      $v0, 4
    syscall                                                
    la      $a0, lost_msg
    li      $v0, 4
    syscall 
      
    j       exit
    
exit:
    li      $v0, 10
    syscall
Commit	Line	Data
f24104ee	1	.data
93bb4f4c	2
f24104ee JB	3	welcome: .asciiz "Bienvenue dans le jeu de Mastermind.\nUne sequence de quatre chiffres de 1 à 8 a ete générée.\nA vous de la deviner !"
	4	play: .asciiz "Commencer à jouer:"
	5	lost_msg: .asciiz "Vous avez perdu !"
	6	win_msg: .asciiz "Vous avez gagné !"
	7	temp_msg: .asciiz " bien placé"
	8	exclamation_point: .asciiz "! "
	9	interrogation_point: .asciiz "? "
	10	newline: .asciiz "\n"
93bb4f4c	11
f24104ee JB	12	O: .ascii "O"
	13	X: .ascii "X"
	14	tiret: .ascii "-"
93bb4f4c	15
f24104ee JB	16	compare_buffer: .space 5
	17	input_value: .byte 0:5
	18	guess_value: .byte 0:5
93bb4f4c	19
f24104ee	20	.text
93bb4f4c JB	21
	22	main:
	23
f24104ee JB	24	# show intro and rules
	25	display_welcome:
	26	la $a0, newline
	27	li $v0, 4
93bb4f4c	28	syscall
f24104ee JB	29	la $a0, welcome
f24104ee JB	30	li $v0, 4
93bb4f4c	31	syscall
f24104ee JB	32	la $a0, newline
f24104ee JB	33	li $v0, 4
93bb4f4c	34	syscall
f24104ee JB	35	la $a0, play
f24104ee JB	36	li $v0, 4
93bb4f4c	37	syscall
f24104ee JB	38	la $a0, newline
f24104ee JB	39	li $v0, 4
93bb4f4c	40	syscall
f24104ee JB	41
	42	generate_sequence:
	43	la $t0, guess_value
	44
	45	li $a1, 8
	46	li $v0, 42
	47	syscall
	48	addi $a0, $a0, 1 # Put the integer into the [1-8] range
	49
	50	sb $a0, 0($t0)
	51
	52	li $a1, 8
	53	li $v0, 42
	54	syscall
	55	addi $a0, $a0, 1 # Put the integer into the [1-8] range
	56
	57	sb $a0, 1($t0)
	58
	59	li $a1, 8
	60	li $v0, 42
	61	syscall
	62	addi $a0, $a0, 1 # Put the integer into the [1-8] range
	63
	64	sb $a0, 2($t0)
	65
	66	li $a1, 8
	67	li $v0, 42
	68	syscall
	69	addi $a0, $a0, 1 # Put the integer into the [1-8] range
	70
	71	sb $a0, 3($t0)
	72
	73	generate_sequence_loop_end:
	74
	75	la $s0, ($zero) # Initialize loop counter to zero
	76	la $s1, compare_buffer
	77	loop:
	78	beq $s0, 10, lost
	79	# ask user for the next input
	80	input:
	81	la $a0, newline
	82	li $v0, 4
	83	syscall
	84
	85	la $a0, ($s0)
	86	li $v0, 1
	87	syscall
	88	la $a0, interrogation_point
	89	li $v0, 4
	90	syscall
	91
	92	la $a0, input_value # Store the answer
	93	li $a1, 5
	94	li $v0, 8 # Load syscall read_string
	95	syscall # Make the syscall
	96
	97	# check that each input values are in the right range
	98	check_input:
	99	la $t7, input_value
	100
	101	lb $t5, 0($t7)
	102	andi $t5, $t5, 0x0F # ASCII code to integer
	103	beq $t5, $zero, input
	104	addi $t5, $t5, -9
105	bgez $t5, input
106
107	lb $t5, 1($t7)
108	andi $t5, $t5, 0x0F # ASCII code to integer
109	beq $t5, $zero, input
110	addi $t5, $t5, -9
111	bgez $t5, input
112
113	lb $t5, 2($t7)
114	andi $t5, $t5, 0x0F # ASCII code to integer
115	beq $t5, $zero, input
116	addi $t5, $t5, -9
117	bgez $t5, input
118
119	lb $t5, 3($t7)
120	andi $t5, $t5, 0x0F # ASCII code to integer
121	beq $t5, $zero, input
122	addi $t5, $t5, -9
123	bgez $t5, input
124
433eeade	125	la $s2, ($zero) # Same counter
f24104ee JB	126	la $s3 ($zero)
	127	compare_input:
	128	la $t7, input_value
	129	la $t6, guess_value
	130	la $t5, O
	131	la $t4, X
	132	la $t3, tiret
	133
	134	lb $t0, 0($t7)
	135	andi $t0, $t0, 0x0F # ASCII code to integer
	136	lb $t1, 0($t6)
	137	beq $t0, $t1, same1
	138	j different1
	139	same1:
	140	sb $0, 0($t7)
	141	sb $t5, 0($s1)
	142	addi $s2, $s2, 1
	143	different1:
	144	lb $t0, 1($t7)
	145	andi $t0, $t0, 0x0F # ASCII code to integer
	146	lb $t1, 1($t6)
	147	beq $t0, $t1, same2
	148	j different2
	149	same2:
	150	sb $zero, 1($t7)
	151	sb $t5, 1($s1)
	152	addi $s2, $s2, 1
	153	different2:
	154	lb $t0, 2($t7)
	155	andi $t0, $t0, 0x0F # ASCII code to integer
	156	lb $t1, 2($t6)
	157	beq $t0, $t1, same3
	158	j different3
	159	same3:
	160	sb $zero, 2($t7)
	161	sb $t5, 2($s1)
	162	addi $s2, $s2, 1
	163	different3:
	164	lb $t0, 3($t7)
	165	andi $t0, $t0, 0x0F # ASCII code to integer
	166	lb $t1, 3($t6)
	167	beq $t0, $t1, same4
	168	j different4
	169	same4:
	170	sb $zero, 3($t7)
	171	sb $t5, 3($s1)
	172	addi $s2, $s2, 1
	173	different4:
	174	beq $s2, 4, won
	175
	176
	177	print_comp_result:
	178	la $a0, newline
	179	li $v0, 4
	180	syscall
	181	la $a0, ($s0)
	182	li $v0, 1
	183	syscall
	184	la $a0, exclamation_point
	185	li $v0, 4
	186	syscall
	187	la $a0, ($s2)
	188	li $v0, 1
	189	syscall
190	la $a0, temp_msg
191	li $v0, 4
192	syscall
193
194	addi $s0, $s0, 1
195	j loop
196
197	won:
198	la $a0, newline
199	li $v0, 4
200	syscall
201	la $a0, win_msg
202	li $v0, 4
203	syscall
204
205	j exit
433eeade	206
f24104ee JB	207	lost:
	208	la $a0, newline
	209	li $v0, 4
	210	syscall
	211	la $a0, lost_msg
	212	li $v0, 4
	213	syscall
	214
	215	j exit
433eeade	216
f24104ee JB	217	exit:
f24104ee JB	218	li $v0, 10
433eeade	219	syscall