     case lyric = 0x05
     case marker = 0x06
     case cuePoint = 0x07
+    case devicePortName = 0x09
     case channelPrefix = 0x20
     case midiPort = 0x21
     case endOfTrack = 0x2F

    public var length: Int
    public var description: String {
        var nameStr: String = ""
        if type == .trackName || type == .instrumentName {
            nameStr = "- \(name!)"
        }
        return type.description + " \(length) bytes long \(nameStr)"

            return "Marker"
        case .cuePoint:
            return "Cue Point"
        case .devicePortName:
            return "Device (Port) Name"
        case .channelPrefix:
            return "Channel Prefix"
        case .midiPort:
