URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 14 |
Rev 148 |
;
|
;
|
; sregtest.s -- test special register transfer instructions
|
; sregtest.s -- test special register transfer instructions
|
;
|
;
|
|
|
.set io_base,0xF0300000
|
.set io_base,0xF0300000
|
|
|
add $7,$0,'.'
|
add $7,$0,'.'
|
|
|
add $11,$0,0x1E67C536
|
add $11,$0,0x1E67C536
|
mvts $11,1
|
mvts $11,1
|
add $12,$0,0xB45FCC78
|
add $12,$0,0xB45FCC78
|
mvts $12,2
|
mvts $12,2
|
add $13,$0,0x1FCB0BC5
|
add $13,$0,0x1FCB0BC5
|
mvts $13,3
|
mvts $13,3
|
|
add $14,$0,0x3AE82DD4
|
|
mvts $14,4
|
|
|
mvfs $8,1
|
mvfs $8,1
|
xor $9,$8,$11
|
xor $9,$8,$11
|
and $9,$9,0x0000001F
|
and $9,$9,0x0000001F
|
beq $9,$0,lbl1
|
beq $9,$0,lbl1
|
add $7,$0,'?'
|
add $7,$0,'?'
|
lbl1:
|
lbl1:
|
|
|
mvfs $8,2
|
mvfs $8,2
|
xor $9,$8,$12
|
xor $9,$8,$12
|
and $9,$9,0xFFFFF000
|
and $9,$9,0xFFFFF000
|
beq $9,$0,lbl2
|
beq $9,$0,lbl2
|
add $7,$0,'?'
|
add $7,$0,'?'
|
lbl2:
|
lbl2:
|
|
|
mvfs $8,3
|
mvfs $8,3
|
xor $9,$8,$13
|
xor $9,$8,$13
|
and $9,$9,0x3FFFF003
|
and $9,$9,0x3FFFF003
|
beq $9,$0,lbl3
|
beq $9,$0,lbl3
|
add $7,$0,'?'
|
add $7,$0,'?'
|
lbl3:
|
lbl3:
|
|
|
|
mvfs $8,4
|
|
xor $9,$8,$14
|
|
and $9,$9,0xFFFFFFFF
|
|
beq $9,$0,lbl4
|
|
add $7,$0,'?'
|
|
lbl4:
|
|
|
jal out
|
jal out
|
halt:
|
halt:
|
j halt
|
j halt
|
|
|
out:
|
out:
|
add $8,$0,io_base
|
add $8,$0,io_base
|
out1:
|
out1:
|
ldw $9,$8,8
|
ldw $9,$8,8
|
and $9,$9,1
|
and $9,$9,1
|
beq $9,$0,out1
|
beq $9,$0,out1
|
stw $7,$8,12
|
stw $7,$8,12
|
jr $31
|
jr $31
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.