P*      
* Loader for tunesmith
*
         ORG $02C6

SETLFS   = $FFBA
SETNAM   = $FFBD
LOAD     = $FFD5

STR1     TXT 'player'
LEN1     = 6
STR2     TXT 'editor'
LEN2     = 6

START    
         LDA #$01
         LDX $BA
         LDY #01
         JSR SETLFS
         LDA #LEN1
         LDX #<STR1
         LDY #>STR1
         JSR SETNAM
         LDA #00
         JSR LOAD
         LDA #LEN2
         LDX #<STR2
         LDY #>STR2
         JSR SETNAM
         LDA #00
         JSR LOAD
         JMP $7C03
         DS ^
         DFB $8B,$E3
         DFB #<START
         DFB #>START
