Apple-2-SW
/
prodos-path
mirror of https://github.com/a2stuff/prodos-path.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix case insensitivity again

This commit is contained in:
Joshua Bell 2019-01-09 16:57:32 -08:00
parent aeaba90b16
commit 7747cd27cc
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
path.s
View File

@ -195,8 +195,8 @@ check_if_token:
lda #>(TOKEN_NAME_TABLE-$100) lda #>(TOKEN_NAME_TABLE-$100)
sta ptr+1 sta ptr+1
;; These start at "-1" and are immediately incremented ;; These are immediately incremented
ldx #$FF ; X = position in input line dex
ldy #$FF ; (ptr),y offset TOKEN_NAME_TABLE ldy #$FF ; (ptr),y offset TOKEN_NAME_TABLE
;; Match loop ;; Match loop
@ -266,8 +266,6 @@ maybe_invoke:
jsr skip_leading_spaces jsr skip_leading_spaces
page_num16 := *+2 ; address needing updating page_num16 := *+2 ; address needing updating
: jsr to_upper_ascii : jsr to_upper_ascii
lda INBUF,x
and #$7F
cmp #'.' cmp #'.'
beq ok beq ok
cmp #'0' cmp #'0'