/ ZS553B.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 [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 [1219]; /DEBUG JUMP/ COMP REG-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 [1561]; /10 LEER?NEIN,ZU 11/ STO REG-10; /JA,SPEICHERN/ RETURN; /NEUER ZYKLUS/ 1561: COMP REG-11 [1562]; /11 LEER?NEIN ZU 12/ STO REG-11; /JA,SPEICHERN/ RETURN; /NEUER ZYKLUS/ 1562: COMP REG-12 [1563]; /12 LEER?NEIN ZU 13/ STO REG-12; /JA,SPEICHERN/ RETURN; /NEUER ZYKLUS/ 1563: COMP REG-13 [1564]; /13 LEER?NEIN,ZU 14/ STO REG-13; /JA,SPEICHERN/ RETURN; /NEUER ZYKLUS/ 1564: COMP REG-14 [1565]; /14 LEER?NEIN,ZU 15/ STO REG-14; /JA,SPEICHERN/ RETURN; /NEUER ZYKLUS/ 1565: COMP REG-15 [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 [9500]; /FEHLER DA?/ COMP REG-5 [4550]; /EINER?JA,JUMP INT/ COMP REG-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 [9000]; /IN REG11?NEIN,ENDE/ LD REG-11; STO REG-4; CALL 5000; WRITE '^'; 2040: COMP REG-12 [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 [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 [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 [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 [5005]; /FESTWERT=INDEX?/ CALL 6000; /INCREMENT U. DIFF/ BRANCH 5010; 5005: WRITE'S1O1'; /PIN GEFUNDEN/ RETURN; 5010: COMP AR [5015]; /BINAER 1/ CALL 6000; BRANCH 5020; 5015: WRITE'S1O2'; RETURN; 5020: COMP AR [5025]; /BINAER 2/ CALL 6000; BRANCH 5030; 5025: WRITE'S1O3'; RETURN; 5030: COMP AR [5035]; /BINAER 3/ CALL 6000; BRANCH 5040; 5035: WRITE'S1O4'; RETURN; 5040: COMP AR [5045]; /BINAER 4/ CALL 6000; BRANCH 5050; 5045: WRITE'S1O5'; RETURN; 5050: COMP AR [5055]; /BINAER 5/ CALL 6000; BRANCH 5060; 5055: WRITE'S1O6'; RETURN; 5060: COMP AR [5065]; /BINAER 6/ CALL 6000; BRANCH 5070; 5065: WRITE'S1O7'; RETURN; 5070: COMP AR [5075]; /BINAER 7/ CALL 6000; BRANCH 5080; 5075: WRITE'S1O8'; RETURN; 5080: COMP AR [5085]; /BINAER 8/ CALL 6000; BRANCH 5090; 5085: WRITE'S1O9'; RETURN; 5090: COMP AR [5095]; /BINAER 9/ CALL 6000; BRANCH 5100; 5095: WRITE'S110'; RETURN; 5100: COMP AR [5105]; /BINAER 10/ CALL 6000; BRANCH 5110; 5105: WRITE'S111'; RETURN; 5110: COMP AR [5115]; /BINAER 11/ CALL 6000; BRANCH 5120; 5115: WRITE'S201'; RETURN; 5120: COMP AR [5125]; /BINAER 12/ CALL 6000; BRANCH 5130; 5125: WRITE'S202&S208'; RETURN; 5130: COMP AR [5135]; /BINAER 13/ CALL 6000; BRANCH 5140; 5135: WRITE'S203&PP1'; RETURN; 5140: COMP AR [5145]; /BINAER 14/ CALL 6000; BRANCH 5150; 5145: WRITE'S204'; RETURN; 5150: COMP AR [5155]; /BINAER 15/ CALL 6000; BRANCH 5160; 5155: WRITE'S205'; RETURN; 5160: COMP AR [5165]; /BINAER 16/ CALL 6000; BRANCH 5170; 5165: WRITE'S206'; RETURN; 5170: COMP AR [5175]; /BINAER 17/ CALL 6000; BRANCH 5180; 5175: WRITE'S207'; RETURN; 5180: COMP AR [5185]; /BINAER 18/ CALL 6000; BRANCH 5190; 5185: WRITE'S209'; RETURN; 5190: COMP AR [5195]; /BINAER 19/ CALL 6000; BRANCH 5200; 5195: WRITE'S210'; RETURN; 5200: COMP AR [5205]; /BINAER 20/ CALL 6000; BRANCH 5210; 5205: WRITE'S211'; RETURN; 5210: COMP AR [5215]; /BINAER 21/ CALL 6000; BRANCH 5220; 5215: WRITE'PP12'; RETURN; 5220: COMP AR [5225]; /BINAER 22/ CALL 6000; BRANCH 5230; 5225: WRITE'PP19'; RETURN; 5230: COMP AR [5235]; /BINAER 23/ CALL 6000; BRANCH 5240; 5235: WRITE'PP3'; RETURN; 5240: COMP AR [5245]; /BINAER 24/ CALL 6000; BRANCH 5250; 5245: WRITE'PP4'; RETURN; 5250: COMP AR [5255]; /BINAER 25/ CALL 6000; BRANCH 5260; 5255: WRITE'PP20'; RETURN; 5260: COMP AR [5265]; /BINAER 26/ CALL 6000; BRANCH 5270; 5265: WRITE'PP17'; RETURN; 5270: COMP AR [5275]; /BINAER 27/ CALL 6000; BRANCH 5280; 5275: WRITE'PP9'; RETURN; 5280: COMP AR [5285]; /BINAER 28/ CALL 6000; BRANCH 5290; 5285: WRITE'PP22'; RETURN; 5290: COMP AR [5295]; /BINAER 29/ CALL 6000; BRANCH 5300; 5295: WRITE'PP27'; RETURN; 5300: COMP AR [5305]; /BINAER 30/ CALL 6000; BRANCH 5310; 5305: WRITE'PP26'; RETURN; 5310: COMP AR [5315]; /BINAER 31/ CALL 6000; BRANCH 5320; 5315: WRITE'PP8'; RETURN; 5320: COMP AR [5325]; /BINAER 32/ CALL 6000; BRANCH 5330; 5325: WRITE'PP2'; RETURN; 5330: COMP AR [5335]; /BINAER 33/ CALL 6000; BRANCH 5340; 5335: WRITE'PP25'; RETURN; 5340: COMP AR [5345]; /BINAER 34/ CALL 6000; BRANCH 5350; 5345: WRITE'PP7'; RETURN; 5350: COMP AR [5355]; /BINAER 35/ CALL 6000; BRANCH 5360; 5355: WRITE'PP14'; RETURN; 5360: COMP AR [5365]; /BINAER 36/ CALL 6000; BRANCH 5370; 5365: WRITE'PP28'; RETURN; 5370: COMP AR [5375]; /BINAER 37/ CALL 6000; BRANCH 5380; 5375: WRITE'PP21'; RETURN; 5380: COMP AR [5385]; /BINAER 38/ CALL 6000; BRANCH 5390; 5385: WRITE'PP24'; RETURN; 5390: COMP AR [5395]; /BINAER 39/ CALL 6000; BRANCH 5400; 5395: WRITE'PP18'; RETURN; 5400: COMP AR [5405]; /BINAER 40/ CALL 6000; BRANCH 5410; 5405: WRITE'PP23'; RETURN; 5410: COMP AR [5415]; /BINAER 41/ CALL 6000; BRANCH 5420; 5415: WRITE'PP5'; RETURN; 5420: COMP AR [5425]; /BINAER 42/ CALL 6000; BRANCH 5430; 5425: WRITE'PP13'; RETURN; 5430: COMP AR [5435]; /BINAER 43/ CALL 6000; BRANCH 5440; 5435: WRITE'PP6'; RETURN; 5440: COMP AR [5445]; /BINAER 44/ CALL 6000; BRANCH 5450; 5445: WRITE'PP10'; RETURN; 5450: COMP AR [5455]; /BINAER 45/ CALL 6000; BRANCH 5460; 5455: WRITE'PP11'; RETURN; 5460: COMP AR [5465]; /BINAER 46/ CALL 6000; BRANCH 5470; 5465: WRITE'PP15'; RETURN; 5470: COMP AR [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 [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 [10000]; /DEBUGSPRUNG/ COMP REG-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 [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 [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/ / ** KONDENSATOR C5 ** / 11000: LD 11000;STO REG-5; /PRUEFSCHRITT LADEN/ IL(23,24); /C5 ANSCHALTUNG/ IH(61); /MOS-KS WEG/ FORMAT 5,2; DELAY 500M; /AUFLADEZEIT/ EXEC 'DVM'('R3H1'); /MESSEN/ COMP AR [11050]; /GUT SCHLECHT/ BRANCH 11080; 11050: WRITE 'C5 SOLLWERT -6.00...-8.00'; /SOLLWERT AUSDRUCK/ 11070: CALL 10400; /ISTWERT AUSDRUCK/ 11080: IL(61); /MOS-KS ANSCHALTEN/ DELAY 20M; /209 AN SYS GND/ IH(23,24); /ABSCHALTEN/ IH(7-12,26); /ZERO SC-B,DMM/ / ** WIDERSTAND R9 ** / 11100: LD 11100;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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [18000]; /DEBUGSPRUNG/ COMP FAIL [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 [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 [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 [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 [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 [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 [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 [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 [25200]; /GUT-SCHLECHT?/ BRANCH 25300; /GUT,ABSCHALTEN/ 25200: WRITE 'R7 SOLLWERT 0.26...0.28'; /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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [70000] ; /VON 17980?/ BLOCK; /****************** ZEIT- UND PEGELMESSUNG ****************************/ / ** INITIALISIERUNG ** / WRITE DEV=TEC'%166%151** ZEIT- UND PEGELMESSUNG ' 'LAEUFT **^'; 46999: 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; /*** AND. 7-FEB-77 ***/ EXEC 'DVM'('R4'); /MESSEN/ STO PSV; /SPEICHERN/ COMP AR [47100]; /SPANNUNG OK?/ FORMAT 7,2; COMP USOPT1 [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 30M; /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 40MS'; 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 [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 [49250]; /OK?/ BRANCH 49300; /FERTIG/ 49250: WRITE 'ZSP SOLLWERT -15.5...-12.5'; /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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [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 [99999]; /DEBUGSPRUNG/ COMP FAIL [70000]; 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 **^'; 49501: 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 696; IL(41,42,17) OL(55) OH(45) [110016]; $IH(41,42,17); DONE; 100749: IL(37,41,42,17) OL(55) OH(45) [110044]; $IH(41,42,17); 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(37,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; 110044: LD 0749;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 [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;