29. SCR_PAPER_SB

*------------------------------------------------------------------------------
* NAME          SCR_PAPER_SB
*------------------------------------------------------------------------------
* DEPENDENCY    SCR_PAPER
* DEPENDENCY    SCR_STRIP
* PURPOSE       Set the PAPER & STRIP colour for the given channel ID.
* DESCRIPTION   Sets the paper & strip colour for the screen channel whose ID is passed
*               in A0, to the colour code supplied in D0.W. Works like
*               SuperBasic's PAPER command.
* INPUTS :
*               D0.W = colour code for paper & strip colour
*               A0.L = Channel ID.
* OUTPUTS :
*               D0 = Error code
*               A0.L = channel ID (preserved)
*               Z flag set if no errors, unset otherwise.
*------------------------------------------------------------------------------
scr_paper_sb    move.w  d0,d1           ; Save the colour between calls
                bsr     scr_paper       ; Set the paper colour
                bne.s   spsb_exit       ; Tets for errors
                move.w  d1,d0           ; Get the colour code again
                bsr     scr_strip       ; Set the strip colour
scsb_exit       rts