Subversion Repositories 8051

;
; test lcall and bit addressable memory space
;
        mov 20h, #00h   ;
        setb  02h       ;
        lcall t         ;
        mov P0, 20h     ;
        ljmp e          ;

t:
        mov P0, #10     ;
        ret     ;
e:
        nop     ;
        nop     ;

;
; test p bit in psw
;
        mov r0, #0f0h   ;
        mov a, #031h    ;    p=1
        mov c, psw.0    ;
        jnc error       ;
        mov p0, #001h   ;
        mov r0, #0f1h   ;
        mov a, #063h    ;    p=0
        mov c, psw.0    ;
        jc error        ;
        mov P0, #02h    ;
        jnz test1       ;
        nop
        nop
        nop
test1:
        ljmp test       ;

error:
        mov p1, r0;

;
; test relative jumps
;


        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