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

⟦7fc147c16⟧

    Length: 4674 (0x1242)
    Notes: pts_type(SC)
    Names: »DMFDB.SC«

Derivation

└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
    └─⟦this⟧ »M:92SP/DMFDB.SC« 
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
    └─⟦this⟧ »M:92SP/DMFDB.SC« 

PTS(SC)

	IDENT DMFDB 	REL 9.2 79-11-16  870105040920


* 
* 
****************************************************
* 
*   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	00000	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	00240	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	02280
* 
X:D	EQU	96
QFDBFL	EQU	00114	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