home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hp3000 / hp3000.dif < prev    next >
Text File  |  2020-01-01  |  17KB  |  432 lines
  1. *** /w/kermit/d/hp3000.c    Thu Jul  1 10:21:04 1993
  2. --- hp3000.c    Sat Sep  3 14:53:14 1994
  3. ***************
  4. *** 23,29 ****
  5.   #pragma LIST OFF
  6.   #endif
  7.    
  8. ! #define    VERS   "GMI'S HP 3000 C KERMIT.  VERSION:  05 FEB 93."
  9.   #pragma    VERSIONID  VERS
  10.    
  11.   /* Suggested compile options:   INFO="+L -Aa -C"    */
  12. --- 23,29 ----
  13.   #pragma LIST OFF
  14.   #endif
  15.    
  16. ! #define    VERS   "GMI'S HP 3000 C KERMIT.  VERSION:  12 JULY 1994"
  17.   #pragma    VERSIONID  VERS
  18.    
  19.   /* Suggested compile options:   INFO="+L -Aa -C"    */
  20. ***************
  21. *** 81,86 ****
  22. --- 81,99 ----
  23.   /*                   Minneapolis, MN 55440                         */
  24.   /*                   (612) 540-7703                                */
  25.   /*                                                                 */
  26. + /*    * * * * * * * * * * * * * * * * * * * * * * * * * * * * *    */
  27. + /*                                                                 */
  28. + /*        I have left General Mills, and will no longer be able    */
  29. + /*        to maintain the HP3000 Kermits unless, by chance or good */
  30. + /*        fortune, I wind up in another HP3000 shop.  I will be    */
  31. + /*        available to answer questions on a call-at-your-own risk */
  32. + /*        basis.  My home phone is (612) 559-3764.                 */
  33. + /*                                        Tony Appelget            */
  34. + /*                                        13 July 1994             */
  35. + /*                                                                 */
  36. + /*    * * * * * * * * * * * * * * * * * * * * * * * * * * * * *    */
  37. + /*                                                                 */
  38. + /*                                                                 */
  39.   /* *************************************************************** */
  40.   /*  Originally written in SPL and reworked considerably in that    */
  41.   /*  language.  Translated to C.  This was a rooky's first effort   */
  42. ***************
  43. *** 1837,1843 ****
  44.                                 else
  45.                            begin
  46.                                 E_ST "SFILE - BUFILL error" E_EN;
  47. !                               SFILESTATUS = 'A';
  48.                            end;
  49.                       end;
  50.                  end
  51. --- 1850,1857 ----
  52.                                 else
  53.                            begin
  54.                                 E_ST "SFILE - BUFILL error" E_EN;
  55. !                               N = NPNO(N);
  56. !                               SFILESTATUS = 'Z';
  57.                            end;
  58.                       end;
  59.                  end
  60. ***************
  61. *** 3802,3808 ****
  62.    
  63.                case SENDV_1:
  64.                  begin
  65. !                     M_ST "                 { PAUSE number   }" M_EN;
  66.                       M_ST "                 {                }" M_EN;
  67.                       M_ST "Syntax: SET SEND {       { ON   } }" M_EN;
  68.                       M_ST "                 { BINARY{ OFF  } }" M_EN;
  69. --- 3816,3822 ----
  70.    
  71.                case SENDV_1:
  72.                  begin
  73. !                     M_ST "                 { PAUSE 1/10 secs}" M_EN;
  74.                       M_ST "                 {                }" M_EN;
  75.                       M_ST "Syntax: SET SEND {       { ON   } }" M_EN;
  76.                       M_ST "                 { BINARY{ OFF  } }" M_EN;
  77. ***************
  78. *** 4300,4306 ****
  79.                        "wise n is assumed to be decimal.  Default value"
  80.                       M_EN;
  81.                       M_ST
  82. !                      "for SOH is 01."
  83.                       M_EN;
  84.                       break;
  85.                  end;
  86. --- 4314,4320 ----
  87.                        "wise n is assumed to be decimal.  Default value"
  88.                       M_EN;
  89.                       M_ST
  90. !                      "for SOH is 1."
  91.                       M_EN;
  92.                       break;
  93.                  end;
  94. *** /w/kermit/d/hp3000.spl    Mon Oct 21 18:54:46 1991
  95. --- hp3000.spl    Sat Sep  3 14:53:07 1994
  96. ***************
  97. *** 1,13 ****
  98. ! $PAGE  "599 HP P599E73O.P065.A538 SPL  SOURCE 021591 021591TA"
  99.   $CONTROL MAIN=KERMIT, NOLIST
  100.   $TITLE "KERMIT"
  101.   BEGIN
  102.    
  103.   define    VERS = ("HP 3000 KERMIT   ",
  104. !                   "(07/17/91) ",
  105. !                   "(Modified for General Mills Inc.)",
  106.                     %(16)0D, %(16)0A,
  107. !                   "Works best with PC Kermit V2.31",
  108.                     %(16)0D, %(16)0A,
  109.                     "You can now use PARM= on RUN stmt ",
  110.                     "to specify TAKE file.")#;
  111. --- 1,12 ----
  112. ! $PAGE  
  113.   $CONTROL MAIN=KERMIT, NOLIST
  114.   $TITLE "KERMIT"
  115.   BEGIN
  116.    
  117.   define    VERS = ("HP 3000 KERMIT   ",
  118. !                   "VERSION: 12 JULY 1994",
  119.                     %(16)0D, %(16)0A,
  120. !                   "Works best with PC Kermit V2.31 or newer.",
  121.                     %(16)0D, %(16)0A,
  122.                     "You can now use PARM= on RUN stmt ",
  123.                     "to specify TAKE file.")#;
  124. ***************
  125. *** 27,32 ****
  126. --- 26,42 ----
  127.   <<                   Minneapolis, MN 55440                         >>
  128.   <<                   (612) 540-7703                                >>
  129.   <<                                                                 >>
  130. + <<    * * * * * * * * * * * * * * * * * * * * * * * * * * * * *    >>
  131. + <<                                                                 >>
  132. + <<        I have left General Mills, and will no longer be able    >>
  133. + <<        to maintain the HP3000 Kermits unless, by chance or good >>
  134. + <<        fortune, I wind up in another HP3000 shop.  I will be    >>
  135. + <<        available to answer questions on a call-at-your-own risk >>
  136. + <<        basis.  My home phone is (612) 559-3764.                 >>
  137. + <<                                        Tony Appelget            >>
  138. + <<                                        13 July 1994             >>
  139. + <<                                                                 >>
  140. + <<    * * * * * * * * * * * * * * * * * * * * * * * * * * * * *    >>
  141.   <<                                                                 >>
  142.   <<        Added HELP function.                                     >>
  143.   <<                                                                 >>
  144. ***************
  145. *** 315,320 ****
  146. --- 325,337 ----
  147.   <<     statement to after it so that termtype 18, if used, does    >>
  148.   <<     echo.                                                       >>
  149.   <<                                                                 >>
  150. + << UNSCHEDULED FIX          TONY APPELGET             FEB 1992     >>
  151. + <<                                                                 >>
  152. + <<     SET RECEIVE FIXREC ? (help) did not allow subsequent setting>>
  153. + <<     of ON or OFF.  I uncovered this problem while working on the>>
  154. + <<     C translation and suspect it has been in place for 7 years. >>
  155. + <<     Fixed it both here and in the C translation.                >>
  156. + <<                                                                 >>
  157.    
  158.   equate    DBUF'WORDSIZE = 1024,
  159.             DBUF'BYTESIZE = DBUF'WORDSIZE*2,
  160. ***************
  161. *** 510,516 ****
  162.                  TSPEED := 0,             << Line Speed (CPS)       >>
  163.                  LDEV'LINE := 0;          << Line LDEV              >>
  164.    
  165. ! byte           SOH          := %2,      << Begin-packet character >>
  166.                  MY'BLK'CK    := "3",
  167.                  YOUR'BLK'CK  := "3";
  168.    
  169. --- 527,533 ----
  170.                  TSPEED := 0,             << Line Speed (CPS)       >>
  171.                  LDEV'LINE := 0;          << Line LDEV              >>
  172.    
  173. ! byte           SOH          := %1,      << Begin-packet character >>
  174.                  MY'BLK'CK    := "3",
  175.                  YOUR'BLK'CK  := "3";
  176.    
  177. ***************
  178. *** 650,656 ****
  179.                       FWRITE,
  180.                       FCONTROL,
  181.                       FGETINFO,
  182. !                     PRINT, FCHECK,  << For debugging only >>
  183.                       PRINTFILEINFO, PRINT'FILE'INFO, << ditto >>
  184.                       FPOINT,
  185.                       GETJCW,
  186. --- 667,673 ----
  187.                       FWRITE,
  188.                       FCONTROL,
  189.                       FGETINFO,
  190. !                     PRINT, FCHECK, FERRMSG, << For debugging only >>
  191.                       PRINTFILEINFO, PRINT'FILE'INFO, << ditto >>
  192.                       FPOINT,
  193.                       GETJCW,
  194. ***************
  195. *** 1083,1099 ****
  196.        move LBUF(1) := LBUF(0),(LBUF'BYTESIZE -1);
  197.    
  198.        FCONTROL(LNUM,04,MY'TO);  << Set timeout interval >>
  199. -      IF <> THEN
  200. -           IF DEBUG'MODE<>0 AND LOGNUM<>0 THEN
  201. -           BEGIN
  202. -                FCHECK(LNUM, R'ERROR);
  203. -                MOVE PBUF:="FCONTROL SET TIMEOUT ERROR ", 2;
  204. -                PLEN:=TOS-@PBUF;
  205. -                PLEN:=PLEN+ASCII(R'ERROR, 10, PBUF(PLEN));
  206. -                WRITE'LOG(PBUF, PLEN, RPACK'PACK);
  207. -           END;
  208.    
  209. - E'ST "READING FROM REMOTE" E'EN;
  210.        LBUFCNT := FREAD(LNUM,W'LBUF,-LBUF'BYTESIZE); << Read buffer >>
  211.    
  212.        if <> then
  213. --- 1100,1106 ----
  214. ***************
  215. *** 1105,1112 ****
  216.                  move PBUF := "RPACK: FSERROR ", 2; PLEN:=TOS-@PBUF;
  217.                  PLEN:=PLEN+ASCII(R'ERROR, 10, PBUF(PLEN));
  218.                  FWRITE(LOGNUM, PBUF'W, -PLEN, 0);
  219. -                R'ERROR:=1;
  220.             end;
  221.        end
  222.             else
  223.        begin  << Have a packet >>
  224. --- 1112,1119 ----
  225.                  move PBUF := "RPACK: FSERROR ", 2; PLEN:=TOS-@PBUF;
  226.                  PLEN:=PLEN+ASCII(R'ERROR, 10, PBUF(PLEN));
  227.                  FWRITE(LOGNUM, PBUF'W, -PLEN, 0);
  228.             end;
  229. +           R'ERROR:=1;
  230.        end
  231.             else
  232.        begin  << Have a packet >>
  233. ***************
  234. *** 2602,2608 ****
  235.        end
  236.             else
  237.        begin
  238. !           MY'TO := 3 + LONGPACK'SIZE/TSPEED; << Rcv timeout >>
  239.             if RPACK(RP,RP'LEN,RP'NUM,RP'DATA) then
  240.             begin
  241.                  if RP = "D" then
  242. --- 2609,2615 ----
  243.        end
  244.             else
  245.        begin
  246. !           MY'TO := 10 + LONGPACK'SIZE/TSPEED; << Rcv timeout >>
  247.             if RPACK(RP,RP'LEN,RP'NUM,RP'DATA) then
  248.             begin
  249.                  if RP = "D" then
  250. ***************
  251. *** 2840,2846 ****
  252.                  move A'DEV := "000 ";
  253.                  ASCII(LDEV'LINE, -10, A'DEV(2));
  254.   !
  255. !                LNUM := FOPEN( , <<%500>>, %4, LBUF'WORDSIZE, A'DEV);
  256.   IF <> THEN IF LOGNUM<>0 THEN
  257.   BEGIN
  258.        FCHECK(LNUM, R'ERROR);
  259. --- 2847,2853 ----
  260.                  move A'DEV := "000 ";
  261.                  ASCII(LDEV'LINE, -10, A'DEV(2));
  262.   !
  263. !                LNUM := FOPEN( , %500, %4, LBUF'WORDSIZE, A'DEV);
  264.   IF <> THEN IF LOGNUM<>0 THEN
  265.   BEGIN
  266.        FCHECK(LNUM, R'ERROR);
  267. ***************
  268. *** 2862,2892 ****
  269. --- 2869,2962 ----
  270.                            TTYPE := DFLT'TTYPE;
  271.    
  272.                       FCONTROL(LNUM,39,ORGL'TTYPE);
  273. +                     IF <> THEN IF LOGNUM>0
  274. +                       THEN BEGIN
  275. +                         FCHECK(LNUM, TEMP);
  276. +                         E'ST  "FCONTROL 39 PROBLEM"  E'EN;
  277. +                         FERRMSG(TEMP, PBUF, PLEN);
  278. +                         WRITE'LOG(PBUF, PLEN, -2);
  279. +                       END;
  280.                       FCONTROL(LNUM,38,TTYPE);
  281. +                     IF <> THEN IF LOGNUM>0
  282. +                       THEN BEGIN
  283. +                         FCHECK(LNUM, TEMP);
  284. +                         E'ST  "FCONTROL 38 PROBLEM"  E'EN;
  285. +                         FERRMSG(TEMP, PBUF, PLEN);
  286. +                         WRITE'LOG(PBUF, PLEN, -2);
  287. +                       END;
  288.    
  289.                       FCONTROL(LNUM,13,ORGL'ECHO);
  290. +                     IF <> THEN IF LOGNUM>0
  291. +                       THEN BEGIN
  292. +                         FCHECK(LNUM, TEMP);
  293. +                         E'ST  "FCONTROL 13 PROBLEM"  E'EN;
  294. +                         FERRMSG(TEMP, PBUF, PLEN);
  295. +                         WRITE'LOG(PBUF, PLEN, -2);
  296. +                       END;
  297.    
  298.                       if TSPEED <> 0 then
  299.                       begin
  300.                            ORGL'TISPEED := TSPEED;
  301.                            FCONTROL(LNUM,10,ORGL'TISPEED);
  302. +                          IF <> THEN IF LOGNUM>0
  303. +                            THEN BEGIN
  304. +                              FCHECK(LNUM, TEMP);
  305. +                              E'ST  "FCONTROL 10 PROBLEM"  E'EN;
  306. +                              FERRMSG(TEMP, PBUF, PLEN);
  307. +                              WRITE'LOG(PBUF, PLEN, -2);
  308. +                            END;
  309.                            ORGL'TOSPEED := TSPEED;
  310.                            FCONTROL(LNUM,11,ORGL'TOSPEED);
  311. +                          IF <> THEN IF LOGNUM>0
  312. +                            THEN BEGIN
  313. +                              FCHECK(LNUM, TEMP);
  314. +                              E'ST  "FCONTROL 11 PROBLEM"  E'EN;
  315. +                              FERRMSG(TEMP, PBUF, PLEN);
  316. +                              WRITE'LOG(PBUF, PLEN, -2);
  317. +                            END;
  318.                       end
  319.                            else
  320.                       FCONTROL(LNUM,40,TSPEED); << Get speed >>
  321. +                     IF <> THEN IF LOGNUM>0
  322. +                       THEN BEGIN
  323. +                         FCHECK(LNUM, TEMP);
  324. +                         E'ST  "FCONTROL 40 PROBLEM"  E'EN;
  325. +                         FERRMSG(TEMP, PBUF, PLEN);
  326. +                         WRITE'LOG(PBUF, PLEN, -2);
  327. +                       END;
  328.    
  329.                       FSETMODE(LNUM,4); << Inhibit LF >>
  330. +                     IF <> THEN IF LOGNUM>0
  331. +                       THEN BEGIN
  332. +                         FCHECK(LNUM, TEMP);
  333. +                         E'ST  "FSETMODE 4 PROBLEM"  E'EN;
  334. +                         FERRMSG(TEMP, PBUF, PLEN);
  335. +                         WRITE'LOG(PBUF, PLEN, -2);
  336. +                       END;
  337.    
  338.                       if HNDSHK = 2 then
  339.                       begin << Set XON as termination char >>
  340.                            TEMP := XON;
  341.                            FCONTROL(LNUM,25,TEMP);
  342. +                     IF <> THEN IF LOGNUM>0
  343. +                       THEN BEGIN
  344. +                         FCHECK(LNUM, TEMP);
  345. +                         E'ST  "FCONTROL 25 PROBLEM"  E'EN;
  346. +                         FERRMSG(TEMP, PBUF, PLEN);
  347. +                         WRITE'LOG(PBUF, PLEN, -2);
  348. +                       END;
  349.                       end;
  350.    
  351.    
  352.                       TEMP:=MY'EOL cat CTL("Y") (0:8:8);
  353.                       FCONTROL(LNUM, 41, TEMP); <<Almost transparent rx>>
  354. +                     IF <> THEN IF LOGNUM>0
  355. +                       THEN BEGIN
  356. +                         FCHECK(LNUM, TEMP);
  357. +                         E'ST  "FCONTROL 41 PROBLEM"  E'EN;
  358. +                         FERRMSG(TEMP, PBUF, PLEN);
  359. +                         WRITE'LOG(PBUF, PLEN, -2);
  360. +                       END;
  361.    
  362.    
  363.                       if (LDEV'CI = LDEV'LINE) land
  364. ***************
  365. *** 4004,4010 ****
  366.                  << SET SEND >>
  367.    
  368.                  begin
  369. !                     M'ST "                 { PAUSE number   }" M'EN;
  370.                       M'ST "                 {                }" M'EN;
  371.                       M'ST "Syntax: SET SEND {       { ON   } }" M'EN;
  372.                       M'ST "                 { BINARY{ OFF  } }" M'EN;
  373. --- 4074,4080 ----
  374.                  << SET SEND >>
  375.    
  376.                  begin
  377. !                     M'ST "                 { PAUSE  1/10 secs}" M'EN;
  378.                       M'ST "                 {                 }" M'EN;
  379.                       M'ST "Syntax: SET SEND {       { ON   }  }" M'EN;
  380.                       M'ST "                 { BINARY{ OFF  }  }" M'EN;
  381. ***************
  382. *** 4454,4460 ****
  383.                        "wise n is assumed to be decimal.  Default value"
  384.                       M'EN;
  385.                       M'ST
  386. !                      "for SOH is 2 (STX)."
  387.                       M'EN;
  388.                  end;
  389.    
  390. --- 4524,4530 ----
  391.                        "wise n is assumed to be decimal.  Default value"
  392.                       M'EN;
  393.                       M'ST
  394. !                      "for SOH is 1."
  395.                       M'EN;
  396.                  end;
  397.    
  398. ***************
  399. *** 5155,5161 ****
  400.                                 SHUT'LINE;
  401.                            end;
  402.                       end;
  403. !                     ASCII((LDEV'LINE MOD 100),-10,KERM'JCW(7));
  404.                  end;
  405.    
  406.                  << SET SEND >>
  407. --- 5225,5231 ----
  408.                                 SHUT'LINE;
  409.                            end;
  410.                       end;
  411. !                     ASCII(LDEV'LINE,-10,KERM'JCW(7));
  412.                  end;
  413.    
  414.                  << SET SEND >>
  415. ***************
  416. *** 5382,5388 ****
  417.                            begin
  418.                                 HELP(SETV, RECEIVEV'1, FIXRECV);
  419.                                 READ'USER(FALSE);
  420. !                               SCANIT(QMARKV);
  421.                                 if CTLY then
  422.                                      go to SET'EXIT;
  423.                            end;
  424. --- 5452,5458 ----
  425.                            begin
  426.                                 HELP(SETV, RECEIVEV'1, FIXRECV);
  427.                                 READ'USER(FALSE);
  428. !                               SCANIT(ONV);
  429.                                 if CTLY then
  430.                                      go to SET'EXIT;
  431.                            end;
  432.