-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.lfm
1580 lines (1580 loc) · 78.6 KB
/
main.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
object main_gui: Tmain_gui
Left = 246
Height = 517
Hint = 'Mik - GNU\Linux - development snapshot'
Top = 131
Width = 967
BorderStyle = bsSingle
Caption = 'Mik 2.3 - dev (alpha)'
ClientHeight = 496
ClientWidth = 967
Font.Height = -11
Font.Name = 'Verdana'
Menu = MainMenu1
OnClose = FormClose
OnCreate = FormCreate
Position = poDesktopCenter
LCLVersion = '1.6.0.4'
object RegPanel: TGroupBox
Left = 16
Height = 200
Top = 16
Width = 224
Caption = ' Регистры '
ClientHeight = 185
ClientWidth = 220
TabOrder = 0
object Label1: TLabel
Left = 8
Height = 13
Top = 16
Width = 82
Caption = 'Сумматор (S):'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 8
Height = 13
Top = 46
Width = 95
Caption = 'Р. признака (W):'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 8
Height = 13
Top = 74
Width = 87
Caption = 'Р. адреса (RA):'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 8
Height = 13
Top = 102
Width = 98
Caption = 'Р. команды (RK):'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label5: TLabel
Left = 8
Height = 13
Top = 128
Width = 94
Caption = 'Рабочий р. (R1):'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object CleanRegisters: TBitBtn
Left = 8
Height = 28
Top = 152
Width = 201
Caption = 'Очистка (сброс к 0)'
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
00000000000000000000000000040000000B0000001200000017000000170000
00120000000B0000000400000000000000000000000000000000000000000000
00000000000E0000001E49351C3FA477469DBE8A52E3C48D56F7C58E53F9C08B
53E6A67848A4513A23420000001E0000000E0000000000000000000000000000
0010000000238D653D79C38D53F7CA9864FAD1A679FFD3A97FFFD4AA80FFD2A5
77FFCB9965FAC48D54F7936A3E80000000230000001000000000000000000000
0011A0734573C58F56F6D2A77AFFD5AC83FFD5AC83FFD5AC83FFD5AC83FFD5AC
83FFD5AC83FFD3A77BFFC69158F79E724274000000110000000000000000C18D
4F1DC68E55F6D2A77AFFD5AC83FFD5AC83FFD4AA80FFCFA173FFCFA273FFD3A9
7EFFD5AC83FFD1A981ECCBA377CDC08D56A1B380330A0000000000000000C790
5793CE9D6CF9D6AD85FFD5AD84FFD2A778FEC69057F7C38C53D0C08C55C7C58E
54ECCC9C6CD0D0A98198D5AC846ED2A9794AAAAA55030000000000000000C790
56E4D4AB80FFD6AE86FFD7AF87FFC79057F6C58F524B0000000000000000BF8F
5010CD8F545BD5AA7C48D1AD801C00000000000000000000000000000000C68E
54FAD9B48EFFD7B18AFFD4A97DFFC79057C40000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000C68F
54F8DBB896FFD9B590FFD5AC82FFC89057C10000000000000000C68F54E3C68E
53FFC68E53FFC68E53FFC68E53FFC68E53FFC78F55E80000000000000000C791
57DADBB894FFDCBA97FFDFBF9FFFC9935CF6C78D525700000000C590523EC691
56F7D9B58FFFDFC0A1FFDFC0A1FFDFC1A0FFC68E53FF0000000000000000C78F
5680D3A87AF7E2C6A9FFDFC0A0FFE0C1A0FFC9955FF5C79158CCC89259AFC78F
56F4D7B087FBE4C9AEFFDFBF9FFFE4CAAFFFC68E53FF0000000000000000C68E
5512C69056F3E1C5A6FFE4C9AEFFE3C7AAFFE6CEB5FFDEBE9DFFDDBA97FFE3C9
ADFFE6CEB4FFE3C7ABFFE8D1B9FFE8D1BAFFC68E53FF00000000000000000000
0000C6905347CB965EF4E6CBB0FFE9D3BCFFE7CDB3FFE8CFB6FFE8D0B7FFE7CE
B4FFE8D1B9FFE9D1B9FFD4A97EF7E4CAAEFFC68E53FF00000000000000000000
000000000000C78F5644C89158F1D8B38AF9E7D0B6FFEDDAC7FFEDDAC7FFEAD4
BDFFDEBB99FCCA945DF5C7915692CA955DF5C68E53FF00000000000000000000
00000000000000000000CC88550FC8905781C89259D9C89155F5C69056F7C790
58E9C791599BC38F532200000000C68E553FC89055D400000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = CleanRegistersClick
TabOrder = 0
end
object r_sum: TEdit
Left = 120
Height = 23
Top = 10
Width = 84
Alignment = taRightJustify
ReadOnly = True
TabOrder = 1
Text = '0'
end
object R_pr: TEdit
Left = 120
Height = 23
Top = 40
Width = 84
Alignment = taRightJustify
ReadOnly = True
TabOrder = 2
Text = '0'
end
object R_addr: TEdit
Left = 120
Height = 23
Top = 68
Width = 84
Alignment = taRightJustify
TabOrder = 3
Text = '0'
end
object R_cmd: TEdit
Left = 120
Height = 23
Top = 96
Width = 84
Alignment = taRightJustify
ReadOnly = True
TabOrder = 4
Text = '0'
end
object R_work: TEdit
Left = 120
Height = 23
Top = 124
Width = 84
Alignment = taRightJustify
ReadOnly = True
TabOrder = 5
Text = '0'
end
end
object GroupBox2: TGroupBox
Left = 248
Height = 467
Top = 16
Width = 328
Caption = ' ОП (ОЗУ) '
ClientHeight = 452
ClientWidth = 324
TabOrder = 1
object BitBtn7: TBitBtn
Left = 16
Height = 29
Top = 416
Width = 290
Caption = 'МиК - Ассемблер'
Glyph.Data = {
2A050000424D2A050000000000007A0000006C00000014000000140000000100
180000000000B0040000130B0000130B00000000000000000000424752730000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000002000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEBF2F3B4BCB9B3B9B7C7
D2D4ECF8FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFF3FAFCF3FBFEFFFFFFFFFFFFADB3AD786F627971637B786DDDE8
E9FFFFFFFAFDFEDDEEF2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0
F9FA919691969B97E3F8FFE9FDFF99A2A07F7A6D817A6D8D887EF3F4F3FFFFFF
CFDEE17F8077DBE2E4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFADB2AF7169
5A7B736681827B878F8B7D7769807B6E817B6F817C6F98958DA8B6B67C766979
7265787263D4DDDFFFFFFFFFFFFFFFFFFFFFFFFFF4FFFF7370627B74677D776B
7D76687D75687B75687B7669807A6E787265787266786F617D776A7C766A766F
60969A94F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFB2C6C97B776B7E776B7E786C7A
7568B0ACA5D7D6D2DDDCD8D0CDC88D887D7B75697E786B7871639A9E99F3F7F9
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE5F5F58287807D766A7E796BCCCAC5FFFF
FFFFFFFFFFFFFFFFFFFFFEFDFD98948A7C766A726A5DCCD9DDFFFFFFFFFFFFFF
FFFFFAFDFDD4E7E1EEEFEDBFC9C67871657B7569AEACA3FFFFFFE3E1DFA7A49B
A5A29ABAB8B1FAF9F9F8F8F8827E72777162ADABA5FAF9F9F2F1F0FDFDFDF3F6
F48F93878D867C817B6F7F796D777265F4F4F3F1F1F0949085CFCDC9EEEDECA6
A39AC3C0BBFFFFFFC3C0BA777265817C6F9B978D8C867AE2E6E6EAF0EE898B7F
7D75697F796D807A6E787266FCFCFBE5E4E1A8A49CFCFCFBFFFFFFDAD9D6A7A3
9AFFFFFFD4D2CE7772647F796D7E786C736C5DDEE3E2DDEEE78385787D766A7F
786C7F7A6E787164F8F8F7EDECEA8F8B80E8E7E5F5F5F4BCB9B3B9B5AFFFFFFF
C9C7C37872657F786C7E786B746C5EC8D4D5F9FCFBB6CFC4B1C0B69AA69B7C76
697B7468BBB7B1FFFFFFDAD9D5928D848E8A80A4A198F8F8F7FFFFFF8883787C
7569848178B2BEBCB5C2C1E6F1F5FFFFFFF8FDFCFDFFFFD5EEE78386797D766A
817B70D5D4CFFFFFFFF3F3F2EBEAE8FEFEFEFFFFFFA6A29B7A7467746C5FC3D0
CDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFFFFB8D2C57B766A7C766A7D776B7F
7A6EABA7A0E8E5E4F3F2F3D2D0CC918C837B76697D776B766E61ABAFA7FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFECFBF67C776C7971657C76697B74687B75687B74
687871657771647973667B75687B74687B75697C7669787164B7B9B4FEFFFFFF
FFFFFFFFFFFFFFFFFDFFFEC4C1BC766F6371695C91948896998F7E786D7E796D
7F786C7D786C8582779AA3987F7D70746D6071695CA8B4A9F9FFFFFFFFFFFFFF
FFFFFFFFFFFFFFF7F9F98B8F83B2B5ACF7F9F8F7FCFBA4A79E7C766A7E786C7D
776CD2DED8FAFDFDE5E8E58E8A80B3C3B9FEFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFEFFFFE6FAF4FBFFFEFFFFFFFFFFFFBCBAB47A73667B7468848176EBED
ECFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFC3D1CB8C92878A9184A8B1A6F8FAF9FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFF5FCFBEFF6F5EAF6F4F1FAF8FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
OnClick = BitBtn7Click
TabOrder = 0
end
object open_dump: TBitBtn
Left = 112
Height = 29
Top = 384
Width = 96
Caption = 'Открыть'
Glyph.Data = {
6A060000424D6A060000000000007A0000006C00000019000000140000000100
180000000000F0050000130B0000130B00000000000000000000424752730000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000002000000000000000000000000000000FFFF
FFFBFBFBF4F4F4ECECECE7E7E7E6E6E6E6E7E6E6E7E6E6E7E6E6E7E6E6E7E6E6
E7E7E7E7E7E7E7E7E6E7E6E5E6E5E4E6E5E5E6E5E5E6E5E6E6E5E7E7E6EBEBEB
F1F1F1FAFAFAFFFFFF00FDFDFDD4E1DC90B0A495AEA390A99F8FA99D92A99F92
A99F91A99F91A99F93A9A096ACA5A1B3AD9FB5AC8AB7A379BAA075BFA679BEAA
82B9A48AB2A094AFA39FB1A99FB7ACC6D3CEF6F7F600F3F6F4649C84006C3912
82531180521381531481531482531481521480521A84562B8B612E8F620F9758
00B26000C67105C87C0DBF7C06B87100AA600495540E854F0F7B4C217855DEE7
E300F4F7F666A2882E956956A98550A48050A4804FA4804FA3804FA47F50A47F
5EAA8A53A37E239D6007B25D0BC96E11CC744097565B754936A46812C97315B7
6719A65F26935E2C7E58DAE7E200F6FAF868A78E33976E56A98650A58251A582
51A58251A58350A58257A9875AA8872A955F0B985003A75404B25C0AB35F4662
346A3523377E5002B86103A45404974D048946157346CADDD300F4F8F666A78D
3C9F765CAF8D57AC8957AC8A57AC8A57AC8A56AB895FAF9049A67F1B9C5D0B9D
55129C5813A86018A65F3E6240553B3435795512A9621299560E915103904A00
763DADC9BB00F0F6F363A68B44A67D60B18E5CAE8B5CAE8C5CAE8C5CAE8C5CAE
8B62B19045A97B1BAB67129D5B3A50473F564C3F584B444641443B3E404A483B
574E40504B326F530D9A5800894691BAA700EAF3EF5EA5874FAA8464B3915FB0
8E5FB08E5FB08E5FB08E5FB08E65B29245AF8022B7741AA5673931363D30383B
373B3D383C413B403F3A3F3B363A3E2E383B635324AA6F059E5C7EB29A00E6F1
EC59A48557B18966B59563B29263B39263B39263B39263B3926AB39649B38829
C1821FC47F26A16E2AA5732EA07139594E45383F43766135A979349D7234AA79
32C08515AB6D83B8A000E1EDE951A3815EB6906AB99868B69668B69668B69668
B69666B69570B99B5AB7922FC98D27D4922DDC9834E29D39D79A3E695B46313C
4E937846E5A742D99E41D29839CE9425A77398C7B000DCEBE54AA07C66B8966E
BB9B6CB9996CB9996CB9996CB9996BB99971BB9D76BD9F46C79632DBA036DEA4
3FE1A845D6A23E6A5C3E2F3751907B55E4B051DAA84FDAA73DCB9844AB81AFD5
C300D6E9E1449F7A6DBD9B71BD9C70BC9B70BD9B70BD9B70BD9B70BC9B70BD9C
7EC2A373C2A146CC9C43E5B348EBB950E8B950C9A452B6975CD1AC60E9BD60E6
B955D9AC58C39A63B690B4DBC800D3E7DF419E7777C3A176C2A175C09F75C09F
75C09F75C09F75C09F75C09F77C1A18AC8AC7FC7A764D6AA5AE5B963F1C968F4
CD6DF6CF71F0CC71E9C468D9B365C49F83C7A861B58EA9D3C000CEE6DB3F9F76
7EC5A879C2A478C1A378C1A378C1A377C1A377C1A377C1A377C1A279C1A495CE
B59ECEB876BB9B72D0A97ADFBA7CDCBA7BD7B675CDAA7AC8A589CBAC8DCDB058
B08AA1CEBB00CAE3D838A07582CBAD7CC7A87BC6A67CC7A77CC7A77CC7A77CC7
A77DC7A77CC7A77DC6A685CAAC96CBB490B5A28ABEA388CFAB82CAA682C9A887
CAAB8ACDAE85CBAC84CBAC56B38B9BCCB800D4E9DF48A57F6BB79872BE9F70BB
9C73BC9F75BDA076BDA179BEA27DC1A583C5AA87C7AC89CAAF8AC8AE89C4AA8B
C6AD8DCAAF89C9AD87C7AB82C5A97DC4A77DC6A778C1A152AA85AED5C400F6FA
F8C0D6CD9EB6ADC8E2D7BFD6CDC0D8CEC1D7CEC0D7CEC3DCD3C8E0D7BBD0C8B5
CCC2B5CBC3B6CBC3B6CCC2B5CCC3B5CBC3B5CBC2B5CBC2B5CBC2B4CAC1B9D0C7
9FB7ADACC4BAE9F3EE00FFFFFFEAE8E8C4C1C1FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFEFDFED2D1D1D1CDCDD9D7D7DAD5D7DAD5D7DAD6D7DAD5D7DAD5D7DAD6D7
D9D5D8DAD6D8DAD6D8DBD7D9D3CED1F3EFF1FFFFFF00FFFFFFE6E6E69DA19FBC
C0BFB9BCBABCBFBEBEC1C0C1C5C3B5B9B7C6C8C7F2F2F2FAFAFAF9F9FAF9F9FA
F9F9FAF9F9FAF9F9FAF9F9FAF9F9FAF9F9FAF9F9FAF9F9F9F9F9F9FFFEFEFFFF
FF00FFFFFFFBFBFBE7E7E7DFE0E0DFE1E1E2E3E2E3E3E3E2E4E3E5E7E6F6F7F7
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFF00
}
OnClick = open_dumpClick
TabOrder = 1
end
object New_dump: TBitBtn
Left = 16
Height = 29
Top = 384
Width = 96
Caption = 'Новый'
Glyph.Data = {
92030000424D92030000000000007A0000006C0000000E000000120000000100
18000000000018030000130B0000130B00000000000000000000424752730000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000020000000000000000000000000000008E91
904F5D574B514D464F48464F4B454C4A434B48424B47424B47434B4742494543
4845484E4A737474000072857DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F8F870000697D71F7FFFFCAC6C6CC
C7C8CFC7CBCCC7C9CAC3C6EDEAECFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF829287
000071847AFFFFFFF3F3F3F9F7F5FAF7F8FAF9FBFFF7F9F4F3F5EDE8E9F1EBEC
F6F1F3F9F7FBFFFFFF8795920000748A82FFFFFFCCC6CBCFCACBD1CACED1CAD0
D2C9CBCECCCED2CCCED8D0D4F6F3F5FFFFFFFFFFFF8D99960000789283FFFFFF
ECEAE9EFEBEFF2EEEFF2F0EEF2EDF1F5EDEFF3F0EEF5F1EEFBF7F5FCFAFAFFFF
FF939F9A00007E9588FFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFF97A59D000084988FF0FFF8E3E5E3E3E7E8E7EA
E8EDEBE8E9EEE8EDEAEBF0F1EEFFFFFFFFFFFFFFFFFFFFFFFF99A8A40000899F
95F8FFFFF5F7F5F3FDFAF6FFFBF8FFFBF9FFFFF9FFFBF6FDFDEAEEF4D8E1E0ED
F6F5FFFFFEA0ABA700008FA59AE3F9F1BDABB2BAAEB5BAB2B6BCB5B5B7B5B5BA
B2B6BFB1B5BABAB5C5BDC1E6F1EEECFFFAA0AFA9000090A8A0F5FFFAE9EEECEC
F1F1EFF3F1EDF4F1F0F1F2EFF1EEECF0EEEAEEEBEDFCF7F8FFFFE9FFFBA3B4AD
000096ADA0F0FFFBDEE4E2DEE8E5DEE8E6E1E8E6DBEBEBDBEAE9E1E8E6E1E7E3
D7D8DCDDE2DCF3F7F5A8B8B300009BB4AAEDFDFACBC7C8CCCACBCFCCCBCFCCCE
CFCCD0CFC9CDCCD0CDCECCCBB6B5B5929692A5A8A4AFC1B800009DB7AAF8FFFF
E4F0E9E9F0E6ECF0EBE7F0ECE9F0EEE7EDE6E3F1ECDBE8E5B6C3BB96A59AA7BB
B0FFFFFF0000A1BBB0F2FFF7C1BEBDC4C1C0C7C2C4C5C1C4C4C4C6C7C4C0C4C2
C6BFBFC1E0DFE2E0EEE7CAE8DBFFFFFF0000A3BBB1FFFFFFF0E9ECF1EBEDF1EC
EFF1ECEDEEECEDEEECEDEBECEDF1F4F6F1F7F8B5D1C5FFFFFFFFFFFF0000C5DC
D0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEDF6F2D7EEE3FF
FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
}
OnClick = New_dumpClick
TabOrder = 2
end
object save_dump: TBitBtn
Left = 210
Height = 29
Top = 384
Width = 96
Caption = 'Сохранить'
Glyph.Data = {
6A040000424D6A040000000000007A0000006C00000012000000120000000100
180000000000F0030000130B0000130B00000000000000000000424752730000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000020000000000000000000000000000000303
030E0E0E48484897979795959591919191919191919191919191919191919191
91919191919191919292925D5D5D1B1B1B0B0B0B00000E0E0E131313575757CD
CDCDBDBDBDBBBBBBBABABABABABABABABABABABABABABABABABABABABABABABA
C6C6C67B7B7B1C1C1C15151500002C2C2D333333616161E9E9E9DFDFDFDCDCDC
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDCDCDCE9E9E99292922121
211D1D1D00004D4D4E3F3F3F646464F0F0F0E5E5E5E3E3E3E4E3E3E4E3E3E4E3
E3E4E3E3E4E3E3E4E3E3E3E3E3E3E3E2F1F1F1989898201F2021222100004D4D
4D3D3D3D6B6B6AF5F6F9ECEEF3EBEEF2EBEEF2EBEEF2EBEEF2EBEEF2EBEEF2EB
EEF2EBEEF2EAEEF2F7F9FD9C9C9C21202122222300004848483E3E3E75757AED
E9E6DAD5D3DAD6D6DAD6D6DAD7D6DAD7D6DAD7D6DAD7D6DAD7D6DAD5D6D9D4D4
EAE4E29FA0A223232423232300004545453F404278766FE6B84AD59508D3960C
D3950DD3940CD2940DD3950DD2940DD3950DD3950DD2930AE7AF379D94782627
2C24242400004444444343443F41477A7B758B8C818D8E869090889191889192
8992938B9192899192888E8F878D8E8488887D45474C23242526262500004444
444747483333331F21271C1F291E222C2327312325302225302327312225301F
232C1D202B181C26191A232323242B2A2A27272800004545454747474B4B4B50
50504D4D4B44444240413F4544434645444343424342413F3F3E3D3D3C393938
3635353232312E2E2E29292900005D5D5D6060604B4B4B5D5D5D505050464646
4949474646464948494747474343434242423E3E3D3B3B3B3737383434333030
302A2A2A00007373737E7E7D5656554847464E4E4E5454545555544C4B4C4748
474A4A4A4444444343434041413E3E3C3839393535353233322C2C2C00007878
788585846262624342444344445353534C4C4A4040414445444242413F3F3F42
4242424242403F3F3B3B3B3636363334332D2E2D00007878787272727A7A7AAD
ACADA1A0A1A6A6A6A3A3A3A5A5A59A9A9A8E8D8E8787873F3F3F464646434444
3C3C3D3636373435342E2E2E0000707070818181A2A2A2EDEDEDEFEFEFEDEDED
EDEDEDF0F0F08C8C8C4949499F9F9F2C2C2C3D3D3D3939393838383636363534
342E2E2E00008787879D9D9DA3A3A3EBEBEBEBEBEBE9E9E9E9E9E9EEEEEE7A7A
7A2828289D9D9D2323223535352F2F2F3131313030312A2A2A2F2F2E00008A8A
8AA5A5A5B7B7B7FBFBFBFCFCFCFAFAFAFBFBFBFCFCFC838383343434A3A3A31B
1B1A3434343030304C4C4C5A5A5A5F5F5F40404000007F7F7F7C7C7C9C9C9CD9
D9D9DFDFDFDFDFDFDFDFDFDDDDDDC5C5C5BDBDBD989898202020232323262626
4C4C4C6969695A5A5A4848480000
}
OnClick = save_dumpClick
TabOrder = 3
end
object mem_gui: TDrawGrid
Left = 8
Height = 366
Top = 10
Width = 304
AutoEdit = False
Color = clWhite
ColCount = 3
DefaultDrawing = False
DefaultRowHeight = 16
ExtendedSelect = False
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking, goSmoothScroll]
PopupMenu = PopupMenu1
RowCount = 1
ScrollBars = ssVertical
TabAdvance = aaDown
TabOrder = 4
TitleFont.Height = -11
TitleFont.Name = 'Sans'
OnDblClick = mem_guiDblClick
OnDrawCell = mem_guiDrawCell
OnSelection = mem_guiSelection
end
end
object Data_inp: TGroupBox
Left = 16
Height = 152
Top = 224
Width = 224
Caption = ' ОП '
ClientHeight = 137
ClientWidth = 220
TabOrder = 2
object reg_5: TSpinEdit
Left = 96
Height = 23
Top = 8
Width = 113
Alignment = taRightJustify
MaxValue = 512
TabOrder = 0
end
object Label6: TLabel
Left = 8
Height = 13
Top = 14
Width = 60
Caption = 'Адрес ОП:'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label7: TLabel
Left = 8
Height = 13
Top = 40
Width = 77
Caption = 'Команда ОП:'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label8: TLabel
Left = 8
Height = 13
Top = 68
Width = 51
Caption = 'Данные:'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object cmdEnter: TBitBtn
Left = 8
Height = 28
Top = 96
Width = 99
Caption = 'Ввод'
Glyph.Data = {
46050000424D4605000000000000360000002800000012000000120000000100
20000000000010050000640000006400000000000000000000005B5B5BAF473F
477EA179A01FB48CB20CA38BA50491A9710235A22A0320AB150414B010041FC1
17041FD5300426E238032AEE3D0326FC45022FFF520339FF5A023DFF590143FF
5901675F6683C4A6C3FFD7A7D5FFC894C6CBA288A0852A93253E000000007234
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000008E668B2ACFA5CEFFFDD6FEFFE3BBE1FF71A870FF169A
10F810990961000000009A510800000000000000000000000000000000000000
0000000000000000000000000000000000008E628C10AE7AACD3E8CAE7FF12DE
17FF17E31CFF11BD11FF11A00AFD0F980859000000009B520900924B06000000
000000000000000000000000000000000000000000000000000081297E02907E
8F9373BF75FF12E217FF20E425FF1DE322FF11C311FF11A00AF50F9808580000
00009A510800924B060000000000000000000000000000000000000000000000
00000000000047CD4B4843F955FB2FEF38FF1DE322FF1FE324FF1DE122FF12C4
12FF11A00AFB0F980865000000009A5108000000000000000000000000000000
00000000000000000000E5A03F00000000003AEA426A42FE54FE2EEE37FF1FE5
24FF1FE324FF1DE322FF11C111FF11A00AFF0F98085E000000009C520900924B
060000000000000000000000000000000000D28C32003EF24A01000000003CEE
445D40FC4EF62CEE36FF1DE322FF20E425FF1DE322FF12C412FF0EA00AF70F98
085C000000000F9A0801924B060000000000000000000000000000000000D18B
3200F5AC3D00000000003CF0455942FE50FB30F039FF1DE322FF1FE324FF1DE1
22FF12C612FF0EA00AFD0F98086A000000009A51080000000000000000000000
0000000000000000000000000000F7AD3D00000000003AEA426542FE50FD2DEF
36FF1FE524FF1FE324FF1DE322FF11C111FF0EA00AFF148E0E65000000000000
00005555550000000000000000000000000000000000D18B32003EF246010000
00003CEE455940FC4EF52DEF36FF1DE322FF20E425FF1BE520FF19B919FF6481
63FF7573757700000000FFFFFF00454545000000000000000000000000000000
0000D18B3200F5AA3D00000000003CEE445442FE50F933EF3BFF1AE41FFF1DC5
21FFCFE7CFFFBDB9BCFF767676FF9595958D00000000A3A3A300000000000000
000000000000000000000000000000000000F7AC3D00000000003AEA436142FE
50FB39E341FFC1DDC1FFF6F6F6FFF0F0F0FFB2B2B2FF787878FF7C7C7C650000
0000000000000000000000000000000000000000000000000000D08B3200F3A9
3C00000000003DDD4555729875F9B0ACAFFFE6E6E6FFF4F4F4FFF4F4F4FFE0E0
E0FFDBDBDBEEC6C6C64C00000000000000000000000000000000000000000000
000000000000D08B3200F5AB3D00000000007371735D777777FBA0A0A0FFE3E3
E3FFFAFAFAFFFAFAFAFFEDEDEDFFD7D7D7AD0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFF00000000009090
9070787878F7DCDCDCFFFFFFFFFFFFFFFFFFF6F6F6DAEDEDED1D000000000000
0000000000000000000000000000000000000000000000000000000000005353
5300CECECE000000000079797946EBEBEBDAF8F8F8FFFCFCFCDAF4F4F42B0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000464646008D8D8D0000000000D8D8D82EE4E4E498F6F6
F61200000000FFFFFF00
}
OnClick = cmdEnterClick
TabOrder = 1
end
object reg_6: TComboBox
Left = 96
Height = 21
Top = 35
Width = 113
AutoSelect = False
AutoSize = False
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'01 - IN;'
'02 - OUT;'
'10 - ADD;'
'11 - SUB;'
'12 - CMP;'
'21 - LD;'
'22 - ST;'
'23 - LA;'
'30 - JMP;'
'33 - JZ;'
'34 - JM;'
'99 - HALT;'
)
TabOrder = 2
Text = '01 - IN;'
end
object dataEnter: TBitBtn
Left = 110
Height = 28
Top = 96
Width = 99
Caption = 'Данные'
Glyph.Data = {
46050000424D4605000000000000360000002800000012000000120000000100
20000000000010050000640000006400000000000000000000005B5B5AAF3E42
477E798AA11F8C9DB40C8B99A504A9717202A25F2A03AA5B1504B0611004C16B
1704D4901F04E29D2503EEA82903FCB82602FFC22E03FFC63902FFC33C01FFBE
42015F626783A6B3C4FFA6BBD7FF94AAC8CB8791A285935B253E000000007234
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000066768D2AA4B6CFFFD5E8FEFFBBCCE3FFA88D70FF9A55
10F899500961000000009A510800000000000000000000000000000000000000
00000000000000000000000000000000000062748D107A90AED3C9D6E8FFDD84
12FFE38B17FFBD6F11FF9F550AFD984F0859000000009B520900924B06000000
0000000000000000000000000000000000000000000000000000294E80027D84
9093BF9E73FFE28712FFE48F20FFE38E1CFFC27211FF9F550AF5984F08580000
00009A510800924B060000000000000000000000000000000000000000000000
000000000000CD934748F9B543FBEF9F2FFFE38C1CFFE38E1FFFE18C1DFFC473
12FF9F550AFB984F0865000000009A5108000000000000000000000000000000
00000000000000000000E5A03F0000000000EBA2396AFEB741FEEE9E2DFFE58F
1FFFE38E1FFFE38D1DFFC07011FF9F550AFF984F085E000000009C520900924B
060000000000000000000000000000000000D28C3200F3AA3C0100000000EFA6
3B5DFCB440F6EE9E2CFFE38D1DFFE48E20FFE38E1DFFC37312FF9F560AF7984F
085C000000009A510801924B060000000000000000000000000000000000D18B
3200F5AC3D0000000000F0A73B59FEB641FBF0A030FFE38C1CFFE38E1FFFE18C
1DFFC57412FFA0560AFD984F086A000000009A51080000000000000000000000
0000000000000000000000000000F7AD3D0000000000EBA03965FEB641FDEF9F
2DFFE58F1FFFE38E1FFFE38D1DFFC17111FFA0560AFF8E4E0E65000000000000
00005555550000000000000000000000000000000000D18B3200F3A93C010000
0000EEA43B59FCB340F5EF9E2DFFE38D1DFFE48E20FFE58E1BFFB87019FF8172
63FF7273757700000000FFFFFF00454545000000000000000000000000000000
0000D18B3200F5AA3D0000000000EFA63B54FEB541F9F0A131FFE48C1AFFC47C
1DFFE7DCCEFFB9BABCFF767676FF9595958D00000000A3A3A300000000000000
000000000000000000000000000000000000F7AC3D0000000000EAA03961FEB6
41FBE39D39FFDDD0C0FFF6F6F6FFF0F0F0FFB2B2B2FF787878FF7C7C7C650000
0000000000000000000000000000000000000000000000000000D08B3200F3A9
3C0000000000DD9B3D55988A72F9ACADAFFFE6E6E5FFF4F4F4FFF4F4F4FFE0E0
E0FFDBDBDBEEC6C6C64C00000000000000000000000000000000000000000000
000000000000D08B3200F5AB3D00000000007172735D777777FBA0A0A0FFE3E3
E3FFFAFAFAFFFAFAFAFFEDEDEDFFD7D7D7AD0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFF00000000009090
9070787878F7DCDCDCFFFFFFFFFFFFFFFFFFF6F6F6DAEDEDED1D000000000000
0000000000000000000000000000000000000000000000000000000000005353
5300CECECE000000000079797946EBEBEBDAF8F8F8FFFCFCFCDAF4F4F42B0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000464646008D8D8D0000000000D8D8D82EE4E4E498F6F6
F61200000000FFFFFF00
}
OnClick = dataEnterClick
TabOrder = 3
end
object data_in: TEdit
Tag = 1024
Left = 96
Height = 23
Top = 64
Width = 88
Alignment = taRightJustify
MaxLength = 6
OnKeyPress = data_inKeyPress
TabOrder = 4
Text = '0'
end
object Ch_mode: TSpeedButton
Left = 186
Height = 23
Top = 64
Width = 23
AllowAllUp = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFF80FFFFFF80FFFFFF80FFFFFF800000000000000000000000000000
0000FFFFFF80FFFFFF80FFFFFF80FFFFFF800000000000000000000000000000
00004A4A4AD9222222B2222222B24A4A4AD90000000000000000000000000000
00004A4A4AD9222222B2222222B24A4A4AD90000000000000000000000000000
00003E3E3ED900000000000000003E3E3ED90000000000000000000000000000
00003E3E3ED900000000000000003E3E3ED90000000000000000000000000000
0000313131D9FFFFFF80FFFFFF80313131D90000000000000000000000000000
0000313131D9FFFFFF80FFFFFF80313131D90000000000000000000000000000
0000000000B2000000B2000000B2000000B20000000000000000000000000000
0000000000B2000000B2000000B2000000B20000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFF80FFFFFF80FFFFFF80FFFFFF800000000000000000000000000000
0000FFFFFF80FFFFFF80FFFFFF80FFFFFF800000000000000000000000000000
00004A4A4AD9222222B2222222B24A4A4AD90000000000000000000000000000
00004A4A4AD9222222B2222222B24A4A4AD90000000000000000000000000000
00003E3E3ED900000000000000003E3E3ED90000000000000000000000000000
00003E3E3ED900000000000000003E3E3ED90000000000000000000000000000
0000313131D9FFFFFF80FFFFFF80313131D90000000000000000000000000000
0000313131D9FFFFFF80FFFFFF80313131D90000000000000000000000000000
0000000000B2000000B2000000B2000000B20000000000000000000000000000
0000000000B2000000B2000000B2000000B20000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
OnClick = Ch_modeClick
end
object data_p1: TEdit
Left = 96
Height = 23
Top = 64
Width = 40
Alignment = taRightJustify
MaxLength = 3
OnKeyPress = data_p1KeyPress
TabOrder = 5
Text = '0'
Visible = False
end
object data_p2: TEdit
Tag = 255
Left = 142
Height = 23
Top = 64
Width = 40
Alignment = taRightJustify
MaxLength = 3
OnKeyPress = data_p2KeyPress
TabOrder = 6
Text = '0'
Visible = False
end
end
object Run_code: TBitBtn
Left = 16
Height = 28
Top = 384
Width = 224
Caption = 'Запуск (нормальный режим)'
Glyph.Data = {
DA030000424DDA030000000000007A0000006C0000000F000000120000000100
18000000000060030000130B0000130B00000000000000000000424752730000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000002000000000000000000000000000000FFFF
FFF6F8F6EFF3EFFCFBFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000F8FBF887D88F5ECF72ADCFAFF1ECF0FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F1F8
F046C94C1CD43337D64F71C97DD0D3CDFFFBFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000F1F8F041B44205AB0A12BD1B1CCB2A3ECC4F
92C293F6E8F4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F1F7
F041A3410491090CA0100CAB100DB61317CB244FB451D5D6D3FFFEFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000F1F7F0419C400480070C890F0B93100C9D0F
0AA70E06BA0E24AD2596C094EAEDE9FFFEFFFFFFFFFFFFFFFFFFFF000000F2F7
F157A5540F810F0A800B0B820D0C870F0B900F0B9B0F07A80C0AAE0E44AE41BE
CEBAFFF9FFFFFFFFFFFFFF000000F3F7F27AB1744A9A4531902E188518077D08
06800908850C0B8C0F0C981008A50C1BA51B74B570E0E2DEFFFEFF000000F2F7
F276B06F599C4F5D9F54569F50489C443998391E8A1E09810C007E0204870614
9A1937B23A77BC75F1F5F1000000F2F7F270B26C509F4C599E525E9E545D9F56
5FA35963AA5F65AE6567B16868B16966B1675FB3607DBE7CF2F6F2000000F2F7
F26AB46A47A24850A24E54A150589F525D9E545E9F555DA1565BA55757A65658
A75797C293EAEEE7FFFFFF000000F1F7F264B7683CA64445A64A4AA44C4FA34E
54A15158A0535C9F5353984A73AE6BC7D9C2FFFEFFFFFFFFFFFFFF000000F2F8
F162BC6637AC423DAB4741A74744A6494CA54C49A34B4B9C44AAC7A2EFF5EEFF
FFFFFFFFFFFFFFFFFFFFFF000000F1F8F161C36537B53F3DB3443DAD463EAC47
3CA74556A654E2E7E0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F1F8
F161CA6336BE3B3CBC4335B43C4AB44E91C58EFAF5F7FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000F1F9F15ED15F32CA3633BE3570C16FD4E3D0
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F7FB
F783D78152CA52A9D8A6F9F7F8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000FFFFFFF5FAF5F0F8EFFDFDFDFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
}
OnClick = Run_codeClick
TabOrder = 3
end
object run_by_steps: TBitBtn
Tag = 1
Left = 16
Height = 28
Top = 416
Width = 224
Caption = 'Запуск (пошаговый режим)'
Glyph.Data = {
DA030000424DDA030000000000007A0000006C0000000F000000120000000100
18000000000060030000130B0000130B00000000000000000000424752730000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000002000000000000000000000000000000FDFE
FEF1FCFBE7F9F9F8FDFCFEFEFEFDFEFEFEFFFFFFFFFFFEFEFEFDFEFEFDFEFEFD
FEFEFFFFFFFFFFFFFAFAFA000000F5FDFC99E8E57FE3DF9EE9E7E1F8F7FFFFFF
FCFBF9FFFEFDF9F9FAFAFBFBFDFEFEF6F5F3F8F5F3FFFFFFECEBEC000000EEFB
FA69DED968DEDA77E0DC7EE2DEB4EDEAE7E4DEDFDAD3E6E5E2F2F3F3FDFEFEE0
DFDACAC7BEF5F4EFDBDCD9000000EDFBFA51D2CD2BCBC542D6D05BDAD674E0DB
DEF0EDDDD8D0B5B2A7E7E8E6FEFFFED1CFC9989286C0BAB1BFBCB9000000EDFA
FA4CBEB922AEA92ABFBA2BCCC543D4CED7F4F2FFFFFFE1E0DEEBEBEBFEFFFFD2
CFC990887CBCB5A8C0BDB8000000EDFAF94AB5B11D999424A39E27AFAA36C0BC
D2F3F1FFFDF8E3DFDA90D5D0DDF8F7FEFCFBFFFEFAFFFFFFCACAC8000000EDFA
FA53C6C11E9F9A219893229A9531A7A3D1EDECFFFFFFECE0DC4BC5BE45D7D1C5
F1EFFFFFFFFFFFFFC7C5C2000000EDFAFA60DDD834CBC52FB5B024A49F2C9B96
CEE7E7FFFFFFF0E6E548B5B12BC4BE8DE2DEFFFFFFFFFFFFCFCECD000000EDFA
FA5EDBD637D2CC3ED4CE3DD1CB49CCC7D8F4F2FFFFFFFFF5F54CA29E20A09B95
DCDAFFFFFFFFFFFFD7D6D4000000EDFAFA5EDBD638D3CD3CD3CD3CD4CE41D5CF
A7EBE8E1F9F7B5EFED5ADFDA57DDD879E2DED9F6F5E9FAF9FFFFFF000000EDFA
FA5EDBD639D3CD3DD3CD3DD4CE3BD3CD2ED0CA29CFC932D1CB44D5CF47D6D042
D5CF70DFDACEF3F2FCFDFD000000EEFAFA61DCD73CD3CE3FD4CE3DD4CD3ED4CE
3ED4CE3ED4CE3DD5CF31D1CA5ADAD5B5EEECFEFFFFFFFFFFFDFEFE000000EFFA
FA66DDD841D4CE41D5CF40D4CF3FD4CF3FD4CE3DD3CE36CDC791E6E2ECFBFAFF
FEFEFEFEFEFDFEFEFDFEFE000000EFFAFA6EDEDA4BD7D14BD7D144D5CF46D5D0
3DD4CE45D5D0D3F5F4FDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFDFEFE000000EFFB
FA75E0DC55D9D455D9D44AD7D151D9D384E3E0EFFBFBFFFFFFFDFEFEFDFEFEFD
FEFEFDFEFEFDFEFEFDFEFE000000EFFBFA7CE1DD61DCD752D8D370DFDBC9F3F1
FFFFFFFFFFFFFDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFDFEFE000000F4FD
FC94E7E36EDFDAA5EBE8F2FCFCFFFFFFFDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFD
FEFEFDFEFEFDFEFEFDFEFE000000FDFEFEF3FCFBEDFAFAFBFDFDFDFEFEFDFEFE
FDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFDFEFEFDFEFE000000
}
OnClick = Run_codeClick
TabOrder = 4
end
object next_step: TBitBtn
Left = 16
Height = 28
Top = 448
Width = 110
Caption = 'След. шаг'
Enabled = False
Glyph.Data = {
B2040000424DB2040000000000007A0000006C00000013000000120000000100
18000000000038040000130B0000130B00000000000000000000424752730000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000002000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3
F0E4C4E3D6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCBC5C869FFBC45FF
A89CFECFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEAE6E88FFFCB38FF9E51FFB3
87FFC8FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB9B4B694FFCE43FF9F6FFEB93EFFA69C
FFD1FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FEFFFFFFFFFFFFFFFFFFFFFFFCE6F092FFCB42FFA18BFFC78DFFC784FEC584FE
C6FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3FFFA44
FFBF0DFF9A00FF8B0CFF9044FFA742FFA084FFC4CBFFE588FEC8B7FEDBADFED7
F5FFFA000000FFFFFFFFFFFFFFFFFFFFFFFFC2FFE882FFD100FF9B00FF9901FF
9600FF8C12FF9029FF973EFF9E77FEBBC4FFE2E8FFF394FFCAABFFD8A8FFD500
0000FFFFFFFFFFFFFFFFFFD1FFEE07FFA401FFA201FF9C01FF9C01FF9500FF8D
0BFF8A28FF9739FF9D62FEAFADFFD8ECFFF6D6FFEB8AFEC3A5FECA000000FFFF
FFFFFFFFD2FFEE00FFA101FFA301FFA201FF9D01FF9C01FF9501FF8E06FF8820
FF9336FF9B4EFFA691FFC9CAFFE68CFECB57FFC058FFC3000000FFFFFFE0FFF7
1FFFB100FFA801FFA401FFA200FF9F00FF9B00FF9A00FF8E00FF8613FF8C30FF
9B41FF9F6DFEB56AFFBA64FEBE6DFEC663FEB8000000F3F4F162D7A902FFA901
FFA802FFA908FFA425FFAA32FFAC31FBAD42FBB360FFC53CFFAF23FF9538FF9B
44FFA559FEB180FED06EFEBF88FED1000000CDDBD73AFFCA00FFAF11FFAA42FF
B86BFFC07DD4AFA7D9C57986828F9594C8CBCC87FFC913FF8C2FFF9F4AFFB274
FFC871FEC1E5FFF4FFFFFF000000B1F7E318FFBF22FFB48AFFD59BC9B9A3AFA5
C7C7C7FAF9F9F3F2F3F5F5F5FDF8FA73FFC109FF8B3CFFB194FFDF74BFA2FBFF
FFFFFFFFFFFFFF00000081FFE028FFC191F0CCB6B6B7F4F1F2FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFE9E4E67AFFC827FFAD9DEDD683797CEBEAEAFFFFFFFFFFFF
FFFFFF00000064FFD663DEB1E6E3E4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFE8E4E5A6FFE2AEFFF4776F71F7F9F7FFFFFFFFFFFFFFFFFFFFFFFF00
000065FFCBC8FFE9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF9EAAA6A0A9A6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000084FF
CEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F0FFF9FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
}
OnClick = next_stepClick
TabOrder = 5
end
object GroupBox4: TGroupBox
Left = 584
Height = 467
Top = 16
Width = 368
Caption = ' Лог работы ВМ '
ClientHeight = 452
ClientWidth = 364
TabOrder = 6
object verb: TCheckBox
Left = 16
Height = 22
Top = 416
Width = 211
Caption = 'Подробный лог (+трассировка)'
TabOrder = 0
end
inline log: TSynEdit
Left = 8
Height = 406
Top = 8
Width = 344
Font.Height = -12
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 1
Gutter.Visible = False
Gutter.Width = 55
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = Log_style
Keystrokes = <
item
Command = ecNone
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
ScrollBars = ssAutoVertical
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
object stop_exec: TBitBtn
Left = 130
Height = 28
Top = 448
Width = 110
Caption = 'Прервать'
Enabled = False
Kind = bkAbort
OnClick = stop_execClick
TabOrder = 7
end
object Log_style: TSynAnySyn
Enabled = False
CommentAttri.Foreground = clGreen
CommentAttri.FrameStyle = slsDashed
CommentAttri.Style = [fsBold]
Comments = []
DetectPreprocessor = False
IdentifierAttri.Style = [fsBold]
IdentifierChars = '!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}'
KeyAttri.Foreground = clMaroon
KeyWords.Strings = (
'ADD'
'CMP'
'HALT'
'IN'
'JM'
'JMP'
'JZ'
'LA'
'LD'
'OUT'
'ST'
'SUB'
)
Objects.Strings = (
''
)
NumberAttri.Foreground = clGreen
StringDelim = sdDoubleQuote
Markup = False
Entity = False
DollarVariables = False
ActiveDot = False
left = 696
top = 224
end
object OD: TOpenDialog
Filter = 'Дамп памяти Мик|*.mdmp'
left = 568
top = 214
end
object SD: TSaveDialog
DefaultExt = '.mdmp'
Filter = 'Дамп памяти Мик|*.mdmp'
left = 568
top = 277
end
object MainMenu1: TMainMenu
left = 240
object MenuItem1: TMenuItem
Caption = 'Файл'
object MenuItem3: TMenuItem
Caption = 'Новый'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
200000000000000400006400000064000000000000000000000000000000ABAB
ABF2AAAAAAFFAAAAAAFFAAAAAAFFAAAAAAFFAAAAAAFFAAAAAAFFAAAAAAFFAAAA
AAFF176841FF0E6239FF0E6239FF166740FE000000000000000000000000AAAA
AAFFDBDBDBFFDBDBDBFFDBDBDBFFDBDBDBFFDBDBDBFFDBDBDBFFDBDBDBFFDBDB
DBFF116C45FF2BB895FF2AB592FF116C44FF000000000000000000000000ACAC
ACFFDFDFDFFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFF25805DFF197A
55FF187D56FF45CAADFF42C7ABFF167B54FF12764FF712754EE700000000AEAE
AEFFE2E2E2FFDFDFDFFFDFDFDFFFDFDFDFFFDFDFDFFFDFDFDFFF147F59FF5AD5
BDFF5DD9C2FF5ED9C3FF5BD7C0FF56D2B9FF4FCAB0FF127E58FD00000000B0B0
B0FFE4E4E4FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FF158862FF70E2
CFFF74E6D5FF75E7D5FF72E4D1FF6BDEC9FF64D6BFFF138861FD00000000B2B2
B2FFE7E7E7FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FF239775FF1D95
72FF279F7FFF8FF1E5FF87EDDFFF1E9876FF16926DF714926CEE00000000B4B4
B4FFEAEAEAFFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FFE4E4
E4FF199C78FFA5F8F0FF98F2E6FF189B77FF000000000000000000000000B6B6
B6FFECECECFFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5
E5FF24A887FF20A886FF20A886FF21A584FF000000000000000000000000B9B9
B9FFEFEFEFFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7