Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-15 01:11:48 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
SHELL/BATCH.ASM
View File

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

1
SHELL/EXEC.ASM
View File

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

2
Shared_Includes

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