Subversion Repositories ngs

Rev

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

Rev 163 Rev 165
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE 22.04.2023 savelij
 2 
; LAST UPDATE 15.01.2024 savelij
3 
 
 3 
 
4 
                include macros.a80
 4 
                include macros.a80
5 
                include ports_ngs.a80
 5 
                include ports_ngs.a80
- 
 
 6 
                include local_define.a80
6 
 
 7 
 
7 
                include local_macros.a80
 8 
                include local_macros.a80
8 
                include vers.a80
 9 
                include vers.a80
9 
 
 10 
 
10 
                include macros_sp.a80
 11 
                include macros_sp.a80
Line 13... Line 14...
13 
                include define_sp.a80
 14 
                include define_sp.a80
14 
                include ports_sp.a80
 15 
                include ports_sp.a80
15 
 
 16 
 
16 
GSCOD           EQU 0x8000                      ; адрес куда закидывать код на нгс
 17 
GSCOD           EQU 0x8000                      ; адрес куда закидывать код на нгс
17 
 
 18 
 
18 
SIZ_PAT         EQU 0x14
 - 
 
19 
 
 - 
 
20 
                ORG ADR_START
 19 
                ORG ADR_START
21 
START           DI
 20 
START           DI
22 
        IFDEF _SPRINTER
 21 
        IFDEF _SPRINTER
23 
                CALL CLS
 22 
                CALL CLS
24 
        DE_ADR_SCR ((32-(EMESS24-MESS24))/2),15
 23 
        DE_ADR_SCR ((32-(EMESS24-MESS24))/2),15
Line 167... Line 166...
167 
                LD B,0
 166 
                LD B,0
168 
                CALL WAITGS                     ; ожидаем ответа покручивавая палочку
 167 
                CALL WAITGS                     ; ожидаем ответа покручивавая палочку
169 
        IN_GSDAT                                ; читаем ответ
 168 
        IN_GSDAT                                ; читаем ответ
170 
                CP 0x8B
 169 
                CP 0x8B
171 
                JP Z,RST_NGS_CODE               ; если 0x8B то ответила стандартная прошивка
 170 
                JP Z,RST_NGS_CODE               ; если 0x8B то ответила стандартная прошивка
172 
                CP 0x77
 171 
                CP PLAYER_OK
173 
                JP Z,Warm                       ; если ответ 0x77, то ответил внутренний плеер
 172 
                JP Z,Warm                       ; если ответ 0x77, то ответил внутренний плеер
174 
                CP 0xEE
 173 
                CP SD_NOT_FOUND
175 
                JP NZ,LOOP17                    ; SD карта найдена?
 174 
                JP NZ,LOOP17                    ; SD карта найдена?
176 
                LD A,7
 175 
                LD A,7
177 
                CALL CLS
 176 
                CALL CLS
178 
                LD HL,MESS13
 177 
                LD HL,MESS13
179 
        DE_ADR_SCR 0,16
 178 
        DE_ADR_SCR 0,16
Line 184... Line 183...
184 
                LD HL,MESS16
 183 
                LD HL,MESS16
185 
        DE_ADR_SCR 0,20
 184 
        DE_ADR_SCR 0,20
186 
                CALL PRINT
 185 
                CALL PRINT
187 
                JR LOOP16
 186 
                JR LOOP16
188 
 
 187 
 
189 
LOOP17          CP 0xDD
 188 
LOOP17          CP FAT_NOT_FOUND
190 
                JR NZ,LOOP26                    ; на SD карте FAT не обнаружен
 189 
                JR NZ,LOOP26                    ; на SD карте FAT не обнаружен
191 
                LD A,7
 190 
                LD A,7
192 
                CALL CLS
 191 
                CALL CLS
193 
                LD HL,MESS14
 192 
                LD HL,MESS14
194 
        DE_ADR_SCR 0,16
 193 
        DE_ADR_SCR 0,16
195 
                JR LOOP20
 194 
                JR LOOP20
196 
 
 195 
 
197 
LOOP26          CP 0xBB
 196 
LOOP26          CP FILES_NOT_FOUND
198 
                JR NZ,LOOP27
 197 
                JR NZ,LOOP27
199 
                LD A,7
 198 
                LD A,7
200 
                CALL CLS
 199 
                CALL CLS
201 
                LD HL,MESS23
 200 
                LD HL,MESS23
202 
        DE_ADR_SCR 0,16
 201 
        DE_ADR_SCR 0,16
203 
                JR LOOP20
 202 
                JR LOOP20
204 
 
 203 
 
205 
LOOP27          CP 0xCC
 204 
LOOP27          CP NEOGS_ERROR
206 
                JP NZ,RST_NGS_CODE              ; плата GS стараго типав
 205 
                JP NZ,RST_NGS_CODE              ; плата GS стараго типав
207 
                JP NO_NGS
 206 
                JP NO_NGS
208 
 
 207 
 
209 
LOOP16
 208 
LOOP16
210 
        IFDEF _SPRINTER
 209 
        IFDEF _SPRINTER
Line 226... Line 225...
226 
                JP Z,RESCOMP
 225 
                JP Z,RESCOMP
227 
                JR LOOP16
 226 
                JR LOOP16
228 
 
 227 
 
229 
Warm            LD A,7
 228 
Warm            LD A,7
230 
                CALL CLS                        ; очистка экрана
 229 
                CALL CLS                        ; очистка экрана
- 
 
 230 
                LD A,VARP_CHIP_TYPE
- 
 
 231 
                CALL GET_VTS
231 
                CALL MORDALL                    ; вывод основных надписей
 232 
                CALL MORDALL                    ; вывод основных надписей
232 
                LD A,0x15
 233 
                LD A,__TXT_COUNT_FILES
233 
        DE_ADR_SCR 13,0
 234 
        DE_ADR_SCR 13,0
234 
                CALL READ5BT                    ; вывод кол-ва найденного
 235 
                CALL READ5BT                    ; вывод кол-ва найденного
235 
                CALL NAMELNG                    ; вывод имени текущего файла
 236 
                CALL NAMELNG                    ; вывод имени текущего файла
236 
LOOP_3          CALL DAT_VTS                    ; вывод инфы текущего файла
 237 
LOOP_3          CALL DAT_VTS                    ; вывод инфы текущего файла
237 
LOOP            XOR A
 238 
NO_PRESS_KEY
- 
 
 239 
        LD_A VARP_FLAGS
238 
                CALL GET_VTS
 240 
                CALL GET_VTS
239 
                BIT 7,A
 241 
                BIT B_SD_LOST,A
240 
                JP NZ,EJECT
 242 
                JP NZ,EJECT
241 
;               AND 5
 243 
;               AND 5
242 
;               CP 5
 244 
;               CP 5
243 
;               JR Z,LOOPM
 245 
;               JR Z,LOOPM
244 
                CALL FGETVTS
 246 
                CALL FGETVTS
245 
                LD A,H
 247 
                LD A,H
246 
                PUSH AF
 248 
                PUSH AF
247 
                BIT 5,A
 249 
                BIT B_NEW_FILE,A
248 
                CALL NZ,NAMELNG
 250 
                CALL NZ,NAMELNG
249 
                POP AF
 251 
                POP AF
- 
 
 252 
                LD A,VARP_FILE_TYPE
- 
 
 253 
                CALL GET_VTS
250 
                BIT 1,A
 254 
                CP FILE_MP3
251 
                JR NZ,LOOPM
 255 
                JR NZ,LOOPM
- 
 
 256 
; продолжаем для MP3
252 
        DE_ADR_SCR 11,11
 257 
        DE_ADR_SCR 11,11
253 
                CALL READSEC                    ; время играния
 258 
                CALL READSEC                    ; время играния
254 
                CALL BITRATE
 259 
                CALL BITRATE
255 
                JR LOOP14
 260 
                JR LOOP14
256 
 
 261 
 
- 
 
 262 
; продолжаем для MOD
257 
LOOPM           CALL POSMOD
 263 
LOOPM           CALL POSMOD
258 
LOOP14
 264 
LOOP14
259 
        IFDEF _SPRINTER
 265 
        IFDEF _SPRINTER
260 
                EI
 266 
                EI
261 
        SPDSS DSSF.SCANKEY
 267 
        SPDSS DSSF.SCANKEY
262 
                JR Z,LOOP
 268 
                JR Z,NO_PRESS_KEY
263 
        ELSE
 269 
        ELSE
264 
                EI
 270 
                EI
265 
                HALT
 271 
                HALT
266 
                DI
 272 
                DI
267 
                BIT 5,(IY+1)
 273 
                BIT 5,(IY+1)
268 
                JR Z,LOOP
 274 
                JR Z,NO_PRESS_KEY
269 
                RES 5,(IY+1)
 275 
                RES 5,(IY+1)
270 
                LD A,(IY-0x32)
 276 
                LD A,(IY-0x32)
271 
        ENDIF
 277 
        ENDIF
272 
                LD B,A
 278 
                LD B,A
273 
                CALL FGETVTS
 279 
                LD A,VARP_FILE_TYPE
274 
                LD A,H
 280 
                CALL GET_VTS
275 
                BIT 1,A
 281 
                CP FILE_MP3
276 
                LD HL,MODCOM
 282 
                LD HL,MODCOM
277 
                JR NZ,LOOP14_1
 283 
                JR NZ,LOOP14_1
278 
                LD HL,MP3COM
 284 
                LD HL,MP3COM
279 
LOOP14_1        LD DE,4
 285 
LOOP14_1        LD DE,4
280 
LOOP14_2        LD A,(HL)
 286 
LOOP14_2        LD A,(HL)
281 
                AND A
 287 
                AND A
282 
                JR Z,LOOP
 288 
                JR Z,NO_PRESS_KEY
283 
                CP B
 289 
                CP B
284 
                JR Z,RDCOMM
 290 
                JR Z,RDCOMM
285 
                ADD HL,DE
 291 
                ADD HL,DE
286 
                JR LOOP14_2
 292 
                JR LOOP14_2
287 
 
 293 
 
Line 361... Line 367...
361 
        OUT_GSCOM 0x1F
 367 
        OUT_GSCOM 0x1F
362 
                CALL WC
 368 
                CALL WC
363 
                POP AF
 369 
                POP AF
364 
        OUT_GSDAT_A
 370 
        OUT_GSDAT_A
365 
                CALL PRTTBL
 371 
                CALL PRTTBL
366 
                JP LOOP
 372 
                JP NO_PRESS_KEY
367 
 
 373 
 
368 
EXE4
 374 
EXE4
369 
        OUT_GSDAT_A
 375 
        OUT_GSDAT_A
370 
        OUT_GSCOM 0x1F
 376 
        OUT_GSCOM 0x1F
371 
                CALL WC
 377 
                CALL WC
372 
                JP LOOP
 378 
                JP NO_PRESS_KEY
373 
 
 379 
 
374 
; ожидание отпускания кнопки и сброс
 380 
; ожидание отпускания кнопки и сброс
375 
RESCOMP         CALL NANYKEY
 381 
RESCOMP         CALL NANYKEY
376 
        IFDEF _SPRINTER
 382 
        IFDEF _SPRINTER
377 
                CALL CLS
 383 
                CALL CLS
Line 403... Line 409...
403 
                INC B
 409 
                INC B
404 
                RES 2,B
 410 
                RES 2,B
405 
                JR WAITGS
 411 
                JR WAITGS
406 
 
 412 
 
407 
; распечатка номера трека и имени играемого файла
 413 
; распечатка номера трека и имени играемого файла
408 
NAMELNG         LD A,0x16
 414 
NAMELNG         LD A,__TXT_CURRENT_FILE
409 
        DE_ADR_SCR 13,10
 415 
        DE_ADR_SCR 13,10
410 
                CALL READ5BT                    ; текущий номер трека
 416 
                CALL READ5BT                    ; текущий номер трека
411 
                LD HL,0x8000
 417 
                LD HL,0x8000
412 
        OUT_GSDAT 0x11
 418 
        OUT_GSDAT 0x11
413 
        OUT_GSCOM 0x1F
 419 
        OUT_GSCOM 0x1F
Line 466... Line 472...
466 
                CALL PRINT_B
 472 
                CALL PRINT_B
467 
                JP MORDAR
 473 
                JP MORDAR
468 
 
 474 
 
469 
DAT_VTS         CALL FGETVTS            ; запрос флагового байта
 475 
DAT_VTS         CALL FGETVTS            ; запрос флагового байта
470 
        DE_ADR_SCR 16,13
 476 
        DE_ADR_SCR 16,13
- 
 
 477 
                LD A,VARP_FILE_TYPE
- 
 
 478 
                CALL GET_VTS
471 
                BIT 1,H
 479 
                CP FILE_MP3
472 
                RET NZ                  ; это MOD
 480 
                RET NZ                  ; это MOD
473 
                BIT 7,H
 481 
                BIT B_ENABLE_TEMBR,H
474 
                LD A,0x2B
 482 
                LD A,'+'
475 
                JR NZ,.L1
 483 
                JR NZ,.L1
476 
                LD A,"-"
 484 
                LD A,'-'
477 
.L1             CALL PRISYM             ; вывод положения TREBLE/BASS
 485 
.L1             CALL PRISYM             ; вывод положения TREBLE/BASS
478 
                BIT 0,H
 486 
                BIT B_SURROUND,H
479 
                LD A,"+"
 487 
                LD A,'+'
480 
                JR NZ,.L2
 488 
                JR NZ,.L2
481 
                LD A,"-"
 489 
                LD A,'-'
482 
.L2
 490 
.L2
483 
        DE_ADR_SCR 16,12
 491 
        DE_ADR_SCR 16,12
484 
                CALL PRISYM             ; вывод положения VIRTUAL SURROUND
 492 
                CALL PRISYM             ; вывод положения VIRTUAL SURROUND
485 
                BIT 6,H
 493 
                BIT B_MUTE,H
486 
                LD A,"+"
 494 
                LD A,'+'
487 
                JR NZ,.L3
 495 
                JR NZ,.L3
488 
                LD A,"-"
 496 
                LD A,'-'
489 
.L3
 497 
.L3
490 
        DE_ADR_SCR 31,14
 498 
        DE_ADR_SCR 31,14
491 
                CALL PRISYM             ; вывод положения MUTE ON/OFF
 499 
                CALL PRISYM             ; вывод положения MUTE ON/OFF
492 
                LD A,L
 500 
                LD A,L
493 
        DE_ADR_SCR 16,14
 501 
        DE_ADR_SCR 16,14
494 
                CALL PRIHEX
 502 
                CALL PRIHEX
495 
; вывод индикатора SOFT/HARD RESET
 503 
; вывод индикатора SOFT/HARD RESET
496 
                BIT 4,H
 504 
                BIT B_TYPE_RESET,H
497 
                LD HL,MESS16+2
 505 
                LD HL,MESS16 + 2
498 
                JR Z,DATVTS1
 506 
                JR Z,DATVTS1
499 
                RES 5,(HL)
 507 
                RES 5,(HL)
500 
                INC HL
 508 
                INC HL
501 
                RES 5,(HL)
 509 
                RES 5,(HL)
Line 684... Line 692...
684 
                JP PRISYM
 692 
                JP PRISYM
685 
 
 693 
 
686 
; получение времени проигрывания в
 694 
; получение времени проигрывания в
687 
; текстовом виде и распечатка
 695 
; текстовом виде и распечатка
688 
READSEC
 696 
READSEC
689 
        OUT_GSDAT 0x0B
 697 
        OUT_GSDAT __GET_TIME
690 
        OUT_GSCOM 0x1F
 698 
        OUT_GSCOM 0x1F
691 
                CALL WC
 699 
                CALL WC
692 
                CALL WN
 700 
                CALL WN
693 
        IN_GSDAT
 701 
        IN_GSDAT
694 
                CALL PRISYM
 702 
                CALL PRISYM
Line 814... Line 822...
814 
        DE_ADR_SCR 0,10
 822 
        DE_ADR_SCR 0,10
815 
                CALL PRINT
 823 
                CALL PRINT
816 
                LD HL,MESS24
 824 
                LD HL,MESS24
817 
        DE_ADR_SCR ((32-(EMESS24-MESS24))/2),15
 825 
        DE_ADR_SCR ((32-(EMESS24-MESS24))/2),15
818 
                CALL PRINT
 826 
                CALL PRINT
819 
                LD A,3
 827 
                LD A,VARP_CHIP_TYPE
820 
                CALL GET_VTS
 828 
                CALL GET_VTS
821 
                AND %00001100
 - 
 
822 
                LD C,A
 829 
                LD C,A
823 
        IFDEF _SPRINTER
 830 
        IFDEF _SPRINTER
824 
                PUSH BC
 831 
                PUSH BC
825 
        DE_ADR_SCR 0,15
 832 
        DE_ADR_SCR 0,15
826 
                POP BC
 833 
                POP BC
827 
                PUSH BC
 834 
                PUSH BC
828 
                LD A,C
 835 
                LD A,C
- 
 
 836 
                XOR %00000111
829 
                RLCA
 837 
                ADD A,A
830 
                RLCA
 838 
                ADD A,A
831 
                XOR %00110000
 839 
                ADD A,A
- 
 
 840 
                ADD A,A
832 
                OR %01000000 + BLUE
 841 
                OR BLUE
833 
                LD E,A
 842 
                LD E,A
834 
        SPBIOS BIOSF.LP_PRINT_ATR,32
 843 
        SPBIOS BIOSF.LP_PRINT_ATR,32
835 
                POP BC         
 844 
                POP BC         
836 
        ELSE
 845 
        ELSE ; SPRINTER
837 
                XOR 0x0C
 846 
                XOR %00000111
- 
 
 847 
                ADD A,A
838 
                ADD A,A
 848 
                ADD A,A
- 
 
 849 
                ADD A,A
839 
                OR 0x21                         ; INK = BLUE, PAPER = GREEN + !номер чипа MP3 (0..3)
 850 
                OR BLUE
840 
                LD HL,0x59E0
 851 
                LD HL,0x59E0
841 
                LD B,32
 852 
                LD B,32
842 
.L1             LD (HL),A
 853 
.L1             LD (HL),A
843 
                INC L
 854 
                INC L
844 
                DJNZ .L1
 855 
                DJNZ .L1
845 
        ENDIF
 856 
        ENDIF ; SPRINTER
846 
                LD A,C
 857 
                LD A,C
- 
 
 858 
                ADD A,'0'                       ; номер версии MP3 чипа
- 
 
 859 
                CP '9' + 1
847 
                RRCA
 860 
                JR C,.L2
848 
                RRCA
 861 
                ADD A,7
849 
                ADD A,"0"                       ; номер версии MP3 чипа
 - 
 
- 
 
 862 
.L2
850 
        DE_ADR_SCR 31,15
 863 
        DE_ADR_SCR 31,15
851 
                CALL PRISYM
 864 
                CALL PRISYM
852 
MORDAR          LD A,3
 865 
MORDAR
- 
 
 866 
        LD_A VARP_FILE_TYPE
853 
                CALL GET_VTS
 867 
                CALL GET_VTS
854 
                BIT 1,A
 868 
                CP FILE_MOD
855 
                JR NZ,MORDMOD
 869 
                JR Z,MORDMOD
- 
 
 870 
; обновление морды для MP3
856 
                LD HL,MESS9
 871 
                LD HL,MESS9
857 
        DE_ADR_SCR 0,11
 872 
        DE_ADR_SCR 0,11
858 
                CALL PRINT
 873 
                CALL PRINT
859 
                LD HL,MESS10
 874 
                LD HL,MESS10
860 
        DE_ADR_SCR 0,13
 875 
        DE_ADR_SCR 0,13
Line 874... Line 889...
874 
                LD HL,MESS27
 889 
                LD HL,MESS27
875 
        DE_ADR_SCR 28,11
 890 
        DE_ADR_SCR 28,11
876 
                CALL PRINT
 891 
                CALL PRINT
877 
                JP PRTTBL
 892 
                JP PRTTBL
878 
 
 893 
 
- 
 
 894 
; обновление морды плеера для MOD
879 
MORDMOD         LD HL,EMPT16+3
 895 
MORDMOD         LD HL,EMPT16 + 3
880 
        DE_ADR_SCR 19,10
 896 
        DE_ADR_SCR 19,10
881 
                CALL PRINT
 897 
                CALL PRINT
882 
                LD HL,EMPT16
 898 
                LD HL,EMPT16
883 
        DE_ADR_SCR 16,12
 899 
        DE_ADR_SCR 16,12
Line 905... Line 921...
905 
                CALL PRINT
 921 
                CALL PRINT
906 
                LD HL,EMPT16
 922 
                LD HL,EMPT16
907 
        DE_ADR_SCR 0,14
 923 
        DE_ADR_SCR 0,14
908 
                JP PRINT
 924 
                JP PRINT
909 
 
 925 
 
- 
 
 926 
; обновление инфы проигрывания MOD
910 
POSMOD          LD A,SIZ_PAT
 927 
POSMOD          LD A,VARP_SIZE_PATTERN_MOD
911 
                CALL GET_VTS
 928 
                CALL GET_VTS
912 
        DE_ADR_SCR 14,11
 929 
        DE_ADR_SCR 14,11
913 
                CALL PRIHEX
 930 
                CALL PRIHEX
914 
        DE_ADR_SCR 14,12
 931 
        DE_ADR_SCR 14,12
915 
        OUT_GSCOM 0x60
 932 
        OUT_GSCOM 0x60
916 
                CALL WC
 933 
                CALL WC
- 
 
 934 
                CALL WN
917 
        IN_GSDAT
 935 
        IN_GSDAT
918 
                CALL PRIHEX
 936 
                CALL PRIHEX
919 
        DE_ADR_SCR 14,13
 937 
        DE_ADR_SCR 14,13
920 
        OUT_GSCOM 0x61
 938 
        OUT_GSCOM 0x61
921 
                CALL WC
 939 
                CALL WC
- 
 
 940 
                CALL WN
922 
        IN_GSDAT
 941 
        IN_GSDAT
923 
                JP PRIHEX
 942 
                JP PRIHEX
924 
 
 943 
 
925 
; читать байт переменных по смещению в "A"
 944 
; читать байт переменных по смещению в "A"
926 
GET_VTS
 945 
GET_VTS
927 
        OUT_GSDAT_A
 946 
        OUT_GSDAT_A
928 
        OUT_GSCOM 0xFF
 947 
        OUT_GSCOM 0xFF
929 
                CALL WC
 948 
                CALL WC
- 
 
 949 
                CALL WN
930 
        IN_GSDAT
 950 
        IN_GSDAT
931 
                RET
 951 
                RET
932 
 
 952 
 
933 
; получение 16 битного состояния
 953 
; получение 16 битного состояния
934 
FGETVTS
 954 
FGETVTS
935 
        OUT_GSDAT 0x0C
 955 
        OUT_GSDAT __GET_VTS
936 
        OUT_GSCOM 0x1F
 956 
        OUT_GSCOM 0x1F
937 
                CALL WC
 957 
                CALL WC
938 
                CALL WN
 958 
                CALL WN
939 
        IN_GSDAT
 959 
        IN_GSDAT
940 
                LD H,A
 960 
                LD H,A
941 
                CALL WN
 961 
                CALL WN
942 
        IN_GSDAT
 962 
        IN_GSDAT
943 
                LD L,A
 963 
                LD L,A
944 
                RET
 964 
                RET
945 
 
 965 
 
946 
MOD00           DB "Length:        ",0
 966 
MOD00           DZ "Length:        "
947 
MOD02           DB "Position:      ",0
 967 
MOD02           DZ "Position:      "
948 
MOD03           DB "Note:          ",0
 968 
MOD03           DZ "Note:          "
949 
 
 969 
 
950 
VENTIL          DB 0xC4,0x5C,0x7C,0x2F
 970 
VENTIL          DB 0xC4,0x5C,0x7C,0x2F
951 
 
 971 
 
952 
MESS1           DB "Found files:",0
 972 
MESS1           DZ "Found files:"
953 
MESS16          DB "\"Space\" Exit",0
 973 
MESS16          DZ "\"Space\" Exit"
954 
MESS2           DB "1 Prev. File  SS+1 Prev. DIR",0
 974 
MESS2           DZ "1 Prev. File  SS+1 Prev. DIR"
955 
MESS3           DB "2 Play File",0
 975 
MESS3           DZ "2 Play File"
956 
MESS4           DB "3 Pause",0
 976 
MESS4           DZ "3 Pause"
957 
MESS5           DB "4 Stop",0
 977 
MESS5           DZ "4 Stop"
958 
MESS6           DB "5 Next File   SS+5 Next DIR",0
 978 
MESS6           DZ "5 Next File   SS+5 Next DIR"
959 
MESS7           DB "0 Eject SD Card",0
 979 
MESS7           DZ "0 Eject SD Card"
960 
MESS8           DB "Play Number:",0
 980 
MESS8           DZ "Play Number:"
961 
MESS9           DB "Time Play:      ",0
 981 
MESS9           DZ "Time Play:      "
962 
MESS10          DB "9 Treble/Bass:  ",0
 982 
MESS10          DZ "9 Treble/Bass:  "
963 
MESS11          DB "8 Surround:     ",0
 983 
MESS11          DZ "8 Surround:     "
964 
MESS12          DB "<6-7> Volume:   ",0
 984 
MESS12          DZ "<6-7> Volume:   "
965 
MESSEM          DB "\"Enter\" Mute",0
 985 
MESSEM          DZ "\"Enter\" Mute"
966 
MESS13          DB "SD-Card Not Found",0
 986 
MESS13          DZ "SD-Card Not Found"
967 
MESS14          DB "FAT not Found",0
 987 
MESS14          DZ "FAT not Found"
968 
MESS15          DB "Press \"ENTER\" 4 Restart Init SD",0
 988 
MESS15          DZ "Press \"ENTER\" 4 Restart Init SD"
969 
MESS17          DB "Neo"
 989 
MESS17          DB "Neo"
970 
MESS18          DB "GS not found",0
 990 
MESS18          DZ "GS not found"
971 
MESS19          DB "Press any key for "
 991 
MESS19          DB "Press any key for "
972 
        IFDEF _SPRINTER
 992 
        IFDEF _SPRINTER
973 
                DB "exit",0
 993 
                DZ "exit"
974 
        ELSE
 994 
        ELSE
975 
                DB "reset",0
 995 
                DZ "reset"
976 
        ENDIF
 996 
        ENDIF
977 
MESS20          DB "Please wait, search files",0
 997 
MESS20          DZ "Please wait, search files"
978 
MESS21          DB "Eject SD card or insert new card",0
 998 
MESS21          DZ "Eject SD card or insert new card"
979 
MESS22          DB "Press any key",0
 999 
MESS22          DZ "Press any key"
980 
MESS23          DB "File(s) not found",0
 1000 
MESS23          DZ "File(s) not found"
981 
MESS24          DB "Neo Player Light v",VERS_PLAYER,0
 1001 
MESS24          DB "Neo Player Light v",VERS_PLAYER,0
982 
EMESS24         EQU $-1
 1002 
EMESS24         EQU $-1
983 
EMPT32          DB "                "
 1003 
EMPT32          DB "                "
984 
EMPT16          DB "                ",0
 1004 
EMPT16          DZ "                "
985 
MESS26          DB "Hz",0
 1005 
MESS26          DZ "Hz"
986 
MESS27          DB "kbps",0
 1006 
MESS27          DZ "kbps"
987 
MESS28          DB "Please wait, detect NeoGS",0
 1007 
MESS28          DZ "Please wait, detect NeoGS"
988 
 
 1008 
 
989 
        IFDEF _SPRINTER
 1009 
        IFDEF _SPRINTER
990 
NOT_FOUND_ISA   DB "ISA Slot not found. Emulator?",0
 1010 
NOT_FOUND_ISA   DZ "ISA Slot not found. Emulator?"
991 
        ENDIF
 1011 
        ENDIF
992 
 
 1012 
 
993 
REJCHAN         DB "      stereo"
 1013 
REJCHAN         DB "      stereo"
994 
                DB "joint stereo"
 1014 
                DB "joint stereo"
995 
                DB "dual channel"
 1015 
                DB "dual channel"
Line 1007... Line 1027...
1007 
 
 1027 
 
1008 
L1ID0           DB "  - 32 48 56 64 80 96112128144160176192224256   "
 1028 
L1ID0           DB "  - 32 48 56 64 80 96112128144160176192224256   "
1009 
                DB "  - 32 64 96128160192224256288320352384416448"
 1029 
                DB "  - 32 64 96128160192224256288320352384416448"
1010 
 
 1030 
 
1011 
EJECT
 1031 
EJECT
1012 
        OUT_GSDAT 4
 1032 
        OUT_GSDAT __STOP
1013 
        OUT_GSCOM 0x1F
 1033 
        OUT_GSCOM 0x1F
1014 
                CALL WC
 1034 
                CALL WC
1015 
                LD A,7
 1035 
                LD A,7
1016 
                CALL CLS
 1036 
                CALL CLS
1017 
                LD HL,MESS21
 1037 
                LD HL,MESS21
Line 1021... Line 1041...
1021 
        DE_ADR_SCR 9,10
 1041 
        DE_ADR_SCR 9,10
1022 
                CALL PRINT
 1042 
                CALL PRINT
1023 
                CALL NANYKEY
 1043 
                CALL NANYKEY
1024 
                CALL ANYKEY
 1044 
                CALL ANYKEY
1025 
                CALL NANYKEY
 1045 
                CALL NANYKEY
1026 
        OUT_GSDAT 0
 1046 
        OUT_GSDAT __INIT_SD
1027 
        OUT_GSCOM 0x1F
 1047 
        OUT_GSCOM 0x1F
1028 
                JP LOOP21
 1048 
                JP LOOP21
1029 
 
 1049 
 
1030 
CLS
 1050 
CLS
1031 
        IFDEF _SPRINTER
 1051 
        IFDEF _SPRINTER
Line 1115... Line 1135...
1115 
                INC HL
 1135 
                INC HL
1116 
                DEC E
 1136 
                DEC E
1117 
                JR NZ,INI_E1
 1137 
                JR NZ,INI_E1
1118 
                RET
 1138 
                RET
1119 
 
 1139 
 
1120 
INI_E3          XOR A
 1140 
INI_E3
- 
 
 1141 
        LD_A VARP_FLAGS
1121 
                CALL GET_VTS
 1142 
                CALL GET_VTS
1122 
                BIT 7,A
 1143 
                BIT B_SD_LOST,A
1123 
                JR Z,INI_E1
 1144 
                JR Z,INI_E1
1124 
                LD SP,(OLD_STACK)
 1145 
                LD SP,(OLD_STACK)
1125 
                JP EJECT
 1146 
                JP EJECT
1126 
 
 1147 
 
1127 
PRIHEX          PUSH AF
 1148 
PRIHEX          PUSH AF
Line 1213... Line 1234...
1213 
                ret z                           ; норм, шина ISA есть
 1234 
                ret z                           ; норм, шина ISA есть
1214 
                scf                             ; нет, шины нет (эмулятор?)
 1235 
                scf                             ; нет, шины нет (эмулятор?)
1215 
                ret
 1236 
                ret
1216 
        ENDIF
 1237 
        ENDIF
1217 
 
 1238 
 
1218 
GO_YES          binclude tmp/play4ngs.rom
 1239 
GO_YES          binclude tmp/play_on_ngs.rom
1219 
FAT_END
 1240 
FAT_END
1220 
 
 1241 
 
1221 
        IFNDEF _SPRINTER
 1242 
        IFNDEF _SPRINTER
1222 
CHARS           binclude make/altstd.bin
 1243 
CHARS           binclude make/altstd.bin
1223 
        ENDIF
 1244 
        ENDIF