Text: DETOK3, Moved

       Name: DETOK3, Moved                                           [Show more]
       Type: Subroutine
   Category: Text
    Summary: Print an extended recursive token from the RUTOK token table
  Deep dive: Extended system descriptions
             Extended text tokens
    Context: See this subroutine in context in the source code
 References: No direct references to this subroutine in this source file


 Arguments:

   A                    The recursive token to be printed, in the range 0-255


 Returns:

   A                    A is preserved

   Y                    Y is preserved

   V(1 0)               V(1 0) is preserved


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

\.DETOK3
\
\PHA                    \ Store A on the stack, so we can retrieve it later
\
\TAX                    \ Copy the token number from A into X
\
\TYA                    \ Store Y on the stack
\PHA
\
\LDA V                  \ Store V(1 0) on the stack
\PHA
\LDA V+1
\PHA
\
\LDA #LO(RUTOK)         \ Set V to the low byte of RUTOK
\STA V
\
\LDA #HI(RUTOK)         \ Set A to the high byte of RUTOK
\
\BNE DTEN               \ Call DTEN to print token number X from the RUTOK
\                       \ table and restore the values of A, Y and V(1 0) from
\                       \ the stack, returning from the subroutine using a tail
\                       \ call (this BNE is effectively a JMP as A is never
\                       \ zero)

                        \ --- End of moved code ------------------------------->