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

⟦9f5dfb988⟧ 

    Length: 30076 (0x757c)
    Notes: pts_type(SC)
    Names: »ZDSCIO.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »DEMO6800/ZDSCIO.SC« 
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
    └─⟦this⟧ »DEMO6800/ZDSCIO.SC« 
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »PTSDEMO/ZDSCIO.SC«

PTS(SC)

 IDENT ZDSCIO DISC I/O OPERATIONS
	DDUM	DEMODD			
	PDIV				
	ENTRY	ZAOPND			
	ENTRY	ZBCLSD			
	ENTRY	ZCRDD			
	ENTRY	ZDRWRD			
	ENTRY	ZEINSD			
	ENTRY	ZGREA
	ENTRY	ZHWRID 
         ENTRY   ZYRLNG 
	ENTRY	ZZERR			
         EXPROC     QEMOVE
	EXPROC	MASK
	EXPROC	XAKBIN
	EXPROC	XEERR 
	EJECT				
************************************************************************
**
*      PROCEDURE: ZAOPND*
*      FUNCTIONAL DESCRIPTION:*
*          ASSIGN DATABASE AS A COMMON FILE FOR BOTH INDEXFILES*
*      USE OF VARIABLES:*
*             VCDBSVOL  : DATABASE VOLUME NAME*
*             WC1STRG8  : INDEXFILE-NAME-1*
*             WC2STRG8  : INDEXFILE-NAME-2*
*             WW1       : CONTAINS THE ERROR-CODE IF AN ERROR*
*                         OCCURED DURING ASSIGNMENT*
**
************************************************************************
ZAOPND	PROC				
ZA000					
	MOVE	FCPARAM,=X'0' 
	MOVE	WW1,=W'11'
	XCOPY	FCPARAM,WW1,KW1,KW1,KW1	SET INDEX FILE 
	MOVE	WW1,=W'16'
	MOVE	WW2,=W'8' 
	MOVE	WC1STRG8,='DATABA  '
	XCOPY	FCPARAM,WW1,WW2,WC1STRG8,KW0	SET DSNAME
	MOVE	WW1,=W'26'
	MOVE	WCSTRG6,='DSC001' 
	XCOPY	FCPARAM,WW1,KW3,WCSTRG6,KW0	SET VOLNAME
	MOVE	WW1,=W'29'
	XCOPY	FCPARAM,WW1,KW3,VCVOLNR1,KW0 
	MOVE	WW1,=W'66'
	MOVE	WW2,=W'26'
	XCOPY	FCPARAM,WW1,KW6,FCPARAM,WW2	SET INDEX VOLNR
	MOVE	WW1,=W'76'
	XCOPY	FCPARAM,WW1,KW1,KW2,KW1	NUMBER OF INDEXES
	MOVE	WW1,=W'85'
	XCOPY	FCPARAM,WW1,KW1,KW1,KW1
	MOVE	WW1,=W'88'
	XCOPY	FCPARAM,WW1,KW1,KW6,KW1	KEY LENGTH 
	MOVE	WW1,=W'97'
	XCOPY	FCPARAM,WW1,KW1,KW1,KW1	NUMBER OF KEY ITEMS
	MOVE	WW1,=W'98'
	XCOPY	FCPARAM,WW1,KW2,KW6,KW0	DISPLACEMENT 
	MOVE	WW1,=W'100' 
	XCOPY	FCPARAM,WW1,KW1,KW3,KW1	KEY LENGTH 
	MOVE	WW1,=W'102' 
	OPEN	DSDBS,7,1,FCPARAM,WW1 
	BNOK	ZA900 
	COMMIT	NWXSTAT 
	B	ZA999
ZA900					
	RSTAT	DSDBS,NWXSTAT
	EDWRT	SPDSSCRN,ERROPN	'OPEN FILE UNSUCCESFULL' 
ZA910 
	PERF	XAKBIN,=W'0'	GET ANSWER 
	CBNE	SPBINW2,KWCANCEL,ZA910	MUST BE CANCEL 
	SET	SBCANCEL 
ZA999					
	RET				
	PEND				
* 
* 
ERROPN	FRMT 
	FCOPY	=X'2031' 
	FTEXT	'FILE OPEN UNSUCCESFULL' 
	FMEND
	EJECT				
************************************************************************
*      PROCEDURE: ZBCLSD*
*      FUNCTIONAL DESCRIPTION:*
*          CLOSE DATABASE FOR BOTH INDEXFILES*
**
************************************************************************
ZBCLSD   PROC 
ZB000					
	CLOSE	DSDBS
	BOK	ZB900
ZB500

Full view