head	1.3;
access;
symbols
	rel_19:1.3
	rel_12:1.3
	rel_2:1.3
	rel_1:1.2
	rel0:1.1.1.1
	simont:1.1.1;
locks; strict;
comment	@;; @;


1.3
date	2003.06.05.11.09.28;	author simont;	state Exp;
branches;
next	1.2;

1.2
date	2003.04.25.17.14.25;	author simont;	state Exp;
branches;
next	1.1;

1.1
date	2002.07.29.13.33.17;	author simont;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2002.07.29.13.33.17;	author simont;	state Exp;
branches;
next	;


desc
@@


1.3
log
@add aditional tests.
@
text
@;
; 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


@


1.2
log
@prepare programs for new timing.
@
text
@d46 1
a46 1
done:
d49 1
a49 1
	ajmp done	;
d55 1
a55 1
	jz done		;
d60 86
@


1.1
log
@Initial revision
@
text
@d1 63
a63 36
;
; 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;



error:
	mov p0, r0;



@


1.1.1.1
log
@Initial CVS import
@
text
@@