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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [sub2.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 GREG ;m GREG ;kk GREG ;xk GREG ; GREG @`
10			`GoMax100 SETL kk,100*8`
11			`LDO m,x0,kk`
12			`JMP 1F`
13			`3H LDO xk,x0,kk`
14			`CMP t,xk,m`
15			`PBNP t,5F`
16			`4H SET m,xk`
17			`1H SR j,kk,3`
18			`5H SUB kk,kk,8`
19			`PBP kk,3B`
20			`6H GO kk,$0,0`
21
22			`Main GO $0,GoMax100`
23