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

⟦3c3b4634c⟧

    Length: 7636 (0x1dd4)
    Notes: pts_type(SC)
    Names: »C:DBS.SC«

Derivation

└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKAPP/C:DBS.SC« 

PTS(SC)

	IDENT C:DBS 	CONPAC REL=1.0 DATE= 80.04.29 
			UPDATE #9
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : D B S 
* 
* 
*   * 
*   THE MODULE CONTAINS DESCRIPTOR BLOCKS FOR LINE, 
*   TC, CC AND COMMON WORK BLOCKS 
* 
*   * 
*   APPLICATION:  XXXX
*   * 
* 
* 
* 
*	
* 
****************************************************************
	EJECT		IDENT C:DBS 
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	K:DBNW 
	ENTRY	K:DBL
	ENTRY	K:DBTC 
	ENTRY	K:DBCR 
	ENTRY	K:DBCC 
	ENTRY	K:DBT
	ENTRY	K:DBD
	ENTRY	K:DBCB 
	ENTRY	K:DBCA 
	ENTRY	K:DBCI 
	ENTRY	U:DBPA 
	ENTRY	U:DBPC 
* 
* 
BCD	FORM	4=0,12 
ASCII	FORM	4=8,12 
	EJECT		IDENT C:DBS 
*************************************************************** 
* 
*   DESCRIPTOR BLOCK FOR LINE WORK BLOCK
* 
*************************************************************** 
K:DBL	ASCII	2	LINE NBR
	BCD	2+4	NBR OF TIMES TC BUSY 
	BCD	6+4	NBR OF TRANSACTIONS
	BCD	10+4	NBR OF TRANSMISSION ERRORS
	ASCII	14+2	HOUR LAST TRANSACTION 
	ASCII	16+2	MINUTE     -"-
	ASCII	18+2	SECOND     -"-
	BCD	20+2	REPLY COUNTER 
	EJECT		IDENT C:DBS 
*************************************************************** 
* 
*   DESCRIPTOR BLOCK FOR TC WORK BLOCK
* 
*************************************************************** 
K:DBTC	ASCII	2	TC ADDRESS 
	BCD	2+4	NBR OF TIMES TC BUSY 
	BCD	6+4	NBR OF TRANSACTIONS
	BCD	10+4	NBR OF TRANSMISSION ERRORS
	ASCII	14+2	HOUR LAST TRANSACTION 
	ASCII	16+2	MINUTE     -"-
	ASCII	18+2	SECOND     -"-
	BCD	20+2	REPLY COUNTER 
	EJECT		IDENT C:DBS 
*************************************************************** 
* 
*   DESCRIPTOR BLOCK FOR CC RESPONSETIME
* 
*************************************************************** 
K:DBCR	BCD	4	INTERVAL 1 FOR CC RESPONSETIME COUNTER 
	BCD	4+4	         2 
	BCD	8+4	         3 
	BCD	12+4	         4
	BCD	16+4	         5
	BCD	20+4	         6
	BCD	24+4	         7
	BCD	28+4	         8
	BCD	32+4	         9
	BCD	36+4	        10
	BCD	40+4	        11
	BCD	44+4	        12
	EJECT		IDENT C:DBS 
*************************************************************** 
* 
*   DESCRIPTOR BLOCK FOR CC LINE WORK BLOCK 
* 
*************************************************************** 
K:DBCC	BCD	4	NBR OF TIME-OUTS 
	BCD	4+6	NBR OF CC TRANSACTIONS 
	BCD	10+4	NBR OF CC TRANSMISSION ERRORS 
	BCD	14+4	NBR OF SUPERVISORY MESSAGES 
	ASCII	18+2	TIME OF LAST REPLY  HOUR
	ASCII	20+2	       "         MINUTE 
	ASCII	22+2	        "         SECOND
	EJECT		IDENT C:DBS 
***************************************************************** 
* 
*   DESCRIPTOR BLOCK FOR NETWORK BLOCK
*   AND CC RESPONSE TIME WORKBLOCK
* 
***************************************************************** 
K:DBNW	EQU	*
	BCD	6	 1 INTERVAL
	BCD	6+6	 2 
	BCD	12+6	 3
	BCD	18+6	 4
	BCD	24+6	 5
	BCD	30+6	 6
	BCD	36+6	 7
	BCD	42+6	 8
	BCD	48+6	 9
	BCD	54+6	10
	BCD	60+6	11
	BCD	66+6	12
	BCD	72+6	AVERAGE RESP TIME 
	BCD	78+6	NBR OF TRANS
	BCD	84+6	NBR OF ERRORS 
	BCD	90+6	WORK AREA 1 FOR % 
	EJECT		IDENT C:DBS 
***************************************************************** 
* 
*  DESCRIPTOR BLOCK FOR CC RESPONSE TIME INTERVAL TEXTS 
* 
***************************************************************** 
K:DBCI	BCD	2	INTERVAL 1 
	BCD	2+2	         2 
	BCD	4+2	         3 
	BCD	6+2	         4 
	BCD	8+2	         5 
	BCD	10+2	        6 
	BCD	12+2	        7 
	BCD	14+2	        8 
	BCD	16+2	        9 
	BCD	18+2	       10 
	BCD	20+2	       11 
	BCD	22+2	       12 
	BCD	24+8	% WORK AREA 2 
	EJECT		IDENT C:DBS 
*************************************************************** 
* 
*   DATE AND TIME DB
* 
****************************************************************
K:DBD	ASCII	2	YEAR
	ASCII	2+2	MONTH
	ASCII	4+2	DAY
K:DBT	ASCII	2	HOUR
	ASCII	2+2	MINUTE 
	ASCII	4+2	SECOND 
	EJECT		IDENT C:DBS 

****************************************************************
* 
*   DESCRIPTOR BLOCK FOR APPLICATION
* 
*************************************************************** 
U:DBPA	ASCII	7	CASSETTE DATE LABEL
	EJECT		IDENT C:DBS 

****************************************************************
* 
*   DESCRIPTOR BLOCK FOR CONSTANTS
* 
*************************************************************** 
K:DBCA	ASCII	1	ONE
K:DBCB	BCD	1	ONE
	BCD	1+2	10 
	BCD	3+2	100
	BCD	5+3	1000 
	BCD	8+3	32K
	EJECT		IDENT C:DBS 

****************************************************************
* 
*   DESCRIPTOR BLOCK FOR APPLICATION CONSTANTS
* 
*************************************************************** 
U:DBPC	ASCII	4	WITHDRAWAL LIMIT 
	END

Full view