mirror of
https://github.com/Tolik-Trek/Crazy-Blaster.git
synced 2026-06-15 09:31:37 +03:00
24 lines
686 B
NASM
24 lines
686 B
NASM
////////////////////////////////////////////////////////////////////////
|
|
; ”ãªæ¨ï #1E. ˆä®à¬ æ¨ï ® ⥪ã饬 ª â «®£¥.
|
|
;
|
|
; ¢å®¤: HL - ¡ãä¥à ¢ ¯ ¬ï⨠256 ¡ ©â
|
|
; ¢ë室: A - ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
|
|
////////////////////////////////////////////////////////////////////////
|
|
CURRDIR: LD DE,CORE_BUFFERS.WorkDirectory
|
|
JR CURRDIR_FN.skip
|
|
CURRDIR_FN:
|
|
LD DE,CORE_BUFFERS.CurrentDirectory
|
|
.skip: EX DE,HL
|
|
LD BC,DIRECTORY_PATH_LENGTH ;[x] 15/11/2023 ¬®£«® ¢ë©â¨ § ¯à¥¤¥«ë ¡ãä¥à
|
|
XOR A
|
|
.loop: CP (HL)
|
|
LDI
|
|
JP PO,.error ;[x] 15/11/2023 ¬®£«® ¢ë©â¨ § ¯à¥¤¥«ë ¡ãä¥à
|
|
JR NZ,.loop
|
|
RET
|
|
;[x] 15/11/2023 ¬®£«® ¢ë©â¨ § ¯à¥¤¥«ë ¡ãä¥à
|
|
.error: LD A,DSS_Error.sys.TOO_DEEP_DIR_DEPTH
|
|
SCF
|
|
RET
|
|
;
|
|
; |