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

⟦add471f6c⟧

    Length: 20624 (0x5090)
    Notes: pts_type(SC)
    Names: »DCSTAT.SC«

Derivation

└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
    └─⟦this⟧ »PTMON/DCSTAT.SC« 
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »PTMON/DCSTAT.SC« 
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »MONGEN/DCSTAT.SC« 

PTS(SC)

	IDENT	DCSTAT	REL 11.0 81-01-26 870105041100
* 
************************************************************* 
* 
*	PHILIPS TERMINAL SYSTEM, P T S
* 
*	DCSTAT  STATISTIC DATA COLLECTION ROUTINE FOR 
*	        DATA COMMUNICATION SOFTWARE 
* 
**************************************************************
	EJECT
*.	PROGRAM DESCRIPTION
*.	FUNCTIONS: 
*.	DCSTAT SUPPLIES THE DATA COMMUNICATION DRIVERS/PACKAGES
*.	WITH A SET OF ROUTINES TO MAINTAIN STATISTICAL COUNTERS
*.	FOR A DWT OR A DWT AND ITS HEAD DWT. 
*.	THE FUNCTIONS ARE CONFIGURABLE BY THE PARAMETER STAT AND 
*.	A  CALL WHEN NOT CONFIGURED IS REJECTED WITH STATUS. 
*.	THE ROUTINES ARE REENTRANT USING THE SYSTEM STACK IN 
*.	INHIBIT MODE. THEY CAN BE USED SIMULTANEOUSLY BY 
*.	DIFFERENT TYPES OF DRIVERS/PACKAGES. 
*.	THE COUNTERS ARE MAINTAINED IN A BUFFER LINKED FROM THE
*.	DWT. EACH BUFFER CONTAINS A CONTROL WORD INDICATING
*.	STATUS OF THE COUNTERS AND MAX COUNTER VALUE DEFINED 
*	FOR THE BUFFER
* 
*	FUNCTIONS AND ENTRY POINTS: 
*	-CLEAR COUNTERS    ENTRY:  DCSRST AND DCSRLL
*	-UPDATE COUNTERS   ENTRY:  DCSUPR AND DCSUPD
*	-READ COUNTERS     ENTRY:  DCSRED 
* 
* 
*	ACTIONS TO INCLUDE STATISTICS IN A DRIVER/PACKAGE 
*	1. DEFINE EVENTS IN THE DRIVER TO CALL RESP ENTRY 
*	   THE COUNTERS POSSIBLE ARE DEFINED BY THE EQU:S 
*	   CSSRBL - CSCXC3 AS DESRIBED BELOW
*	2. DEFINE COUNTER AREA IN THE DWT AND ITS LINK(OFFSET)
*	   THE LAYOUT DESCRIBED BELOW MUST BE APPLIED AS REQ
*	   BY DCSTAT
	EJECT
*.	TABLE STRUCTURE: 
*.	THE DWT HAS THE FOLLOWING LAYOUT 
*.
*		.................. 
*		.                . 
*		/                / 
*		.                . 
*		.................. 
*		. LINK STAT BUFF .  -- 
*		..................   ! 
*		. LINK HEAD DWT  . --!---->
*		..................   ! 
*		. LINK NEXT DWT  . --!---->
*		..................   ! 
*		.                . 
*		/                /   ! 
*		/                /   ! 
*		..................   ! 
*		. CONTROL WORD   .  <- 
*		.................. 
*		. COUNTER AREA    .
*		.................. 
*		.                . 
*		/                / 
*		.................. 
	EJECT
* 
*	ENTRY POINTS
* 
	ENTRY	DCSRST	REST COUNTERS IN SPEC DWT 
	ENTRY	DCSRLL	RESET COUNTERS IN ALL DWT:S 
	ENTRY	DCSUPR	UPDATE COUNTER SPEC IN A1, (A2) 
	ENTRY	DCSUPS	UPDATE COUNTER SPEC IN A1, (A2) A7=DTETAB 
	ENTRY	DCSUPD	UPDATE COUNTER SPEC IN PKT, (A2)
	ENTRY	DCSRED	READ STATISTIC COUNTERS TO USER BUFF
* 
*	ENTRY EQU:S 
* 
	ENTRY	CSMAXL	MAX INDEX FOR LINK DWT
	ENTRY	DWTCHD	EQU DWT OFFSET HEAD DWT 
	ENTRY	DWTCHN	EQU DWT OFFSET NEXT DWT 
* 
*	EXTERNALS 
* 
	EXTRN	DWTTAB 
	EXTRN	MOVSU
	EJECT
* 
****************************************************
* 
*	CONDITIONAL ASSEMBLY PARAMETERS 
* 
********************************************* 
* 
	 
MMUPAG	EQU	1	MMU SWITCH 
	 
* 
*	CONDITIONAL ASSEMBLY PARAM TO INCLUD MORE FEATURES
* 
			STATISTIC FUNCTIONS
STAT	EQU	1	IF 0= NO   1=YES 
	 
			STATISTIC ON SUBUNITS
STUNIT	EQU	1	IF 0= NO 1= YES
	 
			DOUBLE WORD COUNTERS 
STDBLE	EQU	0	IF 0=NO, 1=YES 
	 
	 
	 
**********************************************
* 
*	EXTERNAL TABLE OFFSETS
* 
**********************************************
* 
ECBBA	EQU	2	ECB BUFFER ADDRESS
ECBRL	EQU	4	 "  REQ LENGTH
ECBEL	EQU	6	 "  EFF LENGTH
	 
	 
	IFT	MMUPAG=0 
DWTDRD	EQU	/10	DRIVER DEP AREA START
	XIF
	IFT	MMUPAG=1 
DWTDRD	EQU	/14	DRIVER DEP AREA START
	XIF
	 
DWTSTB	EQU	DWTDRD	DWT DC REL OFFSET TO STATISTIC BUFFER 
DWTCHD	EQU	DWTSTB+2	 "             LINK TO HEAD DWT 
DWTCHN	EQU	DWTCHD+2	 "            LINK TO NEXT DWT
DWTLAD	EQU	DWTCHN+2	 "    LOCAL DTE ADDRESS 
DWTSUB	EQU	DWTLAD+4	 POSSIBLE SUB ADDRESS 
	EJECT
************************************************************* 
* 
*	STATISTIC EQU:S 
*	USED IN CALLS FOR UPDATE OF COUNTERS
*	THE FOLLOWING EQU:S MUST BE INCLUDED IN 
*	EACH DRIVER/PACKAGE USING DCSTAT FUNCTIONS
* 
*	THE FORMAT OF THE PARAMETER-1 IN CALL TO DCSUPR/DCSUPD
*	IS: 
*	BITS   XYZZZZZZ  WHERE X=1IF PARAMETER-2 USED AS INCREMENT
*	                           ELSE INCREMENT WITH +1 
*	                       Y=1 IF DOUBLE WORD COUNTER 
*	                       ZZZZZZ= COUNTER INDEX AS LISTED BELOW
* 
************************************************************* 
	 
* 
*	LINK LEVEL COUNTERS 
	 
CSSRBL	EQU	/10	SYNCH DATA BLOCKS RECEIVED 
CSSRBY	EQU	/11	  "   DATA BLOCKS REJECTED BUFFER BUSY 
CSSRBO	EQU	/12	  "   DATA BLOCKS REJECTED BUFFER OVERFLOW 
CSSRAB	EQU	/13	  "   DATA BLOCKS REJECTED ABORTED 
CSSRPE	EQU	/14	  "   DATA BLOCKS REJECTED PARITY ERROR
CSSTBL	EQU	/15	  "   DATA BLOCKS TRANSMITTED
CSSTRT	EQU	/16	  "   DATA BLOCKS RETRANSMITTED
CSSTAB	EQU	/17	  "   DATA BLOCKS ABORTED
CSSXC1	EQU	/18	  "   PROTOCOL DEPENDENT 
CSSXC2	EQU	/19	  "   PROTOCOL DEPENDENT 
CSSXC3	EQU	/1A	  "   PROTOCOL DEPENDENT 
	 
	 
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
CSBXC1	EQU	/25	  "   PROTOCOL DEPENDENT 
CSBXC2	EQU	/26	  "       "        " 
CSBXC3	EQU	/27	  "       "        " 
	 
	 
*	DTE/DCE LEVEL COUNTERS
	 
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 
CSCXC1	EQU	/2C	CONTROL UNIT DEPENDENT 
CSCXC2	EQU	/2D	    "
CSCXC3	EQU	/2E	    "
	 
	 
CSINIV	EQU	/10 	1ST IMPL COUNTER CSSRBL AND CSBRBL
CSMAXL	EQU	CSCXC3-/F	MAX IMPL SIZE OF LINK STAT BUFF
	EJECT
	 
******************************************************* 
* 
* 
*	STATISTIC BUFFER LAYOUT 
* 
******************************************************* 
	 
*	................... 
*	.                 .   STWSID
*	..................
*	.                 .   STWCST
*	................... 
*	.                 .   STWMIX
*	................... 
*	.                 .   STWCTA
*	/                 / 
*	/                 / 
*	................... 
STWSID	EQU	0	RESERV FOR SYMBOLIC ID 
STWCST	EQU	STWSID+2	COUNTER STATUS
			=0, RESET
			/=0, OVERFLOW IN COUNTER WITH BIT 0=1
STWMIX	EQU	STWCST+2	MAX COUNTER INDEX IN AREA STWCTA
	 
	 
STWCTA	EQU	STWMIX+2	COUNTER AREA START
			SIZE MUST BE ADJUSTED TO VALUE IN STWMIX 
	EJECT
* 
*********************************************************** 
* 
*	DCSRST  -   RESET STATISTIC COUNTERS FOR SPECIFIED DWT
* 
*	THE FOLLOWING ACTIONS ARE TAKEN 
*	-CHECK IF FUNCTION IS CONFIGURED. IF NOT EXIT 
*	-LOCATE STATISTIC BUFFER IN DWT. IF NOENE EXIT
*	-EXTRACT MAX COUNTER FOR BUFFER  AND CLEAR COUNTERS 
* 
*	ENTRY:     CF     A15,DCSRST      A6=DWT
*	EXIT:      ABR*   A15             A1=STATUS 
*	                                     0=COMPLETED -1= NOT CONFIG 
* 
*********************************************************** 
	 
DCSRST	EQU	*
	IFT	STAT=1 
	STR	A2,A15	SAVE REG ON SYSTEM STACK
	CF	A15,DCLEAR	CLEAR BUFFER IF ANY
	LDR*	A2,A15	RELOAD REG	
	XIF
	RF	DCSEXI	COMMON EXIT
	EJECT
	 
*********************************************************** 
* 
*	DCSRLL  -   RESET STATISTIC COUNTERS FOR ALL DWT:S IN CHAIN 
* 
*	THE FOLLOWING ACTIONS ARE TAKEN 
*	-CHECK IF FUNCTION IS CONFIGURED. IF NOT EXIT WITH STATUS 
*	-FIND ADDRESS OF HEAD DWT IF ANY. IF NOT START WITH CURRENT 
*	-LOCATE LINK TO STATISTIC BUFFER. IF 0 GO TO NEXT DWT 
*	-CLEAR COUNTERS IN THE BUFFER 
* 
*	ENTRY:        CF      A15,DCSRLL     A6=DWT 
*	EXIT:         ABR*    A15            A1=STATUS
*                                      0=COMPLETED -1=NOT CONFIG
* 
************************************************************
	 
DCSRLL	EQU	*
	IFT	STAT=1 
	IFT	STUNIT=1	SUBUNIT STATISTICS
	STR	A2,A15	SAVE REGS ON SYSTEM STACK 
	STR	A6,A15 
	LDR	A1,A6	TEMP SAVE OF SPEC DWT
	LD	A6,DWTCHD,A6	LINK TO HEAD 
	RF(NZ)	DCSR10	YES START FROM HEAD
	LDR	A6,A1	NO, START FROM CURRENT 
DCSR10	EQU	*
	CF	A15,DCLEAR	CLEAR BUFFER 
	LD	A6,DWTCHN,A6	LINK TO NEXT DWT IN CHAIN
	RB(NZ)	DCSR10	NOT LAST CONTINUE TO CLEAR 
	LDR*	A6,A15	RELOAD REGS
	LDR*	A2,A15
	XIF
	IFT	STAT=1 
	IFF	STUNIT=1 
	RB	DCSRST
	XIF
	RF	DCSEXI	COMMON EXIT
	EJECT
	 
********************************************************
* 
*	DCSUPR    -     UPDATE COUNTER SPEC WITH PARAMETERS IN
*	                REGS A1 AND POSSIBLY A2 
*	DCSUPS    -    UPDATE COUNTER SPEC WITH PARAMETERS IN 
*	               REGS A1 AND POSSIBLY A2. A7 = DTETAB 
*	DCSUPD    -     UPDATE COUNTER SPEC WITH PARAMETERS IN
*	                PACKET AND POSSIBLY A2
* 
*	THE FOLLOWING ACTIONS ARE TAKEN 
*	-CHECK IF FUNCTION IS CONFIGURED. IF NOT EXIT WITH STATUS 
*	-IF ENTRY DCSUPD USED FETCH PARAMETER-1 FROM PACKET 
*	-UPDATE COUNTER IN SPEC DWT IF PARAMETER WITHIN RANGE 
*	 OF MAX VALUE KEPT IN THE CONTROL WORD OF THE 
*	 STATISTIC BUFFER 
*	IF SUBUNIT STATISTICS IS CONFIGURED 
*	-LOCATE HEAD DWT AND IF EXISTING REPEAT PREVIOUS ACTION 
* 
*	ENTRY:          CF      A15,DCSUPR    A6=DWT A1=PARAM-1 (A2=PARAM-2)
*	         OR 
*	                CF      A15,DCSUPD    A6=DWT
*	                DATA    PARAM-1       (A2=PARAM-2)
* 
*	EXIT:           ABR*    A15           A1=STATUS 
*	                                      0=COMPLETED -1=NOT CONFIG 
*	                                      -2=INDEX ERROR -3=BUFFER ERROR
*	                                      +1=COUNTER OVERFLOWED 
* 
************::************************************************* 
	 
DCSUPR	EQU	*
	IFT	STAT=1 
	STR	A3,A15	SAVE REGS ON SYSTEM STACK 
	STR	A4,A15 
	STR	A5,A15 
	STR	A6,A15 
	RF	DCSU00	CONTINUE AT COMMON POINT 
	XIF
	 
	 
DCSUPS	EQU	*
	IFT	STAT=1 
	STR	A3,A15	SAVE REGS ON SYSTEM STACK 
	STR	A4,A15 
	STR	A5,A15 
	STR	A6,A15 
	LDR	A6,A7	A6 = DTETAB ADDRESS
	RF	DCSU00
	XIF


DCSUPD	EQU	*
	IFT	STAT=1 
	STR	A3,A15	SAVE REGS ON SYSTEM STACK 
	STR	A4,A15 
	STR	A5,A15 
	STR	A6,A15 
	LD*	A1,+12,A15	LOAD PARAM-1 VIA STACK
	LDK	A4,2 
	ADS	A4,+12,A15	ADJUST RETURN POINT 
	 
	 
DCSU00	EQU	*	COMMON POINT FOR DCSUPR DCSUPD 
	LDK	A4,0	PRESET STATUS FOR EXIT
DCSU01	EQU	*
	CF	A15,DCOUNT	INCR COUNTER 
	IFT	STUNIT=1 
	LD	A6,DWTCHD,A6	LINK TO HEAD DWT 
	RF(Z)	DCSU04	NO LINK 
	LDR	A4,A4	CHECK STATUS SOFAR 
	RB(NN)	DCSU01	OVERBLOW KEEP IT 
	RB	DCSU00	CLEAR STATUS AND UPDATE FOR HEAD DWT 
DCSU04	EQU	*
	XIF
	IFT	STAT=1 
	LDR	A1,A4	MOVE STATUS FOR EXIT 
	LDR*	A6,A15	RELOAD REGS
	LDR*	A5,A15
	LDR*	A4,A15
	LDR*	A3,A15
	XIF
	RF	DCSEXI	COMMON EXIT
	EJECT
**********************************************
* 
*	DCSRED    -    READ STATISTIC COUNTERS INTO USER BUFFER 
* 
*	THE FOLLOWING ACTIONS ARE TAKEN 
*	-CHECK IF FUNCTION CONFIGURED. IF NOT EXIT WITH STATUS
*	-CHECK USER PARAMETERS IF NOT CORRECT EXIT
*	-FETCH SYMBOLIC ID FROM DWT AND MOV COUNTERS IF ANY 
*	 IF BUFFER OVERFLOWS EXIT WITH STATUS 
*	IF SUBUNIT STATISTICS IS CONFIGURED 
*	-LOCATE HEAD DWT AND REPEAT LST ACTION
* 
*	ENTRY:       CF        A15,DCSRED    A6=DWT   A8=ECB
* 
*	EXIT:        ABR*      A15           A1=STATUS
*	                                     0=COMPLETED -1=NOT CONFIG
*	                                     -3=BUFFER ERROR
*	                                     IF A1=0 THEN ECB (A8) UPDATED
*	                                     IN ECBEL AND (ECBBA)=COUNTERS
**********************************************************
	 
DCSRED	EQU	*
	IFT	STAT=1 
	STR	A2,A15	SAVE REGS ON SYSTEM STACK 
	STR	A3,A15 
	STR	A4,A15 
	STR	A5,A15 
	STR	A6,A15 
	STR	A7,A15 
	LDR	A8,A8	ANY ECB
	RF(Z)	DCSRER	NO
	LD	A2,ECBBA,A8	ANY BUFFER
	RF(Z)	DCSRER	NO
	LD	A5,ECBRL,A8	ANY LENGTH GIVEN
	RF(Z)	DCSRER	NO
	LD	A4,DWTTAB,A6	TTAB ADDR
	IFT	STUNIT=1 
	LD	A1,DWTCHD,A6	ANY HEAD DWT 
	RF(Z)	DCSR01	NO
	LD	A7,DWTSUB,A6	SYMBOLIC SUB ADDRESS IF ANY
	RF	DCSR02	MOVE COUNTERS
	XIF
	IFT	STAT=1 
DCSR01	EQU	*
	LD	A7,DWTLAD,A6	LOCAL SYMBOLIC DTE ADDRESS 
DCSR02	EQU	*
	RF(Z)	DCSR04	NO SYMBOLIC ID MOVE 0 
	LD	A1,DWTSTB,A6	ANY STAT BUFFER
	RF(Z)	DCSR04	NO MOVE 0 
	ADR	A1,A6	ADD BASE OF DWT
	LD	A3,STWMIX,A1	NO OF COUNTERS 
	RF(Z)	DCSR04	NOE MOVE 0
	SLL	A3,1	COUNTERS TO BYTES 
	ADK	A3,STWCTA	ADD BASE OF COUNTER AREA 
	STR	A7,A1	SAVE SYMBOLIC ID FOR MOVE
	RF	DCSR06	MOVE STAT BUFFER 
DCSR04	EQU	*	NO ID OR STAT BUFFER MOVE ZEROE
	LDK	A3,2	SIZE
	LDKL	A1,DCZERO	BUFFER ADDRESS
DCSR06	EQU	*
	SUR	A5,A3	ANY SPACE IN USER BUFF 
	RF(N)	DCSRER	NO
	CF	A15,MOVSU	MOVE STAT BUFFER TO USER BUFF 
	XIF
	IFT	STAT=1 
	IFT	STUNIT=1 
	LD	A1,DWTCHD,A6	ANY HEAD DWT 
	RF(Z)	DCSR08	NO
	LDR	A6,A1	YES USE IT 
	RB	DCSR01
	XIF	 
	IFT	STAT=1 
	 
DCSR08	EQU	*	ALL MOVE UPDATE ECB
	SU	A2,ECBBA,A8	START OF USER 
	ST	A2,ECBEL,A8	NO OF BYTES 
	LDK	A1,0	STATUS OK 
	RF	DCSREX	EXIT 
	 
DCSRER	EQU	*	BUFFER ERROR E.G NONE OR OVERFLOW
	LDKL	A1,-3	STATUS
DCSREX	EQU	*	EXIT 
	LDR*	A7,A15
	LDR*	A6,A15	RELOAD REGS
	LDR*	A5,A15
	LDR*	A4,A15
	LDR*	A3,A15
	LDR*	A2,A15
	XIF
	RF	DCSEXI	COMMON EXIT
* 
DCZERO	DATA	0	ZEROE BUFFER
	EJECT
********************************************************* 
* 
*	COMMON EXIT FROM FUNCTIONS
* 
********************************************************* 
	 
DCSEXI	EQU	*
	IFT	STAT=0 
	LDKL	A1,-1	STATUS NOT CONFIGURED 
	XIF
	ADKL	A15,4 
	ABR*	A15	RETURN
	EJECT
	IFT	STAT=1 
******************************************************
* 
*	COMMON INTERNAL SUBROUTINES 
* 
******************************************************
	 
	 
*	DCLEAR - CLEAR STATISTIC BUFFER IF LINKED FROM DWT
* 
*	ENTRY:  CF     A15,DCLEAR    A6=DWT 
*	EXIT:   ABR*   A15           A1=0   A6=DWT
DCLEAR	EQU	*
	LD	A2,DWTSTB,A6	ANY STATISTIC BUFFER LINKED
	RF(Z)	DCLEXI	NO
	ADR	A2,A6	ADD BASE OF DWT
	LD	A1,STWMIX,A2	GET MAX INDEX FOR THIS BUFFER
	RF(Z)	DCLEXI	ZEROE 
	CM	STWCST,A2	CLEAR STATUS WORD 
	SLL	A1,1	COUNTER INTO BYTES
	ADK	A2,STWMIX	ADD OFFSET 
	ADR	A2,A1	POINT AT LAST WORD+1 IN BUFF 
DCLOOP	EQU	*
	CMR	A2	CLEAR COUNTER 
	SUK	A2,2	POINTER -2
	SUK	A1,2	ALL CLEARED 
	RB(NZ)	DCLOOP	NO 
DCLEXI	EQU	*
	LDK	A1,0	STATUS
	RF	DCEXIT	COMMON RETURN
	EJECT
*	DCOUNT - INCREMENT COUNTER IN STATISTIC BUFFER IF ANY 
* 
*	ENTRY:  CF      A15,DCOUNT        A6=DWT
*	EXIT:     ABR*      A15         A4= 
DCOUNT	EQU	*
	STR	A1,A15	SAVE PARAM-1
	STR	A2,A15	SAVE PARAM-2 IF ANY 
	LD	A3,DWTSTB,A6	ANY STATISTIC BUFFER 
	RF(Z)	DCONOB	NO
	ADR	A3,A6	ADD BASE OF DWT
	LDR	A5,A1	MOVE PARAMETER-1 
	ANK	A5,/3F	LEAVE COUNTER INDEX 
	SUK	A5,CSINIV	SUBTRACT IMPL BASE VALUE 
	RF(N)	DCOMAX	ERROR PARAM-1 
	CW	A5,STWMIX,A3	PARAM-1 >MAX VALUE IN BUFF 
	RF(NL)	DCOMAX	YES
	ADK	A3,STWCTA	START AFTER CONTROL WORD 
	ADR	A3,A5	IN WORDS TO
	ADR	A3,A5	START OF BUFFER
	SLL	A1,8	CHECK IF PARAM-2 REQ
	RF(N)	DCO010	YES 
	LDK	A2,1	ELSE INCR WITH +1 
DCO010	EQU	*
	IFT	STDBLE=1	DOUBLE WORD COUNTERS
	SLL	A1,1	CHECK IF DOUBLE WORD ARITHM 
	RF(N)	DCODBL 
	XIF
	IFT	STAT=1 
	LDR*	A1,A3	CHECK COUNTER OVERFLOWED
	RF(N)	DCOVRE	YES NO UPDATE 
	ADR	A2,A1	INCREMENT

	RF(O)	DCOVRF	OVERFLOW
	STR	A2,A3	SAVE NEW VALUE 
	RF	DCOEXI
	IFT	STDBLE=1 
DCODBL	EQU	*	DOUBLE WORD ARITHM 
	SUK	A3,2	COUNTER IN WORD-2,WORD
	LDR	A1,A3	CHECK IF OVERFLOWED
	RF(N)	DCOVRE 
	LDK	A1,0	A1=0   A2=INCR VALUE
	DAR*	A3	ADD TO COUNTER 
	RF(O)	DCOVRF	OVERFLOW
	STR	A1,A3	SAVE COUNTER 1ST WRD 
	ST	A2,+2,A3	SAVE COUNTER 2ND WRD 
	RF	DCOEXI	 
	XIF
	IFT	STAT=1 
	 
DCOVRF	EQU	*
	C1RS	A3	SET COUNTER NEG
	LD	A3,DWTSTB,A6	 
	ADR	A3,A6	ADD BASE OF DWT
	ST	A5,STWCST,A3	SAVE INDEX OVERFLOW FLAG 
DCOVRE	EQU	*
	LDK	A4,+1	SET STATUS OVERFLOW
	 
	RF	DCOEXI
	 
DCOMAX	EQU	*	PARAM-1 >MAX INDEX 
	LDKL	A4,-2	SET STATUS
	RF	DCOEXI
DCONOB	EQU	*	NO BUFFER
	LDKL	A4,-3	SET STATUS BUFFER ERROR 
	 
DCOEXI	EQU	*
	LDR*	A2,A15	RELOAD PARAM-2 IF ANY
	LDR*	A1,A15	RELOAD PARAM-1 
	RF	DCEXIT	COMMON RETURN
	EJECT
* 
* 
*	COMMON RETURN FROM INTERNAL SUBS
* 
DCEXIT	EQU	*
	ADKL	A15,4	ADJUST STATUCK POS
	ABR*	A15 
	XIF
	END

HexDump

0x0000…0034 (0, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» IDENT DCSTAT REL 11.0 81-01-26 870105041100«, t00=0x0000, t01=0x0004}
0x0034…003e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0038}
0x003e…0084              Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x0042}
0x0084…008e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6              Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM, P T S«, t00=0x0000, t01=0x0092}
0x00b6…00c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00f8              Head {h00=0x0034, h01=0x0050, text=»* DCSTAT  STATISTIC DATA COLLECTION ROUTINE FOR «, t00=0x0000, t01=0x00c4}
0x00f8…0126              Head {h00=0x002a, h01=0x0050, text=»*         DATA COMMUNICATION SOFTWARE «, t00=0x0000, t01=0x00fc}
0x0126…0130              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…0176              Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0000, t01=0x0134}
0x0176…0184              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x017a}
0x0184…01a2              Head {h00=0x001a, h01=0x0050, text=»*. PROGRAM DESCRIPTION«, t00=0x0000, t01=0x0188}
0x01a2…01b8              Head {h00=0x0012, h01=0x0050, text=»*. FUNCTIONS: «, t00=0x0001, t01=0x0016}
0x01b8…01fa              Head {h00=0x003e, h01=0x0050, text=»*. DCSTAT SUPPLIES THE DATA COMMUNICATION DRIVERS/PACKAGES«, t00=0x0001, t01=0x002c}
0x01fa…023c              Head {h00=0x003e, h01=0x0050, text=»*. WITH A SET OF ROUTINES TO MAINTAIN STATISTICAL COUNTERS«, t00=0x0001, t01=0x006e}
0x023c…026c              Head {h00=0x002c, h01=0x0050, text=»*. FOR A DWT OR A DWT AND ITS HEAD DWT. «, t00=0x0001, t01=0x00b0}
0x026c…02b0              Head {h00=0x0040, h01=0x0050, text=»*. THE FUNCTIONS ARE CONFIGURABLE BY THE PARAMETER STAT AND «, t00=0x0001, t01=0x00e0}
0x02b0…02f0              Head {h00=0x003c, h01=0x0050, text=»*. A  CALL WHEN NOT CONFIGURED IS REJECTED WITH STATUS. «, t00=0x0001, t01=0x0124}
0x02f0…0330              Head {h00=0x003c, h01=0x0050, text=»*. THE ROUTINES ARE REENTRANT USING THE SYSTEM STACK IN «, t00=0x0001, t01=0x0164}
0x0330…036c              Head {h00=0x0038, h01=0x0050, text=»*. INHIBIT MODE. THEY CAN BE USED SIMULTANEOUSLY BY «, t00=0x0002, t01=0x0014}
0x036c…039c              Head {h00=0x002c, h01=0x0050, text=»*. DIFFERENT TYPES OF DRIVERS/PACKAGES. «, t00=0x0002, t01=0x0050}
0x039c…03de              Head {h00=0x003e, h01=0x0050, text=»*. THE COUNTERS ARE MAINTAINED IN A BUFFER LINKED FROM THE«, t00=0x0002, t01=0x0080}
0x03de…041c              Head {h00=0x003a, h01=0x0050, text=»*. DWT. EACH BUFFER CONTAINS A CONTROL WORD INDICATING«, t00=0x0002, t01=0x00c2}
0x041c…045c              Head {h00=0x003c, h01=0x0050, text=»*. STATUS OF THE COUNTERS AND MAX COUNTER VALUE DEFINED «, t00=0x0002, t01=0x0100}
0x045c…0474              Head {h00=0x0014, h01=0x0050, text=»* FOR THE BUFFER«, t00=0x0002, t01=0x0140}
0x0474…047e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0158}
0x047e…04a4              Head {h00=0x0022, h01=0x0050, text=»* FUNCTIONS AND ENTRY POINTS: «, t00=0x0002, t01=0x0162}
0x04a4…04da              Head {h00=0x0032, h01=0x0050, text=»* -CLEAR COUNTERS    ENTRY:  DCSRST AND DCSRLL«, t00=0x0002, t01=0x0188}
0x04da…0510              Head {h00=0x0032, h01=0x0050, text=»* -UPDATE COUNTERS   ENTRY:  DCSUPR AND DCSUPD«, t00=0x0003, t01=0x002e}
0x0510…053c              Head {h00=0x0028, h01=0x0050, text=»* -READ COUNTERS     ENTRY:  DCSRED «, t00=0x0003, t01=0x0064}
0x053c…0546              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x0546…0550              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009a}
0x0550…058c              Head {h00=0x0038, h01=0x0050, text=»* ACTIONS TO INCLUDE STATISTICS IN A DRIVER/PACKAGE «, t00=0x0003, t01=0x00a4}
0x058c…05c8              Head {h00=0x0038, h01=0x0050, text=»* 1. DEFINE EVENTS IN THE DRIVER TO CALL RESP ENTRY «, t00=0x0003, t01=0x00e0}
0x05c8…0604              Head {h00=0x0038, h01=0x0050, text=»*    THE COUNTERS POSSIBLE ARE DEFINED BY THE EQU:S «, t00=0x0003, t01=0x011c}
0x0604…0632              Head {h00=0x002a, h01=0x0050, text=»*    CSSRBL - CSCXC3 AS DESRIBED BELOW«, t00=0x0003, t01=0x0158}
0x0632…0672              Head {h00=0x003c, h01=0x0050, text=»* 2. DEFINE COUNTER AREA IN THE DWT AND ITS LINK(OFFSET)«, t00=0x0003, t01=0x0186}
0x0672…06b0              Head {h00=0x003a, h01=0x0050, text=»*    THE LAYOUT DESCRIBED BELOW MUST BE APPLIED AS REQ«, t00=0x0004, t01=0x0036}
0x06b0…06c6              Head {h00=0x0012, h01=0x0050, text=»*    BY DCSTAT«, t00=0x0004, t01=0x0074}
0x06c6…06d4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x008a}
0x06d4…06f0              Head {h00=0x0018, h01=0x0050, text=»*. TABLE STRUCTURE: «, t00=0x0004, t01=0x0098}
0x06f0…071c              Head {h00=0x0028, h01=0x0050, text=»*. THE DWT HAS THE FOLLOWING LAYOUT «, t00=0x0004, t01=0x00b4}
0x071c…0726              Head {h00=0x0006, h01=0x0050, text=»*.«, t00=0x0004, t01=0x00e0}
0x0726…0744              Head {h00=0x001a, h01=0x0050, text=»*  .................. «, t00=0x0004, t01=0x00ea}
0x0744…0762              Head {h00=0x001a, h01=0x0050, text=»*  .                . «, t00=0x0004, t01=0x0108}
0x0762…0780              Head {h00=0x001a, h01=0x0050, text=»*  /                / «, t00=0x0004, t01=0x0126}
0x0780…079e              Head {h00=0x001a, h01=0x0050, text=»*  .                . «, t00=0x0004, t01=0x0144}
0x079e…07bc              Head {h00=0x001a, h01=0x0050, text=»*  .................. «, t00=0x0004, t01=0x0162}
0x07bc…07de              Head {h00=0x001e, h01=0x0050, text=»*  . LINK STAT BUFF .  -- «, t00=0x0004, t01=0x0180}
0x07de…0800              Head {h00=0x001e, h01=0x0050, text=»*  ..................   ! «, t00=0x0005, t01=0x0012}
0x0800…0826              Head {h00=0x0022, h01=0x0050, text=»*  . LINK HEAD DWT  . --!---->«, t00=0x0005, t01=0x0034}
0x0826…0848              Head {h00=0x001e, h01=0x0050, text=»*  ..................   ! «, t00=0x0005, t01=0x005a}
0x0848…086e              Head {h00=0x0022, h01=0x0050, text=»*  . LINK NEXT DWT  . --!---->«, t00=0x0005, t01=0x007c}
0x086e…0890              Head {h00=0x001e, h01=0x0050, text=»*  ..................   ! «, t00=0x0005, t01=0x00a2}
0x0890…08ae              Head {h00=0x001a, h01=0x0050, text=»*  .                . «, t00=0x0005, t01=0x00c4}
0x08ae…08d0              Head {h00=0x001e, h01=0x0050, text=»*  /                /   ! «, t00=0x0005, t01=0x00e2}
0x08d0…08f2              Head {h00=0x001e, h01=0x0050, text=»*  /                /   ! «, t00=0x0005, t01=0x0104}
0x08f2…0914              Head {h00=0x001e, h01=0x0050, text=»*  ..................   ! «, t00=0x0005, t01=0x0126}
0x0914…0936              Head {h00=0x001e, h01=0x0050, text=»*  . CONTROL WORD   .  <- «, t00=0x0005, t01=0x0148}
0x0936…0954              Head {h00=0x001a, h01=0x0050, text=»*  .................. «, t00=0x0005, t01=0x016a}
0x0954…0972              Head {h00=0x001a, h01=0x0050, text=»*  . COUNTER AREA    .«, t00=0x0005, t01=0x0188}
0x0972…0990              Head {h00=0x001a, h01=0x0050, text=»*  .................. «, t00=0x0006, t01=0x0016}
0x0990…09ae              Head {h00=0x001a, h01=0x0050, text=»*  .                . «, t00=0x0006, t01=0x0034}
0x09ae…09cc              Head {h00=0x001a, h01=0x0050, text=»*  /                / «, t00=0x0006, t01=0x0052}
0x09cc…09ea              Head {h00=0x001a, h01=0x0050, text=»*  .................. «, t00=0x0006, t01=0x0070}
0x09ea…09f8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x008e}
0x09f8…0a02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009c}
0x0a02…0a18              Head {h00=0x0012, h01=0x0050, text=»* ENTRY POINTS«, t00=0x0006, t01=0x00a6}
0x0a18…0a22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00bc}
0x0a22…0a52              Head {h00=0x002c, h01=0x0050, text=» ENTRY DCSRST REST COUNTERS IN SPEC DWT «, t00=0x0006, t01=0x00c6}
0x0a52…0a84              Head {h00=0x002e, h01=0x0050, text=» ENTRY DCSRLL RESET COUNTERS IN ALL DWT:S «, t00=0x0006, t01=0x00f6}
0x0a84…0aba              Head {h00=0x0032, h01=0x0050, text=» ENTRY DCSUPR UPDATE COUNTER SPEC IN A1, (A2) «, t00=0x0006, t01=0x0128}
0x0aba…0afa              Head {h00=0x003c, h01=0x0050, text=» ENTRY DCSUPS UPDATE COUNTER SPEC IN A1, (A2) A7=DTETAB «, t00=0x0006, t01=0x015e}
0x0afa…0b30              Head {h00=0x0032, h01=0x0050, text=» ENTRY DCSUPD UPDATE COUNTER SPEC IN PKT, (A2)«, t00=0x0007, t01=0x000e}
0x0b30…0b6a              Head {h00=0x0036, h01=0x0050, text=» ENTRY DCSRED READ STATISTIC COUNTERS TO USER BUFF«, t00=0x0007, t01=0x0044}
0x0b6a…0b74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b74…0b8a              Head {h00=0x0012, h01=0x0050, text=»* ENTRY EQU:S «, t00=0x0007, t01=0x0088}
0x0b8a…0b94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009e}
0x0b94…0bc0              Head {h00=0x0028, h01=0x0050, text=» ENTRY CSMAXL MAX INDEX FOR LINK DWT«, t00=0x0007, t01=0x00a8}
0x0bc0…0bee              Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTCHD EQU DWT OFFSET HEAD DWT «, t00=0x0007, t01=0x00d4}
0x0bee…0c1c              Head {h00=0x002a, h01=0x0050, text=» ENTRY DWTCHN EQU DWT OFFSET NEXT DWT «, t00=0x0007, t01=0x0102}
0x0c1c…0c26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c26…0c3a              Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0007, t01=0x013a}
0x0c3a…0c44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014e}
0x0c44…0c5a              Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTTAB «, t00=0x0007, t01=0x0158}
0x0c5a…0c6e              Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVSU«, t00=0x0007, t01=0x016e}
0x0c6e…0c7c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0182}
0x0c7c…0c86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0190}
0x0c86…0cc2              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0008, t01=0x000a}
0x0cc2…0ccc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0046}
0x0ccc…0cf6              Head {h00=0x0026, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0008, t01=0x0050}
0x0cf6…0d00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007a}
0x0d00…0d36              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0008, t01=0x0084}
0x0d36…0d40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ba}
0x0d40…0d4a              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0008, t01=0x00c4}
0x0d4a…0d6a              Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 1 MMU SWITCH «, t00=0x0008, t01=0x00ce}
0x0d6a…0d74              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0008, t01=0x00ee}
0x0d74…0d7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7e…0dba              Head {h00=0x0038, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAM TO INCLUD MORE FEATURES«, t00=0x0008, t01=0x0102}
0x0dba…0dc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013e}
0x0dc4…0de2              Head {h00=0x001a, h01=0x0050, text=»   STATISTIC FUNCTIONS«, t00=0x0008, t01=0x0148}
0x0de2…0e06              Head {h00=0x0020, h01=0x0050, text=»STAT EQU 1 IF 0= NO   1=YES «, t00=0x0008, t01=0x0166}
0x0e06…0e10              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0008, t01=0x018a}
0x0e10…0e30 (9, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»   STATISTIC ON SUBUNITS«, t00=0x0009, t01=0x0004}
0x0e30…0e54              Head {h00=0x0020, h01=0x0050, text=»STUNIT EQU 1 IF 0= NO 1= YES«, t00=0x0009, t01=0x0024}
0x0e54…0e5e              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0009, t01=0x0048}
0x0e5e…0e7e              Head {h00=0x001c, h01=0x0050, text=»   DOUBLE WORD COUNTERS «, t00=0x0009, t01=0x0052}
0x0e7e…0ea2              Head {h00=0x0020, h01=0x0050, text=»STDBLE EQU 0 IF 0=NO, 1=YES «, t00=0x0009, t01=0x0072}
0x0ea2…0eac              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0009, t01=0x0096}
0x0eac…0eb6              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0009, t01=0x00a0}
0x0eb6…0ec0              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0009, t01=0x00aa}
0x0ec0…0ef6              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0009, t01=0x00b4}
0x0ef6…0f00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ea}
0x0f00…0f20              Head {h00=0x001c, h01=0x0050, text=»* EXTERNAL TABLE OFFSETS«, t00=0x0009, t01=0x00f4}
0x0f20…0f2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0114}
0x0f2a…0f60              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0009, t01=0x011e}
0x0f60…0f6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0154}
0x0f6a…0f90              Head {h00=0x0022, h01=0x0050, text=»ECBBA EQU 2 ECB BUFFER ADDRESS«, t00=0x0009, t01=0x015e}
0x0f90…0fb2              Head {h00=0x001e, h01=0x0050, text=»ECBRL EQU 4  "  REQ LENGTH«, t00=0x0009, t01=0x0184}
0x0fb2…0fd4              Head {h00=0x001e, h01=0x0050, text=»ECBEL EQU 6  "  EFF LENGTH«, t00=0x000a, t01=0x0016}
0x0fd4…0fde              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000a, t01=0x0038}
0x0fde…0fe8              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000a, t01=0x0042}
0x0fe8…0ffe              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000a, t01=0x004c}
0x0ffe…102a              Head {h00=0x0028, h01=0x0050, text=»DWTDRD EQU /10 DRIVER DEP AREA START«, t00=0x000a, t01=0x0062}
0x102a…1036              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x008e}
0x1036…104c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x009a}
0x104c…1078              Head {h00=0x0028, h01=0x0050, text=»DWTDRD EQU /14 DRIVER DEP AREA START«, t00=0x000a, t01=0x00b0}
0x1078…1084              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00dc}
0x1084…108e              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000a, t01=0x00e8}
0x108e…10ce              Head {h00=0x003c, h01=0x0050, text=»DWTSTB EQU DWTDRD DWT DC REL OFFSET TO STATISTIC BUFFER «, t00=0x000a, t01=0x00f2}
0x10ce…110a              Head {h00=0x0038, h01=0x0050, text=»DWTCHD EQU DWTSTB+2  "             LINK TO HEAD DWT «, t00=0x000a, t01=0x0132}
0x110a…1144              Head {h00=0x0036, h01=0x0050, text=»DWTCHN EQU DWTCHD+2  "            LINK TO NEXT DWT«, t00=0x000a, t01=0x016e}
0x1144…1178              Head {h00=0x0030, h01=0x0050, text=»DWTLAD EQU DWTCHN+2  "    LOCAL DTE ADDRESS «, t00=0x000b, t01=0x0018}
0x1178…11aa              Head {h00=0x002e, h01=0x0050, text=»DWTSUB EQU DWTLAD+4  POSSIBLE SUB ADDRESS «, t00=0x000b, t01=0x004c}
0x11aa…11b8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x007e}
0x11b8…11fe              Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x000b, t01=0x008c}
0x11fe…1208              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d2}
0x1208…1222              Head {h00=0x0016, h01=0x0050, text=»* STATISTIC EQU:S «, t00=0x000b, t01=0x00dc}
0x1222…1250              Head {h00=0x002a, h01=0x0050, text=»* USED IN CALLS FOR UPDATE OF COUNTERS«, t00=0x000b, t01=0x00f6}
0x1250…1282              Head {h00=0x002e, h01=0x0050, text=»* THE FOLLOWING EQU:S MUST BE INCLUDED IN «, t00=0x000b, t01=0x0124}
0x1282…12b6              Head {h00=0x0030, h01=0x0050, text=»* EACH DRIVER/PACKAGE USING DCSTAT FUNCTIONS«, t00=0x000b, t01=0x0156}
0x12b6…12c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018a}
0x12c0…1300 (12, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* THE FORMAT OF THE PARAMETER-1 IN CALL TO DCSUPR/DCSUPD«, t00=0x000c, t01=0x0004}
0x1300…130e              Head {h00=0x000a, h01=0x0050, text=»* IS: «, t00=0x000c, t01=0x0044}
0x130e…1352              Head {h00=0x0040, h01=0x0050, text=»* BITS   XYZZZZZZ  WHERE X=1IF PARAMETER-2 USED AS INCREMENT«, t00=0x000c, t01=0x0052}
0x1352…138e              Head {h00=0x0038, h01=0x0050, text=»*                            ELSE INCREMENT WITH +1 «, t00=0x000c, t01=0x0096}
0x138e…13ca              Head {h00=0x0038, h01=0x0050, text=»*                        Y=1 IF DOUBLE WORD COUNTER «, t00=0x000c, t01=0x00d2}
0x13ca…1410              Head {h00=0x0042, h01=0x0050, text=»*                        ZZZZZZ= COUNTER INDEX AS LISTED BELOW«, t00=0x000c, t01=0x010e}
0x1410…141a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0154}
0x141a…1460              Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x000c, t01=0x015e}
0x1460…146a              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000d, t01=0x0014}
0x146a…1474              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001e}
0x1474…1492              Head {h00=0x001a, h01=0x0050, text=»* LINK LEVEL COUNTERS «, t00=0x000d, t01=0x0028}
0x1492…149c              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000d, t01=0x0046}
0x149c…14ce              Head {h00=0x002e, h01=0x0050, text=»CSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED «, t00=0x000d, t01=0x0050}
0x14ce…150c              Head {h00=0x003a, h01=0x0050, text=»CSSRBY EQU /11   "   DATA BLOCKS REJECTED BUFFER BUSY «, t00=0x000d, t01=0x0082}
0x150c…154e              Head {h00=0x003e, h01=0x0050, text=»CSSRBO EQU /12   "   DATA BLOCKS REJECTED BUFFER OVERFLOW «, t00=0x000d, t01=0x00c0}
0x154e…1588              Head {h00=0x0036, h01=0x0050, text=»CSSRAB EQU /13   "   DATA BLOCKS REJECTED ABORTED «, t00=0x000d, t01=0x0102}
0x1588…15c6              Head {h00=0x003a, h01=0x0050, text=»CSSRPE EQU /14   "   DATA BLOCKS REJECTED PARITY ERROR«, t00=0x000d, t01=0x013c}
0x15c6…15fa              Head {h00=0x0030, h01=0x0050, text=»CSSTBL EQU /15   "   DATA BLOCKS TRANSMITTED«, t00=0x000d, t01=0x017a}
0x15fa…1630              Head {h00=0x0032, h01=0x0050, text=»CSSTRT EQU /16   "   DATA BLOCKS RETRANSMITTED«, t00=0x000e, t01=0x001e}
0x1630…1660              Head {h00=0x002c, h01=0x0050, text=»CSSTAB EQU /17   "   DATA BLOCKS ABORTED«, t00=0x000e, t01=0x0054}
0x1660…1690              Head {h00=0x002c, h01=0x0050, text=»CSSXC1 EQU /18   "   PROTOCOL DEPENDENT «, t00=0x000e, t01=0x0084}
0x1690…16c0              Head {h00=0x002c, h01=0x0050, text=»CSSXC2 EQU /19   "   PROTOCOL DEPENDENT «, t00=0x000e, t01=0x00b4}
0x16c0…16f0              Head {h00=0x002c, h01=0x0050, text=»CSSXC3 EQU /1A   "   PROTOCOL DEPENDENT «, t00=0x000e, t01=0x00e4}
0x16f0…16fa              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000e, t01=0x0114}
0x16fa…1704              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000e, t01=0x011e}
0x1704…1732              Head {h00=0x002a, h01=0x0050, text=»CSBRIF EQU /10 BITOR I-FRAMES RECEIVED«, t00=0x000e, t01=0x0128}
0x1732…176c              Head {h00=0x0036, h01=0x0050, text=»CSBRBY EQU /11   "   I-FRAMES REJECTED BUFFER BUSY«, t00=0x000e, t01=0x0156}
0x176c…17aa              Head {h00=0x003a, h01=0x0050, text=»CSBRBO EQU /12   "   I-FRAMES REJECTED BUFFER OVERFLOW«, t00=0x000e, t01=0x0190}
0x17aa…17e0              Head {h00=0x0032, h01=0x0050, text=»CSBRAB EQU /13   "   I-FRAMES REJECTED ABORTED«, t00=0x000f, t01=0x003e}
0x17e0…1818              Head {h00=0x0034, h01=0x0050, text=»CSBRPE EQU /14   "   I-FRAMES REJECTED FCS ERROR«, t00=0x000f, t01=0x0074}
0x1818…184a              Head {h00=0x002e, h01=0x0050, text=»CSBTIF EQU /15   "   I-FRAMES TRANSMITTED «, t00=0x000f, t01=0x00ac}
0x184a…187e              Head {h00=0x0030, h01=0x0050, text=»CSBTRT EQU /16   "   I-FRAMES RETRANSMITTED «, t00=0x000f, t01=0x00de}
0x187e…18b2              Head {h00=0x0030, h01=0x0050, text=»CSBRSM EQU /17   "   SNRM/SARM/SABM RECEIVED«, t00=0x000f, t01=0x0112}
0x18b2…18dc              Head {h00=0x0026, h01=0x0050, text=»CSBRDI EQU /18   "   DISC RECEIVED«, t00=0x000f, t01=0x0146}
0x18dc…1904              Head {h00=0x0024, h01=0x0050, text=»CSBRDM EQU /19   "   DM RECEIVED«, t00=0x000f, t01=0x0170}
0x1904…192e              Head {h00=0x0026, h01=0x0050, text=»CSBRFR EQU /1A   "   FRMR RECEIVED«, t00=0x0010, t01=0x0008}
0x192e…1956              Head {h00=0x0024, h01=0x0050, text=»CSBRUA EQU /1B   "   UA RECEIVED«, t00=0x0010, t01=0x0032}
0x1956…1980              Head {h00=0x0026, h01=0x0050, text=»CSBRRJ EQU /1C   "   REJ RECEIVED «, t00=0x0010, t01=0x005a}
0x1980…19aa              Head {h00=0x0026, h01=0x0050, text=»CSBRNR EQU /1D   "   RNR RECEIVED «, t00=0x0010, t01=0x0084}
0x19aa…19e2              Head {h00=0x0034, h01=0x0050, text=»CSBTSM EQU /1E   "   SNRM/SARM/SABM TRANSMITTED «, t00=0x0010, t01=0x00ae}
0x19e2…1a10              Head {h00=0x002a, h01=0x0050, text=»CSBTDI EQU /1F   "   DISC TRANSMITTED «, t00=0x0010, t01=0x00e6}
0x1a10…1a3c              Head {h00=0x0028, h01=0x0050, text=»CSBTDM EQU /20   "   DM TRANSMITTED «, t00=0x0010, t01=0x0114}
0x1a3c…1a6a              Head {h00=0x002a, h01=0x0050, text=»CSBTFR EQU /21   "   FRMR TRANSMITTED «, t00=0x0010, t01=0x0140}
0x1a6a…1a96              Head {h00=0x0028, h01=0x0050, text=»CSBTUA EQU /22   "   UA TRANSMITTED «, t00=0x0010, t01=0x016e}
0x1a96…1ac2              Head {h00=0x0028, h01=0x0050, text=»CSBTRJ EQU /23   "   REJ TRANSMITTED«, t00=0x0011, t01=0x000a}
0x1ac2…1aee              Head {h00=0x0028, h01=0x0050, text=»CSBTNR EQU /24   "   RNR TRANSMITTED«, t00=0x0011, t01=0x0036}
0x1aee…1b1e              Head {h00=0x002c, h01=0x0050, text=»CSBXC1 EQU /25   "   PROTOCOL DEPENDENT «, t00=0x0011, t01=0x0062}
0x1b1e…1b4a              Head {h00=0x0028, h01=0x0050, text=»CSBXC2 EQU /26   "       "        " «, t00=0x0011, t01=0x0092}
0x1b4a…1b76              Head {h00=0x0028, h01=0x0050, text=»CSBXC3 EQU /27   "       "        " «, t00=0x0011, t01=0x00be}
0x1b76…1b80              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0011, t01=0x00ea}
0x1b80…1b8a              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0011, t01=0x00f4}
0x1b8a…1baa              Head {h00=0x001c, h01=0x0050, text=»* DTE/DCE LEVEL COUNTERS«, t00=0x0011, t01=0x00fe}
0x1baa…1bb4              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0011, t01=0x011e}
0x1bb4…1bdc              Head {h00=0x0024, h01=0x0050, text=»CSCDTE EQU /28 DTE NOT OPERABLE «, t00=0x0011, t01=0x0128}
0x1bdc…1c08              Head {h00=0x0028, h01=0x0050, text=»CSCDIT EQU /29 I/P THROUGHPUT ERROR «, t00=0x0011, t01=0x0150}
0x1c08…1c34              Head {h00=0x0028, h01=0x0050, text=»CSCDOT EQU /2A O/P THROUGHPUT ERROR «, t00=0x0011, t01=0x017c}
0x1c34…1c5c              Head {h00=0x0024, h01=0x0050, text=»CSCDCE EQU /2B DCE NOT OPERABLE «, t00=0x0012, t01=0x0018}
0x1c5c…1c8a              Head {h00=0x002a, h01=0x0050, text=»CSCXC1 EQU /2C CONTROL UNIT DEPENDENT «, t00=0x0012, t01=0x0040}
0x1c8a…1ca6              Head {h00=0x0018, h01=0x0050, text=»CSCXC2 EQU /2D     "«, t00=0x0012, t01=0x006e}
0x1ca6…1cc2              Head {h00=0x0018, h01=0x0050, text=»CSCXC3 EQU /2E     "«, t00=0x0012, t01=0x008a}
0x1cc2…1ccc              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0012, t01=0x00a6}
0x1ccc…1cd6              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0012, t01=0x00b0}
0x1cd6…1d10              Head {h00=0x0036, h01=0x0050, text=»CSINIV EQU /10  1ST IMPL COUNTER CSSRBL AND CSBRBL«, t00=0x0012, t01=0x00ba}
0x1d10…1d4c              Head {h00=0x0038, h01=0x0050, text=»CSMAXL EQU CSCXC3-/F MAX IMPL SIZE OF LINK STAT BUFF«, t00=0x0012, t01=0x00f4}
0x1d4c…1d5a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0130}
0x1d5a…1d64              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0012, t01=0x013e}
0x1d64…1da4              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0012, t01=0x0148}
0x1da4…1dae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0188}
0x1dae…1db8 (19, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db8…1dda              Head {h00=0x001e, h01=0x0050, text=»* STATISTIC BUFFER LAYOUT «, t00=0x0013, t01=0x000e}
0x1dda…1de4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de4…1e24              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0013, t01=0x003a}
0x1e24…1e2e              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0013, t01=0x007a}
0x1e2e…1e4c              Head {h00=0x001a, h01=0x0050, text=»* ................... «, t00=0x0013, t01=0x0084}
0x1e4c…1e72              Head {h00=0x0022, h01=0x0050, text=»* .                 .   STWSID«, t00=0x0013, t01=0x00a2}
0x1e72…1e8e              Head {h00=0x0018, h01=0x0050, text=»* ..................«, t00=0x0013, t01=0x00c8}
0x1e8e…1eb4              Head {h00=0x0022, h01=0x0050, text=»* .                 .   STWCST«, t00=0x0013, t01=0x00e4}
0x1eb4…1ed2              Head {h00=0x001a, h01=0x0050, text=»* ................... «, t00=0x0013, t01=0x010a}
0x1ed2…1ef8              Head {h00=0x0022, h01=0x0050, text=»* .                 .   STWMIX«, t00=0x0013, t01=0x0128}
0x1ef8…1f16              Head {h00=0x001a, h01=0x0050, text=»* ................... «, t00=0x0013, t01=0x014e}
0x1f16…1f3c              Head {h00=0x0022, h01=0x0050, text=»* .                 .   STWCTA«, t00=0x0013, t01=0x016c}
0x1f3c…1f5a (20, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* /                 / «, t00=0x0014, t01=0x0004}
0x1f5a…1f78              Head {h00=0x001a, h01=0x0050, text=»* /                 / «, t00=0x0014, t01=0x0022}
0x1f78…1f96              Head {h00=0x001a, h01=0x0050, text=»* ................... «, t00=0x0014, t01=0x0040}
0x1f96…1fc2              Head {h00=0x0028, h01=0x0050, text=»STWSID EQU 0 RESERV FOR SYMBOLIC ID «, t00=0x0014, t01=0x005e}
0x1fc2…1fec              Head {h00=0x0026, h01=0x0050, text=»STWCST EQU STWSID+2 COUNTER STATUS«, t00=0x0014, t01=0x008a}
0x1fec…2000              Head {h00=0x0010, h01=0x0050, text=»   =0, RESET«, t00=0x0014, t01=0x00b4}
0x2000…2030              Head {h00=0x002c, h01=0x0050, text=»   /=0, OVERFLOW IN COUNTER WITH BIT 0=1«, t00=0x0014, t01=0x00c8}
0x2030…206c              Head {h00=0x0038, h01=0x0050, text=»STWMIX EQU STWCST+2 MAX COUNTER INDEX IN AREA STWCTA«, t00=0x0014, t01=0x00f8}
0x206c…2076              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0014, t01=0x0134}
0x2076…2080              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0014, t01=0x013e}
0x2080…20ae              Head {h00=0x002a, h01=0x0050, text=»STWCTA EQU STWMIX+2 COUNTER AREA START«, t00=0x0014, t01=0x0148}
0x20ae…20e2              Head {h00=0x0030, h01=0x0050, text=»   SIZE MUST BE ADJUSTED TO VALUE IN STWMIX «, t00=0x0014, t01=0x0176}
0x20e2…20f0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x001a}
0x20f0…20fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20fa…213e              Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0015, t01=0x0032}
0x213e…2148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0076}
0x2148…2188              Head {h00=0x003c, h01=0x0050, text=»* DCSRST  -   RESET STATISTIC COUNTERS FOR SPECIFIED DWT«, t00=0x0015, t01=0x0080}
0x2188…2192              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c0}
0x2192…21bc              Head {h00=0x0026, h01=0x0050, text=»* THE FOLLOWING ACTIONS ARE TAKEN «, t00=0x0015, t01=0x00ca}
0x21bc…21f4              Head {h00=0x0034, h01=0x0050, text=»* -CHECK IF FUNCTION IS CONFIGURED. IF NOT EXIT «, t00=0x0015, t01=0x00f4}
0x21f4…222c              Head {h00=0x0034, h01=0x0050, text=»* -LOCATE STATISTIC BUFFER IN DWT. IF NOENE EXIT«, t00=0x0015, t01=0x012c}
0x222c…226a              Head {h00=0x003a, h01=0x0050, text=»* -EXTRACT MAX COUNTER FOR BUFFER  AND CLEAR COUNTERS «, t00=0x0015, t01=0x0164}
0x226a…2274              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0012}
0x2274…22a6              Head {h00=0x002e, h01=0x0050, text=»* ENTRY:     CF     A15,DCSRST      A6=DWT«, t00=0x0016, t01=0x001c}
0x22a6…22dc              Head {h00=0x0032, h01=0x0050, text=»* EXIT:      ABR*   A15             A1=STATUS «, t00=0x0016, t01=0x004e}
0x22dc…2326              Head {h00=0x0046, h01=0x0050, text=»*                                      0=COMPLETED -1= NOT CONFIG «, t00=0x0016, t01=0x0084}
0x2326…2330              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ce}
0x2330…2374              Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0016, t01=0x00d8}
0x2374…237e              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0016, t01=0x011c}
0x237e…2392              Head {h00=0x0010, h01=0x0050, text=»DCSRST EQU *«, t00=0x0016, t01=0x0126}
0x2392…23a6              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0016, t01=0x013a}
0x23a6…23d2              Head {h00=0x0028, h01=0x0050, text=» STR A2,A15 SAVE REG ON SYSTEM STACK«, t00=0x0016, t01=0x014e}
0x23d2…23fc              Head {h00=0x0026, h01=0x0050, text=» CF A15,DCLEAR CLEAR BUFFER IF ANY«, t00=0x0016, t01=0x017a}
0x23fc…241c              Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A15 RELOAD REG «, t00=0x0017, t01=0x0014}
0x241c…2428              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0034}
0x2428…2446              Head {h00=0x001a, h01=0x0050, text=» RF DCSEXI COMMON EXIT«, t00=0x0017, t01=0x0040}
0x2446…2454              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x005e}
0x2454…245e              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0017, t01=0x006c}
0x245e…24a2              Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0017, t01=0x0076}
0x24a2…24ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x24ac…24f2              Head {h00=0x0042, h01=0x0050, text=»* DCSRLL  -   RESET STATISTIC COUNTERS FOR ALL DWT:S IN CHAIN «, t00=0x0017, t01=0x00c4}
0x24f2…24fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010a}
0x24fc…2526              Head {h00=0x0026, h01=0x0050, text=»* THE FOLLOWING ACTIONS ARE TAKEN «, t00=0x0017, t01=0x0114}
0x2526…256a              Head {h00=0x0040, h01=0x0050, text=»* -CHECK IF FUNCTION IS CONFIGURED. IF NOT EXIT WITH STATUS «, t00=0x0017, t01=0x013e}
0x256a…25b0              Head {h00=0x0042, h01=0x0050, text=»* -FIND ADDRESS OF HEAD DWT IF ANY. IF NOT START WITH CURRENT «, t00=0x0017, t01=0x0182}
0x25b0…25f0              Head {h00=0x003c, h01=0x0050, text=»* -LOCATE LINK TO STATISTIC BUFFER. IF 0 GO TO NEXT DWT «, t00=0x0018, t01=0x0038}
0x25f0…2618              Head {h00=0x0024, h01=0x0050, text=»* -CLEAR COUNTERS IN THE BUFFER «, t00=0x0018, t01=0x0078}
0x2618…2622              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a0}
0x2622…2658              Head {h00=0x0032, h01=0x0050, text=»* ENTRY:        CF      A15,DCSRLL     A6=DWT «, t00=0x0018, t01=0x00aa}
0x2658…2690              Head {h00=0x0034, h01=0x0050, text=»* EXIT:         ABR*    A15            A1=STATUS«, t00=0x0018, t01=0x00e0}
0x2690…26d8              Head {h00=0x0044, h01=0x0050, text=»*                                      0=COMPLETED -1=NOT CONFIG«, t00=0x0018, t01=0x0118}
0x26d8…26e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0160}
0x26e2…2726              Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0018, t01=0x016a}
0x2726…2730              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0019, t01=0x001e}
0x2730…2744              Head {h00=0x0010, h01=0x0050, text=»DCSRLL EQU *«, t00=0x0019, t01=0x0028}
0x2744…2758              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0019, t01=0x003c}
0x2758…2780              Head {h00=0x0024, h01=0x0050, text=» IFT STUNIT=1 SUBUNIT STATISTICS«, t00=0x0019, t01=0x0050}
0x2780…27ae              Head {h00=0x002a, h01=0x0050, text=» STR A2,A15 SAVE REGS ON SYSTEM STACK «, t00=0x0019, t01=0x0078}
0x27ae…27c2              Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0019, t01=0x00a6}
0x27c2…27ea              Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 TEMP SAVE OF SPEC DWT«, t00=0x0019, t01=0x00ba}
0x27ea…2810              Head {h00=0x0022, h01=0x0050, text=» LD A6,DWTCHD,A6 LINK TO HEAD «, t00=0x0019, t01=0x00e2}
0x2810…283a              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DCSR10 YES START FROM HEAD«, t00=0x0019, t01=0x0108}
0x283a…2864              Head {h00=0x0026, h01=0x0050, text=» LDR A6,A1 NO, START FROM CURRENT «, t00=0x0019, t01=0x0132}
0x2864…2878              Head {h00=0x0010, h01=0x0050, text=»DCSR10 EQU *«, t00=0x0019, t01=0x015c}
0x2878…289c              Head {h00=0x0020, h01=0x0050, text=» CF A15,DCLEAR CLEAR BUFFER «, t00=0x0019, t01=0x0170}
0x289c…28ce (26, 0, 400) Head {h00=0x002e, h01=0x0050, text=» LD A6,DWTCHN,A6 LINK TO NEXT DWT IN CHAIN«, t00=0x001a, t01=0x0004}
0x28ce…2900              Head {h00=0x002e, h01=0x0050, text=» RB(NZ) DCSR10 NOT LAST CONTINUE TO CLEAR «, t00=0x001a, t01=0x0036}
0x2900…2920              Head {h00=0x001c, h01=0x0050, text=» LDR* A6,A15 RELOAD REGS«, t00=0x001a, t01=0x0068}
0x2920…2934              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x001a, t01=0x0088}
0x2934…2940              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x009c}
0x2940…2954              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x001a, t01=0x00a8}
0x2954…296a              Head {h00=0x0012, h01=0x0050, text=» IFF STUNIT=1 «, t00=0x001a, t01=0x00bc}
0x296a…297c              Head {h00=0x000e, h01=0x0050, text=» RB DCSRST«, t00=0x001a, t01=0x00d2}
0x297c…2988              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00e4}
0x2988…29a6              Head {h00=0x001a, h01=0x0050, text=» RF DCSEXI COMMON EXIT«, t00=0x001a, t01=0x00f0}
0x29a6…29b4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x010e}
0x29b4…29be              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001a, t01=0x011c}
0x29be…29fe              Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001a, t01=0x0126}
0x29fe…2a08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0166}
0x2a08…2a48              Head {h00=0x003c, h01=0x0050, text=»* DCSUPR    -     UPDATE COUNTER SPEC WITH PARAMETERS IN«, t00=0x001a, t01=0x0170}
0x2a48…2a7a              Head {h00=0x002e, h01=0x0050, text=»*                 REGS A1 AND POSSIBLY A2 «, t00=0x001b, t01=0x0020}
0x2a7a…2aba              Head {h00=0x003c, h01=0x0050, text=»* DCSUPS    -    UPDATE COUNTER SPEC WITH PARAMETERS IN «, t00=0x001b, t01=0x0052}
0x2aba…2af8              Head {h00=0x003a, h01=0x0050, text=»*                REGS A1 AND POSSIBLY A2. A7 = DTETAB «, t00=0x001b, t01=0x0092}
0x2af8…2b38              Head {h00=0x003c, h01=0x0050, text=»* DCSUPD    -     UPDATE COUNTER SPEC WITH PARAMETERS IN«, t00=0x001b, t01=0x00d0}
0x2b38…2b68              Head {h00=0x002c, h01=0x0050, text=»*                 PACKET AND POSSIBLY A2«, t00=0x001b, t01=0x0110}
0x2b68…2b72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0140}
0x2b72…2b9c              Head {h00=0x0026, h01=0x0050, text=»* THE FOLLOWING ACTIONS ARE TAKEN «, t00=0x001b, t01=0x014a}
0x2b9c…2be0              Head {h00=0x0040, h01=0x0050, text=»* -CHECK IF FUNCTION IS CONFIGURED. IF NOT EXIT WITH STATUS «, t00=0x001b, t01=0x0174}
0x2be0…2c1e              Head {h00=0x003a, h01=0x0050, text=»* -IF ENTRY DCSUPD USED FETCH PARAMETER-1 FROM PACKET «, t00=0x001c, t01=0x0028}
0x2c1e…2c5e              Head {h00=0x003c, h01=0x0050, text=»* -UPDATE COUNTER IN SPEC DWT IF PARAMETER WITHIN RANGE «, t00=0x001c, t01=0x0066}
0x2c5e…2c96              Head {h00=0x0034, h01=0x0050, text=»*  OF MAX VALUE KEPT IN THE CONTROL WORD OF THE «, t00=0x001c, t01=0x00a6}
0x2c96…2cb2              Head {h00=0x0018, h01=0x0050, text=»*  STATISTIC BUFFER «, t00=0x001c, t01=0x00de}
0x2cb2…2ce0              Head {h00=0x002a, h01=0x0050, text=»* IF SUBUNIT STATISTICS IS CONFIGURED «, t00=0x001c, t01=0x00fa}
0x2ce0…2d22              Head {h00=0x003e, h01=0x0050, text=»* -LOCATE HEAD DWT AND IF EXISTING REPEAT PREVIOUS ACTION «, t00=0x001c, t01=0x0128}
0x2d22…2d2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016a}
0x2d2c…2d7a              Head {h00=0x004a, h01=0x0050, text=»* ENTRY:          CF      A15,DCSUPR    A6=DWT A1=PARAM-1 (A2=PARAM-2)«, t00=0x001c, t01=0x0174}
0x2d7a…2d90              Head {h00=0x0012, h01=0x0050, text=»*          OR «, t00=0x001d, t01=0x0032}
0x2d90…2dc6              Head {h00=0x0032, h01=0x0050, text=»*                 CF      A15,DCSUPD    A6=DWT«, t00=0x001d, t01=0x0048}
0x2dc6…2e02              Head {h00=0x0038, h01=0x0050, text=»*                 DATA    PARAM-1       (A2=PARAM-2)«, t00=0x001d, t01=0x007e}
0x2e02…2e0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ba}
0x2e0c…2e46              Head {h00=0x0036, h01=0x0050, text=»* EXIT:           ABR*    A15           A1=STATUS «, t00=0x001d, t01=0x00c4}
0x2e46…2e90              Head {h00=0x0046, h01=0x0050, text=»*                                       0=COMPLETED -1=NOT CONFIG «, t00=0x001d, t01=0x00fe}
0x2e90…2ede              Head {h00=0x004a, h01=0x0050, text=»*                                       -2=INDEX ERROR -3=BUFFER ERROR«, t00=0x001d, t01=0x0148}
0x2ede…2f24              Head {h00=0x0042, h01=0x0050, text=»*                                       +1=COUNTER OVERFLOWED «, t00=0x001e, t01=0x0008}
0x2f24…2f2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004e}
0x2f2e…2f76              Head {h00=0x0044, h01=0x0050, text=»************::************************************************* «, t00=0x001e, t01=0x0058}
0x2f76…2f80              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001e, t01=0x00a0}
0x2f80…2f94              Head {h00=0x0010, h01=0x0050, text=»DCSUPR EQU *«, t00=0x001e, t01=0x00aa}
0x2f94…2fa8              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x001e, t01=0x00be}
0x2fa8…2fd6              Head {h00=0x002a, h01=0x0050, text=» STR A3,A15 SAVE REGS ON SYSTEM STACK «, t00=0x001e, t01=0x00d2}
0x2fd6…2fea              Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x001e, t01=0x0100}
0x2fea…2ffe              Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x001e, t01=0x0114}
0x2ffe…3012              Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x001e, t01=0x0128}
0x3012…303e              Head {h00=0x0028, h01=0x0050, text=» RF DCSU00 CONTINUE AT COMMON POINT «, t00=0x001e, t01=0x013c}
0x303e…304a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0168}
0x304a…3054              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001e, t01=0x0174}
0x3054…305e              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001e, t01=0x017e}
0x305e…3072              Head {h00=0x0010, h01=0x0050, text=»DCSUPS EQU *«, t00=0x001e, t01=0x0188}
0x3072…3086              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x001f, t01=0x000c}
0x3086…30b4              Head {h00=0x002a, h01=0x0050, text=» STR A3,A15 SAVE REGS ON SYSTEM STACK «, t00=0x001f, t01=0x0020}
0x30b4…30c8              Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x001f, t01=0x004e}
0x30c8…30dc              Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x001f, t01=0x0062}
0x30dc…30f0              Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x001f, t01=0x0076}
0x30f0…3116              Head {h00=0x0022, h01=0x0050, text=» LDR A6,A7 A6 = DTETAB ADDRESS«, t00=0x001f, t01=0x008a}
0x3116…3128              Head {h00=0x000e, h01=0x0050, text=» RF DCSU00«, t00=0x001f, t01=0x00b0}
0x3128…3134              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00c2}
0x3134…313c              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00ce}
0x313c…3144              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00d6}
0x3144…3158              Head {h00=0x0010, h01=0x0050, text=»DCSUPD EQU *«, t00=0x001f, t01=0x00de}
0x3158…316c              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x001f, t01=0x00f2}
0x316c…319a              Head {h00=0x002a, h01=0x0050, text=» STR A3,A15 SAVE REGS ON SYSTEM STACK «, t00=0x001f, t01=0x0106}
0x319a…31ae              Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x001f, t01=0x0134}
0x31ae…31c2              Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x001f, t01=0x0148}
0x31c2…31d6              Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x001f, t01=0x015c}
0x31d6…3204              Head {h00=0x002a, h01=0x0050, text=» LD* A1,+12,A15 LOAD PARAM-1 VIA STACK«, t00=0x001f, t01=0x0170}
0x3204…3216              Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0020, t01=0x000e}
0x3216…3242              Head {h00=0x0028, h01=0x0050, text=» ADS A4,+12,A15 ADJUST RETURN POINT «, t00=0x0020, t01=0x0020}
0x3242…324c              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0020, t01=0x004c}
0x324c…3256              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0020, t01=0x0056}
0x3256…328a              Head {h00=0x0030, h01=0x0050, text=»DCSU00 EQU * COMMON POINT FOR DCSUPR DCSUPD «, t00=0x0020, t01=0x0060}
0x328a…32b2              Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 PRESET STATUS FOR EXIT«, t00=0x0020, t01=0x0094}
0x32b2…32c6              Head {h00=0x0010, h01=0x0050, text=»DCSU01 EQU *«, t00=0x0020, t01=0x00bc}
0x32c6…32ea              Head {h00=0x0020, h01=0x0050, text=» CF A15,DCOUNT INCR COUNTER «, t00=0x0020, t01=0x00d0}
0x32ea…3300              Head {h00=0x0012, h01=0x0050, text=» IFT STUNIT=1 «, t00=0x0020, t01=0x00f4}
0x3300…332a              Head {h00=0x0026, h01=0x0050, text=» LD A6,DWTCHD,A6 LINK TO HEAD DWT «, t00=0x0020, t01=0x010a}
0x332a…3348              Head {h00=0x001a, h01=0x0050, text=» RF(Z) DCSU04 NO LINK «, t00=0x0020, t01=0x0134}
0x3348…336e              Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 CHECK STATUS SOFAR «, t00=0x0020, t01=0x0152}
0x336e…3396              Head {h00=0x0024, h01=0x0050, text=» RB(NN) DCSU01 OVERBLOW KEEP IT «, t00=0x0020, t01=0x0178}
0x3396…33ce              Head {h00=0x0034, h01=0x0050, text=» RB DCSU00 CLEAR STATUS AND UPDATE FOR HEAD DWT «, t00=0x0021, t01=0x0010}
0x33ce…33e2              Head {h00=0x0010, h01=0x0050, text=»DCSU04 EQU *«, t00=0x0021, t01=0x0048}
0x33e2…33ee              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x005c}
0x33ee…3402              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0021, t01=0x0068}
0x3402…342a              Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 MOVE STATUS FOR EXIT «, t00=0x0021, t01=0x007c}
0x342a…344a              Head {h00=0x001c, h01=0x0050, text=» LDR* A6,A15 RELOAD REGS«, t00=0x0021, t01=0x00a4}
0x344a…345e              Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x0021, t01=0x00c4}
0x345e…3472              Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x0021, t01=0x00d8}
0x3472…3486              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0021, t01=0x00ec}
0x3486…3492              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0100}
0x3492…34b0              Head {h00=0x001a, h01=0x0050, text=» RF DCSEXI COMMON EXIT«, t00=0x0021, t01=0x010c}
0x34b0…34be              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x012a}
0x34be…34f4              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0021, t01=0x0138}
0x34f4…34fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x016e}
0x34fe…3540              Head {h00=0x003e, h01=0x0050, text=»* DCSRED    -    READ STATISTIC COUNTERS INTO USER BUFFER «, t00=0x0021, t01=0x0178}
0x3540…354a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002a}
0x354a…3574              Head {h00=0x0026, h01=0x0050, text=»* THE FOLLOWING ACTIONS ARE TAKEN «, t00=0x0022, t01=0x0034}
0x3574…35b4              Head {h00=0x003c, h01=0x0050, text=»* -CHECK IF FUNCTION CONFIGURED. IF NOT EXIT WITH STATUS«, t00=0x0022, t01=0x005e}
0x35b4…35e8              Head {h00=0x0030, h01=0x0050, text=»* -CHECK USER PARAMETERS IF NOT CORRECT EXIT«, t00=0x0022, t01=0x009e}
0x35e8…3626              Head {h00=0x003a, h01=0x0050, text=»* -FETCH SYMBOLIC ID FROM DWT AND MOV COUNTERS IF ANY «, t00=0x0022, t01=0x00d2}
0x3626…3656              Head {h00=0x002c, h01=0x0050, text=»*  IF BUFFER OVERFLOWS EXIT WITH STATUS «, t00=0x0022, t01=0x0110}
0x3656…3684              Head {h00=0x002a, h01=0x0050, text=»* IF SUBUNIT STATISTICS IS CONFIGURED «, t00=0x0022, t01=0x0140}
0x3684…36b4              Head {h00=0x002c, h01=0x0050, text=»* -LOCATE HEAD DWT AND REPEAT LST ACTION«, t00=0x0022, t01=0x016e}
0x36b4…36be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x000e}
0x36be…36fc              Head {h00=0x003a, h01=0x0050, text=»* ENTRY:       CF        A15,DCSRED    A6=DWT   A8=ECB«, t00=0x0023, t01=0x0018}
0x36fc…3706              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0056}
0x3706…373e              Head {h00=0x0034, h01=0x0050, text=»* EXIT:        ABR*      A15           A1=STATUS«, t00=0x0023, t01=0x0060}
0x373e…3786              Head {h00=0x0044, h01=0x0050, text=»*                                      0=COMPLETED -1=NOT CONFIG«, t00=0x0023, t01=0x0098}
0x3786…37c4              Head {h00=0x003a, h01=0x0050, text=»*                                      -3=BUFFER ERROR«, t00=0x0023, t01=0x00e0}
0x37c4…3810              Head {h00=0x0048, h01=0x0050, text=»*                                      IF A1=0 THEN ECB (A8) UPDATED«, t00=0x0023, t01=0x011e}
0x3810…385c              Head {h00=0x0048, h01=0x0050, text=»*                                      IN ECBEL AND (ECBBA)=COUNTERS«, t00=0x0023, t01=0x016a}
0x385c…389e              Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0024, t01=0x0026}
0x389e…38a8              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0024, t01=0x0068}
0x38a8…38bc              Head {h00=0x0010, h01=0x0050, text=»DCSRED EQU *«, t00=0x0024, t01=0x0072}
0x38bc…38d0              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0024, t01=0x0086}
0x38d0…38fe              Head {h00=0x002a, h01=0x0050, text=» STR A2,A15 SAVE REGS ON SYSTEM STACK «, t00=0x0024, t01=0x009a}
0x38fe…3912              Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0024, t01=0x00c8}
0x3912…3926              Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0024, t01=0x00dc}
0x3926…393a              Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0024, t01=0x00f0}
0x393a…394e              Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0024, t01=0x0104}
0x394e…3962              Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x0024, t01=0x0118}
0x3962…397c              Head {h00=0x0016, h01=0x0050, text=» LDR A8,A8 ANY ECB«, t00=0x0024, t01=0x012c}
0x397c…3994              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCSRER NO«, t00=0x0024, t01=0x0146}
0x3994…39b6              Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBBA,A8 ANY BUFFER«, t00=0x0024, t01=0x015e}
0x39b6…39ce              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCSRER NO«, t00=0x0024, t01=0x0180}
0x39ce…39f6              Head {h00=0x0024, h01=0x0050, text=» LD A5,ECBRL,A8 ANY LENGTH GIVEN«, t00=0x0025, t01=0x0008}
0x39f6…3a0e              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCSRER NO«, t00=0x0025, t01=0x0030}
0x3a0e…3a30              Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTTAB,A6 TTAB ADDR«, t00=0x0025, t01=0x0048}
0x3a30…3a46              Head {h00=0x0012, h01=0x0050, text=» IFT STUNIT=1 «, t00=0x0025, t01=0x006a}
0x3a46…3a6c              Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTCHD,A6 ANY HEAD DWT «, t00=0x0025, t01=0x0080}
0x3a6c…3a84              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCSR01 NO«, t00=0x0025, t01=0x00a6}
0x3a84…3ab8              Head {h00=0x0030, h01=0x0050, text=» LD A7,DWTSUB,A6 SYMBOLIC SUB ADDRESS IF ANY«, t00=0x0025, t01=0x00be}
0x3ab8…3ad8              Head {h00=0x001c, h01=0x0050, text=» RF DCSR02 MOVE COUNTERS«, t00=0x0025, t01=0x00f2}
0x3ad8…3ae4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0112}
0x3ae4…3af8              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0025, t01=0x011e}
0x3af8…3b0c              Head {h00=0x0010, h01=0x0050, text=»DCSR01 EQU *«, t00=0x0025, t01=0x0132}
0x3b0c…3b40              Head {h00=0x0030, h01=0x0050, text=» LD A7,DWTLAD,A6 LOCAL SYMBOLIC DTE ADDRESS «, t00=0x0025, t01=0x0146}
0x3b40…3b54              Head {h00=0x0010, h01=0x0050, text=»DCSR02 EQU *«, t00=0x0025, t01=0x017a}
0x3b54…3b80              Head {h00=0x0028, h01=0x0050, text=» RF(Z) DCSR04 NO SYMBOLIC ID MOVE 0 «, t00=0x0025, t01=0x018e}
0x3b80…3ba8              Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTSTB,A6 ANY STAT BUFFER«, t00=0x0026, t01=0x002a}
0x3ba8…3bc8              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DCSR04 NO MOVE 0 «, t00=0x0026, t01=0x0052}
0x3bc8…3bea              Head {h00=0x001e, h01=0x0050, text=» ADR A1,A6 ADD BASE OF DWT«, t00=0x0026, t01=0x0072}
0x3bea…3c12              Head {h00=0x0024, h01=0x0050, text=» LD A3,STWMIX,A1 NO OF COUNTERS «, t00=0x0026, t01=0x0094}
0x3c12…3c32              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DCSR04 NOE MOVE 0«, t00=0x0026, t01=0x00bc}
0x3c32…3c56              Head {h00=0x0020, h01=0x0050, text=» SLL A3,1 COUNTERS TO BYTES «, t00=0x0026, t01=0x00dc}
0x3c56…3c86              Head {h00=0x002c, h01=0x0050, text=» ADK A3,STWCTA ADD BASE OF COUNTER AREA «, t00=0x0026, t01=0x0100}
0x3c86…3cb2              Head {h00=0x0028, h01=0x0050, text=» STR A7,A1 SAVE SYMBOLIC ID FOR MOVE«, t00=0x0026, t01=0x0130}
0x3cb2…3cd6              Head {h00=0x0020, h01=0x0050, text=» RF DCSR06 MOVE STAT BUFFER «, t00=0x0026, t01=0x015c}
0x3cd6…3d0a              Head {h00=0x0030, h01=0x0050, text=»DCSR04 EQU * NO ID OR STAT BUFFER MOVE ZEROE«, t00=0x0026, t01=0x0180}
0x3d0a…3d20              Head {h00=0x0012, h01=0x0050, text=» LDK A3,2 SIZE«, t00=0x0027, t01=0x0024}
0x3d20…3d46              Head {h00=0x0022, h01=0x0050, text=» LDKL A1,DCZERO BUFFER ADDRESS«, t00=0x0027, t01=0x003a}
0x3d46…3d5a              Head {h00=0x0010, h01=0x0050, text=»DCSR06 EQU *«, t00=0x0027, t01=0x0060}
0x3d5a…3d84              Head {h00=0x0026, h01=0x0050, text=» SUR A5,A3 ANY SPACE IN USER BUFF «, t00=0x0027, t01=0x0074}
0x3d84…3d9c              Head {h00=0x0014, h01=0x0050, text=» RF(N) DCSRER NO«, t00=0x0027, t01=0x009e}
0x3d9c…3dd0              Head {h00=0x0030, h01=0x0050, text=» CF A15,MOVSU MOVE STAT BUFFER TO USER BUFF «, t00=0x0027, t01=0x00b6}
0x3dd0…3ddc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00ea}
0x3ddc…3df0              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0027, t01=0x00f6}
0x3df0…3e06              Head {h00=0x0012, h01=0x0050, text=» IFT STUNIT=1 «, t00=0x0027, t01=0x010a}
0x3e06…3e2c              Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTCHD,A6 ANY HEAD DWT «, t00=0x0027, t01=0x0120}
0x3e2c…3e44              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCSR08 NO«, t00=0x0027, t01=0x0146}
0x3e44…3e62              Head {h00=0x001a, h01=0x0050, text=» LDR A6,A1 YES USE IT «, t00=0x0027, t01=0x015e}
0x3e62…3e74              Head {h00=0x000e, h01=0x0050, text=» RB DCSR01«, t00=0x0027, t01=0x017c}
0x3e74…3e82              Head {h00=0x000a, h01=0x0050, text=» XIF  «, t00=0x0027, t01=0x018e}
0x3e82…3e96              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0028, t01=0x000c}
0x3e96…3ea0              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0028, t01=0x0020}
0x3ea0…3ec8              Head {h00=0x0024, h01=0x0050, text=»DCSR08 EQU * ALL MOVE UPDATE ECB«, t00=0x0028, t01=0x002a}
0x3ec8…3eee              Head {h00=0x0022, h01=0x0050, text=» SU A2,ECBBA,A8 START OF USER «, t00=0x0028, t01=0x0052}
0x3eee…3f12              Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBEL,A8 NO OF BYTES «, t00=0x0028, t01=0x0078}
0x3f12…3f2e              Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 STATUS OK «, t00=0x0028, t01=0x009c}
0x3f2e…3f46              Head {h00=0x0014, h01=0x0050, text=» RF DCSREX EXIT «, t00=0x0028, t01=0x00b8}
0x3f46…3f50              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0028, t01=0x00d0}
0x3f50…3f86              Head {h00=0x0032, h01=0x0050, text=»DCSRER EQU * BUFFER ERROR E.G NONE OR OVERFLOW«, t00=0x0028, t01=0x00da}
0x3f86…3fa0              Head {h00=0x0016, h01=0x0050, text=» LDKL A1,-3 STATUS«, t00=0x0028, t01=0x0110}
0x3fa0…3fba              Head {h00=0x0016, h01=0x0050, text=»DCSREX EQU * EXIT «, t00=0x0028, t01=0x012a}
0x3fba…3fce              Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x0028, t01=0x0144}
0x3fce…3fee              Head {h00=0x001c, h01=0x0050, text=» LDR* A6,A15 RELOAD REGS«, t00=0x0028, t01=0x0158}
0x3fee…4002              Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x0028, t01=0x0178}
0x4002…4016              Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x0028, t01=0x018c}
0x4016…402a              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0029, t01=0x0010}
0x402a…403e              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0029, t01=0x0024}
0x403e…404a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0038}
0x404a…4068              Head {h00=0x001a, h01=0x0050, text=» RF DCSEXI COMMON EXIT«, t00=0x0029, t01=0x0044}
0x4068…4072              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0062}
0x4072…4094              Head {h00=0x001e, h01=0x0050, text=»DCZERO DATA 0 ZEROE BUFFER«, t00=0x0029, t01=0x006c}
0x4094…40a2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x008e}
0x40a2…40e4              Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0029, t01=0x009c}
0x40e4…40ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00de}
0x40ee…4112              Head {h00=0x0020, h01=0x0050, text=»* COMMON EXIT FROM FUNCTIONS«, t00=0x0029, t01=0x00e8}
0x4112…411c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010c}
0x411c…415e              Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0029, t01=0x0116}
0x415e…4168              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0029, t01=0x0158}
0x4168…417c              Head {h00=0x0010, h01=0x0050, text=»DCSEXI EQU *«, t00=0x0029, t01=0x0162}
0x417c…4190              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=0 «, t00=0x0029, t01=0x0176}
0x4190…41ba              Head {h00=0x0026, h01=0x0050, text=» LDKL A1,-1 STATUS NOT CONFIGURED «, t00=0x0029, t01=0x018a}
0x41ba…41c6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0024}
0x41c6…41da              Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x002a, t01=0x0030}
0x41da…41f2              Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x002a, t01=0x0044}
0x41f2…4200              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x005c}
0x4200…4214              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x002a, t01=0x006a}
0x4214…4252              Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002a, t01=0x007e}
0x4252…425c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00bc}
0x425c…4282              Head {h00=0x0022, h01=0x0050, text=»* COMMON INTERNAL SUBROUTINES «, t00=0x002a, t01=0x00c6}
0x4282…428c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ec}
0x428c…42ca              Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002a, t01=0x00f6}
0x42ca…42d4              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002a, t01=0x0134}
0x42d4…42de              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002a, t01=0x013e}
0x42de…431a              Head {h00=0x0038, h01=0x0050, text=»* DCLEAR - CLEAR STATISTIC BUFFER IF LINKED FROM DWT«, t00=0x002a, t01=0x0148}
0x431a…4324              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0184}
0x4324…4352              Head {h00=0x002a, h01=0x0050, text=»* ENTRY:  CF     A15,DCLEAR    A6=DWT «, t00=0x002a, t01=0x018e}
0x4352…4386              Head {h00=0x0030, h01=0x0050, text=»* EXIT:   ABR*   A15           A1=0   A6=DWT«, t00=0x002b, t01=0x002c}
0x4386…439a              Head {h00=0x0010, h01=0x0050, text=»DCLEAR EQU *«, t00=0x002b, t01=0x0060}
0x439a…43ce              Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSTB,A6 ANY STATISTIC BUFFER LINKED«, t00=0x002b, t01=0x0074}
0x43ce…43e6              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCLEXI NO«, t00=0x002b, t01=0x00a8}
0x43e6…4408              Head {h00=0x001e, h01=0x0050, text=» ADR A2,A6 ADD BASE OF DWT«, t00=0x002b, t01=0x00c0}
0x4408…443e              Head {h00=0x0032, h01=0x0050, text=» LD A1,STWMIX,A2 GET MAX INDEX FOR THIS BUFFER«, t00=0x002b, t01=0x00e2}
0x443e…445a              Head {h00=0x0018, h01=0x0050, text=» RF(Z) DCLEXI ZEROE «, t00=0x002b, t01=0x0118}
0x445a…4482              Head {h00=0x0024, h01=0x0050, text=» CM STWCST,A2 CLEAR STATUS WORD «, t00=0x002b, t01=0x0134}
0x4482…44a6              Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 COUNTER INTO BYTES«, t00=0x002b, t01=0x015c}
0x44a6…44c8              Head {h00=0x001e, h01=0x0050, text=» ADK A2,STWMIX ADD OFFSET «, t00=0x002b, t01=0x0180}
0x44c8…44f8              Head {h00=0x002c, h01=0x0050, text=» ADR A2,A1 POINT AT LAST WORD+1 IN BUFF «, t00=0x002c, t01=0x0012}
0x44f8…450c              Head {h00=0x0010, h01=0x0050, text=»DCLOOP EQU *«, t00=0x002c, t01=0x0042}
0x450c…452a              Head {h00=0x001a, h01=0x0050, text=» CMR A2 CLEAR COUNTER «, t00=0x002c, t01=0x0056}
0x452a…4546              Head {h00=0x0018, h01=0x0050, text=» SUK A2,2 POINTER -2«, t00=0x002c, t01=0x0074}
0x4546…4564              Head {h00=0x001a, h01=0x0050, text=» SUK A1,2 ALL CLEARED «, t00=0x002c, t01=0x0090}
0x4564…457e              Head {h00=0x0016, h01=0x0050, text=» RB(NZ) DCLOOP NO «, t00=0x002c, t01=0x00ae}
0x457e…4592              Head {h00=0x0010, h01=0x0050, text=»DCLEXI EQU *«, t00=0x002c, t01=0x00c8}
0x4592…45aa              Head {h00=0x0014, h01=0x0050, text=» LDK A1,0 STATUS«, t00=0x002c, t01=0x00dc}
0x45aa…45ca              Head {h00=0x001c, h01=0x0050, text=» RF DCEXIT COMMON RETURN«, t00=0x002c, t01=0x00f4}
0x45ca…45d8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0114}
0x45d8…4618              Head {h00=0x003c, h01=0x0050, text=»* DCOUNT - INCREMENT COUNTER IN STATISTIC BUFFER IF ANY «, t00=0x002c, t01=0x0122}
0x4618…4622              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0162}
0x4622…4654              Head {h00=0x002e, h01=0x0050, text=»* ENTRY:  CF      A15,DCOUNT        A6=DWT«, t00=0x002c, t01=0x016c}
0x4654…4682              Head {h00=0x002a, h01=0x0050, text=»* EXIT:     ABR*      A15         A4= «, t00=0x002d, t01=0x000e}
0x4682…4696              Head {h00=0x0010, h01=0x0050, text=»DCOUNT EQU *«, t00=0x002d, t01=0x003c}
0x4696…46b6              Head {h00=0x001c, h01=0x0050, text=» STR A1,A15 SAVE PARAM-1«, t00=0x002d, t01=0x0050}
0x46b6…46de              Head {h00=0x0024, h01=0x0050, text=» STR A2,A15 SAVE PARAM-2 IF ANY «, t00=0x002d, t01=0x0070}
0x46de…470c              Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTSTB,A6 ANY STATISTIC BUFFER «, t00=0x002d, t01=0x0098}
0x470c…4724              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCONOB NO«, t00=0x002d, t01=0x00c6}
0x4724…4746              Head {h00=0x001e, h01=0x0050, text=» ADR A3,A6 ADD BASE OF DWT«, t00=0x002d, t01=0x00de}
0x4746…476a              Head {h00=0x0020, h01=0x0050, text=» LDR A5,A1 MOVE PARAMETER-1 «, t00=0x002d, t01=0x0100}
0x476a…4792              Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F LEAVE COUNTER INDEX «, t00=0x002d, t01=0x0124}
0x4792…47c2              Head {h00=0x002c, h01=0x0050, text=» SUK A5,CSINIV SUBTRACT IMPL BASE VALUE «, t00=0x002d, t01=0x014c}
0x47c2…47e6              Head {h00=0x0020, h01=0x0050, text=» RF(N) DCOMAX ERROR PARAM-1 «, t00=0x002d, t01=0x017c}
0x47e6…481a              Head {h00=0x0030, h01=0x0050, text=» CW A5,STWMIX,A3 PARAM-1 >MAX VALUE IN BUFF «, t00=0x002e, t01=0x0010}
0x481a…4834              Head {h00=0x0016, h01=0x0050, text=» RF(NL) DCOMAX YES«, t00=0x002e, t01=0x0044}
0x4834…4864              Head {h00=0x002c, h01=0x0050, text=» ADK A3,STWCTA START AFTER CONTROL WORD «, t00=0x002e, t01=0x005e}
0x4864…4882              Head {h00=0x001a, h01=0x0050, text=» ADR A3,A5 IN WORDS TO«, t00=0x002e, t01=0x008e}
0x4882…48a4              Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 START OF BUFFER«, t00=0x002e, t01=0x00ac}
0x48a4…48ca              Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 CHECK IF PARAM-2 REQ«, t00=0x002e, t01=0x00ce}
0x48ca…48e4              Head {h00=0x0016, h01=0x0050, text=» RF(N) DCO010 YES «, t00=0x002e, t01=0x00f4}
0x48e4…4908              Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 ELSE INCR WITH +1 «, t00=0x002e, t01=0x010e}
0x4908…491c              Head {h00=0x0010, h01=0x0050, text=»DCO010 EQU *«, t00=0x002e, t01=0x0132}
0x491c…4946              Head {h00=0x0026, h01=0x0050, text=» IFT STDBLE=1 DOUBLE WORD COUNTERS«, t00=0x002e, t01=0x0146}
0x4946…4974              Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 CHECK IF DOUBLE WORD ARITHM «, t00=0x002e, t01=0x0170}
0x4974…498a              Head {h00=0x0012, h01=0x0050, text=» RF(N) DCODBL «, t00=0x002f, t01=0x000e}
0x498a…4996              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0024}
0x4996…49aa              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x002f, t01=0x0030}
0x49aa…49d6              Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 CHECK COUNTER OVERFLOWED«, t00=0x002f, t01=0x0044}
0x49d6…49fa              Head {h00=0x0020, h01=0x0050, text=» RF(N) DCOVRE YES NO UPDATE «, t00=0x002f, t01=0x0070}
0x49fa…4a16              Head {h00=0x0018, h01=0x0050, text=» ADR A2,A1 INCREMENT«, t00=0x002f, t01=0x0094}
0x4a16…4a1e              Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00b0}
0x4a1e…4a3c              Head {h00=0x001a, h01=0x0050, text=» RF(O) DCOVRF OVERFLOW«, t00=0x002f, t01=0x00b8}
0x4a3c…4a5e              Head {h00=0x001e, h01=0x0050, text=» STR A2,A3 SAVE NEW VALUE «, t00=0x002f, t01=0x00d6}
0x4a5e…4a70              Head {h00=0x000e, h01=0x0050, text=» RF DCOEXI«, t00=0x002f, t01=0x00f8}
0x4a70…4a86              Head {h00=0x0012, h01=0x0050, text=» IFT STDBLE=1 «, t00=0x002f, t01=0x010a}
0x4a86…4aae              Head {h00=0x0024, h01=0x0050, text=»DCODBL EQU * DOUBLE WORD ARITHM «, t00=0x002f, t01=0x0120}
0x4aae…4ad6              Head {h00=0x0024, h01=0x0050, text=» SUK A3,2 COUNTER IN WORD-2,WORD«, t00=0x002f, t01=0x0148}
0x4ad6…4afc              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A3 CHECK IF OVERFLOWED«, t00=0x002f, t01=0x0170}
0x4afc…4b12              Head {h00=0x0012, h01=0x0050, text=» RF(N) DCOVRE «, t00=0x0030, t01=0x0008}
0x4b12…4b38              Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 A1=0   A2=INCR VALUE«, t00=0x0030, t01=0x001e}
0x4b38…4b58              Head {h00=0x001c, h01=0x0050, text=» DAR* A3 ADD TO COUNTER «, t00=0x0030, t01=0x0044}
0x4b58…4b76              Head {h00=0x001a, h01=0x0050, text=» RF(O) DCOVRF OVERFLOW«, t00=0x0030, t01=0x0064}
0x4b76…4b9e              Head {h00=0x0024, h01=0x0050, text=» STR A1,A3 SAVE COUNTER 1ST WRD «, t00=0x0030, t01=0x0082}
0x4b9e…4bc8              Head {h00=0x0026, h01=0x0050, text=» ST A2,+2,A3 SAVE COUNTER 2ND WRD «, t00=0x0030, t01=0x00aa}
0x4bc8…4bdc              Head {h00=0x0010, h01=0x0050, text=» RF DCOEXI  «, t00=0x0030, t01=0x00d4}
0x4bdc…4be8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00e8}
0x4be8…4bfc              Head {h00=0x0010, h01=0x0050, text=» IFT STAT=1 «, t00=0x0030, t01=0x00f4}
0x4bfc…4c06              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0030, t01=0x0108}
0x4c06…4c1a              Head {h00=0x0010, h01=0x0050, text=»DCOVRF EQU *«, t00=0x0030, t01=0x0112}
0x4c1a…4c3a              Head {h00=0x001c, h01=0x0050, text=» C1RS A3 SET COUNTER NEG«, t00=0x0030, t01=0x0126}
0x4c3a…4c54              Head {h00=0x0016, h01=0x0050, text=» LD A3,DWTSTB,A6  «, t00=0x0030, t01=0x0146}
0x4c54…4c76              Head {h00=0x001e, h01=0x0050, text=» ADR A3,A6 ADD BASE OF DWT«, t00=0x0030, t01=0x0160}
0x4c76…4ca8              Head {h00=0x002e, h01=0x0050, text=» ST A5,STWCST,A3 SAVE INDEX OVERFLOW FLAG «, t00=0x0030, t01=0x0182}
0x4ca8…4cbc              Head {h00=0x0010, h01=0x0050, text=»DCOVRE EQU *«, t00=0x0031, t01=0x0024}
0x4cbc…4ce2              Head {h00=0x0022, h01=0x0050, text=» LDK A4,+1 SET STATUS OVERFLOW«, t00=0x0031, t01=0x0038}
0x4ce2…4cec              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0031, t01=0x005e}
0x4cec…4cfe              Head {h00=0x000e, h01=0x0050, text=» RF DCOEXI«, t00=0x0031, t01=0x0068}
0x4cfe…4d08              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0031, t01=0x007a}
0x4d08…4d30              Head {h00=0x0024, h01=0x0050, text=»DCOMAX EQU * PARAM-1 >MAX INDEX «, t00=0x0031, t01=0x0084}
0x4d30…4d4e              Head {h00=0x001a, h01=0x0050, text=» LDKL A4,-2 SET STATUS«, t00=0x0031, t01=0x00ac}
0x4d4e…4d60              Head {h00=0x000e, h01=0x0050, text=» RF DCOEXI«, t00=0x0031, t01=0x00ca}
0x4d60…4d7e              Head {h00=0x001a, h01=0x0050, text=»DCONOB EQU * NO BUFFER«, t00=0x0031, t01=0x00dc}
0x4d7e…4daa              Head {h00=0x0028, h01=0x0050, text=» LDKL A4,-3 SET STATUS BUFFER ERROR «, t00=0x0031, t01=0x00fa}
0x4daa…4db4              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0031, t01=0x0126}
0x4db4…4dc8              Head {h00=0x0010, h01=0x0050, text=»DCOEXI EQU *«, t00=0x0031, t01=0x0130}
0x4dc8…4df2              Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A15 RELOAD PARAM-2 IF ANY«, t00=0x0031, t01=0x0144}
0x4df2…4e16              Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A15 RELOAD PARAM-1 «, t00=0x0031, t01=0x016e}
0x4e16…4e36 (50, 2, 226) Head {h00=0x001c, h01=0x0050, text=» RF DCEXIT COMMON RETURN«, t00=0x0032, t01=0x0004}
0x4e36…4e44              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0024}
0x4e44…4e4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0032}
0x4e4e…4e58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003c}
0x4e58…4e82              Head {h00=0x0026, h01=0x0050, text=»* COMMON RETURN FROM INTERNAL SUBS«, t00=0x0032, t01=0x0046}
0x4e82…4e8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0070}
0x4e8c…4ea0              Head {h00=0x0010, h01=0x0050, text=»DCEXIT EQU *«, t00=0x0032, t01=0x007a}
0x4ea0…4ec6              Head {h00=0x0022, h01=0x0050, text=» ADKL A15,4 ADJUST STATUCK POS«, t00=0x0032, t01=0x008e}
0x4ec6…4ed8              Head {h00=0x000e, h01=0x0050, text=» ABR* A15 «, t00=0x0032, t01=0x00b4}
0x4ed8…4ee4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00c6}
0x4ee4…4ef0              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0032, t01=0x00d2}
0x4ef0…4ef4              Head {h00=0x4004, h01=0x0000}
0x4ef4…4ef8              00 32 00 de                                                                                                                                                                                                                                       ┆ 2  ┆
0x4ef8…4f00 (51, 1, 8)   20 04 00 00 00 33 00 04                                                                                                                                                                                                                           ┆     3  ┆
0x4f00…4f50 (52, 0, 400) 00 5b 01 70 00 26 00 50 5c 52 42 5c 50 4f 4c 32 31 30 5c 52 45 54 52 41 4e 53 4d 49 54 20 57 49 54 48 4f 55 54 20 28 44 29 20 00 5c 00 08 00 10 00 50 50 4f 4c 32 32 30 5c 45 51 55 5c 2a 00 5c 00 32 00 20 00 50 5c 43 57 4b 5c 41 32 2c 45 4f   ┆ [ p & P RB POL210 RETRANSMIT WITHOUT (D)        PPOL220 EQU *   2   P CWK A2,EO┆
0x4f50…4fa0              54 50 5c 28 43 29 20 52 45 43 45 49 56 45 44 20 3f 20 00 5c 00 46 00 16 00 50 5c 52 46 28 4e 45 29 5c 50 4f 4c 32 35 30 5c 4e 4f 20 00 5c 00 6a 00 0a 00 50 5c 45 4a 45 43 54 00 5c 00 84 00 04 00 50 00 5c 00 92 00 30 00 50 2a 2a 2a 2a 2a 2a   ┆TP (C) RECEIVED ?    F   P RF(NE) POL250 NO    j   P EJECT       P     0 P******┆
0x4fa0…4ff0              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5c 00 9a 00 06 00 50 2a 20 00 5c 00 ce 00 12 00 50 2a 5c 28 43 29 20 52 45 43 45 49 56 45 44 00 5c 00 d8 00 06 00 50 2a 20   ┆*************************************        P*        P* (C) RECEIVED       P* ┆
0x4ff0…5040              00 5c 00 ee 00 30 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5c 00 f8 00 04 00 50 00 5c 01 2c 00 10 00 50 50 4f 4c 32 33 30 5c 45 51 55 5c 2a   ┆     0 P*******************************************        P   ,   PPOL230 EQU *┆
0x5040…5090              00 5c 01 34 00 1c 00 50 5c 43 46 5c 41 35 2c 48 41 4c 54 49 4e 5c 48 41 4c 54 20 49 4e 50 55 54 00 5c 01 48 00 2c 00 50 5c 4c 44 4b 5c 41 31 2c 52 3a 54 52 45 52 5c 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 3d 20 52 3a 54 52 45 52 20   ┆   4   P CF A5,HALTIN HALT INPUT   H , P LDK A1,R:TRER SET RETURN CODE = R:TRER ┆

Reduced view