Subversion Repositories pentevo

Rev

Rev 888 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
888 savelij 1
 
1010 savelij 2
; LAST UPDATE: 19.07.2020 savelij
888 savelij 3
 
1010 savelij 4
; 稪  SD 
888 savelij 5
SDCARDBOOT      DI
6
                LD HL,ERS_FLAGS
1010 savelij 7
                SET B_RUN_FAT,(HL)              ; ࠡ 㤥  FAT
8
        RST8 _COM_DEV,_KOL_VOL
888 savelij 9
                LD A,E
10
                AND A
11
                JP Z,_STUPID
1010 savelij 12
                LD HL,ADR_CAT-0X100             ;  㤠  ⠡  ࠧ
888 savelij 13
                PUSH HL
1010 savelij 14
        RST8 _COM_DEV,_GET_FNDVOLUME            ; 祭 ⠡  ࠧ
888 savelij 15
                PUSH DE
16
                LD A,E
17
                DEC A
1010 savelij 18
        RST8 _COM_DEV,_SET_VOL
19
        RST8 _COM_FAT,_ROOT_DIR
888 savelij 20
                POP DE
21
                DEC E
22
                LD L,E
23
                LD H,0
24
                ADD HL,HL
25
                ADD HL,HL
26
                ADD HL,HL
27
                POP DE
28
                ADD HL,DE
29
                LD A,(HL)
30
                CP _SD_SDZ
31
                JP NZ,RESTART
32
                LD HL,BOOTNAME
1010 savelij 33
        RST8 _COM_FAT,_FIND_NAME
888 savelij 34
                JP C,_STUPID
1010 savelij 35
                LD DE,0X0B                      ; 㦥   ᬥ饭
36
                ADD HL,DE                       ;  । 䠩  ४
37
                LD A,(HL)                       ;  ⮣  㦥  
888 savelij 38
                SBC HL,DE
1010 savelij 39
                AND 0X10                        ; ஢ਫ
40
                JP NZ,RESTART                   ;  ४
888 savelij 41
                LD A,7
1010 savelij 42
        RST8 _COM_FAT,_POS_FILES
888 savelij 43
                LD HL,BUF_FILEITEM
1010 savelij 44
        RST8 _COM_FAT,_READ_DIR                 ; 稫 ⥫  ⠭ 
45
                JP GO_RUN_HOB                   ; ᫨  䠩,  ᪠  
888 savelij 46
 
47
BOOTNAME        DZ "SD_BOOT.$C"