Compare commits
2 Commits
v0.1.0
...
c9b665d509
Author | SHA1 | Date | |
---|---|---|---|
c9b665d509 | |||
3943b5502a
|
@@ -25,7 +25,7 @@ int main(void) {
|
|||||||
; Copyright (c) 2025 Gale Faraday\n\
|
; Copyright (c) 2025 Gale Faraday\n\
|
||||||
; Licensed under MIT\n\
|
; Licensed under MIT\n\
|
||||||
\n\
|
\n\
|
||||||
; This file generated by bbmkcmds.c\n\
|
; This file generated by bbmkhash.c\n\
|
||||||
\n\
|
\n\
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n\
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n\
|
||||||
;;\n\
|
;;\n\
|
||||||
|
16
src/buzbee.s
16
src/buzbee.s
@@ -44,6 +44,7 @@ BUZBEE
|
|||||||
bsr INPLOOP ; Fill input buffer.
|
bsr INPLOOP ; Fill input buffer.
|
||||||
cmpy #0 ; No data?
|
cmpy #0 ; No data?
|
||||||
beq BUZBEE ; Try again...
|
beq BUZBEE ; Try again...
|
||||||
|
lbsr MKINSENSITIVE ; Make the input buffer case insensitive
|
||||||
lbsr TOKENIZE ; Try to tokenize the input buffer
|
lbsr TOKENIZE ; Try to tokenize the input buffer
|
||||||
lbsr RUNIF ; Execute token buffer, handling any errors
|
lbsr RUNIF ; Execute token buffer, handling any errors
|
||||||
bra BUZBEE ; Repeat
|
bra BUZBEE ; Repeat
|
||||||
@@ -127,6 +128,21 @@ NEXT@
|
|||||||
ldy #0 ; Reset buffer fill pointer
|
ldy #0 ; Reset buffer fill pointer
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
; Makes the input buffer case insensitive
|
||||||
|
MKINSENSITIVE
|
||||||
|
NEXTC@
|
||||||
|
lda BBVAR.input,x
|
||||||
|
cmpa #'z ; Is the char outside the lowercase range?
|
||||||
|
bhi NOTLCASE@ ; Yes? Skip offset part
|
||||||
|
cmpa #'a ; Again on the other side of the range
|
||||||
|
blo NOTLCASE@
|
||||||
|
anda #$DF ; -32
|
||||||
|
NOTLCASE@
|
||||||
|
leax 1,x ; Ready next char
|
||||||
|
cmpx BBVAR.cchinput ; Are we at the end?
|
||||||
|
bne NEXTC@ ; No? Loop
|
||||||
|
rts
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;;
|
;;
|
||||||
;; Hex Conversion and Printing Routines
|
;; Hex Conversion and Printing Routines
|
||||||
|
Reference in New Issue
Block a user