; This is INTENDED to do a blit of a strip from a 320*256 screen - the sky background from checkered flag - into a 2048*32 area.
; Whatever colour is in the top left corner of that strip will be taken as background - that is, replaced by zero to leave transparent.

; The position to write to will be determined by the current position - which can be calculated direct from the current direction

.text

Strip::

	; source
move.l	#$80000,A2_BASE			; Base address		; was sky-store - temporary change
move.l	#WID2048|PIXEL16|XADDPIX,A2_FLAGS	; flags		; was WID320
move.l	#0,A2_PIXEL				; pixel pointer - start in top left corner

	; destination
move.l	#bit_store,A1_BASE			; Base address
move.l	#WID2048|PIXEL16|XADDPIX,A1_FLAGS	; flags
moveq.l	#0,d0
;movea.l	carsad.w,a0
;move.w	2(a0),d0				; get rotation
;and.w	#$3FF,d0				; limit
;asl.l	#1,d0					; double (for number of pixels)
move.l	d0,A1_PIXEL				; pixel pointer
;move.l	#$1FEC0,A1_STEP				; which is Y=Y+1, X=X-320

move.l	$80000,d0				; get long for the colour of sky (to clear to zero) ; was sky_store
move.l	d0,B_PATD				; 
move.l	d0,B_PATD+4

move.l	#84<<16|2048,B_COUNT			; write 320 pixels width, 100 lines

move.l	#SRCEN|DCOMPEN|LFUFUNC_AN|LFUFUNC_A,B_CMD		; Go;UPDA1|

rts
