Sparse Invaders Source - Sound.txt
From Retrosoftware
Neilb (Talk | contribs)
(New page: = Sparse Invaders Source - Sound.txt = ;------------------------------------------------------------------------------- ; Sound - Invaders ... ; Written by PJ for use withi...)
Next diff →
Revision as of 17:22, 6 November 2009
Sparse Invaders Source - Sound.txt
;------------------------------------------------------------------------------- ; Sound - Invaders ... ; Written by PJ for use within Invaders. ; ; Copyright 2008,2009 Neil Beresford ; ; This file is part of Sparse Invaders. ; Sparse Invaders is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, either version 3 of the License, or ; (at your option) any later version. ; ; Sparse Invaders is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with Sparse Invaders. If not, see <http://www.gnu.org/licenses/>. ; ; ;------------------------------------------------------------------------------- ;----------------------------- ; ; VDU CODES ; ;----------------------------- .alias VDU_NULL $00 .alias VDU_TO_PRINTER $01 .alias VDU_ENABLE_PRINTER $02 .alias VDU_DISABLE_PRINTER $03 .alias VDU_WRITE_TEXT $04 .alias VDU_WRITE_TEXT_GFX $05 .alias VDU_ENABLE $06 .alias VDU_BEEP $07 .alias VDU_CURSOR_BACK $08 .alias VDU_CURSOR_FWD $09 .alias VDU_CURSOR_DOWN $0A .alias VDU_CURSOR_UP $0B .alias VDU_CLEAR_TEXT $0C .alias VDU_RETURN $0D .alias VDU_PAGED_MODE_ON $0E .alias VDU_PAGED_MODE_OFF $0F .alias VDU_CLEAR_GFX $10 .alias VDU_TEXT_COLOUR $11 .alias VDU_GFX_COLOUR $12 .alias VDU_LOGICAL_COLOUR $13 .alias VDU_DEFAULT_LOGICAL_COLOURS $14 .alias VDU_DISABLE $15 .alias VDU_MODE $16 .alias VDU_PROGRAM_DISPLAY_CHAR $17 .alias VDU_GFX_WINDOW $18 .alias VDU_PLOT $19 .alias VDU_RESTORE_WINDOW $1A .alias VDU_ESCAPE $1B .alias VDU_TEXT_WINDOW $1C .alias VDU_GFX_ORIGIN $1D .alias VDU_CURSOR_HOME $1E .alias VDU_MOVE_CURSOR $1F ;----------------------------- ; ; OSWORD ; ;----------------------------- .alias OSW_READ_LINE $00 .alias OSW_READ_SYS_CLOCK $01 .alias OSW_WRITE_SYS_CLOCK $02 .alias OSW_READ_TIMER $03 .alias OSW_WRITE_TIMER $04 .alias OSW_READ_IO_BYTE $05 .alias OSW_WRITE_IO_BYTE $06 .alias OSW_SOUND $07 .alias OSW_DEFINE_ENVELOPE $08 .alias OSW_READ_PIXEL $09 .alias OSW_READ_CHARACTER_DEFN $0A .alias OSW_READ_PALETTE $0B .alias OSW_WRITE_PALETTE $0C .alias OSW_READ_CURSOR $0D ;----------------------------- ; ; INKEY ; ;----------------------------- .alias INKEY_SPACE $9D .alias INKEY_SLASH_QUESTION $87 .alias INKEY_X $BD .alias INKEY_Z $9E .alias INKEY_A $BE .alias INKEY_COMMA_LESSTHAN $99 .alias INKEY_PERIOD_GREATERTHAN $98 .alias INKEY_RETURN $B6 ;----------------------------- ; ; OSBYTE ; ;----------------------------- .alias FX_PRINT_OPERATING_SYSTEM_VERSION $00 .alias FX_USER_OSBYTE_CALL_RW_LOCATION_ $01 .alias FX_SELECT_INPUT_STREAM $02 .alias FX_SELECT_OUTPUT_STREAM $03 .alias FX_ENABLEDISABLE_CURSOR_EDITING $04 .alias FX_SELECT_PRINTER_DESTINATION $05 .alias FX_SET_CHARACTER_IGNORED_BY_PRINTER $06 .alias FX_SET_RS_BAUD_RATE_FOR_RECEIVING_DATA $07 .alias FX_SET_RS_BAUD_RATE_FOR_DATA_TRANSMISSION $08 .alias FX_SET_FLASHING_COLOUR_MARK_STATE_DURATION $09 .alias FX_SET_FLASHING_COLOUR_SPACE_STATE_DURATION $0A .alias FX_SET_KEYBOARD_AUTOREPEAT_DELAY_INTERVAL $0B .alias FX_SET_KEYBOARD_AUTOREPEAT_RATE $0C .alias FX_DISABLE_EVENTS $0D .alias FX_ENABLE_EVENTS $0E .alias FX_FLUSH_SELECTED_BUFFER_CLASS $0F .alias FX_SELECT_ADC_CHANNELS_TO_BE_SAMPLED $10 .alias FX_FORCE_AN_ADC_CONVERSION $11 .alias FX_RESET_SOFT_KEYS $12 .alias FX_WAIT_FOR_VERTICAL_SYNC $13 .alias FX_EXPLODE_SOFT_CHARACTER_RAM_ALLOCATION $14 .alias FX_FLUSH_SPECIFIC_BUFFER $15 .alias FX_READ_VDU_STATUS $75 .alias FX_REFLECT_KEYBOARD_STATUS_IN_LEDS $76 .alias FX_CLOSE_ANY_SPOOL_OR_EXEC_FILES $77 .alias FX_WRITE_CURRENT_KEYS_PRESSED_INFORMATION $78 .alias FX_PERFORM_KEYBOARD_SCAN $79 .alias FX_PERFORM_KEYBOARD_SCAN_FROM__ $7A .alias FX_INFORM_OS_PRINTER_DRIVER_GOING_DORMANT $7B .alias FX_CLEAR_ESCAPE_CONDITION $7C .alias FX_SET_ESCAPE_CONDITION $7D .alias FX_ACKNOWLEDGE_DETECTION_OF_ESCAPE_CONDITION $7E .alias FX_CHECK_FOR_EOF_ON_AN_OPEN_FILE $7F .alias FX_READ_ADC_CHANNEL_OR_GET_BUFFER_STATUS $80 .alias FX_READ_KEY_WITH_TIME_LIMIT $81 .alias FX_READ_MACHINE_HIGH_ORDER_ADDRESS $82 .alias FX_READ_TOP_OF_OS_RAM_ADDRESS_OSHWM $83 .alias FX_READ_BOTTOM_OF_DISPLAY_RAM_ADDRESS_HIMEM $84 .alias FX_READ_BOTTOM_OF_DISPLAY_ADDRESS_FOR_A_GIVEN_MODE $85 .alias FX_READ_TEXT_CURSOR_POSITION_POS_AND_VPOS $86 .alias FX_READ_CHARACTER_AT_CURSOR_POSITION $87 .alias FX_PERFORM_CODE $88 .alias FX_PERFORM_MOTOR $89 .alias FX_INSERT_VALUE_INTO_BUFFER $8A .alias FX_PERFORM_OPT $8B .alias FX_PERFORM_TAPE $8C .alias FX_PERFORM_ROM $8D .alias FX_ENTER_LANGUAGE_ROM $8E .alias FX_ISSUE_PAGED_ROM_SERVICE_REQUEST $8F .alias FX_PERFORM_TV $90 .alias FX_GET_CHARACTER_FROM_BUFFER $91 .alias FX_READ_FROM_FRED__MHZ_BUS $92 .alias FX_WRITE_TO_FRED__MHZ_BUS $93 .alias FX_READ_FROM_JIM__MHZ_BUS $94 .alias FX_WRITE_TO_JIM__MHZ_BUS $95 .alias FX_READ_FROM_SHEILA_MAPPED_IO $96 .alias FX_WRITE_TO_SHEILA_MAPPED_IO $97 .alias FX_EXAMINE_BUFFER_STATUS $98 .alias FX_INSERT_CHARACTER_INTO_INPUT_BUFFER $99 .alias FX_WRITE_TO_VIDEO_ULA_CONTROL_REGISTER_AND_COPY $9A .alias FX_WRITE_TO_VIDEO_ULA_PALETTE_REGISTER_AND_COPY $9B .alias FX_RW__CONTROL_REGISTER_AND_COPY $9C .alias FX_FAST_TUBE_BPUT $9D .alias FX_READ_FROM_SPEECH_PROCESSOR $9E .alias FX_WRITE_TO_SPEECH_PROCESSOR $9F .alias FX_READ_VDU_VARIABLE_VALUE $A0 .alias FX_READ_START_ADDRESS_OF_OS_VARIABLES_LOW_BYTE $A6 .alias FX_READ_START_ADDRESS_OF_OS_VARIABLES_HIGH_BYTE $A7 .alias FX_READ_ADDRESS_OF_ROM_POINTER_TABLE_LOW_BYTE $A8 .alias FX_READ_ADDRESS_OF_ROM_POINTER_TABLE_HIGH_BYTE $A9 .alias FX_READ_ADDRESS_OF_ROM_INFORMATION_TABLE_LOW_BYTE $AA .alias FX_READ_ADDRESS_OF_ROM_INFORMATION_TABLE_HIGH_BYTE $AB .alias FX_READ_ADDRESS_OF_KEY_TRANSLATION_TABLE_LOW_BYTE $AC .alias FX_READ_ADDRESS_OF_KEY_TRANSLATION_TABLE_HIGH_BYTE $AD .alias FX_READ_START_ADDRESS_OF_OS_VDU_VARIABLES_LOW_BYTE $AE .alias FX_READ_START_ADDRESS_OF_OS_VDU_VARIABLES_HIGH_BYTE $AF .alias FX_RW_CFS_TIMEOUT_COUNTER $B0 .alias FX_RW_INPUT_SOURCE $B1 .alias FX_RW_KEYBOARD_SEMAPHORE $B2 .alias FX_RW_PRIMARY_OSHWM $B3 .alias FX_RW_CURRENT_OSHWM $B4 .alias FX_RW_RS_MODE $B5 .alias FX_READ_CHARACTER_DEFINITION_EXPLOSION_STATE $B6 .alias FX_RW_CASSETTEROM_FILING_SYSTEM_SWITCH $B7 .alias FX_READ_RAM_COPY_OF_VIDEO_ULA_CONTROL_REGISTER $B8 .alias FX_READ_RAM_COPY_OF_VIDEO_ULA_PALETTE_REGISTER $B9 .alias FX_RW_ROM_NUMBER_ACTIVE_AT_LAST_BRK_ERROR $BA .alias FX_RW_NUMBER_OF_ROM_SOCKET_CONTAINING_BASIC $BB .alias FX_READ_CURRENT_ADC_CHANNEL $BC .alias FX_RW_MAXIMUM_ADC_CHANNEL_NUMBER $BD .alias FX_READ_ADC_CONVERSION_TYPE $BE .alias FX_RW_RS_USE_FLAG $BF .alias FX_READ_RS_CONTROL_FLAG $C0 .alias FX_RW_FLASH_COUNTER $C1 .alias FX_RW_MARK_PERIOD_COUNT $C2 .alias FX_RW_SPACE_PERIOD_COUNT $C3 .alias FX_RW_KEYBOARD_AUTOREPEAT_DELAY $C4 .alias FX_RW_KEYBOARD_AUTOREPEAT_PERIOD $C5 .alias FX_RW_EXEC_FILE_HANDLE $C6 .alias FX_RW_SPOOL_FILE_HANDLE $C7 .alias FX_RW_ESCAPE_BREAK_EFFECT $C8 .alias FX_RW_ECONET_KEYBOARD_DISABLE $C9 .alias FX_RW_KEYBOARD_STATUS_BYTE $CA .alias FX_RW_RS_HANDSHAKE_EXTENT $CB .alias FX_RW_RS_INPUT_SUPPRESSION_FLAG $CC .alias FX_RW_CASSETTERS_SELECTION_FLAG $CD .alias FX_RW_ECONET_OS_CALL_INTERCEPTION_STATUS $CE .alias FX_RW_ECONET_OSRDCH_INTERCEPTION_STATUS $CF .alias FX_RW_ECONET_OSWRCH_INTERCEPTION_STATUS $D0 .alias FX_RW_SPEECH_SUPPRESSION_STATUS $D1 .alias FX_RW_SOUND_SUPPRESSION_STATUS $D2 .alias FX_RW_BELL_CHANNEL $D3 .alias FX_RW_BELL_ENVELOPE_NUMBERAMPLITUDE $D4 .alias FX_RW_BELL_FREQUENCY $D5 .alias FX_RW_BELL_DURATION $D6 .alias FX_RW_STARTUP_MESSAGE_AND_BOOT_OPTIONS $D7 .alias FX_RW_LENGTH_OF_SOFT_KEY_STRING $D8 .alias FX_RW_NUMBER_OF_LINES_PRINTED_SINCE_LAST_PAGE $D9 .alias FX_RW_NUMBER_OF_ITEMS_IN_VDU_QUEUE $DA .alias FX_RW_TAB_CHARACTER_VALUE $DB .alias FX_RW_ESCAPE_CHARACTER_VALUE $DC .alias FX_RW_CHARACTER_CO_TO_CF_STATUS $DD .alias FX_RW_CHARACTER_DO_TO_DF_STATUS $DE .alias FX_RW_CHARACTER_EO_TO_EF_STATUS $DF .alias FX_RW_CHARACTER_FO_TO_FF_STATUS $E0 .alias FX_RW_FUNCTION_KEY_STATUS $E1 .alias FX_RW_SHIFT_FUNCTION_KEY_STATUS $E2 .alias FX_RW_CTRLFUNCTION_KEY_STATUS $E3 .alias FX_RW_CTRLSHIFTFUNCTION_KEY_STATUS $E4 .alias FX_RW_ESCAPE_KEY_STATUS $E5 .alias FX_RW_FLAGS_DETERMINING_ESCAPE_EFFECTS $E6 .alias FX_RW_JRQ_BIT_MASK_FOR_USER_ $E7 .alias FX_RW_IRQ_BIT_MASK_FOR_ $E8 .alias FX_RW_IRQ_BIT_MASK_FOR_SYSTEM_S $E9 .alias FX_READ_FLAG_INDICATING_TUBE_PRESENCE $EA .alias FX_READ_FLAG_INDICATING_SPEECH_PROCESSOR_PRESENCE $EB .alias FX_RW_WRITE_CHARACTER_DESTINATION_STATUS $EC .alias FX_RW_CURSOR_EDITING_STATUS $ED .alias FX_RW_LOCATION_E_NOT_USED_BY__ $EE .alias FX_RW_LOCATION_F_NOT_USED_BY__ $EF .alias FX_RW_LOCATION__NOT_USED_BY__ $F0 .alias FX_RW_LOCATION__USED_BY_FX_ $F1 .alias FX_READ_RAM_COPY_OF_SERIAL_PROCESSOR_ULA $F2 .alias FX_RW_TIMER_SWITCH_STATE $F3 .alias FX_RW_SOFT_KEY_CONSISTENCY_FLAG $F4 .alias FX_RW_PRINTER_DESTINATION_FLAG $F5 .alias FX_RW_CHARACTER_IGNORED_BY_PRINTER $F6 .alias FX_RW_FIRST_BYTE_OF_BREAK_INTERCEPT_CODE $F7 .alias FX_RW_SECOND_BYTE_OF_BREAK_INTERCEPT_CODE $F8 .alias FX_RW_THIRD_BYTE_OF_BREAK_INTERCEPT_CODE $F9 .alias FX_RW_LOCATION_A_NOT_USED_BY__ $FA .alias FX_RW_LOCATION_B_NOT_USED_BY__ $FB .alias FX_RW_CURRENT_LANGUAGE_ROM_NUMBER $FC .alias FX_RW_LAST_BREAK_TYPE $FD .alias FX_RW_AVAILABLE_RAM $FE .alias FX_RW_START_UP_OPTIONS $FF .alias MuteFlag $74 .alias SoundIndex $75 .alias MissFirstSound $76 .alias IRQVECL $204 .alias IRQVECH $205 .alias osbyte $fff4 .alias osword $fff1 .alias oswrch $ffee ;------------------------------------------------------------------------------- ; Functionality ;------------------------------------------------------------------------------- _MAKE_SOUND:
STA SoundIndex ;//[0E9E] 85 84 LDA MuteFlag ;//[0EA0] AD 2D 2F BNE bra_0EE6 ;//[0EA3] D0 41 TXA ;//[0EA5] 8A PHA ;//[0EA6] 48 TYA ;//[0EA7] 98 PHA ;//[0EA8] 48 LDX SoundIndex ;//[0EA9] A6 84 LDA SoundSync,X ;//[0EAB] BD 08 22 STA SoundIndex ;//[0EAE] 85 84
bra_0EB0:
LDA SoundSync,X ;//[0EB0] BD 08 22 STA SoundBlock1 ;//[0EB3] 8D 01 22 LDA SoundChannel,X ;//[0EB6] BD 14 22 STA SoundBlock ;//[0EB9] 8D 00 22 LDY #$02 ;//[0EBC] A0 02 LDA SoundVolumeEnv,X ;//[0EBE] BD 20 22 JSR _STORE_SOUND_WORD ;//[0EC1] 20 E7 0E LDA SoundPitch,X ;//[0EC4] BD 2C 22 JSR _STORE_SOUND_WORD ;//[0EC7] 20 E7 0E LDA SoundDuration,X ;//[0ECA] BD 38 22 JSR _STORE_SOUND_WORD ;//[0ECD] 20 E7 0E TXA ;//[0ED0] 8A PHA ;//[0ED1] 48 LDX #<SoundBlock ;//[0ED2] A2 00 LDY #>SoundBlock ;//[0ED4] A0 22 LDA #OSW_SOUND ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF PLA ;//[0EDB] 68 TAX ;//[0EDC] AA INX ;//[0EDD] E8 DEC SoundIndex ;//[0EDE] C6 84 BPL bra_0EB0 ;//[0EE0] 10 CE PLA ;//[0EE2] 68 TAY ;//[0EE3] A8 PLA ;//[0EE4] 68 TAX ;//[0EE5] AA
bra_0EE6:
RTS ;//[0EE6] 60
_STORE_SOUND_WORD:
STA SoundBlock,Y ;//[0EE7] 99 00 22 INY ;//[0EEA] C8
ASL ;//[0EEB] 0A
LDA #$00 ;//[0EEC] A9 00 BCC bra_0EF2 ;//[0EEE] 90 02 LDA #$FF ;//[0EF0] A9 FF
bra_0EF2:
STA SoundBlock,Y ;//[0EF2] 99 00 22 INY ;//[0EF5] C8 RTS ;//[0EF6] 60
SoundBlock:
.byte $13 ;//[2200] .
SoundBlock1:
.byte $00 ;//[2201] . .byte $F1 ;//[2202] . .byte $FF ;//[2203] . .byte $04 ;//[2204] . .byte $00 ;//[2205] . .byte $01 ;//[2206] . .byte $00 ;//[2207] .
SoundSync:
.byte $00 ;//[2208] . .byte $00 ;//[2209] . .byte $01 ;//[220A] . .byte $01 ;//[220B] . .byte $01 ;//[220C] . .byte $01 ;//[220D] . .byte $00 ;//[220E] . .byte $00 ;//[220F] . .byte $00 ;//[2210] . .byte $00 ;//[2211] . .byte $00 ;//[2212] . .byte $00 ;//[2213] .
SoundChannel:
.byte $12 ;//[2214] . .byte $13 ;//[2215] . .byte $11 ;//[2216] . .byte $10 ;//[2217] . .byte $11 ;//[2218] . .byte $10 ;//[2219] . .byte $12 ;//[221A] . .byte $13 ;//[221B] . .byte $13 ;//[221C] . .byte $13 ;//[221D] . .byte $13 ;//[221E] . .byte $13 ;//[221F] .
SoundVolumeEnv:
.byte $01 ;//[2220] . .byte $F1 ;//[2221] . .byte $02 ;//[2222] . .byte $03 ;//[2223] . .byte $02 ;//[2224] . .byte $F1 ;//[2225] . .byte $01 ;//[2226] . .byte $04 ;//[2227] . .byte $00 ;//[2228] . .byte $F1 ;//[2229] . .byte $F1 ;//[222A] . .byte $04 ;//[222B] .
SoundPitch:
.byte $64 ;//[222C] d .byte $C8 ;//[222D] . .byte $50 ;//[222E] P .byte $07 ;//[222F] . .byte $50 ;//[2230] P .byte $07 ;//[2231] . .byte $AA ;//[2232] . .byte $78 ;//[2233] x .byte $00 ;//[2234] . .byte $00 ;//[2235] . .byte $04 ;//[2236] . .byte $96 ;//[2237] .
SoundDuration:
.byte $0A ;//[2238] . .byte $02 ;//[2239] . .byte $FF ;//[223A] . .byte $0A ;//[223B] . .byte $FF ;//[223C] . .byte $04 ;//[223D] . .byte $0A ;//[223E] . .byte $FF ;//[223F] . .byte $01 ;//[2240] . .byte $01 ;//[2241] . .byte $01 ;//[2242] . .byte $FF ;//[2243] .
Env1:
.byte $01,$02,$ff,$fe,$ff,$0a,$0a,$32,$7e,$fc,$fc,$fc,$7e,$00
Env2:
.byte $02,$02,$04,$00,$FC,$0A,$0A,$0A,$01,$00,$00,$00,$01,$01
Env3: .byte $03,$04,$00,$00,$00,$01,$01,$01,$7e,$fc,$ff,$fc,$7e,$50 Env4:
.byte $04,$01,$08,$04,$f4,$04,$04,$04,$64,$00,$00,$00,$64,$64
_INITSOUND: LDA #VDU_MODE ;//[2FF0] A9 16 JSR oswrch ;//[2FF2] 20 EE FF LDA #VDU_ENABLE_PRINTER ;//[2FF5] A9 02 JSR oswrch ;//[2FF7] 20 EE FF LDA #0 STA MuteFlag LDX #<Env1 ;//[0ED2] A2 00 LDY #>Env1 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07
JSR osword ;//[0ED8] 20 F1 FF
LDX #<Env2 ;//[0ED2] A2 00 LDY #>Env2 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF
LDX #<Env3 ;//[0ED2] A2 00 LDY #>Env3 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF
LDX #<Env4 ;//[0ED2] A2 00 LDY #>Env4 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF
RTS
;------------------------------------------------------------------------------- ; Sound - Invaders ... ; Written by PJ for use within Invaders. ; ; Copyright 2008,2009 Neil Beresford ; ; This file is part of Sparse Invaders. ; Sparse Invaders is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, either version 3 of the License, or ; (at your option) any later version. ; ; Sparse Invaders is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with Sparse Invaders. If not, see <http://www.gnu.org/licenses/>. ; ; ;------------------------------------------------------------------------------- ;----------------------------- ; ; VDU CODES ; ;----------------------------- .alias VDU_NULL $00 .alias VDU_TO_PRINTER $01 .alias VDU_ENABLE_PRINTER $02 .alias VDU_DISABLE_PRINTER $03 .alias VDU_WRITE_TEXT $04 .alias VDU_WRITE_TEXT_GFX $05 .alias VDU_ENABLE $06 .alias VDU_BEEP $07 .alias VDU_CURSOR_BACK $08 .alias VDU_CURSOR_FWD $09 .alias VDU_CURSOR_DOWN $0A .alias VDU_CURSOR_UP $0B .alias VDU_CLEAR_TEXT $0C .alias VDU_RETURN $0D .alias VDU_PAGED_MODE_ON $0E .alias VDU_PAGED_MODE_OFF $0F .alias VDU_CLEAR_GFX $10 .alias VDU_TEXT_COLOUR $11 .alias VDU_GFX_COLOUR $12 .alias VDU_LOGICAL_COLOUR $13 .alias VDU_DEFAULT_LOGICAL_COLOURS $14 .alias VDU_DISABLE $15 .alias VDU_MODE $16 .alias VDU_PROGRAM_DISPLAY_CHAR $17 .alias VDU_GFX_WINDOW $18 .alias VDU_PLOT $19 .alias VDU_RESTORE_WINDOW $1A .alias VDU_ESCAPE $1B .alias VDU_TEXT_WINDOW $1C .alias VDU_GFX_ORIGIN $1D .alias VDU_CURSOR_HOME $1E .alias VDU_MOVE_CURSOR $1F ;----------------------------- ; ; OSWORD ; ;----------------------------- .alias OSW_READ_LINE $00 .alias OSW_READ_SYS_CLOCK $01 .alias OSW_WRITE_SYS_CLOCK $02 .alias OSW_READ_TIMER $03 .alias OSW_WRITE_TIMER $04 .alias OSW_READ_IO_BYTE $05 .alias OSW_WRITE_IO_BYTE $06 .alias OSW_SOUND $07 .alias OSW_DEFINE_ENVELOPE $08 .alias OSW_READ_PIXEL $09 .alias OSW_READ_CHARACTER_DEFN $0A .alias OSW_READ_PALETTE $0B .alias OSW_WRITE_PALETTE $0C .alias OSW_READ_CURSOR $0D ;----------------------------- ; ; INKEY ; ;----------------------------- .alias INKEY_SPACE $9D .alias INKEY_SLASH_QUESTION $87 .alias INKEY_X $BD .alias INKEY_Z $9E .alias INKEY_A $BE .alias INKEY_COMMA_LESSTHAN $99 .alias INKEY_PERIOD_GREATERTHAN $98 .alias INKEY_RETURN $B6 ;----------------------------- ; ; OSBYTE ; ;----------------------------- .alias FX_PRINT_OPERATING_SYSTEM_VERSION $00 .alias FX_USER_OSBYTE_CALL_RW_LOCATION_ $01 .alias FX_SELECT_INPUT_STREAM $02 .alias FX_SELECT_OUTPUT_STREAM $03 .alias FX_ENABLEDISABLE_CURSOR_EDITING $04 .alias FX_SELECT_PRINTER_DESTINATION $05 .alias FX_SET_CHARACTER_IGNORED_BY_PRINTER $06 .alias FX_SET_RS_BAUD_RATE_FOR_RECEIVING_DATA $07 .alias FX_SET_RS_BAUD_RATE_FOR_DATA_TRANSMISSION $08 .alias FX_SET_FLASHING_COLOUR_MARK_STATE_DURATION $09 .alias FX_SET_FLASHING_COLOUR_SPACE_STATE_DURATION $0A .alias FX_SET_KEYBOARD_AUTOREPEAT_DELAY_INTERVAL $0B .alias FX_SET_KEYBOARD_AUTOREPEAT_RATE $0C .alias FX_DISABLE_EVENTS $0D .alias FX_ENABLE_EVENTS $0E .alias FX_FLUSH_SELECTED_BUFFER_CLASS $0F .alias FX_SELECT_ADC_CHANNELS_TO_BE_SAMPLED $10 .alias FX_FORCE_AN_ADC_CONVERSION $11 .alias FX_RESET_SOFT_KEYS $12 .alias FX_WAIT_FOR_VERTICAL_SYNC $13 .alias FX_EXPLODE_SOFT_CHARACTER_RAM_ALLOCATION $14 .alias FX_FLUSH_SPECIFIC_BUFFER $15 .alias FX_READ_VDU_STATUS $75 .alias FX_REFLECT_KEYBOARD_STATUS_IN_LEDS $76 .alias FX_CLOSE_ANY_SPOOL_OR_EXEC_FILES $77 .alias FX_WRITE_CURRENT_KEYS_PRESSED_INFORMATION $78 .alias FX_PERFORM_KEYBOARD_SCAN $79 .alias FX_PERFORM_KEYBOARD_SCAN_FROM__ $7A .alias FX_INFORM_OS_PRINTER_DRIVER_GOING_DORMANT $7B .alias FX_CLEAR_ESCAPE_CONDITION $7C .alias FX_SET_ESCAPE_CONDITION $7D .alias FX_ACKNOWLEDGE_DETECTION_OF_ESCAPE_CONDITION $7E .alias FX_CHECK_FOR_EOF_ON_AN_OPEN_FILE $7F .alias FX_READ_ADC_CHANNEL_OR_GET_BUFFER_STATUS $80 .alias FX_READ_KEY_WITH_TIME_LIMIT $81 .alias FX_READ_MACHINE_HIGH_ORDER_ADDRESS $82 .alias FX_READ_TOP_OF_OS_RAM_ADDRESS_OSHWM $83 .alias FX_READ_BOTTOM_OF_DISPLAY_RAM_ADDRESS_HIMEM $84 .alias FX_READ_BOTTOM_OF_DISPLAY_ADDRESS_FOR_A_GIVEN_MODE $85 .alias FX_READ_TEXT_CURSOR_POSITION_POS_AND_VPOS $86 .alias FX_READ_CHARACTER_AT_CURSOR_POSITION $87 .alias FX_PERFORM_CODE $88 .alias FX_PERFORM_MOTOR $89 .alias FX_INSERT_VALUE_INTO_BUFFER $8A .alias FX_PERFORM_OPT $8B .alias FX_PERFORM_TAPE $8C .alias FX_PERFORM_ROM $8D .alias FX_ENTER_LANGUAGE_ROM $8E .alias FX_ISSUE_PAGED_ROM_SERVICE_REQUEST $8F .alias FX_PERFORM_TV $90 .alias FX_GET_CHARACTER_FROM_BUFFER $91 .alias FX_READ_FROM_FRED__MHZ_BUS $92 .alias FX_WRITE_TO_FRED__MHZ_BUS $93 .alias FX_READ_FROM_JIM__MHZ_BUS $94 .alias FX_WRITE_TO_JIM__MHZ_BUS $95 .alias FX_READ_FROM_SHEILA_MAPPED_IO $96 .alias FX_WRITE_TO_SHEILA_MAPPED_IO $97 .alias FX_EXAMINE_BUFFER_STATUS $98 .alias FX_INSERT_CHARACTER_INTO_INPUT_BUFFER $99 .alias FX_WRITE_TO_VIDEO_ULA_CONTROL_REGISTER_AND_COPY $9A .alias FX_WRITE_TO_VIDEO_ULA_PALETTE_REGISTER_AND_COPY $9B .alias FX_RW__CONTROL_REGISTER_AND_COPY $9C .alias FX_FAST_TUBE_BPUT $9D .alias FX_READ_FROM_SPEECH_PROCESSOR $9E .alias FX_WRITE_TO_SPEECH_PROCESSOR $9F .alias FX_READ_VDU_VARIABLE_VALUE $A0 .alias FX_READ_START_ADDRESS_OF_OS_VARIABLES_LOW_BYTE $A6 .alias FX_READ_START_ADDRESS_OF_OS_VARIABLES_HIGH_BYTE $A7 .alias FX_READ_ADDRESS_OF_ROM_POINTER_TABLE_LOW_BYTE $A8 .alias FX_READ_ADDRESS_OF_ROM_POINTER_TABLE_HIGH_BYTE $A9 .alias FX_READ_ADDRESS_OF_ROM_INFORMATION_TABLE_LOW_BYTE $AA .alias FX_READ_ADDRESS_OF_ROM_INFORMATION_TABLE_HIGH_BYTE $AB .alias FX_READ_ADDRESS_OF_KEY_TRANSLATION_TABLE_LOW_BYTE $AC .alias FX_READ_ADDRESS_OF_KEY_TRANSLATION_TABLE_HIGH_BYTE $AD .alias FX_READ_START_ADDRESS_OF_OS_VDU_VARIABLES_LOW_BYTE $AE .alias FX_READ_START_ADDRESS_OF_OS_VDU_VARIABLES_HIGH_BYTE $AF .alias FX_RW_CFS_TIMEOUT_COUNTER $B0 .alias FX_RW_INPUT_SOURCE $B1 .alias FX_RW_KEYBOARD_SEMAPHORE $B2 .alias FX_RW_PRIMARY_OSHWM $B3 .alias FX_RW_CURRENT_OSHWM $B4 .alias FX_RW_RS_MODE $B5 .alias FX_READ_CHARACTER_DEFINITION_EXPLOSION_STATE $B6 .alias FX_RW_CASSETTEROM_FILING_SYSTEM_SWITCH $B7 .alias FX_READ_RAM_COPY_OF_VIDEO_ULA_CONTROL_REGISTER $B8 .alias FX_READ_RAM_COPY_OF_VIDEO_ULA_PALETTE_REGISTER $B9 .alias FX_RW_ROM_NUMBER_ACTIVE_AT_LAST_BRK_ERROR $BA .alias FX_RW_NUMBER_OF_ROM_SOCKET_CONTAINING_BASIC $BB .alias FX_READ_CURRENT_ADC_CHANNEL $BC .alias FX_RW_MAXIMUM_ADC_CHANNEL_NUMBER $BD .alias FX_READ_ADC_CONVERSION_TYPE $BE .alias FX_RW_RS_USE_FLAG $BF .alias FX_READ_RS_CONTROL_FLAG $C0 .alias FX_RW_FLASH_COUNTER $C1 .alias FX_RW_MARK_PERIOD_COUNT $C2 .alias FX_RW_SPACE_PERIOD_COUNT $C3 .alias FX_RW_KEYBOARD_AUTOREPEAT_DELAY $C4 .alias FX_RW_KEYBOARD_AUTOREPEAT_PERIOD $C5 .alias FX_RW_EXEC_FILE_HANDLE $C6 .alias FX_RW_SPOOL_FILE_HANDLE $C7 .alias FX_RW_ESCAPE_BREAK_EFFECT $C8 .alias FX_RW_ECONET_KEYBOARD_DISABLE $C9 .alias FX_RW_KEYBOARD_STATUS_BYTE $CA .alias FX_RW_RS_HANDSHAKE_EXTENT $CB .alias FX_RW_RS_INPUT_SUPPRESSION_FLAG $CC .alias FX_RW_CASSETTERS_SELECTION_FLAG $CD .alias FX_RW_ECONET_OS_CALL_INTERCEPTION_STATUS $CE .alias FX_RW_ECONET_OSRDCH_INTERCEPTION_STATUS $CF .alias FX_RW_ECONET_OSWRCH_INTERCEPTION_STATUS $D0 .alias FX_RW_SPEECH_SUPPRESSION_STATUS $D1 .alias FX_RW_SOUND_SUPPRESSION_STATUS $D2 .alias FX_RW_BELL_CHANNEL $D3 .alias FX_RW_BELL_ENVELOPE_NUMBERAMPLITUDE $D4 .alias FX_RW_BELL_FREQUENCY $D5 .alias FX_RW_BELL_DURATION $D6 .alias FX_RW_STARTUP_MESSAGE_AND_BOOT_OPTIONS $D7 .alias FX_RW_LENGTH_OF_SOFT_KEY_STRING $D8 .alias FX_RW_NUMBER_OF_LINES_PRINTED_SINCE_LAST_PAGE $D9 .alias FX_RW_NUMBER_OF_ITEMS_IN_VDU_QUEUE $DA .alias FX_RW_TAB_CHARACTER_VALUE $DB .alias FX_RW_ESCAPE_CHARACTER_VALUE $DC .alias FX_RW_CHARACTER_CO_TO_CF_STATUS $DD .alias FX_RW_CHARACTER_DO_TO_DF_STATUS $DE .alias FX_RW_CHARACTER_EO_TO_EF_STATUS $DF .alias FX_RW_CHARACTER_FO_TO_FF_STATUS $E0 .alias FX_RW_FUNCTION_KEY_STATUS $E1 .alias FX_RW_SHIFT_FUNCTION_KEY_STATUS $E2 .alias FX_RW_CTRLFUNCTION_KEY_STATUS $E3 .alias FX_RW_CTRLSHIFTFUNCTION_KEY_STATUS $E4 .alias FX_RW_ESCAPE_KEY_STATUS $E5 .alias FX_RW_FLAGS_DETERMINING_ESCAPE_EFFECTS $E6 .alias FX_RW_JRQ_BIT_MASK_FOR_USER_ $E7 .alias FX_RW_IRQ_BIT_MASK_FOR_ $E8 .alias FX_RW_IRQ_BIT_MASK_FOR_SYSTEM_S $E9 .alias FX_READ_FLAG_INDICATING_TUBE_PRESENCE $EA .alias FX_READ_FLAG_INDICATING_SPEECH_PROCESSOR_PRESENCE $EB .alias FX_RW_WRITE_CHARACTER_DESTINATION_STATUS $EC .alias FX_RW_CURSOR_EDITING_STATUS $ED .alias FX_RW_LOCATION_E_NOT_USED_BY__ $EE .alias FX_RW_LOCATION_F_NOT_USED_BY__ $EF .alias FX_RW_LOCATION__NOT_USED_BY__ $F0 .alias FX_RW_LOCATION__USED_BY_FX_ $F1 .alias FX_READ_RAM_COPY_OF_SERIAL_PROCESSOR_ULA $F2 .alias FX_RW_TIMER_SWITCH_STATE $F3 .alias FX_RW_SOFT_KEY_CONSISTENCY_FLAG $F4 .alias FX_RW_PRINTER_DESTINATION_FLAG $F5 .alias FX_RW_CHARACTER_IGNORED_BY_PRINTER $F6 .alias FX_RW_FIRST_BYTE_OF_BREAK_INTERCEPT_CODE $F7 .alias FX_RW_SECOND_BYTE_OF_BREAK_INTERCEPT_CODE $F8 .alias FX_RW_THIRD_BYTE_OF_BREAK_INTERCEPT_CODE $F9 .alias FX_RW_LOCATION_A_NOT_USED_BY__ $FA .alias FX_RW_LOCATION_B_NOT_USED_BY__ $FB .alias FX_RW_CURRENT_LANGUAGE_ROM_NUMBER $FC .alias FX_RW_LAST_BREAK_TYPE $FD .alias FX_RW_AVAILABLE_RAM $FE .alias FX_RW_START_UP_OPTIONS $FF .alias MuteFlag $74 .alias SoundIndex $75 .alias MissFirstSound $76 .alias IRQVECL $204 .alias IRQVECH $205 .alias osbyte $fff4 .alias osword $fff1 .alias oswrch $ffee ;------------------------------------------------------------------------------- ; Functionality ;------------------------------------------------------------------------------- _MAKE_SOUND:
STA SoundIndex ;0E9E] 85 84 LDA MuteFlag ;[0EA0] AD 2D 2F BNE bra_0EE6 ;[0EA3] D0 41 TXA ;[0EA5] 8A PHA ;//[0EA6] 48 TYA ;//[0EA7] 98 PHA ;//[0EA8] 48 LDX SoundIndex ;//[0EA9] A6 84 LDA SoundSync,X ;//[0EAB] BD 08 22 STA SoundIndex ;//[0EAE] 85 84
bra_0EB0:
LDA SoundSync,X ;//[0EB0] BD 08 22 STA SoundBlock1 ;//[0EB3] 8D 01 22 LDA SoundChannel,X ;//[0EB6] BD 14 22 STA SoundBlock ;//[0EB9] 8D 00 22 LDY #$02 ;//[0EBC] A0 02 LDA SoundVolumeEnv,X ;//[0EBE] BD 20 22 JSR _STORE_SOUND_WORD ;//[0EC1] 20 E7 0E LDA SoundPitch,X ;//[0EC4] BD 2C 22 JSR _STORE_SOUND_WORD ;//[0EC7] 20 E7 0E LDA SoundDuration,X ;//[0ECA] BD 38 22 JSR _STORE_SOUND_WORD ;//[0ECD] 20 E7 0E TXA ;//[0ED0] 8A PHA ;//[0ED1] 48 LDX #<SoundBlock ;//[0ED2] A2 00 LDY #>SoundBlock ;//[0ED4] A0 22 LDA #OSW_SOUND ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF PLA ;//[0EDB] 68 TAX ;//[0EDC] AA INX ;//[0EDD] E8 DEC SoundIndex ;//[0EDE] C6 84 BPL bra_0EB0 ;//[0EE0] 10 CE PLA ;//[0EE2] 68 TAY ;//[0EE3] A8 PLA ;//[0EE4] 68 TAX ;//[0EE5] AA
bra_0EE6:
RTS ;//[0EE6] 60
_STORE_SOUND_WORD:
STA SoundBlock,Y ;//[0EE7] 99 00 22 INY ;//[0EEA] C8
ASL ;//[0EEB] 0A
LDA #$00 ;//[0EEC] A9 00 BCC bra_0EF2 ;//[0EEE] 90 02 LDA #$FF ;//[0EF0] A9 FF
bra_0EF2:
STA SoundBlock,Y ;//[0EF2] 99 00 22 INY ;//[0EF5] C8 RTS ;//[0EF6] 60
SoundBlock:
.byte $13 ;//[2200] .
SoundBlock1:
.byte $00 ;//[2201] . .byte $F1 ;//[2202] . .byte $FF ;//[2203] . .byte $04 ;//[2204] . .byte $00 ;//[2205] . .byte $01 ;//[2206] . .byte $00 ;//[2207] .
SoundSync:
.byte $00 ;//[2208] . .byte $00 ;//[2209] . .byte $01 ;//[220A] . .byte $01 ;//[220B] . .byte $01 ;//[220C] . .byte $01 ;//[220D] . .byte $00 ;//[220E] . .byte $00 ;//[220F] . .byte $00 ;//[2210] . .byte $00 ;//[2211] . .byte $00 ;//[2212] . .byte $00 ;//[2213] .
SoundChannel:
.byte $12 ;//[2214] . .byte $13 ;//[2215] . .byte $11 ;//[2216] . .byte $10 ;//[2217] . .byte $11 ;//[2218] . .byte $10 ;//[2219] . .byte $12 ;//[221A] . .byte $13 ;//[221B] . .byte $13 ;//[221C] . .byte $13 ;//[221D] . .byte $13 ;//[221E] . .byte $13 ;//[221F] .
SoundVolumeEnv:
.byte $01 ;//[2220] . .byte $F1 ;//[2221] . .byte $02 ;//[2222] . .byte $03 ;//[2223] . .byte $02 ;//[2224] . .byte $F1 ;//[2225] . .byte $01 ;//[2226] . .byte $04 ;//[2227] . .byte $00 ;//[2228] . .byte $F1 ;//[2229] . .byte $F1 ;//[222A] . .byte $04 ;//[222B] .
SoundPitch:
.byte $64 ;//[222C] d .byte $C8 ;//[222D] . .byte $50 ;//[222E] P .byte $07 ;//[222F] . .byte $50 ;//[2230] P .byte $07 ;//[2231] . .byte $AA ;//[2232] . .byte $78 ;//[2233] x .byte $00 ;//[2234] . .byte $00 ;//[2235] . .byte $04 ;//[2236] . .byte $96 ;//[2237] .
SoundDuration:
.byte $0A ;//[2238] . .byte $02 ;//[2239] . .byte $FF ;//[223A] . .byte $0A ;//[223B] . .byte $FF ;//[223C] . .byte $04 ;//[223D] . .byte $0A ;//[223E] . .byte $FF ;//[223F] . .byte $01 ;//[2240] . .byte $01 ;//[2241] . .byte $01 ;//[2242] . .byte $FF ;//[2243] .
Env1:
.byte $01,$02,$ff,$fe,$ff,$0a,$0a,$32,$7e,$fc,$fc,$fc,$7e,$00
Env2:
.byte $02,$02,$04,$00,$FC,$0A,$0A,$0A,$01,$00,$00,$00,$01,$01
Env3: .byte $03,$04,$00,$00,$00,$01,$01,$01,$7e,$fc,$ff,$fc,$7e,$50 Env4:
.byte $04,$01,$08,$04,$f4,$04,$04,$04,$64,$00,$00,$00,$64,$64
_INITSOUND: LDA #VDU_MODE ;//[2FF0] A9 16 JSR oswrch ;//[2FF2] 20 EE FF LDA #VDU_ENABLE_PRINTER ;//[2FF5] A9 02 JSR oswrch ;//[2FF7] 20 EE FF LDA #0 STA MuteFlag LDX #<Env1 ;//[0ED2] A2 00 LDY #>Env1 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07
JSR osword ;//[0ED8] 20 F1 FF
LDX #<Env2 ;//[0ED2] A2 00 LDY #>Env2 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF
LDX #<Env3 ;//[0ED2] A2 00 LDY #>Env3 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF
LDX #<Env4 ;//[0ED2] A2 00 LDY #>Env4 ;//[0ED4] A0 22 LDA #OSW_DEFINE_ENVELOPE ;//[0ED6] A9 07 JSR osword ;//[0ED8] 20 F1 FF
RTS