Directory of image this file is from
This file as a plain text file
/ ZS552B.TP TESTPROGRAMM FUER ZAEHLZUSATZ SZ 60222 10102 /
/ ADAPTER: 1792-Z INTERFACE /
/ AUTOR: DXT @ GENRAD - KLEIN @ SEL /
/ DATUM: 6-OCT-77 /
ASSIGN PNAME
/A,H/ SCA1=1,
SCA2=2,
SCA3=3,
SCA4=4,
SCA5=5,
/A,H/ SCA6=6,
/A,H/ SCB1=7,
SCB2=8,
SCB3=9,
SCB4=10,
SCB5=11,
/A,H/ SCB6=12,
/A,H/ AINVER=13,
/A,H/ BINVER=14,
/A,L/ LASTZI=15,
/A,L/ ABSCH=16,
/A/ PTAKT=17,
/A,L/ RESET=18,
/A,H/ TFEHL=19,
PP3ALM=20,
PP8REL=21,
PP9AL=22,
/ 23 24 /
/A,H/ CMESS1=23, / 0 0 C5 MESSEN /
/A,H/ CMESS2=24, / 0 1 C3 MESSEN /
/ 1 0 C2 MESSEN /
/ 1 1 C-MESSUNG AUS /
/A,L/ DMMHIG=25,
DMMLOW=26,
MVANHP=27,
MVANSC=28,
SCAMHP=29,
SCBPHP=30,
SCBMHP=31,
SCAPHK=32,
DMHHPH=33,
PDUPHP=34,
MDUMHP=35,
/A,L/ SCAMPO=36,
/A,H/ RS111=37,
FK110=38,
ZT1206=39,
ZT2207=40,
ST1204=41,
ST2205=42,
ZSP109=43,
/A,H/ SZ107=44,
PP15=45,
PP11=46,
/A/ ZT1UEB=47,
ZT2UEB=48,
ST1UEB=49,
ST2UEB=50,
ZSPUEB=51,
/A/ SZUEB=52,
/A, / ZIV108=53,
ZI101=54,
AL210=55,
/A/ PP17=56,
COMPAN=57,
/A,L/ DMMUMS=58,
/A,H/ LGUT=59,
LSCHL=60,
MOSK=61,
MOSE=62,
AUSW=63,
LAMPR=64,
ABSENK=65,
/A,L/ DRSEAN=66,
/A,H/ SYSGND=67,
/A/ PRUEBE=68,
/ 69 70 71 72 /
/A,H/ HPVPR1=69, / 0 0 0V 0 0 0MA /
HPVPR2=70, / 1 0 85V 1 0 100MA /
HPIPR1=71, / 0 1 60V 0 1 50MA /
/A,H/ HPIPR2=72, / 1 1 5V 1 1 10MA /
/A/ ABSUEB=73,
COUT=74,
PP7=75,
PP25=76,
PP14=77,
C4KURZ=78,
PP6=79,
PP10=80,
PP18=81,
PP23=82,
PP5=83,
/A/ PP13=84;
LD 0;STO FRATIO;
COMP USOPT2 <HI=0.5> [1000];
/ ** DEBUG-CODEWORTEINGABE ** /
2: WRITE DEV=TEC'..............CODEWORT EINGEBEN!%007';
READ C;
CCOMP 'DIAGNOSE'[2];
WRITE DEV=TEC'%166%151';
LD 1;STO FRATIO;
/**************** DURCHGANGS- UND KURZSCHLUSSMESSUNG ******************/
/ ** INITIALISIERUNG DER HARDWARE ** /
1000: ASSIGN LGC IA(1-18,23-44,57,58-67,69-72,78)
OA(19,45-56,68,73-77,79-84)
VIHA=3.0 VILA=0.0
VOHA=1.7 VOLA=0.5;
IGN LGC(19,45-57,73-77,79-84);
$IH(1-12,15,23-36,58,65,66,78) IL(13,14,16-18,37-44,57,59-64,67,
69-72)
IST=10M; /GRUNDSTELLUNG/
SET PS-1 V=5 I=0.5; /ADAPTOR POWER/
1200: IGN LGC(19,45-57,73-84);
WRITE DEV=TEC'%166%173PRUEFLING EINLEGEN%174';
1212: MCOMP LGC OH(68) [1212]; /A ODER B PRUEFBER?/
DELAY 10M;
1214: MCOMP LGC OH(68) [1212]; /IMMER NOCH?/
WRITE DEV=TEC '%166%151';
IH(67); /SYSGND @ PDUT(209)/
DELAY 10M;
IH(64); /LAMPE PRUEFUNG AN/
SET PS-2 V= 15 I=0.2; /KOMPARATOREN POS/
SET PS-5 V=-15 I=0.2; /KOMPARATOREN NEG/
SET PS-3 V= 12 I=0.1; /C-MESSUNG POS/
SET PS-4 V=-12 I=0.1; /C-MESSUNG NEG/
IH(62); /MOS ERDUNG WEG/
DELAY 20M;
IH(69,70,72) IL(71); /HP AUF 5V,50MA/
IL(27,28,30); /200 MV AN SC-A & B/
IL(34); /PHP AN PDUT/
DELAY 10M;
LD 0;STO REG-5; /FEHLERANZEG AUF 0/
IST=500U;
/ ** DURCHGANGSPRUEFUNG ** /
WRITE DEV=TEC'%166%151** DURCHGANGSPRUEFUNG '
'LAEUFT **^';
IH(57); /COMP AN/
DELAY 500M;
IH(2,3,6) IL(1,4,5); /SC-A AN PP24(38)/
IH(11,8) IL(7,9,10,12); /SC-B AN 209(18)/
DELAY 10M;
IGN LGC(#74);
MCOMP LGC OH(74) [1215]; /GUT?/
WRITE 'KEINE VERBINDUNG ZWISCHEN PP24 UND 209^';
LD 1;STO REG-5; /FEHLERFLAG IN 5/
1215: $IH(2) IL(1,3,4,5,6); /SC-A AN 103(2)/
$IH(7,8) IL(9,10,11,12); /SC-B AN 104(3)/
DELAY 10M;
MCOMP LGC OH(74) [1216]; /GUT?/
WRITE 'KEINE VERBINDUNG ZWISCHEN 103 UND 104^';
LD 1;STO REG-5; /FEHELERFLAG IN 5/
1216: $IH(3) IL(1,2,4,5,6); /SC-A AN 105(4)/
$IH(7,9) IL(8,10,11,12); /SC-B AN 106(5)/
DELAY 10M;
MCOMP LGC OH(74) [1217]; /GUT?/
WRITE 'KEINE VERBINDUNG ZWISCHEN 105 UND 106^';
LD 1;STO REG-5; /FEHLERFLAG IN 5/
1217: $IH(1) IL(2,3,4,5,6); /SC-A AN S102(1)/
$IH(10,8,7) IL(9,11,12); /SC-B AN S201(11)/
DELAY 10M;
MCOMP LGC OH(74) [1218]; /GUT?/
WRITE 'KEINE VERBINDUNG ZWISCHEN S102 UND S201^';
LD 1;STO REG-5; /FEHLER FLAG IN 5/
1218: $IH(16); /PP24,104,105 AUF/
COMP FRATIO <HI=0.5> [1219]; /DEBUG JUMP/
COMP REG-5 <HI=0.5> [9500]; /FEHLER?ABSCHALTEN/
1219: $IL(1-12) IH(14); /ZERO SC-A&B,B INV/
DELAY 20M;
/ ** INITIALISIERUNG DER SOFTWARE FUER DIE KS-MESSUNG ** /
1220: FORMAT EXP;
LD -2; /ALLE
FEHLERREGISTER/
STO REG-10;
STO REG-11;
STO REG-12;
STO REG-13;
STO REG-14;
STO REG-15;
1280: LD 0;
STO REG-1; /SC-A REG NULL /
STO REG-2; /SC-B REG NULL /
BRANCH 1300;
/ ** SPEICHERUNG DER FEHLERHAFTEN PINS ** /
1550: LD 1; /MESSUNG SCHLECHT/
ADD REG-5;
STO REG-5; /
FEHLERANZ.SPEICHERN/
LD REG-1; /FEHLER LADEN/
1560: COMP REG-10 <HI=-1> [1561]; /10 LEER?NEIN,ZU 11/
STO REG-10; /JA,SPEICHERN/
RETURN; /NEUER ZYKLUS/
1561: COMP REG-11 <HI=-1> [1562]; /11 LEER?NEIN ZU 12/
STO REG-11; /JA,SPEICHERN/
RETURN; /NEUER ZYKLUS/
1562: COMP REG-12 <HI=-1> [1563]; /12 LEER?NEIN ZU 13/
STO REG-12; /JA,SPEICHERN/
RETURN; /NEUER ZYKLUS/
1563: COMP REG-13 <HI=-1> [1564]; /13 LEER?NEIN,ZU 14/
STO REG-13; /JA,SPEICHERN/
RETURN; /NEUER ZYKLUS/
1564: COMP REG-14 <HI=-1> [1565]; /14 LEER?NEIN,ZU 15/
STO REG-14; /JA,SPEICHERN/
RETURN; /NEUER ZYKLUS/
1565: COMP REG-15 <HI=-1> [2050]; /15LEER?NO,MEHR ALS
6/
STO REG-15; /JA,SPEICHERN/
RETURN;
/ ** NEUER ZYKLUS ** /
1580: LD 1; /NEUER ZYKLUS/
ADD REG-1; /INCREMENT SC-A REG/
STO REG-1;
STO REG-2; /INCREMENT SC-B REG/
RETURN; /ENDE SUBRUOTINE/
/ ** SCANNERTAFEL SEQUENTIELL, A UND B SYNCHRON ** /
1300: WRITE DEV=TEC'%166%151** KURZSCHLUSSMESSUNG LAEUFT **^';
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/0/
$IH(1,7);
CALL 1580; / NICHT 1/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/2/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/3/
$IL(1,2,7,8)IH(3,9);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/4/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/5/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/6/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/7/
$IL(1-3,7-9)IH(4,10);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/8/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/9/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/10/
$IH(1,7);
CALL 1580; /NICHT 11/
$IL(1,2,7,8)IH(3,9);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/12/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/13/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/14/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/15/
$IL(1-4,7-10)IH(5,11);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/16/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/17/
$IL(1,7)IH(2,8);
CALL 1580; / NICHT 18/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/19/
$IL(1,2,7,8)IH(3,9);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/20/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/21/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/22/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/23/
$IL(1-3,7-9)IH(4,10);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/24/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/25/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/26/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/27/
$IL(1,2,7,8)IH(3,9);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/28/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/29/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/30/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/31/
$IL(1-5,7-11)IH(6,12);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/32/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/33/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/34/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/35/
$IL(1,2,7,8)IH(3,9);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/36/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/37/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/38/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/39/
$IL(1-3,7-9)IH(4,10);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/40/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/41/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/42/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/43/
$IL(1,2,7,8)IH(3,9);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/44/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/45/
$IL(1,7)IH(2,8);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/46/
$IH(1,7);
DELAY 10M;
OH(74) [CALL 1550];
CALL 1580;
/47/
/ ** AUSWERTUNG DER KURZSCHLUSSMESSUNG ** /
2000: COMP REG-5 <LO=0.5> [9500]; /FEHLER DA?/
COMP REG-5 <LO=1.5> [4550]; /EINER?JA,JUMP INT/
COMP REG-5 <HI=3.5> [2050]; /MEHR ALS DREI?2050/
2010: WRITE 'KURZSCHLUSSTEST:^';
WRITE '%166KURZSCHLUSS ZWISCHEN:^';
2020: LD REG-10;
STO REG-4;
CALL 5000;
WRITE'^';
2030: COMP REG-11 <LO=-1> [9000]; /IN REG11?NEIN,ENDE/
LD REG-11;
STO REG-4;
CALL 5000;
WRITE '^';
2040: COMP REG-12 <LO=-1> [9000]; /IN REG12?NEIN,ENDE/
LD REG-12;
STO REG-4;
CALL 5000;
WRITE '^'; /JA,AUSGEBEN/
BRANCH 9000; /ABBRUCH/
2050: WRITE 'KURZSCHLUSSTEST:^';
LD REG-5;
STO REG-6; /ANZAHL IN 6/
LD REG-10; /FEHLER REG 10/
CALL 2500; /AUSGEBEN/
LD -1; /LEERMACHEN/
ADD REG-6; /REG 6 DEKREMENT/
STO REG-6;
LD REG-11; /FEHLER REG 11/
CALL 2500; /AUSGEBEN/
LD -1;
ADD REG-6; /REG 6 DEKREMENT/
STO REG-6;
LD REG-12; /FEHLER REG 12/
CALL 2500; /AUSGEBEN/
LD -1;
ADD REG-6; /REG 6 DEKREMENT/
STO REG-6;
COMP AR <LO=0.5> [3000]; /REG 6 NULL?/
LD REG-13; /FEHLER REG 13/
CALL 2500; /AUSGEBEN/
LD -1;
ADD REG-6; /REG 6 DEKREMENT/
STO REG-6;
COMP AR <LO=0.5> [3000]; /REG 6 NULL?/
LD REG-14; /FEHLER REG 14/
CALL 2500; /AUSGEBEN/
LD -1;
ADD REG-6; /REG 6 DEKREMENT/
STO REG-6;
COMP AR <LO=0.5> [3000]; /REG 6 NULL?/
LD REG-15; /FEHLER REG 15/
CALL 2500; /AUSGEBEN/
BRANCH 3000; /KOMMENTAR/
/ ** AUSGABEINITIALISIERUNG ** /
2500: STO REG-4; /FEHLER IN REG-4/
CALL 5000; /JUMP REFERENZTAB/
WRITE ' '; /BLANK SCHREIBEN/
RETURN;
/ ** KOMMENTAR ** /
3000: WRITE '%167 ZEIGEN KURZSCHLUSSVERHALTEN^';
BRANCH 9000; /AUSSPRUNG/
/ ** HANDLING BEI AUFRETEN NUR EINES FEHLERS ** /
4550: WRITE 'KURZSCHLUSSTEST:^';
4600: LD REG-10; /FEHLER LADEN/
STO REG-4; /INIT FUER 5000/
CALL 5000; /JUMP REFERENZTAB/
WRITE ' HAT KURZSCHLUSS MIT EINEM ODER MEHEREREN'
' DER FOLGENDEN ANSCHLUESSE:^'
'S102,S201,209(ERDE)^'
'ODER ES LIEGT INTERMITTIERENDES VERHALTEN VOR^';
BRANCH 9000; /AUSSPRUNG/
/ ** REFERENZTAFEL BINAER ZU KUNDENBEZEICHNUNG DER PINS ** /
5000: LD 0;
STO REG-3; /LAUFINDEX AUF 0/
LD REG-4; /FESTWERT LADEN/
SUB REG-3; /DIFFERENZ BILDEN/
COMP AR <LO= 0.5> [5005]; /FESTWERT=INDEX?/
CALL 6000; /INCREMENT U. DIFF/
BRANCH 5010;
5005: WRITE'S1O1'; /PIN GEFUNDEN/
RETURN;
5010: COMP AR <LO= 0.5> [5015]; /BINAER 1/
CALL 6000;
BRANCH 5020;
5015: WRITE'S1O2';
RETURN;
5020: COMP AR <LO= 0.5> [5025]; /BINAER 2/
CALL 6000;
BRANCH 5030;
5025: WRITE'S1O3';
RETURN;
5030: COMP AR <LO= 0.5> [5035]; /BINAER 3/
CALL 6000;
BRANCH 5040;
5035: WRITE'S1O4';
RETURN;
5040: COMP AR <LO= 0.5> [5045]; /BINAER 4/
CALL 6000;
BRANCH 5050;
5045: WRITE'S1O5';
RETURN;
5050: COMP AR <LO= 0.5> [5055]; /BINAER 5/
CALL 6000;
BRANCH 5060;
5055: WRITE'S1O6';
RETURN;
5060: COMP AR <LO= 0.5> [5065]; /BINAER 6/
CALL 6000;
BRANCH 5070;
5065: WRITE'S1O7';
RETURN;
5070: COMP AR <LO= 0.5> [5075]; /BINAER 7/
CALL 6000;
BRANCH 5080;
5075: WRITE'S1O8';
RETURN;
5080: COMP AR <LO= 0.5> [5085]; /BINAER 8/
CALL 6000;
BRANCH 5090;
5085: WRITE'S1O9';
RETURN;
5090: COMP AR <LO= 0.5> [5095]; /BINAER 9/
CALL 6000;
BRANCH 5100;
5095: WRITE'S110';
RETURN;
5100: COMP AR <LO= 0.5> [5105]; /BINAER 10/
CALL 6000;
BRANCH 5110;
5105: WRITE'S111';
RETURN;
5110: COMP AR <LO= 0.5> [5115]; /BINAER 11/
CALL 6000;
BRANCH 5120;
5115: WRITE'S201';
RETURN;
5120: COMP AR <LO= 0.5> [5125]; /BINAER 12/
CALL 6000;
BRANCH 5130;
5125: WRITE'S202&S208';
RETURN;
5130: COMP AR <LO= 0.5> [5135]; /BINAER 13/
CALL 6000;
BRANCH 5140;
5135: WRITE'S203&PP1';
RETURN;
5140: COMP AR <LO= 0.5> [5145]; /BINAER 14/
CALL 6000;
BRANCH 5150;
5145: WRITE'S204';
RETURN;
5150: COMP AR <LO= 0.5> [5155]; /BINAER 15/
CALL 6000;
BRANCH 5160;
5155: WRITE'S205';
RETURN;
5160: COMP AR <LO= 0.5> [5165]; /BINAER 16/
CALL 6000;
BRANCH 5170;
5165: WRITE'S206';
RETURN;
5170: COMP AR <LO= 0.5> [5175]; /BINAER 17/
CALL 6000;
BRANCH 5180;
5175: WRITE'S207';
RETURN;
5180: COMP AR <LO= 0.5> [5185]; /BINAER 18/
CALL 6000;
BRANCH 5190;
5185: WRITE'S209';
RETURN;
5190: COMP AR <LO= 0.5> [5195]; /BINAER 19/
CALL 6000;
BRANCH 5200;
5195: WRITE'S210';
RETURN;
5200: COMP AR <LO= 0.5> [5205]; /BINAER 20/
CALL 6000;
BRANCH 5210;
5205: WRITE'S211';
RETURN;
5210: COMP AR <LO= 0.5> [5215]; /BINAER 21/
CALL 6000;
BRANCH 5220;
5215: WRITE'PP12';
RETURN;
5220: COMP AR <LO= 0.5> [5225]; /BINAER 22/
CALL 6000;
BRANCH 5230;
5225: WRITE'PP19';
RETURN;
5230: COMP AR <LO= 0.5> [5235]; /BINAER 23/
CALL 6000;
BRANCH 5240;
5235: WRITE'PP3';
RETURN;
5240: COMP AR <LO= 0.5> [5245]; /BINAER 24/
CALL 6000;
BRANCH 5250;
5245: WRITE'PP4';
RETURN;
5250: COMP AR <LO= 0.5> [5255]; /BINAER 25/
CALL 6000;
BRANCH 5260;
5255: WRITE'PP20';
RETURN;
5260: COMP AR <LO= 0.5> [5265]; /BINAER 26/
CALL 6000;
BRANCH 5270;
5265: WRITE'PP17';
RETURN;
5270: COMP AR <LO= 0.5> [5275]; /BINAER 27/
CALL 6000;
BRANCH 5280;
5275: WRITE'PP9';
RETURN;
5280: COMP AR <LO= 0.5> [5285]; /BINAER 28/
CALL 6000;
BRANCH 5290;
5285: WRITE'PP22';
RETURN;
5290: COMP AR <LO= 0.5> [5295]; /BINAER 29/
CALL 6000;
BRANCH 5300;
5295: WRITE'PP27';
RETURN;
5300: COMP AR <LO= 0.5> [5305]; /BINAER 30/
CALL 6000;
BRANCH 5310;
5305: WRITE'PP26';
RETURN;
5310: COMP AR <LO= 0.5> [5315]; /BINAER 31/
CALL 6000;
BRANCH 5320;
5315: WRITE'PP8';
RETURN;
5320: COMP AR <LO= 0.5> [5325]; /BINAER 32/
CALL 6000;
BRANCH 5330;
5325: WRITE'PP2';
RETURN;
5330: COMP AR <LO= 0.5> [5335]; /BINAER 33/
CALL 6000;
BRANCH 5340;
5335: WRITE'PP25';
RETURN;
5340: COMP AR <LO= 0.5> [5345]; /BINAER 34/
CALL 6000;
BRANCH 5350;
5345: WRITE'PP7';
RETURN;
5350: COMP AR <LO= 0.5> [5355]; /BINAER 35/
CALL 6000;
BRANCH 5360;
5355: WRITE'PP14';
RETURN;
5360: COMP AR <LO= 0.5> [5365]; /BINAER 36/
CALL 6000;
BRANCH 5370;
5365: WRITE'PP28';
RETURN;
5370: COMP AR <LO= 0.5> [5375]; /BINAER 37/
CALL 6000;
BRANCH 5380;
5375: WRITE'PP21';
RETURN;
5380: COMP AR <LO= 0.5> [5385]; /BINAER 38/
CALL 6000;
BRANCH 5390;
5385: WRITE'PP24';
RETURN;
5390: COMP AR <LO= 0.5> [5395]; /BINAER 39/
CALL 6000;
BRANCH 5400;
5395: WRITE'PP18';
RETURN;
5400: COMP AR <LO= 0.5> [5405]; /BINAER 40/
CALL 6000;
BRANCH 5410;
5405: WRITE'PP23';
RETURN;
5410: COMP AR <LO= 0.5> [5415]; /BINAER 41/
CALL 6000;
BRANCH 5420;
5415: WRITE'PP5';
RETURN;
5420: COMP AR <LO= 0.5> [5425]; /BINAER 42/
CALL 6000;
BRANCH 5430;
5425: WRITE'PP13';
RETURN;
5430: COMP AR <LO= 0.5> [5435]; /BINAER 43/
CALL 6000;
BRANCH 5440;
5435: WRITE'PP6';
RETURN;
5440: COMP AR <LO= 0.5> [5445]; /BINAER 44/
CALL 6000;
BRANCH 5450;
5445: WRITE'PP10';
RETURN;
5450: COMP AR <LO= 0.5> [5455]; /BINAER 45/
CALL 6000;
BRANCH 5460;
5455: WRITE'PP11';
RETURN;
5460: COMP AR <LO= 0.5> [5465]; /BINAER 46/
CALL 6000;
BRANCH 5470;
5465: WRITE'PP15';
RETURN;
5470: COMP AR <LO= 0.5> [5475]; /BINAER 47/
CALL 6000;
BRANCH 5480;
5475: WRITE'PP16';
RETURN;
5480: WRITE'SOFTWARE ERROR^'; /ERROR/
BRANCH 9500; /AUSSPRUNG/
/ ** SUBROUTINE DIFFERENZ FESTWERT ZU LAUFINDEX ** /
6000: LD 1;
ADD REG-3; /INCREMENT LAUFIND/
STO REG-3;
LD REG-4;
SUB REG-3; /DIFFERENZ BILDEN/
RETURN;
/ ** UEBERPRUEFUNG DER FEHLERANZAHL ** /
9000: COMP REG-5 <HI=6.5> [9100]; /MEHR ALS 6/
BRANCH 9500;
9100: WRITE '*** ES IST NOCH MINDESTENS 1 FEHLER MEHR '
'VORHANDEN^NACH REPARATUR DER OBIGEN BITTE '
'ERNEUT DIAGNOSTIZIEREN^';
/ ** ABSCHALTEN DER KURZSCHLUSSMESSUNG ** /
BLOCK;
9500: IGN LGC(19,45-56,73-84);
IL(57); /-100MV COP AB/
DELAY 10M;
IL(14); /SC-B NORM/
IH(1-12,25,26,27,28,30) IST=10M; /DMM UND 200 MV WEG/
DELAY 10M;
IH(1-12,15,23-36,58,62,64-66,67)
IL(13,14,16-18,37-44,57,59,60,61,63,69-72);
DELAY 20M; /GRUNDSTELLUNG/
COMP FRATIO <HI=0.5> [10000]; /DEBUGSPRUNG/
COMP REG-5 <HI=0.5> [70000]; /KEIN FEHLER,WEITER/
/*************** MESSUNG DER DISKRETEN BAUELEMENTE ********************/
10000: BRANCH 10895; /C-MESSUNG/
/ ** FEHLERAUSDRUCK SUBROUTINE FUER SPANNUNG ** /
10400: FORMAT 7,2;
WRITE ' VOLT ISTWERT ' AR' VOLT'; /ISTWERT AUSDRUCK/
10450: FORMAT 6,0;
WRITE ' PRUEFUNG'REG-5'^'; /PRUEFUNG AUS R5/
10480: FORMAT EXP;
LD 1;
STO FAIL; /INKR FAIL/
10490: LD 1;STO TIME; /KOPFREGISTER/
RETURN;
/ ** FEHLERAUSDRUCK SUBROUTINE FUER WIDERSTAND ** /
10600: FORMAT 8,2;
WRITE ' KOHM ISTWERT' AR' KOHM'; /ISTWERT AUSDRUCK/
10650: FORMAT 6,0;
WRITE ' PRUEFUNG'REG-5'^'; /PRUEFUNG AUS R5/
10680: FORMAT EXP;
LD 1;
STO FAIL; /INKR FAIL/
10690: LD 1;STO TIME; /KOPFREGISTER/
RETURN;
/ ** KOPF FUER FEHLERAUSDRUCK ** /
10895: WRITE DEV=TEC'%151%166** PRUEFUNG DER DISKRETEN BAUELEMENTE'
' OHNE BETRIEBSSPANNUNG LAEUFT **^';
/ ** KONDENSATOR C2 ** /
10900: LD 10900;STO REG-5; /PRUEFSCHRITT LADEN/
IH(61); /MOS KS WEG/
IL(23); /C2 ANSCHALTUNG/
IH(11,8) IL(7,9,10,12); /SC-B AN 209(18)/
IL(26); /DMM LO AN SC-B/
FORMAT 7,2;
DELAY 1; /AUFLADEZEIT/
EXEC 'DVM'('R3H1'); /MESSEN/
COMP AR <LO=-2.50 HI=-1.60> [10920]; /GUT-SCHLECHT?/
BRANCH 10930; /GUT,ABSCHALTEN/
10920: WRITE 'C2 SOLLWERT-1.60...-2.5'; /SOLLWERT AUSDRUCK/
10925: CALL 10400; /ISTWERT AUSDRUCK/
10930: IL(61); /MOS KS ANSCHALTEN/
DELAY 20M;
IH(23); /ABSCHALTEN/
/ ** KONDENSATOR C3 ** /
10950: LD 10950;STO REG-5; /PRUEFSCHRITT LADEN/
IL(24); /C3 ANSCHALTUNG/
IH(61); /MOS KS WEG/
FORMAT 4,0;
DELAY 500M; /AUFLADEZEIT/
EXEC 'DVM'('R3H1'); /MESSEN/
COMP AR <LO=-5.00 HI=-2.40>[10970]; /GUT-SCHLECHT?/
BRANCH 10980; /GUT,ABSCHALTEN/
10970: WRITE 'C3 SOLLWERT -2.4...-5.0'; /SOLLWERT AUSDRUCK/
10975: CALL 10400; /ISTWERT AUSDRUCK/
10980: IL(61); /MOS KS ANSCHALTEN/
DELAY 20M; /209 AN SYS GND/
IH(24); /ABSCHALTEN/
IH(7-12,26); /ZERO SC-B,DMM/
/ ** WIDERSTAND R9 ** /
11000: LD 11000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,3,5) IL(1,4,6); /SC-A AN PP19(22)/
IH(7,9,12) IL(8,10,11); /SC-B AN PP21(37)/
IL(25,26); /DMM AN SC-A&B/
IH(69,70,71) IL(72); /HP AUF 5V,100MA/
IL(27); /AN PHP/
IL(28); /200MV AN SC-A/
IH(61); /MOS KS ABSCHALTEN/
DELAY 20M;
IL(30); /DMM P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R2'); /LEERLAUF MESSEN/
MUL -1; /INVERTIEREN/
STO PSV; /SPEICHERN/
IH(30,25); /PHP & DMMHI WEG/
IL(33); /DMM IN REIHE EIN/
DELAY 1;
EXEC 'DVM'('R2'); /SPANNUNG MESSEN/
IL(61); /MOS KS ANSCHALTEN/
STO PSI; /MESSW. SPEICHERN/
LD PSV;SUB PSI; /DIFFERENZ/
COMP AR <HI=0.15 LO=0.09> [11200]; /GUT-SCHLECHT?/
BRANCH 11300; /GUT,ABSCHALTEN/
11200: WRITE 'R9 SOLLWERT 0.15.. 0.09'; /SOLLWERT AUSDRUCK/
11250: CALL 10400; /ISTWERT AUSDRUCK/
11300: IH(25-36); /ZERO DEVICE SCANNER/
/ ** ZENERDIODE G4, ZP75 ** /
12000: LD 12000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,4,5) IL(1,3,6); /SC-A AN PP17(26)/
IH(8,11) IL(7,9,10,12); /SC-B AN 209(18)/
IL(25); /DMM HI AN SC-A/
IL(26); /DMM LO AN SC-B/
IL(29); /M80V AN SC-A/
IH(69,72,71) IL(70); /HP AUF 85V,10MA/
IL(30); /EIN P80V AN SC-B,M6/
DELAY 20M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <HI=-70.0 LO=-80.0> [12200]; /GUT-SCHLECHT?/
BRANCH 12300; /GUT,ABSCHALTEN/
12200: WRITE 'G4 SOLLWERT-70.0..-80.0'; /SOLLWERT AUSDRUCK/
12250: CALL 10400; /ISTWERT AUSDRUCK/
12300: IH(30); /AUS P80V AB SC-B,M6/
IL(69,70,71,72); /ZERO HP/
NOP; /REST BLEIBT/
/ ** DIODE G1 DURCHLASSRICHTUNG ** /
13000: LD 13000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,5) IL(1,3,4,6); /SC-A AN 209(18)/
IH(7,8,9,10,11) IL(12); /SC-B AN PP8(31)/
NOP; /DEV-SC UNVERAENDERT/
IH(69,70,71) IL(72); /HP AUF 5V,100MA/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.0> [13200]; /GUT-SCHLECHT?/
BRANCH 13300; /GUT,ABSCHALTEN/
13200: WRITE 'G1 SOLLWERT -0.5...-1.0'; /SOLLWERT AUSDRUCK/
13250: CALL 10400; /ISTWERT AUSDRUCK/
13300: IH(30); /AUS P80V AB SC-B/
NOP; /HP BLEIBT/
NOP; /DEV-SC BLEIBT/
/ ** DIODE G2 DURCHLASSRICHTUNG ** /
14000: LD 14000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3,4,5) IL(6); /SC-A AN PP8(31)/
IH(9,11) IL(7,8,10,12); /SC-B AN 211(20)/
NOP; /DEV-SC UNVERAENDERT/
NOP; /HP UNVERAENDERT/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.0> [14200]; /GUT-SCHLECHT?/
BRANCH 14300; /GUT,ABSCHALTEN/
14200: WRITE 'G2 SOLLWERT -0.5...-1.0'; /SOLLWERT AUSDRUCK/
14250: CALL 10400; /ISTWERT AUSDRUCK/
14300: IH(30); /AUS P80V AB SC-B/
NOP; /HP BLEIBT/
NOP; /DEV-SC BLEIBT/
IH(11,12); /ZERO SCANNER-B/
/ ** DIODE G3 DURCHLASSRICHTUNG ** /
15000: LD 15000;STO REG-5; /PRUEFSCHRITT LADEN/
NOP; /SC-A BLEIBT PP8/
IH(7,10) IL(8,9,11,12); /SC-B AN 110(9)/
NOP; /DEV-SC UNVERAENDERT/
NOP; /HP UNVERAENDERT/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.0> [15200]; /GUT-SCHLECHT?/
BRANCH 15300; /GUT,ABSCHALTEN/
15200: WRITE 'G3 SOLLWERT -0.5...-1.0'; /SOLLWERT AUSDRUCK/
15250: CALL 10400; /ISTWERT AUSDRUCK/
15300: IH(30); /AUS P80V AB SC-B/
NOP; /HP BLEIBT/
NOP; /DEV-SC BLEIBT/
/ ** DIODE G5 DURCHLASSRICHTUNG ** /
16000: LD 16000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3,5) IL(4,6); /SC-A AN PP3(23)/
IH(10,11) IL(7,8,9,12); /SC-B AN PP4(24)/
NOP; /DEV-SC UNVERAENDERT/
NOP; /HP UNVERAENDERT/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.0> [16200]; /GUT-SCHLECHT?/
BRANCH 16300; /GUT,ABSCHALTEN/
16200: WRITE 'G5 SOLLWERT -0.5...-1.0'; /SOLLWERT AUSDRUCK/
16250: CALL 10400; /ISTWERT AUSDRUCK/
16300: IH(30); /AUS P80V AB SC-B/
NOP; /DEV-SC BLEIBT/
NOP; /HP BLEIBT/
/ ** DIODE G6 DURCHLASSRICHTUNG ** /
17000: LD 17000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(14); /SC-B INVERSBETRIEB/
IH(1,3,5) IL(2,4,6); /SC-A AN PP12(21)/
IH(7,9,11) IL(8,10,12); /SC-B # PP12(21)/
NOP; /HP UNVERAENDERT/
NOP; /DEV-SC UNVERAENDERT/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.3> [17200]; /GUT-SCHLECHT?/
BRANCH 17300; /GUT,ABSCHALTEN/
17200: WRITE 'G6 SOLLWERT -0.5...-1.3'; /SOLLWERT AUSDRUCK/
17250: CALL 10400; /ISTWERT AUSDRUCK/
17300: IH(30); /AUS P80V AB SC-B/
IL(14); /SC-B NORMALBETRIEB/
/ ** DIODE G8 DURCHLASSRICHTUNG ** /
17400: LD 17400;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,3,4,5) IL(2,6); /SC-A AN PP27(29)/
IH(10,7) IL(8,9,11,12); /SC-B AN 110(9)/
NOP; /DEV-SC UNVERAENDERT/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.3> [17600]; /GUT-SCHLECHT?/
BRANCH 17700; /GUT,ABSCHALTEN/
17600: WRITE 'G8 SOLLWERT -0.5...-1.3'; /SOLLWERT AUSDRUCK/
17650: CALL 10400; /ISTWERT AUSDRUCK/
17700: IH(30); /AUS P80V AB SC-B/
NOP; /HP BLEIBT/
NOP; /DEV-SC BLEIBT/
/ ** DIODE G9 DURCHLASSRICHTUNG ** /
17800: LD 17800;STO REG-5; /PRUEFSCHRITT LADEN/
IH(4) IL(1,2,3,5,6); /SC-A AN 109(8)/
IH(10,9,7) IL(8,11,12); /SC-B AN PP1(13)/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.0> [17900]; /GUT-SCHLECHT?/
BRANCH 17950; /GUT,ABSCHALTEN/
17900: WRITE 'G9 SOLLWERT -0.5...-1.0'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
17950: IH(30); /AUS P80V AB SC-B/
/ ** DIODE G10 DURCHLASSRICHTUNG ** /
17960: LD 17960;STO REG-5; /PRUEFSCHRITT LADEN/
IH(5,2) IL(1,3,4,6); /SC-A AN 209(18)/
IH(10,8) IL(7,9,11,12); /SC-B AN 111(10)/
IL(30); /EIN P80V AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3'); /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-2.0> [17965]; /GUT-SCHLECHT?/
BRANCH 17970; /GUT,ABSCHALTEN/
17965: WRITE 'G10 SOLLWERT -0.5...-2.0'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
17970: IH(30); /AUS P80V AB SC-B/
IH(25-36); /ZERO DEV-SC/
/ ** ZENERDIODE G7,ZP13 **/
17980: LD 17980;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,3,5) IL(1,4,6); /SC-A AN PP19/
IH(11,12) IL(7-10); /ZERO SC-B/
IL(30,26); /DMM LO AN P80V/
IL(25); /DMM HI AN SC-A/
IL(34); /P80V AN 209/
IH(70,72) IL(65,69,71); /HP AUF 60V,50MA/
IH(61); /MOS-KS WEG/
DELAY 20M;
IL(29); /EIN M80V AN SC-A/
DELAY 200M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <HI=-12.2 LO=-14.2> [17985]; /GUT SCHLECHT/
BRANCH 17990; /GUT ABSCHALTEN/
17985: WRITE 'G7 SOLLWERT -12.2...-14.2'; /SOLLWERT AUSDRUCK/
CALL 10400;
17990: IH(29); /AUS P80V,AB SC-B/
IL(61); /MOS-KS AN/
DELAY 20M;
IL(69-72); /ZERO HP/
IH(25-36); /ZERO DEV-SC/
/ ** FEHLERANZAHL FESTSTELLEN ** /
LD 0;STO TIME;
COMP FRATIO <HI=0.5> [18000]; /DEBUGSPRUNG/
COMP FAIL <HI=0.5> [17999]; /AUSSPRUNG/
BRANCH 18000;
17999: LD 1;STO FREQ; /FLAG FUER 45000/
BRANCH 45000;
/ ** DIODE G5 SPERRICHTUNG ** /
18000: LD 18000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(5,6) IL(1,2,3,4); /ZERO SC-A/
IH(11,12) IL(7,8,9,10); /ZERO SC-B/
IL(25); /DMM HI AN SC-A,M1/
IL(26); /DMM LO AN SC-B,M2/
IL(31); /M80V AN SC-B/
IH(70,72) IL(65,69,71); /HP AUF 60V,50MA/
IL(32); /P80V @100K AN SC-A/
DELAY 20M;
EXEC 'DVM'('R4'); /LEERLAUF MESSEN/
STO REG-6; /WERT SPEICHERN/
IH(1,2,3,5) IL(4,6); /SC-A AN PP3(23)/
IH(10,11) IL(7,8,9,12); /EIN SC-B AN PP4(24)/
DELAY 20M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
SUB REG-6; /DIFFERENZ BILDEN/
COMP AR <LO=-0.2 HI=-0.0> [18200]; /GUT-SCHLECHT?/
BRANCH 18300; /GUT,ABSCHALTEN/
18200: WRITE 'G5 SOLLWERT -0.2...-0.0'; /SOLLWERT AUSDRUCK/
18250: CALL 10400; /ISTWERT AUSDRUCK/
18300: IH(30); /AUS P80V AB SC-B/
IL(69,70,71,72) IH(65); /ZERO HP/
IH(25-36); /ZERO DEVICE-SCANNER/
/ ** WIDERSTAND R1 ** /
19000: LD 19000;STO REG-5; /PRUEFSCHRITT LADEN/
IL(58); /WIDERSTANDSMESSUNG/
IH(5,3) IL(1,2,4,6); /SC-A AN 211(20)/
IH(8,9) IL(7,10,11,12); /SC-B AN 107(6)/
IL(25); /DMM HI AN SC-A,M1/
IL(26); /EIN DMM LO AN SC-B/
DELAY 20M;
EXEC 'DVM'('R4F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=12.8 HI=14.2> [19200]; /GUT-SCHLECHT?/
BRANCH 19300; /GUT,ABSCHALTEN/
19200: WRITE 'R1 SOLLWERT 12.8...14.2'; /SOLLWERT AUSDRUCK/
19250: CALL 10600; /ISTWERT AUSDRUCK/
19300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R2 ** /
20000: LD 20000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,3) IL(1,4,5,6); /SC-A AN 107(6)/
IH(8,9,10,11) IL(7,12); /SC-B AN PP26(30)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 20M;
EXEC 'DVM'('R4F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=14.4 HI=16.0> [20200]; /GUT-SCHLECHT?/
BRANCH 20300; /GUT,ABSCHALTEN/
20200: WRITE 'R2 SOLLWERT 14.4...16.0'; /SOLLWERT AUSDRUCK/
20250: CALL 10600; /ISTWERT AUSDRUCK/
20300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R3 ** /
21000: LD 21000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(3,4,5) IL(1,2,6); /SC-A AN PP22(28)/
IH(10,9,7) IL(8,11,12); /SC-B AN PP1(13)/
IL(78); /C4 KURZGESCHLOSSEN/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 100M;
EXEC 'DVM'('R4F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=12.0 HI=15.8> [21200]; /GUT-SCHLECHT?/
BRANCH 21300; /GUT,ABSCHALTEN/
21200: WRITE 'R3 SOLLWERT 12.0...15.8'; /SOLLWERT AUSDRUCK/
21250: CALL 10600; /ISTWERT AUSDRUCK/
21300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R4 ** /
22000: LD 22000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,5) IL(1,3,4,6); /SC-A AN 209(18)/
IH(7,8,9,10,11) IL(12); /SC-B AN PP8(31)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 100M;
EXEC 'DVM'('R4F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=10.5 HI=13.5> [22200]; /GUT-SCHLECHT?/
BRANCH 22300; /GUT,ABSCHALTEN/
22200: WRITE 'R4 SOLLWERT 10.5...13.5'; /SOLLWERT AUSDRUCK/
22250: CALL 10600; /ISTWERT AUSDRUCK/
22300: IH(25,26); /AUS DMM AB SC-A+B/
IH(78); /C4 KURZSHL. WEG/
/ ** WIDERSTAND R5 ** /
23000: LD 23000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3) IL(4,5,6); /SC-A AN 108(7)/
IH(7,8,10,11) IL(9,12); /SC-B AN PP9(27)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=1.70 HI=1.86> [23200]; /GUT-SCHLECHT?/
BRANCH 23300; /GUT,ABSCHALTEN/
23200: WRITE 'R5 SOLLWERT 1.70...1.86'; /SOLLWERT AUSDRUCK/
23250: CALL 10600; /ISTWERT AUSDRUCK/
23300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R6 ** /
24000: LD 24000;STO REG-5; /PRUEFSCHRITT LADEN/
IL(1,2,3,4,5,6); /SC-A AN 101(0)/
IH(7,10,11) IL(8,9,12); /SC-B AN PP20(25)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 20M;
EXEC 'DVM'('R3F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=1.70 HI=1.86> [24200]; /GUT-SCHLECHT?/
BRANCH 24300; /GUT,ABSCHALTEN/
24200: WRITE 'R6 SOLLWERT 1.70...1.86'; /SOLLWERT AUSDRUCK/
24250: CALL 10600; /ISTWERT AUSDRUCK/
24300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R7 ** /
25000: LD 25000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3,4,5) IL(6); /SC-A AN PP8(31)/
IH(12) IL(7,8,9,10,11); /SC-B AN PP2(32)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 20M;
EXEC 'DVM'('R2F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=0.37 HI=0.41> [25200]; /GUT-SCHLECHT?/
BRANCH 25300; /GUT,ABSCHALTEN/
25200: WRITE 'R7 SOLLWERT 0.37...0.41'; /SOLLWERT AUSDRUCK/
25250: CALL 10600; /ISTWERT AUSDRUCK/
25300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R8 ** /
26000: LD 26000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,3,5) IL(2,4,6); /SC-A AN PP12(21)/
IH(9,11) IL(7,8,10,12); /SC-B AN 211(20)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 20M;
EXEC 'DVM'('R4F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=3.70 HI=4.10> [26200]; /GUT-SCHLECHT?/
BRANCH 26300; /GUT,ABSCHALTEN/
26200: WRITE 'R8 SOLLWERT 3.70...4.10'; /SOLLWERT AUSDRUCK/
26250: CALL 10600; /ISTWERT AUSDRUCK/
26300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R10 ** /
26500: LD 26500;STO REG-5; /PRUEFSCHRITT LADEN/
IH(4,3,1) IL(2,5,6); /SC-A AN PP1(13)/
IH(10) IL(7,8,9,11,12); /SC-B AN 109(8)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 20M;
EXEC 'DVM'('R4F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=80 HI=102> [26700]; /GUT-SCHLECHT?/
BRANCH 26800; /GUT,ABSCHALTEN/
26700: WRITE 'R10 SOLLWERT 80... 102'; /SOLLWERT AUSDRUCK/
26750: CALL 10600; /ISTWERT AUSDRUCK/
26800: IH(25,26); /AUS DMM AB SC-A+B/
/ ** WIDERSTAND R11 ** /
26900: LD 26900;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,5) IL(1,3,4,6); /SC-A AN 209(18)/
IH(11,9,8) IL(7,10,12); /SC-B AN PP19(22)/
IL(25); /DMM HI AN SC-A/
IH(61); /MOS KS WEG/
DELAY 20M;
IL(26); /EIN DMM LO AN SC-B/
DELAY 1;
EXEC 'DVM'('R4F4');
DELAY 1;
EXEC 'DVM'('R4F4'); /WIDERSTAND MESSEN/
DIV 1000;
IL(61); /MOS KS AN/
COMP AR <LO=9.5 HI=11.5> [26950]; /GUT-SCHLECHT?/
BRANCH 26970; /GUT,ABSCHALTEN/
26950: WRITE 'R11 SOLLWERT 9.50...11.5'; /SOLLWERT AUSDRUCK/
26960: CALL 10600; /ISTWERT AUSDRUCK/
26970: IH(25,26); /AUS DMM AB SC-A+B/
/ ** SPULE L ** /
27000: LD 27000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(6) IL(1,2,3,4,5); /SC-A AN PP2(32)/
IH(10,9,7) IL(8,11,12); /SC-B AN PP1(13)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
EXEC 'DVM'('R2F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=0.27 HI=0.39> [27200]; /GUT-SCHLECHT?/
BRANCH 27300; /GUT,ABSCHALTEN/
27200: WRITE 'L SOLLWERT 0.27...0.39'; /SOLLWERT AUSDRUCK/
27250: CALL 10600; /ISTWERT AUSDRUCK/
27300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** SPULE A-B RELAIS ** /
28000: LD 28000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3,5) IL(4,6); /SC-A AN PP3(23)/
IH(9,11) IL(7,8,10,12); /SC-B AN 211(20)/
IL(29,31);
DELAY 10M;
IH(29,31);
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 500M;
EXEC 'DVM'('R3F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=3.40 HI=4.70> [28200]; /GUT-SCHLECHT?/
BRANCH 28300; /GUT,ABSCHALTEN/
28200: WRITE 'AB SOLLWERT 3.40...4.70'; /SOLLWERT AUSDRUCK/
28250: CALL 10600; /ISTWERT AUSDRUCK/
28300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** DIODE G2 SPERRICHTUNG ** /
29000: LD 29000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3,4,5) IL(6); /SC-A AN PP8(31)/
IH(9,11) IL(7,8,10,12); /SC-B AN 211(20)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 500M;
EXEC 'DVM'('R5F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=4> [29200]; /GUT-SCHLECHT?/
BRANCH 29300; /GUT,ABSCHALTEN/
29200: WRITE 'G2 SOLLWERT >4'; /SOLLWERT AUSDRUCK/
29250: CALL 10600; /ISTWERT AUSDRUCK/
29300: IH(25,26); /AUS DMM AB SC-A+B/
BLOCK;
/ ** DIODE G3 SPERRICHTUNG ** /
30000: LD 30000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3,4,5) IL(6); /SC-A AN PP8(31)/
IH(7,10) IL(8,9,11,12); /SC-B AN 110(9)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 500M;
EXEC 'DVM'('R1F4'); /WIDERSTAND MESSEN/
DELAY 100M;
EXEC 'DVM'('R5F4');
DIV 1000;
COMP AR <LO=300> [30200]; /GUT-SCHLECHT?/
BRANCH 30300; /GUT,ABSCHALTEN/
30200: WRITE 'G3 SOLLWERT >300'; /SOLLWERT AUSDRUCK/
30250: CALL 10600; /ISTWERT AUSDRUCK/
30300: IH(25,26); /AUS DMM AB SC-A+B/
/ ** DIODE G8 SPERRICHTUNG ** /
30500: LD 30500;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,3,4,5) IL(2,6); /SC-A AN PP27(29)/
IH(7,10) IL(8,9,11,12); /SC-B AN 110(9)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
EXEC'DVM'('R3F4');
DELAY 100M;
EXEC 'DVM'('R5F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=200> [30700]; /GUT-SCHLECHT?/
BRANCH 30800; /GUT,ABSCHALTEN/
30700: WRITE 'G8 SOLLWERT >200'; /SOLLWERT AUSDRUCK/
30750: CALL 10600; /ISTWERT AUSDRUCK/
30800: IH(25,26); /AUS DMM AB SC-A+B/
/ ** DIODE G10 SPERRICHTUNG ** /
30900: LD 30900;STO REG-5; /PRUEFSCHRITT LADEN/
IH(5,2) IL(1,3,4,6); /SC-A AN 209(18)/
IH(10,8) IL(7,9,11,12); /SC-B AN 111(10)/
IL(25); /DMM HI AN SC-A/
IL(26); /EIN DMM LO AN SC-B/
DELAY 100M;
EXEC 'DVM'('R5F4'); /WIDERSTAND MESSEN/
DIV 1000;
COMP AR <LO=200> [30950]; /GUT-SCHLECHT?/
BRANCH 30980; /GUT,ABSCHALTEN/
30950: WRITE 'G10 SOLLWERT >200'; /SOLLWERT AUSDRUCK/
30960: CALL 10600; /ISTWERT AUSDRUCK/
30980: IH(25,26); /AUS DMM AB SC-A+B/
IH(58); /DMM R-MESSUNG AB/
/ ** AB-RELAIS FUNKTION 1 ** /
32000: WRITE DEV=TEC'%151%166** PRUEFUNG AB-RELAIS '
'LAEUFT **^';
LD 32000;STO REG-5; /PRUEFSCHRITT LADEN/
EXEC 'DVM';
IH(3) IL(1,2,4,5,6); /SC-A AN 105(4)/
IH(10,11) IL(7,8,9,12); /SC-B AN PP4(24)/
IL(25); /DMM HI AN SC-A/
IL(26); /DMM LO AN SC-B/
IL(34); /P80VAN 209/
IL(30); /P80V AN SC-B/
IH(70,71) IL(65,69,72); /HP AUF 60V,100MA/
IH(61); /MOS KS WEG/
DELAY 20M;
IL(35); /EIN M80V AN 211/
DELAY 100M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <LO=-0.2 HI=+0.2> [32200]; /GUT-SCHLECHT?/
BRANCH 32300; /GUT,ABSCHALTEN/
32200: WRITE 'A1 SOLLWERT -0.2...+0.2'; /SOLLWERT AUSDRUCK/
32250: CALL 10400; /ISTWERT AUSDRUCK/
32300: IH(25); /DMM AB SC-A/
NOP; /ALLES BLEIBT/
/ ** AB-RELAIS FUNKTION 2 ** /
33000: LD 33000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,3) IL(2,4,5,6); /SC-A AN 106(5)/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <HI=-56.0> [33200]; /GUT-SCHLECHT?/
BRANCH 33300; /GUT,ABSCHALTEN/
33200: WRITE 'A2 SOLLWERT <-56.0'; /SOLLWERT AUSDRUCK/
33250: CALL 10400; /ISTWERT AUSDRUCK/
33300: IH(25); /DMM AB SC-A/
/ ** AB-RELAIS FUNKTION 3 ** /
34000: LD 34000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2) IL(1,3,4,5,6); /SC-A AN 103(2)/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <HI=-56.0> [34200]; /GUT-SCHLECHT?/
BRANCH 34300; /GUT,ABSCHALTEN/
34200: WRITE 'A3 SOLLWERT <-56.0'; /SOLLWERT AUSDRUCK/
34250: CALL 10400; /ISTWERT AUSDRUCK/
34300: IH(25); /DMM AB SC-A/
/ ** AB-RELAIS FUNKTION 4 ** /
35000: LD 35000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2) IL(3,4,5,6); /SC-A AN 104(3)/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <LO=-31.0 HI=-28.0> [35200]; /GUT-SCHLECHT?/
BRANCH 35300; /GUT,ABSCHALTEN/
35200: WRITE 'A4 SOLLWERT -31.0...-28.0'; /SOLLWERT AUSDRUCK/
35250: CALL 10400; /ISTWERT AUSDRUCK/
35300: IH(25); /DMM AB SC-A/
/ ** AB-RELAIS FUNKTION 5 ** /
36000: LD 36000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1) IL(2,3,4,5,6); /SC-A AN 102(1)/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <LO=-31.0 HI=-28.0> [36200]; /GUT-SCHLECHT?/
BRANCH 36300; /GUT,ABSCHALTEN/
36200: WRITE 'A5 SOLLWERT -31.0...-28.0'; /SOLLWERT AUSDRUCK/
36250: CALL 10400; /ISTWERT AUSDRUCK/
36300: IH(25); /DMM AB SC-A/
/ ** AB-RELAIS FUNKTION 6 ** /
38000: LD 38000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,3) IL(2,4,5,6); /SC-A AN 106(5)/
IH(11,12); /ZERO SC-B/
DELAY 50M; /ABFALLDELAY AB-REL/
IH(9) IL(7,8,10,11,12); /SC-B AN 105(4)/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <LO=-0.2 HI=+0.2> [38200]; /GUT-SCHLECHT?/
BRANCH 38300; /GUT,ABSCHALTEN/
38200: WRITE 'A6 SOLLWERT -0.2...+0.2'; /SOLLWERT AUSDRUCK/
38250: CALL 10400; /ISTWERT AUSDRUCK/
38300: IH(25); /DMM AB SC-A/
/ ** AB-RELAIS FUNKTION 7 ** /
39000: LD 39000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2) IL(1,3,4,5,6); /SC-A AN 103(2)/
IH(7,8) IL(9,10,11,12); /SC-B AN 104(3)/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <LO=-0.2 HI=+0.2> [39200]; /GUT-SCHLECHT?/
BRANCH 39300; /GUT,ABSCHALTEN/
39200: WRITE 'A7 SOLLWERT -0.2...+0.2'; /SOLLWERT AUSDRUCK/
39250: CALL 10400; /ISTWERT AUSDRUCK/
39300: IH(25); /DMM AB SC-A/
/ ** AB-RELAIS FUNKTION 8 ** /
40000: LD 40000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1) IL(2,3,4,5,6); /SC-A AN 102(1)/
IH(11,12); /ZERO SC-B/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <LO=-0.2 HI=+0.2> [40200]; /GUT-SCHLECHT?/
BRANCH 40300; /GUT,ABSCHALTEN/
40200: WRITE 'A8 SOLLWERT -0.2...+0.2'; /SOLLWERT AUSDRUCK/
40250: CALL 10400; /ISTWERT AUSDRUCK/
40300: IH(25); /DMM AB SC-A/
/ ** AB-RELAIS FUNKTION 9 ** /
41000: LD 41000;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2) IL(3,4,5,6); /SC-A AN 104(3)/
IL(25); /DMM HI AN SC-A,M1/
DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <HI=-57.0> [41200]; /GUT-SCHLECHT?/
BRANCH 41300; /GUT,ABSCHALTEN/
41200: WRITE 'A9 SOLLWERT <-57.0'; /SOLLWERT AUSDRUCK/
41250: CALL 10400; /ISTWERT AUSDRUCK/
41300: IH(25-36); /ZERO DEV-SC/
DELAY 20M;
IL(61); /MOS KS AN/
DELAY 20M;
/ ** ABSCHALTUNG DER PRUEFUNG ** /
45000: IH(1-12,15,23-36,58,62,64-66,67)
IL(13,14,16-18,37-44,57,59,60,61,63,69-72); /RUHEZUSTAND/
DELAY 20M;
COMP FREQ <HI=0.5> [70000] ; /VON 17980?/
BLOCK;
/****************** ZEIT- UND PEGELMESSUNG ****************************/
/ ** INITIALISIERUNG ** /
WRITE DEV=TEC'%166%151** ZEIT- UND PEGELMESSUNG '
'LAEUFT **^';
IL(65,69,72) IH(70,71); /HP AUF 60V,100MA/
IH(61); /MOS KS WEG/
IL(34); /P80V AN PDUT/
IL(35); /EIN M80V AN M DUT/
IH(2,3,5) IL(1,4,6); /SC-A AN PP19(22)/
IL(30,26,25); /DMM AN A&B,PDUT/
DELAY 20M;
/ ** MESSUNG DER BETRIEBSSPANNUNG ** /
47000: LD 47000;STO REG-5; /PRUEFSCHRITT LADEN/
DELAY 200M; /AUFLADEZEIT/
EXEC 'DVM'('R4'); /MESSEN/
STO PSV; /SPEICHERN/
COMP AR <LO=-14.2 HI=-11.9> [47100]; /SPANNUNG OK?/
FORMAT 7,2;
COMP USOPT1 <HI=0.5> [47200]; /MESSWERT DRUCKEN?/
WRITE 'MESSWERT VON ZEIT- UND PEGELMESSUNG:^'
'SPANNUNG FUER MOS 'AR' VOLT^';
BRANCH 47200;
/ ** FEHLERFALL ** /
47100: FORMAT 7,2;
WRITE 'SPANNUNG FUER MOS SOLLWERT '
'-11.9...-14.2 VOLT '
'ISTWERT' AR' VOLT^';
IH(25-36); /ZERO DEV-SC/
DELAY 20M;
IL(61); /MOS KS AN/
DELAY 20M;
BRANCH 70000; /AUSSPRUNG/
IH(61); /DUMMY KS/
IL(25,26,30,34,35); /DUMMY DEV-SC/
/ ** FERNVERKEHR PHASE 1 ** /
47200: LD 47200;STO REG-5; /PRUEFSCHRITT LADEN/
IL(66,36); /DRIVER-SENS AN/
DELAY 20M;
IGN LGC(19,45-52,54-56,72-84);
$IH(38); /FK NACH 1/
MCOMP LGC OL(53) [49025] IST=0; /ZIV TESTEN =1?/
DELAY 40M;
49000: $IH(43); /ZSP NACH 1/
DELAY 10M; /ZEIT 1/
49010: MCOMP LGC OL(53) [49030]; /ZIV NOCH 1?/
DELAY 10M; /ZEIT 2/
49020: MCOMP LGC OH(53) [49040]; /ZIV 0?/
BRANCH 49110; /ALLES OK/
49025: WRITE 'ZIV NACH INIT NICHT ERDE'; /AUSDRUCK/
BRANCH 49099; /AUSSPRUNG/
49030: LD 49010;STO REG-5; /PRUEFSCHRITT LADEN/
WRITE 'BEI ZSP NACH -60V^' /AUSDRUCK/
'ZIV SCHON -60V VOR ABLAUF DER MIN. ZEIT VON 10MS';
BRANCH 49099;
49040: LD 49020;STO REG-5; /PRUEFSCHRITT LADEN/
WRITE 'BEI ZSP NACH -60V^' /AUSDRUCK/
'ZIV NOCH NICHT -60V NACH ABLAUF DER MAX. ZEIT VON 20MS';
49099: LD 1;STO FAIL; /INKR FAIL/
49100: FORMAT 6,0;
WRITE ' PRUEFUNG'REG-5'^';
/ ** PEGELMESSUNG ZIV LOW ** /
49110: IGN LGC(19,45-52,54-56,68,73-84);
LD 49110;STO REG-5; /PRUEFSCHRITT LADEN/
$IH(1,2,3) IL(4,5,6); /SC-A AN 108(7)/
DELAY 50M;
EXEC'DVM'('R4'); /MESSEN/
COMP AR <HI=-57.0 LO=-60.0> [49150]; /OK?/
BRANCH 49200; /FERTIG/
49150: WRITE 'ZIV SOLLWERT -57.0...-60.0'; /SOLLWERT AUSDRUCK/
49180: CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGELMESSUNG ZSP LOW ** /
49200: LD 49200;STO REG-5; /PRUEFSCHRITT LADEN/
$IH(4) IL(1,2,3,5,6); /SC-A AN 109(8)/
DELAY 50M;
EXEC'DVM'('R4'); /SPANNUNG MESSEN/
COMP AR <LO=-17.0 HI=-14.0> [49250]; /OK?/
BRANCH 49300; /FERTIG/
49250: WRITE 'ZSP SOLLWERT -17.0...-14.0'; /SOLLWERT AUSDRUCK/
49280: CALL 10400; /ISTWERT AUSDRUCK/
/ ** FERNVERKEHR PHASE 2 ** /
49300: $IL(43) IST=0; /ZSP NACH 0/
DELAY 2M; /ZEIT 1/
49310: MCOMP LGC OH(53) [49330]; /ZIV NOCH 0?/
DELAY 8M; /ZEIT 2/
49320: MCOMP LGC OL(53) [49340]; /ZIV JETZT 1?/
BRANCH 49380; /ALLES OK/
49330: LD 49310;STO REG-5; /PRUEFSCRITT LADEN/
WRITE'BEI ZSP NACH ERDE^' /AUSDRUCK/
'ZIV SCHON ERDE VOR ABLAUF DER MIN. ZEIT VON 2MS';
BRANCH 49360; /AUSSPRUNG/
49340: LD 49320;STO REG-5; /PRUEFSCHRITT LADEN/
WRITE'BEI ZSP NACH ERDE^' /AUSDRUCK/
'ZIV NOCH -60V NACH ABLAUF DER MAX. ZEIT VON 10MS';
49360: LD 1;STO FAIL;
49370: FORMAT 6,0;
WRITE ' PRUEFUNG'REG-5'^';
/ ** RECHNUNG DER PEGELSOLLWERTE **/
49380: IGN LGC(#);
LD PSV;MUL 0.957;STO REG-20; /-4,3% SENSORBELASTG/
MUL -0.03;ADD REG-20;STO REG-8; /HI LIMIT UX +3%/
LD REG-20;MUL 0.03;ADD REG-20;STO REG-9;/LO LIMIT UX -3%/
LD PSV;ADD 1;MUL 0.886;STO REG-6; /-11.5% SENSORBELASTG/
LD PSV;ADD 0.5;MUL 0.9395;STO REG-7; /-6.05% SENSORBELASTG/
BRANCH 49400; /ANFANG/
/ ** SUBROUTINE MESSEN **/
5: DELAY 50M;
EXEC 'DVM'('R4'); /SPANNUNG MESSEN/
RETURN;
/ ** PEGEL AN PP18 ** /
49400: IL(37-44) IH(36); /ALLE 0/
LD 49400;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,3,6) IL(4,5); /SC-A AN PP18 (39)/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=REG-8 LO=REG-9> [49410]; /OK?/
BRANCH 49420;
49410: FORMAT 5,1;
WRITE 'P18 SOLLWERT 'REG-8'...'REG-9; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49420: LD 49420;STO REG-5; /PRUEFSCHRITT LADEN/
IH(39); /ZT1 NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-1> [49430]; /OK?/
BRANCH 49450; /FERTIG/
49430: WRITE 'P18 SOLLWERT 0.01...-1.00'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP 23 ** /
49450: LD 49450;STO REG-5; /PRUEFSCHRITT LADEN/
IH(4,6) IL(1,2,3,5); /SC-A AN PP23 (40)/
IL(39); /ZT1 NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=REG-8 LO=REG-9> [49460]; /OK?/
BRANCH 49470;
49460: FORMAT 5,1;
WRITE 'P23 SOLLWERT 'REG-8'...'REG-9; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49470: LD 49470;STO REG-5; /PRUEFSCHRITT LADEN/
IH(40); /ZT2 NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-1> [49480]; /OK?/
BRANCH 49505; /FERTIG/
49480: WRITE 'P23 SOLLWERT 0.01...-1.00'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP5 ** /
49505: LD 49505;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,4,6) IL(2,3,5); /SC-A AN PP5 (41)/
IL(40); /ZT2 NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=REG-8 LO=REG-9> [49510]; /OK?/
BRANCH 49520; /FERTIG/
49510: FORMAT 5,1;
WRITE 'P5 SOLLWERT 'REG-8'...'REG-9; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49520: LD 49520;STO REG-5;
IH(41); /ST1 NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-1> [49530]; /OK?/
BRANCH 49550; /FERTIG/
49530: WRITE 'P5 SOLLWERT 0.01...-1.00'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP13 ** /
49550: LD 49550;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,4,6) IL(1,3,5); /SC-A AN PP13 (42)/
IL(41); /ST1 NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=REG-8 LO=REG-9> [49560]; /OK?/
BRANCH 49570; /FERTIG/
49560: FORMAT 5,1;
WRITE 'P13 SOLLWERT 'REG-8'...'REG-9; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49570: LD 49570;STO REG-5;
IH(42); /ST2 NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-1> [49580]; /OK?/
BRANCH 49590;
49580: WRITE 'P13 SOLLWERT 0.01...-1.00'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP7 ** /
49590: LD 49590;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,6) IL(1,3,4,5); /SC-A AN PP7/
IL(42); /ST2 NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-0.20> [49595]; /OK?/
BRANCH 49600;
49595: WRITE 'P7 SOLWERT 0.01...-0.20'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49600: LD 49600;STO REG-5; /PRUEFSCHRITT LADEN/
IL(42) IH(43); /ST2 NACH 0,ZSP NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <LO=PSV HI=REG-7> [49610]; /OK?/
BRANCH 49620; /FERTIG/
49610: FORMAT 5,1;
WRITE 'P7 SOLLWERT 'REG-7'...'PSV; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49620: LD 49620;STO REG-5;
IH(38); /FK NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-0.2> [49630]; /OK?/
BRANCH 49635;
49630: WRITE 'P7 SOLLWERT 0.01...-0.20'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49635: LD 49635;STO REG-5;
IH(37); /RS NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <LO=PSV HI=REG-7> [49640]; /OK?/
BRANCH 49650;
49640: FORMAT 5,1;
WRITE'P7 SOLLWERT'REG-7'...'PSV; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP25 ** /
49650: LD 49650;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,6) IL(2,3,4,5); /SC-A AN PP25(33)/
IL(37,38,43); /FK NACH 0,ZSP NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-0.1> [49660]; /OK?/
BRANCH 49670; /FERTIG/
49660: WRITE 'P25 SOLLWERT 0.01...-0.10'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49670: LD 49670;STO REG-5;
IH(44); /SZ NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <LO=PSV HI=REG-7> [49680]; /OK?/
BRANCH 49700;
49680: FORMAT 5,1;
WRITE 'P25 SOLLWERT 'REG-7'...'PSV; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP14 ** /
49700: LD 49700;STO REG-5; /PRUEFSCHRITT LADEN/
IH(1,2,6) IL(3,4,5); /SC-A AN PP14(35)/
IL(44); /SZ NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=REG-6 LO=PSV> [49710]; /OK?/
BRANCH 49720; /FERTIG/
49710: FORMAT 5,1;
WRITE 'P14 SOLLWERT 'REG-6'...'PSV; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
49720: LD 49720;STO REG-5;
IH(37); /RS NACH 0/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-1> [49730]; /OK?/
BRANCH 49750;
49730: WRITE 'P14 SOLLWERT 0.01...-1.00'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP15 ** /
49750: LD 49750;STO REG-5; /PRUEFSCHRITT LADEN/
IH(2,3,4,6) IL(1,5); /SC-A AN PP15(46)/
IL(37); /RS NACH 1/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=0.01 LO=-0.2> [49760]; /OK?/
BRANCH 49762; /FERTIG/
49760: FORMAT 5,1;
WRITE 'P15 SOLLWERT 0.01...-0.20'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/** PEGEL AN ZI (S101) **/
49762: LD 49762;STO REG-5;
IL(15); /600R AN ZI ANSCHALTEN/
IL(1,2,3,4,5,6); /SC-A AN S101/
CALL 5; /SPANNUNG MESSEN/
COMP AR<HI=0.01 LO=-0.20> [49764]; / OK? /
BRANCH 49766;
49764: FORMAT 5,1;
WRITE 'ZI SOLLWERT 0.01...-0.20'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/** PEGEL AN PP10 **/
49766: LD 49766;STO REG-5;
IH(15); /600R AN ZI ABSCHALTEN/
IL(1,2,5) IH(3,4,6); /SC-A AN PP10/
CALL 5; /SPANNUNG MESSEN/
COMP AR<HI=0.01 LO=-0.20> [49768]; / OK? /
BRANCH 49770;
49768: FORMAT 5,1;
WRITE 'PP10 SOLLWERT 0.01...-0.20'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/** PEGEL AN ZIV (S108) **/
49770: LD 49770;STO REG-5;
IH(1,2,3) IL(4,5,6); /SC-A AN S108/
IH(38); /FK NACH 1/
IH(8,10,11) IL(7,9,12); /SC-B AN PP17,ERDE ANLEGEN/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=-57.0 LO=-60.0> [49772]; / OK? /
BRANCH 49773;
49772: FORMAT 7,2;
WRITE 'ZIV SOLLWERT -57.0...-60.0'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP10 **/
49773: LD 49773;STO REG-5;
IL(1,2,5) IH(3,4,6); / SC-A AN PP10 /
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=REG-7 LO=PSV> [49774]; / OK? /
BRANCH 49775;
49774: FORMAT 5,1;
WRITE 'PP10 SOLLWERT 'REG-7'...'PSV; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN ZI (S101) ** /
49775: LD 49775;STO REG-5;
IL(1,2,3,4,5,6); /SC-A AN S101/
CALL 5; /MESSEN/
COMP AR <HI=-57.0 LO=-60.0> [49776]; / OK? /
BRANCH 49785;
49776: FORMAT 5,1;
WRITE 'ZI SOLLWERT -57.0...-60.0'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN AL (S210) ** /
49785: LD 49785;STO REG-5;
IH(1,2,5) IL(3,4,6); / SC-A AN S210/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=-0.4 LO=-1.0> [49787]; / OK? /
BRANCH 49790;
49787: FORMAT 5,1;
WRITE 'AL SOLLWERT -0.4...-1.0'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** PEGEL AN PP3 ** /
49790: LD 49790;STO REG-5;
IH(1,2,3,5) IL(4,6); /SC-A AN PP3/
CALL 5; /SPANNUNG MESSEN/
COMP AR <HI=-0.5 LO=-1.0> [49795]; / OK? /
BRANCH 49800;
49795: FORMAT 5,1;
WRITE 'PP3 SOLLWERT -0.5...-1.0'; /SOLLWERT AUSDRUCK/
CALL 10400; /ISTWERT AUSDRUCK/
/ ** DYNAMISCHE PEGELMESSUNG ALLE PARALLELL ** /
49800: WRITE DEV=TEC'%166** DYNAMISCHE PEGELMESSUNG '
'LAEUFT **^';
LD 49800;STO REG-5; /PRUEFSCHRITT LADEN/
IH(11,12); /SC-B ABSCHALTEN/
IGN LGC(19,45,46,51-56,73-80);
DO 1000;
IH(39,41) /ST1,ZT1/
IL(40,42) /ST2,ZT2/
OH(47,49,82,84) /ST1U,ZT1U,PP23,PP13/
OL(48,50,81,83) /ST2U,ZT2U,SZU,PP18,PP5/
ITT=.5M IST=.2M [49801];
IL(39,41) /ST1,ZT1/
IH(40,42) /ST2,ZT2/
OL(47,49,82,84) /ST1U,ZT1U,PP23,PP13/
OH(48,50,81,83) /ST2U,ZT2U,PP18,PP5/
[49801];
BRANCH 49802;
49801: ESCAPE 49901;
49802: DONE;
BRANCH 49777; /GUT,ABSENKUNG/
/ ** DYNAMISCHE PEGELMESSUNG SELEKTIV ** /
49901: LD 49901;STO REG-5; /PRUEFSCHRITT LADEN/
IGN LGC(#39,47,81);
DO 1000;
IH(39) OH(47) OL(81) [49930]; /ZT1 NACH -60V (ARBEIT)/
IL(39) OL(47) OH(81) [49935]; /ZT1 OFFEN (RUHE)/
DONE;
IGN LGC(#40,48,82);
DO 1000;
IH(40) OH(48) OL(82) [49940]; /ZT2 NACH -60V (ARBEIT)/
IL(40) OL(48) OH(82) [49945]; /ZT2 OFFEN (RUHE)/
DONE;
IGN LGC(#41,49,83);
DO 1000;
IH(41) OH(49) OL(83) [49950]; /ST1 NACH -60V (ARBEIT)/
IL(41) OL(49) OH(83) [49955]; /ST1 OFFEN (RUHE)/
DONE;
IGN LGC(#42,50,84);
DO 1000;
IH(42) OH(50) OL(84) [49960]; /ST2 NACH -60V (ARBEIT)/
IL(42) OL(50) OH(84) [49965]; /ST2 OFFEN (RUHE)/
DONE;
WRITE 'KOMPLEXER PEGELFEHLER:^'
'SELEKTIVES PRUEFEN VON ZT1,ZT2,ST1,ST2 BRINGT KEINEN FEHLER^';
LD 1;STO FAIL; /FAIL INKREMENT/
BRANCH 49780;
/ ** FEHLERAUSWERTUNG ** /
49930: WRITE 'ZT1 NACH ARBEIT FOLGEN ' /EINGANG/
'206 UND-ODER PP18 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49935: WRITE 'ZT1 NACH RUHE FOLGEN ' /EINGANG/
'206 UND-ODER PP18 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49940: WRITE 'ZT2 NACH ARBEIT FOLGEN ' /EINGANG/
'207 UND-ODER PP23 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49945: WRITE 'ZT2 NACH RUHE FOLGEN ' /EINGANG/
'207 UND-ODER PP23 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49950: WRITE 'ST1 NACH ARBEIT FOLGEN ' /EINGANG/
'204 UND-ODER PP5 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49955: WRITE 'ST1 NACH RUHE FOLGEN ' /EINGANG/
'204 UND-ODER PP5 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49960: WRITE 'ST2 NACH ARBEIT FOLGEN ' /EINGANG/
'205 UND-ODER PP13 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49965: WRITE 'ST2 NACH RUHE FOLGEN ' /EINGANG/
'205 UND-ODER PP13 NICHT^'; /AUSGAENGE/
LD 1;STO FAIL; /FAIL INKREMENTIEREN/
ESCAPE 49780; /ABSCHALTEN/
49777: / ** PEGELABSENKUNG ** /
LD 49777;STO REG-5; /PRUESCHRITT LADEN/
IGN LGC(#65,73);
MCOMP LGC IH(65) OH(73) [49778] ; /ABSENKEN UND PRUEFEN/
DELAY 10M;
MCOMP LGC OH(73) [49779]; /NACH 10MS PRUEFEN/
BRANCH 49780;
/ ** FEHLERAUSDRUCKE **/
49778: WRITE '12V AN PP19 SOFORT UNTER -8V ABSINKEND^';
LD 1;STO FAIL;
BRANCH 49780;
49779: WRITE '12V AN PP19 NACH 10MS UNTER -8V ABSINKEND^';
LD 1;STO FAIL;
/ ** ABSCHALTUNG DER PRUEFUNG ** /
49780: IGN LGC(19,45-57,73-84);
IH(66); /DRIVER-SENS AB/
DELAY 20M;
IH(25-36); /ZERO DEV-SC/
DELAY 20M;
49500: $IH(1-12,15,23-36,58,62,64,65,67) /RUHEZUSTAND/
IL(13,14,16-18,37-44,57,59,60,61,63,66,69-72);
DELAY 20M;
/ ** FEHLERANZAHL FESTSTELLEN ** /
COMP FRATIO <HI=0.5> [99999]; /DEBUGSPRUNG/
COMP FAIL <HI=0.5> [70000]; /FAIL ABFRAGEN/
BLOCK;
99999: IH(62); /MOS ERDUNG WEG/
DELAY 20M;
IH(70,71) IL(65,69,72); /HP AUF 60V,100MA/
IH(61); DELAY 20M; /MOS KS WEG/
WRITE DEV=TEC'%166%151** BITMUSTERPRUEFUNG LAEUFT **^';
IL(34); DELAY 20M; /ERDE AN 209/
IL(15,37-44,66); DELAY 20M; /D-S AN/
IL(35); DELAY 50M; /-60V AN/
IGN LGC (57,73-74,78);
$IH(18);
100000: $IL(38,41-44) IH(37,39,40) IST=.05M ITT=.15M;
DELAY 30M;
OL(19,46,49-51,53-55,75-77,80-82)
OH(45,47,48,52,56,79,83,84) [110000];
100001: DO 45;
$IL(41,42,17);
$IH(41,42,17);
DONE;
100046: IL(41,42,17) [110001];
$IH(42,17);
100047: IL(42,17) [110010];
$IH(42,17);
100048: IL(42,17) OH(55) OL(45) [110011];
$IH(42,17);
100049: IL(42,17) [110012];
$IH(41,17);
100050: IL(41,17) OL(55) OH(45) [110013];
$IH(41,17);
100051: IL(41,17) OH(55) OL(45) [110014];
$IH(41,17);
100052: IL(41,17) [110015];
$IH(41,42,17);
100053: DO 697;
IL(41,42,17) OL(55) OH(45) [110016];
$IH(41,42,17);
DONE;
100750: DO 6;
IL(41,42,37,17) OH(77) [110017];
$IH(41,42,17);
DONE;
100756: DO 7;
IL(41,42,17) IH(43) OH(51,75) [110018];
$IH(41,42,17);
DONE;
100763: IL(41,42,17) IH(44) OL(52) OH(76) [110019];
$IH(41,42,17);
100764: DO 7;
DO 21;
IL(41,42,17) [110020];
$IH(41,42,17);
DONE;
DO 21;
IL(41,42,44,17) OH(52) OL(76) [110021];
$IH(41,42,17);
DONE;
DONE;
101058: DO 21;
IL(41,42,17) IH(44) OL(52) OH(76) [110022];
$IH(41,42,17);
DONE;
101079: IL(41,42,44,17) OH(52) OL(76) [110023];
$IH(41,42,17);
101080: DO 2;
IL(41,42,17) OH(54,80) OL(79) [110003];
$IH(41,42,17);
DONE;
101082: DO 18;
IL(41,42,17) [110004];
$IH(41,42,17);
DONE;
101100: DO 21;
IL(41,42,17) IH(44) OL(52) OH(76) [110024];
$IH(41,42,17);
DONE;
DO 21;
IL(41,42,44,17) OH(52) OL(76) [110025];
$IH(41,42,17);
DONE;
101142: DO 9;
IL(41,42,17) [110026];
$IH(41,42,17);
DONE;
101151: DO 2;
IL(41,42,17) OL(54,80) OH(79) [110027];
$IH(41,42,17);
DONE;
101153: IL(41,42,17 ) OH(46) [110028];
$IH(41,42,17);
101154: DO 21;
IL(41,42,43,17) IH(37) OL(51,75,77) [110029];
$IH(41,42,17);
DONE;
101175: IL(41,42,17) OL(46) [110030];
$IH(41,42,17);
101176: DO 8;
IL(41,42,37,17) OH(77) [110031];
$IH(41,42,17);
DONE;
101184: DO 52;
IL(41,42,17) IH(43) OH(51,75) [110032];
$IH(41,42,17);
DONE;
101236: IL(41,42,39,17) OH(81) OL(47) [110033];
$IH(41,42,17);
101237: IL(41,42,17) OH(55) OL(45) [110005];
$IH(41,42,17);
101238: IL(41,42,17) IH(39) OL(81) OH(47) [110034];
$IH(41,42,17);
101239: IL(41,42,17) OL(55) OH(45) [110035];
$IH(41,42,17);
101240: DO 6;
IL(41,42,17) [110036];
$IH(41,42,17);
DONE;
101246: IL(41,42,40,17) OH(82) OL(48) [110037];
$IH(41,42,17);
101247: IL(41,42,17) OH(55) OL(45) [110006];
$IH(41,42,17);
101248: IL(41,42,17) IH(40) OL(82) OH(48) [110038];
$IH(41,42,17);
101249: IL(41,42,17) OL(55) OH(45) [110039];
$IH(41,42,17);
101250: DO 4;
IL(41,42,17) [110040];
$IH(41,42,17);
DONE;
101254: DO 7;
IL(41,42,17) IH(15,37) OL(77) [110041];
$IH(41,42,17);
DONE;
101261: DO 8;
IL(41,42,17) OH(54) OL(79,80) [110042];
$IH(41,42,17);
DONE;
101269: DO 37;
IL(41,42,17) OH(55) OL(45) [110043];
$IH(41,42,17);
DONE;
101306: IGN LGC(#19);
IGN LGC(18,19,57,73,74,78);
BRANCH 60000;
110000: WRITE 'FEHLER IM PRUEFSCHRITT 0000^'
'URSACHEN:^'
'1.MOS PIN 1 UNTERBROCHEN^'
'2.MOS PIN 3 UNTERBROCHEN^'
'3.MOS PIN 8 UNTERBROCHEN^'
'4.MOS PIN 16 UNTERBROCHEN^'
'ODER MOS BAUSTEIN DEFEKT^';
BRANCH 60000;
110001: WRITE 'FEHLER IM PRUEFSCHRITT 0046^'
'URSACHEN:^'
'1.MOS PIN 13 UNTERBROCHEN^'
'2.MOS PIN 14 UNTERBROCHEN^'
'ODER MOS BAUSTEIN DEFEKT^';
LD 1;STO FAIL;
BRANCH 60000;
110002: WRITE 'FEHLER IM PRUEFSCHRITT 0777^'
'URSACHEN:^'
'1.MOS PIN 6 UNTERBROCHEN^'
'ODER MOS BAUSTEIN DEFEKT^';
LD 1;STO FAIL;
BRANCH 60000;
110003: WRITE 'FEHLER IM PRUEFSCHRITT 1080^'
'URSACHEN:^'
'1.MOS PIN 4 UNTERBROCHEN^'
'2.MOS PIN 5 UNTERBROCHEN^'
'3.MOS PIN 7 UNTERBROCHEN^'
'4.MOS PIN 9 UNTERBROCHEN^'
'ODER MOS BAUSTEIN DEFEKT^';
LD 1;STO FAIL;
BRANCH 60000;
110004: WRITE 'FEHLER IM PRUEFSCHRITT 1088^'
'URSACHEN:^'
'1.MOS PIN 10 UNTERBROCHEN^'
'ODER MOS BAUSTEIN DEFEKT^';
LD 1;STO FAIL;
BRANCH 60000;
110005: WRITE 'FEHLER IM PRUEFSCHRITT 1237^'
'URSACHEN:^'
'1.MOS PIN 11 UNTERBROCHEN^'
'ODER MOS BAUSTEIN DEFEKT^';
LD 1;STO FAIL;
BRANCH 60000;
110006: WRITE 'FEHLER IM PRUEFSCHRITT 1247^'
'URSACHEN:^'
'1.MOS PIN 12 UNTERBROCHEN^'
'ODER MOS BAUSTEIN DEFEKT^';
LD 1;STO FAIL;
BRANCH 60000;
110007: WRITE 'SPANNUNGSEINBRUCH AN OPC^';
LD 1;STO FAIL;
BRANCH 60000;
110010: LD 0047;BRANCH 110100;
110011: LD 0048;BRANCH 110100;
110012: LD 0049;BRANCH 110100;
110013: LD 0050;BRANCH 110100;
110014: LD 0051;BRANCH 110100;
110015: LD 0052;BRANCH 110100;
110016: LD 0053;BRANCH 110100;
110017: LD 0750;BRANCH 110100;
110018: LD 0762;BRANCH 110100;
110019: LD 0763;BRANCH 110100;
110020: LD 0764;BRANCH 110100;
110021: LD 0764;BRANCH 110100;
110022: LD 1058;BRANCH 110100;
110023: LD 1079;BRANCH 110100;
110024: LD 1100;BRANCH 110100;
110025: LD 1100;BRANCH 110100;
110026: LD 1142;BRANCH 110100;
110027: LD 1151;BRANCH 110100;
110028: LD 1153;BRANCH 110100;
110029: LD 1154;BRANCH 110100;
110030: LD 1175;BRANCH 110100;
110031: LD 1176;BRANCH 110100;
110032: LD 1184;BRANCH 110100;
110033: LD 1236;BRANCH 110100;
110034: LD 1238;BRANCH 110100;
110035: LD 1239;BRANCH 110100;
110036: LD 1240;BRANCH 110100;
110037: LD 1246;BRANCH 110100;
110038: LD 1248;BRANCH 110100;
110039: LD 1249;BRANCH 110100;
110040: LD 1250;BRANCH 110100;
110041: LD 1254;BRANCH 110100;
110042: LD 1261;BRANCH 110100;
110043: LD 1269;BRANCH 110100;
110100: FORMAT 6,0;
WRITE 'FEHLER IM PRUEFSCHRITT ( ODER SCHLEIFE )' AR'^'
'MOS BAUSTEIN DEFEKT^';
/ ** ABSCHALTUNG DER PRUEFUNG ** /
60000: IGN LGC(19,45-57,68,73-84);
IH(66); /DRIVER-SENS AB/
DELAY 20M;
IH(25-36); /ZERO DEV-SC/
DELAY 20M;
60500: $IH(1-12,15,23-36,58,62,64,65,67) /RUHEZUSTAND/
IL(13,14,16-18,37-44,57,59,60,61,63,66,69-72);
DELAY 20M;
/ ** FEHLERANZAHL FESTSTELLEN ** /
COMP FAIL <LO=0.5> [90000]; /FAIL ABFRAGEN/
/********************* ENDE DER PRUEFUNG ******************************/
/ ** ABBRUCH ** /
70000: IGN LGC(#);
IL(61,62) IST=10M; /MOS-ERDUNG ANSCHALTEN/
DELAY 20M;
IL(64); /LAMPE PRUEFUNG AUS/
IH(60); /LAMPE SCHLECHT/
IL(67); /SYSGND WEG/
WRITE DEV=TEC'PRUEFUNG ABGEBROCHEN^'; /AUSDRUCK/
WRITE DEV=TEC'%173PRUEFLING ENTFERNEN%174';
DELAY 20M;
IL(60); /LAMPE SCHLECHT WEG/
IH(63); /50M AUSWURF/
DELAY 50M;
IL(63);
IGN LGC(19,45-57,73-84); /+/
70010: MCOMP LGC OL(68) [70010];/+/ /PRUEBE WEG?/
DELAY 20M; /+/
MCOMP LGC OL(68) [70010];/+/ /IMMER NOCH?/
IGN LGC(#);
LD 0;STO FAIL; /FAIL RESET/
LD 0;STO FREQ; /FREQ RESET/
LD 0;STO TIME; /TIME RESET/
DELAY 100M;
BRANCH 1200; /IN WARTESTELLUNG/
IH(67,62,64); /DUMMY PIN/
/ ** SUBROUTINE FAILREGISTER INCREMENTIEREN ** /
80000: LD 1;
ADD FAIL;
STO FAIL;
RETURN;
/ ** GUTFALL ** /
90000: IGN LGC(#);
IL(61,62) IST=10M; /MOS-ERDUNG ANSCHALTEN/
DELAY 20M;
IL(64); /LAMPE PRUEFUNG AUS/
IH(59); /LAMPE GUT/
IL(67); /SYSGND WEG/
WRITE DEV=TEC'%166%151%173PRUEFLING ENTFERNEN%174';
DELAY 20M;
IL(59); /LAMPE GUT WEG/
IH(63); /50M AUSWURF/
DELAY 50M;
IL(63);
IGN LGC(19,45-57,73-84); /+/
90010: MCOMP LGC OL(68) [90010];/+/ /PRUEBE WEG?/
DELAY 20M; /+/
MCOMP LGC OL(68) [90010]; /+/ /IMMER NOCH?/
IGN LGC(#);
DELAY 100M;
BRANCH 1200; /IN WARTESTELLUNG/
END;