Drawing ships: LL9 (Part 12 of 12)

       Name: LL9 (Part 12 of 12)                                     [Show more]
       Type: Subroutine
   Category: Drawing ships
    Summary: Draw ship: Draw all the visible edges from the ship line heap
  Deep dive: Drawing ships
    Context: See this subroutine in context in the source code
 Variations: See code variations for this subroutine in the different versions
 References: No direct references to this subroutine in this source file


 This part draws the lines in the ship line heap, which is used both to draw
 the ship, and to remove it from the screen.

 If NEEDKEY is non-zero, then this routine also scans the keyboard for a key
 press and returns the internal key number in X (or 0 for no key press).


.LL155

 LDA NEEDKEY            \ If NEEDKEY is zero, jump to notneed to skip the next
 BEQ notneed            \ two instructions, so we only read the keyboard if
                        \ NEEDKEY is non-zero

 STZ NEEDKEY            \ Set NEEDKEY = 0

 JSR RDKEY              \ Scan the keyboard for a key press and return the
                        \ internal key number in X (or 0 for no key press)

.notneed

 LDA (XX19)             \ Fetch the first byte from the ship line heap into A,
                        \ which contains the number of bytes in the heap

 CMP #5                 \ If the heap size is less than 5, there is nothing to
 BCC nolines            \ draw, so return from the subroutine (as nolines
                        \ contains an RTS)

 LDA #129               \ Send an OSWRCH 129 command to the I/O processor to
 JSR OSWRCH             \ tell it to start receiving a new line to draw (so
                        \ when we send it OSWRCH commands from now on, the I/O
                        \ processor will add these bytes to this line until
                        \ they are all sent, at which point it will draw the
                        \ line)

 LDY #0                 \ Fetch the first byte from the ship line heap into A,
 LDA (XX19),Y           \ which contains the number of bytes in the heap

 STA XX20               \ Store the heap size in XX20

.LL27

 LDA (XX19),Y           \ Fetch the Y-th line coordinate from the heap and send
 JSR OSWRCH             \ it to the I/O processor to add to the line buffer

 INY                    \ Increment the heap pointer

 CPY XX20               \ If the heap counter is less than the size of the heap,
 BCC LL27               \ loop back to LL27 to draw the next line from the heap

                        \ By the time we get here, we have sent all the line
                        \ coordinates to the I/O processor, so it will have
                        \ drawn the line after we sent the last one

.nolines

 RTS                    \ Return from the subroutine