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

⟦60eb4057f⟧ 

    Length: 7682 (0x1e02)
    Notes: pts_type(SC)
    Names: »CASTTS.SC«

Derivation

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

PTS(SC)

         IDENT    CASTTS                SYSTEM START
 DDUM DEMODDIV
 PDIV 
 EXPROC DAUCCY
 EXPROC DBUOPR
	EXPROC	EHISYS
	EXPROC	QIRDBS
 EXPROC XBFMT 
	EXPROC	XEERR 
 EXPROC ZAOPND
	EXPROC	ZBCLSD
 EXPROC ZKOPNF
	EXPROC	ZLCLSF
 EXPROC ZCRDD 
	EXPROC	ZGREA 
	EXPROC	ZHWRID
	EXPROC	FMOVE 
 ENTRY CASTTS 
 ENTRY CBSTTS 
	ENTRY	SPAP32 
********************************************************************* 
* 
*  SYSTEM START - PART 1
* 
************************************************************************
CASTTS PROC 
CA000 
 MOVE YDSTATUS,=D'1'	SYSTEM START PROGRESSING 
* 
* PERFORM INITIALISATIONS 
* 
	MOVE	NDLASTRM,=D'100'	TERM NUMBERING 
* 
* THE NEXT FORMAT IS INCLUDED IN THE APPLICATION. 
* TO INSTRUCT XBFMT, NOT TO READ A FORMAT, PARAMETER W'0' 
* IS PASSED TO XBFMT
* 
         CALL    FMOVE,FCFORMAT,FMTVOL
         PERF    XBFMT,=W'0'
         TBT     SBCANCEL,CA900 
	CALL	FMOVE,FCFORMAT,FMTSYS 
	PERF	XBFMT,=W'0'	LANGUAGE AND DBS VOLNAME
 TBT SBCANCEL,CA900 
	MOVE	NDTRMLGG,YDSYSLGG	SET LANGUAGE
 B CA999
* 
CA900 
 MOVE YDSTATUS,=D'0'	RESET TO SYSTEM NOT STARTED
CA999 
 RET
 PEND 
********************************************************************* 
* 
*  GET FORMAT FILE VOLUME NAME
* 
********************************************************************* 
FMTVOL   FRMT 
         FSL
         FTEXT   'FORMAT FILE VOLUME NAME ?  DSC' 
         FKI     31,MINL=1,MAXL=3,NUM,NEOI
         FCOPY   VCVOLNR2 
         FMEND
************************************************************************
* 
* GET SYSTEM LANGUAGE AND VOLUME NUMBERS
* 
************************************************************************
FMTSYS	FRMT 
 FSL
 FTEXT 'SYSTEM LANGUAGE ?'
 FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=5 
 FMEL '9',YDSYSLGG
 FNL
 FTEXT 'DATA BASE VOLUME NAME ?    DSC' 
 FKI 31,ME,MINL=3,MAXL=3,NUM,NEOI,APPL=27 
 FCOPY VCVOLNR1 
 FMEND
************************************************************************
* 
* SYSTEM START - PART 2 
* 
************************************************************************
CBSTTS PROC 
CB000 
* 
* READ SYSTEM RECORD
* 
 MOVE YDSYSRNR,=D'1'
 MUL YDSYSRNR,KDSHIFT	SHIFT NUMBER
	PERF	ZCRDD,YDSYSRNR,NDLRN1,KW1	READ SYSTEM RECORD
	TBT	SBCANCEL,CB900 
	TBT	SBRECAVB,CB050 
* 
* RECORD NOT AVAILABLE, PERFORM INITIALISATIONS 
* 
	PERF	EHISYS
* 
* WRITE THE SYSTEM RECORD TO THE DATABASE 
* AND UPDATE THE LRN ON DISK, SO NEXT TIME THE SYSTEM 
* RECORD CAN BE READ ANYHOW 
* 
	PERF	ZHWRID,YDSYSRNR,NDLRN1
	TBT	SBCANCEL,CB900 
	PERF	ZBCLSD	CLOSE DATABASE TO UPDATE LRN 
	TBT	SBCANCEL,CB900 
	PERF	ZAOPND	AND OPEN DATABASE AGAIN
	TBT	SBCANCEL,CB900 
	B	CB500	CONTINUE 
CB050 
* 
* CHECK WETHER OR NOT THE SYSTEM HAS BEEN CLOSED
* PROPERLY IN THE LAST DEMONSTRATION
*

Full view