The Museum of HP Calculators

Routh Test for System Stability for the HP-41C/CV/CX

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard 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.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "ROUTH"
 02 "N?"
 03 PROMPT
 04 STO 25
 05 0
 06 STO 24
 07 CF 29
 08 FIX 00
 09 LBL e
 10 "A"
 11 ARCL 24
 12 "?"
 13 PROMPT
 14 STO IND 24
 15 RCL 25
 16 RCL 24
 17 X=Y?
 18 GTO A
 19 1
 20 ST+ 24
 21 GTO e
 22 LBL A
 23 "TEST? SHIFT?"
 24 PROMPT
 25 LBL "TEST"
 26 SCI 03
 27 0
 28 STO 23
 29 LBL 00
 30 RCL 00
 31 PSE
 32 RCL 01
 33 X#0?
 34 GTO a
 35 CLX
 36  E-50
 37 STO 01
 38 LBL a
 39 /
 40 STO 22
 41 X>0?
 42 GTO a
 43 RCL 23
 44 1
 45 +
 46 STO 23
 47 LBL a
 48 1
 49 STO 25
 50 LBL 01
 51 RCL IND 25
 52 DSE 25
 53 STO IND 25
 54 STO IND 25
 55 2
 56 ST+ 25
 57 RCL IND 25
 58 ISG 25
 59 LBL 50
 60 RCL IND 25
 61 RCL 22
 62 *
 63 -
 64 DSE 25
 65 DSE 25
 66 STO IND 25
 67 2
 68 ST+ 25
 69 RCL 25
 70 RCL 24
 71 X>Y?
 72 GTO 01
 73 1
 74 -
 75 STO 24
 76 RCL IND 25
 77 0
 78 STO IND 25
 79 DSE 25
 80 RDN
 81 STO IND 25
 82 RCL 24
 83 X>0?
 84 GTO 00
 85 RCL 00
 86 PSE
 87 "RHP ROOTS "
 88 FIX 00
 89 ARCL 23
 90 AVIEW
 91 STOP
 92 LBL "SHIFT"
 93 "d?"
 94 PROMPT
 95 SCI 04
 96 STO 23
 97 RCL 24
 98 STO 22
 99 LBL 02
100 0
101 STO 25
102 LBL 03
103 RCL IND 25
104 RCL 23
105 *
106 ISG 25
107 "A"
108 ST+ IND 25
109 RCL 25
110 RCL 22
111 X#Y?
112 GTO 03
113 1
114 -
115 STO 22
116 X#0?
117 GTO 02
118 SCI 05
119 0
120 STO 25
121 LBL 08
122 RCL IND 25
123 STOP
124 ISG 25
125 "A"
126 RCL 24
127 RCL 25
128 X<=Y?
129 GTO 08
130 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall