notaz.gp2x.de / megadrive.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
hexed: refactor init code a bit
[megadrive.git] / hexed / hexed.s
CommitLineData
74d5977b 1###############################################################################
2#
f28eaaad 3# Copyright (c) 2009,2011 GraÅžvydas Ignotas
74d5977b 4# All rights reserved.
5#
6# Redistribution and use in source and binary forms, with or without
7# modification, are permitted provided that the following conditions are met:
8# * Redistributions of source code must retain the above copyright
9# notice, this list of conditions and the following disclaimer.
10# * Redistributions in binary form must reproduce the above copyright
11# notice, this list of conditions and the following disclaimer in the
12# documentation and/or other materials provided with the distribution.
13# * Neither the name of the organization nor the
14# names of its contributors may be used to endorse or promote products
15# derived from this software without specific prior written permission.
16#
f28eaaad 17# THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND ANY
74d5977b 18# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
19# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
f28eaaad 20# DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY
74d5977b 21# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
22# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
23# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
24# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
26# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27#
28# Assemble with gas
29# --register-prefix-optional --bitwise-or
30#
4db6e09f 31
ff17c043 32.equ USE_VINT, 0
33.equ COPY_TO_EXP, 1
34.equ RELOCATE_TO_RAM, 1
318e20ff 35
4db6e09f 36.text
37.globl main
d4279640 38.globl INT
1286a1ba 39.globl VBL
8689c962 40.globl return_to_main
4db6e09f 41
42##################################################
43# #
44# Register and bitmask definitions #
45# #
46##################################################
47
48.equ GFXDATA, 0xc00000
49.equ GFXCNTL, 0xc00004
50
51.equ VDP0_E_HBI, 0x10
52.equ VDP0_E_DISPLAY, 0x02
53.equ VDP0_PLTT_FULL, 0x04
54
55.equ VDP1_SMS_MODE, 0x80
56.equ VDP1_E_DISPLAY, 0x40
57.equ VDP1_E_VBI, 0x20
58.equ VDP1_E_DMA, 0x10
59.equ VDP1_NTSC, 0x00
60.equ VDP1_PAL, 0x08
d90ff128 61.equ VDP1_MODE5, 0x04
4db6e09f 62
fbad1b76 63.equ VDP12_STE, 0x08
4db6e09f 64.equ VDP12_SCREEN_V224, 0x00
65.equ VDP12_SCREEN_V448, 0x04
66.equ VDP12_PROGRESSIVE, 0x00
67.equ VDP12_INTERLACED, 0x02
68.equ VDP12_SCREEN_H256, 0x00
69.equ VDP12_SCREEN_H320, 0x81
70
71.equ VDP16_MAP_V32, 0x00
72.equ VDP16_MAP_V64, 0x10
73.equ VDP16_MAP_V128, 0x30
74.equ VDP16_MAP_H32, 0x00
75.equ VDP16_MAP_H64, 0x01
76.equ VDP16_MAP_H128, 0x03
77
4dfddc2f 78.equ MMODE_MAIN, 0
79.equ MMODE_VAL_INPUT, 1
80.equ MMODE_EDIT_VAL, 2
81.equ MMODE_GOTO, 3
27d5cc88 82.equ MMODE_START_MENU, 4
83.equ MMODE_GOTO_PREDEF, 5
d90ff128 84.equ MMODE_JMP_ADDR, 6
8689c962 85.equ MMODE_PC, 7
4db6e09f 86
27d5cc88 87.equ predef_addr_cnt, ((predef_addrs_end-predef_addrs)/4)
4db6e09f 88
89##################################################
90# #
91# MACROS #
92# #
93##################################################
94
95
27d5cc88 96# Write val to VDP register reg
97.macro write_vdp_r_dst reg val dst
98 move.w #((\reg << 8) + 0x8000 + \val),\dst
4db6e09f 99.endm
100
27d5cc88 101# Write val to VDP register reg, vdp addr in a3
102.macro write_vdp_reg reg val
103 write_vdp_r_dst \reg, \val, (a3)
104.endm
4db6e09f 105
d90ff128 106# Set up address in VDP, control port in dst
107.macro VRAM_ADDR adr dst
80560599 108 move.l #(0x40000000 | ((\adr & 0x3fff) << 16) | (\adr >> 14)),\dst
109.endm
110
111.macro VSRAM_ADDR adr dst
112 move.l #(0x40000010 | ((\adr & 0x3fff) << 16) | (\adr >> 14)),\dst
0fc4f06b 113.endm
114
115
116# make VDP word from address adr and store in d0
117.macro XRAM_ADDR_var adr
570c4371 118 move.l \adr,d0
0fc4f06b 119 lsl.l #8,d0
120 lsl.l #8,d0
121 rol.l #2,d0
122 lsl.b #2,d0
123 lsr.l #2,d0
4db6e09f 124.endm
125
126
0fc4f06b 127.macro VRAM_ADDR_var adr
128 XRAM_ADDR_var \adr
129 or.l #0x40000000,d0
4db6e09f 130.endm
131
132
0fc4f06b 133.macro CRAM_ADDR_var adr
134 XRAM_ADDR_var \adr
135 or.l #0xc0000000,d0
4db6e09f 136.endm
137
138
1286a1ba 139# convert tile coords in d0, d1 to nametable addr to a0
140.macro XY2NT
141 lsl.w #6,d1
142 add.w d1,d0
143 lsl.w #1,d0
144 movea.l #0xe000,a0
145 add.w d0,a0
146.endm
147
4276cd7a 148# check if some d-pad button (and modifier) is pressed
fbad1b76 149.macro do_dpad bit op val
150 btst.l #\bit,d0
151 beq 0f
152 \op.l \val,a6
153 bra dpad_end
4276cd7a 1540:
4276cd7a 155.endm
156
4dfddc2f 157# convert a6 to normal addr
158# destroys d0
159.macro mk_a6_addr reg
160 move.l a6,\reg
161 moveq.l #0,d0
162 move.b \reg,d0
163 lsr.l #8,\reg
164 add.l d0,\reg
165.endm
166
167.macro change_mode mode_new mode_back
168 and.w #0xc0ff,d7
169 or.w #(\mode_back<<11)|(\mode_new<<8),d7
170.endm
171
80560599 172# destroys a0,d0-d2
27d5cc88 173.macro menu_text str x y pal
318e20ff 174 lea (\str,pc),a0
27d5cc88 175 move.l #\x,d0
176 move.l #\y,d1
177 move.l #0x8000|(\pal<<13),d2
178 jsr print
179.endm
180
4db6e09f 181#################################################
182# #
183# DATA #
184# #
185#################################################
186
187colors:
4276cd7a 188 dc.w 0x0000,0x0eee,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
189 dc.w 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
190 dc.w 0x0000,0x02e2,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
191 dc.w 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
192 dc.w 0x0000,0x0e44,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
193 dc.w 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
d4279640 194 dc.w 0x0000,0x044e,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
195 dc.w 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
570c4371 196colors_end:
197
4db6e09f 198
199sprite_data:
200 /* Y size link attr X */
570c4371 201 dc.w 0; dc.b 0x05; dc.b 0; dc.w 0x6002; dc.w 0
4db6e09f 202sprite_data_end:
203
27d5cc88 204predef_addrs:
205 dc.l 0x000000, 0x200000, 0x400000, 0xa00000, 0xa10000
d4279640 206 dc.l 0xa11100, 0xa12000, 0xa13000, 0xa14000, 0xc00000
27d5cc88 207predef_addrs_end:
208
209safe_addrs:
210 dc.l 0x000000, 0x7fffff
211 dc.l 0xe00000, 0xffffff
d4279640 212 dc.l 0xa00000, 0xa100ff
213 dc.l 0xa11000, 0xa113ff
214 dc.l 0xa12000, 0xa120ff
215 dc.l 0xa13000, 0xa130ff
27d5cc88 216safe_addrs_end:
217
6f93f411 218sizeof_bin:
219 dc.l _edata
220
4dfddc2f 221txt_edit:
222 .ascii "- edit -\0"
223txt_a_confirm:
224 .ascii "A-confirm\0"
27d5cc88 225txt_about:
318e20ff 226 .ascii "hexed r2\0"
27d5cc88 227txt_goto:
228 .ascii "Go to address\0"
229txt_goto_predef:
230 .ascii "Go to (predef)\0"
d90ff128 231txt_jmp_addr:
232 .ascii "Jump to address\0"
80560599 233txt_dump:
8689c962 234 .ascii "PC Transfer\0"
27d5cc88 235txt_dtack:
236 .ascii "DTACK safety\0"
8689c962 237txt_transfer_ready:
238 .ascii "Transfer Ready\0"
80560599 239txt_working:
8689c962 240 .ascii "PC mode \0"
d4279640 241txt_dtack_err:
242 .ascii "DTACK err?\0"
243txt_exc:
244 .ascii "Exception \0"
4dfddc2f 245
4db6e09f 246##################################################
247# #
248# MAIN PROGRAM #
249# #
250##################################################
27d5cc88 251
252# global regs:
253# a6 = page_start[31:8]|cursor_offs[7:0]
254# d7 = old_inputs[31:16]|edit_bytes[15:14]|g_mode_old[13:11]|g_mode[10:8]|irq_cnt[7:0]
255# d6 = edit_word_save[31:15]|edit_done[7]|no_dtack_detect[4]|autorep_cnt[3:0]
256# d5 = main: tmp
257# edit: edit_word[31:8]|edit_pos[4:2]|byte_cnt[1:0]
258# menu: sel
259
570c4371 260.align 2
261
4db6e09f 262main:
8689c962 263 /* make sure io port 2 is doing inputs */
264 move.b #0,(0xa1000b).l
8682b7ce 265 /* make sure irqs are masked */
1286a1ba 266 move.w #0x2700,sr
8682b7ce 267 /* take care of TMSS */
268 move.b (0xa10000).l,d0
269 andi.b #0x0f,d0
270 beq no_tmss
271 move.l #0x53454741,(0xa14000).l
272 /* want cart, not OS rom if cart pops in */
273 move.w #1,(0xa14100).l
274 /* touch VDP after TMSS setup? */
275 tst.w (0xc00004).l
276no_tmss:
1286a1ba 277
ff17c043 278.if COPY_TO_EXP
80560599 279 /* copy to expansion device if magic number is set */
280 move.l #0x400000,a1
281 cmp.w #0x1234,(a1)
27d5cc88 282 bne 0f
283
80560599 284 move.l #0,a0
6f93f411 285 move.l (sizeof_bin,pc),d0
286 lsr.l #3,d0
80560599 2871:
288 move.l (a0)+,(a1)+
289 move.l (a0)+,(a1)+
290 dbra d0,1b
2910:
292.endif
293
294.if RELOCATE_TO_RAM
ff17c043 295 /* we could be relocated by 32x or something else, adjust start addr */
296 lea (pc),a0
297 move.l a0,d0
298 and.l #0xff0000,d0
299 move.l d0,a0
300
80560599 301 /* copy, assume 8K size */
318e20ff 302 move.l #0xFF0100,a1
6f93f411 303 move.l (sizeof_bin,pc),d0
304 lsr.l #3,d0
27d5cc88 3051:
318e20ff 306 move.l (a0)+,(a1)+
307 move.l (a0)+,(a1)+
27d5cc88 308 dbra d0,1b
80560599 309
ff17c043 310 /* copy test code */
311 lea (test_code,pc),a0
312 move.l #0xffc000,a1
313 move.w #(test_code_end - test_code)/2-1,d0
3141:
315 move.w (a0)+,(a1)+
316 dbra d0,1b
317
318e20ff 318 lea (0f,pc),a0
ff17c043 319 move.l a0,d0
320 and.l #0x00ffff,d0
321 add.l #0xFF0100,d0
322 move.l d0,a0
323
324 /* patch test code */
325 move.l #0xffc000,a1
326 add.w #(test_code_ret_op-test_code+2),a1
327 move.l a0,(a1)
328
318e20ff 329 jmp (a0)
27d5cc88 3300:
331.endif
332
1286a1ba 333 movea.l #0,a6
4dfddc2f 334 move.l #0x8000,d7
fbad1b76 335 moveq.l #0,d6
1286a1ba 336
337 /* Init pads */
338 move.b #0x40,(0xa10009).l
339 move.b #0x40,(0xa10003).l
340
4db6e09f 341 /* Initialize VDP */
342 jsr init_gfx
343
80560599 344 /* Clear h/v scroll */
345 movea.l #GFXDATA,a0
346 VRAM_ADDR 0x8000,(GFXCNTL)
347 move.l #0,(a0)
348 VSRAM_ADDR 0,(GFXCNTL)
349 move.l #0,(a0)
350
4db6e09f 351 /* Load color data */
0fc4f06b 352 movea.l #0,a0
318e20ff 353 lea (colors,pc),a1
0fc4f06b 354 moveq.l #(colors_end-colors)/2,d0
4db6e09f 355 jsr load_colors
356
d90ff128 357 /* load font patterns */
318e20ff 358 movea.l #GFXDATA,a0
359 lea (font,pc),a1
d90ff128 360 VRAM_ADDR 0,(GFXCNTL)
361 move.w #128*8,d3
362font_loop:
363 moveq.l #8-1,d2
364 moveq.l #0,d1
365 move.b (a1)+,d0
3660:
367 lsr.b #1,d0
368 roxl.l #1,d1
369 ror.l #5,d1
370 dbra d2,0b
371
372 rol.l #1,d1 /* fixup */
373 move.l d1,(a0)
374 dbra d3,font_loop
4db6e09f 375
376 /* generate A layer map */
1286a1ba 377 movea.l #0xe000,a1
4db6e09f 378 move.l #28-1,d4
379lmaploop0:
1286a1ba 380 movea.l a1,a0
4db6e09f 381 jsr load_prepare
382
570c4371 383 move.l #64/2-1,d3
0fc4f06b 3840: move.l #0x00000000,(a0)
4db6e09f 385 dbra d3,0b
386
1286a1ba 387 add.l #64*2,a1
4db6e09f 388 dbra d4,lmaploop0
389
390 /* generate B layer map */
0fc4f06b 391 movea.l #0xc000,a0
4db6e09f 392 jsr load_prepare
393
570c4371 394 move.l #64*28/2-1,d3
0fc4f06b 3950: move.l #0x00000000,(a0)
4db6e09f 396 dbra d3,0b
397
398 /* upload sprite data */
0fc4f06b 399 movea.l #0xfc00,a0
4db6e09f 400 jsr load_prepare
318e20ff 401 lea (sprite_data,pc),a1
4db6e09f 402
403 move.l #(sprite_data_end-sprite_data)/2-1,d3
0fc4f06b 4040: move.l (a1)+,(a0)
4db6e09f 405 dbra d3,0b
406
318e20ff 407.if USE_VINT
d4279640 408 /* wait for vsync before unmask */
318e20ff 409 jsr wait_vsync_poll
d4279640 410
74d5977b 411 /* wait a bit to avoid nested vint */
412 move.w #20,d0
4130:
414 dbra d0,0b /* 10 cycles to go back */
415
318e20ff 416 /* enable and unmask vint */
417 write_vdp_r_dst 1,(VDP1_E_VBI | VDP1_E_DISPLAY | VDP1_MODE5),(GFXCNTL)
74d5977b 418 move.w #0x2000,sr
318e20ff 419.endif
570c4371 420
4db6e09f 421##################################################
1286a1ba 422
4db6e09f 423forever:
318e20ff 424.if USE_VINT
4db6e09f 425 jsr wait_vsync
318e20ff 426.else
427 jsr wait_vsync_poll
428 jsr VBL
429.endif
4db6e09f 430 bra forever
4db6e09f 431
432
d4279640 433INT:
434 /* let's hope VRAM is already set up.. */
318e20ff 435 lea (txt_exc,pc),a0
d4279640 436 move.l #9,d0
437 move.l #27,d1
438 move.l #0xe000,d2
439 jsr print
440 bra forever
441
442##################################################
443
1286a1ba 444VBL:
fbad1b76 445 addq.b #1,d7
d90ff128 446# movem.l d0-d4/a0-a5,-(a7)
1286a1ba 447
8689c962 448 btst.b #5,(0xa10005).l
449 bne no_auto_transfer
450 change_mode MMODE_PC, MMODE_MAIN
451 write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320 | VDP12_STE),(GFXCNTL)
452
453no_auto_transfer:
fbad1b76 454 moveq.l #0,d0
455 move.w d7,d0
456 lsr.w #6,d0
457 and.w #0x1c,d0
318e20ff 458 lea (jumptab,pc,d0),a0
fbad1b76 459 jmp (a0)
460jumptab:
272bd2ec 461 /* branch insns here because we want to be position independent */
318e20ff 462 bra mode_main
463 bra mode_val_input
464 bra mode_edit_val /* edit val in editor */
465 bra mode_goto
466 bra mode_start_menu
467 bra mode_goto_predef
468 bra mode_jmp_addr
80560599 469 bra mode_transfer
fbad1b76 470
471##################### main #######################
472
473mode_main:
d4279640 474 /* assume we will hang */
318e20ff 475 lea (txt_dtack_err,pc),a0
d4279640 476 move.l #9,d0
477 move.l #27,d1
478 move.l #0xe000,d2
479 jsr print
480
481 moveq.l #0,d1
1286a1ba 482 move.l a6,d0
4276cd7a 483 move.b d0,d1
1286a1ba 484 lsr.l #8,d0
485 move.l d0,a1 /* current addr */
4276cd7a 486 lsr.b #3,d1
487 neg.b d1
488 add.b #27-1,d1 /* line where the cursor sits */
489 swap d1
1286a1ba 490
27d5cc88 491 movea.l #0xe002,a2
4276cd7a 492 move.l #27-1,d5 /* line counter for dbra */
493 or.l d1,d5
1286a1ba 494
27d5cc88 495draw_row:
1286a1ba 496 move.l a2,a0
497 jsr load_prepare
498
27d5cc88 499 btst.l #15,d7
500 beq 0f
501 move.w #' ',(a0)
5020:
1286a1ba 503 /* addr */
504 move.l a1,d2
505 moveq.l #6,d3
506 jsr print_hex_preped
507
27d5cc88 508 btst.l #4,d6
509 bne draw_row_safe
510
d4279640 511 bsr get_safety_mask
512 cmp.b #0xf,d0
513 beq draw_row_safe
27d5cc88 514
d4279640 515# unsafe or partially safe
516draw_row_hsafe:
517 move.l d0,d4
518 swap d4 /* mask in upper word */
27d5cc88 519 btst.l #15,d7
d4279640 520 bne draw_row_hsafe_words_pre
27d5cc88 521
d4279640 522draw_row_hsafe_bytes_pre:
27d5cc88 523 /* 8 bytes */
d4279640 524 moveq.l #2,d3
525 move.w #3,d4
526
527draw_row_hsafe_bytes:
27d5cc88 528 move.w #' ',(a0)
d4279640 529 move.b d4,d0
530 add.b #16,d0
531 btst.l d0,d4
532 bne 0f
27d5cc88 533 move.l #'?'|('?'<<16),(a0)
d4279640 534 move.w #' ',(a0)
535 move.l #'?'|('?'<<16),(a0)
536 bra 1f
5370:
538 move.b (0,a1),d2
539 jsr print_hex_preped
540 move.w #' ',(a0)
541 move.b (1,a1),d2
542 jsr print_hex_preped
5431:
544 addq.l #2,a1
545 dbra d4,draw_row_hsafe_bytes
27d5cc88 546
547 move.w #' ',(a0)
548
549 move.l d5,d0
550 swap d0
551 cmp.w d5,d0
552 beq draw_cursor_unsafe_byte
d4279640 553 bra draw_chars_hsafe_pre
27d5cc88 554
d4279640 555draw_row_hsafe_words_pre:
27d5cc88 556 /* 4 shorts */
d4279640 557 moveq.l #4,d3
558 move.w #3,d4
559
560draw_row_hsafe_words:
27d5cc88 561 move.w #' ',(a0)
d4279640 562 move.b d4,d0
563 add.b #16,d0
564 btst.l d0,d4
565 bne 0f
27d5cc88 566 move.l #'?'|('?'<<16),(a0)
567 move.l #'?'|('?'<<16),(a0)
d4279640 568 bra 1f
5690:
570 move.w (a1),d2
571 jsr print_hex_preped
5721:
573 addq.l #2,a1
574 dbra d4,draw_row_hsafe_words
27d5cc88 575
576 move.l #(' '<<16)|' ',(a0)
577
578 move.l d5,d0
579 swap d0
580 cmp.w d5,d0
581 beq draw_cursor_unsafe_word
582
d4279640 583draw_chars_hsafe_pre:
584 subq.l #8,a1
585 move.w #3,d4
586 moveq.l #0,d0
587
588draw_chars_hsafe:
589 move.b d4,d0
590 add.b #16,d0
591 btst.l d0,d4
592 bne 0f
27d5cc88 593 move.l #'?'|('?'<<16),(a0)
d4279640 594 bra draw_chars_hsafe_next
5950:
596 btst.l #15,d7 /* must perform correct read type */
597 bne 0f /* doing byte reads on security reg hangs */
598 move.b (0,a1),d0
599 lsl.l #8,d0
600 move.b (1,a1),d0
601 bra 1f
6020:
603 move.w (a1),d0
6041:
605 ror.l #8,d0
606 move.b d0,d1
607 sub.b #0x20,d1
608 cmp.b #0x60,d1
609 blo 0f
610 move.b #'.',d0
6110:
612 move.w d0,(a0)
613
614 move.b #0,d0
615 rol.l #8,d0
616 move.b d0,d1
617 sub.b #0x20,d1
618 cmp.b #0x60,d1
619 blo 0f
620 move.b #'.',d0
6210:
622 move.w d0,(a0)
623
624draw_chars_hsafe_next:
625 addq.l #2,a1
626 dbra d4,draw_chars_hsafe
27d5cc88 627
628 move.l #(' '<<16)|' ',(a0)
27d5cc88 629 add.w #0x80,a2
630 dbra d5,draw_row
631 bra draw_status_bar
632
633
634# normal draw
635draw_row_safe:
636 btst.l #15,d7
637 bne draw_row_words
638
639draw_row_bytes:
640 /* 8 bytes */
641 moveq.l #2,d3
642 moveq.l #8-1,d4
643draw_bytes:
644 move.w #' ',(a0)
645 move.b (a1)+,d2
646 jsr print_hex_preped
647 dbra d4,draw_bytes
648
649 move.w #' ',(a0)
650
651 move.l d5,d0
652 swap d0
653 cmp.w d5,d0
654 beq draw_cursor_byte
655 bra draw_chars_pre
656
657draw_row_words:
1286a1ba 658 /* 4 shorts */
4276cd7a 659 moveq.l #4,d3
1286a1ba 660 moveq.l #4-1,d4
27d5cc88 661draw_words:
1286a1ba 662 move.w #' ',(a0)
663 move.w (a1)+,d2
1286a1ba 664 jsr print_hex_preped
27d5cc88 665 dbra d4,draw_words
666
667 move.l #(' '<<16)|' ',(a0)
1286a1ba 668
4276cd7a 669 move.l d5,d0
670 swap d0
671 cmp.w d5,d0
27d5cc88 672 beq draw_cursor_word
4276cd7a 673
674draw_chars_pre:
1286a1ba 675 /* 8 chars */
676 subq.l #8,a1
677 moveq.l #8-1,d4
678draw_chars:
679 move.b (a1)+,d0
680 move.b d0,d1
681 sub.b #0x20,d1
682 cmp.b #0x60,d1
683 blo 0f
684 move.w #'.',d0
6850:
686 move.w d0,(a0)
687 dbra d4,draw_chars
688
27d5cc88 689 move.l #(' '<<16)|' ',(a0)
690
1286a1ba 691 add.w #0x80,a2
27d5cc88 692 dbra d5,draw_row
1286a1ba 693
d4279640 694
27d5cc88 695draw_status_bar:
4276cd7a 696 /* status bar */
27d5cc88 697 move.l a2,a0
4276cd7a 698 jsr load_prepare
27d5cc88 699
700 btst.l #15,d7
701 beq 0f
702 move.w #' ',(a0)
7030:
4dfddc2f 704 mk_a6_addr d2
4276cd7a 705 move.l #0x4006,d3
706 jsr print_hex_preped
d4279640 707
708 /* clear error */
709 moveq.l #5-1,d0
7100:
711 move.l #' '|(' '<<16),(a0)
712 move.l #' '|(' '<<16),(a0)
713 dbra d0,0b
714
4276cd7a 715
1286a1ba 716 /* handle input */
717 jsr get_input /* x0cbrldu x1sa00du */
1286a1ba 718
fbad1b76 719 btst.l #16+4,d0 /* A - scroll modifier */
720 beq input_noa
721
722 do_dpad 16+0, sub, #0x0800
723 do_dpad 16+1, add, #0x0800
724 do_dpad 16+10, sub, #0xd800
725 do_dpad 16+11, add, #0xd800
726input_noa:
727 moveq.l #0,d1
4dfddc2f 728 move.w d7,d1
729 lsr.w #7,d1
730 lsr.w #7,d1
fbad1b76 731
732 do_dpad 0, subq, #0x0008
733 do_dpad 1, addq, #0x0008
734 do_dpad 10, sub, d1
735 do_dpad 11, add, d1
736
737dpad_end:
4dfddc2f 738 /* update addr */
739 move.l a6,d1
740 cmp.b #0xf0,d1
741 blo 0f
742 sub.l #0xd800,a6
743 add.w #0x00d8,a6
744 bra 1f
7450:
746 cmp.b #0xd8,d1
747 blo 1f
748 add.l #0xd800,a6
749 sub.w #0x00d8,a6
7501:
751
752 /* other btns */
fbad1b76 753 moveq.l #0,d1
754 btst.l #12,d0 /* B - switch byte/word mode */
755 beq input_nob
4dfddc2f 756 bclr.l #15,d7
757 add.w #0x4000,d7 /* changes between 01 10 */
fbad1b76 758 move.l a6,d1
759 and.l #1,d1
760 sub.l d1,a6 /* make even, just in case */
761
762input_nob:
763 btst.l #13,d0 /* C - edit selected byte */
764 beq input_noc
4dfddc2f 765
766 change_mode MMODE_EDIT_VAL, MMODE_MAIN
27d5cc88 767 write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320 | VDP12_STE),(GFXCNTL)
fbad1b76 768
769input_noc:
27d5cc88 770 btst.l #5,d0 /* Start - menu */
4dfddc2f 771 beq input_nos
772
27d5cc88 773 moveq.l #0,d5
774 change_mode MMODE_START_MENU, MMODE_MAIN
775 write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320 | VDP12_STE),(GFXCNTL)
1286a1ba 776
4dfddc2f 777input_nos:
fbad1b76 778vbl_end:
d90ff128 779# movem.l (a7)+,d0-d4/a0-a5
318e20ff 780.if USE_VINT
1286a1ba 781 rte
318e20ff 782.else
783 rts
784.endif
1286a1ba 785
786
27d5cc88 787draw_cursor_unsafe_byte:
788 move.l a6,d0
789 and.l #7,d0 /* byte offs */
790 move.b d0,d1
791 add.b d0,d0
792 add.b d1,d0 /* d0 *= 3 (chars) */
793 add.b d0,d0
794 lea (7*2,a2,d0),a0
795 jsr load_prepare
796 move.l #(0x2000|'?'|((0x2000|'?')<<16)),(a0)
797
798 move.l a2,a0
799 add.w #31*2,a0
800 jsr load_prepare /* restore a0 */
318e20ff 801 bra draw_chars_hsafe_pre
27d5cc88 802
803draw_cursor_unsafe_word:
4276cd7a 804 move.l a6,d0
805 and.l #7,d0 /* byte offs */
806 move.l d0,d1
807 lsr.b #1,d1 /* which word */
808 move.b d1,d2
809 lsl.b #2,d2
810 add.b d2,d1 /* num of chars to skip */
27d5cc88 811 add.b d1,d1
812
813 lea (8*2,a2,d1),a0
814 jsr load_prepare
815 move.l #(0x2000|'?'|((0x2000|'?')<<16)),d0
816 move.l d0,(a0)
817 move.l d0,(a0)
818
819 move.l a2,a0
820 add.w #29*2,a0
821 jsr load_prepare /* restore a0 */
318e20ff 822 bra draw_chars_hsafe_pre
4276cd7a 823
4276cd7a 824
fbad1b76 825draw_cursor_byte:
27d5cc88 826 move.l a6,d0
827 and.l #7,d0 /* byte offs */
828 move.w #0x2002,d3
829
fbad1b76 830 move.b (-8,a1,d0),d2
27d5cc88 831 move.b d0,d1
832 add.b d0,d0
833 add.b d1,d0 /* d0 *= 3 (chars) */
834 add.b d0,d0
835 lea (7*2,a2,d0),a0
836 jsr load_prepare
837 jsr print_hex_preped
838
839 move.l a2,a0
840 add.w #31*2,a0
841 jsr load_prepare /* restore a0 */
842
318e20ff 843 bra draw_chars_pre
fbad1b76 844
845draw_cursor_word:
27d5cc88 846 move.l a6,d0
847 and.l #7,d0 /* byte offs */
848 move.l d0,d1
849 lsr.b #1,d1 /* which word */
850 move.b d1,d2
851 lsl.b #2,d2
852 add.b d2,d1 /* num of chars to skip */
853 add.b d1,d1
854 move.w #0x2004,d3
855
fbad1b76 856 move.w (-8,a1,d0),d2
27d5cc88 857 lea (8*2,a2,d1),a0
4276cd7a 858 jsr load_prepare
4276cd7a 859 jsr print_hex_preped
860
861 move.l a2,a0
27d5cc88 862 add.w #29*2,a0
4276cd7a 863 jsr load_prepare /* restore a0 */
864
318e20ff 865 bra draw_chars_pre
4276cd7a 866
867
4dfddc2f 868#################### hedit #######################
869
870mode_edit_val:
871 btst.l #7,d6
872 bne mode_hedit_finish
873
874 /* read val to edit */
5f6473d9 875 moveq.l #0,d5
4dfddc2f 876 mk_a6_addr d1
877 move.l d1,a0
4dfddc2f 878 btst.l #15,d7
879 bne 0f
5f6473d9 880 move.b (a0),d5
881 lsl.l #8,d5
882 or.b #1,d5
4dfddc2f 883 bra 1f
8840:
5f6473d9 885 move.w (a0),d5
886 lsl.l #8,d5
887 or.b #2,d5
4dfddc2f 8881:
4dfddc2f 889
4dfddc2f 890 change_mode MMODE_VAL_INPUT, MMODE_EDIT_VAL
318e20ff 891 bra vbl_end
4dfddc2f 892
893mode_hedit_finish:
894 /* write the val */
895 mk_a6_addr d1
896 move.l d1,a0
5f6473d9 897 lsr.l #8,d5
4dfddc2f 898
899 btst.l #15,d7
900 bne 0f
5f6473d9 901 move.b d5,(a0)
4dfddc2f 902 bra 1f
9030:
5f6473d9 904 move.w d5,(a0)
4dfddc2f 9051:
906
4dfddc2f 907 bra return_to_main
908
909##################### goto #######################
910
911mode_goto:
912 btst.l #7,d6
913 bne mode_goto_finish
fbad1b76 914
5f6473d9 915 moveq.l #0,d5
916 swap d6
917 move.w d6,d5
918 swap d6
919 swap d5
920 or.b #3,d5 /* 3 bytes */
4dfddc2f 921 bclr.l #7,d6
922 change_mode MMODE_VAL_INPUT, MMODE_GOTO
318e20ff 923 bra vbl_end
4dfddc2f 924
925mode_goto_finish:
5f6473d9 926 lsr.l #8,d5
927 move.l d5,d0
4dfddc2f 928 move.l d0,d1
929 and.l #7,d1
930 and.b #0xf8,d0
931 lsl.l #8,d0
932 or.l d1,d0
933 move.l d0,a6
934
5f6473d9 935 lsr.l #8,d5
936 swap d6
937 move.w d5,d6
938 swap d6
939
4dfddc2f 940 bra return_to_main
941
942################### val edit #####################
943
944mode_val_input:
945 /* frame */
946 movea.l #0xe000+14*2+11*64*2,a1
947 moveq.l #6-1,d1
9480:
949 move.w a1,a0
950 jsr load_prepare
951 moveq.l #11-1,d0
9521:
953 move.w #0,(a0)
954 dbra d0,1b
955
956 add.w #64*2,a1
957 dbra d1,0b
958
959 /* text */
318e20ff 960 lea (txt_edit,pc),a0
4dfddc2f 961 move.l #15,d0
962 move.l #11,d1
963 move.l #0xc000,d2
964 jsr print
965
318e20ff 966 lea (txt_a_confirm,pc),a0
4dfddc2f 967 move.l #15,d0
968 move.l #15,d1
969 move.l #0xc000,d2
970 jsr print
971
972 /* edit field */
973 moveq.l #0,d0
974 moveq.l #0,d1
975 moveq.l #0,d3
5f6473d9 976 move.b d5,d3
977 and.b #3,d3 /* edit field bytes */
4dfddc2f 978
979 move.b #19,d0
980 sub.b d3,d0
981 move.b #13,d1
5f6473d9 982 move.l d5,d2
4dfddc2f 983 lsr.l #8,d2
984 add.b d3,d3
985 or.w #0x8000,d3
986 jsr print_hex
987
988 /* current char */
989 moveq.l #0,d0
990 moveq.l #0,d1
991
992 and.w #6,d3
993 move.b #19,d0
994 move.b d3,d1
995 lsr.b #1,d1 /* length in bytes */
996 sub.b d1,d0
5f6473d9 997 move.b d5,d1
998 lsr.b #2,d1
4dfddc2f 999 and.b #7,d1 /* nibble to edit */
1000 add.b d1,d0
1001
1002 sub.b d1,d3
1003 sub.b #1,d3 /* chars to shift out */
1004 lsl.b #2,d3
1005 add.b #8,d3
5f6473d9 1006 move.l d5,d2
4dfddc2f 1007 lsr.l d3,d2
1008
1009 move.b #13,d1
1010 move.w #0xa001,d3
1011 jsr print_hex
1012
1013 /* handle input */
1014 jsr get_input /* x0cbrldu x1sa00du */
1015
1016 move.w d0,d1
1017 and.w #0x0f00,d1
1018 beq ai_no_dpad
5f6473d9 1019 move.b d5,d1
1020 and.b #3,d1
4dfddc2f 1021 add.b d1,d1 /* nibble count */
1022 sub.b #1,d1 /* max n.t.e. val */
5f6473d9 1023 move.b d5,d2
1024 lsr.b #2,d2
4dfddc2f 1025 and.b #7,d2 /* nibble to edit */
1026
1027 move.b d0,d3
1028 and.b #3,d3
1029 beq ai_no_ud
1030 moveq.l #0,d3
1031 moveq.l #0,d4
1032 move.b #0xf,d3
1033 move.b #0x1,d4
1034 sub.b d2,d1
1035 lsl.b #2,d1
1036 add.b #8,d1
1037 lsl.l d1,d3 /* mask */
1038 lsl.l d1,d4 /* what to add/sub */
5f6473d9 1039 move.l d5,d1
4dfddc2f 1040 and.l d3,d1
1041 btst.l #8,d0
1042 beq 0f
1043 add.l d4,d1
1044 bra 1f
10450:
1046 sub.l d4,d1
10471:
1048 and.l d3,d1
1049 eor.l #0xffffffff,d3
5f6473d9 1050 and.l d3,d5
1051 or.l d1,d5
318e20ff 1052 bra vbl_end
4dfddc2f 1053
1054ai_no_ud:
1055 btst.l #10,d0
1056 bne 0f
1057 add.b #1,d2
1058 bra 1f
10590:
1060 sub.b #1,d2
10611:
1062 cmp.b #0,d2
1063 bge 0f
1064 move.b d1,d2
10650:
1066 cmp.b d1,d2
1067 ble 0f
1068 move.b #0,d2
10690:
5f6473d9 1070 and.b #0xe3,d5
1071 lsl.b #2,d2
1072 or.b d2,d5
318e20ff 1073 bra vbl_end
4dfddc2f 1074
1075ai_no_dpad:
1076 move.w d0,d1
1077 and.w #0x1020,d1
1078 beq ai_no_sb
1079
4dfddc2f 1080 bra return_to_main
1081
1082ai_no_sb:
5f6473d9 1083 btst.l #4,d0 /* A - confirm */
4dfddc2f 1084 beq ai_no_input
1085 bset.l #7,d6
5f6473d9 1086 move.w d7,d1 /* back to prev mode */
4dfddc2f 1087 and.w #0x3800,d1
1088 lsr.w #3,d1
1089 and.w #0xc0ff,d7
1090 or.w d1,d7
1091
1092ai_no_input:
318e20ff 1093 bra vbl_end
4dfddc2f 1094
1095
27d5cc88 1096################### start menu ###################
1097
1098mode_start_menu:
1099 /* frame */
1100 bsr start_menu_box
1101
1102 /* text */
1103 menu_text txt_about, 13, 9, 1
1104 menu_text txt_goto, 13, 11, 0
1105 menu_text txt_goto_predef, 13, 12, 0
d90ff128 1106 menu_text txt_jmp_addr, 13, 13, 0
80560599 1107 menu_text txt_dump, 13, 14, 0
1108 menu_text txt_dtack, 13, 15, 0
1109 menu_text txt_a_confirm, 13, 17, 2
27d5cc88 1110
1111 /* dtack safety on/off */
80560599 1112 movea.l #0xe000+26*2+15*64*2,a0
27d5cc88 1113 jsr load_prepare
1114 move.w #0x8000|'O',(a0)
1115 btst.l #4,d6
1116 bne 0f
1117 move.w #0x8000|'N',(a0)
1118 bra 1f
11190:
1120 move.w #0x8000|'F',(a0)
1121 move.w #0x8000|'F',(a0)
11221:
1123
1124 /* cursor */
1125 movea.l #0xe000+11*2+11*64*2,a0
1126 moveq.l #0,d0
1127 move.b d5,d0
80560599 1128 and.b #7,d0
27d5cc88 1129 lsl.w #7,d0
1130 add.w d0,a0
1131 jsr load_prepare
1132 move.w #'>',(a0)
1133
1134 /* input */
1135 jsr get_input /* x0cbrldu x1sa00du */
1136
1137 move.w d0,d1
1138 and.w #3,d1
1139 beq msm_no_ud
1140 move.b d5,d1
80560599 1141 and.b #7,d1
27d5cc88 1142 btst.l #0,d0
1143 sne d2
1144 or.b #1,d2 /* up -1, down 1 */
1145 add.b d2,d1
1146 cmp.b #0,d1
1147 bge 0f
80560599 1148 move.b #4,d1
27d5cc88 11490:
80560599 1150 cmp.b #4,d1
27d5cc88 1151 ble 0f
1152 move.b #0,d1
11530:
80560599 1154 and.b #0xf8,d5
27d5cc88 1155 or.b d1,d5
318e20ff 1156 bra vbl_end
27d5cc88 1157
1158msm_no_ud:
1159 btst.l #4,d0 /* A - confirm */
1160 beq msm_no_a
1161 move.b d5,d1
80560599 1162 and.b #7,d1
27d5cc88 1163 bne 0f
1164 change_mode MMODE_GOTO, MMODE_MAIN
1165 bsr start_menu_box
318e20ff 1166 bra vbl_end
27d5cc88 11670:
1168 cmp.b #1,d1
1169 bne 0f
1170 moveq.l #0,d5
1171 change_mode MMODE_GOTO_PREDEF, MMODE_MAIN
1172 bsr start_menu_box
318e20ff 1173 bra vbl_end
27d5cc88 11740:
1175 cmp.b #2,d1
1176 bne 0f
d90ff128 1177 change_mode MMODE_JMP_ADDR, MMODE_MAIN
1178 bsr start_menu_box
318e20ff 1179 bra vbl_end
d90ff128 11800:
1181 cmp.b #3,d1
1182 bne 0f
8689c962 1183 change_mode MMODE_PC, MMODE_MAIN
80560599 1184 bsr start_menu_box
1185 bra vbl_end
11860:
1187 cmp.b #4,d1
1188 bne 0f
27d5cc88 1189 bchg.l #4,d6
318e20ff 1190 bra vbl_end
27d5cc88 11910:
1192
1193msm_no_a:
1194 move.w d0,d1
1195 and.w #0x3000,d1
1196 beq msm_no_bc
1197 bra return_to_main
1198
1199msm_no_bc:
318e20ff 1200 bra vbl_end
27d5cc88 1201
1202start_menu_box:
1203 movea.l #0xe000+10*2+8*64*2,a1
80560599 1204 move.w #11-1,d1
27d5cc88 12050:
1206 move.w a1,a0
1207 jsr load_prepare
1208 move.w #20-1,d0
12091:
1210 move.w #0,(a0)
1211 dbra d0,1b
1212
1213 add.w #64*2,a1
1214 dbra d1,0b
1215 rts
1216
1217################### goto predef ##################
1218
1219mode_goto_predef:
1220 /* frame */
1221 movea.l #0xe000+14*2+8*64*2,a1
1222 move.l #predef_addr_cnt+2-1,d1
12230:
1224 move.w a1,a0
1225 jsr load_prepare
1226 moveq.l #10-1,d0
12271:
1228 move.w #0,(a0)
1229 dbra d0,1b
1230
1231 add.w #64*2,a1
1232 dbra d1,0b
1233
1234 /* draw addresses */
1235 movea.l #0xe000+17*2+9*64*2,a1
318e20ff 1236 lea (predef_addrs,pc),a2
27d5cc88 1237 move.w #predef_addr_cnt-1,d4
1238 move.l #0x8006,d3
1239mgp_da_loop:
1240 move.w a1,a0
1241 jsr load_prepare
1242 move.l (a2)+,d2
1243 jsr print_hex_preped
1244 add.w #64*2,a1
1245 dbra d4,mgp_da_loop
1246
1247 /* cursor */
1248 movea.l #0xe000+15*2+9*64*2,a0
1249 moveq.l #0,d0
1250 move.b d5,d0
1251 lsl.w #7,d0
1252 add.w d0,a0
1253 jsr load_prepare
1254 move.w #'>',(a0)
1255
1256 /* input */
1257 jsr get_input /* x0cbrldu x1sa00du */
1258
1259 move.w d0,d1
1260 and.w #3,d1
1261 beq mgp_no_ud
1262 btst.l #0,d0
1263 sne d2
1264 or.b #1,d2 /* up -1, down 1 */
1265 add.b d2,d5
1266 cmp.b #0,d5
1267 bge 0f
1268 move.b #predef_addr_cnt-1,d5
12690:
1270 cmp.b #predef_addr_cnt-1,d5
1271 ble 0f
1272 move.b #0,d5
12730:
318e20ff 1274 bra vbl_end
27d5cc88 1275
1276mgp_no_ud:
1277 btst.l #4,d0 /* A - confirm */
1278 beq mgp_no_a
1279 moveq.l #0,d0
1280 move.b d5,d0
1281 lsl.w #2,d0
318e20ff 1282 lea (predef_addrs,pc),a0
27d5cc88 1283 move.l (a0,d0),d5
1284 lsl.l #8,d5
318e20ff 1285 bra mode_goto_finish
27d5cc88 1286
1287mgp_no_a:
1288 move.w d0,d1
1289 and.w #0x3000,d1
1290 beq mgp_no_bc
1291 bra return_to_main
1292
1293mgp_no_bc:
318e20ff 1294 bra vbl_end
27d5cc88 1295
d90ff128 1296##################### jmp ########################
1297
1298mode_jmp_addr:
1299 btst.l #7,d6
1300 bne mode_jmp_finish
1301
1302 moveq.l #0,d5
1303 or.b #3,d5 /* 3 bytes */
1304 bclr.l #7,d6
1305 change_mode MMODE_VAL_INPUT, MMODE_JMP_ADDR
318e20ff 1306 bra vbl_end
d90ff128 1307
1308mode_jmp_finish:
1309 lsr.l #8,d5
1310 write_vdp_r_dst 1,(VDP1_E_DISPLAY | VDP1_MODE5),(GFXCNTL) /* disable vint */
1311 move.l d5,a0
1312 jmp (a0)
1313
80560599 1314mode_transfer:
8689c962 1315 move.b #0x40,(0xa1000b).l /* port 2 ctrl */
1316 move.b #0x00,(0xa10005).l /* port 2 data - start with TH low */
80560599 1317
8689c962 1318 lea (txt_transfer_ready,pc),a0
80560599 1319 move.l #13,d0
1320 move.l #13,d1
1321 move.l #0x8000,d2
1322 jsr print
1323
1324wait_tl_low0:
1325 move.b (0xa10005),d0
1326 btst.b #4,d0
1327 bne wait_tl_low0
1328
1329 menu_text txt_working, 13, 13, 0
8689c962 1330 bra do_transfer
27d5cc88 1331
4dfddc2f 1332# go back to main mode
1333return_to_main:
5f6473d9 1334 bclr.l #7,d6 /* not edited */
4dfddc2f 1335 change_mode MMODE_MAIN, MMODE_MAIN
27d5cc88 1336 write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320),(GFXCNTL)
318e20ff 1337 bra vbl_end
fbad1b76 1338
1339
4db6e09f 1340#################################################
1341# #
1342# Initialize VDP registers #
1343# #
1344#################################################
1345
1346init_gfx:
1347 move.l #GFXCNTL,a3
570c4371 1348 write_vdp_reg 0,(VDP0_E_DISPLAY | VDP0_PLTT_FULL)
318e20ff 1349 write_vdp_reg 1,(VDP1_E_DISPLAY | VDP1_MODE5)
4db6e09f 1350 write_vdp_reg 2,(0xe000 >> 10) /* Screen map a adress */
1351 write_vdp_reg 3,(0xe000 >> 10) /* Window address */
1352 write_vdp_reg 4,(0xc000 >> 13) /* Screen map b address */
1353 write_vdp_reg 5,(0xfc00 >> 9) /* Sprite address */
1354 write_vdp_reg 6,0
570c4371 1355 write_vdp_reg 7,0 /* Backdrop color */
80560599 1356 write_vdp_reg 0x0a,1 /* Lines per hblank interrupt */
1357 write_vdp_reg 0x0b,0 /* 2-cell vertical scrolling */
1358 write_vdp_reg 0x0c,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320)
1359 write_vdp_reg 0x0d,(0x8000 >> 10) /* Horizontal scroll address */
1360 write_vdp_reg 0x0e,0
1361 write_vdp_reg 0x0f,2
1362 write_vdp_reg 0x10,(VDP16_MAP_V32 | VDP16_MAP_H64) /* layer size */
1363 write_vdp_reg 0x11,0
1364 write_vdp_reg 0x12,0
4db6e09f 1365 rts
1366
1367
d4279640 1368# get mask of bits representing safe words
27d5cc88 1369# a1 - address to check
1370# destroys d0-d2, strips upper bits from a1
d4279640 1371get_safety_mask:
27d5cc88 1372 move.l a1,d1
1373 lsl.l #8,d1
1374 lsr.l #8,d1
318e20ff 1375 lea (safe_addrs,pc),a1
27d5cc88 1376 move.w #(safe_addrs_end - safe_addrs)/8-1,d2
13770:
1378 move.l (a1)+,d0
1379 cmp.l d0,d1
1380 blt 1f
1381 move.l (a1),d0
1382 cmp.l d0,d1
1383 ble addr_safe
13841:
1385 addq.l #4,a1
1386 dbra d2,0b
1387
27d5cc88 1388 move.l d1,a1
d4279640 1389
1390 moveq.l #0x0c,d0
1391 cmp.l #0xa14000,d1
1392 beq gsm_rts
1393
1394 moveq.l #0x08,d0
1395 cmp.l #0xa14100,d1
1396 beq gsm_rts
1397
1398 /* check for VDP address */
1399 move.l d1,d0
1400 swap d0
1401 and.b #0xe0,d0
1402 cmp.b #0xc0,d0
1403 bne addr_unsafe /* not vdp */
1404
1405 move.l d1,d0
1406 and.l #0x0700e0,d0
1407 bne addr_unsafe
1408
1409 move.l d1,d0
1410 and.b #0x1f,d0
1411 cmp.b #0x04,d0
1412 blt addr_hsafe_3 /* data port */
1413 cmp.b #0x10,d0
1414 blt addr_safe /* below PSG */
1415 cmp.b #0x18,d0
1416 bge addr_safe /* above PSG */
1417
1418addr_unsafe:
1419 moveq.l #0,d0 /* skip line */
1420 rts
1421
1422addr_hsafe_3:
1423 moveq.l #3,d0 /* skip 2 words */
27d5cc88 1424 rts
1425
1426addr_safe:
1427 move.l d1,a1
d4279640 1428 moveq.l #0xf,d0
1429gsm_rts:
27d5cc88 1430 rts
1431
1432
1286a1ba 1433# read single phase from controller
fbad1b76 1434# #a0 - addr
1286a1ba 1435# d0 - result
fbad1b76 1436# destroys d1,d2
1286a1ba 1437get_input:
1438 move.b #0x40,(0xa10003)
1439 nop
1440 nop
1441 nop
1442 move.b (0xa10003),d0
1443 move.b #0x00,(0xa10003)
1444 lsl.w #8,d0
1445 nop
1446 move.b (0xa10003),d0
1447 eor.w #0xffff,d0
fbad1b76 1448
1449 swap d7
1450 move.w d7,d1
1451 eor.w d0,d1 /* changed btns */
1452 move.w d0,d7 /* old val */
1453 swap d7
1454 and.w d0,d1 /* what changed now */
1455 bne 0f
1456
1457 addq.b #1,d6
1458 move.b d6,d2
27d5cc88 1459 and.b #0x0f,d2 /* do autorepeat */
1460 cmp.b #9,d2
fbad1b76 1461 bne 1f
1462 move.w d0,d1
14630:
27d5cc88 1464 and.b #0xf0,d6
fbad1b76 14651:
1466 swap d0
1467 move.w d1,d0
1286a1ba 1468 rts
1469
4dfddc2f 1470# Prepare to write to VDP RAM @a0
0fc4f06b 1471# sets a0 to VDP data port for convenience
1472# a0: VRAM base
1473# destroys d0
570c4371 1474
4db6e09f 1475load_prepare:
0fc4f06b 1476 VRAM_ADDR_var a0
1477 move.l d0,(GFXCNTL).l
1478 move.l #GFXDATA,a0
4db6e09f 1479 rts
1480
1481
0fc4f06b 1482# Load color data from ROM
1483# a0: CRAM base
1484# a1: color list address
1485# d0: number of colors to load
1486# destroys d1
4db6e09f 1487
1488load_colors:
0fc4f06b 1489 move.l d0,d1
1490 CRAM_ADDR_var a0
1491 move.l d0,(GFXCNTL).l
4db6e09f 1492
0fc4f06b 1493 move.l #GFXDATA,a0
1494 subq.w #1,d1
14950:
1496 move.w (a1)+,(a0)
1497 dbra d1,0b
4db6e09f 1498
1499 rts
1500
0fc4f06b 1501
1502# print
1503# a0 - string
1504# d0 - x
1505# d1 - y
4dfddc2f 1506# d2 - tile_bits[15:11]
0fc4f06b 1507# destroys a1
570c4371 1508
1509print:
0fc4f06b 1510 move.l a0,a1
1286a1ba 1511 XY2NT
0fc4f06b 1512 jsr load_prepare
4dfddc2f 1513 move.l d2,d0
1514 and.w #0xf800,d0
570c4371 1515
1516_print_loop:
0fc4f06b 1517 move.b (a1)+,d0
570c4371 1518 beq _print_end
1519
0fc4f06b 1520 move.w d0,(a0)
318e20ff 1521 bra _print_loop
570c4371 1522
1523_print_end:
1524 rts
1525
4db6e09f 1526
1286a1ba 1527# print_hex
1528# d0 - x
1529# d1 - y
1530# d2 - value
27d5cc88 1531# d3 - tile_bits[15:11]|digit_cnt[7:0]
4276cd7a 1532# destroys a0, preserves d3
1286a1ba 1533
1534print_hex:
1535 XY2NT
1536 jsr load_prepare
1537
1538print_hex_preped:
4276cd7a 1539 moveq.l #0,d0
1540 move.b d3,d0
1541 move.l d0,d1
1286a1ba 1542 lsl.b #2,d0
1543 ror.l d0,d2 /* prep value */
4276cd7a 1544 subq.l #1,d1 /* count */
1545 move.w d3,d0
1546 and.w #0xf800,d0 /* keep upper bits in d0 */
1286a1ba 1547
1548_print_hex_loop:
1549 rol.l #4,d2
1550 move.b d2,d0
1551 and.b #0xf,d0
1286a1ba 1552
1553 add.b #'0',d0
4276cd7a 1554 cmp.b #'9',d0
1555 ble 0f
1556 addq.b #7,d0
15570:
1286a1ba 1558 move.w d0,(a0)
4276cd7a 1559 dbra d1,_print_hex_loop
1286a1ba 1560
1561 rts
1562
1563
318e20ff 1564# wait vertical sync interrupt
4db6e09f 1565
1566wait_vsync:
fbad1b76 1567 move.b d7,d0
4db6e09f 1568_wait_change:
1569 stop #0x2000
fbad1b76 1570 cmp.b d7,d0
4db6e09f 1571 beq _wait_change
1572 rts
1573
1574
318e20ff 1575# wait vsync start (polling)
1576# destroys a0,d0
1577
1578wait_vsync_poll:
1579 move.l #GFXCNTL,a0
15800:
1581 move.w (a0),d0
1582 and.b #8,d0
1583 nop
1584 nop
1585 bne 0b
15860:
1587 move.w (a0),d0
1588 and.b #8,d0
1589 nop
1590 nop
1591 beq 0b
1592 rts
1593
1594
ff17c043 1595test_code:
ff17c043 1596 nop
ff17c043 1597
1598test_code_ret_op:
1599 jmp 0x123456 /* will be patched */
1600test_code_end:
1601
4db6e09f 1602#################################################
1603# #
1604# RAM DATA #
1605# #
1606#################################################
1607
1608.bss
570c4371 1609
fbad1b76 1610# nothing :)
4db6e09f 1611
1612.end
1613
1614# vim:filetype=asmM68k
Genesis/MegaDrive related projects