A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / sacdoc.ft

C\r
C  FOLGENDE SUCHSCHRITTE\r\r
C1.	DO 20 I=STARTW,ENDW\r
C	BESTIMME SACCADEN ANFANGSZEITPUNKT UND DIE ART DER RASCHEN PHASE\r
C	IF DFIR(I) THEN TIME1:=I ; \ BEGINN DER RASCHEN PHASE \\r
C	\ RICHTUNG DER RASCHEN PHASE := IF FIR(I) < 0 THEN AUF PHASE ELSE AB PHASE \\r
C	ELSE DFIR(I) NICHT GEFUNDEN FEHLER #1 FI \r
C\r
C2.	DO 33 I=TIME1,ENDW\r
C	SOLANGE DFIR(I) BESTIMME MAXIMUM VON FIR(I)  : AMP1:=MAX(ABS(FIR)) ;\r
C	TIME2 := I AN DER STELLE AMP1 \ KORREKTUR DER ANFANGSZEIT SACBEG: \\r
C	\ AN DER STELLE DES MAXIMUMS NEHME DEN ANFANG DER R.P. AN \\r
C	IF I=ENDW FEHLER # 2 \ DA KEIN SACCADENENDE GEFUNDEN\\r
C	ELSE TIME3:= I FI\r
C\r
C3.	DO 50 I=TIME3,TIME3+10\r
C	\ SUCHE IN DEN NAECHSTEN 10 MESSWERTEN DANN DFIR(I) \\r
C	IF I=TIME3+10 THEN TIME4:=1 ; FEHLER # 3 ELSE\r
C	TIME4:=I FI\r
C\r
C4.	DO 60 I=TIME4,ENDW\r
C	\ SUCHE STELLE DES MAXIMUMS VON FIR(I) UND NEHME DORT ENDE DER R.P. AN \\r
C	TIME5:=SACEND:=I \ AND DER STELLE DES MAXIMUMS \\r
C\r
C5.	AUSGABE AUF DRUCKER:\r
C	SACBEG, SACEND-SACBEG, -Y(SACBEG)+Y(SACEND),CH2(SACBEG)\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0