org	840Ch	;Bypass colour card
	jp	87CAh
;
; Replace the original 'draw-an-object' subroutine with this one.
; 
	org	944Eh
	call	wobble
;
; This code can go anywhere. I put it at 97C3h so it can coexist with the
; "wibble" upside-down patch.
;
	org	97C3h

wobble:
	ld	a,(85CBh)	;Object colour change ticker
	and	1
	jp	z,969Bh		;Drawing normally. 
;
; Drawing in "wobbled" state
;
	ld	a,e
	and	1Fh		;If at right-hand edge of 
	cp	1Fh		;screen, don't rotate right column of object
	jr	z,wob7		;onto next row.
wob8:	ld	a,(hl)		;Object graphic
	ld	c,0
	srl	a
	rr	c		;A holds left 7 bits. C holds rightmost bit.
	ld	(de),a		;Store leftmost 7.
	inc	e
	ld	a,(de)		;Move right 1 column
	and	7Fh		;Mask out leftmost column of graphic
	or	c		;Draw rightmost column of item
	ld	(de),a
	dec	e
	inc	d		;Go left one, then down one.
	inc	hl
	djnz	wob8
	ret

wob7:	ld	a,(hl)		;If so, shift it right 1 pixel.
	srl	a
	ld	(de),a
	inc	d
	inc	hl
	djnz	wob7 
	ret 
;
	end