mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
24 lines
435 B
NASM
24 lines
435 B
NASM
////////////////////////////////////////////////////////////////////////
|
|
;
|
|
;
|
|
////////////////////////////////////////////////////////////////////////
|
|
CHDISK_FN: CALL CHDISK
|
|
RET C
|
|
PUSH AF
|
|
CALL DIR_PATH_CHANGE.FullCurrent
|
|
POP AF
|
|
RET
|
|
CHDISK: ;[x] ¡®«¥¥ ª®à४â ï ᬥ ¤¨áª
|
|
CALL OPENDSK
|
|
;
|
|
;R010
|
|
RET C
|
|
LD HL,CORE_BUFFERS.WorkDirectory
|
|
LD (HL),0
|
|
PUSH AF
|
|
CALL OPENDIR
|
|
POP BC
|
|
RET C
|
|
LD A,B
|
|
RET
|
|
; |