"Fossies" - the Fresh Open Source Software Archive

Member "fasm/source/formats.inc" (9 Feb 2020, 81770 Bytes) of package /linux/misc/fasm-1.73.22.tgz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) fasm source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "formats.inc": 1.73.21_vs_1.73.22.

    1 
    2 ; flat assembler core
    3 ; Copyright (c) 1999-2020, Tomasz Grysztar.
    4 ; All rights reserved.
    5 
    6 formatter:
    7     mov [current_offset],edi
    8     cmp [output_file],0
    9     jne output_path_ok
   10     mov esi,[input_file]
   11     mov edi,[free_additional_memory]
   12       duplicate_output_path:
   13     lods    byte [esi]
   14     cmp edi,[structures_buffer]
   15     jae out_of_memory
   16     stos    byte [edi]
   17     or  al,al
   18     jnz duplicate_output_path
   19     dec edi
   20     mov eax,edi
   21       find_extension:
   22     dec eax
   23     cmp eax,[free_additional_memory]
   24     jb  extension_found
   25     cmp byte [eax],'\'
   26     je  extension_found
   27     cmp byte [eax],'/'
   28     je  extension_found
   29     cmp byte [eax],'.'
   30     jne find_extension
   31     mov edi,eax
   32       extension_found:
   33     lea eax,[edi+9]
   34     cmp eax,[structures_buffer]
   35     jae out_of_memory
   36     cmp [file_extension],0
   37     jne extension_specified
   38     mov al,[output_format]
   39     cmp al,2
   40     je  exe_extension
   41     jb  bin_extension
   42     cmp al,4
   43     je  obj_extension
   44     cmp al,5
   45     je  o_extension
   46     cmp al,3
   47     jne no_extension
   48     cmp [subsystem],1
   49     je  sys_extension
   50     cmp [subsystem],10
   51     jae efi_extension
   52     bt  [format_flags],8
   53     jnc exe_extension
   54     mov eax,'.dll'
   55     jmp make_extension
   56       sys_extension:
   57     mov eax,'.sys'
   58     jmp make_extension
   59       efi_extension:
   60     mov eax,'.efi'
   61     jmp make_extension
   62       bin_extension:
   63     mov eax,'.bin'
   64     bt  [format_flags],0
   65     jnc make_extension
   66     mov eax,'.com'
   67     jmp make_extension
   68       obj_extension:
   69     mov eax,'.obj'
   70     jmp make_extension
   71       o_extension:
   72     mov eax,'.o'
   73     bt  [format_flags],0
   74     jnc make_extension
   75       no_extension:
   76     xor eax,eax
   77     jmp make_extension
   78       exe_extension:
   79     mov eax,'.exe'
   80       make_extension:
   81     xchg    eax,[edi]
   82     scas    dword [edi]
   83     mov byte [edi],0
   84     scas    byte [edi]
   85     mov esi,edi
   86     stos    dword [edi]
   87     sub edi,9
   88     xor eax,eax
   89     mov ebx,characters
   90       adapt_case:
   91     mov al,[esi]
   92     or  al,al
   93     jz  adapt_next
   94     xlat    byte [ebx]
   95     cmp al,[esi]
   96     je  adapt_ok
   97     sub byte [edi],20h
   98       adapt_ok:
   99     inc esi
  100       adapt_next:
  101     inc edi
  102     cmp byte [edi],0
  103     jne adapt_case
  104     jmp extension_ok
  105       extension_specified:
  106     mov al,'.'
  107     stos    byte [edi]
  108     mov esi,[file_extension]
  109       copy_extension:
  110     lods    byte [esi]
  111     stos    byte [edi]
  112     test    al,al
  113     jnz copy_extension
  114     dec edi
  115       extension_ok:
  116     mov esi,edi
  117     lea ecx,[esi+1]
  118     sub ecx,[free_additional_memory]
  119     mov edi,[structures_buffer]
  120     dec edi
  121     std
  122     rep movs byte [edi],[esi]
  123     cld
  124     inc edi
  125     mov [structures_buffer],edi
  126     mov [output_file],edi
  127       output_path_ok:
  128     cmp [symbols_file],0
  129     je  labels_table_ok
  130     mov ecx,[memory_end]
  131     sub ecx,[labels_list]
  132     mov edi,[tagged_blocks]
  133     sub edi,8
  134     mov [edi],ecx
  135     or  dword [edi+4],-1
  136     sub edi,ecx
  137     cmp edi,[current_offset]
  138     jbe out_of_memory
  139     mov [tagged_blocks],edi
  140     mov esi,[memory_end]
  141       copy_labels:
  142     sub esi,32
  143     cmp esi,[labels_list]
  144     jb  labels_table_ok
  145     mov ecx,32 shr 2
  146     rep movs dword [edi],[esi]
  147     sub esi,32
  148     jmp copy_labels
  149       labels_table_ok:
  150     mov edi,[current_offset]
  151     cmp [output_format],4
  152     je  coff_formatter
  153     cmp [output_format],5
  154     jne common_formatter
  155     bt  [format_flags],0
  156     jnc elf_formatter
  157       common_formatter:
  158     mov eax,edi
  159     sub eax,[code_start]
  160     mov [real_code_size],eax
  161     cmp edi,[undefined_data_end]
  162     jne calculate_code_size
  163     mov edi,[undefined_data_start]
  164       calculate_code_size:
  165     mov [current_offset],edi
  166     sub edi,[code_start]
  167     mov [code_size],edi
  168     and [written_size],0
  169     mov edx,[output_file]
  170     call    create
  171     jc  write_failed
  172     cmp [output_format],3
  173     jne stub_written
  174     mov edx,[code_start]
  175     mov ecx,[stub_size]
  176     sub edx,ecx
  177     add [written_size],ecx
  178     call    write
  179       stub_written:
  180     cmp [output_format],2
  181     jne write_output
  182     call    write_mz_header
  183       write_output:
  184     call    write_code
  185       output_written:
  186     call    close
  187     cmp [symbols_file],0
  188     jne dump_symbols
  189     ret
  190       write_code:
  191     mov eax,[written_size]
  192     mov [headers_size],eax
  193     mov edx,[code_start]
  194     mov ecx,[code_size]
  195     add [written_size],ecx
  196     lea eax,[edx+ecx]
  197     call    write
  198     jc  write_failed
  199     ret
  200 format_directive:
  201     cmp edi,[code_start]
  202     jne unexpected_instruction
  203     mov ebp,[addressing_space]
  204     test    byte [ds:ebp+0Ah],1
  205     jnz unexpected_instruction
  206     cmp [output_format],0
  207     jne unexpected_instruction
  208     lods    byte [esi]
  209     cmp al,1Ch
  210     je  format_prefix
  211     cmp al,18h
  212     jne invalid_argument
  213     lods    byte [esi]
  214       select_format:
  215     mov dl,al
  216     shr al,4
  217     mov [output_format],al
  218     and edx,0Fh
  219     or  [format_flags],edx
  220     cmp al,2
  221     je  format_mz
  222     cmp al,3
  223     je  format_pe
  224     cmp al,4
  225     je  format_coff
  226     cmp al,5
  227     je  format_elf
  228       format_defined:
  229     cmp byte [esi],86h
  230     jne instruction_assembled
  231     cmp word [esi+1],'('
  232     jne invalid_argument
  233     mov eax,[esi+3]
  234     add esi,3+4
  235     mov [file_extension],esi
  236     lea esi,[esi+eax+1]
  237     jmp instruction_assembled
  238       format_prefix:
  239     lods    byte [esi]
  240     mov ah,al
  241     lods    byte [esi]
  242     cmp al,18h
  243     jne invalid_argument
  244     lods    byte [esi]
  245     mov edx,eax
  246     shr dl,4
  247     shr dh,4
  248     cmp dl,dh
  249     jne invalid_argument
  250     or  al,ah
  251     jmp select_format
  252 entry_directive:
  253     bts [format_flags],10h
  254     jc  setting_already_specified
  255     mov al,[output_format]
  256     cmp al,2
  257     je  mz_entry
  258     cmp al,3
  259     je  pe_entry
  260     cmp al,5
  261     jne illegal_instruction
  262     bt  [format_flags],0
  263     jc  elf_entry
  264     jmp illegal_instruction
  265 stack_directive:
  266     bts [format_flags],11h
  267     jc  setting_already_specified
  268     mov al,[output_format]
  269     cmp al,2
  270     je  mz_stack
  271     cmp al,3
  272     je  pe_stack
  273     jmp illegal_instruction
  274 heap_directive:
  275     bts [format_flags],12h
  276     jc  setting_already_specified
  277     mov al,[output_format]
  278     cmp al,2
  279     je  mz_heap
  280     cmp al,3
  281     je  pe_heap
  282     jmp illegal_instruction
  283 segment_directive:
  284     mov al,[output_format]
  285     cmp al,2
  286     je  mz_segment
  287     cmp al,5
  288     je  elf_segment
  289     jmp illegal_instruction
  290 section_directive:
  291     mov al,[output_format]
  292     cmp al,3
  293     je  pe_section
  294     cmp al,4
  295     je  coff_section
  296     cmp al,5
  297     je  elf_section
  298     jmp illegal_instruction
  299 public_directive:
  300     mov al,[output_format]
  301     cmp al,4
  302     je  public_allowed
  303     cmp al,5
  304     jne illegal_instruction
  305     bt  [format_flags],0
  306     jc  illegal_instruction
  307       public_allowed:
  308     mov [base_code],0C0h
  309     lods    byte [esi]
  310     cmp al,2
  311     je  public_label
  312     cmp al,1Dh
  313     jne invalid_argument
  314     lods    byte [esi]
  315     and al,7
  316     add [base_code],al
  317     lods    byte [esi]
  318     cmp al,2
  319     jne invalid_argument
  320       public_label:
  321     lods    dword [esi]
  322     cmp eax,0Fh
  323     jb  invalid_use_of_symbol
  324     je  reserved_word_used_as_symbol
  325     inc esi
  326     mov dx,[current_pass]
  327     mov [eax+18],dx
  328     or  byte [eax+8],8
  329     mov ebx,eax
  330     call    store_label_reference
  331     mov eax,ebx
  332     mov ebx,[free_additional_memory]
  333     lea edx,[ebx+10h]
  334     cmp edx,[structures_buffer]
  335     jae out_of_memory
  336     mov [free_additional_memory],edx
  337     mov [ebx+8],eax
  338     mov eax,[current_line]
  339     mov [ebx+0Ch],eax
  340     lods    byte [esi]
  341     cmp al,86h
  342     jne invalid_argument
  343     lods    word [esi]
  344     cmp ax,'('
  345     jne invalid_argument
  346     mov [ebx+4],esi
  347     lods    dword [esi]
  348     lea esi,[esi+eax+1]
  349     mov al,[base_code]
  350     mov [ebx],al
  351     jmp instruction_assembled
  352 extrn_directive:
  353     mov al,[output_format]
  354     cmp al,4
  355     je  extrn_allowed
  356     cmp al,5
  357     jne illegal_instruction
  358     bt  [format_flags],0
  359     jc  illegal_instruction
  360       extrn_allowed:
  361     lods    word [esi]
  362     cmp ax,'('
  363     jne invalid_argument
  364     mov ebx,esi
  365     lods    dword [esi]
  366     lea esi,[esi+eax+1]
  367     mov edx,[free_additional_memory]
  368     lea eax,[edx+0Ch]
  369     cmp eax,[structures_buffer]
  370     jae out_of_memory
  371     mov [free_additional_memory],eax
  372     mov byte [edx],80h
  373     mov [edx+4],ebx
  374     lods    byte [esi]
  375     cmp al,86h
  376     jne invalid_argument
  377     lods    byte [esi]
  378     cmp al,2
  379     jne invalid_argument
  380     lods    dword [esi]
  381     cmp eax,0Fh
  382     jb  invalid_use_of_symbol
  383     je  reserved_word_used_as_symbol
  384     inc esi
  385     mov ebx,eax
  386     xor ah,ah
  387     lods    byte [esi]
  388     cmp al,':'
  389     je  get_extrn_size
  390     dec esi
  391     cmp al,11h
  392     jne extrn_size_ok
  393       get_extrn_size:
  394     lods    word [esi]
  395     cmp al,11h
  396     jne invalid_argument
  397       extrn_size_ok:
  398     mov [address_symbol],edx
  399     mov [label_size],ah
  400     movzx   ecx,ah
  401     mov [edx+8],ecx
  402     xor eax,eax
  403     xor edx,edx
  404     xor ebp,ebp
  405     mov [address_sign],0
  406     mov ch,2
  407     test    [format_flags],8
  408     jz  make_free_label
  409     mov ch,4
  410     jmp make_free_label
  411 mark_relocation:
  412     cmp [value_type],0
  413     je  relocation_ok
  414     mov ebp,[addressing_space]
  415     test    byte [ds:ebp+0Ah],1
  416     jnz relocation_ok
  417     cmp [output_format],2
  418     je  mark_mz_relocation
  419     cmp [output_format],3
  420     je  mark_pe_relocation
  421     cmp [output_format],4
  422     je  mark_coff_relocation
  423     cmp [output_format],5
  424     je  mark_elf_relocation
  425       relocation_ok:
  426     ret
  427 close_pass:
  428     mov al,[output_format]
  429     cmp al,3
  430     je  close_pe
  431     cmp al,4
  432     je  close_coff
  433     cmp al,5
  434     je  close_elf
  435     ret
  436 
  437 format_mz:
  438     mov edx,[additional_memory]
  439     push    edi
  440     mov edi,edx
  441     mov ecx,1Ch shr 2
  442     xor eax,eax
  443     rep stos dword [edi]
  444     mov [free_additional_memory],edi
  445     pop edi
  446     mov word [edx+0Ch],0FFFFh
  447     mov word [edx+10h],1000h
  448     mov [code_type],16
  449     jmp format_defined
  450 mark_mz_relocation:
  451     push    eax ebx
  452     inc word [number_of_relocations]
  453     jz  format_limitations_exceeded
  454     mov ebx,[free_additional_memory]
  455     mov eax,edi
  456     sub eax,[code_start]
  457     mov [ebx],ax
  458     shr eax,16
  459     shl ax,12
  460     mov [ebx+2],ax
  461     cmp word [ebx],0FFFFh
  462     jne mz_relocation_ok
  463     inc word [ebx+2]
  464     sub word [ebx],10h
  465       mz_relocation_ok:
  466     add ebx,4
  467     cmp ebx,[structures_buffer]
  468     jae out_of_memory
  469     mov [free_additional_memory],ebx
  470     pop ebx eax
  471     ret
  472 mz_segment:
  473     lods    byte [esi]
  474     cmp al,2
  475     jne invalid_argument
  476     lods    dword [esi]
  477     cmp eax,0Fh
  478     jb  invalid_use_of_symbol
  479     je  reserved_word_used_as_symbol
  480     inc esi
  481     mov ebx,eax
  482     mov eax,edi
  483     sub eax,[code_start]
  484     mov ecx,0Fh
  485     add eax,0Fh
  486     and eax,1111b
  487     sub ecx,eax
  488     mov edx,edi
  489     xor eax,eax
  490     rep stos byte [edi]
  491     mov eax,edx
  492     call    undefined_data
  493     push    ebx
  494     call    create_addressing_space
  495     pop ebx
  496     mov eax,edi
  497     sub eax,[code_start]
  498     shr eax,4
  499     cmp eax,10000h
  500     jae value_out_of_range
  501     mov edx,eax
  502     mov al,16
  503     cmp byte [esi],13h
  504     jne segment_type_ok
  505     inc esi
  506     lods    byte [esi]
  507       segment_type_ok:
  508     mov [code_type],al
  509     mov eax,edx
  510     mov ch,1
  511     mov [address_sign],0
  512     xor edx,edx
  513     xor ebp,ebp
  514     mov [label_size],0
  515     mov [address_symbol],edx
  516     jmp make_free_label
  517 mz_entry:
  518     lods    byte [esi]
  519     cmp al,'('
  520     jne invalid_argument
  521     call    get_word_value
  522     cmp [value_type],1
  523     je  initial_cs_ok
  524     call    recoverable_invalid_address
  525       initial_cs_ok:
  526     mov edx,[additional_memory]
  527     mov [edx+16h],ax
  528     lods    byte [esi]
  529     cmp al,':'
  530     jne invalid_argument
  531     lods    byte [esi]
  532     cmp al,'('
  533     jne invalid_argument
  534     ja  invalid_address
  535     call    get_word_value
  536     cmp [value_type],0
  537     jne invalid_use_of_symbol
  538     mov edx,[additional_memory]
  539     mov [edx+14h],ax
  540     jmp instruction_assembled
  541       recoverable_invalid_address:
  542     cmp [error_line],0
  543     jne ignore_invalid_address
  544     push    [current_line]
  545     pop [error_line]
  546     mov [error],invalid_address
  547       ignore_invalid_address:
  548     ret
  549 mz_stack:
  550     lods    byte [esi]
  551     cmp al,'('
  552     jne invalid_argument
  553     call    get_word_value
  554     cmp byte [esi],':'
  555     je  stack_pointer
  556     cmp ax,10h
  557     jb  invalid_value
  558     cmp [value_type],0
  559     jne invalid_use_of_symbol
  560     mov edx,[additional_memory]
  561     mov [edx+10h],ax
  562     jmp instruction_assembled
  563       stack_pointer:
  564     cmp [value_type],1
  565     je  initial_ss_ok
  566     call    recoverable_invalid_address
  567       initial_ss_ok:
  568     mov edx,[additional_memory]
  569     mov [edx+0Eh],ax
  570     lods    byte [esi]
  571     cmp al,':'
  572     jne invalid_argument
  573     lods    byte [esi]
  574     cmp al,'('
  575     jne invalid_argument
  576     call    get_word_value
  577     cmp [value_type],0
  578     jne invalid_use_of_symbol
  579     mov edx,[additional_memory]
  580     mov [edx+10h],ax
  581     bts [format_flags],4
  582     jmp instruction_assembled
  583 mz_heap:
  584     cmp [output_format],2
  585     jne illegal_instruction
  586     lods    byte [esi]
  587     call    get_size_operator
  588     cmp ah,1
  589     je  invalid_value
  590     cmp ah,2
  591     ja  invalid_value
  592     cmp al,'('
  593     jne invalid_argument
  594     call    get_word_value
  595     cmp [value_type],0
  596     jne invalid_use_of_symbol
  597     mov edx,[additional_memory]
  598     mov [edx+0Ch],ax
  599     jmp instruction_assembled
  600 write_mz_header:
  601     mov edx,[additional_memory]
  602     bt  [format_flags],4
  603     jc  mz_stack_ok
  604     mov eax,[real_code_size]
  605     dec eax
  606     shr eax,4
  607     inc eax
  608     mov [edx+0Eh],ax
  609     shl eax,4
  610     movzx   ecx,word [edx+10h]
  611     add eax,ecx
  612     mov [real_code_size],eax
  613       mz_stack_ok:
  614     mov edi,[free_additional_memory]
  615     mov eax,[number_of_relocations]
  616     shl eax,2
  617     add eax,1Ch
  618     sub edi,eax
  619     xchg    edi,[free_additional_memory]
  620     mov ecx,0Fh
  621     add eax,0Fh
  622     and eax,1111b
  623     sub ecx,eax
  624     xor al,al
  625     rep stos byte [edi]
  626     sub edi,[free_additional_memory]
  627     mov ecx,edi
  628     shr edi,4
  629     mov word [edx],'MZ'     ; signature
  630     mov [edx+8],di      ; header size in paragraphs
  631     mov eax,[number_of_relocations]
  632     mov [edx+6],ax      ; number of relocation entries
  633     mov eax,[code_size]
  634     add eax,ecx
  635     mov esi,eax
  636     shr esi,9
  637     and eax,1FFh
  638     inc si
  639     or  ax,ax
  640     jnz mz_size_ok
  641     dec si
  642       mz_size_ok:
  643     mov [edx+2],ax      ; number of bytes in last page
  644     mov [edx+4],si      ; number of pages
  645     mov eax,[real_code_size]
  646     dec eax
  647     shr eax,4
  648     inc eax
  649     mov esi,[code_size]
  650     dec esi
  651     shr esi,4
  652     inc esi
  653     sub eax,esi
  654     mov [edx+0Ah],ax        ; minimum memory in addition to code
  655     add [edx+0Ch],ax        ; maximum memory in addition to code
  656     salc
  657     mov ah,al
  658     or  [edx+0Ch],ax
  659     mov word [edx+18h],1Ch  ; offset of relocation table
  660     add [written_size],ecx
  661     call    write
  662     jc  write_failed
  663     ret
  664 
  665 make_stub:
  666     mov [stub_file],edx
  667     or  edx,edx
  668     jnz stub_from_file
  669     push    esi
  670     mov edx,edi
  671     xor eax,eax
  672     mov ecx,20h
  673     rep stos dword [edi]
  674     mov eax,40h+default_stub_end-default_stub
  675     mov cx,100h+default_stub_end-default_stub
  676     mov word [edx],'MZ'
  677     mov byte [edx+4],1
  678     mov word [edx+2],ax
  679     mov byte [edx+8],4
  680     mov byte [edx+0Ah],10h
  681     mov word [edx+0Ch],0FFFFh
  682     mov word [edx+10h],cx
  683     mov word [edx+3Ch],ax
  684     mov byte [edx+18h],40h
  685     lea edi,[edx+40h]
  686     mov esi,default_stub
  687     mov ecx,default_stub_end-default_stub
  688     rep movs byte [edi],[esi]
  689     pop esi
  690     jmp stub_ok
  691       default_stub:
  692     use16
  693     push    cs
  694     pop ds
  695     mov dx,stub_message-default_stub
  696     mov ah,9
  697     int 21h
  698     mov ax,4C01h
  699     int 21h
  700       stub_message db 'This program cannot be run in DOS mode.',0Dh,0Ah,24h
  701     rq  1
  702       default_stub_end:
  703     use32
  704       stub_from_file:
  705     push    esi
  706     mov esi,edx
  707     call    open_binary_file
  708     mov edx,edi
  709     mov ecx,1Ch
  710     mov esi,edx
  711     call    read
  712     jc  binary_stub
  713     cmp word [esi],'MZ'
  714     jne binary_stub
  715     add edi,1Ch
  716     movzx   ecx,word [esi+6]
  717     add ecx,11b
  718     and ecx,not 11b
  719     add ecx,(40h-1Ch) shr 2
  720     lea eax,[edi+ecx*4]
  721     cmp edi,[tagged_blocks]
  722     jae out_of_memory
  723     xor eax,eax
  724     rep stos dword [edi]
  725     mov edx,40h
  726     xchg    dx,[esi+18h]
  727     xor al,al
  728     call    lseek
  729     movzx   ecx,word [esi+6]
  730     shl ecx,2
  731     lea edx,[esi+40h]
  732     call    read
  733     mov edx,edi
  734     sub edx,esi
  735     shr edx,4
  736     xchg    dx,[esi+8]
  737     shl edx,4
  738     xor al,al
  739     call    lseek
  740     movzx   ecx,word [esi+4]
  741     dec ecx
  742     shl ecx,9
  743     movzx   edx,word [esi+2]
  744     test    edx,edx
  745     jnz stub_header_size_ok
  746     mov dx,200h
  747      stub_header_size_ok:
  748     add ecx,edx
  749     mov edx,edi
  750     sub ecx,eax
  751     je  read_stub_code
  752     jb  stub_code_ok
  753     push    ecx
  754     dec ecx
  755     shr ecx,3
  756     inc ecx
  757     shl ecx,1
  758     lea eax,[edi+ecx*4]
  759     cmp eax,[tagged_blocks]
  760     jae out_of_memory
  761     xor eax,eax
  762     rep stos dword [edi]
  763     pop ecx
  764      read_stub_code:
  765     call    read
  766      stub_code_ok:
  767     call    close
  768     mov edx,edi
  769     sub edx,esi
  770     mov ax,dx
  771     and ax,1FFh
  772     mov [esi+2],ax
  773     dec edx
  774     shr edx,9
  775     inc edx
  776     mov [esi+4],dx
  777     mov eax,edi
  778     sub eax,esi
  779     mov [esi+3Ch],eax
  780     pop esi
  781       stub_ok:
  782     ret
  783       binary_stub:
  784     mov esi,edi
  785     mov ecx,40h shr 2
  786     xor eax,eax
  787     rep stos dword [edi]
  788     mov al,2
  789     xor edx,edx
  790     call    lseek
  791     push    eax
  792     xor al,al
  793     xor edx,edx
  794     call    lseek
  795     mov ecx,[esp]
  796     add ecx,40h+111b
  797     and ecx,not 111b
  798     mov ax,cx
  799     and ax,1FFh
  800     mov [esi+2],ax
  801     lea eax,[ecx+1FFh]
  802     shr eax,9
  803     mov [esi+4],ax
  804     mov [esi+3Ch],ecx
  805     sub ecx,40h
  806     mov eax,10000h
  807     sub eax,ecx
  808     jbe binary_heap_ok
  809     shr eax,4
  810     mov [esi+0Ah],ax
  811       binary_heap_ok:
  812     mov word [esi],'MZ'
  813     mov byte [esi+8],4
  814     mov ax,0FFFFh
  815     mov [esi+0Ch],ax
  816     dec ax
  817     mov [esi+10h],ax
  818     sub ax,0Eh
  819     mov [esi+0Eh],ax
  820     mov [esi+16h],ax
  821     mov word [esi+14h],100h
  822     mov byte [esi+18h],40h
  823     mov eax,[tagged_blocks]
  824     sub eax,ecx
  825     cmp edi,eax
  826     jae out_of_memory
  827     mov edx,edi
  828     shr ecx,2
  829     xor eax,eax
  830     rep stos dword [edi]
  831     pop ecx
  832     call    read
  833     call    close
  834     pop esi
  835     ret
  836 
  837 format_pe:
  838     xor edx,edx
  839     mov [machine],14Ch
  840     mov [subsystem],3
  841     mov [subsystem_version],3 + 10 shl 16
  842     mov [image_base],400000h
  843     and [image_base_high],0
  844     test    [format_flags],8
  845     jz  pe_settings
  846     mov [machine],8664h
  847     mov [subsystem_version],5 + 0 shl 16
  848       pe_settings:
  849     cmp byte [esi],84h
  850     je  get_stub_name
  851     cmp byte [esi],80h
  852     je  get_pe_base
  853     cmp byte [esi],1Bh
  854     jne pe_settings_ok
  855     lods    byte [esi]
  856     lods    byte [esi]
  857     test    al,80h+40h
  858     jz  subsystem_setting
  859     cmp al,80h
  860     je  dll_flag
  861     cmp al,81h
  862     je  wdm_flag
  863     cmp al,82h
  864     je  large_flag
  865     cmp al,83h
  866     je  nx_flag
  867     jmp pe_settings
  868       dll_flag:
  869     bts [format_flags],8
  870     jc  setting_already_specified
  871     jmp pe_settings
  872       wdm_flag:
  873     bts [format_flags],9
  874     jc  setting_already_specified
  875     jmp pe_settings
  876       large_flag:
  877     bts [format_flags],11
  878     jc  setting_already_specified
  879     test    [format_flags],8
  880     jnz invalid_argument
  881     jmp pe_settings
  882       nx_flag:
  883     bts [format_flags],12
  884     jc  setting_already_specified
  885     jmp pe_settings
  886       subsystem_setting:
  887     bts [format_flags],7
  888     jc  setting_already_specified
  889     and ax,3Fh
  890     mov [subsystem],ax
  891     cmp ax,10
  892     jb  subsystem_type_ok
  893     or  [format_flags],4
  894       subsystem_type_ok:
  895     cmp byte [esi],'('
  896     jne pe_settings
  897     inc esi
  898     cmp byte [esi],'.'
  899     jne invalid_value
  900     inc esi
  901     push    edx
  902     cmp byte [esi+11],0
  903     jne invalid_value
  904     cmp byte [esi+10],2
  905     ja  invalid_value
  906     mov dx,[esi+8]
  907     cmp dx,8000h
  908     je  zero_version
  909     mov eax,[esi+4]
  910     cmp dx,7
  911     jg  invalid_value
  912     mov cx,7
  913     sub cx,dx
  914     mov eax,[esi+4]
  915     shr eax,cl
  916     mov ebx,eax
  917     shr ebx,24
  918     cmp bl,100
  919     jae invalid_value
  920     and eax,0FFFFFFh
  921     mov ecx,100
  922     mul ecx
  923     shrd    eax,edx,24
  924     jnc version_value_ok
  925     inc eax
  926       version_value_ok:
  927     shl eax,16
  928     mov ax,bx
  929     jmp subsystem_version_ok
  930       zero_version:
  931     xor eax,eax
  932       subsystem_version_ok:
  933     pop edx
  934     add esi,13
  935     mov [subsystem_version],eax
  936     jmp pe_settings
  937       get_pe_base:
  938     bts [format_flags],10
  939     jc  setting_already_specified
  940     lods    word [esi]
  941     cmp ah,'('
  942     jne invalid_argument
  943     cmp byte [esi],'.'
  944     je  invalid_value
  945     push    edx edi
  946     add edi,[stub_size]
  947     test    [format_flags],4
  948     jnz get_peplus_base
  949     call    get_dword_value
  950     mov [image_base],eax
  951     jmp pe_base_ok
  952       get_peplus_base:
  953     call    get_qword_value
  954     mov [image_base],eax
  955     mov [image_base_high],edx
  956       pe_base_ok:
  957     pop edi edx
  958     cmp [value_type],0
  959     jne invalid_use_of_symbol
  960     cmp byte [esi],84h
  961     jne pe_settings_ok
  962       get_stub_name:
  963     lods    byte [esi]
  964     lods    word [esi]
  965     cmp ax,'('
  966     jne invalid_argument
  967     lods    dword [esi]
  968     mov edx,esi
  969     add esi,eax
  970     inc esi
  971       pe_settings_ok:
  972     mov ebp,[stub_size]
  973     or  ebp,ebp
  974     jz  make_pe_stub
  975     cmp edx,[stub_file]
  976     je  pe_stub_ok
  977     sub edi,[stub_size]
  978     mov [code_start],edi
  979       make_pe_stub:
  980     call    make_stub
  981     mov eax,edi
  982     sub eax,[code_start]
  983     mov [stub_size],eax
  984     mov [code_start],edi
  985     mov ebp,eax
  986       pe_stub_ok:
  987     mov edx,edi
  988     mov ecx,18h+0E0h
  989     test    [format_flags],4
  990     jz  zero_pe_header
  991     add ecx,10h
  992       zero_pe_header:
  993     add ebp,ecx
  994     shr ecx,2
  995     xor eax,eax
  996     rep stos dword [edi]
  997     mov word [edx],'PE'     ; signature
  998     mov ax,[machine]
  999     mov word [edx+4],ax
 1000     mov byte [edx+38h+1],10h    ; section alignment
 1001     mov byte [edx+3Ch+1],2  ; file alignment
 1002     mov byte [edx+40h],1    ; OS version
 1003     mov eax,[subsystem_version]
 1004     mov [edx+48h],eax
 1005     mov ax,[subsystem]
 1006     mov [edx+5Ch],ax
 1007     cmp ax,1
 1008     jne pe_alignment_ok
 1009     mov eax,20h
 1010     mov dword [edx+38h],eax
 1011     mov dword [edx+3Ch],eax
 1012       pe_alignment_ok:
 1013     mov word [edx+1Ah],VERSION_MAJOR + VERSION_MINOR shl 8
 1014     test    [format_flags],4
 1015     jnz init_peplus_specific
 1016     mov byte [edx+14h],0E0h ; size of optional header
 1017     mov dword [edx+16h],10B010Fh; flags and magic value
 1018     mov eax,[image_base]
 1019     mov [edx+34h],eax
 1020     mov byte [edx+60h+1],10h    ; stack reserve
 1021     mov byte [edx+64h+1],10h    ; stack commit
 1022     mov byte [edx+68h+2],1  ; heap reserve
 1023     mov byte [edx+74h],16   ; number of directories
 1024     jmp pe_header_ok
 1025       init_peplus_specific:
 1026     mov byte [edx+14h],0F0h ; size of optional header
 1027     mov dword [edx+16h],20B002Fh; flags and magic value
 1028     mov eax,[image_base]
 1029     mov [edx+30h],eax
 1030     mov eax,[image_base_high]
 1031     mov [edx+34h],eax
 1032     mov byte [edx+60h+1],10h    ; stack reserve
 1033     mov byte [edx+68h+1],10h    ; stack commit
 1034     mov byte [edx+70h+2],1  ; heap reserve
 1035     mov byte [edx+84h],16   ; number of directories
 1036       pe_header_ok:
 1037     bsf ecx,[edx+3Ch]
 1038     imul    ebx,[number_of_sections],28h
 1039     or  ebx,ebx
 1040     jnz reserve_space_for_section_headers
 1041     mov ebx,28h
 1042       reserve_space_for_section_headers:
 1043     add ebx,ebp
 1044     dec ebx
 1045     shr ebx,cl
 1046     inc ebx
 1047     shl ebx,cl
 1048     sub ebx,ebp
 1049     mov ecx,ebx
 1050     mov eax,[tagged_blocks]
 1051     sub eax,ecx
 1052     cmp edi,eax
 1053     jae out_of_memory
 1054     shr ecx,2
 1055     xor eax,eax
 1056     rep stos dword [edi]
 1057     mov eax,edi
 1058     sub eax,[code_start]
 1059     add eax,[stub_size]
 1060     mov [edx+54h],eax       ; size of headers
 1061     mov ecx,[edx+38h]
 1062     dec ecx
 1063     add eax,ecx
 1064     not ecx
 1065     and eax,ecx
 1066     bt  [format_flags],8
 1067     jc  pe_entry_init_ok
 1068     mov [edx+28h],eax       ; entry point rva
 1069       pe_entry_init_ok:
 1070     and [number_of_sections],0
 1071     movzx   ebx,word [edx+14h]
 1072     lea ebx,[edx+18h+ebx]
 1073     mov [current_section],ebx
 1074     mov dword [ebx],'.fla'
 1075     mov dword [ebx+4],'t'
 1076     mov [ebx+14h],edi
 1077     mov [ebx+0Ch],eax
 1078     mov dword [ebx+24h],0E0000060h
 1079     xor ecx,ecx
 1080     xor bl,bl
 1081     not eax
 1082     not ecx
 1083     not bl
 1084     add eax,1
 1085     adc ecx,0
 1086     adc bl,0
 1087     add eax,edi
 1088     adc ecx,0
 1089     adc bl,0
 1090     test    [format_flags],4
 1091     jnz peplus_org
 1092     sub eax,[edx+34h]
 1093     sbb ecx,0
 1094     sbb bl,0
 1095     jmp pe_org_ok
 1096       peplus_org:
 1097     sub eax,[edx+30h]
 1098     sbb ecx,[edx+34h]
 1099     sbb bl,0
 1100       pe_org_ok:
 1101     test    [format_flags],8
 1102     jnz pe64_code
 1103     mov bh,2
 1104     mov [code_type],32
 1105     jmp pe_code_type_ok
 1106       pe64_code:
 1107     mov bh,4
 1108     mov [code_type],64
 1109       pe_code_type_ok:
 1110     bt  [resolver_flags],0
 1111     jc  pe_labels_type_ok
 1112     xor bh,bh
 1113       pe_labels_type_ok:
 1114     push    eax ebx
 1115     call    init_addressing_space
 1116     mov ebp,ebx
 1117     pop ebx eax
 1118     mov [ds:ebp],eax
 1119     mov [ds:ebp+4],ecx
 1120     mov [ds:ebp+8],bx
 1121     mov [ds:ebp+18h],edi
 1122     bt  [format_flags],8
 1123     jnc dll_flag_ok
 1124     or  byte [edx+16h+1],20h
 1125       dll_flag_ok:
 1126     bt  [format_flags],9
 1127     jnc wdm_flag_ok
 1128     or  byte [edx+5Eh+1],20h
 1129       wdm_flag_ok:
 1130     bt  [format_flags],11
 1131     jnc large_flag_ok
 1132     or  byte [edx+16h],20h
 1133       large_flag_ok:
 1134     bt  [format_flags],12
 1135     jnc nx_ok
 1136     or  byte [edx+5Eh+1],1
 1137       nx_ok:
 1138     jmp format_defined
 1139 pe_section:
 1140     call    close_pe_section
 1141     push    eax ebx
 1142     call    create_addressing_space
 1143     mov ebp,ebx
 1144     pop ebx eax
 1145     bts [format_flags],5
 1146     lea ecx,[ebx+28h]
 1147     add edx,[edx+54h]
 1148     sub edx,[stub_size]
 1149     cmp ecx,edx
 1150     jbe new_section
 1151     lea ebx,[edx-28h]
 1152     or  [next_pass_needed],-1
 1153     push    edi
 1154     mov edi,ebx
 1155     mov ecx,28h shr 4
 1156     xor eax,eax
 1157     rep stos dword [edi]
 1158     pop edi
 1159       new_section:
 1160     mov [ebx+0Ch],eax
 1161     lods    word [esi]
 1162     cmp ax,'('
 1163     jne invalid_argument
 1164     lea edx,[esi+4]
 1165     mov ecx,[esi]
 1166     lea esi,[esi+4+ecx+1]
 1167     cmp ecx,8
 1168     ja  name_too_long
 1169     xor eax,eax
 1170     mov [ebx],eax
 1171     mov [ebx+4],eax
 1172     push    esi edi
 1173     mov edi,ebx
 1174     mov esi,edx
 1175     rep movs byte [edi],[esi]
 1176     pop edi esi
 1177     and dword [ebx+24h],0
 1178     mov [ebx+14h],edi
 1179     mov edx,[code_start]
 1180     mov eax,edi
 1181     xor ecx,ecx
 1182     sub eax,[ebx+0Ch]
 1183     sbb ecx,0
 1184     sbb byte [ds:ebp+8],0
 1185     mov byte [ds:ebp+9],2
 1186     mov [code_type],32
 1187     test    [format_flags],8
 1188     jz  pe_section_code_type_ok
 1189     mov byte [ds:ebp+9],4
 1190     mov [code_type],64
 1191       pe_section_code_type_ok:
 1192     test    [format_flags],4
 1193     jnz peplus_section_org
 1194     sub eax,[edx+34h]
 1195     sbb ecx,0
 1196     sbb byte [ds:ebp+8],0
 1197     bt  [resolver_flags],0
 1198     jc  pe_section_org_ok
 1199     mov byte [ds:ebp+9],0
 1200     jmp pe_section_org_ok
 1201       peplus_section_org:
 1202     sub eax,[edx+30h]
 1203     sbb ecx,[edx+34h]
 1204     sbb byte [ds:ebp+8],0
 1205     bt  [resolver_flags],0
 1206     jc  pe_section_org_ok
 1207     mov byte [ds:ebp+9],0
 1208       pe_section_org_ok:
 1209     mov [ds:ebp],eax
 1210     mov [ds:ebp+4],ecx
 1211     mov [ds:ebp+18h],edi
 1212       get_section_flags:
 1213     lods    byte [esi]
 1214     cmp al,1Ah
 1215     je  set_directory
 1216     cmp al,19h
 1217     je  section_flag
 1218     dec esi
 1219     jmp instruction_assembled
 1220       set_directory:
 1221     movzx   eax,byte [esi]
 1222     inc esi
 1223     mov ecx,ebx
 1224     test    [format_flags],4
 1225     jnz peplus_directory
 1226     xchg    ecx,[edx+78h+eax*8]
 1227     mov dword [edx+78h+eax*8+4],-1
 1228     jmp pe_directory_set
 1229       peplus_directory:
 1230     xchg    ecx,[edx+88h+eax*8]
 1231     mov dword [edx+88h+eax*8+4],-1
 1232       pe_directory_set:
 1233     or  ecx,ecx
 1234     jnz data_already_defined
 1235     push    ebx edx
 1236     call    generate_pe_data
 1237     pop edx ebx
 1238     jmp get_section_flags
 1239       section_flag:
 1240     lods    byte [esi]
 1241     cmp al,9
 1242     je  invalid_argument
 1243     cmp al,11
 1244     je  invalid_argument
 1245     mov cl,al
 1246     mov eax,1
 1247     shl eax,cl
 1248     test    dword [ebx+24h],eax
 1249     jnz setting_already_specified
 1250     or  dword [ebx+24h],eax
 1251     jmp get_section_flags
 1252       close_pe_section:
 1253     mov ebx,[current_section]
 1254     mov edx,[code_start]
 1255     mov eax,edi
 1256     sub eax,[ebx+14h]
 1257     jnz finish_section
 1258     bt  [format_flags],5
 1259     jc  finish_section
 1260     mov eax,[ebx+0Ch]
 1261     ret
 1262       finish_section:
 1263     mov [ebx+8],eax
 1264     cmp edi,[undefined_data_end]
 1265     jne align_section
 1266     cmp dword [edx+38h],1000h
 1267     jb  align_section
 1268     mov edi,[undefined_data_start]
 1269       align_section:
 1270     and [undefined_data_end],0
 1271     mov ebp,edi
 1272     sub ebp,[ebx+14h]
 1273     mov ecx,[edx+3Ch]
 1274     dec ecx
 1275     lea eax,[ebp+ecx]
 1276     not ecx
 1277     and eax,ecx
 1278     mov [ebx+10h],eax
 1279     sub eax,ebp
 1280     mov ecx,eax
 1281     xor al,al
 1282     rep stos byte [edi]
 1283     mov eax,[code_start]
 1284     sub eax,[stub_size]
 1285     sub [ebx+14h],eax
 1286     mov ecx,[ebx+10h]
 1287     test    byte [ebx+24h],20h
 1288     jz  pe_code_sum_ok
 1289     add [edx+1Ch],ecx
 1290     cmp dword [edx+2Ch],0
 1291     jne pe_code_sum_ok
 1292     mov eax,[ebx+0Ch]
 1293     mov [edx+2Ch],eax
 1294       pe_code_sum_ok:
 1295     test    byte [ebx+24h],40h
 1296     jz  pe_data_sum_ok
 1297     add [edx+20h],ecx
 1298     test    [format_flags],4
 1299     jnz pe_data_sum_ok
 1300     cmp dword [edx+30h],0
 1301     jne pe_data_sum_ok
 1302     mov eax,[ebx+0Ch]
 1303     mov [edx+30h],eax
 1304       pe_data_sum_ok:
 1305     mov eax,[ebx+8]
 1306     or  eax,eax
 1307     jz  udata_ok
 1308     cmp dword [ebx+10h],0
 1309     jne udata_ok
 1310     or  byte [ebx+24h],80h
 1311     add [edx+24h],ecx
 1312       udata_ok:
 1313     mov ecx,[edx+38h]
 1314     dec ecx
 1315     add eax,ecx
 1316     not ecx
 1317     and eax,ecx
 1318     add eax,[ebx+0Ch]
 1319     add ebx,28h
 1320     mov [current_section],ebx
 1321     inc word [number_of_sections]
 1322     jz  format_limitations_exceeded
 1323     ret
 1324 data_directive:
 1325     cmp [output_format],3
 1326     jne illegal_instruction
 1327     lods    byte [esi]
 1328     cmp al,1Ah
 1329     je  predefined_data_type
 1330     cmp al,'('
 1331     jne invalid_argument
 1332     call    get_byte_value
 1333     cmp al,16
 1334     jb  data_type_ok
 1335     jmp invalid_value
 1336       predefined_data_type:
 1337     movzx   eax,byte [esi]
 1338     inc esi
 1339       data_type_ok:
 1340     mov ebx,[current_section]
 1341     mov ecx,edi
 1342     sub ecx,[ebx+14h]
 1343     add ecx,[ebx+0Ch]
 1344     mov edx,[code_start]
 1345     test    [format_flags],4
 1346     jnz peplus_data
 1347     xchg    ecx,[edx+78h+eax*8]
 1348     jmp init_pe_data
 1349       peplus_data:
 1350     xchg    ecx,[edx+88h+eax*8]
 1351       init_pe_data:
 1352     or  ecx,ecx
 1353     jnz data_already_defined
 1354     call    allocate_structure_data
 1355     mov word [ebx],data_directive-instruction_handler
 1356     mov [ebx+2],al
 1357     mov edx,[current_line]
 1358     mov [ebx+4],edx
 1359     call    generate_pe_data
 1360     jmp instruction_assembled
 1361       end_data:
 1362     cmp [output_format],3
 1363     jne illegal_instruction
 1364     call    find_structure_data
 1365     jc  unexpected_instruction
 1366     movzx   eax,byte [ebx+2]
 1367     mov edx,[current_section]
 1368     mov ecx,edi
 1369     sub ecx,[edx+14h]
 1370     add ecx,[edx+0Ch]
 1371     mov edx,[code_start]
 1372     test    [format_flags],4
 1373     jnz end_peplus_data
 1374     sub ecx,[edx+78h+eax*8]
 1375     mov [edx+78h+eax*8+4],ecx
 1376     jmp remove_structure_data
 1377       end_peplus_data:
 1378     sub ecx,[edx+88h+eax*8]
 1379     mov [edx+88h+eax*8+4],ecx
 1380     jmp remove_structure_data
 1381 pe_entry:
 1382     lods    byte [esi]
 1383     cmp al,'('
 1384     jne invalid_argument
 1385     cmp byte [esi],'.'
 1386     je  invalid_value
 1387     test    [format_flags],8
 1388     jnz pe64_entry
 1389     call    get_dword_value
 1390     mov bl,2
 1391     bt  [resolver_flags],0
 1392     jc  check_pe_entry_label_type
 1393     xor bl,bl
 1394       check_pe_entry_label_type:
 1395     cmp [value_type],bl
 1396     je  pe_entry_ok
 1397     call    recoverable_invalid_address
 1398       pe_entry_ok:
 1399     cdq
 1400     test    [format_flags],4
 1401     jnz pe64_entry_type_ok
 1402     mov edx,[code_start]
 1403     sub eax,[edx+34h]
 1404     mov [edx+28h],eax
 1405     jmp instruction_assembled
 1406       pe64_entry:
 1407     call    get_qword_value
 1408     mov bl,4
 1409     bt  [resolver_flags],0
 1410     jc  check_pe64_entry_label_type
 1411     xor bl,bl
 1412       check_pe64_entry_label_type:
 1413     cmp [value_type],bl
 1414     je  pe64_entry_type_ok
 1415     call    recoverable_invalid_address
 1416       pe64_entry_type_ok:
 1417     mov ecx,[code_start]
 1418     sub eax,[ecx+30h]
 1419     sbb edx,[ecx+34h]
 1420     jz  pe64_entry_range_ok
 1421     call    recoverable_overflow
 1422       pe64_entry_range_ok:
 1423     mov [ecx+28h],eax
 1424     jmp instruction_assembled
 1425 pe_stack:
 1426     lods    byte [esi]
 1427     cmp al,'('
 1428     jne invalid_argument
 1429     cmp byte [esi],'.'
 1430     je  invalid_value
 1431     test    [format_flags],4
 1432     jnz peplus_stack
 1433     call    get_count_value
 1434     mov edx,[code_start]
 1435     mov [edx+60h],eax
 1436     cmp byte [esi],','
 1437     jne default_stack_commit
 1438     lods    byte [esi]
 1439     lods    byte [esi]
 1440     cmp al,'('
 1441     jne invalid_argument
 1442     cmp byte [esi],'.'
 1443     je  invalid_value
 1444     call    get_count_value
 1445     mov edx,[code_start]
 1446     mov [edx+64h],eax
 1447     cmp eax,[edx+60h]
 1448     ja  value_out_of_range
 1449     jmp instruction_assembled
 1450       default_stack_commit:
 1451     mov dword [edx+64h],1000h
 1452     mov eax,[edx+60h]
 1453     cmp eax,1000h
 1454     ja  instruction_assembled
 1455     mov dword [edx+64h],eax
 1456     jmp instruction_assembled
 1457       peplus_stack:
 1458     call    get_qword_value
 1459     cmp [value_type],0
 1460     jne invalid_use_of_symbol
 1461     mov ecx,[code_start]
 1462     mov [ecx+60h],eax
 1463     mov [ecx+64h],edx
 1464     cmp byte [esi],','
 1465     jne default_peplus_stack_commit
 1466     lods    byte [esi]
 1467     lods    byte [esi]
 1468     cmp al,'('
 1469     jne invalid_argument
 1470     cmp byte [esi],'.'
 1471     je  invalid_value
 1472     call    get_qword_value
 1473     cmp [value_type],0
 1474     jne invalid_use_of_symbol
 1475     mov ecx,[code_start]
 1476     mov [ecx+68h],eax
 1477     mov [ecx+6Ch],edx
 1478     cmp edx,[ecx+64h]
 1479     ja  value_out_of_range
 1480     jb  instruction_assembled
 1481     cmp eax,[ecx+60h]
 1482     ja  value_out_of_range
 1483     jmp instruction_assembled
 1484       default_peplus_stack_commit:
 1485     mov dword [ecx+68h],1000h
 1486     cmp dword [ecx+64h],0
 1487     jne instruction_assembled
 1488     mov eax,[ecx+60h]
 1489     cmp eax,1000h
 1490     ja  instruction_assembled
 1491     mov dword [ecx+68h],eax
 1492     jmp instruction_assembled
 1493 pe_heap:
 1494     lods    byte [esi]
 1495     cmp al,'('
 1496     jne invalid_argument
 1497     cmp byte [esi],'.'
 1498     je  invalid_value
 1499     test    [format_flags],4
 1500     jnz peplus_heap
 1501     call    get_count_value
 1502     mov edx,[code_start]
 1503     mov [edx+68h],eax
 1504     cmp byte [esi],','
 1505     jne instruction_assembled
 1506     lods    byte [esi]
 1507     lods    byte [esi]
 1508     cmp al,'('
 1509     jne invalid_argument
 1510     cmp byte [esi],'.'
 1511     je  invalid_value
 1512     call    get_count_value
 1513     mov edx,[code_start]
 1514     mov [edx+6Ch],eax
 1515     cmp eax,[edx+68h]
 1516     ja  value_out_of_range
 1517     jmp instruction_assembled
 1518       peplus_heap:
 1519     call    get_qword_value
 1520     cmp [value_type],0
 1521     jne invalid_use_of_symbol
 1522     mov ecx,[code_start]
 1523     mov [ecx+70h],eax
 1524     mov [ecx+74h],edx
 1525     cmp byte [esi],','
 1526     jne instruction_assembled
 1527     lods    byte [esi]
 1528     lods    byte [esi]
 1529     cmp al,'('
 1530     jne invalid_argument
 1531     cmp byte [esi],'.'
 1532     je  invalid_value
 1533     call    get_qword_value
 1534     cmp [value_type],0
 1535     jne invalid_use_of_symbol
 1536     mov ecx,[code_start]
 1537     mov [ecx+78h],eax
 1538     mov [ecx+7Ch],edx
 1539     cmp edx,[ecx+74h]
 1540     ja  value_out_of_range
 1541     jb  instruction_assembled
 1542     cmp eax,[ecx+70h]
 1543     ja  value_out_of_range
 1544     jmp instruction_assembled
 1545 mark_pe_relocation:
 1546     push    eax ebx
 1547     test    [format_flags],4
 1548     jz  check_standard_pe_relocation_type
 1549     cmp [value_type],4
 1550     je  pe_relocation_type_ok
 1551       check_standard_pe_relocation_type:
 1552     cmp [value_type],2
 1553     je  pe_relocation_type_ok
 1554     call    recoverable_misuse
 1555       pe_relocation_type_ok:
 1556     mov ebx,[current_section]
 1557     mov eax,edi
 1558     sub eax,[ebx+14h]
 1559     add eax,[ebx+0Ch]
 1560     mov ebx,[free_additional_memory]
 1561     inc [number_of_relocations]
 1562     add ebx,5
 1563     cmp ebx,[structures_buffer]
 1564     jae out_of_memory
 1565     mov [free_additional_memory],ebx
 1566     mov [ebx-5],eax
 1567     cmp [value_type],2
 1568     je  fixup_32bit
 1569     mov byte [ebx-1],0Ah
 1570     jmp fixup_ok
 1571       fixup_32bit:
 1572     mov byte [ebx-1],3
 1573       fixup_ok:
 1574     pop ebx eax
 1575     ret
 1576 generate_pe_data:
 1577     cmp al,2
 1578     je  make_pe_resource
 1579     cmp al,5
 1580     je  make_pe_fixups
 1581     ret
 1582 make_pe_fixups:
 1583     mov edx,[code_start]
 1584     and byte [edx+16h],not 1
 1585     or  byte [edx+5Eh],40h
 1586     bts [resolver_flags],0
 1587     jc  fixups_ready
 1588     or  [next_pass_needed],-1
 1589       fixups_ready:
 1590     and [last_fixup_base],0
 1591     call    make_fixups
 1592     xchg    eax,[actual_fixups_size]
 1593     sub eax,[actual_fixups_size]
 1594     ja  reserve_forward_fixups
 1595     xor eax,eax
 1596       reserve_forward_fixups:
 1597     mov [reserved_fixups],edi
 1598     add edi,eax
 1599     mov [reserved_fixups_size],eax
 1600     ret
 1601       make_fixups:
 1602     push    esi
 1603     xor ecx,ecx
 1604     xchg    ecx,[number_of_relocations]
 1605     mov esi,[free_additional_memory]
 1606     lea eax,[ecx*5]
 1607     sub esi,eax
 1608     mov [free_additional_memory],esi
 1609     mov edx,[last_fixup_base]
 1610     mov ebx,[last_fixup_header]
 1611     mov ebp,edi
 1612     jecxz   fixups_done
 1613       make_fixup:
 1614     cmp [esi],edx
 1615     jb  store_fixup
 1616     mov eax,edi
 1617     sub eax,ebp
 1618     test    eax,11b
 1619     jz  fixups_block
 1620     xor ax,ax
 1621     stos    word [edi]
 1622     add dword [ebx],2
 1623       fixups_block:
 1624     mov eax,edx
 1625     add edx,1000h
 1626     cmp [esi],edx
 1627     jae fixups_block
 1628     stos    dword [edi]
 1629     mov ebx,edi
 1630     mov eax,8
 1631     stos    dword [edi]
 1632       store_fixup:
 1633     add dword [ebx],2
 1634     mov ah,[esi+1]
 1635     and ah,0Fh
 1636     mov al,[esi+4]
 1637     shl al,4
 1638     or  ah,al
 1639     mov al,[esi]
 1640     stos    word [edi]
 1641     add esi,5
 1642     loop    make_fixup
 1643       fixups_done:
 1644     mov [last_fixup_base],edx
 1645     mov [last_fixup_header],ebx
 1646     pop esi
 1647     mov eax,edi
 1648     sub eax,ebp
 1649     ret
 1650 make_pe_resource:
 1651     cmp byte [esi],82h
 1652     jne resource_done
 1653     inc esi
 1654     lods    word [esi]
 1655     cmp ax,'('
 1656     jne invalid_argument
 1657     lods    dword [esi]
 1658     mov edx,esi
 1659     lea esi,[esi+eax+1]
 1660     cmp [next_pass_needed],0
 1661     je  resource_from_file
 1662     cmp [current_pass],0
 1663     jne reserve_space_for_resource
 1664     and [resource_size],0
 1665       reserve_space_for_resource:
 1666     add edi,[resource_size]
 1667     cmp edi,[tagged_blocks]
 1668     ja  out_of_memory
 1669     jmp resource_done
 1670       resource_from_file:
 1671     push    esi
 1672     mov esi,edx
 1673     call    open_binary_file
 1674     push    ebx
 1675     mov esi,[free_additional_memory]
 1676     lea eax,[esi+20h]
 1677     cmp eax,[structures_buffer]
 1678     ja  out_of_memory
 1679     mov edx,esi
 1680     mov ecx,20h
 1681     call    read
 1682     jc  invalid_file_format
 1683     xor eax,eax
 1684     cmp [esi],eax
 1685     jne invalid_file_format
 1686     mov ax,0FFFFh
 1687     cmp [esi+8],eax
 1688     jne invalid_file_format
 1689     cmp [esi+12],eax
 1690     jne invalid_file_format
 1691     mov eax,20h
 1692     cmp [esi+4],eax
 1693     jne invalid_file_format
 1694       read_resource_headers:
 1695     test    eax,11b
 1696     jz  resource_file_alignment_ok
 1697     mov edx,4
 1698     and eax,11b
 1699     sub edx,eax
 1700     mov al,1
 1701     call    lseek
 1702     jc  resource_headers_ok
 1703       resource_file_alignment_ok:
 1704     mov [esi],eax
 1705     lea edx,[esi+12]
 1706     mov ecx,8
 1707     call    read
 1708     jc  resource_headers_ok
 1709     mov ecx,[esi+16]
 1710     add [esi],ecx
 1711     lea edx,[esi+20]
 1712     sub ecx,8
 1713     mov [esi+16],ecx
 1714     lea eax,[edx+ecx]
 1715     cmp eax,[structures_buffer]
 1716     ja  out_of_memory
 1717     call    read
 1718     jc  invalid_file_format
 1719     mov edx,[esi]
 1720     add edx,[esi+12]
 1721     mov eax,[esi+16]
 1722     lea ecx,[esi+20]
 1723     lea esi,[ecx+eax]
 1724     add ecx,2
 1725     cmp word [ecx-2],0FFFFh
 1726     je  resource_header_type_ok
 1727       check_resource_header_type:
 1728     cmp ecx,esi
 1729     jae invalid_file_format
 1730     cmp word [ecx],0
 1731     je  resource_header_type_ok
 1732     add ecx,2
 1733     jmp check_resource_header_type
 1734       resource_header_type_ok:
 1735     add ecx,2
 1736     cmp word [ecx],0FFFFh
 1737     je  resource_header_name_ok
 1738       check_resource_header_name:
 1739     cmp ecx,esi
 1740     jae invalid_file_format
 1741     cmp word [ecx],0
 1742     je  resource_header_name_ok
 1743     add ecx,2
 1744     jmp check_resource_header_name
 1745       resource_header_name_ok:
 1746     xor al,al
 1747     call    lseek
 1748     jnc read_resource_headers
 1749       resource_headers_ok:
 1750     cmp esi,[free_additional_memory]
 1751     je  invalid_file_format
 1752     xor eax,eax
 1753     mov [esi],eax
 1754     mov [resource_data],edi
 1755     lea eax,[edi+16]
 1756     cmp eax,[tagged_blocks]
 1757     jae out_of_memory
 1758     xor eax,eax
 1759     stos    dword [edi]
 1760     call    make_timestamp
 1761     stos    dword [edi]
 1762     xor eax,eax
 1763     stos    dword [edi]
 1764     stos    dword [edi]
 1765     xor ebx,ebx
 1766       make_type_name_directory:
 1767     mov esi,[free_additional_memory]
 1768     xor edx,edx
 1769       find_type_name:
 1770     cmp dword [esi],0
 1771     je  type_name_ok
 1772     add esi,20
 1773     cmp word [esi],0FFFFh
 1774     je  check_next_type_name
 1775     or  ebx,ebx
 1776     jz  check_this_type_name
 1777     xor ecx,ecx
 1778       compare_with_previous_type_name:
 1779     mov ax,[esi+ecx]
 1780     cmp ax,[ebx+ecx]
 1781     ja  check_this_type_name
 1782     jb  check_next_type_name
 1783     add ecx,2
 1784     mov ax,[esi+ecx]
 1785     or  ax,[ebx+ecx]
 1786     jnz compare_with_previous_type_name
 1787     jmp check_next_type_name
 1788       check_this_type_name:
 1789     or  edx,edx
 1790     jz  type_name_found
 1791     xor ecx,ecx
 1792       compare_with_current_type_name:
 1793     mov ax,[esi+ecx]
 1794     cmp ax,[edx+ecx]
 1795     ja  check_next_type_name
 1796     jb  type_name_found
 1797     add ecx,2
 1798     mov ax,[esi+ecx]
 1799     or  ax,[edx+ecx]
 1800     jnz compare_with_current_type_name
 1801     jmp same_type_name
 1802       type_name_found:
 1803     mov edx,esi
 1804       same_type_name:
 1805     mov [esi-16],edi
 1806       check_next_type_name:
 1807     mov eax,[esi-4]
 1808     add esi,eax
 1809     jmp find_type_name
 1810       type_name_ok:
 1811     or  edx,edx
 1812     jz  type_name_directory_done
 1813     mov ebx,edx
 1814       make_type_name_entry:
 1815     mov eax,[resource_data]
 1816     inc word [eax+12]
 1817     lea eax,[edi+8]
 1818     cmp eax,[tagged_blocks]
 1819     jae out_of_memory
 1820     mov eax,ebx
 1821     stos    dword [edi]
 1822     xor eax,eax
 1823     stos    dword [edi]
 1824     jmp make_type_name_directory
 1825       type_name_directory_done:
 1826     mov ebx,-1
 1827       make_type_id_directory:
 1828     mov esi,[free_additional_memory]
 1829     mov edx,10000h
 1830       find_type_id:
 1831     cmp dword [esi],0
 1832     je  type_id_ok
 1833     add esi,20
 1834     cmp word [esi],0FFFFh
 1835     jne check_next_type_id
 1836     movzx   eax,word [esi+2]
 1837     cmp eax,ebx
 1838     jle check_next_type_id
 1839     cmp eax,edx
 1840     jg  check_next_type_id
 1841     mov edx,eax
 1842     mov [esi-16],edi
 1843       check_next_type_id:
 1844     mov eax,[esi-4]
 1845     add esi,eax
 1846     jmp find_type_id
 1847       type_id_ok:
 1848     cmp edx,10000h
 1849     je  type_id_directory_done
 1850     mov ebx,edx
 1851       make_type_id_entry:
 1852     mov eax,[resource_data]
 1853     inc word [eax+14]
 1854     lea eax,[edi+8]
 1855     cmp eax,[tagged_blocks]
 1856     jae out_of_memory
 1857     mov eax,ebx
 1858     stos    dword [edi]
 1859     xor eax,eax
 1860     stos    dword [edi]
 1861     jmp make_type_id_directory
 1862       type_id_directory_done:
 1863     mov esi,[resource_data]
 1864     add esi,10h
 1865     mov ecx,[esi-4]
 1866     or  cx,cx
 1867     jz  resource_directories_ok
 1868       make_resource_directories:
 1869     push    ecx
 1870     push    edi
 1871     mov edx,edi
 1872     sub edx,[resource_data]
 1873     bts edx,31
 1874     mov [esi+4],edx
 1875     lea eax,[edi+16]
 1876     cmp eax,[tagged_blocks]
 1877     jae out_of_memory
 1878     xor eax,eax
 1879     stos    dword [edi]
 1880     call    make_timestamp
 1881     stos    dword [edi]
 1882     xor eax,eax
 1883     stos    dword [edi]
 1884     stos    dword [edi]
 1885     mov ebp,esi
 1886     xor ebx,ebx
 1887       make_resource_name_directory:
 1888     mov esi,[free_additional_memory]
 1889     xor edx,edx
 1890       find_resource_name:
 1891     cmp dword [esi],0
 1892     je  resource_name_ok
 1893     push    esi
 1894     cmp [esi+4],ebp
 1895     jne check_next_resource_name
 1896     add esi,20
 1897     call    skip_resource_name
 1898     cmp word [esi],0FFFFh
 1899     je  check_next_resource_name
 1900     or  ebx,ebx
 1901     jz  check_this_resource_name
 1902     xor ecx,ecx
 1903       compare_with_previous_resource_name:
 1904     mov ax,[esi+ecx]
 1905     cmp ax,[ebx+ecx]
 1906     ja  check_this_resource_name
 1907     jb  check_next_resource_name
 1908     add ecx,2
 1909     mov ax,[esi+ecx]
 1910     or  ax,[ebx+ecx]
 1911     jnz compare_with_previous_resource_name
 1912     jmp check_next_resource_name
 1913       skip_resource_name:
 1914     cmp word [esi],0FFFFh
 1915     jne skip_unicode_string
 1916     add esi,4
 1917     ret
 1918       skip_unicode_string:
 1919     add esi,2
 1920     cmp word [esi-2],0
 1921     jne skip_unicode_string
 1922     ret
 1923       check_this_resource_name:
 1924     or  edx,edx
 1925     jz  resource_name_found
 1926     xor ecx,ecx
 1927       compare_with_current_resource_name:
 1928     mov ax,[esi+ecx]
 1929     cmp ax,[edx+ecx]
 1930     ja  check_next_resource_name
 1931     jb  resource_name_found
 1932     add ecx,2
 1933     mov ax,[esi+ecx]
 1934     or  ax,[edx+ecx]
 1935     jnz compare_with_current_resource_name
 1936     jmp same_resource_name
 1937       resource_name_found:
 1938     mov edx,esi
 1939       same_resource_name:
 1940     mov eax,[esp]
 1941     mov [eax+8],edi
 1942       check_next_resource_name:
 1943     pop esi
 1944     mov eax,[esi+16]
 1945     lea esi,[esi+20+eax]
 1946     jmp find_resource_name
 1947       resource_name_ok:
 1948     or  edx,edx
 1949     jz  resource_name_directory_done
 1950     mov ebx,edx
 1951       make_resource_name_entry:
 1952     mov eax,[esp]
 1953     inc word [eax+12]
 1954     lea eax,[edi+8]
 1955     cmp eax,[tagged_blocks]
 1956     jae out_of_memory
 1957     mov eax,ebx
 1958     stos    dword [edi]
 1959     xor eax,eax
 1960     stos    dword [edi]
 1961     jmp make_resource_name_directory
 1962       resource_name_directory_done:
 1963     mov ebx,-1
 1964       make_resource_id_directory:
 1965     mov esi,[free_additional_memory]
 1966     mov edx,10000h
 1967       find_resource_id:
 1968     cmp dword [esi],0
 1969     je  resource_id_ok
 1970     push    esi
 1971     cmp [esi+4],ebp
 1972     jne check_next_resource_id
 1973     add esi,20
 1974     call    skip_resource_name
 1975     cmp word [esi],0FFFFh
 1976     jne check_next_resource_id
 1977     movzx   eax,word [esi+2]
 1978     cmp eax,ebx
 1979     jle check_next_resource_id
 1980     cmp eax,edx
 1981     jg  check_next_resource_id
 1982     mov edx,eax
 1983     mov eax,[esp]
 1984     mov [eax+8],edi
 1985       check_next_resource_id:
 1986     pop esi
 1987     mov eax,[esi+16]
 1988     lea esi,[esi+20+eax]
 1989     jmp find_resource_id
 1990       resource_id_ok:
 1991     cmp edx,10000h
 1992     je  resource_id_directory_done
 1993     mov ebx,edx
 1994       make_resource_id_entry:
 1995     mov eax,[esp]
 1996     inc word [eax+14]
 1997     lea eax,[edi+8]
 1998     cmp eax,[tagged_blocks]
 1999     jae out_of_memory
 2000     mov eax,ebx
 2001     stos    dword [edi]
 2002     xor eax,eax
 2003     stos    dword [edi]
 2004     jmp make_resource_id_directory
 2005       resource_id_directory_done:
 2006     pop eax
 2007     mov esi,ebp
 2008     pop ecx
 2009     add esi,8
 2010     dec cx
 2011     jnz make_resource_directories
 2012       resource_directories_ok:
 2013     shr ecx,16
 2014     jnz make_resource_directories
 2015     mov esi,[resource_data]
 2016     add esi,10h
 2017     movzx   eax,word [esi-4]
 2018     movzx   edx,word [esi-2]
 2019     add eax,edx
 2020     lea esi,[esi+eax*8]
 2021     push    edi         ; address of language directories
 2022       update_resource_directories:
 2023     cmp esi,[esp]
 2024     je  resource_directories_updated
 2025     add esi,10h
 2026     mov ecx,[esi-4]
 2027     or  cx,cx
 2028     jz  language_directories_ok
 2029       make_language_directories:
 2030     push    ecx
 2031     push    edi
 2032     mov edx,edi
 2033     sub edx,[resource_data]
 2034     bts edx,31
 2035     mov [esi+4],edx
 2036     lea eax,[edi+16]
 2037     cmp eax,[tagged_blocks]
 2038     jae out_of_memory
 2039     xor eax,eax
 2040     stos    dword [edi]
 2041     call    make_timestamp
 2042     stos    dword [edi]
 2043     xor eax,eax
 2044     stos    dword [edi]
 2045     stos    dword [edi]
 2046     mov ebp,esi
 2047     mov ebx,-1
 2048       make_language_id_directory:
 2049     mov esi,[free_additional_memory]
 2050     mov edx,10000h
 2051       find_language_id:
 2052     cmp dword [esi],0
 2053     je  language_id_ok
 2054     push    esi
 2055     cmp [esi+8],ebp
 2056     jne check_next_language_id
 2057     add esi,20
 2058     mov eax,esi
 2059     call    skip_resource_name
 2060     call    skip_resource_name
 2061     neg eax
 2062     add eax,esi
 2063     and eax,11b
 2064     add esi,eax
 2065       get_language_id:
 2066     movzx   eax,word [esi+6]
 2067     cmp eax,ebx
 2068     jle check_next_language_id
 2069     cmp eax,edx
 2070     jge check_next_language_id
 2071     mov edx,eax
 2072     mov eax,[esp]
 2073     mov dword [value],eax
 2074       check_next_language_id:
 2075     pop esi
 2076     mov eax,[esi+16]
 2077     lea esi,[esi+20+eax]
 2078     jmp find_language_id
 2079       language_id_ok:
 2080     cmp edx,10000h
 2081     je  language_id_directory_done
 2082     mov ebx,edx
 2083       make_language_id_entry:
 2084     mov eax,[esp]
 2085     inc word [eax+14]
 2086     lea eax,[edi+8]
 2087     cmp eax,[tagged_blocks]
 2088     jae out_of_memory
 2089     mov eax,ebx
 2090     stos    dword [edi]
 2091     mov eax,dword [value]
 2092     stos    dword [edi]
 2093     jmp make_language_id_directory
 2094       language_id_directory_done:
 2095     pop eax
 2096     mov esi,ebp
 2097     pop ecx
 2098     add esi,8
 2099     dec cx
 2100     jnz make_language_directories
 2101       language_directories_ok:
 2102     shr ecx,16
 2103     jnz make_language_directories
 2104     jmp update_resource_directories
 2105       resource_directories_updated:
 2106     mov esi,[resource_data]
 2107     push    edi
 2108       make_name_strings:
 2109     add esi,10h
 2110     movzx   eax,word [esi-2]
 2111     movzx   ecx,word [esi-4]
 2112     add eax,ecx
 2113     lea eax,[esi+eax*8]
 2114     push    eax
 2115     or  ecx,ecx
 2116     jz  string_entries_processed
 2117       process_string_entries:
 2118     push    ecx
 2119     mov edx,edi
 2120     sub edx,[resource_data]
 2121     bts edx,31
 2122     xchg    [esi],edx
 2123     mov ebx,edi
 2124     xor ax,ax
 2125     stos    word [edi]
 2126       copy_string_data:
 2127     lea eax,[edi+2]
 2128     cmp eax,[tagged_blocks]
 2129     jae out_of_memory
 2130     mov ax,[edx]
 2131     or  ax,ax
 2132     jz  string_data_copied
 2133     stos    word [edi]
 2134     inc word [ebx]
 2135     add edx,2
 2136     jmp copy_string_data
 2137       string_data_copied:
 2138     add esi,8
 2139     pop ecx
 2140     loop    process_string_entries
 2141       string_entries_processed:
 2142     pop esi
 2143     cmp esi,[esp]
 2144     jb  make_name_strings
 2145     mov eax,edi
 2146     sub eax,[resource_data]
 2147     test    al,11b
 2148     jz  resource_strings_alignment_ok
 2149     xor ax,ax
 2150     stos    word [edi]
 2151       resource_strings_alignment_ok:
 2152     pop edx
 2153     pop ebx         ; address of language directories
 2154     mov ebp,edi
 2155       update_language_directories:
 2156     add ebx,10h
 2157     movzx   eax,word [ebx-2]
 2158     movzx   ecx,word [ebx-4]
 2159     add ecx,eax
 2160       make_data_records:
 2161     push    ecx
 2162     mov esi,edi
 2163     sub esi,[resource_data]
 2164     xchg    esi,[ebx+4]
 2165     lea eax,[edi+16]
 2166     cmp eax,[tagged_blocks]
 2167     jae out_of_memory
 2168     mov eax,esi
 2169     stos    dword [edi]
 2170     mov eax,[esi+12]
 2171     stos    dword [edi]
 2172     xor eax,eax
 2173     stos    dword [edi]
 2174     stos    dword [edi]
 2175     pop ecx
 2176     add ebx,8
 2177     loop    make_data_records
 2178     cmp ebx,edx
 2179     jb  update_language_directories
 2180     pop ebx         ; file handle
 2181     mov esi,ebp
 2182     mov ebp,edi
 2183       update_data_records:
 2184     push    ebp
 2185     mov ecx,edi
 2186     mov eax,[current_section]
 2187     sub ecx,[eax+14h]
 2188     add ecx,[eax+0Ch]
 2189     xchg    ecx,[esi]
 2190     mov edx,[ecx]
 2191     xor al,al
 2192     call    lseek
 2193     mov edx,edi
 2194     mov ecx,[esi+4]
 2195     add edi,ecx
 2196     cmp edi,[tagged_blocks]
 2197     ja  out_of_memory
 2198     call    read
 2199     mov eax,edi
 2200     sub eax,[resource_data]
 2201     and eax,11b
 2202     jz  resource_data_alignment_ok
 2203     mov ecx,4
 2204     sub ecx,eax
 2205     xor al,al
 2206     rep stos byte [edi]
 2207       resource_data_alignment_ok:
 2208     pop ebp
 2209     add esi,16
 2210     cmp esi,ebp
 2211     jb  update_data_records
 2212     pop esi
 2213     call    close
 2214     mov eax,edi
 2215     sub eax,[resource_data]
 2216     mov [resource_size],eax
 2217       resource_done:
 2218     ret
 2219 close_pe:
 2220     call    close_pe_section
 2221     mov edx,[code_start]
 2222     mov [edx+50h],eax
 2223     call    make_timestamp
 2224     mov edx,[code_start]
 2225     mov [edx+8],eax
 2226     mov eax,[number_of_sections]
 2227     mov [edx+6],ax
 2228     imul    eax,28h
 2229     movzx   ecx,word [edx+14h]
 2230     lea eax,[eax+18h+ecx]
 2231     add eax,[stub_size]
 2232     mov ecx,[edx+3Ch]
 2233     dec ecx
 2234     add eax,ecx
 2235     not ecx
 2236     and eax,ecx
 2237     cmp eax,[edx+54h]
 2238     je  pe_sections_ok
 2239     or  [next_pass_needed],-1
 2240       pe_sections_ok:
 2241     xor ecx,ecx
 2242     add edx,78h
 2243     test    [format_flags],4
 2244     jz  process_directories
 2245     add edx,10h
 2246       process_directories:
 2247     mov eax,[edx+ecx*8]
 2248     or  eax,eax
 2249     jz  directory_ok
 2250     cmp dword [edx+ecx*8+4],-1
 2251     jne directory_ok
 2252       section_data:
 2253     mov ebx,[edx+ecx*8]
 2254     mov eax,[ebx+0Ch]
 2255     mov [edx+ecx*8],eax     ; directory rva
 2256     mov eax,[ebx+8]
 2257     mov [edx+ecx*8+4],eax   ; directory size
 2258       directory_ok:
 2259     inc cl
 2260     cmp cl,10h
 2261     jb  process_directories
 2262     cmp dword [edx+5*8],0
 2263     jne finish_pe_relocations
 2264     mov eax,[number_of_relocations]
 2265     shl eax,2
 2266     sub [free_additional_memory],eax
 2267     btr [resolver_flags],0
 2268     jnc pe_relocations_ok
 2269     or  [next_pass_needed],-1
 2270     jmp pe_relocations_ok
 2271       finish_pe_relocations:
 2272     push    edi
 2273     mov edi,[reserved_fixups]
 2274     call    make_fixups
 2275     pop edi
 2276     add [actual_fixups_size],eax
 2277     cmp eax,[reserved_fixups_size]
 2278     je  pe_relocations_ok
 2279     or  [next_pass_needed],-1
 2280       pe_relocations_ok:
 2281     mov ebx,[code_start]
 2282     sub ebx,[stub_size]
 2283     mov ecx,edi
 2284     sub ecx,ebx
 2285     mov ebp,ecx
 2286     shr ecx,1
 2287     xor eax,eax
 2288     cdq
 2289       calculate_checksum:
 2290     mov dx,[ebx]
 2291     add eax,edx
 2292     mov dx,ax
 2293     shr eax,16
 2294     add eax,edx
 2295     add ebx,2
 2296     loop    calculate_checksum
 2297     add eax,ebp
 2298     mov ebx,[code_start]
 2299     mov [ebx+58h],eax
 2300     ret
 2301 
 2302 format_coff:
 2303     mov eax,[additional_memory]
 2304     mov [symbols_stream],eax
 2305     mov ebx,eax
 2306     add eax,20h
 2307     cmp eax,[structures_buffer]
 2308     jae out_of_memory
 2309     mov [free_additional_memory],eax
 2310     xor eax,eax
 2311     mov [ebx],al
 2312     mov [ebx+4],eax
 2313     mov [ebx+8],edi
 2314     mov al,4
 2315     mov [ebx+10h],eax
 2316     mov al,60h
 2317     bt  [format_flags],0
 2318     jnc flat_section_flags_ok
 2319     or  eax,0E0000000h
 2320       flat_section_flags_ok:
 2321     mov dword [ebx+14h],eax
 2322     mov [current_section],ebx
 2323     xor eax,eax
 2324     mov [number_of_sections],eax
 2325     mov edx,ebx
 2326     call    init_addressing_space
 2327     mov [ebx+14h],edx
 2328     mov byte [ebx+9],2
 2329     mov [code_type],32
 2330     test    [format_flags],8
 2331     jz  format_defined
 2332     mov byte [ebx+9],4
 2333     mov [code_type],64
 2334     jmp format_defined
 2335 coff_section:
 2336     call    close_coff_section
 2337     mov ebx,[free_additional_memory]
 2338     lea eax,[ebx+20h]
 2339     cmp eax,[structures_buffer]
 2340     jae out_of_memory
 2341     mov [free_additional_memory],eax
 2342     mov [current_section],ebx
 2343     inc [number_of_sections]
 2344     xor eax,eax
 2345     mov [ebx],al
 2346     mov [ebx+8],edi
 2347     mov [ebx+10h],eax
 2348     mov [ebx+14h],eax
 2349     mov edx,ebx
 2350     call    create_addressing_space
 2351     xchg    edx,ebx
 2352     mov [edx+14h],ebx
 2353     mov byte [edx+9],2
 2354     test    [format_flags],8
 2355     jz  coff_labels_type_ok
 2356     mov byte [edx+9],4
 2357       coff_labels_type_ok:
 2358     lods    word [esi]
 2359     cmp ax,'('
 2360     jne invalid_argument
 2361     mov [ebx+4],esi
 2362     mov ecx,[esi]
 2363     lea esi,[esi+4+ecx+1]
 2364     cmp ecx,8
 2365     ja  name_too_long
 2366       coff_section_flags:
 2367     cmp byte [esi],8Ch
 2368     je  coff_section_alignment
 2369     cmp byte [esi],19h
 2370     jne coff_section_settings_ok
 2371     inc esi
 2372     lods    byte [esi]
 2373     bt  [format_flags],0
 2374     jc  coff_section_flag_ok
 2375     cmp al,7
 2376     ja  invalid_argument
 2377       coff_section_flag_ok:
 2378     mov cl,al
 2379     mov eax,1
 2380     shl eax,cl
 2381     test    dword [ebx+14h],eax
 2382     jnz setting_already_specified
 2383     or  dword [ebx+14h],eax
 2384     jmp coff_section_flags
 2385       coff_section_alignment:
 2386     bt  [format_flags],0
 2387     jnc invalid_argument
 2388     inc esi
 2389     lods    byte [esi]
 2390     cmp al,'('
 2391     jne invalid_argument
 2392     cmp byte [esi],'.'
 2393     je  invalid_value
 2394     push    ebx
 2395     call    get_count_value
 2396     pop ebx
 2397     mov edx,eax
 2398     dec edx
 2399     test    eax,edx
 2400     jnz invalid_value
 2401     or  eax,eax
 2402     jz  invalid_value
 2403     cmp eax,2000h
 2404     ja  invalid_value
 2405     bsf edx,eax
 2406     inc edx
 2407     shl edx,20
 2408     or  [ebx+14h],edx
 2409     xchg    [ebx+10h],eax
 2410     or  eax,eax
 2411     jnz setting_already_specified
 2412     jmp coff_section_flags
 2413       coff_section_settings_ok:
 2414     cmp dword [ebx+10h],0
 2415     jne instruction_assembled
 2416     mov dword [ebx+10h],4
 2417     bt  [format_flags],0
 2418     jnc instruction_assembled
 2419     or  dword [ebx+14h],300000h
 2420     jmp instruction_assembled
 2421       close_coff_section:
 2422     mov ebx,[current_section]
 2423     mov eax,edi
 2424     mov edx,[ebx+8]
 2425     sub eax,edx
 2426     mov [ebx+0Ch],eax
 2427     xor eax,eax
 2428     xchg    [undefined_data_end],eax
 2429     cmp eax,edi
 2430     jne coff_section_ok
 2431     cmp edx,[undefined_data_start]
 2432     jne coff_section_ok
 2433     mov edi,edx
 2434     or  byte [ebx+14h],80h
 2435       coff_section_ok:
 2436     ret
 2437 mark_coff_relocation:
 2438     cmp [value_type],3
 2439     je  coff_relocation_relative
 2440     push    ebx eax
 2441     test    [format_flags],8
 2442     jnz coff_64bit_relocation
 2443     mov al,6
 2444     cmp [value_type],2
 2445     je  coff_relocation
 2446     cmp [value_type],5
 2447     jne invalid_use_of_symbol
 2448     inc al
 2449     jmp coff_relocation
 2450       coff_64bit_relocation:
 2451     mov al,1
 2452     cmp [value_type],4
 2453     je  coff_relocation
 2454     mov al,2
 2455     cmp [value_type],2
 2456     je  coff_relocation
 2457     cmp [value_type],5
 2458     jne invalid_use_of_symbol
 2459     inc al
 2460     jmp coff_relocation
 2461       coff_relocation_relative:
 2462     push    ebx
 2463     bt  [format_flags],0
 2464     jnc relative_ok
 2465     mov ebx,[current_section]
 2466     mov ebx,[ebx+8]
 2467     sub ebx,edi
 2468     sub eax,ebx
 2469     add eax,4
 2470       relative_ok:
 2471     mov ebx,[addressing_space]
 2472     push    eax
 2473     mov al,20
 2474     test    [format_flags],8
 2475     jnz relative_coff_64bit_relocation
 2476     cmp byte [ebx+9],2
 2477     jne invalid_use_of_symbol
 2478     jmp coff_relocation
 2479       relative_coff_64bit_relocation:
 2480     mov al,4
 2481     cmp byte [ebx+9],4
 2482     jne invalid_use_of_symbol
 2483       coff_relocation:
 2484     mov ebx,[free_additional_memory]
 2485     add ebx,0Ch
 2486     cmp ebx,[structures_buffer]
 2487     jae out_of_memory
 2488     mov [free_additional_memory],ebx
 2489     mov byte [ebx-0Ch],al
 2490     mov eax,[current_section]
 2491     mov eax,[eax+8]
 2492     neg eax
 2493     add eax,edi
 2494     mov [ebx-0Ch+4],eax
 2495     mov eax,[symbol_identifier]
 2496     mov [ebx-0Ch+8],eax
 2497     pop eax ebx
 2498     ret
 2499 close_coff:
 2500     call    close_coff_section
 2501     cmp [next_pass_needed],0
 2502     je  coff_closed
 2503     mov eax,[symbols_stream]
 2504     mov [free_additional_memory],eax
 2505       coff_closed:
 2506     ret
 2507 coff_formatter:
 2508     sub edi,[code_start]
 2509     mov [code_size],edi
 2510     call    prepare_default_section
 2511     mov edi,[free_additional_memory]
 2512     mov ebx,edi
 2513     mov ecx,28h shr 2
 2514     imul    ecx,[number_of_sections]
 2515     add ecx,14h shr 2
 2516     lea eax,[edi+ecx*4]
 2517     cmp eax,[structures_buffer]
 2518     jae out_of_memory
 2519     xor eax,eax
 2520     rep stos dword [edi]
 2521     mov word [ebx],14Ch
 2522     test    [format_flags],8
 2523     jz  coff_magic_ok
 2524     mov word [ebx],8664h
 2525       coff_magic_ok:
 2526     mov word [ebx+12h],104h
 2527     bt  [format_flags],0
 2528     jnc coff_flags_ok
 2529     or  byte [ebx+12h],80h
 2530       coff_flags_ok:
 2531     push    ebx
 2532     call    make_timestamp
 2533     pop ebx
 2534     mov [ebx+4],eax
 2535     mov eax,[number_of_sections]
 2536     mov [ebx+2],ax
 2537     mov esi,[symbols_stream]
 2538     xor eax,eax
 2539     xor ecx,ecx
 2540       enumerate_symbols:
 2541     cmp esi,[free_additional_memory]
 2542     je  symbols_enumerated
 2543     mov dl,[esi]
 2544     or  dl,dl
 2545     jz  enumerate_section
 2546     cmp dl,0C0h
 2547     jae enumerate_public
 2548     cmp dl,80h
 2549     jae enumerate_extrn
 2550     add esi,0Ch
 2551     jmp enumerate_symbols
 2552       enumerate_section:
 2553     mov edx,eax
 2554     shl edx,8
 2555     mov [esi],edx
 2556     inc eax
 2557     inc ecx
 2558     mov [esi+1Eh],cx
 2559     add esi,20h
 2560     jmp enumerate_symbols
 2561       enumerate_public:
 2562     mov edx,eax
 2563     shl edx,8
 2564     mov dl,[esi]
 2565     mov [esi],edx
 2566     mov edx,[esi+8]
 2567     add esi,10h
 2568     inc eax
 2569     cmp byte [edx+11],0
 2570     je  enumerate_symbols
 2571     mov edx,[edx+20]
 2572     cmp byte [edx],0C0h
 2573     jae enumerate_symbols
 2574     cmp byte [edx],80h
 2575     jb  enumerate_symbols
 2576     inc eax
 2577     jmp enumerate_symbols
 2578       enumerate_extrn:
 2579     mov edx,eax
 2580     shl edx,8
 2581     mov dl,[esi]
 2582     mov [esi],edx
 2583     add esi,0Ch
 2584     inc eax
 2585     jmp enumerate_symbols
 2586       prepare_default_section:
 2587     mov ebx,[symbols_stream]
 2588     cmp dword [ebx+0Ch],0
 2589     jne default_section_ok
 2590     cmp [number_of_sections],0
 2591     je  default_section_ok
 2592     mov edx,ebx
 2593       find_references_to_default_section:
 2594     cmp ebx,[free_additional_memory]
 2595     jne check_reference
 2596     add [symbols_stream],20h
 2597     ret
 2598       check_reference:
 2599     mov al,[ebx]
 2600     or  al,al
 2601     jz  skip_other_section
 2602     cmp al,0C0h
 2603     jae check_public_reference
 2604     cmp al,80h
 2605     jae next_reference
 2606     cmp edx,[ebx+8]
 2607     je  default_section_ok
 2608       next_reference:
 2609     add ebx,0Ch
 2610     jmp find_references_to_default_section
 2611       check_public_reference:
 2612     mov eax,[ebx+8]
 2613     add ebx,10h
 2614     test    byte [eax+8],1
 2615     jz  find_references_to_default_section
 2616     mov cx,[current_pass]
 2617     cmp cx,[eax+16]
 2618     jne find_references_to_default_section
 2619     cmp edx,[eax+20]
 2620     je  default_section_ok
 2621     jmp find_references_to_default_section
 2622       skip_other_section:
 2623     add ebx,20h
 2624     jmp find_references_to_default_section
 2625       default_section_ok:
 2626     inc [number_of_sections]
 2627     ret
 2628       symbols_enumerated:
 2629     mov [ebx+0Ch],eax
 2630     mov ebp,edi
 2631     sub ebp,ebx
 2632     push    ebp
 2633     lea edi,[ebx+14h]
 2634     mov esi,[symbols_stream]
 2635       find_section:
 2636     cmp esi,[free_additional_memory]
 2637     je  sections_finished
 2638     mov al,[esi]
 2639     or  al,al
 2640     jz  section_found
 2641     add esi,0Ch
 2642     cmp al,0C0h
 2643     jb  find_section
 2644     add esi,4
 2645     jmp find_section
 2646       section_found:
 2647     push    esi edi
 2648     mov esi,[esi+4]
 2649     or  esi,esi
 2650     jz  default_section
 2651     mov ecx,[esi]
 2652     add esi,4
 2653     rep movs byte [edi],[esi]
 2654     jmp section_name_ok
 2655       default_section:
 2656     mov al,'.'
 2657     stos    byte [edi]
 2658     mov eax,'flat'
 2659     stos    dword [edi]
 2660       section_name_ok:
 2661     pop edi esi
 2662     mov eax,[esi+0Ch]
 2663     mov [edi+10h],eax
 2664     mov eax,[esi+14h]
 2665     mov [edi+24h],eax
 2666     test    al,80h
 2667     jnz section_ptr_ok
 2668     mov eax,[esi+8]
 2669     sub eax,[code_start]
 2670     add eax,ebp
 2671     mov [edi+14h],eax
 2672       section_ptr_ok:
 2673     mov ebx,[code_start]
 2674     mov edx,[code_size]
 2675     add ebx,edx
 2676     add edx,ebp
 2677     xor ecx,ecx
 2678     add esi,20h
 2679       find_relocations:
 2680     cmp esi,[free_additional_memory]
 2681     je  section_relocations_done
 2682     mov al,[esi]
 2683     or  al,al
 2684     jz  section_relocations_done
 2685     cmp al,80h
 2686     jb  add_relocation
 2687     cmp al,0C0h
 2688     jb  next_relocation
 2689     add esi,10h
 2690     jmp find_relocations
 2691       add_relocation:
 2692     lea eax,[ebx+0Ah]
 2693     cmp eax,[tagged_blocks]
 2694     ja  out_of_memory
 2695     mov eax,[esi+4]
 2696     mov [ebx],eax
 2697     mov eax,[esi+8]
 2698     mov eax,[eax]
 2699     shr eax,8
 2700     mov [ebx+4],eax
 2701     movzx   ax,byte [esi]
 2702     mov [ebx+8],ax
 2703     add ebx,0Ah
 2704     inc ecx
 2705       next_relocation:
 2706     add esi,0Ch
 2707     jmp find_relocations
 2708       section_relocations_done:
 2709     cmp ecx,10000h
 2710     jb  section_relocations_count_16bit
 2711     bt  [format_flags],0
 2712     jnc format_limitations_exceeded
 2713     mov word [edi+20h],0FFFFh
 2714     or  dword [edi+24h],1000000h
 2715     mov [edi+18h],edx
 2716     push    esi edi
 2717     push    ecx
 2718     lea esi,[ebx-1]
 2719     add ebx,0Ah
 2720     lea edi,[ebx-1]
 2721     imul    ecx,0Ah
 2722     std
 2723     rep movs byte [edi],[esi]
 2724     cld
 2725     pop ecx
 2726     inc esi
 2727     inc ecx
 2728     mov [esi],ecx
 2729     xor eax,eax
 2730     mov [esi+4],eax
 2731     mov [esi+8],ax
 2732     pop edi esi
 2733     jmp section_relocations_ok
 2734       section_relocations_count_16bit:
 2735     mov [edi+20h],cx
 2736     jcxz    section_relocations_ok
 2737     mov [edi+18h],edx
 2738       section_relocations_ok:
 2739     sub ebx,[code_start]
 2740     mov [code_size],ebx
 2741     add edi,28h
 2742     jmp find_section
 2743       sections_finished:
 2744     mov edx,[free_additional_memory]
 2745     mov ebx,[code_size]
 2746     add ebp,ebx
 2747     mov [edx+8],ebp
 2748     add ebx,[code_start]
 2749     mov edi,ebx
 2750     mov ecx,[edx+0Ch]
 2751     imul    ecx,12h shr 1
 2752     xor eax,eax
 2753     shr ecx,1
 2754     jnc zero_symbols_table
 2755     stos    word [edi]
 2756       zero_symbols_table:
 2757     rep stos dword [edi]
 2758     mov edx,edi
 2759     stos    dword [edi]
 2760     mov esi,[symbols_stream]
 2761       make_symbols_table:
 2762     cmp esi,[free_additional_memory]
 2763     je  symbols_table_ok
 2764     mov al,[esi]
 2765     cmp al,0C0h
 2766     jae add_public_symbol
 2767     cmp al,80h
 2768     jae add_extrn_symbol
 2769     or  al,al
 2770     jz  add_section_symbol
 2771     add esi,0Ch
 2772     jmp make_symbols_table
 2773       add_section_symbol:
 2774     call    store_symbol_name
 2775     movzx   eax,word [esi+1Eh]
 2776     mov [ebx+0Ch],ax
 2777     mov byte [ebx+10h],3
 2778     add esi,20h
 2779     add ebx,12h
 2780     jmp make_symbols_table
 2781       add_extrn_symbol:
 2782     call    store_symbol_name
 2783     mov byte [ebx+10h],2
 2784     add esi,0Ch
 2785     add ebx,12h
 2786     jmp make_symbols_table
 2787       add_public_symbol:
 2788     call    store_symbol_name
 2789     mov eax,[esi+0Ch]
 2790     mov [current_line],eax
 2791     mov eax,[esi+8]
 2792     test    byte [eax+8],1
 2793     jz  undefined_coff_public
 2794     mov cx,[current_pass]
 2795     cmp cx,[eax+16]
 2796     jne undefined_coff_public
 2797     mov cl,[eax+11]
 2798     or  cl,cl
 2799     jz  public_constant
 2800     test    [format_flags],8
 2801     jnz check_64bit_public_symbol
 2802     cmp cl,2
 2803     je  public_symbol_type_ok
 2804     jmp invalid_use_of_symbol
 2805       undefined_coff_public:
 2806     mov [error_info],eax
 2807     jmp undefined_symbol
 2808       check_64bit_public_symbol:
 2809     cmp cl,4
 2810     jne invalid_use_of_symbol
 2811       public_symbol_type_ok:
 2812     mov ecx,[eax+20]
 2813     cmp byte [ecx],80h
 2814     je  alias_symbol
 2815     cmp byte [ecx],0
 2816     jne invalid_use_of_symbol
 2817     mov cx,[ecx+1Eh]
 2818     mov [ebx+0Ch],cx
 2819       public_symbol_section_ok:
 2820     movzx   ecx,byte [eax+9]
 2821     shr cl,1
 2822     and cl,1
 2823     neg ecx
 2824     cmp ecx,[eax+4]
 2825     jne value_out_of_range
 2826     xor ecx,[eax]
 2827     js  value_out_of_range
 2828     mov eax,[eax]
 2829     mov [ebx+8],eax
 2830     mov al,2
 2831     cmp byte [esi],0C0h
 2832     je  store_symbol_class
 2833     inc al
 2834     cmp byte [esi],0C1h
 2835     je  store_symbol_class
 2836     mov al,105
 2837       store_symbol_class:
 2838     mov byte [ebx+10h],al
 2839     add esi,10h
 2840     add ebx,12h
 2841     jmp make_symbols_table
 2842       alias_symbol:
 2843     bt  [format_flags],0
 2844     jnc invalid_use_of_symbol
 2845     mov ecx,[eax]
 2846     or  ecx,[eax+4]
 2847     jnz invalid_use_of_symbol
 2848     mov byte [ebx+10h],69h
 2849     mov byte [ebx+11h],1
 2850     add ebx,12h
 2851     mov ecx,[eax+20]
 2852     mov ecx,[ecx]
 2853     shr ecx,8
 2854     mov [ebx],ecx
 2855     mov byte [ebx+4],3
 2856     add esi,10h
 2857     add ebx,12h
 2858     jmp make_symbols_table
 2859       public_constant:
 2860     mov word [ebx+0Ch],0FFFFh
 2861     jmp public_symbol_section_ok
 2862       symbols_table_ok:
 2863     mov eax,edi
 2864     sub eax,edx
 2865     mov [edx],eax
 2866     sub edi,[code_start]
 2867     mov [code_size],edi
 2868     and [written_size],0
 2869     mov edx,[output_file]
 2870     call    create
 2871     jc  write_failed
 2872     mov edx,[free_additional_memory]
 2873     pop ecx
 2874     add [written_size],ecx
 2875     call    write
 2876     jc  write_failed
 2877     jmp write_output
 2878       store_symbol_name:
 2879     push    esi
 2880     mov esi,[esi+4]
 2881     or  esi,esi
 2882     jz  default_name
 2883     lods    dword [esi]
 2884     mov ecx,eax
 2885     cmp ecx,8
 2886     ja  add_string
 2887     push    edi
 2888     mov edi,ebx
 2889     rep movs byte [edi],[esi]
 2890     pop edi esi
 2891     ret
 2892       default_name:
 2893     mov dword [ebx],'.fla'
 2894     mov dword [ebx+4],'t'
 2895     pop esi
 2896     ret
 2897       add_string:
 2898     mov eax,edi
 2899     sub eax,edx
 2900     mov [ebx+4],eax
 2901     inc ecx
 2902     rep movs byte [edi],[esi]
 2903     pop esi
 2904     ret
 2905 
 2906 format_elf:
 2907     test    [format_flags],8
 2908     jnz format_elf64
 2909     mov edx,edi
 2910     mov ecx,34h shr 2
 2911     lea eax,[edi+ecx*4]
 2912     cmp eax,[tagged_blocks]
 2913     jae out_of_memory
 2914     xor eax,eax
 2915     rep stos dword [edi]
 2916     mov dword [edx],7Fh + 'ELF' shl 8
 2917     mov al,1
 2918     mov [edx+4],al
 2919     mov [edx+5],al
 2920     mov [edx+6],al
 2921     mov [edx+14h],al
 2922     mov byte [edx+12h],3
 2923     mov byte [edx+28h],34h
 2924     mov byte [edx+2Eh],28h
 2925     mov [code_type],32
 2926     mov byte [edx+10h],2
 2927     cmp word [esi],1D19h
 2928     je  format_elf_exe
 2929     mov byte [edx+10h],3
 2930     cmp word [esi],021Eh
 2931     je  format_elf_exe
 2932       elf_header_ok:
 2933     mov byte [edx+10h],1
 2934     mov eax,[additional_memory]
 2935     mov [symbols_stream],eax
 2936     mov ebx,eax
 2937     add eax,20h
 2938     cmp eax,[structures_buffer]
 2939     jae out_of_memory
 2940     mov [free_additional_memory],eax
 2941     xor eax,eax
 2942     mov [current_section],ebx
 2943     mov [number_of_sections],eax
 2944     mov [ebx],al
 2945     mov [ebx+4],eax
 2946     mov [ebx+8],edi
 2947     mov al,111b
 2948     mov [ebx+14h],eax
 2949     mov al,4
 2950     mov [ebx+10h],eax
 2951     mov edx,ebx
 2952     call    init_addressing_space
 2953     xchg    edx,ebx
 2954     mov [edx+14h],ebx
 2955     mov byte [edx+9],2
 2956     test    [format_flags],8
 2957     jz  format_defined
 2958     mov byte [edx+9],4
 2959     mov byte [ebx+10h],8
 2960     jmp format_defined
 2961       format_elf64:
 2962     mov edx,edi
 2963     mov ecx,40h shr 2
 2964     lea eax,[edi+ecx*4]
 2965     cmp eax,[tagged_blocks]
 2966     jae out_of_memory
 2967     xor eax,eax
 2968     rep stos dword [edi]
 2969     mov dword [edx],7Fh + 'ELF' shl 8
 2970     mov al,1
 2971     mov [edx+5],al
 2972     mov [edx+6],al
 2973     mov [edx+14h],al
 2974     mov byte [edx+4],2
 2975     mov byte [edx+12h],62
 2976     mov byte [edx+34h],40h
 2977     mov byte [edx+3Ah],40h
 2978     mov [code_type],64
 2979     mov byte [edx+10h],2
 2980     cmp word [esi],1D19h
 2981     je  format_elf64_exe
 2982     mov byte [edx+10h],3
 2983     cmp word [esi],021Eh
 2984     je  format_elf64_exe
 2985     jmp elf_header_ok
 2986 elf_section:
 2987     bt  [format_flags],0
 2988     jc  illegal_instruction
 2989     call    close_coff_section
 2990     mov ebx,[free_additional_memory]
 2991     lea eax,[ebx+20h]
 2992     cmp eax,[structures_buffer]
 2993     jae out_of_memory
 2994     mov [free_additional_memory],eax
 2995     mov [current_section],ebx
 2996     inc word [number_of_sections]
 2997     jz  format_limitations_exceeded
 2998     xor eax,eax
 2999     mov [ebx],al
 3000     mov [ebx+8],edi
 3001     mov [ebx+10h],eax
 3002     mov al,10b
 3003     mov [ebx+14h],eax
 3004     mov edx,ebx
 3005     call    create_addressing_space
 3006     xchg    edx,ebx
 3007     mov [edx+14h],ebx
 3008     mov byte [edx+9],2
 3009     test    [format_flags],8
 3010     jz  elf_labels_type_ok
 3011     mov byte [edx+9],4
 3012       elf_labels_type_ok:
 3013     lods    word [esi]
 3014     cmp ax,'('
 3015     jne invalid_argument
 3016     mov [ebx+4],esi
 3017     mov ecx,[esi]
 3018     lea esi,[esi+4+ecx+1]
 3019       elf_section_flags:
 3020     cmp byte [esi],8Ch
 3021     je  elf_section_alignment
 3022     cmp byte [esi],19h
 3023     jne elf_section_settings_ok
 3024     inc esi
 3025     lods    byte [esi]
 3026     sub al,28
 3027     xor al,11b
 3028     test    al,not 10b
 3029     jnz invalid_argument
 3030     mov cl,al
 3031     mov al,1
 3032     shl al,cl
 3033     test    byte [ebx+14h],al
 3034     jnz setting_already_specified
 3035     or  byte [ebx+14h],al
 3036     jmp elf_section_flags
 3037       elf_section_alignment:
 3038     inc esi
 3039     lods    byte [esi]
 3040     cmp al,'('
 3041     jne invalid_argument
 3042     cmp byte [esi],'.'
 3043     je  invalid_value
 3044     push    ebx
 3045     call    get_count_value
 3046     pop ebx
 3047     mov edx,eax
 3048     dec edx
 3049     test    eax,edx
 3050     jnz invalid_value
 3051     or  eax,eax
 3052     jz  invalid_value
 3053     xchg    [ebx+10h],eax
 3054     or  eax,eax
 3055     jnz setting_already_specified
 3056     jmp elf_section_flags
 3057       elf_section_settings_ok:
 3058     cmp dword [ebx+10h],0
 3059     jne instruction_assembled
 3060     mov dword [ebx+10h],4
 3061     test    [format_flags],8
 3062     jz  instruction_assembled
 3063     mov byte [ebx+10h],8
 3064     jmp instruction_assembled
 3065 mark_elf_relocation:
 3066     test    [format_flags],1
 3067     jnz invalid_use_of_symbol
 3068     push    ebx
 3069     mov ebx,[addressing_space]
 3070     cmp [value_type],3
 3071     je  elf_relocation_relative
 3072     cmp [value_type],7
 3073     je  elf_relocation_relative
 3074     push    eax
 3075     cmp [value_type],5
 3076     je  elf_gotoff_relocation
 3077     ja  invalid_use_of_symbol
 3078     mov al,1            ; R_386_32 / R_AMD64_64
 3079     test    [format_flags],8
 3080     jz  coff_relocation
 3081     cmp [value_type],4
 3082     je  coff_relocation
 3083     mov al,11           ; R_AMD64_32S
 3084     jmp coff_relocation
 3085       elf_gotoff_relocation:
 3086     test    [format_flags],8
 3087     jnz invalid_use_of_symbol
 3088     mov al,9            ; R_386_GOTOFF
 3089     jmp coff_relocation
 3090       elf_relocation_relative:
 3091     cmp byte [ebx+9],0
 3092     je  invalid_use_of_symbol
 3093     mov ebx,[current_section]
 3094     mov ebx,[ebx+8]
 3095     sub ebx,edi
 3096     sub eax,ebx
 3097     push    eax
 3098     mov al,2            ; R_386_PC32 / R_AMD64_PC32
 3099     cmp [value_type],3
 3100     je  coff_relocation
 3101     mov al,4            ; R_386_PLT32 / R_AMD64_PLT32
 3102     jmp coff_relocation
 3103 close_elf:
 3104     bt  [format_flags],0
 3105     jc  close_elf_exe
 3106     call    close_coff_section
 3107     cmp [next_pass_needed],0
 3108     je  elf_closed
 3109     mov eax,[symbols_stream]
 3110     mov [free_additional_memory],eax
 3111       elf_closed:
 3112     ret
 3113 elf_formatter:
 3114     mov ecx,edi
 3115     sub ecx,[code_start]
 3116     neg ecx
 3117     and ecx,111b
 3118     test    [format_flags],8
 3119     jnz align_elf_structures
 3120     and ecx,11b
 3121       align_elf_structures:
 3122     xor al,al
 3123     rep stos byte [edi]
 3124     push    edi
 3125     call    prepare_default_section
 3126     mov esi,[symbols_stream]
 3127     mov edi,[free_additional_memory]
 3128     xor eax,eax
 3129     mov ecx,4
 3130     rep stos dword [edi]
 3131     test    [format_flags],8
 3132     jz  find_first_section
 3133     mov ecx,2
 3134     rep stos dword [edi]
 3135       find_first_section:
 3136     mov al,[esi]
 3137     or  al,al
 3138     jz  first_section_found
 3139     cmp al,0C0h
 3140     jb  skip_other_symbol
 3141     add esi,4
 3142       skip_other_symbol:
 3143     add esi,0Ch
 3144     jmp find_first_section
 3145       first_section_found:
 3146     mov ebx,esi
 3147     mov ebp,esi
 3148     add esi,20h
 3149     xor ecx,ecx
 3150     xor edx,edx
 3151       find_next_section:
 3152     cmp esi,[free_additional_memory]
 3153     je  make_section_symbol
 3154     mov al,[esi]
 3155     or  al,al
 3156     jz  make_section_symbol
 3157     cmp al,0C0h
 3158     jae skip_public
 3159     cmp al,80h
 3160     jae skip_extrn
 3161     or  byte [ebx+14h],40h
 3162       skip_extrn:
 3163     add esi,0Ch
 3164     jmp find_next_section
 3165       skip_public:
 3166     add esi,10h
 3167     jmp find_next_section
 3168       make_section_symbol:
 3169     mov eax,edi
 3170     xchg    eax,[ebx+4]
 3171     stos    dword [edi]
 3172     test    [format_flags],8
 3173     jnz elf64_section_symbol
 3174     xor eax,eax
 3175     stos    dword [edi]
 3176     stos    dword [edi]
 3177     call    store_section_index
 3178     jmp section_symbol_ok
 3179       store_section_index:
 3180     inc ecx
 3181     mov eax,ecx
 3182     shl eax,8
 3183     mov [ebx],eax
 3184     inc dx
 3185     jz  format_limitations_exceeded
 3186     mov eax,edx
 3187     shl eax,16
 3188     mov al,3
 3189     test    byte [ebx+14h],40h
 3190     jz  section_index_ok
 3191     or  ah,-1
 3192     inc dx
 3193     jz  format_limitations_exceeded
 3194       section_index_ok:
 3195     stos    dword [edi]
 3196     ret
 3197       elf64_section_symbol:
 3198     call    store_section_index
 3199     xor eax,eax
 3200     stos    dword [edi]
 3201     stos    dword [edi]
 3202     stos    dword [edi]
 3203     stos    dword [edi]
 3204       section_symbol_ok:
 3205     mov ebx,esi
 3206     add esi,20h
 3207     cmp ebx,[free_additional_memory]
 3208     jne find_next_section
 3209     inc dx
 3210     jz  format_limitations_exceeded
 3211     mov [current_section],edx
 3212     mov esi,[symbols_stream]
 3213       find_other_symbols:
 3214     cmp esi,[free_additional_memory]
 3215     je  elf_symbol_table_ok
 3216     mov al,[esi]
 3217     or  al,al
 3218     jz  skip_section
 3219     cmp al,0C0h
 3220     jae make_public_symbol
 3221     cmp al,80h
 3222     jae make_extrn_symbol
 3223     add esi,0Ch
 3224     jmp find_other_symbols
 3225       skip_section:
 3226     add esi,20h
 3227     jmp find_other_symbols
 3228       make_public_symbol:
 3229     mov eax,[esi+0Ch]
 3230     mov [current_line],eax
 3231     cmp byte [esi],0C0h
 3232     jne invalid_argument
 3233     mov ebx,[esi+8]
 3234     test    byte [ebx+8],1
 3235     jz  undefined_public
 3236     mov ax,[current_pass]
 3237     cmp ax,[ebx+16]
 3238     jne undefined_public
 3239     mov dl,[ebx+11]
 3240     or  dl,dl
 3241     jz  public_absolute
 3242     mov eax,[ebx+20]
 3243     cmp byte [eax],0
 3244     jne invalid_use_of_symbol
 3245     mov eax,[eax+4]
 3246     test    [format_flags],8
 3247     jnz elf64_public
 3248     cmp dl,2
 3249     jne invalid_use_of_symbol
 3250     mov dx,[eax+0Eh]
 3251     jmp section_for_public_ok
 3252       undefined_public:
 3253     mov [error_info],ebx
 3254     jmp undefined_symbol
 3255       elf64_public:
 3256     cmp dl,4
 3257     jne invalid_use_of_symbol
 3258     mov dx,[eax+6]
 3259     jmp section_for_public_ok
 3260       public_absolute:
 3261     mov dx,0FFF1h
 3262       section_for_public_ok:
 3263     mov eax,[esi+4]
 3264     stos    dword [edi]
 3265     test    [format_flags],8
 3266     jnz elf64_public_symbol
 3267     movzx   eax,byte [ebx+9]
 3268     shr al,1
 3269     and al,1
 3270     neg eax
 3271     cmp eax,[ebx+4]
 3272     jne value_out_of_range
 3273     xor eax,[ebx]
 3274     js  value_out_of_range
 3275     mov eax,[ebx]
 3276     stos    dword [edi]
 3277     xor eax,eax
 3278     mov al,[ebx+10]
 3279     stos    dword [edi]
 3280     mov eax,edx
 3281     shl eax,16
 3282     mov al,10h
 3283     cmp byte [ebx+10],0
 3284     je  elf_public_function
 3285     or  al,1
 3286     jmp store_elf_public_info
 3287       elf_public_function:
 3288     or  al,2
 3289       store_elf_public_info:
 3290     stos    dword [edi]
 3291     jmp public_symbol_ok
 3292       elf64_public_symbol:
 3293     mov eax,edx
 3294     shl eax,16
 3295     mov al,10h
 3296     cmp byte [ebx+10],0
 3297     je  elf64_public_function
 3298     or  al,1
 3299     jmp store_elf64_public_info
 3300       elf64_public_function:
 3301     or  al,2
 3302       store_elf64_public_info:
 3303     stos    dword [edi]
 3304     mov al,[ebx+9]
 3305     shl eax,31-1
 3306     xor eax,[ebx+4]
 3307     js  value_out_of_range
 3308     mov eax,[ebx]
 3309     stos    dword [edi]
 3310     mov eax,[ebx+4]
 3311     stos    dword [edi]
 3312     mov al,[ebx+10]
 3313     stos    dword [edi]
 3314     xor al,al
 3315     stos    dword [edi]
 3316       public_symbol_ok:
 3317     inc ecx
 3318     mov eax,ecx
 3319     shl eax,8
 3320     mov al,0C0h
 3321     mov [esi],eax
 3322     add esi,10h
 3323     jmp find_other_symbols
 3324       make_extrn_symbol:
 3325     mov eax,[esi+4]
 3326     stos    dword [edi]
 3327     test    [format_flags],8
 3328     jnz elf64_extrn_symbol
 3329     xor eax,eax
 3330     stos    dword [edi]
 3331     mov eax,[esi+8]
 3332     stos    dword [edi]
 3333     mov eax,10h
 3334     stos    dword [edi]
 3335     jmp extrn_symbol_ok
 3336       elf64_extrn_symbol:
 3337     mov eax,10h
 3338     stos    dword [edi]
 3339     xor al,al
 3340     stos    dword [edi]
 3341     stos    dword [edi]
 3342     mov eax,[esi+8]
 3343     stos    dword [edi]
 3344     xor eax,eax
 3345     stos    dword [edi]
 3346       extrn_symbol_ok:
 3347     inc ecx
 3348     mov eax,ecx
 3349     shl eax,8
 3350     mov al,80h
 3351     mov [esi],eax
 3352     add esi,0Ch
 3353     jmp find_other_symbols
 3354       elf_symbol_table_ok:
 3355     mov edx,edi
 3356     mov ebx,[free_additional_memory]
 3357     xor al,al
 3358     stos    byte [edi]
 3359     add edi,16
 3360     mov [edx+1],edx
 3361     add ebx,10h
 3362     test    [format_flags],8
 3363     jz  make_string_table
 3364     add ebx,8
 3365       make_string_table:
 3366     cmp ebx,edx
 3367     je  elf_string_table_ok
 3368     test    [format_flags],8
 3369     jnz make_elf64_string
 3370     cmp byte [ebx+0Dh],0
 3371     je  rel_prefix_ok
 3372     mov byte [ebx+0Dh],0
 3373     mov eax,'.rel'
 3374     stos    dword [edi]
 3375       rel_prefix_ok:
 3376     mov esi,edi
 3377     sub esi,edx
 3378     xchg    esi,[ebx]
 3379     add ebx,10h
 3380       make_elf_string:
 3381     or  esi,esi
 3382     jz  default_string
 3383     lods    dword [esi]
 3384     mov ecx,eax
 3385     rep movs byte [edi],[esi]
 3386     xor al,al
 3387     stos    byte [edi]
 3388     jmp make_string_table
 3389       make_elf64_string:
 3390     cmp byte [ebx+5],0
 3391     je  elf64_rel_prefix_ok
 3392     mov byte [ebx+5],0
 3393     mov eax,'.rel'
 3394     stos    dword [edi]
 3395     mov al,'a'
 3396     stos    byte [edi]
 3397       elf64_rel_prefix_ok:
 3398     mov esi,edi
 3399     sub esi,edx
 3400     xchg    esi,[ebx]
 3401     add ebx,18h
 3402     jmp make_elf_string
 3403       default_string:
 3404     mov eax,'.fla'
 3405     stos    dword [edi]
 3406     mov ax,'t'
 3407     stos    word [edi]
 3408     jmp make_string_table
 3409       elf_string_table_ok:
 3410     mov [edx+1+8],edi
 3411     mov ebx,[code_start]
 3412     mov eax,edi
 3413     sub eax,[free_additional_memory]
 3414     xor ecx,ecx
 3415     sub ecx,eax
 3416     test    [format_flags],8
 3417     jnz finish_elf64_header
 3418     and ecx,11b
 3419     add eax,ecx
 3420     mov [ebx+20h],eax
 3421     mov eax,[current_section]
 3422     inc ax
 3423     jz  format_limitations_exceeded
 3424     mov [ebx+32h],ax
 3425     inc ax
 3426     jz  format_limitations_exceeded
 3427     mov [ebx+30h],ax
 3428     jmp elf_header_finished
 3429       finish_elf64_header:
 3430     and ecx,111b
 3431     add eax,ecx
 3432     mov [ebx+28h],eax
 3433     mov eax,[current_section]
 3434     inc ax
 3435     jz  format_limitations_exceeded
 3436     mov [ebx+3Eh],ax
 3437     inc ax
 3438     jz  format_limitations_exceeded
 3439     mov [ebx+3Ch],ax
 3440       elf_header_finished:
 3441     xor eax,eax
 3442     add ecx,10*4
 3443     rep stos byte [edi]
 3444     test    [format_flags],8
 3445     jz  elf_null_section_ok
 3446     mov ecx,6*4
 3447     rep stos byte [edi]
 3448       elf_null_section_ok:
 3449     mov esi,ebp
 3450     xor ecx,ecx
 3451       make_section_entry:
 3452     mov ebx,edi
 3453     mov eax,[esi+4]
 3454     mov eax,[eax]
 3455     stos    dword [edi]
 3456     mov eax,1
 3457     cmp dword [esi+0Ch],0
 3458     je  bss_section
 3459     test    byte [esi+14h],80h
 3460     jz  section_type_ok
 3461       bss_section:
 3462     mov al,8
 3463       section_type_ok:
 3464     stos    dword [edi]
 3465     mov eax,[esi+14h]
 3466     and al,3Fh
 3467     call    store_elf_machine_word
 3468     xor eax,eax
 3469     call    store_elf_machine_word
 3470     mov eax,[esi+8]
 3471     mov [image_base],eax
 3472     sub eax,[code_start]
 3473     call    store_elf_machine_word
 3474     mov eax,[esi+0Ch]
 3475     call    store_elf_machine_word
 3476     xor eax,eax
 3477     stos    dword [edi]
 3478     stos    dword [edi]
 3479     mov eax,[esi+10h]
 3480     call    store_elf_machine_word
 3481     xor eax,eax
 3482     call    store_elf_machine_word
 3483     inc ecx
 3484     add esi,20h
 3485     xchg    edi,[esp]
 3486     mov ebp,edi
 3487       convert_relocations:
 3488     cmp esi,[free_additional_memory]
 3489     je  relocations_converted
 3490     mov al,[esi]
 3491     or  al,al
 3492     jz  relocations_converted
 3493     cmp al,80h
 3494     jb  make_relocation_entry
 3495     cmp al,0C0h
 3496     jb  relocation_entry_ok
 3497     add esi,10h
 3498     jmp convert_relocations
 3499       make_relocation_entry:
 3500     test    [format_flags],8
 3501     jnz make_elf64_relocation_entry
 3502     mov eax,[esi+4]
 3503     stos    dword [edi]
 3504     mov eax,[esi+8]
 3505     mov eax,[eax]
 3506     mov al,[esi]
 3507     stos    dword [edi]
 3508     jmp relocation_entry_ok
 3509       make_elf64_relocation_entry:
 3510     mov eax,[esi+4]
 3511     stos    dword [edi]
 3512     xor eax,eax
 3513     stos    dword [edi]
 3514     movzx   eax,byte [esi]
 3515     stos    dword [edi]
 3516     mov eax,[esi+8]
 3517     mov eax,[eax]
 3518     shr eax,8
 3519     stos    dword [edi]
 3520     xor eax,eax
 3521     push    edx
 3522     mov edx,[esi+4]
 3523     add edx,[image_base]
 3524     xchg    eax,[edx]
 3525     stos    dword [edi]
 3526     cmp byte [esi],1
 3527     je  addend_64bit
 3528     pop edx
 3529     sar eax,31
 3530     stos    dword [edi]
 3531     jmp relocation_entry_ok
 3532       addend_64bit:
 3533     xor eax,eax
 3534     xchg    eax,[edx+4]
 3535     stos    dword [edi]
 3536     pop edx
 3537       relocation_entry_ok:
 3538     add esi,0Ch
 3539     jmp convert_relocations
 3540       store_elf_machine_word:
 3541     stos    dword [edi]
 3542     test    [format_flags],8
 3543     jz  elf_machine_word_ok
 3544     and dword [edi],0
 3545     add edi,4
 3546       elf_machine_word_ok:
 3547     ret
 3548       relocations_converted:
 3549     cmp edi,ebp
 3550     xchg    edi,[esp]
 3551     je  rel_section_ok
 3552     mov eax,[ebx]
 3553     sub eax,4
 3554     test    [format_flags],8
 3555     jz  store_relocations_name_offset
 3556     dec eax
 3557       store_relocations_name_offset:
 3558     stos    dword [edi]
 3559     test    [format_flags],8
 3560     jnz rela_section
 3561     mov eax,9
 3562     jmp store_relocations_type
 3563       rela_section:
 3564     mov eax,4
 3565       store_relocations_type:
 3566     stos    dword [edi]
 3567     xor al,al
 3568     call    store_elf_machine_word
 3569     call    store_elf_machine_word
 3570     mov eax,ebp
 3571     sub eax,[code_start]
 3572     call    store_elf_machine_word
 3573     mov eax,[esp]
 3574     sub eax,ebp
 3575     call    store_elf_machine_word
 3576     mov eax,[current_section]
 3577     stos    dword [edi]
 3578     mov eax,ecx
 3579     stos    dword [edi]
 3580     inc ecx
 3581     test    [format_flags],8
 3582     jnz finish_elf64_rela_section
 3583     mov eax,4
 3584     stos    dword [edi]
 3585     mov al,8
 3586     stos    dword [edi]
 3587     jmp rel_section_ok
 3588       finish_elf64_rela_section:
 3589     mov eax,8
 3590     stos    dword [edi]
 3591     xor al,al
 3592     stos    dword [edi]
 3593     mov al,24
 3594     stos    dword [edi]
 3595     xor al,al
 3596     stos    dword [edi]
 3597       rel_section_ok:
 3598     cmp esi,[free_additional_memory]
 3599     jne make_section_entry
 3600     pop eax
 3601     mov ebx,[code_start]
 3602     sub eax,ebx
 3603     mov [code_size],eax
 3604     mov ecx,20h
 3605     test    [format_flags],8
 3606     jz  adjust_elf_section_headers_offset
 3607     mov ecx,28h
 3608       adjust_elf_section_headers_offset:
 3609     add [ebx+ecx],eax
 3610     mov eax,1
 3611     stos    dword [edi]
 3612     mov al,2
 3613     stos    dword [edi]
 3614     xor al,al
 3615     call    store_elf_machine_word
 3616     call    store_elf_machine_word
 3617     mov eax,[code_size]
 3618     call    store_elf_machine_word
 3619     mov eax,[edx+1]
 3620     sub eax,[free_additional_memory]
 3621     call    store_elf_machine_word
 3622     mov eax,[current_section]
 3623     inc eax
 3624     stos    dword [edi]
 3625     mov eax,[number_of_sections]
 3626     inc eax
 3627     stos    dword [edi]
 3628     test    [format_flags],8
 3629     jnz finish_elf64_sym_section
 3630     mov eax,4
 3631     stos    dword [edi]
 3632     mov al,10h
 3633     stos    dword [edi]
 3634     jmp sym_section_ok
 3635       finish_elf64_sym_section:
 3636     mov eax,8
 3637     stos    dword [edi]
 3638     xor al,al
 3639     stos    dword [edi]
 3640     mov al,18h
 3641     stos    dword [edi]
 3642     xor al,al
 3643     stos    dword [edi]
 3644       sym_section_ok:
 3645     mov al,1+8
 3646     stos    dword [edi]
 3647     mov al,3
 3648     stos    dword [edi]
 3649     xor al,al
 3650     call    store_elf_machine_word
 3651     call    store_elf_machine_word
 3652     mov eax,[edx+1]
 3653     sub eax,[free_additional_memory]
 3654     add eax,[code_size]
 3655     call    store_elf_machine_word
 3656     mov eax,[edx+1+8]
 3657     sub eax,[edx+1]
 3658     call    store_elf_machine_word
 3659     xor eax,eax
 3660     stos    dword [edi]
 3661     stos    dword [edi]
 3662     mov al,1
 3663     call    store_elf_machine_word
 3664     xor eax,eax
 3665     call    store_elf_machine_word
 3666     mov eax,'tab'
 3667     mov dword [edx+1],'.sym'
 3668     mov [edx+1+4],eax
 3669     mov dword [edx+1+8],'.str'
 3670     mov [edx+1+8+4],eax
 3671     mov [resource_data],edx
 3672     mov [written_size],0
 3673     mov edx,[output_file]
 3674     call    create
 3675     jc  write_failed
 3676     call    write_code
 3677     mov ecx,edi
 3678     mov edx,[free_additional_memory]
 3679     sub ecx,edx
 3680     add [written_size],ecx
 3681     call    write
 3682     jc  write_failed
 3683     jmp output_written
 3684 
 3685 format_elf_exe:
 3686     add esi,2
 3687     or  [format_flags],1
 3688     cmp byte [esi],'('
 3689     jne elf_exe_brand_ok
 3690     inc esi
 3691     cmp byte [esi],'.'
 3692     je  invalid_value
 3693     push    edx
 3694     call    get_byte_value
 3695     cmp [value_type],0
 3696     jne invalid_use_of_symbol
 3697     pop edx
 3698     mov [edx+7],al
 3699       elf_exe_brand_ok:
 3700     mov [image_base],8048000h
 3701     cmp byte [esi],80h
 3702     jne elf_exe_base_ok
 3703     lods    word [esi]
 3704     cmp ah,'('
 3705     jne invalid_argument
 3706     cmp byte [esi],'.'
 3707     je  invalid_value
 3708     push    edx
 3709     call    get_dword_value
 3710     cmp [value_type],0
 3711     jne invalid_use_of_symbol
 3712     mov [image_base],eax
 3713     pop edx
 3714       elf_exe_base_ok:
 3715     mov byte [edx+2Ah],20h
 3716     mov ebx,edi
 3717     mov ecx,20h shr 2
 3718     cmp [current_pass],0
 3719     je  init_elf_segments
 3720     imul    ecx,[number_of_sections]
 3721       init_elf_segments:
 3722     xor eax,eax
 3723     rep stos dword [edi]
 3724     and [number_of_sections],0
 3725     mov byte [ebx],1
 3726     mov word [ebx+1Ch],1000h
 3727     mov byte [ebx+18h],111b
 3728     mov ebp,[image_base]
 3729     and dword [ebx+4],0
 3730     mov [ebx+8],ebp
 3731     mov [ebx+0Ch],ebp
 3732     mov eax,edi
 3733     sub eax,[code_start]
 3734     add eax,ebp
 3735     mov [edx+18h],eax
 3736     and [image_base_high],0
 3737       elf_exe_addressing_setup:
 3738     call    init_addressing_space
 3739     call    setup_elf_exe_labels_type
 3740     mov eax,[code_start]
 3741     xor edx,edx
 3742     xor cl,cl
 3743     sub eax,[image_base]
 3744     sbb edx,[image_base_high]
 3745     sbb cl,0
 3746     mov [ebx],eax
 3747     mov [ebx+4],edx
 3748     mov [ebx+8],cl
 3749     mov [symbols_stream],edi
 3750     jmp format_defined
 3751       format_elf64_exe:
 3752     add esi,2
 3753     or  [format_flags],1
 3754     cmp byte [esi],'('
 3755     jne elf64_exe_brand_ok
 3756     inc esi
 3757     cmp byte [esi],'.'
 3758     je  invalid_value
 3759     push    edx
 3760     call    get_byte_value
 3761     cmp [value_type],0
 3762     jne invalid_use_of_symbol
 3763     pop edx
 3764     mov [edx+7],al
 3765       elf64_exe_brand_ok:
 3766     mov [image_base],400000h
 3767     and [image_base_high],0
 3768     cmp byte [esi],80h
 3769     jne elf64_exe_base_ok
 3770     lods    word [esi]
 3771     cmp ah,'('
 3772     jne invalid_argument
 3773     cmp byte [esi],'.'
 3774     je  invalid_value
 3775     push    edx
 3776     call    get_qword_value
 3777     cmp [value_type],0
 3778     jne invalid_use_of_symbol
 3779     mov [image_base],eax
 3780     mov [image_base_high],edx
 3781     pop edx
 3782       elf64_exe_base_ok:
 3783     mov byte [edx+36h],38h
 3784     mov ebx,edi
 3785     mov ecx,38h shr 2
 3786     cmp [current_pass],0
 3787     je  init_elf64_segments
 3788     imul    ecx,[number_of_sections]
 3789       init_elf64_segments:
 3790     xor eax,eax
 3791     rep stos dword [edi]
 3792     and [number_of_sections],0
 3793     mov byte [ebx],1
 3794     mov word [ebx+30h],1000h
 3795     mov byte [ebx+4],111b
 3796     mov ebp,[image_base]
 3797     mov ecx,[image_base_high]
 3798     and dword [ebx+8],0
 3799     mov [ebx+10h],ebp
 3800     mov [ebx+10h+4],ecx
 3801     mov [ebx+18h],ebp
 3802     mov [ebx+18h+4],ecx
 3803     mov eax,edi
 3804     sub eax,[code_start]
 3805     add eax,ebp
 3806     adc ecx,0
 3807     mov [edx+18h],eax
 3808     mov [edx+18h+8],ecx
 3809     jmp elf_exe_addressing_setup
 3810       setup_elf_exe_labels_type:
 3811     mov eax,[code_start]
 3812     cmp byte [eax+10h],3
 3813     jne elf_exe_labels_type_ok
 3814     mov byte [ebx+9],2
 3815     test    [format_flags],8
 3816     jz  elf_exe_labels_type_ok
 3817     mov byte [ebx+9],4
 3818       elf_exe_labels_type_ok:
 3819     ret
 3820 elf_entry:
 3821     lods    byte [esi]
 3822     cmp al,'('
 3823     jne invalid_argument
 3824     cmp byte [esi],'.'
 3825     je  invalid_value
 3826     test    [format_flags],8
 3827     jnz elf64_entry
 3828     call    get_dword_value
 3829     mov edx,[code_start]
 3830     mov [edx+18h],eax
 3831     jmp instruction_assembled
 3832       elf64_entry:
 3833     call    get_qword_value
 3834     mov ebx,[code_start]
 3835     mov [ebx+18h],eax
 3836     mov [ebx+1Ch],edx
 3837     jmp instruction_assembled
 3838 elf_segment:
 3839     bt  [format_flags],0
 3840     jnc illegal_instruction
 3841     test    [format_flags],8
 3842     jnz elf64_segment
 3843     call    close_elf_segment
 3844     push    eax
 3845     call    create_addressing_space
 3846     call    setup_elf_exe_labels_type
 3847     mov ebp,ebx
 3848     mov ebx,[number_of_sections]
 3849     shl ebx,5
 3850     add ebx,[code_start]
 3851     add ebx,34h
 3852     cmp ebx,[symbols_stream]
 3853     jb  new_elf_segment
 3854     mov ebx,[symbols_stream]
 3855     sub ebx,20h
 3856     or  [next_pass_needed],-1
 3857       new_elf_segment:
 3858     mov byte [ebx],1
 3859     and dword [ebx+18h],0
 3860     mov word [ebx+1Ch],1000h
 3861       elf_segment_flags:
 3862     cmp byte [esi],1Eh
 3863     je  elf_segment_type
 3864     cmp byte [esi],19h
 3865     jne elf_segment_flags_ok
 3866     lods    word [esi]
 3867     sub ah,28
 3868     jbe invalid_argument
 3869     cmp ah,1
 3870     je  mark_elf_segment_flag
 3871     cmp ah,3
 3872     ja  invalid_argument
 3873     xor ah,1
 3874     cmp ah,2
 3875     je  mark_elf_segment_flag
 3876     inc ah
 3877       mark_elf_segment_flag:
 3878     test    [ebx+18h],ah
 3879     jnz setting_already_specified
 3880     or  [ebx+18h],ah
 3881     jmp elf_segment_flags
 3882       elf_segment_type:
 3883     cmp byte [ebx],1
 3884     jne setting_already_specified
 3885     lods    word [esi]
 3886     mov ecx,[number_of_sections]
 3887     jecxz   elf_segment_type_ok
 3888     mov edx,[code_start]
 3889     add edx,34h
 3890       scan_elf_segment_types:
 3891     cmp edx,[symbols_stream]
 3892     jae elf_segment_type_ok
 3893     cmp [edx],ah
 3894     je  data_already_defined
 3895     add edx,20h
 3896     loop    scan_elf_segment_types
 3897       elf_segment_type_ok:
 3898     mov [ebx],ah
 3899     mov word [ebx+1Ch],1
 3900     cmp ah,50h
 3901     jb  elf_segment_flags
 3902     or  dword [ebx],6474E500h
 3903     jmp elf_segment_flags
 3904       elf_segment_flags_ok:
 3905     pop edx
 3906     cmp byte [ebx],1
 3907     jne no_elf_segment_merging
 3908     cmp [merge_segment],0
 3909     jne merge_elf_segment
 3910       no_elf_segment_merging:
 3911     mov eax,edi
 3912     sub eax,[code_start]
 3913     mov [ebx+4],eax
 3914     and eax,0FFFh
 3915     add eax,edx
 3916     mov [ebx+8],eax
 3917     mov [ebx+0Ch],eax
 3918     xor edx,edx
 3919       elf_segment_addressing_setup:
 3920     xor cl,cl
 3921     not eax
 3922     not edx
 3923     not cl
 3924     add eax,1
 3925     adc edx,0
 3926     adc cl,0
 3927     add eax,edi
 3928     adc edx,0
 3929     adc cl,0
 3930     mov [ds:ebp],eax
 3931     mov [ds:ebp+4],edx
 3932     mov [ds:ebp+8],cl
 3933     inc [number_of_sections]
 3934     jmp instruction_assembled
 3935       merge_elf_segment:
 3936     xor ecx,ecx
 3937     xchg    ecx,[merge_segment]
 3938     cmp ecx,-1
 3939     je  merge_elf_header
 3940     mov eax,[ecx+8]
 3941     mov ecx,[ecx+4]
 3942       elf_segment_separated_base:
 3943     mov [ebx+8],eax
 3944     mov [ebx+0Ch],eax
 3945     mov [ebx+4],ecx
 3946     sub eax,ecx
 3947     add eax,edi
 3948     sub eax,[code_start]
 3949     xor edx,edx
 3950     jmp elf_segment_addressing_setup
 3951       merge_elf_header:
 3952     mov eax,[image_base]
 3953     xor ecx,ecx
 3954     jmp elf_segment_separated_base
 3955       close_elf_segment:
 3956     cmp [number_of_sections],0
 3957     jne finish_elf_segment
 3958     cmp edi,[symbols_stream]
 3959     jne first_elf_segment_ok
 3960     or  [merge_segment],-1
 3961     mov eax,[image_base]
 3962     ret
 3963       first_elf_segment_ok:
 3964     and [merge_segment],0
 3965     inc [number_of_sections]
 3966       finish_elf_segment:
 3967     mov ebx,[number_of_sections]
 3968     dec ebx
 3969     shl ebx,5
 3970     add ebx,[code_start]
 3971     add ebx,34h
 3972     mov eax,edi
 3973     sub eax,[code_start]
 3974     sub eax,[ebx+4]
 3975     mov edx,edi
 3976     cmp edi,[undefined_data_end]
 3977     jne elf_segment_size_ok
 3978     cmp byte [ebx],1
 3979     jne elf_segment_size_ok
 3980     mov edi,[undefined_data_start]
 3981       elf_segment_size_ok:
 3982     mov [ebx+14h],eax
 3983     add eax,edi
 3984     sub eax,edx
 3985     mov [ebx+10h],eax
 3986     and [undefined_data_end],0
 3987     mov eax,[ebx+8]
 3988     cmp byte [ebx],1
 3989     je  elf_segment_position_move_and_align
 3990     cmp [merge_segment],0
 3991     jne elf_segment_position_move
 3992     cmp byte [ebx],4
 3993     je  elf_segment_position_ok
 3994     cmp byte [ebx],51h
 3995     je  elf_segment_position_ok
 3996     mov [merge_segment],ebx
 3997       elf_segment_position_move:
 3998     add eax,[ebx+14h]
 3999     jmp elf_segment_position_ok
 4000       elf_segment_position_move_and_align:
 4001     add eax,[ebx+14h]
 4002     add eax,0FFFh
 4003       elf_segment_position_ok:
 4004     and eax,not 0FFFh
 4005     ret
 4006       elf64_segment:
 4007     call    close_elf64_segment
 4008     push    eax edx
 4009     call    create_addressing_space
 4010     call    setup_elf_exe_labels_type
 4011     mov ebp,ebx
 4012     mov ebx,[number_of_sections]
 4013     imul    ebx,38h
 4014     add ebx,[code_start]
 4015     add ebx,40h
 4016     cmp ebx,[symbols_stream]
 4017     jb  new_elf64_segment
 4018     or  [next_pass_needed],-1
 4019       new_elf64_segment:
 4020     mov byte [ebx],1
 4021     and dword [ebx+4],0
 4022     mov word [ebx+30h],1000h
 4023       elf64_segment_flags:
 4024     cmp byte [esi],1Eh
 4025     je  elf64_segment_type
 4026     cmp byte [esi],19h
 4027     jne elf64_segment_flags_ok
 4028     lods    word [esi]
 4029     sub ah,28
 4030     jbe invalid_argument
 4031     cmp ah,1
 4032     je  mark_elf64_segment_flag
 4033     cmp ah,3
 4034     ja  invalid_argument
 4035     xor ah,1
 4036     cmp ah,2
 4037     je  mark_elf64_segment_flag
 4038     inc ah
 4039       mark_elf64_segment_flag:
 4040     test    [ebx+4],ah
 4041     jnz setting_already_specified
 4042     or  [ebx+4],ah
 4043     jmp elf64_segment_flags
 4044       elf64_segment_type:
 4045     cmp byte [ebx],1
 4046     jne setting_already_specified
 4047     lods    word [esi]
 4048     mov ecx,[number_of_sections]
 4049     jecxz   elf64_segment_type_ok
 4050     mov edx,[code_start]
 4051     add edx,40h
 4052       scan_elf64_segment_types:
 4053     cmp edx,[symbols_stream]
 4054     jae elf64_segment_type_ok
 4055     cmp [edx],ah
 4056     je  data_already_defined
 4057     add edx,38h
 4058     loop    scan_elf64_segment_types
 4059       elf64_segment_type_ok:
 4060     mov [ebx],ah
 4061     mov word [ebx+30h],1
 4062     cmp ah,50h
 4063     jb  elf64_segment_flags
 4064     or  dword [ebx],6474E500h
 4065     jmp elf64_segment_flags
 4066       elf64_segment_flags_ok:
 4067     pop edx eax
 4068     cmp byte [ebx],1
 4069     jne no_elf64_segment_merging
 4070     cmp [merge_segment],0
 4071     jne merge_elf64_segment
 4072       no_elf64_segment_merging:
 4073     mov ecx,edi
 4074     sub ecx,[code_start]
 4075     mov [ebx+8],ecx
 4076     and ecx,0FFFh
 4077     add eax,ecx
 4078     adc edx,0
 4079     mov [ebx+10h],eax
 4080     mov [ebx+10h+4],edx
 4081     mov [ebx+18h],eax
 4082     mov [ebx+18h+4],edx
 4083     jmp elf_segment_addressing_setup
 4084       merge_elf64_segment:
 4085     xor ecx,ecx
 4086     xchg    ecx,[merge_segment]
 4087     cmp ecx,-1
 4088     je  merge_elf64_header
 4089     mov eax,[ecx+10h]
 4090     mov edx,[ecx+10h+4]
 4091     mov ecx,[ecx+8]
 4092       elf64_segment_separated_base:
 4093     mov [ebx+10h],eax
 4094     mov [ebx+10h+4],edx
 4095     mov [ebx+18h],eax
 4096     mov [ebx+18h+4],edx
 4097     mov [ebx+8],ecx
 4098     neg ecx
 4099     add ecx,edi
 4100     sub ecx,[code_start]
 4101     add eax,ecx
 4102     adc edx,0
 4103     jmp elf_segment_addressing_setup
 4104       merge_elf64_header:
 4105     mov eax,[image_base]
 4106     mov edx,[image_base_high]
 4107     xor ecx,ecx
 4108     jmp elf64_segment_separated_base
 4109       close_elf64_segment:
 4110     cmp [number_of_sections],0
 4111     jne finish_elf64_segment
 4112     cmp edi,[symbols_stream]
 4113     jne first_elf64_segment_ok
 4114     or  [merge_segment],-1
 4115     mov eax,[image_base]
 4116     mov edx,[image_base_high]
 4117     ret
 4118       first_elf64_segment_ok:
 4119     and [merge_segment],0
 4120     inc [number_of_sections]
 4121       finish_elf64_segment:
 4122     mov ebx,[number_of_sections]
 4123     dec ebx
 4124     imul    ebx,38h
 4125     add ebx,[code_start]
 4126     add ebx,40h
 4127     mov eax,edi
 4128     sub eax,[code_start]
 4129     sub eax,[ebx+8]
 4130     mov edx,edi
 4131     cmp edi,[undefined_data_end]
 4132     jne elf64_segment_size_ok
 4133     cmp byte [ebx],1
 4134     jne elf64_segment_size_ok
 4135     mov edi,[undefined_data_start]
 4136       elf64_segment_size_ok:
 4137     mov [ebx+28h],eax
 4138     add eax,edi
 4139     sub eax,edx
 4140     mov [ebx+20h],eax
 4141     and [undefined_data_end],0
 4142     mov eax,[ebx+10h]
 4143     mov edx,[ebx+10h+4]
 4144     cmp byte [ebx],1
 4145     je  elf64_segment_position_move_and_align
 4146     cmp [merge_segment],0
 4147     jne elf64_segment_position_move
 4148     cmp byte [ebx],4
 4149     je  elf64_segment_position_ok
 4150     cmp byte [ebx],51h
 4151     je  elf64_segment_position_ok
 4152     mov [merge_segment],ebx
 4153       elf64_segment_position_move:
 4154     add eax,[ebx+28h]
 4155     adc edx,0
 4156     jmp elf64_segment_position_ok
 4157       elf64_segment_position_move_and_align:
 4158     add eax,[ebx+28h]
 4159     adc edx,0
 4160     add eax,0FFFh
 4161     adc edx,0
 4162       elf64_segment_position_ok:
 4163     and eax,not 0FFFh
 4164     ret
 4165 close_elf_exe:
 4166     test    [format_flags],8
 4167     jnz close_elf64_exe
 4168     call    close_elf_segment
 4169     mov edx,[code_start]
 4170     mov eax,[number_of_sections]
 4171     mov byte [edx+1Ch],34h
 4172     mov [edx+2Ch],ax
 4173     shl eax,5
 4174     add eax,edx
 4175     add eax,34h
 4176     cmp eax,[symbols_stream]
 4177     je  elf_exe_ok
 4178     or  [next_pass_needed],-1
 4179       elf_exe_ok:
 4180     ret
 4181       close_elf64_exe:
 4182     call    close_elf64_segment
 4183     mov edx,[code_start]
 4184     mov eax,[number_of_sections]
 4185     mov byte [edx+20h],40h
 4186     mov [edx+38h],ax
 4187     imul    eax,38h
 4188     add eax,edx
 4189     add eax,40h
 4190     cmp eax,[symbols_stream]
 4191     je  elf64_exe_ok
 4192     or  [next_pass_needed],-1
 4193       elf64_exe_ok:
 4194     ret