Config Com1 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 1
 

$regfile = "xm16e5def.dat"
$hwstack = 200
$swstack = 200
$framesize = 200
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled                   'internal 2 MHz and 32 MHz enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1  'use 32 MHz and divide by 1 to end up with 32 MHz

'==========================================
'Bootloader Config
'==========================================
$loader = $2000
Disable Interrupts : Stop Watchdog

Dim W As Word , J As Byte

'============================================================================
'config LED
'============================================================================
Fl_red Alias Portc.7
Config Fl_red = Output
Fl_red = 0

Config Com1 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM1:" For Binary As #1

W = 6
Do
     Decr W : Wait 1
     J = Inkey(#1)

Loop Until W = 0 Or J = 123 Or J = 124

If J = 123 Or J = 124 Then
     Const Maxwordbit = 7                                   'Z7 is maximum bit                                   '
     Const Maxword =(2 ^ Maxwordbit) * 2                    '128
     Const Maxwordshift = Maxwordbit + 1

     Dim Bstatus As Byte , Bretries As Byte , Bmincount As Byte , Bblock As Byte , Bblocklocal As Byte
     Dim Bcsum1 As Byte , Bcsum2 As Byte , Buf(128) As Byte , Csum As Byte
     Dim Spmcrval As Byte                                   'self program command byte value

     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

     Const Nak = &H15                                       'Constants Used In Serial Com
     Const Ack = &H06
     Const Can = &H18

     $timeout = 300000

     Bretries = 5 : Bmincount = 3                           'try 10 times and get 123 at least 3 times
     Do
       Bstatus = Waitkey(#1)                                'wait for the loader to send a byte

       If Bstatus = 123 Then
          If Bmincount > 0 Then
             Decr Bmincount
          Else
             Print #1 , Chr(bstatus);
             Goto Loader
          End If
       Else

          If Bretries > 0 Then
             Bmincount = 3
             Decr Bretries
          Else
             Goto Process_reset
          End If
       End If
     Loop

     Loader:                                                'loader routine. It is a Xmodem-checksum reception routine

     Do
          Bstatus = Waitkey(#1)
     Loop Until Bstatus = 0

     Fl_red = 1

     Spmcrval = &H20 : Gosub Do_spm                         '<<<<< Bootloader hangs here <<<<<<<<<<<<<<<<<<<<
                                                             'appears related to SPM command in Subroutine
     Fl_red = 0

     Bretries = 10
     Do
       Bblocklocal = 1
       Csum = 0                                             'checksum
       Print #1 , Chr(nak);                                 'send a nack first

       Do
         Bstatus = Waitkey(#1)

         Select Case Bstatus
            Case 1:                                         'start of heading, PC ready to send
                 Csum = 1
                 Bblock = Waitkey(#1) : Csum = Csum + Bblock       'get block
                 Bcsum1 = Waitkey(#1) : Csum = Csum + Bcsum1       'get checksum first byte
                 For J = 1 To 128                           'get 128 bytes
                    Buf(j) = Waitkey(#1) : Csum = Csum + Buf(j)
                 Next
                 Bcsum2 = Waitkey(#1)                       'get second checksum byte

                 If Bblocklocal = Bblock Then               'are blocks the same?
                    If Bcsum2 = Csum Then                   'is the checksum the same?

                       Toggle Fl_red

                       Gosub Writepage
                       Print #1 , Chr(ack);                 'acknowledge
                       Incr Bblocklocal                     'increase local block count
                    Else                                    'no match nak
                       Print #1 , Chr(nak);
                    End If
                 Else
                    Print #1 , Chr(nak);                    'blocks do not match
                 End If
            Case 4:                                         'end of transmission
                  If Wrd > 0 Then                           'if something left in the page
                      Wrd = 0                               'Z pointer
                      Spmcrval = &H24 : Gosub Do_spm
                  End If
                  Print #1 , Chr(ack);                      'send ack
                  Waitms 20
                  Goto Process_reset
            Case &H18:                                      'PC aborted
                  Goto Process_reset
            Case 123 : Exit Do
            Case 124 : Exit Do
            Case Else
               Exit Do
         End Select
       Loop
       If Bretries > 0 Then
          Waitms 1000
          Decr Bretries                                     'decrease attempts
       Else
          Goto Process_reset                                'reset
       End If
     Loop
End If

Process_reset:
Fl_red = 0

Rampz = 0
Goto _reset                                                 'start at address 0

End                                                         'end program


Writepage:                                                  'write one or more pages
   For J = 1 To 128 Step 2                                  'write 2 bytes into a page
      Vl = Buf(j) : Vh = Buf(j + 1)                         'Low and High bytes
      lds r0, {vl}                                          'store in r0 and r1 registers
      lds r1, {vh}
      Spmcrval = &H23 : 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                                 'page is full
          Wrd = 0                                           'Z pointer needs wrd to be 0
          Spmcrval = &H24 : Gosub Do_spm                    'write page
          Page = Page + 1                                   'next page
      End If
   Next
Return


Do_spm:
  Z = Page                                                  'make equal to page
  Shift Z , Left , Maxwordshift                             'shift to proper place
  Z = Z + Wrd                                               'add word
  lds r30,{Z}
  lds r31,{Z+1}

  #if _romsize > 65536
      lds r24,{Z+2}
      sts rampz,r24
  #endif

  Nvm_cmd = Spmcrval
  Cpu_ccp = &H9D
  spm

Do_spm_busy:
   lds r23, NVM_STATUS
   sbrc r23,7
   rjmp do_spm_busy
Return
 

Snippet from above post:

     Do
          Bstatus = Waitkey(#1)
     Loop Until Bstatus = 0

     Fl_red = 1                                                      'LED On

     Spmcrval = &H20 : Gosub Do_spm                         '<<<<< Bootloader hangs here <<<<<<<<<<<<<<<<<<<<
                                                             'appears related to SPM command in Subroutine
     Fl_red = 0                                                        'LED Off