projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E L A B . F T \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C\r | |
| 4 | SUBROUTINE LABPLT (XC,YC,TLAST)\r | |
| 5 | REAL XC,YC @ START OF THE LABEL \r | |
| 6 | INTEGER TLAST @ POINT WHEN PLOT ENDS\r | |
| 7 | INCLUDE HAECSZ.FI\r | |
| 8 | C\r | |
| 9 | INCLUDE HAEBUF.FI\r | |
| 10 | INCLUDE HAEGSA.FI\r | |
| 11 | C \r | |
| 12 | \f INTEGER TOASCI\r | |
| 13 | EXTERNAL TOASCI\r | |
| 14 | C\r | |
| 15 | IF (SETNUM.GT.0)\r | |
| 16 | * CALL NUMBER (XC,YC,YZ,SETNUM,0,0) @ PRINT THE NUMBER OF THE DATA SET FROM UNIT 6 OR 7\r | |
| 17 | CALL NUMBER (999.,999.,YZ,CHANEL,0,-1) @ AND INSERT THE NUMBER OF THE DATA CHANNEL PLOTTED\r | |
| 18 | CALL SYMBOL (999.,999.,YZ,'*',0,1)\r | |
| 19 | CALL NUMBER (999.,999.,YZ,BEGIN/60,0,-1)\r | |
| 20 | CALL SYMBOL (999.,999.,YZ,':',0,1)\r | |
| 21 | CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(BEGIN,60)),0,2)\r | |
| 22 | CALL SYMBOL (999.,999.,YZ,'-',0,1)\r | |
| 23 | CALL NUMBER (999.,999.,YZ,TLAST/60,0,-1)\r | |
| 24 | CALL SYMBOL (999.,999.,YZ,':',0,1)\r | |
| 25 | CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(TLAST,60)),0,2)\r | |
| 26 | CALL SYMBOL (999.,999.,YZ,' ',0,1)\r | |
| 27 | CALL NUMBER (999.,999.,YZ,SPAN,0,-1)\r | |
| 28 | CALL SYMBOL (999.,999.,YZ,'-',0,1)\r | |
| 29 | CALL NUMBER (999.,999.,YZ,OVRLAP,0,-1)\r | |
| 30 | CALL SYMBOL (999.,999.,YZ,'$',0,1)\r | |
| 31 | CALL NUMBER (999.,999.,YZ,FILTER,0,-1)\r | |
| 32 | RETURN\r | |
| 33 | END\r | |
| 34 | \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 |