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

⟦74751168c⟧ 

    Length: 58142 (0xe31e)
    Notes: pts_type(SC)
    Names: »C:TCA.SC«

Derivation

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦this⟧ »BDKAPP/C:TCA.SC«

PTS(SC)

	IDENT C:TCA 	CONPAC REL=0.0 DATE= 77.10.12 
			UPDATE #4 77.10.10 JES 
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : T C A 
* 
*   * 
*   THE MODULE CONTAINS WORK AREAS FOR THE TASKS
*   * 
* 
*	NAME	REVDAT	VERSION 
* 
*	TCACON
*	TCOP
*	TCCC
* 
*	TCTR01- 
*	   -30
* 
*	TCTR50- 
*	   -54
* 
*************************************************************** 
	EJECT		IDENT C:TCA 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY 	TCACON	COMMON CONSTANTS 
	ENTRY	TCOP	OPCOM WORK AREA 
	ENTRY	TCCC	DCCC WORK AREA
	ENTRY	TCTR01	TRASK 01 WORK AREA
	ENTRY	TCTR02	      02
	ENTRY	TCTR03	      03
	ENTRY	TCTR04	      04
	ENTRY	TCTR05	      05
	ENTRY	TCTR06	      06
	ENTRY	TCTR07	      07
	ENTRY	TCTR08	      08
	ENTRY	TCTR09	      09
	ENTRY	TCTR10	      10
	ENTRY	TCTR11	      11
	ENTRY	TCTR12	      12
	ENTRY	TCTR13	      13
	ENTRY	TCTR14	      14
	ENTRY	TCTR15	      15
	ENTRY	TCTR16	      16
	ENTRY	TCTR17	      17
	ENTRY	TCTR18	      18
	ENTRY	TCTR19	      19
	ENTRY	TCTR20	      20
	ENTRY	TCTR21	      21
	ENTRY	TCTR22	      22
	ENTRY	TCTR23	      23
	ENTRY	TCTR24	      24
	ENTRY	TCTR25	      25
	ENTRY	TCTR26	      26
	ENTRY	TCTR27	      27
	ENTRY	TCTR28	      28
	ENTRY	TCTR29	      29
	ENTRY	TCTR30	      30
	ENTRY	TCTR50	TRASK 50 WORK AREA
	ENTRY	TCTR51	      51
	ENTRY	TCTR52	      52
	ENTRY	TCTR53	      53
	ENTRY	TCTR54	      54
* 
	ENTRY	K:DPI	DOUBLE PRINT INDICATOR 
* 
	ENTRY	K:REPI	INTERVAL FOR CC-REPLY STATISTICS
* 
	ENTRY	K:APPR	APPLICATION READY 
	ENTRY	K:OPEN	NBR OF OPEN LINES 
* 
	EJECT		IDENT C:TCA 
* 
*	  ECB'S 
	ENTRY	K:KBE	KB 
	ENTRY	K:GPE	PRINTER
	ENTRY	K:LCE	CONTROL TERMINAL LINE
	ENTRY	K:S0E	SIMULSTED TERMINAL 0 
	ENTRY	K:RCCE	GENERAL READ CC 
	ENTRY	K:LUTE	TERMINAL LINE UTPUT 
*	  TRASK POOL
	ENTRY	K:TPOL 
*	  BUFFERS 
	ENTRY	K:KBB	KB 
	ENTRY	K:KBBL	KB BUF LENGTH IN CHAR 
	ENTRY	K:GPB	PRINTER
	ENTRY	K:S0B	SIMULATED TERM. 0
	ENTRY	K:LINB	TERMINAL LINE INPUT 
*	  STATUS
	ENTRY	K:CCST	CC STATUS 
	ENTRY	K:CCZ	COMMAND SIM TERMINAL ADDRESS 
	ENTRY	K:CCS	SUPERVISORY MES RECEIVE SIM TERM 
	ENTRY	K:CCA	CONC. TRUNK LINE ADDRESS 
	ENTRY	K:CCSA	SIM TERM ADDRESS TABLE
	ENTRY	K:CCSV	SIM TERM INIT ECB SAVE AREA 
	ENTRY	K:CCAC	ACC RESPONSE TIME 
* 
	ENTRY	CCBUF	CC WRITE BUFFER
	EJECT		IDENT C:TCA 
* 
*	EXTERNAL REFERENSES 
* 
*  ************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
	EXTRN	TPSUP	C:TPL
	EXTRN	TPLIN
* 
	EXTRN	K:DBL	C:DBS
	EXTRN	K:DBTC 
	EXTRN	K:DBCR 
	EXTRN	K:DBCC 
	EXTRN	K:DBNW 
	EXTRN	K:DBCA 
	EXTRN	K:DBCB 
	EXTRN	K:DBD
	EXTRN	K:DBT
	EXTRN	K:DBCI 
	EXTRN	U:DBPA 
	EXTRN	U:DBPC 
* 
	EXTRN	K:WBCA	C:WBS 
	EXTRN	K:WBCB 
	EXTRN	K:WBD
	EXTRN	K:WBT
	EXTRN	K:WBCR 
	EXTRN	K:WBCC 
	EXTRN	K:WBNW 
	EXTRN	K:WBCI 
	EXTRN	U:WBPA 
	EXTRN	U:WBPC 
* 
*  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	/06	ENTRY K KEY
K:UKEY	EQU	/05	ENTER U KEY
K:EOR	EQU	/12	END OF RECORD KEY 
CANCEL	EQU	/17	CANCEL KEY 
* TIME OUT VALUES OF TRUNK LINE 
K:WTIM	EQU	40	CC WRITE REQUEST TIME OUT (X100 MS) 
K:QTIM	EQU	3000	CC EXCHANGE REQUEST TIME OUT (X100 MS)
* BUFFER LENGTHS
K:CCBL	EQU	1100	CCWRITE BUFFER LENGTH (WORDS) 
K:EDBL	EQU	50	EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) 
K:BLTC	EQU	128	LENGTH OF CASSETTE BUFFER (WORDS)
K:KBL	EQU	60	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	1100	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