URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [tags/] [eco32-0.23/] [fp/] [implementation/] [mmix/] [sub2.mms] - Rev 321
Go to most recent revision | Compare with Previous | Blame | View Log
x0 GREG Data_Segment
t IS $255
LOC Data_Segment+8
OCTA 1,3,2,3
LOC Data_Segment+8*100
OCTA -1
LOC #100
* Maximum of X[1..100]
j GREG ;m GREG ;kk GREG ;xk GREG ; GREG @
GoMax100 SETL kk,100*8
LDO m,x0,kk
JMP 1F
3H LDO xk,x0,kk
CMP t,xk,m
PBNP t,5F
4H SET m,xk
1H SR j,kk,3
5H SUB kk,kk,8
PBP kk,3B
6H GO kk,$0,0
Main GO $0,GoMax100
Go to most recent revision | Compare with Previous | Blame | View Log