Транслировать заданный код с языка Pascal в исходный код ассемблер - Assembler - Ответ 13183395

    .file "xdd.pas"
# Begin asmlist al_begin
 
.section .text.b_DEBUGSTART_$P$PROGRAM,"x"
    .balign 4,0x90
.globl  DEBUGSTART_$P$PROGRAM
DEBUGSTART_$P$PROGRAM:
    .stabs "C:/FPC/3.0.2/Forum/",100,0,0,.Lf2
    .stabs "c:/fpc/3.0.2/forum/xdd.pas",100,0,0,.Lf2
.Lf2:
# End asmlist al_begin
# Begin asmlist al_stabs
 
.section .data.n_PROGRAM,"d"
    .balign 4
.globl  DEBUGINFO_$P$PROGRAM
DEBUGINFO_$P$PROGRAM:
# Defs - Begin unit SYSTEM has index 1
    .stabs "void:t3=3",128,0,0,0
    .stabs "BYTE:t1=@s8;r1;0;255;",128,0,0,0
    .stabs "WORD:t2=@s16;r2;0;65535;",128,0,0,0
# Defs - End unit SYSTEM has index 1
# Defs - Begin unit FPINTRES has index 2
# Defs - End unit FPINTRES has index 2
# Defs - Begin unit SYSINITPAS has index 3
# Defs - End unit SYSINITPAS has index 3
# Defs - Begin Staticsymtable
# Defs - End Staticsymtable
# Syms - Begin Staticsymtable
    .stabs "A:S1",38,0,2,U_$P$PROGRAM_$$_A
    .stabs "B:S1",38,0,3,U_$P$PROGRAM_$$_B
    .stabs "C:S2",38,0,4,U_$P$PROGRAM_$$_C
# Syms - End Staticsymtable
# End asmlist al_stabs
# Begin asmlist al_procedures
 
.section .text.n__main,"x"
    .balign 16,0x90
.globl  PASCALMAIN
PASCALMAIN:
.globl  _main
_main:
    .stabs "main:F3",36,0,1,_main
    .stabs "c:/fpc/3.0.2/forum/xdd.pas",132,0,0,.Lf1
.Lf1:
    .stabn 68,0,6,.Ll1 - _main
.Ll1:
# [xdd.pas]
# [6] begin
    pushl   %ebp
    movl    %esp,%ebp
    pushl   %ebx
    call    FPC_INITIALIZEUNITS
    .stabn 68,0,7,.Ll2 - _main
.Ll2:
# [7] A := 2;
    movb    $2,U_$P$PROGRAM_$$_A
    .stabn 68,0,8,.Ll3 - _main
.Ll3:
# [8] b := 4;
    movb    $4,U_$P$PROGRAM_$$_B
    .stabn 68,0,9,.Ll4 - _main
.Ll4:
# [9] if a >= b then
    movb    U_$P$PROGRAM_$$_A,%al
    cmpb    U_$P$PROGRAM_$$_B,%al
    jae .Lj7
    jmp .Lj8
.Lj7:
    .stabn 68,0,11,.Ll5 - _main
.Ll5:
# [11] c := a + b;
    movzbl  U_$P$PROGRAM_$$_A,%eax
    movzbl  U_$P$PROGRAM_$$_B,%ebx
    addl    %eax,%ebx
    jnb .Lj11
    call    FPC_OVERFLOW
.Lj11:
    movl    %ebx,%eax
    cmpl    $65535,%eax
    jbe .Lj12
    call    fpc_rangeerror
.Lj12:
    movw    %bx,U_$P$PROGRAM_$$_C
    .stabn 68,0,12,.Ll6 - _main
.Ll6:
# [12] a := c * a
    movzwl  U_$P$PROGRAM_$$_C,%edx
    movzbl  U_$P$PROGRAM_$$_A,%eax
    mull    %edx
    jae .Lj15
    call    FPC_OVERFLOW
.Lj15:
    movl    %eax,%ebx
    movl    %ebx,%eax
    cmpl    $255,%eax
    jbe .Lj16
    call    fpc_rangeerror
.Lj16:
    movb    %bl,%al
    movb    %al,U_$P$PROGRAM_$$_A
    jmp .Lj17
.Lj8:
    .stabn 68,0,15,.Ll7 - _main
.Ll7:
# [15] c := b - a;
    movzbl  U_$P$PROGRAM_$$_B,%ebx
    movzbl  U_$P$PROGRAM_$$_A,%eax
    subl    %eax,%ebx
    jno .Lj20
    call    FPC_OVERFLOW
.Lj20:
    movl    %ebx,%eax
    cmpl    $65535,%eax
    jbe .Lj21
    call    fpc_rangeerror
.Lj21:
    movw    %bx,U_$P$PROGRAM_$$_C
.Lj17:
    .stabn 68,0,16,.Ll8 - _main
.Ll8:
# [16] writeln(c);
    call    fpc_get_output
    movl    %eax,%ebx
    movzwl  U_$P$PROGRAM_$$_C,%ecx
    movl    %ebx,%edx
    movl    $0,%eax
    call    fpc_write_text_uint
    call    FPC_IOCHECK
    movl    %ebx,%eax
    call    fpc_writeln_end
    call    FPC_IOCHECK
    .stabn 68,0,17,.Ll9 - _main
.Ll9:
# [17] end.
    call    FPC_DO_EXIT
    popl    %ebx
    leave
    ret
    .stabn 192,0,0,0
    .stabn 224,0,0,.Lt1-_main
.Lt1:
 
.section .fpc.n_links
    .long   DEBUGINFO_$P$PROGRAM
    .long   DEBUGSTART_$P$PROGRAM
    .long   DEBUGEND_$P$PROGRAM
# End asmlist al_procedures
# Begin asmlist al_globals
 
.section .bss
# [2] a: byte;
U_$P$PROGRAM_$$_A:
    .zero 1
 
.section .bss
# [3] b: byte;
U_$P$PROGRAM_$$_B:
    .zero 1
 
.section .bss
    .balign 2
# [4] c: word;
U_$P$PROGRAM_$$_C:
    .zero 2
 
.section .data.n_INITFINAL,"d"
    .balign 4
.globl  INITFINAL
INITFINAL:
    .long   2,0
    .long   INIT$_$SYSTEM
    .long   0
    .long   INIT$_$FPINTRES
    .long   0
 
.section .data.n_FPC_THREADVARTABLES,"d"
    .balign 4
.globl  FPC_THREADVARTABLES
FPC_THREADVARTABLES:
    .long   1
    .long   THREADVARLIST_$SYSTEM
 
.section .data.n_FPC_RESOURCESTRINGTABLES,"d"
    .balign 4
.globl  FPC_RESOURCESTRINGTABLES
FPC_RESOURCESTRINGTABLES:
    .long   0
 
.section .data.n_FPC_WIDEINITTABLES,"d"
    .balign 4
.globl  FPC_WIDEINITTABLES
FPC_WIDEINITTABLES:
    .long   0
 
.section .data.n_FPC_RESSTRINITTABLES,"d"
    .balign 4
.globl  FPC_RESSTRINITTABLES
FPC_RESSTRINITTABLES:
    .long   0
 
.section .fpc.n_version
    .balign 16
    .ascii  "FPC 3.0.2 [2017/02/13] for i386 - Win32"
 
.section .data.n___heapsize,"d"
    .balign 4
.globl  __heapsize
__heapsize:
    .long   0
 
.section .data.n___fpc_valgrind,"d"
.globl  __fpc_valgrind
__fpc_valgrind:
    .byte   0
# End asmlist al_globals
# Begin asmlist al_end
 
.section .text.z_DEBUGEND_$P$PROGRAM,"x"
    .balign 4,0x90
.globl  DEBUGEND_$P$PROGRAM
DEBUGEND_$P$PROGRAM:
    .stabs "",100,0,0,.Lf3
.Lf3:
# End asmlist al_end