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

⟦337ce44f8⟧ 

    Length: 7224 (0x1c38)
    Notes: pts_type(SC)
    Names: »DEATTF.SC«

Derivation

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

PTS(SC)

	IDENT	DEATTF	REL 10.0 80-04-11 
			80-04-14/JAER
* 
*        THIS ROUTINE ATTACHES ACTUAL FORMAT DEFINITION FORMAT
* 
	DDUM	DEDDIV
	PDIV 
	ENTRY	DEATTF 
	EJECT
DEATTF	PROC 
	TBT	BOOL6,ATT10	JUMP IF BALANCE FORMAT 
	ATTFMT	F21FD	ATTACH USER FORMAT DEF
	B	ATT99
ATT10 
	ATTFMT	F22FD	ATTACH BALANCE FORMAT DEF 
ATT99 
	RET
	PEND 
	EJECT
F21FD	FRMT
	FSL
	FTEXT	'21 USER ' 
	FCOPY	='FORMAT'
	FILLR	' ',1
	FCOPY	='DEFINITION'
	FBF	BOOL7,F21A	JUMP IF NEW-REG.
	FTAB	35
	FHIGH
	FCOPY	='CORRECTION'
	FLOW 
F21A
	FNL
	FNL
	FLINK	F20COM 
	FNL
	FNL
	FCOPY	='FIELD' 
	FTEXT	=': F' 
	FINP	9 
	FMEL	'XXX',FDVBCD(W4)
	FTAB	15
	FCOPY	='START:'
	FINP	22
	FMEL	'ZZ',FDVBCD(W5) 
	FTAB	30
	FCOPY	='LENGTH'
	FILLR	':',1
	FINP	38
	FMEL	'ZZ',FDVBCD(W6) 
	FTAB	46
	FTEXT	'OCCUPIED '
	FCOPY	='RECORD'
	FCOPY	='LENGTH'
	FILLR	':',1
	FINP	69
	FMEL	'TTTT',FDVBCD(W8) 
	FNL
	FNL
	FTAB	10
	FTEXT	'KEYED INPUT ' 
	FILLR	'(',1
	FUL
	FILLR	'Y',1
	FNUL 
	FTEXT	'/N/C):' 
	FKI	32,APPL=108,ALPHA,MAXL=1,NEOI,CTAB 
	FCOPY	FDVSTR(W1) 
	FTAB	46
	FTEXT	'MINIMUM ' 
	FCOPY	='LENGTH'
	FTAB	62
	FILLR	':',1
	FKI	64,APPL=105,MAXL=2,REWRT,NEOI,CTAB 
	FMEL	'XX',FDVBCD(W7) 
	FNL
	FTAB	10
	FTEXT	'MUST ENTER  ' 
	FTEXT	'(Y/'
	FUL
	FILLR	'N',1
	FNUL 
	FTEXT	'/C):' 
	FKI	32,APPL=114,MAXL=1,ALPHA,NEOI,CTAB 
	FCOPY	FDVSTR(W2) 
	FTAB	46
	FTEXT	'AUTO TAB' 
	FTAB	57
	FTEXT	'(Y/'
	FUL
	FILLR	'N',1
	FNUL 
	FTEXT	'):' 
	FKI	64,APPL=115,MAXL=1,ALPHA,NEOI,CTAB 
	FCOPY	FDVSTR(W3) 
	FNL
	FTAB	10
	FTEXT	'DUPLICATE ' 
	FTAB	29
	FILLR	':',1
	FKI	32,APPL=106,ALPHA,MAXL=6,MINL=1,NEOI,CTAB
	FCOPY	DUPL 
	FTAB	46
	FTEXT	'VERIFY' 
	FTAB	57
	FTEXT	'(Y/'
	FUL
	FILLR	'N',1
	FNUL 
	FILLR	')',1
	FILLR	':',1
	FKI	64,APPL=116,MAXL=1,ALPHA,NEOI,CTAB 
	FCOPY	FDVSTR(W4) 
	FNL
	FTAB	10
	FTEXT	'INITIAL CLEAR ' 
	FILLR	'(',1
	FUL
	FILLR	'Y',1
	FNUL 
	FTEXT	'/N):' 
	FKI	32,APPL=117,MAXL=1,ALPHA,NEOI,CTAB 
	FCOPY	FDVSTR(W5) 
	FTAB	46
	FTEXT	'SPECIAL HANDLING:'
	FKI	64,APPL=107,MAXL=5,REWRT,NEOI,CTAB 
	FMEL	'ZZVZZZ',SPEC 
	FNL
	FNL
	FCOPY	='VALIDATION ' 
	FCOPY	='(#V:...)'
	FTAB	25
	FCOPY	='GENERATION ' 
	FCOPY	='(#G:...)'
	FTAB	50
	FCOPY	='ACCUMULATION ' 
	FCOPY	='(#A:...)'
	FNL
	FKI	1,APPL=111,MAXL=80,ALPHA,NEOI,CTAB 
	FCOPY	FORTAB(W1)	VAL-GEN-ACC-STRING1 
	FNL
	FKI	1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB 
	FCOPY	FORTAB(W2)	VAL-GEN-ACC-STRING2 
	FNL
	FKI	1,CTAB 
	FCOPY	HEX00
	FMEND
	EJECT
F22FD	FRMT
	FSL
	FTEXT	'22 BALANCE '
	FCOPY	='FORMAT'
	FILLR	' ',1
	FCOPY	='DEFINITION'
	FBF	BOOL7,F22A	JUMP IF NEW-REG.
	FTAB	35
	FHIGH
	FCOPY	='CORRECTION'
FLOW
F22A
	FNL
	FNL
	FLINK	F20COM 
	FNL
	FNL
	FTAB	10
	FCOPY	='START' 
	FTAB	27
	FILLR	':',1
	FINP	30
	FMEL	'ZZ',FDVBCD(W5) 
	FTAB	46
	FCOPY	='LENGTH'
	FTAB	62
	FILLR	':',1
	FINP	64
	FMEL	'ZZ',FDVBCD(W6) 
	FNL
	FTAB	10
	FCOPY	='BATCH' 
	FTEXT	'-ACCUMULATOR:A' 
	FKI	30,APPL=109,MAXL=2,REWRT,NEOI,CTAB 
	FMEL	'XX',FDVBCD(W8) 
	FTAB	46
	FTEXT	'SPECIAL HANDLING:'
	FKI	64,APPL=107,MAXL=5,REWRT,NEOI,CTAB 
	FMEL	'ZZVZZZ',SPEC 
	FNL
	FNL
	FCOPY	='VALIDATION ' 
	FCOPY	='(#V:...)'
	FTAB	25
	FCOPY	='GENERATION ' 
	FCOPY	='(#G:...)'
	FNL
	FKI	1,APPL=111,MAXL=80,ALPHA,NEOI,CTAB 
	FCOPY	FORTAB(W1)	VAL-GEN-ACC-STRING1 
	FNL
	FKI	1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB 
	FCOPY	FORTAB(W2)	VAL-GEN-ACC-STRING2 
	FNL
	FKI	1,CTAB 
	FCOPY	HEX00
	FMEND
	EJECT
F20COM	FRMT 
	FCOPY	='FORMAT'
	FILLR	':',1
	FKI	9,APPL=101,MINL=1,MAXL=6,ALPHA,ME,NEOI,NCLR,CTAB 
	FCOPY	FORMAT 
	FTAB	16
	FCOPY	='PAGE'
	FTEXT	' SIZE:' 
	FKI	27,APPL=102,NEOI,MINL=1,MAXL=2,ME,NCLR,CTAB
	FMEL	'AA',FDVBCD(W1) 
	FTAB	30
	FCOPY	='LINE ' 
	FCOPY	='NUMBER'
	FILLR	':',1
	FINP	43
	FMEL	'Z9',FDVBCD(W2) 
	FTAB	46
	FCOPY	='NUMBER'
	FTEXT	' OF POOL-UNITS:'
	FINP	68
	FMEL	'XE+XX',FDVBCD(W3)
	FNL
	FTAB	10
	FILLR	'1',1
	FTAB	20
	FILLR	'2',1
	FTAB	30
	FILLR	'3',1
	FTAB	40
	FILLR	'4',1
	FTAB	50
	FILLR	'5',1
	FTAB	60
	FILLR	'6',1
	FTAB	70
	FILLR	'7',1
	FILLR	' ',1
	FILLR	X'80',1
	FNL
	FCOPY	='1234567890'
	FCOPY	='1234567890'
	FCOPY	='1234567890'
	FCOPY	='1234567890'
	FCOPY	='1234567890'
	FCOPY	='1234567890'
	FCOPY	='1234567890'
	FCOPY	='123456789 '
	FILLR	X'80',1
	FNL
	FINP	1 
	FCOPY	LDISP
	FNL
	FKI	1,APPL=110,ALPHA,MAXL=80,DUPL=LDISP,NEOI,CTAB
	FCOPY	LDES 
	FMEND
 END

Full view