clean up errors

This commit is contained in:
Kelvin Sherlock
2015-08-14 21:43:06 -04:00
parent e3208576c2
commit 37b79d95da

View File

@@ -548,26 +548,22 @@ do_name_buffer_1 proc
lda [ptr] ; total output buffer size lda [ptr] ; total output buffer size
sec sec
sbc #4 sbc #4
bmi pre bmi error
cmp 1,s cmp 1,s
bcs ok bcs ok
bts error_store_size
pla
ldy #2 ldy #2
sta [ptr],y sta [ptr],y
error
pla
lda #buff_too_small lda #buff_too_small
sta tool_error sta tool_error
plx plx
rts rts
pre
pla
lda #parm_range_err
sta tool_error
plx
rts
ok ok
pla ; strlen pla ; strlen
ldy #2 ldy #2