|
|
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.