kdq@demott.COM (Kevin D. Quitt) (07/26/90)
I had quite a few requests for this, and some of my replies bounced,
so here it is. Please note: Some of the copies I mailed were sent out
before I noticed that there had originally been a statement to the
effect that the program was not shareware. That was from the dark ages,
and you may remove that notice.
This compiles properly under MSC 6.0, under the common C compiler,
and under gnucc. I have not tested the program on anything but the PC,
because I don't have any files to disassemble anymore. Use it in good
health.
O /
-----------------X---------------- Cut here
O \
/* DASM85.C 30-Nov-88 9:07:32 by Kevin D. Quitt
Disassemble 8085 code from a binary file.
Two passes - the first collects labels, the second performs
the disassembly. References to addresses with instructions are
noted as sync errors.
Written for Microsoft C to run on an IBM PC.
*/
#include <stdio.h>
#include <string.h>
#define MAX_LABELS (2048)
unsigned int Labels[ MAX_LABELS ];
unsigned char In_File[ 132 ];
unsigned char Out_File[ 132 ];
unsigned char Temp[ 132 ];
char *Op_Code[256] =
{
/* 1 2 3 4 */
"nop", "lxi\tb,", "stax\tb", "inx\tb",
"inr\tb", "dcr\tb", "mvi\tb,", "rlc",
"???", "dad\tb", "ldax\tb", "dcx\tb",
"inr\tc", "dcr\tc", "mvi\tc,", "rrc",
"???", "lxi\td,", "stax\td", "inx\td",
"inr\td", "dcr\td", "mvi\td,", "ral",
"???", "dad\td", "ldax\td", "dcx\td",
"inr\te", "dcr\te", "mvi\te,", "rar",
"rim", "lxi\th,", "shld\t", "inx\th",
"inr\th", "dcr\th", "mvi\th,", "daa",
"???", "dad\th", "lhld\t", "dcx\th",
"inr\tl", "dcr\tl", "mvi\tl,", "cma",
"sim", "lxi\tsp,", "sta\t", "inx\tsp",
"inr\tm", "dcr\tm", "mvi\tm,", "stc",
"???", "dad\tsp", "lda\t", "dcx\tsp",
"inr\ta", "dcr\ta", "mvi\ta,", "cmc\ta,",
/* 0 1 2 3 */
"mov\tb,b", "mov\tb,c", "mov\tb,d", "mov\tb,e",
"mov\tb,h", "mov\tb,l", "mov\tb,m", "mov\tb,a",
"mov\tc,b", "mov\tc,c", "mov\tc,d", "mov\tc,e",
"mov\tc,h", "mov\tc,l", "mov\tc,m", "mov\tc,a",
"mov\td,b", "mov\td,c", "mov\td,d", "mov\td,e",
"mov\td,h", "mov\td,l", "mov\td,m", "mov\td,a",
"mov\te,b", "mov\te,c", "mov\te,d", "mov\te,e",
"mov\te,h", "mov\te,l", "mov\te,m", "mov\te,a",
"mov\th,b", "mov\th,c", "mov\th,d", "mov\th,e",
"mov\th,h", "mov\th,l", "mov\th,m", "mov\th,a",
"mov\tl,b", "mov\tl,c", "mov\tl,d", "mov\tl,e",
"mov\tl,h", "mov\tl,l", "mov\tl,m", "mov\tl,a",
"mov\tm,b", "mov\tm,c", "mov\tm,d", "mov\tm,e",
"mov\tm,h", "mov\tm,l", "hlt\t", "mov\tm,a",
"mov\ta,b", "mov\ta,c", "mov\ta,d", "mov\ta,e",
"mov\ta,h", "mov\ta,l", "mov\ta,m", "mov\ta,a",
/* 0 1 2 3 */
"add\tb", "add\tc", "add\td", "add\te",
"add\th", "add\tl", "add\tm", "add\ta",
"adc\tb", "adc\tc", "adc\td", "adc\te",
"adc\th", "adc\tl", "adc\tm", "adc\ta",
"sub\tb", "sub\tc", "sub\td", "sub\te",
"sub\th", "sub\tl", "sub\tm", "sub\ta",
"sbb\tb", "sbb\tc", "sbb\td", "sbb\te",
"sbb\th", "sbb\tl", "sbb\tm", "sbb\ta",
"ana\tb", "ana\tc", "ana\td", "ana\te",
"ana\th", "ana\tl", "ana\tm", "ana\ta",
"xra\tb", "xra\tc", "xra\td", "xra\te",
"xra\th", "xra\tl", "xra\tm", "xra\ta",
"ora\tb", "ora\tc", "ora\td", "ora\te",
"ora\th", "ora\tl", "ora\tm", "ora\ta",
"cmp\tb", "cmp\tc", "cmp\td", "cmp\te",
"cmp\th", "cmp\tl", "cmp\tm", "cmp\ta",
/* 0 1 2 3 */
"rnz", "pop\tb", "jnz\t", "jmp\t",
"cnz", "push\tb", "adi\t", "rst\t0",
"rz", "ret", "jz\t", "???",
"cz", "call\t", "aci\t", "rst\t1",
"rnc", "pop\td", "jnc\t", "out\t",
"cnc", "push\td", "sui\t", "rst\t2",
"rc", "???", "jc\t", "in\t",
"cc", "???", "sbi\t", "rst\t3",
"rpo", "pop\th", "jpo\t", "xthl",
"cpo", "push\th", "ani\t", "rst\t4",
"rpe", "pchl", "jpe\t", "xchg",
"cpe", "???", "xri\t", "rst\t5",
"rp", "pop\tpsw", "jp\t", "di",
"cp", "push\tpsw","ori\t", "rst\t6",
"rm", "sphl", "jm\t", "ei",
"cm", "???", "cpi\t", "rst\t7"
};
char Op_Code_Size[] =
{
/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, /* 00 */
1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, /* 10 */
1, 3, 3, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, /* 20 */
1, 3, 3, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, /* 30 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 40 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 50 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 60 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 70 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 80 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 90 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* A0 */
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* B0 */
1, 1, 3, 3, 1, 1, 2, 1, 1, 1, 3, 1, 3, 3, 2, 1, /* C0 */
1, 1, 3, 2, 3, 1, 2, 1, 1, 1, 3, 2, 3, 1, 2, 1, /* D0 */
1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 3, 1, 3, 1, 2, 1, /* E0 */
1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 3, 1, 3, 1, 2, 1 /* F0 */
};
/* File extension utilities. 114
*/
void Extend( out, in, ext )
char *out, *in, *ext;
{
strcpy( out, in );
if ( strchr( out, '.' ) == NULL )
{
strcat( out, "." );
strcat( out, ext );
}
}
void Strip( out, in )
char out[], in[];
{
char *p;
strcpy( out, in );
if ( (p = strchr( out, '.' )) != NULL )
*p = (char)0;
}
int main( argc, argv )
int argc;
char *argv[];
{
FILE *In, *Out;
int c, op, pc,i,j,m,k,ptr;
pc = 0;
if ( (argv[1][0] == '?') || ( argc != 2) )
{
printf( "\nSyntax is DASM85 binfilespec\n" );
printf( "The extension is optional, BIN is assumed. Output is to\n" );
printf( "the same file name, with a DSA extension.\n\n\n" );
printf( "This program is freeware.\n\n");
return 0;
}
Extend( In_File, argv[1], "BIN" );
if ( (In = fopen( In_File, "rb")) == NULL )
{
printf( "Can't open input file %s!\r\n", In_File );
return -1;
}
Strip( Temp, argv[1] );
Extend( Out_File, Temp, "DSA" );
if ( (Out = fopen( Out_File, "wt")) == NULL )
{
printf( "Can't open disassembly list file %s!\r\n", Out_File );
return -2;
}
for(i = 0; i<2048; i++)
Labels[i] = 0xffff;
k = 0;
while ( (op = fgetc( In )) != EOF )
{
if ( Op_Code_Size[ op ] == 2 )
fgetc(In);
if ( Op_Code_Size[ op ] == 3 )
{
i = fgetc(In);
j = fgetc(In);
j <<= 8;
i |= j;
for( m = 0 ; m <= k ; m++)
{
if( i == Labels[m])
break;
if( i < Labels[m])
{
for( j = k ; j > m ; j-- )
Labels[j] = Labels[j-1];
Labels[m] = i;
k++;
break;
}
}
}
}
rewind( In );
ptr = 0;
while ( (op = fgetc( In )) != EOF )
{
while( pc > Labels[ptr] )
fprintf( Out, ";\t\t\t\tSync error, L%04X\n", Labels[ptr++]);
if( pc == Labels[ptr] )
{
fprintf( Out, "L%04X:\t%s", pc, Op_Code[ op ] );
ptr++;
}
else fprintf(Out, "\t%s", Op_Code[ op ] );
/* Two byte opcode are followed by a byte parameter.
*/
if ( Op_Code_Size[ op ] == 2 )
{
i = fgetc(In);
if( i < 0xA0 )
fprintf( Out, "%02Xh", i );
else fprintf( Out, "0%02Xh", i );
}
/* Three byte opcodes are followed by two bytes in reverse order.
*/
if ( Op_Code_Size[ op ] == 3 )
{
i = fgetc(In);
j = fgetc(In);
fprintf( Out, "L%02X%02X", j,i );
}
fprintf( Out, "\n" );
pc += Op_Code_Size[ op ];
}
fclose( In );
fclose( Out );
}
----------------8<---------------- Cut here
--
_
Kevin D. Quitt demott!kdq kdq@demott.com
DeMott Electronics Co. 14707 Keswick St. Van Nuys, CA 91405-1266
VOICE (818) 988-4975 FAX (818) 997-1190 MODEM (818) 997-4496 PEP last
96.37% of all statistics are made up.poffen@sj.ate.slb.com (Russ Poffenberger) (07/27/90)
In article <430@demott.COM> kdq@demott.COM (Kevin D. Quitt) writes: > > I had quite a few requests for this, and some of my replies bounced, >so here it is. Please note: Some of the copies I mailed were sent out >before I noticed that there had originally been a statement to the >effect that the program was not shareware. That was from the dark ages, >and you may remove that notice. > >/* DASM85.C 30-Nov-88 9:07:32 by Kevin D. Quitt > > Disassemble 8085 code from a binary file. ^^^^^^^^^^^^^^^^ Well which is it? The Subject line says 8051 disassembler, but this says 8085 disassembler. There is a lot of difference between the two. Russ Poffenberger DOMAIN: poffen@sj.ate.slb.com Schlumberger Technologies UUCP: {uunet,decwrl,amdahl}!sjsca4!poffen 1601 Technology Drive CIS: 72401,276 San Jose, Ca. 95110 (408)437-5254