easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V8.35

Browse Source
This commit is contained in:
f1iwq2
2023-12-30 10:55:17 +01:00
parent b4dbebdb68
commit dd92decbac
8 changed files with 836 additions and 608 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Notice d'utilisation des signaux_complexes_GL_V8.33.pdf → Notice d'utilisation des signaux_complexes_GL_V8.35.pdf
BIN
View File
Binary file not shown.
Signaux_complexes_GL.map
+117 -117
View File
@@ -1,104 +1,104 @@
Start Length Name Class
0001:00000000 0016EE98H .text CODE
0002:00000000 00002C50H .data DATA
0002:00002C50 00C39ABDH .bss BSS
0001:00000000 0019EF04H .text CODE
0002:00000000 00002C2CH .data DATA
0002:00002C2C 045DDFF1H .bss BSS
Detailed map of segments
0001:00000000 00005E8F C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005E90 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00005FD0 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:000060D8 00000F08 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00006FE0 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:00007018 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:00007350 00006E28 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E178 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000E994 0000809A C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016A30 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016BD0 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:0001740C 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:00017764 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:00021F50 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:000222C0 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002BEBC 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002BFE0 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C298 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C430 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CBB8 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CBF0 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DBE8 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DC40 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002ED08 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F028 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F418 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:0002FDD4 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:0002FE0C 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:0002FE44 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:0002FE84 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:0002FEBC 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:0002FF14 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:0002FF4C 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:0002FFB8 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:00030018 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:00030050 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:00033724 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038200 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:00038290 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038A30 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038B58 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C37C 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C3B4 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C41C 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C484 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C4F0 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C548 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C580 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:00045EC8 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046D68 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053400 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:00053568 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:00054288 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:0006568C 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066920 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:000684BC 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EBA0 0000CEFC C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BA9C 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BAFC 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007CD58 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007CD90 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E524 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E584 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081AA0 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081AF0 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:00094EDC 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:000951F0 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:00095318 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:00098D90 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:0009967C 000005A0 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099C1C 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099C5C 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099C94 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A6AC 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009C7B4 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5A00 00001748 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7148 000004D0 C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000A7618 000102AC C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000B78C4 000026F4 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000B9FB8 00000C40 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000BABF8 00003A0C C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000BE604 00030CCC C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:000EF2D0 00002C18 C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:000F1EE8 00002404 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:000F42EC 00038270 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:0012C55C 00001613 C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:0012DB70 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0012ED40 000029E0 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:00131720 00000C00 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:00132320 000023CC C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:001346EC 0003A31C C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:0016EA08 0000048D C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9
0001:00000000 00005EC7 C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005EC8 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00006008 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:00006110 00000F08 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00007018 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:00007050 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:00007388 00006E28 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E1B0 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000E9CC 0000809A C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016A68 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016C08 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:00017444 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:0001779C 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:00021F88 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:000222F8 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002BEF4 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C018 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C2D0 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C468 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CBF0 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CC28 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DC20 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DC78 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002ED40 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F060 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F450 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:0002FE0C 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:0002FE44 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:0002FE7C 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:0002FEBC 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:0002FEF4 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:0002FF4C 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:0002FF84 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:0002FFF0 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:00030050 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:00030088 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:0003375C 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038238 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:000382C8 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038A68 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038B90 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C3B4 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C3EC 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C454 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C4BC 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C528 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C580 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C5B8 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:00045F00 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046DA0 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053438 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:000535A0 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:000542C0 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:000656C4 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066958 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:000684F4 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EBD8 0000CEFC C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BAD4 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BB34 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007CD90 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007CDC8 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E55C 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E5BC 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081AD8 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081B28 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:00094F14 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:00095228 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:00095350 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:00098DC8 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:000996B4 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099C4C 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099C8C 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099CC4 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A6DC 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009C7E4 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5A30 00001748 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7178 000004D0 C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000A7648 00013ACC C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000BB114 000026F4 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000BD808 00000D10 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000BE518 00003A0C C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C1F24 000452C0 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:001071E4 000030E4 C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:0010A2C8 000027D4 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:0010CA9C 00001833 C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:0010E2D0 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0010F4A0 00042A80 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:00151F20 00002B44 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:00154A64 00000D2C C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:00155790 00002584 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:00157D14 00046D60 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:0019EA74 0000048D C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9
0002:00000000 000000CC C=DATA S=.data G=DGROUP M=System ACBP=A9
0002:000000CC 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9
0002:000000EC 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9
@@ -125,12 +125,12 @@ Detailed map of segments
0002:00001250 00000030 C=DATA S=.data G=DGROUP M=ComObj ACBP=A9
0002:00001280 0000002C C=DATA S=.data G=DGROUP M=OleCtrls ACBP=A9
0002:000012AC 00000908 C=DATA S=.data G=DGROUP M=jpeg ACBP=A9
0002:00001BB4 00000080 C=DATA S=.data G=DGROUP M=MSCommLib_TLB ACBP=A9
0002:00001C34 00000009 C=DATA S=.data G=DGROUP M=MaskUtils ACBP=A9
0002:00001C40 00000004 C=DATA S=.data G=DGROUP M=Mask ACBP=A9
0002:00001C44 00000006 C=DATA S=.data G=DGROUP M=Grids ACBP=A9
0002:00001C4C 000000D4 C=DATA S=.data G=DGROUP M=UnitTCO ACBP=A9
0002:00001D20 0000060D C=DATA S=.data G=DGROUP M=UnitPrinc ACBP=A9
0002:00001BB4 00000058 C=DATA S=.data G=DGROUP M=MSCommLib_TLB ACBP=A9
0002:00001C0C 00000009 C=DATA S=.data G=DGROUP M=MaskUtils ACBP=A9
0002:00001C18 00000004 C=DATA S=.data G=DGROUP M=Mask ACBP=A9
0002:00001C1C 00000006 C=DATA S=.data G=DGROUP M=Grids ACBP=A9
0002:00001C24 000000D4 C=DATA S=.data G=DGROUP M=UnitTCO ACBP=A9
0002:00001CF8 0000060D C=DATA S=.data G=DGROUP M=UnitPrinc ACBP=A9
0002:00003000 00000664 C=BSS S=.bss G=DGROUP M=System ACBP=A9
0002:00003664 00000010 C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9
0002:00003674 00000004 C=BSS S=.bss G=DGROUP M=Types ACBP=A9
@@ -208,20 +208,20 @@ Detailed map of segments
0002:00003E60 00000004 C=BSS S=.bss G=DGROUP M=Grids ACBP=A9
0002:00003E64 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003E74 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00003E84 000228A0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00026724 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00026738 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:0002674C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00026760 004186C8 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:0043EE28 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:0043EE38 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:0043EE4C 000004FC C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:0043F348 00000018 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:0043F360 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:0043F364 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:0043F390 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:0043F39C 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:0043F3A4 007FD718 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
0002:00003E84 000118A0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00015724 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00015738 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:0001574C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00015760 004186C8 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:0042DE28 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:0042DE38 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:0042DE4C 00000018 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:0042DE64 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:0042DE68 000004FC C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:0042E364 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:0042E390 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:0042E39C 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:0042E3A4 041B2C4C C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
Bound resource files
@@ -237,8 +237,8 @@ UnitConfigCellTCO.dfm
UnitTCO.dfm
UnitSR.dfm
UnitCDF.dfm
UnitConfig.dfm
verif_version.dfm
UnitConfig.dfm
UnitDebug.dfm
UnitSimule.dfm
Unitplace.dfm
@@ -247,4 +247,4 @@ Signaux_complexes_GL.res
Signaux_complexes_GL.drf
Program entry point at 0001:0016ED18
Program entry point at 0001:0019ED84
UnitConfig.dfm
+24 -9
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig
Left = 503
Top = 109
Left = 251
Top = 157
Hint = 'Modifie la configuration selon les s'#233'lections choisies'
BorderStyle = bsDialog
Caption = 'Configuration g'#233'n'#233'rale'
@@ -667,8 +667,8 @@ object FormConfig: TFormConfig
Left = 8
Top = 8
Width = 633
Height = 497
ActivePage = TabSheetCDM
Height = 505
ActivePage = TabSheetAig
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
@@ -1541,7 +1541,7 @@ object FormConfig: TFormConfig
ParentFont = False
end
object LabelCrois: TLabel
Left = 56
Left = 88
Top = 280
Width = 187
Height = 26
@@ -1749,7 +1749,7 @@ object FormConfig: TFormConfig
Caption = 'LabelTJD1'
end
object LabelTJD2: TLabel
Left = 176
Left = 168
Top = 76
Width = 52
Height = 13
@@ -1794,8 +1794,12 @@ object FormConfig: TFormConfig
Top = 28
Width = 33
Height = 21
Hint = '1'#232're adresse de la TJD/S'
Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnExit = EditP1Exit
OnKeyPress = EditP1KeyPress
end
object EditP2: TEdit
@@ -1803,8 +1807,12 @@ object FormConfig: TFormConfig
Top = 48
Width = 33
Height = 21
Hint = '1'#232're adresse de la TJD/S'
Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnExit = EditP2Exit
OnKeyPress = EditP2KeyPress
end
object EditP3: TEdit
@@ -1812,8 +1820,12 @@ object FormConfig: TFormConfig
Top = 22
Width = 33
Height = 21
Hint = '2'#232'me adresse de la TJD/S'
Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnExit = EditP3Exit
OnKeyPress = EditP3KeyPress
end
object EditP4: TEdit
@@ -1821,8 +1833,12 @@ object FormConfig: TFormConfig
Top = 44
Width = 33
Height = 21
Hint = '2'#232'me adresse de la TJD/S'
Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnExit = EditP4Exit
OnKeyPress = EditP4KeyPress
end
object EditDevie_HD: TEdit
@@ -1850,9 +1866,8 @@ object FormConfig: TFormConfig
Top = 68
Width = 33
Height = 21
Color = clLime
TabOrder = 8
OnKeyPress = EditDevieS2KeyPress
OnChange = EditDevieS2Change
end
object EditL: TEdit
Left = 32
@@ -1941,7 +1956,7 @@ object FormConfig: TFormConfig
Top = 80
Width = 89
Height = 73
Caption = 'Type TJD'
Caption = 'Type TJD-TJS'
TabOrder = 8
object RadioButtonTJD2: TRadioButton
Left = 8
UnitConfig.pas
+649 -426
View File
File diff suppressed because it is too large Load Diff
UnitPrinc.dfm
+5 -14
View File
@@ -19,8 +19,8 @@ object FormPrinc: TFormPrinc
OnCreate = FormCreate
OnResize = FormResize
DesignSize = (
1125
602)
1117
595)
PixelsPerInch = 96
TextHeight = 13
object LabelTitre: TLabel
@@ -1429,8 +1429,8 @@ object FormPrinc: TFormPrinc
end
object StatusBar1: TStatusBar
Left = 0
Top = 580
Width = 1125
Top = 573
Width = 1117
Height = 22
Panels = <
item
@@ -1521,7 +1521,7 @@ object FormPrinc: TFormPrinc
OnMouseDown = FenRichMouseDown
end
object ScrollBox1: TScrollBox
Left = 424
Left = 512
Top = 192
Width = 465
Height = 249
@@ -2032,15 +2032,6 @@ object FormPrinc: TFormPrinc
end
end
end
object ButtonIndex: TButton
Left = 840
Top = 176
Width = 75
Height = 25
Caption = 'Indexs'
TabOrder = 4
OnClick = ButtonIndexClick
end
object MSCommCde1: TMSComm
Left = 1064
Top = 272
UnitPrinc.pas
+36 -39
View File
@@ -1,5 +1,5 @@
Unit UnitPrinc;
// 23/12 12h
// 29/12 10h
(********************************************
Programme signaux complexes Graphique Lenz
Delphi 7 + activeX Tmscomm + clientSocket
@@ -207,7 +207,6 @@ type
Affichagenormal1: TMenuItem;
N14: TMenuItem;
Sauvegarderla1: TMenuItem;
ButtonIndex: TButton;
MSCommCde1: TMSComm;
MSCommCde2: TMSComm;
ClientSocketCde1: TClientSocket;
@@ -332,8 +331,7 @@ type
procedure FormResize(Sender: TObject);
procedure Affichagenormal1Click(Sender: TObject);
procedure Sauvegarderla1Click(Sender: TObject);
procedure ButtonIndexClick(Sender: TObject);
procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
procedure MSCommCde1Comm(Sender: TObject);
procedure MSCommCde2Comm(Sender: TObject);
@@ -376,8 +374,8 @@ type
const
titre='Signaux complexes GL ';
MaxAcc=2048; // adresse maxi d'accessoire XpressNet
NbMaxDet=513+128; // indice maximal de détecteurs d'un réseau (nombre en XpressNet=128)
MaxAcc=1024; // adresse maxi d'accessoire XpressNet (testé à la LH100)
NbMaxDet=2048; // indice maximal de détecteurs d'un réseau
Max_Trains=100; // nombre maximal de train de CDM ou déclarés ou en circulation
MaxZones=250; // nombre de zones de détecteurs activés par les trains
MaxTrainZone=40; // nombre maximal de trains pour le tableau d'historique des zones
@@ -629,7 +627,8 @@ var
reaffecte : integer ; // =1 réaffecté au bon train dans le cas de 2 détecteurs contigus qui ne s'enchainent pas bien =2 réaffecté par changement aiguillage
end;
Index_Accessoire : array[0..MaxAcc] of integer; // tableau d'index des accessoires aiguillages et signaux sur le bus DCC
tablo_Index_Signal : array[0..MaxAcc] of integer; // tableau d'index des accessoires signaux sur le bus DCC
tablo_Index_Aiguillage : array[0..MaxAcc] of integer; // tableau d'index des aiguillages sur le bus DCC
// tableau des périphériques
Tablo_periph : array[1..NbMaxi_Periph] of TPeripherique;
@@ -707,11 +706,14 @@ var
// modélisations des fichiers config
branche : array [1..MaxBranches] of string;
// l'indice du tableau aiguillage n'est pas son adresse
aiguillage : array[0..NbreMaxiAiguillages] of Taiguillage;
// Pour les tableaux aiguillage et signaux : l'indice du tableau aiguillage n'est pas son adresse
// ils sont stockés dans les tableaux tablo_Index_Signal[adresse]=index et tablo_Index_Aiguillage[adresse]=index
Aiguillage : array[0..NbreMaxiAiguillages] of Taiguillage;
// signaux - L'index du tableau n'est pas son adresse
CdeDccpp : array[1..MaxCdeDccpp] of string;
Signaux : array[0..NbreMaxiSignaux] of TSignal;
CdeDccpp : array[1..MaxCdeDccpp] of string;
trains_cdm : array[1..Max_Trains] of record
nom_train : string;
adresse,vitmax : integer;
@@ -976,8 +978,8 @@ function chaine_signal(adresse : word) : string;
var a,i,aspect,etat,combine,nation : integer;
s : string;
begin
//i:=Index_Signal(adresse);
i:=index_accessoire[adresse];
i:=Index_Signal(adresse);
//i:=index_accessoire[adresse];
etat:=Signaux[i].EtatSignal ;
nation:=1;
a:=Signaux[i].aspect;
@@ -1659,8 +1661,7 @@ begin
XChiffre:=14;Ychiffre:=76;
Xfin:=26;yFin:=99;
//index:=index_signal(adresse);
index:=index_accessoire[adresse];
index:=index_signal(adresse);
if Signaux[index].contrevoie then
begin
xvert:=largeur-xvert;
@@ -2078,7 +2079,8 @@ end;
function index_signal(adresse : integer) : integer;
begin
if adresse>MaxAcc then result:=0 else
result:=Index_Accessoire[adresse];
//result:=Index_Accessoire[adresse];
result:=Tablo_Index_Signal[adresse];
// vérifier si l'index correspond à un signal
if Signaux[result].adresse<>adresse then result:=0;
end;
@@ -2100,7 +2102,7 @@ end;
function Index_Aig(adresse : integer) : integer;
begin
if adresse>MaxAcc then result:=0 else
result:=Index_Accessoire[adresse];
result:=tablo_index_aiguillage[adresse];
// vérifier si l'index correspond à un aiguillage
if Aiguillage[result].adresse<>adresse then result:=0;
end;
@@ -2280,8 +2282,12 @@ begin
end;
dessine_signal_mx(Signaux[rang].Img.Canvas,0,0,1,1,Signaux[rang].adresse,1);
//if Signaux[rang].aspect=5 then cercle(Picture.Bitmap.Canvas,13,22,6,ClYellow);
refresh;
Picture.Bitmap.Modified:=True;
end;
// créée le label pour afficher son adresse
Signaux[rang].Lbl:=Tlabel.create(Formprinc.ScrollBox1);
with Signaux[rang].Lbl do
@@ -5271,12 +5277,12 @@ begin
begin
// changer l'adresse du précédent par l'autre adresse de la TJD/S
// V1 index:=index_aig(prec);
index:=index_accessoire[prec];
index:=tablo_index_aiguillage[prec];
md:=aiguillage[index].modele;
if (md=tjs) or (md=tjd) then
begin
//V1 prec:=Aiguillage[index_aig(prec)].Ddroit;
prec:=Aiguillage[index_accessoire[prec]].Ddroit;
prec:=Aiguillage[tablo_index_aiguillage[prec]].Ddroit;
if NivDebug=3 then AfficheDebug('Le précedent est une TJD/S - substitution du precédent par la pointe de la TJD qui est '+intToSTR(prec),clYellow);
end;
end;
@@ -5297,7 +5303,7 @@ begin
if (Bt=aig) or (Bt=buttoir) then // aiguillage ou buttoir
begin
//V1 index:=index_aig(adr);
index:=index_accessoire[adr];
index:=tablo_index_aiguillage[adr];
if index=0 then
begin
if bt=aig then
@@ -5399,7 +5405,7 @@ begin
begin
// si TJD (modele=2) sur le précédent, alors substituer avec la 2eme adresse de la TJD
// V1 md:=aiguillage[index_aig(prec)].modele;
md:=aiguillage[index_accessoire[prec]].modele;
md:=aiguillage[tablo_index_aiguillage[prec]].modele;
if (md=tjd) or (md=tjs) then prec:=aiguillage[index_aig(prec)].DDroit;
if prec<>aiguillage[index_aig(Adr)].Adroit then //Adroit
begin
@@ -5483,7 +5489,7 @@ begin
// récupérer les élements de la TJD/S
AdrTjdP:=aiguillage[index].Ddroit; // 2eme adresse de la TJD/S
// V1 index2:=index_aig(AdrTjdP);
index2:=index_accessoire[AdrTjdP];
index2:=tablo_index_aiguillage[AdrTjdP];
tjdC:=aiguillage[index].modele=tjd;
tjsC:=aiguillage[index].modele=tjs;
@@ -12717,7 +12723,6 @@ begin
serveurIPCDM_Touche:=false;
AvecInit:=true; // &&&& avec initialisation des aiguillages ou pas
Diffusion:=AvecInit; // mode diffusion publique + debug mise au point etc
ButtonIndex.Visible:=not(avecInit);
roulage1.visible:=false;
FenRich.MaxLength:=$7FFFFFF0;
@@ -12744,7 +12749,6 @@ begin
if OsBits=64 then s:='OS 64 Bits' else s:='OS 32 Bits';
s:=DateToStr(date)+' '+TimeToStr(Time)+' '+s;
Affiche(s,clLime);
With ScrollBox1 do
begin
HorzScrollBar.Tracking:=true;
@@ -12782,7 +12786,6 @@ begin
Application.HintPause:=400;
//visible:=true; // rend la form visible plus tot
for i:=1 to MaxCdeDccpp do CdeDccpp[i]:='';
// lecture fichiers de configuration
procetape('Lecture de la configuration');
lit_config;
@@ -12813,6 +12816,7 @@ begin
EditEnvoi.Visible:=true;
end;
Application.ProcessMessages;
// Initialisation des images des signaux
procetape('Création des signaux');
@@ -12825,6 +12829,7 @@ begin
if debug=1 then affiche('Création du signal '+intToSTR(i)+' ----------',clLime);
cree_image(i); // et initialisation tableaux signaux
end;
Tempo_init:=5; // démarre les initialisation des signaux et des aiguillages dans 0,5 s
if debug=1 then Affiche('Création TCO',clLime);
@@ -12846,7 +12851,6 @@ begin
Affiche(intToSTR(ecran[i+1].x0)+' '+intToSTR(ecran[i+1].y0)+' '+
intToSTR(ecran[i+1].larg)+' '+intToSTR(ecran[i+1].haut),clyellow); }
end;
OrgMilieu:=formprinc.width div 2;
with statusbar1 do
begin
@@ -12959,6 +12963,7 @@ begin
else
Affiche_Fenetre_TCO(index,avecTCO);
end;
show;
// ouvre les périphériques commandes actionneurs, car on a lu les com dans la config
@@ -12977,6 +12982,7 @@ begin
end;
end;
if debug=1 then Affiche('Initialisations',clLime);
raz_tout;
procetape('Début des init');
@@ -13022,6 +13028,7 @@ begin
end;
end;
if debug=1 then Affiche('Tentative ouverture liaison centrale',clLime);
if portCommOuvert or parSocketLenz then
With Formprinc do
@@ -13133,11 +13140,11 @@ begin
else Affiche_fenetre_CDM.Enabled:=false;
//Affiche(GetMACAddress,clred);
formPrinc.left:=-1000;
//formPrinc.left:=-1000;
ConfCellTCO:=false;
if debug=1 then Affiche('Fini',clLime);
//reserve_canton(521,527,1,1);
end;
@@ -13892,7 +13899,7 @@ begin
begin
adr:=aiguillage[i].adresse;
begin
s:=IntToSTR(i)+' Adr='+IntToSTR(adr);
s:=IntToSTR(i)+' i='+intToSTR(tablo_index_aiguillage[adr])+' Adr='+IntToSTR(adr);
if aiguillage[i].modele=aig then s:=s+' Pointe=';
if (aiguillage[i].modele=crois) then
@@ -14731,7 +14738,7 @@ begin
for i:=1 to NbreSignaux do
begin
// feu de signalisation
s:=IntToSTR(i)+' Adr='+IntToSTR(Signaux[i].Adresse);
s:=IntToSTR(i)+' i='+intToSTR(tablo_index_signal[Signaux[i].Adresse])+' Adr='+IntToSTR(Signaux[i].Adresse);
s:=s+' décodeur='+IntToStr(Signaux[i].decodeur);
asp:=Signaux[i].aspect;
if asp<>20 then nation:=1 else nation:=2;
@@ -16823,16 +16830,6 @@ begin
end;
procedure TFormPrinc.ButtonIndexClick(Sender: TObject);
var i,v : integer;
begin
for i:=1 to MaxAcc do
begin
v:=index_accessoire[i];
if v<>0 then affiche('adresse='+intToSTR(i)+' index = '+intToSTR(v),clLime);
end;
end;
procedure TFormPrinc.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
var RectForText: TRect;
begin
verif_version.pas
+1 -1
View File
@@ -25,7 +25,7 @@ var
verifVersion,notificationVersion : boolean;
date_creation,nombre_tel : string;
Const Version='8.34'; // sert à la comparaison de la version publiée
Const Version='8.35'; // sert à la comparaison de la version publiée
SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace
function GetCurrentProcessEnvVar(const VariableName: string): string;
versions.txt
+4 -2
View File
@@ -214,7 +214,9 @@ version 8.31 : Correction d'un bug sur les d
version 8.32 : Un actionneur seul peut être déclenché par plusieurs trains.
Correction du lancement du serveur COM-IP pour CDMRail V20.12.
version 8.33 : Correction d'un bug sur le calcul d'index.
version 8.34 : Correction signal Unisemaf
version 8.34 : Correction signal Unisemaf.
Ajout de la Z21 dans le choix des interfaces au lancement de CDM rail.
version 8.35 : Correction ajout de signaux et d'aiguillages.
Renforcement de la vérification de la cohérence.
Amélioration de l'édition des TJD.