diff --git a/026.tile_hscroll/Makefile b/026.tile_hscroll/Makefile
new file mode 100644
index 0000000..eec292f
--- /dev/null
+++ b/026.tile_hscroll/Makefile
@@ -0,0 +1,33 @@
+EXAMPLE_NAME=tile_hscroll
+
+# userstack used by bootblock
+USERSTACK_ADDRESS=7fffc
+# if you change this you must also change link.script.x
+BASE_ADDRESS=4000
+# note: this must be high enough not to conflict with MFMbufE
+
+NUM_COLORS=16
+
+BOOTBLOCK_ASM=alpine_bootblock.s
+OBJS=out/init.o out/utils.o out/image.o out/blit.o out/scroll.o
+
+IMAGES=gigi_full.png
+IMAGEDATA=$(addprefix out/, $(IMAGES:.png=.bin))
+SIZEDIMAGEDATA=$(addprefix out/, $(IMAGES:.png=.sized.png))
+VASM_EXTRA_ARGS=-DNUM_COLORS=$(NUM_COLORS)
+
+#SYMBOL_INFO=-M
+LINKER_OPTIONS=-T link.script.x
+
+include ../shared/base.mk
+
+
+out/%.sized.png: ../assets/%.png
+	$(RESIZE) --width=336 --height=256 --blur=0.75 --input=$< --output=$@
+
+out/%.bin: out/%.sized.png
+	$(IMAGECON) --input $< $(IMAGECON_ARGS) --quantize --colors $(NUM_COLORS) --output-bitplanes  --output-palette-asm --output-grey-palette --output-palette $(DITHER) --output out/$*
+
+out/blit.o: constants.i macros.i
+out/main.o: $(IMAGEDATA) constants.i macros.i Makefile link.script.x palette.pal
+out/init.o: constants.i Makefile
\ No newline at end of file
diff --git a/026.tile_hscroll/README.md b/026.tile_hscroll/README.md
new file mode 100644
index 0000000..192077e
--- /dev/null
+++ b/026.tile_hscroll/README.md
@@ -0,0 +1,13 @@
+tile hscroll
+============
+
+screenshot
+----------
+
+![Screenshot](screenshot.png?raw=true)
+
+
+try it
+------
+  * [Download disk image](bin/tile_hscroll.adf?raw=true)
+  * <a href="http://alpine9000.github.io/ScriptedAmigaEmulator/#amiga_examples/tile_hscroll.adf" target="_blank">Run in SAE</a>
diff --git a/026.tile_hscroll/alpine_bootblock.s b/026.tile_hscroll/alpine_bootblock.s
new file mode 100644
index 0000000..1953463
--- /dev/null
+++ b/026.tile_hscroll/alpine_bootblock.s
@@ -0,0 +1,352 @@
+*** hardware trackloader bootblock
+*** original BootLoader.S by Photon	;NOTE: PC-relative code is PREFERRED.
+*** see http://coppershade.org/asmskool/SOURCES/Photon-snippets/DDE5-BootLoader.S
+*** this version hacked by alpine9000	
+
+	include "../include/registers.i"
+
+LoaderVars	equ	$100		;Useful variables, see CPUinfo:
+Loader		equ	$120		;start of load script
+
+MyUserStack	equ	USERSTACK_ADDRESS ;SSP is at a safe place, but set user
+					  ;stack.
+
+MFMsync		equ	$4489		;AmigaDOS standard sync marker.
+MFMlen		equ	12980		;Legacy trackdata read length in bytes
+
+ShortWt:MACRO				;CPU-independent nop;nop replacement
+	tst.w 	(a6)
+	ENDM
+
+    *** Boot Block starts here ***
+
+Boot:	dc.b 	'DOS',0
+	dc.l 	0,880
+
+BootCode:	;gathers some data, turns off OS, copies itself to $100
+
+    *--- Fetch system info ---*
+
+	move.l 	4.w,a6			;execbase (will soon be destroyed)
+	move.l 	294(a6),d4		;CPUinfo in lowest byte for your use.
+	sub.l 	a4,a4			;VBR will always be 0 when booting
+					;from floppy. No GetVBR needed.
+    *--- Fastmem available? ---*
+
+	if 1
+	move.l	#$20004,d1		;fast+largest
+	else
+	move.l	#$20002,d1		;chip+largest
+	endif
+	jsr 	-216(a6)		;AvailMem()
+	move.l 	d0,d5
+
+	sub.l	#2048,d5		;leave room for stacks to grow
+	moveq 	#4,d1
+	jsr 	-198(a6)		;AllocMem()
+	and.l 	#-8,d0
+	move.l 	d0,a5			;Start Address
+	
+    *--- OS off ---*			;you're nice'n all, but now you die.
+
+	lea 	$dff002,a6		;Loader uses this custom base addr
+
+	tst.w 	(a6)			;wait out blitter
+.wblit:	btst 	#6,(a6)
+	bne.s 	.wblit
+
+	move.l	#$7fff7fff,d1
+	move.l	d1,$9a-2(a6)		;disable interrupts & req
+	move.w	d1,$9c-2(a6)		;play it again Sam
+	sub.w 	#$20,d1			;don't affect Sprite DMA until Vblank
+	move.w 	d1,$96-2(a6)		;disable DMA
+
+	lea 	MyUserStack,a7		;some safe place compatible with 
+					;platform requirements
+    *--- Copy rest of code/data to fixed address ---*
+
+	lea 	CopyStart(PC),a0
+	lea 	(LoaderVars).w,a1
+	moveq 	#(BootE-CopyStart)/8,d2
+.copyl:	move.l 	(a0)+,(a1)+
+	move.l 	(a0)+,(a1)+
+	dbf 	d2,.copyl
+	JMP 	(Loader).w		;Info from Exec passed in 4 registers
+
+********************  $100.w  ********************
+
+CopyStart:
+
+CPUinfo:	dc.l 0			;$100
+FastMemSize:	dc.l 0			;$104
+SysVBR:		dc.l 0			;$108
+FastMemStart:	dc.l 0			;$10c
+
+MFMcyl:		dc.w 0
+MFMhead:	dc.w 0
+MFMdrv:		dc.w 0
+MFMchk:		dc.l 0
+
+		dc.w 0			;padding to $120
+		dc.w 0			;
+		dc.w 0			;
+
+LoadScript:				;At $120, sysinfo in 4 regs, a6=$dff002
+	lea 	CPUinfo(PC),a3		;Use this for PC-rel in a pinch.
+	movem.l d4/d5/a4/a5,(a3)
+	bsr.s 	WaitEOF
+	lea 	NullCop(PC),a0
+	move.l 	a0,$80-2(a6)		;blank copper
+	move.w 	#$87d0,$96-2(a6)	;enable DMA (sprites enabled when used)
+
+    *--- load first part ---*
+
+	lea	BASE_ADDRESS,a0 	; main entry point
+
+	if 1
+	moveq 	#2,d0			;from sector 2
+	move.w 	#-1,d1			;num sectors, - ==Step0
+	jsr 	LoadMFMB
+
+	move.l	4(a0),d1
+	add.l	#512,d1
+	lsr.l	#6,d1
+	lsr.l	#3,d1
+	moveq 	#2,d0			;from sector 2
+	jsr 	LoadMFMB
+	
+	lea 	$dff000,a6		;restore plain custombase addr for demo
+
+	move.l	(a0),a0
+	jmp     (a0)		; -> main entry point
+	
+	else
+
+	-moveq 	#2,d0			;from sector 2
+	move.w 	#-((mainEnd-mainStart)/512),d1;num sectors, - ==Step0
+	jsr 	LoadMFMB
+	
+	jmp     (a0)		; -> main entry point
+
+	endif
+
+    *** MFMLoader.S by Photon ***	;requires a6=$dff002
+
+WaitEOF:
+	btst	 #0,5-2(a6)
+	beq.s	 WaitEOF
+.w1:	cmp.b	#$37,6-2(a6)
+	bne.s	.w1
+.w2:	cmp.b	#$37,6-2(a6)		;wait for last PAL line, $138
+	beq.s	.w2
+	rts
+
+LoadMFMB:		;loadsectors.a0=dst,d0=startsec.W,d1=nrsecs.W(-=Step0)
+	MOVEM.L	D0-D7/A0-A6,-(SP)
+	lea	$bfd100,a4
+	bsr	MotorOn
+	tst.w	d1			;if neg length,then Step0 first
+	bpl.s	.NoSt0
+	neg.w	d1
+.St0:	btst	#4,$f01(a4)		;head on cyl 0?
+	beq.s	.Rdy0
+	bsr.s	StepOut
+	bra.s	.St0
+.Rdy0:	lea	MFMcyl(PC),a1
+	clr.w	(a1)
+.NoSt0:	and.l	#$ffff,d0
+	divu	#22,d0			;startcyl
+	sub.w	MFMcyl(PC),d0		;delta-step
+	beq.s	.StRdy
+	bmi.s	.StOut
+	subq.w	#1,d0
+.StIn:	bsr.s	StepIn
+	dbf	d0,.StIn
+	bra.s	.StRdy
+	not.w	d0			;=neg+sub#1
+.StOut:	bsr.s	StepOut
+	dbf	d0,.StIn
+.StRdy:	swap	d0			;startsec within cyl
+	cmp.w	#11,d0
+	blt.s	.Head0
+	sub.w	#11,d0
+	bra.s	.Head1
+.Head0:	bset	#2,(a4)
+	lea	MFMhead(PC),a1
+	clr.w	(a1)
+	bsr	LoadTrak		;read track+decode
+	beq.s	.End
+.Head1:	bclr	#2,(a4)			;Head 1
+	lea	MFMhead(PC),a1
+	move.w	#1,(a1)
+	bsr	LoadTrak		;read track+decode
+	beq.s	.End
+	bsr.s	StepIn			;1 cyl forward
+	bra.s	.Head0
+.End:	bsr.s	MotorOff
+	MOVEM.L	(SP)+,D0-D7/A0-A6
+	RTS
+
+StepOut:
+	bset	#1,(a4)
+	lea	MFMcyl(PC),a1
+	subq.w	#1,(a1)
+	ShortWt
+	bclr	#0,(a4)
+	ShortWt
+	bset	#0,(a4)
+	bsr.s	StepWt
+	RTS
+
+StepIn:
+	bclr	#1,(a4)
+	lea	MFMcyl(PC),a1
+	addq.w	#1,(a1)
+	ShortWt
+	bclr	#0,(a4)
+	ShortWt
+	bset	#0,(a4)
+	bsr.s	StepWt
+	RTS
+
+StepWt:
+	moveq	#67,d6			;wait >3 ms
+LeaveLine:
+.loop1:	move.b	6-2(a6),d7
+.loop2:	cmp.b	6-2(a6),d7
+	beq.s	.loop2
+	dbf	d6,.loop1
+	RTS
+
+MotorOn:
+	move.w	MFMdrv(PC),d7
+	addq.w	#3,d7
+	or.b	#$78,(a4)
+	bset	d7,(a4)
+	ShortWt
+	bclr	#7,(a4)			;turns motor on
+	ShortWt
+	bclr	d7,(a4)
+	ShortWt
+.DiskR:	btst	#5,$f01(a4)		;wait until motor running
+	bne.s	.DiskR
+	RTS
+
+MotorOff:
+	move.w	MFMdrv(PC),d7
+	addq.w	#3,d7
+	bset	d7,(a4)
+	ShortWt
+	bset	#7,(a4)
+	ShortWt
+	bclr	d7,(a4)
+	RTS
+
+LoadTrak:		;loadtrack+decode.a0=dst,d0=secoffs,d1=secsleft
+	MOVE.W	D0,-(SP)
+	MOVE.W	D1,-(SP)
+	;; 	lea	(MFMbuf).w,a1
+	lea	(MFMbuf),a1
+	move.w	#2,$9c-2(a6)		;Clr Req
+	move.l	a1,$20-2(a6)
+	move.w	#$8210,$96-2(a6)	;DskEna
+	move.w	#MFMsync,$7e-2(a6)
+	move.w	#$9500,$9e-2(a6)
+	move.w	#$4000,$24-2(a6)
+	move.w	#$8000+MFMlen/2,$24-2(a6);DskLen(12980)+DmaEn
+	move.w	#$8000+MFMlen/2,$24-2(a6);start reading MFMdata
+.Wrdy:
+	btst	#1,$1f-2(a6)		;wait until data read
+	beq.s	.Wrdy
+	move.w	d0,d2
+	add.w	d1,d2			;highest sec# (d0=lowest)
+	cmp.w	#11,d2
+	ble.s	.NoOvr
+	moveq	#11,d2
+.NoOvr:	sub.w	d0,d2			;nrsecs
+	move.l	#$55555555,d3		;and-const
+	move.w	d2,d1
+	subq.w	#1,d1			;loopctr
+.FindS:	cmp.w	#MFMsync,(a1)+		;search for a sync word
+	bne.s	.FindS
+	cmp.b	(a1),d3			;search for 0-nibble
+	bne.s	.FindS
+	move.l	(a1)+,d4		;decode fmtbyte/trk#,sec#,eow#
+	move.l	(a1)+,d5
+	and.w	d3,d4
+	and.w	d3,d5
+	add.w	d4,d4
+	or.w	d5,d4
+	lsr.w	#8,d4			;sec#
+	sub.w	d0,d4			;do we want this sec?
+	bmi.s	.Skip
+	cmp.w	d2,d4
+	blt.s	.DeCode
+.Skip:	lea	48+1024(a1),a1		;nope
+	bra.s	.FindS
+.DeCode:lea	40(a1),a1		;found a sec,skip unnecessary data
+	move.l	a1,d6
+	lea	MFMchk(PC),a1
+	clr.l	(a1)
+	move.l	d6,a1
+	move.l	(a1)+,d6		;decode data chksum.L
+	move.l	(a1)+,d5
+	and.l	d3,d6
+	and.l	d3,d5
+	add.l	d6,d6
+	or.l	d5,d6			;chksum
+	lea	512(a1),a2
+	add.w	d4,d4			;x512
+	lsl.w	#8,d4
+	lea	(a0,d4.w),a3		;dest addr for this sec
+	moveq	#127,d7
+.DClup:	move.l	(a1)+,d4
+	move.l	(a2)+,d5
+	and.l	d3,d4
+	and.l	d3,d5
+	eor.l	d4,d6			;EOR with checksum
+	eor.l	d5,d6			;EOR with checksum
+	add.l	d4,d4
+	or.l	d5,d4
+	move.l	d4,(a3)+
+	dbf	d7,.DClup		;chksum should now be 0 if correct
+	lea	MFMchk(PC),a1
+	or.l	d6,(a1)			;or with track total chksum
+	move.l	a2,a1
+	dbf	d1,.FindS		;decode next sec
+	MOVE.W	(SP)+,D1
+	MOVE.W	(SP)+,D0
+	move.l	MFMchk(PC),d3		;track total chksum OK?
+	bne	LoadTrak		;no,retry
+	moveq	#0,d0			;set to start of track
+	move.w	d2,d3
+	add.w	d3,d3
+	lsl.w	#8,d3
+	add.w	d3,a0
+	sub.w	d2,d1			;sub #secs loaded
+	RTS
+
+NullCop:
+	dc.w	$1fc,0
+	dc.w	$100,$0200
+	dc.w	$96,$0020		;ensure sprite DMA is off until needed
+	dc.w	$ffdf,$fffe
+	dc.l	-2
+BootE:
+
+	*** Boot Block ends here ***
+
+	dc.b	"BootLoader by Photon/Scoopex"
+	;pad bootblock to correct size
+	cnop	0,1024
+
+;MFMbuf is placed here after bootblock end, $3c0.w or so when copied.
+MFMbuf	equ	LoaderVars+(BootE-CopyStart)
+MFMbufE	equ 	MFMbuf+MFMlen	;lowest free address. $372e for a full bootblock.
+	
+mainStart:
+	incbin  "out/main.bin"
+	cnop    0,512
+mainEnd:	
+	end
+
diff --git a/026.tile_hscroll/blit.s b/026.tile_hscroll/blit.s
new file mode 100644
index 0000000..5727d7c
--- /dev/null
+++ b/026.tile_hscroll/blit.s
@@ -0,0 +1,128 @@
+	include "includes.i"
+
+	xdef BlitFillColor
+	xdef BlitScroll
+	xdef BlitTile
+	
+;;       A(mask) B(bob)  C(bg)   D(dest)
+;;       -       -       -       - 
+;;       0       0       0       0 
+;;       0       0       1       1 
+;;       0       1       0       0 
+;;       0       1       1       1 
+;;       1       0       0       0 
+;;       1       0       1       0 
+;;       1       1       0       1 
+;;       1       1       1       1
+	
+BlitFillColor:
+	;; kills a0,d2,d3,d5,d5
+	;; a0 - bitplane
+	;; d0 - color#
+	;; d1 - height
+	;; d2 - ypos
+
+	;; 	movem.l	d2-d5/a0,-(sp)
+	mulu.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH,d2
+	add.l	d2,a0
+	move.b	#0,d3				; bitplane #
+.loop:
+	move.w	d1,d4		
+	btst	d3,d0				; is the color's bit set in this plane?
+	beq	.zero
+	move.w	#BC0F_DEST|$FF,d5		; yes ? all ones
+	bra	.doblit
+.zero
+	move.w	#BC0F_DEST|$0,d5		; no ? all zeros
+.doblit
+	WaitBlitter
+
+	move.w	#0,BLTCON1(A6)
+	move.w  d5,BLTCON0(A6)
+	move.w 	#BITPLANE_WIDTH_BYTES*(SCREEN_BIT_DEPTH-1),BLTDMOD(a6)
+	move.l 	a0,BLTDPTH(a6) 
+
+	lsl.w	#6,d4	
+	ori.w	#BITPLANE_WIDTH_WORDS,d4
+        move.w	d4,BLTSIZE(a6)
+	add.b	#1,d3
+	add.w	#BITPLANE_WIDTH_BYTES,a0
+	cmp.b	#SCREEN_BIT_DEPTH,d3 		; all planes for a single line done ?	
+	bne	.loop				; no ? do the next plane
+
+	;; movem.l (sp)+,d2-d5/a0
+	rts
+
+
+
+BlitScroll:
+	;; left scroll a screen wide region
+	;; a0 - dest bitplane pointer
+	;; a1 - source bitplane pointer
+	;; d0 - number of pixels to left shift on blit
+	;; d1 - height in pixels
+	;; d2 - y destination in pixels
+
+	movem.l	d0-d2/a0-a1,-(sp)
+	add.l	d1,d2			; point to end of data for descending mode
+	mulu.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH,d2
+	add.l	d2,a0			; end of dest bitplane
+	add.l	d2,a1			; end of source bitplane
+
+	WaitBlitter
+
+	swap	d0			; lsl.l #ASHIFTSHIFT,d0
+	lsr.l   #4,d0			; d0 has ASHIFTSHIFT bits set
+	ori.w	#BC1F_DESC,d0		; BLTCON1 value. shift and descending mode
+	move.w	d0,BLTCON1(a6)		;
+	and.w	#$f000,d0		; keep the shift, remove the rest
+	ori.w	#BC0F_SRCB|BC0F_SRCC|BC0F_DEST|$ca,d0 ; BLTCON0 value. shift, dma and logic function
+	move.w	d0,BLTCON0(a6)
+	
+	move.w 	#0,BLTBMOD(a6)		; no modulo, blitting full width data
+	move.w 	#0,BLTCMOD(a6)		;
+	move.w 	#0,BLTDMOD(a6)		;
+	move.l 	a1,BLTBPTH(a6) 		; source
+	move.l 	a1,BLTCPTH(a6) 		; background
+	move.l 	a0,BLTDPTH(a6)		; dest
+	move.w	#$0000,BLTAFWM(a6) 	; A DMA is disabled, but the channel is still used in the logic function
+	move.w	#$ffff,BLTALWM(a6) 	; as we use it for masking
+	move.w	#$ffff,BLTADAT(a6) 	; preload source mask so only BLTA?WM mask is used		
+	
+	mulu.w	#SCREEN_BIT_DEPTH,d1
+	lsl.w	#6,d1	
+	ori.w	#BITPLANE_WIDTH_WORDS,d1
+        move.w	d1,BLTSIZE(a6)
+
+	movem.l (sp)+,d0-d2/a0-a1
+	rts
+
+
+
+BlitTile:
+	;; a0 - dest bitplane pointer
+	;; a1 - source bitplane pointer
+	;; d2 - y destination in pixels
+
+	WaitBlitter
+
+	move.w	#0,BLTCON1(a6)		;
+	move.w	#BC0F_SRCA|BC0F_DEST|$f0,BLTCON0(a6)
+	
+	move.w 	#SCREEN_WIDTH_BYTES,BLTAMOD(a6)
+	move.w 	#SCREEN_WIDTH_BYTES,BLTDMOD(a6)		;
+	move.l 	a1,BLTAPTH(a6) 		; source
+	move.l 	a0,BLTDPTH(a6)		; dest
+	move.w	#$ffff,BLTAFWM(a6)
+	move.w	#$ffff,BLTALWM(a6)
+	move.w 	#((SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH)<<6|(1),BLTSIZE(a6)	;rectangle size, starts blit
+
+	WaitBlitter
+
+	add.l	#BITPLANE_WIDTH_BYTES*(SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH,a0
+	add.l	#BITPLANE_WIDTH_BYTES*(SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH,a1
+	move.l 	a1,BLTAPTH(a6) 		; source
+	move.l 	a0,BLTDPTH(a6)		; dest
+	move.w 	#((SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH)<<6|(1),BLTSIZE(a6)	;rectangle size, starts blit	
+	rts
+			
\ No newline at end of file
diff --git a/026.tile_hscroll/blitchar.s b/026.tile_hscroll/blitchar.s
new file mode 100644
index 0000000..2e2ac7f
--- /dev/null
+++ b/026.tile_hscroll/blitchar.s
@@ -0,0 +1,87 @@
+	include "includes.i"
+
+	xdef BlitChar8
+
+DESCENDING		equ 1
+BLIT_LF_MINTERM		equ $ca		; cookie cut
+BLIT_WIDTH_WORDS	equ 1		; blit 2 words to allow shifting
+BLIT_WIDTH_BYTES	equ BLIT_WIDTH_WORDS*2
+FONTMAP_WIDTH_BYTES	equ 32
+
+	if MASKED_FONT==1
+BLTCON0_VALUE		equ BC0F_SRCA|BC0F_SRCB|BC0F_SRCC|BC0F_DEST|BLIT_LF_MINTERM
+	else
+BLTCON0_VALUE		equ BC0F_SRCB|BC0F_SRCC|BC0F_DEST|BLIT_LF_MINTERM
+	endif
+	
+BlitChar8:
+	;; a0 - bitplane
+	;; d0 - xpos
+	;; d1 - ypos	
+	;; d2 - char
+	movem.l	d0-d3/a0-a2,-(sp)
+        mulu.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH,d1		; ypos bytes
+	lea	font(pc),a1						; font pointer
+
+	sub.w	#'!',d2		; index = char - '!'
+	move.w	d2,d3	
+	lsr.w	#5,d3		; char / 32 = fontmap line
+	andi.w	#$1f,d2		; char index in line (char index - start of line index)	
+	add.l	#1,d3		; while we have a weird font image, '!' starts on second line
+	mulu.w	#FONTMAP_WIDTH_BYTES*SCREEN_BIT_DEPTH*FONT_HEIGHT,d3 	; d3 *= #FONTMAP_WIDTH_BYTES*SCREEN_BIT_DEPTH*FONT_HEIGHT
+
+	add.l	#(FONT_HEIGHT*SCREEN_BIT_DEPTH*FONTMAP_WIDTH_BYTES)-FONTMAP_WIDTH_BYTES+0,a1 ; last word - descending mode
+	
+	add.w	d3,a1		; add y offset in lines to font address
+	add.w	d2,a1		; add offset into font
+	lsr.w	#3,d0		; d0 = xpos bytes	
+
+	add.l 	d0,a0		; dest += XPOS_BYTES
+	add.l	d1,a0		; dest += YPOS_BYTES
+	add.l	#(FONT_HEIGHT*SCREEN_BIT_DEPTH*BITPLANE_WIDTH_BYTES)-BITPLANE_WIDTH_BYTES+0,a0 ; last word - descending mode
+	
+	WaitBlitter
+
+	if MASKED_FONT==1
+	move.w 	#FONTMAP_WIDTH_BYTES-BLIT_WIDTH_BYTES,BLTAMOD(a6)	; A modulo (only used for masked version)
+	endif
+	move.w 	#FONTMAP_WIDTH_BYTES-BLIT_WIDTH_BYTES,BLTBMOD(a6)	; B modulo
+	move.w 	#BITPLANE_WIDTH_BYTES-BLIT_WIDTH_BYTES,BLTCMOD(a6)	; C modulo
+	move.w 	#BITPLANE_WIDTH_BYTES-BLIT_WIDTH_BYTES,BLTDMOD(a6)	; D modulo
+	move.w	#$ffff,BLTAFWM(a6) 					; don't mask first word
+	
+
+	btst	#0,d2					; check if odd or even char
+	beq	.evenChar				;
+.oddChar:
+	move.w	#$00ff,BLTALWM(a6)			; select the second (odd) character in the word
+	move.w	#BLTCON0_VALUE|$8000,BLTCON0(a6)
+	move.w	#$8002,BLTCON1(a6)			; set the shift bits 12-15, bits 00-11 cleared
+	bra	.continue
+.evenChar:
+	move.w	#$FF00,BLTALWM(a6)			; select the first character in the word
+	move.w	#BLTCON0_VALUE,BLTCON0(a6)	
+	move.w	#$2,BLTCON1(a6)				; set the shift bits 12-15, bits 00-11 cleared
+.continue:
+
+	
+	move.l 	a1,BLTBPTH(a6)				; source bitplane		
+
+	if MASKED_FONT==1
+	add.l	#fontMask-font,a1
+	move.l 	a1,BLTAPTH(a6)				; mask bitplane
+	endif
+	
+	
+	move.l 	a0,BLTCPTH(a6) 				; background top left corner
+	move.l 	a0,BLTDPTH(a6) 				; destination top left corner
+
+	move.w 	#(FONT_HEIGHT*SCREEN_BIT_DEPTH)<<6|(BLIT_WIDTH_WORDS),BLTSIZE(a6)	;rectangle size, starts blit
+
+	movem.l	(sp)+,d0-d3/a0-a2
+	rts
+
+font:
+	incbin	"out/font8x8.bin"
+fontMask:
+	incbin	"out/font8x8-mask.bin"
diff --git a/026.tile_hscroll/constants.i b/026.tile_hscroll/constants.i
new file mode 100644
index 0000000..0c3859a
--- /dev/null
+++ b/026.tile_hscroll/constants.i
@@ -0,0 +1,33 @@
+SCREEN_WIDTH		    equ 320
+SCREEN_HEIGHT		    equ 256
+SCREEN_WIDTH_BYTES	    equ (SCREEN_WIDTH/8)
+SCREEN_WIDTH_WORDS	    equ SCREEN_WIDTH_BYTES/2
+BITPLANE_WIDTH		    equ 336
+BITPLANE_WIDTH_BYTES	    equ BITPLANE_WIDTH/8
+BITPLANE_WIDTH_WORDS	    equ BITPLANE_WIDTH_BYTES/2
+
+			if NUM_COLORS==64
+SCREEN_BIT_DEPTH	equ 6
+			endif
+			if NUM_COLORS==32
+SCREEN_BIT_DEPTH	equ 5
+			endif
+			if NUM_COLORS==16
+SCREEN_BIT_DEPTH	equ 4
+			endif
+			if NUM_COLORS==8
+SCREEN_BIT_DEPTH	equ 3
+			endif
+			if NUM_COLORS==4
+SCREEN_BIT_DEPTH	equ 2
+			endif
+			if NUM_COLORS==2
+SCREEN_BIT_DEPTH	equ 1
+			endif
+
+SCREEN_RES		equ 8 	; 8=lo resolution, 4=hi resolution
+RASTER_X_START		equ $81	; hard coded coordinates from hardware manual
+RASTER_Y_START		equ $2c
+RASTER_X_STOP		equ RASTER_X_START+SCREEN_WIDTH
+RASTER_Y_STOP		equ RASTER_Y_START+256
+IMAGESIZE		equ BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH*SCREEN_HEIGHT
\ No newline at end of file
diff --git a/026.tile_hscroll/copperlist.s b/026.tile_hscroll/copperlist.s
new file mode 100644
index 0000000..861bad4
--- /dev/null
+++ b/026.tile_hscroll/copperlist.s
@@ -0,0 +1,516 @@
+	dc.w $2c07,$fffe
+	dc.w COLOR01,$7dd
+	dc.w $2d07,$fffe
+	dc.w COLOR01,$9ec
+	dc.w $2e07,$fffe
+	dc.w COLOR01,$beb
+	dc.w $2f07,$fffe
+	dc.w COLOR01,$ce9
+	dc.w $3007,$fffe
+	dc.w COLOR01,$ed7
+	dc.w $3107,$fffe
+	dc.w COLOR01,$eb5
+	dc.w $3207,$fffe
+	dc.w COLOR01,$e93
+	dc.w $3307,$fffe
+	dc.w COLOR01,$d71
+	dc.w $3407,$fffe
+	dc.w COLOR01,$c50
+	dc.w $3507,$fffe
+	dc.w COLOR01,$a30
+	dc.w $3607,$fffe
+	dc.w COLOR01,$820
+	dc.w $3707,$fffe
+	dc.w COLOR01,$611
+	dc.w $3807,$fffe
+	dc.w COLOR01,$403
+	dc.w $3907,$fffe
+	dc.w COLOR01,$204
+	dc.w $3a07,$fffe
+	dc.w COLOR01,$116
+	dc.w $3b07,$fffe
+	dc.w COLOR01,$029
+	dc.w $3c07,$fffe
+	dc.w COLOR01,$04a
+	dc.w $3d07,$fffe
+	dc.w COLOR01,$16c
+	dc.w $3e07,$fffe
+	dc.w COLOR01,$28d
+	dc.w $3f07,$fffe
+	dc.w COLOR01,$3ae
+	dc.w $4007,$fffe
+	dc.w COLOR01,$5ce
+	dc.w $4107,$fffe
+	dc.w COLOR01,$7dd
+	dc.w $4207,$fffe
+	dc.w COLOR01,$9ec
+	dc.w $4307,$fffe
+	dc.w COLOR01,$beb
+	dc.w $4407,$fffe
+	dc.w COLOR01,$de9
+	dc.w $4507,$fffe
+	dc.w COLOR01,$ed6
+	dc.w $4607,$fffe
+	dc.w COLOR01,$eb4
+	dc.w $4707,$fffe
+	dc.w COLOR01,$e93
+	dc.w $4807,$fffe
+	dc.w COLOR01,$d71
+	dc.w $4907,$fffe
+	dc.w COLOR01,$c50
+	dc.w $4a07,$fffe
+	dc.w COLOR01,$a30
+	dc.w $4b07,$fffe
+	dc.w COLOR01,$820
+	dc.w $4c07,$fffe
+	dc.w COLOR01,$611
+	dc.w $4d07,$fffe
+	dc.w COLOR01,$403
+	dc.w $4e07,$fffe
+	dc.w COLOR01,$204
+	dc.w $4f07,$fffe
+	dc.w COLOR01,$117
+	dc.w $5007,$fffe
+	dc.w COLOR01,$029
+	dc.w $5107,$fffe
+	dc.w COLOR01,$04b
+	dc.w $5207,$fffe
+	dc.w COLOR01,$16c
+	dc.w $5307,$fffe
+	dc.w COLOR01,$28d
+	dc.w $5407,$fffe
+	dc.w COLOR01,$3ae
+	dc.w $5507,$fffe
+	dc.w COLOR01,$5ce
+	dc.w $5607,$fffe
+	dc.w COLOR01,$7dd
+	dc.w $5707,$fffe
+	dc.w COLOR01,$9ec
+	dc.w $5807,$fffe
+	dc.w COLOR01,$bea
+	dc.w $5907,$fffe
+	dc.w COLOR01,$de8
+	dc.w $5a07,$fffe
+	dc.w COLOR01,$ed6
+	dc.w $5b07,$fffe
+	dc.w COLOR01,$eb4
+	dc.w $5c07,$fffe
+	dc.w COLOR01,$e93
+	dc.w $5d07,$fffe
+	dc.w COLOR01,$d71
+	dc.w $5e07,$fffe
+	dc.w COLOR01,$c50
+	dc.w $5f07,$fffe
+	dc.w COLOR01,$a30
+	dc.w $6007,$fffe
+	dc.w COLOR01,$820
+	dc.w $6107,$fffe
+	dc.w COLOR01,$601
+	dc.w $6207,$fffe
+	dc.w COLOR01,$403
+	dc.w $6307,$fffe
+	dc.w COLOR01,$205
+	dc.w $6407,$fffe
+	dc.w COLOR01,$117
+	dc.w $6507,$fffe
+	dc.w COLOR01,$029
+	dc.w $6607,$fffe
+	dc.w COLOR01,$04b
+	dc.w $6707,$fffe
+	dc.w COLOR01,$16c
+	dc.w $6807,$fffe
+	dc.w COLOR01,$28d
+	dc.w $6907,$fffe
+	dc.w COLOR01,$3ae
+	dc.w $6a07,$fffe
+	dc.w COLOR01,$5ce
+	dc.w $6b07,$fffe
+	dc.w COLOR01,$7dd
+	dc.w $6c07,$fffe
+	dc.w COLOR01,$9ec
+	dc.w $6d07,$fffe
+	dc.w COLOR01,$bea
+	dc.w $6e07,$fffe
+	dc.w COLOR01,$de8
+	dc.w $6f07,$fffe
+	dc.w COLOR01,$ec6
+	dc.w $7007,$fffe
+	dc.w COLOR01,$eb4
+	dc.w $7107,$fffe
+	dc.w COLOR01,$e92
+	dc.w $7207,$fffe
+	dc.w COLOR01,$d71
+	dc.w $7307,$fffe
+	dc.w COLOR01,$b50
+	dc.w $7407,$fffe
+	dc.w COLOR01,$a30
+	dc.w $7507,$fffe
+	dc.w COLOR01,$810
+	dc.w $7607,$fffe
+	dc.w COLOR01,$601
+	dc.w $7707,$fffe
+	dc.w COLOR01,$403
+	dc.w $7807,$fffe
+	dc.w COLOR01,$205
+	dc.w $7907,$fffe
+	dc.w COLOR01,$117
+	dc.w $7a07,$fffe
+	dc.w COLOR01,$029
+	dc.w $7b07,$fffe
+	dc.w COLOR01,$04b
+	dc.w $7c07,$fffe
+	dc.w COLOR01,$16c
+	dc.w $7d07,$fffe
+	dc.w COLOR01,$28d
+	dc.w $7e07,$fffe
+	dc.w COLOR01,$3ae
+	dc.w $7f07,$fffe
+	dc.w COLOR01,$5ce
+	dc.w $8007,$fffe
+	dc.w COLOR01,$7dd
+	dc.w $8107,$fffe
+	dc.w COLOR01,$aec
+	dc.w $8207,$fffe
+	dc.w COLOR01,$bea
+	dc.w $8307,$fffe
+	dc.w COLOR01,$dd8
+	dc.w $8407,$fffe
+	dc.w COLOR01,$ec6
+	dc.w $8507,$fffe
+	dc.w COLOR01,$eb4
+	dc.w $8607,$fffe
+	dc.w COLOR01,$e92
+	dc.w $8707,$fffe
+	dc.w COLOR01,$d71
+	dc.w $8807,$fffe
+	dc.w COLOR01,$b50
+	dc.w $8907,$fffe
+	dc.w COLOR01,$a30
+	dc.w $8a07,$fffe
+	dc.w COLOR01,$810
+	dc.w $8b07,$fffe
+	dc.w COLOR01,$501
+	dc.w $8c07,$fffe
+	dc.w COLOR01,$303
+	dc.w $8d07,$fffe
+	dc.w COLOR01,$205
+	dc.w $8e07,$fffe
+	dc.w COLOR01,$117
+	dc.w $8f07,$fffe
+	dc.w COLOR01,$029
+	dc.w $9007,$fffe
+	dc.w COLOR01,$04b
+	dc.w $9107,$fffe
+	dc.w COLOR01,$16c
+	dc.w $9207,$fffe
+	dc.w COLOR01,$28d
+	dc.w $9307,$fffe
+	dc.w COLOR01,$4ae
+	dc.w $9407,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $9507,$fffe
+	dc.w COLOR01,$8dd
+	dc.w $9607,$fffe
+	dc.w COLOR01,$aec
+	dc.w $9707,$fffe
+	dc.w COLOR01,$bea
+	dc.w $9807,$fffe
+	dc.w COLOR01,$dd8
+	dc.w $9907,$fffe
+	dc.w COLOR01,$ec6
+	dc.w $9a07,$fffe
+	dc.w COLOR01,$eb4
+	dc.w $9b07,$fffe
+	dc.w COLOR01,$e92
+	dc.w $9c07,$fffe
+	dc.w COLOR01,$d71
+	dc.w $9d07,$fffe
+	dc.w COLOR01,$b50
+	dc.w $9e07,$fffe
+	dc.w COLOR01,$930
+	dc.w $9f07,$fffe
+	dc.w COLOR01,$710
+	dc.w $a007,$fffe
+	dc.w COLOR01,$502
+	dc.w $a107,$fffe
+	dc.w COLOR01,$303
+	dc.w $a207,$fffe
+	dc.w COLOR01,$205
+	dc.w $a307,$fffe
+	dc.w COLOR01,$117
+	dc.w $a407,$fffe
+	dc.w COLOR01,$029
+	dc.w $a507,$fffe
+	dc.w COLOR01,$04b
+	dc.w $a607,$fffe
+	dc.w COLOR01,$16c
+	dc.w $a707,$fffe
+	dc.w COLOR01,$28e
+	dc.w $a807,$fffe
+	dc.w COLOR01,$4ae
+	dc.w $a907,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $aa07,$fffe
+	dc.w COLOR01,$8dd
+	dc.w $ab07,$fffe
+	dc.w COLOR01,$aec
+	dc.w $ac07,$fffe
+	dc.w COLOR01,$cea
+	dc.w $ad07,$fffe
+	dc.w COLOR01,$dd8
+	dc.w $ae07,$fffe
+	dc.w COLOR01,$ec6
+	dc.w $af07,$fffe
+	dc.w COLOR01,$eb4
+	dc.w $b007,$fffe
+	dc.w COLOR01,$e92
+	dc.w $b107,$fffe
+	dc.w COLOR01,$d71
+	dc.w $b207,$fffe
+	dc.w COLOR01,$b50
+	dc.w $b307,$fffe
+	dc.w COLOR01,$930
+	dc.w $b407,$fffe
+	dc.w COLOR01,$711
+	dc.w $b507,$fffe
+	dc.w COLOR01,$502
+	dc.w $b607,$fffe
+	dc.w COLOR01,$303
+	dc.w $b707,$fffe
+	dc.w COLOR01,$205
+	dc.w $b807,$fffe
+	dc.w COLOR01,$117
+	dc.w $b907,$fffe
+	dc.w COLOR01,$039
+	dc.w $ba07,$fffe
+	dc.w COLOR01,$04b
+	dc.w $bb07,$fffe
+	dc.w COLOR01,$16d
+	dc.w $bc07,$fffe
+	dc.w COLOR01,$29e
+	dc.w $bd07,$fffe
+	dc.w COLOR01,$4ae
+	dc.w $be07,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $bf07,$fffe
+	dc.w COLOR01,$8dd
+	dc.w $c007,$fffe
+	dc.w COLOR01,$aec
+	dc.w $c107,$fffe
+	dc.w COLOR01,$cea
+	dc.w $c207,$fffe
+	dc.w COLOR01,$dd8
+	dc.w $c307,$fffe
+	dc.w COLOR01,$ec6
+	dc.w $c407,$fffe
+	dc.w COLOR01,$eb4
+	dc.w $c507,$fffe
+	dc.w COLOR01,$e92
+	dc.w $c607,$fffe
+	dc.w COLOR01,$d61
+	dc.w $c707,$fffe
+	dc.w COLOR01,$b40
+	dc.w $c807,$fffe
+	dc.w COLOR01,$930
+	dc.w $c907,$fffe
+	dc.w COLOR01,$711
+	dc.w $ca07,$fffe
+	dc.w COLOR01,$502
+	dc.w $cb07,$fffe
+	dc.w COLOR01,$303
+	dc.w $cc07,$fffe
+	dc.w COLOR01,$205
+	dc.w $cd07,$fffe
+	dc.w COLOR01,$117
+	dc.w $ce07,$fffe
+	dc.w COLOR01,$039
+	dc.w $cf07,$fffe
+	dc.w COLOR01,$04b
+	dc.w $d007,$fffe
+	dc.w COLOR01,$17d
+	dc.w $d107,$fffe
+	dc.w COLOR01,$29e
+	dc.w $d207,$fffe
+	dc.w COLOR01,$4be
+	dc.w $d307,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $d407,$fffe
+	dc.w COLOR01,$8dd
+	dc.w $d507,$fffe
+	dc.w COLOR01,$aec
+	dc.w $d607,$fffe
+	dc.w COLOR01,$cea
+	dc.w $d707,$fffe
+	dc.w COLOR01,$dd8
+	dc.w $d807,$fffe
+	dc.w COLOR01,$ec6
+	dc.w $d907,$fffe
+	dc.w COLOR01,$ea4
+	dc.w $da07,$fffe
+	dc.w COLOR01,$e82
+	dc.w $db07,$fffe
+	dc.w COLOR01,$d61
+	dc.w $dc07,$fffe
+	dc.w COLOR01,$b40
+	dc.w $dd07,$fffe
+	dc.w COLOR01,$930
+	dc.w $de07,$fffe
+	dc.w COLOR01,$711
+	dc.w $df07,$fffe
+	dc.w COLOR01,$502
+	dc.w $e007,$fffe
+	dc.w COLOR01,$303
+	dc.w $e107,$fffe
+	dc.w COLOR01,$205
+	dc.w $e207,$fffe
+	dc.w COLOR01,$017
+	dc.w $e307,$fffe
+	dc.w COLOR01,$039
+	dc.w $e407,$fffe
+	dc.w COLOR01,$05b
+	dc.w $e507,$fffe
+	dc.w COLOR01,$17d
+	dc.w $e607,$fffe
+	dc.w COLOR01,$29e
+	dc.w $e707,$fffe
+	dc.w COLOR01,$4be
+	dc.w $e807,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $e907,$fffe
+	dc.w COLOR01,$8dd
+	dc.w $ea07,$fffe
+	dc.w COLOR01,$aeb
+	dc.w $eb07,$fffe
+	dc.w COLOR01,$cea
+	dc.w $ec07,$fffe
+	dc.w COLOR01,$dd8
+	dc.w $ed07,$fffe
+	dc.w COLOR01,$ec6
+	dc.w $ee07,$fffe
+	dc.w COLOR01,$ea4
+	dc.w $ef07,$fffe
+	dc.w COLOR01,$d82
+	dc.w $f007,$fffe
+	dc.w COLOR01,$c61
+	dc.w $f107,$fffe
+	dc.w COLOR01,$b40
+	dc.w $f207,$fffe
+	dc.w COLOR01,$920
+	dc.w $f307,$fffe
+	dc.w COLOR01,$711
+	dc.w $f407,$fffe
+	dc.w COLOR01,$502
+	dc.w $f507,$fffe
+	dc.w COLOR01,$303
+	dc.w $f607,$fffe
+	dc.w COLOR01,$105
+	dc.w $f707,$fffe
+	dc.w COLOR01,$017
+	dc.w $f807,$fffe
+	dc.w COLOR01,$03a
+	dc.w $f907,$fffe
+	dc.w COLOR01,$05b
+	dc.w $fa07,$fffe
+	dc.w COLOR01,$17d
+	dc.w $fb07,$fffe
+	dc.w COLOR01,$29e
+	dc.w $fc07,$fffe
+	dc.w COLOR01,$4be
+	dc.w $fd07,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $fe07,$fffe
+	dc.w COLOR01,$8dd
+	dc.w $ff07,$fffe
+	dc.w COLOR01,$aeb
+.verticalPositionWrapped:
+	dc.w $ffdf,$fffe
+	dc.w $7,$fffe
+	dc.w COLOR01,$cea
+	dc.w $107,$fffe
+	dc.w COLOR01,$dd8
+	dc.w $207,$fffe
+	dc.w COLOR01,$ec5
+	dc.w $307,$fffe
+	dc.w COLOR01,$ea3
+	dc.w $407,$fffe
+	dc.w COLOR01,$d82
+	dc.w $507,$fffe
+	dc.w COLOR01,$c61
+	dc.w $607,$fffe
+	dc.w COLOR01,$b40
+	dc.w $707,$fffe
+	dc.w COLOR01,$920
+	dc.w $807,$fffe
+	dc.w COLOR01,$711
+	dc.w $907,$fffe
+	dc.w COLOR01,$502
+	dc.w $a07,$fffe
+	dc.w COLOR01,$304
+	dc.w $b07,$fffe
+	dc.w COLOR01,$106
+	dc.w $c07,$fffe
+	dc.w COLOR01,$018
+	dc.w $d07,$fffe
+	dc.w COLOR01,$03a
+	dc.w $e07,$fffe
+	dc.w COLOR01,$05b
+	dc.w $f07,$fffe
+	dc.w COLOR01,$17d
+	dc.w $1007,$fffe
+	dc.w COLOR01,$29e
+	dc.w $1107,$fffe
+	dc.w COLOR01,$4be
+	dc.w $1207,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $1307,$fffe
+	dc.w COLOR01,$8dd
+	dc.w $1407,$fffe
+	dc.w COLOR01,$aeb
+	dc.w $1507,$fffe
+	dc.w COLOR01,$ce9
+	dc.w $1607,$fffe
+	dc.w COLOR01,$dd7
+	dc.w $1707,$fffe
+	dc.w COLOR01,$ec5
+	dc.w $1807,$fffe
+	dc.w COLOR01,$ea3
+	dc.w $1907,$fffe
+	dc.w COLOR01,$d82
+	dc.w $1a07,$fffe
+	dc.w COLOR01,$c61
+	dc.w $1b07,$fffe
+	dc.w COLOR01,$b40
+	dc.w $1c07,$fffe
+	dc.w COLOR01,$920
+	dc.w $1d07,$fffe
+	dc.w COLOR01,$711
+	dc.w $1e07,$fffe
+	dc.w COLOR01,$502
+	dc.w $1f07,$fffe
+	dc.w COLOR01,$304
+	dc.w $2007,$fffe
+	dc.w COLOR01,$106
+	dc.w $2107,$fffe
+	dc.w COLOR01,$028
+	dc.w $2207,$fffe
+	dc.w COLOR01,$03a
+	dc.w $2307,$fffe
+	dc.w COLOR01,$05c
+	dc.w $2407,$fffe
+	dc.w COLOR01,$17d
+	dc.w $2507,$fffe
+	dc.w COLOR01,$39e
+	dc.w $2607,$fffe
+	dc.w COLOR01,$4be
+	dc.w $2707,$fffe
+	dc.w COLOR01,$6ce
+	dc.w $2807,$fffe
+	dc.w COLOR01,$8ed
+	dc.w $2907,$fffe
+	dc.w COLOR01,$aeb
+	dc.w $2a07,$fffe
+	dc.w COLOR01,$ce9
+	dc.w $2b07,$fffe
+	dc.w COLOR01,$dd7
+	dc.w $2c07,$fffe
+	dc.w COLOR01,$000
diff --git a/026.tile_hscroll/cpu.s b/026.tile_hscroll/cpu.s
new file mode 100644
index 0000000..c4eef06
--- /dev/null
+++ b/026.tile_hscroll/cpu.s
@@ -0,0 +1,28 @@
+	include	"includes.i"
+
+	xdef CpuFillColor
+
+CpuFillColor:
+	;; d0 - color index
+	;; a0 - bitplane pointer
+	movem.l	d1-d4/a0,-(sp)
+	move.w	#(SCREEN_HEIGHT)-1,d2
+.fillLine
+	move.b	#0,d1				; bitplane #
+.fillBitplane:
+	move.w	#(SCREEN_WIDTH_BYTES/4)-1,d3 	; long word moves, so / 4
+	btst	d1,d0				; is the color's bit set in this plane?
+	beq	.zero
+	move.l	#$FFFFFFFF,d4			; yes ? all ones
+	bra	.loop
+.zero
+	move.l	#0,d4				; no ? all zeros	
+.loop:
+	move.l	d4,(a0)+			; write the data to the plane's line 
+	dbra	d3,.loop
+	add.b	#1,d1
+	cmp.b	#SCREEN_BIT_DEPTH,d1 		; all planes for a single line done ?
+	bne	.fillBitplane			; no ? do the next plane
+	dbra	d2,.fillLine			; yes ? do the next line
+	movem.l	(sp)+,d1-d4/a0
+	rts
\ No newline at end of file
diff --git a/026.tile_hscroll/image.s b/026.tile_hscroll/image.s
new file mode 100644
index 0000000..8395dcc
--- /dev/null
+++ b/026.tile_hscroll/image.s
@@ -0,0 +1,36 @@
+	include "includes.i"
+
+	xdef SwitchBuffers
+		
+SwitchBuffers:
+	;; offscreen - bitplane address
+	;; d0 - bitplane pointer offset
+	movem.l	d0/a0-a1,-(sp)
+	move.l	offscreen,a0
+	move.l	onscreen,offscreen
+	move.l	a0,onscreen
+	move.l	a0,a1
+	lea 	copperListBplPtr,a0
+	jsr	PokeBitplanePointers
+	movem.l (sp)+,d0/a0-a1
+	rts
+
+PokeBitplanePointers:
+	; d0 = frame offset in bytes
+	; a0 = BPLP copper list address
+	; a1 = bitplanes pointer
+	movem.l	d0-a6,-(sp)
+	add.l	d0,a1 ; bitplane offset
+	moveq	#SCREEN_BIT_DEPTH-1,d0
+.bitplaneloop:
+	move.l 	a1,d1
+	move.w	d1,2(a0)
+	swap	d1
+	move.w  d1,6(a0)
+	lea	BITPLANE_WIDTH_BYTES(a1),a1
+	addq	#8,a0
+	dbra	d0,.bitplaneloop
+	movem.l (sp)+,d0-a6
+	rts
+
+	
diff --git a/026.tile_hscroll/includes.i b/026.tile_hscroll/includes.i
new file mode 100644
index 0000000..34a2b64
--- /dev/null
+++ b/026.tile_hscroll/includes.i
@@ -0,0 +1,9 @@
+	include "../include/registers.i"
+	include "../include/vector.i"
+	include "../include/beambits.i"
+	include "../include/bplconbits.i"
+	include "hardware/dmabits.i"
+	include "hardware/intbits.i"	
+	include "hardware/blit.i"
+	include "constants.i"
+	include "macros.i"
\ No newline at end of file
diff --git a/026.tile_hscroll/init.s b/026.tile_hscroll/init.s
new file mode 100644
index 0000000..7be4860
--- /dev/null
+++ b/026.tile_hscroll/init.s
@@ -0,0 +1,32 @@
+	include "includes.i"
+
+	xdef Init
+
+	;; custom chip base globally in a6
+Init:
+	movem.l	d0-a6,-(sp)
+	;; move	#$7ff,DMACON(a6)	; disable all dma
+	;; 	move	#$7fff,INTENA(a6) ; disable all interrupts	
+
+	;; 	lea	Level3InterruptHandler,a3
+	;;  	move.l	a3,LVL3_INT_VECTOR	
+	
+	;; set up playfield
+	move.w  #(RASTER_Y_START<<8)|RASTER_X_START,DIWSTRT(a6)
+	move.w	#((RASTER_Y_STOP-256)<<8)|(RASTER_X_STOP-256),DIWSTOP(a6)
+
+	move.w	#(RASTER_X_START/2-SCREEN_RES)-8,DDFSTRT(a6) ; -8 for extra scrolling word
+	move.w	#(RASTER_X_START/2-SCREEN_RES)+(8*((SCREEN_WIDTH/16)-1)),DDFSTOP(a6)
+	
+	move.w	#(SCREEN_BIT_DEPTH<<12)|COLOR_ON,BPLCON0(a6)
+	move.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2,BPL1MOD(a6) ; -2 for extra scrolling word
+	move.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2,BPL2MOD(a6)
+
+	;; install copper list, then enable dma and selected interrupts
+	lea	copperList,a0
+	move.l	a0,COP1LC(a6)
+ 	move.w  COPJMP1(a6),d0
+	move.w	#(DMAF_BLITTER|DMAF_SETCLR!DMAF_COPPER!DMAF_RASTER!DMAF_MASTER),DMACON(a6)
+	;; 	move.w	#(INTF_SETCLR|INTF_VERTB|INTF_INTEN),INTENA(a6)
+	movem.l (sp)+,d0-a6
+	rts
\ No newline at end of file
diff --git a/026.tile_hscroll/link.script.x b/026.tile_hscroll/link.script.x
new file mode 100644
index 0000000..4933239
--- /dev/null
+++ b/026.tile_hscroll/link.script.x
@@ -0,0 +1,28 @@
+MEMORY 
+{
+    disk: org = 0x4000, len = 901120-0x4000
+    ram: org = 0x00000, len = 0x80000
+}
+
+SECTIONS
+{
+    load : { 
+        startCode = .;
+        *(.text) 
+        *(.data)
+        *(CODE)
+        *(DATA)
+        endCode = .;
+    } > disk
+
+    noload ALIGN(512) : {
+        startData = .;
+        *(.noload)
+        endData = .;
+    } > disk
+
+    bss (NOLOAD) : {
+        . = endCode;
+        *(.bss)
+    } > ram;
+}
\ No newline at end of file
diff --git a/026.tile_hscroll/macros.i b/026.tile_hscroll/macros.i
new file mode 100644
index 0000000..d19a071
--- /dev/null
+++ b/026.tile_hscroll/macros.i
@@ -0,0 +1,6 @@
+WaitBlitter:	macro
+	tst	DMACONR(a6)		;for compatibility
+.\@:
+	btst	#6,DMACONR(a6)
+	bne.s 	.\@
+	endm
\ No newline at end of file
diff --git a/026.tile_hscroll/palette.pal b/026.tile_hscroll/palette.pal
new file mode 100644
index 0000000..2412597
--- /dev/null
+++ b/026.tile_hscroll/palette.pal
@@ -0,0 +1,17 @@
+000 000 000 255
+255 255 255 255
+255 000 000 255
+000 255 000 255
+000 000 255 255
+055 255 055 255
+255 255 000 255
+255 255 000 255
+255 255 000 255
+255 255 000 255
+255 255 000 255
+255 255 000 255
+255 255 000 255
+255 255 000 255
+255 255 000 255
+255 200 000 255
+
diff --git a/026.tile_hscroll/screenshot.png b/026.tile_hscroll/screenshot.png
new file mode 100644
index 0000000..c4ab0fb
Binary files /dev/null and b/026.tile_hscroll/screenshot.png differ
diff --git a/026.tile_hscroll/scroll.s b/026.tile_hscroll/scroll.s
new file mode 100644
index 0000000..98f0011
--- /dev/null
+++ b/026.tile_hscroll/scroll.s
@@ -0,0 +1,30 @@
+	include "includes.i"
+
+	xdef HoriScrollPlayfield
+	
+HoriScrollPlayfield:
+	;; d0 - x position in pixels
+	;; out:
+	;; d0 - bitplane pointer increment in bytes
+	movem.l	d1-a6,-(sp)
+	move.l	d0,d1
+	lsr.l   #3,d0		; bytes to scroll
+	move.l   d0,d3		; save bitplane pointer increment (bytes) for return value
+	and.l   #$F,d1		; pixels = 0xf - (hpos - (hpos_bytes*8))
+	move.l  #$F,d0
+	sub.l   d1,d0		; bits to delay	
+	bsr	SetupHoriScrollBitDelay
+	move.l	d3,d0		; retstore d0 for return value
+	movem.l (sp)+,d1-a6
+	rts
+
+SetupHoriScrollBitDelay:
+	;; d0 = number of bits to scroll
+	movem.l	d0/d1,-(sp)
+	move.w	d0,d1
+	lsl.w	#4,d1
+	or.w	d1,d0
+	move.w  d0,BPLCON1(a6)
+	movem.l (sp)+,d0/d1
+	rts
+	
\ No newline at end of file
diff --git a/026.tile_hscroll/test.asm b/026.tile_hscroll/test.asm
new file mode 100644
index 0000000..9cae193
--- /dev/null
+++ b/026.tile_hscroll/test.asm
@@ -0,0 +1,20 @@
+	idnt	"test.c"
+	opt	0
+	opt	NQLPSMRBT
+	section	"CODE",code
+	public	_blah
+	cnop	0,4
+_blah
+	movem.l	l2,-(a7)
+	moveq	#0,d0
+	move.w	(6+l4,a7),d0
+	move.l	#320,-(a7)
+	move.l	d0,-(a7)
+	public	__lmods
+	jsr	__lmods
+	addq.w	#8,a7
+l1
+l2	reg
+l4	equ	0
+	rts
+; stacksize=8
diff --git a/026.tile_hscroll/test.c b/026.tile_hscroll/test.c
new file mode 100644
index 0000000..624bf04
--- /dev/null
+++ b/026.tile_hscroll/test.c
@@ -0,0 +1,4 @@
+int blah(unsigned short x)
+{
+  return x % 320;
+}
diff --git a/026.tile_hscroll/tile_hscroll.s b/026.tile_hscroll/tile_hscroll.s
new file mode 100644
index 0000000..932aa6d
--- /dev/null
+++ b/026.tile_hscroll/tile_hscroll.s
@@ -0,0 +1,123 @@
+	include "includes.i"
+	
+	xdef	copperList
+	xdef	onscreen
+	xdef	offscreen
+	xdef	copperListBplPtr
+	
+byteMap:
+	dc.l	Entry
+	dc.l	endCode-byteMap
+
+Entry:
+	lea	userstack,a7
+	lea 	CUSTOM,a6
+
+	move	#$7ff,DMACON(a6)	; disable all dma
+	move	#$7fff,INTENA(a6) 	; disable all interrupts		
+	
+	jsr	InstallPalette
+
+	lea	Level3InterruptHandler,a3
+ 	move.l	a3,LVL3_INT_VECTOR			
+
+	jsr	SwitchBuffers		
+	
+	move.w	#(INTF_SETCLR|INTF_VERTB|INTF_INTEN),INTENA(a6)	
+ 	move.w	#(DMAF_BLITTER|DMAF_SETCLR!DMAF_MASTER),DMACON(a6) 		
+
+	jsr	Init		  ; enable the playfield		
+
+	move.l	#0,d1 			; x pos 
+	move.l	#0,d2			; shift counter
+MainLoop:		
+	jsr 	WaitVerticalBlank
+	move.l	d1,d0		    ; x position in pixels
+	jsr 	HoriScrollPlayfield ; returns bitplane pointer offset in d0
+	jsr 	SwitchBuffers	    ; takes bitplane pointer offset in d0
+	add.l	#1,d1
+	cmp.l	#15,d2
+	bne	.s1
+.backfill:
+	move.l	onscreen,a1
+	add.l	d0,a1
+	;; sub.l	#2,a1
+	move.l	a1,a0
+	add.l	#BITPLANE_WIDTH_BYTES,a0 ; dest
+	jsr	BlitTile
+	move.l	offscreen,a1
+	add.l	d0,a1
+	;; sub.l	#2,a1	
+	move.l	a1,a0
+	add.l	#BITPLANE_WIDTH_BYTES,a0
+	jsr	BlitTile	
+	move.l	#0,d2
+	bra	.s2
+.s1:
+	add.l	#1,d2
+.s2:
+	bra	MainLoop
+
+	
+Level3InterruptHandler:
+	movem.l	d0-a6,-(sp)
+	lea	CUSTOM,a6
+.checkVerticalBlank:
+	move.w	INTREQR(a6),d0
+	and.w	#INTF_VERTB,d0	
+	beq.s	.checkCopper
+
+.verticalBlank:
+	move.w	#INTF_VERTB,INTREQ(a6)	; clear interrupt bit	
+.checkCopper:
+	move.w	INTREQR(a6),d0
+	and.w	#INTF_COPER,d0	
+	beq.s	.interruptComplete
+.copperInterrupt:
+	move.w	#INTF_COPER,INTREQ(a6)	; clear interrupt bit	
+	
+.interruptComplete:
+	movem.l	(sp)+,d0-a6
+	rte	
+		
+copperList:
+copperListBplPtr:
+	dc.w	BPL1PTL,0
+	dc.w	BPL1PTH,0
+	dc.w	BPL2PTL,0
+	dc.w	BPL2PTH,0
+	dc.w	BPL3PTL,0
+	dc.w	BPL3PTH,0
+	dc.w	BPL4PTL,0
+	dc.w	BPL4PTH,0
+	dc.w	BPL5PTL,0
+	dc.w	BPL5PTH,0
+	dc.w	BPL6PTL,0
+	dc.w	BPL6PTH,0
+	dc.l	$fffffffe
+ 
+InstallPalette:
+	include	"out/gigi_full-palette.s"
+	rts
+
+GreyPalette:
+	include	"out/gigi_full-grey.s"
+	rts	
+onscreen:
+	dc.l	bitplanes1
+offscreen:
+	dc.l	bitplanes2
+
+bitplanes1:
+	incbin "out/gigi_full.bin"
+	ds.b	BITPLANE_WIDTH_BYTES*10
+bitplanes2:
+	incbin "out/gigi_full.bin"	
+	ds.b	BITPLANE_WIDTH_BYTES*10
+	
+	section .bss
+startUserstack:
+	ds.b	$1000		; size of stack
+userstack:
+
+
diff --git a/026.tile_hscroll/utils.s b/026.tile_hscroll/utils.s
new file mode 100644
index 0000000..0d36fb8
--- /dev/null
+++ b/026.tile_hscroll/utils.s
@@ -0,0 +1,47 @@
+	include "includes.i"
+	
+	xdef 	WaitVerticalBlank
+	xdef	WaitRaster
+	xdef	Depack
+
+	
+WaitVerticalBlank:	
+	movem.l	d0,-(sp)
+.loop:	move.l	$dff004,d0
+	and.l	#$1ff00,d0
+	cmp.l	#303<<8,d0	; wait for the scan line
+	bne.b	.loop
+.loop2	move.l	$dff004,d0
+	and.l	#$1ff00,d0
+	cmp.l	#303<<8,d0	; wait for the scan line to pass (A4000 is fast!)
+	beq.b	.loop2
+	movem.l (sp)+,d0
+	rts	
+
+
+WaitRaster:		;wait for rasterline d0.w. Modifies d0-d2/a0.
+	movem.l d0-a6,-(sp)
+	move.l #$1ff00,d2
+	lsl.l #8,d0
+	and.l d2,d0
+	lea $dff004,a0
+.wr:	move.l (a0),d1
+	and.l d2,d1
+	cmp.l d1,d0
+	bne.s .wr
+	movem.l (sp)+,d0-a6
+	rts
+
+
+Depack:
+	;a0 = input buffer to be decompressed. Must be 16-bit aligned!
+	;a1 = output buffer. Points to the end of the data at exit
+	movem.l	d0-a6,-(sp)	
+	bsr	doynaxdepack		; decompress data
+	movem.l (sp)+,d0-a6
+	rts
+
+	;; this is one FAST decompression routine!
+	include "../tools/external/doynamite68k/depacker_doynax.asm"
+
+