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

⟦a439b9ac3⟧

    Length: 2916 (0xb64)
    Notes: pts_type(SC)
    Names: »DMFDB.SC«

Derivation

└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
    └─⟦this⟧ »M:167D/DMFDB.SC« 

PTS(SC)

	IDENT DMFDB 	REL 8.2 78-09-15  870105040820

* 
****************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   DMFDB  = FILE DESCRIPTOR BLOCKS  FDB
* 
* 
* 
* 
* 
* 
****************************************************
* 
*   ALLOCATE FDB AREA 
*   BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED 
* 
	ENTRY	FDBSTA 
	ENTRY	FDBEND 
	ENTRY	QFDBFL 
	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	X:C	MASTER INDEX AREA 
CRBUFL	EQU	12	SIZE CRN BUFFER 
* 
*   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	00180	CURRENCY AREA
* 
* 
X:A	EQU	250 
* 
*   QFDBAR IS TEHE SIZE OF THE FDB AREA IN WORDS
*   WHERE QFDBFL BYTES ARE USED FOR EACH FDB
* 
QFDBAR	EQU	00245
* 
QFDBFL	EQU	96	FDB FIX PART LENGTH 
* 
	EJECT
* 
FDBSTA	EQU	*
	RES	QFDBAR 
FDBEND	EQU	*
CRNQUE	DATA	0	CRN LINK ROOT 
	RES	CRNBAR 
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