Somehow related to HP Calculators

[Greg]

To address the original question, may I suggest the following:

Code:


PROG
100
001: 23    : LBL
002: 11    : A
003: 33 01 : STO 1
004: 24    : RTN
005: 23    : LBL
006: 12    : B
007: 33 02 : STO 2
008: 24    : RTN
009: 23    : LBL
010: 13    : C
011: 00    : 0
012: 33 03 : STO 3
013: 33 04 : STO 4
014: 24    : RTN
015: 23    : LBL
016: 14    : D
017: 34 03 : RCL 3
018: 84    : R/S
019: 02    : 2
020: 61    : +
021: 02    : 2
022: 81    : /
023: 31    : f
024: 83    : INT
025: 34 02 : RCL 2
026: 71    : x
027: 33    : STO
028: 61    : +
029: 04    : 4
030: 34 01 : RCL 1
031: 61    : +
032: 84    : R/S
033: 34 03 : RCL 3
034: 01    : 1
035: 61    : +
036: 33 03 : STO 3
037: 34 04 : RCL 4
038: 34 01 : RCL 1
039: 61    : +
040: 84    : R/S
041: 44    : CLx
042: 84    : R/S
043: 84    : R/S
044: 84    : R/S
045: 24    : RTN
046: 35 01 : g NOP
047: 35 01 : g NOP
048: 35 01 : g NOP
049: 35 01 : g NOP
050: 35 01 : g NOP
051: 35 01 : g NOP
052: 35 01 : g NOP
053: 35 01 : g NOP
054: 35 01 : g NOP
055: 35 01 : g NOP
056: 35 01 : g NOP
057: 35 01 : g NOP
058: 35 01 : g NOP
059: 35 01 : g NOP
060: 35 01 : g NOP
061: 35 01 : g NOP
062: 35 01 : g NOP
063: 35 01 : g NOP
064: 35 01 : g NOP
065: 35 01 : g NOP
066: 35 01 : g NOP
067: 35 01 : g NOP
068: 35 01 : g NOP
069: 35 01 : g NOP
070: 35 01 : g NOP
071: 35 01 : g NOP
072: 35 01 : g NOP
073: 35 01 : g NOP
074: 35 01 : g NOP
075: 35 01 : g NOP
076: 35 01 : g NOP
077: 35 01 : g NOP
078: 35 01 : g NOP
079: 35 01 : g NOP
080: 35 01 : g NOP
081: 35 01 : g NOP
082: 35 01 : g NOP
083: 35 01 : g NOP
084: 35 01 : g NOP
085: 35 01 : g NOP
086: 35 01 : g NOP
087: 35 01 : g NOP
088: 35 01 : g NOP
089: 35 01 : g NOP
090: 35 01 : g NOP
091: 35 01 : g NOP
092: 35 01 : g NOP
093: 35 01 : g NOP
094: 35 01 : g NOP
095: 35 01 : g NOP
096: 35 01 : g NOP
097: 35 01 : g NOP
098: 35 01 : g NOP
099: 35 01 : g NOP
100: 35 01 : g NOP
CARD
6
Title: Loyalty Salary
A: Salary
B: Bonus
C: Start
D: Yr,Pmt,Tot
E: 
HELP
1

END

You enter the starting salary (10000) and press A.
You enter the bonus amount (500) and press B.
Press C to initialize.
Press D, get year (0). Press R/S, get salary at end of year 0. Press R/S, get salary plus total bonuses paid.
Press D again, get year (1). Press R/S, get salary at end of year 1. Press R/S, get salary plus total bonuses paid.
Repeat the press D step for each subsequent year.

The results I get are:
10000 A "10000.00"
500 B "500.00"
C "0.00"
D "0.00" R/S "10500.00" R/S "10500.00"
D "1.00" R/S "10500.00" R/S "11000.00"
D "2.00" R/S "11000.00" R/S "12000.00"
D "3.00" R/S "11000.00" R/S "13000.00"
D "4.00" R/S "11500.00" R/S "14500.00"
D "5.00" R/S "11500.00" R/S "16000.00"
etc

Register 1 stores salary. Register 2 stores the bonus amount. Register 3 is a counter for years employed. Register 4 accumulates the total bonuses paid.

It isn't quite what was asked for. The final figure from the LBL D routine should include each years salary, not just one year's worth. That'd be fixed by moving the STO + 4 from line 027 to just after the + currently on line 031.

I accept that this doesn't account for Italian or German taxes and that Excel is probably an easier approach these days. However, had the problem been considered in the HP-65's day, Excel wouldn't have been around.

The above code plugs directly into my HP-65 microcode emulator (can be run directly on the website, click the digit display then Program and the input box then paste). It should run in other emulators too or on the real thing.

Whilst I'm in Australia - slightly south of Teenix - and not looking for a job in Italy, I think I've met the selection criteria :-)

All the best,