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

⟦20e438564⟧ 

    Length: 6858 (0x1aca)
    Notes: pts_type(SC)
    Names: »C:WBS.SC«

Derivation

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

PTS(SC)

	IDENT C:WBS 	CONPAC REL=1.0 DATE= 80.04.29 
			UPDATE #9
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : W B S 
* 
* 
*   * 
*   THE MODULE CONTAINS WORK AREAS FOR CC AND CONSTANTS 
*   LINE AND TC WORKBLOCK DUMMYS AND NETWORK AREAS
* 
*   APPLICATION : XXXX
*   * 
* 
* 
*************************************************************** 
	EJECT		IDENT C:WBS 
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	K:WBNW 
	ENTRY	K:WBCR 
	ENTRY	K:WBCC 
	ENTRY	K:WBD
	ENTRY	K:WBT
	ENTRY	K:WBCA 
	ENTRY	K:WBCB 
	ENTRY	K:DUM
	ENTRY	K:WBCI 
	ENTRY	U:WBPA	POSTEN APPL 
	ENTRY	U:WBPC	POSTEN APPL CONSTANTS 
	ENTRY	CASDAT 
* 
* 
	EJECT		IDENT C:WBS 
*************************************************************** 
* 
*   CC RESPONSE TIME COUNTERS 
* 
***************************************************************	
K:WBCR	DATA	0,/B	INTERVAL 1 FOR CC RESPONSE TIME COUNTER
	DATA	0,/B	2
	DATA	0,/B	         3 
	DATA	0,/B	         4 
	DATA	0,/B	         5 
	DATA	0,/B	         6 
	DATA	0,/B	         7 
	DATA	0,/B	         8 
	DATA	0,/B	         9 
	DATA	0,/B	        10 
	DATA	0,/B	        11 
	DATA	0,/B	        12 
	EJECT		IDENT C:WBS 
*************************************************************** 
* 
*   CC LINE WORKBLOCK 
* 
*************************************************************** 
K:WBCC	DATA	0,/B	NBR OF TIME-OUTS 
	DATA	0,0,/B	TOTAL NBR OF CC TRANSACTIONS 
	DATA	0,/B	NBR OF CC TRANSMISSION ERRORS
	DATA	0,/B	NBR OF SUPERV. MSGS
	DATA	'000000' 	TIME OF LAST REPLY
	EJECT		IDENT C:WBS 
******************************************************************* 
* 
*   NETWORK WORKBLOCK, CC RESPONSE TIME WORKBLOCK IN PERCENT
* 
******************************************************************
K:WBNW	EQU	*
	DATA	0,0,/B	1 INTERVAL CC PERCENT
	DATA	0,0,/B	2
	DATA	0,0,/B	3
	DATA	0,0,/B	4
	DATA	0,0,/B	5
	DATA	0,0,/B	6
	DATA	0,0,/B	7
	DATA	0,0,/B	8

	DATA	0,0,/B	9
	DATA	0,0,/B	10 
	DATA	0,0,/B	11 
	DATA	0,0,/B	12 
	DATA	0,0,/B	AVERAGE RESPONSE TIME CC 
	DATA	0,0,/B	NBR OF TRANS 
	DATA	0,0,/B	NBR OF TRANSMISSION ERRORS 
* 
	DATA	0,0,/B	WORKAREA FOR PERCENT 
	EJECT		IDENT C:WBS 
******************************************************************
* 
*  CC RESPONSE TIME INTERVAL TEXTS
* 
******************************************************************
K:WBCI	DATA	/B	 1 INTERVAL
	DATA	/5B	 2
	DATA	/10B	 3 
	DATA	/15B	 4 
	DATA	/20B	 5 
	DATA	/25B	 6 
	DATA	/30B	 7 
	DATA	/35B	 8 
	DATA	/40B	 9 
	DATA	/45B	10 
	DATA	/50B	11 
	DATA	/55B	12 
	DATA	0,0,0,/B	% WORK AREA 2
	EJECT		IDENT C:WBS 
*************************************************************** 
* 
*   DATE AND TIME WORK BLOCKS 
* 
***************************************************************	
K:WBD	DATA	'YYMMDD'	DATE
K:WBT	DATA	'HHMMSS'	TIME
*************************************************************** 
* 
*   LINE AND TC DUMMY WB
* 
***************************************************************	
K:DUM	DATA	0
*************************************************************** 
* 
*   APPLICATION WORKBLOCK 
* 
***************************************************************	
U:WBPA	EQU	*
CASDAT	DATA	0,0,0,0	CASSETTE DATE LABEL 
	EJECT		IDENT C:WBS 
*************************************************************** 
* 
*   CONSTANTS WORK BLOCK
* 
*************************************************************** 
K:WBCA	DATA	/3100	ONE 
K:WBCB	DATA	/1B01	ONE 
	DATA	/0B10	TEN 
	DATA	/0B01	100 
	DATA	/000B	1000
	DATA	/3276,/8B00	32K 
*************************************************************** 
* 
*   APPLICATION WORKBLOCK 
* 
***************************************************************	
U:WBPC	DATA	'0000'	WITHDRAWAL LIMIT 
	END

Full view