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

⟦4d2496810⟧ 

    Length: 23840 (0x5d20)
    Notes: pts_type(SC)
    Names: »C:OPC.SC«

Derivation

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

PTS(SC)

	IDENT C:OPC 	CONPAC REL=0.0 DATE= 77.10.12 
			UPDATE #4 77.09.28 JES 
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : O P C 
* 
* 
*   * 
*   THIS MODULE HANDLES THE OPERATOR COMMUNICATION WITH BOTH
*   CONCENTRATOR PACKAGE AND USER COMMANDS
*   * 
* 
*	THE MODULE RUNS UNDER TASK: OPCOM 
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
*	K:OPC	77.08.19
*	K:OPM	770425
*	K:OPCC	770406 
* 
* 
* 
*************************************************************** 
	EJECT		IDENT C:OPC 
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	K:OPC	READ OPERATORS TERMINAL
	ENTRY	K:OINT	
	ENTRY	K:OPM	PRINT MESSAGE
	ENTRY	K:OPCC	COMMAND FR 106
	ENTRY	K:DERR	DISC ERROR
	ENTRY	K:SF01	USED IN C:FUA 
* 
* 
	EJECT		IDENT C:OPC 
* 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
* 
	EXTRN	K:KBE	C:TCA
	EXTRN	K:S0E
	EXTRN	K:GPE
	EXTRN	K:GPB
	EXTRN	K:OPEN 
	EXTRN	TCOP 
* 
	EXTRN	K:ROPT	C:FUA 
	EXTRN	K:PRTN 
	EXTRN	K:PRTT 
* 
	EXTRN	K:FTK	C:LAY
* 
	EXTRN 	K:UFUN	USERP
	EXTRN	K:FTU
* 
	EXTRN	K:F001 
	EXTRN	K:F100	C:TXT 
	EXTRN	K:F101 
	EXTRN	K:F002 
	EXTRN	K:F370 
	EXTRN	K:F372 
	EXTRN	K:F376 
* 
	EXTRN	K:OPED	C:BPL 
* 
	EXTRN	K:TL	C:NSU 
	EJECT		IDENT C:OPC 
* 
	EXTRN	K:OL	C:ONW 
	EXTRN	K:OT 
	EXTRN	K:OS 
	EXTRN	K:OC 
* 
	EXTRN	K:XL	C:XNW 
	EXTRN	K:XT 
	EXTRN	K:XS 
	EXTRN	K:XC 
* 
	EXTRN	K:SS	C:SIC 
	EXTRN	K:SC 
	EXTRN	K:CS 
	EXTRN	K:LS 
	EXTRN	K:TS 
	EXTRN	K:NS 
* 
	EXTRN	K:DS	C:SPY 
	EXTRN	K:DC 
	EXTRN	K:DL 
	EXTRN	K:DT 
	EXTRN	K:DN 
* 
	EXTRN	K:ST	C:SET 
	EXTRN	K:SD 
	EXTRN	K:SA 
* 
	EXTRN	K:CKF	C:SUB
* 
	EXTRN	K:PC	C:FIC 
	EXTRN	K:RC 
	EXTRN	K:WC 
* 
* 
*	SWITCH INDICATING THAT PREVIOUS COMMAND IS TO BE REPEATED 
*	YES=0 
* 
	EXTRN	K:IRSW	C:FUA 
	EJECT		IDENT C:OPC 
* 
*  HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST 
* 
	NLIST
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
	EJECT		IDENT C:EQU **COMMON AREA FRAME** 
* 
*   EXTERNALS 
	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	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