.equ VDP1_PAL, 0x08
.equ VDP1_RESERVED, 0x04
-.equ VDP12_SPR_SHADOWS, 0x08
+.equ VDP12_STE, 0x08
.equ VDP12_SCREEN_V224, 0x00
.equ VDP12_SCREEN_V448, 0x04
.equ VDP12_PROGRESSIVE, 0x00
.equ VDP16_MAP_H64, 0x01
.equ VDP16_MAP_H128, 0x03
+.equ MMODE_MAIN, 0
+.equ MMODE_VAL_INPUT, 1
+.equ MMODE_EDIT_VAL, 2
+.equ MMODE_GOTO, 3
+.equ MMODE_START_MENU, 4
+.equ MMODE_GOTO_PREDEF, 5
+.equ predef_addr_cnt, ((predef_addrs_end-predef_addrs)/4)
##################################################
# #
##################################################
-/* Write val to VDP register reg */
-.macro write_vdp_reg reg val
- move.w #((\reg << 8) + 0x8000 + \val),(a3)
+# Write val to VDP register reg
+.macro write_vdp_r_dst reg val dst
+ move.w #((\reg << 8) + 0x8000 + \val),\dst
.endm
+# Write val to VDP register reg, vdp addr in a3
+.macro write_vdp_reg reg val
+ write_vdp_r_dst \reg, \val, (a3)
+.endm
/* For immediate addresses */
.macro VRAM_ADDR reg adr
move.l #(((0x4000 + (\adr & 0x3fff)) << 16) + (\adr >> 14)),\reg
.endm
-
.macro CRAM_ADDR reg adr
move.l #(((0xc000 + (\adr & 0x3fff)) << 16) + (\adr >> 14)),\reg
.endm
add.w d0,a0
.endm
+# check if some d-pad button (and modifier) is pressed
+.macro do_dpad bit op val
+ btst.l #\bit,d0
+ beq 0f
+ \op.l \val,a6
+ bra dpad_end
+0:
+.endm
+
+# convert a6 to normal addr
+# destroys d0
+.macro mk_a6_addr reg
+ move.l a6,\reg
+ moveq.l #0,d0
+ move.b \reg,d0
+ lsr.l #8,\reg
+ add.l d0,\reg
+.endm
+
+.macro change_mode mode_new mode_back
+ and.w #0xc0ff,d7
+ or.w #(\mode_back<<11)|(\mode_new<<8),d7
+.endm
+
+.macro menu_text str x y pal
+ lea \str,a0
+ move.l #\x,d0
+ move.l #\y,d1
+ move.l #0x8000|(\pal<<13),d2
+ jsr print
+.endm
+
#################################################
# #
# DATA #
#################################################
colors:
- dc.w 0x0000,0x0eee
+ dc.w 0x0000,0x0eee,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
+ dc.w 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
+ dc.w 0x0000,0x02e2,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
+ dc.w 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
+ dc.w 0x0000,0x0e44,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
+ dc.w 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
colors_end:
-# pattern:
-
sprite_data:
/* Y size link attr X */
dc.w 0; dc.b 0x05; dc.b 0; dc.w 0x6002; dc.w 0
sprite_data_end:
-hello:
- .ascii "hello world"
+predef_addrs:
+ dc.l 0x000000, 0x200000, 0x400000, 0xa00000, 0xa10000
+ dc.l 0xa11100, 0xa12000, 0xa13000, 0xc00000
+predef_addrs_end:
+
+safe_addrs:
+ dc.l 0x000000, 0x7fffff
+ dc.l 0xe00000, 0xffffff
+ dc.l 0xa00000, 0xa163ff /* FIXME */
+ /* TODO: VDP */
+safe_addrs_end:
+
+txt_edit:
+ .ascii "- edit -\0"
+txt_a_confirm:
+ .ascii "A-confirm\0"
+txt_about:
+ .ascii "hexed r1\0"
+txt_goto:
+ .ascii "Go to address\0"
+txt_goto_predef:
+ .ascii "Go to (predef)\0"
+txt_dtack:
+ .ascii "DTACK safety\0"
##################################################
# #
# MAIN PROGRAM #
# #
##################################################
-
+
+# global regs:
+# a6 = page_start[31:8]|cursor_offs[7:0]
+# d7 = old_inputs[31:16]|edit_bytes[15:14]|g_mode_old[13:11]|g_mode[10:8]|irq_cnt[7:0]
+# d6 = edit_word_save[31:15]|edit_done[7]|no_dtack_detect[4]|autorep_cnt[3:0]
+# d5 = main: tmp
+# edit: edit_word[31:8]|edit_pos[4:2]|byte_cnt[1:0]
+# menu: sel
+
.align 2
main:
- /* mask irqs durinf init */
+ /* mask irqs during init */
move.w #0x2700,sr
+.if 0
+ /* copy */
+ lea (0,pc),a0
+ move.l a0,d0
+ swap d0
+ lsr.l #4,d0
+ and.b #0x0f,d0
+ cmp.b #0,d0
+ bne 0f
+
+ move.w #8000/2,d0
+ move.l #0,a0
+ move.l #0x400000,a1
+1:
+ move.w (a0)+,(a1)+
+ dbra d0,1b
+0:
+.endif
+
movea.l #0,a6
+ move.l #0x8000,d7
+ moveq.l #0,d6
/* Init pads */
move.b #0x40,(0xa10009).l
move.w #0x2000,sr
##################################################
-# #
-# MAIN LOOP #
-# #
-##################################################
-
-# global regs:
-# a6 - page[31:8],cursor_offs[7:0]
forever:
-
-
jsr wait_vsync
bra forever
-
VBL:
- addq.l #1,(vtimer).l
- movem.l d0-d7/a0-a5,-(a7)
+ addq.b #1,d7
+ movem.l d0-d4/a0-a5,-(a7)
- /* draw main stuff */
- clr.l d7
+ moveq.l #0,d0
+ move.w d7,d0
+ lsr.w #6,d0
+ and.w #0x1c,d0
+ move.l (jumptab,pc,d0),a0
+ jmp (a0)
+jumptab:
+ dc.l mode_main
+ dc.l mode_val_input
+ dc.l mode_edit_val /* edit val in editor */
+ dc.l mode_goto
+ dc.l mode_start_menu
+ dc.l mode_goto_predef
+ dc.l mode_main
+ dc.l mode_main
+
+##################### main #######################
+
+mode_main:
+ clr.l d1
move.l a6,d0
+ move.b d0,d1
lsr.l #8,d0
move.l d0,a1 /* current addr */
+ lsr.b #3,d1
+ neg.b d1
+ add.b #27-1,d1 /* line where the cursor sits */
+ swap d1
- movea.l #0xe004,a2
- move.l #27-1,d5
+ movea.l #0xe002,a2
+ move.l #27-1,d5 /* line counter for dbra */
+ or.l d1,d5
-draw_column:
+draw_row:
move.l a2,a0
jsr load_prepare
+ btst.l #15,d7
+ beq 0f
+ move.w #' ',(a0)
+0:
/* addr */
move.l a1,d2
moveq.l #6,d3
jsr print_hex_preped
+ btst.l #4,d6
+ bne draw_row_safe
+
+ bsr is_addr_safe
+ bne draw_row_safe
+
+# draw unreadable areas
+ btst.l #15,d7
+ bne draw_row_unsafe_words
+
+draw_row_unsafe_bytes:
+ /* 8 bytes */
+ moveq.l #8-1,d4
+0:
+ move.w #' ',(a0)
+ move.l #'?'|('?'<<16),(a0)
+ dbra d4,0b
+
+ move.w #' ',(a0)
+
+ move.l d5,d0
+ swap d0
+ cmp.w d5,d0
+ beq draw_cursor_unsafe_byte
+ bra draw_chars_unsafe
+
+draw_row_unsafe_words:
/* 4 shorts */
moveq.l #4-1,d4
-draw_shorts:
+0:
move.w #' ',(a0)
- move.w (a1)+,d2
- moveq.l #4,d3
+ move.l #'?'|('?'<<16),(a0)
+ move.l #'?'|('?'<<16),(a0)
+ dbra d4,0b
+
+ move.l #(' '<<16)|' ',(a0)
+
+ move.l d5,d0
+ swap d0
+ cmp.w d5,d0
+ beq draw_cursor_unsafe_word
+
+draw_chars_unsafe:
+ move.l #'?'|('?'<<16),(a0)
+ move.l #'?'|('?'<<16),(a0)
+ move.l #'?'|('?'<<16),(a0)
+ move.l #'?'|('?'<<16),(a0)
+
+ move.l #(' '<<16)|' ',(a0)
+ addq.l #8,a1
+ add.w #0x80,a2
+ dbra d5,draw_row
+ bra draw_status_bar
+
+
+# normal draw
+draw_row_safe:
+ btst.l #15,d7
+ bne draw_row_words
+
+draw_row_bytes:
+ /* 8 bytes */
+ moveq.l #2,d3
+ moveq.l #8-1,d4
+draw_bytes:
+ move.w #' ',(a0)
+ move.b (a1)+,d2
jsr print_hex_preped
- dbra d4,draw_shorts
+ dbra d4,draw_bytes
move.w #' ',(a0)
+
+ move.l d5,d0
+ swap d0
+ cmp.w d5,d0
+ beq draw_cursor_byte
+ bra draw_chars_pre
+
+draw_row_words:
+ /* 4 shorts */
+ moveq.l #4,d3
+ moveq.l #4-1,d4
+draw_words:
move.w #' ',(a0)
+ move.w (a1)+,d2
+ jsr print_hex_preped
+ dbra d4,draw_words
+
+ move.l #(' '<<16)|' ',(a0)
+ move.l d5,d0
+ swap d0
+ cmp.w d5,d0
+ beq draw_cursor_word
+
+draw_chars_pre:
/* 8 chars */
subq.l #8,a1
moveq.l #8-1,d4
move.w d0,(a0)
dbra d4,draw_chars
+ move.l #(' '<<16)|' ',(a0)
+
add.w #0x80,a2
- dbra d5,draw_column
+ dbra d5,draw_row
+
+draw_status_bar:
+ /* status bar */
+ move.l a2,a0
+ jsr load_prepare
+
+ btst.l #15,d7
+ beq 0f
+ move.w #' ',(a0)
+0:
+ mk_a6_addr d2
+ move.l #0x4006,d3
+ jsr print_hex_preped
+ move.w #' ',(a0)
/* handle input */
jsr get_input /* x0cbrldu x1sa00du */
- btst.b #0,d0
- beq _in_nup
- sub.l #0x0800,a6
-_in_nup:
- btst.b #1,d0
- beq _in_ndn
- add.l #0x0800,a6
+ btst.l #16+4,d0 /* A - scroll modifier */
+ beq input_noa
+
+ do_dpad 16+0, sub, #0x0800
+ do_dpad 16+1, add, #0x0800
+ do_dpad 16+10, sub, #0xd800
+ do_dpad 16+11, add, #0xd800
+input_noa:
+ moveq.l #0,d1
+ move.w d7,d1
+ lsr.w #7,d1
+ lsr.w #7,d1
+
+ do_dpad 0, subq, #0x0008
+ do_dpad 1, addq, #0x0008
+ do_dpad 10, sub, d1
+ do_dpad 11, add, d1
+
+dpad_end:
+ /* update addr */
+ move.l a6,d1
+ cmp.b #0xf0,d1
+ blo 0f
+ sub.l #0xd800,a6
+ add.w #0x00d8,a6
+ bra 1f
+0:
+ cmp.b #0xd8,d1
+ blo 1f
+ add.l #0xd800,a6
+ sub.w #0x00d8,a6
+1:
+
+ /* other btns */
+ moveq.l #0,d1
+ btst.l #12,d0 /* B - switch byte/word mode */
+ beq input_nob
+ bclr.l #15,d7
+ add.w #0x4000,d7 /* changes between 01 10 */
+ move.l a6,d1
+ and.l #1,d1
+ sub.l d1,a6 /* make even, just in case */
+
+input_nob:
+ btst.l #13,d0 /* C - edit selected byte */
+ beq input_noc
+
+ change_mode MMODE_EDIT_VAL, MMODE_MAIN
+ write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320 | VDP12_STE),(GFXCNTL)
+
+input_noc:
+ btst.l #5,d0 /* Start - menu */
+ beq input_nos
+
+ moveq.l #0,d5
+ change_mode MMODE_START_MENU, MMODE_MAIN
+ write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320 | VDP12_STE),(GFXCNTL)
+
+input_nos:
+vbl_end:
+ movem.l (a7)+,d0-d4/a0-a5
+ rte
+
+
+draw_cursor_unsafe_byte:
+ move.l a6,d0
+ and.l #7,d0 /* byte offs */
+ move.b d0,d1
+ add.b d0,d0
+ add.b d1,d0 /* d0 *= 3 (chars) */
+ add.b d0,d0
+ lea (7*2,a2,d0),a0
+ jsr load_prepare
+ move.l #(0x2000|'?'|((0x2000|'?')<<16)),(a0)
+
+ move.l a2,a0
+ add.w #31*2,a0
+ jsr load_prepare /* restore a0 */
+ jmp draw_chars_unsafe
+
+draw_cursor_unsafe_word:
+ move.l a6,d0
+ and.l #7,d0 /* byte offs */
+ move.l d0,d1
+ lsr.b #1,d1 /* which word */
+ move.b d1,d2
+ lsl.b #2,d2
+ add.b d2,d1 /* num of chars to skip */
+ add.b d1,d1
-_in_ndn:
+ lea (8*2,a2,d1),a0
+ jsr load_prepare
+ move.l #(0x2000|'?'|((0x2000|'?')<<16)),d0
+ move.l d0,(a0)
+ move.l d0,(a0)
+
+ move.l a2,a0
+ add.w #29*2,a0
+ jsr load_prepare /* restore a0 */
+ jmp draw_chars_unsafe
+
+
+draw_cursor_byte:
+ move.l a6,d0
+ and.l #7,d0 /* byte offs */
+ move.w #0x2002,d3
+
+ move.b (-8,a1,d0),d2
+ move.b d0,d1
+ add.b d0,d0
+ add.b d1,d0 /* d0 *= 3 (chars) */
+ add.b d0,d0
+ lea (7*2,a2,d0),a0
+ jsr load_prepare
+ jsr print_hex_preped
+
+ move.l a2,a0
+ add.w #31*2,a0
+ jsr load_prepare /* restore a0 */
+
+ jmp draw_chars_pre
+
+draw_cursor_word:
+ move.l a6,d0
+ and.l #7,d0 /* byte offs */
+ move.l d0,d1
+ lsr.b #1,d1 /* which word */
+ move.b d1,d2
+ lsl.b #2,d2
+ add.b d2,d1 /* num of chars to skip */
+ add.b d1,d1
+ move.w #0x2004,d3
+
+ move.w (-8,a1,d0),d2
+ lea (8*2,a2,d1),a0
+ jsr load_prepare
+ jsr print_hex_preped
+
+ move.l a2,a0
+ add.w #29*2,a0
+ jsr load_prepare /* restore a0 */
+
+ jmp draw_chars_pre
+
+
+#################### hedit #######################
+
+mode_edit_val:
+ btst.l #7,d6
+ bne mode_hedit_finish
+
+ /* read val to edit */
+ moveq.l #0,d5
+ mk_a6_addr d1
+ move.l d1,a0
+ btst.l #15,d7
+ bne 0f
+ move.b (a0),d5
+ lsl.l #8,d5
+ or.b #1,d5
+ bra 1f
+0:
+ move.w (a0),d5
+ lsl.l #8,d5
+ or.b #2,d5
+1:
+
+ change_mode MMODE_VAL_INPUT, MMODE_EDIT_VAL
+ jmp vbl_end
+
+mode_hedit_finish:
+ /* write the val */
+ mk_a6_addr d1
+ move.l d1,a0
+ lsr.l #8,d5
+
+ btst.l #15,d7
+ bne 0f
+ move.b d5,(a0)
+ bra 1f
+0:
+ move.w d5,(a0)
+1:
+
+ bra return_to_main
+
+##################### goto #######################
+
+mode_goto:
+ btst.l #7,d6
+ bne mode_goto_finish
+
+ moveq.l #0,d5
+ swap d6
+ move.w d6,d5
+ swap d6
+ swap d5
+ or.b #3,d5 /* 3 bytes */
+ bclr.l #7,d6
+ change_mode MMODE_VAL_INPUT, MMODE_GOTO
+ jmp vbl_end
+
+mode_goto_finish:
+ lsr.l #8,d5
+ move.l d5,d0
+ move.l d0,d1
+ and.l #7,d1
+ and.b #0xf8,d0
+ lsl.l #8,d0
+ or.l d1,d0
+ move.l d0,a6
+
+ lsr.l #8,d5
+ swap d6
+ move.w d5,d6
+ swap d6
+
+ bra return_to_main
+
+################### val edit #####################
+
+mode_val_input:
+ /* frame */
+ movea.l #0xe000+14*2+11*64*2,a1
+ moveq.l #6-1,d1
+0:
+ move.w a1,a0
+ jsr load_prepare
+ moveq.l #11-1,d0
+1:
+ move.w #0,(a0)
+ dbra d0,1b
+
+ add.w #64*2,a1
+ dbra d1,0b
+
+ /* text */
+ lea txt_edit,a0
+ move.l #15,d0
+ move.l #11,d1
+ move.l #0xc000,d2
+ jsr print
+
+ lea txt_a_confirm,a0
+ move.l #15,d0
+ move.l #15,d1
+ move.l #0xc000,d2
+ jsr print
+
+ /* edit field */
+ moveq.l #0,d0
+ moveq.l #0,d1
+ moveq.l #0,d3
+ move.b d5,d3
+ and.b #3,d3 /* edit field bytes */
+
+ move.b #19,d0
+ sub.b d3,d0
+ move.b #13,d1
+ move.l d5,d2
+ lsr.l #8,d2
+ add.b d3,d3
+ or.w #0x8000,d3
+ jsr print_hex
+
+ /* current char */
+ moveq.l #0,d0
+ moveq.l #0,d1
+
+ and.w #6,d3
+ move.b #19,d0
+ move.b d3,d1
+ lsr.b #1,d1 /* length in bytes */
+ sub.b d1,d0
+ move.b d5,d1
+ lsr.b #2,d1
+ and.b #7,d1 /* nibble to edit */
+ add.b d1,d0
+
+ sub.b d1,d3
+ sub.b #1,d3 /* chars to shift out */
+ lsl.b #2,d3
+ add.b #8,d3
+ move.l d5,d2
+ lsr.l d3,d2
+
+ move.b #13,d1
+ move.w #0xa001,d3
+ jsr print_hex
+
+ /* handle input */
+ jsr get_input /* x0cbrldu x1sa00du */
+
+ move.w d0,d1
+ and.w #0x0f00,d1
+ beq ai_no_dpad
+ move.b d5,d1
+ and.b #3,d1
+ add.b d1,d1 /* nibble count */
+ sub.b #1,d1 /* max n.t.e. val */
+ move.b d5,d2
+ lsr.b #2,d2
+ and.b #7,d2 /* nibble to edit */
+
+ move.b d0,d3
+ and.b #3,d3
+ beq ai_no_ud
+ moveq.l #0,d3
+ moveq.l #0,d4
+ move.b #0xf,d3
+ move.b #0x1,d4
+ sub.b d2,d1
+ lsl.b #2,d1
+ add.b #8,d1
+ lsl.l d1,d3 /* mask */
+ lsl.l d1,d4 /* what to add/sub */
+ move.l d5,d1
+ and.l d3,d1
+ btst.l #8,d0
+ beq 0f
+ add.l d4,d1
+ bra 1f
+0:
+ sub.l d4,d1
+1:
+ and.l d3,d1
+ eor.l #0xffffffff,d3
+ and.l d3,d5
+ or.l d1,d5
+ jmp vbl_end
+
+ai_no_ud:
btst.l #10,d0
- beq _in_nleft
- sub.l #0xd800,a6
+ bne 0f
+ add.b #1,d2
+ bra 1f
+0:
+ sub.b #1,d2
+1:
+ cmp.b #0,d2
+ bge 0f
+ move.b d1,d2
+0:
+ cmp.b d1,d2
+ ble 0f
+ move.b #0,d2
+0:
+ and.b #0xe3,d5
+ lsl.b #2,d2
+ or.b d2,d5
+ jmp vbl_end
+
+ai_no_dpad:
+ move.w d0,d1
+ and.w #0x1020,d1
+ beq ai_no_sb
+
+ bra return_to_main
+
+ai_no_sb:
+ btst.l #4,d0 /* A - confirm */
+ beq ai_no_input
+ bset.l #7,d6
+ move.w d7,d1 /* back to prev mode */
+ and.w #0x3800,d1
+ lsr.w #3,d1
+ and.w #0xc0ff,d7
+ or.w d1,d7
+
+ai_no_input:
+ jmp vbl_end
+
+
+################### start menu ###################
+
+mode_start_menu:
+ /* frame */
+ bsr start_menu_box
+
+ /* text */
+ menu_text txt_about, 13, 9, 1
+ menu_text txt_goto, 13, 11, 0
+ menu_text txt_goto_predef, 13, 12, 0
+ menu_text txt_dtack, 13, 13, 0
+ menu_text txt_a_confirm, 13, 15, 2
+
+ /* dtack safety on/off */
+ movea.l #0xe000+26*2+13*64*2,a0
+ jsr load_prepare
+ move.w #0x8000|'O',(a0)
+ btst.l #4,d6
+ bne 0f
+ move.w #0x8000|'N',(a0)
+ bra 1f
+0:
+ move.w #0x8000|'F',(a0)
+ move.w #0x8000|'F',(a0)
+1:
-_in_nleft:
- btst.b #11,d0
- beq _in_nright
- add.l #0xd800,a6
+ /* cursor */
+ movea.l #0xe000+11*2+11*64*2,a0
+ moveq.l #0,d0
+ move.b d5,d0
+ and.b #3,d0
+ lsl.w #7,d0
+ add.w d0,a0
+ jsr load_prepare
+ move.w #'>',(a0)
+
+ /* input */
+ jsr get_input /* x0cbrldu x1sa00du */
+
+ move.w d0,d1
+ and.w #3,d1
+ beq msm_no_ud
+ move.b d5,d1
+ and.b #3,d1
+ btst.l #0,d0
+ sne d2
+ or.b #1,d2 /* up -1, down 1 */
+ add.b d2,d1
+ cmp.b #0,d1
+ bge 0f
+ move.b #2,d1
+0:
+ cmp.b #2,d1
+ ble 0f
+ move.b #0,d1
+0:
+ and.b #0xfc,d5
+ or.b d1,d5
+ jmp vbl_end
+
+msm_no_ud:
+ btst.l #4,d0 /* A - confirm */
+ beq msm_no_a
+ move.b d5,d1
+ and.b #3,d1
+ bne 0f
+ change_mode MMODE_GOTO, MMODE_MAIN
+ bsr start_menu_box
+ jmp vbl_end
+0:
+ cmp.b #1,d1
+ bne 0f
+ moveq.l #0,d5
+ change_mode MMODE_GOTO_PREDEF, MMODE_MAIN
+ bsr start_menu_box
+ jmp vbl_end
+0:
+ cmp.b #2,d1
+ bne 0f
+ bchg.l #4,d6
+ jmp vbl_end
+0:
-_in_nright:
+msm_no_a:
+ move.w d0,d1
+ and.w #0x3000,d1
+ beq msm_no_bc
+ bra return_to_main
-end:
- movem.l (a7)+,d0-d7/a0-a5
- rte
+msm_no_bc:
+ jmp vbl_end
+
+start_menu_box:
+ movea.l #0xe000+10*2+8*64*2,a1
+ move.w #9-1,d1
+0:
+ move.w a1,a0
+ jsr load_prepare
+ move.w #20-1,d0
+1:
+ move.w #0,(a0)
+ dbra d0,1b
+
+ add.w #64*2,a1
+ dbra d1,0b
+ rts
+
+################### goto predef ##################
+
+mode_goto_predef:
+ /* frame */
+ movea.l #0xe000+14*2+8*64*2,a1
+ move.l #predef_addr_cnt+2-1,d1
+0:
+ move.w a1,a0
+ jsr load_prepare
+ moveq.l #10-1,d0
+1:
+ move.w #0,(a0)
+ dbra d0,1b
+
+ add.w #64*2,a1
+ dbra d1,0b
+
+ /* draw addresses */
+ movea.l #0xe000+17*2+9*64*2,a1
+ lea predef_addrs,a2
+ move.w #predef_addr_cnt-1,d4
+ move.l #0x8006,d3
+mgp_da_loop:
+ move.w a1,a0
+ jsr load_prepare
+ move.l (a2)+,d2
+ jsr print_hex_preped
+ add.w #64*2,a1
+ dbra d4,mgp_da_loop
+
+ /* cursor */
+ movea.l #0xe000+15*2+9*64*2,a0
+ moveq.l #0,d0
+ move.b d5,d0
+ lsl.w #7,d0
+ add.w d0,a0
+ jsr load_prepare
+ move.w #'>',(a0)
+
+ /* input */
+ jsr get_input /* x0cbrldu x1sa00du */
+
+ move.w d0,d1
+ and.w #3,d1
+ beq mgp_no_ud
+ btst.l #0,d0
+ sne d2
+ or.b #1,d2 /* up -1, down 1 */
+ add.b d2,d5
+ cmp.b #0,d5
+ bge 0f
+ move.b #predef_addr_cnt-1,d5
+0:
+ cmp.b #predef_addr_cnt-1,d5
+ ble 0f
+ move.b #0,d5
+0:
+ jmp vbl_end
+
+mgp_no_ud:
+ btst.l #4,d0 /* A - confirm */
+ beq mgp_no_a
+ moveq.l #0,d0
+ move.b d5,d0
+ lsl.w #2,d0
+ lea predef_addrs,a0
+ move.l (a0,d0),d5
+ lsl.l #8,d5
+ jmp mode_goto_finish
+
+mgp_no_a:
+ move.w d0,d1
+ and.w #0x3000,d1
+ beq mgp_no_bc
+ bra return_to_main
+
+mgp_no_bc:
+ jmp vbl_end
+
+
+# go back to main mode
+return_to_main:
+ bclr.l #7,d6 /* not edited */
+ change_mode MMODE_MAIN, MMODE_MAIN
+ write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320),(GFXCNTL)
+ jmp vbl_end
#################################################
rts
+# determine if address packed in a6 is safe
+# a1 - address to check
+# destroys d0-d2, strips upper bits from a1
+is_addr_safe:
+ move.l a1,d1
+ lsl.l #8,d1
+ lsr.l #8,d1
+ lea safe_addrs,a1
+ move.w #(safe_addrs_end - safe_addrs)/8-1,d2
+0:
+ move.l (a1)+,d0
+ cmp.l d0,d1
+ blt 1f
+ move.l (a1),d0
+ cmp.l d0,d1
+ ble addr_safe
+1:
+ addq.l #4,a1
+ dbra d2,0b
+
+addr_unsafe:
+ move.l d1,a1
+ moveq.l #0,d0
+ rts
+
+addr_safe:
+ move.l d1,a1
+ moveq.l #1,d0
+ rts
+
+
# read single phase from controller
-# a0 - addr
+# #a0 - addr
# d0 - result
+# destroys d1,d2
get_input:
move.b #0x40,(0xa10003)
nop
nop
move.b (0xa10003),d0
eor.w #0xffff,d0
-# move.b #0x40,(0xa10003)
+
+ swap d7
+ move.w d7,d1
+ eor.w d0,d1 /* changed btns */
+ move.w d0,d7 /* old val */
+ swap d7
+ and.w d0,d1 /* what changed now */
+ bne 0f
+
+ addq.b #1,d6
+ move.b d6,d2
+ and.b #0x0f,d2 /* do autorepeat */
+ cmp.b #9,d2
+ bne 1f
+ move.w d0,d1
+0:
+ and.b #0xf0,d6
+1:
+ swap d0
+ move.w d1,d0
rts
# Load tile data from ROM
rts
-# Prepare to write to VDP RAM @a3
+# Prepare to write to VDP RAM @a0
# sets a0 to VDP data port for convenience
# a0: VRAM base
# destroys d0
# a0 - string
# d0 - x
# d1 - y
+# d2 - tile_bits[15:11]
# destroys a1
print:
move.l a0,a1
XY2NT
jsr load_prepare
- moveq.l #0,d0
+ move.l d2,d0
+ and.w #0xf800,d0
_print_loop:
move.b (a1)+,d0
# d0 - x
# d1 - y
# d2 - value
-# d3 - digit cnt
-# destroys a0
+# d3 - tile_bits[15:11]|digit_cnt[7:0]
+# destroys a0, preserves d3
print_hex:
XY2NT
jsr load_prepare
print_hex_preped:
- move.l d3,d0
+ moveq.l #0,d0
+ move.b d3,d0
+ move.l d0,d1
lsl.b #2,d0
ror.l d0,d2 /* prep value */
- moveq.l #0,d0
- subq.l #1,d3 /* count */
+ subq.l #1,d1 /* count */
+ move.w d3,d0
+ and.w #0xf800,d0 /* keep upper bits in d0 */
_print_hex_loop:
rol.l #4,d2
move.b d2,d0
and.b #0xf,d0
- cmp.b #0xa,d0
- bge 1f
add.b #'0',d0
- jmp 2f
-1:
- add.b #0x37,d0
-2:
+ cmp.b #'9',d0
+ ble 0f
+ addq.b #7,d0
+0:
move.w d0,(a0)
- dbra d3,_print_hex_loop
+ dbra d1,_print_hex_loop
rts
#################################################
wait_vsync:
- movea.l #vtimer,a0
- move.l (a0),a1
+ move.b d7,d0
_wait_change:
stop #0x2000
- cmp.l (a0),a1
+ cmp.b d7,d0
beq _wait_change
rts
.bss
-# used by sega_gcc.s
-.globl htimer
-.globl vtimer
-.globl rand_num
-htimer: .long 0
-vtimer: .long 0
-rand_num: .long 0
-
-#
+# nothing :)
.end