Mercurial > repos > blastem

comparison menu.s68 @ 958:83532f944e3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get slot list displaying in "Save State" and "Load State" menu items
author Michael Pavone <pavone@retrodev.com>
date Sat, 16 Apr 2016 13:07:03 -0700
parents 1618d3676a35
children 0abfecaaf5c8
comparison
equal deleted inserted replaced
957:1618d3676a35 958:83532f944e3b
931 931
932 resume: 932 resume:
933 move.l #2, menu_port+12 933 move.l #2, menu_port+12
934 bra show_pause_menu 934 bra show_pause_menu
935 935
936 show_save_slots:
937 lea dir_buffer, a6
938 lea menu_port+16, a3
939 move.l a6, (a3)
940 .waitdone:
941 tst.w (a3)
942 bne .waitdone
943 bsr clear_screen
944 moveq #0, d0
945
946 moveq #2, d7
947 .slotloop
948 tst.b (a6)
949 beq .done
950 moveq #2, d1
951 move.w d7, d2
952 bsr print_string_fixed
953 addq #2, d7
954 bra .slotloop
955 .done
956 rts
957
936 save_state: 958 save_state:
937 ;TODO: Implement me 959 bsr show_save_slots
938 move.l #0, menu_port+16
939 .forever 960 .forever
940 bra .forever 961 bra .forever
941 962
942 load_state: 963 load_state:
943 ;TODO: Implement me 964 bsr show_save_slots
944 move.l #0, menu_port+16 965 .forever
945 bra save_state 966 bra .forever
946 967
947 about_text: 968 about_text:
948 dc.b "BlastEm v0.4.0", 0 969 dc.b "BlastEm v0.4.0", 0
949 dc.b "Copyright 2011-2016 Michael Pavone", 0 970 dc.b "Copyright 2011-2016 Michael Pavone", 0
950 dc.b " ", 0 971 dc.b " ", 0