Tweet
//__________________________________________________________________________
// On my honor...
// I have not copied this program code from others or from published sources.
// The code for this assignment is original and was created by me.
//__________________________________________________________________________
#include <stdio.h>
main()
{
// Declare values of the different currencies
float a = 0.79821; // Euro
float b = 1.00500; // Bahamian Dollar
float c = 64.00000; // Jamacian Dollar
float d = 1.41603; // New Zealand Dollar
float e = 1.30719; // Australian Dollar
float dollarAmount = 0; // US Dollar input
float result = 0; // Currency conversion
// List how much each currency is equal to US dollar
printf("\n$1 is currently %f Euro", a);
printf("\n$1 is currently %f Bahamian Dollar", b);
printf("\n$1 is currently %f Jamacian Dollar", c);
printf("\n$1 is currently %f New Zealand Dollar", d);
printf("\n$1 is currently %f Australian Dollar\n", e);
// Conversion from US Dollars to other currencies
// This section prompts for how many US Dollars you want to convert
printf("\nEnter the dollar amount you want to convert: ");
scanf("%f", &dollarAmount);
// Conversion from US Dollars to Euro
result = dollarAmount * a;
printf("\nThat dollar amount is %.2f Euro", result);
// Conversion from US Dollars to Bahamian Dollar
result = dollarAmount * b;
printf("\nThat dollar amount is %.2f Bahamian Dollar", result);
// Conversion from US Dollars to Jamacian Dollar
result = dollarAmount * c;
printf("\nThat dollar amount is %.2f Jamacian Dollar", result);
// Conversion from US Dollars to New Zealand Dollar
result = dollarAmount * d;
printf("\nThat dollar amount is %.2f New Zealand Dollar", result);
// Conversion from US Dollars to Australian Dollar
result = dollarAmount * e;
printf("\nThat dollar amount is %.2f Australian Dollar\n", result);
getchar();
}
)
::
CK1NOLASTWD ( Check for one argument and clear last command )
CK&DISPATCH0 real ( Check for a real on the stack )
::
%># ( Convert real to hex string )
NULL$ ( Place an empty string on the stack )
#270 THIRTYTWO #* FOUR #/ SWAPDROP ( Calculate size of array in nibbles )
EXPAND ( Expand empty string to calculated size )
CODE
GOSBVL =SAVPTR Save RPL registers
D1=D1+ 5 D1 -> data stack+1
A=DAT1 A A -> hxs prolog
D0=A D0 -> hxs prolog
D0=D0+ 10 D0 -> hxs body
P= 7 Set word width to 32 bits
C=DAT0 WP C = hxs body
D1=D1- 5 D1 -> data stack
A=DAT1 A A -> string prolog
D1=A
D1=D1+ 10 D1 -> string body
DAT1=C WP Write hxs data into string
P= 0 Set reference nibble to zero
LC(5) #270
B=C A B = 624
C=0 W Clear C
LC(1) 1 C = 1
LAHEX 6C078965
R0=A R0 = 1812433253
P= 7 Set word size to 32 bits
AD1EX
D1=A D1 -> mt
D0=A
D0=D0- 8 D0 -> mt-1
while ?B>C A While C < 624
GOYES begin
GOTO endwhile
begin D0=D0+ 8
D1=D1+ 8 Increment D0,D1
R3=C A R3 = counter
C=DAT0 WP C = mt-1
R2=C R2 = mt-1
CSR WP
CSR WP
CSR WP
CSR WP
CSR WP
CSR WP
CSR WP
CSRB WP
CSRB WP Shift C right 30 bits
A=R2 A = mt-1
A=A!C WP A = mt-1 OR (mt-1 sr 30)
AR2EX A = mt-1, R2 = above
A=A&C WP A = mt-1 AND (mt-1 sr 30)
C=R2 C = mt-1 OR (mt-1 sr 30)
C=C-A WP C = mt-1 XOR (mt-1 sr 30)
A=R0 A = multiplier
GOSBVL =MPY A,C = A*C
C=DAT1 WP C = mt
A=A+C WP A = A+mt
DAT1=A WP Write A to string
C=R3 C = counter
C=C+1 A Increment counter
GOTO while
endwhile P= 0
GOSBVL =GETPTR Restore RPL registers
LOOP Return to RPL loop
ENDCODE
SWAP DROP
;
;
Comment