1
0
mirror of https://github.com/TomHarte/CLK.git synced 2024-12-11 15:49:38 +00:00
CLK/OSBindings/Mac/Clock SignalTests/C1540Tests.swift

75 lines
1.7 KiB
Swift
Raw Normal View History

2016-07-09 19:44:55 +00:00
//
// C1540Tests.swift
// Clock Signal
//
// Created by Thomas Harte on 09/07/2016.
// Copyright 2016 Thomas Harte. All rights reserved.
2016-07-09 19:44:55 +00:00
//
import XCTest
class C1540Tests: XCTestCase {
private func with1540(_ action: (C1540Bridge) -> ()) {
let bridge = C1540Bridge()
action(bridge)
}
private func transmit(_ c1540: C1540Bridge, value: Int) {
var shiftedValue = value
c1540.dataLine = true
2016-09-16 02:12:12 +00:00
c1540.run(forCycles: 256)
XCTAssertFalse(c1540.dataLine, "Listener should have taken data line low for start of transmission")
c1540.clockLine = true
2016-09-16 02:12:12 +00:00
c1540.run(forCycles: 256) // this isn't time limited on real hardware
XCTAssertTrue(c1540.dataLine, "Listener should have let data line go high again")
// set up for byte transfer
c1540.clockLine = false
c1540.dataLine = true
2016-09-16 02:12:12 +00:00
c1540.run(forCycles: 40)
// transmit bits
for _ in 0..<8 {
// load data line
c1540.dataLine = (shiftedValue & 1) == 1
shiftedValue >>= 1
// toggle clock
c1540.clockLine = true
2016-09-16 02:12:12 +00:00
c1540.run(forCycles: 40)
c1540.clockLine = false
2016-09-16 02:12:12 +00:00
c1540.run(forCycles: 40)
}
// check for acknowledgment
c1540.dataLine = true
2016-09-16 02:12:12 +00:00
c1540.run(forCycles: 1000)
XCTAssertFalse(c1540.dataLine, "Listener should have acknowledged byte")
}
// MARK: EOI
2016-07-09 21:22:10 +00:00
func testTransmission() {
with1540 {
2016-07-09 21:22:10 +00:00
// allow some booting time
2016-09-16 02:12:12 +00:00
$0.run(forCycles: 2000000)
2016-07-09 21:22:10 +00:00
// I want to be talker, so hold attention and clock low with data high
2016-07-09 21:22:10 +00:00
$0.clockLine = false
$0.attentionLine = false
$0.dataLine = true
2016-07-09 21:22:10 +00:00
// proceed 1 ms and check that the 1540 pulled the data line low
2016-09-16 02:12:12 +00:00
$0.run(forCycles: 1000)
XCTAssertFalse($0.dataLine, "Listener should have taken data line low")
// transmit LISTEN #8
transmit($0, value: 0x28)
}
}
2016-07-09 19:44:55 +00:00
}