The fix for the LIST command bug in the original source is pretty simple.
You have to increment the pointer so the loop doesn't get stuck on the same character..
Change this code:
LE49C stab UNCRFL ; store flags byte
jsr RVEC12 ; call UNCRUNCH extension hook
cmpa #$C8 ; compare with highest token value (MEM)
bhi LE462 ; output exclamation point (!) for invalid tokens
To this:
LE49C stab UNCRFL ; store flags byte
jsr RVEC12 ; call UNCRUNCH extension hook
cmpa #$C8 ; compare with highest token value (MEM)
ble skip
inc TMPTR1
This raises a question. With numerous stories of people trying to load CoCo BASIC programs into the MC-10 when they were kids, why didn't anyone mentions this bug?
You have to increment the pointer so the loop doesn't get stuck on the same character..
Change this code:
LE49C stab UNCRFL ; store flags byte
jsr RVEC12 ; call UNCRUNCH extension hook
cmpa #$C8 ; compare with highest token value (MEM)
bhi LE462 ; output exclamation point (!) for invalid tokens
To this:
LE49C stab UNCRFL ; store flags byte
jsr RVEC12 ; call UNCRUNCH extension hook
cmpa #$C8 ; compare with highest token value (MEM)
ble skip
inc TMPTR1
bra LE462 ; output exclamation point (!) for invalid tokens
skip
This raises a question. With numerous stories of people trying to load CoCo BASIC programs into the MC-10 when they were kids, why didn't anyone mentions this bug?
No comments:
Post a Comment