projects / simh.git / blame
| Commit | Line | Data |
|---|---|---|
| 196ba1fc PH |
1 | #include <stdio.h>\r |
| 2 | \r | |
| 3 | #define ERROR 00404\r | |
| 4 | #include "pdp11_cr_dat.h"\r | |
| 5 | \r | |
| 6 | static int colStart = 1; /* starting column */\r | |
| 7 | static int colEnd = 80; /* ending column */\r | |
| 8 | \r | |
| 9 | main ()\r | |
| 10 | {\r | |
| 11 | int col, c;\r | |
| 12 | \r | |
| 13 | while (1) {\r | |
| 14 | for (col = colStart; col <= colEnd; ) {\r | |
| 15 | switch (c = fgetc (stdin)) {\r | |
| 16 | case EOF:\r | |
| 17 | /* fall through */\r | |
| 18 | case '\n':\r | |
| 19 | while (col <= colEnd) {\r | |
| 20 | fputc (o29_code[' '] & 077, stdout);\r | |
| 21 | fputc ((o29_code[' '] >> 6) & 077, stdout);\r | |
| 22 | col++;\r | |
| 23 | }\r | |
| 24 | break;\r | |
| 25 | case '\t':\r | |
| 26 | do {\r | |
| 27 | fputc (o29_code[' '] & 077, stdout);\r | |
| 28 | fputc ((o29_code[' '] >> 6) & 077, stdout);\r | |
| 29 | col++;\r | |
| 30 | } while (((col & 07) != 1) && (col <= colEnd));\r | |
| 31 | break;\r | |
| 32 | default:\r | |
| 33 | fputc (o29_code[c] & 077, stdout);\r | |
| 34 | fputc ((o29_code[c] >> 6) & 077, stdout);\r | |
| 35 | col++;\r | |
| 36 | break;\r | |
| 37 | }\r | |
| 38 | }\r | |
| 39 | /* flush long lines, or flag over-length card */\r | |
| 40 | if (c != '\n' && c != EOF) {\r | |
| 41 | printf ("overlength line\n");\r | |
| 42 | do c = fgetc (stdin);\r | |
| 43 | while ((c != EOF) && (c != '\n'));\r | |
| 44 | }\r | |
| 45 | if (c == EOF)\r | |
| 46 | break;\r | |
| 47 | }\r | |
| 48 | exit (1);\r | |
| 49 | }\r |