mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
50 lines
1006 B
NASM
50 lines
1006 B
NASM
T858C: db "PATH=",0 ; áâப
|
||
|
||
;///////////////////////////////////////////////////
|
||
;
|
||
; PATH. “áâ ®¢ª ¯ãâ¨
|
||
;
|
||
;///////////////////////////////////////////////////
|
||
cmd_path:
|
||
ld a,(de) ; ª®¬-áâப
|
||
or a
|
||
jr z,A85B9 ; à£ã¬¥â®¢ ¥ ¡ë«®
|
||
; ãáâ. ¯ãâì
|
||
inc de
|
||
cp 9 ; Tab
|
||
jr z,cmd_path
|
||
cp " "+1
|
||
jr c,cmd_path
|
||
dec de
|
||
ex de,hl
|
||
dec hl
|
||
ld (hl),"="
|
||
dec hl
|
||
ld (hl),"H"
|
||
dec hl
|
||
ld (hl),"T"
|
||
dec hl
|
||
ld (hl),"A"
|
||
dec hl
|
||
ld (hl),"P" ; ç «® áâப¨ ¨¬¥¨
|
||
ld bc,Dss.Environ.Set ; ãáâ ./㤠«¨âì ¯¥à¥¬. ®ªà㦥¨ï
|
||
RST ToDSS
|
||
call c,print_err_message ; ¢ë¢®¤ á®®¡é¥¨ï
|
||
ret
|
||
|
||
; <20>®ª § âì á¨áâ¥¬ë© ¯ãâì
|
||
A85B9: ;ld de,T9186 ; ªã¤
|
||
ld de,Buffers.work.buffer1;
|
||
ld hl,T858C ; ¨¬ï ¯¥à¥¬¥®© "PATH="
|
||
ld bc,Dss.Environ.Get ; ¯®«ãç¨âì ¯¥à¥¬¥ãî ®ªà㦥¨ï
|
||
RST ToDSS
|
||
jp c,print_err_message ; ¢ë¢®¤ á®®¡é¥¨ï
|
||
ld hl,T858C ; "PATH=",0
|
||
ld c,Dss.PChars
|
||
RST ToDSS
|
||
;ld hl,T9186 ; áâப
|
||
ld hl,Buffers.work.buffer1;
|
||
ld c,Dss.PChars
|
||
RST ToDSS
|
||
jp newline
|