afe15f4ff1
git-svn-id: http://www.cdkersey.com/harp/harptool@116 0246edb2-e076-4747-b392-db732a341fa2
88 lines
2.4 KiB
ArmAsm
88 lines
2.4 KiB
ArmAsm
/*******************************************************************************
|
|
HARPtools by Chad D. Kersey, Summer 2011
|
|
********************************************************************************
|
|
|
|
Sample HARP assmebly program.
|
|
|
|
*******************************************************************************/
|
|
/* sieve of erastophanes: Find some primes. */
|
|
.def SIZE 0x1000
|
|
|
|
.align 4096
|
|
.perm x
|
|
.entry
|
|
.global
|
|
entry: ldi %r7, hello; jali %r5, puts;
|
|
|
|
ldi %r0, #2; /* i = 2 */
|
|
loop1: addi %r7, %r0, #0;
|
|
jali %r5, printdec;
|
|
|
|
muli %r1, %r0, __WORD;
|
|
ldi %r7, wrstr;
|
|
jali %r5, puts;
|
|
st %r0, %r1, array;
|
|
ldi %r7, wrfin;
|
|
jali %r5, puts;
|
|
addi %r0, %r0, #1;
|
|
subi %r1, %r0, SIZE;
|
|
rtop @p0, %r1;
|
|
@p0 ? jmpi loop1;
|
|
|
|
ldi %r7, xstr;
|
|
jali %r5, puts;
|
|
|
|
ldi %r0, #1;
|
|
loop2: addi %r0, %r0, #1;
|
|
muli %r1, %r0, __WORD;
|
|
ld %r1, %r1, array;
|
|
rtop @p0, %r1;
|
|
notp @p0, @p0;
|
|
@p0 ? jmpi loop2;
|
|
|
|
mul %r2, %r1, %r1;
|
|
subi %r3, %r2, SIZE;
|
|
neg %r3, %r3
|
|
isneg @p0, %r3;
|
|
@p0 ? jmpi end;
|
|
|
|
ldi %r3, #0;
|
|
loop3: muli %r4, %r2, __WORD;
|
|
st %r3, %r4, array;
|
|
add %r2, %r2, %r1;
|
|
ldi %r4, SIZE;
|
|
sub %r4, %r2, %r4;
|
|
isneg @p0, %r4;
|
|
notp @p0, @p0;
|
|
@p0 ? jmpi loop2;
|
|
jmpi loop3;
|
|
|
|
end: ldi %r0, __WORD; /* i = 2 */
|
|
shli %r0, %r0, #1;
|
|
ldi %r11, #0;
|
|
loop4: ld %r1, %r0, array;
|
|
rtop @p0, %r1;
|
|
@p0 ? addi %r7, %r1, #0;
|
|
@p0 ? jali %r5, printdec;
|
|
rtop @p0, %r1;
|
|
@p0 ? addi %r11, %r11, #1;
|
|
addi %r0, %r0, __WORD;
|
|
ldi %r5, __WORD;
|
|
muli %r5, %r5, SIZE;
|
|
sub %r1, %r0, %r5;
|
|
rtop @p0, %r1;
|
|
@p0 ? jmpi loop4;
|
|
|
|
addi %r7, %r11, #0;
|
|
jali %r5, printdec;
|
|
trap; /* All traps currently cause a halt. */
|
|
|
|
.perm rw /* TODO: How should I write section permissions? */
|
|
.string hello "\"Harp!\" is how a harp seal says hello!\n"
|
|
.string wrstr "Doing write\n"
|
|
.string wrfin "Done write\n"
|
|
.string xstr "Exiting loop\n"
|
|
|
|
.global
|
|
array: .space 0x1000 /* SIZE words of space. */
|