URL
https://opencores.org/ocsvn/8051/8051/trunk
[/] [8051/] [trunk/] [asm/] [testall.asm] - Diff between revs 131 and 155
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 131 |
Rev 155 |
| Line 977... |
Line 977... |
;; DA a (29)
|
;; DA a (29)
|
mov a,#80h
|
mov a,#80h
|
add a,#99h
|
add a,#99h
|
da a
|
da a
|
subb a,#78h ;Will clr acc if c set
|
subb a,#78h ;Will clr acc if c set
|
jz done29
|
jz tst2
|
|
|
|
fail_da:
|
mov P1,#29
|
mov P1,#29
|
ljmp failed
|
ljmp failed
|
|
tst2:
|
|
mov psw, #00h
|
|
mov r3, #67h
|
|
mov a, #56h
|
|
addc a, r3
|
|
da a
|
|
subb a, #24h
|
|
jnz fail_da
|
|
|
|
mov psw, #00h
|
|
mov a, #30h
|
|
addc a, #99h
|
|
da a
|
|
subb a, #28h
|
|
jnz fail_da
|
|
|
|
|
done29:
|
done29:
|
|
|
|
|
;;;;;;;;;;;;;;;;; INST 30 ;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;; INST 30 ;;;;;;;;;;;;;;;;;;;;;;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
