;-------------------------------------------------------------------------------

   ;  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