Subversion Repositories ngs

Rev

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

Rev 164 Rev 165
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 26.04.2023 savelij
 2 
; LAST UPDATE: 13.01.2024 savelij
3 
 
 3 
 
4 
STACK_CURR_DIR          EQU 0x6000      ; стек номеров дир перед входом в нее
 4 
STACK_CURR_DIR          EQU 0x6000      ; стек номеров дир перед входом в нее
5 
 
 5 
 
6 
; FAT функции по номерам
 6 
; FAT функции по номерам
7 
 INIT_VAR
 7 
 INIT_VAR
Line 947... Line 947...
947 
                LD (RootDIRCluster + 2),BC      ; номер корневого кластера
 947 
                LD (RootDIRCluster + 2),BC      ; номер корневого кластера
948 
                LD (TEK_LEV),A
 948 
                LD (TEK_LEV),A
949 
                POP AF
 949 
                POP AF
950 
                JP INIRTSC
 950 
                JP INIRTSC
951 
 
 951 
 
952 
F_EXT           DB "MP3MOD",0
 952 
F_EXT           DZ "MP3MOD"
953 
 
 953 
 
954 
CP_EXT          PUSH BC
 954 
CP_EXT          PUSH BC
955 
                PUSH DE
 955 
                PUSH DE
956 
                PUSH HL
 956 
                PUSH HL
957 
                LD C,0
 957 
                LD C,0
Line 988... Line 988...
988 
                INC HL
 988 
                INC HL
989 
                INC DE
 989 
                INC DE
990 
                DJNZ .L1
 990 
                DJNZ .L1
991 
                RET
 991 
                RET
992 
 
 992 
 
- 
 
 993 
; открытие файла
- 
 
 994 
; на выходе:
- 
 
 995 
; A - тип файла (1 и далее)
993 
OPENFIL         CALL SET_MP3
 996 
OPENFIL         CALL SET_MP3
994 
                CALL GETFZAP
 997 
                CALL GETFZAP
995 
                CALL CP_EXT
 998 
                CALL CP_EXT
996 
                PUSH AF
 999 
                PUSH AF
997 
                LD DE,0x14
 1000 
                LD DE,0x14
Line 1320... Line 1323...
1320 
                JR LD_F5
 1323 
                JR LD_F5
1321 
 
 1324 
 
1322 
LD_E            IN A,(GSCFG0)
 1325 
LD_E            IN A,(GSCFG0)
1323 
                RES B_EXPAG,A
 1326 
                RES B_EXPAG,A
1324 
                OUT (GSCFG0),A
 1327 
                OUT (GSCFG0),A
1325 
                LD A,(PG_PLAYER)
 1328 
                LD A,(PAGE_PLAYER)
1326 
                OUT (MPAG),A
 1329 
                OUT (MPAG),A
1327 
                LD A,(BUF_PAG+0xFF)
 1330 
                LD A,(BUF_PAG+0xFF)
1328 
                SRL A
 1331 
                SRL A
1329 
                ADC A,0
 1332 
                ADC A,0
1330 
                RET
 1333 
                RET
Line 1509... Line 1512...
1509 
                RR L
 1512 
                RR L
1510 
                SRL H
 1513 
                SRL H
1511 
                RR L
 1514 
                RR L
1512 
                LD DE,2
 1515 
                LD DE,2
1513 
                LD (KOLVMP3),HL
 1516 
                LD (KOLVMP3),HL
1514 
                LD (KOLWMP3),HL
 1517 
                LD (COUNT_MP3),HL
1515 
                AND A
 1518 
                AND A
1516 
                SBC HL,DE
 1519 
                SBC HL,DE
1517 
                EX AF,AF'
 1520 
                EX AF,AF'
1518 
                ADD HL,DE
 1521 
                ADD HL,DE
1519 
                EX AF,AF'
 1522 
                EX AF,AF'