DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

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

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f8855134a⟧ 

    Length: 904 (0x388)
    Notes: pts_type(SC)
    Names: »BITPUL.SC«

Derivation

└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
    └─⟦this⟧ »ATM/BITPUL.SC« 
    └─⟦this⟧ »ATM6601/BITPUL.SC« 
    └─⟦this⟧ »BEBATM/BITPUL.SC«

PTS(SC)

	IDENT BITPUL REL 12.0 83-01-21 
 ENTRY TESTBI 
 ENTRY SETBIT 
 EXTRN I:EVA0 
 EXTRN I:RT1

TESTBI EQU *
 CF A14,I:EVA0
 LDR* A1,A9 GET BIN CONTENTS
 ST A1,-2,A9 STORE BOOLEANS 
RETURN EQU *
 ABL I:RT1

SETBIT EQU *
 CF A14,I:EVA0
 LD A1,-2,A9 GET BOOLEANS 
 STR A1,A9 STORE IN BIN 
 RB RETURN
 END

Full view