URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [saddle1.mms] - Rev 94
Go to most recent revision | Compare with Previous | Blame | View Log
* Exercise 1.3.2'--18, Solution 1
LOC #100
t IS $255
a00 GREG Data_Segment
a10 GREG Data_Segment+8
ij IS $0 % element index and return register
j GREG % column index
k GREG % size of list of minima
x GREG % current minimum
y GREG % current element
Saddle SET ij,9*8
RowMin SET j,8
LDB x,a10,ij Candidate for row minimum
2H SET k,0 Set list empty.
4H INCL k,1
STB j,a00,k Put column index in list.
1H SUB ij,ij,1 Go left one.
SUB j,j,1
BZ j,ColMax Done with row?
3H LDB y,a10,ij
SUB t,x,y
PBN t,1B Is \.x still minimum?
SET x,y
PBP t,2B New minimum?
JMP 4B Remember another minimum.
ColMax LDB $1,a00,k Get column from list.
ADD j,$1,9*8-8
1H LDB y,a10,j
CMP t,x,y
PBN t,No Is row min${}<{}$column element?
SUB j,j,8
PBP j,1B Done with column?
Yes ADD ij,ij,$1 Yes; $\.{ij}\gets{}$index of saddle.
LDA ij,a10,ij
POP 1,0
No SUB k,k,1 Is list empty?
BP k,ColMax If not, try again.
PBP ij,RowMin Have all rows been tried?
POP 1,0 Yes; $\$0=0$, no saddle.\quad\slug\endmmix
aaaa GREG 6364136223846793005 C E Haynes's multiplier
Main SET ij,9*8 assume that $1 = seed
1H MULU $1,$1,aaaa
INCL $1,1
MULU x,$1,5
GET x,rH
SUB x,x,2
STB x,a10,ij
SUB ij,ij,1
PBP ij,1B
PUSHJ 2,Saddle
JMP Main
Go to most recent revision | Compare with Previous | Blame | View Log