Skip to navigation

⌂ ∞ ▽ Elite on the BBC Micro and NES

Start and end: BR1 (Part 1 of 2)

[BBC Master version]

       Name: BR1 (Part 1 of 2)                                       [Show more]
       Type: Subroutine
   Category: Start and end
    Summary: Show the "Load New Commander (Y/N)?" screen and start the game

    Context: See this subroutine in context in the source code
 Variations: See code variations for this subroutine in the different versions
 References: This subroutine is called as follows:
             * TT102 calls via QU5




 BRKV is set to point to BR1 by the loading process.

 Other entry points:

   QU5                  Restart the game using the last saved commander without
                        asking whether to load a new commander file



.BR1

 JSR ZEKTRAN            \ Call ZEKTRAN to clear the key logger

 LDA #3                 \ Set XC = 3 (set text cursor to column 3)
 STA XC

\JSR startat            \ This instruction is commented out in the original
                        \ source

 LDX #CYL               \ Call TITLE to show a rotating Cobra Mk III (#CYL) and
 LDA #6                 \ token 6 ("LOAD NEW {single cap}COMMANDER {all caps}
 LDY #200               \ (Y/N)?{sentence case}{cr}{cr}"), with the ship at a
 JSR TITLE              \ distance of 200, returning with the internal number
                        \ of the key pressed in A

 CPX #'Y'               \ Did we press "Y"? If not, jump to QU5, otherwise
 BNE QU5                \ continue on to load a new commander

\JSR stopat             \ This instruction is commented out in the original
                        \ source

 JSR DFAULT             \ Call DFAULT to reset the current commander data block
                        \ to the last saved commander

 JSR SVE                \ Call SVE to load a new commander into the last saved
                        \ commander data block

\JSR startat            \ This instruction is commented out in the original
                        \ source

.QU5

 JSR DFAULT             \ Call DFAULT to reset the current commander data block
                        \ to the last saved commander