|
|
1.1 root 1: TEXT strchr(SB), $0
2:
3: MOVL s+0(FP), A0
4: MOVB c+7(FP), R2
5: BEQ null
6:
7: l:
8: MOVB (A0)+, R1
9: BEQ out
10: CMPB R1, R2
11: BNE l
12:
13: MOVL A0, R0
14: ADDL $-1, R0
15: RTS
16:
17: out:
18: CLRL R0
19: RTS
20:
21: null:
22: TSTB (A0)+
23: BNE null
24:
25: MOVL A0, R0
26: ADDL $-1, R0
27: RTS
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.