Threaded Mode | Linear Mode

Thomas Klemm · 12-28-2015, 11:22 PM

(12-28-2015 10:35 PM)Mike (Stgt) Wrote: Is there somewhere an entry point list for the Voyagers?

I tried to identify the code of the HP-15C that is equal or similar to the HP-41C and use the same identifiers as in VASM:

Code:

 MP2-10 0056 b=0     w

 MP1-10 0530 m=c

 MP2-13 0076 b=0     s

 MPY110 0016 a=0     w

 MPY120 1734 inc pt

 MPY130 0456 a=a+b   w

 MPY140 1142 c=c-1   p

 MPY150 0256 ac ex   w        ***ROUND, SHIFT AND NORMALIZE

 MPY160 1376 ? c<>0  s

 SHF40  0256 ac ex   w

 SHF10  1534 pt= 12

 NRM10  0356 bc ex   w

 NRM11  0256 ac ex   w

 NRM12  1534 pt= 12

 NRM30  0336 c=b     s

 NRM40  1740 rtn

 NRM20  0306 c=b     x

 NRM13  0156 ab ex   w

 SHF20  1502 ? a<>0  p

 1/X10  0056 b=0     w

 1/X13  0116 c=0     w

 X/Y13  0356 bc ex   w

 DV2-10 0056 b=0     w

 DV1-10 0530 m=c

 DV2-13 0076 b=0     s

 DIV100 0730 c<>m

 DIV110 0730 c<>m

 DIV15  1456 ? a<b   w

 DIV120 1534 pt= 12

 DIV130 1042 c=c+1   p

 DIV140 0616 a=a-b   w

 SQR10  0056 b=0     w                ***SQUARE ROOT

 SQR13  0576 a=a+1   s

 ERR0   1634 pt= 0

 SQR20  0036 a=0     s

 SQR30  0756 c=c+c   w

 SQR50  1616 a sr    w

 SQR60  1042 c=c+1   p

 SQR70  0716 a=a-c   w

 SQR100 1712 c sr    wp

 STSCR  0116 c=0     w

 RCSCR  0116 c=0     w

 ADDONE 0116 c=0     w

 SUBONE 0116 c=0     w

 SUBON1 1534 pt= 12

 SB2-10 1276 c=-c-1  s

 AD2-10 0056 b=0     w

 AD1-10 0530 m=c

 AD2-13 0076 b=0     s

 ADD10  1724 dec pt

 ADD30  1446 ? a<b   x

 ADD90  0730 c<>m

 ADD90  0730 c<>m

 ADD55  0730 c<>m

 ADD65  0636 a=a-b   s

 ADD40  1216 c=-c    w

 ADD50  1446 ? a<b   x

 ADD60  0256 ac ex   w

 LNSUB- 1276 c=-c-1  s

 LNSUB  0156 ab ex   w

 LNSUB1 1616 a sr    w

 LNSUB2 1046 c=c+1   x

 EXP10  0056 b=0     w                  ***EXP(X)

 EXP13  1204 s=0 7

 EXP13* 0404 s=0 8

 EXP110 0036 a=0     s

 EXP130 1724 dec pt

 EXP400 0335 ?nc call 11067  LNC20

 EXP200 0241 ?nc call 11050  LNC10

 EXP120 0156 ab ex   w

 EXP210 1072 c=c+1   m

 EXP220 0616 a=a-b   w

 EXP240 1534 pt= 12

 EXP230 0256 ac ex   w

 EXP300 0116 c=0     w

 EXP700 0156 ab ex   w

 EXP710 0114 ? s=0 4

 EXP720 1214 ? s=0 7

 EXP730 0145 ?nc goto 07431  NRM13

 EXP410 1042 c=c+1   p

 EXP420 0616 a=a-b   w

 EXP430 0356 bc ex   w

 EXP500 0356 bc ex   w

 EXP510 0114 ? s=0 4

 EXP570 1334 pt= 13

 EXP550 1372 ? c<>0  m

 EXP560 1342 ? c<>0  p

 EXP600 0156 ab ex   w

 EXP540 1656 b sr    w

 EXP530 1176 c=c-1   s

 LNAP   0530 m=c

 LNAP1  1716 c sr    w

 LNAP2  0546 a=a+1   x

 LNC10* 0356 bc ex   w

 LNC10  1534 pt= 12

 LNC20  0116 c=0     w

 LNC30  0620 lc 6

 LNCEND 0356 bc ex   w

 LNC40  0320 lc 3

 LNC50  0434 pt= 8

 LNC60  0534 pt= 6

 LNC70  0134 pt= 4

 LNC80  0460 ldi 1463

 XY^X   0056 b=0     w

 ERR0*  1241 ?nc goto 07650  ERR0

 YX12   1346 ? c<>0  x

 YX11   1756 a sl    w

 YX13   0531 ?nc call 24526

 YXTEN  0056 b=0     w

 YX31   0510 s=1 6

 LN10   0056 b=0     w

 LN13   0504 s=0 6

 LN130  0404 s=0 8

 LN140  0016 a=0     w

 LN310  1042 c=c+1   p

 LN300  0216 b=a     w

 LN220  1534 pt= 12

 LN200  1502 ? a<>0  p

 LN210  0730 c<>m

 LN1+X2 1171 ?nc call 10236  ADDONE

 LN1+X6 1534 pt= 12

 LN1+X3 0410 s=1 8

 LN1+X8 0524 ? pt= 6

 LN1+X7 1046 c=c+1   x

 LN320  1616 a sr    w

 LN330  1176 c=c-1   s

 LN460  1616 a sr    w

 LN430  0356 bc ex   w

 LN431  0335 ?nc call 11067  LNC20

 LN500  0235 ?nc call 11047  LNC10*

 LN570  0034 pt= 3

 LN520  0611 ?nc call 11542  PMUL

 LN410  0356 bc ex   w

 LN540  1616 a sr    w

 LN530  1536 ? a<>0  s

 LN550  0136 c=0     s

 YTOX50 0630 c=m

 YTOX60 1376 ? c<>0  s

 PMUL1  0456 a=a+b   w

 PMUL   1142 c=c-1   p

 ERRDE  1604 s=0 0

 CHK#S  0475 ?nc call 25517

But as you may imagine the list is far from complete.

HTH
Thomas