RESCUE.COM VERSION 2.0 Author: Steve Mitton 7662 Fallswood Way Lorton, Va. 22039 (tel 703 339-5842) Language: TURBO PASCAL ver 3.0 Noteº RESCUE.PAÓ waó writteî foò publiã domaiî uså only® Iô              ió noô intendeä foò commerciaì use. Purpose: Tï locatå losô texô iî memorù anä writå iô tï á filå               calleä RESCUE.TXT® Background: Manù  timeó aî oveò anxiouó programmer¬  especiallù iî               TURBÏ  PASCAL¬  wilì  attempô tï ruî á ne÷  oò  updateä               prograí  beforå  thå  texô ió saveä  tï  á  file®  Thió               practicå caî causå mucè grieæ iæ thå prograí getó hunç               uð iî aî infinitå loop¬  oò thå prograí causeó á  warí               booô  bacë tï thå operatinç system®  Severaì  articleó               havå  beeî publisheä iî magazineó anä cluâ  newsletteró               whicè  outlineó  á  fouò steð procesó tï  recoveò  losô               text®  Thå algorithí useä tï accomplisè thió tasë ió aó               follows:           1. Locatå  losô  texô iî memorù witè  DDT.COM¬  á                        transienô  prograí froí Digitaì Researcè  thaô                        ió provideä witè theiò CP/Í operatinç  system¬                        notinç  thå addresó wherå thå texô startó  anä                        ends.           2. Calculatå thå sizå oæ thå texô usinç DDT'ó 'h§                        command¬ converô thió tï decimaì anä dividå bù                        25¶  (decimal© tï geô thå numbeò oæ  pageó  tï                        savå (iî decimal).           3. Movå texô sï that iô startó aô addresó 10° HEØ                        usinç thå DDÔ 'm§ command.           4. Save text usinç thå CP/M 'save' command®           RESCUE.COÍ  simplifieó  thió  cumbersomå  process®   Iô               provideó  á safå anä useò friendlù mechanisí thaô  wilì               enablå  itó useò tï comfortablù searcè memorù anä enteò               thå  addresseó wherå thå texô beginó  anä  ends®  Witè               thió  informatioî RESCUE.COÍ wilì writå thaô  specifieä               blocë oæ memorù tï thå filå RESCUE.TXT. 1          Detailed Operationaì Algorithmº              ±. Displaù builô iî documentation 2. Display Help Menu 3. Begin search for lost text using commands in menu 4. Mark START address - 'S' command 5® Continuå searcè foò enä oæ losô texô usinç commandó in menu           6. Mark END address - 'E' command 7. Verify START/END addresses and drive to write RESCUE.TXT 8. If step #7 is OK (a) Write file RESCUE.TXT (b) EXIT program otherwise (a) Make necessary corrections using commands in menu (b) Continue at step #7 Rescue operating commands: Q -- To QUIT rescue operation. ===> TO SEARCH THROUGH MEMORY <=== B  -- Tï BEGIÎ thå search®  Thå defaulô addresó tï begiî                    thå scrolì ió 16000¬ sincå RESCUE.COÍ ió 16K. Note: Iô  ió doubtfuì thaô RESCUÅ wilì overwritå youò                       texô  wheî iô ió loaded®  However¬  iæ foò  anù                       reasoî yoõ thinë youò texô ió iî thå firsô  16Ë                       oæ  memory¬   uså  thå  CP/Í  savå  commanä  aó                       followsº A>save 63 rescue.16K           Thió  filå  caî theî bå  calleä  bù  DDT.COM¬                         moveä  tï higheò memorù anä theî rescueä witè                         RESCUE.COÍ aó follows: A>ddt rescue.16k (type this) DDT VER 2.2 (see this) NEXT PC (watch for '_' prompt) 4000 100 _m100,4000,4100 (type this) _^C A¾   ¨loaä RESCUÅ anä proceed) Š 2 A -- To specify an ADDRESS to start/restart scrolling. Note: TURBÏ  PASCAÌ anä WORÄ STAÒ alwayó loaä  youò                         texô aô thå samå address. TURBO PASCAL ver 3.0 loads text beginning at 31733. WORÄ STAÒ veò 3.³ loadó texô beginninç aô 33901. ^S -- Temporarily pauses or resumes scroll. M -- Halts scroll and displays help MENU. C -- CONTINUÅ  thå  scrolì froí thå lasô addresó  shown®                   Rescue.coí  alwayó  keepó  tracë  oæ  lasô  addresó                   scanned. ===> TO RECLAIM AN AREA OF MEMORY <=== S -- Tï specifù á STARTINÇ addresó foò  rescue.txt®  Seå                   notå undeò 'A§ above. E -- Tï  specifù  aî ENDINÇ address®  Thå starô  addresó                   musô bå markeä beforå anä enä addresó ió  selected®                   Oncå botè starô anä enä addresseó havå beeî chosen¬                   thå  useò  wilì  bå givå á chancå tï  verifù  theså                   addresseó aó welì aó thå drivå yoõ wanô  RESCUE.TXÔ                   senô to. WARNING: Tï bå surå youò filå containó aî END-OF-                              FILÅ characteò selecô thå addresó oæ thå                              linå  thaô ió aô leasô twï  lineó  belo÷                              wherå yoõ seå thå enä oæ youò text. D -- Tï  specifù thå DRIVÅ thaô rescue.txô ió tï bå senô                   tï (Á thrõ P)® Iæ noô selecteä thå defaulô drivå ió                   assumed. W -- Tï  WRITÅ  RESCUE.TXT  tï  thå disë  iî  thå  drivå                   specified® Yoõ wilì bå giveî á chancå tï verifù thå                   drivå  selecteä anä thå starô anä endinç  addresseó                   beforå RESCUE.TXÔ ió written. Command notes: 1. Anù   erroò   wilì  resulô  iî  aî   appropriatå                      diagnostiã message¬  whicè wilì bå displayeä  aô                      thå toð oæ thå Helð Menu® 2® Aô thå enä oæ 64Ë oæ memorù yoõ wilì bå  warneä           anä thå scrolì wilì continuå froí addresó 00001. Š 3 Limitations: 1. Thió prograí waó writteî foò á 64Ë CP/M system® Manù                  oæ  thå input/outpuô calló arå madå directlù tï  thå                  CP/M operatinç systeí tï facilitatå easå oæ uså  anä                  tï  perforí  thå necessarù filå  writinç  functions®                  Witè  somå  minoò  modificationó RESCUE.PAÓ  caî  bå                  adapteä foò uså witè MS-DOÓ systems®           2. RESCUÅ  wilì  onlù  bå  effectivå  tï  recoveò  texô                  actuallù iî memory¬  thereforå foò largå files¬ onlù                  thå  portioî stilì iî memorù ió recoverable®  Foò  á                  64Ë  systeí usinç WORÄ STAR¬  RESCUÅ caî  recoveò  á                  filå uð to about 25Ë iî length.          I'ä  bå  delighteä  tï  heaò  anù  feedback¬  successeó  oò          failures¡ Gooä luck!! 4