Subversion Repositories ngs

Rev

Rev 111 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 111 Rev 112
Line 413... Line 413...
413
                EXX
413
                EXX
414
                LD HL,LVL_DIR
414
                LD HL,LVL_DIR
415
                LD A,(HL)                       ;ТЕКУЩИЙ УРОВЕНЬ ДИРЕКТОРИИ
415
                LD A,(HL)                       ;ТЕКУЩИЙ УРОВЕНЬ ДИРЕКТОРИИ
416
                INC (HL)                        ;СЛЕДУЮЩИЙ УРОВЕНЬ ДИРЕКТОРИИ
416
                INC (HL)                        ;СЛЕДУЮЩИЙ УРОВЕНЬ ДИРЕКТОРИИ
417
                AND A
417
                AND A
418
                LD BC,0                         ;КОЛИЧЕСТВО ЗАПИСЕЙ РУТ ДИРЕКТОРИИ
418
                LD BC,0                         ;КОЛИЧЕСТВО ЗАПИСЕЙ ROOT ДИРЕКТОРИИ
419
                JR NZ,LASTCLS1
419
                JR NZ,LASTCLS1
420
                LD A,(CAL_FAT)
420
                LD A,(CAL_FAT)
421
                CP 2
421
                CP 2
422
                JR NC,LASTCLS1
422
                JR NC,LASTCLS1
423
                LD HL,(ROOTSEC)                 ;УЖЕ НЕ ROOT ДИРЕКТОРИЯ
423
                LD HL,(ROOTSEC)                 ;УЖЕ НЕ ROOT ДИРЕКТОРИЯ