DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦4e8461d9f⟧ TextFile

    Length: 332 (0x14c)
    Types: TextFile
    Notes: UNIX file
    Names: »strlen.s«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX Filesystem
        └─ ⟦this⟧ »libc/gen/strlen.s«

TextFile

/ Segmented Z8001 Coherent string library
/ Return length of string
/ strlen(s1)
/ char *s1;

	.globl strlen_
	.globl SS

strlen_:
	ldl	rr2, SS|4(r15)		/ rr2 = s1

	subl	rr0, rr0		/ r1 = count, r0 = NULL
	cpirb	rl0, (rr2), r1, eq	/ Scan string for '\0'
	neg	r1			/ r0 = string length (plus NULL)
	dec	r1			/ r0 = string length
	ret