SUPER MICRO Computer MIIC-203 - Manual (Page 51)

52
ElseIf (StrComp(iPortResp$, "/BC2") = 0) Then
' iPort/AFM Baud Change 2 {115.2K}
TextBox.Text = "iPort/AFM Baud Change 0 {115.2K} "
' Test for iPort/AFM Asynchronous Interface Events
ElseIf (StrComp(iPortResp$, "/SRC") = 0) Then
' Slave Rx Complete Processing
TextBox.Text = LineBuf$
'Update Display
ElseIf (StrComp(iPortResp$, "/GRC") = 0) Then
' General Call Rx Complete Processing
TextBox.Text = LineBuf$
'Update Display
ElseIf (StrComp(iPortResp$, "/STR") = 0) Then
' Slave Tx Request Processing
Comm1.Output = "/S~00~01"
'Send Slave Tx Msg
Comm1.Output = Chr$(13) 'Terminate Command
TextBox.Text = LineBuf$ 'Update Display
ElseIf (StrComp(iPortResp$, "/NSA") = 0) Then
' iNterrupt Signal Assert Detected
TextBox.Text = iNterrupt Signal Assert Detected
'Update Display
ElseIf (StrComp(iPortResp$, "/NSR") = 0) Then
' iNterrupt Signal Release Detected
TextBox.Text = iNterrupt Signal Release Detected
'Update Display
' Test for iPort/AFM Response Messages
ElseIf (StrComp(iPortResp$, "****") = 0) Then
TextBox.Text = "* iPort/AFM Ready" 'Update Display
ElseIf (StrComp(iPortResp$, "/SNA") = 0) Then
TextBox.Text = "/SNA Slave Not Acknowledging"
ElseIf (StrComp(iPortResp$, "/I81") = 0) Then
TextBox.Text = "/I81 iPort/AFM Busy" 'Update Display
ElseIf (StrComp(iPortResp$, "/I83") = 0) Then