URL
https://opencores.org/ocsvn/8051/8051/trunk
[/] [8051/] [trunk/] [asm/] [lcall.asm] - Diff between revs 2 and 131
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 2 |
Rev 131 |
| Line 15... |
Line 15... |
nop;
|
nop;
|
|
|
;
|
;
|
; test p bit in psw
|
; test p bit in psw
|
;
|
;
|
mov r0, #0f0h
|
mov r0, #0f0h ;
|
mov a, #031h; p=1
|
mov a, #031h; p=1
|
mov c, psw.0;
|
mov c, psw.0;
|
jnc error;
|
jnc error;
|
mov p0, #001h;
|
mov p0, #001h;
|
mov r0, #0f1h;
|
mov r0, #0f1h;
|
mov a, #063h; p=0
|
mov a, #063h; p=0
|
mov c, psw.0;
|
mov c, psw.0;
|
jc error;
|
jc error;
|
|
mov P0, #02h ;
|
|
jnz test1 ;
|
|
nop
|
|
nop
|
|
nop
|
|
test1:
|
|
ljmp test ;
|
|
|
|
error:
|
|
mov p1, r0;
|
|
|
|
;
|
|
; test relative jumps
|
|
;
|
|
|
error:
|
|
mov p0, r0;
|
|
|
|
|
org 01f0h ;
|
|
done:
|
|
nop ;
|
|
mov p0, #33h ;
|
|
ajmp done ;
|
|
|
|
org 0210h
|
|
test:
|
|
mov b, #04h ;
|
|
clr a ;
|
|
jz done ;
|
|
|
|
org 02f0h ;
|
|
mov r0, #00 ;
|
|
ljmp error ;
|
|
|
|
end
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
