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

⟦bd5bb27d7⟧

    Length: 4410 (0x113a)
    Notes: pts_type(SC)
    Names: »DE14ST.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »S:DE/DE14ST.SC« 
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »DEN10/DE14ST.SC« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »S:DE/DE14ST.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »DEN10/DE14ST.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »S:DE/DE14ST.SC« 

PTS(SC)

	IDENT	DE14ST	REL 10.0 80-04-11 
			79-11-15/LABJ
************************* 
* 14 SYSTEM-VARIABLES 
************************* 
	DDUM	DEDDIV
	PDIV 
	ENTRY	DE14ST 
	EXT	DECLRN 
	EXT	DERR 
	EXT	DEDISC 
	EJECT
DE14ST	PROC 
	ATTFMT	F14 
	B	SETPR
* 
CANC	PERF	DEDISC,W19	GET SYSV 
	BOK	SETPR
CANC10	PERF	DERR
	B	A1 
SETPR	SET	DEPROMPT
	PERF	DECLRN
A1	IB	DEBINW2,CANC,RETUR,ENTER
	MOVE	DEBINW4,W0	ERROR
	B	CANC10 
* 
ENTER	PERF	DEDISC,W20	ENTER SYSV
	BNOK	CANC10
RETUR	RET 
	PEND 
	EJECT
F14	FRMT
	FSL
	FCOPY	=C'14 SYSTEM-VARIABLES'
	FNL
	FCOPY	=C'NAME  CONTENTS' 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'01' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W1) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'02' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W2) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'03' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W3) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'04' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W4) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'05' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W5) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'06' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W6) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'07' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W7) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'08' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W8) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'09' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W9) 
	FNL
	FCOPY	MODTAB(W5) 
	FCOPY	=C'10' 
	FKI	7,MINL=0,MAXL=17,ALPHA 
	FCOPY	SYSV(W10)
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
	END

Full view