Estex-DSS/DSS/API/ChDir.asm

////////////////////////////////////////////////////////////////////////
; ”ã­ªæ¨ï #1D. ‘¬¥­  ⥪ã饣® ª â «®£ .
; Œ¥­ï¥â ⥪ã騩 ª â «®£ ¨ ⥪ã騩 ¤¨áª, ¥á«¨ ®­ 㪠§ ­ ¢ ä ©«®¢®©
; ᯥæ¨ä¨ª æ¨¨. …᫨ ¯ãâì ­ ç¨­ ¥âáï á "\" - íâ® ®§­ ç ¥â ¯ãâì ®â
; ª®à­¥¢®£® ª â «®£ , ¨­ ç¥ ®â ⥪ã饣®.
;
; ¢å®¤: HL - 㪠§ â¥«ì ­  ¨¬ï ª â «®£ 
; ¢ë室: ­¥â
;
;  INPUT: HL - "C:\DIR\DIR\DIR_NAME[\]",0
////////////////////////////////////////////////////////////////////////
CHDIR_FN:
	;!TEST Current Dir ;[x] 15/10/23
	 ;
	 IF OLD_DSS_FOR_OLD_EXE
	 ; [ ] 10/06/24
	  LD	A,(EXE_VERSION)
	  OR	A
	  JR	Z,CHDIR
	 ;
	 ENDIF
	 ;
	 PUSH	HL
	 CALL	DIR_PATH_CHECK
	 POP	HL
	 RET	C
	 CALL	CHDIR
	 ; ¥á«¨ 㤠筮, â® ª®¯¨à㥬 WorkDirectory ¢ CurrentDirectory
	 JP	NC,DIR_PATH_CHANGE.FullCurrent
	 ; ¥á«¨ ­¥ã¤ ç­®, â® ¢®§¢à é ¥¬áï â㤠 ®âªã¤  ¯à¨è«¨ 
	 PUSH	AF
	 LD	HL,CORE_BUFFERS.CurrentDirectory
	 CALL	CHDIR
	 POP	AF
	 RET
	;
CHDIR:	CALL	GETWORD		; â¥áâ ­  ¤®¯ãáâ. ¨¬ï ¨ ­ áâà. ­  ¤¨áª
	RET	C
	LD	HL,TMPNAME
	LD	A,(HL)
	OR	A
	RET	Z
	JP	OPENDIR
;