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

⟦0c0021f4f⟧ 

    Length: 7632 (0x1dd0)
    Notes: pts_type(SC)
    Names: »SL787.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/SL787.SC« 
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
    └─⟦this⟧ »NJREMIT/SL787.SC« 
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/SL787.SC« 
    └─⟦this⟧ »REMIT2/SL787.SC«

PTS(SC)

NOKEY	EQU	X'FF' 
BSPKY1	EQU	X'87'
CANKY1	EQU	X'91'
MACKY1	EQU	X'95'
EORKY1	EQU	X'90'
FTABKY1	EQU	X'8B' 
BTABKY1	EQU	X'83' 
DUPKY1	EQU	X'A2'
SLUTKY1	EQU	X'A3' 
REGKY1	EQU	X'A1'
COPKY1	EQU	X'FF'
EDTKY1	EQU	X'FF'
KREKY1	EQU	X'92'
LISTKY1	EQU	X'FF' 
SBTKY1	EQU	X'8A'
SPGKY1	EQU	X'FF'
CY1KY1	EQU	X'FF'
CY2KY1	EQU	X'FF'
CYCKY1	EQU	X'89'
INVKY1	EQU	X'82'
KONKY1	EQU	X'85'
KVITKY1	EQU	X'86' 
SUPLKY1	EQU	X'88' 
SUMKY1	EQU	X'81'
ADMKY1	EQU	X'A0'
DIVKY1	EQU	X'84'
HBOGKY1	EQU	X'80' 
DEBPKY1	EQU	X'93' 
REMKY1	EQU	X'94'
TRSEL	EQU	X'FF' 
* 
FTBKY1	EQU	X'83'
BTBKY1	EQU	X'87'
INSKY1	EQU	X'81'
DELKY1	EQU	X'82'
CL1KY1	EQU	X'89'
CL2KY1	EQU	X'8A'
CL3KY1	EQU	X'8B'
OUTKY1	EQU	X'A0'
* 
BSPKY2	EQU	X'C7'
CANKY2	EQU	X'D1'
EORKY2	EQU	X'D0'
MACKY2	EQU	X'D5'
FTABKY2	EQU	X'CB' 
BTABKY2	EQU	X'C3' 
DUPKY2	EQU	X'E2'
EDTKY2	EQU	X'FF'
SLUTKY2	EQU	X'E3' 
KREKY2	EQU	X'D2'
REGKY2	EQU	X'E1'
ADMKY2	EQU	X'E0'
SPGKY2	EQU	X'FF'
KONKY2 EQU X'C5'
KVITKY2 EQU X'C6' 
* 
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
* 
* 
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
	FTEXT	='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 ='DISKETTE SKIFT ' 
 FILLR X'07',1
 FMEND
* 
MSFMT9 FRMT 
 FSL
 FCOPY ='OPSTART '
 FMEND
*

Full view