# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1461900029 25200
# Node ID 4360cb5960c84cdeb43a2cbb54365cdcbfab4a3d
# Parent  38f1d897e80438a773f3a2712f6eb3579f915e60
Added code to display Next and Prev buttons on file listing screens to menu

diff -r 38f1d897e804 -r 4360cb5960c8 menu.s68
--- a/menu.s68	Thu Apr 28 19:20:31 2016 -0700
+++ b/menu.s68	Thu Apr 28 20:20:29 2016 -0700
@@ -173,29 +173,30 @@
 MAX_DISPLAY equ 24
 
 	rsset $FFFF8000
-x_pos          rs.w 1
-base_cmd       rs.l 1
-sprite_list    rs.l 160
-page_index     rs.l MAX_DISPLAY+1
-page_stack     rs.l 1
-page_pointers  rs.l 1024
-mouse_sprite   rs.l 1
-menu_functions rs.l 1
-mouse_x        rs.w 1
-selection_top  rs.w 1
-selection_bot  rs.w 1
-selection_mask rs.w 1
-num_sprites    rs.b 1
-last_pad1      rs.b 1
-last_pad2      rs.b 1
-selected       rs.b 1
-more_pages     rs.b 1
-mouse_buf      rs.b 3
-mouse_shown    rs.b 1
-last_mbuttons  rs.b 1
-num_menu       rs.b 1
-num_slots      rs.b 1
-port_off       rs.b 1
+x_pos           rs.w 1
+base_cmd        rs.l 1
+sprite_list     rs.l 160
+page_index      rs.l MAX_DISPLAY+1
+page_stack      rs.l 1
+page_pointers   rs.l 1024
+mouse_sprite    rs.l 1
+menu_functions  rs.l 1
+cursor_show_fun rs.l 1
+mouse_x         rs.w 1
+selection_top   rs.w 1
+selection_bot   rs.w 1
+selection_mask  rs.w 1
+num_sprites     rs.b 1
+last_pad1       rs.b 1
+last_pad2       rs.b 1
+selected        rs.b 1
+more_pages      rs.b 1
+mouse_buf       rs.b 3
+mouse_shown     rs.b 1
+last_mbuttons   rs.b 1
+num_menu        rs.b 1
+num_slots       rs.b 1
+port_off        rs.b 1
 
 
 int_6:
@@ -922,7 +923,6 @@
 	move.l d3, (a1)
 	move.l d3, base_cmd.w
 	
-
 	move.b #0, more_pages.w
 	lea page_index.w, a3
 	moveq #MAX_DISPLAY-1, d7
@@ -972,6 +972,56 @@
 	;null terminate page_index
 	moveq #0, d0
 	move.l d0, (a3)
+	
+	tst.b mouse_shown
+	beq .no_mouse
+	
+	tst.b more_pages.w
+	beq .no_next_page
+	
+	;draw Next button
+	moveq #30, d0
+	moveq #26, d1
+	moveq #6, d2
+	bsr draw_button
+	
+	;base attribute
+	move.w #$206B, d0
+	;x pos
+	moveq #32, d1
+	;y pos
+	moveq #26, d2
+	lea next_str(pc), a6
+	bsr print_string_fixed
+	
+.no_next_page
+
+	cmp.l #(page_pointers+8), a5
+	beq .no_prev_page
+	
+	;draw Prev button
+	moveq #4, d0
+	moveq #26, d1
+	moveq #6, d2
+	bsr draw_button
+	
+	;base attribute
+	move.w #$206B, d0
+	;x pos
+	moveq #6, d1
+	;y pos
+	moveq #26, d2
+	lea prev_str(pc), a6
+	bsr print_string_fixed
+	
+.no_prev_page
+
+	move.l #0, cursor_show_fun.w
+	
+	bra .done_page_buttons
+.no_mouse
+	;TODO - setup cusrsor_show_fun
+.done_page_buttons
 
 gamepad_setup:
 	;setup gamepads
@@ -1067,6 +1117,11 @@
 	stop #$2500
 	bra .wait
 	
+next_str:
+	dc.b "Next", 0
+prev_str:
+	dc.b "Prev", 0
+	
 about_text:
 	dc.b "BlastEm v0.4.0", 0
 	dc.b "Copyright 2011-2016 Michael Pavone", 0