home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / STOS / GETSECT4.ASC < prev   
Text File  |  1987-04-22  |  767b  |  16 lines
  1. 10 rem getsect4
  2. 20 rem to rescue intact data from a disc which has lost its directory
  3. 30 rem use a disc editor to find the location of your data
  4. 40 rem then define the variable accordingly in lines 60 - 120
  5. 50 reserve as work 10,512*9 : rem 9=number of sectors to be read, each of which requires 512 (bytes?) long.
  6. 60 BUFF=start(10) : rem address of buffer
  7. 70 SCRT=0 : rem filler - always 0
  8. 80 DEVN=0 : rem drive number
  9. 90 STSC=1 : rem start sector
  10. 100 TRKN=12 : rem track number
  11. 110 SIDN=0 : rem side number
  12. 120 SECN=9 : rem number of sectors to read
  13. 130 trap 14,8, .l BUFF, .l SCRT, .w DEVN, .w STSC, .w TRKN, .w SIDN, .w SECN
  14. 140 drive=1 : rem swap drives before writing bank to disc
  15. 150 save "sector11.mbk",10 : rem save bank containg data to disc
  16.