Apple-2-SW/prodos-path
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-path.git synced 2024-06-26 03:29:31 +00:00
Code Issues Projects Releases Wiki Activity

tidy

Browse Source
This commit is contained in:
Joshua Bell 2019-01-08 08:02:16 -08:00
parent 30f5b40835
commit 585c5b0df3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
path.s
View File

@ -180,6 +180,8 @@ check_if_token:
lda path_buffer lda path_buffer
beq not_ours beq not_ours
;; TODO: skip leading spaces
;; Ensure it's alpha ;; Ensure it's alpha
lda INBUF lda INBUF
page_num7 := *+2 ; address needing updating page_num7 := *+2 ; address needing updating
@ -225,14 +227,12 @@ next_char:
;; Otherwise, advance to next token ;; Otherwise, advance to next token
next_token: next_token:
ldx #0 ; Start next match at start of input line ldx #0 ; Start next match at start of input line
;; TODO: skip leading spaces sloop: lda (ptr),y ; Scan table looking for a high bit set
@loop: lda (ptr),y ; Scan table looking for a high bit set
iny iny
bne :+ bne :+
inc ptr+1 inc ptr+1
: asl : asl
bcc @loop ; High bit clear, keep looking bcc sloop ; High bit clear, keep looking
lda (ptr),y ; End of table? lda (ptr),y ; End of table?
bne next_char ; Nope, check for a match bne next_char ; Nope, check for a match
beq maybe_invoke beq maybe_invoke