Post Reply 
Benchmarks 71B versus 48GX
06-19-2020, 05:08 PM
Post: #29
RE: Benchmarks 71B versus 48GX
(06-19-2020 03:40 PM)Valentin Albillo Wrote:  Would you please post the hex dump so that we may create the LEX file just by entering the hex codes using MAKELEX ?
This will take less time than using the Assembler, the compiled LEX file is quite short.

It's decades since I used MAKELEX.
I vaguely remember that the LEX is entered as strings of hex characters with a checksum for each entered line.
Can someone can point to the right tool to generate the hex strings and checksum?

In the meantime, here is the assembly listing, if this can help.

Code:
0001 00000             LEX 'CPUVER' 
0001 00000 34055565    NIBASC 'CPUVER  ' 
     00008 54250202
0001 00010 802E        NIBHEX 802E 
0001 00014 00          CON(2) 0 
0001 00016 60          CON(2) #06 
0001 00018 22          CON(2) #22 
0001 0001A 71          CON(2) #17 
0001 0001C 60          CON(2) #06 
0001 0001E 02          CON(2) #20 
0001 00020 A6000       REL(5) FiLeNd 
0002 00025             ID #5C 
0002 00025 C5          CON(2) #5C 
0002 00027 10          CON(2) 0001  
0002 00029 10          CON(2) 0001  
0002 0002B 00000       CON(5) 0 
0002 00030 F           NIBHEX F 
0002 00031 7100        REL(4) 1+TxTbSt 
0003 00035             MSG 0 
0003 00035 0000        CON(4) 0 
0004 00039              POLL 0 
0004 00039 00000       CON(5) 0 
0005 0003E             ENTRY CPUV 
0005 0003E             * * * M A I N   T A B L E * * * 
0005 0003E 000         CON(3) (TxEn01)-(TxTbSt) 
0005 00041 61000       REL(5) CPUV 
0006 00046             CHAR #F 
0006 00046 F           CON(1) #F 
0007 00047             KEY 'CPUV' 
0007 00047             * * * T E X T   T A B L E * * * 
0007 00047           TxTbSt 
0007 00047           TxEn01 
0007 00047 7           CON(1) 07 
0007 00048 34055565    NIBASC 'CPUV' 
0008 00050             TOKEN 1 
0008 00050 10          CON(2) 1 
0009 00052             ENDTXT 
0009 00052 1FF         NIBHEX 1FF 
0010 00055           * 
0011 00055           FNRTN1 EQU #0F216 
0012 00055           FUNCR0 EQU #2F89B 
0013 00055           * 
0014 00055 00          NIBHEX 00 
0015 00057           CPUV 
0016 00057 7900        GOSUB IHOOK 
0017 0005B           HOOK 
0018 0005B 2E          P= 14 
0019 0005D B06         C=C+1 P 
0020 00060 6220        GOTO ret 
0021 00064           * 
0022 00064 07        IHOOK C=RSTK 
0023 00066 132         AD0EX 
0024 00069 1BB98F2     D0=(5) =FUNCR0 
0025 00070 144         DAT0=C A 
0026 00073 132         AD0EX 
0027 00076 AF2         C=0 W 

PAGE 002            
Forth Assembler     

0028 00079 808C        NIBHEX 808C  * PC=(A) 
0029 0007D AF2         C=0 W 
0030 00080 AF2         C=0 W 
0031 00083 8D612F0   ret GOVLNG =FNRTN1 
0032 0008A           * 
0033 0008A             END 

PAGE 003            
Forth Assembler     **** SYMBOL TABLE ****

CPUV    00057 
FNRTN1  0F216 
FUNCR0  2F89B 
FiLeNd  0008A 
HOOK    0005B 
IHOOK   00064 
TxEn01  00047 
TxTbSt  00047 
ret     00083 


 SOURCE : CPUVERS
 OBJECT : CPUVER  
LISTING : :DOSLINK
   DATE : 22:07:01 on 20/06/17
 ERRORS : 000
Visit this user's website Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: Benchmarks 71B versus 48GX - RMollov - 06-22-2020, 04:48 AM
RE: Benchmarks 71B versus 48GX - KimH - 06-17-2020, 11:43 AM
RE: Benchmarks 71B versus 48GX - KimH - 06-17-2020, 12:25 PM
RE: Benchmarks 71B versus 48GX - KimH - 06-17-2020, 02:12 PM
RE: Benchmarks 71B versus 48GX - KimH - 06-18-2020, 06:09 AM
RE: Benchmarks 71B versus 48GX - KimH - 06-18-2020, 07:08 AM
RE: Benchmarks 71B versus 48GX - J-F Garnier - 06-19-2020 05:08 PM
RE: Benchmarks 71B versus 48GX - HP67 - 05-05-2014, 01:42 PM
RE: Benchmarks 71B versus 48GX - rprosperi - 06-17-2020, 10:23 PM
RE: Benchmarks 71B versus 48GX - KimH - 06-19-2020, 04:40 PM



User(s) browsing this thread: 1 Guest(s)