*------------------------------------------------------------------------------ * NAME SCR_STRIP *------------------------------------------------------------------------------ * DEPENDENCY None * PURPOSE Set the STRIP colour for the given channel ID. * DESCRIPTION Sets the strip colour for the screen channel whose ID is passed * in A0, to the colour code supplied in D0.W. * INPUTS : * D0.W = colour code for strip colour * A0.L = Channel ID. * OUTPUTS : * D0 = Error code * A0.L = channel ID (preserved) * Z flag set if no errors, unset otherwise. *------------------------------------------------------------------------------ scr_strip move.l d1/d3/a1,-(a7) ; These will be corrupted by SD_SETST move.w d0,d1 ; Get the paper colour moveq #sd_clear,d0 ; CLS (SD_SETST defined in GWASL) moveq #-1,d3 ; Infinite timeout trap #3 ; Set STRIP colour (but not PAPER) move.l (a7)+,d1/d3/a1 ; Restore corrupted registers tst.l d0 ; Set Z flag if all ok, else not set rts