'*********************************************************************
' Physical Value Element
'*********************************************************************
 
   Set xmlSymb_CharElement = xml.createElement("Symb_Char")
   xmlSymb_CharElement.Text = myVar
   myNode.appendChild xmlSymb_CharElement
 
End Sub
 
Sub subFootnoteElement(ByVal myFootPos As String, ByVal strType As String, _
  ByVal blRanks As Boolean, ByVal strFootnote As String, ByVal myNode As _
  MSXML2.IXMLDOMNode)
 
'*****************************************************************
'* Footnote
'*****************************************************************
 
    Set xmlFootnoteElement = xml.createElement("Footnote")
    myNode.appendChild xmlFootnoteElement
    subxmlAttribute "Id", myFootPos, xmlFootnoteElement
End Sub
 
Sub subCrossRefElement(ByVal myCrossRef1 As String, ByVal myCrossRef2 As _
  String, ByVal myNode As MSXML2.IXMLDOMNode)
 
'*****************************************************************
'* Footnote
'*****************************************************************
 
    Set xmlCrossRef = xml.createElement("CrossRef")
    myNode.appendChild xmlCrossRef
    subxmlAttribute "Idref", myCrossRef1, xmlCrossRef
    subxmlAttribute "type", myCrossRef2, xmlCrossRef
End Sub
 
Sub subFootnotes(ByVal myFootPos As String, ByVal strType As String, ByVal _
  blRanks As Boolean, ByVal strFootnote As String, ByVal myNode As _
  MSXML2.IXMLDOMNode)
'******************************************************************************
' ********************
'* history: 2005-06-22 removed standby from Footnote 2 for Module due to review 
' of doc T90 SO-DIMM
'*
'******************************************************************************
' ********************
   ' subFootnoteElement strAddress, myNode
    If strType = "FBDIMM" And strFootnote = "1" Then
        Dim strFootnoteText As String
        strFootnoteText = "Measured currents on RC/B according to the INTEL/" & _
          "JEDEC specifcation."
        strFootnoteText = strFootnoteText + "The measurements are done in a" & _
        "INTEL Blackford system."
        Set xmlFootnote = xml.createElement("Footnote")
        myNode.appendChild xmlFootnote
        subxmlAttribute "Id", myFootPos, xmlFootnote
        subxmlText strFootnoteText, xmlFootnote
 
    End If
 
    If strType = "FBDIMM" And strFootnote = "2" Then
 
        strFootnoteText = "RC/A and RC/H are TBD"
        Set xmlFootnote = xml.createElement("Footnote")
        myNode.appendChild xmlFootnote
        subxmlAttribute "Id", myFootPos, xmlFootnote
        subxmlText strFootnoteText, xmlFootnote
    End If