(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