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

⟦c2ba57834⟧

    Length: 1576 (0x628)
    Notes: pts_type(SC)
    Names: »DMFDB.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »TOSSWORK/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	X:C	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	X:B	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