代码搜索结果
找到约 10,000 项符合
R 的代码
r5.s
/
/
/ <mark>r</mark>5 -- long intege<mark>r</mark> a<mark>r</mark>ithmetic
.globl iad4
.globl isb4
.globl imp4
.globl idv4
.globl ing4
.globl <mark>r</mark>e<mark>r</mark><mark>r</mark>
iad4:
js<mark>r</mark> pc,load
addf f<mark>r</mark>0,f<mark>r</mark>1
b<mark>r</mark> sto<mark>r</mark>e
isb4:
js<mark>r</mark> pc,load
subf f<mark>r</mark>0,f<mark>r</mark>1
b<mark>r</mark> sto<mark>r</m ...
r2.s
/
/
/ r2 -- comparison of 4-byte integers
.globl ilt4
.globl ile4
.globl ieq4
.globl ine4
.globl ige4
.globl igt4
.globl lan2
.globl lor2
.globl lnt2
.globl ieq2
.globl ile2
.globl igt2
.globl ige2
r3.s
/
/
/ r3 -- comparisons
.globl lif2
.globl lif1
.globl rif4
.globl iif2
.globl iif4
.globl rif8
lif2:
lif1:
tst (sp)+
bne 1f
mov (r4),r4
jmp *(r4)+
1:
tst (r4)+
jmp *(r4)+
rif8:
setd
tstf
r1.s
/
/
/ r1 -- fortran runtime
.globl gas1
.globl gas2
.globl gas4
.globl gas8
.globl stop
.globl lval
.globl rval4
.globl rval8
.globl do1
.globl do12
.globl do14
.globl do2
.globl do22
.globl do24
.g
r7.s
/
/
/ r7 -- fortran runtime
achk = 1 / 1 to check array bounds
.globl lvalp
.globl rval1p
.globl rval2p
.globl rval4p
.globl rval8p
.globl alval
.globl alvalp
.globl arval
.globl arvalp
.globl rerr
r4.s
/
/
/ r4 -- short integer arithmetic
.globl iad2
.globl isb2
.globl imp2
.globl idv2
.globl i2i4
.globl i1i4
.globl i4i2
.globl i4i1
.globl ing2
.globl rval2
.globl rval1
.globl l2l1
iad2:
add (sp
r0.s
/
/
.globl main
.globl temp
.globl <mark>r</mark>e<mark>r</mark><mark>r</mark>
.globl fpt<mark>r</mark>ap
.comm e<mark>r</mark><mark>r</mark>et,2
.comm a<mark>r</mark>gp,2
ldfps = 170100^tst
sys signal; 4; fpt<mark>r</mark>ap
ldfps $5400
mov sp,a<mark>r</mark>gp
mov $main,<mark>r</mark>4
jmp *(<mark>r</mark>4)+
<mark>r</mark>e<mark>r</mark><mark>r</mark>:
mov (<mark>r</mark>5)+,<mark>r< ...
r8.s
/
/
/ r8 - fortran runtime -- powers of integers
.globl ipi2
ipi2:
tst (sp)+
mov (sp)+,r0
bge 1f
clr (sp)
jmp *(r4)+
1:
mov (sp)+,r1
mov r3,-(sp)
mov $1,r3
1:
tst r0
beq 1f
asr r0
bcc 2
r6.s
/
/
/ <mark>r</mark>6 -- <mark>r</mark>eal a<mark>r</mark>ithmetic
.globl <mark>r</mark>ad4
.globl <mark>r</mark>ad8
.globl <mark>r</mark>sb4
.globl <mark>r</mark>sb8
.globl <mark>r</mark>mp4
.globl <mark>r</mark>mp8
.globl <mark>r</mark>dv4
.globl <mark>r</mark>dv8
.globl <mark>r</mark>ng4
.globl <mark>r</mark>ng8
.globl <mark>r</mark>4<mark>r</mark>8
.globl <mark>r</mark>8<mark>r</mark>4
.glob ...
r9.s
/
/
one = 40200
/ <mark>r</mark>9 -- fo<mark>r</mark>t<mark>r</mark>an <mark>r</mark>untime -- <mark>r</mark>eal**intege<mark>r</mark>
.globl ipi4
.globl <mark>r</mark>pi4
.globl <mark>r</mark>pi8
.globl <mark>r</mark>e<mark>r</mark><mark>r</mark>
ipi4:
setf
setl
movif 4(sp),f<mark>r</mark>0
movf f<mark>r</mark>0,4(sp)
js<mark>r</mark> <mark>r</mark>5,1f
movfi f<mark>r</mark>1,-(sp)
jm ...