This program is by Neil Redmond and is used here by permission.
This program is supplied without representation or warranty of any kind. Neil Redmond and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
It has been a long time since I wrote these routines so can't say why I used certain techniques. I did attempt to make a few minor changes to the routines in the HP-16C manual but ended up with new programs. The sample data has been taken from IBM COBOL manuals.
I hope the routines will be useful to some one, possibly from the Hercules390 DOS or VM groups.
g LBL A g CF 4 HEX f SET COMPL 2's 2 0 f WSIZE f RL f RR 1 F F MASKR F AND ENTER ENTER 1 8 f MASKR f AND f XOR g x!=0 g LSTx g x!=0 GTO 1 ENTER GTO 2 g LBL 1 g F? 4 CHS x<->y 8 f RLn 4 6 - 4 x g LBL 2 f FLOAT 9 g RTN
g LBL B f SET COMPL 2's HEX g CF 1 g CF 4 g x=y g RTN x<->y g x<0 g SF 1 g ABS 2 0 f WSIZE GSB 6 x<>y 1 2 0 + ENTER x<>y 3 f AND g x=0 GTO 4 4 x<>y - x<>y R down f RRn GSB 6 g R up 4 g LBL 4 + g ASR g ASR g x<0 GTO 5 + 7 f RRn g CF 4 g F? 1 g SF 4 g RRC g RTN g LBL 5 0 g RTN g LBL 6 1 8 f MASKL f AND g RTN
IBM FP 44A45B40 42075.25 4430AF40 12463.25 43AB4800 2740.5 C2FB0000 -251.0 C35CC120 -1484.07+
Go back to the software library
Go
back to the main exhibit hall