update to the socialize script and some assembler output and a disk image

diff --git a/figd6809.dsk b/figd6809.dsk
new file mode 100644 (file)
index 0000000..afbd711
Binary files /dev/null and b/figd6809.dsk differ

diff --git a/junkpile/a_03.out b/junkpile/a_03.out
new file mode 100644 (file)
index 0000000..afb9cad
Binary files /dev/null and b/junkpile/a_03.out differ

diff --git a/junkpile/figd6809.bin b/junkpile/figd6809.bin
new file mode 100644 (file)
index 0000000..afb9cad
Binary files /dev/null and b/junkpile/figd6809.bin differ

diff --git a/junkpile/fige6809.bin b/junkpile/fige6809.bin
new file mode 100644 (file)
index 0000000..ff3fa45
Binary files /dev/null and b/junkpile/fige6809.bin differ

diff --git a/socialize6809.pl b/socialize6809.pl
index f067e93..d0b9552 100755 (executable)
--- a/socialize6809.pl
+++ b/socialize6809.pl
@@ -11,22 +11,31 @@
 
 while ( my $line = <> )
 {
-  if ( $line =~ m/^(\w*)\s+FCC\s+(\d+),(\S+)(.*)$/ )
+  if ( $line =~ m/^(\w*)\s+FCC\s+(\d+),(.*)$/ )
   {
     my $label = $1;
     my $symlength = $2;
     my $strfield = $3;
-    my $leftovers = $4;
     my $symbol = substr( $strfield, 0, $symlength );
+    my $leftovers = substr( $strfield, $symlength );
     my $strlength = length( $symbol );
     if ( $strlength < $symlength )
     {
-      my $difference = $symlength - $strlength;
-      $symbol .= substr( $leftovers, 0, $difference );
-      $leftovers = substr( $leftovers, $difference );
+      print "$label\tFCC error\t'$symbol' not complete to "
+            . "$symlength characters (only $strlength). ****error***";
     }
-    print "$label\tFCC\t'$symbol'\t; '$strfield'";
-    if ( $leftovers ne "" )
+    else
+    {
+      my $fullsymbol = $symbol;
+      if ( $leftovers =~ m/^(\S+)(.*)$/ )
+      {
+        $fullsymbol .= $1;
+        $leftovers = $2;
+      }
+      print "$label\tFCC\t'$symbol'\t; '$fullsymbol'";
+    }
+    
+    if ( length( $leftovers ) > 0 )
     {
       print " : $leftovers";
     }