DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

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

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦6eb8073b2⟧ TextFile

    Length: 507 (0x1fb)
    Types: TextFile
    Names: »bits.asm.vax«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦526ad3590⟧ »EUUGD11/gnu-31mar87/X.V10.R4.tar.Z« 
        └─⟦2109abc41⟧ 
            └─ ⟦this⟧ »./X.V10R4/xfax/bits.asm.vax«

TextFile

comp = qproc (b: _bytevec)
	extzv	2,14,(rr),n1
	addl	4,rr,n2
	qloop
		mcoml	(n2),(n2)+
		sobgtr	n1,this
	end
	end comp

getb = qproc (b: _bytevec, bit: int) returns (bool)
	addl	4,b,n1
	extzv	rr,1,(n1),rr
	return(rr)
	end getb

getn = qproc (b: _bytevec, bit, len: int) returns (int)
	addl	4,b,n1
	extzv	bit,rr,(n1),rr
	return(rr)
	end getn

setb = qproc (b: _bytevec, bit: int)
	addl	4,b,n1
	insv	1,rr,1,(n1)
	end setb

setn = qproc (b: _bytevec, bit, len: int)
	addl	4,b,n1
	insv	-1,bit,rr,(n1)
	end setn