mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 01:11:48 +03:00
20 lines
486 B
NASM
20 lines
486 B
NASM
;/////////////////////////////////////////////////////////////////////
|
||
; ”ãªæ¨ï #02. <20>®¬¥à ⥪ã饣® ¤¨áª .
|
||
;
|
||
; ¢å®¤: ¥â
|
||
; ¢ë室: A - ®¬¥à ¤¨áª (0=A,1=B,..)
|
||
; C - ®¬¥à ¯®á«¥¤¥£® ¤¨áª ¢ á¨á⥬¥
|
||
;/////////////////////////////////////////////////////////////////////
|
||
CURDISK_FN: 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.FS_Buffer.DRIVE)
|
||
AND A
|
||
RET
|
||
; |