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

⟦9869112b8⟧ 

    Length: 1340 (0x53c)
    Notes: pts_type(SC)
    Names: »GMSGIX.SC«

Derivation

└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
    └─⟦this⟧ »A:DSB/GMSGIX.SC«

PTS(SC)

	IDENT	GMSGIX	810916 NJ 
* 
* 
	ENTRY	GMSGIX 
	EXTRN	I:EVA0 
	EXTRN	I:RT1
* 
* 
*	THE ROUTINE SHIFTS THE CONTENTS 
*	OF BIT 4-10 TO BIT 9-15 
*	THESE BITS CONTAIN THE MESSAGEINDEX 
*	FOR A FIELD IN ERROR
* 
GMSGIX	EQU	*
	CF	A14,I:EVA0
	LD	A1,0,A9	LOAD FIELD CONTENTS 
	ANKL	A1,/0FFF	ZEROISE BIT 0-3
	SRL	A1,5	SHIFT (4-10) -> (9-15)
	ST	A1,0,A9	RESTORE CONTENTS
	ABL	I:RT1
	END

Full view