代码搜索结果
找到约 194 项符合
BLE 的代码
rf.s
/
/
/ rf -- real comparisons
.globl rlt4
.globl rle4
.globl req4
.globl rne4
.globl rge4
.globl rgt4
rlt4:
jsr pc,compar
blt one
br zero
rle4:
jsr pc,compar
ble one
br zero
req4:
jsr pc,co
re.s
/
/
/ re -- comparison of 8-byte quantities
.globl rle8
.globl rlt8
.globl req8
.globl rne8
.globl rge8
.globl rgt8
rlt8:
jsr pc,compar
blt one
br zero
rle8:
jsr pc,compar
ble one
br zero
re
kill.s
/ kill process
mov (sp)+,r4
tst (sp)+
loop:
dec r4
ble done
mov (sp)+,r5
clr r3
cmpb (r5),$'-
bne 1f
inc r5
clr signo
1:
movb (r5)+,r0
beq 1f
sub $'0,r0
cmp r0,$9
bhi error
mul $10.,
ar.s
/ ar -- archive/library
mov (sp)+,r0
sub $2,r0
ble userr
tst (sp)+
mov (sp)+,r1
clr r2
1:
tstb (r1)
beq 1f
cmpb (r1),$'v
bne 2f
inc r1
incb vflg
br 1b
2:
tst r2
bne userr
movb (r1)+,r
fed2.s
/
/
ed:
mov (sp)+,r3
ble error
econ:
sys stat; ftemp; buffer
bec 2f
sys creat; ftemp; 666
mov r0,tmpw
sys open; ftemp; 0
mov r0,tmpr
br 1f
2:
cmpb $'z,ftemp+9.
bne 2f
mov $1,r0
sys write;
cat.s
/ cat -- concatinate files
mov (sp)+,r5
tst (sp)+
mov $obuf,r2
cmp r5,$1
beq 3f
loop:
dec r5
ble done
mov (sp)+,r0
cmpb (r0),$'-
bne 2f
clr fin
br 3f
2:
mov r0,0f
sys open; 0:..; 0
be
rmdir.s
/ rmdir -- unlink directory
mov (sp)+,r5
tst (sp)+
loop:
dec r5
ble done
mov (sp)+,r1
mov $name,r2
clr r0
1:
inc r0
movb (r1)+,(r2)+
bne 1b
dec r2
dec r0
mov r0,size
cmp r2,$name
beq
tp3.s
/ tap3 -- dec-tape lod/dmp
gettape:
mov $dir,r1
clr -(sp)
1:
tst (r1)
beq 2f
jsr r5,decode; name
cmp rnarg,$2
ble 4f
mov $name,r2
mov *parg,r3
3:
tstb (r3)
beq 3f
cmpb (r2)+,(r3)+
beq 3b
memcmp.s
#include
.text
.align 4
.global C_LABEL(__memcmp), C_LABEL(memcmp)
C_LABEL(__memcmp):
C_LABEL(memcmp):
#if 1
cmp %o2, 0
ble L3
mov 0, %g3
L5:
ldub [%o0], %g2
ldub [%o1], %g3
bcc.s
.text
foo:
beq foo
bne foo
bgt foo
bge foo
ble foo
blt foo
bhi foo
bcc foo
bls foo
bcs foo
bvc foo
bvs foo
bnc foo
bns foo
bra foo