<? if ( $_SERVER['REMOTE_ADDR'] === 'YOUR.IP' ) { print '<pre>'; print_r($_SERVER); print '</pre>'; } ?>

TITLE Modified College Registration example from Section 6.7.2 (Assign5.asm) ; Description: This program inputs two integers from the user, one for a grade average ; and determines whether they are not eligible ro register. The program loops until the user enters 0 ; Author: Joseph Crain Jr. (W0248397) ; Date Created: 11-13-2008 ; Last Modification Date: 11-13-2008 INCLUDE Irvine32.inc TRUE = 1 FALSE = 0 .data gradeAverage WORD ? credits WORD ? OkToRegister BYTE ? prompt1 BYTE "Enter the GPA of the student: ",0 prompt2 BYTE "Enter the number of credits to be taken: ",0 prompt3 BYTE "You are eligible to register.",0 prompt4 BYTE "You are not eligible to register.",0 error1 BYTE "ERROR: The GPA must be between 0 and 400!", 0 error2 BYTE "ERROR: The credits must be between 1 and 30!", 0 .code main PROC mov eax,1 ; set eax to 1 to initiate an infinite loop .REPEAT ; start loop call GetCreditsGPA ; get the input from the user and verify that it is within set bounds call CheckToRegister ; determine if student is eligible call DisplayResult ; Print out if student is eligible or not call WaitMsg ; "Press Any Key To Continue..." call Crlf ; linefeed call Crlf ; linefeed .UNTIL eax == 0 ; repeat infinitely until user exits by entering 0 in either field exit main ENDP ;----------------------------------------------------- GetCreditsGPA PROC ; ; Prompts the user for the gpa and the credits ; credits must be between 1 and 30 and gpa be between 0 and 400 ; Receives: nothing ; Returns: The GPA stored in gradeAverage and the credits stored in credits ;----------------------------------------------------- L1: mov edx,OFFSET prompt1 ; address of the prompt for the gpa call WriteString ; display prompt call ReadInt ; read integer into EAX call Crlf ; go to next output line cmp eax,0 ; compare the integer read to the limit of 0 jb E1 ; if the integer entered is less than 0, then jump to error je Kill ; if user enters 0, end the program cmp eax,400 ; compare the integer entered to the limit of 400 ja E1 ; jump to error if number exceeds 400 mov gradeAverage,ax ; if good, store the GPA in gradeAverage L2: mov edx,OFFSET prompt2 ; address of the prompt for the credits call WriteString ; display prompt call ReadInt ; read integer into EAX call Crlf ; go to next output line cmp eax,0 ; compare the integer read to the limit of 0 jb E2 ; if the integer entered is less than 0, then jump to error je Kill ; if user enters 0, end the program cmp eax,30 ; compare the integer entered to the limit of 30 ja E2 ; jump to error if number exceeds 30 mov credits,ax ; if good, store the credits in credits ret ; return to main E1: ; GPA entered is out of range mov edx,OFFSET error1 ; else store the offset of error in edx call WriteString ; print the error message call Crlf ; go to next line jmp L1 ; prompt user for gpa again E2: ; credits entered are out of range mov edx,OFFSET error2 ; else store the offset of error in edx call WriteString ; print the error message call Crlf ; go to next line jmp L2 ; prompt user for credits again Kill: ; user entered zero for either value exit GetCreditsGPA ENDP ;----------------------------------------------- CheckToRegister PROC ; ; Depending on the values of credits and gradeAverage ; the variable OkToRegister is set to true or false. ; Receives: nothing ; Returns: sets boolean value of OkToRegister ;----------------------------------------------- mov OkToRegister,FALSE ; initialize OkToRegister as false cmp word ptr gradeAverage,350 ; compare gradeAverage to 350 jb LowGrade ; if gradeAverage is less than or equal to 350, jump to LowGrade mov OkToRegister,TRUE ; else set OkToRegister to TRUE ret LowGrade: cmp word ptr gradeAverage,250 ; compare gradeAverage to 250 jb CheckCredits ; if grade average less than or equal to 250, jump to CheckCredits cmp word ptr credits,16 ; compare credits to 16 ja CheckCredits ; if credits are less than or equal to 16, jump to CheckCredits mov byte ptr OkToRegister,TRUE ; else set OkToRegister to TRUE ret CheckCredits: cmp word ptr credits,12 ; compare credits to 12 ja Done ; if credits are less that or equal to 12, jump to Done mov byte ptr OkToRegister,TRUE ; else set OkToRegister to TRUE Done: ret ; OkToRegister = FALSE CheckToRegister ENDP ;----------------------------------------------- DisplayResult PROC ; Displays whether the potential student is eligible to register ; Depending on the value of OkToRegister ; Receives: nothing ; Returns: nothing ;----------------------------------------------- mov al,OkToRegister ; copy value of OkToRegister to al cmp al,FALSE ; compare al to FALSE jne Accepted ; if eax = true, go to Accepted mov edx,OFFSET prompt4 ; else then store the offset of prompt3 in edx call WriteString ; print the Rejected message call Crlf ; go to next line ret Accepted: mov edx,OFFSET prompt3 ; else store the offset of error in edx call WriteString ; print the Accepted message call Crlf ; go to next line ret DisplayResult ENDP END main