Fixed bug in WILDCARD (zero len segments)

2021-09-09 13:08:05 -04:00 · 2021-09-09 13:08:05 -04:00 · ee25c7b25c
parent 6245134704
commit ee25c7b25c
2 changed files with 4 additions and 2 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.wild.s
+++ b/mainmem.wild.s
@ -19,8 +19,10 @@ WILDCARD
        DEC  :LAST
 :NOTLST PHX
        LDA  SEGBUF      ; Length of segment
-        BEQ  :L1         ; Handle zero-len initial segment
-        JSR  HASWILD     ; See if it has '*'/'#'/'?'
+        BNE  :S1         ; Check for zero length segments
+        LDA  :LAST       ; If not the last segment ...
+        BEQ  :L1         ; ... go again
+:S1     JSR  HASWILD     ; See if it has '*'/'#'/'?'
        BCS  :WILD       ; It does
        JSR  APPSEG      ; Not wild: Append SEGBUF to MFTEMP
        BRA  :NEXT