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


1.2
date	2003.06.05.11.09.28;	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.2
log
@add aditional tests.
@
text
@
	mov a, #10h	;
	mov 15h, #20h	;
	mov 25h, 15h	;
	orl 25h, #1h	;
	add a, 25h	;
	mov p0, a	;

done:
	ajmp done	;

end@


1.1
log
@Initial revision
@
text
@d1 12
a12 89
; test
;
; r0- counter
; r1, r2- delay
; r4- shift

   nop;
   nop;
   mov 90h,#0aah;
   mov R0,#01h;
   mov r5, #00h;
   mov 80h, #0fh;

d:
   nop;
   nop;
   nop;
   jz d;
   mov r4, #01h;
   mov 80h, #00h;

start:
   mov 90h, r4;
   nop;
   acall delay;

   mov 80h, r0;
   mov a,r5;
   nop;
   nop;

   jz up;
   inc r0;
   ajmp ed;

up:
   dec r0;

ed:
   mov a, r4;
   rr a;
   mov r4,a;
   nop;
   ajmp start;
   mov 80h,#11h;


delay:
   mov r1, #0ffh;
   mov r2, #0ffh;
z1:
   mov a, #0ffh;
z2:
   mov r1, a;
   mov a, r2;
   add a, #02h;
   mov a, r1;
   dec a;
   nop;
   nop;
   nop;
   nop;
   nop;
   nop;
   nop;
   nop;
   jnz z2;
   dec r2;
   mov a,r2;
   jnz z1;
   ret;

   
       
   .org 50h
   nop;
   mov a, #01;
   mov r5, #00h
   nop;
   nop;
   reti;

   .org 65h
   nop;
   mov r5, #0fh
   mov a, #01;
   nop;
   nop;
   reti;
@


1.1.1.1
log
@Initial CVS import
@
text
@@