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

⟦4925c6dfc⟧

    Length: 3938 (0xf62)
    Notes: pts_type(SC)
    Names: »DE16ST.SC«

Derivation

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

PTS(SC)

	IDENT	DE16ST 
************************* 
* 16 ERROR-MESSAGES 
************************* 
	DDUM	DEDDIV
	PDIV 
	ENTRY	DE16ST 
	EXT	DECLRN 
	EXT	DERR 
	EXT	DEDISC 
	EJECT
DE16ST	PROC 
	MOVE	STR1A,MODTAB(W4)	E
	ATTFMT	F16 
	B	SETPR
CANC
	PERF	DEDISC,W21
	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 
	MOVE	BIN1,=W'22' 
	PERF	DEDISC,BIN1 
	BNOK	CANC10
RETUR	RET 
	PEND 
	EJECT
F16	FRMT
	FSL
	FCOPY	=C'16 ERROR-MESSAGES'
	FNL
	FCOPY	=C'NAME  CONTENTS' 
	FNL
	FCOPY	STR1A
	FCOPY	=C'01' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W1)
	FNL
	FCOPY	STR1A
	FCOPY	=C'02' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W2)
	FNL
	FCOPY	STR1A
	FCOPY	=C'03' 
	FKI	7,MINL=0,MAXL=20,ALPHA,VERIF 
	FCOPY	ERR(W3)
	FNL
	FCOPY	STR1A
	FCOPY	=C'04' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W4)
	FNL
	FCOPY	STR1A
	FCOPY	=C'05' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W5)
	FNL
	FCOPY	STR1A
	FCOPY	=C'06' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W6)
	FNL
	FCOPY	STR1A
	FCOPY	=C'07' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W7)
	FNL
	FCOPY	STR1A
	FCOPY	=C'08' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W8)
	FNL
	FCOPY	STR1A
	FCOPY	=C'09' 
	FKI	7,MINL=0,MAXL=20,ALPHA,VERIF 
	FCOPY	ERR(W9)
	FNL
	FCOPY	STR1A
	FCOPY	=C'10' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W10) 
	FNL
	FCOPY	STR1A
	FCOPY	=C'11' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W11) 
	FNL
	FCOPY	STR1A
	FCOPY	=C'12' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W12) 
	FNL
	FCOPY	STR1A
	FCOPY	=C'13' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W13) 
	FNL
	FCOPY	STR1A
	FCOPY	=C'14' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W14) 
	FNL
	FCOPY	STR1A
	FCOPY	=C'15' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W15) 
	FNL
	FCOPY	STR1A
	FCOPY	=C'16' 
	FKI	7,MINL=0,MAXL=20,ALPHA 
	FCOPY	ERR(W16) 
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
	END

Full view