Save and load: JAMESON

       Name: JAMESON                                                 [Show more]
       Type: Subroutine
   Category: Save and load
    Summary: Restore the default JAMESON commander
    Context: See this subroutine in context in the source code
 References: This subroutine is called as follows:
             * BEGIN calls JAMESON
             * SVE calls JAMESON


.JAMESON

 LDY #(NAEND%-NA2%)     \ We are going to copy the default commander at NA2%
                        \ over the top of the last saved commander at NA%, so
                        \ set a counter to copy all the bytes between NA2% and
                        \ NAEND%

.JAMEL1

 LDA NA2%,Y             \ Copy the Y-th byte of NA2% to the Y-th byte of NA%
 STA NA%,Y

 DEY                    \ Decrement the loop counter

 BPL JAMEL1             \ Loop back until we have copied the whole commander

 LDY #7                 \ Set oldlong to 7, the length of the commander name
 STY oldlong            \ "JAMESON"

 RTS                    \ Return from the subroutine