projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C EINGABE DER LED ZUORDNUNG ZUR LAUTSPRECHER POSITION\r |
| 2 | C FUER BIS ZU 100 UMDREHUNGEN.\r | |
| 3 | C UNIT 9 EINGABE: FILE DES EICHEN PROGRAMMS\r | |
| 4 | C UNIT 8 EIN/AUS: EINGABE FALLS NUR WERTE VERAENDERT WERDEN SOLLEN.\r | |
| 5 | C AUSGABE FUER LED PROGRAMM\r | |
| 6 | C\r | |
| 7 | INTEGER NCOND,REIHE(100,8,2),UMD,NO,PKT(8),N,LED,DELTA,MAXUMD\r | |
| 8 | * ,KENUNG(5,2)\r | |
| 9 | * ,TTO,TTI,LPT\r | |
| 10 | DATA TTO,TTI,LPT /4,4,3/, PKT/1,2,3,4,5,4,3,2/\r | |
| 11 | C\r | |
| 12 | DO 46 UMD=1,100\r | |
| 13 | DO 46 N=1,8\r | |
| 14 | REIHE(UMD,N,1)=1H \r | |
| 15 | 46 REIHE(UMD,N,2)=7\r | |
| 16 | 40 REWIND 8\r | |
| 17 | WRITE (TTO,4)\r | |
| 18 | READ (TTI,3) I\r | |
| 19 | IF (I.NE.1HJ) GOTO 45\r | |
| 20 | READ(8,7)(((KENUNG(PKT(N),I),I=1,2)\r | |
| 21 | * ,(REIHE(UMD,N,I),I=1,2),N=1,8),\r | |
| 22 | * UMD=1,100),MAXUMD\r | |
| 23 | 45 CONTINUE\r | |
| 24 | C\r | |
| 25 | REWIND 9\r | |
| 26 | READ (9,91) ((KENUNG(I,J),J=1,2),I=1,5)\r | |
| 27 | C\r | |
| 28 | DO 10 UMD=1,100\r | |
| 29 | WRITE (TTO,1) UMD\r | |
| 30 | DO 10 N=1,8\r | |
| 31 | WRITE (TTO,2) KENUNG(PKT(N),1),(REIHE(UMD,N,I),I=1,2)\r | |
| 32 | READ (TTI,3) LED,DELTA\r | |
| 33 | REIHE(UMD,N,1)=NCOND(LED.EQ.1H ,REIHE(UMD,N,1),LED)\r | |
| 34 | REIHE(UMD,N,2)=NCOND(DELTA.LT.0,0,DELTA,DELTA,REIHE(UMD,N,2))\r | |
| 35 | IF (LED.EQ.1H9)GOTO20\r | |
| 36 | 10 CONTINUE\r | |
| 37 | C\r | |
| 38 | 20 MAXUMD=MAX0(UMD-1,1)\r | |
| 39 | DO 30 UMD=1,MAXUMD\r | |
| 40 | WRITE (LPT,1) UMD\r | |
| 41 | 30 WRITE(LPT,5)((KENUNG(PKT(N),I),I=1,2)\r | |
| 42 | * ,(REIHE(UMD,N,I),I=1,2),N=1,8)\r | |
| 43 | WRITE (TTO,6)\r | |
| 44 | READ(TTI,3) I\r | |
| 45 | IF (I.EQ.1HN) GOTO 40\r | |
| 46 | WRITE(8,7)(((KENUNG(PKT(N),I),I=1,2)\r | |
| 47 | * ,(REIHE(UMD,N,I),I=1,2),N=1,8),\r | |
| 48 | * UMD=1,100),MAXUMD\r | |
| 49 | ENDFILE 8\r | |
| 50 | STOP\r | |
| 51 | 91 FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6)\r | |
| 52 | 1 FORMAT (1X,6(2H* ),I3,'. UMDREHUNG')\r | |
| 53 | 2 FORMAT (' FUER ',A6,': LED,DELTA (A1,I4)? (',A1,I4,')',$)\r | |
| 54 | 3 FORMAT (A1,I4)\r | |
| 55 | 4 FORMAT (' ALTE WERTE EINLESEN? (J/ )',$)\r | |
| 56 | 5 FORMAT (' KENNUNG ',A6,' WERT',I6,' LED ',A1,' DELTA',I4)\r | |
| 57 | 6 FORMAT (' WERTE RICHTIG? ( /N)',$)\r | |
| 58 | 7 FORMAT (100(1X,8(A6,I6,A1,I4)/),I4)\r | |
| 59 | END\r | |
| 60 | \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\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 |