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

⟦2b21cfbe0⟧

    Length: 1580 (0x62c)
    Notes: pts_type(SC)
    Names: »DMFDB.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »M:DEMO/DMFDB.SC« 

PTS(SC)

	IDENT DMFDB 	REL 10.0 80-03-14 870105041000

****************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   THIS MODULE CONTAINS AREAS FOR :
*    CURRENCY 
*     MASTER INDEXES
* 
* 
****************************************************
* 
	ENTRY	CRNQUE,CRBUFL
	ENTRY	CRNEND 
	ENTRY	MXIND
	EJECT
* 
*   MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN 
*   WORDS 
* 
X:C	EQU	0 
MXSIZ	EQU	00100	MASTER INDEX AREA 
	IFF	MXSIZ=0	INDEXES
CRBUFL	EQU	12	SIZE CRN BUFFER 
	XIF
	IFT	MXSIZ=0	NO INDEXES 
CRBUFL	EQU	8
	XIF
* 
*   CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS 
*   WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER 
* 
X:B	EQU	50
CRNBAR	EQU	00108	CURRENCY AREA
* 
* 
X:A	EQU	250 
* 
	EJECT
* 
CRNQUE	DATA	0	CRN LINK ROOT 
	IFF	CRNBAR=0 
	RES	CRNBAR 
	XIF
	IFT	CRNBAR=0 
	RES	6	DEFAULT
	XIF
CRNEND	EQU	*
MXIND	DATA	MXINDE-*	LENGTH INDEX INDEX
	DATA	MXAR	MASTER INDEX ADDR
	DATA	MXSIZ	MASTER INDEX SIEZE
	IFF	MXSIZ=0
	DATA	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
	XIF
MXINDE	EQU	*	END INDEX INDEX
	DATA	0,0	SIGNIFICANT ZEROES AFTER INDEXINDEX 
MXAR	EQU	*
	RES	MXSIZ
	END

Full view