Fixed lexical analysis of DATA

This commit is contained in:
Richard Russell committed 2025-02-16 15:03:39 +00:00
1 parent bf56aa6852
commit 4e8a802fc1
3 files changed
+3 -2

No files matched your search

Binary file not shown.
Binary file not shown.
+3 -2
View File
@@ -12,6 +12,7 @@
;VERSION 3.0, 01-03-1987 ;VERSION 3.0, 01-03-1987
;VERSION 5.0, 31-05-2024 ;VERSION 5.0, 31-05-2024
;VERSION 5.1, 10-08-2024 ;VERSION 5.1, 10-08-2024
;VERSION 5.2, 16-02-2025
; ;
EXTRN XEQ EXTRN XEQ
EXTRN RUN0 EXTRN RUN0
@@ -2107,14 +2108,14 @@ LEXAN7: CP '*'
JR Z,LEXAN9 JR Z,LEXAN9
OR A OR A
CALL P,LEX ;TOKENISE IF POSS. CALL P,LEX ;TOKENISE IF POSS.
CP TDATA
JR Z,LEXAN9
CP TOKLO CP TOKLO
JR C,LEXAN8 JR C,LEXAN8
CP TOKHI+1 CP TOKHI+1
JR NC,LEXAN8 JR NC,LEXAN8
ADD A,OFFSET ;LEFT VERSION ADD A,OFFSET ;LEFT VERSION
LEXAN8: CP TREM LEXAN8: CP TREM
JR Z,LEXAN9
CP TDATA
JR NZ,LEXANA JR NZ,LEXANA
LEXAN9: SET 6,C ;QUIT TOKENISING LEXAN9: SET 6,C ;QUIT TOKENISING
LEXANA: CP TFN LEXANA: CP TFN