; Power test of DMEM
; Write 0xFF..FF to all cells
; Read and count the number of zeroes, store at the end to 0xF000 (DBANK)

start:  nop
        mov 0, r15; the address counter
        not c0, r1; writing 0xFF..FF

fill:
        sra+ r1
        nop
        cmp r15, 0
        jmp cc_nzero, fill

        mov 0, r2 ; the error counter
readc:
        lra4  r1
        lra4+ r1
        ; mov 0, r1; emulate errors
        cmp r1, 0
        jmpr cc_neq +2
        add r2, c1, r2

        cmp r15, 0
        jmp cc_nzero, readc

        iext 0xF000
        sgio r2, 0xF000

        mov     0x012, r1
        sgio    r1, 0xA04
end:    jmpr    cc_uncond 0
        nop