MODULE   ;  INITBAD6.ACT› ›; written by Ed Seward III›; last modified 17 July 1984›;›;-------------------------------------------------›;   This module is to provide access to specific›; sectors through the Resident Diskette Handler.›;-------------------------------------------------›;›;   The values of the SIO status byte ($0303)›; are provided here for those that may want to add›; some error handling.›;›;   1     -NO ERRORS›; $8A     -device doesn't respond›; $8B     -device nak›; $8C     -serial bus framing error›; $8E     -serial bus overrun error›; $8F     -serial bus checksum error›; $90     -device done error›;›; The above list of values of DSTATS is from ›; The Atari Technical Reference Notes.›;-------------------------------------------------› › ›; SIO Diskette Handler Command Bytes›  BYTE›    ddevice = $0300,       ; serial bus ID -DO NOT ALTER›    dunit   = $0301,       ; device (drive) number›    dcomnd  = $0302,       ; command byte›    dstats  = $0303        ; status byte› ›  CARD›    dbuffr  = $0304        ; buffer address LO-HI format› ›  BYTE›    dtimlo  = $0306        ; DO NOT ALTER, disk time out› ›  CARD›    dbytes  = $0308,       ; byte count›    daux    = $030A        ; sector number› ›  BYTE ARRAY›    buffer(128)› › › ›PROC Dskinv=$E453 ()         ; diskette handler vector›;›; JSR to resident diskette handler›;after setting up the Device Control Block›;RETURN› › › › › ›PROC GetSector (CHAR drive, CARD sectnum)›;procedure reads a specified sector and                 |›;places it in the array pointed to by dbuffr            |›;which should be buffer in this program                 |›;-------------------------------------------------------|›  IF ((0<drive) AND (drive<4)) AND›     ((0<sectnum) AND (sectnum<721))›    THEN›        dunit  = drive›        dcomnd = $52›        dbuffr = buffer   ; must be pointing to buffer before calling Dskinv›        daux   = sectnum›        Dskinv ()›    ELSE›        PrintE ( "INVALID REQUEST to Get a Sector")›  FI›RETURN› › › › › ›PROC PutSector_NoVerify (BYTE drive, CARD sectnum)›;this procedure takes a buffer filled with 128 bytes    |›;and writes without verify to the specified sector      |›;-------------------------------------------------------|›  IF (0<drive) AND (drive<5) AND›     (-1<sectnum) AND (sectnum<721)›    THEN›      dunit  = drive›      dcomnd = $50›      dbuffr = buffer     ; must be pointing to buffer before calling Dskinv›      daux   = sectnum›    ELSE›      PrintE (" INVALID REQUEST to Put a Sector")›  FI›RETURN› › › › › ›PROC PutSector_Verify (BYTE drive, CARD sectnum)›;this procedure takes a buffer filled with 128 bytes    |›;and writes with verify to the specified sector         |›;-------------------------------------------------------|›  IF (0<drive) AND (drive<5) AND›     (-1<sectnum) AND (sectnum<721)›    THEN›      dunit  = drive›      dcomnd = $57›      dbuffr = buffer     ; must be pointing to buffer before calling Dskinv›      daux   = sectnum›    ELSE›      PrintE (" INVALID REQUEST to Put a Sector")›  FI›RETURN› › › › › ›MODULE ;for user› ›