mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-16 01:41:17 +03:00
30 lines
579 B
NASM
30 lines
579 B
NASM
;/////////////////////////////////////////////////////////////////////
|
||
; ”ãªæ¨ï #02. <20>®¬¥à ⥪ã饣® ¤¨áª .
|
||
;
|
||
; ¢å®¤: ¥â
|
||
; ¢ë室: A - ®¬¥à ¤¨áª (0=A,1=B,..)
|
||
; C - ®¬¥à ¯®á«¥¤¥£® ¤¨áª ¢ á¨á⥬¥
|
||
;/////////////////////////////////////////////////////////////////////
|
||
CURDISK_FN:
|
||
;
|
||
IF OLD_DSS_FOR_OLD_EXE
|
||
; [ ] 10/06/24
|
||
LD A,(EXE_VERSION)
|
||
OR A
|
||
JR Z,CURDISK
|
||
;
|
||
ENDIF
|
||
LD A,(LDRIVE)
|
||
LD C,A
|
||
LD A,(CORE_BUFFERS.CurrentPath)
|
||
SUB 'A'
|
||
RET NC
|
||
LD A,DSS_Error.sys.INVALID_DRIVE
|
||
RET
|
||
CURDISK:
|
||
LD A,(LDRIVE)
|
||
LD C,A
|
||
LD A,(CORE_BUFFERS.FatBuffer.DRIVE)
|
||
AND A
|
||
RET
|
||
; |