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

Subversion Repositories eco32

[/] [eco32/] [tags/] [eco32-0.25/] [fp/] [implementation/] [mmix/] [sub2.mms] - Diff between revs 15 and 248

Rev 15	Rev 248
`x0 GREG Data_Segment`	`x0 GREG Data_Segment`
`t IS $255`	`t IS $255`
`LOC Data_Segment+8`	`LOC Data_Segment+8`
`OCTA 1,3,2,3`	`OCTA 1,3,2,3`
`LOC Data_Segment+8*100`	`LOC Data_Segment+8*100`
`OCTA -1`	`OCTA -1`
`LOC #100`	`LOC #100`
`* Maximum of X[1..100]`	`* Maximum of X[1..100]`
`j GREG ;m GREG ;kk GREG ;xk GREG ; GREG @`	`j GREG ;m GREG ;kk GREG ;xk GREG ; GREG @`
`GoMax100 SETL kk,100*8`	`GoMax100 SETL kk,100*8`
`LDO m,x0,kk`	`LDO m,x0,kk`
`JMP 1F`	`JMP 1F`
`3H LDO xk,x0,kk`	`3H LDO xk,x0,kk`
`CMP t,xk,m`	`CMP t,xk,m`
`PBNP t,5F`	`PBNP t,5F`
`4H SET m,xk`	`4H SET m,xk`
`1H SR j,kk,3`	`1H SR j,kk,3`
`5H SUB kk,kk,8`	`5H SUB kk,kk,8`
`PBP kk,3B`	`PBP kk,3B`
`6H GO kk,$0,0`	`6H GO kk,$0,0`

`Main GO $0,GoMax100`	`Main GO $0,GoMax100`