Start and end: BR1 (Part 1 of 2)

       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
 References: This subroutine is called as follows:
             * BRBR calls BR1
             * TT102 calls via QU5


 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 #250               ; (Y/N)?{sentence case}{cr}{cr}"), with the ship at a
 JSR TITLE              ; distance of 250, 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