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

⟦09a6a893c⟧

    Length: 139082 (0x21f4a)
    Notes: pts_type(SC)
    Names: »DRDC23.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/DRDC23.SC« 

PTS(SC)

	IDENT	DRDC23   REL 11.0 81-04-15 870105041100

* 
************
* 
* PHILIPS TERMINAL SYSTEM 
* 
*  DRDC23 : DRIVER DATA COMMUNICATION 
*         : HDLC POINT TO POINT,FULL DUPLEX 
*         : X21 INTERFACE 
*         : DYNAMIC ADDRESSING IF WANTED
************
* 
	EJECT
* 
*********************************************************** 
*                                                         * 
*    THIS DRIVER IS DIVIDED IN 10 PARTS                   * 
*         00 : DEFINITIONS                                * 
*         01 : ACTIVATIONS                                * 
*         02 : INPUT                                      * 
*         03 : COMMON SUBROUTINES                         * 
*         04 : OUTPUT                                     * 
*         05 : TIMERS                                     * 
*         06 : INTERRUPTS HANDLER                         * 
*         07 : BUFFERS                                    * 
*         08 : POWER ON                                   * 
*         09 : X21                                        * 
*                                                         * 
*********************************************************** 
* 
	EJECT
* 
****************************************************
*                                                  *
*       PART 00 :                                  *
*                LABELS,CONSTANTS,EQUATES          *
*                WORK AREAS AND TABLES DEFINITINON *
*                                                  *
****************************************************
* 
	EJECT			C:CTRL 

********************************* 
* 
*      E N T R I E S
* 
*************************** 

	ENTRY	DCTAB	DUMMY ENTRY
	ENTRY	DW2300	DUMMY ENTRY 
	ENTRY	DC23AD	ACTIVATION HANDLER
	ENTRY	DC23ON	POWER ON ROUTINE
	ENTRY	IH2301	INTERRUPT HANDLER INPUT 
	ENTRY	IH2302	INTERRUPT HANDLER OUTPUT
	ENTRY	IH2303 
	ENTRY	IH2304 
	ENTRY	IH2305 
	ENTRY	IH2306 
	ENTRY	IH2307 
	ENTRY	IH2308 

	ENTRY	DTETB1,DTETB2,DTETB3,DTETB4
	EJECT			C:CTRL 

*********************************************** 
* 
*    E X T E R N A L S
* 
***************************** 

	EXTRN	DISIOE	REQUEST ERROR. DISPATCH 
	EXTRN	DISEND	COMPLETE REQUEST
	EXTRN	LKMRQE	LKM REQUEST ERROR 
	EXTRN	DWTECB	ECB-ADDRESS 
	EXTRN	DWTOR	ORDER CODE 
	EXTRN	DWTST	DWT STATUS 
	EXTRN	DWTWAT	WAIT INDICATOR
	EXTRN	ECBBA	BUFFER ADDRESS 
	EXTRN	ECBRL	REQUESTED LENGTH 
	EXTRN	ECBEL	EFFECTIVE LENGTH 
	EXTRN	ECBRC	RETURN CODE
	EXTRN	ECBCW1	CONTROL WORD 1
	EXTRN	ECBCW2	CONTROL WORD 2
	EXTRN	PFPOST 
	EXTRN	IHRTN	RETURN IN SAME MODE
	EXTRN	QMJOB	START MONITOR JOB
	EXTRN	SETIME	START TIMER 
	EXTRN	TENDIO	COMPLETE REQUEST
	EXTRN	TDISP	DISPATCH 
	EXTRN	SAVE8	SAVE REGS. A1-A8 ON STACK
	EXTRN	EXIT	MONITOR JOB EXIT
	EXTRN	DC:MIN	INPUT BUFFER TRANSFER 
	EXTRN	DC:MOT	OUTPUT BUFFER TRANSFER
	EXTRN	PRUN	RUNNING TASK POINTER
	EXTRN	DCSRLL	DC-STATISTICS - RESET ALL 
	EXTRN	DCSUPR	"               UPDATE COUNTER
	EXTRN	DCSRED	"               READ
	EXTRN	DEFDTE	DEFINE NEW DTE'S
	EXTRN	FNDDNT	FIND NETW. DTE
	EXTRN	GETDSA	FIND SYMB. DTE-ADDR 
	EJECT
* 
* DC STATISTIC PACKAGE DISPLACEMENTS
* 
CSBRIF	EQU	/10	BITOR I-FRAMES RECEIVED
CSBRBY	EQU	/11	  "   I-FRAMES REJECTED BUFFER BUSY
CSBRBO	EQU	/12	  "   I-FRAMES REJECTED BUFFER OVERFLOW
CSBRAB	EQU	/13	  "   I-FRAMES REJECTED ABORTED
CSBRPE	EQU	/14	  "   I-FRAMES REJECTED FCS ERROR
CSBTIF	EQU	/15	  "   I-FRAMES TRANSMITTED 
CSBTRT	EQU	/16	  "   I-FRAMES RETRANSMITTED 
CSBRSM	EQU	/17	  "   SNRM/SARM/SABM RECEIVED
CSBRDI	EQU	/18	  "   DISC RECEIVED
CSBRDM	EQU	/19	  "   DM RECEIVED
CSBRFR	EQU	/1A	  "   FRMR RECEIVED
CSBRUA	EQU	/1B	  "   UA RECEIVED
CSBRRJ	EQU	/1C	  "   REJ RECEIVED 
CSBRNR	EQU	/1D	  "   RNR RECEIVED 
CSBTSM	EQU	/1E	  "   SNRM/SARM/SABM TRANSMITTED 
CSBTDI	EQU	/1F	  "   DISC TRANSMITTED 
CSBTDM	EQU	/20	  "   DM TRANSMITTED 
CSBTFR	EQU	/21	  "   FRMR TRANSMITTED 
CSBTUA	EQU	/22	  "   UA TRANSMITTED 
CSBTRJ	EQU	/23	  "   REJ TRANSMITTED
CSBTNR	EQU	/24	  "   RNR TRANSMITTED
CSBTOC	EQU	/25	"   TOTAL OUTGOING CALLS 
CSBUOC	EQU	/26	"   UNSUCC.  2       " 
CSBTIC	EQU	/27	"   TOTAL INCOMMING  " 
	 
CSCDTE	EQU	/28	DTE NOT OPERABLE 
CSCDIT	EQU	/29	I/P THROUGHPUT ERROR 
CSCDOT	EQU	/2A	O/P THROUGHPUT ERROR 
CSCDCE	EQU	/2B	DCE NOT OPERABLE 
	EJECT			C:CTRL 


********************************************************************
* 
*   RETURN CODES
* 
**************************

R:REQ	EQU	/8000	REQUEST ERROR 
R:ABT	EQU	/4000	ABORTED 
R:2	EQU	/2000 
R:3	EQU	/1000 

Full view