.ORIG x3000 ;

AND R5, R5, #0;

LD R3, PTS;
LD R0, Q1      ;

PUTS;
JSR P_ANS;
GETC;
OUT;
JSR ADD_PTS ;



LD R0, Q2      ;
PUTS;
JSR P_ANS;
GETC;
OUT;
JSR ADD_PTS ;



LD R0, Q3	;
PUTS;
JSR P_ANS;
GETC;
OUT;
JSR ADD_PTS ;


LD R2, NEG_TEN;
ADD R1, R2, R5;
BRzp GOOD;

LD R2, NEG_FIVE;
ADD R1, R2, R5;
BRzp AVG;

ADD R1, R5, #0;
BRp BAD;


LD R0, WORST;
PUTS;
HALT;

BAD LD R0, BADR;
PUTS; 
HALT;


AVG LD R0, AVGR;
PUTS; 
HALT;


GOOD LD R0, GOODR;
PUTS; 
HALT;



P_ANS	LEA R0, ANSWER;

AND R6, R7, R7;

PUTS;
AND R7, R6, R6;
RET;



ADD_PTS LD R2, ONE;
NOT R0, R0;


LOOP	ADD R4, R0, R2;	
NOT R4, R4;
BRz APPLY_PTS;
BRnp PLUS_ONE;


APPLY_PTS LDR R6, R3, #0;
ADD R5, R5, R6;


PLUS_ONE ADD R2, R2, #1;
ADD R3, R3, #1;
LD R6, FOUR_OPP;
ADD R6, R2, R6;
BRnp LOOP;
RET;




ANSWER  .STRINGZ "Answer: "
ONE	.FILL x31
FOUR_OPP .FILL xFFCB

NEG_TEN .FILL -10
NEG_FIVE .FILL -5
Q1	.FILL x3300
Q2	.FILL x335A
Q3	.FILL x33D8
PTS	.FILL x3439

GOODR   .FILL x3445
AVGR    .FILL x344D
BADR    .FILL x3472
WORST	.FILL x348D

.END



.ORIG 	x3300

Q1    .STRINGZ  "\nWhat's your favorite sport?\n   1 - Football\n   2 - Baseball\n   3 - Hockey\n   4 - Soccer\n"
Q2    .STRINGZ  "\nWhat's your ideal first date?\n   1 - Go see a movie\n   2 - Go out to dinner\n   3 - Go to a concert\n   4 - Walk on the beach\n"
Q3    .STRINGZ  "\nWhich technological company is best?\n   1 - Amazon\n   2 - Apple\n   3 - Google\n   4 - Microsoft\n"

P11	.FILL #3
P12	.FILL #3
P13	.FILL #5
P14	.FILL #0
P21	.FILL #5
P22	.FILL #5
P23	.FILL #0
P24	.FILL #2
P31	.FILL #2
P32	.FILL #0
P33	.FILL #5
P34	.FILL #3

Result1	.STRINGZ  "\nGreat!"
Result2	.STRINGZ  "\nGetting there! Try harder next time"
Result3	.STRINGZ  "\nYou have horrible tastes."
Result4	.STRINGZ  "\nWow, are you interested in dating a robot?"

	.END