The Museum of HP Calculators

Amortization Schedule 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 "AMORT"
 02 SF 21
 03 "INT ?"
 04 PROMPT
 05 1 E2
 06 /
 07 STO 01
 08 "PMT ?"
 09 PROMPT
 10 STO 02
 11 "PV ?"
 12 PROMPT
 13 STO 03
 14 LBL C
 15 "J ?"
 16 PROMPT
 17 STO 07
 18 "K ?"
 19 PROMPT
 20 STO 00
 21 STOP
 22 LBL A
 23 RCL 00
 24 RCL 07
 25 X<=Y?
 26 GTO 00
 27 STO 00
 28 RDN
 29 STO 07
 30 LBL 00
 31 1
 32 RCL 01
 33 +
 34 STO 08
 35 RCL 00
 36 XEQ 01
 37 STO 04
 38 RCL 08
 39 RCL 07
 40 1
 41 -
 42 XEQ 01
 43 CHS
 44 RCL 04
 45 +
 46 STO 06
 47 RCL 00
 48 RCL 07
 49 -
 50 1
 51 +
 52 RCL 02
 53 *
 54 +
 55 "INT"
 56 XEQ 09
 57 RCL 04
 58 "BAL"
 59 XEQ 09
 60 STOP
 61 LBL B
 62 RCL 07
 63 ADV
 64 "PMT NO."
 65 XEQ 09
 66 1
 67 RCL 01
 68 +
 69 STO 08
 70 RCL 07
 71 XEQ 01
 72 STO 04
 73 RCL 08
 74 RCL 07
 75 1
 76 -
 77 XEQ 01
 78 RCL 04
 79 -
 80 STO 06
 81 RCL 02
 82 X<>Y
 83 -
 84 "INT"
 85 XEQ 09
 86 RCL 06
 87 "PRIN"
 88 XEQ 09
 89 RCL 04
 90 "BAL"
 91 XEQ 09
 92 RCL 07
 93 RCL 02
 94 *
 95 RCL 03
 96 RCL 04
 97 -
 98 -
 99 "~ INT"
100 XEQ 09
101 1
102 ST+ 07
103 RCL 00
104 RCL 07
105 X<=Y?
106 GTO B
107 LBL 01
108 CHS
109 Y^X
110 STO 05
111 1
112 -
113 RCL 01
114 /
115 RCL 02
116 *
117 RCL 03
118 +
119 RCL 05
120 /
121 RTN
122 LBL 09
123 "="
124 ARCL X
125 AVIEW
126 RTN
127 END

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