(11C) (15C) Very fast binary converter + fast modulo

[Thomas Klemm]

(03-03-2024 07:25 PM)Steve Simpkin Wrote:  It appears to be a true emulation of the HP-15C rather than a simulation.

Quote:About this app
Scientific calculator that simulates an HP-15C.

But I consider it a good simulation.
If you don't want to install it, you can also run it in a browser.

Here's the code that can be loaded using: File → Import Program → Import from Clipboard

Code:

   001 { 42 21 11 } f LBL A
   002 { 43  5  0 } g CF 0
   003 {        1 } 1
   004 {        5 } 5
   005 {    44 25 } STO I
   006 { 42 21  0 } f LBL 0
   007 {    45 25 } RCL I
   008 {    32 12 } GSB B
   009 {    44 24 } STO (i)
   010 { 42  5 25 } f DSE I
   011 {    22  0 } GTO 0
   012 { 43  4  0 } g SF 0
   013 {    43 32 } g RTN
   014 { 42 21 12 } f LBL B
   015 {        0 } 0
   016 {    44  0 } STO 0
   017 {       34 } X<=>Y
   018 { 42 21  1 } f LBL 1
   019 {    43 20 } g x==0
   020 {    22  4 } GTO 4
   021 {    44 .6 } STO 16
   022 { 43  6  0 } g F? 0
   023 {    22  2 } GTO 2
   024 {        2 } 2
   025 {    32 14 } GSB D
   026 {    45  0 } RCL 0
   027 {       13 } 10^x
   028 {       20 } *
   029 {       40 } +
   030 {        1 } 1
   031 { 44 40  0 } STO + 0
   032 {       33 } Rv
   033 {    45 .6 } RCL 16
   034 {        2 } 2
   035 {       10 } /
   036 {    43 44 } g INT
   037 {    22  1 } GTO 1
   038 { 42 21  2 } f LBL 2
   039 {        1 } 1
   040 {        6 } 6
   041 {    32 14 } GSB D
   042 {    43 20 } g x==0
   043 {    22  3 } GTO 3
   044 {    44 25 } STO I
   045 {       33 } Rv
   046 {    45 24 } RCL (i)
   047 { 42 21  3 } f LBL 3
   048 {    45  0 } RCL 0
   049 {       13 } 10^x
   050 {       20 } *
   051 {       40 } +
   052 {        4 } 4
   053 { 44 40  0 } STO + 0
   054 {       33 } Rv
   055 {    45 .6 } RCL 16
   056 {        1 } 1
   057 {        6 } 6
   058 {       10 } /
   059 {    43 44 } g INT
   060 {    22  1 } GTO 1
   061 { 42 21  4 } f LBL 4
   062 {       33 } Rv
   063 {    43 32 } g RTN
   064 { 42 21 14 } f LBL D
   065 {    44 .7 } STO 17
   066 {       10 } /
   067 {    42 44 } f FRAC
   068 {    45 .7 } RCL 17
   069 {       20 } *
   070 {    43 32 } g RTN