URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [sub1.mms] - Blame information for rev 15

Line No.	Rev	Author	Line
1	15	hellwig	`x0 GREG Data_Segment`
2			`t IS $255`
3			`LOC Data_Segment+8`
4			`OCTA 1,3,2,3`
5			`LOC Data_Segment+8*100`
6			`OCTA -1`
7			`LOC #100`
8			`* Maximum of X[1..100]`
9			`j IS $0 ;m IS $1 ;kk IS $2 ;xk IS $3`
10			`Max100 SETL kk,100*8`
11			`LDO m,x0,kk`
12			`JMP 2F`
13			`3H LDO xk,x0,kk`
14			`CMP t,xk,m`
15			`PBNP t,5F`
16			`SET m,xk`
17			`2H SR j,kk,3`
18			`5H SUB kk,kk,8`
19			`PBP kk,3B`
20			`6H POP 2,0`
21
22			`Main PUSHJ 0,Max100`