home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / d / k20mit.bwr < prev    next >
Text File  |  2020-01-01  |  33KB  |  986 lines
  1. Kermit-20 Version 4.2(260) Dec 1987, Known Bugs, Problems, Limitations.
  2.  
  3. 11-Dec-87 15:34:23-EST,1003;000000000001
  4. Date: Fri 11 Dec 87 15:34:19-EST
  5. From: Frank da Cruz <SY.FDC@CU20B.COLUMBIA.EDU>
  6. Subject: New Release of DEC-20 Kermit
  7. To: sy.christine@CU20B.COLUMBIA.EDU
  8.  
  9. I never thought I'd touch this program again, but it contained a thoughtless
  10. restriction, namely that it wouldn't let you issue commands to servers unless
  11. you were in local mode (e.g. after dialing out through another line).  This
  12. prevented you from putting a bunch of commands (multiple SENDs and/or GETs,
  13. followed by FINISH) into a TAKE file, TAKing the file, escaping back to the PC
  14. and putting it in server mode.  The new release, 4.2(260), removes this
  15. restriction so long as the commands (like GET, FINISH, BYE) are issued from
  16. TAKE files.  The old problem of inferior process capabilities not getting set
  17. right, e.g. after a PUSH command, is also fixed.  The new version is in
  18. KER:K20MIT.MAC on CU20B.  - Frank
  19.  
  20. Jan 88 - the above change introduced a new problem: If you issue commands to a
  21. server (like GET, FINISH, etc) while in remote mode, the TTY is not put in
  22. binary mode first, so it still has parity, echo, etc.  This should be easy
  23. to fix...
  24.  
  25. Kermit-20 Version 4.2(256) May 1985, Known Bugs, Problems, Limitations.
  26.  
  27. As of: 12:42pm  Tuesday, 23 July 1985
  28.  
  29. . Needs copyright notice.
  30.  
  31. . Server does not perform REMOTE HOST commands.
  32.  
  33. . File Attribute packets are not yet supported.
  34.  
  35. . Server, running in batch, should not give "?KERMIT-20: File not found"
  36.   message, which shuts down the batch job; use "%" messages instead.
  37.  
  38. . REMOTE SPACE command should accept a device/directory argument.
  39.  
  40. . RUN command should accept an optional command line argument.
  41.  
  42. . REMOTE WHO missing.
  43.  
  44. . Should allow "remapping" bytesize of incoming files based on whether
  45.   first page has any 8th bits set, to allow transparent uploading of 8-bit
  46.   binary data when "auto" set.
  47.  
  48. . During CONNECT, should clear output buffer (CFOBF) before sending BREAK.
  49.  
  50. . If monitor version 6.0 or greater, then line speed is reported correctly
  51.   by MTOPR, even for remote lines -- should allow for this.
  52.  
  53. . If you do "get NUL:" to a Kermit-20 server, it sends an empty F packet.
  54.  
  55. . Code to delete trailing "." in outbound F packet seems to fail sometimes.
  56.  
  57. . Reported (not verified) that SET FLOW doesn't turn XON/XOFF on/off on an
  58.   assigned TTY line (or maybe it's page mode).
  59.  
  60. . Should handle ^C during packets more intelligently?
  61.  
  62. . Reported (not verified) that ^A for status report during FT in local mode
  63.   sometimes gets lost.  Scenario: 1. SET LINE x; 2. Start FT, but with no
  64.   Kermit on other side; 3. ^C back to command level; 4. Connect.  ^A still
  65.   being trapped.
  66.  
  67. . Recover from receiving a null F packet, instead of looping with
  68.   "SPACK: illegal message length" messages forever (have to look into this
  69.   a little more deeply; should never get a null F packet anyway...)
  70.  
  71. . Capabilities word not set correctly for inferior forks in RUN or PUSH
  72.   if CONNECT not done first (CAPAS word set only in TTYINI, which is called
  73.   only for CONNECT) (reported by Jeff Jones at ORNL, not yet verified).
  74.  
  75. . TAC support:
  76.  
  77. Date: 10 Apr 1985  22:17 MST (Wed)
  78. From: "Frank J. Wancho" <WANCHO@SIMTEL20.ARPA>
  79. To:   SY.FDC@CU20B
  80. Subject: Changes to 20KERMIT.MAC
  81.  
  82. Frank,
  83.  
  84. The following are the changes I made to 20KERMIT.MAC.255 to add
  85. support for a MONITR that doubles IACs and has new MTOPR% calls to
  86. negotiate network binary mode.  Such support is in MRC's PANDA MONITR
  87. which we are running now, and the MTOPR% codes are of MRC's making,
  88. not yet DEC's.  I have made similar changes in MODEM available in the
  89. usual place here (MICRO:<CPM.TOPS-20>).
  90.  
  91. --Frank
  92. --------------------
  93. REDIT 1(103) COMPARE by user WANCHO, 10-Apr-85 22:07:04
  94. File 1: PS:<TEMP>KERMIT.MAC.255
  95. File 2: PS:<TEMP>KERMIT.MAC.256
  96. ***** CHANGE #1; PAGE 1, LINE 3; PAGE 1, LINE 3
  97. $verno==^d4            ; Major version number.
  98. $mnver==^d2            ; Minor version number.
  99. $edno==^d173             ; Edit number increases independent of version.
  100. $who==^d0            ; Who edited, 0=Columbia.
  101. ;
  102. ;PS:<TIMREK>KERMIT.MAC.1028, 11-Dec-84 19:00:29, Frank (SY.FDC@CU20B)
  103.  ---------------------------------
  104. $verno==^d4            ; Major version number.
  105. $mnver==^d2            ; Minor version number.
  106. $edno==^d174             ; Edit number increases independent of version.
  107. $who==^d0            ; Who edited, 0=Columbia.
  108. ;
  109. ;[SIMTEL20.ARPA]PS:<TEMP>20KERMIT.MAC.256,  9-Apr-85 12:44:11, Edit by WANCHO
  110. ; added PANDASW conditionals to handle network binary mode negotiations
  111. ;PS:<TIMREK>KERMIT.MAC.1028, 11-Dec-84 19:00:29, Frank (SY.FDC@CU20B)
  113. ***** CHANGE #2; PAGE 219, LINE 13; PAGE 219, LINE 13
  114. ; Returns +1 always, but prints warning on failure.
  115. ;
  116. doarpa:    skipn tvtflg        ; Are we on tvt?
  117.      ret
  118.  
  119.     move t1,netjfn        ; Yes, talk binary.
  120.  ---------------------------------
  121. ; Returns +1 always, but prints warning on failure.
  122. ;
  123. doarpa:    skipn tvtflg        ; Are we on tvt?
  124.      ret
  125.  
  126. IFE PANDASW,<
  127.     move t1,netjfn        ; Yes, talk binary.
  129. ***** CHANGE #3; PAGE 219, LINE 27; PAGE 219, LINE 28
  130.     SOUT%
  131.      %jserr(,doarpx)
  132.     movei t1,^d4000
  133.     DISMS
  134.     ret
  135.  
  136.  ---------------------------------
  137.     SOUT%
  138.      %jserr(,doarpx)
  139.     movei t1,^d4000
  140.     DISMS
  141.     ret
  142. >;IFE PANDASW
  143.  
  144. IFN PANDASW,<
  145.     MOVX t1,.CTTRM        ; read present local status
  146.     MOVX t2,.MORLT
  147.     MTOPR%
  148. ;     ERJMP NIM        ; not a Panda monitor
  149.     MOVEM t3,OLDLTS        ; save old terminal status
  150.     TXO t3,MO%NBI!MO%NBO    ; want network binary mode
  151.     MOVX t2,.MOSLT        ; want to set it
  152.     MTOPR%
  153. ;     ERJMP FATAL
  154.     MOVX B,.MORLT        ; now see what actually happened
  155.     MTOPR%
  156. ;     ERJMP FATAL
  157.     TXC C,MO%NBI!MO%NBO    ; make mask ones if either bit zero
  158.     IFXN. C,MO%NBI!MO%NBO
  159.      jrst doarpx
  160.     ENDIF.
  161. >;IFN PANDASW
  162.  
  164. ***** CHANGE #4; PAGE 222, LINE 7; PAGE 222, LINE 7
  165. ; Turn off Arpanet TAC binary mode.
  166.  
  167. unarpa:    skipn tvtflg        ; Are we on a tvt?
  168.      ret            ; No, skip this.
  169.     
  170.     dmove t2, [exp <point 8,[byte(8) iac,wont,trnbin]>,-3]
  171.  ---------------------------------
  172. ; Turn off Arpanet TAC binary mode.
  173.  
  174. unarpa:    skipn tvtflg        ; Are we on a tvt?
  175.      ret            ; No, skip this.
  176.     
  177. IFE PANDASW,<
  178.     dmove t2, [exp <point 8,[byte(8) iac,wont,trnbin]>,-3]
  180. ***** CHANGE #5; PAGE 222, LINE 20; PAGE 222, LINE 21
  181.     SOUT%
  182.      %jserr(,unarpx)
  183.     movei t1, ^d4000    ; Wait another 4 secs.
  184.     DISMS%
  185.     ret            ; Done.
  186.  
  187.  ---------------------------------
  188.     SOUT%
  189.      %jserr(,unarpx)
  190.     movei t1, ^d4000    ; Wait another 4 secs.
  191.     DISMS%
  192.     ret            ; Done.
  193. >; IFE PANDASW
  194.  
  195. IFN PANDASW,<
  196.     MOVX t1,.CTTRM        ; restore modes
  197.     MOVX t2,.MOSLT
  198.     MOVE t3,OLDLTS        ; get former status
  199.     MTOPR%
  200. ;     ERJMP FATAL
  201. >; IFN PANDASW
  202.  
  204. ***** CHANGE #6; PAGE 229, LINE 8; PAGE 229, LINE 8
  205.  
  206. ;[131] If ARPANET TVT then must double any hex FF's (TELNET IAC).
  207. ; Note, since IAC is DEL with parity bit on, we should never see one, right?
  208. ;
  209. spack6:    move t2, [point 8, sndpkt] ; The address of the packet.
  210.     skipn tvtflg        ; TVT-Binary mode?
  211.  ---------------------------------
  212.  
  213. ;[131] If ARPANET TVT then must double any hex FF's (TELNET IAC).
  214. ; Note, since IAC is DEL with parity bit on, we should never see one, right?
  215. ;
  216. spack6:    move t2, [point 8, sndpkt] ; The address of the packet.
  217.  
  218. IFN PANDASW,<
  219.     jrst spak6x
  220. >; IFN PANDASW
  221.  
  222.     skipn tvtflg        ; TVT-Binary mode?
  224. ***** CHANGE #7; PAGE 276, LINE 22; PAGE 276, LINE 22
  225. flow:    1            ;[143] Flow-Control (nonzero = XON/XOFF)
  226. itsflg:    defits            ;[75] Flag for handling ITS-binary format files
  227. itsfil:    0            ;[75] Flag for this file is ITS format.
  228. itscnt:    0            ;[75] Counter for ITS header chars matched.
  229. tvtflg:    0            ;[129] Negotiate binary mode on ARPANET TVT.
  230. incase:    defics            ;[160] Case conversion flag for INPUT search.
  231.  ---------------------------------
  232. flow:    1            ;[143] Flow-Control (nonzero = XON/XOFF)
  233. itsflg:    defits            ;[75] Flag for handling ITS-binary format files
  234. itsfil:    0            ;[75] Flag for this file is ITS format.
  235. itscnt:    0            ;[75] Counter for ITS header chars matched.
  236. tvtflg:    0            ;[129] Negotiate binary mode on ARPANET TVT.
  237. oldlts:    0
  238. incase:    defics            ;[160] Case conversion flag for INPUT search.
  239. 13-Nov-85 19:43:32-EST,734;000000000011
  240. Return-Path: <RELPH@USC-ECLC.ARPA>
  241. Received: from USC-ECLC.ARPA by CU20B.COLUMBIA.EDU with TCP; Wed 13 Nov 85 19:43:30-EST
  242. Date: Wed 13 Nov 85 15:51:29-PST
  243. From: John M. Relph <Relph@USC-ECLC.ARPA>
  244. Subject: Tops-20 Kermit V175
  245. To: SY.FDC@CU20B.COLUMBIA.EDU
  246. Message-ID: <12159023603.35.RELPH@USC-ECLC.ARPA>
  247.  
  248. Frank,
  249.   I had a problem with kermit on our Tops-20 where users could
  250. ^C out of connect mode because they had ^C privilege but hadn't
  251. enabled it.  I fixed this with the patch below, which enables
  252. the ^C priv.  This patch goes in after the RPCAP% at TTYINI+1.
  253.  
  254.     txne    t2,sc%ctc    ;[176] can they ^C trap?
  255.      call    [txo    t3,sc%ctc ;[176] yes, so let's
  256.          EPCAP%
  257.          ret]        ;[176] end edit
  258.  
  259. Thanks,
  260.     -- John
  261. -------
  262. 11-Mar-86 19:39:16-EST,947;000000000001
  263. Mail-From: SY.FDC created at 11-Mar-86 19:39:15
  264. Date: Tue 11 Mar 86 19:39:14-EST
  265. From: Frank da Cruz <SY.FDC@CU20B.COLUMBIA.EDU>
  266. Subject: TOPS-20 LAT Service
  267. To: TOPS20@SU-SCORE.ARPA
  268. Message-ID: <12189965286.29.SY.FDC@CU20B.COLUMBIA.EDU>
  269.  
  270. TOPS-20 LAT service apparently does not allow 8-bit transparent terminal
  271. i/o.  Binary files cannot be sent to DEC-20 Kermit through a LAT box
  272. (DECserver 100) unless you give SET PARITY commands to Kermit to force it
  273. to use 8th-bit prefixing.  The same binary files can be sent to DEC-20 Kermit
  274. through a regular terminal port without having to use 8th-bit prefixing.
  275. In other words, all the SFCOC's, MTOPR's, SFMOD's, STPAR's, and STIW's you
  276. must do to make the terminal transparent just don't work for a LAT terminal.
  277. By contrast, Ultrix LAT service does not pose this problem -- opening a
  278. LAT terminal in raw mode in Ultrix works just like opening a regular terminal
  279. in raw mode.
  280. -------
  281. 13-Mar-86 14:40:58-EST,2080;000000000001
  282. Mail-From: SY.FDC created at 13-Mar-86 14:40:53
  283. Date: Thu 13 Mar 86 14:40:53-EST
  284. From: Frank da Cruz <SY.FDC@CU20B.COLUMBIA.EDU>
  285. Subject: TOPS-20 LAT service vs Kermit, cont'd
  286. To: TOPS-20@SU-SCORE.ARPA
  287. Message-ID: <12190435261.12.SY.FDC@CU20B.COLUMBIA.EDU>
  288.  
  289. Disregard last message...  Turns out that, unbeknownst to me, the behavior
  290. reported previously occurred from a PC that was connected by LAT to a VAX
  291. Ultrix system that was TELNET'd to a DEC-20 via TCP/IP over Ethernet, and it
  292. was TELNET stripping the high order bit, not LAT.  However, there is still a
  293. problem with DEC-20 LAT service.  The symptom is that you can't transfer files
  294. of any kind into a DEC-20 through LAT using Kermit or Modem or any similar
  295. protocol.  You can, however, transfer files from the DEC-20 to the PC with no
  296. problem.  Logging of a file transfer reveals that a typical Kermit data packet
  297. (80-90 characters) is truncated by the LAT box to 30-40 characters.  If you
  298. reduce the Kermit packet size to, say, 37, then everything works, even binary
  299. files without 8th-bit prefixing.
  300.  
  301. The mystery is that everything works fine when the host is a VAX Ultrix
  302. system rather than a DEC-20.  Therefore, the LAT box itself is not at fault;
  303. the culprit must the TOPS-20 LAT service.
  304.  
  305. In fact, the LAT specification says LAT_MIN_RECV_SLOT_SIZE should be in the
  306. range 1-255, and 127 is recommended.  The TOPS-20 6.1 monitor's LATSRV module,
  307. however, sets the corresponding symbol MXSLSI to 40 (decimal).  We haven't
  308. tried changing the monitor to increase this number, and are not sure what the
  309. consequences would be.
  310.  
  311. For now, those who want to use Kermit to send files to a DEC-20 through a
  312. LAT box must set their packet size to 37 or less.  Those who want to use MODEM
  313. will have to use Kermit instead, since MODEM packet sizes cannot be changed.
  314.  
  315. This note does not address the other problems we've been having with TOPS-20
  316. LAT service, like random disconnections, etc.  We noticed that several of the
  317. other recommended parameter settings are not followed in LATSRV.
  318. -------
  319. 16-Mar-86 00:42:35-EST,2269;000000000001
  320. Return-Path: <@CS.COLUMBIA.EDU,@SU-SCORE.ARPA:MRC@PANDA>
  321. Received: from CS.COLUMBIA.EDU by CU20B.COLUMBIA.EDU with TCP; Sun 16 Mar 86 00:42:32-EST
  322. Received: from SU-SCORE.ARPA by CS.COLUMBIA.EDU with TCP; Sun 16 Mar 86 00:42:59-EST
  323. Received: from SUMEX-AIM.ARPA by SU-SCORE.ARPA with TCP; Sat 15 Mar 86 17:32:21-PST
  324. Received: from PANDA by SUMEX-AIM.ARPA with Cafard; Sat 15 Mar 86 17:34:15-PST
  325. Date: Sat 15 Mar 86 16:48:16-PST
  326. From: Mark Crispin <MRC%PANDA@SUMEX-AIM.ARPA>
  327. Subject: DTR control patch
  328. To: TOPS-20@SU-SCORE.ARPA
  329. Postal-Address: 1802 Hackett Ave.; Mountain View, CA  94043-4431
  330. Phone: +1 (415) 968-1052
  331. Message-ID: <12191015506.11.MRC@PANDA>
  332.  
  333.      By popular demand, I am publishing the latest and greatest
  334. DTR control patch.  It is in the form of a MIC file.  Note the
  335. instructions at the bottom of the patch, which are necessary to
  336. actually enable the patch.  You will have to do this manually
  337. since it is different between release 5.1 and release 6.1.
  338.  
  339.      This patch enables two new TTY MTOPR% functions.  Function
  340. 400003 will hang up the given terminal line, function 400004 will
  341. pick it up.  This is compatible with the functions in Stanford
  342. and PANDA monitors, where these functions are given the symbolic
  343. names .MOHUP (hang up) and .MODUP (DTR up).
  344.  
  345.      This patch uses function .DFLDU (15) to DTEQ, which is
  346. supported from the KL to the -11 only in the more recent versions
  347. of RSX-20F.  If you have an older version of RSX-20F, you'll get
  348. an 11-HALT (ILF or some such) when you try to use function
  349. 400004.  In that case, get a new version of RSX-20F from DEC.
  350.  
  351. @GET SYSTEM:MONITR
  352. @START 140
  353. *FFF/DTRPAT:CAIE T3,400003
  354. *DTRPAT+1/JRST DTRPAT+4
  355. *DTRPAT+2/CALL TTHNGU
  356. *DTRPAT+3/JRST RSKP
  357. *DTRPAT+4/CAIE T3,400004
  358. *DTRPAT+5/RET
  359. *DTRPAT+6/JSP CX,SAVT
  360. *DTRPAT+7/MOVE A,MSTRDT
  361. *DTRPAT+10/MOVS C,B
  362. *DTRPAT+11/SKIPA B,.+1
  363. *DTRPAT+12/15,,.FEDLS
  364. *DTRPAT+13/CALL FIXARG
  365. *DTRPAT+14/HLRZ D,C
  366. *DTRPAT+15/SETZ C,
  367. *DTRPAT+16/CALL DTEQI
  368. *DTRPAT+17/JRST RSKP
  369. *DTRPAT+20/FFF:
  370.  
  371. !  Now look at TTMTOP+7 (release 6.1) or TTMTO1+4 (release 5.1).  It
  372. ! jumps to a literal which has a MOVEI T1,MTOX1 followed by a RET.
  373. ! Patch the RET to JRST DTRPAT.  Then type CTRL/Z followed by
  374. ! SAVE SYSTEM:MONITR.EXE.
  375.  
  376. ------------------------------
  377.  
  378. Date: Thu 8 May 86 17:10:56-PDT
  379. From: Bob Larson <BLARSON%ECLD@USC-ECLC.ARPA>
  380. Subject: Problem with tops-20 kermit
  381.  
  382. Tops-20 does something very nasty when confronted with a file with the
  383. 36th bit (lsb) of a word set and a 7-bit data link (mark parity) and
  384. no 8th bit quoting: it sends a packet with a bad checksum.  [Tops-20
  385. kermit version 4.2(253)]  There seem to be two better ways out of this
  386. bad situation: Send an error packet, or just ignore the extra bit.  In
  387. my case the latter would be prefered.  (Apperently there is an obscure
  388. bug in mm, which is not noticed by most tops-20 programs.)
  389.  
  390. Bob Larson
  391.  
  392. ------------------------------
  393.  
  394. Date: Wed 3 Feb 88 18:35:32-PST
  395. From: Bruce Tanner <CERRITOS@ECLA.USC.EDU>
  396. Subject: TOPS-20 Kermit
  397. Keywords:
  398.  
  399. I've gotten the MS-DOS 2.30 .BOO files and decided to use the MSBPCT.C
  400. program using the Stanford KCC compiler.  The program ran fine unchanged.
  401. However, opening a file "wb" generates a 9-bit file (four nine-bit bytes
  402. per word).  OK, just use the "SET FILE SIZE AUTO" and let Kermit figure
  403. it out, right?  Wrong.  I had to teach it about 9 bit files also.
  404. So, here are the REDIT changes I've made to edit 262 (decimal 178):
  405.  
  406. 1. Recognize 9 bit files
  407. 2. Clean up the Moon: code (it kept giving me phase errors)
  408. 3. Make edit decimal (just remove the vi%dec at Version: if you don't like it)
  409.  
  410. REDIT 1(103) COMPARE by user CC.TANNER, 3-Feb-88 16:40:50
  411. File 1: PS:<CC.TANNER.WORK>KERMIT.COLUMBIA.1
  412. File 2: PS:<CC.TANNER.WORK>KERMIT.MAC.26
  413. ***** CHANGE #1; PAGE 1, LINE 4; PAGE 1, LINE 4
  414. $verno==^d4            ; Major version number.
  415. $mnver==^d2            ; Minor version number.
  416. $edno==^d178             ; Edit number increases independent of version.
  417. $who==^d0            ; Who edited, 0=Columbia.
  418. ;
  419.  ---------------------------------
  420. $verno==^d4            ; Major version number.
  421. $mnver==^d2            ; Minor version number.
  422. $edno==^d178             ; Edit number increases independent of version.
  423. $who==^d3            ; Who edited, 0=Columbia.
  424. ;
  426. ***** CHANGE #2; PAGE 14, LINE 6; PAGE 14, LINE 6
  427.  
  428.     subttl KERMIT Program entry, initialization, and exit.
  429.  
  430. kermit:    jrst start        ; Start entry.
  431.     jrst reen        ; Re-entry.
  432. versio:    byte (3)$who(9)$verno(6)$mnver(18)$edno    ; Program version.
  433. evlen==.-kermit
  434.  ---------------------------------
  435.  
  436.     subttl KERMIT Program entry, initialization, and exit.
  437.  
  438. kermit:    jrst start        ; Start entry.
  439.     jrst reen        ; Re-entry.
  440. versio:    byte (3)$who(9)$verno(6)$mnver(18)$edno+vi%dec    ;[BT] Program version.
  441. evlen==.-kermit
  443. ***** CHANGE #3; PAGE 76, LINE 46; PAGE 76, LINE 46
  444. ; file bytesize keyword table.
  445.  
  446. sfbtab:    %table
  447.     %key <7-bit>, 0
  448.     %key <8-bit>, 1
  449.     %key <auto>, 2
  450.     %key <eight-bit>, 1
  451.     %key <seven-bit>, 0
  452.  ---------------------------------
  453. ; file bytesize keyword table.
  454.  
  455. sfbtab:    %table
  456.     %key <7-bit>, 0
  457.     %key <8-bit>, 1
  458.     %key <9-bit>, 3        ;[BT]
  459.     %key <auto>, 2
  460.     %key <eight-bit>, 1
  461.     %key <nine-bit>, 3    ;[BT]
  462.     %key <seven-bit>, 0
  464. ***** CHANGE #4; PAGE 110, LINE 19; PAGE 110, LINE 19
  465.         ret ]
  466.     hrrz t3, versio        ; edit
  467.     skipe t3
  468.      call [    movei t1, "("
  469.         PBOUT
  470.         numout t3, 8
  471.         movei t1, ")"
  472.  ---------------------------------
  473.         ret ]
  474.     hrrz t3, versio        ; edit
  475.     skipe t3
  476.      call [    movei t1, "("
  477.         PBOUT
  478.         trzn t3,vi%dec    ;[BT] Decimal?
  479.          jrst $shv3    ;[BT] No, skip
  480.         numout t3, ^d10 ;[BT] Yes
  481.         skipa        ;[BT]
  482.     $shv3:    numout t3, 8
  483.         movei t1, ")"
  485. ***** CHANGE #5; PAGE 113, LINE 8; PAGE 113, LINE 8
  486.  
  487. $shfil:    tmsg <Byte size for file I/O:  >
  488.     hrroi t1, [ASCIZ/"Auto"/]
  489.     skipn autbyt
  490.      jrst [    hrroi t1, [asciz/Seven-Bit/]
  491.         skipe ebtflg
  492.          hrroi t1, [asciz/Eight-Bit/]
  493.         jrst .+1 ]
  494.  ---------------------------------
  495.  
  496. $shfil:    tmsg <Byte size for file I/O:  >
  497.     hrroi t1, [ASCIZ/"Auto"/]
  498.     skipn autbyt
  499.      jrst [    hrroi t1, [asciz/Seven-Bit/]
  500.         move t2,ebtflg            ;[BT]
  501.         cain t2,1            ;[BT]
  502.          hrroi t1, [asciz/Eight-Bit/]
  503.         cain t2,3            ;[BT]
  504.          hrroi t1, [asciz/Nine-Bit/]    ;[BT]
  505.         jrst .+1 ]
  507. ***** CHANGE #6; PAGE 161, LINE 8; PAGE 161, LINE 8
  508.  
  509. ;[66] If outputting to a file, set up the mapping page pointers.
  510.  
  511. rfil3b:    skiple filjfn        ;[66] JFN on a file?
  512.      jrst [    move t1, [point 7, mappag*1000]    ;[66] Yes, point to page.
  513.         skipe ebtflg        ;[66] Eight bit mode?
  514.          hrli t1, (point 8,)    ;[66] Then use 8-bit bytes.
  515.         movem t1, pagptr    ;[66] Save it here.
  516.  ---------------------------------
  517.  
  518. ;[66] If outputting to a file, set up the mapping page pointers.
  519.  
  520. rfil3b:    skiple filjfn        ;[66] JFN on a file?
  521.      jrst [    move t1, [point 7, mappag*1000]    ;[66] Yes, point to page.
  522.         move t2,ebtflg        ;[BT] Get file byte size
  523.         cain t2, 1        ;[BT] Eight bit?
  524.          hrli t1, (point 8,)    ;[66] Then use 8-bit bytes.
  525.         cain t2, 3        ;[BT] Nine bit?
  526.          hrli t1, (point 9,)    ;[BT] Then use 9-bit bytes.
  527.         movem t1, pagptr    ;[66] Save it here.
  529. ***** CHANGE #7; PAGE 161, LINE 18; PAGE 161, LINE 21
  530.         jrst .+1 ]
  531.  
  532. ; If running locally, echo filename to screen.
  533.  
  534.     movei t1, 7        ;[66] Remember file byte size for reporting.
  535.     skipe ebtflg        ;[66] (this may be revised later because
  536.      movei t1, 8        ;[66]  of ITS binary headers or similar...)
  537.     movem t1, bytsiz    ;[66]
  538.  ---------------------------------
  539.         jrst .+1 ]
  540.  
  541. ; If running locally, echo filename to screen.
  542.  
  543.     movei t1, 7        ;[66] Remember file byte size for reporting.
  544.     move t2,ebtflg        ;[BT] (this may be revised later because
  545.     cain t2, 1        ;[BT]
  546.      movei t1, 8        ;[66]  of ITS binary headers or similar...)
  547.     cain t2, 3        ;[BT]
  548.      movei t1, 9        ;[BT]
  549.     movem t1, bytsiz    ;[66]
  551. ***** CHANGE #8; PAGE 168, LINE 31; PAGE 168, LINE 31
  552.  
  553. rdclsb:    hrli t1, .fbbyv        ; Set the byte size.
  554.     hrr t1, filjfn
  555.     movx t2, fb%bsz        ; Byte size field mask.
  556.     movx t3, fld(7,fb%bsz)    ; Value
  557.     skipn itsfil        ;[75] ITS binary file?
  558.      skipe ebtflg        ; Or eight-bit mode?
  559.      movx t3, fld(8,fb%bsz)    ; Set it that way, then.
  560.  ---------------------------------
  561.  
  562. rdclsb:    hrli t1, .fbbyv        ; Set the byte size.
  563.     hrr t1, filjfn
  564.     movx t2, fb%bsz        ; Byte size field mask.
  565.     movx t3, fld(7,fb%bsz)    ; Value
  566.     move t4, ebtflg        ;[BT] Get bytesize
  567.     cain t4, 1        ;[BT] If 8 bit
  568.      movx t3, fld(8,fb%bsz)    ;[BT] set it
  569.     cain t4, 3        ;[BT] If 9 bit
  570.      movx t3, fld(9,fb%bsz)    ;[BT] set it
  571.     skipe itsfil        ;[75] ITS binary file?
  572.      movx t3, fld(8,fb%bsz)    ; Set it that way, then.
  574. ***** CHANGE #9; PAGE 195, LINE 33; PAGE 195, LINE 33
  575.         NOUT
  576.          nop
  577.         movei t2, 40    ; A space
  578.         BOUT
  579.         movei t2, 7    ; Bytesize
  580.         skipe ebtflg
  581.          aos t2
  582.         NOUT
  583.  ---------------------------------
  584.         NOUT
  585.          nop
  586.         movei t2, 40    ; A space
  587.         BOUT
  588.         movei t2, 7    ; Bytesize
  589.         move t4, ebtflg
  590.         cain t4, 1    ;[BT]
  591.          aos t2
  592.         cain t4,3    ;[BT]
  593.          addi t2, 2    ;[BT]
  594.         NOUT
  596. ***** CHANGE #10; PAGE 201, LINE 42; PAGE 201, LINE 42
  597.      jrst getcha        ;[75] Yes, then skip "autobyte" stuff.
  598.  
  599. ; Next, if doing "autobyte", use the file byte size.
  600.  
  601.     skipe autbyt        ;[81] Are we using autobyte?
  602.      jrst [    setzm ebtflg    ; Yes, assume seven-bit bytes.
  603.         cain t2, ^d8    ; Really 8-bit?
  604.          setom ebtflg    ;  Yes, act like user requested 8-bit.
  605.         jrst .+1 ]
  606.  ---------------------------------
  607.      jrst getcha        ;[75] Yes, then skip "autobyte" stuff.
  608.  
  609. ; Next, if doing "autobyte", use the file byte size.
  610.  
  611.     skipe autbyt        ;[81] Are we using autobyte?
  612.      jrst [    setz t3,    ;[BT] Yes, assume seven-bit bytes.
  613.         cain t2, ^d8    ; Really 8-bit?
  614.          movei t3, 1    ;[Bt] Yes, act like user requested 8-bit.
  615.         cain t2, ^d9    ;[BT] 9-bit?
  616.          movei t3, 3    ;[BT] Yes
  617.         movem t3, ebtflg ;[BT]
  618.         jrst .+1 ]
  620. ***** CHANGE #11; PAGE 201, LINE 52; PAGE 201, LINE 55
  621.  
  622. ; Now, if we're to do 8-bit input, convert the byte count if necessary.
  623.  
  624. getcha:    skipn itsfil        ; ITS binary file?
  625.      skipe ebtflg        ; Or eight bit mode?
  626.      jrst [    cain t2, ^d8    ; Yes, is the byte size 8?
  627.           jrst getchb    ;[170] If so go adjust byte count if necessary.
  628.  ---------------------------------
  629.  
  630. ; Now, if we're to do 8-bit input, convert the byte count if necessary.
  631.  
  632. getcha:    skipn itsfil        ; ITS binary file?
  633.      skipe ebtflg        ; Or eight bit mode?
  634.      jrst [    caie t2, ^d9    ;[BT] 9-bit?
  635.         cain t2, ^d8    ; Yes, is the byte size 8?
  636.           jrst getchb    ;[170] If so go adjust byte count if necessary.
  638. ***** CHANGE #12; PAGE 202, LINE 8; PAGE 202, LINE 8
  639.  
  640. ; Or, if we're to do 7-bit input, fix the byte count for that.
  641.  
  642.     caie t2, 7        ; If the bytesize is not 7 or 8, treat as 7.
  643.      cain t2, ^d8        ;[170] (don't do this to 8-bit files!
  644.      skipa            ;[170]  ...)
  645.      jrst [    movei t3, ^d36    ; Must convert, get the size of a word.
  646.         idiv t3, t2    ; Divide by the byte size.
  647.         move q1, bytcnt    ; Get the number of bytes in file.
  648.         idiv q1, t3    ; Divide by the bytes/word to get words.
  649.         imuli q1, 5    ; Multiply by 5 (as if 7bit bytes).
  650.         movem q1, bytcnt ; Save the new byte count.
  651.         jrst getch2 ]    ; Go map in page.
  652.  
  653.  ---------------------------------
  654.  
  655. ; Or, if we're to do 7-bit input, fix the byte count for that.
  656.  
  657.     caie t2, 7        ; If the bytesize is not 7 or 8, treat as 7.
  658.      cain t2, ^d8        ;[170] (don't do this to 8-bit files!
  659.      jrst getchb        ;[170]  ...)
  660.     caie t2, ^d9        ;[BT] Don't touch 9-bit
  661.      jrst getchb        ;[BT]
  662.     movei t3, ^d36        ; Must convert, get the size of a word.
  663.     idiv t3, t2        ; Divide by the byte size.
  664.     move q1, bytcnt        ; Get the number of bytes in file.
  665.     idiv q1, t3        ; Divide by the bytes/word to get words.
  666.     imuli q1, 5        ; Multiply by 5 (as if 7bit bytes).
  667.     movem q1, bytcnt    ; Save the new byte count.
  668.     jrst getch2        ; Go map in page.
  669.  
  671. ***** CHANGE #13; PAGE 205, LINE 16; PAGE 205, LINE 16
  672. mapi:    movx t2, <.fhslf,,mappag> ; Form our fork,,mapping page
  673.     movx t3, pm%rd        ; Just want to read it.
  674.     PMAP%            ; Map it in.
  675.      %jsker <Can't map in file page>,r ;  Error, fail.
  676.     move t3, [point 7, mappag*1000]    ; Success, get a pointer to the page.
  677.     skipn itsfil        ;[75] An ITS binary file?
  678.      skipe ebtflg        ; Or eight bit access?
  679.      hrli t3, (point 8,)    ; Yes, then use 8-bit pointer.
  680.  ---------------------------------
  681. mapi:    movx t2, <.fhslf,,mappag> ; Form our fork,,mapping page
  682.     movx t3, pm%rd        ; Just want to read it.
  683.     PMAP%            ; Map it in.
  684.      %jsker <Can't map in file page>,r ;  Error, fail.
  685.     move t3, [point 7, mappag*1000]    ; Success, get a pointer to the page.
  686.     move t4, ebtflg        ;[BT]
  687.     cain t4, 1        ;[BT] 8-bit?
  688.      hrli t3, (point 8,)    ; Yes, then use 8-bit pointer.
  689.     cain t4, 3        ;[BT] 9-bit?
  690.      hrli t3, (point 9,)    ;[BT]
  691.     skipe itsfil        ;[75] An ITS binary file?
  692.      hrli t3, (point 8,)    ; Yes, then use 8-bit pointer.
  694. ***** CHANGE #14; PAGE 209, LINE 40; PAGE 209, LINE 40
  695.     aos pagno        ; Advance the file page number.
  696.  
  697. ; Rewind the memory page back to word 0.
  698.  
  699. putch4:    move t1, [point 7, mappag*1000]    ; Success, make a pointer
  700.     skipn itsfil        ;[75]
  701.      skipe ebtflg        ; of the appropriate
  702.      hrli t1, (point 8,)    ; byte size.
  703.     movem t1, pagptr    ; Store it.
  704.  ---------------------------------
  705.     aos pagno        ; Advance the file page number.
  706.  
  707. ; Rewind the memory page back to word 0.
  708.  
  709. putch4:    move t1, [point 7, mappag*1000]    ; Success, make a pointer
  710.     move t4, ebtflg        ;[BT]
  711.     cain t4, 1        ;[BT] 8-bit?
  712.      hrli t1, (point 8,)
  713.     cain t4, 3        ;[BT] 9-bit?
  714.      hrli t1, (point 9,)    ;[BT]
  715.     skipe itsfil        ;[75]
  716.      hrli t1, (point 8,)    ;[BT]
  717.     movem t1, pagptr    ; Store it.
  719. ***** CHANGE #15; PAGE 267, LINE 25; PAGE 267, LINE 25
  720.     tmsg <, file bytesize >    ; File bytesize
  721.     numout bytsiz
  722.     skipl rcving        ; I/O bytesize, only if sending
  723.      jrst [    tmsg <, i/o bytesize >
  724.         movei t2, 7
  725.         skipn itsfil    ;[75]
  726.          skipe ebtflg
  727.          movei t2, 8
  728.         numout t2
  729.  ---------------------------------
  730.     tmsg <, file bytesize >    ; File bytesize
  731.     numout bytsiz
  732.     skipl rcving        ; I/O bytesize, only if sending
  733.      jrst [    tmsg <, i/o bytesize >
  734.         movei t2, 7
  735.         move t3, ebtflg    ;[BT]
  736.         cain t3, 1    ;[BT]
  737.          movei t2, ^d8
  738.         cain t3, 3    ;[BT]
  739.          movei t2, ^d9    ;[BT]
  740.         skipe itsfil    ;[75]
  741.          movei t2, ^d8    ;[BT]
  742.         numout t2
  744. ***** CHANGE #16; PAGE 271, LINE 4; PAGE 271, LINE 4
  745.     retskp            ; And return, with success.
  746.  
  747. ;[6] (this whole routine, just for fun...)
  748.  
  749. moon:    saveac <5,6>
  750.  
  751. ; This code stolen from MOON.MAC (anybody know who wrote it?).
  752. ; Just changed OUTCHR's to PBOUT%'s via a macro.  - Frank.
  753. ;
  754.     setzb 3,4
  755.     seto 2,
  756.     ODCNV%
  757.      erjmp r
  758.     tlz 4,77
  759.     IDCNV%
  760.  ---------------------------------
  761.     retskp            ; And return, with success.
  762.  
  763. ;[6] (this whole routine, just for fun...)
  764.  
  765. moon:    saveac <q1,q2>
  766.  
  767. ; This code stolen from MOON.MAC (anybody know who wrote it?).
  768. ; Just changed OUTCHR's to PBOUT%'s via a macro.  - Frank.
  769. ;
  770.     setzb t3,t4
  771.     seto t2,
  772.     ODCNV%
  773.      erjmp r
  774.     tlz t4,77
  775.     IDCNV%
  777. ***** CHANGE #17; PAGE 271, LINE 21; PAGE 271, LINE 21
  778.      erjmp r        ; Return upon any error.
  779.     tmsg <, Moon: >        ; OK so far, say what we're doing.
  780.  
  781. ; AC2= Universal time adjusted for time zone.
  782.  
  783.     move 1,2        ; Right place.
  784.     sub 1,newmn        ; Sub off base new moon
  785.     idiv 1,period        ; Divide by the period
  786.     idiv 2,perio4        ; Get fractions of a period
  787.     camg 3,perio8        ; Check for pahse + or -
  788.      jrst moon1        ; Not more than 3+ days
  789.  
  790.     sub 3,perio4        ; Make it next phase -n days
  791.     cain 2,3        ; Is it LQ+3D+?
  792.      tdza 2,2        ; It is
  793.      aoj 2,            ; Increment phase
  794.  
  795. moon1:    hllz 1,table(2)        ; Get SIXBIT phase
  796.     skipge 3        ; 3 < 0 then minus phase output
  797.      tloa 1,'-'        ; -
  798.      tloa 1,'+'        ; +
  799.      movms 3        ; Fix mag of 3
  800.     move 2,[point 6,1]    ; Byte pointer
  801.     movei 5,2        ; Loop 3 times
  802.  
  803. moon2:    ildb 4,2        ; Get a character
  804.     addi 4," "        ; Make ASCII
  805.     OUTCHR 4        ; Type it
  806.     sojge 5,moon2        ; Loop
  807.  
  808.     movsi 4,-4        ; Make aobjn pointer
  809.     ;...
  810.  
  811. moon3:    hrrz 2,table(4)        ; Get a multiplier
  812.     trz 2,774000        ; Strip off ascii character
  813.     imuli 3,(2)        ; Get the value decoded
  814.     hlrz 1,3        ; Get value
  815.     tlz 3,-1        ; Zap old LH
  816.     move 5,1        ; Use 5 & 6 here
  817.     idivi 5,12        ; Radix 10
  818.     addi 5,60        ; Make ASCII
  819.     caile 5,60        ; Check for leading zero
  820.      OUTCHR 5        ;  Type it.
  821.     addi 6,60        ; Make ASCII
  822.     OUTCHR 6
  823.     ldb 5,[point 7,table(4),24] ; Get d/h/m/s
  824.     OUTCHR 5        ; Type it.
  825.     OUTCHR ["."]        ; Follow with a dot.
  826.     aobjn 4,moon3        ; Loop.
  827.  
  828.  ---------------------------------
  829.      erjmp r        ; Return upon any error.
  830.     tmsg <, Moon: >        ; OK so far, say what we're doing.
  831.  
  832. ; AC2= Universal time adjusted for time zone.
  833.  
  834.     move t1,t2        ; Right place.
  835.     sub t1,newmn        ; Sub off base new moon
  836.     idiv t1,period        ; Divide by the period
  837.     idiv t2,perio4        ; Get fractions of a period
  838.     camg t3,perio8        ; Check for pahse + or -
  839.      jrst moon1        ; Not more than 3+ days
  840.  
  841.     sub t3,perio4        ; Make it next phase -n days
  842.     cain t2,3        ; Is it LQ+3D+?
  843.      tdza t2,t2        ; It is
  844.      aoj t2,        ; Increment phase
  845.  
  846. moon1:    hllz t1,mtable(t2)    ; Get SIXBIT phase
  847.     skipge t3        ; 3 < 0 then minus phase output
  848.      tloa t1,'-'        ; -
  849.      tloa t1,'+'        ; +
  850.      movms t3        ; Fix mag of t3
  851.     move t2,[point q2,t1]    ; Byte pointer
  852.     movei q1,2        ; Loop 3 times
  853.  
  854. moon2:    ildb t4,t2        ; Get a character
  855.     addi t4," "        ; Make ASCII
  856.     OUTCHR t4        ; Type it
  857.     sojge q1,moon2        ; Loop
  858.  
  859.     movsi t4,-4        ; Make aobjn pointer
  860.     ;...
  861.  
  862. moon3:    hrrz t2,mtable(t4)    ; Get a multiplier
  863.     trz t2,774000        ; Strip off ascii character
  864.     imuli t3,(t2)        ; Get the value decoded
  865.     hlrz t1,t3        ; Get value
  866.     tlz t3,-1        ; Zap old LH
  867.     move q1,t1        ; Use q1 & q2 here
  868.     idivi q1,12        ; Radix 10
  869.     addi q1,60        ; Make ASCII
  870.     caile q1,60        ; Check for leading zero
  871.      OUTCHR q1        ;  Type it.
  872.     addi q2,60        ; Make ASCII
  873.     OUTCHR q2
  874.     ldb q1,[point 7,mtable(t4),24] ; Get d/h/m/s
  875.     OUTCHR q1        ; Type it.
  876.     OUTCHR ["."]        ; Follow with a dot.
  877.     aobjn t4,moon3        ; Loop.
  878.  
  880. ***** CHANGE #18; PAGE 273, LINE 13; PAGE 273, LINE 13
  881. per==35,,422752            ; 29d.12h.53m.19s
  882. period:    per
  883. perio4:    per/4
  884. perio8:    per/10
  885.  
  886. table:    byte(18)'NM '(7)"d"(11)^D1 ; New moon - days - 1
  887.     byte(18)'FQ '(7)"h"(11)^D24 ; First quarter - hours - 24
  888.  ---------------------------------
  889. per==35,,422752            ; 29d.12h.53m.19s
  890. period:    per
  891. perio4:    per/4
  892. perio8:    per/10
  893.  
  894. mtable:    byte(18)'NM '(7)"d"(11)^D1 ; New moon - days - 1
  895.     byte(18)'FQ '(7)"h"(11)^D24 ; First quarter - hours - 24
  896.  
  897. ------------------------------
  898.  
  899. Date: Wed, 17 Feb 1988  23:03 MST
  900. From: "Frank J. Wancho" <WANCHO@SIMTEL20.ARPA>
  901. Subject: Using TOPS-20 Kermit with 9-Bit Files
  902.  
  903. The KCC DEC-20 C compiler defaults to 9-bit files when you create a file
  904. with "wb" for its own reasons - the internal character types are 9-bit, and
  905. four 9-bit quantities on a read will properly pick up all 36 bits in a
  906. PDP-10 word.  However, all you have to do is change the "wb" in the open to
  907. "w8" and you will get the expected behavior, i.e. 8-bit files which DEC-20
  908. Kermit can recognize automatically.
  909.  
  910. ------------------------------
  911.  
  912.  7-Jun-88 22:50:12-EDT,2542;000000000011
  913. Return-Path: <BEEBE@SCIENCE.UTAH.EDU>
  914. Received: from SCIENCE.UTAH.EDU by CU20B.CC.COLUMBIA.EDU with TCP; Tue 7 Jun 88 22:50:05-EDT
  915. Date: Tue 7 Jun 88 20:48:57-MDT
  916. From: "Nelson H.F. Beebe" <Beebe@SCIENCE.UTAH.EDU>
  917. Subject: Bug in Kermit-20
  918. To: sy.fdc@CU20B.COLUMBIA.EDU
  919. cc: BEEBE@SCIENCE.UTAH.EDU
  920. X-US-Mail: "Center for Scientific Computing, South Physics, University of Utah, Salt Lake City, UT 84112"
  921. X-Telephone: (801) 581-5254
  922. Message-ID: <12404684836.20.BEEBE@SCIENCE.UTAH.EDU>
  923.  
  924. We are running NFS-20 here on our 20/60, giving our Suns
  925. access to the -20 file system, plus good things like
  926. archiving, undelete, expunge, and multiple generations.
  927.  
  928. Sun's Network File system (NFS) is odd in that it does not
  929. conform to the age-old open--process--close model of I/O,
  930. but instead simply has a lookup (==> create if necessary)
  931. operation, plus read/write.
  932.  
  933. As a consequence of this, the NFS-20 server never is told
  934. when the Sun NFS client is done with the file, so it never
  935. can officially close the file.  Thus, we end up with NFS-20
  936. files which have 0 page count, and non-zero byte count, with
  937. the latter to be believed.  A periodic CHFDB% to set the
  938. page count is expensive, and also leads to funny things like
  939. INFORMATION (about) DISK reporting negative pages-in-user
  940. counts.
  941.  
  942. If the file is copied with the -20 COPY command, the page
  943. count then gets set to a correct non-zero value.  Otherwise,
  944. NFS-20, and most -20 programs that use SIN%/SOUT% or
  945. BIN%/BOUT% instead of PMAP%, are perfectly happy to deal
  946. with the file.  I had to fix Chris Maio's -20 implementation
  947. of Unix tar to do the page mapping correctly in the effect
  948. in a zero page count and non-zero byte count.
  949.  
  950. Tonight, I discovered that Kermit-20 has a similar
  951. deficiency -- a transfer of such a (8-bit) file sent exactly
  952. 2048 bytes, implying that one page was read, even though
  953. more bytes were available.  This is a double error -- (1)
  954. the byte count was not used, and (2) using the page count
  955. with a test at the end of a loop, instead at the beginning,
  956. would explain the transfer of 1 page instead of 0 page.
  957.  
  958. I don't expect you to fix this, because I know we all would
  959. like to put -20 MACRO programming to rest and switch to C.
  960. Just thought I'd let you know, though, for historical
  961. purposes.  I expect our -20 will be around a couple of years
  962. yet, but eventually, we too will have to bid it a fond
  963. farewell.
  964.  
  965. I'm off on a 2-month trip to Europe and India on Thursday,
  966. so you won't hear from me until I get back.
  967. -------
  968.  8-Jun-88 09:17:29-EDT,871;000000000001
  969. Mail-From: SY.FDC created at  8-Jun-88 09:17:23
  970. Date: Wed 8 Jun 88 09:17:23-EDT
  971. From: Frank da Cruz <SY.FDC@CU20B.CC.COLUMBIA.EDU>
  972. Subject: Re: Bug in Kermit-20
  973. To: Beebe@SCIENCE.UTAH.EDU
  974. In-Reply-To: <12404684836.20.BEEBE@SCIENCE.UTAH.EDU>
  975. Message-ID: <12404799240.28.SY.FDC@CU20B.CC.COLUMBIA.EDU>
  976.  
  977. You're right.  The fix would be in the routine GETCH, which already reads the
  978. byte count and adjusts it if necessary for various reasons.  After doing that
  979. it, it should calculate the number of pages based on the byte count (bytcnt)
  980. and byte size (bytsiz), rounded up to the next whole number, and store it in
  981. pagcnt.  Of course, this assumes that the FDB's byte count is more reliable
  982. than its page count, in all cases (which might not always be true).  I'll add
  983. your message and this reply to the "beware file".  Thanks for the report.
  984. - Frank
  985. -------
  986.