- Implemented support for the Orthogonal extension into

  both the assembler, and the emulator.

  I finally figured out how I could get support for the
  Ortho extension implemented into the old assembler.

  The only reason for doing this, is to buy me some
  while I start work on the new assembler, and to help
  me get an idea for how to do the same in the new
  assembler.

1 files changed, 11 insertions, 1 deletions

diff --git a/lexer.h b/lexer.h
index 356fad0..8775187 100644
--- a/lexer.h
+++ b/lexer.h
@@ -52,6 +52,11 @@ static uint8_t get_ptok(char c, uint8_t dbg) {
 	case 'Y': case 'y' : return PTOK_Y	;
 	case 'S': case 's' : return PTOK_S	;
 	case 'P': case 'p' : return PTOK_P	;
+	case 'A': case 'a' : return PTOK_A	;
+	case 'C': case 'c' : return PTOK_C	;
+	case 'D': case 'd' : return PTOK_D	;
+	case 'F': case 'f' : return PTOK_F	;
+	case 'R': case 'r' : return PTOK_R	;
 		  case '\"': return PTOK_DQUOTE	;
 		  case '\'': return PTOK_SQUOTE	;
 		  case '#' : return PTOK_HASH	;
@@ -76,7 +81,12 @@ static uint8_t is_altok(uint8_t ptok, uint8_t dbg) {
 		case PTOK_X:
 		case PTOK_Y:
 		case PTOK_S:
-		case PTOK_P: return 1;
+		case PTOK_P:
+		case PTOK_A:
+		case PTOK_C:
+		case PTOK_D:
+		case PTOK_F:
+		case PTOK_R: return 1;
 		default    : return 0;
 	}
 }