Reader: 1
|< 1 2 >| | 13 entries, 2 pages |
0000 1B CC 00 12 ...
GwenDragon+2007-10-27 13:23:19--Den Assemblercode kannst du nicht mit anderen Programmen anzeigen lassen. Außer einem Debugger ;)
1
2
3
4
5
6
7
8
$ ndisasm echo
00000000 7F45 jg 0x47
00000002 4C dec sp
00000003 46 inc si
00000004 0201 add al,[bx+di]
00000006 0109 add [bx+di],cx
00000008 0000 add [bx+si],al
...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
cr eq 0dh
lf eq 0ah
dbl macro text
db text,cr,lf
endm
FBuf db 8 dup (' ')
dbl 'Perl ist toll!'
RetAll equ 03398h
Test equ 33
mov ax,Test
mov dx,FBuf
jz RetAll
dec dx
jnz FBuf+2
ret
pktm+2007-10-27 17:57:41--Ich will doch gar nicht wissen wie das Programm aussah, welches den Assembler-Code generiert hat. Ich will wissen, wie der Assemblercode aussieht, den mein Programm generiert, also genau die andere Richtung.
1
2
3
4
5
6
7
8
9
use strict;
use warnings;
my $x = undef;
for( my $i = 1; $i < 5; $i++ ) {
$x = $i;
}
print $x;
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
$ perl5.10.0 -MO=Terse script.pl
LISTOP (0x747040) leave [1]
OP (0x747640) enter
COP (0x7acb80) nextstate
BINOP (0x7baa40) sassign
OP (0x7b2a80) undef
OP (0x7b2a00) padsv [1]
COP (0x7ace00) nextstate
BINOP (0x747100) sassign
SVOP (0x7470c0) const IV (0x79fbe8) 1
OP (0x747080) padsv [2]
LISTOP (0x747500) lineseq
COP (0x7acd80) nextstate
BINOP (0x7474c0) leaveloop
LOOP (0x7acd00) enterloop
UNOP (0x747480) null
LOGOP (0x747440) and
BINOP (0x7471c0) lt
OP (0x747140) padsv [2]
SVOP (0x747180) const IV (0x79fbd0) 5
LISTOP (0x747400) lineseq
LISTOP (0x747380) scope
OP (0x7acc80) null [177]
BINOP (0x747340) sassign
OP (0x7472c0) padsv [2]
OP (0x747280) padsv [1]
UNOP (0x747240) preinc [3]
OP (0x747200) padsv [2]
OP (0x7473c0) unstack
COP (0x7ace80) nextstate
LISTOP (0x747580) print
OP (0x7475c0) pushmark
OP (0x747540) padsv [1]
|< 1 2 >| | 13 entries, 2 pages |