RPN CALCULATOR
FILE INFORMATION
FILENAME(S): RPN CALCULATOR
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 16:57:28
APPEARS ON: 1 disk(s)
FILE HASH
348e3d0a036496528cbbac200a39b733ef51c961fbb20164a6e7a6cb82961b75
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DOCSOFT | RPN CALCULATOR | PRG | High Voltage Complete C64 Collection, Markus Merz | 31 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 00 00 99 22 93 22 3A 97 35 33 32 38 |..%....".":.5328| 00000010: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A 97 36 |0,14:.53281,6:.6| 00000020: 34 36 2C 31 34 00 2C 08 01 00 89 36 00 32 08 02 |46,14.,....6.2..| 00000030: 00 3A 00 56 08 03 00 8D 32 30 30 30 3A 4E 24 B2 |.:.V....2000:N$.| 00000040: 22 22 3A 4A 24 B2 22 30 22 3A 44 B2 30 3A 45 B2 |"":J$."0":D.0:E.| 00000050: 30 3A 89 35 30 30 00 5C 08 04 00 3A 00 69 08 05 |0:.500.\...:.i..| 00000060: 00 8D 31 39 30 30 3A 89 32 00 98 08 06 00 99 22 |..1900:.2......"| 00000070: BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE |................| 00000080: BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE |................| 00000090: BE BE BE BE BE BE BE BE 00 C5 08 0A 00 99 22 20 |.............." | 000000A0: 52 50 4E 20 53 43 49 45 4E 54 49 46 49 43 20 43 |RPN SCIENTIFIC C| 000000B0: 41 4C 43 55 4C 41 54 4F 52 20 53 49 4D 55 4C 41 |ALCULATOR SIMULA| 000000C0: 54 49 4F 4E 22 00 F2 08 14 00 99 22 20 20 20 20 |TION"......" | 000000D0: 43 4F 50 59 52 49 47 48 54 20 20 52 2E 48 2E 50 |COPYRIGHT R.H.P| 000000E0: 45 41 52 53 4F 4E 20 20 28 53 45 50 54 20 38 35 |EARSON (SEPT 85| 000000F0: 29 22 00 21 09 1E 00 99 22 50 4C 45 41 53 45 20 |)".!...."PLEASE | 00000100: 53 45 54 20 43 41 50 49 54 41 4C 53 20 4C 4F 43 |SET CAPITALS LOC| 00000110: 4B 20 42 45 46 4F 52 45 20 53 54 41 52 54 49 4E |K BEFORE STARTIN| 00000120: 47 00 4F 09 28 00 99 22 20 20 55 53 45 20 48 20 |G.O.(.." USE H | 00000130: 28 4E 4F 54 20 4D 49 4E 55 53 20 2D 20 29 20 20 |(NOT MINUS - ) | 00000140: 54 4F 20 43 48 41 4E 47 45 20 53 49 47 4E 22 00 |TO CHANGE SIGN".| 00000150: 73 09 3C 00 99 22 20 20 20 20 20 20 20 20 20 20 |s.<.." | 00000160: 20 20 20 55 53 45 20 40 20 54 4F 20 46 49 4E 49 | USE @ TO FINI| 00000170: 53 48 22 00 A2 09 46 00 99 22 BE BE BE BE BE BE |SH"...F.."......| 00000180: BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE |................| 00000190: BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE BE |................| 000001A0: BE BE 00 AA 09 64 00 50 B2 FF 00 B2 09 6E 00 4D |.....d.P.....n.M| 000001B0: B2 30 00 B8 09 C8 00 3A 00 BE 09 DC 00 3A 00 C4 |.0.....:.....:..| 000001C0: 09 FA 00 3A 00 CE 09 2C 01 89 31 35 32 30 00 D4 |...:...,..1520..| 000001D0: 09 90 01 3A 00 DC 09 F4 01 A1 4B 24 00 F3 09 FE |...:......K$....| 000001E0: 01 8B 4B 24 B2 22 40 22 A7 39 30 30 30 3A 8F 20 |..K$."@".9000:. | 000001F0: 45 4E 44 00 12 0A 08 02 8B 4B 24 B2 22 48 22 A7 |END......K$."H".| 00000200: 31 32 30 30 3A 8F 20 43 48 41 4E 47 45 20 53 49 |1200:. CHANGE SI| 00000210: 47 4E 00 39 0A 12 02 8B 4B 24 B2 22 45 22 A7 31 |GN.9....K$."E".1| 00000220: 31 30 30 3A 8F 20 53 43 49 45 4E 54 49 46 49 43 |100:. SCIENTIFIC| 00000230: 20 4E 4F 54 41 54 49 4F 4E 00 60 0A 1C 02 8B 4B | NOTATION.`....K| 00000240: 24 B1 B2 22 30 22 AF 4B 24 B3 B2 22 39 22 A7 31 |$.."0".K$.."9".1| 00000250: 30 30 30 3A 8F 20 4E 45 57 20 4E 55 4D 42 45 52 |000:. NEW NUMBER| 00000260: 00 7E 0A 26 02 8B 4B 24 B2 22 5A 22 A7 31 35 30 |.~.&..K$."Z".150| 00000270: 30 3A 8F 20 5A 45 52 4F 20 53 54 41 43 4B 00 9F |0:. ZERO STACK..| 00000280: 0A 30 02 8B 4B 24 B2 22 2E 22 A7 31 33 30 30 3A |.0..K$.".".1300:| 00000290: 8F 20 44 45 43 49 4D 41 4C 20 50 4F 49 4E 54 00 |. DECIMAL POINT.| 000002A0: B8 0A 3A 02 8B 4B 24 B2 22 20 22 A7 31 37 30 30 |..:..K$." ".1700| 000002B0: 3A 8F 20 45 4E 54 45 52 00 CF 0A 62 02 8B 4B 24 |:. ENTER...b..K$| 000002C0: B2 22 2B 22 A7 32 31 30 30 3A 8F 20 41 44 44 00 |."+".2100:. ADD.| 000002D0: ED 0A 6C 02 8B 4B 24 B2 22 4B 22 A7 32 32 30 30 |..l..K$."K".2200| 000002E0: 3A 8F 20 52 4F 4C 4C 20 53 54 41 43 4B 00 09 0B |:. ROLL STACK...| 000002F0: 76 02 8B 4B 24 B2 22 2D 22 A7 32 33 30 30 3A 8F |v..K$."-".2300:.| 00000300: 20 53 55 42 54 52 41 43 54 00 25 0B 80 02 8B 4B | SUBTRACT.%....K| 00000310: 24 B2 22 2A 22 A7 32 34 30 30 3A 8F 20 4D 55 4C |$."*".2400:. MUL| 00000320: 54 49 50 4C 59 00 3F 0B 8A 02 8B 4B 24 B2 22 2F |TIPLY.?....K$."/| 00000330: 22 A7 32 35 30 30 3A 8F 20 44 49 56 49 44 45 00 |".2500:. DIVIDE.| 00000340: 66 0B 94 02 8B 4B 24 B2 22 56 22 A7 32 36 30 30 |f....K$."V".2600| 00000350: 3A 8F 20 49 4E 56 45 52 54 20 28 52 45 43 49 50 |:. INVERT (RECIP| 00000360: 52 4F 43 41 4C 29 00 85 0B 9E 02 8B 4B 24 B2 22 |ROCAL)......K$."| 00000370: 52 22 A7 32 37 30 30 3A 8F 20 53 51 55 41 52 45 |R".2700:. SQUARE| 00000380: 20 52 4F 4F 54 00 A5 0B A8 02 8B 4B 24 B2 22 57 | ROOT......K$."W| 00000390: 22 A7 32 38 30 30 3A 8F 20 53 57 41 50 20 58 20 |".2800:. SWAP X | 000003A0: 41 4E 44 20 59 00 C1 0B B2 02 8B 4B 24 B2 22 44 |AND Y......K$."D| 000003B0: 22 A7 32 39 30 30 3A 8F 20 44 45 4C 45 54 45 20 |".2900:. DELETE | 000003C0: 58 00 D9 0B BC 02 8B 4B 24 B2 22 53 22 A7 37 30 |X......K$."S".70| 000003D0: 30 30 3A 8F 20 53 49 4E 45 00 F3 0B C6 02 8B 4B |00:. SINE......K| 000003E0: 24 B2 22 43 22 A7 37 31 30 30 3A 8F 20 43 4F 53 |$."C".7100:. COS| 000003F0: 49 4E 45 00 0E 0C D0 02 8B 4B 24 B2 22 54 22 A7 |INE......K$."T".| 00000400: 37 32 30 30 3A 8F 20 54 41 4E 47 45 4E 54 00 2C |7200:. TANGENT.,| 00000410: 0C DA 02 8B 4B 24 B2 22 47 22 A7 37 33 30 30 3A |....K$."G".7300:| 00000420: 8F 20 43 4F 4D 4D 4F 4E 20 4C 4F 47 00 4B 0C E4 |. COMMON LOG.K..| 00000430: 02 8B 4B 24 B2 22 4E 22 A7 37 34 30 30 3A 8F 20 |..K$."N".7400:. | 00000440: 4E 41 54 55 52 41 4C 20 4C 4F 47 00 6B 0C EE 02 |NATURAL LOG.k...| 00000450: 8B 4B 24 B2 22 59 22 A7 37 35 30 30 3A 8F 20 58 |.K$."Y".7500:. X| 00000460: 20 54 4F 20 50 4F 57 45 52 20 59 00 8A 0C F8 02 | TO POWER Y.....| 00000470: 8B 4B 24 B2 22 58 22 A7 37 36 30 30 3A 8F 20 45 |.K$."X".7600:. E| 00000480: 58 50 4F 4E 45 4E 54 49 41 4C 00 A4 0C 02 03 8B |XPONENTIAL......| 00000490: 4B 24 B2 22 51 22 A7 37 37 30 30 3A 8F 20 53 51 |K$."Q".7700:. SQ| 000004A0: 55 41 52 45 00 BE 0C 20 03 8B 4B 24 B2 22 41 22 |UARE... ..K$."A"| 000004B0: A7 38 30 30 30 3A 8F 20 41 52 43 54 41 4E 00 D8 |.8000:. ARCTAN..| 000004C0: 0C 2A 03 8B 4B 24 B2 22 49 22 A7 38 31 30 30 3A |.*..K$."I".8100:| 000004D0: 8F 20 41 52 43 53 49 4E 00 F2 0C 34 03 8B 4B 24 |. ARCSIN...4..K$| 000004E0: B2 22 4F 22 A7 38 32 30 30 3A 8F 20 41 52 43 43 |."O".8200:. ARCC| 000004F0: 4F 53 00 0C 0D 3E 03 8B 4B 24 B2 22 4D 22 A7 38 |OS...>..K$."M".8| 00000500: 33 30 30 3A 8F 20 4D 45 4D 4F 52 59 00 2D 0D 48 |300:. MEMORY.-.H| 00000510: 03 8B 4B 24 B2 22 4C 22 A7 38 34 30 30 3A 8F 20 |..K$."L".8400:. | 00000520: 52 45 43 41 4C 4C 20 4D 45 4D 4F 52 59 00 43 0D |RECALL MEMORY.C.| 00000530: 52 03 8B 4B 24 B2 22 50 22 A7 38 35 30 30 3A 8F |R..K$."P".8500:.| 00000540: 20 50 49 00 4C 0D 84 03 89 35 30 30 00 52 0D DE | PI.L....500.R..| 00000550: 03 3A 00 58 0D E8 03 3A 00 69 0D FC 03 8B 4E 24 |.:.X...:.i....N$| 00000560: B3 B1 22 22 A7 31 30 38 30 00 90 0D 10 04 4D 24 |.."".1080.....M$| 00000570: B2 22 2D 2D 2D 2D 4E 45 57 20 4E 55 4D 42 45 52 |."----NEW NUMBER| 00000580: 2D 2D 2D 2D 22 3A 8B 46 B2 31 A7 8D 31 38 30 30 |----":.F.1..1800| 00000590: 00 A6 0D 24 04 99 3A 99 4D 24 3A 8D 32 30 35 30 |...$..:.M$:.2050| 000005A0: 3A 99 22 20 22 3B 00 CB 0D 38 04 99 4B 24 3B 3A |:." ";...8..K$;:| 000005B0: 4E 24 B2 4E 24 AA 4B 24 3A 58 B2 C5 28 4E 24 29 |N$.N$.K$:X..(N$)| 000005C0: 3A 4A 24 B2 4B 24 3A 89 35 30 30 00 D1 0D 42 04 |:J$.K$:.500...B.| 000005D0: 3A 00 D7 0D 4C 04 3A 00 E7 0D 60 04 8B 4E 24 B2 |:...L.:...`..N$.| 000005E0: 22 22 A7 31 34 30 30 00 F5 0D 74 04 8B 45 B2 31 |"".1400...t..E.1| 000005F0: A7 31 34 30 30 00 07 0E 88 04 44 B2 30 3A 45 B2 |.1400.....D.0:E.| 00000600: 31 3A 89 31 30 30 30 00 0D 0E A6 04 3A 00 13 0E |1:.1000.....:...| 00000610: B0 04 3A 00 2B 0E C4 04 8B 4A 24 B2 22 2D 22 B0 |..:.+....J$."-".| 00000620: 4A 24 B2 22 2E 22 A7 31 34 30 30 00 3C 0E D8 04 |J$.".".1400.<...| 00000630: 8B 4A 24 B2 22 45 22 A7 31 32 38 30 00 65 0E EC |.J$."E".1280.e..| 00000640: 04 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D 43 48 41 |.F.1:M$."----CHA| 00000650: 4E 47 45 20 53 49 47 4E 2D 2D 2D 2D 22 3A 58 B2 |NGE SIGN----":X.| 00000660: AB 58 3A 89 32 00 76 0E 00 05 4B 24 B2 22 2D 22 |.X:.2.v...K$."-"| 00000670: 3A 89 31 30 30 30 00 7C 0E 0A 05 3A 00 82 0E 14 |:.1000.|...:....| 00000680: 05 3A 00 90 0E 28 05 8B 44 B2 31 A7 31 34 30 30 |.:...(..D.1.1400| 00000690: 00 9E 0E 3C 05 44 B2 31 3A 89 31 30 30 30 00 A4 |...<.D.1:.1000..| 000006A0: 0E 6E 05 3A 00 C8 0E 78 05 4D 24 B2 22 2D 2D 2D |.n.:...x.M$."---| 000006B0: 49 4E 56 41 4C 49 44 20 49 4E 50 55 54 2D 2D 2D |INVALID INPUT---| 000006C0: 22 3A 58 B2 30 3A 89 32 00 CE 0E D2 05 3A 00 EB |":X.0:.2.....:..| 000006D0: 0E DC 05 4D 24 B2 22 2D 2D 2D 2D 43 4C 45 41 52 |...M$."----CLEAR| 000006E0: 20 53 54 41 43 4B 2D 2D 2D 2D 22 00 1F 0F F0 05 | STACK----".....| 000006F0: 58 B2 30 3A 59 B2 30 3A 5A B2 30 3A 54 B2 30 3A |X.0:Y.0:Z.0:T.0:| 00000700: 4C B2 30 3A 44 B2 30 3A 45 B2 30 3A 46 B2 30 3A |L.0:D.0:E.0:F.0:| 00000710: 4E 24 B2 22 22 3A 4A 24 B2 22 30 22 3A 89 32 00 |N$."":J$."0":.2.| 00000720: 25 0F 36 06 3A 00 42 0F A4 06 4D 24 B2 22 2D 2D |%.6.:.B...M$."--| 00000730: 2D 2D 2D 2D 2D 45 4E 54 45 52 2D 2D 2D 2D 2D 2D |-----ENTER------| 00000740: 2D 22 00 4F 0F C2 06 8D 31 38 30 30 3A 89 32 00 |-".O....1800:.2.| 00000750: 55 0F CC 06 3A 00 5B 0F 08 07 3A 00 71 0F 1C 07 |U...:.[...:.q...| 00000760: 54 B2 5A 3A 5A B2 59 3A 59 B2 58 3A 46 B2 30 3A |T.Z:Z.Y:Y.X:F.0:| 00000770: 8E 00 77 0F 26 07 3A 00 7D 0F 6C 07 3A 00 8B 0F |..w.&.:.}.l.:...| 00000780: 80 07 59 B2 5A 3A 5A B2 54 3A 8E 00 91 0F 8A 07 |..Y.Z:Z.T:......| 00000790: 3A 00 97 0F D0 07 3A 00 A1 0F E4 07 99 3A 99 4D |:.....:......:.M| 000007A0: 24 00 AF 0F EE 07 8D 32 30 35 30 3A 99 58 3B 00 |$......2050:.X;.| 000007B0: B5 0F F8 07 8E 00 C1 0F 02 08 99 22 54 20 22 3B |..........."T ";| 000007C0: 54 00 CD 0F 0C 08 99 22 5A 20 22 3B 5A 00 E0 0F |T......"Z ";Z...| 000007D0: 16 08 99 22 59 20 22 3B 59 2C 22 4D 20 22 3B 4D |..."Y ";Y,"M ";M| 000007E0: 00 EB 0F 20 08 99 22 58 20 22 3B 00 F1 0F 2A 08 |... .."X ";...*.| 000007F0: 8E 00 1B 10 34 08 46 B2 31 3A 4D 24 B2 22 2D 2D |....4.F.1:M$."--| 00000800: 2D 2D 2D 2D 2D 58 3D 59 2B 58 2D 2D 2D 2D 2D 2D |-----X=Y+X------| 00000810: 2D 22 3A 58 B2 59 AA 58 3A 89 34 00 4F 10 98 08 |-":X.Y.X:.4.O...| 00000820: 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D 52 4F 4C 4C |F.1:M$."----ROLL| 00000830: 20 20 53 54 41 43 4B 2D 2D 2D 2D 22 3A 4C B2 58 | STACK----":L.X| 00000840: 3A 58 B2 59 3A 5A B2 54 3A 54 B2 4C 3A 89 32 00 |:X.Y:Z.T:T.L:.2.| 00000850: 79 10 FC 08 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D |y...F.1:M$."----| 00000860: 2D 2D 2D 2D 58 3D 59 2D 58 2D 2D 2D 2D 2D 2D 22 |----X=Y-X------"| 00000870: 3A 58 B2 59 AB 58 3A 89 34 00 A3 10 60 09 46 B2 |:X.Y.X:.4...`.F.| 00000880: 31 3A 4D 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 58 3D |1:M$."--------X=| 00000890: 59 2A 58 2D 2D 2D 2D 2D 2D 22 3A 58 B2 59 AC 58 |Y*X------":X.Y.X| 000008A0: 3A 89 34 00 CF 10 C4 09 4D 24 B2 22 45 52 52 4F |:.4.....M$."ERRO| 000008B0: 52 20 44 49 56 49 44 45 20 42 59 20 5A 45 52 4F |R DIVIDE BY ZERO| 000008C0: 22 3A 8B B6 28 58 29 B3 31 45 AB 33 37 A7 32 00 |":..(X).1E.37.2.| 000008D0: F9 10 EC 09 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D |....F.1:M$."----| 000008E0: 2D 2D 2D 2D 58 3D 59 2F 58 2D 2D 2D 2D 2D 2D 22 |----X=Y/X------"| 000008F0: 3A 58 B2 59 AD 58 3A 89 34 00 29 11 28 0A 4D 24 |:X.Y.X:.4.).(.M$| 00000900: B2 22 45 52 52 4F 52 20 52 45 43 49 50 52 4F 43 |."ERROR RECIPROC| 00000910: 41 4C 20 4F 46 20 5A 45 52 4F 22 3A 8B B6 28 58 |AL OF ZERO":..(X| 00000920: 29 B3 31 45 AB 33 37 A7 32 00 53 11 50 0A 46 B2 |).1E.37.2.S.P.F.| 00000930: 31 3A 4D 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 58 3D |1:M$."--------X=| 00000940: 31 2F 58 2D 2D 2D 2D 2D 2D 22 3A 58 B2 31 AD 58 |1/X------":X.1.X| 00000950: 3A 89 32 00 81 11 8C 0A 4D 24 B2 22 45 52 52 4F |:.2.....M$."ERRO| 00000960: 52 20 52 4F 4F 54 20 4F 46 20 4E 45 47 41 54 49 |R ROOT OF NEGATI| 00000970: 56 45 20 4E 55 4D 42 45 52 22 3A 8B 58 B3 30 A7 |VE NUMBER":.X.0.| 00000980: 32 00 AC 11 B4 0A 46 B2 31 3A 4D 24 B2 22 2D 2D |2.....F.1:M$."--| 00000990: 2D 2D 58 3D 53 51 52 4F 4F 54 28 58 29 2D 2D 2D |--X=SQROOT(X)---| 000009A0: 2D 22 3A 58 B2 BA 28 58 29 3A 89 32 00 DC 11 F0 |-":X..(X):.2....| 000009B0: 0A 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D 2D 53 57 |.F.1:M$."-----SW| 000009C0: 41 50 20 20 58 26 59 2D 2D 2D 2D 2D 22 3A 4C B2 |AP X&Y-----":L.| 000009D0: 58 3A 58 B2 59 3A 59 B2 4C 3A 89 32 00 04 12 54 |X:X.Y:Y.L:.2...T| 000009E0: 0B 46 B2 30 3A 4D 24 B2 22 2D 2D 2D 2D 2D 2D 43 |.F.0:M$."------C| 000009F0: 4C 45 41 52 20 58 2D 2D 2D 2D 2D 2D 22 3A 58 B2 |LEAR X------":X.| 00000A00: 30 3A 89 32 00 35 12 58 1B 46 B2 31 3A 4D 24 B2 |0:.2.5.X.F.1:M$.| 00000A10: 22 2D 2D 2D 2D 2D 58 3D 20 53 49 4E 28 58 29 2D |"-----X= SIN(X)-| 00000A20: 2D 2D 2D 2D 22 3A 58 B2 BF 28 58 AC 50 AD 31 38 |----":X..(X.P.18| 00000A30: 30 29 3A 89 32 00 66 12 BC 1B 46 B2 31 3A 4D 24 |0):.2.f...F.1:M$| 00000A40: B2 22 2D 2D 2D 2D 2D 58 3D 20 43 4F 53 28 58 29 |."-----X= COS(X)| 00000A50: 2D 2D 2D 2D 2D 22 3A 58 B2 BE 28 58 AC 50 AD 31 |-----":X..(X.P.1| 00000A60: 38 30 29 3A 89 32 00 85 12 20 1C 4D 24 B2 22 45 |80):.2... .M$."E| 00000A70: 52 52 4F 52 20 54 41 4E 28 58 29 20 49 4E 46 49 |RROR TAN(X) INFI| 00000A80: 4E 49 54 45 22 00 A0 12 2A 1C 8B 58 4D 4F 44 31 |NITE"...*..XMOD1| 00000A90: 38 30 B3 B1 30 AF 58 4D 4F 44 39 30 B2 30 A7 32 |80..0.XMOD90.0.2| 00000AA0: 00 D2 12 34 1C 46 B2 31 3A 4D 24 B2 22 2D 2D 2D |...4.F.1:M$."---| 00000AB0: 2D 2D 58 3D 20 20 54 41 4E 28 58 29 2D 2D 2D 2D |--X= TAN(X)----| 00000AC0: 2D 22 3A 58 B2 C0 28 58 AC 50 AD 31 38 30 29 3A |-":X..(X.P.180):| 00000AD0: 89 32 00 D8 12 3E 1C 3A 00 05 13 84 1C 4D 24 B2 |.2...>.:.....M$.| 00000AE0: 22 45 52 52 4F 52 20 4C 4F 47 20 4F 46 20 4E 45 |"ERROR LOG OF NE| 00000AF0: 47 41 54 49 56 45 20 4E 55 4D 42 45 52 22 3A 8B |GATIVE NUMBER":.| 00000B00: 58 B3 30 A7 32 00 34 13 8E 1C 4D 24 B2 22 45 52 |X.0.2.4...M$."ER| 00000B10: 52 4F 52 20 4C 4F 47 28 30 29 20 49 53 20 4D 49 |ROR LOG(0) IS MI| 00000B20: 4E 55 53 20 49 4E 46 49 4E 49 54 59 22 3A 8B 58 |NUS INFINITY":.X| 00000B30: B2 30 A7 32 00 65 13 98 1C 46 B2 31 3A 4D 24 B2 |.0.2.e...F.1:M$.| 00000B40: 22 2D 2D 2D 2D 2D 58 3D 20 4C 4F 47 28 58 29 2D |"-----X= LOG(X)-| 00000B50: 2D 2D 2D 2D 22 3A 58 B2 BC 28 58 29 AD BC 28 31 |----":X..(X)..(1| 00000B60: 30 29 3A 89 32 00 91 13 E8 1C 4D 24 B2 22 45 52 |0):.2.....M$."ER| 00000B70: 52 4F 52 20 4C 4E 20 4F 46 20 4E 45 47 41 54 49 |ROR LN OF NEGATI| 00000B80: 56 45 20 4E 55 4D 42 45 52 22 3A 8B 58 B3 30 A7 |VE NUMBER":.X.0.| 00000B90: 32 00 BF 13 F2 1C 4D 24 B2 22 45 52 52 4F 52 20 |2.....M$."ERROR | 00000BA0: 4C 4E 28 30 29 20 4F 46 20 4D 49 4E 55 53 20 49 |LN(0) OF MINUS I| 00000BB0: 4E 46 49 4E 49 54 59 22 3A 8B 58 B2 30 A7 32 00 |NFINITY":.X.0.2.| 00000BC0: EA 13 FC 1C 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D |....F.1:M$."----| 00000BD0: 2D 2D 58 3D 4C 4E 28 58 29 2D 2D 2D 2D 2D 2D 22 |--X=LN(X)------"| 00000BE0: 3A 58 B2 BC 28 58 29 3A 89 32 00 1C 14 4C 1D 46 |:X..(X):.2...L.F| 00000BF0: B2 31 3A 4D 24 B2 22 20 58 3D 20 28 58 20 54 4F |.1:M$." X= (X TO| 00000C00: 20 50 4F 57 45 52 20 59 29 20 22 3A 58 B2 BD 28 | POWER Y) ":X..(| 00000C10: 59 AC 4C 4F 48 28 58 29 29 3A 89 34 00 47 14 B0 |Y.LOH(X)):.4.G..| 00000C20: 1D 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D 2D 58 3D |.F.1:M$."-----X=| 00000C30: 20 45 58 50 28 58 29 2D 2D 2D 2D 2D 22 3A 58 B2 | EXP(X)-----":X.| 00000C40: BD 28 58 29 3A 89 32 00 71 14 14 1E 46 B2 31 3A |.(X):.2.q...F.1:| 00000C50: 4D 24 B2 22 2D 2D 2D 2D 2D 2D 2D 58 3D 58 2A 58 |M$."-------X=X*X| 00000C60: 2D 2D 2D 2D 2D 2D 2D 22 3A 58 B2 58 AC 58 3A 89 |-------":X.X.X:.| 00000C70: 32 00 77 14 1E 1E 3A 00 A8 14 40 1F 46 B2 31 3A |2.w...:...@.F.1:| 00000C80: 4D 24 B2 22 2D 2D 2D 2D 58 3D 41 52 43 54 41 4E |M$."----X=ARCTAN| 00000C90: 28 58 29 2D 2D 2D 2D 22 3A 58 B2 31 38 30 AA C1 |(X)----":X.180..| 00000CA0: 28 58 29 AD 50 3A 89 32 00 D8 14 A4 1F 4D 24 B2 |(X).P:.2.....M$.| 00000CB0: 22 45 52 52 4F 52 20 41 42 53 28 58 29 3E 31 20 |"ERROR ABS(X)>1 | 00000CC0: 46 4F 52 20 41 52 43 53 49 4E 28 58 29 22 3A 8B |FOR ARCSIN(X)":.| 00000CD0: B6 28 58 29 B1 31 A7 32 00 F9 14 B8 1F 46 B2 31 |.(X).1.2.....F.1| 00000CE0: 3A 4D 24 B2 22 2D 2D 2D 2D 58 3D 41 52 43 53 49 |:M$."----X=ARCSI| 00000CF0: 4E 28 58 29 2D 2D 2D 2D 22 00 08 15 C2 1F 8B 58 |N(X)----"......X| 00000D00: B2 AB 31 A7 38 31 36 30 00 16 15 CC 1F 8B 58 B2 |..1.8160......X.| 00000D10: 31 A7 38 31 37 30 00 33 15 D6 1F 58 B2 31 38 30 |1.8170.3...X.180| 00000D20: AC C1 28 58 AD BA 28 31 AB 58 AC 58 29 29 AD 50 |..(X..(1.X.X)).P| 00000D30: 3A 89 32 00 40 15 E0 1F 58 B2 AB 39 30 3A 89 32 |:.2.@...X..90:.2| 00000D40: 00 4C 15 EA 1F 58 B2 39 30 3A 89 32 00 7C 15 08 |.L...X.90:.2.|..| 00000D50: 20 4D 24 B2 22 45 52 52 4F 52 20 41 42 53 28 58 | M$."ERROR ABS(X| 00000D60: 29 3E 31 20 46 4F 52 20 41 52 43 43 4F 53 28 58 |)>1 FOR ARCCOS(X| 00000D70: 29 22 3A 8B B6 28 58 29 B1 31 A7 32 00 9D 15 12 |)":..(X).1.2....| 00000D80: 20 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D 58 3D 41 | F.1:M$."----X=A| 00000D90: 52 43 43 4F 53 28 58 29 2D 2D 2D 2D 22 00 AC 15 |RCCOS(X)----"...| 00000DA0: 1C 20 8B 58 B2 AB 31 A7 38 32 36 30 00 BA 15 26 |. .X..1.8260...&| 00000DB0: 20 8B 58 B2 30 A7 38 32 37 30 00 C8 15 30 20 8B | .X.0.8270...0 .| 00000DC0: 58 B3 30 A7 38 32 38 30 00 E5 15 3A 20 58 B2 31 |X.0.8280...: X.1| 00000DD0: 38 30 AC C1 28 BA 28 31 AB 58 AC 58 29 AD 58 29 |80..(.(1.X.X).X)| 00000DE0: AD 50 3A 89 32 00 F2 15 44 20 58 B2 31 38 30 3A |.P:.2...D X.180:| 00000DF0: 89 32 00 FE 15 4E 20 58 B2 39 30 3A 89 32 00 1F |.2...N X.90:.2..| 00000E00: 16 58 20 58 B2 31 38 30 AA 31 38 30 AC C1 28 BA |.X X.180.180..(.| 00000E10: 28 31 AB 58 AC 58 29 AD 58 29 AD 50 3A 89 32 00 |(1.X.X).X).P:.2.| 00000E20: 47 16 6C 20 46 B2 31 3A 4D 24 B2 22 2D 2D 2D 2D |G.l F.1:M$."----| 00000E30: 2D 2D 2D 2D 4D 3D 58 2D 2D 2D 2D 2D 2D 2D 2D 22 |----M=X--------"| 00000E40: 3A 4D B2 58 3A 89 32 00 76 16 D0 20 4D 24 B2 22 |:M.X:.2.v.. M$."| 00000E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 58 3D 4D 2D 2D 2D 2D |---------X=M----| 00000E60: 2D 2D 2D 2D 22 3A 8D 31 38 30 30 3A 46 B2 31 3A |----":.1800:F.1:| 00000E70: 58 B2 4D 3A 89 32 00 9F 16 34 21 4D 24 B2 22 2D |X.M:.2...4!M$."-| 00000E80: 2D 2D 2D 2D 2D 2D 20 58 3D 50 49 2D 2D 2D 2D 2D |------ X=PI-----| 00000E90: 2D 2D 2D 22 3A 8B 46 B2 31 A7 8D 31 38 30 30 00 |---":.F.1..1800.| 00000EA0: AE 16 3E 21 46 B2 31 3A 58 B2 50 3A 89 32 00 B4 |..>!F.1:X.P:.2..| 00000EB0: 16 28 23 80 00 00 00 |.(#.... |
..%....".":.53280,14:.53281,6:.646,14.,. ...6.2...:.V....2000:N$."":J$."0":D.0:E. 0:.500.\...:.I....1900:.2......"........ .................................E...." RPN SCIENTIFIC CALCULATOR SIMULATION"... ..." COPYRIGHT R.H.PEARSON (SEPT 85 )".!...."PLEASE SET CAPITALS LOCK BEFORE STARTING.O.(.." USE H (NOT MINUS - ) TO CHANGE SIGN".S.<.." USE @ TO FINISH"...F.."...................... .....................D.P.....N.M.0...H.: .....:.D...:.N.,..1520.T...:......K$.... ..K$."@".9000:. END......K$."H".1200:. C HANGE SIGN.9....K$."E".1100:. SCIENTIFIC NOTATION.`....K$.."0".K$.."9".1000:. NE W NUMBER.~.&..K$."Z".1500:. ZERO STACK.. .0..K$.".".1300:. DECIMAL POINT...:..K$. " ".1700:. ENTER.O.B..K$."+".2100:. ADD. ..L..K$."K".2200:. ROLL STACK...V..K$."- ".2300:. SUBTRACT.%....K$."*".2400:. MUL TIPLY.?....K$."/".2500:. DIVIDE.F....K$. "V".2600:. INVERT (RECIPROCAL)......K$." R".2700:. SQUARE ROOT......K$."W".2800:. SWAP X AND Y.A....K$."D".2900:. DELETE X.Y....K$."S".7000:. SINE...F..K$."C".71 00:. COSINE...P..K$."T".7200:. TANGENT., .Z..K$."G".7300:. COMMON LOG.K....K$."N" .7400:. NATURAL LOG.K....K$."Y".7500:. X TO POWER Y......K$."X".7600:. EXPONENTI AL......K$."Q".7700:. SQUARE... ..K$."A" .8000:. ARCTAN.X.*..K$."I".8100:. ARCSIN ...4..K$."O".8200:. ARCCOS...>..K$."M".8 300:. MEMORY.-.H..K$."L".8400:. RECALL M EMORY.C.R..K$."P".8500:. PI.L....500.R.. .:.X...:.I....N$.."".1080.....M$."----NE W NUMBER----":.F.1..1800...$..:.M$:.2050 :." ";.K.8..K$;:N$.N$.K$:X.E(N$):J$.K$:. 500.Q.B.:.W.L.:...`..N$."".1400...T..E.1 .1400.....D.0:E.1:.1000.....:.....:.+.D. .J$."-".J$.".".1400.<.X..J$."E".1280.E.. .F.1:M$."----CHANGE SIGN----":X..X:.2.V. ..K$."-":.1000.|...:.....:...(..D.1.1400 ...<.D.1:.1000...N.:.H.X.M$."---INVALID INPUT---":X.0:.2.N.R.:.....M$."----CLEAR STACK----".....X.0:Y.0:Z.0:T.0:L.0:D.0: E.0:F.0:N$."":J$."0":.2.%.6.:.B...M$."-- -----ENTER-------".O.B..1800:.2.U.L.:.[. ..:.Q...T.Z:Z.Y:Y.X:F.0:..W.&.:.}.L.:... ..Y.Z:Z.T:......:...P.:......:.M$......2 050:.X;.......A...."T ";T.M...."Z ";Z... ..."Y ";Y,"M ";M... .."X ";...*.....4.F. 1:M$."-------X=Y+X-------":X.Y.X:.4.O... F.1:M$."----ROLL STACK----":L.X:X.Y:Z.T :T.L:.2.Y...F.1:M$."--------X=Y-X------" :X.Y.X:.4...`.F.1:M$."--------X=Y*X----- -":X.Y.X:.4.O.D.M$."ERROR DIVIDE BY ZERO ":..(X).1E.37.2.....F.1:M$."--------X=Y/ X------":X.Y.X:.4.).(.M$."ERROR RECIPROC AL OF ZERO":..(X).1E.37.2.S.P.F.1:M$."-- ------X=1/X------":X.1.X:.2.....M$."ERRO R ROOT OF NEGATIVE NUMBER":.X.0.2.....F. 1:M$."----X=SQROOT(X)----":X..(X):.2.... .F.1:M$."-----SWAP X&Y-----":L.X:X.Y:Y. L:.2...T.F.0:M$."------CLEAR X------":X. 0:.2.5.X.F.1:M$."-----X= SIN(X)-----":X. .(X.P.180):.2.F...F.1:M$."-----X= COS(X) -----":X..(X.P.180):.2... .M$."ERROR TAN (X) INFINITE". .*..XMOD180..0.XMOD90.0.2 .R.4.F.1:M$."-----X= TAN(X)-----":X..(X .P.180):.2.X.>.:.....M$."ERROR LOG OF NE GATIVE NUMBER":.X.0.2.4...M$."ERROR LOG( 0) IS MINUS INFINITY":.X.0.2.E...F.1:M$. "-----X= LOG(X)-----":X..(X)..(10):.2... ..M$."ERROR LN OF NEGATIVE NUMBER":.X.0. 2.....M$."ERROR LN(0) OF MINUS INFINITY" :.X.0.2.....F.1:M$."------X=LN(X)------" :X..(X):.2...L.F.1:M$." X= (X TO POWER Y ) ":X..(Y.LOH(X)):.4.G...F.1:M$."-----X= EXP(X)-----":X..(X):.2.Q...F.1:M$."---- ---X=X*X-------":X.X.X:.2.W...:...@.F.1: M$."----X=ARCTAN(X)----":X.180.A(X).P:.2 .X...M$."ERROR ABS(X)>1 FOR ARCSIN(X)":. .(X).1.2.....F.1:M$."----X=ARCSIN(X)---- "...B..X..1.8160...L..X.1.8170.3.V.X.180 .A(X..(1.X.X)).P:.2.@...X..90:.2.L...X.9 0:.2.|.. M$."ERROR ABS(X)>1 FOR ARCCOS(X )":..(X).1.2.... F.1:M$."----X=ARCCOS(X) ----".... .X..1.8260...& .X.0.8270.H.0 . X.0.8280...: X.180.A(.(1.X.X).X).P:.2... D X.180:.2...N X.90:.2...X X.180.180.A(. (1.X.X).X).P:.2.G.L F.1:M$."--------M=X- -------":M.X:.2.V.P M$."---------X=M---- ----":.1800:F.1:X.M:.2...4!M$."------- X =PI--------":.F.1..1800...>!F.1:X.P:.2.. .(#....
> CLICK IMAGE PREVIEW FOR FULL MODAL