testpico: 32x vint tests

[megadrive.git] / testpico / sh2_test.sh2

        .text

! Master Vector Base Table at 0x06000000

        .long   mstart      /* Cold Start PC */
        .long   0x06040000  /* Cold Start SP */
        .long   mstart      /* Manual Reset PC */
        .long   0x06040000  /* Manual Reset SP */
        .long   master_e4   /* Illegal instruction */
        .long   master_e5   /* reserved */
        .long   master_e6   /* Invalid slot instruction */
        .long   master_e7   /* reserved */
        .long   master_e8   /* reserved */
        .long   master_e9   /* CPU address error */
        .long   master_e10  /* DMA address error */
        .long   master_e11  /* NMI vector */
        .long   master_e12  /* User break vector */
.rept 19
        .long   master_err  /* reserved */
.endr
.rept 32
        .long   master_err  /* TRAPA #32-63 */
.endr
        .long   master_irq0 /* Level 1 IRQ */
        .long   master_irq1 /* Level 2 & 3 IRQ's */
        .long   master_irq2 /* Level 4 & 5 IRQ's */
        .long   master_irq3 /* PWM interupt */
        .long   master_irq4 /* Command interupt */
        .long   master_irq5 /* H Blank interupt */
        .long   master_irq6 /* V Blank interupt */
!        .long   main_irq_vres
        .long   master_irq7 /* Reset Button */
.rept 56
        .long   master_err  /* peripherals */
.endr

! Slave Vector Base Table at 0x06000200

        .long   sstart      /* Cold Start PC */
        .long   0x0603f800  /* Cold Start SP */
        .long   sstart      /* Manual Reset PC */
        .long   0x0603f800  /* Manual Reset SP */
        .long   slave_e4    /* Illegal instruction */
        .long   slave_e5    /* reserved */
        .long   slave_e6    /* Invalid slot instruction */
        .long   slave_e7    /* reserved */
        .long   slave_e8    /* reserved */
        .long   slave_e9    /* CPU address error */
        .long   slave_e10   /* DMA address error */
        .long   slave_e11   /* NMI vector */
        .long   slave_e12   /* User break vector */
.rept 19
        .long   slave_err   /* reserved */
.endr
.rept 32
        .long   slave_err   /* TRAPA #32-63 */
.endr
        .long   slave_irq0  /* Level 1 IRQ */
        .long   slave_irq1  /* Level 2 & 3 IRQ's */
        .long   slave_irq2  /* Level 4 & 5 IRQ's */
        .long   slave_irq3  /* PWM interupt */
        .long   slave_irq4  /* Command interupt */
        .long   slave_irq5  /* H Blank interupt */
        .long   slave_irq6  /* V Blank interupt */
        .long   slave_irq7  /* Reset Button */
.rept 56
        .long   slave_err   /* peripherals */
.endr

! trashes r0
.macro mov_bc const ofs reg
        mov     #\const, r0
.if \ofs == 0
        mov.b   r0, @\reg
.else
        mov.b   r0, @(\ofs, \reg)
.endif
.endm

! Stacks set up by BIOS

! The main SH2 starts here at 0x06000400

mstart:
        bra     xstart
        mov     #0, r4

! The slave SH2 starts here at 0x06000404

sstart:
        mov     #1, r4

xstart:
.if 0
! cache init - done by BIOS with single 0x11 write
        mov.l   l_cctl, r1   /* cache */
        mov_bc  0x00, 0, r1  /* disable */
        mov.b   @r1, r0      /* dummy read */
        mov_bc  0x10, 0, r1  /* purge */
        mov.b   @r1, r0
        mov_bc  0x01, 0, r1  /* enable */
.endif
        mov     #0x10, r0    /* enable irqs, 0 causes endless irq */
        ldc     r0, sr
        mov.l   l_main_c, r0
        jmp     @r0
        nop

! r0=vector_number
do_irq_master:
        mov.b   r0, @(0x2c, gbr)
        mov.l   r1, @-r15
        mov.l   l_irq_cnt, r1  /* counters in fb (0x2401ff00) */

! According to "32X Technical Information Attachment 1" FTOA pin must be toggled
! or interrupts may be missed when multiple irqs trigger. We skip that here since
! we test only 1 irq at a time.
do_irq_cmn:
        mov.l   r2, @-r15
        mov     #0x80, r0
        mov.b   r0, @(0, gbr) /* FM=1 */
        mov.b   r0, @(0, gbr) /* flush write buf */
        stc     sr, r0        /* SR holds IRQ level in I3-I0 */
        shlr2   r0
        shlr2   r0
        and     #0x0e, r0
        mov     r0, r2
        add     r1, r0
        mov.w   @r0, r1
        add     #1, r1
        mov.w   r1, @r0
        mov.b   @(0x23, gbr), r0
        cmp/eq  #0x5a, r0
        bt      0f /* noack */
        mova    l_irq_ao, r0
        mov.w   @(r0, r2), r0
        stc     gbr, r1
        mov.w   r0, @(r0, r1) /* 32x irq clear */
0:
        mov     #0x80, r0
        mov.b   r0, @(0, gbr) /* FM=1 and flush writebuf (alt: ~20 nops) */
        mov.l   @r15+, r2
        mov.l   @r15+, r1
        mov.l   @r15+, r0
        rte
        nop

! not used
.if 0
main_irq_vres:
        mov.w   r0, @(0x14, gbr)  /* ack */
        mov.b   @(7, gbr), r0     /* RV */
        tst     #1, r0
        bt      main_irq_ret

! Try to set FTOB pin that's wired to 32X hard reset.
! Doesn't seem to be working right though, it somehow disturbs
! 68k reset PC fetch which mysteriously ends up at range
! 2c8 - 304 in multiples of 4, proportionally to reset delay
! (0 - ~300 (?) sh2 cycles). Longer delay just hangs, presumably
! at 880200?
        mov.l   l_frt, r1
        mov_bc  0xf1, 7, r1  /* TOCR sel OCRB, pin on B match */
        mov     #0, r0
        mov.b   r0, @(4, r1) /* OCRB H - output compare B */
        mov.b   r0, @(5, r1) /* OCRB L */
        mov.b   r0, @(2, r1) /* FRC H */
        mov.b   r0, @(3, r1) /* FRC L */
        mov.b   @(3, r1), r0
! sleep - docs say not to use
!        sleep
0:
        bra     0b
        nop

main_irq_ret:
        mov.l   @r15+, r0
        rte
        nop
.endif

.global _read_frt
_read_frt:
        mov.l   l_frt, r2
        mov.b   @(2, r2), r0
        extu.b  r0, r1
        mov.b   @(3, r2), r0
        extu.b  r0, r0
        shll8   r1
        rts
        or      r1, r0

! dummy
.global _start
_start:

master_err:
        bra     do_exc_master
        mov     #0xff, r0
slave_err:
        bra     do_exc_slave
        mov     #0xff, r0

! r0=vector_number
do_irq_slave:
        mov.b   r0, @(0x2d, gbr)
        mov.l   r1, @-r15
        mov.l   l_irq_cnt, r1  /* counters in fb (0x2401ff00) */
        bra     do_irq_cmn
        add     #0x10, r1

.align 2
l_cctl:
        .long   0xFFFFFE92
l_frt:
        .long   0xFFFFFE10
l_main_c:
        .long   _main_c
l_irq_cnt:
        .long   0x2401ff00
l_irq_ao:
        /*         ?,    ?,    ?,  pwm,  cmd,    h,    v,  rst */
        .word   0x0e, 0x0e, 0x0e, 0x1c, 0x1a, 0x18, 0x16, 0x14

.macro exc_master num
master_e\num:
        bra     do_exc_master
        mov     #\num, r0
.endm

.macro exc_slave num
slave_e\num:
        bra     do_exc_slave
        mov     #\num, r0
.endm

.macro irq_master num
master_irq\num:
        mov.l   r0, @-r15
        bra     do_irq_master
        mov     #\num, r0
.endm

.macro irq_slave num
slave_irq\num:
        mov.l   r0, @-r15
        bra     do_irq_slave
        mov     #\num, r0
.endm

exc_master 4
exc_master 5
exc_master 6
exc_master 7
exc_master 8
exc_master 9
exc_master 10
exc_master 11
exc_master 12
irq_master 0
irq_master 1
irq_master 2
irq_master 3
irq_master 4
irq_master 5
irq_master 6
irq_master 7

exc_slave 4
exc_slave 5
exc_slave 6
exc_slave 7
exc_slave 8
exc_slave 9
exc_slave 10
exc_slave 11
exc_slave 12
irq_slave 0
irq_slave 1
irq_slave 2
irq_slave 3
irq_slave 4
irq_slave 5
irq_slave 6
irq_slave 7

do_exc_master:
        mov.b   r0, @(0x2e, gbr)
0:
        bra     0b
        nop

do_exc_slave:
        mov.b   r0, @(0x2f, gbr)
0:
        bra     0b
        nop

.global _spin
_spin:
        dt      r4
        bf      _spin
        rts
        nop

! vim:ts=8:sw=8:expandtab