Language HERA
Date: | 05/01/12 |
Author: | Micah Walter |
URL: | n/a |
Comments: | 0 |
Info: | http://www.haverford.edu/computerscience/resources/software/HERA/index.html |
Score: | (2.00 in 2 votes) |
DLABEL(s9_bottleso) TIGER_STRING(" bottles of beer on the wall,\n") DLABEL(s8_bottleso) TIGER_STRING(" bottles of beer.\n") DLABEL(s7_takeoned) TIGER_STRING("take one down, pass it around,\n") DLABEL(s6_bottleso) TIGER_STRING(" bottles of beer on the wall.\n\n") DLABEL(s5_takeoned) TIGER_STRING("take one down, pass it around,\n") DLABEL(s4_1bottleo) TIGER_STRING("1 bottle of beer on the wall.\n\n") DLABEL(s3_1bottleo) TIGER_STRING("1 bottle of beer on the wall,\n1 bottle of beer.\n") DLABEL(s2_takeoned) TIGER_STRING("take one down, pass it around,\n") DLABEL(s1_nomorebe) TIGER_STRING("no more beer on the wall!\n") SETCB() // Declaration of implicit variable i SET(r3, 1) SET(r1, 0) ADD(r1, r1,FP) STORE(r3, 0,r1) // Determining upper bound for implicit variable i SET(r3, 100) LABEL(for_test_0) SET(r1, 0) ADD(r1, r1,FP) LOAD(r1, 0,r1) CMP(r3, r1) BS(end_loop_0) BZ(end_loop_0) // DO statement for FOR loop 0 // Beginning of IF condition 0B SET(r2, 100) SET(r1, 0) // Getting variable i // function depth difference 0 ADD(Rt, R0,FP) // Tracing back the static link path ADD(r1, r1,Rt) LOAD(r1, 0,r1) SUB(r2, r2,r1) SET(r1, 1) // Beginning of GT (>) operation 0BC CMP(r2, r1) BG(gt_0BC) // True if difference is greater than zero SET(r2, 0) BR(end_gt_0BC) LABEL(gt_0BC) SET(r2, 1) LABEL(end_gt_0BC) CMP(r2, r0) BZ(else_0B) // THEN statement for condition 0B // Initializing function printint() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of printint() SET(r2, 100) SET(r1, 0) // Getting variable i // function depth difference 0 ADD(Rt, R0,FP) // Tracing back the static link path ADD(r1, r1,Rt) LOAD(r1, 0,r1) SUB(r2, r2,r1) STORE(r2, 3,R12) // Calling function printint() CALL(R12, printint) LOAD(r2, 3,R12) // Result DEC(SP, 4) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r1, s9_bottleso) STORE(r1, 3,R12) // Calling function print() CALL(R12, print) LOAD(r1, 3,R12) // Result DEC(SP, 4) // Initializing function printint() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of printint() SET(r2, 100) SET(r1, 0) // Getting variable i // function depth difference 0 ADD(Rt, R0,FP) // Tracing back the static link path ADD(r1, r1,Rt) LOAD(r1, 0,r1) SUB(r2, r2,r1) STORE(r2, 3,R12) // Calling function printint() CALL(R12, printint) LOAD(r2, 3,R12) // Result DEC(SP, 4) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r1, s8_bottleso) STORE(r1, 3,R12) // Calling function print() CALL(R12, print) LOAD(r1, 3,R12) // Result DEC(SP, 4) // Beginning of IF condition 0BXT2 SET(r2, 100) SET(r1, 0) // Getting variable i // function depth difference 0 ADD(Rt, R0,FP) // Tracing back the static link path ADD(r1, r1,Rt) LOAD(r1, 0,r1) SUB(r2, r2,r1) SET(r1, 2) // Beginning of GT (>) operation 0BXT2C CMP(r2, r1) BG(gt_0BXT2C) // True if difference is greater than zero SET(r2, 0) BR(end_gt_0BXT2C) LABEL(gt_0BXT2C) SET(r2, 1) LABEL(end_gt_0BXT2C) CMP(r2, r0) BZ(else_0BXT2) // THEN statement for condition 0BXT2 // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r1, s7_takeoned) STORE(r1, 3,R12) // Calling function print() CALL(R12, print) LOAD(r1, 3,R12) // Result DEC(SP, 4) // Initializing function printint() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of printint() SET(r2, 99) SET(r1, 0) // Getting variable i // function depth difference 0 ADD(Rt, R0,FP) // Tracing back the static link path ADD(r1, r1,Rt) LOAD(r1, 0,r1) SUB(r2, r2,r1) STORE(r2, 3,R12) // Calling function printint() CALL(R12, printint) LOAD(r2, 3,R12) // Result DEC(SP, 4) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r2, s6_bottleso) STORE(r2, 3,R12) // Calling function print() CALL(R12, print) LOAD(r2, 3,R12) // Result DEC(SP, 4) BR(end_if_0BXT2) // ELSE statement for condition 0BXT2 LABEL(else_0BXT2) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r1, s5_takeoned) STORE(r1, 3,R12) // Calling function print() CALL(R12, print) LOAD(r1, 3,R12) // Result DEC(SP, 4) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r2, s4_1bottleo) STORE(r2, 3,R12) // Calling function print() CALL(R12, print) LOAD(r2, 3,R12) // Result DEC(SP, 4) LABEL(end_if_0BXT2) BR(end_if_0B) // ELSE statement for condition 0B LABEL(else_0B) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r1, s3_1bottleo) STORE(r1, 3,R12) // Calling function print() CALL(R12, print) LOAD(r1, 3,R12) // Result DEC(SP, 4) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r1, s2_takeoned) STORE(r1, 3,R12) // Calling function print() CALL(R12, print) LOAD(r1, 3,R12) // Result DEC(SP, 4) // Initializing function print() MOVE(R12, SP) // Make the old SP the new FP INC(SP, 4) // 3 links, plus 1 parameters // Parameter 1 of print() SET(r2, s1_nomorebe) STORE(r2, 3,R12) // Calling function print() CALL(R12, print) LOAD(r2, 3,R12) // Result DEC(SP, 4) LABEL(end_if_0B) LOAD(r1, 0,FP) INC(r1, 1) STORE(r1, 0,FP) BR(for_test_0) LABEL(end_loop_0)
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments