home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / CAT17 / DSDDFRT.ARK < prev    next >
Text File  |  2006-10-19  |  6KB  |  123 lines
  1. ?
  2. _____________________________________________________________________________
  3.  
  4.                                    TI FORTH
  5.                                    --------
  6.  
  7.      This article is intended for all TI FORTH users who have (or plan on
  8. having) double density and/or double sided disk capabilities.  While the
  9. techniques described should work with any disk controller capable of double
  10. density, the author's CorComp 9900 Disk Controller card is the only one that
  11. has been tested.  The purpose of this article is to illustrate both how to
  12. access the additional screen capacity and how to modify the FORTH words and
  13. disc to be compatable with the new format and Disk Manager.
  14.  
  15.      Throughout this article lowercase letters used in a FORTH definition
  16. will indicate a variable value to be entered.  The following terms will be
  17. used to refer to the various formats a FORTH disc may have.
  18.  
  19.           90 SCRN or SSSD   - the original 90 screen single sided
  20.                               single density format.
  21.           180 SCRN          - either a SSDD or DSSD disk when
  22.                               comment applies to both.
  23.           360 SCRN or DSDD  - a double sided double density disk.
  24.                       SSDD  - a single sided double density disk.
  25.                       DSSD  - a double sided single density disk.
  26.  
  27.      The first step is to use Disk Manager to format (initialize) a 180 or
  28. 360 SCRN disk.  Next, you must copy FORTH from the 90 SCRN disk to the new
  29. 180 or 360 SCRN disk.  The disk copy feature of CorComp's Disk Manager will
  30. d this properly for you.  If you have two drives, the FORTH-COPY word in the
  31. -COPY screens will also do it properly (do 0 DISK_LO ! first).  However, if
  32. you are using TI's Disk Manager II, after copying the three files you must
  33. use FORTH to copy screens 1 to 9 because Disk Manager II puts them in the
  34. wrong place!  To do this, enter the following for each of the nine screens.
  35.  
  36.           n BLOCK UPDATE (where n is the screen number to be read from old
  37.                           disk)
  38.           FLUSH          (after inserting the new disk - note: up to five
  39.                           screens may be entered at a time)
  40.  
  41.      Now edit screen 3 of your new disk and add the following commands:
  42.  
  43.           x DISK_SIZE !  (where x=180 or 360 as appropriate)
  44.           y DISK_HI   !  (where y=x times 1, 2 ,3 or 4 depending on the
  45.                           number of drives you have)
  46.  
  47.      Unfortunately, TI FORTH does not provide a method for configuring each
  48. drive individually.  Therefore, the user must be cognizant of which screens
  49. are available on each drive when there are differences between them.
  50.  
  51.      At this point, FORTH can be booted and it will recognize the full
  52. capacity of your 180 or 360 SCRN disk.  You can create, edit, list, and load
  53. from screens greater than 89.  However, neither Disk Manager nor FORTH-COPY
  54. will recognize this disk as having more than 90 screens.  To fix this
  55. problem you must modify the -COPY screens (39 and 40), the disk header
  56. (sector 0) and, the SYS-SCRNS file header (sector 4).
  57.  
  58.      First edit screen 39.  Change the value 90, which appears once in DTEST
  59. and twice in FORTH-COPY to 180 or 360 as appropriate.  Next, edit screen 40
  60. as follows:
  61.  
  62.      Line 3 - change 168 to 2D0 for 180 SCRN or 5A0 for 360 SCRN.
  63.  
  64.      Line 4 - change 944 to 1244 for SSDD or DSDD (no change for DSSD).
  65.  
  66.      Line 5 - replace entire line with:
  67.  
  68.               DUP 10 + 2028 SWAP ! DUP 12 + a SWAP ! DUP 14 + 24 0 FILL
  69.  
  70.               where a = 0201 for DSSD, 0102 for SSDD, or 0202 for DSDD.
  71.  
  72.      Line 10 - change 165 to 2CD for 180 SCRN, or 59D for 360 SCRN.
  73.  
  74.      Line 13 - change 4016 to C02C for 180 SCRN, or C059 for 360 SCRN.
  75.  
  76.   Next edit screen 33 to modify the FORMAT-DISK word to:
  77.  
  78.           : FORMAT-DISK 1 + a 33616 ! 18 SYSTEM ;
  79.  
  80.           where a = 258 for DSSD, 513 for SSDD, 514 for DSDD.
  81.  
  82.      Finally, you need to create a word that will modify the header sectors
  83. on your new disk.  This word only needs to be executed once since copies of
  84. this disk, once it's modified, will not require modification.  Here is the
  85. way to do it:
  86.  
  87.       HEX 0 DISK_LO !            ( removes disk fence)
  88.       :  DD-FORTH 0 BLOCK UPDATE ( read screen 0 and mark as updated)
  89.             DUP A + a SWAP !     ( a = 2D0 for 180 SCRN, 5A0 for 360 SCRN)
  90.             DUP C + b SWAP !     ( b = 944 for DSSD, 1244 for SSDD or DSDD)
  91.             DUP 10 + c SWAP !    ( c = 2028 for all versions)
  92.             DUP 12 + d SWAP !    ( d = 201 on DSSD, 102 on SSDD, 202 on DSDD)
  93.                 38 + C8 FF FILL  ( flag all sectors as in use)
  94.  
  95.                 1 BLOCK UPDATE   ( read screen 1 and mark as updated)
  96.             DUP E + f SWAP !     ( f = 2A0 for 180 SCRN, 570 for 360 SCRN)
  97.             DUP 1C + g SWAP !    ( g = 4D20 for 180 or 360 SCRN versions)
  98.             DUP 1E + h SWAP !    ( h = 2805 for 180 SCRN, 5205 for 360 SCRN)
  99.                 20 + i SWAP !    ( i = F029 for 180 SCRN, F059 for 360 SCRN)
  100.          FLUSH ;                 ( write modified screens to disk)
  101.       DECIMAL DD-FORTH
  102.  
  103.      Now your new high capacity copy of FORTH is fully compatable with Disk
  104. Manager, the FORTH format, copy, test, and header words and your double
  105. density and/or double sided drives and controller.  Enjoy!
  106.  
  107. *****************************************************************************
  108.  
  109. Special thanks to Jim Vincent who is the FORTH columist for the 99'ers Users
  110. Group Association.
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118. U)3=GUUUUUUUU
  119.  
  120. Download complete.  Turn off Capture File.
  121.  
  122.  
  123.