Var
  LogoTimer: LongWord = 0;


Procedure CreditScreen7A707C; stdcall;
Begin

  asm

  cmp ecx,0
  jne @Start

  mov LogoTimer, 0


@START:

  cmp ecx,4
  je @LogoPart1
  jmp @Label1


@LogoPart1:

  push $FF
  mov eax,$7AB81C // display main logo
  call eax
  add esp,$04

  cmp LogoTimer, 180 // 60 frames * 3 seconds
  jne @EndofExternalFunc

    push $20
    push $140
    push $198
    push $A0
    mov eax,$7AA820
    call eax
    add esp,$10
    mov eax,$7AC6F8
    call eax
    push $04
    mov eax,$7AA84D
    call eax
    add esp,$04
    mov [$F4F410],5 // set part 5
    mov LogoTimer, 0

    jmp @EndofExternalFunc

@LABEL1:

    cmp ecx,5
    je @LogoPart2
    jmp @End

@LogoPart2:

  push $FF
  mov eax,$7AB81C // display main logo
  call eax
  add esp,$04
  mov eax, $7AC6F8 // display "square" text etc
  call eax

  cmp LogoTimer, 960 // 60 frames * 16 seconds
  jne @EndofExternalFunc

  mov ecx,[$F4F424]
  push ecx
  mov edx,[$F4F420]
  push edx
  mov eax,[$F4F41C]
  push eax
  mov ecx,[$F4F418]
  push ecx
  mov eax, $7AA820
  call eax
  add esp,$10
  push $0A
  mov eax, $7AA870
  call eax
  add esp,$04
  push 00
  push 00
  push 00
  push 00
  push 00
  push 00
  push 00
  push $3C
  push $C1
  mov eax, $740D80 // fade out music
  call eax
  add esp,$24
  mov [$F4F410],6 // Set part 6
  mov LogoTimer, 0

  //jmp @EndofExternalFunc


@EndofExternalFunc:

  inc LogoTimer
  mov eax,$7A74EA // jump to end - this is outside of this function
  jmp eax


@END:
  jmp dword ptr [ecx*4+$7A751A] // this will again jump outside of this function to the correct credit screen part.

  { ECX of
     0:  Begin credit screen (set up music etc)
     1:  Credit screen fading in
     2:  Credit screen staff text
     3:  Explosion FMV playing
     4:  Logo without Square text
     5:  Logo with square text
     6:  Logo and square text fading out}
  end;

End;