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