Browse Source

+ support '(' and ')' in the 6502 inline assembler tokenizer

Nikolay Nikolov 1 month ago
parent
commit
5ff9818874
1 changed files with 14 additions and 0 deletions
  1. 14 0
      compiler/mos6502/ramos6502asm.pas

+ 14 - 0
compiler/mos6502/ramos6502asm.pas

@@ -313,6 +313,20 @@ Unit ramos6502asm;
                    exit;
                    exit;
                  end;
                  end;
 
 
+               '(' :
+                 begin
+                   actasmtoken:=AS_LPAREN;
+                   c:=current_scanner.asmgetchar;
+                   exit;
+                 end;
+
+               ')' :
+                 begin
+                   actasmtoken:=AS_RPAREN;
+                   c:=current_scanner.asmgetchar;
+                   exit;
+                 end;
+
                #13,#10:
                #13,#10:
                  begin
                  begin
                    current_scanner.linebreak;
                    current_scanner.linebreak;