mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 01:11:48 +03:00
36 lines
905 B
NASM
36 lines
905 B
NASM
;///////////////////////////////////////////////////
|
||
;
|
||
; CD, CHDIR. ‘¬¥ ª â «®£
|
||
;
|
||
;///////////////////////////////////////////////////
|
||
cmd_chdir:
|
||
ex de,hl
|
||
ld de,Buffers.work.buffer1;
|
||
ld c,Dss.GSwitch ; ¢ë¤¥«¨âì ¯ à ¬¥âà ª®¬-áâப¨
|
||
RST ToDSS
|
||
xor a
|
||
ld hl,Buffers.work.buffer1;
|
||
cp (hl)
|
||
jr nz,.chdir
|
||
ld (hl),"." ; ".." த¨â. ¯ ¯ª
|
||
inc hl
|
||
ld (hl),"."
|
||
inc hl
|
||
ld (hl),0
|
||
dec hl
|
||
dec hl
|
||
.chdir: ld c,Dss.ChDir ; ᬥ¨âì ⥪. ª â «®£
|
||
RST ToDSS
|
||
call c,print_err_message ; ¢ë¢®¤ á®®¡é¥¨ï
|
||
jp Get_Path ; á®åà. ⥪. ¤¨áª ¨ ¯ãâì
|
||
; ; ¢ë¢®¤ á¨áâ. ¯ã⨠íªà
|
||
; ld c,8Eh ; 㧠âì ¯®«®¦. ªãàá®à
|
||
; RST ToBIOS
|
||
; ld (YXpos),de ; Y/X ç «® ª®¬-áâப¨
|
||
; ld (cursor_position),de ; Y/X ¯®§¨æ¨ï ªãàá®à
|
||
; ;call print_compath ; ¢ë¢¥á⨠¯ãâì + ®¢ ï è¨à¨ ¯®«ï ¢¢®¤
|
||
; ;ld de,(YXpos) ; Y/X ç «® ª®¬-áâப¨
|
||
; ;ld c,84h ; ãáâ. ¯®«®¦. ªãàá®à
|
||
; ;RST ToBIOS
|
||
; ret
|