Case "cpu"
                    CPU_Parameter = ValString1
                    Call DoOutput(LineText)


-----------------------------------------------------------------------------------------------------                
    OutFile = MainFrm.ProjektDir + "GetOpCode.tmp"
    Open MainFrm.ProjektDir + "GetOpCode.ped" For Output As #1
                
        Print #1, "neu (Eprom)"
        Print #1, "//"
        Print #1, "// Eprombereich 1 bereitstellen"
        Print #1, "definiereBereich( 00000000, 001FFFFF )"
        Print #1, "fuelle ( 00000000, 001FFFFF, FF)"
        Print #1, "info()"
        Print #1, "//"
        Print #1, "// Hex-File FSW Flash_1 lesen"
        'LinFileN = MenuFrm.SelPfad + "\" + Progst_nam + "_linker.s19"
        'xxx = MainFrm.Progst_nam
        If EditString(CPU_Parameter, "UCASE") = "GOAK" Then
            Print #1, "lies( Motorola, " + MenuFrm.SelPfad + "\" + MainFrm.Progst_nam + "_linker.s19" + ", , , ,  )"
        Else
            Print #1, "lies( Motorola, " + MenuFrm.SelPfad + "\" + MainFrm.Progst_nam + "_linker.s19" + ", 00000000, 001FFFFF, ,  )"
        End If
        
        AdrOpCodeE = Hex(Int("&h" + AdrOpCode) + 3)
        Print #1, "anzeige(" + AdrOpCode + ", " + AdrOpCodeE + ", hex, " + OutFile + ", neueDatei)"
        Print #1, "-"
        Print #1, "exit"
        Close #1

-----------------------------------------------------------------------------------------------------                
                    ' #*#_6.4 create or update ParaSerie.bat
                    ParamFile = MainFrm.DabDirName + "\ParaSerie.bat"
                    If Dir(ParamFile) <> "" Then
                    ParamFileN = MainFrm.DabDirName + "\ParaSerie_N.bat"
                    Open ParamFile For Input As #1
                    Open ParamFileN For Output As #2
                        Do While Not EOF(1)
                            FlgFound = "0"
                            Line Input #1, FirstIn
                            InStringSav = FirstIn
                            SecWord = element(0, "=", element(1, " ", EditString(FirstIn, "Trim,Compress,Ucase")))
                            If SecWord = "INDEXECUM" Then
                                Line Input #1, FirstIn
                                Line Input #1, FirstIn
                                Print #2, InStringSav
                                Print #2, ""
                                If SY_BLDPRCE_String = "0" Then
                                    SILB_Suf = ""
                                Else
                                    SILB_Suf = "_B"
                                    If BeaKennNr = "002" Then
                                    Else
                                        SILB_Suf = ""
                                    End If
                                End If
                                If EditString(CPU_Parameter, "UCASE") = "" Then
                                    Print #2, "SET FlashSize=" + SY_FLASH_SIZE_String + SILB_Suf
                                Else
                                    Print #2, "SET FlashSize=" + SY_FLASH_SIZE_String + EditString(CPU_Parameter, "UCASE") + SILB_Suf
                                End If
                                Print #2, "SET PathDest=" + CopyDest
                                Print #2, "SET FileFreig=" + element(0, ".", MenuFrm.SelName) + "g"
                                'Print #2, "call N:\Programme\Tools\cvwcon\1v64\con1v64_T1.exe ""%PathFreig%/%FileFreig%.dab"""
                                'Print #2, "SET FileFreig=" + element(0, ".", MenuFrm.SelName) + "g.HEX"
                                
                                If VersNumb = "" Then
                                    Print #2, "SET SerToolVers=0v20"
                                Else
                                    Print #2, "SET SerToolVers=" + VersNumb
                                End If
  
-----------------------------------------------------------------------------------------------------                
                LinFileN = MenuFrm.SelPfad + "\" + Progst_nam + "_linker.s19"
                Open ProjektDir + "Merge.p_s" For Output As #1
                
                    Print #1, "neu (Eprom)"
                    Print #1, "//"
                    Print #1, "// Eprombereich 1 bereitstellen"
                    Print #1, "definiereBereich( 00000000, 001FFFFF )"
                    Print #1, "fuelle ( 00000000, 001FFFFF, FF)"
                    
                    Print #1, "definiereBereich( 001C2000, " + EndAdrDat_Ep + " )"
                    Print #1, "fuelle ( 001C2000, " + EndAdrDat_Ep + ", FF)"
                    Print #1, "definiereBereich( 005C2000, " + EndAdrDat_Ts + " )"
                    Print #1, "fuelle ( 005C2000, " + EndAdrDat_Ts + ", FF)"
                    
                    If EditString(CPU_Parameter, "UCASE") = "GOAK" Then
                        Print #1, "// Eprombereich 3 getrennt von Bereich 2 bereitstellen"
                        Print #1, "definiereBereich( 00402000, 0047FFFF)"
                        Print #1, "fuelle ( 00402000, 0047FFFF, FF)"
                    End If
                    
                    Print #1, "info()"
                    Print #1, "//"
                    Print #1, "// Hex-File FSW Flash_1 lesen"
                    If EditString(CPU_Parameter, "UCASE") = "GOAK" Then
                        Print #1, "lies( Motorola, " + S19FileN + ", , , ,  )"
                    Else
                        Print #1, "lies( Motorola, " + S19FileN + ", 00000000, 001FFFFF, ,  )"
                    End If
                    Print #1, "//"
                    Print #1, "// Hex-File Daten in Bereich 1 lesen"
                    Print #1, "lies( Intel, " + HexFileN + ", 01C2000, " + EndAdrDat_Ep + ", 01C2000,  )"
                    Print #1, "// Hex-File Daten in Bereich 2 lesen"
                    Print #1, "lies( Intel, " + HexFileN + ", 05C2000, " + EndAdrDat_Ts + ", 01C2000,  )"
                    Print #1, "//"
                    If SY_TUN_String = "2" Or SY_TUN_String = "3" Then
                        Print #1, "ausfuehre(" + SecHashDir + ProSwTtnr + "_out.p_s)"
                    End If
                    Print #1, "//"
                    Print #1, "// Hex-File zurueckschreiben"
                    Print #1, "schreibe (Motorola_S3S7, " + LinFileN + ",,,,/,YES ,,)"
                    Print #1, "//"
                    Print #1, "exit"
                Close #1

-----------------------------------------------------------------------------------------------------                
        Open ProjektDir + "Do_final.ped" For Output As #1
        If SY_BLDPRCE_String = "0" Then
            Print #1, "checksumme (00000 , 1FFFFF ,, y , n , 1 , 4 , y ,.\makeout\damos\CS_lin.log , neueDatei, )"
            
            If EditString(CPU_Parameter, "UCASE") = "GOAK" Then
                Print #1, "ausfuehre(N:\Programme\Tools\DoSerie\Data\CVS_CHK_03.pcm)"
            Else
                Print #1, "checksummeCRC (00000 , 1FFFFF , ,  CRC32 , , .\makeout\damos\CS_crc.log , neueDatei , )"
            End If
            
            Print #1, "checksumme (20000 , 1FFFFF ,, y , n , 1 , 2 , y ,.\makeout\damos\CS_ext1.log , neueDatei, )"
        Else
            Print #1, "checksumme (00000 , 006BFF ,, y , n , 1 , 4 , y ,,, )"
            Print #1, "checksumme (07000 , 1FFFFF ,, y , y , 1 , 4 , y ,.\makeout\damos\CS_lin.log , neueDatei, )"
            'Print #1, "checksummeCRC (00000 , 006BFF , ,  CRC32 , ,  ,  , )"
            'Print #1, "checksummeCRC (07000 , 1FFFFF , ,  CRC32 , , .\makeout\damos\CS_crc.log , neueDatei ,,y )"
            ' die zuvor auskommentierten Bereiche werden durch das nachfolgende script ersetzt
            If EditString(CPU_Parameter, "UCASE") = "GOAK" Then
                Print #1, "ausfuehre(N:\Programme\Tools\DoSerie\Data\CVS_CHK_03.pcm)"
            Else
                Print #1, "ausfuehre(N:\Programme\Tools\DoSerie\Data\CVS_CHK_02.pcm)"
            End If
            Print #1, "checksumme (20000 , 1FFFFF ,, y , n , 1 , 2 , y ,.\makeout\damos\CS_ext1.log , neueDatei, )"
        End If
        Close #1

-----------------------------------------------------------------------------------------------------                
// N:\Programme\Tools\DoSerie\Data\CVS_CHK_01.pcm
//
// Bildung der CVN-CARB-Checksumme (silverOAK)
// 24.09.2004
// GS-EC/EMT1-Wahler

checksummeCRC (020000 , 1BFFFF , ,  CRC32 , ,  ,  , )
checksummeCRC (1C2E00 , 1FFFFF , ,  CRC32 , , .\makeout\damos\CS_crc.log , neueDatei ,,y )

-----------------------------------------------------------------------------------------------------                
// N:\Programme\Tools\DoSerie\Data\CVS_CHK_03.pcm
//
// Bildung der CVN-CARB-Checksumme (greenOAK)
// 16.03.2005
// GS-EC/EMT1-Wahler

checksummeCRC (020000 , 1BFFFF , ,  CRC32 , ,  ,  , )
checksummeCRC (404000 , 47FFFF , ,  CRC32 , ,  ,  ,,y )
checksummeCRC (1C2E00 , 1FFFFF , ,  CRC32 , , .\makeout\damos\CS_crc.log , neueDatei ,,y )

-----------------------------------------------------------------------------------------------------                

-----------------------------------------------------------------------------------------------------                

-----------------------------------------------------------------------------------------------------                

-----------------------------------------------------------------------------------------------------                

-----------------------------------------------------------------------------------------------------                

-----------------------------------------------------------------------------------------------------                

-----------------------------------------------------------------------------------------------------                

-----------------------------------------------------------------------------------------------------