URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
Compare Revisions
- This comparison shows the changes necessary to convert path
/t48
- from Rev 331 to Rev 332
- ↔ Reverse comparison
Rev 331 → Rev 332
/branches/wip_t2x/sw/verif/black_box/mcs2x/call/test.asm
0,0 → 1,52
;; ******************************************************************* |
;; Test MCS2x CALL with simple program. |
;; ******************************************************************* |
|
INCLUDE "cpu.inc" |
INCLUDE "pass_fail.inc" |
|
ORG 0 |
|
;; Start of test |
mov r0, #008H |
call recursive |
|
call1: |
|
ok_1: |
;; check stack contents |
mov r0, #008H |
mov a, @r0 |
xrl a, #(call1-1) & 0FFH |
jnz fail |
|
inc r0 |
mov a, @r0 |
xrl a, #((call1-1) >> 8) & 0FFH |
jnz fail |
|
inc r0 |
mov a, @r0 |
xrl a, #(rec_end-1) & 0FFH |
jnz fail |
|
inc r0 |
mov a, @r0 |
xrl a, #((rec_end-1) >> 8) & 0FFH |
jnz fail |
|
|
pass: PASS |
|
fail: FAIL |
|
|
|
ORG 0156H |
recursive: |
djnz r0, rec_goon |
ret |
rec_goon: |
call recursive |
rec_end: |
ret |
/branches/wip_t2x/sw/verif/black_box/mcs2x/p0/test.asm
0,0 → 1,30
;; ******************************************************************* |
;; Test MCS2x P0. |
;; ******************************************************************* |
|
INCLUDE "cpu.inc" |
INCLUDE "pass_fail.inc" |
INCLUDE "mcs2x_opcodes.inc" |
|
ORG 0 |
|
;; Start of test |
mov a, #055H |
m2outlp0 |
clr a |
m2inp0 |
xrl a, #055H |
jnz fail |
|
mov a, #0AAH |
m2outlp0 |
clr a |
m2inp0 |
xrl a, #0AAH |
jnz fail |
|
jmp pass |
|
fail: FAIL |
|
pass: PASS |
/branches/wip_t2x/sw/verif/include/mcs2x_opcodes.inc
0,0 → 1,7
m2inp0 MACRO |
db 008H |
ENDM |
|
m2outlp0 MACRO |
db 090H |
ENDM |