StartUp sound, fixes with atapi detects, new in settings
This commit is contained in:
Tolik
parent
a3aef23cd6
commit
5069c5941e
@ -1 +1 @@
|
|||||||
Subproject commit 83c2b69b4af0a36475fa42378000fb6e57c59021
|
Subproject commit 63faf9f0823649cfb52e9fcaad430170a05b31a7
|
||||||
Binary file not shown.
@ -624,18 +624,20 @@ EXEC_PACKET_COMMAND:
|
|||||||
POP BC
|
POP BC
|
||||||
OUT (C),B
|
OUT (C),B
|
||||||
; pause
|
; pause
|
||||||
LD B,0
|
; LD B,0
|
||||||
DJNZ $
|
; DJNZ $
|
||||||
; DJNZ $
|
; DJNZ $
|
||||||
;
|
;
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
LD XH,A ; áâà ¨æ ¤«ï R/W_LONG
|
LD XH,A ; áâà ¨æ ¤«ï R/W_LONG
|
||||||
LD XL,0
|
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
|
;A=0
|
||||||
|
LD XL,A
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
;
|
;
|
||||||
.AP_LOOP: ;LD B,128
|
.AP_LOOP: ;CALL ATAPI_WAITPRT.wait_NZ
|
||||||
;DJNZ $
|
LD B,128
|
||||||
|
DJNZ $
|
||||||
CALL ATAPI_CHECK_DRV
|
CALL ATAPI_CHECK_DRV
|
||||||
JP C,.error;_APLOOP
|
JP C,.error;_APLOOP
|
||||||
RET Z
|
RET Z
|
||||||
@ -680,12 +682,19 @@ EXEC_PACKET_COMMAND:
|
|||||||
JR NZ,.write_loop
|
JR NZ,.write_loop
|
||||||
JR .return_rw
|
JR .return_rw
|
||||||
; ;
|
; ;
|
||||||
.END_BUFFER: CALL ATAPI_CHECK_DRV
|
.END_BUFFER: ;CALL ATAPI_WAITPRT.wait_NZ
|
||||||
|
LD B,128
|
||||||
|
DJNZ $
|
||||||
|
CALL ATAPI_CHECK_DRV
|
||||||
JP C,.error
|
JP C,.error
|
||||||
JR NZ,ATAPI_IdlePasses.Enter
|
JR NZ,ATAPI_IdlePasses.Enter
|
||||||
RET
|
RET
|
||||||
;;;;;;;;;;;;;;;;;
|
;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
ATAPI_IdlePasses:
|
ATAPI_IdlePasses:
|
||||||
|
;CALL ATAPI_WAITPRT.wait_NZ
|
||||||
|
LD B,128
|
||||||
|
DJNZ $
|
||||||
CALL ATAPI_CHECK_DRV
|
CALL ATAPI_CHECK_DRV
|
||||||
JP C,EXEC_PACKET_COMMAND.error
|
JP C,EXEC_PACKET_COMMAND.error
|
||||||
JP Z,EXEC_PACKET_COMMAND.error_fail
|
JP Z,EXEC_PACKET_COMMAND.error_fail
|
||||||
@ -712,8 +721,6 @@ ATAPI_IdlePasses:
|
|||||||
JR NZ,.write_loop
|
JR NZ,.write_loop
|
||||||
JR ATAPI_IdlePasses
|
JR ATAPI_IdlePasses
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
; ¢ë室:
|
; ¢ë室:
|
||||||
; CF,ZF ATAPI_WAITPRT Error ¨«¨ Check Condition á® ¢¥è¥© ®¡à ¡®âª®©
|
; CF,ZF ATAPI_WAITPRT Error ¨«¨ Check Condition á® ¢¥è¥© ®¡à ¡®âª®©
|
||||||
; ZF No errors, no data request
|
; ZF No errors, no data request
|
||||||
@ -838,13 +845,14 @@ ATAPI_GET_ERROR_REG:
|
|||||||
; !!! ¥ª®â®àë¥ äãªæ¨¨ ¤¥îâáï, çâ® ¢ë室¥ ¢á¥£¤ ZF
|
; !!! ¥ª®â®àë¥ äãªæ¨¨ ¤¥îâáï, çâ® ¢ë室¥ ¢á¥£¤ ZF
|
||||||
; ¥ ¤®«¦ âண âì ॣ. C
|
; ¥ ¤®«¦ âண âì ॣ. C
|
||||||
ATAPI_WAITPRT: LD DE,256*IDE.CtrlByte.Busy + 0
|
ATAPI_WAITPRT: LD DE,256*IDE.CtrlByte.Busy + 0
|
||||||
.Custom: LD B,6 ; 3 = ®¡é ï § ¤¥à¦ª ®ª®«® ᥪã¤ë
|
.Custom: LD B,9 ; 3 = ®¡é ï § ¤¥à¦ª ®ª®«® ᥪã¤ë
|
||||||
LD HL,#0000
|
LD HL,#0000
|
||||||
; 4ÿ128ÿ768
|
; 4ÿ128ÿ768
|
||||||
.LOOP: LD A,high IDE.Read.Status
|
.LOOP: LD A,high IDE.Read.Status
|
||||||
IN A,(low IDE.Read.Status)
|
IN A,(low IDE.Read.Status)
|
||||||
CP #FF
|
CP #FF
|
||||||
JR Z,.error
|
SCF
|
||||||
|
RET Z
|
||||||
;
|
;
|
||||||
AND D
|
AND D
|
||||||
CP E
|
CP E
|
||||||
@ -871,10 +879,96 @@ ATAPI_WAITPRT: LD DE,256*IDE.CtrlByte.Busy + 0
|
|||||||
; RET Z
|
; RET Z
|
||||||
;
|
;
|
||||||
LD A,BIOS.Error.Busy
|
LD A,BIOS.Error.Busy
|
||||||
|
SCF
|
||||||
RET
|
RET
|
||||||
;
|
;
|
||||||
.error: SCF
|
; .wait_NZ: LD B,2 ; 50 - § ¤¥à¦ª ®¯à¥¤¥«ñ ï â¥áâ ¬¨ IOMEGA ZIP Drive
|
||||||
RET
|
; .NZ_loop: LD A,high IDE.Read.Status
|
||||||
|
; IN A,(low IDE.Read.Status)
|
||||||
|
; LD C,A
|
||||||
|
; AND A
|
||||||
|
; CALL NZ,PutHexNumb
|
||||||
|
; ;INC A
|
||||||
|
; ;RET NZ
|
||||||
|
; ;AND IDE.CtrlByte.Busy + IDE.CtrlByte.DataRequest + IDE.CtrlByte.CheckCondition
|
||||||
|
; ;INC A
|
||||||
|
; ;AND A
|
||||||
|
; ;RET NZ
|
||||||
|
; DJNZ .NZ_loop
|
||||||
|
; RET
|
||||||
|
;----------------------------------------------------------------------;
|
||||||
|
|
||||||
|
|
||||||
|
;----------------------------------------------------------------------;
|
||||||
|
;<3B>à®æ¥¤ãà ¯à¥®¡à §®¢ ¨ï 8¡¨â®¢ëå ç¨á¥« ¢ è¥áâ ¤æ. ⥪áâ
|
||||||
|
;<3B> ¢å®¤:
|
||||||
|
; HL - ¤à¥á ¡ãä¥à
|
||||||
|
; € - ¡ ©â
|
||||||
|
;<3B> ¢ë室:
|
||||||
|
; DE - ¤¢ ¡ ©â è¥áâ ¤æ â¥à¨ç®£® ⥪áâ
|
||||||
|
; PutHexNumb: PUSH IX
|
||||||
|
; PUSH IY
|
||||||
|
; PUSH AF
|
||||||
|
; EX AF,AF'
|
||||||
|
; PUSH AF
|
||||||
|
; EX AF,AF'
|
||||||
|
; PUSH DE
|
||||||
|
; PUSH HL
|
||||||
|
; PUSH BC
|
||||||
|
; LD A,C
|
||||||
|
; EXX
|
||||||
|
; PUSH DE
|
||||||
|
; PUSH HL
|
||||||
|
; PUSH BC
|
||||||
|
; ;
|
||||||
|
; PUSH AF
|
||||||
|
; RRCA
|
||||||
|
; RRCA
|
||||||
|
; RRCA
|
||||||
|
; RRCA
|
||||||
|
; AND #0F
|
||||||
|
; ADD A,#90
|
||||||
|
; DAA
|
||||||
|
; ADC A,#40
|
||||||
|
; DAA
|
||||||
|
; LD E,A
|
||||||
|
; POP AF
|
||||||
|
; AND #0F
|
||||||
|
; ADD A,#90
|
||||||
|
; DAA
|
||||||
|
; ADC A,#40
|
||||||
|
; DAA
|
||||||
|
; LD D,A
|
||||||
|
; ;
|
||||||
|
; LD HL," "
|
||||||
|
; PUSH HL
|
||||||
|
; PUSH DE
|
||||||
|
; LD L,0
|
||||||
|
; ADD HL,SP
|
||||||
|
; ;
|
||||||
|
; SCF
|
||||||
|
; LD B,COLORS.CGA.INK.LGRAY + COLORS.CGA.PAPER.BLACK
|
||||||
|
; EX AF,AF'
|
||||||
|
; AND A
|
||||||
|
; LD A,B
|
||||||
|
; CALL LP_PR_LINE_DIR.START
|
||||||
|
; POP HL
|
||||||
|
; POP HL
|
||||||
|
; ;
|
||||||
|
; POP BC
|
||||||
|
; POP HL
|
||||||
|
; POP DE
|
||||||
|
; EXX
|
||||||
|
; POP BC
|
||||||
|
; POP HL
|
||||||
|
; POP DE
|
||||||
|
; POP AF
|
||||||
|
; EX AF,AF'
|
||||||
|
; POP AF
|
||||||
|
; POP IY
|
||||||
|
; POP IX
|
||||||
|
; RET
|
||||||
|
;
|
||||||
;----------------------------------------------------------------------;
|
;----------------------------------------------------------------------;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -476,7 +476,7 @@ PARSE_IdentifyDevice:
|
|||||||
;
|
;
|
||||||
; ¢á直© á«ãç ©
|
; ¢á直© á«ãç ©
|
||||||
LD (IY+IDE.HDD_INIT_TABLE.MediaParameters),%0000'0001
|
LD (IY+IDE.HDD_INIT_TABLE.MediaParameters),%0000'0001
|
||||||
LD B,100 ; áçñâ稪 ¯®¯ë⮪ (1 ¯®¯ë⪠- 1 HALT)
|
LD B,200 ; áçñâ稪 ¯®¯ë⮪ (1 ¯®¯ë⪠- 1 HALT)
|
||||||
.get_error_loop: PUSH BC
|
.get_error_loop: PUSH BC
|
||||||
;LD HL,ATAPI_CMD_PACKET.TEST_UNIT_READY
|
;LD HL,ATAPI_CMD_PACKET.TEST_UNIT_READY
|
||||||
;CALL EXEC_PACKET_COMMAND.start
|
;CALL EXEC_PACKET_COMMAND.start
|
||||||
@ -486,10 +486,10 @@ PARSE_IdentifyDevice:
|
|||||||
;
|
;
|
||||||
CP BIOS.Error.ATAPI.UnitAttention
|
CP BIOS.Error.ATAPI.UnitAttention
|
||||||
JR Z,PARSE_IdentifyDevice.END ;!TEST ;!FIXIT ZIP bug
|
JR Z,PARSE_IdentifyDevice.END ;!TEST ;!FIXIT ZIP bug
|
||||||
;JR Z,.TEST_SET
|
|
||||||
|
|
||||||
;
|
;
|
||||||
|
CP BIOS.Error.ATAPI.NotReady
|
||||||
HALT
|
HALT
|
||||||
|
JR Z,.get_error_loop
|
||||||
DJNZ .get_error_loop
|
DJNZ .get_error_loop
|
||||||
;
|
;
|
||||||
; [ ] sector size ATAPI
|
; [ ] sector size ATAPI
|
||||||
|
|||||||
@ -865,9 +865,10 @@ setInt: ld a,CMOS_CELL.ScreenSET
|
|||||||
;
|
;
|
||||||
;-----------------------------------------------------------------------;
|
;-----------------------------------------------------------------------;
|
||||||
;!FIXIT ¯à¨¡à âìáï âãâ
|
;!FIXIT ¯à¨¡à âìáï âãâ
|
||||||
MEMTEST EQU #80
|
SETBOOTSOUND EQU high CMOS_CELL.BootUpParams.Mask.BootSound
|
||||||
SAVERAM EQU #40
|
MEMTEST EQU high CMOS_CELL.BootUpParams.Mask.MemTest
|
||||||
EXTBIOS EQU #20
|
SAVERAM EQU high CMOS_CELL.BootUpParams.Mask.SaveRAMdisks
|
||||||
|
EXTBIOS EQU high CMOS_CELL.BootUpParams.Mask.UpdBios
|
||||||
|
|
||||||
SDELAY2 EQU #10
|
SDELAY2 EQU #10
|
||||||
SDELAY1 EQU #08
|
SDELAY1 EQU #08
|
||||||
@ -1009,9 +1010,9 @@ STYLES:
|
|||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.RED
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.RED
|
||||||
|
|
||||||
DEFVAL: DB SAVERAM + EXTBIOS + SDELAY1 ;#0E - OPTIONS
|
DEFVAL: DB SAVERAM + SETBOOTSOUND + SDELAY1 ;#0E - OPTIONS
|
||||||
DB TDL250 + TRATE30 ;#0F - KEYBOARD
|
DB TDL250 + TRATE30 ;#0F - KEYBOARD
|
||||||
DB SDIDE1 + SDFDD1 ;#10 - SYSTEM DISKS
|
DB SDIDE1 + ASDFDD1 ;#10 - SYSTEM DISKS
|
||||||
DB FD1720 + FD2720+HD1AUTO+HD2AUTO ;#11 - FDD & Primary HDD's
|
DB FD1720 + FD2720+HD1AUTO+HD2AUTO ;#11 - FDD & Primary HDD's
|
||||||
DB 0 ;#12 - CYLINDERS LOW MASTER
|
DB 0 ;#12 - CYLINDERS LOW MASTER
|
||||||
DB 0 ;#13 - CYLINDERS HIGH MASTER
|
DB 0 ;#13 - CYLINDERS HIGH MASTER
|
||||||
@ -1036,9 +1037,9 @@ DEFVAL: DB SAVERAM + EXTBIOS + SDELAY1 ;#0E - OPTIONS
|
|||||||
CMOSARE:
|
CMOSARE:
|
||||||
DS 14
|
DS 14
|
||||||
;
|
;
|
||||||
DB SAVERAM+EXTBIOS ;#0E - OPTIONS
|
DB SAVERAM + SETBOOTSOUND + SDELAY1 ;#0E - OPTIONS
|
||||||
DB TDL250+TRATE30 ;#0F - KEYBOARD
|
DB TDL250+TRATE30 ;#0F - KEYBOARD
|
||||||
DB SDIDE1+ASDFDD2 ;#10 - SYSTEM DISKS
|
DB SDIDE1 + ASDFDD1 ;#10 - SYSTEM DISKS
|
||||||
DB FD1720+FD2720+HD1AUTO+HD2AUTO ;#11 - FDD & HDD
|
DB FD1720+FD2720+HD1AUTO+HD2AUTO ;#11 - FDD & HDD
|
||||||
DB 0 ;#12 - CYLINDERS LOW MASTER
|
DB 0 ;#12 - CYLINDERS LOW MASTER
|
||||||
DB 0 ;#13 - CYLINDERS HIGH MASTER
|
DB 0 ;#13 - CYLINDERS HIGH MASTER
|
||||||
|
|||||||
@ -296,6 +296,10 @@ LOGOTYPE: CALL SHOW_LOGO
|
|||||||
RLA
|
RLA
|
||||||
JR NC,.noSound
|
JR NC,.noSound
|
||||||
;
|
;
|
||||||
|
LD BC,CMOS_CELL.BootUpParams.Mask.BootSound
|
||||||
|
CALL GET_CMOS_VALUE
|
||||||
|
OR A
|
||||||
|
JR Z,.noSound
|
||||||
LD A,#37 ; opcode SCF, play sound on
|
LD A,#37 ; opcode SCF, play sound on
|
||||||
LD (INT_HANDLER.sndSwitch),A
|
LD (INT_HANDLER.sndSwitch),A
|
||||||
.noSound: ;
|
.noSound: ;
|
||||||
@ -337,6 +341,7 @@ LOGOTYPE: CALL SHOW_LOGO
|
|||||||
IF STARTUP_SND
|
IF STARTUP_SND
|
||||||
LD A,#3F ; opcode CCF, play sound off
|
LD A,#3F ; opcode CCF, play sound off
|
||||||
LD (INT_HANDLER.sndSwitch),A
|
LD (INT_HANDLER.sndSwitch),A
|
||||||
|
CALL STARTUP_SOUND.mute
|
||||||
ENDIF
|
ENDIF
|
||||||
;
|
;
|
||||||
LD DE,0
|
LD DE,0
|
||||||
|
|||||||
403
src/bios/rom/SETUP/ayfxplay.asm
Executable file
403
src/bios/rom/SETUP/ayfxplay.asm
Executable file
@ -0,0 +1,403 @@
|
|||||||
|
; -Minimal ayFX player (Improved) v2.05 25/01/21--------------;
|
||||||
|
; https://github.com/Threetwosevensixseven/ayfxedit-improved ;
|
||||||
|
; Zeus format (http://www.desdes.com/products/oldfiles) ;
|
||||||
|
; ;
|
||||||
|
; Forked from v0.15 06/05/06 ;
|
||||||
|
; https://shiru.untergrund.net/software.shtml ;
|
||||||
|
; ;
|
||||||
|
; The simplest effects player. Plays effects on one AY, ;
|
||||||
|
; without music in the background. ;
|
||||||
|
; Priority of the choice of channels: if there are free ;
|
||||||
|
; channels, one of them is selected if free. ;
|
||||||
|
; If there are are no free channels, the longest-sounding ;
|
||||||
|
; one is selected. ;
|
||||||
|
; Procedure plays registers AF, BC, DE, HL, IX. ;
|
||||||
|
; ;
|
||||||
|
; Initialization: ;
|
||||||
|
; ld hl, the address of the effects bank ;
|
||||||
|
; call AFXInit ;
|
||||||
|
; ;
|
||||||
|
; Start the effect: ;
|
||||||
|
; ld a, the number of the effect (0..255) ;
|
||||||
|
; call AFXPlay ;
|
||||||
|
; ;
|
||||||
|
; In the interrupt handler: ;
|
||||||
|
; call AFXFrame ;
|
||||||
|
; ;
|
||||||
|
; Start the effect on a specified channel: ;
|
||||||
|
; ld a, the number of the effect (0..255) ;
|
||||||
|
; ld e, the number of the channel (A=0, B=1, C=2) ;
|
||||||
|
; call AFXPlayChannel ;
|
||||||
|
; ;
|
||||||
|
; Start the effect with sustain loop enabled: ;
|
||||||
|
; ld a, the number of the effect (0..255) ;
|
||||||
|
; ld e, the number of the channel (A=0, B=1, C=2) ;
|
||||||
|
; ld bc, the bank address + the release address offset ;
|
||||||
|
; call AFXPlayChannel ;
|
||||||
|
; ;
|
||||||
|
; Notify AFX.Frame that the should be should be looped back to ;
|
||||||
|
; the sustain point once the release point has been reached: ;
|
||||||
|
; ld a, the number of the effect (0..255) ;
|
||||||
|
; ld e, the number of the channel (A=0, B=1, C=2) ;
|
||||||
|
; ld bc, the bank address + the sustain address offset ;
|
||||||
|
; call AFXSustain ;
|
||||||
|
; ;
|
||||||
|
; Change log:
|
||||||
|
; v2.05 25/01/21 Bug fix: AFXInit was overwriting itself ;
|
||||||
|
; the first time it was called, so it ;
|
||||||
|
; couldn't ever be called a second time. ; ;
|
||||||
|
; v2.04 22/10/17 Bug fix: EffectTime was not fully ;
|
||||||
|
; initialised. ;
|
||||||
|
; v2.03 22/10/17 Bug fix: disabled loop markers should have ;
|
||||||
|
; MSB $00, as $FF could be a valid address. ;
|
||||||
|
; Backported Zeus player to Pasmo format. ;
|
||||||
|
; v2.02 21/10/17 Added the ability to loop a sound while ;
|
||||||
|
; receiving sustain messages. ;
|
||||||
|
; v2.01 21/10/17 Added the ability to play a sound on a ;
|
||||||
|
; specific channel. ;
|
||||||
|
; v2.00 27/08/17 Converted Z80 player to Zeus format. ;
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
|
||||||
|
; Channel descriptors, 4 bytes per channel:
|
||||||
|
; +0 (2) current address (channel is free if high byte=$00)
|
||||||
|
; +2 (2) sound effect time
|
||||||
|
; +2 (2) start address of sustain loop (disabled if high byte=$00)
|
||||||
|
; +2 (2) end address of sustain loop (disabled if high byte=$00)
|
||||||
|
afxChDescCount equ 3
|
||||||
|
afxChDesc DS afxChDescCount*8
|
||||||
|
AFXSMC equ 0
|
||||||
|
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
; Initialize the effects player. ;
|
||||||
|
; Turns off all channels, sets variables. ;
|
||||||
|
; ;
|
||||||
|
; Input: HL = bank address with effects ;
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
|
||||||
|
AFXInit:
|
||||||
|
inc hl
|
||||||
|
ld (afxBnkAdr1+1), hl ; Save the address of the table of offsets
|
||||||
|
ld (afxBnkAdr2+1), hl ; Save the address of the table of offsets
|
||||||
|
ld hl, afxChDesc ; Mark all channels as empty
|
||||||
|
ld de, $00ff
|
||||||
|
ld bc, afxChDescCount*256+$fd
|
||||||
|
afxInit0:
|
||||||
|
ld (hl), d
|
||||||
|
inc hl
|
||||||
|
ld (hl), d
|
||||||
|
inc hl
|
||||||
|
ld (hl), e
|
||||||
|
inc hl
|
||||||
|
ld (hl), e
|
||||||
|
inc hl
|
||||||
|
ld (hl), d
|
||||||
|
inc hl
|
||||||
|
ld (hl), d
|
||||||
|
inc hl
|
||||||
|
ld (hl), d
|
||||||
|
inc hl
|
||||||
|
ld (hl), d
|
||||||
|
inc hl
|
||||||
|
djnz afxInit0
|
||||||
|
|
||||||
|
ld hl, $ffbf ; Initialize AY
|
||||||
|
ld e, $15
|
||||||
|
afxInit1:
|
||||||
|
dec e
|
||||||
|
ld b, h
|
||||||
|
out (c), e
|
||||||
|
ld b,l
|
||||||
|
out (c), d
|
||||||
|
jr nz, afxInit1
|
||||||
|
|
||||||
|
ld (afxNseMix+1), de ; Reset the player variables
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
; Play the current frame. ;
|
||||||
|
; ;
|
||||||
|
; No parameters. ;
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
AFXFrame:
|
||||||
|
ld bc, $03fd
|
||||||
|
ld ix, afxChDesc
|
||||||
|
afxFrame0:
|
||||||
|
push bc
|
||||||
|
|
||||||
|
ld a,11
|
||||||
|
ld h,(ix+1) ; Compare high-order byte of address to <11
|
||||||
|
cp h
|
||||||
|
jr nc, afxFrame7 ; The channel does not play, we skip
|
||||||
|
ld l, (ix+0)
|
||||||
|
ld e, (hl) ; We take the value of the information byte
|
||||||
|
inc hl
|
||||||
|
|
||||||
|
sub b ; Select the volume register:
|
||||||
|
ld d, b ; (11-3=8, 11-2=9, 11-1=10)
|
||||||
|
|
||||||
|
ld b, $ff ; Output the volume value
|
||||||
|
out (c), a
|
||||||
|
ld b, $bf
|
||||||
|
ld a, e
|
||||||
|
and $0f
|
||||||
|
out (c), a
|
||||||
|
|
||||||
|
bit 5, e ; Will the tone change?
|
||||||
|
jr z, afxFrame1 ; Tone does not change
|
||||||
|
|
||||||
|
ld a, 3 ; Select the tone registers:
|
||||||
|
sub d ; 3-3=0, 3-2=1, 3-1=2
|
||||||
|
add a, a ; 0*2=0, 1*2=2, 2*2=4
|
||||||
|
|
||||||
|
ld b, $ff ; Output the tone values
|
||||||
|
out (c), a
|
||||||
|
ld b, $bf
|
||||||
|
ld d, (hl)
|
||||||
|
inc hl
|
||||||
|
out (c), d
|
||||||
|
ld b, $ff
|
||||||
|
inc a
|
||||||
|
out (c), a
|
||||||
|
ld b, $bf
|
||||||
|
ld d, (hl)
|
||||||
|
inc hl
|
||||||
|
out (c), d
|
||||||
|
|
||||||
|
afxFrame1:
|
||||||
|
bit 6, e ; Will the noise change?
|
||||||
|
jr z, afxFrame3 ; Noise does not change
|
||||||
|
|
||||||
|
ld a, (hl) ; Read the meaning of noise
|
||||||
|
sub $20
|
||||||
|
jr c, afxFrame2 ; Less than $20, play on
|
||||||
|
ld h, a ; Otherwise the end of the effect
|
||||||
|
ld c,$ff
|
||||||
|
ld b, c ; In BC we record the most time
|
||||||
|
jr afxFrame6
|
||||||
|
|
||||||
|
afxFrame2:
|
||||||
|
inc hl
|
||||||
|
ld (afxNseMix+1), a ; Keep the noise value
|
||||||
|
|
||||||
|
afxFrame3:
|
||||||
|
pop bc ; Restore the value of the cycle in B
|
||||||
|
push bc
|
||||||
|
inc b ; Number of shifts for flags TN
|
||||||
|
|
||||||
|
ld a, %01101111 ; Mask for flags TN
|
||||||
|
afxFrame4:
|
||||||
|
rrc e ; Shift flags and mask
|
||||||
|
rrca
|
||||||
|
djnz afxFrame4
|
||||||
|
ld d, a
|
||||||
|
|
||||||
|
ld bc, afxNseMix+2 ; Store the values of the flags
|
||||||
|
ld a, (bc)
|
||||||
|
xor e
|
||||||
|
and d
|
||||||
|
xor e ; E is masked with D
|
||||||
|
ld (bc), a
|
||||||
|
|
||||||
|
afxFrame5:
|
||||||
|
ld c, (ix+2) ; Increase the time counter
|
||||||
|
ld b, (ix+3)
|
||||||
|
inc bc
|
||||||
|
|
||||||
|
afxFrame6:
|
||||||
|
ld (ix+2), c
|
||||||
|
ld (ix+3), b
|
||||||
|
|
||||||
|
ld (ix+0), l ; Save the changed address
|
||||||
|
ld (ix+1), h
|
||||||
|
|
||||||
|
call CheckRelease
|
||||||
|
afxFrame7:
|
||||||
|
ld bc, 8 ; Go to the next channel
|
||||||
|
add ix, bc
|
||||||
|
pop bc
|
||||||
|
djnz afxFrame0
|
||||||
|
|
||||||
|
ld hl, $ffbf ; Output the value of noise and mixer
|
||||||
|
afxNseMix:
|
||||||
|
ld de, 0 ; +1(E)=noise, +2(D)=mixer
|
||||||
|
ld a, 6
|
||||||
|
ld b, h
|
||||||
|
out (c), a
|
||||||
|
ld b, l
|
||||||
|
out (c), e
|
||||||
|
inc a
|
||||||
|
ld b, h
|
||||||
|
out (c), a
|
||||||
|
ld b, l
|
||||||
|
out (c), d
|
||||||
|
ret
|
||||||
|
CheckRelease:
|
||||||
|
ld a, (ix+6) ; get release LSB
|
||||||
|
cp l
|
||||||
|
ret nz ; Carry on if no MLB match
|
||||||
|
ld a, (ix+7) ; get release MSB
|
||||||
|
or a
|
||||||
|
ret z ; Carry on if release disabled
|
||||||
|
cp h
|
||||||
|
ret nz ; Carry on if no MSB match
|
||||||
|
push bc
|
||||||
|
ld a, (ix+4)
|
||||||
|
or a
|
||||||
|
jp z, NoLoop
|
||||||
|
ld a, (ix+5) ; Set CurrentAddrCh[N] back
|
||||||
|
ld (ix+1), a ; to SustainAddrCh[N] LSB
|
||||||
|
ld a, (ix+4) ;
|
||||||
|
ld (ix+0), a ; and MSB
|
||||||
|
xor a
|
||||||
|
ld (ix+4), a ; then toggle off the sustain
|
||||||
|
ld (ix+5), a ; to require it to be resent
|
||||||
|
NoLoop:
|
||||||
|
pop bc
|
||||||
|
ret
|
||||||
|
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
; Launch the effect on a specific channel. Any sound currently ;
|
||||||
|
; playing on that channel is terminated next frame. ;
|
||||||
|
; ;
|
||||||
|
; Input: A = Effect number 0..255 ;
|
||||||
|
; E = Channel (A=0, B=1, C=2) ;
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
AFXPlayChannel:
|
||||||
|
ld bc, $0000
|
||||||
|
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
; Launch the effect on a specific channel. Any sound currently ;
|
||||||
|
; playing on that channel is terminated next frame. ;
|
||||||
|
; During playback, when reaching ReleaseAddrCh[N], if an ;
|
||||||
|
; AFXSustain call has been received since this AFXPlayLooped ;
|
||||||
|
; returned, the playback time frame will loop back to ;
|
||||||
|
; SustainAddrCh[N]. ;
|
||||||
|
; ;
|
||||||
|
; Input: A = Effect number 0..255 ;
|
||||||
|
; E = Channel (A=0, B=1, C=2) ;
|
||||||
|
; BC = ReleaseAddrCh[N] ;
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
AFXPlayLooped:
|
||||||
|
push af
|
||||||
|
ld a, c
|
||||||
|
ld (ReleaseLoSMC), a ; SMC>
|
||||||
|
ld a, b
|
||||||
|
ld (ReleaseHiSMC), a ; SMC>
|
||||||
|
ld a, e
|
||||||
|
add a, a
|
||||||
|
add a, a
|
||||||
|
add a, a
|
||||||
|
ld e, a
|
||||||
|
ld d, 0
|
||||||
|
ld ix, afxChDesc
|
||||||
|
add ix, de
|
||||||
|
ld e, 3
|
||||||
|
add ix, de
|
||||||
|
pop af
|
||||||
|
ld de, 0 ; In DE the longest time in search
|
||||||
|
ld h, e
|
||||||
|
ld l, a
|
||||||
|
add hl, hl
|
||||||
|
afxBnkAdr2:
|
||||||
|
ld bc, 0 ; Address of the effect offsets table
|
||||||
|
add hl, bc
|
||||||
|
ld c, (hl)
|
||||||
|
inc hl
|
||||||
|
ld b, (hl)
|
||||||
|
add hl, bc ; The effect address is obtained in hl
|
||||||
|
push hl ; Save the effect address on the stack
|
||||||
|
jp DoPlay
|
||||||
|
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
; Launch the effect on a free channel. If no free channels, ;
|
||||||
|
; the longest sounding is selected. ;
|
||||||
|
; ;
|
||||||
|
; Input: A = Effect number 0..255 ;
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
AFXPlay:
|
||||||
|
push af
|
||||||
|
ld a, c
|
||||||
|
ld (ReleaseLoSMC), a ; SMC>
|
||||||
|
ld a, b
|
||||||
|
ld (ReleaseHiSMC), a ; SMC>
|
||||||
|
pop af
|
||||||
|
ld de, 0 ; In DE the longest time in search
|
||||||
|
ld h, e
|
||||||
|
ld l, a
|
||||||
|
add hl, hl
|
||||||
|
afxBnkAdr1:
|
||||||
|
ld bc, 0 ; Address of the effect offsets table
|
||||||
|
add hl, bc
|
||||||
|
ld c, (hl)
|
||||||
|
inc hl
|
||||||
|
ld b, (hl)
|
||||||
|
add hl, bc ; The effect address is obtained in hl
|
||||||
|
push hl ; Save the effect address on the stack
|
||||||
|
ld hl, afxChDesc ; Empty channel search
|
||||||
|
ld b, 3
|
||||||
|
afxPlay0:
|
||||||
|
inc hl
|
||||||
|
inc hl
|
||||||
|
ld a, (hl) ; Compare the channel time with the largest
|
||||||
|
inc hl
|
||||||
|
cp e
|
||||||
|
jr c, afxPlay1
|
||||||
|
ld c, a
|
||||||
|
ld a, (hl)
|
||||||
|
cp d
|
||||||
|
jr c, afxPlay1
|
||||||
|
ld e, c ; Remember the longest time
|
||||||
|
ld d, a
|
||||||
|
push hl ; Remember the channel address+3 in IX
|
||||||
|
pop ix
|
||||||
|
afxPlay1:
|
||||||
|
ld a, 5
|
||||||
|
add a, l ; Add(hl, a) }
|
||||||
|
ld l, a ; }
|
||||||
|
adc a, h ; }
|
||||||
|
sub l ; }
|
||||||
|
ld h, a ; }
|
||||||
|
djnz afxPlay0
|
||||||
|
DoPlay:
|
||||||
|
pop de ; Take the effect address from the stack
|
||||||
|
ld (ix-3), e ; Put in the channel descriptor
|
||||||
|
ld (ix-2), d
|
||||||
|
ld (ix-1), b ; Zero the playing time
|
||||||
|
ld (ix-0), b
|
||||||
|
ReleaseLoSMC equ $+3
|
||||||
|
ld (ix+3), AFXSMC ; <SMC Release LSB
|
||||||
|
ReleaseHiSMC equ $+3
|
||||||
|
ld (ix+4), AFXSMC ; <SMC Release MSB
|
||||||
|
xor a
|
||||||
|
ld (ix+1), a ; Reset sustain LSB
|
||||||
|
ld (ix+2), a ; Reset sustain MSB
|
||||||
|
ret
|
||||||
|
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
; Notify AFX.Frame that the sound in channel E should be looped ;
|
||||||
|
; back to SustainAddrCh[N] once ReleaseAddrCh[N] has been ;
|
||||||
|
; reached,provided playback was started with AFX.PlayLooped ;
|
||||||
|
; ;
|
||||||
|
; Input: E = Channel (A=0, B=1, C=2) ;
|
||||||
|
; BC = SustainAddrCh[N] ;
|
||||||
|
; --------------------------------------------------------------;
|
||||||
|
AFXSustain:
|
||||||
|
ld a, e
|
||||||
|
add a, a
|
||||||
|
add a, a
|
||||||
|
add a, a
|
||||||
|
ld e, 4
|
||||||
|
add a, e
|
||||||
|
ld hl, afxChDesc
|
||||||
|
add a, l ; Add(hl, a) }
|
||||||
|
ld l, a ; }
|
||||||
|
adc a, h ; }
|
||||||
|
sub l ; }
|
||||||
|
ld h, a ; }
|
||||||
|
ld (hl), c
|
||||||
|
inc hl
|
||||||
|
ld (hl), b
|
||||||
|
ret
|
||||||
@ -50,16 +50,16 @@
|
|||||||
"TypDelay", -- DEFINES.INC --> UnusedSettingsFeatures
|
"TypDelay", -- DEFINES.INC --> UnusedSettingsFeatures
|
||||||
},
|
},
|
||||||
[2]={
|
[2]={
|
||||||
"LoadZXroms", -- 1
|
"PlayStartUpSound", -- 1
|
||||||
"QS_SetUpHardware", -- 2
|
"LoadZXroms", -- 2
|
||||||
"QS_SetUpZxRom", -- 3
|
"QS_SetUpHardware", -- 3
|
||||||
"TrDosA", -- 4
|
"QS_SetUpZxRom", -- 4
|
||||||
"TrDosB", -- 5
|
"TrDosA", -- 5
|
||||||
"TrDosC", -- 6
|
"TrDosB", -- 6
|
||||||
"TrDosD", -- 7
|
"TrDosC", -- 7
|
||||||
"SetTime", -- 8 DEFINES.INC --> NEW_FEATURE
|
"TrDosD", -- 8
|
||||||
--"HddWrPr", -- 9 DEFINES.INC --> HDDwriteProtect
|
"SetTime", -- 9 DEFINES.INC --> NEW_FEATUREDEFINES.INC --> HDDwriteProtect
|
||||||
-- 10
|
--"HddWrPr", -- 10 DEFINES.INC --> HDDwriteProtect
|
||||||
-- 11
|
-- 11
|
||||||
-- 12
|
-- 12
|
||||||
-- 13
|
-- 13
|
||||||
@ -504,6 +504,15 @@ SettingsItemsTabs:
|
|||||||
DB msgStrings.valLoadZXromsFlag
|
DB msgStrings.valLoadZXromsFlag
|
||||||
DB msgStrings.valLoadZXromsCAD
|
DB msgStrings.valLoadZXromsCAD
|
||||||
|
|
||||||
|
_mSETitemParams PlayStartUpSound
|
||||||
|
DW OnChangeAction.nothing
|
||||||
|
IF NEW_FEATURE : DB paramLine : ENDIF
|
||||||
|
DB columnNum,lineNum
|
||||||
|
DB paramName
|
||||||
|
DW CMOS_CELL.BootUpParams.Mask.BootSound : DB %0000'0010
|
||||||
|
DB msgStrings.valDisabled
|
||||||
|
DB msgStrings.valEnabled
|
||||||
|
|
||||||
IF NEW_FEATURE
|
IF NEW_FEATURE
|
||||||
_mSETitemParams SetTime
|
_mSETitemParams SetTime
|
||||||
DW OnChangeAction.SetTime
|
DW OnChangeAction.SetTime
|
||||||
@ -689,6 +698,7 @@ msgStrings:
|
|||||||
_mSetStr parTrDosB, tmp_Counter : DZ 'TR DOS B:> : '
|
_mSetStr parTrDosB, tmp_Counter : DZ 'TR DOS B:> : '
|
||||||
_mSetStr parTrDosC, tmp_Counter : DZ 'TR DOS C:> : '
|
_mSetStr parTrDosC, tmp_Counter : DZ 'TR DOS C:> : '
|
||||||
_mSetStr parTrDosD, tmp_Counter : DZ 'TR DOS D:> : '
|
_mSetStr parTrDosD, tmp_Counter : DZ 'TR DOS D:> : '
|
||||||
|
_mSetStr parPlayStartUpSound, tmp_Counter : DZ 'Startup sound : '
|
||||||
_mSetStr parLoadZXroms, tmp_Counter : DZ 'Load ZX ROMs : '
|
_mSetStr parLoadZXroms, tmp_Counter : DZ 'Load ZX ROMs : '
|
||||||
_mSetStr valLoadZXromsManually, tmp_Counter : DZ 'Manually '
|
_mSetStr valLoadZXromsManually, tmp_Counter : DZ 'Manually '
|
||||||
_mSetStr valLoadZXromsFlag, tmp_Counter : DZ 'By ZX flag'
|
_mSetStr valLoadZXromsFlag, tmp_Counter : DZ 'By ZX flag'
|
||||||
@ -865,6 +875,7 @@ msgRusStrings:
|
|||||||
_mSetStrRus parTrDosB, tmp_Counter : DZ 'TR DOS B:> : '
|
_mSetStrRus parTrDosB, tmp_Counter : DZ 'TR DOS B:> : '
|
||||||
_mSetStrRus parTrDosC, tmp_Counter : DZ 'TR DOS C:> : '
|
_mSetStrRus parTrDosC, tmp_Counter : DZ 'TR DOS C:> : '
|
||||||
_mSetStrRus parTrDosD, tmp_Counter : DZ 'TR DOS D:> : '
|
_mSetStrRus parTrDosD, tmp_Counter : DZ 'TR DOS D:> : '
|
||||||
|
_mSetStrRus parPlayStartUpSound, tmp_Counter : DZ '‘â àâ®¢ë© §¢ãª : '
|
||||||
_mSetStrRus parLoadZXroms, tmp_Counter : DZ '‡ £à㦠âì ZX <EFBFBD>‡“ : '
|
_mSetStrRus parLoadZXroms, tmp_Counter : DZ '‡ £à㦠âì ZX <EFBFBD>‡“ : '
|
||||||
_mSetStrRus valLoadZXromsManually, tmp_Counter : DZ '‚àãçãî '
|
_mSetStrRus valLoadZXromsManually, tmp_Counter : DZ '‚àãçãî '
|
||||||
_mSetStrRus valLoadZXromsFlag, tmp_Counter : DZ '<EFBFBD>® ä« £ã ZX '
|
_mSetStrRus valLoadZXromsFlag, tmp_Counter : DZ '<EFBFBD>® ä« £ã ZX '
|
||||||
|
|||||||
BIN
src/bios/rom/SETUP/netherworld_8.afx
Executable file
BIN
src/bios/rom/SETUP/netherworld_8.afx
Executable file
Binary file not shown.
@ -4,212 +4,161 @@
|
|||||||
STARTUP_SOUND: LD HL,.BYTE_POS
|
STARTUP_SOUND: LD HL,.BYTE_POS
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
LD C,SP_SND.AY
|
LD C,SP_SND.AY
|
||||||
CP .toneDataSize + 1
|
|
||||||
JR C,.play
|
|
||||||
;-- mus off
|
|
||||||
XOR A
|
|
||||||
LD E,A
|
|
||||||
.offLp: LD B,high SP_SND.AY.CTRL
|
|
||||||
OUT (C),A
|
|
||||||
LD B,high SP_SND.AY.DATA
|
|
||||||
OUT (C),E
|
|
||||||
INC A
|
|
||||||
CP 15
|
|
||||||
JR NZ,.offLp
|
|
||||||
RET
|
|
||||||
;
|
;
|
||||||
.play: LD DE,#0700+56
|
AND A
|
||||||
|
JR NZ,.no_init
|
||||||
|
;
|
||||||
|
LD DE,7*256 + %0011'1011
|
||||||
LD B,high SP_SND.AY.CTRL
|
LD B,high SP_SND.AY.CTRL
|
||||||
OUT (C),D
|
OUT (C),D
|
||||||
LD B,high SP_SND.AY.DATA
|
LD B,high SP_SND.AY.DATA
|
||||||
OUT (C),E
|
OUT (C),E
|
||||||
CP 33
|
;
|
||||||
JR NC,.playVol
|
.no_init: CP .volDataSize
|
||||||
AND 3
|
JR C,.play
|
||||||
JR NZ,.playVol
|
;-- mus off
|
||||||
;--- play tone
|
.mute: XOR A
|
||||||
|
LD E,A
|
||||||
|
.offLp: CALL .set_regs
|
||||||
|
CP 14
|
||||||
|
JR NZ,.offLp
|
||||||
|
;
|
||||||
|
LD A,7
|
||||||
|
DEC E
|
||||||
|
CALL .set_regs
|
||||||
|
RET
|
||||||
|
;
|
||||||
|
.play: ;
|
||||||
|
;--- set tone
|
||||||
LD HL,(.WORD_TONE)
|
LD HL,(.WORD_TONE)
|
||||||
;A=0
|
;A=0
|
||||||
|
LD A,4 ;REG C
|
||||||
.playToneLp: LD B,high SP_SND.AY.CTRL
|
.playToneLp: LD B,high SP_SND.AY.CTRL
|
||||||
OUT (C),A
|
OUT (C),A
|
||||||
LD B,high SP_SND.AY.DATA
|
LD B,high SP_SND.AY.DATA + 1
|
||||||
OUTI
|
OUTI
|
||||||
INC A
|
INC A
|
||||||
CP 6
|
CP 6
|
||||||
JR NZ,.playToneLp
|
JR NZ,.playToneLp
|
||||||
;
|
;
|
||||||
LD (.WORD_TONE),HL
|
LD (.WORD_TONE),HL
|
||||||
|
;--- set volume
|
||||||
.playVol: LD HL,(.WORD_VOL)
|
.playVol: LD HL,(.WORD_VOL)
|
||||||
LD A,8
|
LD A,10
|
||||||
LD E,(HL)
|
LD E,(HL)
|
||||||
INC HL
|
INC HL
|
||||||
.playVolLp: LD B,high SP_SND.AY.CTRL
|
.playVolLp: CALL .set_regs
|
||||||
OUT (C),A
|
|
||||||
LD B,high SP_SND.AY.DATA
|
|
||||||
OUT (C),E
|
|
||||||
INC A
|
|
||||||
CP 11
|
|
||||||
JR NZ,.playVolLp
|
|
||||||
;
|
;
|
||||||
LD (.WORD_VOL),HL
|
LD (.WORD_VOL),HL
|
||||||
LD HL,.BYTE_POS
|
LD HL,.BYTE_POS
|
||||||
INC (HL)
|
INC (HL)
|
||||||
RET
|
RET
|
||||||
|
; ;
|
||||||
|
.set_regs: LD B,high SP_SND.AY.CTRL
|
||||||
|
OUT (C),A
|
||||||
|
LD B,high SP_SND.AY.DATA
|
||||||
|
OUT (C),E
|
||||||
|
INC A
|
||||||
|
RET
|
||||||
;-----------------------------------------------------------------------
|
;-----------------------------------------------------------------------
|
||||||
.BYTE_POS: DB 0
|
.BYTE_POS: DB 0
|
||||||
.WORD_VOL: DW .volData
|
.WORD_VOL: DW .volData
|
||||||
.WORD_TONE: DW .toneData
|
.WORD_TONE: DW .toneData
|
||||||
;-----------------------------------------------------------------------
|
;-----------------------------------------------------------------------
|
||||||
.volData: ;DB 11,10,08,06,08,07,06,05
|
.toneData: DW #022, #044, #088, #110, #220, #440
|
||||||
;DB 12,11,09,07,09,08,07,06
|
DW #880, #440, #220, #110, #088, #044
|
||||||
DB 13,12,10,08,09,08,07,06
|
DW #022, #044, #088, #110, #220, #440
|
||||||
DB 13,12,10,08,09,08,07,06
|
DW #880, #440, #220, #110, #088, #044
|
||||||
DB 13,12,10,08,09,08,07,06
|
DW #022
|
||||||
DB 12,12,10,08,07,06,05,04
|
.volData: DB #02, #04, #06, #08, #0A, #0C
|
||||||
DB 07,06,05,04,03,02,01,00
|
DB #0E, #0D, #0C, #0B, #0A, #09
|
||||||
DB 05,04,03,02,01,00,00,00
|
DB #08, #07, #06, #05, #04, #03
|
||||||
DB 04,03,02,02,01,00,00,00
|
DB #02, #06, #08, #0A, #0C, #0E
|
||||||
DB 02,02,01,01,00,00,00,00
|
DB #0F
|
||||||
|
.volDataSize EQU $ - .volData
|
||||||
.toneData: DB 68,3,136,6,162,1
|
|
||||||
DB 136,6,136,6,68,3
|
|
||||||
DB 57,1,229,4,114,2
|
|
||||||
;DB 68,3,229,4,162,1
|
|
||||||
;DB 46,2,92,4,23,1
|
|
||||||
;DB 57,1,92,4,114,2
|
|
||||||
;DB 209,0,68,3,162,1
|
|
||||||
;DB 46,2,68,3,23,1
|
|
||||||
;DB 209,0,68,3,162,1
|
|
||||||
.toneDataSize EQU $ - .toneData
|
|
||||||
|
|
||||||
.codeEnd: DISPLAY "StartUp Sound size: ",/A,.codeEnd - STARTUP_SOUND
|
.codeEnd: DISPLAY "StartUp Sound size: ",/A,.codeEnd - STARTUP_SOUND
|
||||||
|
|
||||||
; savesna "startup_sound.sna", #8000
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
; CODE BY €«¥ªá ¤à -=TmK deMarche=-
|
||||||
|
; play frame
|
||||||
MODULE STARTUP_SOUND
|
; use: af,hl,de,bc 251
|
||||||
DEFINE SND_VARIANT 2 ; 0, 1, 2
|
STARTUP_SOUND: LD HL,.BYTE_POS
|
||||||
|
LD A,(HL)
|
||||||
IF SND_VARIANT == 0
|
LD C,SP_SND.AY
|
||||||
DEFINE SND_Const1 15
|
|
||||||
DEFINE SND_Const2 7
|
|
||||||
;
|
;
|
||||||
ELSEIF SND_VARIANT == 1
|
AND A
|
||||||
DEFINE SND_Const1 15
|
JR NZ,.no_init
|
||||||
DEFINE SND_Const2 7
|
|
||||||
;
|
;
|
||||||
ELSEIF SND_VARIANT == 2
|
LD DE,7*256 + %0011'1011
|
||||||
DEFINE SND_Const1 14
|
LD B,high SP_SND.AY.CTRL
|
||||||
DEFINE SND_Const2 6
|
|
||||||
ENDIF
|
|
||||||
|
|
||||||
codeBegin: LD A,SND_Const1
|
|
||||||
LD HL,.volData
|
|
||||||
LD DE,.sndData
|
|
||||||
.lp: CALL .snd
|
|
||||||
CALL .vol
|
|
||||||
CALL .vol
|
|
||||||
CALL .vol
|
|
||||||
DEC A
|
|
||||||
JP NZ,.lp
|
|
||||||
;--
|
|
||||||
LD DE,#07ff
|
|
||||||
LD B,E
|
|
||||||
OUT (C),D
|
OUT (C),D
|
||||||
LD B,#bf
|
LD B,high SP_SND.AY.DATA
|
||||||
OUT (C),E
|
OUT (C),E
|
||||||
RET
|
|
||||||
;----------------
|
|
||||||
.snd: CALL .vol
|
|
||||||
CP SND_Const2
|
|
||||||
RET C
|
|
||||||
;
|
;
|
||||||
.sndEnd: EX AF,AF
|
.no_init: CP .volDataSize
|
||||||
EX DE,HL
|
JR C,.play
|
||||||
PUSH DE
|
;-- mus off
|
||||||
XOR A
|
.mute: XOR A
|
||||||
.sndLp: LD B,#ff
|
LD E,A
|
||||||
|
.offLp: CALL .set_regs
|
||||||
|
CP 14
|
||||||
|
JR NZ,.offLp
|
||||||
|
;
|
||||||
|
LD A,7
|
||||||
|
DEC E
|
||||||
|
CALL .set_regs
|
||||||
|
RET
|
||||||
|
;
|
||||||
|
.play: ;
|
||||||
|
;--- set tone
|
||||||
|
LD HL,(.WORD_TONE)
|
||||||
|
;A=0
|
||||||
|
LD A,4 ;REG C
|
||||||
|
.playToneLp: LD B,high SP_SND.AY.CTRL
|
||||||
OUT (C),A
|
OUT (C),A
|
||||||
LD B,#bf
|
LD B,high SP_SND.AY.DATA + 1
|
||||||
OUTI
|
OUTI
|
||||||
INC A
|
INC A
|
||||||
CP 6
|
CP 6
|
||||||
JR NZ,.sndLp
|
JR NZ,.playToneLp
|
||||||
POP DE
|
;
|
||||||
EX DE,HL
|
LD (.WORD_TONE),HL
|
||||||
EX AF,AF
|
;--- set volume
|
||||||
RET
|
.playVol: LD HL,(.WORD_VOL)
|
||||||
;----------------
|
LD A,10
|
||||||
.vol: ;EI
|
|
||||||
;HALT
|
|
||||||
EX AF,AF
|
|
||||||
PUSH DE
|
|
||||||
LD BC,#fffd
|
|
||||||
LD DE,#0700+56
|
|
||||||
OUT (C),D
|
|
||||||
LD B,#bf
|
|
||||||
OUT (C),E
|
|
||||||
LD A,8
|
|
||||||
LD E,(HL)
|
LD E,(HL)
|
||||||
INC HL
|
INC HL
|
||||||
.volLp: LD B,#ff
|
.playVolLp: CALL .set_regs
|
||||||
|
;
|
||||||
|
LD (.WORD_VOL),HL
|
||||||
|
LD HL,.BYTE_POS
|
||||||
|
INC (HL)
|
||||||
|
RET
|
||||||
|
; ;
|
||||||
|
.set_regs: LD B,high SP_SND.AY.CTRL
|
||||||
OUT (C),A
|
OUT (C),A
|
||||||
LD B,#bf
|
LD B,high SP_SND.AY.DATA
|
||||||
OUT (C),E
|
OUT (C),E
|
||||||
INC A
|
INC A
|
||||||
CP 11
|
|
||||||
JR NZ,.volLp
|
|
||||||
POP DE
|
|
||||||
EX AF,AF
|
|
||||||
RET
|
RET
|
||||||
;----------------
|
;-----------------------------------------------------------------------
|
||||||
.volData:
|
.BYTE_POS: DB 0
|
||||||
IF SND_VARIANT == 0
|
.WORD_VOL: DW .volData
|
||||||
DB 13,12,10,08,09,08,07,06
|
.WORD_TONE: DW .toneData
|
||||||
DB 13,12,10,08,09,08,07,06
|
;-----------------------------------------------------------------------
|
||||||
DB 13,12,10,08,09,08,07,06
|
.toneData: DW #022, #044, #088, #110, #220, #440
|
||||||
DB 12,12,10,08,07,06,05,04
|
DW #880, #440, #220, #110, #088, #044
|
||||||
DB 07,06,05,04,03,02,01,00
|
DW #022, #044, #088, #110, #220, #440
|
||||||
DB 05,04,03,02,01,00,00,00
|
DW #880, #440, #220, #110, #088, #044
|
||||||
DB 04,03,02,02,01,00,00,00
|
DW #022
|
||||||
DB 02,02,01,01,00,00,00,00
|
.volData: DB #02, #04, #06, #08, #0A, #0C
|
||||||
;
|
DB #0E, #0D, #0C, #0B, #0A, #09
|
||||||
ELSEIF SND_VARIANT == 1
|
DB #08, #07, #06, #05, #04, #03
|
||||||
DB 11,10,08,06,08,07,06,05
|
DB #02, #06, #08, #0A, #0C, #0E
|
||||||
DB 12,11,09,07,09,08,07,06
|
DB #0F
|
||||||
DB 13,12,10,08,09,08,07,06
|
.volDataSize EQU $ - .volData
|
||||||
DB 13,12,10,08,07,06,05,04
|
|
||||||
DB 08,07,06,05,04,03,02,01
|
|
||||||
DB 06,05,04,03,02,01,00,00
|
|
||||||
DB 04,04,03,02,01,00,00,00
|
|
||||||
DB 02,02,01,01,00,00,00,00
|
|
||||||
;
|
|
||||||
ELSEIF SND_VARIANT == 2
|
|
||||||
DB 15,14,13,10,10,09,09,07
|
|
||||||
DB 15,14,13,10,10,09,09,07
|
|
||||||
DB 15,14,13,10,10,09,09,07
|
|
||||||
DB 15,14,13,10,07,06,05,04
|
|
||||||
DB 08,07,06,05,04,03,02,01
|
|
||||||
DB 06,05,04,03,02,01,00,00
|
|
||||||
DB 04,03,02,01,00,00,00,00
|
|
||||||
ENDIF
|
|
||||||
|
|
||||||
|
.codeEnd: DISPLAY "StartUp Sound size: ",/A,.codeEnd - STARTUP_SOUND
|
||||||
.sndData: DB 68,3,136,6,162,1
|
|
||||||
DB 136,6,136,6,68,3
|
|
||||||
DB 57,1,229,4,114,2
|
|
||||||
DB 68,3,229,4,162,1
|
|
||||||
DB 46,2,92,4,23,1
|
|
||||||
DB 57,1,92,4,114,2
|
|
||||||
DB 209,0,68,3,162,1
|
|
||||||
DB 46,2,68,3,23,1
|
|
||||||
DB 209,0,68,3,162,1
|
|
||||||
|
|
||||||
codeEnd: DISPLAY "StartUp Sound size: ",/A,codeEnd-codeBegin
|
|
||||||
|
|
||||||
ENDMODULE
|
|
||||||
*/
|
*/
|
||||||
Loading…
Reference in New Issue
Block a user