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

Subversion Repositories 8051

[/] [8051/] [tags/] [rel_1/] [asm/] [xrom_test.asm] - Blame information for rev 60

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 60 simont 
    ajmp start;
2 
 
3 
check:
4 
    subb a, #04;
5 
    jnz error1;
6 
    mov a, b;
7 
    jnz error2;
8 
    ret;
9 
 
10 
error1:
11 
    mov p1, #01;
12 
    ajmp error1;
13 
 
14 
error2:
15 
    mov p1, #02;
16 
    ajmp error2;
17 
 
18 
    .org 020eh
19 
start:
20 
    mov p0, #090h;
21 
    mov a, #20;
22 
    mov b, #05;
23 
    div ab;
24 
    lcall check;
25 
    mov p0, #00h;
26 
    ljmp test1;
27 
 
28 
    .org 500dh;
29 
test1:
30 
    mov a, #00;
31 
    mov b, #00;
32 
    mov r0, a;
33 
    mov r1, #30h
34 
    mov dptr, #data;
35 
loop1:
36 
    mov a, r0;
37 
    movc a, @a+dptr;
38 
    mov @r1, a;
39 
    inc r0;
40 
    inc r1;
41 
    mov a, r0;
42 
    subb a, #25;
43 
    jnz loop1;
44 
 
45 
    mov p0, #01h;
46 
 
47 
    mov r0, #00h;
48 
    mov r1, #30h;
49 
    mov b, #05;
50 
 
51 
loop2:
52 
    mov a, @r1;
53 
    subb a, b;
54 
    jnz error3;
55 
    inc b;
56 
    inc r1;
57 
    inc r0;
58 
    mov a, r0;
59 
    subb a, #25;
60 
    jnz loop2;
61 
 
62 
    mov p0, #002h;
63 
    ljmp _end;
64 
 
65 
 
66 
error3:
67 
    mov p1, #03;
68 
    ajmp error3;
69 
 
70 
    .org 800fh;
71 
_end:
72 
    mov p0, #0eeh;
73 
    ajmp _end;
74 
 
75 
    .org 0f000h;
76 
data:
77 
    .db 5;
78 
    .db 6;
79 
    .db 7;
80 
    .db 8;
81 
    .db 9;
82 
    .db 10;
83 
    .db 11;
84 
    .db 12;
85 
    .db 13;
86 
    .db 14;
87 
    .db 15;
88 
    .db 16;
89 
    .db 17;
90 
    .db 18;
91 
    .db 19;
92 
    .db 20;
93 
    .db 21;
94 
    .db 22;
95 
    .db 23;
96 
    .db 24;
97 
    .db 25;
98 
    .db 26;
99 
    .db 27;
100 
    .db 28;
101 
    .db 29;
102 
    .db 30;
103 
    .db 31;
104 
 

powered by: WebSVN 2.1.0

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