lots of code
End

$boot = &HF000
$inc BL , nosize , "j:\Dropbox\projects\MWSBL.bin"

FF FF FF FF 8F EF 8D BF

$boot = &hF000               ' boot reset word addr from data sheet
$inc BL,nosize,"mynewBL.bin"     'the full pathway is needed
End
Thanks again MWS for your help in getting this working.
 

         Lfilelen = Lfilelen + Blinebytes
         If Lfilelen > Loadsize Then

            Print #1 , " Se"               ' Wrong Flash Size
            Berror = 1
            Exit Do

         End If

 
         ' Lfilelen = Lfilelen + Blinebytes
         If Lfilelen > Loadsize Then

            Print #1 , " Se"               ' Wrong Flash Size
            Berror = 1
            Exit Do

         End If

'-------------------------------------------------------------------------------
'                          Bootloading from MMC/SD or CF
'                    (c) Vögel Franz Josef / MCS Electronic
' Bootloader works with HEX or/and BIN files from a Mass storage device
' supported by AVR-DOS (http://members.aon.at/voegel or www.mcselec.com)
' DOSBOOT 3

'-------------------------------------------------------------------------------
' following features are implemented:
' - check a Pin for activating bootloading
' - Check for file "BOOT.BIN" in root directory
'   If Exists
'   - Check File-length to fit in Program-area
'  $prog &HFF , &HCE , &HD6 , &HFF                             ' generated. Take care that the chip supports all fuse bytes.
'   - Program Content of "BOOT.BIN" to Flash
'   - Rename File "BOOT.BIN" to "BOOTDONE.BIN"
'   - Leave Bootloader and start Main Program
' - Check for file "boot.hex" in root directory
'   If Exists:
'   - Check the Hex-File(record-format) with file-length
'   - program flash with content of the Hex-File
'   - Rename File "BOOT.HEX" to "BOOTDONE.HEX"
'   - Leave Bootloader and start Main Program
' In Case that a checked point fails, the main program is started immediately
'
' The program to flash must be stored either in HEX-Format (BOOT.HEX) or in BIN-Format
' (BOOT.BIN), in the root Directory of the card at start time.
' The Bootloader has a size of appr. 7300 Bytes, so Boot-loader size of 8192 Bytes
' has to be set.
' Set bootloader-start to &HF000 at M128 and &H7000 at M64,&HF000 for M1284P
'-------------------------------------------------------------------------------
' Output of bootloader on RS232
' B ... Boot loader started
' C ... Check Card
' D ... Init DOS File System
' d     = error reading DOS file system
' e## . Error occured with errorcode in hex-format(##)
' F ... Checking HEX-File
' I ... DOS-Error during file-opening
 'L      Line error
' M ... Start of Main program
' N ... No boot file found
' P ... Programming Flash
' R ... Renaming file
' S ... Size-Error of Flash-File
'sd     = sd init error

$prog &HFF,&HC7,&HD0,&HFD
Dim Starterr As Byte
Starterr = Peek(0)
Writeeeprom Starterr , 80                                   'save MCUSCR  (Register 0) to eeprom
Starterr = 125
Writeeeprom Starterr , 100                                  'confirm that BL is present

$regfile = "m1284pdef.dat"
Const Loaderchip = 1284

$loader = &HF000                                            ' 4096 words, starts at HF000
Const Maxwordbit = 7                                        ' Z7 is maximum bit                                   '
Const Loadsize = &HF000 * 2                                 ' highest Number of bytes to load

$crystal = 9830400
$hwstack = 128
$swstack = 128
$framesize = 128

' Define here name of Hex-File
Const Filenamehex = "Boot.hex"

Const Filenamehexdone = "BootDone.hex"

Disable Interrupts
Open "comc.3:38400,8,n,1" For Output As #1                   'jepsen debug port
Print #1 , "start BL"                             ' B = Boot-loader Started
Waitms 500                                                  ' Time for Card to settle
'-------------------------------------------------------------------------------

Dim Btemp1 As Byte

Print #1 , "chk SD"               'Checking SD card
                                   'ver boot2
 $include "config_mmcsd_hc.bas"                             'set up the high capacity SD card comms ver boot2.1

' Check success of card initializing
If Gbdriveerror <> 0 Then
   Print #1 , "sd err"  'sd init error
   Print #1 , "e" ; Hex(gbdriveerror)                       ' Error during card initializing
   Goto Startmain
End If


' Include AVR-DOS Configuration and library

$include "Config_AVR-DOS_boot.BAS"

Btemp1 = Initfilesystem(1)
                                                             ' use 0 for drive without Master boot record
If Btemp1 <> 0 Then

   Print #1 , " file sys err" ; Hex(btemp1)                             ' Error at reading file system
   Goto Startmain
End If

Const Maxword =(2 ^ Maxwordbit) * 2                         '128
Const Maxwordshift = Maxwordbit + 1
Const Maxpages = Loadsize / Maxword

Const Fn = 10                                               ' file-number


'Dim the used variables
Dim Strline As String * 80                                  ' input line from file
Dim Blinebytes As Byte                                      ' data bytes in hex-line
Dim Blinedataposition As Byte                               ' first/current position of hex-data in line
Dim Blineendposition As Byte
Dim Blinestatus As Byte
Dim Blinelen As Byte
Dim Strtemp As String * 4
Dim Berror As Byte                                          ' error byte

Dim Strname1 As String * 12
Dim Strname2 As String * 12

Dim J As Byte , Spmcrval As Byte                            ' self program command byte value
Dim Bprog As Byte

Dim Z As Long                                               'this is the Z pointer word
Dim Vl As Byte , Vh As Byte                                 ' these bytes are used for the data values
Dim Wrd As Word , Page As Word                              'these vars contain the page and word address


Dim Bcrc As Byte
Dim Buf(128) As Byte
Dim Bufpointer As Byte
Dim Lfilelen As Long


Disable Interrupts                                          'we do not use ints


'*****************************************************************************
'---- Start Boot loader
'
 'Check if boot.hex is there

   Lfilelen = Filelen(filenamehex)
   If Lfilelen > 0 Then
      Gosub Flashhex
   Else
      Print #1 , "No hex file"                                           'No boot file found
   End If



'***************************************************************************
Startmain:
Print #1 , "Start Main"                                               'start Main
Goto _reset
End
''**************************************************************************
Flashhex:
' 1. check Hex-File
Bprog = 0                                                   ' check Intel Hex File

Print #1 , "chk hex"    '      Checking hex file
Gosub Bootload


' 2. Flash from Hex-File
Bprog = 1                                                   ' program flash

Print #1 , "Prog flash"       'Programing Flash from Hex file
Gosub Bootload

#if Varexist( "FileNameHexDone")
      Strname1 = Filenamehex
      Strname2 = Filenamehexdone
      Kill Strname2
      Print #1 , "Rename hex"                                    'Renaming boot.hex file
      Name Strname1 As Strname2

#endif


Goto Startmain:

'***************************************************************************
' Boot loader part (same for File-Checking and Flashing)
Bootload:

Open Filenamehex For Input As #fn
If Gbdoserror > 0 Then
   Print #1 , "DOS err" ; Hex(gbdoserror)   'I = DOS error during file opening
   Berror = 1
   Goto Here:
End If


Page = 0
Wrd = 0

If Bprog = 1 Then
   Spmcrval = 3 : Gosub Do_spm                              ' erase  the first page
   Spmcrval = 17 : Gosub Do_spm                             ' re-enable page
End If


Berror = 0
Bufpointer = 1
Blinebytes = 0
Lfilelen = 0

Do

   If Blinebytes = 0 Then
      Gosub Loadhexfileline
   End If


   Select Case Blinestatus

      Case 0                                                ' read normal data line

         Lfilelen = Lfilelen + Blinebytes
         If Lfilelen > Loadsize Then

            Print #1 , " wrong flash size"               ' Wrong Flash Size
            Berror = 1
            Exit Do

         End If


         For Blinedataposition = Blinedataposition To Blineendposition Step 2

            Strtemp = Mid(strline , Blinedataposition , 2)
            Btemp1 = Hexval(strtemp)
            Buf(bufpointer) = Btemp1
            Incr Bufpointer
            If Bufpointer > 128 Then
               Gosub Writepage
               Bufpointer = 1
            End If
            Decr Blinebytes
         Next

      Case 1                                                ' address extend record

         Blinebytes = 0                                     ' prepare for reading next line


      Case 2
                                                      ' EOF Line read

         If Bufpointer > 1 Then
            Gosub Writepage
         End If
         If Wrd > 0 Then
            Wrd = 0
            Spmcrval = 5 : Gosub Do_spm
            Spmcrval = 17 : Gosub Do_spm
         End If
         Exit Do

      Case Else                                             ' Error

         Print #1 , "Line err "                                     'Line error
         Berror = 1
         Exit Do

   End Select

Loop


Close #fn
Here:
If Berror > 0 Then

   Goto Startmain                                           ' restart in case of error
End If


Return
'*******************************************************************************
Loadhexfileline:

   If Eof(#fn) <> 0 Then
      Blinestatus = 8                                       ' no regular end of File
      Return
   End If

   Line Input #fn , Strline

   If Gbdoserror <> 0 Then
      Blinestatus = 7                                       'DOS error
      Return
   End If

   Strtemp = Mid(strline , 1 , 1)                           ' check for starting ":"
   If Strtemp <> ":" Then
      Blinestatus = 6
      Return
   End If

   ' Check Checksum
   Blinelen = Len(strline)
   Bcrc = 0
   For Btemp1 = 2 To Blinelen Step 2
      Strtemp = Mid(strline , Btemp1 , 2)
      Bcrc = Bcrc + Hexval(strtemp)
   Next

   If Bcrc <> 0 Then
      Blinestatus = 9                                       'checksum error
      Return
   End If


   ' Number of bytes

   Strtemp = Mid(strline , 2 , 2)
   Blinebytes = Hexval(strtemp)
   If Blinebytes > 0 Then
      Blinedataposition = 10
      Btemp1 = Blinebytes * 2
      Blineendposition = Btemp1 + 8
   End If

   ' Type of Record

   Strtemp = Mid(strline , 8 , 2)

   Select Case Strtemp

      Case "00"                                             ' normal data record

         Blinestatus = 0

      Case "01"                                             ' address extend record (> 64KB)
         Blinestatus = 2

      Case "02"                                             ' EOF record
         Blinestatus = 1

      Case Else                                             ' unknown record type (Error?)
         Blinestatus = 5

   End Select

Return
'*******************************************************************************

'write one or more pages

Writepage:

   For J = 1 To 128 Step 2                                  ' we write 2 bytes into a page
      Vl = Buf(j) : Vh = Buf(j + 1)                         ' get Low and High bytes
      Spmcrval = 1 : Gosub Do_spm                           ' write value into page at word address
      Wrd = Wrd + 2                                         ' word address increases with 2 because LS bit of Z is not used
      If Wrd = Maxword Then
          Wrd = 0                                           ' Z pointer needs wrd to be 0
          Spmcrval = 5 : Gosub Do_spm                       ' write page
          Spmcrval = 17 : Gosub Do_spm                      ' re-enable page

          Page = Page + 1                                   ' next page

          If Page <= Maxpages Then                          ' avoid to erase first page of bootlaoder

             Spmcrval = 3 : Gosub Do_spm                    ' erase  next page
             Spmcrval = 17 : Gosub Do_spm                   ' re-enable page

          End If

      End If
   Next
Return



Do_spm:

   Z = Page                                                 'make equal to page
   Shift Z , Left , Maxwordshift                            'shift to proper place
   Z = Z + Wrd

   If Bprog <> 1 Then
      Return
   End If

   Bitwait Spmcsr.0 , Reset                                 ' check for previous SPM complete
   Bitwait Eecr.1 , Reset
                                      'wait for eeprom                                                 'add word
  ! lds r30,{Z}
  ! lds r31,{Z+1}
   #if Loaderchip = 1284
    !  lds r24,{Z+2}
    !  sts rampz,r24                                        ' we need to set rampz also for the M128
   #endif
  ! lds r0, {vl}                                            'store them into r0 and r1 registers
   !lds r1, {vh}
   Spmcsr = Spmcrval                                       'assign register
   !spm                                                     'this is an asm instruction
   nop
   nop
Return