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

⟦974326a54⟧ 

    Length: 4580 (0x11e4)
    Notes: pts_type(SC)
    Names: »DE15ST.SC«

Derivation

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

PTS(SC)

	IDENT	DE15ST	REL 10.0 80-04-11 
			79-12-02/LABJ
****************
*  FILE SPACE  *
****************
 DDUM DEDDIV
 PDIV 
 ENTRY DE15ST 
	EXT	DECLRN 
 EXT ATTWB
 EXT DEPOOL 
	EXT	OPCL 
	EXT	DERR 
* 
* 
DE15ST PROC 
DE15
 MOVE PINDTB,W1 
 PERF DEPOOL,W1,PINDTB,W1,STRG10A 
 BOK C00
C01 
 PERF DERR
 IB DEBINW2,DE15,RETUR
 B C01
C00 
 CALL ATTWB,BPOOL(PINDTB),W0,W11
	ATTFMT	F15 
	ERASE	3,W1,W0	ONLY ITEMS 
C05 
	MOVE	FDVBCD(W1),FRINF(W1)	NO. OF REC. SYSTEMFILE 
	MOVE	FDVBCD(W2),FNOOFREC(W1)	FREE IN SYSFIL
	MOVE	BCDI21(W1),=D'100'
	MUL	BCDI21(W1),FDVBCD(W2)	FREE 
	DIV	BCDI21(W1),FDVBCD(W1)	%
	MOVE	FDVBCD(W3),BCDI21(W1) 
	SET	DEPROMPT 
C10 
	CLEAR	DECHANGE 
	PERF	DECLRN
C15 
	IB	DEBINW2,C20,RETUR,E10 
	MOVE	DEBINW4,W0
	PERF	DERR
	B	C15
C20 
	ERASE	2,W1,W0
	B	C05
E10 
	TBF	DECHANGE,RETUR 
E11 
	PERF	OPCL,W3	OPEN
	BOK	E40
	BG	E12 
ERR1
	PERF	DERR
	IB	DEBINW2,C10,RETUR,E11 
	MOVE	DEBINW2,W0
	B	ERR1 
E12 
 THOME
	PERF	DERR
	IB	DEBINW2,E15,RETUR,E40 
E15 
	MOVE	DEBINW4,W0
	B	E12
E40 
	MOVE	FDVBCD(W4),FRINF(FILINDUS)	NO. OF REC. USERFILE 
	MOVE	BIN1,FNOOFREC(FILINDUS)	FREE IN USERFIL 
* 
	MOVE	BCDI21(W1),=D'100'
	MOVE BCDI21(W2),FNOOFREC(FILINDUS) 
	MUL	BCDI21(W1),BCDI21(W2)	FREE 
	DIV	BCDI21(W1),FDVBCD(W4)	%
	MOVE	FDVBCD(W6),BCDI21(W1) 
	MOVE	FDVBCD(W5),BIN1 
* 
E50 
	DISPLAY	3,W6,W0	FINP-FIELDS
 PERF OPCL,W4 
	BOK	C10
ERR2
	PERF	DERR
	IB	DEBINW2,C10,RETUR,E50 
	MOVE	DEBINW2,W0
	B	ERR2 
RETUR 

 PERF DEPOOL,W6,PINDTB,PINDTB,STRG10A 
 PERF OPCL,W4 
	RET
 PEND 
	EJECT
F15	FRMT
	FSL
	FCOPY	=C'15 FILE SPACE'
	FNL
	FCOPY	=C'USERFILE UNIT'
 FTEXT ':U' 
 FKI 16,MINL=1,MAXL=1,NEOI,ME,APPL=6
 FMEL 'X',USERFILE
	FTAB	19
	FCOPY	=C'VOLUME-NAME:' 
	FINP	32
	FCOPY	TABLE
	FNL
	FCOPY	=C'FILE' 
	FTAB	19
	FCOPY	=C'SIZE' 
	FTAB	29
	FCOPY	=C'FREE    %'
	FNL
	FCOPY	=C'SYSTEMFILE' 
	FINP	18
	FMEL	'ZZZZ9',FDVBCD(W1)	SIZE 
	FINP	28
	FMEL	'ZZZZ9',FDVBCD(W2)	FREE REC. SYSTEMFILE 
	FINP	35
	FMEL	'ZZ9',FDVBCD(W3)	% FREE 
	FNL
	FCOPY	=C'USERFILE' 
	FINP	18
	FMEL	'ZZZZ9',FDVBCD(W4)	SIZE 
	FINP	28
	FMEL	'ZZZZ9',FDVBCD(W5)	FREE REC. USERFILE 
	FINP	35
	FMEL	'ZZ9',FDVBCD(W6)	% FREE 
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
 END

Full view