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

⟦1925d1822⟧ 

    Length: 17552 (0x4490)
    Notes: pts_type(SC)
    Names: »C:DCC.SC«

Derivation

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

PTS(SC)

	IDENT C:DCC 	CONPAC REL=1.0 DATE= 80.04.29 
			UPDATE #3 77.11.25 
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : D C C 
* 
* 
*   * 
*   THIS MODULE READS THE TRUNK LINE,SEPARATES SUPERVISORY
*   AND COMMAND MESSAGES. UNIDENTIFIED MESSAGES ARE 
*   HANDED OVER TO CCAPP
*   * 
* 
* 
*	THIS MODULE RUNS UNDER TASK:  DCCC
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
*	DCCC	77.05.05 
* 
* 
****************************************************************
	EJECT		IDENT C:DCC 
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	DCCC	START ADDRESS 

	ENTRY	K:DCPL 
	EJECT		IDENT C:DCC 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
	EXTRN	K:RCCE	C:TCA 
	EXTRN	TCCC 
	EXTRN	K:CCA
	EXTRN	K:CCS
	EXTRN	K:CCZ
	EXTRN	K:CCST 
	EXTRN	K:SZE
* 
	EXTRN	K:CNT	C:SUB
* 
	EXTRN	K:OPCC	C:OPC 
* 
	EXTRN	K:SIMP	C:BPL 
* 
	EXTRN	K:F358	C:TXT 
	EXTRN	K:F357 
	EXTRN	K:F359 
* 
	EXTRN	K:POP	C:FUA
* 
	EXTRN	K:ACTA	C:FUB 
	EXTRN	TPSUP	C:TPL
* 
	EXTRN	CCAPP	CCAPP
* 
	EXTRN	SUPAPP	SUPAPP
* 
*  HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST 
* 
	NLIST
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
	EJECT		IDENT C:EQU **COMMON AREA FRAME** 
* 
*   EXTERNALS 
* 
	EXTRN	T:ADD
	EXTRN	T:ADDC 
	EXTRN	T:SUB
	EXTRN	T:SUBC 
* 
	EXTRN	T:MUL	TOSS-MULDIV
	EXTRN	T:MULC 
	EXTRN	T:DIV
	EXTRN	T:DIVC 
	EJECT		IDENT C:EQU 
* 
*   FORMS FOR FORMAT CODES
* 
EOL	FORM	8=1,8	END OF FORMAT LIST 
EOR	FORM	8=9,8	END OF RECORD
TXT	FORM	8=/10,8	TEXT ELEMENT 
CONTXT	FORM	8=/12,8	TEXT CONSTANT ELEMENT 
IMTXT	FORM	8=/11,8	IMIDEATE TEXT CONSTANT 
ENDSUB	FORM	16=/1700	END OF SUBFORMAT 
COND	FORM	8=/1F,8	CONDITIONAL FORMAT
FILLER	FORM	8,8	FILLER
SPACE	FORM	8=/20,8	SPACE
PICT	FORM	1=1,7,8	PICTURE 
PICREF	FORM	8,8,16	GENERATE FORMS 
BYTE	FORM	8,8 
BCD	FORM	4=0,12 
ASCII	FORM	4=8,12 
ADD	FORM	16=/F6A1,16=T:ADD,8,8
ADDC	FORM	16=/F6A1,16=T:ADDC,8,8
SUB	FORM	16=/F6A1,16=T:SUB,8,8
SUBC	FORM	16=/F6A1,16=T:SUBC,8,8
MUL	FORM	16=/F6A1,16=T:MUL,8,8,8,8
MULC	FORM	16=/F6A1,16=T:MULC,8,8,8,8
DIV	FORM	16=/F6A1,16=T:DIV,8,8,8,8
DIVC	FORM	16=/F6A1,16=T:DIVC,8,8,8,8
	EJECT		IDENT C:EQU 
* 
*   CONSTANT TCA EQUATES
* 
CA1	EQU	/10 
CB1	EQU	/20 
CB10	EQU	/21
CB100	EQU	/22 
CB1000	EQU	/23
CB32K	EQU	/24 
YEAR	EQU	/30
MONTH	EQU	/31 
DAY	EQU	/32 
HOUR	EQU	/40
MIN	EQU	/41 
SEC	EQU	/42 
* 
*   LINE WORKBLOCKS EQUATES 
* 
LIN	EQU	/10	LINE NBR
LINBC	EQU	/11	BUSY COUNTER
LINTC	EQU	/12	TRANS COUNTER 
LINEC	EQU	/13	ERROR COUNTER 
LINHUR	EQU	/14	TIME OF LAST TRANS 
LINMIN	EQU	/15
LINSEC	EQU	/16
* 
*   TC WORKBLOCK EQUATES
* 
TC	EQU	/20
TCBC	EQU	/21
TCTC	EQU	/22
TCEC	EQU	/23
TCHUR	EQU	/24 
TCMIN	EQU	/25 
TCSEC	EQU	/26 
	EJECT		IDENT C:EQU 
* 
*   CC WORKBLOCK RESPONSETIME EQUATES 
* 
CC1	EQU	/30 
CC2	EQU	/31 
CC3	EQU	/32 
CC4	EQU	/33 
CC5	EQU	/34 
CC6	EQU	/35 
CC7	EQU	/36 
CC8	EQU	/37 
CC9	EQU	/38 
CC10	EQU	/39
CC11	EQU	/3A
CC12	EQU	/3B
* 
*   CC WORKBLOCK EQUATES
* 
CCTO	EQU	/40	TIME OUT COUNTER 
CCTC	EQU	/41
CCEC	EQU	/42
CCSUP	EQU	/43	SUPERV MSGS COUNTER 
CCHUR	EQU	/44	TIME OF LAST REPLY
CCMIN	EQU	/45 
CCSEC	EQU	/46 
	EJECT		IDENT C:EQU 
* 
*    NETWORK WORKBLOCK EQUATES
* 
NWTC	EQU	/5D	ACCUMULATED TRANS COUNTER
NWEC	EQU	/5E	ACC ERROR COUNT
* 
PCNT1	EQU	/50	% INTERVALS 
PCNT2	EQU	/51 
PCNT3	EQU	/52 
PCNT4	EQU	/53 
PCNT5	EQU	/54 
PCNT6	EQU	/55 
PCNT7	EQU	/56 
PCNT8	EQU	/57 
PCNT9	EQU	/58 
PCNT10	EQU	/59
PCNT11	EQU	/5A
PCNT12	EQU	/5B
* 
RSPTIM	EQU	/5C	RESPONSE TIME
PCNTW	EQU	/5F	% WORK AREA 1 
PCNTW2	EQU	/6C	%WORK AREA 2 
* 
*  CC TEXT-INTERVAL EQUATES 
* 
IN1	EQU	/60 
IN2	EQU	/61 
IN3	EQU	/62 
IN4	EQU	/63 
IN5	EQU	/64 
IN6	EQU	/65 
IN7	EQU	/66 
IN8	EQU	/67 
IN9	EQU	/68 
IN10	EQU	/69
IN11	EQU	/6A
IN12	EQU	/6B
	EJECT		IDENT C:EQU 
* 
CVTCLK	EQU	/98	ADDRESS TO MONITOR CLOCK 
* 
IDXBL	EQU	-4	INDEX IN CC-BUFFER TO LENGTH 
ORIGIN	EQU	-4	INDEX TO COMMAND ORIGIN INDICATOR IN TCA
INPBL	EQU	-4	INDEX TO INPUT BUFFER LENGTH 
* 
K:EBA	EQU	2	ECB EQUATES 
K:ERL	EQU	4 
K:EEL	EQU	6 
K:ERC	EQU	8 
K:ECW	EQU	10
* 
* 
TCAWBL	EQU	6	INDEX IN TCA TO LINE WB
TCAWBT	EQU	10	INDEX IN TCA TO TC WB 
	EJECT		IDENT C:EQU 
******************************************************* 
* 
*   SYSTEM ADAPTION PARAMETERS
* 
* KEYBOARD KONTROL KEYS 
K:KKEY	EQU	/2F	ENTRY K KEY
K:UKEY	EQU	/28	ENTER U KEY
K:EOR	EQU	/2A	END OF RECORD KEY 
CANCEL	EQU	/23	CANCEL KEY 
* TIME OUT VALUES OF TRUNK LINE 
K:WTIM	EQU	60	CC WRITE REQUEST TIME OUT (X100 MS) 
K:QTIM	EQU	600	CC EXCHANGE REQUEST TIME OUT (X100 MS) 
* BUFFER LENGTHS
K:CCBL	EQU	1150	CCWRITE BUFFER LENGTH (WORDS) 
K:EDBL	EQU	50	EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) 
K:BLTC	EQU	64	LENGTH OF CASSETTE BUFFER (WORDS) 
K:KBL	EQU	70	KB BUF LENGTH IN WORDS 
K:KBBL	EQU	K:KBL+K:KBL	IN CHARS 
K:GPBL	EQU	60	GP BUF LENGTH IN WORDS
K:S0BL	EQU	60	SIMULATED TERMINAL 0 BUF (WORDS)
K:INBL	EQU	1150	TERMINAL LINE INPUT BUF LENGTH (WORDS)
	EJECT
* COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION 
K:CCAD	EQU	0	CONCENTRATOR ADDRESS 
			LEFT BYTE = SELECT ADDR. 
			RIGHT BYTE = POLL ADDR.
K:SIMZ	EQU	0	SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES
			AND SYSTEM MESSAGES
K:SIMS	EQU	0	SIM. TERM. FOR SUPERVISORY MESSAGES
K:FCS	EQU	0	DEVICE FILE CODE OF K:SIMS IF USED

Full view