TCIA

type TCIA = record

  ciapra: Byte;

  pad0: array [0..254] of Byte;

  ciaprb: Byte;

  pad1: array [0..254] of Byte;

  ciaddra: Byte;

  pad2: array [0..254] of Byte;

  ciaddrb: Byte;

  pad3: array [0..254] of Byte;

  ciatalo: Byte;

  pad4: array [0..254] of Byte;

  ciatahi: Byte;

  pad5: array [0..254] of Byte;

  ciatblo: Byte;

  pad6: array [0..254] of Byte;

  ciatbhi: Byte;

  pad7: array [0..254] of Byte;

  ciatodlow: Byte;

  pad8: array [0..254] of Byte;

  ciatodmid: Byte;

  pad9: array [0..254] of Byte;

  ciatodhi: Byte;

  pad10: array [0..254] of Byte;

  unusedreg: Byte;

  pad11: array [0..254] of Byte;

  ciasdr: Byte;

  pad12: array [0..254] of Byte;

  ciaicr: Byte;

  pad13: array [0..254] of Byte;

  ciacra: Byte;

  pad14: array [0..254] of Byte;

  ciacrb: Byte;

end;