Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 15 von 15

Der (nicht) ganz ernst zu nehmende Computertest

Erstellt von Rene, 06.09.2005, 11:33 Uhr · 14 Antworten · 1.598 Aufrufe

  1. #11
    Avatar von Ralf_aus_Do

    Registriert seit
    11.01.2005
    Beiträge
    3.787

    Re: Der (nicht) ganz ernst zu nehmende Computertest

    Das Dingen war's

    mit einer 10 MB Platte von Mikropolis!

  2.  
    Anzeige
  3. #12
    a_2
    Avatar von a_2

    Re: Der (nicht) ganz ernst zu nehmende Computertest

    Das nenne ich Programmierkunst. Nennt sich Dolphin und läß sich ausführen!

    Code:
    The Perl Code
    
    #!/usr/bin/perl -s                          
                                                          sub R{int$_[0]||
                                  return vec$_[1],$_[2]/4,32;int$_[0]*rand}($R)
                               =$^=~'([\]-\`])';sub F{$u=0;grep$u|=$S-[$_][$_[0]
                                  $_*4&15]$_*4,reverse 0..7;$u11|$u21}$t=$e
                                   ||$d?join'',:(($p,$d)=($R,1),unpack u
                                   ,(3=MCV7%2W'`);@b=@t=0..15;for(
                               ;$ilength$p;$i+=4){srand($s^=R$R,$p
                            ,$i)}while($c8){grep{push@b  ,splice
                         @b,R(9),5}@t;$R[$c]=R(2       **32);@{      
                    $S-[$c++]}=@b}@h=0..7;@o       =reverse          
                  @h;while($alength
                $t){$v=R$R,$t,$a;
     $w=R$R,$t,($a+=8)-4;
       grep$q++%2?$v
        ^=F$w+$R                  
         [$$R]:(                                       $w^=F$v+$R[$$R]),$d?(@h,(@o)
         x3):((                                        @h)x3,@o);$_.=pack N2,$w,$v}
         print
    Stefan

  4. #13
    Avatar von Modus

    Registriert seit
    09.05.2005
    Beiträge
    355

    Re: Der (nicht) ganz ernst zu nehmende Computertest

    Zitat Zitat von Ralf_aus_Do",p="273010
    ReneZ

    Real Programmers don't need comments-- the code is obvious.
    :bravo:
    Also ich bevorzuge "It was hard to write, so it should be hard to understand"

  5. #14
    Avatar von Ralf_aus_Do

    Registriert seit
    11.01.2005
    Beiträge
    3.787

    Re: Der (nicht) ganz ernst zu nehmende Computertest

    Auf Kundenwunsch nachträglich kommentiert
    Code:
    VAR
    	KlappenKalib : BOOL ;
    	KalibTimer:	S_TimeRising;
    	KalibTimerBool:BOOL ;
    	AktStatus1:UINT;
    	AktStatus2:UINT;
    	Erster1:BOOL;
    	Erster2:BOOL;
    	AktStatus1_l:UINT;
    	AktStatus2_l:UINT;
    	Erster1_l:BOOL;
    	Erster2_l:BOOL;
    	Kalib1:	BOOL;
    	Kalib2:	BOOL;
    	Kalib3:	BOOL;
    	Kalib4:	BOOL;
    	Kalib5:	BOOL;
    	Kalib6:	BOOL;
    	Kalib7:	BOOL;
    	Kalib8:	BOOL;
    	Klappe1:	Klappensteu;
    	Klappe2:	Klappensteu;
    	Klappe3:	Klappensteu;
    	Klappe4:	Klappensteu;
    	Klappe5:	Klappensteu;
    	Klappe6:	Klappensteu;
    	Klappe7:	Klappensteu;
    	Klappe8:	Klappensteu;
    	Brenner_1:	Brennersteuerung;
    	Brenner_2:	Brennersteuerung;
    	Brenner_3:	Brennersteuerung;
    	Brenner_4:	Brennersteuerung;
    	Brenner_5:	Brennersteuerung;
    	Brenner_6:	Brennersteuerung;
    	Brenner_7:	Brennersteuerung;
    	Brenner_8:	Brennersteuerung;
    	FlashF:	MS_TimeRising;
    	FMLT:	BOOL;	(*Flamkenmerker*)
    	FPOSLT:	BOOL;	(*PosLampentest*)
    	Sicherheitskette:	SHK1;
    	LMSicherheitsk:	SHK1Blink;
    	BlinkTaktSchnellF:	TimeGenerator;
    	BlinkTaktMittelF:	TimeGenerator;
    	BlinkTaktLangsamF:	TimeGenerator;
    	LTestLauf:	BOOL;
    	BlinkTaktSchnell:	BOOL;
    	BlinkTaktMittel:	BOOL;
    	BlinkTaktLangsam:	BOOL;
    	Flash:	BOOL;
    	Temp:	BOOL;
    END_VAR
    VAR_GLOBAL
    	Low_1 AT %MW0.0.0.0 : INT  ;
    	High_1 AT %MW0.0.0.2 : INT  ;
    	Low_2 AT %MW0.0.0.4 : INT  ;
    	High_2 AT %MW0.0.0.6 : INT  ;
    	Low_3 AT %MW0.0.0.8 : INT  ;
    	High_3 AT %MW0.0.0.12 : INT  ;
    	Low_4 AT %MW0.0.0.14 : INT  ;
    	High_4 AT %MW0.0.0.16 : INT  ;
    	Low_5 AT %MW0.0.0.18 : INT  ;
    	High_5 AT %MW0.0.0.20 : INT  ;
    	Low_6 AT %MW0.0.0.22 : INT  ;
    	High_6 AT %MW0.0.0.24 : INT  ;
    	Low_7 AT %MW0.0.0.26 : INT  ;
    	High_7 AT %MW0.0.0.28 : INT  ;
    	Low_8 AT %MW0.0.0.30 : INT  ;
    	High_8 AT %MW0.0.0.32 : INT  ;
    	BNr1 : BOOL ;
    	BNr2 : BOOL ;
    	BNr3 : BOOL ;
    	BNr4 : BOOL ;
    	BNr5 : BOOL ;
    	BNr6 : BOOL ;
    	BNr7 : BOOL ;
    	BNr8 : BOOL ;	
    	StPos1 : BOOL ;
    	StPos2 : BOOL ;
    	StPos3 : BOOL ;
    	StPos4 : BOOL ;
    	StPos5 : BOOL ;
    	StPos6 : BOOL ;
    	StPos7 : BOOL ;
    	StPos8 : BOOL ;	
    
    	StellMani1 : REAL;
    	StellMani2 : REAL;
    	StellMani1_l : REAL;
    	StellMani2_l : REAL;
    	SchaltZ1:	SchaltBr;
    	SchaltZ2:	SchaltBr;
    	SchaltZ1_l:	SchaltBr;
    	SchaltZ2_l:	SchaltBr;
    	Zone2:	B_PID_Regler;
    	Zone1:	B_PID_Regler;
    	Zone2_l:	B_PID_Regler;
    	Zone1_l:	B_PID_Regler;
    
    	Stell1:REAL ;
    	Stell2:REAL ;
    	IstTemp1:	UINT;
    	IstTemp2:	UINT;
    	StellRoh1: 	UINT;
    	StellRoh2: 	UINT;
    	Temp1Scale:	DataScale;
    	Temp2Scale:	DataScale;
    	W1Scale:	DataScale;
    	W2Scale:	DataScale;
    	W3Scale:	DataScale;
    	W4Scale:	DataScale;
    	W5Scale:	DataScale;
    	W6Scale:	DataScale;
    	W7Scale:	DataScale;
    	W8Scale:	DataScale;
    	 AT %IS0.0.0.0.0:	BOOL;
    	 AT %IS0.0.0.0.1:	BOOL;
    	 AT %IS0.0.0.0.2:	BOOL;
    	 AT %IS0.0.0.0.3:	BOOL;
    	 AT %IS0.0.0.0.4:	BOOL;
    	 AT %IS0.0.0.0.5:	BOOL;
    	 AT %IS0.0.0.0.6:	BOOL;
    	 AT %IS0.0.0.0.7:	BOOL;
    	VBL_Lauf AT %I0.0.0.0.0:	BOOL;
    	LuftOK AT %I0.0.0.0.1:	BOOL;
    	LuftMangel AT %I0.0.0.0.2:	BOOL;
    	ABL_Lauf AT %I0.0.0.0.3:	BOOL;
    	GasMaxOK AT %I0.0.0.0.4:	BOOL;
    	LuftMangelAblOK AT %I0.0.0.0.5:	BOOL;
    	GasMangel AT %I0.0.0.0.6:	BOOL;
    	DHK_Quit AT %I0.0.0.0.7:	BOOL;
    	Br_1_EST AT %I0.0.0.1.0:	BOOL;
    	Br_2_EST AT %I0.0.0.1.1:	BOOL;
    	Br_3_EST AT %I0.0.0.1.2:	BOOL;
    	Br_4_EST AT %I0.0.0.1.3:	BOOL;
    	Br_5_EST AT %I0.0.0.1.4:	BOOL;
    	Br_6_EST AT %I0.0.0.1.5:	BOOL;
    	Br_7_EST AT %I0.0.0.1.6:	BOOL;
    	Br_8_EST AT %I0.0.0.1.7:	BOOL;
    	 AT %IAW0.0.0.0:	UINT;
    	 AT %IAW0.0.0.2:	UINT;
    	 AT %IAW0.0.0.4:	UINT;
    	 AT %IAW0.0.0.6:	UINT;
    	 AT %ICD0.0.0.0:	UDINT;
    	LM_DHK_St AT %Q0.0.0.0.0:	BOOL;
    	LM_LuftM_Verb AT %Q0.0.0.0.1:	BOOL;
    	LM_LuftM_Abg AT %Q0.0.0.0.2:	BOOL;
    	LM_Gasdruck AT %Q0.0.0.0.3:	BOOL;
    	LM_VBL_Lauf AT %Q0.0.0.0.4:	BOOL;
    	LM_Startbereit AT %Q0.0.0.0.5:	BOOL;
    	Br1_St AT %Q0.0.0.1.0:	BOOL;
    	Br2_St AT %Q0.0.0.1.1:	BOOL;
    	Br3_St AT %Q0.0.0.1.2:	BOOL;
    	Br4_St AT %Q0.0.0.1.3:	BOOL;
    	Br5_St AT %Q0.0.0.1.4:	BOOL;
    	Br6_St AT %Q0.0.0.1.5:	BOOL;
    	Br7_St AT %Q0.0.0.1.6:	BOOL;
    	Br8_St AT %Q0.0.0.1.7:	BOOL;
    	 AT %QAW0.0.0.0:	UINT;	(*** LE4-504-BS1 ***)
    	 AT %IS0.0.1.0.0:	BOOL;
    	 AT %IS0.0.1.0.1:	BOOL;
    	 AT %IS0.0.1.0.2:	BOOL;
    	 AT %IS0.0.1.0.3:	BOOL;
    	 AT %IS0.0.1.0.4:	BOOL;
    	 AT %IS0.0.1.0.5:	BOOL;
    	 AT %IS0.0.1.0.6:	BOOL;
    	 AT %IS0.0.1.0.7:	BOOL;	(*** LE4-116-DD1 ***)
    	 AT %IS0.0.2.0.0:	BOOL;
    	 AT %IS0.0.2.0.1:	BOOL;
    	 AT %IS0.0.2.0.2:	BOOL;
    	 AT %IS0.0.2.0.3:	BOOL;
    	 AT %IS0.0.2.0.4:	BOOL;
    	 AT %IS0.0.2.0.5:	BOOL;
    	 AT %IS0.0.2.0.6:	BOOL;
    	 AT %IS0.0.2.0.7:	BOOL;
    	 STP1 : BOOL;
    	 STP2 : BOOL;
    	 STP3 : BOOL;
    	 STP4 : BOOL;
    	 STP5 : BOOL;
    	 STP6 : BOOL;
    	 STP7 : BOOL;
    	 STP8 : BOOL;
    	Lampentest AT %I0.0.2.0.0:	BOOL;
    	RedEin AT %I0.0.2.0.1:	BOOL;
    	VorbelLauf AT %I0.0.2.0.2:	BOOL;
    	Startbereit AT %I0.0.2.0.3:	BOOL;
    	SHK_UW1 AT %I0.0.2.0.4:	BOOL;
    	SHK_UW2 AT %I0.0.2.0.5:	BOOL;
    	EST_NebenPanel AT %I0.0.2.0.6:	BOOL;
    	DHK_St AT %I0.0.2.0.7:	BOOL;
    	St_NebenPanel AT %Q0.0.2.0.0:	BOOL;
    	BrennerStAusschalt AT %Q0.0.2.0.1:	BOOL;
    	B1B AT %Q0.0.2.0.2:	BOOL;
    	B2B AT %Q0.0.2.0.3:	BOOL;
    	B3B AT %Q0.0.2.0.4:	BOOL;
    	B4B AT %Q0.0.2.0.5:	BOOL;
    	B5B AT %Q0.0.2.0.6:	BOOL;
    	B6B AT %Q0.0.2.0.7:	BOOL;	(*** LE4-116-DD1 ***)
    	 AT %IS0.0.3.0.0:	BOOL;
    	 AT %IS0.0.3.0.1:	BOOL;
    	 AT %IS0.0.3.0.2:	BOOL;
    	 AT %IS0.0.3.0.3:	BOOL;
    	 AT %IS0.0.3.0.4:	BOOL;
    	 AT %IS0.0.3.0.5:	BOOL;
    	 AT %IS0.0.3.0.6:	BOOL;
    	 AT %IS0.0.3.0.7:	BOOL;
    	IRes1 AT %I0.0.3.0.0:	BOOL;
    	IRes2 AT %I0.0.3.0.1:	BOOL;
    	IRes3 AT %I0.0.3.0.2:	BOOL;
    	IRes4 AT %I0.0.3.0.3:	BOOL;
    	IRes5 AT %I0.0.3.0.4:	BOOL;
    	IRes6 AT %I0.0.3.0.5:	BOOL;
    	IRes7 AT %I0.0.3.0.6:	BOOL;
    	IRes8 AT %I0.0.3.0.7:	BOOL;
    	NichtAus AT %Q0.0.3.0.0:	BOOL;	(*%Q0.0.3.0.0*)
    	B7B AT %Q0.0.3.0.1:	BOOL;
    	DHK_EST AT %Q0.0.3.0.2:	BOOL;
    	B8B AT %Q0.0.3.0.3:	BOOL;
    	Hupe AT %Q0.0.3.0.4:	BOOL;
    	LM_AnlageEin AT %Q0.0.3.0.5:	BOOL;
    	QRes1 AT %Q0.0.3.0.6:	BOOL;
    	QRes2 AT %Q0.0.3.0.7:	BOOL;	(*** Profibus DP-Slave ***)
    	 AT %IS2.11.0.0.0:	BOOL;
    	 AT %IS2.11.0.0.1:	BOOL;
    	 AT %IS2.11.0.0.2:	BOOL;
    	 AT %IS2.11.0.0.3:	BOOL;
    	 AT %IS2.11.0.0.4:	BOOL;
    	 AT %IS2.11.0.0.5:	BOOL;
    	 AT %IS2.11.0.0.6:	BOOL;
    	 AT %IS2.11.0.0.7:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK1_z AT %Q2.11.1.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK1_a AT %Q2.11.1.0.1:	BOOL;
    	LMK2_z AT %Q2.11.2.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK2_a AT %Q2.11.2.0.1:	BOOL;
    	LMK3_z AT %Q2.11.3.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK3_a AT %Q2.11.3.0.1:	BOOL;
    	LMK4_z AT %Q2.11.4.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK4_a AT %Q2.11.4.0.1:	BOOL;
    	LMK5_z AT %Q2.11.5.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK5_a AT %Q2.11.5.0.1:	BOOL;
    	LMK6_z AT %Q2.11.6.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK6_a AT %Q2.11.6.0.1:	BOOL;
    	LMK7_z AT %Q2.11.7.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK7_a AT %Q2.11.7.0.1:	BOOL;
    	LMK8_z AT %Q2.11.8.0.0:	BOOL;	(*** Profibus DP-Slave ***)
    	LMK8_a AT %Q2.11.8.0.1:	BOOL;
    	Temperatur1ROH AT %IW2.11.9.0:	INT; (* Rechte Ofenseite *)
    	Temperatur1:	REAL;
    	Temperatur2ROH AT %IW2.11.9.2:	INT;
    	Temperatur2:	REAL;
    	IstTemp1l:UINT;
    	IstTemp2l:UINT;
    
    	WR1 AT %IW2.11.10.0:	INT;
    	WR2 AT %IW2.11.10.2:	INT;
    	WR3 AT %IW2.11.11.0:	INT;
    	WR4 AT %IW2.11.11.2:	INT;
    	WR5 AT %IW2.11.12.0:	INT;
    	WR6 AT %IW2.11.12.2:	INT;
    	WR7 AT %IW2.11.13.0:	INT;
    	WR8 AT %IW2.11.13.2:	INT;
    	Temperatur1ROH_l AT %IW2.11.14.0:	INT; (* linke Ofenseite *)
    	Temperatur1_l:	REAL;
    	IstTemp1_l:UINT;
    	IstTemp2_l:UINT;
    	Stell1_l:REAL;
    	Stell2_l:REAL;
    	Temperatur2ROH_l AT %IW2.11.14.2:	INT;
    	Temperatur2_l:	REAL;
    	StellRoh1_l :UINT;
    	StellRoh2_l :UINT;
    	W1:	INT;
    	W2:	INT;
    	W3:	INT;
    	W4:	INT;
    	W5:	INT;
    	W6:	INT;
    	W7:	INT;
    	W8:	INT;
    	 AT %IB2.11.14.0:	BYTE;
    	StartFrei:	BOOL;
    	ErrCode:	UINT;	(*** Profibus DP-Slave ***)
    	 AT %IS2.2.0.0.0:	BOOL;
    	 AT %IS2.2.0.0.1:	BOOL;
    	 AT %IS2.2.0.0.2:	BOOL;
    	 AT %IS2.2.0.0.3:	BOOL;
    	 AT %IS2.2.0.0.4:	BOOL;
    	 AT %IS2.2.0.0.5:	BOOL;
    	 AT %IS2.2.0.0.6:	BOOL;
    	 AT %IS2.2.0.0.7:	BOOL;
    	FM1 AT %I2.2.0.0.0:	BOOL;
    	St1 AT %I2.2.0.0.2:	BOOL;
    	BB1 AT %I2.2.0.0.5:	BOOL;
    	BE1 AT %I2.2.0.0.6:	BOOL;
    	HB1 AT %I2.2.0.0.7:	BOOL;
    	MB1 AT %IB2.2.0.2:	BYTE;
    	FS1 AT %IB2.2.0.3:	BYTE;
    	ES1 AT %Q2.2.0.0.0:	BOOL;
    	WB1 AT %Q2.2.0.0.1:	BOOL;
    	FM2 AT %I2.3.0.0.0:	BOOL;
    	St2 AT %I2.3.0.0.2:	BOOL;
    	BB2 AT %I2.3.0.0.5:	BOOL;
    	BE2 AT %I2.3.0.0.6:	BOOL;
    	HB2 AT %I2.3.0.0.7:	BOOL;
    	MB2 AT %IB2.3.0.2:	BYTE;
    	FS2 AT %IB2.3.0.3:	BYTE;
    	ES2 AT %Q2.3.0.0.0:	BOOL;
    	WB2 AT %Q2.3.0.0.1:	BOOL;
    	FM3 AT %I2.4.0.0.0:	BOOL;
    	St3 AT %I2.4.0.0.2:	BOOL;
    	BB3 AT %I2.4.0.0.5:	BOOL;
    	BE3 AT %I2.4.0.0.6:	BOOL;
    	HB3 AT %I2.4.0.0.7:	BOOL;
    	MB3 AT %IB2.4.0.2:	BYTE;
    	FS3 AT %IB2.4.0.3:	BYTE;
    	ES3 AT %Q2.4.0.0.0:	BOOL;
    	WB3 AT %Q2.4.0.0.1:	BOOL;
    	FM4 AT %I2.5.0.0.0:	BOOL;
    	St4 AT %I2.5.0.0.2:	BOOL;
    	BB4 AT %I2.5.0.0.5:	BOOL;
    	BE4 AT %I2.5.0.0.6:	BOOL;
    	HB4 AT %I2.5.0.0.7:	BOOL;
    	MB4 AT %IB2.5.0.2:	BYTE;
    	FS4 AT %IB2.5.0.3:	BYTE;
    	ES4 AT %Q2.5.0.0.0:	BOOL;
    	WB4 AT %Q2.5.0.0.1:	BOOL;
    	FM5 AT %I2.6.0.0.0:	BOOL;
    	St5 AT %I2.6.0.0.2:	BOOL;
    	BB5 AT %I2.6.0.0.5:	BOOL;
    	BE5 AT %I2.6.0.0.6:	BOOL;
    	HB5 AT %I2.6.0.0.7:	BOOL;
    	MB5 AT %IB2.6.0.2:	BYTE;
    	FS5 AT %IB2.6.0.3:	BYTE;
    	ES5 AT %Q2.6.0.0.0:	BOOL;
    	WB5 AT %Q2.6.0.0.1:	BOOL;
    	FM6 AT %I2.7.0.0.0:	BOOL;
    	St6 AT %I2.7.0.0.2:	BOOL;
    	BB6 AT %I2.7.0.0.5:	BOOL;
    	BE6 AT %I2.7.0.0.6:	BOOL;
    	HB6 AT %I2.7.0.0.7:	BOOL;
    	MB6 AT %IB2.7.0.2:	BYTE;
    	FS6 AT %IB2.7.0.3:	BYTE;
    	ES6 AT %Q2.7.0.0.0:	BOOL;
    	WB6 AT %Q2.7.0.0.1:	BOOL;
    	FM7 AT %I2.8.0.0.0:	BOOL;
    	St7 AT %I2.8.0.0.2:	BOOL;
    	BB7 AT %I2.8.0.0.5:	BOOL;
    	BE7 AT %I2.8.0.0.6:	BOOL;
    	HB7 AT %I2.8.0.0.7:	BOOL;
    	MB7 AT %IB2.8.0.2:	BYTE;
    	FS7 AT %IB2.8.0.3:	BYTE;
    	ES7 AT %Q2.8.0.0.0:	BOOL;
    	WB7 AT %Q2.8.0.0.1:	BOOL;
    	FM8 AT %I2.9.0.0.0:	BOOL;
    	St8 AT %I2.9.0.0.2:	BOOL;
    	BB8 AT %I2.9.0.0.5:	BOOL;
    	BE8 AT %I2.9.0.0.6:	BOOL;
    	HB8 AT %I2.9.0.0.7:	BOOL;
    	MB8 AT %IB2.9.0.2:	BYTE;
    	FS8 AT %IB2.9.0.3:	BYTE;
    	ES8 AT %Q2.9.0.0.0:	BOOL;
    	WB8 AT %Q2.9.0.0.1:	BOOL;
    	(*** Profibus DP-Slave ***)
    	
    	SollTemp1 AT %IW2.15.0.0 : UINT ;
    	SollTemp2 AT %IW2.15.0.2 : UINT ;
    	Kp1 AT %IW2.15.0.4 : UINT ; (* 28 *)
    	Tn1 AT %IW2.15.0.6 : UINT ;(* 30 *)
    	Tv1 AT %IW2.15.0.8 : UINT  ;(* 700 *)
    	Kp2 AT %IW2.15.0.10 : UINT  ; (* 30 *)
    	Tn2 AT %IW2.15.0.12 : UINT ; (* 30 *)
    	Tv2 AT %IW2.15.0.14 : UINT ; (* 780 *)
    
    
    	Temperatur1Z AT %QW2.15.0.0 : INT ;
    	Temperatur2Z AT %QW2.15.0.2 : Int ;
    	Stell1UI AT %QW2.15.0.4 : UINT ;
    	Stell2UI AT %QW2.15.0.6 : UINT ;
    	Diff1 AT %QW2.15.0.8 : INT ;
    	Diff2 AT %QW2.15.0.10 : INT ;
    	ION1 AT %QB2.15.0.12 : BYTE ;
    	ION2 AT %QB2.15.0.13 : BYTE ;
    	ION3 AT %QB2.15.0.14 : BYTE ;
    	ION4 AT %QB2.15.0.15 : BYTE ;
    	ION5 AT %QB2.15.0.16 : BYTE ;
    	ION6 AT %QB2.15.0.17 : BYTE ;
    	ION7 AT %QB2.15.0.18 : BYTE ;
    	ION8 AT %QB2.15.0.19 : BYTE ;
    	Temperatur1Z_l AT %QW2.15.0.20 : INT ;
    	Temperatur2Z_l AT %QW2.15.0.22 : Int ;
    	Stell1UI_l AT %QW2.15.0.24 : UINT ;
    	Stell2UI_l AT %QW2.15.0.26 : UINT ;
    
    	KalibLauf AT %Q2.15.0.31.0 : BOOL ;
    	Z1TO2 AT %Q2.15.0.31.1 : BOOL ;
    
    	SK1 : REAL ;
    	SK2 : REAL ;
    	SK3 : REAL ;
    	SK4 : REAL ;
    	SK5 : REAL ;
    	SK6 : REAL ;
    	SK7 : REAL ;
    	SK8 : REAL ;
    
    END_VAR
    
    (* Aufbereiten von Werten fürs Panel *)
    LD Stell1
    REAL_TO_UINT
    ST Stell1UI
    LD Stell1_l
    REAL_TO_UINT
    ST Stell1UI_l
    LD Stell2_l
    REAL_TO_UINT
    ST Stell2UI_l
    LD Stell2
    REAL_TO_UINT
    ST Stell2UI
    LD SollTemp1
    UINT_TO_INT
    SUB Temperatur1Z
    ST Diff1
    LD SollTemp2
    UINT_TO_INT
    SUB Temperatur2Z
    ST Diff1
    LD FS1
    ST ION1
    LD FS2
    ST ION2
    LD FS3
    ST ION3
    LD FS4
    ST ION4
    LD FS5
    ST ION5
    LD FS6
    ST ION6
    LD FS7
    ST ION7
    LD FS8
    ST ION8
    
    (* Wenn Klappenkalibrierung - Befehl löschen *)
    LD KalibLauf
    R KlappenKalib
    
    (* Aufbereiten der Temperaturwerte *)
    LD Temperatur1Roh
    ST Temperatur1Z
    
    LD Temperatur2Roh
    ST Temperatur2Z
    
    LD Temperatur1Roh
    GT 0
    JMPC GrNull1
    
    LD 0
    ST Temperatur1Roh
    
    GrNull1:
    LD Temperatur2Roh
    GT 0
    JMPC GrNull2
    
    LD 0
    ST Temperatur2Roh
    
    GrNull2:
    LD Temperatur1Roh
    INT_TO_REAL
    DIV 10.0
    ST Temperatur1
    LD Temperatur2Roh
    INT_TO_REAL
    DIV 10.0
    ST Temperatur2
    LD Temperatur1Roh
    INT_TO_UINT
    ST IstTemp1
    LD Temperatur2Roh
    INT_TO_UINT
    ST IstTemp2
    (* Aufbereiten der Temperaturwerte *)
    LD Temperatur1Roh_l
    ST Temperatur1Z_l
    
    LD Temperatur2Roh_l
    ST Temperatur2Z_l
    
    LD Temperatur1Roh_l
    GT 0
    JMPC GrNull1_l
    
    LD 0
    ST Temperatur1Roh_l
    
    GrNull1_l:
    LD Temperatur2Roh_l
    GT 0
    JMPC GrNull2_l
    
    LD 0
    ST Temperatur2Roh_l
    
    GrNull2_l:
    LD Temperatur1Roh_l
    INT_TO_REAL
    DIV 10.0
    ST Temperatur1_l
    LD Temperatur2Roh_l
    INT_TO_REAL
    DIV 10.0
    ST Temperatur2_l
    LD Temperatur1Roh_l
    INT_TO_UINT
    ST IstTemp1_l
    LD Temperatur2Roh_l
    INT_TO_UINT
    ST IstTemp2_l
    
    CAL Zone1 ( Sollwert_12Bit_UINT := SollTemp1,
    	Istwert_12Bit_UINT := IstTemp1,
    	P_aktivieren_BOOL := True,
    	I_aktivieren_BOOL := True,
    	D_aktivieren_BOOL := True,
    	Uebernahme_Handstellgroesse_BOOL := ,
    	Kp_Prozent_UINT := kp1,
    	Tn_10tels_UINT := tn1,
    	Tv_10tels_UINT := Tv1,
    	Handstellgroesse_12Bit_UINT := 
    	|
    	StellRoh1:= Stellgroesse_12Bit_UINT ,
    	:= Stellgroesse_P_13Bit_INT ,
    	:= Stellgroesse_I_13Bit_INT ,
    	:= Stellgroesse_D_13Bit_INT )
    LD StellRoh1
    UINT_TO_REAL
    MUL 100.0
    DIV 4095.0
    ST Stell1
    
    CAL Zone1_l ( Sollwert_12Bit_UINT := SollTemp1,
    	Istwert_12Bit_UINT := IstTemp1_l,
    	P_aktivieren_BOOL := True,
    	I_aktivieren_BOOL := True,
    	D_aktivieren_BOOL := True,
    	Uebernahme_Handstellgroesse_BOOL := ,
    	Kp_Prozent_UINT := kp1,
    	Tn_10tels_UINT := tn1,
    	Tv_10tels_UINT := Tv1,
    	Handstellgroesse_12Bit_UINT := 
    	|
    	StellRoh1_l:= Stellgroesse_12Bit_UINT ,
    	:= Stellgroesse_P_13Bit_INT ,
    	:= Stellgroesse_I_13Bit_INT ,
    	:= Stellgroesse_D_13Bit_INT )
    LD StellRoh1_l
    UINT_TO_REAL
    MUL 100.0
    DIV 4095.0
    ST Stell1_l
    CAL Zone2_l ( Sollwert_12Bit_UINT := SollTemp2,
    	Istwert_12Bit_UINT := IstTemp2_l,
    	P_aktivieren_BOOL := True,
    	I_aktivieren_BOOL := True,
    	D_aktivieren_BOOL := True,
    	Uebernahme_Handstellgroesse_BOOL := ,
    	Kp_Prozent_UINT := kp2,
    	Tn_10tels_UINT := tn2,
    	Tv_10tels_UINT := Tv2,
    	Handstellgroesse_12Bit_UINT := 
    	|
    	StellRoh2_l:= Stellgroesse_12Bit_UINT ,
    	:= Stellgroesse_P_13Bit_INT ,
    	:= Stellgroesse_I_13Bit_INT ,
    	:= Stellgroesse_D_13Bit_INT )
    LD StellRoh2_l
    UINT_TO_REAL
    MUL 100.0
    DIV 4095.0
    ST Stell2_l
    CAL Zone2 ( Sollwert_12Bit_UINT := SollTemp2,
    	Istwert_12Bit_UINT := IstTemp2,
    	P_aktivieren_BOOL := True,
    	I_aktivieren_BOOL := True,
    	D_aktivieren_BOOL := True,
    	Uebernahme_Handstellgroesse_BOOL := ,
    	Kp_Prozent_UINT := kp2,
    	Tn_10tels_UINT := tn2,
    	Tv_10tels_UINT := Tv2,
    	Handstellgroesse_12Bit_UINT := 
    	|
    	StellRoh2:= Stellgroesse_12Bit_UINT ,
    	:= Stellgroesse_P_13Bit_INT ,
    	:= Stellgroesse_I_13Bit_INT ,
    	:= Stellgroesse_D_13Bit_INT )
    LD StellRoh2
    UINT_TO_REAL
    MUL 100.0
    DIV 4095.0
    ST Stell2
    (*Brenner Schalten*)
    CAL SchaltZ1 ( StellIn := Stell1,
    	USP := ,
    	M1SP := ,
    	M2SP := ,
    	OSP := ,
    	AktStatus := AktStatus1
    	|
    	StellMani1:= StellOut ,
    	Erster1:= Erster )
    
    LD AktStatus1
    EQ 0
    R BNr3
    R BNr4
    LD AktStatus1
    EQ 2
    S BNr3
    S BNr4
    LD AktStatus1
    EQ 1
    AND Erster1
    S BNr3
    R BNr4
    LD AktStatus1
    EQ 1
    ANDN Erster1
    R BNr3
    S BNr4
    CAL SchaltZ2 ( StellIn := Stell2,
    	USP := ,
    	M1SP := ,
    	M2SP := ,
    	OSP := ,
    	AktStatus := AktStatus2
    	|
    	StellMani2:= StellOut ,
    	Erster2:= Erster )
    
    
    LD AktStatus2
    EQ 0
    R BNr5
    R BNr6
    LD AktStatus2
    EQ 2
    S BNr5
    S BNr6
    LD AktStatus2
    EQ 1
    AND Erster2
    S BNr5
    R BNr6
    LD AktStatus2
    EQ 1
    ANDN Erster2
    R BNr5
    S BNr6
    (* Brennerschalten Links *)
    CAL SchaltZ1_l ( StellIn := Stell1_l,
    	USP := ,
    	M1SP := ,
    	M2SP := ,
    	OSP := ,
    	AktStatus := AktStatus1_l
    	|
    	StellMani1_l:= StellOut ,
    	Erster1_l:= Erster )
    
    LD AktStatus1_l
    EQ 0
    R BNr1
    R BNr2
    LD AktStatus1_l
    EQ 2
    S BNr1
    S BNr2
    LD AktStatus1_l
    EQ 1
    AND Erster1_l
    S BNr1
    R BNr2
    LD AktStatus1_l
    EQ 1
    ANDN Erster1_l
    R BNr1
    S BNr2
    CAL SchaltZ2_l ( StellIn := Stell2_l,
    	USP := ,
    	M1SP := ,
    	M2SP := ,
    	OSP := ,
    	AktStatus := AktStatus2_l
    	|
    	StellMani2_l:= StellOut ,
    	Erster2_l:= Erster )
    
    
    LD AktStatus2_l
    EQ 0
    R BNr7
    R BNr8
    LD AktStatus2_l
    EQ 2
    S BNr7
    S BNr8
    LD AktStatus2_l
    EQ 1
    AND Erster2_l
    S BNr7
    R BNr8
    LD AktStatus2_l
    EQ 1
    ANDN Erster2_l
    R BNr7
    S BNr8
    LD StellMani1
    ST SK3
    ST SK4
    LD StellMani1_l
    ST SK1
    ST SK2
    LD StellMani2
    ST SK5
    ST SK6
    LD StellMani2_l
    ST SK7
    ST SK8
    (* Temperaturregler *)
    (* Positive Flanke auf Lampentest *)
    LD Lampentest
    ANDN FMLT
    ST FPOSLT
    LD Lampentest
    ST FMLT
    CAL BlinkTaktSchnellF ( Set :=True ,
    	Period :=350 
    	|
    	BlinkTaktSchnell:= PulseOutput )
    CAL BlinkTaktMittelF ( Set :=True ,
    	Period :=1400 
    	|
    	BlinkTaktMittel:= PulseOutput )
    CAL BlinkTaktLangsamF ( Set :=True ,
    	Period :=3500 
    	|
    	BlinkTaktLangsam:= PulseOutput )
    CAL FlashF ( Set := BlinkTaktMittel,
    	ReSet := ,
    	Hold := ,
    	PresetTime :=80 
    	|
    	Flash:= OutputControl ,
    	:= ElapsedTime )
    LDN Flash
    AND BlinkTaktMittel
    ST Flash
    
    
    CAL Klappe1 ( Lauf_Motor := ,
    	Stell_Akt :=WR1 ,
    	Stell_Soll :=SK1 ,
    	StartPos := StPos1,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_1,
    	RueckHigh := Low_1
    	|
    	StPos1:= StPosErr,
    	:= StellRueck ,
    	LMK1_a:= Auf ,
    	LMK1_z:= Zu ,
    	Kalib1:= AutoKalibAkt )
    CAL Klappe2 ( Lauf_Motor := ,
    	Stell_Akt :=WR2 ,
    	Stell_Soll :=SK2 ,
    	StartPos := StPos2,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_2,
    	RueckHigh := Low_2
    	|
    	StPos2:= StPosErr,
    	:= StellRueck ,
    	LMK2_a:= Auf ,
    	LMK2_z:= Zu ,
    	Kalib2:= AutoKalibAkt )
    CAL Klappe3 ( Lauf_Motor := ,
    	Stell_Akt :=WR3 ,
    	Stell_Soll := SK3,
    	StartPos := StPos3,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_3,
    	RueckHigh := Low_3
    	|
    	StPos3:= StPosErr,
    	:= StellRueck ,
    	LMK3_a:= Auf ,
    	LMK3_z:= Zu ,
    	Kalib3:= AutoKalibAkt )
    CAL Klappe4 ( Lauf_Motor := ,
    	Stell_Akt :=WR4 ,
    	Stell_Soll := SK4,
    	StartPos := StPos4,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_4,
    	RueckHigh := Low_4
    	|
    	StPos4:= StPosErr,
    	:= StellRueck ,
    	LMK4_a:= Auf ,
    	LMK4_z:= Zu ,
    	Kalib4:= AutoKalibAkt )
    CAL Klappe5 ( Lauf_Motor := ,
    	Stell_Akt :=WR5 ,
    	Stell_Soll := SK5,
    	StartPos := StPos5,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_5,
    	RueckHigh := Low_5
    	|
    	StPos5:= StPosErr,
    	:= StellRueck ,
    	LMK5_a:= Auf ,
    	LMK5_z:= Zu ,
    	Kalib5:= AutoKalibAkt )
    CAL Klappe6 ( Lauf_Motor := ,
    	Stell_Akt :=WR6 ,
    	Stell_Soll := SK6,
    	StartPos := StPos6,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_6,
    	RueckHigh := Low_6
    	|
    	StPos6:= StPosErr,
    	:= StellRueck ,
    	LMK6_a:= Auf ,
    	LMK6_z:= Zu ,
    	Kalib6:= AutoKalibAkt )
    CAL Klappe7 ( Lauf_Motor := ,
    	Stell_Akt :=WR7 ,
    	Stell_Soll := SK7,
    	StartPos := StPos7,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_7,
    	RueckHigh := Low_7
    	|
    	StPos7:= StPosErr,
    	:= StellRueck ,
    	LMK7_a:= Auf ,
    	LMK7_z:= Zu ,
    	Kalib7:= AutoKalibAkt )
    CAL Klappe8 ( Lauf_Motor := ,
    	Stell_Akt :=WR8 ,
    	Stell_Soll := SK8,
    	StartPos := StPos8,
    	StartPosWert := ,
    	KalibLow := ,
    	KalibHigh := ,
    	KalibAuto :=KlappenKalib ,
    	Wartezeit := ,
    	Hysterese := ,
    	RueckLow := High_8,
    	RueckHigh := Low_8
    	|
    	StPos8:= StPosErr,
    	:= StellRueck ,
    	LMK8_a:= Auf ,
    	LMK8_z:= Zu ,
    	Kalib8:= AutoKalibAkt )
    
    LD Kalib1
    OR Kalib2
    OR Kalib3
    OR Kalib4
    OR Kalib5
    OR Kalib6
    OR Kalib7
    OR Kalib8
    ST KalibLauf
    LDN FM1
    ANDN KalibLauf
    S LMK1_z
    R LMK1_a
    LDN FM2
    ANDN KalibLauf
    S LMK2_z
    R LMK2_a
    LDN FM3
    ANDN KalibLauf
    S LMK3_z
    R LMK3_a
    LDN FM4
    ANDN KalibLauf
    S LMK4_z
    R LMK4_a
    LDN FM5
    ANDN KalibLauf
    S LMK5_z
    R LMK5_a
    LDN FM6
    ANDN KalibLauf
    S LMK6_z
    R LMK6_a
    LDN FM7
    ANDN KalibLauf
    S LMK7_z
    R LMK7_a
    LDN FM8
    ANDN KalibLauf
    S LMK8_z
    R LMK8_a
    LDN Startbereit
    ANDN KalibLauf
    S LMK1_a
    R LMK1_z
    S LMK2_a
    R LMK2_z
    S LMK3_a
    R LMK3_z
    S LMK4_a
    R LMK4_z
    S LMK5_a
    R LMK5_z
    S LMK6_a
    R LMK6_z
    S LMK7_a
    R LMK7_z
    S LMK8_a
    R LMK8_z
    LDN VBL_Lauf
    ANDN KalibLauf
    R LMK1_a
    S LMK1_z
    R LMK2_a
    S LMK2_z
    R LMK3_a
    S LMK3_z
    R LMK4_a
    S LMK4_z
    R LMK5_a
    S LMK5_z
    R LMK6_a
    S LMK6_z
    R LMK7_a
    S LMK7_z
    R LMK8_a
    S LMK8_z
    
    (* Generieren der fehlenden Abluft NOK meldung *)
    LD ABL_Lauf
    ANDN LuftMangelAblOK
    ST Temp
    CAL Sicherheitskette ( VBLV_Ein := VBL_Lauf,
    	VBLV_Zeit :=60 ,
    	Luftmangel := LuftMangel,
    	Luftdruck_OK := LuftOK,
    	AbluftV := ABL_Lauf,
    	AblZeit := 5,
    	AbluftNOK :=Temp ,
    	AbluftOK := LuftMangelAblOK,
    	DW_GasOK :=GasMangel ,
    	DW_GasMaxOK := GasMaxOK,
    	SHK_OK :=RedEin ,
    	SHK_Zeit :=200 ,
    	EST_EXT := DHK_Quit
    	|
    	StartFrei:= Freigabe ,
    	ErrCode:= ErrCode )
    	(* Frei Taster Anlage Ein *)
    	LD StartFrei
    	ST NichtAus
    	LD Startbereit
    	St LM_Startbereit
    	LDN DHK_St
    	AND RedEin
    	ANDN Startbereit
    	JMPCN N_Blink_Startseq
    	LD BlinkTaktMittel 
    	ST LM_Startbereit
    	N_Blink_Startseq:
    	LD VBL_Lauf
    	AND RedEin
    	ANDN BlinkTaktMittel
    	ST LM_VBL_Lauf
    	LD Startbereit
    	R LM_VBL_Lauf
    	LD DHK_St
    	AND BlinkTaktMittel
    	ST LM_DHK_St
    	LD DHK_St
    	AND DHK_Quit
    	ST DHK_EST
    CAL LMSicherheitsk ( ErrCode :=ErrCode ,
    	FreigabeSHK :=StartFrei ,
    	Betrieb := RedEin
    	|
    	LM_LuftM_Verb:= LM_Luftmangel ,
    	LM_Gasdruck:= LM_Gasmangel ,
    	LM_LuftM_Abg:= LM_Abluftmangel ,
    	LM_AnlageEin:= LM_Betrieb )
    
    (********************************************************************************)
    LDN FM1
    ANDN StPos1
    ORN SHK_UW1
    R BNr1
    CAL Brenner_1 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr1,
    	BetMeld := FM1,
    	StS := St1,
    	Ein := BE1,
    	Hand := HB1,
    	EstT := Br_1_EST,
    	EstExt := EST_NebenPanel,
    	SchWDiag :=100 ,
    	MyA := FS1
    	|
    	ES1:= Est ,
    	:= DIAG ,
    	Br1_St:= LM_RT ,
    	B1B:= LM_GN ,
    	STP1:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB1:= WB_Weitergabe )
    LDN FM2
    ANDN StPos2
    ORN SHK_UW1
    R BNr2
    CAL Brenner_2 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr2,
    	BetMeld := FM2,
    	StS := St2,
    	Ein := BE2,
    	Hand := HB2,
    	EstT := Br_2_EST,
    	EstExt := EST_NebenPanel,
    	SchWDiag :=100 ,
    	MyA := FS2
    	|
    	ES2:= Est ,
    	:= DIAG ,
    	Br2_St:= LM_RT ,
    	B2B:= LM_GN ,
    	STP2:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB2:= WB_Weitergabe )
    LDN FM3
    ANDN StPos3
    ORN SHK_UW1
    R BNr3
    CAL Brenner_3 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr3,
    	BetMeld := FM3,
    	StS := St3,
    	Ein := BE3,
    	Hand := HB3,
    	EstT := Br_3_EST,
    	EstExt :=EST_NebenPanel ,
    	SchWDiag :=100 ,
    	MyA := FS3
    	|
    	ES3:= Est ,
    	:= DIAG ,
    	Br3_St:= LM_RT ,
    	B3B:= LM_GN ,
    	STP3:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB3:= WB_Weitergabe )
    LDN FM4
    ANDN StPos4
    ORN SHK_UW1
    R BNr4
    CAL Brenner_4 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr4,
    	BetMeld := FM4,
    	StS := St4,
    	Ein := BE4,
    	Hand := HB4,
    	EstT := Br_4_EST,
    	EstExt :=EST_NebenPanel ,
    	SchWDiag :=100 ,
    	MyA := FS4
    	|
    	ES4:= Est ,
    	:= DIAG ,
    	Br4_St:= LM_RT ,
    	B4B:= LM_GN ,
    	STP4:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB4:= WB_Weitergabe )
    LDN FM5
    ANDN StPos5
    ORN SHK_UW2
    R BNr5
    CAL Brenner_5 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr5,
    	BetMeld := FM5,
    	StS := St5,
    	Ein := BE5,
    	Hand := HB5,
    	EstT := Br_5_EST,
    	EstExt :=EST_NebenPanel ,
    	SchWDiag :=100 ,
    	MyA := FS5
    	|
    	ES5:= Est ,
    	:= DIAG ,
    	Br5_St:= LM_RT ,
    	B5B:= LM_GN ,
    	STP5:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB5:= WB_Weitergabe )
    LDN FM6
    ANDN StPos6
    ORN SHK_UW2
    R BNr6
    CAL Brenner_6 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr6,
    	BetMeld := FM6,
    	StS := St6,
    	Ein := BE6,
    	Hand := HB6,
    	EstT := Br_6_EST,
    	EstExt := EST_NebenPanel,
    	SchWDiag :=100 ,
    	MyA := FS6
    	|
    	ES6:= Est ,
    	:= DIAG ,
    	Br6_St:= LM_RT ,
    	B6B:= LM_GN ,
    	STP6:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB6:= WB_Weitergabe )
    LDN FM7
    ANDN StPos7
    ORN SHK_UW2
    R BNr7
    CAL Brenner_7 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr7,
    	BetMeld := FM7,
    	StS := St7,
    	Ein := BE7,
    	Hand := HB7,
    	EstT := Br_7_EST,
    	EstExt := EST_NebenPanel,
    	SchWDiag :=100 ,
    	MyA := FS7
    	|
    	ES7:= Est ,
    	:= DIAG ,
    	Br7_St:= LM_RT ,
    	B7B:= LM_GN ,
    	STP7:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB7:= WB_Weitergabe )
    LDN FM8
    ANDN StPos8
    ORN SHK_UW2
    R BNr8
    CAL Brenner_8 ( BlinkM :=BlinkTaktMittel ,
    	Flash := Flash,
    	WBExt := BNr8,
    	BetMeld := FM8,
    	StS := St8,
    	Ein := BE8,
    	Hand := HB8,
    	EstT := Br_8_EST,
    	EstExt := EST_NebenPanel ,
    	SchWDiag :=100 ,
    	MyA := FS8
    	|
    	ES8:= Est ,
    	:= DIAG ,
    	Br8_St:= LM_RT ,
    	B8B:= LM_GN ,
    	STP8:= StPerm ,
    	:= StMeld ,
    	:= ZwangsEin ,
    	:= ZwangsAus ,
    	:= Normalbetrieb ,
    	:= Anlauf ,
    	WB8:= WB_Weitergabe )
    LD St1
    OR St2
    OR St3
    OR St4
    OR St5
    OR St6
    OR St7
    OR St8
    AND BlinkTaktMittel
    ST St_NebenPanel
    
    LD STP1
    OR STP2 
    OR STP3 
    OR STP4 
    OR STP5 
    OR STP6 
    OR STP7 
    OR STP8 
    S St_NebenPanel
    
    LD DHK_St
    AND BlinkTaktMittel
    ST LM_DHK_St
    LD KalibLauf
    AND Flash
    ST LM_DHK_St
    CAL KalibTimer ( Set :=DHK_Quit ,
    	ReSet := ,
    	Hold := ,
    	PresetTime :=5 
    	|
    	KalibTimerBool:= OutputControl ,
    	:= ElapsedTime )
    LD KalibTimerBool
    ST KlappenKalib
    
    
    LDN Lampentest
    JMPC LTestEnde
    LD BlinkTaktSchnell
    ST B6B
    ST Br5_St
    ST B1B
    ST Br2_St
    ST B7B
    ST Br8_St
    ST B4B
    ST Br3_St
    ST LM_DHK_St
    ST LM_LuftM_Abg
    ST LM_VBL_Lauf
    ST LM_AnlageEin
    LDN BlinkTaktSchnell
    ST B5B
    ST Br6_St
    ST B2B
    ST Br1_St
    ST B8B
    ST Br7_St
    ST B3B
    ST Br4_St
    ST LM_LuftM_Verb
    ST LM_Gasdruck
    ST LM_Startbereit
    LTestEnde:
    LDN VBL_Lauf
    R B6B
    R Br5_St
    R B1B
    R Br2_St
    R B7B
    R Br8_St
    R B4B
    R Br3_St
    R LM_DHK_St
    R LM_LuftM_Abg
    R LM_VBL_Lauf
    R LM_AnlageEin
    R B5B
    R Br6_St
    R B2B
    R Br1_St
    R B8B
    R Br7_St
    R B3B
    R Br4_St
    R LM_LuftM_Verb
    R LM_Gasdruck
    R LM_Startbereit
    LDN StartFrei
    R NichtAus 
    RET
    (Sorry, der mußte sein)

  6. #15
    a_2
    Avatar von a_2

    Re: Der (nicht) ganz ernst zu nehmende Computertest

    Ich hatte mal irgendwo ein Programm das nach definierbaren Filterkriterien Variablen im Quelltest findet und dann durch fortlaufende Variablen nach definierbarem Muster ersetzt.

    Wurde so richtig Effektiv wenn man Variablen fortlaufend, hexadezimal 6-Stellig definiert.

    Zudem konnte das Programm in diversen Programmiersprachen noch sinnlose Variablen definieren um diesen dann im Code irgendwo wieder sinnslose Werte zuzuweisen.

    10 LET $FFAC0F6B2800 = "HALLO WELT"
    20 LET $FFA091D1A4BF = $FFAC0F6B2800
    30 PRINT $FFAC0F6B2800
    40 LET $FFA091D1A4BF = "$FFAC0F6B2800"
    Viel Spass beim Quelltext lesen.. ;-D

    Stefan

Seite 2 von 2 ErsteErste 12

Ähnliche Themen

  1. 12 kostenfrei Schuljahre in LOS- nicht ganz.
    Von lucky2103 im Forum Treffpunkt
    Antworten: 1
    Letzter Beitrag: 19.11.08, 12:09
  2. der nicht-ganz-so-positiv-thread
    Von zero im Forum Treffpunkt
    Antworten: 9
    Letzter Beitrag: 05.06.07, 20:22
  3. Welkenraedt hat nicht ganz 10.000 Einwohner ...
    Von Ralf_aus_Do im Forum Sonstiges
    Antworten: 1
    Letzter Beitrag: 12.04.07, 12:59
  4. Es wird ernst!
    Von doc.gyver im Forum Ehe & Familie
    Antworten: 25
    Letzter Beitrag: 01.07.04, 16:52