From 0f6b0e0ef4e8ec9d5fa6268e386726e7ae15633d Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Tue, 5 Dec 2017 16:16:38 -0500
Subject: [PATCH] dlowres_mode7: add initial checkin

---
 dlowres_mode7/Makefile            |   27 +
 dlowres_mode7/apple2_1000.inc     |   12 +
 dlowres_mode7/dlowres_flying.s    | 1256 +++++++++++++++++++++++++++++
 dlowres_mode7/dlowres_mode7.dsk   |  Bin 0 -> 143360 bytes
 dlowres_mode7/dlowres_mode7.s     |   83 ++
 dlowres_mode7/dlowres_sprites.inc |   60 ++
 dlowres_mode7/dlowres_utils.s     |  753 +++++++++++++++++
 dlowres_mode7/dlowres_zp.inc      |  194 +++++
 dlowres_mode7/fast_multiply.s     |  349 ++++++++
 9 files changed, 2734 insertions(+)
 create mode 100644 dlowres_mode7/Makefile
 create mode 100644 dlowres_mode7/apple2_1000.inc
 create mode 100644 dlowres_mode7/dlowres_flying.s
 create mode 100644 dlowres_mode7/dlowres_mode7.dsk
 create mode 100644 dlowres_mode7/dlowres_mode7.s
 create mode 100644 dlowres_mode7/dlowres_sprites.inc
 create mode 100644 dlowres_mode7/dlowres_utils.s
 create mode 100644 dlowres_mode7/dlowres_zp.inc
 create mode 100644 dlowres_mode7/fast_multiply.s

diff --git a/dlowres_mode7/Makefile b/dlowres_mode7/Makefile
new file mode 100644
index 00000000..a0202ffd
--- /dev/null
+++ b/dlowres_mode7/Makefile
@@ -0,0 +1,27 @@
+include ../Makefile.inc
+
+DOS33 = ../dos33fs-utils/dos33
+PNG2GR = ../gr-utils/png2gr
+PNG2RLE = ../gr-utils/png2rle
+
+all:	dlowres_mode7.dsk
+
+$(DOS33):	
+	cd ../dos33fs-utils && make
+
+dlowres_mode7.dsk:	$(DOS33) DLOWRES_MODE7
+	$(DOS33) -y dlowres_mode7.dsk BSAVE -a 0x1000 DLOWRES_MODE7
+
+###
+
+DLOWRES_MODE7:	dlowres_mode7.o
+	ld65 -o DLOWRES_MODE7 dlowres_mode7.o -C ./apple2_1000.inc
+
+dlowres_mode7.o:	dlowres_mode7.s \
+	dlowres_flying.s fast_multiply.s \
+	dlowres_utils.s dlowres_zp.inc
+	ca65 -o dlowres_mode7.o dlowres_mode7.s -l dlowres_mode7.lst
+
+clean:	
+	rm -f *~ *.o *.lst
+
diff --git a/dlowres_mode7/apple2_1000.inc b/dlowres_mode7/apple2_1000.inc
new file mode 100644
index 00000000..e22976de
--- /dev/null
+++ b/dlowres_mode7/apple2_1000.inc
@@ -0,0 +1,12 @@
+MEMORY {
+       ZP: start = $00, size = $1A, type = rw;
+       RAM: start = $1000, size = $8E00, file = %O;
+}
+
+SEGMENTS {
+CODE: load = RAM, type = ro;
+RODATA: load = RAM, type = ro;
+DATA: load = RAM, type = rw;
+BSS: load = RAM, type = bss, define = yes;
+ZEROPAGE: load = ZP, type = zp;
+}
diff --git a/dlowres_mode7/dlowres_flying.s b/dlowres_mode7/dlowres_flying.s
new file mode 100644
index 00000000..9435f8eb
--- /dev/null
+++ b/dlowres_mode7/dlowres_flying.s
@@ -0,0 +1,1256 @@
+;===========
+; CONSTANTS
+;===========
+CONST_SHIPX	EQU	15
+CONST_TILE_W	EQU	64
+CONST_TILE_H	EQU	64
+CONST_MAP_MASK_X	EQU	(CONST_TILE_W - 1)
+CONST_MAP_MASK_Y	EQU	(CONST_TILE_H - 1)
+CONST_LOWRES_W	EQU	40
+CONST_LOWRES_H	EQU	40
+CONST_BETA_I	EQU	$ff
+CONST_BETA_F	EQU	$80
+CONST_SCALE_I	EQU	$14
+CONST_SCALE_F	EQU	$00
+CONST_LOWRES_HALF_I	EQU	$ec	; -(LOWRES_W/2)
+CONST_LOWRES_HALF_F	EQU	$00
+
+flying_start:
+
+	;===================
+	; Clear screen/pages
+	;===================
+
+	jsr	clear_screens
+;	jsr     set_gr_page0
+
+	;=====================
+	; Set Up Double Lowres
+	;=====================
+
+	lda	SET_GR		; graphics C050
+	lda	LORES		; lores    C056
+	lda	TEXTGR		; mixset   C053
+	sta	EIGHTYSTORE_OFF	; 80store  C001
+	sta	EIGHTYCOL	; 80col    C00d
+	lda	AN3		; AN3      C05E
+
+
+	jsr	init_multiply_tables
+
+	;===============
+	; Init Variables
+	;===============
+	lda	#20
+	sta	SHIPY
+	lda	#0
+	sta	TURNING
+	sta	ANGLE
+	sta	SPACEX_I
+	sta	SPACEY_I
+	sta	CX_I
+	sta	CX_F
+	sta	CY_I
+	sta	CY_F
+	sta	DRAW_SPLASH
+	sta	SPEED
+	sta	SPLASH_COUNT
+
+	lda	#1
+	sta	ANGLE
+
+	lda	#2		; initialize sky both pages
+	sta	DRAW_SKY
+
+	lda	#4		; starts out at 4.5
+	sta	SPACEZ_I
+	lda	#$80
+	sta	SPACEZ_F
+
+	jsr	update_z_factor
+
+flying_loop:
+
+	lda	SPLASH_COUNT						; 3
+	beq	flying_keyboard						; 2nt/3
+	dec	SPLASH_COUNT	; decrement splash count		; 5
+
+flying_keyboard:
+
+	jsr	get_key		; get keypress				; 6
+
+	lda	LASTKEY							; 3
+
+;	cmp	#('Q')		; if quit, then return
+;	bne	skipskip
+;	rts
+
+;skipskip:
+
+	cmp	#('W')							; 2
+	bne	check_down						; 3/2nt
+
+	;===========
+	; UP PRESSED
+	;===========
+
+	lda	SHIPY
+	cmp	#17
+	bcc	check_down	; bgt, if shipy>16
+	dec	SHIPY
+	dec	SHIPY		; move ship up
+	inc	SPACEZ_I	; incement height
+	jsr	update_z_factor
+	lda	#0
+	sta	SPLASH_COUNT
+
+check_down:
+	cmp	#('S')
+	bne	check_left
+
+	;=============
+	; DOWN PRESSED
+	;=============
+
+	lda	SHIPY
+	cmp	#28
+	bcs	splashy		; ble, if shipy < 28
+	inc	SHIPY
+	inc	SHIPY		; move ship down
+	dec	SPACEZ_I	; decrement height
+	jsr	update_z_factor
+	bcc	check_left
+
+splashy:
+	lda	#10
+	sta	SPLASH_COUNT
+
+check_left:
+	cmp	#('A')
+	bne	check_right
+
+	;=============
+	; LEFT PRESSED
+	;=============
+
+	lda	TURNING
+	bmi	turn_left
+	beq	turn_left
+
+	lda	#$0
+	sta	TURNING
+	clv
+	bvc	check_right
+
+turn_left:
+	lda	#253	; -3
+	sta	TURNING
+
+	dec	ANGLE
+
+check_right:
+	cmp	#('D')
+	bne	check_speedup
+
+	;==============
+	; RIGHT PRESSED
+	;==============
+
+	lda	TURNING		;; FIXME: optimize me
+	bpl	turn_right
+	lda	#0
+	sta	TURNING
+	clv
+	bvc	check_speedup
+
+turn_right:
+	lda	#3
+	sta	TURNING
+
+	inc	ANGLE
+
+check_speedup:
+	cmp	#('Z')
+	bne	check_speeddown
+
+	;=========
+	; SPEED UP
+	;=========
+	lda	#$8
+	cmp	SPEED
+	beq	check_speeddown
+	inc	SPEED
+
+check_speeddown:
+	cmp	#('X')
+	bne	check_brake
+
+	;===========
+	; SPEED DOWN
+	;===========
+
+	lda	SPEED
+	beq	check_brake
+	dec	SPEED
+
+check_brake:
+	cmp	#(' '+128)
+	bne	check_land
+
+	;============
+	; BRAKE
+	;============
+	lda	#$0
+	sta	SPEED
+
+check_land:
+	cmp	#13
+	bne	check_help
+
+	;=====
+	; LAND
+	;=====
+
+	; finds value in space_x.i,space_y.i
+	; returns color in A
+	lda	CX_I
+	sta	SPACEX_I
+	lda	CY_I
+	sta	SPACEY_I
+
+	jsr	lookup_map
+
+	cmp	#COLOR_BOTH_LIGHTGREEN
+	bne	must_land_on_grass
+
+landing_loop:
+
+	jsr	draw_background_mode7
+
+	; Draw Shadow
+	lda     #>shadow_forward
+        sta     INH
+        lda     #<shadow_forward
+        sta     INL
+	lda	#(CONST_SHIPX+3)
+	sta	XPOS
+	clc
+	lda	SPACEZ_I
+	adc	#31
+	and	#$fe			; make sure it's even
+	sta	YPOS
+	jsr	put_sprite
+
+	lda     #>ship_forward
+        sta     INH
+        lda     #<ship_forward
+        sta     INL
+
+	lda	#CONST_SHIPX
+	sta	XPOS
+	lda	SHIPY
+	sta	YPOS
+	jsr	put_sprite
+
+	jsr	page_flip
+
+	dec	SPACEZ_I
+	jsr	update_z_factor
+	lda	SPACEZ_I
+
+	bpl	landing_loop
+
+
+	rts			; finish flying
+
+must_land_on_grass:
+	lda     #10
+	sta	CH		; HTAB 11
+
+	lda	#21
+	sta	CV		; VTAB 22
+
+	lda	#>(grass_string)
+	sta	OUTH
+	lda	#<(grass_string)
+	sta	OUTL
+
+	jsr	print_both_pages	; "NEED TO LAND ON GRASS!"
+
+check_help:
+	cmp	#('H')
+	bne	check_done
+
+	;=====
+	; HELP
+	;=====
+
+;	jsr	print_help
+
+	lda	#2
+	sta	DRAW_SKY
+
+check_done:
+
+	;================
+	; Wrap the Angle
+	;================
+	; FIXME: only do this in right/left routine?
+	lda	ANGLE							; 3
+	and	#$f							; 2
+	sta	ANGLE							; 3
+
+	;================
+	; Handle Movement
+	;================
+
+speed_move:
+	ldx	SPEED							; 3
+	beq	draw_background						; 2nt/3
+								;=============
+	lda	ANGLE	; dx.i=fixed_sin[(angle+4)&0xf].i; // cos()	; 3
+	clc								; 2
+	adc	#4							; 2
+	and	#$f							; 2
+	asl								; 2
+	tay								; 2
+	lda	fixed_sin_scale,Y					; 4
+	sta	DX_I							; 3
+	iny		; dx.f=fixed_sin[(angle+4)&0xf].f; // cos()	; 2
+	lda	fixed_sin_scale,Y					; 4
+	sta	DX_F							; 3
+
+	lda	ANGLE	; dy.i=fixed_sin[angle&0xf].i; // sin()		; 3
+	and	#$f							; 2
+	asl								; 2
+	tay								; 2
+	lda	fixed_sin_scale,Y					; 4
+	sta	DY_I							; 3
+	iny		; dx.f=fixed_sin[angle&0xf].f; // sin()		; 2
+	lda	fixed_sin_scale,Y					; 4
+	sta	DY_F							; 3
+								;============
+								;	 54
+speed_loop:
+
+	clc			; fixed_add(&cx,&dx,&cx);		; 2
+	lda	CX_F							; 3
+	adc	DX_F							; 3
+	sta	CX_F							; 3
+	lda	CX_I							; 3
+	adc	DX_I							; 3
+	sta	CX_I							; 3
+
+	clc			; fixed_add(&cy,&dy,&cy);		; 2
+	lda	CY_F							; 3
+	adc	DY_F							; 3
+	sta	CY_F							; 3
+	lda	CY_I							; 3
+	adc	DY_I							; 3
+	sta	CY_I							; 3
+
+	dex								; 2
+	bne	speed_loop						; 2nt/3
+								;============
+								;	45
+
+	;====================
+	; Draw the background
+	;====================
+draw_background:
+	jsr	draw_background_mode7					; 6
+
+check_over_water:
+	;	See if we are over water
+	lda	CX_I							; 3
+	sta	SPACEX_I						; 3
+	lda	CY_I							; 3
+	sta	SPACEY_I						; 3
+
+	jsr	lookup_map						; 6
+
+	sec								; 2
+	sbc	#COLOR_BOTH_DARKBLUE					; 2
+	sta	OVER_LAND						; 3
+								;===========
+								;	31
+
+	; Calculate whether to draw the splash
+
+	lda	#0			; set splash drawing to 0	; 2
+	sta	DRAW_SPLASH						; 3
+
+	lda	SPEED			; if speed==0, no splash	; 3
+	beq	no_splash						; 2nt/3
+
+	lda	TURNING							; 3
+	beq	no_turning_splash					; 2nt/3
+
+	lda	SHIPY							; 3
+	cmp	#27							; 2
+	bcc	no_turning_splash	; blt if shipy<25 skip		; 2nt/3
+
+	lda	#1							; 2
+	sta	SPLASH_COUNT						; 3
+
+no_turning_splash:
+	lda	OVER_LAND	; no splash if over land		; 3
+	bne	no_splash						; 2nt/3
+
+	lda	SPLASH_COUNT	; no splash if splash_count expired	; 3
+	beq	no_splash						; 2nt/3
+
+	lda	#1							; 2
+	sta	DRAW_SPLASH						; 3
+
+no_splash:
+
+	;==============
+	; Draw the ship
+	;==============
+
+	clv								; 2
+	lda	TURNING							; 3
+	beq	draw_ship_forward					; 2nt/3
+	bpl	draw_ship_right						; 2nt/3
+	bmi	draw_ship_left		;; FIXME: optimize order	; 2nt/3
+
+draw_ship_forward:
+	lda	DRAW_SPLASH						; 2
+	beq	no_forward_splash					; 2nt/3
+
+	; Draw Splash
+	lda     #>splash_forward					; 2
+        sta     INH							; 3
+        lda     #<splash_forward					; 2
+        sta     INL							; 3
+	lda	#(CONST_SHIPX+1)					; 2
+	sta	XPOS							; 3
+	clc								; 2
+	lda	SHIPY							; 3
+	adc	#9							; 2
+	and	#$fe			; make sure it's even		; 2
+	sta	YPOS							; 3
+	jsr	put_sprite						; 6
+								;==========
+								;	33
+no_forward_splash:
+	; Draw Shadow
+	lda     #>shadow_forward					; 2
+        sta     INH							; 3
+        lda     #<shadow_forward					; 2
+        sta     INL							; 3
+	lda	#(CONST_SHIPX+3)					; 2
+	sta	XPOS							; 3
+	clc								; 2
+	lda	SPACEZ_I						; 3
+	adc	#31							; 2
+	and	#$fe			; make sure it's even		; 2
+	sta	YPOS							; 3
+	jsr	put_sprite						; 6
+
+	lda     #>ship_forward						; 2
+        sta     INH							; 3
+        lda     #<ship_forward						; 2
+        sta     INL							; 3
+	bvc	draw_ship						; 3
+								;===========
+								;	46
+draw_ship_right:
+	lda	DRAW_SPLASH						; 3
+	beq	no_right_splash						; 2nt/3
+
+	; Draw Splash
+	lda     #>splash_right						; 2
+        sta     INH							; 3
+        lda     #<splash_right						; 2
+        sta     INL							; 3
+	lda	#(CONST_SHIPX+1)					; 2
+	sta	XPOS							; 3
+	clc								; 2
+	lda	#36							; 2
+	sta	YPOS							; 3
+	jsr	put_sprite						; 6
+								;===========
+								;	28
+no_right_splash:
+
+	; Draw Shadow
+	lda     #>shadow_right						; 2
+        sta     INH							; 3
+        lda     #<shadow_right						; 2
+        sta     INL							; 3
+	lda	#(CONST_SHIPX+3)					; 2
+	sta	XPOS							; 3
+	clc								; 2
+	lda	SPACEZ_I						; 3
+	adc	#31							; 2
+	and	#$fe			; make sure it's even		; 2
+	sta	YPOS							; 3
+	jsr	put_sprite						; 6
+
+	lda     #>ship_right						; 2
+        sta     INH							; 3
+        lda     #<ship_right						; 2
+        sta     INL							; 3
+
+	dec	TURNING							; 5
+
+	bvc	draw_ship						; 3
+								;==========
+								;	51
+draw_ship_left:
+	lda	DRAW_SPLASH						; 3
+	beq	no_left_splash						; 2nt/3
+
+	; Draw Splash
+	lda     #>splash_left						; 2
+        sta     INH							; 3
+        lda     #<splash_left						; 2
+        sta     INL							; 3
+	lda	#(CONST_SHIPX+1)					; 2
+	sta	XPOS							; 3
+	clc								; 2
+	lda	#36							; 2
+	sta	YPOS							; 3
+	jsr	put_sprite						; 6
+								;===========
+								;	 28
+no_left_splash:
+
+	; Draw Shadow
+	lda     #>shadow_left						; 2
+        sta     INH							; 3
+        lda     #<shadow_left						; 2
+        sta     INL							; 3
+	lda	#(CONST_SHIPX+3)					; 2
+	sta	XPOS							; 3
+	clc								; 2
+	lda	SPACEZ_I						; 3
+	adc	#31							; 2
+	and	#$fe			; make sure it's even		; 2
+	sta	YPOS							; 3
+	jsr	put_sprite						; 6
+
+	lda     #>ship_left						; 2
+        sta     INH							; 3
+        lda     #<ship_left						; 2
+        sta     INL							; 3
+
+	inc	TURNING							; 5
+								;==========
+								;	 48
+
+draw_ship:
+	lda	#CONST_SHIPX						; 2
+	sta	XPOS							; 3
+	lda	SHIPY							; 3
+	sta	YPOS							; 3
+	jsr	put_sprite						; 6
+								;===========
+								;	17
+
+	;==================
+	; flip pages
+	;==================
+
+	jsr	page_flip						; 6
+
+	;==================
+	; loop forever
+	;==================
+
+	jmp	flying_loop						; 3
+
+
+update_z_factor:
+
+	; we only do the following if Z changes
+
+	; fixed_mul(&space_z,&BETA,&factor);
+;mul1
+	lda	SPACEZ_I						; 3
+	sta	NUM1H							; 3
+
+	; interlude, update SPACEZ_SHIFTED
+	asl								; 2
+	asl								; 2
+	asl								; 2
+	asl								; 2
+	asl								; 2
+	sec								; 2
+	sbc	#8							; 2
+	sta	spacez_shifted+1					; 4
+
+
+	lda	SPACEZ_F						; 3
+	sta	NUM1L							; 3
+
+	lda	#CONST_BETA_I	; BETA_I				; 2
+	sta	NUM2H							; 3
+	lda	#CONST_BETA_F	; BETA_F				; 2
+	sta	NUM2L							; 3
+
+	sec			; don't reuse old values		; 2
+	jsr	multiply						; 6
+
+	stx	FACTOR_I						; 3
+	sta	FACTOR_F						; 3
+
+	rts								; 6
+								;===========
+								;        60
+
+
+;===========================
+; Draw the Mode7 Background
+;===========================
+
+draw_background_mode7:
+
+	; Only draw sky if necessary
+	; (at start, or if we have switched to text, we never overwrite it)
+
+	lda	DRAW_SKY						; 3
+	beq	no_draw_sky						;^2nt/3
+								;==============
+								;	  6
+	; Draw Sky
+	; not performance critical as this happens rarely
+
+	dec	DRAW_SKY	; usually 2 as we redraw both pages	; 5
+	lda	#COLOR_BOTH_MEDIUMBLUE	; MEDIUMBLUE color		; 2
+	sta	COLOR							; 3
+	lda	#0							; 2
+								;===========
+								;	 11
+
+sky_loop:				; draw line across screen
+	ldy	#39			; from y=0 to y=6		; 2
+	sty	V2							; 3
+	ldy	#0							; 2
+	pha								; 3
+	jsr	hlin_double		; hlin y,V2 at A	; 63+(X*16)
+	pla								; 4
+	clc								; 2
+	adc	#2							; 2
+	cmp	#6							; 2
+	bne	sky_loop						; 3/2nt
+								;=============
+								; (23+63+(X*16))*5
+	; Draw Hazy Horizon
+
+	lda	#COLOR_BOTH_GREY	; Horizon is Grey		; 2
+	sta	COLOR							; 3
+	lda	#6			; draw single line at 6/7	; 2
+	ldy	#39							; 2
+	sty	V2			; hlin	Y,V2 at A		; 3
+	ldy	#0							; 2
+	jsr	hlin_double		; hlin	0,40 at 6	; 63+(X*16)
+								;===========
+								; 63+(X*16)+14
+
+no_draw_sky:
+
+	; setup initial odd/even color mask
+	lda	#$f0							; 2
+	sta	COLOR_MASK						; 3
+
+	; start Y at 8 (below horizon line)
+	lda	#8							; 2
+	sta	SCREEN_Y						; 3
+								;=============
+								;	 10
+
+screeny_loop:
+	and	#$fe		; be sure SCREEN_Y used later is even	; 2
+	tay			; put in Y for lookup table later	; 2
+
+	lda	COLOR_MASK	; flip mask for odd/even row plotting	; 3
+	eor	#$ff							; 2
+	sta	COLOR_MASK						; 3
+	sta	mask_label+1	; setup self-modifying code		; 4
+
+	eor	#$ff		; setup self-modifying branch later	; 2
+	bmi	odd_branch	; beq is $f0 (too clever FIXME)		; 2nt/3
+	lda	#$d0		; bne is $d0				; 2
+odd_branch:
+	sta	mask_branch_label	; actually update branch	; 4
+								;============
+								;	 27
+
+setup_gr_addr:
+	lda	gr_offsets,Y	; lookup low-res memory row address	; 4
+	sta	GBASL		; store in GBASL zero-page pointer	; 3
+	iny			; point to high part of address		; 2
+
+	lda	gr_offsets,Y	; load high part of address		; 4
+	clc			; clear carry for add			; 2
+	adc	DRAW_PAGE       ; add in draw page offset               ; 3
+	sta	GBASH		; store in GBASH zero-page pointer	; 3
+
+								;=============
+								;	 21
+
+calc_horizontal_scale:
+
+	; Calculate the horizontal scale using a lookup table
+
+	; horizontal_scale.i *ALWAYS* = 0
+
+	;	unsigned char horizontal_lookup[7][32];
+	;horizontal_scale.f=
+	;	horizontal_lookup[space_z.i&0xf][(screen_y-8)/2];
+	;		horizontal_lookup[(space_z<<5)+(screen_y-8)]
+
+
+	clc								; 2
+	lda	SCREEN_Y						; 3
+spacez_shifted:
+	adc	#0	; self-modify, loads (spacez<<5)-8		; 2
+	tay								; 2
+	lda	horizontal_lookup,Y					; 4
+	sta	NUM1L	; HORIZ_SCALE_F is input to next mul		; 3
+								;============
+								;	 16
+
+; mul2
+	; calculate the distance of the line we are drawing
+	; fixed_mul(&horizontal_scale,&scale,&distance);
+	lda	#0	; HORIZ_SCALE_I is always zero			; 2
+	sta	NUM1H							; 3
+	; NUM1L was set to HORIZ_SCALE_F previously			;
+	lda	#CONST_SCALE_I	; SCALE_I				; 2
+	sta	NUM2H							; 3
+	lda	#CONST_SCALE_F	; SCALE_F				; 2
+	sta	NUM2L							; 3
+	sec			; don't reuse previous settings		; 2
+	jsr	multiply						; 6
+	stx	DISTANCE_I						; 2
+	sta	DISTANCE_F						; 2
+								;==========
+								;	 27
+
+	; calculate the dx and dy to add to points in space
+	; we add to the starting values on each row to get the next
+	; space values
+
+	; dx.i=fixed_sin[(angle+8)&0xf].i	// -sin()
+	lda	ANGLE							; 3
+	clc								; 2
+	adc	#8							; 2
+	and	#$f							; 2
+	asl								; 2
+	tay								; 2
+	lda	fixed_sin,Y	; load integer half			; 4
+	sta	NUM2H		; use as source in upcomnig mul		; 3
+
+
+	; dx.f=fixed_sin[(angle+8)&0xf].f; 	// -sin()
+	iny			; point to float half			; 2
+	lda	fixed_sin,Y	; load it from lookup table		; 4
+	sta	NUM2L		; use as source in upcoming mul		; 3
+								;==========
+								;	 29
+
+;mul3
+	; fixed_mul(&dx,&horizontal_scale,&dx);
+
+				; DX_I:DX_F already set in NUM2H:NUM2L
+	clc			; reuse HORIZ_SCALE in NUM1		; 2
+	jsr	multiply						; 6
+	stx	DX_I							; 3
+	sta	DX_F							; 3
+								;==========
+								;	 14
+
+	; dy.i=fixed_sin[(angle+4)&0xf].i; // cos()
+
+	lda	ANGLE							; 3
+	clc								; 2
+	adc	#4							; 2
+	and	#$f							; 2
+	asl								; 2
+	tay								; 2
+	lda	fixed_sin,Y	; load integer half			; 4
+	sta	NUM2H		; use as source in upcoming mul		; 3
+
+	; dy.f=fixed_sin[(angle+4)&0xf].f; // cos()
+
+	iny			; point to float half			; 2
+	lda	fixed_sin,Y	; load from lookup table		; 4
+	sta	NUM2L		; use as source in upcoming mul		; 3
+								;==========
+								;	 29
+;mul4
+	; fixed_mul(&dy,&horizontal_scale,&dy);
+
+				; DY_I:DY_F already in NUM2H:NUM2L
+	clc			; reuse horiz_scale in num1		; 2
+	jsr	multiply						; 6
+	stx	DY_I							; 3
+	sta	DY_F							; 3
+								;==========
+								;	 14
+
+	;=================================
+	; calculate the starting position
+	;=================================
+
+			; fixed_add(&distance,&factor,&space_x);
+	clc		; fixed_add(&distance,&factor,&space_y);	; 2
+	lda	DISTANCE_F						; 3
+	adc	FACTOR_F						; 3
+	sta	SPACEY_F						; 3
+	sta	SPACEX_F						; 3
+
+	lda	DISTANCE_I						; 3
+	adc	FACTOR_I						; 3
+	sta	SPACEY_I						; 3
+	sta	SPACEX_I						; 3
+								;==========
+								;	 26
+
+
+	; temp.i=fixed_sin[(angle+4)&0xf].i; // cos()
+
+	lda	ANGLE							; 3
+	clc								; 2
+	adc	#4							; 2
+	and	#$f							; 2
+	asl								; 2
+	tay								; 2
+	lda	fixed_sin,Y						; 4
+	sta	NUM2H	; store as source for next mul			; 3
+
+
+	; temp.f=fixed_sin[(angle+4)&0xf].f; // cos()
+	iny								; 2
+	lda	fixed_sin,Y						; 4
+	sta	NUM2L	; store as source for next mul			; 3
+								;==========
+								;	 29
+
+; mul5
+	; fixed_mul(&space_x,&temp,&space_x);
+	lda	SPACEX_I						; 3
+	sta	NUM1H							; 3
+	lda	SPACEX_F						; 3
+	sta	NUM1L							; 3
+			; NUM2H:NUM2L already set above
+	sec		; don't reuse previous NUM1			; 2
+	jsr	multiply						; 6
+			; SPACEX_I in X					;
+			; SPACEX_F in A					;
+								;==========
+								;	 20
+
+	; fixed_add(&space_x,&cx,&space_x);
+	clc								; 2
+			; SPACEX_F still in A				;
+	adc	CX_F							; 3
+	sta	SPACEX_F						; 3
+	txa		; SPACEX_I was in X				; 2
+	adc	CX_I							; 3
+	sta	SPACEX_I						; 3
+								;===========
+								;	 16
+
+
+	; temp.i=fixed_sin[angle&0xf].i; // sin()
+	lda	ANGLE							; 3
+	and	#$f							; 2
+	asl								; 2
+	tay								; 2
+	lda	fixed_sin,Y						; 4
+	sta	NUM2H		; store for next mul			; 3
+
+	; fixed_temp.f=fixed_sin[angle&0xf].f; // sin()
+	iny								; 2
+	lda	fixed_sin,Y						; 4
+	sta	NUM2L		; store for next mul			; 3
+								;==========
+								;	 25
+
+;mul6
+	; fixed_mul(&space_y,&fixed_temp,&space_y);
+	lda	SPACEY_I						; 3
+	sta	NUM1H							; 3
+	lda	SPACEY_F						; 3
+	sta	NUM1L							; 3
+				; NUM2H:NUM2L already set
+	sec			; don't reuse previous num1		; 2
+	jsr	multiply						; 6
+				; SPACEY_I in X				;
+				; SPACEY_F in A				;
+								;==========
+								;	 20
+
+	; fixed_add(&space_y,&cy,&space_y);
+	clc								; 2
+				; SPACEY_F in A
+	adc	CY_F							; 3
+	sta	SPACEY_F						; 3
+	txa			; SPACEY_I in X				; 2
+	adc	CY_I							; 3
+	sta	SPACEY_I						; 3
+								;==========
+								;	 16
+; mul7
+	; fixed_mul(&lowres_half,&dx,&temp);
+	lda	#CONST_LOWRES_HALF_I					; 2
+	sta	NUM1H							; 3
+	lda	#CONST_LOWRES_HALF_F					; 2
+	sta	NUM1L							; 3
+	lda	DX_I							; 3
+	sta	NUM2H							; 3
+	sta	dxi_label+1	; for self modify			; 4
+	lda	DX_F							; 3
+	sta	dxf_label+1	; for self modify			; 4
+	sta	NUM2L							; 3
+	sec			; don't reuse previous num1		; 2
+	jsr	multiply						; 6
+				; TEMP_I in X				;
+				; TEMP_F in A				;
+								;==========
+								;	 38
+
+
+	; fixed_add(&space_x,&temp,&space_x);
+	clc								; 2
+				; TEMP_F in A
+	adc	SPACEX_F						; 3
+	sta	SPACEX_F						; 3
+	txa			; TEMP_I in X				; 2
+	adc	SPACEX_I						; 3
+	sta	SPACEX_I						; 3
+								;==========
+								;	 16
+
+;mul8
+	; fixed_mul(&fixed_temp,&dy,&fixed_temp);
+	lda	DY_I							; 3
+	sta	NUM2H							; 3
+	sta	dyi_label+1	; for self modify			; 4
+	lda	DY_F							; 3
+	sta	NUM2L							; 3
+	sta	dyf_label+1	; for self modify			; 4
+	clc	; reuse CONST_LOWRES_HALF from last time		; 2
+	jsr	multiply						; 6
+			; TEMP_I in X
+			; TEMP_F in A
+								;==========
+								;	 28
+
+	; fixed_add(&space_y,&temp,&space_y);
+	clc								; 2
+			; TEMP_F in A
+	adc	SPACEY_F						; 3
+	sta	SPACEY_F						; 3
+
+	txa		; TEMP_I in X					; 2
+	adc	SPACEY_I						; 3
+	sta	SPACEY_I						; 3
+
+								;==========
+								;	 16
+
+
+	ldx	#40	; was SCREEN_X					; 2
+								;==========
+								;	  2
+	;===================================================
+	; SCREEN_X LOOP!!!!
+	;   every cycle in here counts for 32*40=1280 cycles
+	;===================================================
+screenx_loop:
+
+
+nomatch:
+	;====================================
+	; do a full lookup, takes much longer
+	; used to be a separate function but we inlined it here
+
+	;====================
+	; lookup_map
+	;====================
+	; finds value in space_x.i,space_y.i
+	; returns color in A
+	; CLOBBERS: A,Y
+
+	lda	SPACEX_I						; 3
+	sta	spacex_label+1	; self modifying code, LAST_SPACEX_I	; 4
+	and	#CONST_MAP_MASK_X	; wrap at 64			; 2
+	sta	SPACEX_I		; store i patch out		; 3
+	tay				; copy to Y for later		; 2
+
+	lda	SPACEY_I						; 3
+	sta	spacey_label+1	; self modifying code, LAST_SPACEY_I	; 4
+	and	#CONST_MAP_MASK_Y	; wrap to 64x64 grid		; 2
+	sta	SPACEY_I						; 3
+
+	asl								; 2
+	asl								; 2
+	asl				; multiply by 8			; 2
+	clc								; 2
+	adc	SPACEX_I		; add in X value		; 3
+					; only valid if x<8 and y<8
+
+	; SPACEX_I is also in y
+	cpy	#$8							; 2
+								;============
+								;	 39
+
+	bcs	ocean_color		; bgt 8				; 2nt/3
+	ldy	SPACEY_I						; 3
+	cpy	#$8							; 2
+								;=============
+								;	  7
+
+	bcs	ocean_color		; bgt 8				; 2nt/3
+
+	tay								; 2
+	lda	flying_map,Y		; load from array		; 4
+
+	bcc	update_cache						; 3
+								;============
+								;	11
+ocean_color:
+	and	#$1f							; 2
+	tay								; 2
+	lda	water_map,Y		; the color of the sea		; 4
+								;===========
+								;	  8
+
+update_cache:
+	sta	map_color_label+1	; self-modifying		; 4
+
+								;===========
+								;	  4
+
+;	rts								; 6
+
+
+
+;	jsr	lookup_map		; get color in A		; 6
+;								;============
+								;	  6
+match:
+
+mask_label:
+	and	#0	; COLOR_MASK (self modifying)			; 2
+
+	ldy	#0							; 2
+mask_branch_label:
+	beq	big_bottom	; this branch is modified based on odd/even
+				; F0=beq, D0=bne			; 2nt/3
+
+	ora	(GBASL),Y	; we're odd, or the bottom in		; 5
+big_bottom:
+
+	sta	(GBASL),Y	; plot double height pixel		; 6
+	inc	GBASL		; point to next pixel			; 5
+								;============
+								;	22/18
+
+
+
+	; advance to the next position in space
+
+	; fixed_add(&space_x,&dx,&space_x);
+
+	clc								; 2
+	lda	SPACEX_F						; 3
+dxf_label:
+	adc	#0	; self modifying, is DX_F			; 2
+	sta	SPACEX_F						; 3
+	lda	SPACEX_I						; 3
+dxi_label:
+	adc	#0	; self modifying, is DX_I			; 2
+	sta	SPACEX_I						; 3
+								;==========
+								;	 18
+
+	; fixed_add(&space_y,&dy,&space_y);
+
+	clc								; 2
+	lda	SPACEY_F						; 3
+dyf_label:
+	adc	#0	; self modifyig, is DY_F			; 2
+	sta	SPACEY_F						; 3
+	lda	SPACEY_I						; 3
+dyi_label:
+	adc	#0	; self mofidying is DY_I			; 2
+	sta	SPACEY_I						; 3
+								;============
+								;	 18
+
+	dex	; decrement	SCREEN_X				; 2
+	beq	done_screenx_loop	; branch until we've done 40	; 2nt/3
+								;=============
+								;	4/5
+
+
+	; cache color and return if same as last time
+	lda	SPACEY_I						; 3
+spacey_label:
+	cmp	#0	; self modify, LAST_SPACEY_I			; 2
+	bne	nomatch							; 2nt/3
+	lda	SPACEX_I						; 3
+spacex_label:
+	cmp	#0	; self modify, LAST_SPACEX_I			; 2
+	bne	nomatch							; 2nt/3
+map_color_label:
+	lda	#0	; self modify, LAST_MAP_COLOR			; 2
+	jmp	match							; 3
+
+done_screenx_loop:
+	inc	SCREEN_Y						; 5
+	lda	SCREEN_Y						; 3
+	cmp	#40			; LOWRES height			; 2
+	beq	done_screeny						; 2nt/3
+	jmp	screeny_loop		; too far to branch		; 3
+								;=============
+								;	 15
+done_screeny:
+	rts								; 6
+
+
+	;====================
+	; lookup_map
+	;====================
+	; finds value in space_x.i,space_y.i
+	; returns color in A
+	; CLOBBERS: A,Y
+	; this is used to check if above water or grass
+	; the high-performance per-pixel version has been inlined
+lookup_map:
+	lda	SPACEX_I						; 3
+	and	#CONST_MAP_MASK_X					; 2
+	sta	SPACEX_I						; 3
+	tay								; 2
+
+	lda	SPACEY_I						; 3
+	and	#CONST_MAP_MASK_Y	; wrap to 64x64 grid		; 2
+	sta	SPACEY_I						; 3
+
+	asl								; 2
+	asl								; 2
+	asl				; multiply by 8			; 2
+	clc								; 2
+	adc	SPACEX_I		; add in X value		; 3
+					; only valid if x<8 and y<8
+
+	; SPACEX_I is in y
+	cpy	#$8							; 2
+								;============
+								;	 31
+
+	bcs	ocean_color_outline	; bgt 8				;^2nt/3
+	ldy	SPACEY_I						; 3
+	cpy	#$8							; 2
+	bcs	ocean_color_outline	; bgt 8				; 2nt/3
+
+	tay								; 2
+	lda	flying_map,Y		; load from array		; 4
+
+	bcc	update_cache_outline					; 3
+
+ocean_color_outline:
+	and	#$1f							; 2
+	tay								; 2
+	lda	water_map,Y		; the color of the sea		; 4
+
+update_cache_outline:
+	rts								; 6
+
+
+flying_map:
+	.byte $22,$ff,$ff,$ff, $ff,$ff,$ff,$22
+	.byte $dd,$cc,$cc,$88, $44,$44,$00,$dd
+	.byte $dd,$cc,$cc,$cc, $88,$44,$44,$dd
+	.byte $dd,$cc,$cc,$88, $44,$44,$44,$dd
+	.byte $dd,$cc,$99,$99, $88,$44,$44,$dd
+	.byte $dd,$cc,$99,$88, $44,$44,$44,$dd
+	.byte $dd,$cc,$99,$99, $11,$44,$44,$dd
+	.byte $22,$dd,$dd,$dd, $dd,$dd,$dd,$22
+
+
+water_map:
+	.byte $22,$22,$22,$22,  $22,$22,$22,$22
+	.byte $ee,$22,$22,$22,  $22,$22,$22,$22
+	.byte $22,$22,$22,$22,  $22,$22,$22,$22
+	.byte $22,$22,$22,$22,  $ee,$22,$22,$22
+
+.include "fast_multiply.s"
+
+
+; 8.8 fixed point
+; should we store as two arrays, one I one F?
+fixed_sin:
+	.byte $00,$00 ;  0.000000=00.00
+	.byte $00,$61 ;  0.382683=00.61
+	.byte $00,$b5 ;  0.707107=00.b5
+	.byte $00,$ec ;  0.923880=00.ec
+	.byte $01,$00 ;  1.000000=01.00
+	.byte $00,$ec ;  0.923880=00.ec
+	.byte $00,$b5 ;  0.707107=00.b5
+	.byte $00,$61 ;  0.382683=00.61
+	.byte $00,$00 ;  0.000000=00.00
+	.byte $ff,$9f ; -0.382683=ff.9f
+	.byte $ff,$4b ; -0.707107=ff.4b
+	.byte $ff,$14 ; -0.923880=ff.14
+	.byte $ff,$00 ; -1.000000=ff.00
+	.byte $ff,$14 ; -0.923880=ff.14
+	.byte $ff,$4b ; -0.707107=ff.4b
+	.byte $ff,$9f ; -0.382683=ff.9f
+
+fixed_sin_scale:
+	.byte $00,$00
+	.byte $00,$0c
+	.byte $00,$16
+	.byte $00,$1d
+	.byte $00,$20
+	.byte $00,$1d
+	.byte $00,$16
+	.byte $00,$0c
+	.byte $00,$00
+	.byte $ff,$f4
+	.byte $ff,$ea
+	.byte $ff,$e3
+	.byte $ff,$e0
+	.byte $ff,$e3
+	.byte $ff,$ea
+	.byte $ff,$f4
+
+;horizontal_lookup_20:
+;	.byte $0C,$0A,$09,$08,$07,$06,$05,$05,$04,$04,$04,$04,$03,$03,$03,$03
+;	.byte $26,$20,$1B,$18,$15,$13,$11,$10,$0E,$0D,$0C,$0C,$0B,$0A,$0A,$09
+;	.byte $40,$35,$2D,$28,$23,$20,$1D,$1A,$18,$16,$15,$14,$12,$11,$10,$10
+;	.byte $59,$4A,$40,$38,$31,$2C,$28,$25,$22,$20,$1D,$1C,$1A,$18,$17,$16
+;	.byte $73,$60,$52,$48,$40,$39,$34,$30,$2C,$29,$26,$24,$21,$20,$1E,$1C
+;	.byte $8C,$75,$64,$58,$4E,$46,$40,$3A,$36,$32,$2E,$2C,$29,$27,$25,$23
+;	.byte $A6,$8A,$76,$68,$5C,$53,$4B,$45,$40,$3B,$37,$34,$30,$2E,$2B,$29
+
+	; we can guarantee 4 cycle indexed reads if we page-aligned this
+.align 256
+horizontal_lookup:
+	.byte $0C,$0B,$0A,$09,$09,$08,$08,$07,$07,$06,$06,$06,$05,$05,$05,$05
+	.byte $04,$04,$04,$04,$04,$04,$04,$03,$03,$03,$03,$03,$03,$03,$03,$03
+	.byte $26,$22,$20,$1D,$1B,$19,$18,$16,$15,$14,$13,$12,$11,$10,$10,$0F
+	.byte $0E,$0E,$0D,$0D,$0C,$0C,$0C,$0B,$0B,$0A,$0A,$0A,$0A,$09,$09,$09
+	.byte $40,$3A,$35,$31,$2D,$2A,$28,$25,$23,$21,$20,$1E,$1D,$1B,$1A,$19
+	.byte $18,$17,$16,$16,$15,$14,$14,$13,$12,$12,$11,$11,$10,$10,$10,$0F
+	.byte $59,$51,$4A,$44,$40,$3B,$38,$34,$31,$2F,$2C,$2A,$28,$26,$25,$23
+	.byte $22,$21,$20,$1E,$1D,$1C,$1C,$1B,$1A,$19,$18,$18,$17,$16,$16,$15
+	.byte $73,$68,$60,$58,$52,$4C,$48,$43,$40,$3C,$39,$36,$34,$32,$30,$2E
+	.byte $2C,$2A,$29,$27,$26,$25,$24,$22,$21,$20,$20,$1F,$1E,$1D,$1C,$1C
+	.byte $8C,$80,$75,$6C,$64,$5D,$58,$52,$4E,$4A,$46,$43,$40,$3D,$3A,$38
+	.byte $36,$34,$32,$30,$2E,$2D,$2C,$2A,$29,$28,$27,$26,$25,$24,$23,$22
+	.byte $A6,$97,$8A,$80,$76,$6E,$68,$61,$5C,$57,$53,$4F,$4B,$48,$45,$42
+	.byte $40,$3D,$3B,$39,$37,$35,$34,$32,$30,$2F,$2E,$2C,$2B,$2A,$29,$28
+
+
+
+grass_string:
+	.asciiz "NEED TO LAND ON GRASS!"
diff --git a/dlowres_mode7/dlowres_mode7.dsk b/dlowres_mode7/dlowres_mode7.dsk
new file mode 100644
index 0000000000000000000000000000000000000000..78a9a39670bbb9d8fce189bb5e2fc973e5d1f431
GIT binary patch
literal 143360
zcmeEP3t&^#`M>w(=H@0%+axUz%Ig|RDKDunEY6J<T1+v}@+hG55g)CEfmVE!`D(#l
zjEu0d%?bNciIqTa)<Chuicl>`Yl8*v6rFB%qLc~<H3EVIB>&&JNlH<0&ds?=(w^6M
zzVn^$JnlK?-gD0P(eA;1t!#D=n}DCTQ5+-PB>v3oJ;Top^3F5-x*(s{qhTU1{&ZK6
z2UHxq>kPkU*qonHoo9Ib3s0UAetSk3c?z&Ec`7zWt5K`yIK7VNSSFql?p#~TOH{S<
z<`<S_c$<8-H`jP?ej&hjHuz*!=gU5cLX2&^+quOjRId>ZR@ok{awTjSD<`%z_L5Jy
zdT$uJVzsZOv7db0wq;FKaOur2$j7N~`Ux{nOWTCQUrMy_moFtR@lo*E&!6T6?a~AF
zOHb5GwDXI4=fQgKo_gnp^%CPeR4=j4!}T>E*E^PcMxu|^FD5nQk*LZq*vk2=@Z0*T
z;2)NLQg3T{1(jecuk?OgpMLl=k{&+iXZ5>~u8R<S$Lf)WM4frTJWC4%NeA5Y1GF>v
z0<uD6m`U%x`kMB7!B<~%xZYvVxZ)2U+;yma$zeiq*N64;2X=nGKsD5=QqA_%bh~$p
zj}W7rfqL)XeK|qrC-rtz`LeMs@+mvjhtc)fUr)V2+vzhDeX5?Srzqx=Gj<vkLVx-$
zRYkcN$A+Ix_!+f@m=)CK{d=ZY9Im34%loVH8>lTq##B;Ub{Ialr!N}3bUxSMY;0KC
znD&U5+9IY%!OCAZ_FK|uEjs98twqA77aj5!(%Zs|FG?O_d0{PgO_x=hs4X`HH+vd}
zytHO;B`7RubjY8$Qx4uhDZq8}xe#;{wYfz;7{U`azbO5!i_|B?7leh}k=$;!79k1p
zw!5gR={wR+A?YpDmZ8Kf`&rBO6!{aoOK=2k1G3>%&fD^_gNo1Zk&n2hhrC|-V~KK<
zr)(i8H&8FFPFX>1kvq=?fT2zW;XUdlIU$trZ?Y~zEpSu1-F3P=rA1~tQUXUq@o&q4
zNIY^=g@C^&xru|7z)&$oaR;TW7*1smb{Iacmg_@kf0NgBrCn{dFB&Ee-8r8POhwuh
z?|fDqoW5^p;EGyJPOx)6TcMtHX4ibSDW!sOr}*`?balGWxoMN}C4qX$J=iRKwrNv8
z;_pb2Uxi}^fg!4)>S3OSvc@&T>>ih^%D6-RvSYl=bX<q7C<p9xT57V;zh7VSD;}O=
z84&jW{^>vbU*$8a)~x+wjd$Jp=j%55UZ~&n(&jA<FTe8o&RuW3_0FH)`^#V7Z~NN^
z`#L^8aPX5uhdVz#a`f2e$4~tI<f+qNo(a~~x%Sk(+H}^gYx1}j)+u&VU7g3VFl=wH
zt94NH@)e9~C9CFK&sIIR+O6TMC687YqmQlK5EpMSni5`2?9sEAxpz|I)@`qDZ)$$6
z#lNFZYu|qT<v+bSVE5a?CGT1WCJ#y(oVw@3kM_0?89HqL@DZ1eOuOvzz-L!ndDW<^
z)4v#f%}=iV>CeW{I%AxExWE`V=BJF7A86r|7>44hcni-{)KJQhn#52HZ`AQjs*xUT
zxr|nug;avBWz@qB6n`nDW>U>e+CWCQoHa6u3{UqL;zkZk!@s`Q&@qDtrd>TS&6LEa
zjl_Q_bdBZ8YlmLNUo~>*P+|>&HN?PQHgbrOSn<R%7>&kwlZlQ;3Q$U76wIr;(p&={
z7s|yPMng79*IaWAGxVBkOi7`P%$JxhF%6>zUq0+gioa$sPmhcQ5(jhUF=MVAVt6(?
z{j%rF__4iXK95PhWQjv4;$tX5b?uXv2sBmAWVnj7G=E9f5DV|h=Gqr;=X%=9T-pq?
zE?L*Jb{r*arV@FVUDx<)-QzoqS^Q+3z&%u!9v&ucQAUV1GC~NiZoxmES%eNc<N$_=
zx3^%Jfc1M=?o46(7Izl0#t<trJ1cvPb%Oe5p@E@D>k)Qu!FUi!^9g+B@K_K=1L2~B
z2M=mJ2M;QP1HyJOr`+nLR{FiNN;t4mU>hQVDJ#wPVDPQgwhy-CxR@nha4vSq7p#lk
zVD-4-|6~pHS!{*3$hypmOk8}!62iB99OGM&CzP!Mv=&*5mVTioaVm%0$u~UN=;Ah5
zSB#=s8g=q<mukbc;&m=&gVkjKQEr(v)kX2ME7T2(8*5b!ziKSJDwUUGTpB!_4*BG|
zFVrq}gH^ck<y6_Y`Z`0b%j8g=&J!Ki$wyuK4c5Soel{?3Heag}s25#nOXjPQM#$P!
zk-TfZ+He%lw^gzWPrbbB3oej~DeMat)8CCR7s1%JG_1a~6+=m1g0&n-MZ3OW<$Zx2
zMN&qp&H8d+v~B&%;Mi()k95T?vla#TrjY?w666nE>J8TFO)tLEG(vtlwW6=^{)>F=
z($p$yQHrqbMQ~tFPItwksvM1WVd#q$0m)F?X+>pTJG-cY*9pIPdD48=E)ErzzPxEZ
zn|xK8YSS02b3W@H3cq^A7py_GVm@ngZBpjgYP*%x*zCfqfM2BRj$$Y5iJ6i|{F!Sy
zM#QWY!Of^Q%v!LeJd{aF6|>QeZhTpYeMRDHlchB0e04f1C(s+!RQtJmg!~!UuRYX}
z<<9aCta!^@p(d=S6W&2_jH^s$R%Z*-x77XuMX4?97~>w}H&h&Q#g~s!h^?r8#bG!J
zlqX&Z{bTlXfGDUBbdL!1kPJ=P?(74!nC(~B8q@70LX9jd`htrPUW|K$KVDXVO9=3j
zbo=TNo2p+)Ym<T?-#o^!!<{AT+}X%@UvqYIHtDP9{=T}@!Ya(Wpb`IA2vB=$S(xT2
z=N%qrvB!C@$1ePQ?UH&pkF8txe|3KldOr8k(*LWIv^KHs{Oh8N2kNCO{VV0`g$cnm
zIe$nmI-nKL6dj<%pk#AW4blfrx<T6FWEytSmAhgqh23ji)P^%FsFf}97p?)DK3uut
zgDnoj38`Mpk@kyL)cs2vC1&SK8v~=^bE!AIw{pcHEaFZmD@a6tQt#R?)noN0oLXPo
zLjhpj2KR%N(*I!@XPZ!O_wHFKYb4gCUuL!M`e3Ep={>U&@#zN)&NC}_?OBQVAu2xw
z9Ll8zj-L*&eg?syi$&1IN=7)e7K=R(H2^Emmp0l?t@nPpGT`2IdZnz|_2o)ChQlc<
zUBfW~{@;RU8lHK;^IMPIL#^EGJNS%om1WhXt0u3quPR<O$!%Kw`{(4<pRT^Ws<`U@
zssmL??k0D<`+av+)zejFRdd~!S6y3`S~a37uj-fXN_X0GH$CTk?vbj~t52^kc$eC9
z?d~JHNA2IYdhcFpk7`eMDCg$fcNxknuhk#Xdk@r;wY77$$9u5eS>*9jdvXNX=zPIb
zrE9pYvNFGNhkU}erBccuAbrCx!l3k8llKLWOhzcR&Y+fT!t-u3FHEjRecs}6PVuD9
zc24%Bspi~LIp?NIouPLqc}X~VRlkPcdMY3A>@b}0Ztyr~V1`-it@8x5R-tlDk&9ZE
zfyc&st49{9Mm9`-rczcB%&E^fkE(Lq&SNU?lxLhrR1znvy|;S;oby(Xt?XI5?UhQr
z4A{Q(*nIWg_{y5NO1pQPr)I0iZkt?v@SyF6leU7OZDx?z1;K)#@TX_IlRbeRR_{%o
zWvNAJDq9L(geq4jOZH`{gdLTzaE+uwX@r+n2`@e4yveilMvtv-)tq#Sq@Ci?c^ZtB
z)&@f*Az=^2FZsFWrTzPt-r%WHHB9w9HEM_93;Viy5VOr+wGP?w{#ODIG+hxGT*WM%
z;@SDUNAA4?o*heX_N=?vQ%N!V;qyD?2W&f6!FjZbLac4|D#i6X0~*5FUGgo~ba>F2
zZdp@QacCX*>Os)elA7=vx5l<&6=(-U|Kh-BRV+xzAEIrhcmjjq)O*lWw)a<iDTW~F
zB&U;Nkim@}DMRKYgUm?6h+8~?cvA4DRVWxrg;=CocZ25-C~VEoJ;*cNK4%mqIc-g=
zT)`!`dRms;?&-YMQ$_I&3SpThWf4|CJEZi6^6C~{fGOfD0;vIEQ+c)gPB?QF%I2jR
z@Xn#pZBMPTZC?|2tEc8x4~kZymzdF7DWI0(@dDe($xQhbl0YE02~W9rkPh_MRjAQ)
zlxw!_2AA;LX9KY-9`Lj@UR!Y#0r^y_91l{Gfuzy9`t$PZ-rsusu0VqK0XXvYB(jl2
zGKMiA;<{FHt+?NVInC~Tz$58N%wS>Dv$X@N<z9P?wFv~DCs1w=U%RU!X0gmm40r?A
zsMrFJ^L~%B(BquranAJ!@4w<z$}bN<@lLF})#EMj^wUW<>m>QN>+bLb9>hF>8j|0y
z(zRuvlsn`v0xvX7kkYP;1*HOXiaR|d^D6J19-Xe*oh@tKS?}db6-(UN@6D7dV&umW
zo*`8*^5@<=Jo4|BPXN-2yFBi!6@?z#ewS4$3sEW>QW^`+?)S(C0xN~GXKjzKLTwA{
zp2bt<X&8V`+`rOlM+Zd9p_6e+C#<oP`aFr+I)Mq=)pNy5K2kAc_7}5J_q=~~;M!E%
zu4mzwxiwjC%$Df~YSS+9>uUQ6XPzy{!b^KWb~U{CUtEwSW-Tws7PBkfNVjuYDcSZ^
z(tu4QNvB^|!5`41b@&anA62nH-yxq=BY};ra%b6|Is@xhXS}y~NGWdd*oWWm$x{g}
ztEA$I_j}M)2@LgLhmu<{$rfQuvF%<fsRd6JzJ$1_<;ybck_P>n2gG);O47^6y?mv!
z!ROUhI`KI~i>44-NR;qgm9S)ue9Ct33le2}`#DS?cX+&WJhIL^*MkR)M&lw#lFs!Y
zDZZVcVN|x3HDabaOUw|)traG%6_VDXMVy;`w(2!XR|^axpJc8PPAhq=UkgfvUxhW`
zW3o_ih2J1X_`}+OL0G>wa9r@L4SYt@^nA`PX-5=z{9248luKfTx1aOg=c$?J5%xR>
zMr!6L9tC0xJ||RHNu?vU`LJeH+2l0}y716y(gBCiGPiV|XUTmY0M^a()ZFK>-Md=2
z`8hn@bLM$4t_KA7I|h}lb&bRzmvr~~eRoy6Yxfl)CwI~6yFeb_cu0h8-;Qec#C@-m
zh}T!|K!kIf&x*W@Y}?l^+3H*Jst*7xhBy0AZOWG>?>3+FRZ=M=Zo3c9&Y~Ca0SfgF
zHqml~@qu7G5I{=8ODdSyuo|qI3-0nPFDPodzqVMc6=yG6zi8H)yH*zo;2n(HE5Vb3
z2euB|Js$VO!?$@Vva7dWUy%{`S^4XWb}W6>w`9A|rd#dRRe}d^OeJA}A{;W#tv-zO
zV3P^6d7B6DYOmdc7(4kq*1BdVxJtr9y!3X@1k~y?ZcJkjcq)HOrZL+?Zad*tMaI^I
z)##aoshO4T31X}JdU5BR>6Jpy2pIl?cf>2icWrO}Sty88e7oa?6t^;XlSdO?8WSk-
z-nq7dLzlE&=|(Rh&Bp~2Ftyz6sci5eV|>cmOupdRr400rfZAI~`sf*qLEhL(ltqdm
z9scR(Bo40k6(1t(%5)vL6h(i*<LWOw?W)o?)O#xL_h7P@8cDu?S}h5f(lPGR7~6nY
z@4?i%liCxAbCxv{mvb&4t{tp-b3M+D9&et<>GPngqf^UqU2K06VVe!~@!su``E~br
z0>)kUcy`_G!DALkCnIBEpB;mJZ6PKWG|bulf^I_KlO&EzYIrE)@hC{DotVaUNosKB
z-&4U1DaHJR$ta-Rfx$~#hA9+tw3W0*+?ogX2V&P;v8OGdDKgvL@1^~{2(JaFtH?}K
zw+f35^5m)HXG3it>7uXt>|UQo%=B*bh#7W)`(s5<d_ncA(df6lVEfGrc-1|K*%D|{
zjI6^@!bx!$T4KS6(D4e%n03FK7FR_H%-VH;F>6Ep0cAl@Qq`*F+*paFQNtLIXXzcD
zhI=KewhZ$uriA@PhQoHWq4O1=x5(pc^m%8K9_YnaI`mi#>9Ot%XRgPc>CE%kUHvva
z;8~X8z!JmNe?!I!2_I}z<m31-w`8(s$rLgqVxa!bTHAeV$&k_yqY2(^GQ=!*rkE`s
za`oGg@!kU-d9TB893!{gOI5C;D`lN)(1whF*5lZau_#l_SPXI-GVEAw1maL5O&Kze
z+G)xR&^zoC@kr=~lm<BRgve{`=^!CyU}cZWo8iH@sSIzf{^{<F10$AYSlyWisFr0J
zo*hM2IE&AETNW?N*o7Ifm!~NGKnmd2#R{gFStMrI_N~PNA3*$*+Knj^?-z@U#QVg1
z>_y^4@%19nChoAiNAFZs229TB9(TGk-{WN}#dNQ#QXK8RdZ(I1O!K%$Ij4HOY^6BL
ztF9EUw&zUB*=@_s+&(pPdefBrUE{2oIlHp5ZQ0YBY`NoJ&!0r>akkv4O;fTnw`b4H
zes#u_oM}yYxl?nd<>c<l&CA}EnU|M6Y5SDyNtqLy#$`^+wB^1wF?ZLbTv&Nip39l^
z+{Db8<8y4;Z;h98ChZ<eG8#*A9E<FxXHUr){~mQov8(u57$N*;r!1UszlF1~1Ls?c
z(~2{SGs-f`czhaTDfp>Nekt6Gzv6eczt#HYwym%F-^dUQJj>9Ht_q66w`Pig(ZB>t
zsk0^+t8v;gCta7Hd0n<JDR-KXIXyGSmO0keGzHLXA$!V{+&4-2vW2`Uxzn=8P0QY%
zJt<4b9WP{MPTNWfp(Gohn?Gs$^jus1#B5<=&eVyS)5f*rjLZ$C&&rv4y)ZuC)~cYR
z`mWF3KJ|u4(=um<;wR+_WAn$4&z>^%Z1xK3v>Woyl0*L2P05@nOv}v`Y?)K8Ya;As
z<xBxj!noXt6Ei1mcT%d}y_2u_neFFy&YfSr+_QPa(-al>vd@<))iGVFQ%6xInu?*7
z>flfn%1=+VG_|(A;rebrRXK=cP+MiWwdt)lns@K7-(0tOBh~m=-6eli*UYH7r)H@4
zX>VuE=QX2ij9%xuUf##*9;<t@=Bb)RHNUAL{)QTV%}X`S@b94l3|;_k^^ng2!t8b4
z%|3r@Z46#0c6h7}evj2|yQ5A>{iCh4PI&*1m<;y%*1hcWV)I75hr+trx!<?+fKTvm
zsJLb6$~sI+4O(g4%DM@)v3RBNH_9s8t#!8h>ab_Bf1^ZKe!LM_Le}#@seEmt^G%;~
zx6k{Tud;cg^G`nKTR!hLUuDZi;p$pJzg~E!UbtpGFfr;j`5F|I1|?BL%SKF!&f~s@
zk2g9yeGU6JIzRO-ea|NaoqK%F4}IQ`>YRV^nQgbMmncu=pM3lGjF7*;oP(W_zx%w6
zKIa!c?^d4<KhM$=KFR1jiK(^Udg03T!mH0q%!s#rflGuFNNg62wduRw^<mBYp3mFq
z1OMJneJBbzBsG%yNAGc8+AvgyIM(~JPaFqsg}%>+VzDcO&p)IpJ5ZJTNLAidXM4Dg
zB>5r~*@?&_i2MwZ0#zqe*N`;{2*dB&fS^^V+Tfy!mW{RjzD9VVwl-$NSgY{!4Z`m>
z6xnU}5IpazKH)Dl;WPw!!&roo+O`9!U#LY|DI@l6pYv@W654*ZK`L`TQ>QHYo*@MQ
z$EZ%M%ActV)qIFlsB|RDPdnRv^6}1nK3gAe7d}>H57&{TN~=_MY{XaI=8aok+qmRS
zA4+c)ZdqSD6m96zFIic)VQg9qUa4C)jIAybp7hqNtZQkJKlZ-mtJ&>CIKB2y_!NQ+
z(}lL@C8`QTBo-7W?WDhv1|u!e(^*+3j9iERs+flLb=cFxl4DV}_jtXSC5$C-{FBzI
zy%`gt!dGBw+60#iWiv1?&vK+tis{nmbhY?SdveoSLPc_sh>tglS?ENVqQ<UMAp7_4
zclATr5V;?75+R@Ve8t+@XTYW81awzroy-gRFQpz}%<f_&%8D1D)pZr7zpt*tw3dwz
zNZCcRD68$dbw%1*q;MGiY8UwRm=T+N*wXwHX2=mTW;+G8=}$gv))9bGYF3z88`{X*
zT8G~GNgbZMLv>Z@c#1aH?Uzqh>Gv!NB)U|aTy>R4>j;N?vgAWmR(Zeh;mRs%apmTX
zz!I`+C1XvX&f&mbrgO{2B@G)}u!V?a?9AGlhK-IiwR~uKphMVJFHERM!K$bLSH;Lo
z72EI{`g21I`m=rb+rDDjF0`*lvMIIFD|j~0lkDENeQ5w+9|o63z<wXugWN&3BiAYI
zYv;*Rb^Utuh16Q@x<C19-t^gg>+xZDY=HNWE`bmkbl3nxK9oN1VwR1yIxr@{!Q+oX
zz@_&7jZ}~K1K35LqG}0DO7zmVd`r-Orqtrg^jPQnKJ(na_?&<9fuys|H}|hT=LbI2
zE*Ph6Q)+8o_jy}=O9Et9cHKL^nm=R7M1u-b^Qs5Xn(ZF!@vb}Rb5TI%QFE!ad`&~$
zx-E6GZrzrRGI&FkEq%If$#OIXG6m`E+I3IY)ga6ujkn1|O5W^22KJ@OUM;qJ@lB44
zRcb7<FY7(wa~`Poe&Hiq%^&%kN9w(Mea@p~e|djBJ`v$V5w?BNud(n#@BgH}mbQC8
zuXkzuLV$O%enWt9@yqem*4ysexyOek&_3VJ4}F0`j9<jt=BwxnAR^!QRhS6m17C$9
z1o@k<g2RJZ@n<ZL+I@%L_vvQotI;snY>z+N1Xpgb2^*a6C>8l<pYZ;A;9^(>DU7Uw
zVSP;p>U9Yo$E@dTD(hO7jdlLn7iupgLOfbbY77<HzV4uJX@hUwC%&aG`_>)u)g1OM
zeZ{w=(YIfwTUrnJWaFXzK3R_qXsYudISv5CL%t=4efG`{6pai#DhxdKnpb`6w)@J*
zE*jVQDgkW=Xe$ubVb!PEwavE+uSR6RI<X$3Ax7fu=((uSN=!S>cYWs0cYS1JnA|lo
z3`n!MC_LjE#<n$YlyxnQ{pF(=%+RKI%KuvX2FfLGCDx~5G>mNo>2n~Z+s)pUb+ZO~
z_I!?2EkSzPR#J!l8n|Rvz?as`T*dzEGao)0R0KLZ3A3O2yaDt!%J~_2$HSO=V!he>
zN!{E-bph?pPwOfYr6AtuF(h9NmY=D^gKnNho_XL`<6BD=Yu<Fct`hV)JpU_>*Ex2`
zofYKcu{TiX4EW?HL)pu;-3rn*0bh|>8Ap*G-+Zf1KX#l91}&|DI{66b1>*61f9C6b
zye>rRs2#JHvjhFnhZ)R?w*G|hxzFb^c)T6H3AL)l6>(;?{@ndOKo`$F;G2E-KHuH#
zzPmf{73QzxRql{)E(mleQ|n>hT+nC-jk)MCXgoY;7Cf>2@p_Xav2ssIEt~MgG|qPT
zm4lK_=I};iuAtL-%<*_juwsKEmF!U1jj<HfIi4XareKiP-MQPpb=zBSZr$c;+WB_t
z8}GPYf6Kp}GRCXOO7kE59*V>pL2aNRvI+}9gF%wPKW|9t?~?ATX(GIR2bcK{X?|2m
zVpd{dO>@)(9u(_o>i5)Bk>dU1s<G3wF@ha+qcsq%foKgxYam(!(He->K(q#;HE>bZ
zfQnWzDwT>=sZESYWnxWg6KB$xc$3zoGsT$nrq~23flgo&R0(W?I)O{jB=8B^1YJT*
zf<7TOkxHZ!nM740o2X9Y5;cjs#F#{VB3|VFtAB<^hvLqF&}_u}=V76jQ5a?rs6=5@
zqOc)RIMGK~E=a661d*vgvrBi19|=1Q!f=8f_H}&Z{>a~7J|gjAvXm$ek_<RL_N916
z;1Yl*=uKn;ti!#}T+lAIyZ4A`?vI-G;tWNaxnNHL3AT$P+<S2+pjy&-gwYA^54)p$
zSb(5piJ-XK{gwbr&^q>ZbhtbGtn7C0%L$ri(c(Um(OyX>wo9D25B?7&qqs-7%^+oo
z9}>r+gy16qM8mOX3ezXf5T@pipEe_Nin8gFl|K&qN|PvHbP95Ua3BFS5cb*KhXeZI
z(;5i`@rUih^Bdu#;d4<dKBiiB$bSbHo@#N>h7>WmrDa2kKNy%Po@~Jh^T8W%Odd}8
zDQu)w7cEQeNJVhS{`TaG5mtAqe{BUq=2<hv)Q&+NgWQAs@fD<+2c^4H54<a;x`!N4
zk(TfjHJ_BXtv;1rTP5`n2id{S@KL7}XL{rCsg1+)8tpimdUCO@dXw2Ao)J%P>TN0L
z6oYVP@#2?jPU1WH>1AhH_OP{F<9zvOfNji^5AWZ@%R8|9h`Ru`fu`ZNH5$~C%O;u#
zWH3&j+%n`=e-C^$%<}WFGyO5JXZUrnr~3QI8Pa6nCLb|e)p5jqWQYp8w2zzMDHD%W
zQQqQ47j^Jp!<~%=7AFUB(lkxm=t|Q`Sx6&g5{nW)8*U(%88)0owZR(H;yxyxDnGgU
z6bfN3I4YhAmtytFHOU)Jx0It4ekw3XOdArw)^9+(G)?DD8xk+aOY!2R8_o>6RGqf$
zjO`<n8_w#J9cOmP{*F@}r<w=J9=m&xQa9#;WHB{Fc8Fa#VnXg`0vc`EveXv&b9>8j
zbHN$$3=Yo(#h~5YiAF;=;6lBDODGaM%TFyHaz?4-loo}{PI2(+Q;R25@Pr>JzLq1r
zNP){zmZi8a9h7E-yT5%zh2LI&iX<}^oD!9kXq~}!;l6})_lSL`Jo{Y~m`>?PA)ToU
zioylNG_aU5BpyXmqCc~fB8Q=Y5bP*<3es>6c!Y#ci&o)@gd+1S#-A!5u}iK{L^p66
z0h4ltdpR6^=y8_@iG!s9Vv3Mw6y7qDC;2TS9`9o?N6AAij5<Xw8(o5j{S+Q{Z33SA
zkHrIc$o7i|v6I0I<Bh_7N2C~x3XJgcQ!c9flkJ~i?`4?nvBXUWr~s?QQDf-?Y!4{g
z4lRwm{DGvw_|YgHBB=z+X;j1^#CII(!uV9l8pBkxQCQR)ytIRRyLg8<TPzmmh;zkx
z*pPlmd{}%059J*aBQD0HI$tUif9ZZCz%)N1B%0ix`De%m3?#-1U32%bS*7V7x=8%m
zZ4_!sEB3Qmt#Xf+4gEzevHH3Dn`f!S{uq)5pwIQkA=|yRu|-8iRXK>pK8fEh^1=x1
z(#N$Tw?;c*hkV-kh?W30YemhPehOftwx}9=7P4x1TBDyzQynxApEzka)tH7GP)vYp
zL^qJx)m%<S@}xXXF=fymOv69H+?m$coGTlfc{w(ZB(pBIF1OlxXm^lw*ttczHJY5V
z;^z+LJ@@ZvE0y-&L+5{rico<A4W%qKkEKSl)G&5HDLY^uJ75$$U>MuCl<hl@?K_I?
zJB;m9%J!MZ_8G<Y8OEARS@S&BJeoBRV|$dcJ?61JMzKAHv5BQ@;ygBS6q`7VHI=fa
zd8}y^YZ}H58^*?$vhnlS_|a_qFgC7~jhn~Djbh`5v9YCW>^wGh6dOB?)t9pRd8~fa
z4^@Av7?oZXtBO;_|4<zK0Qm|<tSJ~Y%?T3QPHZkO$k~J3oQT~X)WhGdAp8R~7uVis
zn)9xy@Lgi(5u39HO&~a(P}3`RR}?|Wo5ST<^?7+JYo4k!Pc?74YSeU9nq4)_u1cM*
zN}jG7GhH=$I@iZ;>Jv2enWNam&-KXzkn1ytGut^c>~_6kn|cIIJ?1F39X8h^kLzLQ
zdVCFykjhgC5}WH|MUd-5GSVw{S5ycM2znq4!2fh^fL$N9K|jcif!)pxn8TT-bLQz>
zkLg_BcFxoepgtDBIV5)kV}o4Z3eH@?nJPGa1@W6IM&X8&sUkTssPDVn+_$14HmD!)
z@25#P9E}<aa^^;^PYpM^Lh+-b08z3_`&umUkt(H~8;$Cn{*NhuIKgk^M%R!shJwjK
z6M!UNC6^wJTn{A{`I>^<091%#Cz7BZz{G9{NP>i;+e!N-qFv5ML`g{KfLh28A|zEK
zXRhITRFKvoLG+wpa&m=fOa&=BiZ;64+GkF(slqfsX$Y{<x7`{$CwWZJgjglW^_^oi
z+mi<bO?`u=xS(GD?zQ@M6M@)Co1(eVg$CG7iFT6-94f7Bo}))+>tjy_&!lG(Ad;BO
zK@;hm@1mEYa!@D9U@TN8iKG=suMU@&RHGg|BnQC^>`=`kiD^u`Y0Mncn0d)*cGEEY
z&q+?To09PlpgkE6$Y|nGFz0Y%+PN|Ba$_ozOM}Vtg2|(T$!S5;FjPV?c^EwHNNyT7
z4}6+>;D1iCQVNralqfmYZtANP4P{3$2fWJ-K=-ZyKgpwm$*4(l(269cc2mN1F2T+v
z%;6H+O$xGN+hHqDik;LFs*Bj|`T=u(fYI$AW{FF#oSLHALWqjfMncLztXQfoHI=4%
z3-J_fQ5Dh_`gXby#zGgWVCWRZe|yMP;`3=rWu&tZ3xm6}z#;~CBz5;xN;n*kR5bSF
z=uA3`9t*s&VHcNi!x##7m<K{F1z05aln4c!H#DlUfI$pJGv+CDejL@`uA{ngB`FA<
zkR9PA6i#8n91<?+d@WKDOeTa+V5ICRw1q&rLm5Ji#E|sibSi><)}X$+QYlcRi9kpS
zuHSSzA3Ph9VNeqW)C8@j_*Oatu`(SCSlCvhlqeC)PGee8NBKBbDAR3B*wC_yVo;9^
zt*4auX$nT0W;5N!hUgm3#^7{j8@-u+g|6+g+XxqEKZC9-Jx{Ry3XGr7S1_C515PN9
zFb+z<w5d14fVVJpQYymrX4M9ygrB9D&3cN~(>B62ur`Bp0kt%Yj)|ifHSh(_q7u-W
zjFt)pQ&R^P(&K4PT}V%lE2KNvLb`+w(#Lr~RavOt4jOd^(-Bih-;KJy8#R0vdyl4&
z&ZVz|$%-lL^$zgvM1L5MRBf6dovRMgzos29LAn(5G-1<5=&9Q24y115g7h)EoIb_^
zSEb;o9spijJmU0ks9IESs9&SobRnMFP|G$|D_z31(n~;j35~Eii*D0~xdP=j0z;{7
za4n!{0sa!0?F3H`I^dkpX@S|syhgvlY@=I|4<JYpGHsDkqNHu0R8DW#eI-Z2AH5wZ
z93)27%7Hp4qmGD8YCzqpUWxd=susF0@&b*p3E>se1*A?1rmB^((JSa2I*VC>6h?Y0
z-518FX;o+zpi~8*dN*3(Zc;)}%L1oMkmh&r{SIy`y%i<cN>Tu$C%ugBi8kznnajRU
zzstNw?`Ga(-bWe-y_D|Myid;s-Yle?1y>Ee3GW4c3+YAl?*aWiy@)Af3kDR@EBcVu
zN8YI8S;GoRUqOoLg9-lUDZ~!apAUk|z)gmWI{#cK1V_VR^5Z{eEv8mHtrmiLcC1nb
z)fOXKh)z*bc8w)$kh2(C@x&5(pQ(<~M~I<=40@5q5>F^0PIoI4WE^ymx5N<|+b|LY
zNeafH3&yvqn(&U<#E2|hbrW)F(YCT83%7qOC!T5LT1hF?R6h@0f+rzBQ+?pWvlt+z
z7fcU|j_(b(C){3Cs-<5EJx^yD0Gqd50-LiKmHw<IeVQWuT2rF7=u7As2z41ep<RAW
z32TWdp&vjk<f&k^Fz`R1DN$Jl!6cW^gNe;rEbysGE`vFX09!-y9n4$$!`4~|=NOUH
zp!~qMFzOhJE=C#E@iS;O_=%-u*cv>K8o0&u3Az~NZHog8Zfq=IeJO}9>7eZxuM|9t
z9C@5b=K+V)Q|dh4VW5~iT2NW&-_Y-=^3bD}D<&WIle7ae85CEQ$7N``@R0L+DvEWW
ze>fOQ<xo-F{TedcfCh=9E9v*ZC(>eOanL-*Pt+>&F&Q<$iQ_C5!A>Bt6w^uSJ{*hm
zVLI9biYZ|_nG(>Dl@UIYnxeG>$oPu!UZGe?YcD|<Ir6ktpy&)dO)TPBI%^=MW?jn2
z*qe&aLSM*2KhLF)F<BU|FlNCeBNyzmaR^}~1iZVe#51`pU>F;7kuH}|R7&|GYM>1K
zzo?X27q3yEo9P(TxdS74E!rpst^*|j4qCv0`N2V-LYiTKDRF>etOn!@<QzZ>%*e2V
zC{tN1#hg&6m7>h0Y%%Qn>3J%+Oeu$c!Q_%&z?9JUs>6mOeVEKKSuE8PJ~B4&6vNUR
zX%<gMK10R|HSJ^7^xNu?n-8w@(I+>9BgK!F;jxlH8xj+OA^ul%nL+^&V;7X+!!UIi
zrpDSQKM`i3Qu}C?5^e@vLR==F?ty1V@q>%WSb>B?h*A9L7kTjKp(mA~r%i?*&ox(!
zJlg06l$FfAs7<B}e3j6Ta3$cqm@T27pwT0NgSrRSW}0xN;F4ztG%3{Ebr_!sCR#wj
z4RYwepaX0?Woq!Z0$9Kxtr)_f<LMZLYH7^0z{Ej2VEvNdppNz^Sh4i4L1zlEV#t~-
zmQscCkm<kCo#0hNJ2(xK4>v1T6V5-4{wa7}s&L7pXYgtY7-)GyAMH+_t1D<Hfzz1z
zyW$Xo=fQ*#^KqI79Ic~5Nf{n}C<CiOBfXI3Efn1wGe8zXj)CA=@jH@3KF1*9I#N)=
z!AkpFQpjMHz#PY@f4oN_eH?TCajuZQhrSg(@N<mvh4h2$nvhWyGPkON%&qi2Jmwa4
zp{f^?MEAlN1XtAyu?5UMiG}n4q#S@JDdcwZ#};C=HzL-EnUuJsmq+}@KCLunbC?#z
zZS3ZMt$!<h6Vn4du?KzAC76|viu51FMYxHcjGi=^Zc+nJ=ZI;gPlNJJn7`iVmjLEK
ztv<$gVy6E!W+jn6tnFm>)9+&*cA!N>dM3SG?a;Q;D={Zo5yBj+>!c6U?}GxtaL}S^
zCUT#NHRcj}xr$&p=xPOvtXEnvUSVW}5g7;O@Fnz<@IQ&sQluR*ohnkM(8y_3Rz6RL
zM_dP84qCvWtGQ0}mt9DkPg^m@U@gJ7s#`dRx)VKRC*U>$Rb?65=)>wxW1FFb{#e~<
zDoIsllzxS(<Me~7>4rk)_pxY2%nxKO7Mf%5Bw@9)f@z~yV6{TxPSB<3rONz+C#(Rg
zC8Wk`<}B7d^a)_hVDeQ3Si2EgLDV5|nL-Au2+eq`G_bDJ?lzIt3P}%FRjA6sI;V}k
z8F?v&tbdqAWJSr4)#YU5aVyMZK<}i>VF>oyFcZ;VCx-oG4TG9tvebplT&5rD_a;p~
z+8=F!HByMOljHzDS@AhAE;r(-nTZ)$&$Kc|K+*TqO8@Ih^)^yCV2~SdTIlVFiKHT9
zB3AK8M|vfBp9mTB&R(tPr6JmCGGcYZaVU7eF$0Goxl_O(G)kF!>G?3Fw6Qmdb09`d
zw`yP0wyJK5CHbluk*2V+xryGV>ZJG4H|fJP01Gk?u=xl#l9X6WWii*OvY9M`0V<+_
ztR8n`zTFM?O8PCBEYJj(SUF|UJ7Hc`5p1L<s}0o8a&Q2{z^E|SGcc;<=$&whA+U&_
z;GwU;02VUK$*Mr{6TB563^iFJoQ*k)4U8@dPj;iCq>NA`7+e?=R3iB(E-3T#yNdaO
zHe*&aYZML%mmyA(TJZz34drg5W0}vG0h;bPglVJ9;5Wn(@*}upO%WP{f+Pi=KLtan
z0pcTJQZ}U&!yS0$NxIrT4)m|~=Jt;H*g|^5KUFqiPpEG#-_hRD-aNm8#YXZY{!BT+
zjor$ChHNvvn8#sb+unSKKT9^c?S?L(O0;*};lB}52>7Ol15C%m{+Tl8hOhZyh&O-?
zBJp8=tUS{_N1W}RCl(7w&Hh$-l+dS_G*J9fN)S&=Ch@4*J%84KA!o#6!mmsUd>G*I
z;!*666A*Ubn&%r{w}Y)@vhOSP!Oq(r?7R(1@LOe#(B~4e+vUCk`+;|?c{niEeTR7#
zJ0u<(osCIiQ46tWk=PL6ZUu0U**&*lmN?fvr=UojV|L$HaF2MOdtSla;=CR5UhvnA
z<Maa-@lllIA(Si0Z4c;BTYXSVwD^eoQJKf~8u35$BBEGBM%qK}hXQ7727W2+MKKJd
zc<r;a-HZ1P#m;*WsS}mdN5iS5<g*pi=K>XWqj<X6o_CFsmQ<|jJZT4BAnlXl=??q3
z)otrYbT1AJX<jT9V&9Z<4K5$yqPjLzIk{8H2b>GRvCrzBFP6H0DLy6z#Rb@LEK3(2
zOcDzh-G$BIU*T}X?bs`J|0*Xa{>oWn&IzV5lI&b>CR_ApcaPok$;CXKcz?S4_5-}R
z;Qs1OR3A{J#8T{aE`S@N`rx7x(!RXXoUSBsLCYrCWoD9N(IT{Sr0u^FclRPRc}c-t
z;=ST8+z%EMV$*c?`H<bSQIubZk10i%z33Na_b&?OBFXFm(uG64sEhOiVwt-b`1gkK
zix=H%cHdiYpLnmkxB%T<It1=1@iBLixWKv9?4IS^Yz~!!kbPVsTMn{!BYKzFeUDh?
zY%!Cf5Gs!=RLaHTDhiLy5Nv4&7_yJvk%GjtD3TcVY@otHhOmqG?@0|9-Nk-NZgtOw
z-3$>De>8X8?!Mihih~J7z3lGU&JWB(#)z}4-NnxLh_4vcZZ4SJ$k*yu7sKYNH>LEh
z;D!vS-c;Dzxz}vRtW18Ew$@fhRu<I;mw1Q^hqx<Ngu=uLg^h46ZOYFQ`E^D--CP30
z)iwX}SyUxeQSHxIj6yko-+O;0wNyUXS=qbu*S*ax@*Z3k3O3LcmDE!WRK*JFcMbH?
zO6s=_)Y28yZyfvOc6&v-`!T0B$!Sb-rX@K?C*jhkKFOJw<h&xud2N!r)Y&J=nVjSt
zm*ljOxc*7b!AZ{XNzUA)H4s`yE&Y=EjkplBzodTW%ufnKoP|kY(9KC}7DRwEBEX+_
z;mrwyMA0l!Xo$xZySzfxK>%n<01C>*a%?J#cH#Bj?ovZ+y1RT|nON=?_bm`b_ks}M
zF$GWxK>3=-?G#1bM){~ixW94;?rpewvMP9eFfmBMTpwJ8cs<pV>PHDMJ>jQ<$ASlg
zdxLvm4hD}Q{u_V#7@bzj^BN7uaccb7&<{t!LcbJ?(63K#bI%@$2_~b#5FZy88>`pr
zV`9jos?};UuDR;65kpf44ZH+`Bl{%vHuvfYTp*i_KsUtSFnK~&#!u3(ylmv~p{Xf@
z23iPS-@XJ>LA|fYK68rAIxged(W9=sJnhoqLx&7b8I%k(L6JVWr0jt?ciud6%A^V7
z$7THVnsfze1h7&G+Ca;irx%w!cz4llH_e!ud%ZP#Y{pN2GWzPPKxyQq!-oNDQg(J0
zZgC5^caDqXlLXxAo;vjsiX8S*j(t6h0S2QuMt8L+VhCJ-p=P0kA;-NyeB8ZIEDs%;
zn2cLiI61*Jmp7Mplw!W*I?C}^iaFAN(Vs_(N5qE%Z1dxQWnngb1Y#LL7jQs32sBn^
zIv&MrrNV6GAFBj%6ni4Xt!x)M9(9)nayuUGD04q9E^wEN3*8I+$v7uOi3>W!jz?uZ
zItbq^Vs=~r+=c$WX|ZOU?^swMiX=J_Al48k^%WO3i=jWDJsMC8@APke6z5mmqMwGa
z--Z63Y4>76`BIvW*+3^AMS+jWH{mQ9i8G|-D{(^+*BfyL#AV>n6Gt#*-mjO<z(1-`
z8Kz9s0bmjeNhn}%g+hWtVc}T{n81;_29nBRWC7>V(%cKpvpDO73FcWnMNBJ2;d$i@
zGCE+E=;VjN3#mX0xO`DOT_GsGa`<|7!Jk2hSKzb7(`YR4q)d`$i)r|VVj8}6F%1_e
zrr{flc|)X_ygwQ8y}njd1_EJ|t&)SxtzA`syToKxt)hix2_#DK-~bbis@)ep$n-kO
zr$R-S;j~wXgJ8I#*~m)C)}wFa9Fu~qmxkgr(-X>RCc9rP>!l$GZw-gz5FUx}&QO>f
z_2O}=?|ieqPVTH~1xePxR0T<Yu3E8Zk)#?V%2r8d%?YN@8Vpfx={P!bQXElat+Fh_
zku9tZs!A56RWT@3Ra@AzX3?TF_eqjspa<}9*|r33C)7~Bv7krl%p9Ub&_k3W1kRE~
zCSRwtEns#pLfz_IspqU)QsqvC|9HZiG?>)9q$8^r(XUUN+zpr#W}Dzh@l7Juu>%!s
zJ^YM|ladJnxao!<bVESTRLBld`5Ad6X;|{aRf(sItV3w=D5l$4I-Kh}T4W_t?<_`X
zJEf^v`7NBT!*Mm?&4l5T8}Zx?!myMq30U#I6ggOGdqJ>YmkIF~xsc#NxjV7q2_IY=
zjHY}_X-c;^M5Pl?Vq!ljo^&rj%M_f%5y)h~^%J__3&ZdU;vgIXlzKz-U25dyYJ>$E
zESSIoIqr5th=pDWSYQsq@RLkVy7o%w7$n6s4U&(9l9E%H)@)lIl?jO+Go}i{2w@^P
zrDlxG965DlRwQ`i$e9B9jS!~hkzqPNPZ%jowdKwbvT|okqNe6$j>`^3Ps`1tresgc
zpE8MHD`WXcA$!ua>?uf*89K6>qtGJpIg_R%E_cce)Wj~>#LPS@d+InPJVKb9pEHfh
zvt?&ah13y+Or`+&DcRSYohw;<lT(+eDXxs8G-aApwwg^<SF2OGYA#h%t;xd?tUR@>
z&f{b*Pa|u1Ha{<vI6psM@dO9tjtp7^>Q?-MM~)m}IjXGzo2!3~p)5eKFd=tg8TGZ8
zS_>mk3-O1ThBhkZuh@)5q8LU=NKs{9jj1Iu_^3w`sZ|EbKv4!7(=SEg-5;NEJCVLq
zvEd?2egsB-BpmXGAu0y4BV8VsigCfCgNvX`M`^KFjO7Kf@GA@!DsJ&e)5v0q3Y<7`
z<h>&&P6P;0Irkkxr|fos0>#D0kKcm?n&3#&;Nwcdw)c*dC?1N64;B;Z0lPf}D7@$R
z@#11a>iA&ONPJADsFEY^kxHP7gP{XTT5bik0%6#kor8ziTt-e-P6k{Si_okr)SjKa
z6MuFpi^^arHiOFI2{8y!fj@)ID$k%Omda2&lsJmw%Sa@Cj*tVHH_DF$H6)j;P&niu
z3j|q`6NP0{ISj&GxZ%=;oDv0Bqu^@J!BvAU=wuNdiIv5&_z!1=h}aOv#V1h9;a^EG
z7^ym{!s)Qi6!VlAxzgcqSRG1Fl%I4s@b7Sl4^Z-x%N@%d<s{%h=j6!`fe1O`ax}+q
zDvre>kW%A&j#{N=u^i;o8a1!hs&(oZwO$>oj#I~@tTfB8DwI~ua;%2sSuLw$V^}>K
z%f_*|mwomwLH8W~3;oga|IzdR(ewXe^!$J5Uc<$F{+|oYGXI5x^!Lb8^!$HU<#N&U
z{}=W7e=dg8bFo|;7d`(UJ^%l;3j)#e|H>i!3)~>UF?*a>Pl=xYkDmXJp8r=x&;J+V
zMB7;tJ^vp){~ta7A3gscJ^zn0|IzdRIDHpA|BsWT(ewW}4Ie%KA3gscJ^vp)|Nq0B
z|CcBOucKzlAEjP7`tmC-A3_b_6T5=xL#Rvn{$0VVhEPA@Q>jf?j=t=wD~6|0R{nA&
zFzPA<X7JZW5U(6Hgev4SBf%>WEak^j3&zQ5TQ9rnnoXCbU4CWDxZ&fjSvZbb%I9_A
zT|I<a%inl@JZLSqb$zJ*o;;ek?}_mL2w9%yarcd9c{R`R8k`T%@;W|-$9d8p@y~EN
zhRFYW-GD=QhlRd|kbtwZ0{@6?uy;(trzRY93j6-ogy6OIQH0>_?4t<5+u7$^3c*V?
zMugxkHhy~{c#Dna2*Gn0zl9LI#YPChgY`{9@LKzXgy4lr@y`jt``CCvA$Wu=5rU_X
z#U}U(<F^rl7Zd6YF(z_MFDwNQwTycVgx)_T1&<_9q~NuZ<{4}kerY<N6ub!ZyGp@x
zn!*Px&y|7~1`{cG==<KhM(^}S@6<*o-RO*M^xo1asK{C0Z!Kd^Slk0Ap^2Ee-bO{t
zT!JEIF1A^@W`tNYF}Z2fL%C@b6S`>xFs{-3yDuBv+;w&5m%VV==qJLu9=I{|CC+Mo
z<+2fEOcMAQz$2H9DvZKqhUWRCH1iG3XKx%Og>M`UHQ@|5d!g$_J$jStMzAB-jo`&~
zBiR4oy3x8G-FW^^*Nu`;kP|4#IoFNC1^kABhp!uvYS4sJ<E-j2A)IpL1*+`sZr6=S
z+Fs{Ld-Vm<R-SX+NU3n!MCAq%xm2J_KfpV6J<q*NWHm1;6z{U1?@Cg*8-MjmlGF6{
zt4CM%3ST|Cx)&bSZjY?lefum5*Nu|Cdff>5J}7p(ZuGgCTsMM^>qdwxBJCWxZuFJ7
zyGfH@@Ve1i<g?d}tY$O0XtcQ7J)>@DUAK$~8txY@{@V4ToL;zIG_Du9UPN$yK}gLG
z-z}QnOSxN=*NgCNF1VMZFUG~9RNMwC=oPsQbSv?l=QhxDy+XHv_V#kl>h<mJA?*m?
zLRzKVLRx`aNLTdgx`nj22W}ySGyO+7{s5Pc63pStM@i;Rz4_Z+KDr#2kIKx>MP{el
z>|BRCZqCQe&L_>zYO`~L8JCYL%+3{N=Zhrbw`S)`Gwy+PT{{ZjFxqC0+%I~=90u($
zpS^UnJpyd$!h73%&Sj%>E*jy2ktTA%XhFz}t3_+d-H+R`r2Aek75xt_886cNPd~~t
z;nY8QW<PrVpFF71^Zys?`F{r_%@jf&$aRnfmH~+``LqvmVzS_aG#0voehS|NAo&m9
zsfS_LA_xf@1Um~dA+qQ)K=O%v8X{Q-Qh>COGmsCXrJn+gT1C1W(m;+6!M8EU0V%GB
zT?<KYE8r&vmp&llC4y&DB$(M~7LY76*(V_qRZg%aOgXbe;VWMQc?X=6mXV{2t_F8O
zl)(X6BEV(J7+hXpV!3yjSjfpC@-#xRAxeq_BS@`tAb%pMC{`&^5UI<QoE-G^kTWDh
z#)6Dps$U@Qc*w4REF<vfKq**777t|YLGnTyErXL7nnR6%2ZDtfvuG(U7HJ{*kjNKd
z2y7u;hLYsbM50bSB$Wi|_(2pCOaTVb2lrp|)2jY!SozN}5<UOhRoCI$T3z9b!V{JM
z-PO!mjh4rCew{X^3-sgnMCE@+<$rTg`QK6b-zEq$zxd>TcOT%jvD!FoJWqXfAFw;l
zkIo<6|Es-#60GR{-vyOm{do5OLNdUk^1q?0AS(YmD*rnw|2r!GJ1YM>D*rnw|2r!G
zJ1YM>D*qe1K8ghIAFcdvvVZp?q=pln5x+udiy%FGKJ=mRER5CxneLkbDTHKovZn?8
zHVBn4Yw3F6Lzhg%r&+7wA*G&29P~7?JZ`@-DmC=3l&C!PDd@Awhl?FVjR(3NjBE+^
z)2gu2(9sVurI6bH5IvijM;8O<MeM}^hhD&zVCT$(9kya<uK-WjUt0k~v_KVyw2Y`J
zb_Qq=jS?DN2_(~(&<|sWE(=@~L-Pc5znF-=m?tzaa4GCZCc`E=Sn?SjaSl)?x?L<t
z37swk4lN&$4hIULtEAEVQjs`6pio<)DrApCbAS>1eMCRNgU~!s!dRHW*qelQ2^RTl
zp-F)04IM@$Bu;Ii2V)e4zA9)IDAABy;0J%>p}!~;ZVqW+QZ>^LLZ`rk+UA()^wZc~
z1TJLx6Ae%$Oc~Mz6X6TNp)=@_5R?ff>Isy66S_4@fJ@*!JwLR=h?0~*iaaFAs~Cma
zBlHt0g%<W8N$rTh_&bwE2b3I0YK@AtUl27y^ycu;ev*d0$^df|8Ya-{z#tTeh92l4
zz@9JBc2Q=)o+cNHC+X({4_cDK@$rh*9OyZLzOOM%JUxa^M?HtQ01fno0cd5ST`UH<
zm5}@u?mwd;LXI&a&O-F+fTLo>2B9TIfzb@Df_@O9SA}S)AUQ(*y&5`v&=)L5XcGer
z>F5*SF&-L7umg+sCOrpKEYQWH3JyeA(Io&qY-H~inv#ePI<l9W53NYpHHP*NxbQ!L
z{*uQ`Mf?-!XI(MSOGA1UdJf}YMQF%?rVO<A6KVwqZGDBZR~`f&*>|o-{)AT;X7E|R
z@+3JzY0y_5BzYpme7X;O4&?2?Qzk<1h2jV7=k)vtHo@iNQT74!EA&i8&BjBU!mW_%
z{|fAUbv${R$o@Wd?X$33o{6$4+Irv)LT|69eY7F~{4W;}06sV@0Q|1r&h{Td0Ql1p
z0pQQ{?yUHh0>H@`JT}RxOL7iLa$Zh^d~1@Nu}RM1NzSW?0C30x??+^TBcfN5Q%G`-
zIV<`*eBf?;mq72S5gFf;x(WWaMu4_1yc?4K*)w?m5y9Ty@?-5qdj2gc|NFm7{<nk3
zfWA27e=9{jkNj^(!ddy>zlq5I{tc;@A6))-h-LqGlmG3A$p8LLME>`063&tTt(1}R
zr^^3G{x>Lv<bQ)wNTfJC-Q|CGQTm$v?{EpuFaO(dKKb7vw!4Y<{;K@%5I5ZrzAFEl
zko{NWf4}v^%l{6s5S9NOmH!=;|NY~W{|({hQT^Z0-wRFVQT^X|OO5LPzPR*%E3b%!
zw-*+|D1Y!O{~-|Zhg4a7%Xdiyt*oM~4B7~cL=^&lwtH^7v*1o)*4*3fDiE$r6K?+{
zY+WcWWH*L?-C#0B;a~YdmxU3!ufES8J8jyu-L0)z;j+qK1_I=tZ~zUs^!J=QDOn?O
zpBAa=w#~29l7FJ^!eE3JErRj={>~O2`LwldCcidC-A3((?>FZkl)5>{^$14Ke{#|D
zpV9N5dX1jfYxO#P47B^j>f`kBF;on0cg3h;*cf#T7o&;cW3(~4n3x!SOl(YCOuUZL
z(K<$_(y=<Vj?-y$yiSYT`!PDbE>;((i`P=x|G?1sFAX5))Bi#z3Rfoz&nF5e`UuMf
z2!1&$4(3krBVmUDDy|^OBJAt<$o-MOzkCEb(~==9V-Tb-1feGP4AF`;+$iWxcHnln
z_n8aY#dh}|sJ{ECX|Jqxr<n`(6p&!MIKsWxJWE?G={&+U3GNTOqkLF^AavY?Q6M<O
z5?~2h$KH+(cL#L#x!wD6g7`ut?jsrPg(Qu3i4*t1|Dj|Q_XxKcpos26;#iard?bKq
zIQC588}+~ZDM2_G(u|?_{?|m`K)LK0@${zN7De<;Z_Bq7eKXJ$5q%??zP;!h(R7aJ
zo5xMxLiCMjg6JDq-z56RYzc|J36<iX6MgfM>4Ktf2w5WfMj`v1^uI(z-<+euclD{o
z6QGqbAYLlP*K&}la;X%!3<_)AmkvrJifi|`kErk?Wi>SahDG0)N%KJT&HV}I6MYkb
zepk^qUElrA6@3#16VW%Q{mw`?M{n1M_2><P9=!pI9zCeeB#-i2Mxy2t<|uipg;A#<
zIZDxpcM4CtHUSU*$KnAzW&6d05>>?u<Bh_7N2C}G3ykpdQ!c9flkK0#YH66QG;z}b
zD!^*XWJdZxIQ%6v{T=?YrID9EfB=?3Qlof?q!KKrU6lI}qB;(BVSK7&t*9;)p6LD0
z2<Hh)=1DXul6ee@WFB2eG7l=?KdS)zSV#eQ-~WsP@D+*zaM%%vJn%vy5A1&+k*Duj
z1>ncb-$^15QD6GMs{s7t^C|!jKRI8Owu5ioUsC|y+WY(pz`YR#;I-dH0XV3hqX7Ju
ziUM%hkjR6$a}<DoCGMLQfS*M^E0G5TFQ5Rt3;P@e;K2Vz1>oC=0`M)00`S(}UsnMB
zMo0m;9}2)p^tlSakNpb@z-!Jb0H38O0N+D){iEl9qUV3ga2h3g{^#O6{}Yw}fiqN5
z`5($FbXd#mzw|o&KbJTv|D&tPATj6S`$gq{bhUYGOsrn7(zAL+$#)m{$L)#A|G22-
ze{}EMv2n5SdP-00neNaZxt|@)Qi9!X7lhD1{6feNPab737%~thCR7pM$3CIOQi%WC
z3t?`z6sEu^0E;D`qK%nZV=ZH0!i}Q0b?uUZAwk%@S>a3&EW^ID*dk`i1%8qJ*zdUy
z6k2Y-9mP&5wBWz+c1tLb0wAf0@0E$@`JWWr|B0Ue*^E0QL=#c;{LjU8{wFH`qf1w5
zRQ^X){zp{)M^yetRQ^X){zp{)M^yd??gaEy6{@muE4z)p88_(_Lqk>??&^={3z>IR
zh4f^4I__FerzZn?CtVIhu-}H6h@1Ws!~Q~g5$<o7Gg<0FW-ikYyKOgV^68s!$KQc_
z`yt9djQ+pLINjVzZqL&O*bW#2xlM0wg#?6|QTZRJksr7GkLdZIxdpStx$ZdyMdBQ@
z`@VvE#QWUy3hox??U45h(epp&)3y~o|8vKXcwP0TAH(^dsQizp{Ew*okH;ihd_;Uy
zQi~!EEHA*R+J!h0Tk2jQKJH#9mJ7<6*~v0(_s@{I=JMw9j#6l`<T}dnSL)A{4LDoN
zlS8!P!vVJWalo=<llu`_N9Y0$Xa|AD%1p<j&>g7~`ds24s|0csd!noswhJAPx=RDO
z9S?VuxgQr7xXZ<b?gjqjG#w}`=ny*|mG$lg2EJL81|s~Zd!fH?TC5q@6BZVTB8g4}
zh&9AXeZ_^%V(1TOj|SAjJN=s<#qnjg=%-~fuzIH53k{D^`5&l)q0ms-TRe)x+sEV#
zKQD8*Kyg&&{d$?GK0Qh*%P<Tz{w0pIp9bWZoP>7l4Y<LOpj6_*vlN71nNY`?0PByD
zZ@{&SH1|UDEZ(0S=wY2O!91&{IKo90S%uIHDt{~`TO|jscTipMsQi!HCDkC&uad_~
zI;GCc;z@Btk(G!GaZ#wbsQi!6#Uk4ag8jP8iP=K#^z12=yAvu%!}k^j<KDtk%Dn|Q
zgpcUNlR9(3N%5q6!GsAD3Qpn*Ofum530?4oVfX}bkZ{B#^>$IqQX@B)TtZa-2gQ|f
zlqM?wBP##n$0z@z`^g3aZD0&4L!2Q#o{FdAnRrz^8?TP%;x+Mnyf$7J9}};SkByIu
zkB_6`=r|@$701S@<G46Y93Q8R)5XQa>EmMK;^H83F&45XV^y(i?0@@NvgrNK=>1Q&
zF;70ce-AJ3u#?-Kr)(F`{m*lr|Nr)9wL7!_E`Rj=cUMgsG+o|{#}hsO-PP6xtwCpq
zG3X7kU7#PoCwl(-qCWo}mH*SXg6kWM%KtH4obrF7@;@$a`5%-Knii-t|7f0nD1xAY
z!uo;G`49;cmngCCZpI+I2k-!ijQr9mYQR_UNYt3qFo0hhjvIqSBpflpucSF&IFiM8
za4)8tKIgBV?_09s`E&j6ff_IJE?~ste=+|eLP{^zIxt?0AAPztHWUh7)Ia0J_|d0Z
ziyLtR@?!oOFGisc-5T6@jv(r85f_Qq_?>S}|2QhhsE?GRcRbU)Zrj$kTo?K=l$K+g
z{jas`_V0RaUDNjS;BgdBvD;hU`16}hZ+)=yjqOeKUqgzeH1W*#H{RaX+H|4Z{*y~m
zW7o%CJ;&~De&=iao&^l2dd4&UofqPoATm@>l>hCf-DgvM)dv)Y-Ra-?Rd}~BL-isV
zJ^u|kp)FXp1#R(X|E}%lZwrPp$1^S8K!dPL8RH`DZvu8xYwH``7&+I=P$r7mw)NH5
z|Gf3h?dPY<Pzj*o-@d(R*ZC1hp0Tm)ZvSpH|7&lan?WSRQHk+P>l<%1y?G%bprU2i
z^LD`q5uhaU?9O%mopRHg{;jR9om=00wWTXo@toVyOy|7SN2=w=?Y>HFh62&&h4J~5
zglRbwv!_zMpaAqG>Iz;*y<{0WRLII6mz_5)XL`0^%b7Y&7&_EK<?@M$gG3DFH}-~z
z4>BmIU-11yano}qjms8hWM|@ZmV#iRp5RjznnS<#vrta{a^&jcuLi~pYv#0UlI(`u
zd?71$ILxHM(}Za^<b{~9fahz0y_FwNmHms&)85?PF`t}V#d%f}M8fv1<vZFt+MDNB
zus8?#2+p=9xb11$fCf1B7xOp>wzfClf#a=4x82YMREhSEJN!4wyu>#>9AG*g_Ro|#
zH+;<x`&}}Nv=8IV<V^P*akhJ&SS%b3iGS_$pArAssEB`s9TEQuFT}sX{s-b;`<xa3
zdh}ux|Jre0@vl!1eRPcftKwguIFI<(2b0b({<S6|{&oF#5&sIR=ZJrGDdJyYL;Ne^
z&Jq9mmAG#f|9TertoT<Dyny)EF6?u}zXJao#lLPP;$Jr_;$I(3`nvenT_N$WEfD`o
zqR$oodh}lq|N6(X;$Mpt@vk2c@vqADkM}O1{xv16{<W~TbMFtK{`L0}^{<t^JAeHx
z)xV}g{i`;~X-smaB{@eEEwB0{qVx3%qVpB%U;89Elarj|lAJaY*FVWQILSFa$(egr
z39Ps<tOho}OTBAhMC0qt-PFL&hyZ`yg*PV*62)`W!B(g`2%z9`@p0JYVtEDAA=-u4
zd%H^wvFYyeePv>~Timxm6mh&?0X(JvN&zTe^SB*D{B4wvI)v%@5Zv4FwS86a`e0&^
zg1J7p3h{cZyZTWAOi%c!;IZJr;NIXKn1jJ%i2uf4^!`Wm{s*o#+yq?`<Zg%|Enm6T
z@GUMzq+Q@*MA|oAj1VFhBe-)eMJV&i#i9Q-G=+Zs{>KyD^uI2P=zm@IU!ngsJnMfq
z{jX0%l(jC4T;EuBuKri0jNeB8D=3BZzk*Uo|0_J*^}lve`kMaNa0$+@{}rnj(XUUN
zOlT2(t}aSS5khQtQ}6m!{jVWzx*>d3|0^N;ujqe$^ZVBSx|`DQ4D~b>i?^VcsQ$`Z
zPuIJUg-Rx`I+T^~iPw^8nYOXH(}eMvlcr@(y+OEIz$?nsoZLx5TH2KsY7*ZIn2+*i
zU|Oe5%e!Xe$Qd(cT$+`QcbO@dPRgD(Qh65|iPOe;Q*yILP8&bnLWz8D>ZNO5qUw~l
zCi1$2xUrdIZ8r!rkc}`c7w<m8G;6jnKG$Z;osl!?x@#=dCVn8YYE|B*@M<-73VC-U
z<la<XqA=G9-#Fi0DALsRDd0jFKR!6Q7xc~de?na_s{c27|0jC?=f`*dCo2ClD*rPi
z`7<j2vz_kHKzb7wq>s_%^f5L_|5_EKOX(8T1JIDt7LPdn8>$x78|v5SHeDgz!2$vq
zPBzGJD&bn`C6E@h1k#jj>MXiVTS(sxSx|RFMpPStK^l||t_2h=z+VEho#5#~he((L
zofepF%xm-;%r?3e`2d0xA@l$3oeg|c)t&dxxp(HyOD36@BxEvqnVWGELID|HmO`KH
z2e1PM8X>$)KxOMx&6K$5V~W*i^;08qb+nGgZrg?ZwEM|J9n0{zyRe_-sXo-*=n5tf
zcW2k`E<PnIVu&x57(t;W$UMLQxigal0bf5An+rKF_niMZ_s)HrbMKt*?>|tG?N8`S
zHDddov!Ag>+CKgqTEwYF?pM$|dXDgBimj+M_nUu;`bxQ%S7Ked_UCg*b-NgEfs&Q5
zl>4PdC?756VQDj3xcM`@62WbOS`~V0!KZ3L`ak)Q{t3}r7+d-f+WZK)A0h4M&)^e0
zLoHxEg+I!tV1ErGeA{$@@0VWUzm{H-4xmk(Kg@?M2l%&P*NT>{NX^)8+V+-8($4w`
zN`J!dlVYY8e~fRgz&@jOV;{Fpk7Y9T^=Q#NmF(ZEqd3Fgt3@gy4I;%pe@~5Ji)J81
zobQ<eo_>Bkbbnzf8~UFS-XtT~5U@vXwRFgVT7+N+pGvVQ5J1ixs6ng*RK%8mAF(x1
zjo22T{cmSDVypSBA0e0v7;m@1-np8a&5RfFG-3;`GYisoeuB4`F+Na)GNgrtD63>V
ziX$GiWbG8jn-q;V!A5Z~bCWghVp0=V<pBR7e@Sk_8MR4-2;v9e-NmY>a+5OOlDET}
zUy_+Aj`JffF*z<X<-3Odr=kBjsq{Z5`|qFQpXiGx;qyPHfA9|J4vcT^hvMTw=uy%g
z`4NRlD<sAXIOnjCMJ-SB|K`IyZnE&WVv!<9!-W<}uM6?7V)XGax1zn3Kgsbr2^I_%
z=pQ9a3h>K#g39?W^q#9j4HPFm_%6PeTTyN`F&TYGR@~d?^92}rY~a=a<K-9ugh`?D
zBDjPQ`FK#z#cL^z*D)TS3JjsXz9uFehdSqReCr=Cjq&4Vq)Lq644qDl1EBI9<F}a}
z*Ml6Bu9Gv;b^K;4#unz7TqgN=8NP#%%4Mi+k!~)DaX(u6`Lb*}E?*cc($zEF7)6na
zCPT>O-4*>DqdA0Lk@k$sKVJ<EP^lDSlv2L72BQ+Ria<?Nq*&g~m*YEmIp1xDojqRA
z&rhM}wHUt~us(#cIQHuIt-~1UJ%Uk=#*f&BrPuiZjKktMA{t-AH<{zMe*RM_&Kt0V
zF_wLpAK?ek16jnmCa=NT*H~#3xk)CgINvI)XuR5M=)Yq8Y3RQ)oP%_R-z|NI-;QuM
zcbAhkY#e90nfKeCxAn_w3;THwH%l64Zk(<BusqBU^R<qwhAhf5(ygWlmV2nBt6vIB
zSIP^eFj=4%%|%ZSzve$f2=mMNiwI%#i93n2Uk>vZ5dK*vYqX~;9CxWr*a8FzLB?25
zLXbCMET@nAL|HCRc6>7hoZ))dM598HC;QF1g_*{RV>M&eu*moDz_?yS%Uq9Sp=2%5
zOKv?PMbB2gUxeRrFGsM5Eu<}{Al5JPupGeW9)NnvJCffreht~a@tLu``W9h*WXo`8
zrh5+pwZOG3ET~_Rqh<PR;#16s<C>>-+biO@FBtw`C%6CC@#CM8NjVi9(<9Uo#$}V*
z71aN{J7-#VRwJL!h;pymMStF%WmLPfZep#++ZD7@56Bc-yGpG4O0E0KT>DC0`<QEA
z0JA;3`zoyas?gTDQ+4gEcI{-YoilU&)Tv$7-km|QUa_K`9<lg=4r8LjSirTf+!ZT#
zq0bopa@}4ly1jO$YiFJ7+B)=ay%vAsv;5ag>wi%Of8!2%h>u8y|6llkbr}AC=VQbl
z;X5&c4<m=sIPc;==J<J-2QX@%j_-^No&;hTJ%%wR2=h*q(Dz4ygz>tSaT~s8A_zAA
zWAw3|s~FXzjaj#El%B(gp7F0E-tJ(q(}N9tZ^+v<iZ_^z+=P;_7h`&=;U`QT(njea
zv0V|o1xhOkp2ixx`BrRQ#)R>#6ee4#Q^GqXsZiN3!J8@nGkiPhwR%r+Z0&YC#voXK
z0rG|76HR9Szjv~W=$HT3>Mx(x8@Qrz*@7^pL9c3Dc=44hW-JI^8VZF1Y#L?-#M$Lm
zC%fnBbm*BcvjvzHaL*cKFS%qcTaDl0uSp-OpL5CFOM9>0d&#A9de=<DJm^c=Q<sD;
zy*yVm;~KUe^OZNOVRu-Y*oLe1dyt+k8h1nb9J3{p@cDoI?k>dy!%6qg(ErLG^3utO
zf*bl@W5?fIs+3wvt)-LcIl$2WGW5TcP)4c9DBd2W;t6GL7v<+>lzADYZcv#URlLoV
zN68sB-i)UdtuhK?RFQp;GWQ9^D|*0UFylc?t%OZ!k5VdXVeiQ(eyDDVxP%rRC@dLg
zfF`sVgNiq*lr*2c6VZ_RL2r6q-;%jKiuVbnv@5$|b2FZbOfcBxnb$?14j*LhU_(V)
z(9`AdL;TCo|7r`CL?@~KSN`UYOld)>qqMNJsMI;dG{rncnPQn@ono6}pHeWzF{QAK
zmEl*BGP%rDW-e38EM?X*TbaGApv+NL=w)8+mAtao<TZO0uf=Qi+Prpef!E>9<Hh6G
zbOGhhrvJ=J)Y&EKjuQ1mg}O<FgN<n*80*zFr=qDFwL|J&7u4}llFbbrN*?N~P9IG{
zSRei&YT-#D15EO?F4M0%JW<#VB@cUB2DQQDLHL9?wENYxEgAB*9BiS*L2YL8Rd1_p
zYs$V&om-rIWxUBNEm%wiawb4D10yCf8+vtUC^-aXBbhwBIOA>Q+F@GJtH3q~Q;K#N
z`BzeI?V$Qi7kG<TC<%xq<Y)oaNTLhW^XfmRi`6%Zu?L1#k&7mej5ubj>Y)<!a3ne-
z(t{jFuA6OsjrHzL{~lYhZL3zhqfQI<_U@?b%Z#kiPWHmh$<!TnBH1|FkYZccJz76h
zkJ4$c4+gttHYDr&egQ6Onzwb0RzFlbRGX~rb9T{guAP&te`CK^pPcrFOh;ndx;-b;
z&ptLfXZw~^sa6}s=FFHqDw5`&87q5cH1$Ncu=`Fv2p3J>fOc9t^;CJFWmwA~f%Aj+
zA3xd6cAR?jbnijacBSX`^s$jitpEI}^#3-FJ~-{P*vWOh*wtR_<f)I1KDeaI3STJ~
zr<~grc+<H!HF8PaqjkxPYeR0NuMf`b>Wgk1rDooiQBAa@hEesF;yKBghex-)-p!Js
zN9%^_=w!;5CPULkG`IlSQ8&$L&Q`w@MX57eI-)l@Mpr>7Rj<uVv2NA?h(qA2^`!IH
ztyhdI4&~(kvS&FGN7ju-E!=4Mg&Pfc&LMvoFS^P73ps_Mi&~vMiaSE81{eD%E_Pcn
zuKU-tH*k@?uDzLJTde9Lw|dLbQ~~Y^l6viEH{1Bz=YE?ur=~Z4zvQVm*oev2nU+#7
zt4H2XbtCHSv8G>6S#ba8(cYp~YTy)h#9OEudMj`7wpewUTixSUH<V*r2Jva5+6~%G
zTD#V!eOp_v-J*R@yAy7QxOPKI(jLU6dV8u<y8|wYq&;`(u8da0W6@xryUV_3{GE8p
zWPJXYf6bVjX4qRct*W7+Azj+Lqgu03RF$muw#r&HZcBcgch!A-<kjtk>(;H?vKZBA
zX-i*Jv#K-Yhwqg&<#F4Rz3EelyJRZZC2N+)t3<&+$m_PQ+qNz(&j|JOv5@?xi*nl1
z8LTJN6HiMcN)JwjwCOQr@%-S@CQCbW+1?D{k1SsZ_3T-ecJHyK3!A7}!-EZ*8X8OG
zz0~fYX!p2facBF_-)#ChQ~%<0<C}73WN?2!n>+rve$@Pw$@u)wCim|@pO5~-+q(Wk
z*=MK!KpxeSaLcIO@c5l0S0rzMHzeVs@mE6o0dY?I0a<82ApQ{Thq5v4hqn#whwiBx
zfkfuNOh1bD!}@b*KWxouKm6}cqWyqgCul$XRA@gShV}#MCTKsLQFngrhcV+Z?FV#t
z4(*4$^#tt)*q>MX;c3!-_@&T(SbrAnhrPP?!*kGnpz4X*4{v`8?T25CX+PX3v>$$x
z*M9hqb7(&Vvf2;VmnUBSJhUHvnA3jPTt57RkD>iw_9Y5^i5b4cpOC(T)t7Mj60>}X
zIX-AVl=%{>FEP)TXrMZuFL9ACafL7O^|NR{EYE8?T%VJ9xO$xS!^&LY>b%{$kEQ+a
z{Dq?ZKw|?#|H06IF!Ue(kp4gQXVMEn|KSE!LCin>{-6E%e_<Fu{LiJ|{l84`|G1i~
z7GIU06R=1S`ylU^g2@kvNdQk>7MgMSSDw1;(ixXs%D#!;{~x;ave4zYzu4LMg}?cz
zk0XC@yD5|K_kXp?9qlVhJ5saow&Mlywj-JxZos?D;Z%$~)1EQ%GxR@L%CTEZOWjH;
zNCF{HBl#lhe;E1?3sx>v7cPZJiMl{t3V*s^8N2V8I!(;nX=aB1S6SM|x()pYL;oQF
zZaOB|=@@9+7_Srg>-7{AHZj#~jH$-VP*_nA?U0UZMb@GY^=L(`8HleizXIh~WK(He
z57bLQtb=;1gB7j4j(VpaFcZ`bQY0V(<C1p;j})=$DA?rOTB!xCRgWi@)=AfkI<Zwe
zg4v_O5|lgHi*@U3rIPWb67`1dKmcp5x09*WSh!wqAzF!2v=M!vgjy(7;O;SJ)&-``
zg+1ZIp5SH%Hfug=)0n54k1<;olI7fFS|ynK2xjS~!Q^KHPlKJqew4U_iTYKXECwvQ
z_yA};>en?^gPF7gm<6jVKj`rQZ3T{>3$tWtjxX9{p6vkt4eb60zf9VN9BlM;WNq*X
zqyh6T1Z-QjcluPc)w|>!Xo<XuNxLxX)*+M-BCrAlC}s#x=LJPfGQ(a~0<wxDDcJ<&
zb5V>h;tFWJ<|6R^&<(&WZ4R=JFOtL9zeA)|fH0I(M!>%Omg#0FI4t8=B7_TKW&a7g
z8*x4?BJ~4HhA#sP_z30+KZ2g1>j3Ip52R2qBpdn<hW<l8uG>1H9Ff15m@-NL%$i>M
zj{Gh^N&!q8&LT^|NlFr^vtK7=z<_0}0T7`9{w%KR4D}<$?HN#PyYc(dZb>sCHSY!y
z*K6xHX(puA{fc(FU+E{V&CIH{@eW)GBb-$rhih?!0(1~YN*Q;SBb|b@jMWFKI{11!
z=`gIfk}|`3CEyn4vYF0lVs0&#4s!rh!)h$$1Fq0~-U4NZf(~dl82S&BSO4J~&^w>_
z{2z`iTor)+`MIC{ubBAkzY+idJ^P37?0*S8`>&<P{V&gk$2VsGB6-&+n}pB*VZIFH
z%(8OkB<3g1pEUG8CYAn&q5oj$KN$KCP!Y2%g3=hCD{Q~^kXjjZLl6x82SfisC^#7U
z4|s|Q(DMz{B|4;E@L!6j`qjCd<rlJ5azo*w15e={CM%wRB-sqzwGMe3AI0-b1Stq&
z%Qn0_aGN^t9I^!?4LkpybT^(rzQ=Ep*7J7QJPDE)HvAq_2i^~C!yAfrem~ZGJE-H$
z2=o@9U9h`xGc&D5AHY|+#oi&F=kEkJ9L83(<6Q@|-#nxjcfSPzDZOn7(vuO@NmkUw
z(K|-|*jDl6MCB#mo>6KANo*BuEO&@^5&oF1Lynn_L-o;(w@q|^xDD?VI;4O!6>Kup
zg-m##V2equQaLmXJE+ba;8UTZgZCA<vvgQ!E%ZhMZzG^zs4wpU?F<!0c@Mu$x{u#x
z+f&fY{}Kw6u*KUKQh@A`h|bTHAg7n(nei^YRLYb%sMPfDcxTc9TPnBm+o4{R;ZA&#
z4ycGgNko=JZ+G$gWziRRVlPCv28-WI2LF%ua5%3F{vUKct_6etXHps(J87s?{yDA_
zC*Jem?7%%Hjw{#13y{ORRw(Zb@HFle1zf@X02%~jg*#Tj#*{*|4Nw`bJ1X12JE3II
z#7R-jsb8J7Ov=>3g4~&ZuK!}J^o-~Kh2a33d&bj$!{RF&Aif{ISWFJkRRJ0%z6H4Y
z%(nnHiXZ*|WcFT~i){b1&-GJ&w3T}&;q(9aJySjz=l>i0fBqCGpN#YW4gP=Z_?yd>
za!a|j+~EJC8Ko_w=<#62f&5^`lgW76L>#49Y04RlnRP3JJ)XAxp4fhhn<!QqG9Fkq
zld(g@`6@DKYEzmT98FDfLz8@Wlf1rJp4}{mqVn{pT;D7Qo8@`U@?7BGQ6Ss^^+im1
zrJ@OiN<|y-;a<dp4iSS$_msAYI7)PSX_HbKRZ2f#MqM?D4k=bD8nCET(25))&R6MX
zFmS-YkH2QcA9ZA7fwcp1FCA3;ZHlLvQ2EkkrE*a545H9ch{85nI~EIpyLS;A@99z;
z0z3C~%`WWrc)Efm8As(NZ)I0kVa5TP9h?1`_DQ{+pWZk4|H{FJ!nWYNj0ZakssuQK
zm2C~)XwaYWRAxLy8HZ#4pE?FTR1&3Qio=al$RG6xa$YGBN7>uvz{yq-4dR@nGm{F@
z!~>xOIyv{_EX4@`O@ts0v95_wLK+HmR%i7N=+HZ`4Z#dH2C;tZ(8M!u&@->iGjDw`
z6!lEUUt6#~>Ivcxh0!1`khzo*mTk(sL1o^4WnNeC?o4ofCOA723}rmiA%c(zPDf@C
z%{|lCV>>;i_%rx_@f}cJQ0^!%^f4dzLH*cg@|k^#&*HQCY(BfMz~}H4`igwc3Rb}@
zqzbvhRAH`ADl8S&3R{J}qM*W2QCLw_;jCnp@Gem)SDGr#l}e>0|MhZVW(@w{;QuEv
z|NqgR{}<u;e-$SB|8YP6mrugye?$KPvJedNCSO4PhX+0b{f9p!|9x$;O}i<%UTas6
z>-=~1C*i*v|FsknH$jqqNmW36;~>O0YK!|C(iR}#BzSQ)4E&!3297v~fg=kH9Px)>
z;MHRo_;CXRKLZB(C>Z!1=fJ@KE{B2t{U^b|(dz^Z{O1A#M+^)cbrUe~GwRNdfsYxF
zVc_WS92j`sdIAOx`}1Pp&k+Xxj{*a~<185Xzv&qGK49QfJrM&x{wXl<za7KC|6E|;
zhw>QsfpcKs)3O+NYk6Ym^T5D2=P>Z@^5GwT3=G`iOO*H$m-!NZN~pKfN9^}(V!wfb
zSNjrEeThZB#4@U@@g=_GODy&!R-6R`Uz5kXTXV#BbQ}hLO|I}8dAplG76$$=7X$`w
z@ZSdiZSdcdlm9mOU+CJT>>zoQTAw4dd`m#*c~MwLcyGr9y!RrFtPTEGXj_&Qr(}%5
zO;D;+iq*2>q1sfz?%MQGlFD;<NQJRsVPg|puwuos)hktXrh3(~=7ntatOc`H&I;!i
zubH(*rGGQkl}!s5hSf-uI!j&IxNNl=UbcEETiLYWYYX-2Rm+;#iiN8pE0&UV<ASAO
zSnA;JEOo)xRxMt(lr0v0QT^hj&8S<p;%atPzU-<6O>E)HuZiWE>hj3qRjjFTp~3$$
zHf)jDuy{YK$4r(OfZuK1veb=?9jU?pV*eQYufhN3xZOMz3^LH*e+~Zk3~%g)|98Xx
zyTSjS#UH%k|D6;b;`}A(BfNy1%}@FY(0dSNKjXF<EMumymD^PEflRZG2Z(F9h?z~@
zj5u+kHNk?1F~fKne;54byU0<Bm`ca$ummLpl#fqEy|m1PG8w_(Ke4wXZUjo9X+b`$
zDR0h}nVnb$EfLuu_CAhEhq9V?P%1@uDf~2xJm$_XhXP4<2{j^LjG5oaH-YMhhe3Hc
z^5FWFcC2H7KaJVs+d<OAp^gEqAz0j{bYRWx@Mw3x@WoB~95m;Am+-7DY|)b$eKP)C
z=v;&`?;M`Hv$mLRE(OpJtT6}OjP2VDD_FpqJbS|%9%i7!Umtnr6P5=5Y4D#0|7q}_
z8KDgnCw(B?Bivqi-<H;ZSuyxega3^47(A;J(`4|U2LIU(g3S-!4Fns`iB1=oHU%DZ
zG0L#WM4y6#<L_kao!pAi2*x?k`<f>?`8+-c{B5VOK_6g&{ovzBU913Otq!#B5PaM_
z+)11;@pKqJi4hTMGZ-a_GA?nsNFP^q;GCp2x{1+~!36Vw8){-GqtVm}Y@@SK5P0By
zi5x~R0VW~72+K5<CLK0||HMer;6Lf9?Ca37n@s%Y_(|E7lZpGueQ<;S%k2qPS&+|8
zo{Yi&<&Sk`VP#RJvx-$sCJxx}|7-AnhW}pxe+K{O@et7%ER1?81=<Mq5tyTYzv3TM
z{9WJ?gL5-McvALe8h{LX20g{iN^w*vZc~Z}J;GSTQN)6jjS?jZT$18Jhrca<qrE^g
zRdSW7%3P&XS*om6wkms7L6xJbu&SuaS<R|>wNx!vo2t##O0}ihT5YSgR~J+}stc=&
zs-1r3=YGjA`%QkcU-4V~R=>?}_ZRpbe#8H-;s4k0|J&2e-hA`v8+%-)-t_O{J<*V@
zr#oa%g&Q?bY5_$|duN8L2TqiCoPyhAM76!iceT-tCm$OXj&hG_r?Xy+A3OPYaL1|M
zjqqaJ$3|*3xW!E?<Zm}*Cug{6C;8mnak}<mILSTTc*p}+x~CsIIdpn&x^HN7Xmn3)
zdRsJED|{n+TY?7v^~L4C?)`%CUy(fjHKOxh-cQ1Roe6(^2>JE2Aiogj$S-6;ej)x4
z^2<9$evKI9*C!yqZaD|}mCBJ{Pka*c3%yPtzkVjjFT^0fP&a}6I-~CV<ky(-82N<`
z&q03WttXIQus<*P^^Zh;Jt@eqTh2m$?bFGx-5|fHdLsEX@+ru#tz+a@iy*%Q?{(AG
zWP9R2&q01&lqJ7zC{G;xJjk!V$dO-vRX+UC#~{BHU!usDm`S)7=q{Tt;r1m$zQkM~
z$S<#taIg7<d!eqvmk9b2U-Kmz&q98!$P-;R<RGtW#*tsEa)lox#5B#DVy#TOSHv5;
z<RL0(xt9uBHfkH;O<aqry%z-er9X%m{FlLh8T^;Qe;NKC4gTw>Csp3f9<A3Qu4t-T
z{rBP-%X?BBq?ZS(3pG$&xEhKJg7`A{FH@5_ZEjN1N|PmRv6>=H`ZsDM5)qk<f7z@|
zKxNnAU*_o1qb7w7Jk8j^Zwgod1_4P=H*~TO)NBt(D%*hnsCjyT75rv^8n6OMG-Ryv
z%$n^~gGrs#$Sk{<i!m2>xsYH^SC;P@&QV@irhi%5%izD*d~=+c=Cd$k)=sf&7>ny^
zr&UjB(cr%f{>$LM4F8YM^8t8*AfJ>2@YB#pei{^m|LWxr@y+~4U`>96wBO*r4F1dD
zzrc8b=_<yYQ)yTt-!o~<us8TG27f(nez&O|@pt)p8L4!)(vI1e%P@zx9W!#jW6lPJ
ze3+7t;joEKK@MCKd=g70{tw(FNG&X*Y^TZ0|HG`OS(1zI!u}R{^5=sY%b1N!AxC=g
zAMj4m14<133;XDxpu`IKBjCu$TS)==<St~g&X}e7fAe9mY8D<>EK&q%xX_a2&qDmG
zn8*FFpwz7J;smcuumGco+1DMypHhHd#uHS|;rTgV2Tx159z5{DbT7A}97jh6e<xWn
zzk5EsfxF>7#TsC|9N#EmEX6Tz+b#0(pq`7@QW}RhmH1S_=heg{c!`#d%kUOm3O{b}
z`Fvb~hbDd<=83;2XW&u#Hq+yJkYkd;e;NFj!G9V2*Jg8^KfpI3#BqN)BY-m5OaZkM
z>o#SVH&HFTLg`ldQoR;ETlszwe#gBW!4j7@;a-~!oLY-KEC+B$gx5Cd9m#K@HRk%t
z_6^@uqAa^UvZXNv_!kP)0v`Hut*9;f6<dKVr#3U<(i$t#T-z(+d=0)icfsc`E$_m&
zVVti+>)Yix?!ySSxTNu2C^7gi!~Y-Hbm2kJ;J@Grl87;kOUbLG1$<iEq~Y0D!?oEV
z-H&l=2K;^u<DHyc99P#bF%BYD4MCbZmKUBh<9ZwTio7k`^X>4lK(<f;;Hz;JuGaG?
zyO!UcvnE@s6W6_;{}W#$nN3cNgRjF?{ZEJ^W+!>mq%FbtEo^0c0jU5WC7+kI7@Pf)
z@6_wjkHLS@J#cdKUw&uy&G%$V4E`&BwAIPP{p3Ei!GGoU1XE?zq?%Plz0iI3<hS@U
z$Qb;W!G9V2m%)E|JkiO{f2lUrt`?{cwNNcmoi(h6*GM&Tjj6_5qtsYxtTnb8drd)&
zqo%N?sKyy!0cd9g<bWw)4k!Ujz#6ax?16%SBTyJ93OF$Xg}Wrzh3-@KZ2sSPiTdRd
z_3um66BX(v6$;nWz~|JfYfeQ|H)@B}y)Mj-LP<6^bSQbKuR47+WySoc63mlwVUE=M
z`Wz`Cg-s5IhLVT9ErZ%%@}L$<9@_nC+LjD?TMo9+;-EG&`Kq_owl!tnrhcV3`O0{c
zS6Z-`3gk?ZgMEP!6PXRYIy96V>NBO2$-|2?-d3(1rWL&kK4LJXXor!1CFRx*s^4^_
z!rCj81jG_@w18?P(FN*x{lEQNvHE5)_Q0?za?#|G5yy;GJye1ojznifdXVGDb+gT{
zvEIGu-(xGbZPjXb)B$Ab-BH(<88P^;KTiHDx^eWuX{WaWP}Ayq1*SHvO?_<i!6jW*
z0@6~>?FzwYsgX<S9<57WTpMyDeSL6dS07qZGjGeN-m(P^qw05y=Okwy9^LkOHv_d+
zH&jPwQ@#{*+lUqdAy+re3ARmCzY`_qEn7OGmmQ<aAe5@tW~Nv-Yf$6G>%6T}Uws;+
zSGQg<t~f-+<Nz#tnj>-O*L$i~o0{@#b#RfOzUZb2kuSP&eZPxv3<CF2b@nK331UX%
zD6V!}F)sYqv^Q{-y{^5PVq2{0BDZ?W(NqC$3zB;6XgAyV+vk3pHm9aH-d*z48*Id6
z>r6|jm(?ThW18iW_j`M+>6cR$+(3G?x2TmGIE5YY7OIBc%3HiGR$b;+_qf&jzhD5^
znmhpZt`2}zeii`OhkO5eMlfKAa|{@=V89T62m@9*#(=#$85ywGN|FzbOxyEdDu(NZ
z<ruK+1$CzPuXu6tcJ1!u9oqL(8SS1_r`9<~?KlSm_BS~OZ2Ko+z|iXi2JC+c1`IJ6
zFw{+8z|N>UKLa*qJjQ^b!*eiTdFu%b80^o>fIUkL*slZw)^QdF>|b>TtPczrRZnEV
z-u)B|*b`$6SgT;b4(7do{l9ZCU{kXU*tg0PgP#Wj_Ln&Z?61p*yFLa3X7?pLzQiTI
z#8-&(D)c2veTmC`iLVj^R_ROB`VwJZ;wq~1`x5oO#Ff58(^(j><~#%TtsL(4jd2Xv
znq1-9yxq66MIVg;>%Tx4FoXXx_^%6q{}Nv-r~9nwH@qnxyff`h-j%jvH1&S!N$pgZ
zDsmf<o02d8Yb;qs`AyoX<UQK4<Oc0s^#>lfa^h&dp>K-oJE<T#Xx2{QvFI3$-qLIF
z$V7E6S47l(33cVD`$O_y`Zs9$wN$Vn6{oLO@+-BDhN>ynkcw!bEnNL!F;$5S#;?4u
zFnu^Xj@^gPC#TDkoltuy7M~%L{R}4Y@iA0wEUnB9V}-FJ^(72u?-zsFXrDRlNKM1?
zGuh=LEYHI73;J?$xB<_y!)N`{x2K1<^rK6YOWKmbHc4AH-*;b1uGP{FDSN}>%$(M#
zOO`B|(<*BxwVCT0$emU<!{;JLT3aN1s4WB8%;Wdn7fPO_78h+pdG@pYYUFzA4WI7{
z^tWV*x7DlnMCN)=xems<#7aKc)3YPq<bBw;_U`(P*t_GN1BS)+JIA^DvSSNTc&7g^
zeX~<j@g(8gt))$=GyQ+T09!N8Kpp2G3}>e3cADHLrDxHBrBiW>c4}S2G_D=9+r6#!
zmSftnbq#jPOXApxLv2dGxK0};`07OgU)k|Y;KWmeiWdw2H}_(p@&BmND;Hd~P=!~m
z6)ZXIZOy)?z~)R%{a75zq&7{qYbWjAmXq4a<UKetEhk&?ngZpHCHe9V+43b?t@=U!
zOWy>8|LU~Vo3@(j&0Ed&%2uV`venXLN*nwa{RGoK%QLH;v5^xej=psC#EB6q6S_|}
zGi6ycilUMB_T$HIjsc>|%<@b<E-D6II@%#Jj5#yy4CW)zs9q4e`S|hncIxW*RL`so
z{Up_K^d*AeSbIkQq1vWwW}C5$ScxjgP^`>f99}#hsVPkVK+i=@H{yR3Y}b5~V7#pQ
z?_2Z1d(Ah6H_m6wWbj|ueE<{n2#NSZRLBOPk<7|f_`nFrG0fAwUU<6-U{(nNufsBx
ziB!}_IFsExj9LWDxrP-5*ih^7t;BM+9<6AuF=qUR`4zCcBAZI%dZ1qPZJ^%jU`1=K
z%k_X+EpGTT35dYB<XyodMXWk%XZf{K3tFol=e9*(u9LD`NLxws&2>x6$)S3&Zhfs(
zGQQOC|Ao2vhW{^v|1$V5_(!k?iu!T4couh%jKO~y{FlLhf%w6<GU5zoz;_lh=>#u;
zX9t7-GW>s$mpg<1T3gc(4#SPGTu-sQn=gkax#fJfxu37K#|!%TDO^8mK~*2HK7=xw
zN&bE7u)Uu@0v{(DKVln}Ugrluqhk&_me=r2=D4k&{}jwe1D4|aVf!#Y!VjPavWRm{
z2K@mRgvKqKz<4yEY^$&ufK4xEvd2*mJ1K4<n+K480Dgcp9xoV{pXa@>kAM_u5ac_N
zGlF5^8_^eR_*P{Yyx_l}ZG<<#$KYbjLGL&BDsl5Ln3We$-bkf#*ge3Hn1|g1t`7d1
zdDzoYA0WRhRWbQEzfEp-#iXAUg5tydB7?A+---ZFdd?VlmI1!ms@I+1cVm`2)!hmY
zdo2Z2dK+)X7(QopGd}@~)lx)m0lQCqWvCzC0{<@t|7GxB2LEO7U*zQzZ-?kxNwVs6
O&mDp(_W!Z+U;iJ<n)oOH

literal 0
HcmV?d00001

diff --git a/dlowres_mode7/dlowres_mode7.s b/dlowres_mode7/dlowres_mode7.s
new file mode 100644
index 00000000..2f5e55ed
--- /dev/null
+++ b/dlowres_mode7/dlowres_mode7.s
@@ -0,0 +1,83 @@
+.include "dlowres_zp.inc"
+
+	;================================
+	; Clear screen and setup graphics
+	;================================
+
+	jsr	HOME
+	jsr	set_gr_page0
+
+	;================================
+	; Set up Double Low-res
+	;================================
+;	lda	SET_GR		; graphics C050
+;	lda	LORES		; lores	   C056
+;	lda	TEXTGR		; mixset   C053
+;	sta	EIGHTYSTORE_OFF	; 80store  C001
+;	sta	EIGHTYCOL	; 80col	   C00d
+;	lda	AN3		; AN3	   C05E
+
+	lda	#0
+	sta	DISP_PAGE	; Forgot to set initially
+				; real hardware and AppleWin default
+				; to different values
+
+	;===================================
+	; zero out the zero page that we use
+	;===================================
+
+	; memset()
+
+	;===================================
+	; Clear top/bottom of page 0 and 1
+	;===================================
+
+	jsr	clear_screens
+
+	;=====================
+	; Flying
+	;=====================
+
+	jsr	flying_start
+
+	;=====================
+	; All finished
+	;=====================
+exit:
+
+	lda	#$4
+	sta	BASH
+	lda	#$0
+	sta	BASL			; restore to 0x400 (page 0)
+					; copy to 0x400 (page 0)
+
+	; call home
+	jsr	HOME
+
+
+	; Return to BASIC?
+	rts
+
+
+;===============================================
+; External modules
+;===============================================
+
+.include "dlowres_utils.s"
+.include "dlowres_flying.s"
+
+.include "dlowres_sprites.inc"
+
+;===============================================
+; Variables
+;===============================================
+
+	; waste memory with a lookup table
+	; maybe faster than using GBASCALC?
+
+gr_offsets:
+	.word	$400,$480,$500,$580,$600,$680,$700,$780
+	.word 	$428,$4a8,$528,$5a8,$628,$6a8,$728,$7a8
+	.word	$450,$4d0,$550,$5d0,$650,$6d0,$750,$7d0
+
+
diff --git a/dlowres_mode7/dlowres_sprites.inc b/dlowres_mode7/dlowres_sprites.inc
new file mode 100644
index 00000000..28334c3e
--- /dev/null
+++ b/dlowres_mode7/dlowres_sprites.inc
@@ -0,0 +1,60 @@
+;================
+; Ship Sprites
+;================
+
+splash_forward:
+	.byte $7,$2
+	.byte $00,$ee,$00,$00,$00,$ee,$00
+	.byte $ee,$00,$00,$00,$00,$00,$ee
+
+splash_right:
+	.byte $7,$2
+	.byte $00,$00,$00,$00,$00,$ee,$00
+	.byte $00,$00,$00,$00,$00,$00,$ee
+
+
+splash_left:
+	.byte $7,$2
+	.byte $00,$ee,$00,$00,$00,$00,$00
+	.byte $ee,$00,$00,$00,$00,$00,$00
+
+shadow_forward:
+	.byte $3,$2
+	.byte $00,$aa,$00
+	.byte $a0,$aa,$a0
+
+shadow_right:
+	.byte $3,$2
+	.byte $a0,$00,$aa
+	.byte $00,$0a,$a0
+
+shadow_left:
+	.byte $3,$2
+	.byte $aa,$00,$a0
+	.byte $a0,$0a,$00
+
+ship_forward:
+	.byte $9,$5
+	.byte $00,$00,$00,$00,$ff,$00,$00,$00,$00
+	.byte $00,$00,$00,$66,$ff,$66,$00,$00,$00
+	.byte $00,$00,$70,$2f,$12,$2f,$70,$00,$00
+	.byte $f0,$f7,$f7,$f2,$d9,$f2,$f7,$f7,$f0
+	.byte $00,$00,$00,$00,$0d,$00,$00,$00,$00
+
+ship_right:
+	.byte $9,$5
+	.byte $00,$00,$00,$00,$00,$60,$60,$f0,$00
+	.byte $00,$f0,$70,$70,$f6,$f6,$6f,$66,$00
+	.byte $00,$07,$ff,$2f,$12,$27,$f6,$00,$00
+	.byte $00,$00,$00,$dd,$d9,$f2,$77,$00,$00
+	.byte $00,$00,$00,$00,$00,$0f,$ff,$70,$00
+
+ship_left:
+	.byte $9,$5
+	.byte $00,$f0,$60,$60,$00,$00,$00,$00,$00
+	.byte $00,$66,$6f,$f6,$f6,$70,$70,$f0,$00
+	.byte $00,$00,$f6,$27,$12,$2f,$ff,$07,$00
+	.byte $00,$00,$77,$f2,$d9,$dd,$00,$00,$00
+	.byte $00,$70,$ff,$0f,$00,$00,$00,$00,$00
+
+
diff --git a/dlowres_mode7/dlowres_utils.s b/dlowres_mode7/dlowres_utils.s
new file mode 100644
index 00000000..57182a52
--- /dev/null
+++ b/dlowres_mode7/dlowres_utils.s
@@ -0,0 +1,753 @@
+;=====================================================================
+;= ROUTINES
+;=====================================================================
+
+
+clear_screens:
+	;===================================
+	; Clear top/bottom of page 0
+	;===================================
+
+	lda     #$0
+	sta     DRAW_PAGE
+	jsr     clear_top
+	jsr     clear_bottom
+
+	;===================================
+	; Clear top/bottom of page 1
+	;===================================
+
+	lda     #$4
+	sta     DRAW_PAGE
+	jsr     clear_top
+	jsr     clear_bottom
+
+	rts
+
+	;==========
+	; page_flip
+	;==========
+
+page_flip:
+	lda	DISP_PAGE						; 3
+	beq	page_flip_show_1					; 2nt/3
+page_flip_show_0:
+        bit	PAGE0							; 4
+	lda	#4							; 2
+	sta	DRAW_PAGE	; DRAW_PAGE=1				; 3
+	lda	#0							; 2
+	sta	DISP_PAGE	; DISP_PAGE=0				; 3
+	rts								; 6
+page_flip_show_1:
+	bit	PAGE1							; 4
+	sta	DRAW_PAGE	; DRAW_PAGE=0				; 3
+	lda	#1							; 2
+	sta	DISP_PAGE	; DISP_PAGE=1				; 3
+	rts								; 6
+							;====================
+							; DISP_PAGE=0 	26
+							; DISP_PAGE=1	24
+
+	;======================
+	; memset
+	;======================
+	; a=value
+	; x=length
+	; MEMPTRL/MEMPTRH is address
+memset:
+	ldy	#0
+memset_loop:
+	sta	MEMPTRL,Y
+	iny
+	dex
+	bne	memset_loop
+	rts
+
+
+	;=================
+	; load RLE image
+	;=================
+	; Output is BASH/BASL
+	; Input is in GBASH/GBASL
+load_rle_gr:
+	lda	#$0
+	tax
+	tay				; init X and Y to 0
+
+	sta	CV			; ycoord=0
+
+	lda	(GBASL),y		; load xsize
+	sta	CH
+	iny				; (we should check if we had
+					;  bad luck and overflows page)
+
+	iny				; skip ysize
+
+rle_loop:
+	lda	(GBASL),y		; load run value
+	cmp	#$ff			; if 0xff
+	beq	rle_done		; we are done
+	sta	RUN
+	iny				; point to next value
+	bne	rle_yskip1		; if overflow, increment address
+	inc	GBASH
+rle_yskip1:
+	lda	(GBASL),y		; load value to write
+	iny
+	bne	rle_yskip2
+	inc	GBASH
+rle_yskip2:
+	sty	TEMP2			; save y for later
+	pha
+	lda	#$0
+	tay
+	pla				; convoluted way to set y to 0
+
+rle_run_loop:
+	sta	(BASL),y		; write out the value
+	inc	BASL			; increment the pointer
+	bne	rle_skip3		; if wrapped
+	inc	BASH			; then increment the high value
+rle_skip3:
+	inx				; increment the X value
+	cpx	CH			; compare against the image width
+	bcc	rle_not_eol		; if less then keep going
+
+	pha				; save out value on stack
+
+	lda	BASL			; cheat to avoid a 16-bit add
+	cmp	#$a7			; we are adding 0x58 to get
+	bcc	rle_add_skip		; to the next line
+	inc	BASH
+rle_add_skip:
+	clc
+	adc	#$58			; actually do the 0x58 add
+	sta	BASL			; and store it back
+
+	inc	CV			; add 2 to ypos
+	inc	CV			; each "line" is two high
+
+	lda	CV			; load value
+	cmp	#15			; if it's greater than 14 it wraps
+	bcc	rle_no_wrap		; Thanks Woz
+
+	lda	#$0			; we wrapped, so set to zero
+	sta	CV
+
+					; when wrapping have to sub 0x3d8
+	sec				; this is a 16-bit subtract routine
+	lda	BASL
+	sbc	#$d8			; LSB
+	sta	BASL
+	lda	BASH			; MSB
+	sbc	#$3			;
+	sta	BASH
+
+rle_no_wrap:
+	lda	#$0			; set X value back to zero
+	tax
+	pla				; restore value to write from stack
+
+rle_not_eol:
+	dec	RUN			; decrement run value
+	bne	rle_run_loop		; if not zero, keep looping
+
+	ldy	TEMP2			; restore the input pointer
+	sec
+	bcs	rle_loop		; and branch always
+
+rle_done:
+	lda	#$15			; move the cursor somewhere sane
+	sta	CV
+	rts
+
+
+	;==========================================================
+	; set_text_page0
+	;==========================================================
+	;
+set_text_page0:
+	bit	PAGE0			; set page0
+	bit	TEXT			; set text mode
+	rts
+
+	;==========================================================
+	; set_gr_page0
+	;==========================================================
+	;
+set_gr_page0:
+	;lda	#4
+	;sta	GR_PAGE
+	bit	PAGE0			; set page 0
+	bit	LORES			; Lo-res graphics
+	bit	TEXTGR			; mixed gr/text mode
+	bit	SET_GR			; set graphics
+	rts
+
+	;=========================================================
+	; gr_copy_to_current
+	;=========================================================
+	; copy 0xc00 to DRAW_PAGE
+	; 2 + 8*38 + 4*80*23 + 4*120*26 + 13 = 20,159 = 20ms = 50Hz
+	;
+gr_copy_to_current:
+	ldx	#0		; set y to zero				; 2
+
+gr_copy_loop:
+	stx	TEMP		; save y				; 3
+	txa			; move to A				; 2
+	asl			; mult by 2				; 2
+	tay			; put into Y				; 2
+	lda	gr_offsets,Y	; lookup low byte for line addr		; 5
+	sta	OUTL		; out and in are the same		; 3
+	sta	INL							; 3
+	lda	gr_offsets+1,Y	; lookup high byte for line addr	; 5
+	adc	DRAW_PAGE
+	sta	OUTH							; 3
+	lda	gr_offsets+1,Y	; lookup high byte for line addr	; 5
+	adc	#$8		; for now, fixed 0xc			; 2
+	sta	INH							; 3
+	ldx	TEMP		; restore y				; 3
+
+	ldy	#0		; set X counter to 0			; 2
+gr_copy_line:
+	lda     (INL),Y		; load a byte				; 5
+	sta     (OUTL),Y	; store a byte				; 6
+	iny			; increment pointer			; 2
+
+	cpx	#$4		; don't want to copy bottom 4*40	; 2
+	bcs	gr_copy_above4						; 3
+
+gr_copy_below4:
+	cpy	#120		; for early ones, copy 120 bytes	; 2
+	bne	gr_copy_line						; 3
+	beq	gr_copy_line_done					; 3
+
+gr_copy_above4:			; for last four, just copy 80 bytes
+	cpy	#80							; 2
+	bne	gr_copy_line						; 3
+
+gr_copy_line_done:
+	inx			; increment y value			; 2
+	cpx	#8		; there are 8 of them			; 2
+	bne	gr_copy_loop	; if not, loop				; 3
+	rts								; 6
+
+	;==========================================================
+	; Wait until keypressed
+	;==========================================================
+	;
+
+wait_until_keypressed:
+	lda	KEYPRESS			; check if keypressed
+	bpl	wait_until_keypressed		; if not, loop
+	jmp     figure_out_key
+
+
+	;==========================================================
+	; Get Key
+	;==========================================================
+	;
+
+get_key:
+
+check_paddle_button:
+
+	; check for paddle button
+
+	bit	PADDLE_BUTTON0						; 4
+	bpl	no_button						; 2nt/3
+	lda	#' '+128						; 2
+	jmp	save_key						; 3
+
+no_button:
+	lda	KEYPRESS						; 3
+	bpl	no_key							; 2nt/3
+
+figure_out_key:
+	cmp	#' '+128		; the mask destroys space	; 2
+	beq	save_key		; so handle it specially	; 2nt/3
+
+	and	#$5f			; mask, to make upper-case	; 2
+check_right_arrow:
+	cmp	#$15							; 2
+	bne	check_left_arrow					; 2nt/3
+	lda	#'D'							; 2
+check_left_arrow:
+	cmp	#$08							; 2
+	bne	check_up_arrow						; 2nt/3
+	lda	#'A'							; 2
+check_up_arrow:
+	cmp	#$0B							; 2
+	bne	check_down_arrow					; 2nt/3
+	lda	#'W'							; 2
+check_down_arrow:
+	cmp	#$0A							; 2
+	bne	check_escape						; 2nt/3
+	lda	#'S'							; 2
+check_escape:
+        cmp	#$1B							; 2
+	bne	save_key						; 2nt/3
+	lda	#'Q'							; 2
+	jmp	save_key						; 3
+
+no_key:
+	bit	PADDLE_STATUS						; 3
+	bpl	no_key_store						; 2nt/3
+
+	; check for paddle action
+	; code from http://web.pdx.edu/~heiss/technotes/aiie/tn.aiie.06.html
+
+	inc	PADDLE_STATUS						; 5
+	lda	PADDLE_STATUS						; 3
+	and	#$03							; 2
+	beq	check_paddles						; 2nt/3
+	jmp	no_key_store						; 3
+
+check_paddles:
+	lda	PADDLE_STATUS						; 3
+	and	#$80							; 2
+	sta	PADDLE_STATUS						; 3
+
+	ldx	#$0							; 2
+	LDA	PTRIG		;TRIGGER PADDLES			; 4
+	LDY	#0		;INIT COUNTER				; 2
+	NOP			;COMPENSATE FOR 1ST COUNT		; 2
+	NOP								; 2
+PREAD2:	LDA	PADDL0,X	;COUNT EVERY 11 uSEC.			; 4
+	BPL	RTS2D		;BRANCH WHEN TIMED OUT			; 2nt/3
+	INY			;INCREMENT COUNTER			; 2
+	BNE	PREAD2		;CONTINUE COUNTING			; 2nt/3
+	DEY			;COUNTER OVERFLOWED			; 2
+RTS2D:				;RETURN W/VALUE 0-255
+
+        cpy	#96							; 2
+        bmi	paddle_left						; 2nt/3
+	cpy	#160							; 2
+	bmi	no_key_store						; 2nt/3
+	lda	#'D'							; 2
+	jmp	save_key						; 3
+paddle_left:
+	lda	#'A'							; 2
+	jmp	save_key						; 3
+
+no_key_store:
+	lda	#0			; no key, so save a zero	; 2
+
+save_key:
+	sta	LASTKEY			; save the key to our buffer	; 2
+	bit	KEYRESET		; clear the keyboard buffer	; 4
+	rts								; 6
+								;============
+								; 33=nokey
+								; 48=worstkey
+
+
+	;=============================================
+	; put_sprite
+	;=============================================
+	; Sprite to display in INH,INL
+	; Location is XPOS,YPOS
+	; Note, only works if YPOS is multiple of two?
+
+put_sprite:
+
+	ldy	#0		; byte 0 is xsize			; 2
+	lda	(INL),Y							; 5
+	sta	CH		; xsize is in CH			; 3
+	iny								; 2
+
+	lda	(INL),Y		; byte 1 is ysize			; 5
+	sta	CV		; ysize is in CV			; 3
+	iny								; 2
+
+	lda	YPOS		; make a copy of ypos			; 3
+	sta	TEMPY		; as we modify it			; 3
+								;===========
+								;	28
+put_sprite_loop:
+	sty	TEMP		; save sprite pointer			; 3
+
+	ldy	TEMPY							; 3
+	lda	gr_offsets,Y	; lookup low-res memory address		; 5
+	clc								; 2
+	adc	XPOS		; add in xpos				; 3
+	sta	OUTL		; store out low byte of addy		; 3
+	lda	gr_offsets+1,Y	; look up high byte			; 5
+	adc	DRAW_PAGE	;					; 3
+	sta	OUTH		; and store it out			; 3
+	ldy	TEMP		; restore sprite pointer		; 3
+
+				; OUTH:OUTL now points at right place
+
+	ldx	CH		; load xsize into x			; 3
+								;===========
+								;	36
+put_sprite_pixel:
+	lda	(INL),Y			; get sprite colors		; 5
+	iny				; increment sprite pointer	; 2
+
+	sty	TEMP			; save sprite pointer		; 3
+	ldy	#$0							; 2
+
+	; check if completely transparent
+	; if so, skip
+
+	cmp	#$0			; if all zero, transparent	; 2
+	beq	put_sprite_done_draw	; don't draw it			; 2nt/3
+					; FIXME: use BIT?	;==============
+								;	 17
+
+	sta	COLOR			; save color for later		; 3
+
+	; check if top pixel transparent
+
+	and	#$f0			; check if top nibble zero	; 2
+	bne	put_sprite_bottom	; if not skip ahead		; 2nt/3
+
+	lda	#$f0			; setup mask			; 2
+	sta	MASK							; 3
+	bmi	put_sprite_mask						; 2nt/3
+
+put_sprite_bottom:
+	lda	COLOR			; re-load color			; 3
+	and	#$0f			; check if bottom nibble zero	; 2
+	bne	put_sprite_all		; if not, skip ahead		; 2nt/3
+	lda	#$0f							; 2
+	sta	MASK			; setup mask			; 3
+
+put_sprite_mask:
+	lda	(OUTL),Y		; get color at output		; 5
+	and	MASK			; mask off unneeded part	; 3
+	ora	COLOR			; or the color in		; 3
+	sta	(OUTL),Y		; store it back			; 5
+
+	jmp	put_sprite_done_draw	; we are done			; 3
+
+put_sprite_all:
+	lda	COLOR			; load color			; 3
+	sta	(OUTL),Y		; and write it out		; 5
+
+
+put_sprite_done_draw:
+
+	ldy	TEMP			; restore sprite pointer	; 3
+
+	inc	OUTL			; increment output pointer	; 5
+	dex				; decrement x counter		; 2
+	bne	put_sprite_pixel	; if not done, keep looping	; 2nt/3
+
+	inc	TEMPY			; each line has two y vars	; 5
+	inc	TEMPY							; 5
+	dec	CV			; decemenet total y count	; 5
+	bne	put_sprite_loop		; loop if not done		; 2nt/3
+
+	rts				; return			; 6
+
+
+	;================================
+	; htab_vtab
+	;================================
+	; move to CH/CV
+htab_vtab:
+	lda	CV
+	asl
+	tay
+	lda	gr_offsets,Y    ; lookup low-res memory address
+	clc
+	adc	CH		; add in xpos
+	sta	BASL		; store out low byte of addy
+
+	lda	gr_offsets+1,Y	; look up high byte
+	adc	DRAW_PAGE	;
+	sta	BASH		; and store it out
+				; BASH:BASL now points at right place
+
+	rts
+
+	;================================
+	; move_and_print
+	;================================
+	; move to CH/CV
+move_and_print:
+	jsr	htab_vtab
+
+	;================================
+	; print_string
+	;================================
+
+print_string:
+	ldy	#0
+print_string_loop:
+	lda	(OUTL),Y
+	beq	done_print_string
+	ora	#$80
+	sta	(BASL),Y
+	iny
+	bne	print_string_loop
+done_print_string:
+	rts
+
+	;====================
+	; point_to_end_string
+	;====================
+point_to_end_string:
+	iny
+	tya
+	clc
+	adc	OUTL
+	sta	OUTL
+	lda	#0
+	adc	OUTH
+	sta	OUTH
+
+	rts
+
+
+	;================================
+	; print_both_pages
+	;================================
+print_both_pages:
+	lda	DRAW_PAGE
+	pha
+
+	lda	#0
+	sta	DRAW_PAGE
+	jsr	move_and_print
+
+	lda	#4
+	sta	DRAW_PAGE
+	jsr	move_and_print
+
+	pla
+	sta	DRAW_PAGE
+
+	rts	; oops forgot this initially
+		; explains the weird vertical stripes on the screen
+
+	;=========================================
+	; vlin
+	;=========================================
+	; X, V2 at Y
+vlin:
+
+	sty	TEMPY		; save Y (x location)
+vlin_loop:
+
+	txa			; a=x	(get first y)
+	and	#$fe		; Clear bottom bit
+	tay			;
+	lda	gr_offsets,Y	; lookup low-res memory address low
+	sta	GBASL		; put it into our indirect pointer
+	iny
+	lda	gr_offsets,Y	; lookup low-res memory address high
+	clc
+	adc	DRAW_PAGE	; add in draw page offset
+	sta	GBASH		; put into top of indirect
+
+	ldy	TEMPY		; load back in y (x offset)
+
+	txa			; load back in x (current y)
+	lsr			; check the low bit
+	bcc	vlin_low	; if not set, skip to low
+
+vlin_high:
+	lda	#$F0		; setup masks
+	sta	MASK
+	lda	#$0f
+	bcs	vlin_too_slow
+
+vlin_low:			; setup masks
+	lda	#$0f
+	sta	MASK
+	lda	#$f0
+vlin_too_slow:
+
+	and	(GBASL),Y	; mask current byte
+	sta	(GBASL),Y	; and store back
+
+	lda	MASK		; mask the color
+	and	COLOR
+	ora	(GBASL),Y	; or into the right place
+	sta	(GBASL),Y	; store it
+
+	inx			; increment X (current y)
+	cpx	V2		; compare to the limit
+	bcc	vlin_loop	; if <= then loop
+
+	rts			; return
+
+
+	;================================
+	; hlin_setup
+	;================================
+	; put address in GBASL/GBASH
+	; Ycoord in A, Xcoord in Y
+hlin_setup:
+	sty	TEMPY							; 3
+	tay			; y=A					; 2
+	lda	gr_offsets,Y	; lookup low-res memory address		; 4
+	clc								; 2
+	adc	TEMPY							; 3
+	sta	GBASL							; 3
+	iny								; 2
+
+	lda	gr_offsets,Y						; 4
+	adc	DRAW_PAGE	; add in draw page offset		; 3
+	sta	GBASH							; 3
+	rts								; 6
+								;===========
+								;	35
+	;================================
+	; hlin_double:
+	;================================
+	; HLIN Y, V2 AT A
+	; Y, X, A trashed
+	; start at Y, draw up to and including X
+hlin_double:
+;int hlin_double(int page, int x1, int x2, int at) {
+
+	jsr	hlin_setup						; 41
+
+	sec								; 2
+	lda	V2							; 3
+	sbc	TEMPY							; 3
+
+	tax								; 2
+	inx								; 2
+								;===========
+								;	53
+	; fallthrough
+
+	;=================================
+	; hlin_double_continue:  width
+	;=================================
+	; width in X
+
+hlin_double_continue:
+
+	ldy	#0							; 2
+	lda	COLOR							; 3
+hlin_double_loop:
+	sta	(GBASL),Y						; 6
+	inc	GBASL							; 5
+	dex								; 2
+	bne	hlin_double_loop					; 2nt/3
+
+	rts								; 6
+								;=============
+								; 53+5+X*16+5
+
+	;================================
+	; hlin_single:
+	;================================
+	; HLIN Y, V2 AT A
+	; Y, X, A trashed
+hlin_single:
+
+	jsr	hlin_setup
+
+	sec
+	lda	V2
+	sbc	TEMPY
+
+	tax
+
+	; fallthrough
+
+	;=================================
+	; hlin_single_continue:  width
+	;=================================
+	; width in X
+
+hlin_single_continue:
+
+hlin_single_top:
+	lda	COLOR
+	and	#$f0
+	sta	COLOR
+
+hlin_single_top_loop:
+	ldy	#0
+	lda	(GBASL),Y
+	and	#$0f
+	ora	COLOR
+	sta	(GBASL),Y
+	inc	GBASL
+	dex
+	bne	hlin_single_top_loop
+
+	rts
+
+hlin_single_bottom:
+
+	lda	COLOR
+	and	#$0f
+	sta	COLOR
+
+hlin_single_bottom_loop:
+	ldy	#0
+	lda	(GBASL),Y
+	and	#$f0
+	sta	(GBASL),Y
+	inc	GBASL
+	dex
+	bne	hlin_single_bottom_loop
+
+	rts
+
+
+	;=============================
+	; clear_top
+	;=============================
+clear_top:
+	lda	#$00
+
+	;=============================
+	; clear_top_a
+	;=============================
+clear_top_a:
+
+	sta	COLOR
+
+	; VLIN Y, V2 AT A
+
+	lda	#40
+	sta	V2
+
+	lda	#0
+
+clear_top_loop:
+	ldy	#0
+	pha
+
+	jsr	hlin_double
+
+	pla
+	clc
+	adc	#$2
+	cmp	#40
+	bne	clear_top_loop
+
+	rts
+
+clear_bottom:
+	lda	#$a0	; NORMAL space
+	sta	COLOR
+
+	lda	#40
+	sta	V2
+
+clear_bottom_loop:
+	ldy	#0
+	pha
+
+	jsr	hlin_double
+
+	pla
+	clc
+	adc	#$2
+	cmp	#48
+	bne	clear_bottom_loop
+
+	rts
diff --git a/dlowres_mode7/dlowres_zp.inc b/dlowres_mode7/dlowres_zp.inc
new file mode 100644
index 00000000..ec422f23
--- /dev/null
+++ b/dlowres_mode7/dlowres_zp.inc
@@ -0,0 +1,194 @@
+.define EQU =
+
+;; Zero page monitor routines addresses
+
+WNDLFT	EQU $20
+WNDWDTH	EQU $21
+WNDTOP	EQU $22
+WNDBTM	EQU $23
+CH	EQU $24
+CV	EQU $25
+GBASL	EQU $26
+GBASH	EQU $27
+BASL	EQU $28
+BASH	EQU $29
+H2	EQU $2C
+V2	EQU $2D
+MASK	EQU $2E
+COLOR	EQU $30
+INVFLG	EQU $32
+
+; More zero-page addresses
+; we try not to conflict with anything DOS, MONITOR or BASIC related
+
+COLOR1		EQU	$E0
+COLOR2		EQU	$E1
+MATCH		EQU	$E2
+XX		EQU	$E3
+YY		EQU	$E4
+YADD		EQU	$E5
+LOOP		EQU	$E6
+MEMPTRL		EQU	$E7
+MEMPTRH		EQU	$E8
+NAMEL		EQU	$E9
+NAMEH		EQU	$EA
+NAMEX		EQU	$EB
+CHAR		EQU	$EC
+DISP_PAGE       EQU	$ED
+DRAW_PAGE       EQU	$EE
+
+FIRST		EQU	$F0
+LASTKEY		EQU	$F1
+PADDLE_STATUS	EQU	$F2
+XPOS		EQU	$F3
+YPOS		EQU	$F4
+TEMP		EQU	$FA
+RUN		EQU	$FA
+TEMP2		EQU	$FB
+TEMPY		EQU	$FB
+INL		EQU	$FC
+INH		EQU	$FD
+OUTL		EQU	$FE
+OUTH		EQU	$FF
+
+
+;; Flying Routine Only
+
+TURNING		EQU	$60
+;SCREEN_X	EQU	$61		; not used?
+SCREEN_Y	EQU	$62
+ANGLE		EQU	$63
+HORIZ_SCALE_I	EQU	$64
+HORIZ_SCALE_F	EQU	$65
+FACTOR_I	EQU	$66
+FACTOR_F	EQU	$67
+DX_I		EQU	$68
+DX_F		EQU	$69
+SPACEX_I	EQU	$6A
+SPACEX_F	EQU	$6B
+CX_I		EQU	$6C
+CX_F		EQU	$6D
+DY_I		EQU	$6E
+DY_F		EQU	$6F
+SPACEY_I	EQU	$70
+SPACEY_F	EQU	$71
+CY_I		EQU	$72
+CY_F		EQU	$73
+TEMP_I		EQU	$74
+TEMP_F		EQU	$75
+DISTANCE_I	EQU	$76
+DISTANCE_F	EQU	$77
+SPACEZ_I	EQU	$78
+SPACEZ_F	EQU	$79
+DRAW_SPLASH	EQU	$7A
+SPEED		EQU	$7B
+SPLASH_COUNT	EQU	$7C
+OVER_LAND	EQU	$7D
+NUM1L		EQU	$7E
+NUM1H		EQU	$7F
+NUM2L		EQU	$80
+NUM2H		EQU	$81
+RESULT		EQU	$82 ; 83,84,85
+NEGATE		EQU	$86			; UNUSED?
+LAST_SPACEX_I	EQU	$87
+LAST_SPACEY_I	EQU	$88
+LAST_MAP_COLOR	EQU	$89
+DRAW_SKY	EQU	$8A
+COLOR_MASK	EQU	$8B
+
+SHIPY           EQU     $E4
+
+;; World Map Only
+
+ODD             EQU     $7B
+DIRECTION       EQU     $7C
+REFRESH         EQU     $7D
+ON_BIRD         EQU     $7E
+MOVED           EQU     $7F
+STEPS           EQU     $80
+TFV_X           EQU     $81
+TFV_Y           EQU     $82
+NEWX            EQU     $83
+NEWY            EQU     $84
+MAP_X           EQU     $85
+GROUND_COLOR    EQU     $86
+
+
+
+
+KEYPRESS	EQU	$C000
+KEYRESET	EQU	$C010
+
+;; SOFT SWITCHES
+EIGHTYSTORE_ON	EQU	$C000
+EIGHTYSTORE_OFF	EQU	$C001
+EIGHTYCOL	EQU	$C00D
+SET_GR		EQU	$C050
+SET_TEXT	EQU	$C051
+FULLGR		EQU	$C052
+TEXTGR		EQU	$C053
+PAGE0		EQU	$C054
+PAGE1		EQU	$C055
+LORES		EQU	$C056
+HIRES		EQU	$C057
+AN3		EQU	$C05E
+
+PADDLE_BUTTON0	EQU	$C061
+PADDL0		EQU	$C064
+PTRIG		EQU	$C070
+
+;; BASIC ROUTINES
+
+NORMAL	EQU	$F273
+
+;; MONITOR ROUTINES
+
+HLINE	EQU $F819			;; HLINE Y,$2C at A
+VLINE	EQU $F828			;; VLINE A,$2D at Y
+CLRSCR	EQU $F832			;; Clear low-res screen
+CLRTOP	EQU $F836			;; clear only top of low-res screen
+SETCOL	EQU $F864			;; COLOR=A
+TEXT	EQU $FB36
+TABV	EQU $FB5B			;; VTAB to A
+BASCALC	EQU $FBC1			;;
+VTAB	EQU $FC22			;; VTAB to CV
+HOME	EQU $FC58			;; Clear the text screen
+WAIT	EQU $FCA8			;; delay 1/2(26+27A+5A^2) us
+SETINV	EQU $FE80			;; INVERSE
+SETNORM	EQU $FE84			;; NORMAL
+COUT	EQU $FDED			;; output A to screen
+COUT1	EQU $FDF0			;; output A to screen
+
+
+
+
+
+
+COLOR_BLACK		EQU	0
+COLOR_RED		EQU	1
+COLOR_DARKBLUE		EQU	2
+COLOR_PURPLE		EQU	3
+COLOR_DARKGREEN		EQU	4
+COLOR_GREY		EQU	5
+COLOR_MEDIUMBLUE	EQU	6
+COLOR_LIGHTBLUE		EQU	7
+COLOR_BROWN		EQU	8
+COLOR_ORANGE		EQU	9
+COLOR_GREY2		EQU	10
+COLOR_PINK		EQU	11
+COLOR_LIGHTGREEN	EQU	12
+COLOR_YELLOW		EQU	13
+COLOR_AQUA		EQU	14
+COLOR_WHITE		EQU	15
+
+COLOR_BOTH_RED		EQU	$11
+COLOR_BOTH_DARKBLUE	EQU	$22
+COLOR_BOTH_DARKGREEN	EQU	$44
+COLOR_BOTH_GREY		EQU	$55
+COLOR_BOTH_MEDIUMBLUE	EQU	$66
+COLOR_BOTH_LIGHTBLUE	EQU	$77
+COLOR_BOTH_BROWN	EQU	$88
+COLOR_BOTH_ORANGE	EQU	$99
+COLOR_BOTH_LIGHTGREEN	EQU	$CC
+COLOR_BOTH_YELLOW	EQU	$DD
+COLOR_BOTH_WHITE	EQU	$FF
diff --git a/dlowres_mode7/fast_multiply.s b/dlowres_mode7/fast_multiply.s
new file mode 100644
index 00000000..294b3840
--- /dev/null
+++ b/dlowres_mode7/fast_multiply.s
@@ -0,0 +1,349 @@
+; Fast mutiply
+
+
+; Note for our purposes we only care about 8.8 x 8.8 fixed point
+; with 8.8 result, which means we only care about the middle two bytes
+; of the 32 bit result.  So we disable generation of the high and low byte
+; to save some cycles.
+
+;
+; The old routine took around 700 cycles for a 16bitx16bit=32bit mutiply
+; This routine, at an expense of 2kB of looku tables, takes around 250
+;	If you reuse a term the next time this drops closer to 200
+
+; This routine was described by Stephen Judd and found
+;	in The Fridge and in the C=Hacking magazine
+; http://codebase64.org/doku.php?id=base:seriously_fast_multiplication
+
+; The key thing to note is that
+;	       (a+b)^2     (a-b)^2
+;       a*b =  -------  -  --------
+;                 4           4
+; So if you have tables of the squares of 0..511 you can lookup and subtract
+; instead of multiplying.
+
+; Table generation: I:0..511
+;                   square1_lo = <((I*I)/4)
+;                   square1_hi = >((I*I)/4)
+;                   square2_lo = <(((I-255)*(I-255))/4)
+;                   square2_hi = >(((I-255)*(I-255))/4)
+
+; Note: DOS3.3 starts at $9600
+
+square1_lo	EQU	$8E00
+square1_hi	EQU	$9000
+square2_lo	EQU	$9200
+square2_hi	EQU	$9400
+
+;	for(i=0;i<512;i++) {
+;		square1_lo[i]=((i*i)/4)&0xff;
+;		square1_hi[i]=(((i*i)/4)>>8)&0xff;
+;		square2_lo[i]=( ((i-255)*(i-255))/4)&0xff;
+;		square2_hi[i]=(( ((i-255)*(i-255))/4)>>8)&0xff;
+;	}
+
+init_multiply_tables:
+
+	; Build the add tables
+
+	ldx	#$00
+	txa
+	.byte $c9   ; CMP #immediate - skip TYA and clear carry flag
+lb1:	tya
+	adc	#$00			; 0
+ml1:	sta	square1_hi,x		; square1_hi[0]=0
+	tay				; y=0
+	cmp	#$40			; subtract 64 and update flags (c=0)
+	txa				; a=0
+	ror				; rotate
+ml9:	adc	#$00			; add 0
+	sta	ml9+1			; update add value
+	inx				; x=1
+ml0:	sta	square1_lo,x		; square1_lo[0]=1
+	bne	lb1			; if not zero, loop
+	inc	ml0+2			; increment values
+	inc	ml1+2			; increment values
+	clc				; c=0
+	iny				; y=1
+	bne	lb1			; loop
+
+	; Build the subtract tables based on the existing one
+
+	ldx	#$00
+	ldy	#$ff
+second_table:
+	lda	square1_hi+1,x
+	sta	square2_hi+$100,x
+	lda	square1_hi,x
+	sta	square2_hi,y
+	lda	square1_lo+1,x
+	sta	square2_lo+$100,x
+	lda	square1_lo,x
+	sta	square2_lo,y
+	dey
+	inx
+	bne second_table
+
+
+	rts
+
+
+; Fast 16x16 bit unsigned multiplication, 32-bit result
+; Input: NUM1H:NUM1L * NUM2H:NUM2L
+; Result: RESULT3:RESULT2:RESULT1:RESULT0
+;
+; Does self-modifying code to hard-code NUM1H:NUM1L into the code
+;  carry=0: re-use previous NUM1H:NUM1L
+;  carry=1: reload NUM1H:NUM1L (58 cycles slower)
+;
+; clobbered: RESULT, X, A, C
+; Allocation setup: T1,T2 and RESULT preferably on Zero-page.
+;
+; NUM1H (x_i), NUM1L (x_f)
+; NUM2H (y_i), NUM2L (y_f)
+
+;	NUM1L * NUM2L = AAaa
+;	NUM1L * NUM2H = BBbb
+;	NUM1H * NUM2L = CCcc
+;	NUM1H * NUM2H = DDdd
+;
+;	       AAaa
+;	     BBbb
+;	     CCcc
+;	 + DDdd
+;	 ----------
+;	   RESULT
+
+;fixed_16x16_mul_unsigned:
+
+multiply:
+
+	bcc	num1_same_as_last_time					; 2nt/3
+
+	;============================
+	; Set up self-modifying code
+	; this changes the code to be hard-coded to multiply by NUM1H:NUM1L
+	;============================
+
+	lda	NUM1L	; load the low byte				; 3
+	sta	sm1a+1							; 3
+	sta	sm3a+1							; 3
+	sta	sm5a+1							; 3
+	sta	sm7a+1							; 3
+	eor	#$ff	; invert the bits for subtracting		; 2
+	sta	sm2a+1							; 3
+	sta	sm4a+1							; 3
+	sta	sm6a+1							; 3
+	sta	sm8a+1							; 3
+	lda	NUM1H	; load the high byte				; 3
+	sta	sm1b+1							; 3
+	sta	sm3b+1							; 3
+	sta	sm5b+1							; 3
+;	sta	sm7b+1							;
+	eor	#$ff	; invert the bits for subtractin		; 2
+	sta	sm2b+1							; 3
+	sta	sm4b+1							; 3
+	sta	sm6b+1							; 3
+;	sta	sm8b+1							;
+								;===========
+								;	 52
+
+num1_same_as_last_time:
+
+	;==========================
+	; Perform NUM1L * NUM2L = AAaa
+	;==========================
+
+	ldx	NUM2L	; (low le)					; 3
+	sec								; 2
+sm1a:
+	lda	square1_lo,x						; 4
+sm2a:
+	sbc	square2_lo,x						; 4
+
+	; a is _aa
+
+;	sta	RESULT+0						;
+
+sm3a:
+	lda	square1_hi,x						; 4
+sm4a:
+	sbc	square2_hi,x						; 4
+	; a is _AA
+	sta	_AA+1							; 3
+								;===========
+								;	24
+
+	; Perform NUM1H * NUM2L = CCcc
+	sec								; 2
+sm1b:
+	lda	square1_lo,x						; 4
+sm2b:
+	sbc	square2_lo,x						; 4
+	; a is _cc
+	sta	_cc+1							; 3
+sm3b:
+	lda	square1_hi,x						; 4
+sm4b:
+	sbc square2_hi,x						; 4
+	; a is _CC
+	sta	_CC+1							; 3
+								;===========
+								;	 24
+
+	;==========================
+	; Perform NUM1L * NUM2H = BBbb
+	;==========================
+	ldx	NUM2H							; 3
+	sec								; 2
+sm5a:
+	lda	square1_lo,x						; 4
+sm6a:
+	sbc	square2_lo,x						; 4
+	; a is _bb
+	sta	_bb+1							; 3
+
+sm7a:
+	lda	square1_hi,x						; 4
+sm8a:
+	sbc	square2_hi,x						; 4
+	; a is _BB
+	sta	_BB+1							; 3
+								;===========
+								;	 27
+
+	;==========================
+	; Perform NUM1H * NUM2H = DDdd
+	;==========================
+	sec								; 2
+sm5b:
+	lda	square1_lo,x						; 4
+sm6b:
+	sbc	square2_lo,x						; 4
+	; a is _dd
+	sta	_dd+1							; 3
+;sm7b:
+;	lda	square1_hi,x						;
+;sm8b:
+;	sbc	square2_hi,x						;
+	; a = _DD
+;	sta	RESULT+3						;
+								;===========
+								; 	 13
+
+	;===========================================
+	; Add the separate multiplications together
+	;===========================================
+
+	clc								; 2
+_AA:
+	lda	#0		; loading _AA				; 2
+_bb:
+	adc	#0		; adding in _bb				; 2
+	sta	RESULT+1						; 3
+								;==========
+								;	  9
+	; product[2]=_BB+_CC+c
+
+_BB:
+	lda	#0		; loading _BB				; 2
+_CC:
+	adc	#0		; adding in _CC				; 2
+	sta RESULT+2							; 3
+								;===========
+								;	  7
+
+	;  product[3]=_DD+c
+
+;	bcc	dd_no_carry1						;
+;	inc	RESULT+3						;
+	clc								; 2
+								;=============
+								;	  2
+dd_no_carry1:
+
+	; product[1]=_AA+_bb+_cc
+
+_cc:
+	lda	#0		; load _cc				; 2
+	adc	RESULT+1						; 3
+	sta	RESULT+1						; 3
+
+	; product[2]=_BB+_CC+_dd+c
+
+_dd:
+	lda	#0		; load _dd				; 2
+	adc	RESULT+2						; 3
+	sta	RESULT+2						; 3
+
+								;===========
+								;	 16
+	; product[3]=_DD+c
+
+
+;	bcc	dd_no_carry2						;
+;	inc	RESULT+3						;
+
+								;=============
+								;	 0
+
+dd_no_carry2:
+
+;	*z_i=product[1];
+;	*z_f=product[0];
+
+;	rts								; 6
+
+
+	;=================
+	; Signed multiply
+	;=================
+
+;multiply:
+
+;	jsr fixed_16x16_mul_unsigned					; 6
+
+	lda	NUM1H		; x_i					; 3
+								;===========
+								;	 12
+
+
+	bpl	x_positive						;^3/2nt
+
+	sec								; 2
+	lda	RESULT+2						; 3
+	sbc	NUM2L							; 3
+	sta	RESULT+2						; 3
+;	lda	RESULT+3						;
+;	sbc	NUM2H							;
+;	sta	RESULT+3						;
+								;============
+								;	 10
+
+x_positive:
+
+	lda	NUM2H		; y_i					; 3
+								;============
+								;	; 6
+
+	bpl	y_positive						;^3/2nt
+
+
+	sec								; 2
+	lda	RESULT+2						; 3
+	sbc	NUM1L							; 3
+	sta	RESULT+2						; 3
+;	lda	RESULT+3						;
+;	sbc	NUM1H							;
+;	sta	RESULT+3						;
+								;===========
+								;	 10
+
+y_positive:
+	ldx	RESULT+2	;	*z_i=product[2];		; 3
+	lda	RESULT+1	;	*z_f=product[1];		; 3
+
+	rts								; 6
+								;==========
+								;	 12
+