Threaded Mode | Linear Mode

quantalume · 12-24-2015, 01:52 AM

I came across this wiki with the HP 41 mainframe entry points: http://mcode.wikia.com/wiki/Mainframe_entry_points

All of these entry points are in pages 0, 1 and 2. Are any of these exclusive to the CX, or are all of the CX entry points higher up, in pages 3 and 5? I'm interested in knowing where the code resides which is CX-specific but which can't be added to a C or CV with the Time and X functions modules. Would that be page 3?

Thanks,

Dave

Ángel Martin · 12-24-2015, 08:06 AM

(12-24-2015 01:52 AM)quantalume Wrote: I came across this wiki with the HP 41 mainframe entry points: http://mcode.wikia.com/wiki/Mainframe_entry_points
All of these entry points are in pages 0, 1 and 2. Are any of these exclusive to the CX, or are all of the CX entry points higher up, in pages 3 and 5? I'm interested in knowing where the code resides which is CX-specific but which can't be added to a C or CV with the Time and X functions modules. Would that be page 3?

For the most part those entry points are common to the CX as well. There are some changes made to the CX OS to connect with pages #3 and #5 - this one has two banks to accommodate not only the time module but also additional X-Functions code not present in the XF/M modules.

So yes, as you suspected that's where the code is - which explains why the library#4 concept works on the CX since all the addresses have a fixed location and thus the system calls need not to worry about XFM module locations at all.

Cheers,
'AM

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