← Back to branch summary

~ubuntu-branches/ubuntu/raring/simh/raring

« back to all changes in this revision

Viewing changes to HP2100/hp2100_dp.c

  • Committer: Bazaar Package Importer
  • Author(s): Vince Mulhollon
  • Date: 2007-04-13 20:16:15 UTC
  • mfrom: (1.1.7 upstream) (2.1.3 lenny)
  • Revision ID: james.westby@ubuntu.com-20070413201615-jiar46bgkrs0dw2h
Tags: 3.7.0-1
* New upstream released 03-Feb-2007
* i7094 added which emulates the IBM 7090/7094
* Upstream has converted almost entirely to pdf format for docs
* All manpages updated
* All docs are registered with the doc-base system

Show diffs side-by-side

added added

removed removed

Lines of Context:
HP2100/hp2100_dp.c
1
1
/* hp2100_dp.c: HP 2100 12557A/13210A disk simulator
2
2
 
3
 
   Copyright (c) 1993-2005, Robert M. Supnik
 
3
   Copyright (c) 1993-2006, Robert M. Supnik
4
4
 
5
5
   Permission is hereby granted, free of charge, to any person obtaining a
6
6
   copy of this software and associated documentation files (the "Software"),
26
26
   dp           12557A 2871 disk subsystem
27
27
                13210A 7900 disk subsystem
28
28
 
 
29
   28-Dec-06    JDB     Added ioCRS state to I/O decoders (action unverified)
29
30
   01-Mar-05    JDB     Added SET UNLOAD/LOAD
30
31
   07-Oct-04    JDB     Fixed enable/disable from either device
31
32
                        Fixed ANY ERROR status for 12557A interface
395
396
        dat = dpd_ibuf;
396
397
        break;
397
398
 
 
399
    case ioCRS:                                         /* control reset (action unverif) */
398
400
    case ioCTL:                                         /* control clear/set */
399
401
        if (IR & I_CTL) {                               /* CLC */
400
402
            clrCTL (devd);                              /* clr ctl, cmd */
449
451
        if (!dp_ctype) break;
450
452
        IR = IR | I_CTL;                                /* 13210 OTx causes CLC */
451
453
 
 
454
    case ioCRS:                                         /* control reset (action unverif) */
452
455
    case ioCTL:                                         /* control clear/set */
453
456
        if (IR & I_CTL) {                               /* CLC? */
454
457
            clrCTL (devc);                              /* clr cmd, ctl */