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

⟦1456cbb32⟧ 

    Length: 1314 (0x522)
    Notes: pts_type(SC)
    Names: »GFLDIX.SC«

Derivation

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

PTS(SC)

	IDENT	GFLDIX	810622 NJ 
* 
	ENTRY	GFLDIX 
	EXTRN	I:EVA0 
	EXTRN	I:RT1
* 
* 
* 
*	THE PROCEDURE EXTRACTS THE FIELDINDEX 
*	FROM THE FIELDTABLE.
*	THIS INDEX IS LOCATED IN BIT 11-15
* 
GFLDIX	EQU	*
	CF	A14,I:EVA0	GET ADDRESS OF WORKFIELD 
	LD	A1,0,A9	LOAD CONTENTS 
	ANKL	A1,/001F	ZEROISE BIT 0-10 
	ST	A1,0,A9	RESTOREIN WORKFIELD 
	ABL	I:RT1	RETURN TO CALLER 
	END

Full view