# Assemble with gas
# --register-prefix-optional --bitwise-or
+# reminder: d2-d7/a2-a6 are callee-save
.macro ldarg arg, stacksz, reg
move.l (4 + \arg * 4 + \stacksz)(%sp), \reg
# read single phase from controller
# d0 - result
-# destroys d1,d2
+# destroys d1
.global get_input
get_input:
move.b #0x40,(0xa10003)
#ifndef PICO
move.w d0, (a0)
#else
+ /* different timing due to extra fetch of offset, */
+ /* less troulesome to emulate */
movea.l a0, a1
subq.l #1, a1
move.w d0, 1(a1)
move.w (a0), d0
rts
+.global read_sr
+read_sr:
+ move.w sr, d0
+ rts
+
.global memcpy_ /* void *dst, const void *src, u16 size */
memcpy_:
ldarg 0, 0, a0
movem.l (sp)+, d2-d7/a2
rts
+.global test_vcnt_loops
+test_vcnt_loops:
+ movem.l d2, -(sp)
+ movea.l #0xc00007, a0
+ movea.l #0xfff000, a1
+ move.b #0xff, d0 /* d0 = current_vcnt */
+ moveq.l #0, d1 /* d1 = loop counter */
+ move.w #315-1, d2 /* d2 = line limit */
+0:
+ btst #3, (a0)
+ beq 0b /* not blanking */
+0:
+ btst #3, (a0)
+ bne 0b /* blanking */
+
+ addq.w #1, a0
+0:
+ addq.w #1, d1 /* 4 */
+ cmp.b (a0), d0 /* 8 vcnt changed? */
+ beq 0b /* 10 */
+
+ move.w d0, (a1)+ /* 8 save */
+ move.w d1, (a1)+
+ move.b (a0), d0 /* 8 new vcnt */
+ moveq.l #0, d1
+ dbra d2, 0b
+
+ movem.l (sp)+, d2
+ rts
+
.global test_hint
test_hint:
move.w d0, -(sp) /* 8 */
0:
move.w d0, (0xf004).w /* 12 */
move.w (sp)+, d0 /* 8 */
- rte /* 20 114 */
+ rte /* 20 114+44 */
.global test_hint_end
test_hint_end:
.global x32x_enable_end
x32x_enable_end:
+.global x32x_disable
+x32x_disable:
+ movea.l #0xa15100, a0
+ move.w #1, (a0) /* ADEN (reset sh2) */
+ move.w #0, (a0) /* adapter disable, reset sh2 */
+ move.w #1, d0
+0:
+ dbra d0, 0b
+ move.w #2, (a0) /* nRES - sh2s should see no ADEN and sleep */
+ rts
+.global x32x_disable_end
+x32x_disable_end:
+
.global test_32x_b_c0
test_32x_b_c0:
ldarg 0, 0, a1
ldargw 1, 0, d0
jsr (0xc0).l /* move.b d0, (a1); RV=0 */
- bset #0, (0xa15107).l
+ bset #0, (0xa15107).l /* RV=1 */
rts
.global test_32x_b_c0_end
test_32x_b_c0_end:
movem.l (sp)+, d2-d7
rts
+.macro ymwrite areg, dreg addr dat
+ move.b \addr, (\areg) /* 12 addr */
+ nbcd d0 /* 6 delay to reach 17 ym cycles (M/7) */
+ move.b \dat, (\dreg) /* 12 data */
+.endm
+
+.global test_ym_stopped_tick
+test_ym_stopped_tick:
+ movem.l a2-a3, -(sp)
+ movea.l #0xa04000, a0
+ movea.l #0xa04001, a1
+ movea.l #0xc00007, a2
+ movea.l #0xfff000, a3
+
+ ymwrite a0, a1, #0x27, #0x30 /* 30 disable, clear */
+ ymwrite a0, a1, #0x26, #0xff /* 30 timer b shortest interval */
+ move.b #0x27, (a0) /* 12 addr prep */
+0:
+ btst #3, (a2)
+ beq 0b /* not blanking */
+0:
+ btst #3, (a2)
+ bne 0b /* blanking */
+
+ addq.l #1, a2
+0:
+ tst.b (a2)
+ bne 0b /* not line 0 - waiting for sequential vcnt */
+
+ move.b #0x0a, (a1) /* 12 start timer b */
+ moveq.l #0, d0
+ moveq.l #2, d1
+0:
+ move.b (a0), d0
+ and.b d1, d0
+ beq 0b
+0:
+# move.w (a2), (a3)+ /* 12 save hvcnt */
+ move.b (a2), d0
+ cmp.b (a2), d0
+ bne 0b
+ move.w d0, (a3)+
+ move.b #0x30, (a1) /* 12 stop b, clear */
+
+ move.w #(1900/10-1), d0 /* waste cycles */
+0:
+ dbra d0, 0b
+ moveq.l #0, d0
+
+ move.w (a0), (a3)+ /* 12 save status */
+ move.b #0x0a, (a1) /* 12 start b */
+0:
+ move.b (a0), d0
+ and.b d1, d0
+ beq 0b
+
+0:
+# move.w (a2), (a3)+ /* 12 save hvcnt */
+ move.b (a2), d1
+ cmp.b (a2), d1
+ bne 0b
+ move.w d1, (a3)+
+ move.w d0, (a3)+ /* 12 save status */
+
+ movem.l (sp)+, a2-a3
+ rts
+
+.global test_ym_ab_sync
+test_ym_ab_sync:
+ movea.l #0xa04000, a0
+ movea.l #0xa04001, a1
+
+ ymwrite a0, a1, #0x27, #0x30 /* 30 disable, clear */
+ ymwrite a0, a1, #0x24, #0xfc /* 30 timer a */
+ ymwrite a0, a1, #0x25, #0x01 /* 30 =15 - why 15? expected 16 */
+ ymwrite a0, a1, #0x26, #0xff /* 30 timer b shortest interval */
+ move.b #0x27, (a0) /* 12 addr prep */
+ nop
+ nop
+
+ move.b #0x0a, (a1) /* 12 start timer b */
+ moveq.l #0, d0
+ moveq.l #2, d1
+0:
+ move.b (a0), d0 /* 8 */
+ and.b d1, d0 /* 4 */
+ beq 0b /* 10|8 */
+0:
+ move.b #0x3f, (a1) /* 12 start a, clear */
+ moveq.l #3, d1 /* 12 cycles for old flag to clear itself */
+ nop
+ nop
+0:
+ move.b (a0), d0
+ and.b d1, d0
+ beq 0b
+ move.b (a0), d0 /* re-read, else very occasionally get 1 */
+ rts
+
# vim:filetype=asmM68k:ts=4:sw=4:expandtab
notaz.gp2x.de / megadrive.git / blobdiff