Mit Arduino UNO das (externe) ROM von Sharp Pocket Computern auslesen

// Externes 64kB ROM (Bank1, Bank2, Bank3, Bank4) vom Sharp PC-1403 auslesen
// Je Byte 2x4 bit parallel über EXT1-EXT4 übertragen, Handshake mit Fo3 und IN1

unsigned long RomAdr = 16384; // Beginn ext. ROM
int indexBk = 0;
byte ByteArray[4]; // Speicherbereich für 4 Bytes (Bank 1 - Bank 4)
const int IN_Ext1 = 2; // Pin D2, Ext1 Sharp PC-1403, pin 11 der 11-pol. Buchsenleiste
const int IN_Ext2 = 3; // Pin D3, Ext2 Sharp PC-1403, pin 10 der 11-pol. Buchsenleiste
const int IN_Ext3 = 4; // Pin D4, Ext3 Sharp PC-1403, pin  5 der 11-pol. Buchsenleiste
const int IN_Ext4 = 5; // Pin D5, Ext4 Sharp PC-1403, pin  8 der 11-pol. Buchsenleiste
const int IN_Fo3  = 6; // Pin D6, Fo3  Sharp PC-1403, pin  4 der 11-pol. Buchsenleiste
const int OUT_IN1 = 7; // Pin D7, IN1  Sharp PC-1403, pin  9 der 11-pol. Buchsenleiste
const int InfoLED = 13;
byte DataBit1;
byte DataBit2;
byte DataBit3;
byte DataBit4;
byte DataBit5;
byte DataBit6;
byte DataBit7;
byte DataBit8;
byte Nib1;
byte Nib2;
byte DataByte = 0;
int Vorher;
int Jetzt;

void setup() {
  Serial.begin(115200);
  pinMode(IN_Fo3, INPUT);
  pinMode(IN_Ext1, INPUT);
  pinMode(IN_Ext2, INPUT);
  pinMode(IN_Ext3, INPUT);
  pinMode(IN_Ext4, INPUT);
  pinMode(OUT_IN1, OUTPUT);
  pinMode(InfoLED, OUTPUT);
  Serial.println("Ext. ROM PC-1403 64kB");
  Serial.println("Adr. ;Bk1;Bk2;Bk3;Bk4");
  Vorher = millis();
}

void loop() {
  if (digitalRead(IN_Fo3)) { // Data available
    digitalWrite(InfoLED, HIGH);   
    digitalWrite(OUT_IN1, LOW);
    DataBit1 = digitalRead(IN_Ext1);
    DataBit2 = digitalRead(IN_Ext2);
    DataBit3 = digitalRead(IN_Ext3);
    DataBit4 = digitalRead(IN_Ext4);
    while (digitalRead(IN_Fo3));   
    while (!digitalRead(IN_Fo3));    
    DataBit5 = digitalRead(IN_Ext1);
    DataBit6 = digitalRead(IN_Ext2);
    DataBit7 = digitalRead(IN_Ext3);
    DataBit8 = digitalRead(IN_Ext4);
    while (digitalRead(IN_Fo3));
    Nib1 = DataBit1 | (DataBit2 << 1) | (DataBit3 << 2) | (DataBit4 << 3);
    Nib2 = (DataBit5 << 4) | (DataBit6 << 5) | (DataBit7 << 6) | (DataBit8 << 7);
    DataByte = Nib1 | Nib2;
    AddByte();
    DataByte = 0;
    digitalWrite(InfoLED, LOW);
    digitalWrite(OUT_IN1, HIGH);
    Vorher = millis();
  }
  Jetzt = millis();
  if ((Jetzt - Vorher) > 5) {
    RomAdr = 16384;
    digitalWrite(OUT_IN1, LOW);
  }
} // Ende loop

void AddByte() {
  ByteArray[indexBk] = DataByte;
  indexBk++;
  if (indexBk == 4) {
    indexBk = 0;
    SerialPrintBytes();
    RomAdr++;
  }
}

void SerialPrintBytes() {
  Serial.print(RomAdr);
  Serial.print(';');
  for (int y=0; y<4; y++) {
    byte d = ByteArray[y];
    if (d < 10) Serial.print(char(32));
    if (d < 100) Serial.print(char(32));
    Serial.print(d);
    if (y < 3) Serial.print(';');
  }
  Serial.println();
}

10:RESTORE
20:FOR X=0 TO 97
30:READ D
40:POKE &F100+X,D
50:NEXT X
60:END
100:"A"
110:CALL &F100
120:BEEP 1
140:END
200:DATA &85,2,&3F,219,&84,2,&FF,219
210:DATA 16,&3C,&00,2,0,82,36,120,&F1,&4B
220:DATA 16,&3C,&00,2,1,82,4,37,120,&F1,&4B
230:DATA 16,&3C,&00,2,10,82,4,37,120,&F1,&4B
240:DATA 16,&3C,&00,2,11,82,4,37,120,&F1,&4B
250:DATA &85,99,&7F,58,7,&84,99,&FF,58,2,55
260:DATA 16,&3C,&00,214,128,57,3,107,8,126,&F1,&08,55
270:DATA 16,&3A,&00,82,18,&5E,97,4,95,206,96,0,95
280:DATA 88,82,97,4,95,206,96,0,95,55

// Externes ROM vom Sharp PC-1401 auslesen
// 2x4 bit parallel ueber Fo1,Fo2,IB7,IB8 uebertragen, Handshake mit Xo und Xi

unsigned long RomAdr = 32768; // Beginn ext. ROM
const int IN_Fo1 = 2; // Pin D2, Fo1 Sharp PC-1401, pin 4 der 11-pol. Buchsenleiste
const int IN_Fo2 = 3; // Pin D3, Fo2 Sharp PC-1401, pin 5 der 11-pol. Buchsenleiste
const int IN_IB7 = 4; // Pin D4, IB7 Sharp PC-1401, pin 9 der 11-pol. Buchsenleiste
const int IN_IB8 = 5; // Pin D5, IB8 Sharp PC-1401, pin 8 der 11-pol. Buchsenleiste
const int IN_Xo  = 6; // Pin D6, Xo  Sharp PC-1401, pin 7 der 11-pol. Buchsenleiste
const int OUT_Xi = 7; // Pin D7, Xi  Sharp PC-1401, pin 6 der 11-pol. Buchsenleiste
const int InfoLED = 13;
byte DataBit1;
byte DataBit2;
byte DataBit3;
byte DataBit4;
byte DataBit5;
byte DataBit6;
byte DataBit7;
byte DataBit8;
byte Nib1;
byte Nib2;
byte DataByte = -1;
unsigned long Vorher;
unsigned long Jetzt;
boolean StartTransmission = false;

void setup() {
  Serial.begin(115200);
  pinMode(IN_Xo, INPUT);
  pinMode(IN_Fo1, INPUT);
  pinMode(IN_Fo2, INPUT);
  pinMode(IN_IB7, INPUT);
  pinMode(IN_IB8, INPUT);
  pinMode(OUT_Xi, OUTPUT);
  pinMode(InfoLED, OUTPUT);
  Serial.println("Ext.ROM;PC-1401 32kB");
  Serial.println("Adresse;Inhalt");
  Vorher = millis();
}

void loop() {
  if (!StartTransmission) { // Trigger fuer Datenuebertragung
    if (digitalRead(IN_Fo1)) StartTransmission = true;  
  }
  if (digitalRead(IN_Xo) && StartTransmission) { // Data available
    digitalWrite(InfoLED, HIGH);   
    digitalWrite(OUT_Xi, LOW);
    DataBit1 = digitalRead(IN_Fo1);
    DataBit2 = digitalRead(IN_Fo2);
    DataBit3 = digitalRead(IN_IB7);
    DataBit4 = digitalRead(IN_IB8);
    while (digitalRead(IN_Xo));   
    while (!digitalRead(IN_Xo));    
    DataBit5 = digitalRead(IN_Fo1);
    DataBit6 = digitalRead(IN_Fo2);
    DataBit7 = digitalRead(IN_IB7);
    DataBit8 = digitalRead(IN_IB8);
    while (digitalRead(IN_Xo));
    Nib1 = DataBit1 | (DataBit2 << 1) | (DataBit3 << 2) | (DataBit4 << 3);
    Nib2 = (DataBit5 << 4) | (DataBit6 << 5) | (DataBit7 << 6) | (DataBit8 << 7);
    DataByte = Nib1 | Nib2;
    Serial.print(RomAdr);
    Serial.print(';');
    Serial.println(DataByte);
    DataByte = -1;
    RomAdr++;
    digitalWrite(InfoLED, LOW);
    digitalWrite(OUT_Xi, HIGH);
    Vorher = millis();
  }
  Jetzt = millis();
  if ((Jetzt - Vorher) > 5) {
    StartTransmission = false;
    RomAdr = 32768;
    digitalWrite(OUT_Xi, LOW);
  }
} // Ende loop

10:RESTORE
20:FOR X=0 TO 68
30:READ D
40:POKE &4100+X,D
50:NEXT X
60:END
100:"A"
110:CALL &4100
120:BEEP 1
130:END
200:DATA &85,2,&7F,219,&84,2,&FF,219
210:DATA 36,18,&5E,219,95
220:DATA 219,52,81,88,219,221
230:DATA 18,&5F,2,16,219,223,77,2,0,219,223
240:DATA 91,81,88,219,95
250:DATA 219,88,81,219,221
260:DATA 18,&5F,2,16,219,223,206,2,64,219,223
270:DATA &85,99,&FF,58,7,&84,99,&FF,58,2,55
280:DATA 107,128,57,3,121,&41,&08