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

⟦daa41c94d⟧ 

    Length: 1584 (0x630)
    Notes: pts_type(SC)
    Names: »ZFMTIO.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »PTSDEMO/ZFMTIO.SC«

PTS(SC)

         IDENT    ZFMTIO                FORMAT I/O CONTROL
 DDUM DEMODD
 PDIV 
	EXPROC	XAKBIN
 ENTRY ZKOPNF 
 ENTRY ZLCLSF 
ZKOPNF PROC 
ZK000 
	MOVE	FCPARAM1,=X'0'
	MOVE	WW1,=W'16'
	MOVE	WW2,=W'8' 
	MOVE	WC1STRG8,='FORMFILE'
	XCOPY	FCPARAM1,WW1,WW2,WC1STRG8,KW0	SET DSNAME 
	MOVE	WW1,=W'26'
	MOVE	WCSTRG6,='DSC001' 
	XCOPY	FCPARAM1,WW1,KW6,WCSTRG6,KW0	SET VOLNMAE 
	MOVE	WW1,=W'29'
	XCOPY	FCPARAM1,WW1,KW3,VCVOLNR2,KW0
	MOVE	WW1,=W'66'
	OPEN	DSFMTFLE,1,0,FCPARAM1,WW1 
	BOK	ZK999
	RSTAT	DSFMTFLE,NWXSTAT 
	EDWRT	SPDSSCRN,ERROPF
ZK910 
	PERF	XAKBIN,=W'0'	GET ANSWER 
	CBNE	SPBINW2,KWCANCEL,ZK910	MUST BE CANCEL 
	SET	SBCANCEL 
ZK999 
 RET
 PEND 
* 
* 
ERROPF	FRMT 
	FCOPY	=X'2031' 
	FTEXT	'FORMATFILE OPEN UNSUCCESSFULL'
	FMEND
* 
* 
ZLCLSF PROC 
ZL000 
	CLOSE	DSFMTFLE 
ZL999 
 RET
 PEND 
* 
* 
	INCLUDE	FMTPIC,LIST
* 
 END

Full view