убран баг при переполнении переменной окружения

This commit is contained in:
Tolik Trek 2026-05-02 05:29:03 +10:00
parent 2835c7f34c
commit 269c11ab33
3 changed files with 14 additions and 2 deletions

View File

@ -280,6 +280,7 @@ CMDMODE:
;xor a
;ld (D96A6),a ; (inline.asm)
call EVALCMD ; (batch.asm)
RET C
;ld ix,T96AC ; ­ã¦­®?? § ª®¬¥­â à¨« (inline.asm)
;ld hl,T96AE ;;256 ¡ãä¥à (inline.asm)
ld hl,Buffers.input_line.Path
@ -403,7 +404,11 @@ EVALCMD: xor a
ld hl,Buffers.work.buffer2 ;work_buffer+256
ld de,Buffers.input_line.Path ; ªã¤ 
ld bc,255 ;!HARDCODE
.loop: ld a,(hl)
.loop: LD A,C
DEC A
JR Z,.error
;
ld a,(hl)
ldi
inc b
or a
@ -413,6 +418,12 @@ EVALCMD: xor a
ld (Buffers.input_line.Symbols_Num),a ; ¤«¨­  áâப¨ (edline.asm)
and a
ret
;
.error: LD (DE),A
LD A,DSS_Error.sys.ENV_ITEM_OVERFLOW
CALL print_err_message
SCF
RET
; HL - STRING WITH %VAR%
EVALSTR: ld a,(hl)

View File

@ -7,6 +7,7 @@ SAVEHL: dw 0
; <20> §¡®à ¨ ¢ë¯®«­¥­¨¥ ¢¢¥¤¥­­ëå ª®¬ ­¤ ¨ ¨¬¥­ ä ©«®¢
;-------------------------------------------------------------
COMP: call EVALCMD ; (batch.asm)
RET C
ld hl,Buffers.input_line.Path
dec hl
ld c,(hl) ; ¤«¨­  áâப¨

@ -1 +1 @@
Subproject commit e1dc7ec10dc9c7e9153a05884e42973a57378a63
Subproject commit e9eb5c7c06a16b07f348992ee8ba3557cf5884c2