fas格式研究（三） 内存中的fas和lsp

xyp1964

试试这个fas：

baitang36

yxp 发表于 2019-1-11 12:36
老哥哥，你这是32位的CAD系统吗？能不能看看你的 c:ttt 函数在64位CAD里的编码是否一致，以下16个字节一组 ...

是的，我用32位的工具很熟。64位下总感觉工具不好用

baitang36

xyp1964 发表于 2019-1-11 21:58
试试这个fas：

(defun C:EP-SZBZ()
(XYP-DCL-GETTILE '("k1" "k2" ) )
(cond ( (= K1 "0" )
(MODE_TILE "qz" 0 )
(MODE_TILE "xh" 0 )
)
命令: (LOAD "111.fas") C:EP-SZBZ
命令: !c:ep-szbz
#<SUBR @1907bce4 C:EP-SZBZ>

1907BCE4  04 62 47 10 00 00 00 00 50 8B 76 1A 80 D2 F3 18
1907BCF4  00 00 00 00   

18F3D280  F0 43 47 10 00 00 00 00 00 06 F7 18 3C 05 00 00
18F3D290 59 00 00 00

0x18f70600+0x59*4=0x18f70764
18F70764  14 00 00 00 00 09 56 00 51 01 55 00 01 00 0A 03  .....V.Q
U.
..
18F70774  54 00 35 01 53 00 03 67 1A 00 00 00 09 52 00 09  T.5
S.g....R..
18F70784  51 00 09 50 00 32 01 32 06 32 05 35 06 4F 00 03  Q..P.2
225O.
18F70794  0A 57 00 00 00 00 35 00 4E 00 03 0A 57 E0 02 00  .W....5.N..W?.
18F707A4  00 14 01 00 00 00 09 4D 00 51 01 55 00 01 00 0A  .
....M.Q
U.
..
18F707B4  03 4C 00 09 4B 00 35 02 4A 00 03 67 F9 00 00 00  L..K.5J.g?..
18F707C4  01 09 49 00 35 01 48 00 03 35 01 47 00 03 0B 06  
.I.5
H.5
G.
18F707D4  46 00 6A 27 00 00 00 03 46 00 09 45 00 35 02 44  F.j'...F..E.5D
18F707E4  00 03 6A 17 00 00 00 32 46 03 46 00 35 02 43 00  .j...2FF.5C.
18F707F4  03 32 01 35 02 4A 00 03 6A 01 00 00 00 02 67 B1  2
5J.j
...g?
18F70804  00 00 00 0A 35 00 42 00 03 0A 03 46 00 32 01 03  ....5.B..F.2

18F70814  41 00 35 03 40 00 03 06 3F 00 32 00 06 3E 00 09  A.5@.?.2.>..
18F70824  3D 00 32 03 35 02 3C 00 03 0A 03 3B 00 09 4B 00  =.25<..;..K.
18F70834  35 02 4A 00 03 67 11 00 00 00 03 46 00 03 3A 00  5J.g...F.:.
18F70844  35 02 39 00 03 0A 57 00 00 00 00 35 00 38 00 03  59..W....5.8.
18F70854  0A 03 37 00 09 4B 00 35 02 4A 00 03 6A 12 00 00  .7..K.5J.j..
18F70864  00 09 36 00 35 01 35 00 03 0B 06 34 00 6A 01 00  ..6.5
5.4.j
.
18F70874  00 00 02 67 36 00 00 00 09 33 00 03 3F 00 35 02  ..g6....3.?.5
18F70884  32 00 03 06 31 00 09 30 00 03 31 00 35 02 2F 00  2.1..0.1.5/.
18F70894  03 06 31 00 03 34 00 03 31 00 03 3A 00 03 3A 00  1.4.1.:.:.
18F708A4  35 04 2E 00 03 0B 06 2D 00 57 01 00 00 00 01 57  5..-.W
...
W
18F708B4  0D FF FF FF

Offset      0  1  2  3  4  5  6  7   8  9  A  B  C  D  E  F
00000000   0D 0A 20 46 41 53 34 2D  46 49 4C 45 20 3B 20 44      FAS4-FILE ; D
00000010   6F 20 6E 6F 74 20 63 68  61 6E 67 65 20 69 74 21   o not change it!
00000020   0D 0A 39 38 34 0D 0A 38  39 20 24 14 00 00 00 00     984  89 $     
00000030   09 56 00 51 01 55 00 01  00 0A 03 54 00 35 01 53    V Q U     T 5 S
00000040   00 03 67 1A 00 00 00 09  52 00 09 51 00 09 50 00     g     R  Q  P
00000050   32 01 32 06 32 05 35 06  4F 00 03 0A 57 00 00 00   2 2 2 5 O   W   
00000060   00 35 00 4E 00 03 0A 57  E0 02 00 00 14 01 00 00    5 N   W?      
00000070   00 09 4D 00 51 01 55 00  01 00 0A 03 4C 00 09 4B     M Q U     L  K
00000080   00 35 02 4A 00 03 67 F9  00 00 00 01 09 49 00 35    5 J  g?    I 5
00000090   01 48 00 03 35 01 47 00  03 0B 06 46 00 6A 27 00    H  5 G    F j'
000000A0   00 00 03 46 00 09 45 00  35 02 44 00 03 6A 17 00      F  E 5 D  j  
000000B0   00 00 32 46 03 46 00 35  02 43 00 03 32 01 35 02     2F F 5 C  2 5
000000C0   4A 00 03 6A 01 00 00 00  02 67 B1 00 00 00 0A 35   J  j     g?   5
000000D0   00 42 00 03 0A 03 46 00  32 01 03 41 00 35 03 40    B    F 2  A 5 @
000000E0   00 03 06 3F 00 32 00 06  3E 00 09 3D 00 32 03 35      ? 2  >  = 2 5
000000F0   02 3C 00 03 0A 03 3B 00  09 4B 00 35 02 4A 00 03    <    ;  K 5 J  
00000100   67 11 00 00 00 03 46 00  03 3A 00 35 02 39 00 03   g     F  : 5 9  
00000110   0A 57 00 00 00 00 35 00  38 00 03 0A 03 37 00 09    W    5 8    7  
00000120   4B 00 35 02 4A 00 03 6A  12 00 00 00 09 36 00 35   K 5 J  j     6 5
00000130   01 35 00 03 0B 06 34 00  6A 01 00 00 00 02 67 36    5    4 j     g6
00000140   00 00 00 09 33 00 03 3F  00 35 02 32 00 03 06 31       3  ? 5 2   1
00000150   00 09 30 00 03 31 00 35  02 2F 00 03 06 31 00 03     0  1 5 /   1  
00000160   34 00 03 31 00 03 3A 00  03 3A 00 35 04 2E 00 03   4  1  :  : 5 .  
00000170   0B 06 2D 00 57 01 00 00  00 01 57 0D FF FF FF        - W     W
内存中找到的函数内容和文件解码后的内容是一致的。

baitang36

内存中只找到函数部分，初始化部分没有的@ xyp1964

baitang36

内容已更新，欢迎探讨。

baitang36

根据后来的研究进行了更新