More Windows diskette updates

modules/pcjs/lib/serialport.js

@@ -105,8 +105,12 @@ function SerialPort(parmsSerial) {
      * If controlIOBuffer is being used AND 'tabSize' is set, then we make an attempt to monitor the characters
      * being echoed via echoByte(), maintain a logical column position, and convert any tabs into the appropriate
      * number of spaces.
+     *
+     * charBOL, if nonzero, is a character to automatically output at the beginning of every line.  This probably
+     * isn't generally useful; I use it internally to preformat serial output.
      */
     this.tabSize = parmsSerial['tabSize'];
+    this.charBOL = parmsSerial['charBOL'];
     this.iLogicalCol = 0;
 
     Component.call(this, "SerialPort", parmsSerial, SerialPort, Messages.SERIAL);
@@ -837,6 +841,7 @@ SerialPort.prototype.echoByte = function(b)
                 nChars = tabSize - (this.iLogicalCol % tabSize);
                 if (this.tabSize) s = str.pad("", nChars);
             }
+            if (this.charBOL && !this.iLogicalCol && nChars) s = String.fromCharCode(this.charBOL) + s;
             this.controlIOBuffer.value += s;
             this.controlIOBuffer.scrollTop = this.controlIOBuffer.scrollHeight;
             this.iLogicalCol += nChars;

modules/pcjs/templates/components.xsl

@@ -717,6 +717,12 @@
 				<xsl:otherwise/>
 			</xsl:choose>
 		</xsl:variable>
+		<xsl:variable name="charBOL">
+			<xsl:choose>
+				<xsl:when test="@charbol"><xsl:value-of select="@charbol"/></xsl:when>
+				<xsl:otherwise>0</xsl:otherwise>
+			</xsl:choose>
+		</xsl:variable>
 		<xsl:variable name="tabSize">
 			<xsl:choose>
 				<xsl:when test="@tabsize"><xsl:value-of select="@tabsize"/></xsl:when>
@@ -726,7 +732,7 @@
 		<xsl:call-template name="component">
 			<xsl:with-param name="machine" select="$machine"/>
 			<xsl:with-param name="class">serial</xsl:with-param>
-			<xsl:with-param name="parms">,adapter:<xsl:value-of select="$adapter"/>,binding:'<xsl:value-of select="$binding"/>',tabSize:<xsl:value-of select="$tabSize"/></xsl:with-param>
+			<xsl:with-param name="parms">,adapter:<xsl:value-of select="$adapter"/>,binding:'<xsl:value-of select="$binding"/>',tabSize:<xsl:value-of select="$tabSize"/>,charBOL:<xsl:value-of select="$charBOL"/></xsl:with-param>
 		</xsl:call-template>
 	</xsl:template>