Форум программистов, компьютерный форум, киберфорум
Микропроцессоры
Форум программистов и сисадминов Киберфорум > Форум по электронике и бытовой технике > Электроника и радиотехника > Микропроцессоры
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
1 из 2 1 2 »
 
Рейтинг 4.90/29: Рейтинг темы: голосов - 29, средняя оценка - 4.90
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
1

Доработка дизассемблера 8080A

15.12.2019, 02:29. Показов 5635. Ответов 29
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Доработка дизассемблера для Intel i8080A(КР580ВМ80А) c https://codeload.github.com/Ba... zip/master
введен режим сохранения в файл и опция отображения байтов данных в листинге
Вложения
Тип файла: zip i8080-disassembler-master.zip (14.8 Кб, 40 просмотров)
Тип файла: zip disasm8080a.zip (9.79 Мб, 43 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 15.12.2019, 02:29
Ответы с готовыми решениями:

добрался до дизассемблера - как считать такты?
собственно, хочу оценить количество тактов, за которое выполняется мое прерывание. сделал (сдуру)...

Поиск дизассемблера
Добрый день. Есть 2 *.exe файла. OllyDbg открывает с ошибкой. Программы написаны в C++ Builder...

Защита от дизассемблера
Привет киберфорум! Есть ли какая - то реально работающая защита от дизассемблера в современном...

Исходники дизассемблера
Народ! Кому попадались исходники простенького современного дизассемблера на c++? Для создания...

Защита программы от дизассемблера и отладчика
Всем привет! Имеется небольшая простенькая программа на С++. Необходимо реализовать еще в ней...

29
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 02:33  [ТС] 2
Коды 0x10,0x20,0x30,0x08,0x18,0x28,0x38,0xcb,0xd9,0xdd,0xed,0xfd исключены (приняты однобайтными с ошибкой , правильно ли ?) .
Миниатюры
Доработка дизассемблера 8080A  
Вложения
Тип файла: zip Tischenko_V.G..._MikroEVM_-_cvoimi_rukami.(1989).zip (14.36 Мб, 21 просмотров)
Тип файла: pdf i8080a.pdf (366.7 Кб, 25 просмотров)
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 03:44  [ТС] 3
Пишут , что они не такие (особенно на несколько байт , уточнить ). Это недокументированные возможности ( в некоторых прошивках на Радио 86РК встречаются).

Добавлено через 20 секунд
Предусмотреть варианты.

Добавлено через 11 минут
Правильно ли это утверждение для КР580ВМ80А ?
C
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

int Disassemble8080A(FILE *fp2, Byte *codebuffer, int pc)
{
    Byte *byte = &codebuffer[pc];
    int opbytes = 1;
   fprintf (fp2,"%04x:  ", pc   );
 
    
    switch (*byte)
    {
        case 0x00: fprintf(fp2,"NOP"); break;
        case 0x01: fprintf(fp2,"LXI    B,#$%02x%02x",   byte[2], byte[1]); opbytes = 3; break;
        case 0x02: fprintf(fp2,"STAX   B"); break;
        case 0x03: fprintf(fp2,"INX    B"); break;
        case 0x04: fprintf(fp2,"INR    B"); break;
        case 0x05: fprintf(fp2,"DCR    B"); break;
        case 0x06: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    B,#$%02x", byte[1] );  opbytes = 2; break;
        case 0x07: fprintf(fp2,"RLC"); break;
         case 0x08: fprintf(fp2,"**NOP (0x08) "); break;
        //case 0x08: fprintf(fp2,"- (0x08)"); break;    
        case 0x09: fprintf(fp2,"DAD    B"); break;
        case 0x0a: fprintf(fp2,"LDAX   B"); break;
        case 0x0b: fprintf(fp2,"DCX    B"); break;
        case 0x0c: fprintf(fp2,"INR    C"); break;
        case 0x0d: fprintf(fp2,"DCR    C"); break;
        case 0x0e:   fprintf(fp2,"MVI    C,#$%02x", byte[1]); opbytes = 2; break;
        case 0x0f: fprintf(fp2,"RRC    C"); break;
 
        case 0x10: fprintf(fp2,"-"); break;//    case 0x10: fprintf(fp2,"NOP"); break;
        case 0x11:  fprintf(fp2,"LXI    D,#$%02x%02x", byte[2], byte[1]); opbytes = 3; break;
        case 0x12: fprintf(fp2,"STAX   D"); break;
        case 0x13: fprintf(fp2,"INX    D"); break;
        case 0x14: fprintf(fp2,"INR    D"); break;
        case 0x15: fprintf(fp2,"DCR    D"); break;
        case 0x16:   fprintf(fp2,"MVI    D,#$%02x", byte[1]); opbytes = 2; break;
        case 0x17: fprintf(fp2,"RAL"); break;
        case 0x18: fprintf(fp2,"**NOP (0x18)"); break;
      // case 0x18: fprintf(fp2,"-(0x18)"); break; 
        case 0x19: fprintf(fp2,"DAD    D"); break;
        case 0x1a: fprintf(fp2,"LDAX   D"); break;
        case 0x1b: fprintf(fp2,"DCX    D"); break;
        case 0x1c: fprintf(fp2,"INR    E"); break;
        case 0x1d: fprintf(fp2,"DCR    E"); break;
        case 0x1f: fprintf(fp2,"RAR"); break;
 
       case 0x20: fprintf(fp2,"**NOP (0x20)"); break; 
        //case 0x20: fprintf(fp2,"- (0x20)"); break; //    
        case 0x21: fprintf(fp2,"LXI    H,#$%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x22: fprintf(fp2,"SHLD   $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x23: fprintf(fp2,"INX    H"); break;
        case 0x24: fprintf(fp2,"INR    H"); break;
        case 0x25: fprintf(fp2,"DCR    H"); break;
        case 0x26: fprintf(fp2,"MVI    H,#$%02x", byte[1]); opbytes=2; break;
        case 0x27: fprintf(fp2,"DAA"); break;
         case 0x28: fprintf(fp2,"**NOP (0x28)"); break; 
       //case 0x28: fprintf(fp2,"- (0x28)"); break;  
        case 0x29: fprintf(fp2,"DAD    H"); break;
        case 0x2a: fprintf(fp2,"LHLD   $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x2b: fprintf(fp2,"DCX    H"); break;
        case 0x2c: fprintf(fp2,"INR    L"); break;
        case 0x2d: fprintf(fp2,"DCR    L"); break;
        case 0x2e: fprintf(fp2,"MVI    L,#$%02x", byte[1]); opbytes = 2; break;
        case 0x2f: fprintf(fp2,"CMA"); break;
 
 
        case 0x30: fprintf(fp2,"**NOP (0x30)"); break;
      //   case 0x30: fprintf(fp2,"- (0x30)"); break; 
        case 0x31: fprintf(fp2,"LXI    SP,#$%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x32: fprintf(fp2,"STA    $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x33: fprintf(fp2,"INX    SP"); break;
        case 0x34: fprintf(fp2,"INR    M"); break;
        case 0x35: fprintf(fp2,"DCR    M"); break;
        case 0x36: fprintf(fp2,"MVI    M,#$%02x", byte[1]); opbytes=2; break;
        case 0x37: fprintf(fp2,"STC"); break;
       case 0x38: fprintf(fp2,"**NOP (0x38)"); break;
        //case 0x38: fprintf(fp2,"- (0x38)"); break; 
        case 0x39: fprintf(fp2,"DAD    SP"); break;
        case 0x3a: fprintf(fp2,"LDA    $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x3b: fprintf(fp2,"DCX    SP"); break;
        case 0x3c: fprintf(fp2,"INR    A"); break;
        case 0x3d: fprintf(fp2,"DCR    A"); break;
        case 0x3e: fprintf(fp2,"MVI    A,#$%02x", byte[1]); opbytes = 2; break;
        case 0x3f: fprintf(fp2,"CMC"); break;
 
        case 0x40: fprintf(fp2,"MOV    B,B"); break;
        case 0x41: fprintf(fp2,"MOV    B,C"); break;
        case 0x42: fprintf(fp2,"MOV    B,D"); break;
        case 0x43: fprintf(fp2,"MOV    B,E"); break;
        case 0x44: fprintf(fp2,"MOV    B,H"); break;
        case 0x45: fprintf(fp2,"MOV    B,L"); break;
        case 0x46: fprintf(fp2,"MOV    B,M"); break;
        case 0x47: fprintf(fp2,"MOV    B,A"); break;
        case 0x48: fprintf(fp2,"MOV    C,B"); break;
        case 0x49: fprintf(fp2,"MOV    C,C"); break;
        case 0x4a: fprintf(fp2,"MOV    C,D"); break;
        case 0x4b: fprintf(fp2,"MOV    C,E"); break;
        case 0x4c: fprintf(fp2,"MOV    C,H"); break;
        case 0x4d: fprintf(fp2,"MOV    C,L"); break;
        case 0x4e: fprintf(fp2,"MOV    C,M"); break;
        case 0x4f: fprintf(fp2,"MOV    C,A"); break;
 
        case 0x50: fprintf(fp2,"MOV    D,B"); break;
        case 0x51: fprintf(fp2,"MOV    D,C"); break;
        case 0x52: fprintf(fp2,"MOV    D,D"); break;
        case 0x53: fprintf(fp2,"MOV    D.E"); break;
        case 0x54: fprintf(fp2,"MOV    D,H"); break;
        case 0x55: fprintf(fp2,"MOV    D,L"); break;
        case 0x56: fprintf(fp2,"MOV    D,M"); break;
        case 0x57: fprintf(fp2,"MOV    D,A"); break;
        case 0x58: fprintf(fp2,"MOV    E,B"); break;
        case 0x59: fprintf(fp2,"MOV    E,C"); break;
        case 0x5a: fprintf(fp2,"MOV    E,D"); break;
        case 0x5b: fprintf(fp2,"MOV    E,E"); break;
        case 0x5c: fprintf(fp2,"MOV    E,H"); break;
        case 0x5d: fprintf(fp2,"MOV    E,L"); break;
        case 0x5e: fprintf(fp2,"MOV    E,M"); break;
        case 0x5f: fprintf(fp2,"MOV    E,A"); break;
 
        case 0x60: fprintf(fp2,"MOV    H,B"); break;
        case 0x61: fprintf(fp2,"MOV    H,C"); break;
        case 0x62: fprintf(fp2,"MOV    H,D"); break;
        case 0x63: fprintf(fp2,"MOV    H.E"); break;
        case 0x64: fprintf(fp2,"MOV    H,H"); break;
        case 0x65: fprintf(fp2,"MOV    H,L"); break;
        case 0x66: fprintf(fp2,"MOV    H,M"); break;
        case 0x67: fprintf(fp2,"MOV    H,A"); break;
        case 0x68: fprintf(fp2,"MOV    L,B"); break;
        case 0x69: fprintf(fp2,"MOV    L,C"); break;
        case 0x6a: fprintf(fp2,"MOV    L,D"); break;
        case 0x6b: fprintf(fp2,"MOV    L,E"); break;
        case 0x6c: fprintf(fp2,"MOV    L,H"); break;
        case 0x6d: fprintf(fp2,"MOV    L,L"); break;
        case 0x6e: fprintf(fp2,"MOV    L,M"); break;
        case 0x6f: fprintf(fp2,"MOV    L,A"); break;
 
        case 0x70: fprintf(fp2,"MOV    M,B"); break;
        case 0x71: fprintf(fp2,"MOV    M,C"); break;
        case 0x72: fprintf(fp2,"MOV    M,D"); break;
        case 0x73: fprintf(fp2,"MOV    M.E"); break;
        case 0x74: fprintf(fp2,"MOV    M,H"); break;
        case 0x75: fprintf(fp2,"MOV    M,L"); break;
        case 0x76: fprintf(fp2,"HLT");        break;
        case 0x77: fprintf(fp2,"MOV    M,A"); break;
        case 0x78: fprintf(fp2,"MOV    A,B"); break;
        case 0x79: fprintf(fp2,"MOV    A,C"); break;
        case 0x7a: fprintf(fp2,"MOV    A,D"); break;
        case 0x7b: fprintf(fp2,"MOV    A,E"); break;
        case 0x7c: fprintf(fp2,"MOV    A,H"); break;
        case 0x7d: fprintf(fp2,"MOV    A,L"); break;
        case 0x7e: fprintf(fp2,"MOV    A,M"); break;
        case 0x7f: fprintf(fp2,"MOV    A,A"); break;
 
        case 0x80: fprintf(fp2,"ADD    B"); break;
        case 0x81: fprintf(fp2,"ADD    C"); break;
        case 0x82: fprintf(fp2,"ADD    D"); break;
        case 0x83: fprintf(fp2,"ADD    E"); break;
        case 0x84: fprintf(fp2,"ADD    H"); break;
        case 0x85: fprintf(fp2,"ADD    L"); break;
        case 0x86: fprintf(fp2,"ADD    M"); break;
        case 0x87: fprintf(fp2,"ADD    A"); break;
        case 0x88: fprintf(fp2,"ADC    B"); break;
        case 0x89: fprintf(fp2,"ADC    C"); break;
        case 0x8a: fprintf(fp2,"ADC    D"); break;
        case 0x8b: fprintf(fp2,"ADC    E"); break;
        case 0x8c: fprintf(fp2,"ADC    H"); break;
        case 0x8d: fprintf(fp2,"ADC    L"); break;
        case 0x8e: fprintf(fp2,"ADC    M"); break;
        case 0x8f: fprintf(fp2,"ADC    A"); break;
 
        case 0x90: fprintf(fp2,"SUB    B"); break;
        case 0x91: fprintf(fp2,"SUB    C"); break;
        case 0x92: fprintf(fp2,"SUB    D"); break;
        case 0x93: fprintf(fp2,"SUB    E"); break;
        case 0x94: fprintf(fp2,"SUB    H"); break;
        case 0x95: fprintf(fp2,"SUB    L"); break;
        case 0x96: fprintf(fp2,"SUB    M"); break;
        case 0x97: fprintf(fp2,"SUB    A"); break;
        case 0x98: fprintf(fp2,"SBB    B"); break;
        case 0x99: fprintf(fp2,"SBB    C"); break;
        case 0x9a: fprintf(fp2,"SBB    D"); break;
        case 0x9b: fprintf(fp2,"SBB    E"); break;
        case 0x9c: fprintf(fp2,"SBB    H"); break;
        case 0x9d: fprintf(fp2,"SBB    L"); break;
        case 0x9e: fprintf(fp2,"SBB    M"); break;
        case 0x9f: fprintf(fp2,"SBB    A"); break;
 
        case 0xa0: fprintf(fp2,"ANA    B"); break;
        case 0xa1: fprintf(fp2,"ANA    C"); break;
        case 0xa2: fprintf(fp2,"ANA    D"); break;
        case 0xa3: fprintf(fp2,"ANA    E"); break;
        case 0xa4: fprintf(fp2,"ANA    H"); break;
        case 0xa5: fprintf(fp2,"ANA    L"); break;
        case 0xa6: fprintf(fp2,"ANA    M"); break;
        case 0xa7: fprintf(fp2,"ANA    A"); break;
        case 0xa8: fprintf(fp2,"XRA    B"); break;
        case 0xa9: fprintf(fp2,"XRA    C"); break;
        case 0xaa: fprintf(fp2,"XRA    D"); break;
        case 0xab: fprintf(fp2,"XRA    E"); break;
        case 0xac: fprintf(fp2,"XRA    H"); break;
        case 0xad: fprintf(fp2,"XRA    L"); break;
        case 0xae: fprintf(fp2,"XRA    M"); break;
        case 0xaf: fprintf(fp2,"XRA    A"); break;
 
        case 0xb0: fprintf(fp2,"ORA    B"); break;
        case 0xb1: fprintf(fp2,"ORA    C"); break;
        case 0xb2: fprintf(fp2,"ORA    D"); break;
        case 0xb3: fprintf(fp2,"ORA    E"); break;
        case 0xb4: fprintf(fp2,"ORA    H"); break;
        case 0xb5: fprintf(fp2,"ORA    L"); break;
        case 0xb6: fprintf(fp2,"ORA    M"); break;
        case 0xb7: fprintf(fp2,"ORA    A"); break;
        case 0xb8: fprintf(fp2,"CMP    B"); break;
        case 0xb9: fprintf(fp2,"CMP    C"); break;
        case 0xba: fprintf(fp2,"CMP    D"); break;
        case 0xbb: fprintf(fp2,"CMP    E"); break;
        case 0xbc: fprintf(fp2,"CMP    H"); break;
        case 0xbd: fprintf(fp2,"CMP    L"); break;
        case 0xbe: fprintf(fp2,"CMP    M"); break;
        case 0xbf: fprintf(fp2,"CMP    A"); break;
 
        case 0xc0: fprintf(fp2,"RNZ"); break;
        case 0xc1: fprintf(fp2,"POP    B"); break;
        case 0xc2: fprintf(fp2,"JNZ    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc3: fprintf(fp2,"JMP    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc4: fprintf(fp2,"CNZ    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc5: fprintf(fp2,"PUSH   B"); break;
        case 0xc6: fprintf(fp2,"ADI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xc7: fprintf(fp2,"RST    0"); break;
        case 0xc8: fprintf(fp2,"RZ"); break;
        case 0xc9: fprintf(fp2,"RET"); break;
        case 0xca: fprintf(fp2,"JZ     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xcb: fprintf(fp2,"CALL   $%02x%02x",byte[2],byte[1]); fprintf(fp2,"**JMP    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;  
      //case 0xcb: fprintf(fp2,"-" );   break; 
        case 0xcc: fprintf(fp2,"CZ     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xcd: fprintf(fp2,"CALL   $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xce:  fprintf(fp2,"ACI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xcf: fprintf(fp2,"RST    1"); break;
 
        case 0xd0: fprintf(fp2,"RNC"); break;
        case 0xd1: fprintf(fp2,"POP    D"); break;
        case 0xd2: fprintf(fp2,"JNC    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xd3:  fprintf(fp2,"OUT    #$%02x",byte[1]); opbytes = 2; break;
        case 0xd4: fprintf(fp2,"CNC    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xd5: fprintf(fp2,"PUSH   D"); break;
        case 0xd6:  fprintf(fp2,"SUI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xd7: fprintf(fp2,"RST    2"); break;
        case 0xd8: fprintf(fp2,"RC");  break;
         case 0xd9: fprintf(fp2,"**RET (0xd9)"); break;
        //case 0xd9: fprintf(fp2,"- (0xd9)"); break;   
        case 0xda: fprintf(fp2,"JC     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xdb:   fprintf(fp2,"IN     #$%02x",byte[1]); opbytes = 2; break;
        case 0xdc: fprintf(fp2,"CC     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xdd: fprintf(fp2,"**CALL   $%02x%02x (0xdd xx xx)",byte[2],byte[1]); opbytes = 3; break;
       // case 0xdd: fprintf(fp2,"- (0xdd)"); break;  
        case 0xde:  fprintf(fp2,"SBI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xdf: fprintf(fp2,"RST    3"); break;
 
        case 0xe0: fprintf(fp2,"RPO"); break;
        case 0xe1: fprintf(fp2,"POP    H"); break;
        case 0xe2: fprintf(fp2,"JPO    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xe3: fprintf(fp2,"XTHL");break;
        case 0xe4: fprintf(fp2,"CPO    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xe5: fprintf(fp2,"PUSH   H"); break;
        case 0xe6:   fprintf(fp2,"ANI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xe7: fprintf(fp2,"RST    4"); break;
        case 0xe8: fprintf(fp2,"RPE"); break;
        case 0xe9: fprintf(fp2,"PCHL");break;
        case 0xea: fprintf(fp2,"JPE    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xeb: fprintf(fp2,"XCHG"); break;
        case 0xec: fprintf(fp2,"CPE     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
         case 0xed: fprintf(fp2,"**CALL   $%02x%02x (0xed xx xx)",byte[2],byte[1]); opbytes = 3; break;
         //case 0xed: fprintf(fp2,"-"); break;   
        case 0xee:  fprintf(fp2,"XRI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xef: fprintf(fp2,"RST    5"); break;
 
        case 0xf0: fprintf(fp2,"RP");  break;
        case 0xf1: fprintf(fp2,"POP    PSW"); break;
        case 0xf2: fprintf(fp2,"JP     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xf3: fprintf(fp2,"DI");  break;
        case 0xf4: fprintf(fp2,"CP     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xf5: fprintf(fp2,"PUSH   PSW"); break;
        case 0xf6:  fprintf(fp2,"ORI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xf7: fprintf(fp2,"RST    6"); break;
        case 0xf8: fprintf(fp2,"RM");  break;
        case 0xf9: fprintf(fp2,"SPHL");break;
        case 0xfa: fprintf(fp2,"JM     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xfb: fprintf(fp2,"EI");  break;
        case 0xfc: fprintf(fp2,"CM     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xfd: fprintf(fp2,"**CALL   $%02x%02x (0xfd  xx xx )",byte[2],byte[1]); opbytes = 3; break;
         //case 0xfd: fprintf(fp2,"- (0xfd)");  break;  //
        case 0xfe:   fprintf(fp2,"CPI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xff: fprintf(fp2,"RST    7"); break;
    }
 
 
 
    fprintf(fp2,"\n");
 
    return opbytes;
}
Добавлено через 1 минуту
В DevC++ с расширением .c компилируется, с .cpp и в борландовском с таким же проблемы с указателями и типами данных .

Добавлено через 5 минут
0xed , 0xfd, 0xdd , 0xcb- трехбайтные ? 0xd9 использует возврат (однобайтная ). Это плохо документированные в некоторых даташитах данные .

Добавлено через 9 минут
C
1

 case 0x1e:  fprintf(fp2,"MVI    E,#$%02x", byte[1]); opbytes = 2 ; break; //MVI E,D8bit
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 04:20  [ТС] 4
Вариант с добавленной 0x1e , недокументированными командами и количеством байтов в них , как в гитхабовском исходнике .
Вложения
Тип файла: zip disasm8080_patched.zip (9.82 Мб, 20 просмотров)
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 06:16  [ТС] 5
Для I8085 как совместимого по некоторым кодам с i8080a , эти сведения ,например , такие
https://github.com/libretro/ma... /i8085.cpp


C++
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

 * 20-Jul-2002 Krzysztof Strzecha
 * - SBB r instructions should affect parity flag.
 *   Fixed only for non x86 asm version (#define i8080_EXACT 1).
 *   There are probably more opcodes which should affect this flag, but don't.
 * - JPO nnnn and JPE nnnn opcodes in disassembler were misplaced. Fixed.
 * - Undocumented i8080 opcodes added:
 *   08h, 10h, 18h, 20h, 28h, 30h, 38h  -  NOP
 *   0CBh                               -  JMP
 *   0D9h                               -  RET
 *   0DDh, 0EDh, 0FDh                   -  CALL
 *   Thanks for the info go to Anton V. Ignatichev.
 
...
 
 
 
case 0x08:  if (IS_8085()) { M_DSUB(); }                /* DSUB */
                    /* else { ; } */                                            /* NOP  undocumented */
                    break;
 
 
 
case 0x10:  if (IS_8085()) {                                    /* ASRH */
                        m_AF.b.l = (m_AF.b.l & ~CF) | (m_HL.b.l & CF);
                        m_HL.w.l = (m_HL.w.l >> 1);
                    } /* else { ; } */                                          /* NOP  undocumented */
                    break;
 
 
case 0x18:  if (IS_8085()) {                                    /* RLDE */
                        m_AF.b.l = (m_AF.b.l & ~(CF | VF)) | (m_DE.b.h >> 7);
                        m_DE.w.l = (m_DE.w.l << 1) | (m_DE.w.l >> 15);
                        if (0 != (((m_DE.w.l >> 15) ^ m_AF.b.l) & CF)) m_AF.b.l |= VF;
                    } /* else { ; } */                                          /* NOP  undocumented */
                    break;
 
case 0x20:  if (IS_8085()) {                                    /* RIM  */
                        m_AF.b.h = get_rim_value();
 
                        /* if we have remembered state from taking a TRAP, fix up the IE flag here */
                        if (m_trap_im_copy & 0x80) m_AF.b.h = (m_AF.b.h & ~IM_IE) | (m_trap_im_copy & IM_IE);
                        m_trap_im_copy = 0;
                    } /* else { ; } */                                          /* NOP  undocumented */
                    break;
 
 
case 0x28:  if (IS_8085()) {                                    /* LDEH nn */
                        m_WZ.d = ARG();
                        m_DE.d = (m_HL.d + m_WZ.d) & 0xffff;
                    } /* else { ; } */                                          /* NOP  undocumented */
                    break;
 
case 0x30:  if (IS_8085()) {                                    /* SIM  */
                        /* if bit 3 is set, bits 0-2 become the new masks */
                        if (m_AF.b.h & 0x08) {
                            m_IM &= ~(IM_M55 | IM_M65 | IM_M75 | IM_I55 | IM_I65);
                            m_IM |= m_AF.b.h & (IM_M55 | IM_M65 | IM_M75);
 
                            /* update live state based on the new masks */
                            if ((m_IM & IM_M55) == 0 && m_irq_state[I8085_RST55_LINE]) m_IM |= IM_I55;
                            if ((m_IM & IM_M65) == 0 && m_irq_state[I8085_RST65_LINE]) m_IM |= IM_I65;
                        }
 
                        /* bit if 4 is set, the 7.5 flip-flop is cleared */
                        if (m_AF.b.h & 0x10) m_IM &= ~IM_I75;
 
                        /* if bit 6 is set, then bit 7 is the new SOD state */
                        if (m_AF.b.h & 0x40) set_sod(m_AF.b.h >> 7);
 
                        /* check for revealed interrupts */
                        check_for_interrupts();
                    } /* else { ; } */                                          /* NOP  undocumented */
                    break;
 
 
...
 
case 0x38:  if (IS_8085()) {                                    /* LDES nn */
                        m_WZ.d = ARG();
                        m_DE.d = (m_SP.d + m_WZ.d) & 0xffff;
                    } /* else { ; } */                                          /* NOP  undocumented */
                    break;
...
 
 
case 0xcb:  if (IS_8085()) {                                    /* RST  V */
                        if (m_AF.b.l & VF) { M_RST(8); }
                        else m_icount += 6; // RST not taken
                    } else { M_JMP(1); }                                        /* JMP  nnnn undocumented */
                    break;
...
 
 
case 0xd9:  if (IS_8085()) {                                    /* SHLX */
                        m_WZ.w.l = m_DE.w.l;
                        WM(m_WZ.d, m_HL.b.l); m_WZ.w.l++;
                        WM(m_WZ.d, m_HL.b.h);
                    } else { M_POP(PC); }                                       /* RET  undocumented */
                    break;
...
 
case 0xdd:  if (IS_8085()) { M_JMP( !(m_AF.b.l & X5F) ); } /* JNX  nnnn */
                    else { M_CALL(1); }                                         /* CALL nnnn undocumented */
                    break;
...
case 0xed:  if (IS_8085()) {                                    /* LHLX */
                        m_WZ.w.l = m_DE.w.l;
                        m_HL.b.l = RM(m_WZ.d); m_WZ.w.l++;
                        m_HL.b.h = RM(m_WZ.d);
                    } else { M_CALL(1); }                                       /* CALL nnnn undocumented */
                    break;
 
 
 
case 0xfd:  if (IS_8085()) { M_JMP( m_AF.b.l & X5F ); } /* JX   nnnn */
                    else { M_CALL(1); }                                         /* CALL nnnn undocumented */
                    break;
Добавлено через 49 минут
глючит начальный адрес , обнулять счетчик байтов, можно
C
1
2
3
4
5
6
7
8

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
 
...
 
 // fseek(fp, 0L , SEEK_SET);
    rewind ( fp);
C
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

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
 
typedef unsigned char Byte;
 
int Disassemble8080AL(FILE *fp2, Byte *codebuffer, int pc)
{
    Byte *byte = &codebuffer[pc];
    int opbytes = 1;
    fprintf (fp2,"%04x: ", pc   );
     fprintf (fp2,"  %02x  ", byte[0]   );
    
    switch (*byte)
    {
         
        case 0x00: fprintf(fp2,"NOP"); break;
        case 0x01: fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]);  fprintf(fp2,"LXI    B,#$%02x%02x",   byte[2], byte[1]); opbytes = 3; break;
        case 0x02: fprintf(fp2,"STAX   B"); break;
        case 0x03: fprintf(fp2,"INX    B"); break;
        case 0x04: fprintf(fp2,"INR    B"); break;
        case 0x05: fprintf(fp2,"DCR    B"); break;
        case 0x06: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    B,#$%02x", byte[1] ); opbytes = 2; break;
        case 0x07: fprintf(fp2,"RLC"); break;
        case 0x08: fprintf(fp2,"NOP ; warning code is 0x08 "); break;  
       //case 0x08: fprintf(fp2,"- ; warning code is 0x08"); break;  
        case 0x09: fprintf(fp2,"DAD    B"); break;
        case 0x0a: fprintf(fp2,"LDAX   B"); break;
        case 0x0b: fprintf(fp2,"DCX    B"); break;
        case 0x0c: fprintf(fp2,"INR    C"); break;
        case 0x0d: fprintf(fp2,"DCR    C"); break;
        case 0x0e:  fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    C,#$%02x", byte[1]); opbytes = 2; break;
        case 0x0f:  fprintf(fp2,"RRC    C"); break;
 
        case 0x10: fprintf(fp2,"NOP ; warning code is  0x10 "); break; 
         //case 0x10: fprintf(fp2,"- ; warning code is 0x10"); break; 
        case 0x11:   fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"LXI    D,#$%02x%02x", byte[2], byte[1]); opbytes = 3; break;
        case 0x12: fprintf(fp2,"STAX   D"); break;
        case 0x13: fprintf(fp2,"INX    D"); break;
        case 0x14: fprintf(fp2,"INR    D"); break;
        case 0x15: fprintf(fp2,"DCR    D"); break;
        case 0x16: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    D,#$%02x", byte[1]); opbytes = 2; break;
        case 0x17: fprintf(fp2,"RAL"); break;
        case 0x18: fprintf(fp2,"NOP  ; warning code is 0x18  "); break;  
     //  case 0x18: fprintf(fp2,"- ; warning code is 0x18"); break;
        case 0x19: fprintf(fp2,"DAD    D"); break;
        case 0x1a: fprintf(fp2,"LDAX   D"); break;
        case 0x1b: fprintf(fp2,"DCX    D"); break;
        case 0x1c: fprintf(fp2,"INR    E"); break;
        case 0x1d: fprintf(fp2,"DCR    E"); break;
        case 0x1e: fprintf(fp2,"%02x  ",   byte[1] );  fprintf(fp2,"MVI    E,#$%02x", byte[1]); opbytes = 2 ; break;
        case 0x1f: fprintf(fp2,"RAR"); break;
 
        
         case 0x20: fprintf(fp2,"NOP ; warning code is 0x20  "); break; //case 0x20: fprintf(fp2,"-"); break;  
        case 0x21:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"LXI    H,#$%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x22:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"SHLD   $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x23: fprintf(fp2,"INX    H"); break;
        case 0x24: fprintf(fp2,"INR    H"); break;
        case 0x25: fprintf(fp2,"DCR    H"); break;
        case 0x26: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    H,#$%02x", byte[1]); opbytes=2; break;
        case 0x27: fprintf(fp2,"DAA"); break;
        case 0x28: fprintf(fp2,"NOP ; warning code is 0x28  "); break; //case 0x28: fprintf(fp2,"-"); break;  
        case 0x29: fprintf(fp2,"DAD    H"); break;
        case 0x2a:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"LHLD   $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x2b: fprintf(fp2,"DCX    H"); break;
        case 0x2c: fprintf(fp2,"INR    L"); break;
        case 0x2d: fprintf(fp2,"DCR    L"); break;
        case 0x2e: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    L,#$%02x", byte[1]); opbytes = 2; break;
        case 0x2f: fprintf(fp2,"CMA"); break;
 
        case 0x30: fprintf(fp2,"NOP ; warning code is 0x30 "); break;
      // case 0x30: fprintf(fp2,"- ; warning code is 0x30"); break; 
        case 0x31:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"LXI    SP,#$%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x32:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"STA    $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x33: fprintf(fp2,"INX    SP"); break;
        case 0x34: fprintf(fp2,"INR    M"); break;
        case 0x35: fprintf(fp2,"DCR    M"); break;
        case 0x36: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    M,#$%02x", byte[1]); opbytes=2; break;
        case 0x37: fprintf(fp2,"STC"); break;
        case 0x38: fprintf(fp2,"NOP ; warning code is 0x38 "); break;
       //case 0x38: fprintf(fp2,"- ; warning code is 0x38 "); break; 
        case 0x39: fprintf(fp2,"DAD    SP"); break;
        case 0x3a:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"LDA    $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x3b: fprintf(fp2,"DCX    SP"); break;
        case 0x3c: fprintf(fp2,"INR    A"); break;
        case 0x3d: fprintf(fp2,"DCR    A"); break;
        case 0x3e: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"MVI    A,#$%02x", byte[1]); opbytes = 2; break;
        case 0x3f: fprintf(fp2,"CMC"); break;
 
        case 0x40: fprintf(fp2,"MOV    B,B"); break;
        case 0x41: fprintf(fp2,"MOV    B,C"); break;
        case 0x42: fprintf(fp2,"MOV    B,D"); break;
        case 0x43: fprintf(fp2,"MOV    B,E"); break;
        case 0x44: fprintf(fp2,"MOV    B,H"); break;
        case 0x45: fprintf(fp2,"MOV    B,L"); break;
        case 0x46: fprintf(fp2,"MOV    B,M"); break;
        case 0x47: fprintf(fp2,"MOV    B,A"); break;
        case 0x48: fprintf(fp2,"MOV    C,B"); break;
        case 0x49: fprintf(fp2,"MOV    C,C"); break;
        case 0x4a: fprintf(fp2,"MOV    C,D"); break;
        case 0x4b: fprintf(fp2,"MOV    C,E"); break;
        case 0x4c: fprintf(fp2,"MOV    C,H"); break;
        case 0x4d: fprintf(fp2,"MOV    C,L"); break;
        case 0x4e: fprintf(fp2,"MOV    C,M"); break;
        case 0x4f: fprintf(fp2,"MOV    C,A"); break;
 
        case 0x50: fprintf(fp2,"MOV    D,B"); break;
        case 0x51: fprintf(fp2,"MOV    D,C"); break;
        case 0x52: fprintf(fp2,"MOV    D,D"); break;
        case 0x53: fprintf(fp2,"MOV    D.E"); break;
        case 0x54: fprintf(fp2,"MOV    D,H"); break;
        case 0x55: fprintf(fp2,"MOV    D,L"); break;
        case 0x56: fprintf(fp2,"MOV    D,M"); break;
        case 0x57: fprintf(fp2,"MOV    D,A"); break;
        case 0x58: fprintf(fp2,"MOV    E,B"); break;
        case 0x59: fprintf(fp2,"MOV    E,C"); break;
        case 0x5a: fprintf(fp2,"MOV    E,D"); break;
        case 0x5b: fprintf(fp2,"MOV    E,E"); break;
        case 0x5c: fprintf(fp2,"MOV    E,H"); break;
        case 0x5d: fprintf(fp2,"MOV    E,L"); break;
        case 0x5e: fprintf(fp2,"MOV    E,M"); break;
        case 0x5f: fprintf(fp2,"MOV    E,A"); break;
 
        case 0x60: fprintf(fp2,"MOV    H,B"); break;
        case 0x61: fprintf(fp2,"MOV    H,C"); break;
        case 0x62: fprintf(fp2,"MOV    H,D"); break;
        case 0x63: fprintf(fp2,"MOV    H.E"); break;
        case 0x64: fprintf(fp2,"MOV    H,H"); break;
        case 0x65: fprintf(fp2,"MOV    H,L"); break;
        case 0x66: fprintf(fp2,"MOV    H,M"); break;
        case 0x67: fprintf(fp2,"MOV    H,A"); break;
        case 0x68: fprintf(fp2,"MOV    L,B"); break;
        case 0x69: fprintf(fp2,"MOV    L,C"); break;
        case 0x6a: fprintf(fp2,"MOV    L,D"); break;
        case 0x6b: fprintf(fp2,"MOV    L,E"); break;
        case 0x6c: fprintf(fp2,"MOV    L,H"); break;
        case 0x6d: fprintf(fp2,"MOV    L,L"); break;
        case 0x6e: fprintf(fp2,"MOV    L,M"); break;
        case 0x6f: fprintf(fp2,"MOV    L,A"); break;
 
        case 0x70: fprintf(fp2,"MOV    M,B"); break;
        case 0x71: fprintf(fp2,"MOV    M,C"); break;
        case 0x72: fprintf(fp2,"MOV    M,D"); break;
        case 0x73: fprintf(fp2,"MOV    M.E"); break;
        case 0x74: fprintf(fp2,"MOV    M,H"); break;
        case 0x75: fprintf(fp2,"MOV    M,L"); break;
        case 0x76: fprintf(fp2,"HLT");        break;
        case 0x77: fprintf(fp2,"MOV    M,A"); break;
        case 0x78: fprintf(fp2,"MOV    A,B"); break;
        case 0x79: fprintf(fp2,"MOV    A,C"); break;
        case 0x7a: fprintf(fp2,"MOV    A,D"); break;
        case 0x7b: fprintf(fp2,"MOV    A,E"); break;
        case 0x7c: fprintf(fp2,"MOV    A,H"); break;
        case 0x7d: fprintf(fp2,"MOV    A,L"); break;
        case 0x7e: fprintf(fp2,"MOV    A,M"); break;
        case 0x7f: fprintf(fp2,"MOV    A,A"); break;
 
        case 0x80: fprintf(fp2,"ADD    B"); break;
        case 0x81: fprintf(fp2,"ADD    C"); break;
        case 0x82: fprintf(fp2,"ADD    D"); break;
        case 0x83: fprintf(fp2,"ADD    E"); break;
        case 0x84: fprintf(fp2,"ADD    H"); break;
        case 0x85: fprintf(fp2,"ADD    L"); break;
        case 0x86: fprintf(fp2,"ADD    M"); break;
        case 0x87: fprintf(fp2,"ADD    A"); break;
        case 0x88: fprintf(fp2,"ADC    B"); break;
        case 0x89: fprintf(fp2,"ADC    C"); break;
        case 0x8a: fprintf(fp2,"ADC    D"); break;
        case 0x8b: fprintf(fp2,"ADC    E"); break;
        case 0x8c: fprintf(fp2,"ADC    H"); break;
        case 0x8d: fprintf(fp2,"ADC    L"); break;
        case 0x8e: fprintf(fp2,"ADC    M"); break;
        case 0x8f: fprintf(fp2,"ADC    A"); break;
 
        case 0x90: fprintf(fp2,"SUB    B"); break;
        case 0x91: fprintf(fp2,"SUB    C"); break;
        case 0x92: fprintf(fp2,"SUB    D"); break;
        case 0x93: fprintf(fp2,"SUB    E"); break;
        case 0x94: fprintf(fp2,"SUB    H"); break;
        case 0x95: fprintf(fp2,"SUB    L"); break;
        case 0x96: fprintf(fp2,"SUB    M"); break;
        case 0x97: fprintf(fp2,"SUB    A"); break;
        case 0x98: fprintf(fp2,"SBB    B"); break;
        case 0x99: fprintf(fp2,"SBB    C"); break;
        case 0x9a: fprintf(fp2,"SBB    D"); break;
        case 0x9b: fprintf(fp2,"SBB    E"); break;
        case 0x9c: fprintf(fp2,"SBB    H"); break;
        case 0x9d: fprintf(fp2,"SBB    L"); break;
        case 0x9e: fprintf(fp2,"SBB    M"); break;
        case 0x9f: fprintf(fp2,"SBB    A"); break;
 
        case 0xa0: fprintf(fp2,"ANA    B"); break;
        case 0xa1: fprintf(fp2,"ANA    C"); break;
        case 0xa2: fprintf(fp2,"ANA    D"); break;
        case 0xa3: fprintf(fp2,"ANA    E"); break;
        case 0xa4: fprintf(fp2,"ANA    H"); break;
        case 0xa5: fprintf(fp2,"ANA    L"); break;
        case 0xa6: fprintf(fp2,"ANA    M"); break;
        case 0xa7: fprintf(fp2,"ANA    A"); break;
        case 0xa8: fprintf(fp2,"XRA    B"); break;
        case 0xa9: fprintf(fp2,"XRA    C"); break;
        case 0xaa: fprintf(fp2,"XRA    D"); break;
        case 0xab: fprintf(fp2,"XRA    E"); break;
        case 0xac: fprintf(fp2,"XRA    H"); break;
        case 0xad: fprintf(fp2,"XRA    L"); break;
        case 0xae: fprintf(fp2,"XRA    M"); break;
        case 0xaf: fprintf(fp2,"XRA    A"); break;
 
        case 0xb0: fprintf(fp2,"ORA    B"); break;
        case 0xb1: fprintf(fp2,"ORA    C"); break;
        case 0xb2: fprintf(fp2,"ORA    D"); break;
        case 0xb3: fprintf(fp2,"ORA    E"); break;
        case 0xb4: fprintf(fp2,"ORA    H"); break;
        case 0xb5: fprintf(fp2,"ORA    L"); break;
        case 0xb6: fprintf(fp2,"ORA    M"); break;
        case 0xb7: fprintf(fp2,"ORA    A"); break;
        case 0xb8: fprintf(fp2,"CMP    B"); break;
        case 0xb9: fprintf(fp2,"CMP    C"); break;
        case 0xba: fprintf(fp2,"CMP    D"); break;
        case 0xbb: fprintf(fp2,"CMP    E"); break;
        case 0xbc: fprintf(fp2,"CMP    H"); break;
        case 0xbd: fprintf(fp2,"CMP    L"); break;
        case 0xbe: fprintf(fp2,"CMP    M"); break;
        case 0xbf: fprintf(fp2,"CMP    A"); break;
 
        case 0xc0: fprintf(fp2,"RNZ"); break;
        case 0xc1: fprintf(fp2,"POP    B"); break;
        case 0xc2:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JNZ    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc3:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JMP    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc4:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CNZ    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc5: fprintf(fp2,"PUSH   B"); break;
        case 0xc6: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"ADI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xc7: fprintf(fp2,"RST    0"); break;
        case 0xc8: fprintf(fp2,"RZ"); break;
        case 0xc9: fprintf(fp2,"RET"); break;
        case 0xca:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JZ     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xcb: fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]);  fprintf(fp2,"JMP    $%02x%02x ; warning code is 0xcb xx xx  ",byte[2],byte[1]); opbytes = 3; break; 
      // case 0xcb: fprintf(fp2,"- ; warning code is 0xcb" );   break;  
        case 0xcc:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CZ     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xcd:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CALL   $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xce: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"ACI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xcf: fprintf(fp2,"RST    1"); break;
 
        case 0xd0: fprintf(fp2,"RNC"); break;
        case 0xd1: fprintf(fp2,"POP    D"); break;
        case 0xd2:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JNC    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xd3: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"OUT    #$%02x",byte[1]); opbytes = 2; break;
        case 0xd4:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CNC    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xd5: fprintf(fp2,"PUSH   D"); break;
        case 0xd6: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"SUI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xd7: fprintf(fp2,"RST    2"); break;
        case 0xd8: fprintf(fp2,"RC");  break;
        case 0xd9: fprintf(fp2,"RET ; warning code is  0xd9 "); break;
       //case 0xd9: fprintf(fp2,"- ; warning code is 0xd9"); break;  
        case 0xda:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JC     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xdb: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"IN     #$%02x",byte[1]); opbytes = 2; break;
        case 0xdc:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CC     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xdd: fprintf(fp2,"%02x %02x   ",   byte[1], byte[2]);  fprintf(fp2,"CALL   $%02x%02x    ; warning code is 0xdd xx xx",byte[2],byte[1]); opbytes = 3; break;
         //case 0xdd: fprintf(fp2,"-; warning code is  0xdd"); break;
        case 0xde: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"SBI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xdf: fprintf(fp2,"RST    3"); break;
 
        case 0xe0: fprintf(fp2,"RPO"); break;
        case 0xe1: fprintf(fp2,"POP    H"); break;
        case 0xe2:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JPO    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xe3: fprintf(fp2,"XTHL");break;
        case 0xe4:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CPO    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xe5: fprintf(fp2,"PUSH   H"); break;
        case 0xe6: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"ANI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xe7: fprintf(fp2,"RST    4"); break;
        case 0xe8: fprintf(fp2,"RPE"); break;
        case 0xe9: fprintf(fp2,"PCHL");break;
        case 0xea:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JPE    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xeb: fprintf(fp2,"XCHG"); break;
        case 0xec:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CPE     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xed: fprintf(fp2,"%02x %02x ",   byte[1], byte[2]);  fprintf(fp2,"CALL   $%02x%02x ; warning code is 0xed xx xx ",byte[2],byte[1]); opbytes = 3; break;
        // case 0xed: fprintf(fp2,"- ; warning code is 0xed   "); break;  
        case 0xee: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"XRI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xef: fprintf(fp2,"RST    5"); break;
 
        case 0xf0: fprintf(fp2,"RP");  break;
        case 0xf1: fprintf(fp2,"POP    PSW"); break;
        case 0xf2:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JP     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xf3: fprintf(fp2,"DI");  break;
        case 0xf4:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CP     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xf5: fprintf(fp2,"PUSH   PSW"); break;
        case 0xf6: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"ORI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xf7: fprintf(fp2,"RST    6"); break;
        case 0xf8: fprintf(fp2,"RM");  break;
        case 0xf9: fprintf(fp2,"SPHL"); break;
        case 0xfa:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"JM     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xfb: fprintf(fp2,"EI");  break;
        case 0xfc:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]);  fprintf(fp2,"CM     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
         case 0xfd:  fprintf(fp2,"%02x %02x  ",   byte[1], byte[2]); fprintf(fp2,"CALL   $%02x%02x (0xfd xx xx ) ; warning code is 0xfd xx xx",byte[2],byte[1]); opbytes = 3; break;
         //case 0xfd: fprintf(fp2,"- ; warning code is  0xfd ");  break;  
        case 0xfe: fprintf(fp2,"%02x  ",   byte[1] ); fprintf(fp2,"CPI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xff: fprintf(fp2,"RST    7"); break;
    }
 
 
 
    fprintf(fp2,"\n");
 
    return opbytes;
}
 
 
 
// продолжение следует , большой файл , на форум не помещается
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 09:47  [ТС] 6
C
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

//окончание 
int Disassemble8080A(FILE *fp2, Byte *codebuffer, int pc)
{
    Byte *byte = &codebuffer[pc];
    int opbytes = 1;
   fprintf (fp2,"%04x:  ", pc   );
 
    
    switch (*byte)
    {
        case 0x00: fprintf(fp2,"NOP"); break;
        case 0x01: fprintf(fp2,"LXI    B,#$%02x%02x",   byte[2], byte[1]); opbytes = 3; break;
        case 0x02: fprintf(fp2,"STAX   B"); break;
        case 0x03: fprintf(fp2,"INX    B"); break;
        case 0x04: fprintf(fp2,"INR    B"); break;
        case 0x05: fprintf(fp2,"DCR    B"); break;
        case 0x06: fprintf(fp2,"MVI    B,#$%02x", byte[1] );  opbytes = 2; break;
        case 0x07: fprintf(fp2,"RLC"); break;
         case 0x08: fprintf(fp2,"NOP ; warning code is 0x08  "); break;
        //case 0x08: fprintf(fp2,"- ; warning code is 0x08 "); break;    
        case 0x09: fprintf(fp2,"DAD    B"); break;
        case 0x0a: fprintf(fp2,"LDAX   B"); break;
        case 0x0b: fprintf(fp2,"DCX    B"); break;
        case 0x0c: fprintf(fp2,"INR    C"); break;
        case 0x0d: fprintf(fp2,"DCR    C"); break;
        case 0x0e:   fprintf(fp2,"MVI    C,#$%02x", byte[1]); opbytes = 2; break;
        case 0x0f: fprintf(fp2,"RRC    C"); break;
        
        case 0x10: fprintf(fp2,"NOP ; warning code is 0x10"); break;  
      //  case 0x10: fprintf(fp2,"- ; warning code is 0x10"); break;
        case 0x11:  fprintf(fp2,"LXI    D,#$%02x%02x", byte[2], byte[1]); opbytes = 3; break;
        case 0x12: fprintf(fp2,"STAX   D"); break;
        case 0x13: fprintf(fp2,"INX    D"); break;
        case 0x14: fprintf(fp2,"INR    D"); break;
        case 0x15: fprintf(fp2,"DCR    D"); break;
        case 0x16:   fprintf(fp2,"MVI    D,#$%02x", byte[1]); opbytes = 2; break;
        case 0x17: fprintf(fp2,"RAL"); break;
        case 0x18: fprintf(fp2,"NOP ; warning code is 0x18 "); break;
      // case 0x18: fprintf(fp2,"-; warning code is  0x18)"); break; 
        case 0x19: fprintf(fp2,"DAD    D"); break;
        case 0x1a: fprintf(fp2,"LDAX   D"); break;
        case 0x1b: fprintf(fp2,"DCX    D"); break;
        case 0x1c: fprintf(fp2,"INR    E"); break;
        case 0x1d: fprintf(fp2,"DCR    E"); break;
        case 0x1e:  fprintf(fp2,"MVI    E,#$%02x", byte[1]); opbytes = 2 ; break;
        case 0x1f: fprintf(fp2,"RAR"); break;
 
       case 0x20: fprintf(fp2,"NOP ; warning code is  0x20 "); break; 
        //case 0x20: fprintf(fp2,"- ; warning code is  0x20 "); break; //    
        case 0x21: fprintf(fp2,"LXI    H,#$%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x22: fprintf(fp2,"SHLD   $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x23: fprintf(fp2,"INX    H"); break;
        case 0x24: fprintf(fp2,"INR    H"); break;
        case 0x25: fprintf(fp2,"DCR    H"); break;
        case 0x26: fprintf(fp2,"MVI    H,#$%02x", byte[1]); opbytes=2; break;
        case 0x27: fprintf(fp2,"DAA"); break;
         case 0x28: fprintf(fp2,"NOP ; warning code is 0x28 "); break; 
       //case 0x28: fprintf(fp2,"- ; warning code is   0x28 "); break;  
        case 0x29: fprintf(fp2,"DAD    H"); break;
        case 0x2a: fprintf(fp2,"LHLD   $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x2b: fprintf(fp2,"DCX    H"); break;
        case 0x2c: fprintf(fp2,"INR    L"); break;
        case 0x2d: fprintf(fp2,"DCR    L"); break;
        case 0x2e: fprintf(fp2,"MVI    L,#$%02x", byte[1]); opbytes = 2; break;
        case 0x2f: fprintf(fp2,"CMA"); break;
 
 
        case 0x30: fprintf(fp2,"NOP ; warning code is 0x30 "); break;
      //   case 0x30: fprintf(fp2,"- ; warning code is  0x30 "); break; 
        case 0x31: fprintf(fp2,"LXI    SP,#$%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x32: fprintf(fp2,"STA    $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x33: fprintf(fp2,"INX    SP"); break;
        case 0x34: fprintf(fp2,"INR    M"); break;
        case 0x35: fprintf(fp2,"DCR    M"); break;
        case 0x36: fprintf(fp2,"MVI    M,#$%02x", byte[1]); opbytes=2; break;
        case 0x37: fprintf(fp2,"STC"); break;
        case 0x38: fprintf(fp2,"NOP ; warning code is  0x38 "); break;
        //case 0x38: fprintf(fp2,"- ; warning code is  0x38 "); break; 
        case 0x39: fprintf(fp2,"DAD    SP"); break;
        case 0x3a: fprintf(fp2,"LDA    $%02x%02x", byte[2], byte[1]); opbytes=3; break;
        case 0x3b: fprintf(fp2,"DCX    SP"); break;
        case 0x3c: fprintf(fp2,"INR    A"); break;
        case 0x3d: fprintf(fp2,"DCR    A"); break;
        case 0x3e: fprintf(fp2,"MVI    A,#$%02x", byte[1]); opbytes = 2; break;
        case 0x3f: fprintf(fp2,"CMC"); break;
 
        case 0x40: fprintf(fp2,"MOV    B,B"); break;
        case 0x41: fprintf(fp2,"MOV    B,C"); break;
        case 0x42: fprintf(fp2,"MOV    B,D"); break;
        case 0x43: fprintf(fp2,"MOV    B,E"); break;
        case 0x44: fprintf(fp2,"MOV    B,H"); break;
        case 0x45: fprintf(fp2,"MOV    B,L"); break;
        case 0x46: fprintf(fp2,"MOV    B,M"); break;
        case 0x47: fprintf(fp2,"MOV    B,A"); break;
        case 0x48: fprintf(fp2,"MOV    C,B"); break;
        case 0x49: fprintf(fp2,"MOV    C,C"); break;
        case 0x4a: fprintf(fp2,"MOV    C,D"); break;
        case 0x4b: fprintf(fp2,"MOV    C,E"); break;
        case 0x4c: fprintf(fp2,"MOV    C,H"); break;
        case 0x4d: fprintf(fp2,"MOV    C,L"); break;
        case 0x4e: fprintf(fp2,"MOV    C,M"); break;
        case 0x4f: fprintf(fp2,"MOV    C,A"); break;
 
        case 0x50: fprintf(fp2,"MOV    D,B"); break;
        case 0x51: fprintf(fp2,"MOV    D,C"); break;
        case 0x52: fprintf(fp2,"MOV    D,D"); break;
        case 0x53: fprintf(fp2,"MOV    D.E"); break;
        case 0x54: fprintf(fp2,"MOV    D,H"); break;
        case 0x55: fprintf(fp2,"MOV    D,L"); break;
        case 0x56: fprintf(fp2,"MOV    D,M"); break;
        case 0x57: fprintf(fp2,"MOV    D,A"); break;
        case 0x58: fprintf(fp2,"MOV    E,B"); break;
        case 0x59: fprintf(fp2,"MOV    E,C"); break;
        case 0x5a: fprintf(fp2,"MOV    E,D"); break;
        case 0x5b: fprintf(fp2,"MOV    E,E"); break;
        case 0x5c: fprintf(fp2,"MOV    E,H"); break;
        case 0x5d: fprintf(fp2,"MOV    E,L"); break;
        case 0x5e: fprintf(fp2,"MOV    E,M"); break;
        case 0x5f: fprintf(fp2,"MOV    E,A"); break;
 
        case 0x60: fprintf(fp2,"MOV    H,B"); break;
        case 0x61: fprintf(fp2,"MOV    H,C"); break;
        case 0x62: fprintf(fp2,"MOV    H,D"); break;
        case 0x63: fprintf(fp2,"MOV    H.E"); break;
        case 0x64: fprintf(fp2,"MOV    H,H"); break;
        case 0x65: fprintf(fp2,"MOV    H,L"); break;
        case 0x66: fprintf(fp2,"MOV    H,M"); break;
        case 0x67: fprintf(fp2,"MOV    H,A"); break;
        case 0x68: fprintf(fp2,"MOV    L,B"); break;
        case 0x69: fprintf(fp2,"MOV    L,C"); break;
        case 0x6a: fprintf(fp2,"MOV    L,D"); break;
        case 0x6b: fprintf(fp2,"MOV    L,E"); break;
        case 0x6c: fprintf(fp2,"MOV    L,H"); break;
        case 0x6d: fprintf(fp2,"MOV    L,L"); break;
        case 0x6e: fprintf(fp2,"MOV    L,M"); break;
        case 0x6f: fprintf(fp2,"MOV    L,A"); break;
 
        case 0x70: fprintf(fp2,"MOV    M,B"); break;
        case 0x71: fprintf(fp2,"MOV    M,C"); break;
        case 0x72: fprintf(fp2,"MOV    M,D"); break;
        case 0x73: fprintf(fp2,"MOV    M.E"); break;
        case 0x74: fprintf(fp2,"MOV    M,H"); break;
        case 0x75: fprintf(fp2,"MOV    M,L"); break;
        case 0x76: fprintf(fp2,"HLT");        break;
        case 0x77: fprintf(fp2,"MOV    M,A"); break;
        case 0x78: fprintf(fp2,"MOV    A,B"); break;
        case 0x79: fprintf(fp2,"MOV    A,C"); break;
        case 0x7a: fprintf(fp2,"MOV    A,D"); break;
        case 0x7b: fprintf(fp2,"MOV    A,E"); break;
        case 0x7c: fprintf(fp2,"MOV    A,H"); break;
        case 0x7d: fprintf(fp2,"MOV    A,L"); break;
        case 0x7e: fprintf(fp2,"MOV    A,M"); break;
        case 0x7f: fprintf(fp2,"MOV    A,A"); break;
 
        case 0x80: fprintf(fp2,"ADD    B"); break;
        case 0x81: fprintf(fp2,"ADD    C"); break;
        case 0x82: fprintf(fp2,"ADD    D"); break;
        case 0x83: fprintf(fp2,"ADD    E"); break;
        case 0x84: fprintf(fp2,"ADD    H"); break;
        case 0x85: fprintf(fp2,"ADD    L"); break;
        case 0x86: fprintf(fp2,"ADD    M"); break;
        case 0x87: fprintf(fp2,"ADD    A"); break;
        case 0x88: fprintf(fp2,"ADC    B"); break;
        case 0x89: fprintf(fp2,"ADC    C"); break;
        case 0x8a: fprintf(fp2,"ADC    D"); break;
        case 0x8b: fprintf(fp2,"ADC    E"); break;
        case 0x8c: fprintf(fp2,"ADC    H"); break;
        case 0x8d: fprintf(fp2,"ADC    L"); break;
        case 0x8e: fprintf(fp2,"ADC    M"); break;
        case 0x8f: fprintf(fp2,"ADC    A"); break;
 
        case 0x90: fprintf(fp2,"SUB    B"); break;
        case 0x91: fprintf(fp2,"SUB    C"); break;
        case 0x92: fprintf(fp2,"SUB    D"); break;
        case 0x93: fprintf(fp2,"SUB    E"); break;
        case 0x94: fprintf(fp2,"SUB    H"); break;
        case 0x95: fprintf(fp2,"SUB    L"); break;
        case 0x96: fprintf(fp2,"SUB    M"); break;
        case 0x97: fprintf(fp2,"SUB    A"); break;
        case 0x98: fprintf(fp2,"SBB    B"); break;
        case 0x99: fprintf(fp2,"SBB    C"); break;
        case 0x9a: fprintf(fp2,"SBB    D"); break;
        case 0x9b: fprintf(fp2,"SBB    E"); break;
        case 0x9c: fprintf(fp2,"SBB    H"); break;
        case 0x9d: fprintf(fp2,"SBB    L"); break;
        case 0x9e: fprintf(fp2,"SBB    M"); break;
        case 0x9f: fprintf(fp2,"SBB    A"); break;
 
        case 0xa0: fprintf(fp2,"ANA    B"); break;
        case 0xa1: fprintf(fp2,"ANA    C"); break;
        case 0xa2: fprintf(fp2,"ANA    D"); break;
        case 0xa3: fprintf(fp2,"ANA    E"); break;
        case 0xa4: fprintf(fp2,"ANA    H"); break;
        case 0xa5: fprintf(fp2,"ANA    L"); break;
        case 0xa6: fprintf(fp2,"ANA    M"); break;
        case 0xa7: fprintf(fp2,"ANA    A"); break;
        case 0xa8: fprintf(fp2,"XRA    B"); break;
        case 0xa9: fprintf(fp2,"XRA    C"); break;
        case 0xaa: fprintf(fp2,"XRA    D"); break;
        case 0xab: fprintf(fp2,"XRA    E"); break;
        case 0xac: fprintf(fp2,"XRA    H"); break;
        case 0xad: fprintf(fp2,"XRA    L"); break;
        case 0xae: fprintf(fp2,"XRA    M"); break;
        case 0xaf: fprintf(fp2,"XRA    A"); break;
 
        case 0xb0: fprintf(fp2,"ORA    B"); break;
        case 0xb1: fprintf(fp2,"ORA    C"); break;
        case 0xb2: fprintf(fp2,"ORA    D"); break;
        case 0xb3: fprintf(fp2,"ORA    E"); break;
        case 0xb4: fprintf(fp2,"ORA    H"); break;
        case 0xb5: fprintf(fp2,"ORA    L"); break;
        case 0xb6: fprintf(fp2,"ORA    M"); break;
        case 0xb7: fprintf(fp2,"ORA    A"); break;
        case 0xb8: fprintf(fp2,"CMP    B"); break;
        case 0xb9: fprintf(fp2,"CMP    C"); break;
        case 0xba: fprintf(fp2,"CMP    D"); break;
        case 0xbb: fprintf(fp2,"CMP    E"); break;
        case 0xbc: fprintf(fp2,"CMP    H"); break;
        case 0xbd: fprintf(fp2,"CMP    L"); break;
        case 0xbe: fprintf(fp2,"CMP    M"); break;
        case 0xbf: fprintf(fp2,"CMP    A"); break;
 
        case 0xc0: fprintf(fp2,"RNZ"); break;
        case 0xc1: fprintf(fp2,"POP    B"); break;
        case 0xc2: fprintf(fp2,"JNZ    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc3: fprintf(fp2,"JMP    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc4: fprintf(fp2,"CNZ    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xc5: fprintf(fp2,"PUSH   B"); break;
        case 0xc6: fprintf(fp2,"ADI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xc7: fprintf(fp2,"RST    0"); break;
        case 0xc8: fprintf(fp2,"RZ"); break;
        case 0xc9: fprintf(fp2,"RET"); break;
        case 0xca: fprintf(fp2,"JZ     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xcb: fprintf(fp2,"CALL   $%02x%02x",byte[2],byte[1]); fprintf(fp2,"JMP    $%02x%02x ; warning code is 0xcb xx xx ",byte[2],byte[1]); opbytes = 3; break;  
      //case 0xcb: fprintf(fp2,"- ; warning code is 0xcb" );   break; 
        case 0xcc: fprintf(fp2,"CZ     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xcd: fprintf(fp2,"CALL   $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xce:  fprintf(fp2,"ACI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xcf: fprintf(fp2,"RST    1"); break;
 
        case 0xd0: fprintf(fp2,"RNC"); break;
        case 0xd1: fprintf(fp2,"POP    D"); break;
        case 0xd2: fprintf(fp2,"JNC    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xd3:  fprintf(fp2,"OUT    #$%02x",byte[1]); opbytes = 2; break;
        case 0xd4: fprintf(fp2,"CNC    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xd5: fprintf(fp2,"PUSH   D"); break;
        case 0xd6:  fprintf(fp2,"SUI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xd7: fprintf(fp2,"RST    2"); break;
        case 0xd8: fprintf(fp2,"RC");  break;
         case 0xd9: fprintf(fp2,"RET ; warning code is    0xd9 "); break;
        //case 0xd9: fprintf(fp2,"- ; warning code is  0xd9 "); break;   
        case 0xda: fprintf(fp2,"JC     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xdb:   fprintf(fp2,"IN     #$%02x",byte[1]); opbytes = 2; break;
        case 0xdc: fprintf(fp2,"CC     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xdd: fprintf(fp2,"CALL   $%02x%02x ; warning code is 0xdd xx xx",byte[2],byte[1]); opbytes = 3; break;
       // case 0xdd: fprintf(fp2,"- ; warning code is  0xdd "); break;  
        case 0xde:  fprintf(fp2,"SBI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xdf: fprintf(fp2,"RST    3"); break;
 
        case 0xe0: fprintf(fp2,"RPO"); break;
        case 0xe1: fprintf(fp2,"POP    H"); break;
        case 0xe2: fprintf(fp2,"JPO    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xe3: fprintf(fp2,"XTHL");break;
        case 0xe4: fprintf(fp2,"CPO    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xe5: fprintf(fp2,"PUSH   H"); break;
        case 0xe6:   fprintf(fp2,"ANI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xe7: fprintf(fp2,"RST    4"); break;
        case 0xe8: fprintf(fp2,"RPE"); break;
        case 0xe9: fprintf(fp2,"PCHL");break;
        case 0xea: fprintf(fp2,"JPE    $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xeb: fprintf(fp2,"XCHG"); break;
        case 0xec: fprintf(fp2,"CPE     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
         case 0xed: fprintf(fp2,"CALL   $%02x%02x ; warning code is 0xed xx xx",byte[2],byte[1]); opbytes = 3; break;
         //case 0xed: fprintf(fp2,"- ; warning code is 0xed "); break;   
        case 0xee:  fprintf(fp2,"XRI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xef: fprintf(fp2,"RST    5"); break;
 
        case 0xf0: fprintf(fp2,"RP");  break;
        case 0xf1: fprintf(fp2,"POP    PSW"); break;
        case 0xf2: fprintf(fp2,"JP     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xf3: fprintf(fp2,"DI");  break;
        case 0xf4: fprintf(fp2,"CP     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xf5: fprintf(fp2,"PUSH   PSW"); break;
        case 0xf6:  fprintf(fp2,"ORI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xf7: fprintf(fp2,"RST    6"); break;
        case 0xf8: fprintf(fp2,"RM");  break;
        case 0xf9: fprintf(fp2,"SPHL");break;
        case 0xfa: fprintf(fp2,"JM     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xfb: fprintf(fp2,"EI");  break;
        case 0xfc: fprintf(fp2,"CM     $%02x%02x",byte[2],byte[1]); opbytes = 3; break;
        case 0xfd: fprintf(fp2,"CALL   $%02x%02x ; warning code is 0xfd xx xx",byte[2],byte[1]); opbytes = 3; break;
         //case 0xfd: fprintf(fp2,"- ; warning code is 0xfd ");  break;  //
        case 0xfe:   fprintf(fp2,"CPI    #$%02x",byte[1]); opbytes = 2; break;
        case 0xff: fprintf(fp2,"RST    7"); break;
    }
 
 
 
    fprintf(fp2,"\n");
 
    return opbytes;
}
 
 
 
 
 
 
 
 
 
char *getLine(FILE *stream) {
    char * line = malloc(100), * linep = line;
    size_t lenmax = 100, len = lenmax;
    int c;
 
    if(line == NULL)
        return NULL;
 
    for(;;) {
        c = fgetc(stream);
        if(c == EOF)
            break;
 
        if(--len == 0) {
            len = lenmax;
            char * linen = realloc(linep, lenmax *= 2);
 
            if(linen == NULL) {
                free(linep);
                return NULL;
            }
            line = linen + (line - linep);
            linep = linen;
        }
 
        if((*line++ = c) == '\n')
            break;
    }
    *--line = '\0';
    return linep;
}
 
int main() {
    char* file_name;
    char* file_name2;
    puts("Please enter the filename of the file for disassembling (file1.bin) :\n");
    file_name = getLine(stdin);
    
    
 
    FILE *fp, *fp2;
    fp = fopen(file_name, "rb");
    if (!fp) {
        printf("error: Unable to open %s\n", file_name);
        exit(EXIT_FAILURE);
    }
 
    puts("\nPlease enter the file for output listing (file1.asm) :\n");
    file_name2 =  getLine(stdin);
    fp2 = fopen(file_name2, "w");
    
    if (!fp2) {
        printf("error: Unable to open %s\n", file_name2);
        exit(EXIT_FAILURE);
    }
 
 puts("\nInput 0 for  assembler output  code only in the listing   \nInput 1 for create disassembled  code with data bytes :\n");
int  n;
scanf("%d",&n);
 
 
    fseek(fp, 0L , SEEK_END);
    int size = ftell(fp);
   // fseek(fp, 0L , SEEK_SET);
    rewind ( fp);
 
    Byte *data = malloc(sizeof(Byte) * size);
    
    
    fread(data, size, 1, fp);
 
    fclose(fp);
   
    int pc=0;
 
 
    while (pc < size) {
        
        if (n==1) {
     
        pc += Disassemble8080AL(fp2, data, pc);
       }
       else
       {
     
        pc += Disassemble8080A(fp2, data, pc);
       }
       
       
    }
fclose(fp2);
    return EXIT_SUCCESS;
}
Добавлено через 1 минуту
Я бы поменял поинтерный "механизм" ввода имени и байтов на более внятный и устойчивый к типам данных в C++.

Добавлено через 12 минут
Интеллектуальное распознавание сегмента данных пока не поддерживается.

Добавлено через 1 час 50 минут
Программа авторасстановки меток (в стиле "Label_addr_%x%x:" ) по данным для команд , способных вызывать подпрограмму с некоторого адреса пока не имплементована . Вариант , совместимый с некторыми синтаксисами для эмуляторов КР580ВМ80А (там проблема с org 0x0800 вместо 0x0000 ) еще дорабатывается.

Добавлено через 1 час 26 минут
Для некоторых команд исправить мнемоники .
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 11:57  [ТС] 7
C
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

int Disassemble8080A(FILE *fp2, Byte *codebuffer, int pc)
{
    Byte *byte = &codebuffer[pc];
    int opbytes = 1;
   //fprintf (fp2,"%04x:  ", pc   );
 fprintf (fp2,"Addr_%04x: ", pc   );
    
    switch (*byte)
    {
        case 0x00: fprintf(fp2,"nop ; no operate "); break;
        case 0x01: fprintf(fp2,"lxi    B,  %02x%02x ;  HL <-d16",   byte[2], byte[1]); opbytes = 3; break;
        case 0x02: fprintf(fp2,"stax   B ;  A ->Loc(BC) "); break;
        case 0x03: fprintf(fp2,"inx    B ; (BC)++"); break;
        case 0x04: fprintf(fp2,"inr    B ; (B)++  "); break;
        case 0x05: fprintf(fp2,"dcr    B ; (B)-- "); break;
        case 0x06: fprintf(fp2,"mvi    B, %02x ;B<-d8 ", byte[1] );  opbytes = 2; break;
        case 0x07: fprintf(fp2,"rlc "); break;
         case 0x08: fprintf(fp2,"nop ; warning code is 0x08  "); break;
        //case 0x08: fprintf(fp2,"- ; warning code is 0x08 "); break;    
        case 0x09: fprintf(fp2,"dad    B "); break;
        case 0x0a: fprintf(fp2,"ldax   B ; A <-Loc(BC) "); break;
        case 0x0b: fprintf(fp2,"dcx   B ; (BC)-- "); break;
        case 0x0c: fprintf(fp2,"inr    C ; (C)++ "); break;
        case 0x0d: fprintf(fp2,"dcr    C ; (C)-- "); break;
        case 0x0e:   fprintf(fp2,"mvi   C, %02x ; C<-d8 ", byte[1]); opbytes = 2; break;
        case 0x0f: fprintf(fp2,"rrc "); break;
        
        case 0x10: fprintf(fp2,"nop ; warning code is 0x10"); break;  
      //  case 0x10: fprintf(fp2,"- ; warning code is 0x10"); break;
        case 0x11:  fprintf(fp2,"lxi    D, %02x%02x ; Loc(DE)<-d16 ", byte[2], byte[1]); opbytes = 3; break;
        case 0x12: fprintf(fp2,"stax   D ; A ->Loc(DE)"); break;
        case 0x13: fprintf(fp2,"inx    D ; (DE)++"); break;
        case 0x14: fprintf(fp2,"inr    D ; (D)++ "); break;
        case 0x15: fprintf(fp2,"dcr    D ; (D)--  "); break;
        case 0x16:   fprintf(fp2,"mvi    D, %02x ; D<-d8 ", byte[1]); opbytes = 2; break;
        case 0x17: fprintf(fp2,"ral"); break;
        case 0x18: fprintf(fp2,"nop ; warning code is 0x18 "); break;
      // case 0x18: fprintf(fp2,"-; warning code is  0x18) "); break; 
        case 0x19: fprintf(fp2,"dad    D "); break;
        case 0x1a: fprintf(fp2,"ldax   D ; A <-MemLoc(DE)"); break;
        case 0x1b: fprintf(fp2,"dcx    D ; (DE)--  "); break;
        case 0x1c: fprintf(fp2,"inr    E ; (E)++ "); break;
        case 0x1d: fprintf(fp2,"dcr    E ; (E)-- "); break;
        case 0x1e:  fprintf(fp2,"mvi    E, %02x  ; E<-d8 ", byte[1]); opbytes = 2 ; break;
        case 0x1f: fprintf(fp2,"rar "); break;
 
       case 0x20: fprintf(fp2,"nop ; warning code is  0x20 "); break; 
        //case 0x20: fprintf(fp2,"- ; warning code is  0x20 "); break; //    
        case 0x21: fprintf(fp2,"lxi    H, %02x%02x ", byte[2], byte[1]); opbytes=3; break;
        case 0x22: fprintf(fp2,"shld     %02x%02x   ; Store H & L direct , HL -> Loc(a16) ", byte[2], byte[1]); opbytes=3; break;
        case 0x23: fprintf(fp2,"inx    H ; (HL)++ "); break;
        case 0x24: fprintf(fp2,"inr    H ; (H)++"); break;
        case 0x25: fprintf(fp2,"dcr    H ; (H)-- "); break;
        case 0x26: fprintf(fp2,"mvi    H, %02x ; H<-d8 ", byte[1]); opbytes=2; break;
        case 0x27: fprintf(fp2,"daa "); break;
         case 0x28: fprintf(fp2,"nop ; warning code is 0x28 "); break; 
       //case 0x28: fprintf(fp2,"- ; warning code is   0x28 "); break;  
        case 0x29: fprintf(fp2,"dad    H; Add B&C to H&L"); break;
        case 0x2a: fprintf(fp2,"lhld     %02x%02x ", byte[2], byte[1]); opbytes=3; break;
        case 0x2b: fprintf(fp2,"dcx    H ; (HL)-- "); break;
        case 0x2c: fprintf(fp2,"inr    L   ; (L)++ "); break;
        case 0x2d: fprintf(fp2,"dcr    L  ; (L)-- "); break;
        case 0x2e: fprintf(fp2,"mvi    L, %02x ; L<- d8 ", byte[1]); opbytes = 2; break;
        case 0x2f: fprintf(fp2,"cma ; A<-not(A) "); break;
 
 
        case 0x30: fprintf(fp2,"nop ; warning code is 0x30 "); break;
      //   case 0x30: fprintf(fp2,"- ; warning code is  0x30 "); break; 
        case 0x31: fprintf(fp2,"lxi    SP, %02x%02x ", byte[2], byte[1]); opbytes=3; break;
        case 0x32: fprintf(fp2,"sta     %02x%02x ", byte[2], byte[1]); opbytes=3; break;
        case 0x33: fprintf(fp2,"inx    SP ; Increment stack pointer "); break;
        case 0x34: fprintf(fp2,"inr    M ; Loc(HL)++ "); break;
        case 0x35: fprintf(fp2,"dcr    M ; Loc(HL)-- "); break;
        case 0x36: fprintf(fp2,"mvi    M, %02x ; Loc(HL)<-d8 ", byte[1]); opbytes=2; break;
        case 0x37: fprintf(fp2,"stc ; CF=1 "); break;
        case 0x38: fprintf(fp2,"nop ; warning code is  0x38 "); break;
        //case 0x38: fprintf(fp2,"- ; warning code is  0x38 "); break; 
        case 0x39: fprintf(fp2,"dad    SP "); break;
        case 0x3a: fprintf(fp2,"lda     %02x%02x  ; load address Addr_xxxx ", byte[2], byte[1]); opbytes=3; break;
        case 0x3b: fprintf(fp2,"dcx    SP ; Decrement stack pointer "); break;
        case 0x3c: fprintf(fp2,"inr    A  ; (A)++"); break;
        case 0x3d: fprintf(fp2,"dcr    A ;  (A)--"); break;
        case 0x3e: fprintf(fp2,"mvi    A, %02x ; A<-d8", byte[1]); opbytes = 2; break;
        case 0x3f: fprintf(fp2,"cmc  ; CF=NOT(CF) "); break;
 
        case 0x40: fprintf(fp2,"mov    B, B ; (B)<-(B) "); break;
        case 0x41: fprintf(fp2,"mov    B, C ; (B)<-(C) "); break;
        case 0x42: fprintf(fp2,"mov    B, D ; (B)<-(D) "); break;
        case 0x43: fprintf(fp2,"mov    B, E ;  (B)<-(E) "); break;
        case 0x44: fprintf(fp2,"mov    B, H ;  (B)<-(H) "); break;
        case 0x45: fprintf(fp2,"mov    B, L ;  (B)<-(L) "); break;
        case 0x46: fprintf(fp2,"mov    B, M ; (B)<-MemLoc(HL) "); break;
        case 0x47: fprintf(fp2,"mov    B, A ; (B)<-(A) "); break;
        case 0x48: fprintf(fp2,"mov    C, B ; (C)<-(B) "); break;
        case 0x49: fprintf(fp2,"mov    C, C ; (C)<-(C) "); break;
        case 0x4a: fprintf(fp2,"mov    C, D ; (C)<-(D)  "); break;
        case 0x4b: fprintf(fp2,"mov    C, E ; (C)<-(E) "); break;
        case 0x4c: fprintf(fp2,"mov    C, H ; (C)<-(H) "); break;
        case 0x4d: fprintf(fp2,"mov    C, L  ; (C)<-(L) "); break;
        case 0x4e: fprintf(fp2,"mov    C, M ; (C)<-MemLoc(HL) "); break;
        case 0x4f: fprintf(fp2,"mov    C, A ; (C)<-(A) "); break;
 
        case 0x50: fprintf(fp2,"mov    D, B ; (D)<-(B) "); break;
        case 0x51: fprintf(fp2,"mov    D, C ; (D)<-(C) "); break;
        case 0x52: fprintf(fp2,"mov    D, D ; (D)<-(D) "); break;
        case 0x53: fprintf(fp2,"mov    D, E ; (D)<-(E) "); break;
        case 0x54: fprintf(fp2,"mov    D, H ; (D)<-(H) "); break;
        case 0x55: fprintf(fp2,"mov    D, L ; (D)<-(L) "); break;
        case 0x56: fprintf(fp2,"mov    D, M ; (D)<-MemLoc(HL) "); break;
        case 0x57: fprintf(fp2,"mov    D, A ; (D)<-(A) "); break;
        case 0x58: fprintf(fp2,"mov    E, B ; (E)<-(B) "); break;
        case 0x59: fprintf(fp2,"mov    E, C ; (E)<-(C) "); break;
        case 0x5a: fprintf(fp2,"mov    E, D ; (E)<-(D) "); break;
        case 0x5b: fprintf(fp2,"mov    E, E ; (E)<-(E) "); break;
        case 0x5c: fprintf(fp2,"mov    E, H ; (E)<-(H) "); break;
        case 0x5d: fprintf(fp2,"mov    E, L ; (E)<-(L) "); break;
        case 0x5e: fprintf(fp2,"mov    E, M ; (E)<-MemLoc(HL) "); break;
        case 0x5f: fprintf(fp2,"mov    E, A ; (E)<-(A) "); break;
 
        case 0x60: fprintf(fp2,"mov    H, B ; (H)<-(B) "); break;
        case 0x61: fprintf(fp2,"mov    H, C ; (H)<-(C) "); break;
        case 0x62: fprintf(fp2,"mov    H, D ; (H)<-(D)  "); break;
        case 0x63: fprintf(fp2,"mov    H, E ; (H)<-(E) "); break;
        case 0x64: fprintf(fp2,"mov    H, H ; (H)<-(H) "); break;
        case 0x65: fprintf(fp2,"mov    H, L ; (H)<-(L) "); break;
        case 0x66: fprintf(fp2,"mov    H, M ; (H)<-(M) "); break;
        case 0x67: fprintf(fp2,"mov    H, A ; (H)<-(A)  "); break;
        case 0x68: fprintf(fp2,"mov    L, B ; (L)<-(B) "); break;
        case 0x69: fprintf(fp2,"mov    L, C ; (L)<-(C) "); break;
        case 0x6a: fprintf(fp2,"mov    L, D ; (L)<-(D) "); break;
        case 0x6b: fprintf(fp2,"mov    L, E ; (L)<-(E) "); break;
        case 0x6c: fprintf(fp2,"mov    L, H ; (L)<-(H) "); break;
        case 0x6d: fprintf(fp2,"mov    L, L ; (L)<-(L) "); break;
        case 0x6e: fprintf(fp2,"mov    L, M ; (L)<-MemLoc(HL) "); break;
        case 0x6f: fprintf(fp2,"mov    L, A ; (L)<-(A) "); break;
 
        case 0x70: fprintf(fp2,"mov    M, B ; (M)<-(B) "); break;
        case 0x71: fprintf(fp2,"mov    M, C ; (M)<-(C) "); break;
        case 0x72: fprintf(fp2,"mov    M, D ; (M)<-(D) "); break;
        case 0x73: fprintf(fp2,"mov    M, E ; (M)<-(E) "); break;
        case 0x74: fprintf(fp2,"mov    M, H ; (M)<-(H) "); break;
        case 0x75: fprintf(fp2,"mov   M, L ; (M)<-(L) "); break;
        case 0x76: fprintf(fp2,"hlt ; halt ");        break;
        case 0x77: fprintf(fp2,"mov    M, A ; (M)<-(A) "); break;
        case 0x78: fprintf(fp2,"mov    A, B ; (A)<-(B) "); break;
        case 0x79: fprintf(fp2,"mov    A, C ; (A)<-(C) "); break;
        case 0x7a: fprintf(fp2,"mov    A, D ; (A)<-(D) "); break;
        case 0x7b: fprintf(fp2,"mov    A, E ; (A)<-(E) "); break;
        case 0x7c: fprintf(fp2,"mov    A, H ; (A)<-(H) "); break;
        case 0x7d: fprintf(fp2,"mov    A, L ; (A)<-(L) "); break;
        case 0x7e: fprintf(fp2,"mov    A, M ; (A)<-MemLoc(HL) "); break;
        case 0x7f: fprintf(fp2,"mov    A, A ; (A)<-(A) "); break;
 
        case 0x80: fprintf(fp2,"add    B ; A<-(B) + (A) "); break;
        case 0x81: fprintf(fp2,"add    C ; A<-(C) + (A) "); break;
        case 0x82: fprintf(fp2,"add    D ; A<-(D) + (A) "); break;
        case 0x83: fprintf(fp2,"add    E ; A<-(E) + (A) "); break;
        case 0x84: fprintf(fp2,"add    H ; A<-(H) + (A) "); break;
        case 0x85: fprintf(fp2,"add    L  ; A<-(L) + (A) "); break;
        case 0x86: fprintf(fp2,"add    M ; A<-MemLoc(HL) + (A) "); break;
        case 0x87: fprintf(fp2,"add    A  ; A<-(A) + (A) "); break;
        case 0x88: fprintf(fp2,"adc    B ; A<-(B) + (A) + CY "); break;
        case 0x89: fprintf(fp2,"adc    C ; A<-(C) + (A) + CY "); break;
        case 0x8a: fprintf(fp2,"adc    D ; A<-(D) + (A) + CY "); break;
        case 0x8b: fprintf(fp2,"adc    E ; A<-(E) + (A) + CY "); break;
        case 0x8c: fprintf(fp2,"adc    H ; A<-(H) + (A) + CY "); break;
        case 0x8d: fprintf(fp2,"adc    L  ; A<-(L) + (A) + CY  "); break;
        case 0x8e: fprintf(fp2,"adc    M ; A<-MemLoc(HL) + (A) + CY"); break;
        case 0x8f: fprintf(fp2,"adc    A   ; A<-(A) + (A) + CY "); break;
 
        case 0x90: fprintf(fp2,"sub    B  ;    A<-(B)-(A) "); break;
        case 0x91: fprintf(fp2,"sub    C  ;    A<-(C)-(A) "); break;
        case 0x92: fprintf(fp2,"sub    D  ;    A<-(D)-(A) "); break;
        case 0x93: fprintf(fp2,"sub    E  ;    A<-(E)-(A) "); break;
        case 0x94: fprintf(fp2,"sub    H  ;    A<-(H)-(A) "); break;
        case 0x95: fprintf(fp2,"sub    L  ;    A<-(L)-(A) "); break;
        case 0x96: fprintf(fp2,"sub    M  ;    A<-MemLoc(HL)-(A) "); break;
        case 0x97: fprintf(fp2,"sub    A  ; A<-(A)-(A) (clear A) "); break;
        case 0x98: fprintf(fp2,"sbb   B ; Subtract (B) from (A) with borrow "); break;
        case 0x99: fprintf(fp2,"sbb    C  ; Subtract (C) from (A) with borrow "); break;
        case 0x9a: fprintf(fp2,"sbb    D  ; Subtract (D) from (A) with borrow "); break;
        case 0x9b: fprintf(fp2,"sbb    E  ; Subtract (E) from (A) with borrow "); break;
        case 0x9c: fprintf(fp2,"sbb    H  ; Subtract (H) from (A) with borrow "); break;
        case 0x9d: fprintf(fp2,"sbb    L  ; Subtract (L) from (A) with borrow "); break;
        case 0x9e: fprintf(fp2,"sbb    M  ; Subtract MemLoc(HL) from (A) with borrow "); break;
        case 0x9f: fprintf(fp2,"sbb     A    ; Subtract (A) from (A) with borrow  (clear A) "); break;
 
        case 0xa0: fprintf(fp2,"ana    B ;  A<-(B) And  ( A) "); break;
        case 0xa1: fprintf(fp2,"ana    C ;  A<-(C) And  ( A) "); break;
        case 0xa2: fprintf(fp2,"ana    D ;  A<-(D) And  ( A) "); break;
        case 0xa3: fprintf(fp2,"ana    E ;  A<-(E) And  ( A) "); break;
        case 0xa4: fprintf(fp2,"ana    H ;  A<-(H) And  ( A) "); break;
        case 0xa5: fprintf(fp2,"ana    L  ;  A<-(L) And  ( A) "); break;
        case 0xa6: fprintf(fp2,"ana    M ;  A<-Loc(HL) And  (A) "); break;
        case 0xa7: fprintf(fp2,"ana    A ; A<-(A) And  ( A) =1 "); break;
        case 0xa8: fprintf(fp2,"xra    B ; A<-(B) xor (A) "); break;
        case 0xa9: fprintf(fp2,"xra    C ; A<-(C) xor (A)"); break;
        case 0xaa: fprintf(fp2,"xra    D ; A<-(D) xor (A)"); break;
        case 0xab: fprintf(fp2,"xra    E ; A<-(E) xor (A)"); break;
        case 0xac: fprintf(fp2,"xra    H ; A<-(H) xor (A)"); break;
        case 0xad: fprintf(fp2,"xra    L  ; A<-(L) xor (A)"); break;
        case 0xae: fprintf(fp2,"xra    M ; A<-Loc(HL) xor (A) "); break;
        case 0xaf: fprintf(fp2,"xra    A ; A<-(A) xor (A)=0 "); break;
 
        case 0xb0: fprintf(fp2,"ora    B ;  (A) or (B) "); break;
        case 0xb1: fprintf(fp2,"ora    C ;  (A) or (C) "); break;
        case 0xb2: fprintf(fp2,"ora    D ;  (A) or (D)  "); break;
        case 0xb3: fprintf(fp2,"ora    E ;  (A) or (E) "); break;
        case 0xb4: fprintf(fp2,"ora    H ;  (A) or (H) " ); break;
        case 0xb5: fprintf(fp2,"ora    L  ; (A) or (L) "); break;
        case 0xb6: fprintf(fp2,"ora    M  (A) or (M) "); break;
        case 0xb7: fprintf(fp2,"ora    A ;  (A) or (A)=1 , CF=0 "); break;
        case 0xb8: fprintf(fp2,"cmp    B ; compare A with  B  "); break;
        case 0xb9: fprintf(fp2,"cmp    C  ; compare A with  C  "); break;
        case 0xba: fprintf(fp2,"cmp    D  ; compare A with  D  "); break;
        case 0xbb: fprintf(fp2,"cmp    E  ; compare A with  E  "); break;
        case 0xbc: fprintf(fp2,"cmp    H  ; compare A with  H  "); break;
        case 0xbd: fprintf(fp2,"cmp    L  ; compare A with  L  "); break;
        case 0xbe: fprintf(fp2,"cmp    M  ; compare A with  M(HL) "); break;
        case 0xbf: fprintf(fp2,"cmp    A ; setFZ "); break;
 
        case 0xc0: fprintf(fp2,"rnz ; Return on no zero "); break;
        case 0xc1: fprintf(fp2,"pop    B ; Pop register Pair B  & C off stack"); break;
        case 0xc2: fprintf(fp2,"jnz      Addr_%02x%02x ; Jump on no zero \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xc3: fprintf(fp2,"jmp     Addr_%02x%02x ; Jump \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xc4: fprintf(fp2,"cnz      Addr_%02x%02x ; Call on no zero",byte[2],byte[1]); opbytes = 3; break;
        case 0xc5: fprintf(fp2,"push   B ; Push register Pair B & C on stack"); break;
        case 0xc6: fprintf(fp2,"adi     %02x ",byte[1]); opbytes = 2; break;
        case 0xc7: fprintf(fp2,"rst0 ; restart Addr_0000 h"); break;
        case 0xc8: fprintf(fp2,"rz "); break;
        case 0xc9: fprintf(fp2,"ret \n"); break;
        case 0xca: fprintf(fp2,"jz      Addr_%02x%02x \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xcb: fprintf(fp2,"jmp    Addr_%02x%02x ; warning code is 0xcb xx xx \n",byte[2],byte[1]); opbytes = 3; break;  
                          
      //case 0xcb: fprintf(fp2,"- ; warning code is 0xcb " );   break; 
        case 0xcc: fprintf(fp2,"cz      Addr_%02x%02x ; Call on zero",byte[2],byte[1]); opbytes = 3; break;
        case 0xcd: fprintf(fp2,"call    Addr_%02x%02x ",byte[2],byte[1]); opbytes = 3; break;
        case 0xce:  fprintf(fp2,"aci     %02x ; Add immediate  A with carry ",byte[1]); opbytes = 2; break;
        case 0xcf: fprintf(fp2,"rst1 ; restart Addr_0008 h"); break;
 
        case 0xd0: fprintf(fp2,"rnc "); break;
        case 0xd1: fprintf(fp2,"pop    D ; Pop register Pair D & E off tack"); break;
        case 0xd2: fprintf(fp2,"jnc    Addr_%02x%02x \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xd3:  fprintf(fp2,"out    %02x ",byte[1]); opbytes = 2; break;
        case 0xd4: fprintf(fp2,"cnc     Addr_%02x%02x ",byte[2],byte[1]); opbytes = 3; break;
        case 0xd5: fprintf(fp2,"push   D "); break;
        case 0xd6:  fprintf(fp2,"sui     %02x ",byte[1]); opbytes = 2; break;
        case 0xd7: fprintf(fp2,"rst2 ; restart Addr_0010 h"); break;
        case 0xd8: fprintf(fp2,"rc ");  break;
         case 0xd9: fprintf(fp2,"ret ; warning code is    0xd9 "); break;
        //case 0xd9: fprintf(fp2,"- ; warning code is  0xd9 "); break;   
        case 0xda: fprintf(fp2,"jc      Addr_%02x%02x \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xdb:   fprintf(fp2,"in      %02x ",byte[1]); opbytes = 2; break;
        case 0xdc: fprintf(fp2,"cc      Addr_%02x%02x ; Call on carry ",byte[2],byte[1]); opbytes = 3; break;
        case 0xdd: fprintf(fp2,"call    Addr_%02x%02x ; warning code is 0xdd xx xx ",byte[2],byte[1]); opbytes = 3; break;
       // case 0xdd: fprintf(fp2,"- ; warning code is  0xdd "); break;  
        case 0xde:  fprintf(fp2,"sbi    %02x ",byte[1]); opbytes = 2; break;
        case 0xdf: fprintf(fp2,"rst3 ; restart Addr_0018 h"); break;
 
        case 0xe0: fprintf(fp2,"rpo ; Return on parity odd \n"); break;
        case 0xe1: fprintf(fp2,"pop    H "); break;
        case 0xe2: fprintf(fp2,"jpo     Addr_%02x%02x \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xe3: fprintf(fp2,"xthl ");break;
        case 0xe4: fprintf(fp2,"cpo     Addr_%02x%02x ",byte[2],byte[1]); opbytes = 3; break;
        case 0xe5: fprintf(fp2,"push   H "); break;
        case 0xe6:   fprintf(fp2,"ani    %02x ",byte[1]); opbytes = 2; break;
        case 0xe7: fprintf(fp2,"rst4 ; restart Addr_0020 h"); break;
        case 0xe8: fprintf(fp2,"rpe \n"); break;
        case 0xe9: fprintf(fp2,"pchl ");break;
        case 0xea: fprintf(fp2,"jpe      Addr_%02x%02x \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xeb: fprintf(fp2,"xchg "); break;
        case 0xec: fprintf(fp2,"cpe      Addr_%02x%02x",byte[2],byte[1]); opbytes = 3; break;
         case 0xed: fprintf(fp2,"call    Addr_%02x%02x ; warning code is 0xed xx xx ",byte[2],byte[1]); opbytes = 3; break;
         //case 0xed: fprintf(fp2,"- ; warning code is 0xed "); break;   
        case 0xee:  fprintf(fp2,"xri     %02x",byte[1]); opbytes = 2; break;
        case 0xef: fprintf(fp2,"rst5 ; restart Addr_0028 h"); break;
 
        case 0xf0: fprintf(fp2,"rp ; Return on positive \n");  break;
        case 0xf1: fprintf(fp2,"pop    PSW "); break;
        case 0xf2: fprintf(fp2,"jp      Addr_%02x%02x \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xf3: fprintf(fp2,"di ");  break;
        case 0xf4: fprintf(fp2,"cp      Addr_%02x%02x ",byte[2],byte[1]); opbytes = 3; break;
        case 0xf5: fprintf(fp2,"push   PSW "); break;
        case 0xf6:  fprintf(fp2,"ori     %02x ",byte[1]); opbytes = 2; break;
        case 0xf7: fprintf(fp2,"rst6 ; restart Addr_0030 h"); break;
        case 0xf8: fprintf(fp2,"rm ");  break;
        case 0xf9: fprintf(fp2,"sphl ; H & L to stack pointer ");break;
        case 0xfa: fprintf(fp2,"jm      Addr_%02x%02x \n",byte[2],byte[1]); opbytes = 3; break;
        case 0xfb: fprintf(fp2,"ei ");  break;
        case 0xfc: fprintf(fp2,"cm     Addr_%02x%02x ; Call subroutine from a16 on minus ",byte[2],byte[1]); opbytes = 3; break;
        case 0xfd: fprintf(fp2,"call    %02x%02x ; warning code is 0xfd xx xx ",byte[2],byte[1]); opbytes = 3; break;
         //case 0xfd: fprintf(fp2,"- ; warning code is 0xfd ");  break;  //
        case 0xfe:   fprintf(fp2,"cpi     %02x ",byte[1]); opbytes = 2; break;
        case 0xff: fprintf(fp2,"rst7 ; restart Addr_0038 h"); break;
    }
 
 
 
    fprintf(fp2,"\n");
 
    return opbytes;
}
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 11:59  [ТС] 8
для эмулятора 8080A
Вложения
Тип файла: 7z 86_58080.7z (378.9 Кб, 17 просмотров)
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
15.12.2019, 22:13  [ТС] 9
Возможна редакция выходного под pretty-8080-assembler (из интернета ) для проверки работоспособности (перед hex -числами 0x , org 0 в начале , пример самого ассемблера для интернет-эксплорера и edge- explorer в аттаче )


https://github.com/svofski/pretty-8080-assembler
Вложения
Тип файла: zip pretty-8080-assembler-master.zip (278.2 Кб, 16 просмотров)
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
16.12.2019, 01:58  [ТС] 10
Вариант под pretty-8080-assembler (концептуально , может содержать баги , под DevC++ )
Вложения
Тип файла: zip disasm8080_opcode_Prasm_test_.zip (205.5 Кб, 16 просмотров)
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
16.12.2019, 05:18  [ТС] 11
Некоторые команды и их длина при наличии в тексте сегментов с данными иногда неправильно распознаются , использовать ручной выбор , доработать программу, проверить на отсутствие багов в командах и их длине (особенно недокументированных команд ) , добавить обработку по сегментом, вводя начальный адрес и прибавляя его с счетчику байтов , обрабатывая по частям (встроив в редактор с метками сегментов данных и т.д. ).

Добавлено через 41 секунду
Ассемблер пока еще лучше посмотреть в интернете, "погуглить" .

Добавлено через 2 часа 41 минуту
Для pretty-8080-assembler при сохранении 8-битного . com файла для эмулятора переименовать его в .bin и испытывать нашим файлом на дизассемблирование . Сам 8-битный нестандартный .com-файл не открывать (с 16-битной...-64 битной x86- архитектурой он не совместим, а открывается только внутри виртуальной машины).
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
17.12.2019, 01:43  [ТС] 12
альтернативный вариант
Вложения
Тип файла: zip disasm8080_opcode_Prasm1.zip (47.3 Кб, 19 просмотров)
1
27 / 22 / 5
Регистрация: 31.01.2019
Сообщений: 98
18.12.2019, 07:34 13
Сейчас попробую
0
27 / 22 / 5
Регистрация: 31.01.2019
Сообщений: 98
18.12.2019, 07:51 14
Не дружественный интерфейс.
Не понял как через командную строку задать параметры.
Исходный файл нужен с расширением только .bin
Выпала в ошибку при указании начального адреса 0x4000 (вписывал 4000).
Миниатюры
Доработка дизассемблера 8080A  
0
27 / 22 / 5
Регистрация: 31.01.2019
Сообщений: 98
18.12.2019, 07:51 15
Не дружественный интерфейс.
Не понял как через командную строку задать параметры.
Исходный файл нужен с расширением только .bin
Выпала в ошибку при указании начального адреса 0x4000 (вписывал 4000).
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
19.12.2019, 01:18  [ТС] 16
Адрес здесь задается с начала файла , если файл .bin порезан на части с сегментами данных , результат пишется в файл (нулевому адресу от начала .bin- файла прибавляется начальный адрес , обработка заканчивается при окончании файла, последние команды , если в файле они неполноценны (например , для трехбайтной не хватило двух байтов операндов , когда они остались в другом файле, например следующего ПЗУ ) могут обрабатываться с проблемами ). Интерфейс временный, скорее для тестирования программы парсера опкодов.
Начало файла, подразумеваемого тогда начинающимся с адреса 0x4000 , (c а не 0000)
Код
F3 31 FF 4F C3 60 00 00 7B 02 03 7A 02 C3 27 13 4E 23 46 23 C5 C3 2B 13 00 00 00 00 00 00 00 00 C3 64 08 00 00 00 00 00 32 08 80 FB C3 B0 30 00 32 0C 80 FB C3 3C 00 00 32 0C 80 FB C5 D5 E5 F5 3A 1A 80 E6 3F 32 1A 80 32 E0 C0 AF 32 AB 41 3A 2E 40 E6 F9 32 2E 40 CD E2 21 F1 E1 D1 C1 C9 00 CD 28 07 CD 3D 20 CD 00 05 CD 3A 05 CD E2 05 CD E8 06 CD 69 1F CD E2 21 FB 21 93 01 0E 0E 3A 00 40 BE CA 8F 00 23 23 23 0D C2 81 00 C3 78 00 23 5E 23 56 EB 01 78 00 C5 E9 CD 50 03 CD 69 03 21 4A 40 11 97 41 CD E2 01 01 92 41 CD B3 1A 11 8D 44 21 4D 43 0E 03 CD A3 20 21 50 40 11 97 41 CD E2 01 01 92 41 CD B3 1A 11 8D 44 21 50 43 0E 03 CD A3 20 CD 05 02 C9 CD C0 01 CD 69 03 3A 00 40 E6 DF 32 00 40 C9 CD 69 03 3A 1A 80 E6 02 CA 00 01 CD 00 30 32 40 C0 CD 26 30 CD 11 30 32 60 C0
Код
 .org  4000 
Addr_4000:      di                     ; 0xf3 ;  Disable interrupts
У меня например из-за наличия в некоторой области памяти адрес 0x1327 неправильно распознается (байты данных воспринитмаются как многобайтные команды, поэтому адрес 0x1326 содержит неправильную команду, на самом деле перед ним идут команды и сегменты данных )

Код
.org  0000 
Addr_0000:      di                     ; 0xf3 ;  Disable interrupts 
Addr_0001:      lxi    SP, 0x4fff  ; 0x31 0xff 0x4f  ; 
Addr_0004:      jmp    0x0060      ; 0xc3 0x60 0x00  ; Addr_xxxx Jump 

Addr_0007:      nop                    ; 0x00 ; no operate  
Addr_0008:      mov    a, e            ; 0x7b ; (A)<-(E) 
Addr_0009:      stax   b               ; 0x02 ; (A )->Loc(BC) 
Addr_000a:      inx    b               ; 0x03 ;  (BC)++
Addr_000b:      mov    a, d            ; 0x7a ; (A)<-(D) 
Addr_000c:      stax   b               ; 0x02 ; (A )->Loc(BC) 
Addr_000d:      jmp    0x1327      ; 0xc3 0x27 0x13  ; Addr_xxxx Jump 

Addr_0010:      mov    b, m            ; 0x4e ;  (C)<-MemLoc(HL) 
Addr_0011:      inx    h               ; 0x23 ; (HL)++ 
Addr_0012:      mov    b, m            ; 0x46 ; (B)<-MemLoc(HL) 
Addr_0013:      inx    h               ; 0x23 ; (HL)++ 
Addr_0014:      push   b               ; 0xc5 ;  Push register Pair B & C on stack 
Addr_0015:      jmp    0x132b      ; 0xc3 0x2b 0x13  ; Addr_xxxx Jump 
...
Addr_1320:      dcr    m               ; 0x35 ; Loc(HL)-- 
Addr_1321:      inr    b               ; 0x04 ; (B)++  
Addr_1322:      nop                    ; 0x00 ; no operate  
Addr_1323:      mov    b, b            ; 0x40 ; (B)<-(B) 
Addr_1324:      sbb    h               ; 0x9c ; (A) -(H)-(Carry)->(A) 
Addr_1325:      adc    m               ; 0x8e ; A<-MemLoc(HL) + (A) + CY
//ошибка в режиме 0 
Addr_1326:      mvi    b, 0x03       ; 0x06 0x03; (B)<-data8 
Addr_1328:      mov    a, h            ; 0x7c ; (A)<-(H) 
Addr_1329:      stax   b               ; 0x02 ; (A )->Loc(BC) 
Addr_132a:      ret                    ; 0xc9 ;
пробовать следующий более наглядный пример с данными


Код
 .project test.bin
        .tape v06c-rom

bdos    equ 5
intv    equ 38h
        .org 100h
        jmp begin
        db 27
msg:
        db 'Assembled by Pretty 8080 Assembler',0dh,0ah,'$'
yeah: 	; large binary strings can be defined using base64
        db64 TG9uZyBiaW5hcnkgaW5pdGlhbGl6YXRpb24gc2VjdGlvbnMgY2FuIGJlIGRlZmluZWQgdXNpbmcgYmFzZTY0LWVuY29kZWQgc3RyaW5ncyENCiQ=
begin:
        lxi d, msg
        mvi c, 9
        call bdos
        call delay
        mvi c, 9
        lxi d, yeah
        call bdos
        ret

delay:
        mvi a, 33
        hlt
        dcr a
        jnz .-2
        ret

Код
C3 7C 01 1B 41 73 73 65 6D 62 6C 65 64 20 62 79 20 50 72 65 74 74 79 20 38 30 38 30 20 41 73 73 65 6D 62 6C 65 72 0D 0A 24 4C 6F 6E 67 20 62 69 6E 61 72 79 20 69 6E 69 74 69 61 6C 69 7A 61 74 69 6F 6E 20 73 65 63 74 69 6F 6E 73 20 63 61 6E 20 62 65 20 64 65 66 69 6E 65 64 20 75 73 69 6E 67 20 62 61 73 65 36 34 2D 65 6E 63 6F 64 65 64 20 73 74 72 69 6E 67 73 21 0D 0A 24 11 04 01 0E 09 CD 05 00 CD 90 01 0E 09 11 29 01 CD 05 00 C9 3E 21 76 3D C2 92 01 C9
Добавлено через 1 минуту
Код
//db64 там с учетом кодировки 
Long binary initialization sections can be defined using base64-encoded strings!
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
19.12.2019, 01:19  [ТС] 17
Файл, сгенерированный на Pretty Assembler 8080
Вложения
Тип файла: zip test.zip (252 байт, 15 просмотров)
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
19.12.2019, 03:45  [ТС] 18
Результат , если 0x0100, 0 на 0x0100, 1 на 0x0103, 0x104-0x017b , 0 на 0x017c-0x0197
Код
 .org  0100 
Addr_0100:      jmp    0x017c      ; 0xc3 0x7c 0x01  ; Addr_xxxx Jump 

Addr_0103:  .db    0x1b    ; data byte  
Addr_0104:  .db    0x41    ; data byte  
Addr_0105:  .db    0x73    ; data byte  
Addr_0106:  .db    0x73    ; data byte  
Addr_0107:  .db    0x65    ; data byte  
Addr_0108:  .db    0x6d    ; data byte  
Addr_0109:  .db    0x62    ; data byte  
Addr_010a:  .db    0x6c    ; data byte  
Addr_010b:  .db    0x65    ; data byte  
Addr_010c:  .db    0x64    ; data byte  
Addr_010d:  .db    0x20    ; data byte  
Addr_010e:  .db    0x62    ; data byte  
Addr_010f:  .db    0x79    ; data byte  
Addr_0110:  .db    0x20    ; data byte  
Addr_0111:  .db    0x50    ; data byte  
Addr_0112:  .db    0x72    ; data byte  
Addr_0113:  .db    0x65    ; data byte  
Addr_0114:  .db    0x74    ; data byte  
Addr_0115:  .db    0x74    ; data byte  
Addr_0116:  .db    0x79    ; data byte  
Addr_0117:  .db    0x20    ; data byte  
Addr_0118:  .db    0x38    ; data byte  
Addr_0119:  .db    0x30    ; data byte  
Addr_011a:  .db    0x38    ; data byte  
Addr_011b:  .db    0x30    ; data byte  
Addr_011c:  .db    0x20    ; data byte  
Addr_011d:  .db    0x41    ; data byte  
Addr_011e:  .db    0x73    ; data byte  
Addr_011f:  .db    0x73    ; data byte  
Addr_0120:  .db    0x65    ; data byte  
Addr_0121:  .db    0x6d    ; data byte  
Addr_0122:  .db    0x62    ; data byte  
Addr_0123:  .db    0x6c    ; data byte  
Addr_0124:  .db    0x65    ; data byte  
Addr_0125:  .db    0x72    ; data byte  
Addr_0126:  .db    0x0d    ; data byte  
Addr_0127:  .db    0x0a    ; data byte  
Addr_0128:  .db    0x24    ; data byte  
Addr_0129:  .db    0x4c    ; data byte  
Addr_012a:  .db    0x6f    ; data byte  
Addr_012b:  .db    0x6e    ; data byte  
Addr_012c:  .db    0x67    ; data byte  
Addr_012d:  .db    0x20    ; data byte  
Addr_012e:  .db    0x62    ; data byte  
Addr_012f:  .db    0x69    ; data byte  
Addr_0130:  .db    0x6e    ; data byte  
Addr_0131:  .db    0x61    ; data byte  
Addr_0132:  .db    0x72    ; data byte  
Addr_0133:  .db    0x79    ; data byte  
Addr_0134:  .db    0x20    ; data byte  
Addr_0135:  .db    0x69    ; data byte  
Addr_0136:  .db    0x6e    ; data byte  
Addr_0137:  .db    0x69    ; data byte  
Addr_0138:  .db    0x74    ; data byte  
Addr_0139:  .db    0x69    ; data byte  
Addr_013a:  .db    0x61    ; data byte  
Addr_013b:  .db    0x6c    ; data byte  
Addr_013c:  .db    0x69    ; data byte  
Addr_013d:  .db    0x7a    ; data byte  
Addr_013e:  .db    0x61    ; data byte  
Addr_013f:  .db    0x74    ; data byte  
Addr_0140:  .db    0x69    ; data byte  
Addr_0141:  .db    0x6f    ; data byte  
Addr_0142:  .db    0x6e    ; data byte  
Addr_0143:  .db    0x20    ; data byte  
Addr_0144:  .db    0x73    ; data byte  
Addr_0145:  .db    0x65    ; data byte  
Addr_0146:  .db    0x63    ; data byte  
Addr_0147:  .db    0x74    ; data byte  
Addr_0148:  .db    0x69    ; data byte  
Addr_0149:  .db    0x6f    ; data byte  
Addr_014a:  .db    0x6e    ; data byte  
Addr_014b:  .db    0x73    ; data byte  
Addr_014c:  .db    0x20    ; data byte  
Addr_014d:  .db    0x63    ; data byte  
Addr_014e:  .db    0x61    ; data byte  
Addr_014f:  .db    0x6e    ; data byte  
Addr_0150:  .db    0x20    ; data byte  
Addr_0151:  .db    0x62    ; data byte  
Addr_0152:  .db    0x65    ; data byte  
Addr_0153:  .db    0x20    ; data byte  
Addr_0154:  .db    0x64    ; data byte  
Addr_0155:  .db    0x65    ; data byte  
Addr_0156:  .db    0x66    ; data byte  
Addr_0157:  .db    0x69    ; data byte  
Addr_0158:  .db    0x6e    ; data byte  
Addr_0159:  .db    0x65    ; data byte  
Addr_015a:  .db    0x64    ; data byte  
Addr_015b:  .db    0x20    ; data byte  
Addr_015c:  .db    0x75    ; data byte  
Addr_015d:  .db    0x73    ; data byte  
Addr_015e:  .db    0x69    ; data byte  
Addr_015f:  .db    0x6e    ; data byte  
Addr_0160:  .db    0x67    ; data byte  
Addr_0161:  .db    0x20    ; data byte  
Addr_0162:  .db    0x62    ; data byte  
Addr_0163:  .db    0x61    ; data byte  
Addr_0164:  .db    0x73    ; data byte  
Addr_0165:  .db    0x65    ; data byte  
Addr_0166:  .db    0x36    ; data byte  
Addr_0167:  .db    0x34    ; data byte  
Addr_0168:  .db    0x2d    ; data byte  
Addr_0169:  .db    0x65    ; data byte  
Addr_016a:  .db    0x6e    ; data byte  
Addr_016b:  .db    0x63    ; data byte  
Addr_016c:  .db    0x6f    ; data byte  
Addr_016d:  .db    0x64    ; data byte  
Addr_016e:  .db    0x65    ; data byte  
Addr_016f:  .db    0x64    ; data byte  
Addr_0170:  .db    0x20    ; data byte  
Addr_0171:  .db    0x73    ; data byte  
Addr_0172:  .db    0x74    ; data byte  
Addr_0173:  .db    0x72    ; data byte  
Addr_0174:  .db    0x69    ; data byte  
Addr_0175:  .db    0x6e    ; data byte  
Addr_0176:  .db    0x67    ; data byte  
Addr_0177:  .db    0x73    ; data byte  
Addr_0178:  .db    0x21    ; data byte  
Addr_0179:  .db    0x0d    ; data byte  
Addr_017a:  .db    0x0a    ; data byte  
Addr_017b:  .db    0x24    ; data byte  
Addr_017c:      lxi    d, 0x0104   ; 0x11  0x04 0x01 ;  Loc(DE)<-data16 
Addr_017f:      mvi    c, 0x09       ; 0x0e 0x09 ; (C)<-data8 
Addr_0181:      call   0x0005      ; 0xcd 0x05 0x00    ; call Addr_xxxx
Addr_0184:      call   0x0190      ; 0xcd 0x90 0x01    ; call Addr_xxxx
Addr_0187:      mvi    c, 0x09       ; 0x0e 0x09 ; (C)<-data8 
Addr_0189:      lxi    d, 0x0129   ; 0x11  0x29 0x01 ;  Loc(DE)<-data16 
Addr_018c:      call   0x0005      ; 0xcd 0x05 0x00    ; call Addr_xxxx
Addr_018f:      ret                    ; 0xc9 ; 

Addr_0190:      mvi    a, 0x21       ; 0x3e  0x21 ; A<-data8 
Addr_0192:      hlt                    ; 0x76 ; halt 
Addr_0193:      dcr    a               ; 0x3d  ;  (A)--   
Addr_0194:      jnz    0x0192      ; 0xc2 0x92 0x01 ; Addr_xxxx Jump on no zero 

Addr_0197:      ret                    ; 0xc9 ;
Добавлено через 3 минуты
Следить , какие коды адресов в lxi , call , некоторые другие команды .

Код
  lxi    d, 0x0104   ; 0x11  0x04 0x01 ;  Loc(DE)<-data16  //0x0104 указывает на сегмент  с данными
Добавлено через 10 минут
Проблема, расчленить файл на сегменты, один запустить с
Код
bdos    equ 5
intv    equ 38h
, другой с


Код
.org 100h
        jmp begin
        db 27
msg:
        db 'Assembled by Pretty 8080 Assembler',0dh,0ah,'$'
yeah: 	; large binary strings can be defined using base64
        db64 TG9uZyBiaW5hcnkgaW5pdGlhbGl6YXRpb24gc2VjdGlvbnMgY2FuIGJlIGRlZmluZWQgdXNpbmcgYmFzZTY0LWVuY29kZWQgc3RyaW5ncyENCiQ=
begin:
        lxi d, msg
        mvi c, 9
        call bdos
        call delay
        mvi c, 9
        lxi d, yeah
        call bdos
        ret

delay:
        mvi a, 33
        hlt
        dcr a
        jnz .-2
        ret
тогда ссылка на адрес 0x0005, "зашитая" через
Код
bdos    equ 5
intv    equ 38h
в
Код
Addr_0181:      call   0x0005      ; 0xcd 0x05 0x00    ; call Addr_xxxx
Addr_0184:      call   0x0190      ; 0xcd 0x90 0x01    ; call Addr_xxxx
Addr_0187:      mvi    c, 0x09       ; 0x0e 0x09 ; (C)<-data8 
Addr_0189:      lxi    d, 0x0129   ; 0x11  0x29 0x01 ;  Loc(DE)<-data16 
Addr_018c:      call   0x0005      ; 0xcd 0x05 0x00    ; call Addr_xxxx
Addr_018f:      ret                    ; 0xc9 ; 

Addr_0190:      mvi    a, 0x21       ; 0x3e  0x21 ; A<-data8 
Addr_0192:      hlt                    ; 0x76 ; halt 
Addr_0193:      dcr    a               ; 0x3d  ;  (A)--   
Addr_0194:      jnz    0x0192      ; 0xc2 0x92 0x01 ; Addr_xxxx Jump on no zero 

Addr_0197:      ret                    ; 0xc9 ;
будет иметь смысл.

Добавлено через 1 минуту
Парсер кодов работает, но "интеллектуальности" не хватает .

Добавлено через 9 минут
В случае с ошибкой для ссылки на адрес

Код
.org  0000 
Addr_0000:      di                     ; 0xf3 ;  Disable interrupts 
Addr_0001:      lxi    SP, 0x4fff  ; 0x31 0xff 0x4f  ; 
Addr_0004:      jmp    0x0060      ; 0xc3 0x60 0x00  ; Addr_xxxx Jump 

Addr_0007:      nop                    ; 0x00 ; no operate  
Addr_0008:      mov    a, e            ; 0x7b ; (A)<-(E) 
Addr_0009:      stax   b               ; 0x02 ; (A )->Loc(BC) 
Addr_000a:      inx    b               ; 0x03 ;  (BC)++
Addr_000b:      mov    a, d            ; 0x7a ; (A)<-(D) 
Addr_000c:      stax   b               ; 0x02 ; (A )->Loc(BC) 
Addr_000d:      jmp    0x1327      ; 0xc3 0x27 0x13  ; Addr_xxxx Jump 

Addr_0010:      mov    b, m            ; 0x4e ;  (C)<-MemLoc(HL) 
Addr_0011:      inx    h               ; 0x23 ; (HL)++ 
Addr_0012:      mov    b, m            ; 0x46 ; (B)<-MemLoc(HL) 
Addr_0013:      inx    h               ; 0x23 ; (HL)++ 
Addr_0014:      push   b               ; 0xc5 ;  Push register Pair B & C on stack 
Addr_0015:      jmp    0x132b      ; 0xc3 0x2b 0x13  ; Addr_xxxx Jump

Код
//Addr_1326:       0x06  ошибка счетчика, переписать коды  до этого  с выборкой  , можно файл посегментно с вводом // начального адреса  и каждый передизассемблировать 
//вручную 
           Addr_1327:               INX B ; 0x03  по таблице , добавить режим 4 (ручной вывод на экран мнемоник одного кода) 
Addr_1328:      mov    a, h            ; 0x7c ; (A)<-(H) 
Addr_1329:      stax   b               ; 0x02 ; (A )->Loc(BC) 
Addr_132a:      ret                    ; 0xc9 ;
Добавлено через 2 минуты
C
Код
lxi    SP, 0x4fff  ;
см. пример двухбайтными данными

Добавлено через 1 минуту
К GUI бы приделать с редактором .

Добавлено через 1 час 49 минут
C
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

int main() {
 
 
    
        char    file_name[100] ;
        char    *file_name2 ;
    
   
    
 
    FILE *fp, *fp2,*fp3;
  
 
 
int n,m; 
 
m=0 ;
n=0 ;
 
label1:;
 
printf("\n*********** I8080 disassembler *********** \n Input 0  for simple parse ;");
printf("\n Input 1  for manual opcode/db select ;  ");
printf("\n Input 2  for parse one opcode from .bin file (to file temp_dis.asm ) ;  "); 
printf("\n Input 3  for view one opcode   (to screen ) ;  ");
printf("\n Input 4  for parse one opcode from .bin file (to file screen ) ;  "); 
printf("\n Input 5  for exit \n Your choise:  ");
 
scanf("%d",&m);  
 if (m==5) {goto exit_label; }
 
 
 
 
if(m==4) 
 
{
int pc1=0;
    
printf(" Please  enter  source file name  (file1.bin) : ");
scanf("%s",file_name);
if (!(fp = fopen(file_name, "rb"))) { printf("error: Unable to open %s\n", file_name); exit(EXIT_FAILURE);}
else printf("\n File %s was opened for read \n", file_name );
 
fseek(fp, 0L , SEEK_END);
int size = ftell(fp);
// fseek(fp, 0L , SEEK_SET);
rewind ( fp);
Byte *data = malloc(sizeof(Byte) * size);       
fread(data, size, 1, fp);
fclose(fp);   
    
    
    
unsigned int Addr=0;    
int Addr1;  
    
printf("\n Manual parse one  opcode from file ");   
 
Addr1=(int)Addr;
printf("\n Input address of the  opcode in the file (from begin of the file)\n  ( for  0x0000 type 0000 ) : ");
scanf("%x", &Addr );
printf("\nAddr=%04x",Addr);
Addr1+=(int)Addr;
 
 pc1   =Addr1  ;
Byte *byte1 = &data[pc1];
   
printf ( "\n Address %04X: DB= 0x%02X   ", pc1  , byte1[0]  ); 
printf("\n Input 0  if  byte is  opcode (by script ) ");
printf("\n Input 1  if  data is   .db : ");
 
scanf("%d",&n);
 
 
 
fprintf(stdout,"\n******\n .org  %04x \n",pc1)  ;
    
if (n==1) {    fprintf (stdout,"Addr_%04x: ", pc1    ); Disassemble8080A (stdout, data, pc1, 1 );   }
else      {    fprintf (stdout,"Addr_%04x: ", pc1    ); Disassemble8080A(stdout, data, pc1 , 0 );   }
printf("\n File temp_dis.asm was appended  "); 
 
 goto  label1;
}
 
 
if(m==3) 
{
 int Addr1=0 ;
 unsigned int Addr=0;
 int pc1=0; 
Byte data1[3] ;
    
    
printf("\n Manual parse one  opcode (to screen ) ");    
printf("\n Input  address of the  opcode in the file (from begin of the file) \n  ( for  0x0000 type 0000 ) : ");
  
 scanf("%x", &Addr );
printf("\nAddr=%04x",Addr);
 
Addr1=(int) Addr ;
pc1=Addr1;
printf("\n Input  db 0  ( opcode , for  0x00  type  00      ) : ");
scanf("%x",&data1[0]);
 
printf("\n Input  db 1  ( for 0x00 type  00, for 1 bit commands type 00 ) : ");
scanf("%x",&data1[1]);
printf("\n Input  db 2  ( for 0x00 type  00, for 1 bit commands type 00 ) : ");
scanf("%x",&data1[2]);
 
 
 
printf("\n Input 0  if  byte is  opcode (by script ) ");
printf("\n Input 1  if  data is   .db : ");
scanf("%d",&n);
 
fprintf(stdout,"\n ******* Result ********\n .org  %04x \n", pc1)   ;
    
if (n==1) {    fprintf (stdout,"Addr_%04x: ",(int) ( pc1  )   ); Disassemble8080A (stdout, data1, pc1, 1 );   }
else      {    fprintf (stdout,"Addr_%04x: ", (int) (pc1  )   ); Disassemble8080A(stdout, data1, pc1 , 0 );   }
fprintf(stdout,"\n *************** \n",pc1) ;
 goto  label1;
 
} 
 
 
 
 
 
if(m==2) 
 
{
int pc1=0;
    
printf(" Please  enter  source file name  (file1.bin) : ");
scanf("%s",file_name);
if (!(fp = fopen(file_name, "rb"))) { printf("error: Unable to open %s\n", file_name); exit(EXIT_FAILURE);}
else printf("\n File %s was opened for read \n", file_name );
 
fseek(fp, 0L , SEEK_END);
int size = ftell(fp);
// fseek(fp, 0L , SEEK_SET);
rewind ( fp);
Byte *data = malloc(sizeof(Byte) * size);       
fread(data, size, 1, fp);
fclose(fp);   
    
    
    
unsigned int Addr=0;    
int Addr1;  
    
printf("\n Manual parse one  opcode "); 
printf("\n Input  starting  address of operation \n  ( for  0x0000 type 0000 ) : ");
scanf("%x", &Addr );
printf("\nAddr=%04x",Addr);
Addr1=(int)Addr;
 
 pc1   =Addr1  ;
Byte *byte1 = &data[pc1];
   
printf ( "\n Address %04X: DB= 0x%02X   ", pc1  , byte1[0]  ); 
printf("\n Input 0  if  byte is  opcode (by script ) ");
printf("\n Input 1  if  data is   .db : ");
 
scanf("%d",&n);
 
if (!(fp3 = fopen("temp_dis.asm", "a"))) { printf("error: Unable to open file  temp_dis.asm  for write \n"   ); exit(EXIT_FAILURE);  }
else printf("\n File temp_dis.asm  opened for write \n"  );
 
 
fprintf(fp3,"\n******\n .org  %04x \n",pc1) ;
    
if (n==1) {    fprintf (fp3,"Addr_%04x: ", pc1    ); Disassemble8080A (fp3, data, pc1, 1 );   }
else      {    fprintf (fp3,"Addr_%04x: ", pc1    ); Disassemble8080A(fp3, data, pc1 , 0 );   }
printf("\n File temp_dis.asm was appended  "); 
 fclose (fp3);
 goto  label1;
}
 
 
 
 
 
 
if((m==0) ||(m==1))
{
unsigned int Addr0; 
int pc=0;
printf(" Please  enter  source file name  (file1.bin) : ");
scanf("%s",file_name);
if (!(fp = fopen(file_name, "rb"))) { printf("error: Unable to open %s\n", file_name); exit(EXIT_FAILURE);}
else printf("\n File %s was opened for read \n", file_name );
file_name2 = strtok (file_name,".");
strcat(file_name2, "_dis.asm");    
if (!(fp2 = fopen(file_name2, "w"))) { printf("error: Unable to open file %s for write \n", file_name2);exit(EXIT_FAILURE);  }
else printf("\n File %s  opened for write \n", file_name2 );
fseek(fp, 0L , SEEK_END);
int size = ftell(fp);
// fseek(fp, 0L , SEEK_SET);
rewind ( fp);
Byte *data = malloc(sizeof(Byte) * size);       
fread(data, size, 1, fp);
fclose(fp);   
    
    
    
    
printf("\n Input  starting  address of the block \n ( for  0x0000 type 0000 ) : ");
scanf("%x",&Addr0);
 
fprintf(fp2,"\n .org  %04x \n",(int)Addr0)  ;
while (pc < size) {
Byte *byte1 = &data[pc];   
printf ( "\n Address %04X: DB= 0x%02X   ", pc+(int)Addr0  , byte1[0]  ); 
 
 
if(m==1) 
   { 
  printf("\n Input 0  if  byte is  opcode (by script )") ;
  printf("\n Input 1  if data is   .db : ");
  scanf("%d",&n);    
  }
 
 
 
    
 if (n==1) {  fprintf (fp2,"Addr_%04x: ", pc+(int)Addr0   ); pc += Disassemble8080A (fp2, data, pc, 1 );  }
 else  {   fprintf (fp2,"Addr_%04x: ", pc+(int)Addr0   );pc += Disassemble8080A(fp2, data, pc , 0 );  }
  
}
fclose(fp2);
 goto  label1;
 
}
 
 
exit_label:;
    return EXIT_SUCCESS;
}
0
6 / 6 / 0
Регистрация: 29.06.2018
Сообщений: 1,536
19.12.2019, 03:47  [ТС] 19
вариант с опциями
Вложения
Тип файла: zip test_dis.zip (9.59 Мб, 22 просмотров)
0
27 / 22 / 5
Регистрация: 31.01.2019
Сообщений: 98
19.12.2019, 04:22 20
Чем компилируете?
0
19.12.2019, 04:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 19.12.2019, 04:22
Помогаю со студенческими работами здесь

код на Си надо сделать результат работы дизассемблера в составе отладчика
Есть код Сортировка массива по возрастанию (метод пузырька) На Си , а как Откомпилировать в VS,...

Доработка БП
Добрый день. Я не силен в импульсных источниках питания, так что решил спросить совет у знающих...

Доработка БД
Добрый день, господа профессионалы. В общем накосячил я с БД и теперь что-то не знаю, как это...

Доработка
Всем привет.Ребят,у меня такой наверное глуповатый вопрос.Например есть программа которую надо...

Доработка БД
Помогите с доработкой БД в Access. Создал БД. Преподаватель вернул на доработку со следующими...

Доработка АС
Недавно прикупил небольшие активные колоночки 2.0 для компа SVEN SPS-610, выбирал по дизайну, т.к....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
1 из 2 1 2 »
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru