Changeset 2 for branches/Z80/Compiler.dpr

Timestamp:

Nov 6, 2009, 10:24:38 AM (15 years ago)

Author:

george

Message:

• Přidáno: Třída pro obsluhu čísel s dynamickou velikostí.
• Přidáno: Struktury pro vytváření specifikace assembleru a strojových kódů.

Location:

branches/Z80

Files:

• . (modified) (1 prop)
• Compiler.dpr (modified) (2 diffs)

branches/Z80/Compiler.dpr

@@ -6 +6 @@
 {R-}
 {  $M 16384,0,655360   }
-
-uses
-  UZ80Compiler in 'UZ80Compiler.pas';
 
 CONST
@@ -455 +452 @@
          done := FALSE;
          WHILE (Length(line)>0) AND NOT done DO BEGIN
-            word := word + Upcase(line[1]);
+      word := word + Upcase(line[1]);
             Delete(line,1,1);
-            IF Length(line)>0 THEN
+      IF Length(line)>0 THEN
                done := Pos(Upcase(line[1]),AlphaNumeric)=0;
          END;