12-06-2013, 07:34 AM
How well do images show up in here:
![[Image: 97-board.jpg]](http://www.wass.net/hp97project/97-board.jpg)
![[Image: 97-detail1.jpg]](http://www.wass.net/hp97project/97-detail1.jpg)
![[Image: 97-detail2.jpg]](http://www.wass.net/hp97project/97-detail2.jpg)
and code:
![[Image: 97-board.jpg]](http://www.wass.net/hp97project/97-board.jpg)
![[Image: 97-detail1.jpg]](http://www.wass.net/hp97project/97-detail1.jpg)
![[Image: 97-detail2.jpg]](http://www.wass.net/hp97project/97-detail2.jpg)
and code:
Code:
P01 | LBL P
P02 | CLVARS
P03 | CLSIGMA
P04 | 28 ; Set up to store the iteration counter in register n
P05 | STO i
P06 | 26 ; calculate number of iterations needed = log-base-2(10) * N P07 | 8
P08 | x
P09 | 2
P10 | LOG
P11 | /
P12 | IP
P13 | STO(i) ; Store in n
P14 | 2
P15 | STO A ; starting value
P16 | x
P17 | 3
P18 | +
P19 | SIGMA+ ; the SIGMAx register is used to store (iteration_counter x 2 + 1)
B01 | LBL B ; main loop
B02 | 1.026 ; set up for register loop
B03 | STO i
B04 | 0 ; initial carry
C01 | LBL C
C02 | 1E8 ; 100,000,000 this determines the number of digits per register C03 | x
C04 | n
C05 | RCLx(i)
C06 | + ; multiply and add carry