Merge pull request #107 from skx/add-comment

Added "#.com", which allows us to have comments

fcb/fcb.go

@@ -311,7 +311,7 @@ func (f *FCB) DoesMatch(name string) bool {
 
 	// Repeat for the suffix.
 	for i, c := range f.Type {
-		if (tmp.Type[i] != c) && (f.Type[i] != '?') {
+		if (t[i] != c) && (t[i] != '?') {
 			return false
 		}
 	}

static/A/#.COM

@@ -0,0 +1 @@
+�

static/Makefile

@@ -2,11 +2,14 @@
 #
 # The files we wish to generate.
 #
-all: A/CCP.COM A/CONSOLE.COM A/CTRLC.COM A/QUIET.COM
+all: A/\#.COM A/CCP.COM A/CONSOLE.COM A/CTRLC.COM A/QUIET.COM
 
 #
 # How to build them all - repetitive.
 #
+A/\#.COM:
+	pasmo comment.z80 A/#.COM
+
 A/CCP.COM:
 	pasmo ccp.z80 A/CCP.COM
 

static/README.md

@@ -21,6 +21,9 @@ The embedded resources do not have 100% full functionality, you cannot bundle a
 
 * [ccp.z80](ccp.z80)
   * Change the CCP in-use at runtime.
+* [comment.z80](comment.z80)
+  * Source to a program that does nothing, output to "`#.COM`".
+  * This is used to allow "`# FOO`" to act as a comment inside submit-files.
 * [console.z80](console.z80)
   * Toggle between ADM-3A and ANSI console output.
 * [ctrlc.z80](ctrlc.z80)

static/comment.z80

@@ -0,0 +1,26 @@
+;; comment.z80 - A "do nothing" binary.
+;;
+;; This binary is useful because it allows SUBMIT-files
+;; to contain comments.  As everything is a binary in
+;; CP/M we can implement comments by just creating a command
+;; named "#" then the following will do nothing:
+;;
+;;    # FOO BAR
+;;
+;; In reality the #.COM binary is loaded and "FOO BAR" are passed
+;; to it as arguments.  But the end result is "nothing" as this
+;; binary immediately terminates.
+;;
+
+
+        ;;
+        ;; CP/M programs start at 0x100.
+        ;;
+        ORG 100H
+
+        ;;
+        ;; JP 0x0000, but shorter
+        ;;
+        rst 0
+
+END