← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/simh/intrepid

« back to all changes in this revision

Viewing changes to H316/h316_dp.c

  • Committer: Bazaar Package Importer
  • Author(s): Vince Mulhollon
  • Date: 2005-05-30 19:25:10 UTC
  • mfrom: (1.1.3 upstream) (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050530192510-npcvtltga170kziw
Tags: 3.4.0-1
New upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
H316/h316_dp.c
27
27
                4651 disk subsystem
28
28
                4720 disk subsystem
29
29
 
 
30
   01-Dec-04    RMS     Fixed bug in skip on !seeking
 
31
 
30
32
   The Honeywell disks have the unique characteristic of supporting variable
31
33
   formatting, on a per track basis.  To accomodate this, each track is
32
34
   simulated as 2048 words, divided into records.  (2048 words accomodates
433
435
            u = fnc - 011;
434
436
        case 007:                                       /* !not seeking 7 */
435
437
            if (!sim_is_active (&dp_unit[u]) ||         /* quiescent? */
436
 
                (dp_unit[u].FNC & 017) != FNC_SEEK) return IOSKIP (dat);
 
438
                (dp_unit[u].FNC != (FNC_SEEK | FNC_2ND)))
 
439
                return IOSKIP (dat);                    /* seeking sets late */
437
440
            break;  }
438
441
        break;
439
442
case ioEND:                                             /* end of range */
816
819
        sim_cancel (&dp_unit[i]);                       /* cancel activity */
817
820
        dp_unit[i].FNC = 0;                             /* clear function */
818
821
        dp_unit[i].CYL = 0;  }
 
822
CLR_INT (INT_DP);                                       /* clear int, enb */
 
823
CLR_ENB (INT_DP);
819
824
return SCPE_OK;
820
825
}
821
826