URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [tags/] [eco32-0.23/] [fp/] [implementation/] [mmix/] [strcpy.mms] - Rev 15
Go to most recent revision | Compare with Previous | Blame | View Log
in IS $2
out IS $3
r IS $4
l IS $5
m IS $6
t IS $7
mm IS $8
tt IS $9
flip GREG #0102040810204080
ones GREG #0101010101010101
LOC #100
StrCpy AND in,$0,#7
SLU in,in,3
AND out,$1,#7
SLU out,out,3
SUB r,out,in
LDOU out,$1,0
SUB $1,$1,$0
NEG m,0,1
SRU m,m,in
LDOU in,$0,0
PUT rM,m
NEG mm,0,1
BN r,1F
NEG l,64,r
SLU tt,out,r
MUX in,in,tt
BDIF t,ones,in
AND t,t,m
SRU mm,mm,r
PUT rM,mm
JMP 4F
1H NEG l,0,r
INCL r,64
SUB $1,$1,8
SRU out,out,l
MUX in,in,out
BDIF t,ones,in
AND t,t,m
SRU mm,mm,r
PUT rM,mm
PBZ t,2F
JMP 5F
3H MUX out,tt,out
STOU out,$0,$1
2H SLU out,in,l
LDOU in,$0,8
INCL $0,8
BDIF t,ones,in
4H SRU tt,in,r
PBZ t,3B
SRU mm,t,r
MUX out,tt,out
BNZ mm,1F
STOU out,$0,$1
5H INCL $0,8
SLU out,in,l
SLU mm,t,l
1H LDOU in,$0,$1
MOR mm,mm,flip
SUBU t,mm,1
ANDN mm,mm,t
MOR mm,mm,flip
SUBU mm,mm,1
PUT rM,mm
MUX in,in,out
STOU in,$0,$1
POP 0
Main SET $3,#8001
0H SET $0,0
SET $1,#aa
1H STB $1,$0,0
INCL $1,#11
CMP $2,$1,#dd
CSZ $1,$2,#aa
INCL $0,1
CMP $6,$0,32
PBNZ $6,1B
SET $0,$3
ADD $2,$3,$5
SET $1,3
JMP 2F
1H STB $1,$0,0
SUB $1,$1,1
CSZ $1,$1,3
INCL $0,1
2H CMP $6,$0,$2
PBNZ $6,1B
SET $1,0
STB $1,$0,0
PUSHJ 2,StrCpy
SET $6,0
JMP 0B
% put src address in $3
% put dest addr in $4
% put string length in $5
Go to most recent revision | Compare with Previous | Blame | View Log