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       ;

test_r1:

        nop             ;

        mov p0, #33h    ;

        ajmp test_r2    ;

        org 0210h

test:

        mov b, #04h     ;

        clr a           ;

        jz test_r1      ;

        org 02f0h       ;

        mov r0, #00     ;

        ljmp error      ;

test_r2:

        mov b, #05h     ;

        mov r4, #10h    ;

        mov r5, #20h    ;

        mov a, r4       ;

        subb a, #10h    ;

        jnz error1      ;

        mov a, r5       ;

        subb a, #20h    ;

        jnz error1      ;

        mov b, #06h     ;

        mov r4, b       ;

        mov a, r5       ;

        subb a, #20h    ;

        jnz error1      ;

        mov a, r4       ;

        subb a, #06h    ;

        jnz error1      ;

        mov b, #06h     ;

        mov r0, #02h    ;

        mov a, #044h    ;

        mov b, #044h    ;

        subb a, b       ;

        jnz error1      ;

        mov r0, #03h    ;

        mov a, #04h     ;

        mov b, #084h    ;

        clr b.7         ;

        subb a, b       ;

        jnz error1      ;

        mov r0, #03h    ;

        mov a, #04h     ;

        mov b, #084h    ;

        clr b.7         ;

        subb a, b       ;

        jnz error1      ;

        mov r0, #04h    ;

        mov psw, #00h   ;

        setb c          ;

        mov a, #0e4h    ;

        subb a, #04h    ;

        mov a, psw      ;

        subb a, #041h   ;

        jnz error1      ;

        ajmp test_lcall ;

error1:

        ljmp error      ;

;;;;;;;;;;;;;;;;;;

test_lcall:

        mov r0, #05h    ;

        clr a           ;

        lcall tst1      ;

        inc a           ;

        subb a, #3h     ;

        jnz error1      ;

        ljmp done       ;

        inc a           ;

        inc a           ;

tst1:

        lcall tst2      ;

        inc a           ;

        ret             ;

        inc a           ;

        inc a           ;

tst2:

        inc a           ;

        ret             ;

        inc a           ;

        inc a           ;

;;;;;;;;;;;;;;;;;;

done:

        nop             ;

        mov p0, #34h    ;

        ajmp done       ;

end