Apple-2-SW/qasm
1
0
Fork 0
mirror of https://github.com/marketideas/qasm.git synced 2024-06-11 06:29:29 +00:00
Code Issues Projects Releases Wiki Activity

infinite loop parsing the command table file

Browse Source 
I don't remember the full details because it was a few months ago but there was an infinite loop on statup when parsing the command table.
This commit is contained in:
Kelvin Sherlock 2020-05-24 22:42:28 -04:00
parent fb12ad70f7
commit 1f241d42c8
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/shell/qasm2.s
View File

@ -772,22 +772,28 @@ SetCmdHdl
rts
*------------------------------------------------------
* _QAGetWord error
* $0000 -> no error
* $00xx -> no word, a = terminating character (anything less than $20, excluding \t )
* $80xx -> qa tool error
* return value will always be 0,0 if there was an error. can never be 0,0 on success.
*
:getword
REP #$20 ;force 16 bit
]loop
~QAGetWord Ptr;endword;temp ;get a word
plx
ply
beq :0 ;don't modify if no word!
stx endword
sty begword
bcc :1
tax ;real error, or just no word?
bmi :1
tax ; real error or no word?
bpl :0
rts ; carry still set
:0
inc endword ;no word- look for one!
bra ]loop
:1
stx endword
sty begword
SEP #$20
bra :gc ;get first char, uppercase!