Universe: tal

       Name: tal                                                     [Show more]
       Type: Subroutine
   Category: Universe
    Summary: Print the current galaxy number
    Context: See this subroutine in context in the source code
 References: This subroutine is called as follows:
             * tals calls tal


 Print control code 1 (the current galaxy number, right-aligned to width 3).


.tal

 CLC                    ; We don't want to print the galaxy number with a
                        ; decimal point, so clear the C flag for pr2 to take as
                        ; an argument

 LDX GCNT               ; Load the current galaxy number from GCNT into X

 INX                    ; Add 1 to the galaxy number, as the galaxy numbers
                        ; are 0-7 internally, but we want to display them as
                        ; galaxy 1 through 8

 JMP pr2                ; Jump to pr2, which prints the number in X to a width
                        ; of 3 figures, left-padding with spaces to a width of
                        ; 3, and return from the subroutine using a tail call