*------------------------------------------------------------------------------ * 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