Skip to navigation

⌂ ∞ ▽ Elite on the 6502

Flight: MESS

[Elite-A, Flight]

       Name: MESS                                                    [Show more]
       Type: Subroutine
   Category: Flight
    Summary: Display an in-flight message

    Context: See this subroutine in context in the source code
 References: This subroutine is called as follows:
             * EXNO2 calls MESS
             * FR1 calls MESS
             * Ghy calls MESS
             * KILLSHP calls MESS
             * Main flight loop (Part 8 of 16) calls MESS
             * Main flight loop (Part 12 of 16) calls MESS
             * Main flight loop (Part 15 of 16) calls MESS
             * me2 calls MESS
             * OUCH calls MESS
             * SFRMIS calls MESS




 Display an in-flight message in capitals at the bottom of the space view,
 erasing any existing in-flight message first.



 Arguments:

   A                    The text token to be printed



.MESS

                        \ --- Mod: Code removed for Elite-A: ------------------>

\LDX #0                 \ Set QQ17 = 0 to switch to ALL CAPS
\STX QQ17

                        \ --- And replaced by: -------------------------------->

 JSR vdu_00             \ Call vdu_00 to switch to ALL CAPS

                        \ --- End of replacement ------------------------------>

 LDY #9                 \ Move the text cursor to column 9, row 22, at the
 STY XC                 \ bottom middle of the screen, and set Y = 22
 LDY #22
 STY YC

 CPX DLY                \ If the message delay in DLY is not zero, jump up to
 BNE me1                \ me1 to erase the current message first (whose token
                        \ number will be in MCH)

 STY DLY                \ Set the message delay in DLY to 22

 STA MCH                \ Set MCH to the token we are about to display

                        \ Fall through into mes9 to print the token in A