DataMuseum.dk

top - metrics - download

    Length: 4662 (0x1236)
    Notes: pts_type(SC)
    Names: »DMFDB.SC«

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/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	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	X:B	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	X:A
* 
X:D	EQU	96
QFDBFL	EQU	X:D	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