28-Mar-84 23:10:42-EST,4029;000000000001 Return-Path: Received: from CUCS20 by CU20B with DECnet; 28 Mar 84 23:10:34 EST Return-Path: Received: from RADC-MULTICS.ARPA by COLUMBIA-20.ARPA with TCP; 28 Mar 84 13:41:52 EST Date: 28 March 1984 13:41 est From: Wiedemann.4506i1808 at RADC-MULTICS Subject: MULTICS KERMIT update To: cc.fdc at COLUMBIA-20 ReSent-date: Wed 28 Mar 84 19:01:30-EST ReSent-from: Frank da Cruz ReSent-to: sy.fdc@CU20B Frank, I've been out of town, but now that I'm back, I think I've fixed the immediate problem in the MULTICS version of KERMIT that kept me from successful compilation. I have not been able to implement it on my Zenith Z-100 yet, but that's coming. I've only had preliminary tries at the program by simply using a terminal and talking to KERMIT. The segments I worked on are appended to this message. The one global change that probably should be made, if only for aesthetics, is that "carriage" is consistently misspel- led as "carraige". This caused me problems since one of the lines in which the word occurred also had another error. When I also corrected the spelling in the initial declara- tion of "carriage_return", I got lots of errors. Once I can verify thet the MULTICS/ZENITH KERMIT link is indeed working, I'll send you a note so that you can update your MULTICS KERMIT master listing. Here are the changed segments: /********************************************************************/ /* Constants */ /********************************************************************/ /* Control Characters */ dcl delete char(1) based (addr (control_char.DEL)); dcl carraige_return char(1) based (addr (control_char.CR)); dcl null_char char(1) based (addr (control_char.NULL)); dcl line_feed char(1) based (addr (control_char.LF)); dcl 1 control_char aligned internal static options (constant), 2 DEL bit(9) init ("127"b3), 2 LF bit(9) init ("010"b3); dcl big char(26) static static options(constant) init("ABCDEFGHIJKLMNOPQRSTUVWXYZ"); dcl sml char(26) static static options(constant) init("abcdefghijklmnopqrstuvwxyz"); dcl numbers char(10) static options(constant) init("0123456789"); dcl space char(1) static init(" ") options(constant); dcl colon char(1) static init(":") options(constant); dcl car_ret fixed bin static options(constant) init(13); dcl false bit(1) static static options(constant) init("0"b); dcl blank char(1) static static options(constant) init(" "); dcl true bit(1) static static options(constant) init("1"b); /********************************************************************/ /* Symbols */ /********************************************************************/ dcl max_packet_size fixed bin static init(94); dcl my_quote char(1) static init("#") static; dcl my_pad fixed bin static init(0) static; dcl my_pad_char fixed bin static init(0) static; dcl my_end_of_line fixed bin init(car_ret) ; /********************************************************************/ /* Blck transfer framing character info structures. */ /********************************************************************/ dcl 1 orig_framing_chars static aligned, 2 start_char char(1) unaligned, 2 end_char char(1) unaligned; dcl 1 new_framing_chars internal static aligned options(constant), 2 start_char bit(9) init("000"b3), 2 end_char bit(9) init("013"b3); dcl orig_fc_ptr ptr init(addr(orig_framing_chars)); dcl new_fc_ptr ptr init(addr(new_framing_chars)); Hope this helps answer some others' questions, too. Wolf Wiedemann RADC-MULTICS ---(10)---