URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [harm.mms] - Rev 50
Go to most recent revision | Compare with Previous | Blame | View Log
* Sum of Rounded Harmonic Series
MaxN IS 10
a GREG % Accumulator
c GREG % $2\cdot10^n$
d GREG % Divisor or digit
r GREG % Scaled reciprocal
s GREG % Scaled sum
m GREG % $m_k$
mm GREG % $m_{k+1}$
nn GREG % $n-\.{MaxN}$
LOC Data_Segment
dec GREG @+3 % decimal point loc
BYTE " ."
% LOC @+MaxN+6
LOC #100
Main NEG nn,MaxN-1
SET c,20
1H SET m,1
SR s,c,1
JMP 2F
3H SUB a,c,1
SL d,r,1
SUB d,d,1
DIV mm,a,d
4H SUB a,mm,m
MUL a,r,a
ADD s,s,a
SET m,mm
2H ADD a,c,m
2ADDU d,m,2
DIV r,a,d
PBNZ r,3B
5H ADD a,nn,MaxN+1
SET d,#a
JMP 7F
6H DIV s,s,10
GET d,rR
INCL d,'0'
7H STB d,dec,a
SUB a,a,1
BZ a,@-4
PBNZ s,6B
8H SUB $255,dec,3
TRAP 0,Fputs,StdOut
9H INCL nn,1
MUL c,c,10
PBNP nn,1B
Go to most recent revision | Compare with Previous | Blame | View Log