OpenCores
URL https://opencores.org/ocsvn/8051/8051/trunk

Subversion Repositories 8051

[/] [8051/] [tags/] [rel_2/] [asm/] [test.asm] - Diff between revs 2 and 155

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 2 Rev 155
Line 1... Line 1...
; test
 
;
 
; r0- counter
 
; r1, r2- delay
 
; r4- shift
 
 
 
   nop;
        mov a, #10h     ;
   nop;
        mov 15h, #20h   ;
   mov 90h,#0aah;
        mov 25h, 15h    ;
   mov R0,#01h;
        orl 25h, #1h    ;
   mov r5, #00h;
        add a, 25h      ;
   mov 80h, #0fh;
        mov p0, a       ;
 
 
d:
done:
   nop;
        ajmp done       ;
   nop;
 
   nop;
 
   jz d;
 
   mov r4, #01h;
 
   mov 80h, #00h;
 
 
 
start:
end
   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;
 
 No newline at end of file
 No newline at end of file

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.