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

⟦bda815a8d⟧ 

    Length: 4596 (0x11f4)
    Notes: pts_type(SC)
    Names: »SL461.SC«

Derivation

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »OD-KOM/SL461.SC«

PTS(SC)

SPKTAB1 KTAB BSPKY1,CANKY1,NOKEY,EORKY1,NOKEY,MACKY1,		C
		FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		COPKY1,DUPKY1,EDTKY1,SLUTKY1,		C
		KREKY1,REGKY2,LISTKY1,SBTKY1,SPGKY1,		C 
		CY1KY1,CY2KY1,INVKY1,KONKY1,KVITKY1,SUPLKY1,SUMKY1,		C
		ADMKY1,CYCKY1,DIVKY1,HBOGKY1,DEBPKY1,REMKY1,TRSEL 
* 
SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,EORKY1,NOKEY,MACKY1,		C
		FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		COPKY1,DUPKY1,EDTKY1,SLUTKY1,		C
		KREKY1,REGKY2,LISTKY1,SBTKY1,SPGKY1,		C 
		CY1KY1,CY2KY1,INVKY1,KONKY1,KVITKY1,SUPLKY1,SUMKY1,		C
		ADMKY1,CYCKY1,DIVKY1,HBOGKY1,DEBPKY1,REMKY1,TRSEL 
* 
SPKTAB3	KTAB	FTBKY1,BTBKY1,INSKY1,DELKY1,		C
		CL1KY1,CL2KY1,CL3KY1,OUTKY1 
* 
SPKTAB12	KTAB	BSPKY2,CANKY2,NOKEY,EORKY2,NOKEY,MACKY2,		C 
		FTABKY2,BTABKY2,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,DUPKY2,EDTKY2,SLUTKY2,		C 
		KREKY2,REGKY2,ADMKY2,SPGKY2,KONKY2,KVITKY2
* 
SPKTAB22	KTAB	BSPKY2,CANKY2,NOKEY,EORKY2,NOKEY,MACKY2,		C 
		FTABKY2,BTABKY2,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,DUPKY2,EDTKY2,SLUTKY2,		C 
		KREKY2,REGKY2,ADMKY2,SPGKY2,KONKY2,KVITKY2
* 
*          INQUIRY KEYTABLES (SPKEY=3)
* 
SPKTAB13 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1,		C
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,SLUTKY1,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,INVKY1,KONKY1,KVITKY1 
* 
SPKTAB23 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1,		C
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		ADMKY1
* 
* 
SPFTBERR	FTABLE	ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRDSK,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT	WARNINGS 
* 
SPFTBMES	FTABLE	MSFMT1,MSFMT2,MSFMT3,MSFMT4,MSFMT5,MSFMT6,		C 
		MSFMT7,MSFMT8,MSFMT9,MSFMT10,MSFMT11
* 
* 
ERRFMT FRMT 
 FSL
	FCOPY	='FEJL ' 
	FMEL	'ZZ9',GSWBCD4	ERRORNR.
 FMEND
* 
ERRDSK	FRMT 
	FSL
	FMEL	'99B',GTWBCD2 
 FCOPY GSWSTR9
	FMEL	'99',GTWBCD1
	FMEND
* 
MSFMT1	FRMT 
	FSL
	FCOPY	='SKIFT JOURNAL' 
	FMEND
* 
MSFMT2	FRMT 
	FSL
  FCOPY  ='LINIE NR'
  FILLR  '.',1
	FMEND
* 
MSFMT3	FRMT 
	FSL
	FTEXT	='NY SIDE. ' 
	FMEND
* 
MSFMT4	FRMT 
	FSL
	FBF	TTSUMFLG,FMT4END 
	FTAB	15
	FCOPY	GTL8TXT
	FINP	23
	FMEL	'ZZZZZVZZ9,99+',GTSUM 
FMT4END 
	FMEND
* 
MSFMT5	FRMT 
	FSL
	FCOPY	='BILAG' 
	FMEND
* 
MSFMT6	FRMT 
	FSL
	FCOPY	='KONTOKORT' 
	FMEND
* 
MSFMT7	FRMT 
	FSL
	FCOPY	TTINF1 
	FMEND
* 
MSFMT8 FRMT 
 FSL
 FCOPY ='DISK SKIFT ' 
 FILLR X'07',1
 FMEND
* 
MSFMT9 FRMT 
 FSL
 FCOPY ='OPSTART '
 FCOPY CTID(GSWBIN6) TASK ID
 FMEND
* 
MSFMT10 FRMT
 FSL
 FMEL 'TTTTTTTTTTTT9-',GTWBCD2
 FMEND
* 
MSFMT11 FRMT
 FSL
 FTEXT 'DISK STANDSET. '
 FCOPY ='AFVENT VENLIGST.'
 FILLR X'07',1
 FMEND
*

Full view