diff options
Diffstat (limited to 'programs/sub-suite/lexer.s')
-rw-r--r-- | programs/sub-suite/lexer.s | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/programs/sub-suite/lexer.s b/programs/sub-suite/lexer.s index 50bf21e..fc47f10 100644 --- a/programs/sub-suite/lexer.s +++ b/programs/sub-suite/lexer.s @@ -17,16 +17,16 @@ lex: ; pha ; Preserve the character. ; jsr isdigit ; Is this character a digit? ; pla ; Get the character back. -@getline: - ldb #1 ; Set the second pointer - lda.q lline ; to the last line. - jsr set_ptr ; - ldy #ln.next ; Set the index to the next line pointer. - lda.q (ptr2), y ; Get the next line. - jsr set_ptr ; Set the second pointer to the next line. - sta.q cline ; Make it the current line. - and #0 ; Reset A. - tay ; Reset Y. +;@getline: +; ldb #1 ; Set the second pointer +; lda.q lline ; to the last line. +; jsr set_ptr ; +; ldy #ln.next ; Set the index to the next line pointer. +; lda.q (ptr2), y ; Get the next line. +; jsr set_ptr ; Set the second pointer to the next line. +; sta.q cline ; Make it the current line. +; and #0 ; Reset A. +; tay ; Reset Y. @loop: ldy.w idx0 ; Get the string index. lda (ptr), y ; Get a character from the line. @@ -396,7 +396,7 @@ set_lexptr: set_cmdbuf: and #0 ; Reset A. tab ; Reset B. - lda.d #cmd_buf ; to the command buffer. + lda.q cmd_buf ; Set the first pointer to the command buffer. jsr set_ptr ; and #0 ; Reset A. tab ; Reset B. |