⟦22194e2f6⟧

PTS(SC)

	IDENT DRPL01 	REL 11.0 81-06-23 870105041100 

			=7,CORR. OF CWT-DISPL. 
			REL 11.0 81-06-11
			=6,LENGTH OF LONG BUFFERS CHANGED
			REL 11.0 81-05-27
			=5,CORR. OF RWSI-CWT:S , 
			OPEN LINE PROC. & COND. ASS. 
			REL 11.0 81-05-22
			=4,CORR. OF CWT-DISPL. 
			REL 11.0 81-05-20
			=3,CORR. OF TIMER NAME 
			REL 11.0 81-04-29
			=2,CORR. OF OPEN LINE PROCEDURE
			REL 11.0 81-04-21
			GENERAL UPDATE FOR RWSI
			REL 11.0 81-01-26
			=1,OPEN LINE PARAM. AREA EXPANDED
			PRR 11.0 80-11-19
* 
* 
* 
* 
************************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   DRPL01  =  DRIVER PROCESSOR FOR LINE CONTROL, 
*               LOCAL & REMOTE CONNECTIONS
* 
* 
* 
************************************************************
* 
* 
*   THIS PROGRAM HANDLES I/O OPERATIONS ON THE
*   PROCESSOR FOR LINE CONTROL (PLC). IT IS 
*   CALLED FROM THE TERMINAL DEVICE DRIVERS.
* 
*   INPUT AND OUTPUT OF CHARACTERS FROM/TO THE
*   TERMINAL DEVICE DRIVERS ARE MADE ON CHARACTER 
*   BASIS. BLOCKING AND DEBLOCKING OF CHARACTERS
*   IN DATA PACKETS ARE HANDLED BY THIS DRIVER. 
* 
	EJECT
* 
*   THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. 
*   SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED
*   INTO ROUTINES. THE ROUTINES ARE LISTED AT 
*   BEGINNING OF EACH SECTION. THE SECTIONS, IN 
*   ORDER OF APPEARANCE IN LIST, ARE: 
* 
*	NAME	   FUNCTION
* 
*	ENTRIES	   DECLARE ENTRY POINTS 
*	EXTERNALS   DECLARE EXTERNAL REFERENCES 
*	CONDITION   SET CONDITIONAL ASSEMBLY PARAMETERS 
*	CONSTANTS   SET CONSTANT VALUES 
*	DATA	   DATA AREAS
* 
*	REQUEST	   DEVICE DRIVER REQUEST ROUTINES 
*	INTERRUPT   INTERRUPT ENTRIES 
*	RECOVERY	   SYSTEM START, POWER FAIL AND RECOVERY 
*	DISPATCH	   LOCAL PLC DISPATCHER
*	ROUTINE	   COMMON SERVICE ROUTINES
*	SUBROUTIN   COMMON SERVICE SUBROUTINES
*	TBUFF	   BUFFER HANDLING SUBROUTINES
* 
	EJECT
* 
*********** 
* ENTRIES * 
*********** 
* 
*    I/O REQUESTS 
* 
	ENTRY	PLCHRI	CHARACTER INPUT 
	ENTRY	PLSTBL	DEFINE START OF OUTPUT BLOCK
	ENTRY	PLCHRO	CHARACTER OUTPUT
	ENTRY	PLENBL	DEFINE END OF OUTPUT BLOCK
	ENTRY	PLDISP	LOCAL DISPATCHER
	ENTRY	PRCHRI	CHR INP REMOTE	 
	ENTRY	PRSTBL	START OUTP BLOCK, REMOTE	 
	ENTRY	PRCHRO	CHR OUTP. REMOTE	 
	ENTRY	PRENBL	END OUTP BLOCK, REMOTE	 
	ENTRY	PRDISP	LOCAL DSIP. REMOTE	 
	ENTRY	PLTEST	TEST COMMANDS 
	ENTRY	CWTPLC	CWT TABLE 
	ENTRY	GETDWT	GET DWT SUBROUTINE
* 
* 
*    INTERRUPTS 
* 
	ENTRY	IHPL01	PLC NUMBER 0
	ENTRY	IHPL02	PLC NUMBER 1
	ENTRY	IHPL03	PLC NUMBER 2
	ENTRY	IHPL04	PLC NUMBER 3
* 
	ENTRY	IHPR01	PLC NUMBER 5,REMOTE 
	ENTRY	IHPR02	           6,REMOTE 
	ENTRY	IHPR03	           7,REMOTE 
	ENTRY	IHPR04	           8,REMOTE 
* 
*    RECOVERY AT TC POWER UP
* 
	ENTRY	PLON	RECOVER ALL DEFINED PLC:S 
* 
	EJECT
* 
************* 
* EXTERNALS * 
************* 
* 
*    TOSS MONITOR 
* 
*      ROUTINES 
	EXTRN	TDISP	TOSS DISPATCHER
	EXTRN	QMJOB	QUEUE MONITOR JOB
	EXTRN	MEXIT	EXIT FROM MONITOR JOB
	EXTRN	GETBLK	GET MONITOR BLOCK 
	EXTRN	FREBLK	RETURN MONITOR BLOCK
	EXTRN	SAVE8	PUSH A1-A8 ON A15 STACK
	EXTRN	SETIME	SET TIMER 
*      DATA WORDS 
	EXTRN	PFPOST	POWER FAIL FLAG 
	EXTRN	INTSAV	LATEST INTERRUPT SAVE AREA
* 
* 
*    DRND01 SERVICE ROUTINES
* 
	EXTRN	NDSAV8	SAVE A3-A5, A7-A8 IN DWT
	EXTRN	NDGET8	GET A3-A5, A7-A8 FROM DWT 
	EXTRN	NDREWS	CALL RECOVERY FOR ALL DEV ON WS 
	EXTRN	NDREDW	CALL RECOVERY FOR DWT 
	EXTRN	NDGEDN	GET HIGEST DWT NUMBER ON WS 
	EXTRN	NDGEDW	GET DWT ADDRESS 
* 
	EJECT
* 
*    DRND01 ROUTINES FOR RETURN TO DEVICE DRIVER
* 
	EXTRN	NDREPO	POP, OK & RETURN
	EXTRN	NDRETO	OK & RETURN 
	EXTRN	NDREP	POP & RETURN 
	EXTRN	NDRET	RETURN 
* 
* 
*    DWT DISPLACEMENTS
* 
	EXTRN	DWTCHP	CHANNEL PARAMETERS
	EXTRN	DWTST	STATUS FLAGS 
	EXTRN	DWTOR	ORDER (RIGHT BYTE) 
	EXTRN	DWTADR	DRIVER ADDRESS BLOCK ADDRESS
	EXTRN	DWTOTQ	QUEUE LINK
	EXTRN	DWTCP2	SECOND CHANNEL PARAMETER WORD 
	EXTRN	DWTLD1	PLC INPUT/OUTPUT BUFFER ADDR
	EXTRN	DWTLD2	PLC FLOW CONTROL COUNTERS 
	EXTRN	DWTTBU	PLC TEST COMMANDS BUFFER ADDR 
	EXTRN	DWTTLN	PLC TEST COMMANDS BUFFER LENGTH 
	EXTRN	DWTTCW	PLC TEST COMMANDS SPECIAL PARAM 
* 
	EJECT
* 
*    WORK STATION TABLES
* 
	EXTRN	INTPL1	PLC 1 
	EXTRN	INTPL2	PLC 2 
	EXTRN	INTPL3	PLC 3 
	EXTRN	INTPL4	PLC 4 
* 
	EXTRN	INTPR1	REMOTE
	EXTRN	INTPR2	REMOTE
	EXTRN	INTPR3	REMOTE
	EXTRN	INTPR4	REMOTE
* 
*    MISCELLANEOUS
* 
	EXTRN	INTADR	INTERRUPT ADDR IN DRIVER ADDR BLOCK 
* 
	EJECT
* 
************************
* CONDITIONAL ASSEMBLY *
************************
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
* 
*	PLCNRL DEFINES NUMBER OF LOCAL PLC:S ACTUALLY CONNECTED (0-4) 
* 
X:A	EQU	1 
PLCNRL	EQU	X:A
* 
*	PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4)
* 
X:B	EQU	0 
PLCNRR	EQU	X:B
* 
* 
	EJECT
* 
************* 
* CONSTANTS * 
************* 
* 
*    SYSTEM PARAMETER DEFINITION
* 
*	LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7)
WINDOW	EQU	2
* 
*	MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32)
MAXWS	EQU	32
* 
*	DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS)
STADLY	EQU	100	10 SECONDS 
* 
*	LENGTH OF USER PART OF SHORT OUTPUT BUFFER IN WORDS (1-128) 
SOBUFU	EQU	3
* 
*	LENGTH OF USER PART OF GENERAL READ BUFFER IN WORDS (1-128) 
GRBUFU	EQU	70 
* 
*        INACTIVITY TIMER (MINUTES) 
TIMACT	EQU	5
* 
*	IF PLCTST IS 1 THE PLC DIAGNOSTIC COMMANDS ARE HANDLED
*	BY THIS DRIVER. 
* 
PLCTST	EQU	0
* 
* 
*	A TEST VERSION OF THE DRIVER IS OBTAINED BY SETTING UTTEST><0 
*	IF UTTEST=1 THE TEST CODE IS INCLUDUD BUT TRAP IS NOT USED
*	IF UTTEST=2 THE TEST CODE IS INCLUDED AND TRAP IS USED
* 
UTTEST	EQU	0
* 
* 
*	LOBUFN IS THE NUMBER OF LONG OUTPUT BUFFERS USED
*	FOR EACH PLC (1-6)
* 
LOBUFN	EQU	3
* 
* 
*	LOBUFU IS THE LENGTH OF THE USER PART OF A LONG 
*	OUTPUT BUFFER IN WORDS (1-128)
* 
LOBUFU	EQU	72	U	=6
* 
	EJECT
* 
*    HARDWARE INTERRUPT LEVELS
*	THESE LEVELS MUST CORRESPOND TO INTERRUPT 
*	VECTOR IN SYSTAB
* 
INTLV0	EQU	26	PLC NUMBER 1
INTLV1	EQU	27	PLC NUMBER 2
INTLV2	EQU	24	PLC NUMBER 3
INTLV3	EQU	25	PLC NUMBER 4
INTRV0	EQU	18	PLC NUMBER 5, REMOTE
INTRV1	EQU	19	           6, REMOTE
INTRV2	EQU	20	           7, REMOTE
INTRV3	EQU	21	           8, REMOTE
* 
*    CHANNEL UNIT DEVICE ADDRESSES
* 
PLCDA0	EQU	/06	PLC 1
PLCDA1	EQU	/07	PLC 2
PLCDA2	EQU	/26	PLC 3
PLCDA3	EQU	/27	PLC 4
PLCDA4	EQU	/3A	PLC 5
PLCDA5	EQU	/3B	PLC 6
PLCDA6	EQU	/2A	PLC 7
PLCDA7	EQU	/2B	PLC 8
* 
	EJECT
* 
*    BUFFER AREA PARAMETER DEFINITION 
* 
HEADLW	EQU	4	BUFFER HEADER LENGTH (WORDS) 
FLOWLW	EQU	2	FLOW CONTROL FIELD LENGTH (WORDS)
SYSTLW	EQU	HEADLW+FLOWLW	SYSTEM PART OF BUFFER
* 
*      LONG OUTPUT BUFFERS
LOBUF1	EQU	SYSTLW+LOBUFU	LENGTH OF ONE BUFFER (WORDS) 
LOBUF2	EQU	LOBUF1+LOBUF1	2 BUFFERS
LOBUF3	EQU	LOBUF2+LOBUF1
LOBUF4	EQU	LOBUF3+LOBUF1
LOBUF5	EQU	LOBUF4+LOBUF1
LOBUF6	EQU	LOBUF5+LOBUF1
	IFT	LOBUFN=1 
LOBUFS	EQU	LOBUF1	LENGTH OF BUFFER AREA (WORDS) 
	XIF
	IFT	LOBUFN=2 
LOBUFS	EQU	LOBUF2	LENGTH OF BUFFER AREA (WORDS) 
	XIF
	IFT	LOBUFN=3 
LOBUFS	EQU	LOBUF3	LENGTH OF BUFFER AREA (WORDS) 
	XIF
	IFT	LOBUFN=4 
LOBUFS	EQU	LOBUF4	LENGTH OF BUFFER AREA (WORDS) 
	XIF
	IFT	LOBUFN=5 
LOBUFS	EQU	LOBUF5	LENGTH OF BUFFER AREA (WORDS) 
	XIF
	IFT	LOBUFN=6 
LOBUFS	EQU	LOBUF6	LENGTH OF BUFFER AREA (WORDS) 
	XIF
* 
	EJECT
* 
*      SHORT OUTPUT BUFFERS 
SOBUF1	EQU	SYSTLW+SOBUFU	LENGTH OF ONE BUFFER (WORDS) 
SOBUF2	EQU	SOBUF1+SOBUF1	2 BUFFERS
SOBUF4	EQU	SOBUF2+SOBUF2
SOBUF8	EQU	SOBUF4+SOBUF4
SOBUFS	EQU	SOBUF8	LENGTH OF BUFFER AREA (WORDS) 
* 
*      GENERAL READ BUFFERS 
GRBUF1	EQU	SYSTLW+GRBUFU	LENGTH OF ONE BUFFER (WORDS) 
GRBUF2	EQU	GRBUF1+GRBUF1
GRBUFS	EQU	GRBUF2	LENGTH OF BUFFER AREA (WORDS) 
* 
*      LENGTHS OF USER PART OF BUFFERS (BYTES)
SOBUFL	EQU	SOBUFU+SOBUFU	SHORT OUTPUT BUFFERS 
LOBUFL	EQU	LOBUFU+LOBUFU	LONG OUTPUT BUFFERS
GRBUFL	EQU	GRBUFU+GRBUFU	GENERAL READ BUFFERS 
* 
	EJECT
* 
*    CONTROLLER COMMAND RECORD (CCR) LAYOUT 
* 
CCRDLS	EQU	0	DATA LINK STATION INDEX
CCRCMD	EQU	1	COMMAND CODE 
CCRSU1	EQU	2	SUBCOMMAND BYTE 1
CCRSU2	EQU	3	SUBCOMMAND BYTE 2
CCRSUB	EQU	2	SUBCOMMAND WORD
CCRSTA	EQU	4	STATUS WORD
CCRIDB	EQU	7	IDENTITY, BYTE FIELD 
CCRIDW	EQU	8	IDENTITY, WORD FIELD 
CCRLEN	EQU	10	BUFFER LENGTH (BYTES) 
CCRC1B	EQU	12	DATA CHAINING CTRL & MSB BUFFER ADDR
CCRBUF	EQU	14	BUFFER ADDRESS
* 
* 
*    BUFFER LAYOUT
* 
*      HEADER LENGTH
BUFHLN	EQU	HEADLW+HEADLW	LENGTH (BYTES) 
*      HEADER LAYOUT
BUFLNK	EQU	-8	FREE LIST LINK
BUFDWT	EQU	-6	DWT ADDRESS 
BUFLEN	EQU	-4	LENGTH OF TEXT IN BUFFER
BUFBIX	EQU	-2	BYTE INDEX
*      X25 CONTROL FIELD LAYOUT 
X25LGN	EQU	0	LOGICAL CHANNEL GROUP NUMBER 
X25LCN	EQU	1	LOGICAL CHANNEL NUMBER 
X25FLW	EQU	2	FLOW CONTROL INFORMATION 
X25DAT	EQU	3	START OF USER DATA 
* 
	EJECT
* 
*    PLC COMMAND CODES
* 
CMDTC	EQU	/80	TEST CHANNEL UNIT 
CMDOP	EQU	/86	OPEN LINE 
CMDOD	EQU	/85	OPEN DLS
CMDPS	EQU	/84	GET LINE STATISTICS 
CMDDS	EQU	/83	GET DLS STATISTICS
CMDRM	EQU	/87	READ LOCAL MEMORY 
CMDSW	EQU	/40	STANDARD WRITE
CMDFW	EQU	/41	FAST WRITE
CMDGR	EQU	/20	GENERAL READ
* 
* 
*    APPLICATION TEST COMMAND CODES 
* 
ORDPS	EQU	1	GET LINE STATISTICS 
ORDDS	EQU	2	GER DLS STATISTICS
ORDRM	EQU	3	READ LOCAL MEMORY 
* 
* 
*    MESSAGE TYPES
* 
TYERR	EQU	0	ILLEGAL TYPE OR ERROR 
TYNFLO	EQU	2	DATA PACKET WITH NO FLOW CONTROL 
TYSTAT	EQU	4	DEVICE STATUS MESSAGE
TYDATA	EQU	6	NORMAL DATA PACKET 
TYRR	EQU	8	RECIEVE READY PACKET 
TYRES	EQU	10	RESET PACKET 
TYRESC	EQU	12	RESET CONFIRMATION PACKET 
* 
	EJECT
* 
*    DWT STATUS FLAGS (DWTST) 
* 
DWFBSY	EQU	/8000	DEVICE NOT BUSY
DWFECH	EQU	/2000	ECHO MODE
DWFINP	EQU	/0020	INPUT REQUESTED
DWFRES	EQU	/0008	RESET SEQUENCE ACTIVE
DWFAK3	EQU	/0004	WAITING FOR LEVEL 3 ACK
DWFPLC	EQU	DWFRES+DWFAK3	PLC FLAGS
DWFTY1	EQU	/0002	USE ONLY TYPE 1 DATA PACKETS 
DWFSAC	EQU	/0001	WAIT FOR LEVEL 3 ACK 
* 
* 
*    PLC STATUS FLAGS (CCRSTA)
* 
STANOC	EQU	/0001	NO CONNECTION
STALIR	EQU	/0004	LINK RESET 
STADNO	EQU	/1000	DCE NOT OPERABLE 
STAE1	EQU	STANOC+STALIR	DUMMY 
STAERR	EQU	STAE1+STADNO	ERROR IN COMMUNICATION
* 
STAREQ	EQU	/8000	REQUEST ERROR
STANOB	EQU	/0800	NO BUFFERS FOR CCR 
STAPOL	EQU	/0100	POLLING STOPPED
STACOM	EQU	/0080	COMMUNICATION REESTABLISHED
STASEQ	EQU	/0010	SEQUENCE ERROR 
STAILL	EQU	/0008	ILLEGAL LENGTH 
STALER	EQU	/0002	LINK ERROR 
* 
	EJECT
* 
*    WORK STATION STATUS FLAGS
* 
WSFERR	EQU	/01	COMMUNICATION ERROR
* 
* 
*    MASKS FOR CHANNEL PARAMETERS 
* 
MASKPL	EQU	/0F	PLC NUMBER (0-3 USED)
MASKWS	EQU	/3F	WORK STATION NUMBER (1-32 USED)
MASKLC	EQU	/3F	LOGICAL CHANNEL (0-7 USED) 
* 
* 
*    RETURN CODES 
* 
*      AT REQUEST RETURN
NOTOPR	EQU	/0001	NOT OPERABLE 
LINERR	EQU	/0004	LINK ERROR 
PLSERR	EQU	/0001	SOFTWARE ERROR 
*      AT RECOVERY ENTRY
RETCP	EQU	/0001	TC POWER UP 
RESECP	EQU	/0002	SECONDARY POWER UP 
RELINE	EQU	/0004	LINK ERROR 
* 
* 
*    MISCELLANEOUS
* 
PLCERR	EQU	/F1	SOP ERROR CODE AT TRAP 
CIDINT	EQU	8	OFFSET TO INTERRUPT DESCRIPTOR 
MAXFR	EQU	4	MAX OUTSTANDING FRAMES ON LEVEL 2 
* 
	EJECT
* 
**************
* DATA AREAS *
**************
* 
*    CWT ADDRESS TABLE
* 
CWTPLC	EQU	*
TABCWT	EQU	*
	IFF	PLCNRL=0 
	DATA	PL0CWT	CWT FOR PLC NR 1 
	IFF	PLCNRL=1 
	DATA	PL1CWT	CWT FOR PLC NR 2 
	IFF	PLCNRL=2 
	DATA	PL2CWT	CWT FOR PLC NR 3 
	IFF	PLCNRL=3 
	DATA	PL3CWT	CWT FOR PLC NR 4 
	XIF
* 
	IFF	PLCNRL=4 
	DATA	0	PLC NR 4 NOT CONNECTED
	IFF	PLCNRL=3 
	DATA	0	PLC NR 3 NOT CONNECTED
	IFF	PLCNRL=2 
	DATA	0	PLC NR 2 NOT CONNECTED
	IFF	PLCNRL=1		=5 
	DATA	0	PLC NR 1 NOT CONNECTED	=5 
	XIF
* 
	IFF	PLCNRR=0 
	DATA	PR1CWT	CWT FOR PLC NR. 5, REM.
	IFF	PLCNRR=1 
	DATA	PR2CWT	CWT FOR PLC NR. 6, REM.
	IFF	PLCNRR=2 
	DATA	PR3CWT	CWT FOR PLC NR. 7, REM.
	IFF	PLCNRR=3 
	DATA	PR4CWT	CWT FOR PLC NR. 8, REM.
	XIF
* 
	IFF	PLCNRR=4 
	DATA	0	PLC NR 8 NOT CONNECTED
	IFF	PLCNRR=3 
	DATA	0	PLC NR 7 NOT CONNECTED
	IFF	PLCNRR=2 
	DATA	0	PLC NR 6 NOT CONNECTED
	IFF	PLCNRR=1 
	DATA	0	PLC NR 5 NOT CONNECTED
	XIF
* 
	EJECT
* 
* 
OPARR1	EQU	*
	IFF	PLCNRR=0	U	=5
	DATA	OPNR10	LINE 0 
	DATA	OPNR11	LINE 1 
	DATA	OPNR12	LINE 2 
	DATA	OPNR13	LINE 3 
	XIF
OPARR2	EQU	*
	IFF	PLCNRR=0	U	=5
	IFF	PLCNRR=1	U	=5
	DATA	OPNR20	LINE 0 
	DATA	OPNR21	LINE 1 
	DATA	OPNR22	LINE 2 
	DATA	OPNR23	LINE 3 
	XIF
OPARR3	EQU	*
	IFF	PLCNRR=0	U	=5
	IFF	PLCNRR=1	U	=5
	IFF	PLCNRR=2	U	=5
	DATA	OPNR30	LINE 0 
	DATA	OPNR31	LINE 1 
	DATA	OPNR32	LINE 2 
	DATA	OPNR33	LINE 3 
	XIF
OPARR4	EQU	*
	IFF	PLCNRR=0	U	=5
	IFF	PLCNRR=1	U	=5
	IFF	PLCNRR=2	U	=5
	IFF	PLCNRR=3	U	=5
	DATA	OPNR40	LINE 0 
	DATA	OPNR41	LINE 1 
	DATA	OPNR42	LINE 2 
	DATA	OPNR43	LINE 3 
	XIF
* 
OPARL1	EQU	*	U	=5 
	DATA	OPNL10	LOCAL PLC 1	=5 
OPARL2	EQU	*	U	=5 
	DATA	OPNL20	LOCAL PLC 2	=5 
OPARL3	EQU	*	U	=5 
	DATA	OPNL30	LOCAL PLC 3	=5 
OPARL4	EQU	*	U	=5 
	DATA	OPNL40	LOCAL PLC 4	=5 
	EJECT
* 
*	OPEN LINE PARAMETER AREAS, LOCAL
* 
*   STANDARD AREAS :
*	PRIMARY STATION 
*	FULL DUPLEX 
*	96000 BITS/SEC
*	NO NRZI ENCODING
*	5 RETRANSMISSIONS 
*	5 MIN. TIME OUT 
* 
* 
OPNL40	EQU	*	LOCAL PLC 4, LINE 0
	IFF	PLCNRL=0 
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	IFF	PLCNRL=3 
	DATA	/0101,/A000,/0D05,TIMACT,0,0
	XIF
OPNL30	EQU	*	LOCAL PLC 3, LINE 0
	IFF	PLCNRL=0 
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	DATA	/0101,/A000,/0D05,TIMACT,0,0	U	=3 
	XIF
OPNL20	EQU	*	LOCAL PLC 2, LINE 0
	IFF	PLCNRL=0 
	IFF	PLCNRL=1 
	DATA	/0101,/A000,/0D05,TIMACT,0,0
	XIF
OPNL10	EQU	*	LOCAL PLC 1, LINE 0
	IFF	PLCNRL=0 
	DATA	/0101,/A000,/0D05,TIMACT,0,0
	XIF
* 
*	END OF LOCAL LINE PARAMETER AREAS 
* 
	EJECT
* 
*	OPEN LINE PARAMETER AREAS, REMOTE 
* 
*   STANDARD AREAS :
*	PRIMARY STATION 
*	FULL DUPLEX 
*	2400 BITS/SEC 
*	NO NRZI ENCODING
*	POLLING 13HZ
*	5 RETRANSMISSIONS 
*	5 MIN. TIME OUT 
* 
* 
*	REMOTE PLC 4
OPNR40	EQU	*	LINE 0 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFF	PLCNRR=3 
	DATA	/0103,/0400,/0D05,TIMACT,/0108,0
	XIF
OPNR41	EQU	*	LINE 1 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFF	PLCNRR=3 
	DATA	/0103,/0400,/0D05,TIMACT,/0908,0
	XIF
OPNR42	EQU	*	LINE 3 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFF	PLCNRR=3 
	DATA	/0103,/0400,/0D05,TIMACT,/0B08,0
	XIF
OPNR43	EQU	*	LINE 3 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFF	PLCNRR=3 
	DATA	/0103,/0400,/0D05,TIMACT,/1308,0
	XIF
*	REMOTE PLC 3
OPNR30	EQU	*	LINE 0 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	DATA	/0103,/0400,/0D05,TIMACT,/0108,0
	XIF
OPNR31	EQU	*	LINE 1 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	DATA	/0103,/0400,/0D05,TIMACT,/0908,0
	XIF
OPNR32	EQU	*	LINE 2 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	DATA	/0103,/0400,/0D05,TIMACT,/0B08,0
	XIF
OPNR33	EQU	*	LINE 3 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	DATA	/0103,/0400,/0D05,TIMACT,/1308,0
	XIF
* 
*	REMOTE PLC 2
OPNR20	EQU	*	LINE 0 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	DATA	/0103,/0400,/0D05,TIMACT,/0108,0
	XIF
OPNR21	EQU	*	LINE 1 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	DATA	/0103,/0400,/0D05,TIMACT,/0908,0
	XIF
OPNR22	EQU	*	LINE 2 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	DATA	/0103,/0400,/0D05,TIMACT,/0B08,0
	XIF
OPNR23	EQU	*	LINE 3 
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	DATA	/0103,/0400,/0D05,TIMACT,/1308,0
	XIF
* 
*	REMOTE PLC 1
OPNR10	EQU	*	LINE 0 
	IFF	PLCNRR=0 
	DATA	/0103,/0400,/0D05,TIMACT,/0108,0
	XIF
OPNR11	EQU	*	LINE 1 
	IFF	PLCNRR=0 
	DATA	/0103,/0400,/0D05,TIMACT,/0908,0
	XIF
OPNR12	EQU	*	LINE 2 
	IFF	PLCNRR=0 
	DATA	/0103,/0400,/0D05,TIMACT,/0B08,0
	XIF
OPNR13	EQU	*	LINE 3 
	IFF	PLCNRR=0 
	DATA	/0103,/0400,/0D05,TIMACT,/1308,0
	XIF
*	END OF REMOTE LINE PARAMETER AREAS
* 
* 
PLCPFP	DATA	0	PLC LOCAL POWER FAIL FLAG 
* 
	IFF	UTTEST=0	TEST VERSION OF DRIVER
* 
	EJECT
* 
UTTST	DATA	UTTEST	1 = TRAP NOT USED 
* 
* 
*    QUEUE STATISTICS COUNTERS
*	EACH COUNTER HAS ONE WORD / PLC 
* 
STATAR	EQU	*
WIQSTA	RES	8	WINDOW QUEUE 
SBQSTA	RES	8	SHORT BUFFERS QUEUE
LBQSTA	RES	8	LONG BUFFERS QUEUE 
CCQSTA	RES	8	CCA QUEUE
STATLN	EQU	*-STATAR	TABLE LENGTH
* 
	XIF
	EJECT
* 
* 
*   CWT DISPLACEMENTS 
* 
CWTOPR	EQU	/00	CU OPERABLE
CWTCCB	EQU	/02	CCA BUSY	
CWTGR	EQU	/04	GENERAL READ ALLOWED	 
CWTPNR	EQU	/06	CU NUMBER (0-7)
CWTABW	EQU	/08	WS TO ABORT
CWTPLS	EQU	/0A	LATEST PLC RCA STATUS
CWTLNO	EQU	/0C	LINE NO INDICATOR
CWTPAR	EQU	/0E	INDEX TO PARAMETER AREA	 
CWTOPP	EQU	/10	OPEN LINE PARAMETER AREA ADDRESS	=2
CWTINT	EQU	/12	WS TABLE ADDRESS	
CWTBUF	EQU	/14	INP. BUFFER ADDRESS	 
CWTSBQ	EQU	/16	QUEUE FOR SHORT OUTP. BUFFERS	 
CWTLBQ	EQU	/18	QUEUE FOR LONG OUTP. BUFFERS	
CWTCCQ	EQU	/1A	QUEUE FOR CCA FREE	
CWTMBQ	EQU	/1C	QUEUE OF ALLOCATED MON. BLOCKS	
CWTTPR	EQU	/1E	TIMER POINTER	 
CWTCIO	EQU	/20	CIO START INSTR.	
CWTST3	EQU	/22	SST INSTR.	
CWTCSD	EQU	/24	CTRL UNIT START DESCRIPTOR	
CWTCID	EQU	/2A	CTRL UNIT INTERF. DESCR.	
CWTCCA	EQU	/34	COMMAND CTRL AREA	 
CWTRCA	EQU	/44	RESPONSE CTRL AREA	
CWTPBS	EQU	/54	POOLBL. SHORT OUTP. BUFFERS	 
CWTPBL	EQU	/5E	POOLBL. LONG OUTP. BUFFERS	=2
CWTPBG	EQU	/68	POOLBL. GENERAL READ BUFFERS	
CWTWSS	EQU	/72	WS STATUS	 
CWTSOB	EQU	MAXWS+MAXWS+/74	SH. OUTP. BUFFERS	=4 
CWTLB1	EQU	CWTSOB+SOBUFS	U	=7 
CWTLOB	EQU	CWTLB1+SOBUFS	LONG OUTP. BUFFERS	=7
CWTGR1	EQU	CWTLOB+LOBUFS	U	=7 
CWTGRB	EQU	CWTGR1+LOBUFS	GEN. READ BUFFERS	=7 
	EJECT
* 
	IFF	PLCNRL=0		 
*    CWT FOR PLC NUMBER 1 
* 
PL0CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	0	PLC NUMBER (0-3)
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR 
	DATA	0	INDEX PARAMETER AREA
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARL1	OPEN LINE PARAMETER AREA ADDR
	DATA	INTPL1	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA0	START I/O OPERATION
	SST	A3,PLCDA0	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL0CWT+CWTCID	CID ADDRESS 
	DATA	INTLV0	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL0CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL0CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS 
	DATA	'SO',0	ID & FLAGS 
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
* 
* 
	XIF
	IFF	PLCNRL=1 
* 
	EJECT
* 
*    CWT FOR PLC NUMBER 2 
* 
PL1CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	1	PLC NUMBER (0-3)
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR 
	DATA	0	INDEX TO PARAMETER AREA 
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARL2	OPEN LINE PARAMETER AREA ADDR
	DATA	INTPL2	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA1	START I/O OPERATION
	SST	A3,PLCDA1	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL1CWT+CWTCID	CID ADDRESS 
	DATA	INTLV1	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL1CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL1CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS (5 WORDS / BLOCK) 
	DATA	'SO',0	ID = "SHORT OUTPUT" & FLAGS
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0	ID = "LONG OUTPUT" 
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0	ID = "GENERAL READ"
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
* 
* 
	IFF	PLCNRL=2 
* 
	EJECT
* 
*    CWT FOR PLC NUMBER 3 
* 
PL2CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	2	PLC NUMBER (0-3)
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR 
	DATA	0	INDEX TO PARAMETER AREA 
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARL3	OPEN LINE PARAMETER AREA ADDR
	DATA	INTPL3	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA2	START I/O OPERATION
	SST	A3,PLCDA2	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL2CWT+CWTCID	CID ADDRESS 
	DATA	INTLV2	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL2CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL2CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS (5 WORDS / BLOCK) 
	DATA	'SO',0	ID = "SHORT OUTPUT" & FLAGS
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0	ID = "LONG OUTPUT" 
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0	ID = "GENERAL READ"
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
* 
* 
	IFF	PLCNRL=3 
* 
	EJECT
* 
*    CWT FOR PLC NUMBER 4 
* 
PL3CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	3	PLC NUMBER (0-3)
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR 
	DATA	0	INDEX TO PARAMETER AREA 
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARL4	OPEN LINE PARAMETER AREA ADDR
	DATA	INTPL4	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA3	START I/O OPERATION
	SST	A3,PLCDA3	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL3CWT+CWTCID	CID ADDRESS 
	DATA	INTLV3	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL3CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PL3CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS (5 WORDS / BLOCK) 
	DATA	'SO',0	ID = "SHORT OUTPUT" & FLAGS
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0	ID = "LONG OUTPUT" 
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0	ID = "GENERAL READ"
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
	XIF
* 
	EJECT
	IFF	PLCNRR=0 
* 
*    CWT FOR PLC NUMBER 5 REMOTE
* 
PR1CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	4	PLC NUMBER (4-7)	=5 
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR 
	DATA	0	INDEX TO PARAMETER AREAS
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARR1	OPEN LINE PARAMETER AREA ADDRESSES 
	DATA	INTPR1	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA4	START I/O OPERATION
	SST	A3,PLCDA4	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR1CWT+CWTCID	CID ADDRESS 
	DATA	INTRV0	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR1CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR1CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS (5 WORDS / BLOCK) 
	DATA	'SO',0	ID = "SHORT OUTPUT" & FLAGS
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0	ID = "LONG OUTPUT" 
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0	ID = "GENERAL READ"
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
* 
* 
	EJECT
	IFF	PLCNRR=1 
* 
*    CWT FOR PLC NUMBER 6 REMOTE
* 
PR2CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	5	PLC NUMBER (4-7)	=5 
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR	=5
	DATA	0	INDEX TO PARAMETER AREAS	=5 
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARR2	OPEN LINE PARAMETER AREA ADDRESSES 
	DATA	INTPR2	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA5	START I/O OPERATION
	SST	A3,PLCDA5	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR2CWT+CWTCID	CID ADDRESS 
	DATA	INTRV1	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR2CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR2CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS (5 WORDS / BLOCK) 
	DATA	'SO',0	ID = "SHORT OUTPUT" & FLAGS
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0	ID = "LONG OUTPUT" 
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0	ID = "GENERAL READ"
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
* 
* 
	EJECT
	IFF	PLCNRR=2 
* 
*    CWT FOR PLC NUMBER 7 REMOTE
* 
PR3CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	6	PLC NUMBER (4-7)	=5 
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR 
	DATA	0	INDEX TO PARAMETER AREAS
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARR3	OPEN LINE PARAMETER AREA ADDRESSES 
	DATA	INTPR3	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA6	START I/O OPERATION
	SST	A3,PLCDA6	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR3CWT+CWTCID	CID ADDRESS 
	DATA	INTRV2	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR3CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR3CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS (5 WORDS / BLOCK) 
	DATA	'SO',0	ID = "SHORT OUTPUT" & FLAGS
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0	ID = "LONG OUTPUT" 
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0	ID = "GENERAL READ"
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
* 
* 
	EJECT
	IFF	PLCNRR=3 
* 
*    CWT FOR PLC NUMBER 8 REMOTE
* 
PR4CWT	EQU	*
* 
*      FLAGS
	RES	1	PLC OPERABLE FLAG
	DATA	0	CCA BUSY FLAG (0=FREE)
	DATA	1	GENERAL READ ALLOWED (0=ALLOWED)
* 
*      DATA WORDS 
	DATA	7	PLC NUMBER (4-7)	=5 
	DATA	0	WORK STATION TO ABORT (0=NO ABORT)
	DATA	0	LATEST PLC RCA STATUS 
	DATA	0	LINE NO INDICATOR 
	DATA	0	INDEX TO PARAMETER AREAS
* 
*      POINTERS AND QUEUE HEADS 
	DATA	OPARR4	OPEN LINE PARAMETER AREA ADDRESSES 
	DATA	INTPR4	WORK STATION TABLE ADDRESS 
	DATA	0	INPUT BUFFER ADDRESS
	DATA	0	QUEUE FOR SHORT OUTPUT BUFFER 
	DATA	0	QUEUE FOR LONG OUTPUT BUFFER
	DATA	0	QUEUE FOR CCA FREE
	DATA	0	QUEUE OF ALLOCATED MONITOR BLOCKS 
	DATA	0	TIMER POINTER FOR RESTART DELAY 
* 
*      INSTRUCTIONS 
	CIO	A3,1,PLCDA7	START I/O OPERATION
	SST	A3,PLCDA7	RELEASE RCA AND RESET INTERRUPT
* 
*      PLC CONTROL AREAS
*	CONTROL UNIT START DESCRIPTOR (3 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR4CWT+CWTCID	CID ADDRESS 
	DATA	INTRV3	INTERRUPT LEVEL
*	CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR4CWT+CWTCCA	CCA ADDRESS 
	DATA	0	DUMMY & MSB ADDRESS 
	DATA	PR4CWT+CWTRCA	RCA ADDRESS 
	DATA	0	INTERRUPT SPECIFICATION 
	RES	8	COMMAND CONTROL AREA 
	RES	8	RESPONSE CONTROL AREA
* 
*      POOLBLOCKS (5 WORDS / BLOCK) 
	DATA	'SO',0	ID = "SHORT OUTPUT" & FLAGS
	DATA	0,SOBUF1+SOBUF1	QUEUE HEAD & BUFFER LENGTH
	DATA	SOBUFS+SOBUFS	AREA LENGTH 
	DATA	'LO',0	ID = "LONG OUTPUT" 
	DATA	0,LOBUF1+LOBUF1 
	DATA	LOBUFS+LOBUFS 
	DATA	'GR',0	ID = "GENERAL READ"
	DATA	0,GRBUF1+GRBUF1 
	DATA	GRBUFS+GRBUFS 
* 
*      WORK STATION STATUS WORDS. 1 WORD / WS 
	RES	MAXWS+1	L BYTE = STATUS. R BYTE = FLAGS. 
* 
*      BUFFER AREAS 
	RES	SOBUFS	SHORT OUTPUT BUFFERS
	RES	LOBUFS	LONG OUTPUT BUFFERS 
	RES	GRBUFS	GENERAL READ BUFFERS
* 
* 
	XIF
	EJECT
* 
*    I/O COMPLETION DISPATCH TABLE
* 
*	THE MOST FREQUENTLY USED ROUTINES ARE PLACED
*	AT THE END OF THE TABLE, AS IT IS SCANNED 
*	FROM THE END. 
* 
CMDTAB	EQU	*
	DATA	CMDTC	COMMAND CODE "TEST CHANNEL UNIT"
	DATA	COMPTC	START OF "TEST CU" COMPLETION ROUTINE
	DATA	0	ALLOWED STATUS FOR "TEST CU" COMMAND
CMDTB1	EQU	*-CMDTAB	LENGTH OF ONE ENTRY 
	DATA	CMDOP	OPEN LINE 
	DATA	COMPOP
	DATA	0 
	DATA	CMDOD	OPEN DLS
	DATA	COMPOD
	DATA	STADNO+STANOC 
	IFT	PLCTST=1 
	DATA	CMDPS	GET LINE STATISTICS 
	DATA	COMPPS
STAE2	EQU	STAREQ+STAILL	DUMMY 
STAE3	EQU	STASEQ+STANOB	DUMMY 
	DATA	STAE2+STAE3 
	DATA	CMDDS	GET DLS STATISTICS
	DATA	COMPDS
	DATA	STAE2+STAE3 
	DATA	CMDRM	READ LOCAL MEMORY 
	DATA	COMPRM
	DATA	STAE2 
* 
	EJECT
* 
	XIF
	DATA	CMDSW	STANDARD WRITE
	DATA	COMPSW
	DATA	STAERR
	DATA	CMDFW	FAST WRITE
	DATA	COMPFW
	DATA	STAERR
	DATA	CMDGR	GENERAL READ
	DATA	COMPGR
	DATA	0 
CMDTBL	EQU	*-CMDTAB	TABLE LENGTH
* 
	EJECT
* 
*    READ COMPLETION DISPATCH TABLE 
* 
*	THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" 
*	CONSTANTS DEFINED ABOVE.
REAROU	EQU	*
	DATA	GRERR1	ERROR ROUTINE
	DATA	GRERR1	DATA PACKET NO FLOW C. (NOT IMPLEM.) 
	DATA	GRSTAT	DEVICE STATUS DATA PACKET
	DATA	GRDATA	NORMAL DATA PACKET 
	DATA	GRRR	RECIEVE READY PACKET 
	DATA	GRRES	RESET PACKET
	DATA	GRERR1	RESET CONFIRM. PACKET (NOT IMPLEM.)
* 
* 
*    WRITE COMPLETION DISPATCH TABLE
* 
*	THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" 
*	CONSTANTS DEFINED ABOVE.
WRIROU	EQU	*
	DATA	WRERR	ERROR ROUTINE 
	DATA	WRNFLO	DATA PACKET WITHOUT FLOW CONTROL 
	DATA	WRERR	DEVICE STATUS DATA (NOT RELEVANT) 
	DATA	WRDATA	NORMAL DATA PACKET 
	DATA	WRRR	RECIEVE READY PACKET 
	DATA	WRERR	RESET PACKET (NOT IMPLEMENTED)
	DATA	WRRESC	RESET CONFIRMATION PACKET
* 
	EJECT
* 
********************
* REQUEST ROUTINES *
********************
* 
*   THIS SECTION CONTAINS REQUEST HANDLING ROUTINES.
*   THE REQUEST ROUTINES ARE CALLED FROM TERMINAL 
*   DEVICE DRIVERS. THIS IS NORMALLY DONE THROUGH 
*   THE TERMINAL NETWORK DISTRIBUTOR DRIVER (DRND01). 
*   THE DISTRIBUTOR DRIVER WILL SWITCH CALL TO
*   CONNECTED LINE DRIVER. RETURN IS MADE DIRECTLY
*   FROM THIS DRIVER TO TERMINAL DEVICE DRIVER. 
*   A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME
*   I/O ACTION AND DISPATCHING. THIS MEANS, THAT AT 
*   TIME OF CALL THE DEVICE DRIVER MAY NOT HAVE ANY 
*   DATA ON THE A15 STACK.
* 
*   ROUTINES IN ORDER OF APPEARANCE IN CODE:
* 
*	NAME	FUNCTION 
* 
*	PLCHRI	INPUT OF ONE CHARACTER 
*	PLSTBL	DEFINE START OF OUTPUT BLOCK 
*	PLCHRO	OUTPUT OF ONE CHARACTER
*	PLENBL	DEFINE END OF OUTPUT BLOCK 
*	PLTEST	PERFORM PLC TEST FUNCTION
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLCHRI
* 
* FUNCTION: 
*	THIS ROUTINE FETCHES ONE CHARACTER FROM THE 
*	INPUT BUFFER. IF NO BUFFER HAS ARRIVED, "INPUT
*	REQUESTED" FLAG IN DWT IS SET, AND CALLING
*	PROCESS IS SUSPENDED UNTIL A BUFFER ARRIVES.
* 
* CALL: 
*	ABI	INPTAB,A1 
*	CF	A5,PLCHRI
* 
* INPUT:
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	AT RETURN TO DEVICE DRIVER
*	A1  =	BITS 0-14  CHANGED
*		BIT 15  1 IF MORE CHAR IN BUFFER 
*	A2  =	BITS 0-7  ZERO
*		BITS 8-15  CHARACTER 
*	INTERR.	ENABLED 
* 
************************************************************
* 
PLCHRI	EQU	*
PRCHRI	EQU	*
	STR	A4,A15	PUSH A4 
	LD	A4,DWTLD1,A6	INPUT TEXT WAITING?
	RF(Z)	CI100	NO, WAIT FOR TEXT
* 
	EJECT
* 
	CF	A15,PLGECH	GET CHARACTER FROM BUFFER
	LDR	A1,A1	CHECK RETURN STATUS
	RF(N)	CI100	BUFFER EMPTY, WAIT FOR NEXT
	LDR*	A4,A15	POP A4 
	RF	CI110	RETURN TO DEVICE DRIVER 
* 
* 
CI100	EQU	* 
	LDR*	A4,A15	POP A4 
	LDK	A2,DWFINP	FLAG "INPUT REQUESTED" 
	ORS	A2,DWTST,A6	SET INPUT REQUESTED IN DWT 
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 IN DWT 
	ABL	PLDISP	LOCAL DISPATCHER
* 
* 
*    ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED 
*      REGISTERS ON ENTRY:
*	A1  =	NR OF CHARACTERS LEFT IN BUFFER 
*	A2  =	BITS 0-7  ZERO
*		BITS 8-15  CHARACTER 
*	A4  =	BUFFER ADDRESS
*	A6  =	DWT ADDRESS 
* 
INPRST	EQU	*
	LDKL	A3,/FFFF-DWFINP	MASK FOR INPUT REQUESTED
	ANS	A3,DWTST,A6	RESET FLAG 
	ST	A4,DWTLD1,A6	LINK BUFFER TO DWT 
* 
	CF	A15,NDGET8	GET A3-A5, A7-A8 FROM DWT
* 
	EJECT
* 
CI110	EQU	* 
*    RETURN TO DEVICE DRIVER
	LDR	A1,A1	ANY CHAR LEFT IN BUFFER? 
	RF(Z)	CI120	NO, CONTINUE 
	LDK	A1,1	INDICATE MORE CHARACTERS
	RF	CI130 
* 
CI120	EQU	* 
	CM	DWTLD1,A6	UNLINK BUFFER 
CI130	EQU	* 
	ENB
	RTN	A5 
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLSTBL
* 
* FUNCTION: 
*	THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK.
*	IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT 
*	TO THE DWT. 
* 
* CALL: 
*	ABI	STBTAB,A1 
*	CF	A5,PLSTBL
* 
* INPUT:
*	A2  =	MAXIMAL LENGTH OF TEXT IN BLOCK (BYTES) 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	AT RETURN TO DEVICE DRIVER
*	A1  =	RETURN CODE 
*		0 IF OK
*		NOT 0 IF ERROR 
*	A2  =	DEVICE STATUS (IF RELEVANT, IE A1=0)
*	CR  =	CONTENTS OF A1
*	INTERR.	ENABLED 
* 
************************************************************
* 
PLSTBL	EQU	*
PRSTBL	EQU	*
	ENB
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 IN DWT 
	CF	A15,GETCWT	A5 := CWT ADDRESS
* 
	EJECT
* 
	LD	A1,DWTLD1,A6	BUFFER ALREADY ALLOCATED?
	ABL(NZ)	NDREPO	YES, SET OK & RETURN
	CF	A15,GETLCS	A1 := STATUS & INH 
	RF(NZ)	SBERR2	ERROR, RETURN
* 
*    CHECK LEVEL 3 WINDOW 
	LDR	A3,A2	SAVE MAX BLOCK LENGTH
	LD	A1,DWTST,A6	DWT STATUS
	ANKL	A1,DWFECH+DWFTY1	ECHO OR ONLY TYPE 1? 
	RF(NZ)	SB090	YES, DON'T CHECK WINDOW 
	CF	A15,GETOFR	A2 := NR OF OUTSTANDING FRAMES 
	LDR	A2,A2	ANY FRAMES OUTSTANDING?
	RF(Z)	SB090	NO, CONTINUE 
	LD	A1,DWTST,A6	DWT STATUS
	ANK	A1,DWFSAC	ALWAYS WAIT FOR LEVEL 3 ACK? 
	RF(NZ)	SBERR	YES, NO FRAMES MAY BE OUT. ERROR
	SUK	A2,WINDOW	WINDOW FULL? 
	RF(N)	SB090	NO, CONTINUE 
*	DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN
	ST	A3,DWTLD1,A6	SAVE REQUESTED BUFFER LENGTH 
	LDK	A1,DWFAK3	FLAG "WAITING FOR LEVEL 3 ACK" 
	ORS	A1,DWTST,A6	SET FLAG IN DWT STATUS 
	IFF	UTTEST=0	QUEUE STATISTICS
	LD	A1,CWTPNR,A5	PLC NUMBER 
	SLA	A1,1	MAKE INDEX
	IM	WIQSTA,A1	INCREMENT QUEUE STATISTICS COUNTER
	XIF
	ABL	PLDSP2	LOCAL DISPATCHER
* 
* 
*    ENTRY IS MADE HERE WHEN WINDOW IS OPEN AGAIN 
*     (AFTER A LEVEL 3 ACK) 
*      REGISTER CONTENTS ON ENTRY:
*	A1  =	RETURN CODE 
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
WINRST	EQU	*
	LD	A3,DWTLD1,A6	RESTORE REQUESTED BUFFER LENGTH
	CM	DWTLD1,A6 
	LDR	A1,A1	RETURN CODE
	RF(NZ)	SBERR2	ERROR, RETURN TO DEVICE DRIVER 
* 
* 
SB090	EQU	* 
	LDR	A7,A5
	CWK	A3,SOBUFL	SHORT BUFFER ENOUGH? 
	RF(G)	SB100	NO, TAKE LONG BUFFER 
* 
*    ALLOCATE SHORT OUTPUT BUFFER 
	ADK	A7,CWTPBS	POOLBLOCK FOR SHORT BUFFERS
	CF	A15,PLGTBU	ALLOCATE BUFFER
	RF(NZ)	SB120	COMMON PART FOR SHORT/LONG
	LDK	A7,CWTSBQ	NO BUFFER LEFT. SET QUEUE HEAD 
	IFF	UTTEST=0	QUEUE STATISTICS
	LD	A1,CWTPNR,A5	PLC NUMBER 
	SLA	A1,1	MAKE INDEX
	IM	SBQSTA,A1	INCREMENT QUEUE STATISTICS COUNTER
	XIF
	RF	SB110	COMMON PART FOR NO BUFFER 
* 
SB100	EQU	* 
	CWK	A3,LOBUFL	LONG BUFFER ENOUGH?
	RF(G)	SBERR	NO, ERROR
*    ALLOCATE LONG OUTPUT BUFFER
	ADK	A7,CWTPBL	POOLBLOCK FOR LONG BUFFERS 
	CF	A15,PLGTBU	ALLOCATE BUFFER
	RF(NZ)	SB120	COMMON PART FOR SHORT/LONG
	LDK	A7,CWTLBQ	NO BUFFER LEFT. SET QUEUE HEAD 
	IFF	UTTEST=0	QUEUE STATISTICS
	LD	A1,CWTPNR,A5	PLC NUMBER 
	SLA	A1,1	MAKE INDEX
	IM	LBQSTA,A1	INCREMENT QUEUE STATISTICS COUNTER
	XIF
* 
SB110	EQU	* 
*    NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. 
	ADR	A7,A5	A7 := QUEUE HEAD ADDRESS 
	LDR	A4,A6	DWT ADDRESS
	ADKL	A4,DWTOTQ	QUEUE LINK ADDRESS
	CF	A15,LNKLST	PUT LAST IN QUEUE
	ABL	PLDSP2	LOCAL DISPATCHER
* 
* 
*    ENTRY IS MADE HERE WHEN A BUFFER IS FREE 
*    REGISTERS ON ENTRY:
*	A1  =	RETURN CODE 
*	A4  =	BUFFER ADDRESS (IF A1=0)
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
BUFRST	EQU	*
	LDR	A1,A1	RETURN CODE
	RF(NZ)	SBERR2	RETURN IF ERROR
SB120	EQU	* 
	LDK	A2,X25DAT	LENGTH OF X25 HEADER 
	ST	A2,BUFBIX,A4	BYTE INDEX := START OF DATA
	ST	A4,DWTLD1,A6	SAVE BUFFER ADDRESS IN DWT 
* 
	ABL	NDREPO	RETURN TO DEVICE DRIVER 
*			 RETURN CODE := OK
* 
* 
SBERR	EQU	* 
	LDK	A1,PLSERR	RET CODE := SW ERROR 
SBERR2	EQU	*
	LDK	A2,0	RESET DEVICE STATUS 
	ABL	NDREP	RETURN TO DEVICE DRIVER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLCHRO
* 
* FUNCTION: 
*	THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. 
* 
* CALL: 
*	ABI	OUPTAB,A1 
*	CF	A5,PLCHRO
* 
* INPUT:
*	A2  =	BITS 0-7  IRRELEVANT
*		BITS 8-15  CHARACTER 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	AT RETURN TO DEVICE DRIVER
*	A1  =	RETURN CODE 
*		0 IF OK
*		NOT 0 IF ERROR 
*	A2  =	DEVICE STATUS (IF RELEVANT, IE A1=0)
*	CR  =	CONTENTS OF A1
*	INTERR.	ENABLED 
* 
************************************************************
* 
PLCHRO	EQU	*
PRCHRO	EQU	*
	ENB
* 
	EJECT
* 
	STR	A4,A15	PUSH A4 
	LD	A4,DWTLD1,A6	BUFFER ADDRESS 
	RF(Z)	COERR2	ERROR IF NO BUFFER
	CF	A15,PLPUCH	PUT CHARACTER IN BUFFER
	LDR	A1,A1	CHECK RETURN CODE
	RF(NZ)	COERR1	ERROR IF BUFFER FULL 
* 
	LDR*	A4,A15	POP A4 
*	RETURN DIRECTLY INSTEAD OF THROUGH NDRETO TO GET
*	FASTER PROCESSING.
	ENB
	ADK	A5,4	ADJUST STACK
	LDR	A2,A1	DEVICE STATUS & RET CODE := OK 
	ABR*	A5	RETURN TO DEVICE DRIVER
* 
* 
COERR1	EQU	*
	CF	A15,PLRLBU	RELEASE BUFFER 
	CM	DWTLD1,A6	INDICATE NO BUFFER
COERR2	EQU	*
	LDR*	A4,A15	POP A4 
	LDK	A1,PLSERR	RET CODE := SW ERROR 
	ABL	NDRET	RETURN TO DEVICE DRIVER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLENBL
* 
* FUNCTION: 
*	THIS ROUTINE DEFINES END OF OUTPUT BLOCK. 
*	IT SENDS THE BLOCK TO PLC AND WAITS FOR 
*	ACKNOWLEDGE.
* 
* CALL: 
*	ABI	ENBTAB,A1 
*	CF	A5,PLENBL
* 
* INPUT:
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	AT RETURN TO DEVICE DRIVER
*	A1  =	RETURN CODE 
*		0 IF OK
*		NOT 0 IF ERROR 
*	A2  =	DEVICE STATUS (IF RELEVANT, IE A1=0)
*	CR  =	CONTENTS OF A1
*	INTERR.	ENABLED 
* 
************************************************************
* 
PLENBL	EQU	*
PRENBL	EQU	*
	ENB
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 IN DWT 
	CF	A15,GETCWT	A5 := CWT ADDRESS
* 
	EJECT
* 
	LDK	A1,PLSERR	SET RET CODE JUST IN CASE
	LD	A2,DWTLD1,A6	BUFFER ADDRESS 
	ABL(Z)	NDREP	ERROR IF NO BUFFER. RETURN
	CF	A15,GETLCS	A1 := STATUS & INH 
	RF(NZ)	EBERR1	RETURN IF ERROR
* 
	LDR	A3,A6	DWT ADDRESS
	ADKL	A3,DWTOTQ	QUEUE POINTER 
	CF	A15,PLCCCS	RESERVE CCA
	CM	DWTOTQ,A6	RESET QUEUE ELEMENT POINTER 
	LDR	A1,A1	RETURN CODE
	RF(NZ)	EBERR1	RETURN IF ERROR
* 
*    WRITE PARAMETERS IN CCA AND X25 HEADER 
	ENB
	LD	A4,DWTLD1,A6	BUFFER ADDRESS 
	ST	A4,CWTCCA+CCRBUF,A5	TO CCA
	CM	CWTCCA+CCRC1B,A5	RESET DATA CHAINING & MSB OF ADDR
	LDK	A3,CMDFW	ASSUME FAST WRITE 
	LD	A2,DWTST,A6	DEVICE STATUS 
	LDR	A7,A2	SAVE 
	ANKL	A7,DWFECH	ECHO OUTPUT?
	RF(NZ)	EB090	YES, USE TYPE 1 
	LDK	A3,CMDSW	NOT ECHO, USE STANDARD WRITE
	ANK	A2,DWFTY1	ONLY TYPE 1 ALLOWED? 
	RF(Z)	EB100	NO, USE TYPE 2 
* 
	EJECT
* 
EB090	EQU	* 
*      NO FLOW CONTROL
	CF	A15,WRADR1	WRITE LINE ADDRESS. NO FLOW C
	LDK	A2,TYNFLO	MESSAGE TYPE := NO FLOW CONTROL
	RF	EB110	CONTINUE
* 
EB100	EQU	* 
*      FLOW CONTROL 
	CF	A15,WRADR2	WRITE LINE ADDRESS. FLOW CTRL
	CF	A15,FWOPSR	FETCH AND UPDATE FLOW CONTROL
	SC	A2,X25FLW,A4	P(R) & P(S) TO PACKET
	LDK	A2,TYDATA	MESSAGE TYPE := NORMAL DATA
* 
EB110	EQU	* 
	SC	A2,CWTCCA+CCRIDB,A5	MESSAGE TYPE TO CCA 
	SC	A3,CWTCCA+CCRCMD,A5	COMMAND TO CCA
	ST	A6,CWTCCA+CCRIDW,A5	DWT ADDRESS TO CCA
	LD	A3,BUFBIX,A4	BYTE INDEX 
	ST	A3,CWTCCA+CCRLEN,A5	BUFFER LENGTH TO CCA
* 
	CF	A15,GETLCS	A1 := STATUS & INH 
	RF(NZ)	EBERR2	RETURN IF ERROR
	CF	A15,PLCCIO	EXECUTE CIO START
	RF(NZ)	EBERR1	HANDLE ERROR 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
*    ENTRY TO ACKRST IS MADE WHEN I/O OPERATION 
*    IS COMPLETED.
*      REGISTER CONTENTS ON ENTRY:
*	A1  =	RETURN CODE 
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
*	A7  =	MESSAGE TYPE
* 
ACKRST	EQU	*
	LDK	A2,0	RESET DEVICE STATUS 
	LDR	A1,A1	ANY ERROR? 
	RF(NZ)	EB130	YES, RETURN 
* 
	LD	A3,DWTST,A6	DWT STATUS
	LDR	A4,A3
	ANK	A4,DWFRES	RESET PACKET RECIEVED? 
	RF(Z)	EB120	NO 
	LDK	A1,LINERR	YES. RET CODE := LINK RESET
	RF	EB130	RETURN
* 
EB120	EQU	* 
	CWK	A7,TYNFLO	PACKET WITH NO FLOW CONTROL? 
	RF(E)	EB130	YES, RETURN
	ANK	A3,DWFSAC	WAIT FOR LEVEL 3 ACK?
	RF(Z)	EB130	NO, RETURN 
* 
	LDK	A3,DWFAK3	FLAG "WAITING FOR LEVEL 3 ACK" 
	ORS	A3,DWTST,A6	SET FLAG IN DWT STATUS 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
*    ENTRY IS MADE HERE WHEN ACK ON LEVEL 3 HAVE BEEN RECIEVED
*      REGISTER CONTENTS ON ENTRY:
*	A1  =	RETURN CODE 
*	A2  =	DEVICE STATUS (IF RELEVANT, IE A1=0)
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
AK3RST	EQU	*
* 
EB130	EQU	* 
* 
	ABL	NDREP	RETURN TO DEVICE DRIVER
* 
* 
* 
EBERR2	EQU	*
	CM	CWTCCB,A5	SET CCA FREE
EBERR1	EQU	*
	LD	A4,DWTLD1,A6	OUTPUT BUFFER ADDRESS
	CF	A15,PLRLBU	RELEASE BUFFER 
	CM	DWTLD1,A6	INDICATE NO BUFFER
	CM	DWTLD2,A6	RESET FLOW CONTROL
	ABL	NDREP	RETURN TO DEVICE DRIVER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLTEST
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES TEST COMMANDS FOR PLC. 
*	THE TEST COMMANDS ARE GENERATED BY A TEST 
*	COMMAND "DRIVER" WITH AN INTERFACE SIMILAR TO 
*	THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. 
*	CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND
*	NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, 
*	AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER 
*	LINE DRIVERS. 
* 
* CALL: 
*	CF	A5,PLTEST
* 
* INPUT:
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	AT RETURN TO DEVICE DRIVER
*	A1  =	RETURN CODE 
*		0 IF OK
*		NOT 0 IF ERROR 
*	A2  =	CHANGED 
*	CR  =	CONTENTS OF A1
*	INTERR.	ENABLED 
* 
************************************************************
* 
	EJECT
* 
PLTEST	EQU	*
	IFT	PLCTST=1 
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 IN DWT 
	CF	A15,GETCWT	A5 := CWT ADDRESS
	CF	A15,PLCCCA	RESERVE CCA
* 
	ENB
	ST	A6,CWTCCA+CCRIDW,A5	DWT ADDRESS TO CCA
	CM	CWTCCA+CCRC1B,A5	DATA CHAINING & MSB OF BUFFER ADDR 
	LD	A4,DWTTBU,A6	USER REQUEST BUFFER ADDRESS
	ST	A4,CWTCCA+CCRBUF,A5	TO CCA
	LD	A2,DWTTLN,A6	USER REQUEST BUFFER LENGTH 
	ST	A2,CWTCCA+CCRLEN,A5	LENGTH TO CCA 
	LD	A3,DWTTCW,A6	USER REQUEST CONTROL WORD
* 
*    DETERMINE TYPE OF TEST ORDER 
	LC	A1,DWTOR+1,A6	USER REQUEST ORDER CODE 
	ANK	A1,/3F	CLEAN 
	CWK	A1,ORDPS	GET LINE STATISTICS?
	RF(E)	TE100	YES, HANDLE
	CWK	A1,ORDDS	GET DLS STATISTICS? 
	RF(E)	TE110	YES, HANDLE
	CWK	A1,ORDRM	READ LOCAL MEMORY?
	RF(NE)	TEERR2	NO, COMMAND NOT DEFINED. ERROR 
* 
*    READ LOCAL MEMORY
	ST	A3,CWTCCA+CCRSUB,A5	PLC MEMORY ADDRESS TO CCA 
	LDK	A3,CMDRM	PLC COMMAND READ LOCAL MEMORY 
	RF	TE120	TO COMMON PART
* 
TE100	EQU	* 
*    GET LINE STATISTICS
	LDK	A3,CMDPS	PLC COMMAND GET LINE STATISTICS 
	RF	TE120	TO COMMON PART
* 
TE110	EQU	* 
*    GET DLS STATISTICS 
	LC	A3,DWTCP2,A6	CHANNEL PARAMETER
	ANK	A3,MASKWS	CLEAN WS NUMBER
	SLL	A3,8	TO LEFT BYTE
	ADK	A3,CMDDS	PLC COMMAND GET DLS STATISTICS
* 
TE120	EQU	* 
	ST	A3,CWTCCA+CCRDLS,A5	DLS INDEX & COMMAND TO CCA
* 
	CF	A15,PLCCIO	EXECUTE CIO START
	RF(NZ)	TEERR1	ERROR. HANDLE
	ABL	PLDSP2	LOCAL DISPATCER. WAIT 
* 
* 
*    ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. 
*      REGISTER CONTENTS ON ENTRY:
*	A1  =	RETURN CODE 
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
TSTRST	EQU	*
	ABL	NDREP	RETURN TO DEVICE DRIVER
* 
* 
TEERR2	EQU	*
	CM	CWTCCB,A5	INDICATE CCA FREE 
	LDK	A1,PLSERR	RET CODE := SW ERROR 
TEERR1	EQU	*
	ABL	NDREP	RETURN TO DEVICE DRIVER
	XIF
* 
	EJECT
* 
**********************
* INTERRUPT ROUTINES *
**********************
* 
*   THIS SECTION CONTAINS INTERRUPT HANDLING ROUTINES.
*   IT IS ENTERED IMMEDIATELY AT A RELEASE, 
*   ATTENTION OR I/O COMPLETION INTERRUPT.
*   ALL ROUTINES ARE EXECUTED 
*   ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS
*   MADE EITHER TO SOME ROUTINE WAITING FOR THE INTERRUPT,
*   TO THE LOCAL PLC DISPATCHER OR TO TOSS DISPATCHER.
*   ON EXIT, A15 STACK CONTAINS INTERRUPT RETURN AND
*   A1-A8.
* 
* 
*   ROUTINES IN ORDER OF APPEARANCE IN CODE:
* 
*	NAME	FUNCTION 
* 
*	IHPL	INTERRUPT ENTRY
*	PLIHR	HANDLE RELEASE INTERRUPT
*	PLIHA	HANDLE ATTENTION INTERRUPT
*	PLIHC	HANDLE I/O COMPLETION INTERRUPT 
*	COMPSTA	HANDLE COMPLETION OF START COMMANDS 
*		 (TEST CU, OPEN LINE, OPEN DLS)
*	COMPTEST	HANDLE COMPLETION OF TEST COMMANDS 
*		 (PLC STATISTICS, DLS STAT., READ LOCAL MEMORY)
*	COMPWRI	HANDLE COMPLETION OF WRITE COMMANDS 
*	COMPGR	HANDLE COMPLETION OF GENERAL READ COMMANDS 
*	GRERR	HANDLE ERRORS AT GENERAL READ 
*	GRSACK	HANDLE STATUS AND RR MESSAGE FROM DEVICE 
*	GRDATA	HANDLE DATA INPUT FROM DEVICE
*	GRRES	HANDLE RESET MESSAGE FROM SECONDARY 
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	IHPL
* 
* FUNCTION: 
*	THIS ROUTINE CONTAINS INTERRUPT ENTRIES FOR 
*	ALL PLC:S INCLUDED. IT SAVES A1-A8, SETS CWT
*	ADDRESS AND EXITS TO RELEASE OR I/O COMPLETION
*	INTERRUPT HANDLER.
* 
* CALL: 
*	HARDWARE INTERRUPT
* 
* INPUT:
*	A15 =	SYSTEM STACK POINTER
*	INTERR.	INHIBITED 
*	MODE	SYSTEM 
* 
* OUTPUT: 
*	A5  =	CWT ADDRESS 
* 
************************************************************
* 
IHPL01	EQU	*
	IFF PLCNRL=0	U	=5
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
	IFF	PLCNRL=0	U	=5
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
* 
	IFF	PLCNRL=0	U	=5
	LDKL	A5,PL0CWT	CWT ADDRESS, PLC 0
	RF	IHPL	COMMON PART, ALL PLC:S 
	XIF
* 
	EJECT
* 
IHPL02	EQU	*
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
* 
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
* 
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	LDKL	A5,PL1CWT	CWT ADDRESS, PLC 1
	RF	IHPL	COMMON PART, ALL PLC:S 
	XIF
* 
IHPL03	EQU	*
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
* 
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
* 
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	LDKL	A5,PL2CWT	CWT ADDRESS, PLC 2
	RF	IHPL	COMMON PART, ALL PLC:S 
	XIF
* 
IHPL04	EQU	*
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	IFF	PLCNRL=3 
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
* 
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	IFF	PLCNRL=3 
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
* 
	IFF	PLCNRL=0	U	=5
	IFF	PLCNRL=1 
	IFF	PLCNRL=2 
	IFF	PLCNRL=3 
	LDKL	A5,PL3CWT	CWT ADDRESS, PLC 3
	RF	IHPL	COMMON PART, ALL PLC:S 
	XIF
* 
IHPR01	EQU	*
	IFF	PLCNRR=0 
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
	IFF	PLCNRR=0 
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
	IFF	PLCNRR=0 
	LDKL	A5,PR1CWT	CWTADDRESS PLC 1 REMOTE 
	RF	IHPL	COMMON PART ALL CWT:S
	XIF
IHPR02	EQU	*
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	LDKL	A5,PR2CWT	CWTADDRESS PLC 2 REMOTE 
	RF	IHPL	COMMON PART ALL CWT:S
	XIF
IHPR03	EQU	*
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	LDKL	A5,PR3CWT	CWTADDRESS PLC 3 REMOTE 
	RF	IHPL	COMMON PART ALL PLC:S
	XIF
IHPR04	EQU	*
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFF	PLCNRR=3 
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRR=2 
	IFF	PLCNRR=3 
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
	IFF	PLCNRR=0 
	IFF	PLCNRR=1 
	IFF	PLCNRL=2 
	IFF	PLCNRL=3 
	LDKL	A5,PR4CWT	CWTADDRESS PLC 4 REMOTE 
	RF	IHPL	COMMON PART ALL CWT:S
	XIF
	EJECT
* 
IHPL	EQU	*
	ST	P,INTSAV	SAVE LATEST INTERRUPT
	LDK	A1,0	RESET HIGH BYTE 
	LC	A1,CWTCID+CIDINT,A5	INTERRUPT SOURCE
	CWK	A1,/40	RELEASE?
	RF(E)	PLIHR	YES, HANDLE
	CWK	A1,/20	I/O COMPLETION? 
	RF(E)	PLIHC	YES, HANDLE
	CWK	A1,/80	ATTENTION?
	RF(E)	PLIHA	YES, HANDLE
* 
	CF	A15,PLCNOP	ILLEGAL CODE, SET NOT OPERABLE 
	ABL	TDISP	EXIT 
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLIHR 
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES RELEASE INTERRUPTS.
*	IT RESETS THE INTERRUPT, AND IF ANOTHER 
*	PROCESS IS WAITING FOR THE CCA, RETURN
*	IS MADE TO CCA ALLOCATION ROUTINE.
* 
* CALL: 
*	RF	PLIHR
* 
* INPUT:
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	IF PROCESS WAITING
*	A4  =	BLOCK ADDRESS OF WAITING PROCESS
*	A5  =	CWT ADDRESS 
* 
************************************************************
* 
PLIHR	EQU	* 
	EX	CWTST3,A5	RESET INTERRUPT 
	LD	A4,CWTCCQ,A5	PROCESS WAITING FOR CCA? 
	ABL(NZ)	CCARST	YES, ACTIVATE PROCESS 
	CM	CWTCCB,A5	NO, SET CCA FREE
	ABL	TDISP	EXIT 
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLIHA 
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES ATTENTION INTERRUPTS. IF 
*	ERROR, IT SETS AN ERROR CODE AND STARTS ABORT 
*	OF ALL CALLS. IF COMMUNICATION REESTABLISHED, 
*	IT STARTS RECOVERY. 
* 
* CALL: 
*	RF	PLIHA
* 
* INPUT:
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	A5  =	CWT ADDRESS 
*	A6  =	WS NUMBER 
* 
************************************************************
* 
PLIHA	EQU	* 
	LD	A1,CWTRCA+CCRSTA,A5	PLC STATUS
	ST	A1,CWTPLS,A5	SAVE FOR TESTING 
	IFF	UTTEST=0 
	CF	A15,LOGATT	LOG RCA
	XIF
	LC	A6,CWTRCA+CCRDLS,A5	WS NUMBER 
	ANK	A6,MASKWS	CLEAN
	EX	CWTST3,A5	RELEASE RCA 
* 
	EJECT
* 
	LDKL	A2,/FFFF-STACOM-STAERR
*			 MASK FOR ALLOWED ERRORS
	ANR	A2,A1	FATAL ERROR? 
	RF(Z)	IA100	NO, CONTINUE 
	CF	A15,PLCNOP	SET PLC NOT OPERABLE 
	ABL	TDISP	EXIT 
* 
IA100	EQU	* 
	LDR	A2,A1	STATUS 
	ANK	A2,STACOM	COMMUNICATION REESTABLISHED? 
	ABL(NZ)	PLREWS	YES, START RECOVERY OF WS 
* 
	LDR	A2,A6	WS NUMBER
	CF	A15,STAHAN	HANDLE ERROR STATUS
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLIHC 
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES I/O COMPLETION INTERRUPTS. 
*	IT CHECKS WHICH COMMAND THAT HAS BEEN COMPLETED,
*	AND EXITS TO CORRESPONDING COMMAND HANDLER. 
* 
* CALL: 
*	RF	PLIHC
* 
* INPUT:
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	PLC STATUS
*	A2  =	FATAL PLC STATUS
*	A5  =	CWT ADDRESS 
*	A6  =	USER PARAMETER
* 
************************************************************
* 
PLIHC	EQU	* 
	LD	A1,CWTRCA+CCRSTA,A5	PLC STATUS
	ST	A1,CWTPLS,A5	SAVE FOR TESTING 
	IFF	UTTEST=0 
	CF	A15,LOGIOC	LOG CCR
	XIF
	ANKL	A1,/FFFF-STAPOL-STALER
*			 RESET POLL STOP & LINK ERROR 
	LD	A6,CWTRCA+CCRIDW,A5	USER PARAMETER (DWT, DLS OR ...)
	LC	A2,CWTRCA+CCRCMD,A5	COMMAND 
* 
	EJECT
* 
	LDK	A3,CMDTBL	COMMAND TABLE LENGTH 
IC100	EQU	* 
*    SCAN TABLE TO FIND MATCHING COMMAND
	SUK	A3,CMDTB1	DECREMENT INDEX
	RF(N)	IC120	END OF TABLE. ERROR
	CC	A2,CMDTAB+1,A3	COMMAND FOUND? 
	RB(NE)	IC100	NO, CONTINUE
* 
	C1	A2,CMDTAB+4,A3	MASK FOR ALLOWED ERRORS
	ANR	A2,A1	FATAL ERROR? 
	RF(Z)	IC110	NO, CONTINUE 
	CF	A15,PLCNOP	SET PLC NOT OPERABLE 
IC110	EQU	* 
	ABI	CMDTAB+2,A3	CALL COMMAND HANDLING ROUTINE
* 
IC120	EQU	* 
	EX	CWTST3,A5	RELEASE RCA 
	CF	A15,PLCNOP	SET PLC NOT OPERABLE 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	COMPSTA 
* 
* FUNCTION: 
*	THESE ROUTINES HANDLE COMPLETION OF TEST CU,
*	OPEN LINE AND OPEN DLS COMMANDS.
*	THEY CHECK THE RETURN CODE AND EXIT TO THE
*	ROUTINE THAT MADE THE I/O CALL. 
* 
* CALL: 
*	ABI	CMDROU,A3 
* 
* INPUT:
*	A1  =	PLC STATUS
*	A2  =	FATAL PLC STATUS
*	A5  =	CWT ADDRESS 
*	A6  =	PARAMETER (IF RELEVANT) 
* 
* OUTPUT: 
*	A1  =	PLC STATUS
*	A2  =	FATAL PLC STATUS
*	A5  =	CWT ADDRESS 
*	A6  =	DLS INDEX (IF EXIT TO ODLRST) 
* 
************************************************************
* 
COMPTC	EQU	*
	EX	CWTST3,A5	RELEASE RCA 
	ABL	TCURST	RETURN TO ROUTINE MAKING I/O CALL 
* 
	EJECT
* 
* 
*    OPEN LINE, COMPLETION
* 
COMPOP	EQU	*
	EX	CWTST3,A5	RELEASE RCA 
	ABL	OPLRST	RETURN TO ROUTINE MAKING I/O CALL 
* 
* 
*    OPEN DLS, COMPLETION 
* 
COMPOD	EQU	*
	EX	CWTST3,A5	RELEASE RCA 
	LDR	A2,A2	FATAL STATUS?
	RF(NZ)	CD100	YES, SKIP STATUS CHECK
* 
	LDR	A2,A6	WS NUMBER
	CF	A15,STAHAN	HANDLE PLC STATUS
	LDK	A2,0	CLEAR FATAL STATUS FLAGS
* 
CD100	EQU	* 
	ABL	ODLRST	RETURN TO ROUTINE MAKING I/O CALL 
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	COMPTEST
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES COMPLETION OF GET LINE 
*	STATISTICS, GET DLS STATISTICS AND READ LOCAL 
*	MEMORY COMMANDS.
*	IT CHECKS THE PLC STATUS, SETS EFFECTIVE
*	LENGTH IN DWT AND EXITS TO THE ROUTINE THAT 
*	MADE THE I/O CALL.
* 
* CALL: 
*	ABI	CMDROU,A3 
* 
* INPUT:
*	A1  =	PLC STATUS
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	RETURN CODE 
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
************************************************************
* 
	IFT	PLCTST=1 
COMPPS	EQU	*
COMPDS	EQU	*
COMPRM	EQU	*
* 
	EJECT
* 
	LDR	A1,A1	PLC STATUS 
	RF(NZ)	TS100	ERROR. HANDLE 
* 
	LD	A2,CWTRCA+CCRLEN,A5	EFFECTIVE LENGTH
	ST	A2,DWTTLN,A6	TO DWT 
	RF	TS110	EXIT. A1 = 0
* 
TS100	EQU	* 
	LDK	A1,NOTOPR	RETURN CODE := NOT OPERABLE
	CM	DWTTLN,A6	EFFECTIVE LENGTH := 0 
* 
TS110	EQU	* 
	EX	CWTST3,A5	RELEASE RCA 
	ABL	TSTRST	RETURN TO ROUTINE MAKING I/O CALL 
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	COMPWRI 
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES COMPLETION OF STANDARD 
*	WRITE AND FAST WRITE. 
*	IT CHECKS THE PLC STATUS AND RELEASES THE OUTPUT
*	BUFFER, IF ANY WAS ALLOCATED. IF THE OUTPUT 
*	OPERATION IS FINISHED, IT THEN EXITS TO THE 
*	ROUTINE THAT MADE THE I/O CALL. 
* 
* CALL: 
*	ABI	CMDROU,A3 
* 
* INPUT:
*	A1  =	PLC STATUS
*	A2  =	FATAL PLC STATUS
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	WHEN RETURN TO ROUTINE MAKING OUTPUT CALL 
*	A1  =	RETURN CODE 
*	A2  =	BITS 0-7 ZERO 
*		BITS 8-15 DEVICE STATUS
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
************************************************************
* 
	EJECT
* 
COMPSW	EQU	*
COMPFW	EQU	*
	LDR	A2,A2	FATAL PLC STATUS?
	RF(NZ)	WRERR1	YES, HANDLE
* 
	LC	A2,DWTCP2,A6	CHANEL PARAMETER 
	ANK	A2,MASKWS	CLEAN WS NUMBER
	CF	A15,STAHAN	HANDLE PLC STATUS
	LC	A7,CWTRCA+CCRIDB,A5	TYPE OF WRITE COMMAND 
	ANK	A7,/FF	CLEAN 
	LD	A4,CWTRCA+CCRBUF,A5	BUFFER ADDRESS
	EX	CWTST3,A5	RELEASE RCA 
	ABI	WRIROU,A7	CALL CORRESPONDING ROUTINE 
* 
* 
*    IRRECOVERABLE ERROR
* 
WRERR1	EQU	*
	EX	CWTST3,A5	RELEASE RCA 
WRERR	EQU	* 
	ABL	PLDSP2	EXIT
* 
* 
*    COMPLETION OF DATA MESSAGE OUTPUT
* 
WRNFLO	EQU	*
WRDATA	EQU	*
	CF	A15,PLRLBU	RELEASE OUTPUT BUFFER
	CM	DWTLD1,A6	INDICATE NO BUFFER
	ABL	ACKRST	RETURN TO REQUEST HANDLER 
* 
* 
*    COMPLETION OF RECIEVE READY MESSAGE OUTPUT 
* 
WRRR	EQU	*
	SUK	A4,2	START OF MONITOR BLOCK
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTMBQ	MONITOR BLOCK QUEUE HEAD 
	CF	A15,LNKOUT	REMOVE FROM QUEUE
	CF	A15,FREBLK	RETURN BLOCK 
* 
	ABL	PLDSP2	EXIT
* 
* 
*    COMPLETION OF RESET CONFIRMATION MESSAGE OUTPUT
* 
WRRESC	EQU	*
	SUK	A4,2	START OF MONITOR BLOCK
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTMBQ	MONITOR BLOCK QUEUE HEAD 
	CF	A15,LNKOUT	REMOVE FROM QUEUE
	CF	A15,FREBLK	RETURN BLOCK 
* 
	LDKL	A2,/FFFF-DWFRES	MASK FOR RESET FLAG 
	ANS	A2,DWTST,A6	CLEAR "RESET" FLAG 
	LDK	A4,RELINE	RECOVERY CAUSE := LINK RESET 
	CF	A15,NDREDW	CALL RECOVERY FOR DWT
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	COMPGR
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES COMPLETION OF GENERAL
*	READ COMMANDS.
*	IT CHECKS TYPE OF MESSAGE AND CALLS 
*	CORRESPONDING ROUTINE.
* 
* CALL: 
*	ABI	CMDROU,A3 
* 
* INPUT:
*	A1  =	PLC STATUS
*	A2  =	FATAL PLC STATUS
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	PLC STATUS
*	A4  =	BUFFER ADDRESS
*	A5  =	CWT ADDRESS 
*	A6  =	DLS INDEX 
*	A7  =	DEVICE ADDRESS (IF RELEVANT)
* 
************************************************************
* 
COMPGR	EQU	*
	LDR	A2,A2	FATAL STATUS?
	RF(NZ)	GRERR2	YES, EXIT
* 
	EJECT
* 
	CF	A15,INTYPE	A3 := TYPE OF MESSAGE
	LD	A4,CWTRCA+CCRBUF,A5	BUFFER ADDRESS
	LC	A6,CWTRCA+CCRDLS,A5	DLS INDEX 
	ANK	A6,MASKWS	CLEAN
	LC	A7,X25LCN,A4	DEVICE ADDRESS 
	ANK	A7,MASKLC	CLEAN
* 
	ABI	REAROU,A3	ROUTINE FOR THIS MESSAGE TYPE
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GRERR 
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES ILLEGAL INPUT MESSAGES.
*	GRERR1 RETURNS BUFFER 
* 
* CALL: 
*	ABI	REAROU,A3 
*	RB	GRERR1 
*	RF	GRERR2 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS (IF GRERR1)
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
GRERR1	EQU	*
	CF	A15,PLRLBU	RELEASE GENERAL READ BUFFER
* 
GRERR2	EQU	*
	EX	CWTST3,A5	RELEASE RCA 
* 
	ABL	PLDSP2	EXIT
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GRSACK
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES STATUS AND RECIEVE READY 
*	MESSAGES FROM A DEVICE. 
*	IT RELEASES THE BUFFER AND RETURNS TO ROUTINE 
*	MAKING I/O CALL.
* 
* CALL: 
*	ABI	REAROU,A3 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
*	A5  =	CWT ADDRESS 
*	A6  =	DLS INDEX 
*	A7  =	DEVICE ADDRESS
* 
* OUTPUT: 
*	A1  =	RETURN CODE 
*		=0 IF OK 
*		><0 IF ERROR 
*	A2  =	BITS 0-7  ZERO
*		BITS 8-15  DEVICE STATUS 
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
************************************************************
* 
	EJECT
* 
GRSTAT	EQU	*
	CF	A15,GETDWT	A6 := DWT ADDRESS
	RB(Z)	GRERR1	NO DWT DEFINED
	CF	A15,FWIPSR	UPDATE FLOW CONTROL COUNTERS 
	LC	A2,X25DAT,A4	DEVICE STATUS BYTE 
	ANK	A2,/FF	CLEAN 
	RF	SR100	COMMON PART 
* 
* 
GRRR	EQU	*
	CF	A15,GETDWT	A6 := DWT ADDRESS
	RB(Z)	GRERR1	NO DWT DEFINED
	CF	A15,FWIPR	UPDATE FLOW CONTROL COUNTERS
	LDK	A2,0	RESET DEVICE STATUS BYTE
* 
* 
SR100	EQU	* 
*    COMMON PART FOR DEVICE STATUS AND RECIEVE READY MESSAGES 
	EX	CWTST3,A5	RELEASE RCA 
	CF	A15,PLRLBU	RELEASE GENERAL READ BUFFER
	LD	A3,DWTST,A6	DWT STATUS
	LDR	A4,A3
	ANK	A4,DWFAK3	ANYONE WAITING FOR THIS MESSAGE? 
	ABL(Z)	PLDSP2	NO, DISPATCH 
* 
	XRS	A4,DWTST,A6	RESET WAIT FLAG
	LDK	A1,0	RETURN CODE := OK 
	ANK	A3,DWFSAC	ALWAYS WAIT FOR LEVEL 3 ACK? 
	ABL(NZ)	AK3RST	YES, RETURN WITH ACK 3
	ABL	WINRST	NO, RETURN TO WINDOW QUEUE
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GRDATA
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES DATA INPUT MESSAGES. 
*	IT LINKS THE BUFFER TO THE CWT. 
* 
* CALL: 
*	ABI	REAROU,A3 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
*	A5  =	CWT ADDRESS 
*	A6  =	DLS INDEX 
*	A7  =	DEVICE ADDRESS
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
GRDATA	EQU	*
	CF	A15,GETDWT	A6 := DWT ADDRESS
	RB(Z)	GRERR1	NO DWT DEFINED
* 
	CF	A15,FWIPSR	UPDATE FLOW CONTROL COUNTERS 
	ST	A4,CWTBUF,A5	SAVE INPUT DATA BUFFER ADDRESS 
	ST	A6,BUFDWT,A4	SAVE DWT ADDRESS IN BUFFER 
	LD	A2,CWTRCA+CCRLEN,A5	EFFECTIVE LENGTH
	ST	A2,BUFLEN,A4	SAVE IN BUFFER 
	LDK	A2,X25DAT	START OF USER DATA 
	ST	A2,BUFBIX,A4	TO BYTE INDEX
* 
	EJECT
* 
	EX	CWTST3,A5	RELEASE RCA 
	ABL	PLDSP2	EXIT
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GRRES 
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES RESET MESSAGES FROM THE
*	SECONDARY.
*	IT RESETS THE FLOW CONTROL COUNTERS IN THE DWT, 
*	AND SETS A RESET PACKET FLAG IN THE DWT. THEN A 
*	RESET CONFIRMATION MESSAGE IS SENT. IF THE
*	PROCESS IS WAITING FOR LEVEL 3 ACK OR IN A BUFFER 
*	QUEUE IT IS ABORTED.
* 
* CALL: 
*	ABI	REAROU,A3 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
*	A5  =	CWT ADDRESS 
*	A6  =	DLS INDEX 
*	A7  =	DEVICE ADDRESS
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
GRRES	EQU	* 
	CF	A15,GETDWT	A6 := DWT ADDRESS
	RB(Z)	GRERR1	NO DWT DEFINED
* 
	EJECT
* 
	EX	CWTST3,A5	RELEASE RCA 
	CF	A15,PLRLBU	RELEASE GENERAL READ BUFFER
	CM	DWTLD2,A6	RESET FLOW CONTROL COUNTERS 
* 
	LD	A2,DWTST,A6	DWT STATUS
	ANK	A2,DWFRES	RESET ALREADY RECIEVED?
	ABL(NZ)	PLDSP2	YES, EXIT 
	LDK	A2,DWFRES
	ORS	A2,DWTST,A6	INDICATE RESET RECIEVED
* 
	CF	A15,PLCCCA	RESERVE PLC CCA
	ENB
* 
	CF	A15,GETBLK	GET OUTPUT BUFFER
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTMBQ	MONITOR BLOCK QUEUE HEAD 
	CF	A15,LNKFST	PUT BLOCK IN QUEUE (FOR RECOVERY)
	ADK	A4,2	SKIP QUEUE LINK 
	ST	A4,CWTCCA+CCRBUF,A5	BUFFER ADDR TO CCA
	CM	CWTCCA+CCRC1B,A5	RESET DATA CHAINING & MSB OF ADDR
	CF	A15,WRADR2	WRITE ADDRESS IN CCA (TYPE 2)
	LDK	A2,CMDSW	COMMAND CODE "STANDARD WRITE" 
	SC	A2,CWTCCA+CCRCMD,A5	TO CCA
	LDK	A2,/1F	MESSAGE TYPE FLAGS
	SC	A2,X25FLW,A4	TO OUTPUT BUFFER 
	LDK	A2,TYRESC	TYPE "RESET CONFIRMATION"
	SC	A2,CWTCCA+CCRIDB,A5	TO CCA, COMMAND ID
	ST	A6,CWTCCA+CCRIDW,A5	DWT ADDRESS TO CCA, COMMAND ID
	LDK	A2,X25DAT	LENGTH OF SYSTEM PART
	ST	A2,CWTCCA+CCRLEN,A5	TO CCA LENGTH 
* 
	EJECT
* 
	LD	A2,DWTST,A6	DWT STATUS
	ANK	A2,DWFRES	RESET STILL WANTED?
	RF(Z)	REERR1	NO, EXIT
	CF	A15,GETWSS	A1 := STATUS & INH 
	RF(NZ)	REERR1	EXIT IF ERROR
	CF	A15,PLCCIO	EXECUTE CIO START
	RF(NZ)	REERR2	EXIT IF ERROR
* 
	LDK	A1,LINERR	RET CODE := LINK ERROR 
	LD	A2,DWTST,A6	DWT STATUS
	LDR	A3,A2
	ANK	A2,DWFAK3	WAITING FOR LEVEL 3 ACK? 
	RF(Z)	RE100	NO, CONTINUE 
	XRS	A2,DWTST,A6	RESET ACK3 FLAG
	ANK	A3,DWFSAC	ALWAYS WAIT FOR LEVEL 3 ACK? 
	ABL(NZ)	AK3RST	YES, RETURN WITH ACK 3
	ABL	WINRST	NO, RETURN TO WINDOW QUEUE
* 
RE100	EQU	* 
	CF	A15,OUTBUQ	REMOVE DWT FROM BUFFER QUEUE 
	LDR	A2,A2	FOUND? 
	ABL(NZ)	BUFRST	YES, RETURN WITH ERROR CODE 
* 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
* 
REERR1	EQU	*
	CM	CWTCCB,A5	SET CCA FREE
REERR2	EQU	*
*      ERROR. RETURN MONITOR BLOCK IMMEDIATELY
	SUK	A4,2	START ADDRESS OF MONITOR BLOCK
	CF	A15,LNKOUT	REMOVE FROM QUEUE. A7 ALREADY SET
	CF	A15,FREBLK	RETURN MONITOR BLOCK 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
********************* 
* RECOVERY ROUTINES * 
********************* 
* 
*   THESE ROUTINES ARE USED AT SYSTEM START OR TC POWER 
*   UP. IN CASE OF POWER UP, THEY FIRST REMOVE ALL RUNNING
*   OUTPUT OPERATIONS. AFTER THAT, THE PLC IS STARTED,
*   AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE
*   CALLED FOR ALL DWT:S. 
*   THE SECTION ALSO CONTAINS ROUTINES FOR RECOVERY 
*   OF I/O ERRORS.
* 
* 
*   ROUTINES IN ORDER OF APPEARANCE IN CODE:
* 
*	NAME	FUNCTION 
* 
*	PLON	CALL RECOVERY ONCE FOR EACH PLC CHANNEL UNIT 
*	PLSTRT	START PLC AND CALL DEVICE RECOVERY 
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLON
* 
* FUNCTION: 
*	THIS ROUTINE WILL ACTIVATE A MONITOR JOB
*	FOR THE PLC RECOVERY, IF THE JOB NOT ALREADY
*	IS PENDING. 
*	THE MONITOR JOB WILL CALL THE RECOVERY ROUTINE ONCE 
*	FOR EACH PLC DEFINED. 
* 
* CALL: 
*	CF	A15,PLON 
* 
* INPUT:
*	- 
* 
* OUTPUT: 
*      AT ENTRY TO PLSTRT:
*	A5  =	CWT ADDRESS 
* 
************************************************************
* 
PLON	EQU	*
	LD	A1,PLCPFP	POWER UP PENDING? 
	RF(NZ)	PO100	YES, EXIT 
	IM	PLCPFP	INDICATE POWER UP STARTED
* 
	LDKL	A2,PO110	START ADDRESS
	CF	A15,QMJOB	ACTIVATE MONITOR JOB
* 
PO100	EQU	* 
	RTN	A15
* 
	EJECT
* 
PO110	EQU	* 
	CM	PLCPFP	NO LONGER PENDING
* 
* 
	IFF	UTTEST=0	QUEUE STATISTICS
*    RESET QUEUE STATISTICS COUNTERS
	LDK	A1,STATLN	TABLE LENGTH 
PO113	EQU	* 
	SUK	A1,2	NEXT WORD 
	RF(N)	PO116	READY WHEN ALL DONE
	CM	STATAR,A1	RESET COUNTER 
	RB	PO113	NEXT WORD 
PO116	EQU	* 
	XIF
* 
	LDK	A1,16	(MAX NUMBER OF PLC:S) * 2
PO120	EQU	* 
*    THIS LOOP IS EXECUTED ONCE FOR EACH PLC
	SUK	A1,2	NEXT PLC
	RF(N)	PO130	EXIT IF ALL DONE 
	LD	A5,TABCWT,A1	CWT ADDRESS
	RB(Z)	PO120	TAKE NEXT IF NOT DEFINED 
	CF	A15,PLSTRT	START ONE PLC
	RB	PO120	NEXT PLC
* 
PO130	EQU	* 
	ABL	MEXIT	MONITOR JOB EXIT 
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLSTRT
* 
* FUNCTION: 
*	THIS ROUTINE FIRST CLEARS ALL WORK AREAS AND
*	DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS
*	THE PLC, AND CALLS RECOVERY ROUTINES IN ALL 
*	DEVICE DRIVERS. 
* 
* CALL: 
*	CF	A15,PLSTRT 
* 
* INPUT:
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
PLSTRT	EQU	*
	IFT	CPU852=1 
	CF	A15,SAVE8	PUSH A1-A8
	XIF
	IFF	CPU852=1 
	MSR	8,A15	PUSH A1-A8 
	XIF
* 
	ENB
	IM	CWTGR,A5	INDICATE GENERAL READ NOT ALLOWED
	CM	CWTABW,A5	STOP ABORT OF WS
	CM	CWTSBQ,A5	RESET SHORT BUFFER QUEUE
	CM	CWTLBQ,A5	RESET LONG BUFFER QUEUE 
* 
	EJECT
* 
ST100	EQU	* 
*    RETURN MONITOR BLOCKS USED AS BUFFERS
	LDR	A7,A5
	ADK	A7,CWTMBQ	MONITOR BLOCK QUEUE HEAD 
	LDR*	A4,A7	FIRST BLOCK 
	RF(Z)	ST105	CONTINUE IF NO LEFT
	CF	A15,LNKOUT	REMOVE FROM QUEUE
	CF	A15,FREBLK	RETURN BLOCK 
	RB	ST100	TAKE NEXT 
ST105	EQU	* 
*    RETURN MONITOR BLOCKS FROM CCA QUEUE 
	LDR	A7,A5
	ADK	A7,CWTCCQ	CCA QUEUE HEAD 
	LDR*	A4,A7	FIRST BLOCK 
	RF(Z)	ST110	CONTINUE IF NO LEFT
	CF	A15,LNKOUT	REMOVE FROM QUEUE
	CF	A15,FREBLK	RETURN BLOCK 
	RB	ST105	TAKE NEXT 
* 
ST110	EQU	* 
*    INITIATE BUFFER AREAS
	LDR	A4,A5	CWT ADDRESS
	ADKL	A4,CWTSOB	AREA FOR SHORT OUTPUT BUFFERS 
	LDR	A7,A5
	ADK	A7,CWTPBS	POOLBLOCK, SHORT OUTPUT BUFFERS
	CF	A15,INIBUF	INITIATE BUFFER AREA 
	LDR	A4,A5	CWT ADDRESS
	ADKL	A4,CWTLOB	AREA FOR LONG OUTPUT BUFFERS
	LDR	A7,A5
	ADK	A7,CWTPBL	POOLBLOCK, LONG OUTPUT BUFFERS 
	CF	A15,INIBUF	INITIATE BUFFER AREA 
	LDR	A4,A5	CWT ADDRESS
	ADKL	A4,CWTGRB	AREA FOR GENERAL READ BUFFERS 
	LDR	A7,A5
	ADK	A7,CWTPBG	POOLBLOCK, GENERAL READ BUFFERS
	CF	A15,INIBUF	INITIATE BUFFER AREA 
* 
*    RESET ALL DWT:S AND WORK STATION STATUS
	LDK	A3,MAXWS+1	NUMBER OF WORK STATIONS + 1 
ST120	EQU	* 
	SUK	A3,1	NEXT WORK STATION 
	RF(N)	ST150	END IF NO MORE LEFT
	LDR	A2,A3	WORK STATION NUMBER
	SLA	A2,1	MAKE INDEX
	ADR	A2,A5	ADD CWT ADDRESS
	ADK	A2,CWTWSS	WORK STATION STATUS WORD 
	CMR	A2	CLEAR STATUS
	LDK	A1,NOTOPR
	SCR	A1,A2	WS := NOT OPERABLE 
	LD*	A1,CWTINT,A5	WORK STATION TABLE ADDRESS
	LDR	A6,A3	WORK STATION NUMBER
	CF	A15,NDGEDN	A7 := HIGEST DWT NUMBER ON WS
	ADK	A7,1 
ST130	EQU	* 
	SUK	A7,1	NEXT DWT
	RF(N)	ST140	NEXT WS IF NO DWT LEFT 
	LDR	A6,A3	WS NUMBER
	CF	A15,GETDWT	A6 := DWT ADDRESS
	RB(Z)	ST130	NOT DEFINED
	CM	DWTLD2,A6	RESET FLOW CONTROL
	LDKL	A2,/FFFF-DWFBSY-DWFPLC
*			 MASK FOR BUSY AND PLC FLAGS
	ANS	A2,DWTST,A6	RESET FLAGS
	CM	DWTLD1,A6	RELEASE BUFFER, IF ANY
	CM	DWTOTQ,A6	REMOVE DWT FROM QUEUE, IF ANY 
	RB	ST130	NEXT DWT
ST140	EQU	* 
	RB	ST120	NEXT WORK STATION 
* 
ST150	EQU	* 
*    DELAY UNTIL PLC IS READY FOR START 
	LD	A4,CWTTPR,A5	TIMER ALREADY STARTED? 
	RF(Z)	ST152	NO, START TIMER
	LDKL	A1,-STADLY-1	DELAY TIME 
	STR	A1,A4	RESTART TIMER
	RF	ST154	EXIT
* 
ST152	EQU	* 
	LDR	A1,A5	SAVE CWT ADDRESS 
	CF	A15,SETIME	START TIMER
	DATA	ST156,STADLY	RESTART ADDRESS & DELAY TIME 
	ST	A4,CWTTPR,A5	SAVE TIMER POINTER 
ST154	EQU	* 
	ABL	TDISP	WAIT UNTIL TIMER EXPIRES 
* 
ST156	EQU	* 
	LDR	A5,A1	RESTORE CWT ADDRESS
	CM	CWTTPR,A5	INDICATE NO TIMER RUNNING 
* 
*    START "TEST CHANNEL UNIT" OPERATION
	IM	CWTCCB,A5	SET CCA BUSY
	CM	CWTOPR,A5	SET PLC OPERABLE
	LDK	A2,CMDTC	COMMAND CODE TEST CU
	ST	A2,CWTCCA+CCRDLS,A5	COMMAND AND DLS INDEX TO CCA
	CM	CWTCCA+CCRC1B,A5	RESET DATA CHAINING
	LDR	A3,A5	CWT ADDRESS
	ADK	A3,CWTCSD	CONTROL UNIT START DESCRIPTOR ADDR 
	INH
	CF	A15,PLCCIO	CIO START
	RF(NZ)	STERR2	EXIT IF ERROR
	IM	CWTOPR,A5	SET NOT OPERABLE UNTIL TEST CU READY
	ABL	TDISP	WAIT FOR COMPLETION
* 
* 
*    ENTRY IS MADE HERE WHEN TEST CU IS COMPLETED.
*      REGISTER CONTENTS ON ENTRY:
*	A1  =	PLC STATUS
*	A5  =	CWT ADDRESS 
* 
TCURST	EQU	*
	LDR	A1,A1	OPERATION OK?
	RF(NZ)	STERR2	NO, EXIT 
* 
*    PERFORM "OPEN LINE" OPERATION
			U	=5 
	LDK	A2,0	INITIATE LINE COUNTER 
	ST	A2,CWTLNO,A5
ST157	EQU	* 
	CF	A15,PLCCCA	RESERVE CCA
* 
	LD	A2,CWTLNO,A5	GET LINE NO
	SC	A2,CWTCCA+CCRSU1,A5	SET UP LINE IN CCA	=5 
	SLL	A2,1	MAKE OPEN LINE PARA-
	ST	A2,CWTPAR,A5	METER AREA 
ST158	EQU	* 
	LD	A2,CWTOPP,A5	MAKE ADDRESS TO
	AD	A2,CWTPAR,A5	OPEN LINE PARAMETER AREA 
	LDR*	A2,A2	U	=5
	ST	A2,CWTCCA+CCRBUF,A5	SET UP IN CCA 
	LDK	A2,CMDOP	COMMAND OPEN LINE 
	ST	A2,CWTCCA+CCRDLS,A5	COMMAND AND DLS INDEX TO CCA
	CM	CWTCCA+CCRC1B,A5	RESET DATA CHAINING & MSB OF ADDR
	LDK	A2,12	PARAMETER AREA LENGTH	=1 
	ST	A2,CWTCCA+CCRLEN,A5	TO CCA
* 
	CM	CWTOPR,A5	SET PLC OPERABLE
	CF	A15,PLCCIO	CIO START
	RF(NZ)	STERR2	EXIT IF ERROR
	ABL	PLDSP2	LOCAL DISPATCHER
* 
* 
*    ENTRY TO OPLRST WILL BE MADE WHEN THE OPEN LINE
*    OPERATION IS COMPLETED.
*      REGISTER CONTENTS ON ENTRY:
*	A1  =	PLC STATUS
*	A5  =	CWT ADDRESS 
* 
OPLRST	EQU	*
	LDR	A1,A1	OPERATION OK?
	RF(NZ)	STERR2	NO, EXIT 
* 
	LD	A2,CWTPNR,A5	GET PLC NR 
	SUK	A2,3	CHECK IF LOCAL
	RF(NP)	ST159	YES 
	IM	CWTLNO,A5	INCREMENT LINE NUMBER 
	LD	A2,CWTLNO,A5	GET LINE NO
	SUK	A2,4	ALL LINES OPENED ?
	RB(NZ)	ST157	NO, TAKE NEXT 
	CM	CWTLNO,A5 
ST159	EQU	* 
* 
	CM	CWTGR,A5	INDICATE GENERAL READ ALLOWED
* 
*    PERFORM OPEN DATA LINK FOR ALL CONNECTED SECONDARIES 
* 
	LDK	A6,MAXWS+1	(MAX NR OF DLS) + 1 
ST160	EQU	* 
	SUK	A6,1	NEXT WORK STATION (DLS) 
	RF(N)	ST180	EXIT IF ALL DONE 
	LD*	A1,CWTINT,A5	WORK STATION TABLE
	CF	A15,NDGEDN	A7 := HIGEST DWT NUMBER ON WS
	LDR	A7,A7	ANY DWT:S? 
	RB(N)	ST160	NO, TAKE NEXT WS 
* 
	CF	A15,PLCCCA	RESERVE CCA
	LDR	A3,A6	WORK STATION NUMBER
	SLA	A3,1	MAKE INDEX
	ADR	A3,A5	ADD CWT ADDRESS
	CM	CWTWSS,A3	CLEAR WS STATUS 
	SC	A6,CWTCCA+CCRDLS,A5	DLS INDEX (WS NUMBER) TO CCA
	ST	A6,CWTCCA+CCRIDW,A5	SAVE DLS INDEX
	LDK	A2,CMDOD	COMMAND OPEN DLS
	SC	A2,CWTCCA+CCRCMD,A5	TO CCA
	LDK	A2,MAXFR	MAX OUTSTANDING FRAMES
	SC	A2,CWTCCA+CCRSU1,A5	TO SUBCOMMAND 1 
	CM	CWTCCA+CCRC1B,A5	RESET DATA CHAINING
	CF	A15,PLCCIO	CIO START
	RF(NZ)	STERR2	EXIT IF ERROR
	ABL	PLDSP2	EXIT. WAIT FOR COMPLETION 
* 
* 
*    ENTRY TO ODLRST IS MADE WHEN OPERATION IS COMPLETED. 
*      REGISTER CONTENTS ON ENTRY:
*	A2  =	FATAL PLC STATUS
*	A5  =	CWT ADDRESS 
*	A6  =	WORK STATION NUMBER (DLS INDEX) 
* 
ODLRST	EQU	*
	LDR	A2,A2	FATAL ERROR? 
	RF(NZ)	STERR2	YES, EXIT
	LD*	A3,CWTINT,A5	WORK STATION TABLE ADDRESS
	LDK	A4,RETCP	FLAG "TC POWER UP"
	CF	A15,NDREWS	RECOVERY OF ALL DWT:S ON WS
	RB	ST160	TAKE NEXT WORK STATION
* 
* 
ST180	EQU	* 
*    ALL DATA LINKS ARE STARTED. EXIT.
	ABL	PLDSP2	LOCAL DISPATCHER
* 
* 
STERR2	EQU	*
*    ERROR DURING STARTUP. EXIT.
* 
	ABL	TDISP	EXIT 
* 
	EJECT
* 
********************
* LOCAL DISPATCHER *
********************
* 
*   THIS SECTION CONTAINS A DISPATCHER FOR THE PLC DRIVER.
*   IT CAN BE CALLED EITHER FROM ANOTHER ROUTINE IN THE 
*   PLC DRIVER, OR FROM A TERMINAL DEVICE DRIVER (THROUGH 
*   THE NETWORK DISTRIBUTOR). 
*   SOME INTERRUPTS OR DEVICE DRIVER CALLS SET SEVERAL
*   RESOURCES FREE. THIS MEANS THAT SEVERAL WAITING 
*   PROCERSSES MAY BECOME READY FOR ACTIVATION. ONLY ONE
*   OF THESE PROCESSES CAN BE ACTIVATED DIRECTLY. THE 
*   OTHER PROCESSES WILL BE ACTIVATED IN TURN, WHEN FIRST 
*   PROCESS EXITS TO THIS DISPATCHER. 
* 
* 
*   ROUTINES IN ORDER OF APPEARANCE IN CODE:
* 
*	NAME	FUNCTION 
* 
*	PLDISP	ACTIVATE PROCESS OR PERFORM COMMON FUNCTION
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLDISP
* 
* FUNCTION: 
*	THIS ROUTINE LOOKS FOR WAITING PROCESSES THAT ARE 
*	READY FOR DISPATCHING. IF ANY IS FOUND, IT IS 
*	ACTIVATED. THE ROUTINE ALSO PERFORMS ACTIONS THAT 
*	ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG
*	GENERAL READ. WHEN NOTHING IS LEFT TO DO, THE ROUTINE 
*	EXITS TO TOSS DISPATCHER. 
*	TWO ENTRIES ARE PROVIDED. ONE IS USED WHEN CALLER 
*	KNOWS OWN DWT ADDRESS, ONE WHEN CALLER KNOWS OWN
*	CWT ADDRESS.
* 
* CALL: 
*	ABL	PLDISP
*	ABL	PLDSP2
* 
* INPUT:
*	A5  =	CWT ADDRESS (IF PLDSP2) 
*	A6  =	DWT ADDRESS (IF PLDISP) 
*	A1-A8 ON A15 STACK
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
PLDISP	EQU	*
PRDISP	EQU	*
	CF	A15,GETCWT	A5 := CWT ADDRESS
	LDR	A5,A5
	ABL(Z)	TDISP	NOT DEFINED. EXIT 
* 
* 
PLDSP2	EQU	*
* 
* 
DP100	EQU	* 
	ENB
*    HANDLE CHARACTER INPUT 
	LD	A4,CWTBUF,A5	INPUT BUFFER WAITING?
	RF(Z)	DP200	NO, CONTINUE 
	LD	A6,BUFDWT,A4	DWT ADDRESS
* 
	CF	A15,PLGECH	A2 := CHARACTER
	LDR	A1,A1	CHECK RETURN CODE
	RF(N)	DP110	BUFFER EMPTY 
	LD	A3,DWTST,A6	DEVICE STATUS 
	ANK	A3,DWFINP	INPUT REQUESTED? 
	ABL(NZ)	INPRST	YES, RETURN TO DEVICE DRIVER
* 
	LD	A1,DWTADR,A6	ADDRESS BLOCK
	LD	A1,INTADR,A1	INTERRUPT ENTRY DEFINED? 
	ABR(NZ)	A1	YES, GO TO INTERRUPT HANDLER
* 
DP110	EQU	* 
	CW	A4,DWTLD1,A6	BUFFER CHAINED TO THIS DWT?
	RF(NE)	DP120	NO, CONTINUE
	CM	DWTLD1,A6	REMOVE LINK 
DP120	EQU	* 
	CM	CWTBUF,A5	NO BUFFER WAITING 
	CF	A15,PLRLBU	RELEASE BUFFER 
* 
*      CHECK IF LEVEL 3 RECIEVE READY SHOULD BE SENT
	CF	A15,GETIFR	A2 := NR OF FRAMES NOT ACK:ED
	SUK	A2,6	TIME TO SEND RR?
	ABL(NN)	SENDRR	YES 
* 
* 
DP200	EQU	* 
	ENB
*    HANDLE POWER UP FOR TC 
	LD	A1,PFPOST	POWER UP TASK PENDING?
	OR	A1,PLCPFP	PLC POWER UP PENDING? 
	ABL(NZ)	TDISP	YES, EXIT
* 
* 
DP300	EQU	* 
*    HANDLE ABORT OF ONE WORK STATION 
	LD	A6,CWTABW,A5	WS TO ABORT, IF ANY
	ABL(NZ)	ABTHAN	DO ABORT, IF REQUESTED
* 
* 
DP400	EQU	* 
*    CHECK IF ANYONE WAITING FOR CCA
	LD	A4,CWTCCQ,A5	ANYONE IN CCA QUEUE? 
	RF(Z)	DP500	NO, CONTINUE 
	LD	A1,CWTCCB,A5	CCA FREE?
	RF(NZ)	DP500	NO, CONTINUE
	IM	CWTCCB,A5	SET CCA BUSY
	ABL	CCARST	ACTIVATE WAITING PROCESS
* 
* 
DP500	EQU	* 
*    CHECK BUFFER QUEUES
	LD	A6,CWTSBQ,A5	ANYONE IN SHORT BUFFERS QUEUE? 
	RF(Z)	DP510	NO, CHECK LONG 
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTPBS	POOLBLOCK FOR SHORT BUFFERS
	CF	A15,PLGTBU	A4 := BUFFER ADDRESS 
	RF(Z)	DP510	NO BUFFER AVAILABLE
	LDK	A7,CWTSBQ	OFFSET TO CWT QUEUE HEAD 
	RF	DP520	COMMON PART FOR SHORT/LONG
* 
DP510	EQU	* 
	LD	A6,CWTLBQ,A5	ANYONE IN LONG BUFFERS QUEUE?
	RF(Z)	DP600	NO, CONTINUE 
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTPBL	POOLBLOCK FOR LONG BUFFERS 
	CF	A15,PLGTBU	A4 := BUFFER ADDRESS 
	RF(Z)	DP600	CONTINUE IF NO BUFFER AVAILABLE
	LDK	A7,CWTLBQ	OFFSET TO LONG BUFFERS QUEUE HEAD
* 
DP520	EQU	* 
*      SHORT OR LONG BUFFER FOUND 
	LDR	A2,A4	SAVE BUFFER ADDRESS
	LDR	A4,A6	DWT QUEUE LINK 
	ADR	A7,A5	BUFFER QUEUE HEAD
	CF	A15,LNKOUT	REMOVE FROM QUEUE
	SUKL	A6,DWTOTQ	A6 := DWT ADDRESS 
	LDR	A4,A2	RESTORE BUFFER ADDRESS 
	LDK	A1,0	RET CODE := OK
	ABL	BUFRST	RETURN TO ROUTINE WAITING 
* 
* 
DP600	EQU	* 
*    CHECK IF GENERAL READ SHOULD BE PERFORMED
	LD	A1,CWTGR,A5	GENERAL READ ALLOWED? 
	RF(NZ)	DP800	NO, EXIT
* 
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTPBG	POOLBLOCK FOR GENERAL READ BUFFERS 
	CF	A15,PLGTBU	A4 := BUFFER ADDRESS 
	ABL(NZ)	GREAD	PERFORM GR IF BUFFER FOUND 
* 
* 
DP800	EQU	* 
*    NOTHING MORE TO DO. EXIT TO DISPATCHER 
	ABL	TDISP	TOSS DISPATCHER
* 
	EJECT
* 
************
* ROUTINES *
************
* 
*   THIS SECTION CONTAINS MISCELLANEOUS SERVICE ROUTINES. 
*   ALL ROUTINES ARE CALLED BY AN   ABL   "NAME" INSTRUCTION. 
*   REGISTER INTERFACE IS DESCRIBED FOR EACH ROUTINE. 
*   WHEN A ROUTINE HAS PERFORMED THE REQUESTED FUNCTION,
*   IT WILL EXIT TO THE LOCAL DISPATCHER. 
* 
*   ROUTINES IN ORDER OF APPEARANCE IN CODE:
* 
*	NAME	FUNCTION 
* 
*	ABTHAN	ABORT ALL WAITING DWT:S ON A WORK STATION
*	PLREWS	HANDLE RECOVERY OF ONE WORK STATION
*	SENDRR	SEND LEVEL 3 RECIEVE READY MESSAGE 
*	GREAD	PERFORM GENERAL READ
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	ABTHAN
* 
* FUNCTION: 
*	THIS ROUTINE WILL HANDLE ABORTS FOR ONE WORK
*	STATION. ALL REQUESTS OF DWT:S WAITING FOR
*	LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES
*	WILL BE ABORTED. ONE CALL IS NEEDED FOR EACH
*	REQUEST TO BE ABORTED.
* 
* CALL: 
*	ABL	ABTHAN
* 
* INPUT:
*	A5  =	CWT ADDRESS 
*	A6  =	WORK STATION NUMBER 
* 
* OUTPUT: 
*      AT RETURN TO REQUEST:
*	A1  =	RETURN CODE 
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
************************************************************
* 
ABTHAN	EQU	*
	LDR	A3,A6	WORK STATION NUMBER
	SLA	A3,1	MAKE INDEX
	ADR	A3,A5	ADD CWT ADDRESS
	ADK	A3,CWTWSS	A3 := ADDRESS OF STATUS FOR WS 
* 
	EJECT
* 
	LDR	A8,A6	SAVE WS NUMBER 
	LD*	A1,CWTINT,A5	WORK STATION TABLE
	CF	A15,NDGEDN	A7 := HIGEST DWT NR ON WS
	LDK	A1,0 
	LCR	A1,A3	WORK STATION STATUS
* 
	ADK	A7,1	PREPARE FOR SUK 
AH100	EQU	* 
	SUK	A7,1	NEXT DWT
	RF(N)	AH110	EXIT IF ALL DONE 
	LDR	A6,A8	WS NUMBER
	CF	A15,GETDWT	A6 := DWT ADDRESS
	RB(Z)	AH100	NOT DEFINED
* 
	CM	DWTLD2,A6	RESET FLOW CONTROL
	LD	A2,DWTST,A6	DWT STATUS
	LDR	A3,A2
	LDKL	A4,/FFFF-DWFPLC	MASK FOR PLC FLAGS
	ANS	A4,DWTST,A6	RESET FLAGS
	ANK	A2,DWFAK3	IS DWT WAITING FOR LEVEL 3 ACK?
	RF(Z)	AH105	NO, CONTINUE 
	ANK	A3,DWFSAC	ALWAYS WAIT FOR LEVEL 3 ACK? 
	ABL(NZ)	AK3RST	YES, RETURN WITH ACK 3
	ABL	WINRST	NO, RETURN TO WINDOW QUEUE
* 
AH105	EQU	* 
	LD	A4,DWTOTQ,A6	CCA QUEUE ELEMENT POINTER
	LDR	A2,A7	SAVE DEVICE ADDRESS
	LDR	A3,A1	SAVE RETURN CODE 
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTCCQ	CCA QUEUE HEAD 
	CF	A15,LNKOUT	LINK MONITOR BLOCK OUT OF QUEUE
	LDR	A7,A7	FOUND? 
	ABL(NZ)	CCAABT	YES, ABORT REQUEST
	LDR	A7,A2	RESTORE DEVICE ADDRESS 
	LDR	A1,A3	RESTORE RETURN CODE
* 
	CF	A15,OUTBUQ	REMOVE FROM BUFFER QUEUE 
	LDR	A2,A2	FOUND IN QUEUE?
	ABL(NZ)	BUFRST	YES, TERMINATE REQUEST
	RB	AH100	NEXT DWT
* 
AH110	EQU	* 
*    ALL PROCESSES WAITING FOR ACK 3 OR IN QUEUES ARE ABORTED 
	CM	CWTABW,A5	NO MORE ABORT 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLREWS
* 
* FUNCTION: 
*	THIS ROUTINE WILL HANDLE RECOVERY OF ONE WORK 
*	STATION. ACTUAL CALL TO TERMINAL DEVICE DRIVER
*	RECOVERY ROUTINES ARE MADE THROUGH NDREWS.
* 
* CALL: 
*	ABL	PLREWS
* 
* INPUT:
*	A5  =	CWT ADDRESS 
*	A6  =	WORK STATION NUMBER 
* 
* OUTPUT: 
*      AT ENTRY TO DEVICE RECOVERY: 
*	SEE NDREWS
* 
************************************************************
* 
PLREWS	EQU	*
	LDR	A3,A6	WORK STATION NUMBER
	SLA	A3,1	MAKE INDEX
	ADR	A3,A5	ADD CWT ADDRESS
	ADK	A3,CWTWSS	A3 := ADDRESS OF STATUS FOR WS 
* 
	LDKL	A2,/FFFF-WSFERR	MASK FOR ERROR FLAG 
	ANRS	A2,A3	INDICATE WS WORKING AFTER ERROR 
	LCR	A1,A3	WS STATUS
	LDK	A2,0 
	SCR	A2,A3	RESET STATUS 
	LDK	A4,RESECP	ASSUME SECONDARY POWER UP
	ANK	A1,NOTOPR	WAS IT?
	RF(NZ)	PR110	YES 
	LDK	A4,RELINE	NO, LINK ERROR 
PR110	EQU	* 
	LD*	A3,CWTINT,A5	WORK STATION TABLE
	CF	A15,NDREWS	CALL RECOVERY FOR ALL DWT:S ON WS
* 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	SENDRR
* 
* FUNCTION: 
*	THIS ROUTINE WILL SEND ONE LEVEL 3 RECIEVE READY
*	MESSAGE TO A SECONDARY STATION. 
* 
* CALL: 
*	ABL	SENDRR
* 
* INPUT:
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
SENDRR	EQU	*
	CF	A15,PLCCCA	RESERVE CCA
	CF	A15,GETBLK	GET MONITOR BLOCK AS BUFFER
	ENB
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTMBQ	QUEUE FOR KEEPING TRACK OF MB:S
	CF	A15,LNKFST	PUT MONITOR BLOCK IN QUEUE 
	ADK	A4,2	A4 := START OF USER PART
	CF	A15,WRADR2	WRITE LINE ADDRESS IN CCA & BUFFER 
	LDK	A2,CMDSW	COMMAND := STANDARD WRITE 
	SC	A2,CWTCCA+CCRCMD,A5	TO CCA
	LDK	A2,TYRR	MESSAGE TYPE := RECIEVE READY
	SC	A2,CWTCCA+CCRIDB,A5	TO CCA, IDENTITY
	LDK	A2,X25DAT	LENGTH OF X25 HEADER 
	ST	A2,CWTCCA+CCRLEN,A5	BUFFER LENGTH TO CCA
	CM	CWTCCA+CCRC1B,A5	RESET DATA CHAIN & MSB BUFFER ADDR 
	ST	A4,CWTCCA+CCRBUF,A5	BUFFER ADDRESS TO CCA 
* 
	CF	A15,GETLCS	A1 := STATUS & INH 
	RF(Z)	RR100	CONTINUE IF OK 
	CM	CWTCCB,A5	SET CCA FREE
	RF	RR110	SKIP RR 
RR100	EQU	* 
	CF	A15,FWOPR	A2 := P(R). UPDATE FLOW CTRL
	ORK	A2,/01	MESSAGE TYPE := RR
	SC	A2,X25FLW,A4	TO BUFFER
	CF	A15,PLCCIO	EXECUTE CIO START
	RF(Z)	RR120	EXIT IF OK 
RR110	EQU	* 
	SUK	A4,2	START ADDRESS OF MONITOR BLOCK
	CF	A15,LNKOUT	REMOVE FROM QUEUE. A7 ALREADY SET
	CF	A15,FREBLK	RETURN MONITOR BLOCK 
* 
RR120	EQU	* 
	ABL	PLDSP2	LOCAL DISPATCHER
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GREAD 
* 
* FUNCTION: 
*	THIS ROUTINE WILL PERFORM ONE GENERAL READ
*	OPERATION TO THE PLC. 
* 
* CALL: 
*	ABL	GREAD 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
GREAD	EQU	* 
	LDR	A6,A4	PARAMETER := BUFFER ADDRESS
	CF	A15,PLCCCA	RESERVE PLC CCA
*      SET CCA PARAMETERS 
	CM	CWTCCA+CCRC1B,A5	CLEAR DATA CHAINING & MSB ADDR 
	ST	A6,CWTCCA+CCRBUF,A5	BUFFER ADDRESS
	LD	A2,BUFLEN,A6	BUFFER LENGTH
	ST	A2,CWTCCA+CCRLEN,A5 
	LDK	A2,CMDGR	COMMAND GENERAL READ
	ST	A2,CWTCCA+CCRDLS,A5	DLS INDEX & COMMAND 
	CF	A15,PLCCIO	EXECUTE CIO START
	ABL	PLDSP2	CHECK WHAT TO DO NEXT 
* 
	EJECT
* 
*************** 
* SUBROUTINES * 
*************** 
* 
*   THIS SECTION CONTAINS MISCELLANEOUS SERVICE SUBROUTINES.
*   ALL ROUTINES ARE CALLED BY A   CF  A15,"NAME" 
*   INSTRUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH 
*   ROUTINE. ONLY REGISTERS A1-A8 & PSW ARE CONSIDERED. 
*   REGISTERS NOT MENTIONED UNDER "OUTPUT" ARE UNCHANGED
*   FROM CALL.
*   THE ROUTINES ARE OF TWO TYPES, ASYNCHRONOUS ROUTINES
*   AND COMPUTATION ROUTINES. ASYNCHRONOUS ROUTINES MAY,
*   IF THE REQUESTED FUNCTION IS OCCUPIED OR NOT USEABLE, 
*   EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER.
*   THIS MEANS THAT THE A15 STACK AT CALL MUST CONTAIN
*   INTERRUPT RETURN, A1-A8 AND NOTHING ELSE. COMPUTATION 
*   ROUTINES HAVE NO SUCH LIMITATIONS, AS THEY WILL RETURN
*   IMMEDIATELY WHEN THEY HAVE PERFORMED THE PROCESSING.
* 
	EJECT
* 
*   ROUTINES IN ORDER OF APPEARANCE IN CODE:
* 
*	NAME	FUNCTION 
* 
*      ASYNCHRONOUS ROUTINES
*	PLCCCA	RESERVE CCA FOR PROCESS
*	PLCCIO	EXECUTE CIO START
* 
*      COMPUTATION ROUTINES 
*	PLCNOP	SET FLAG INDICATING PLC NOT OPERABLE 
*	GETDWT	CALCULATE DWT ADDRESS
*	GETCWT	CALCULATE CWT ADDRESS
*	GETFR	GET NUMBER OF OUTSTANDING FRAMES
*	FLWINP	HANDLE FLOW CONTROL FOR INPUT
*	FLWOUT	HANDLE FLOW CONTROL FOR OUTPUT 
*	WRADDR	WRITE LINE ADDRESS IN CCA AND BUFFER 
*	STAHAN	PLC RETURN STATUS HANDLER
*	GETSTA	GET STATUS FOR I/O CONNECTION
*	PLGTBU	ALLOCATE BUFFER AND SET TO PLC FORMAT
*	PLRLBU	RELEASE BUFFER OF PLC FORMAT 
*	PLCHAR	GET/PUT CHARACTER FROM/IN PLC FORMAT BUFFER
*	INTYPE	DECIDE TYPE OF INPUT MESSAGE 
*	OUTBUQ	REMOVE ELEMENT FROM BUFFER QUEUE 
*	LNKFST	LINK ELEMENT FIRST IN QUEUE
*	LNKLST	LINK ELEMENT LAST IN QUEUE 
*	LNKOUT	LINK ELEMENT OUT OF QUEUE
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLCCCA
* 
* FUNCTION: 
*	THIS ROUTINE IS CALLED WHEN A PROCESS WANTS TO
*	USE THE PLC COMMAND COMMUNICATION AREA (CCA). 
*	IF THE AREA IS FREE, THE ROUTINE SETS IT BUSY 
*	AND RETURNS. IF THE AREA IS BUSY, THE CALLING 
*	PROCESS IS PUT IN A QUEUE, AND EXIT IS MADE TO
*	THE LOCAL DISPATCHER. 
*	PLCCCA ONLY RESERVES THE AREA.
*	PLCCCS ALSO SAVES THE QUEUE ELEMENT ADDRESS.
* 
* CALL: 
*	CF	A15,PLCCCA 
*	CF	A15,PLCCCS 
* 
* INPUT:
*	A3  =	QUEUE ELEMENT ADDRESS SAVE AREA (IF PLCCCS) 
*	A5  =	CWT ADDRESS 
*	A6  =	PARAMETER 
*	A1-A8 ON A15 STACK
* 
* OUTPUT: 
*	A1  =	RETURN CODE (IF PLCCCS, ELSE CHANGED) 
*	A2-A4	CHANGED 
*	A7-A8	CHANGED 
*	CR  =	CHANGED 
*	INTERR.	INHIBITED 
* 
************************************************************
* 
	EJECT
* 
PLCCCA	EQU	*
	LDK	A3,0	DON'T SAVE QUEUE ELEMENT ADDRESS
* 
PLCCCS	EQU	*
	INH
	LD	A1,CWTCCQ,A5	ANYONE WAITING FOR CCA?
	RF(NZ)	CA100	YES, PUT IN QUEUE 
	LD	A4,CWTCCB,A5	PLC BUSY?
	RF(NZ)	CA100	YES, PUT IN QUEUE 
* 
*    PLC FREE 
	IM	CWTCCB,A5	SET PLC BUSY
	ADKL	A15,4	ADJUST STACK FOR RETURN 
	LDK	A1,0	RETURN CODE := OK 
	ABR*	A15	RETURN IN INHIBIT MODE
* 
* 
CA100	EQU	* 
*    PLC BUSY. PUT REQUEST IN QUEUE.
	LDR	A1,A6	SAVE PARAMETER 
	LDR*	A2,A15	SKIP PSW 
	LDR*	A2,A15	SAVE RETURN ADDRESS
	CF	A15,GETBLK	GET MONITOR BLOCK AND SAVE A1-A2 
	LDR	A3,A3	SAVE POINTER?
	RF(Z)	CA110	NO, CONTINUE 
	STR	A4,A3	SAVE QUEUE ELEMENT ADDRESS 
CA110	EQU	* 
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTCCQ	PLC BUSY QUEUE HEAD
	CF	A15,LNKLST	PUT BLOCK LAST IN QUEUE
	IFF	UTTEST=0	QUEUE STATISTICS
	LD	A1,CWTPNR,A5	PLC NUMBER 
	SLA	A1,1	MAKE INDEX
	IM	CCQSTA,A1	INCREMENT QUEUE STATISTICS COUNTER
	XIF
	ABL	PLDSP2	LOCAL DISPATCHER
* 
* 
*    RETURN IS MADE HERE WHEN THE CCA IS FREE.
*    (AT A RELEASE INTERRUPT OR FROM DISPATCHER.) 
*      REGISTERS ON ENTRY:
*	A4  =	MONITOR BLOCK ADDRESS 
*	A5  =	CWT ADDRESS 
* 
CCARST	EQU	*
	INH
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTCCQ	CCA QUEUE HEAD 
	CF	A15,LNKOUT	REMOVE PROCESS FROM QUEUE
	LDK	A3,0	RETURN CODE := OK 
* 
* 
*    ENTRY IS MADE HERE WHEN A REQUEST SHOULD BE ABORTED
*    DUE TO I/O ERROR.
*      REGISTERS ON ENTRY:
*	A3  =	RETURN CODE 
*	A4  =	MONITOR BLOCK ADDRESS 
*	A5  =	CWT ADDRESS 
* 
CCAABT	EQU	*
	INH
	LDR	A7,A3	SAVE RETURN CODE 
	CF	A15,FREBLK	RETURN MONITOR BLOCK. LOAD A1-A2 
	LDR	A6,A1	PARAMETER
	LDR	A1,A7	A1 := RETURN CODE
	ABR	A2	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLCCIO
* 
* FUNCTION: 
*	THIS ROUTINE CHECKS IF THE PLC CAN BE USED. IF IT CAN,
*	THE ROUTINE EXECUTES A CIO START INSTRUCTION. 
*	IF THE PLC IS NOT OPERABLE DUE TO TC POWER UP,
*	THE ROUTINE WILL EXIT TO TOSS DISPATCHER. IN ALL OTHER
*	CASES, IT WILL RETURN TO CALLING PROGRAM WITH A RETURN
*	CODE. 
* 
* CALL: 
*	CF	A15,PLCCIO 
* 
* INPUT:
*	A5  =	CWT ADDRESS 
*	A1-A8 ON A15 STACK
* 
* OUTPUT: 
*	A1  =	RETURN CODE 
*		 0 IF OK 
*		 NOT 0 ELSE
*	A2  =	CHANGED 
*	CR  =	CONTENTS OF A1
*	INTERR.	INHIBITED 
* 
************************************************************
* 
PLCCIO	EQU	*
	INH
	LDR*	A2,A15	SKIP PSW 
	LDR*	A2,A15	GET RETURN ADDRESS 
* 
	EJECT
* 
	LD	A1,PFPOST	POWER UP TASK PENDING?
	OR	A1,PLCPFP	PLC POWER UP PENDING? 
	ABL(NZ)	TDISP	YES, GO TO TOSS DISPATCHER 
	LD	A1,CWTOPR,A5	PLC OPERABLE?
	RF(NZ)	CS100	NO, HANDLE
	IFF	UTTEST=0 
	CF	A15,LOGCOM	LOG CCR
	XIF
	EX	CWTCIO,A5	EXECUTE CIO START 
	ABR(A)	A2	RETURN IF OK. A1=0 
* 
	CF	A15,PLCNOP	ERROR. SET NOT OPERABLE
CS100	EQU	* 
	LDK	A1,NOTOPR	RETURN CODE := NOT OPERABLE
	CM	CWTCCB,A5	SET CCA FREE
	LDR	A1,A1	SET CR 
	ABR	A2	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLCNOP
* 
* FUNCTION: 
*	THIS ROUTINE SETS A FLAG TO INDICATE THAT THE PLC 
*	IS "NOT OPERABLE".
* 
* CALL: 
*	CF	A15,PLCNOP 
* 
* INPUT:
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	- 
* 
************************************************************
* 
PLCNOP	EQU	*
	STR	A1,A15	PUSH A1 
	LD	A1,CWTPLS,A5	GET PLC STATUS 
	RF(NZ)	PN100 
	LDKL	A1,-1	SET DUMMY ERROR CODE
PN100	EQU	* 
	ST	A1,CWTOPR,A5	SET PLC NOT OPERABLE 
* 
	IFF	UTTEST=0 
* 
	EJECT
* 
	LD	A1,UTTST	TRAP CONTROL 
	SUK	A1,1	TRAP USED?
	RF(NG)	PN120	NO, SKIP
	LDK	A1,PLCERR	ERROR CODE 
	OTR	A1,0,/2E	TO SOP LAMPS
	DATA	/6300	TRAP TO BUGGER
PN120	EQU	* 
* 
	XIF
* 
	LDR*	A1,A15	POP A1 
	RTN	A15
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GETDWT
* 
* FUNCTION: 
*	THIS ROUTINE CALCULATES THE DWT ADDRESS FOR A 
*	DEVICE CONNECTED TO A PLC.
* 
* CALL: 
*	CF	A15,GETDWT 
* 
* INPUT:
*	A5  =	CWT ADDRESS 
*	A6  =	DLS INDEX 
*	A7  =	DEVICE ADDRESS
* 
* OUTPUT: 
*	A6  =	DWT ADDRESS IF FOUND, 
*		 ELSE 0
*	CR  =	CONTENTS OF A6
*	INTERR.	INHIBITED 
* 
************************************************************
* 
GETDWT	EQU	*
	INH
	STR	A1,A15	PUSH A1 
	LD*	A1,CWTINT,A5	WORK STATION TABLE
	CF	A15,NDGEDW	A6 := DWT ADDRESS
	LDR*	A1,A15	POP A1 
	ADKL	A15,4	ADJUST STACK FOR RETURN 
	ANKL	A6,/FFFE	SET CR & SKIP ODD ADDRESS
	ABR*	A15	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GETCWT
* 
* FUNCTION: 
*	THIS ROUTINE CALCULATES THE CWT ADDRESS FOR 
*	THE PLC CONTROLLING CALLING DEVICE. 
* 
* CALL: 
*	CF	A15,GETCWT 
* 
* INPUT:
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A5  =	CWT ADDRESS IF FOUND, 
*		 ELSE 0
*	A7  =	0 IF LOCAL CONNECTION 
*	CR  =	CHANGED 
* 
************************************************************
* 
GETCWT	EQU	*
	LD	A5,DWTCHP,A6	CHANNEL PARAMETERS 
	ANK	A5,MASKPL	CLEAN CHANNEL UNIT INDEX 
	SLL	A5,1	MAKE INDEX
	IFF	PLCNRR=0 
	IFF	PLCNRL=0 
	LDR*	A7,A6	CHANNEL PARAMETER 
	SUKL	A7,/0500	REMOTE ? 
	RF(Z)	GET010	NO
	ADK	A5,8	ADJUST INDEX FOR REMOTE 
	XIF
GET010	LD	A5,TABCWT,A5	A5 := CWT ADDRESS
* 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GETFR 
* 
* FUNCTION: 
*	THIS ROUTINE CALCULATES THE NUMBER OF OUTSTANDING 
*	FRAMES, IE FRAMES THAT HAVE BEEN TRANSFERRED BUT
*	NOT ACKNOWLEDGED ON LEVEL 3, FOR A LOGICAL
*	CHANNEL.
*	GETIFR GETS NUMBER OF FRAMES RECIEVED BY PLC. 
*	GETOFR GETS NUMBER OF FRAMES SENT BY PLC. 
* 
* CALL: 
*	CF	A15,GETIFR 
*	CF	A15,GETOFR 
* 
* INPUT:
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	CHANGED 
*	A2  =	NUMBER OF OUTSTANDING FRAMES
*	CR  =	CHANGED 
* 
************************************************************
* 
GETIFR	EQU	*
	LD	A2,DWTLD2,A6	FLOW CONTROL COUNTERS
	LDR	A1,A2
	SRL	A2,9	BITS 13-15 := NEXT EXPECTED P(S)
	SRL	A1,5	BITS 13-15 := LAST SENT P(R)
	RF	GF100	TO COMMON PART
* 
	EJECT
* 
GETOFR	EQU	*
	LD	A2,DWTLD2,A6	FLOW CONTROL COUNTERS
	LDR	A1,A2
	SRL	A2,1	BITS 13-15 := NEXT P(S) TO SEND 
	SLC	A1,3	BITS 13-15 := LAST RECIEVED P(R)
* 
* 
GF100	EQU	* 
	SUR	A2,A1	A2 := OUTSTANDING FRAMES 
	ANK	A2,/07	CLEAN & MODULO 8
* 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
* 
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	FLWINP
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES FLOW CONTROL FOR INPUT. IT FETCHES 
*	FLOW CONTROL INFORMATION FROM MESSAGE AND UPDATES 
*	COUNTERS IN DWT.
*	FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). 
*	FWIPSR IS FOR MESSAGES CONTAINING P(S) AND P(R).
*	NO ERROR CHECK IS MADE. 
* 
* CALL: 
*	CF	A15,FWIPR
*	CF	A15,FWIPSR 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	CHANGED 
*	CR  =	CHANGED 
* 
************************************************************
* 
FWIPR	EQU	* 
	STR	A2,A15	PUSH A2 
	LC	A1,X25FLW,A4	FLOW CONTROL FROM INPUT
	ANK	A1,/E0	BITS 8-10 = P(R) IN 
	LC	A2,DWTLD2,A6	OLD FLOW CONTROL 
	ANK	A2,/0E	BITS 12-14 = OLD P(S) IN
	ORR	A1,A2	KEEP OLD P(S)
	LDR*	A2,A15	POP A2 
	RF	FI100	COMMON ENDING 
* 
* 
FWIPSR	EQU	*
	LC	A1,X25FLW,A4	FLOW CONTROL FROM INPUT
	ANK	A1,/EE	CLEAN 
	ADK	A1,/02	BITS 12-14 := NEXT EXPECTED P(S) IN 
	ANK	A1,/EE	MODULO 8
* 
* 
FI100	EQU	* 
	SC	A1,DWTLD2,A6	SAVE NEW FLOW CONTROL
* 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
* 
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	FLWOUT
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES FLOW CONTROL FOR OUTPUT. FLOW
*	CONTROL INFORMATION IS FETCHED FROM DWT, AND COUNTERS 
*	IN DWT ARE UPDATED. 
*	FWOPR IS FOR MESSAGES CONTAINING ONLY P(R). 
*	FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R).
* 
* CALL: 
*	CF	A15,FWOPR
*	CF	A15,FWOPSR 
* 
* INPUT:
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	CHANGED 
*	A2  =	BITS 0-7  ZERO
*		BITS 8-10  P(R) TO SEND
*		BIT 11  ZERO 
*		BITS 12-14  P(S) TO SEND IF FWOPSR 
*		             ELSE ZERO 
*		BIT 15  ZERO 
*	CR  =	CHANGED 
* 
************************************************************
* 
FWOPR	EQU	* 
	LD	A2,DWTLD2,A6	FLOW CONTROL COUNTERS
	LDR	A1,A2
	SRL	A2,4	BITS 8-10 := NEXT EXPECTED P(S) IN
*			 (= P(R) TO SEND) 
	ANK	A2,/E0	CLEAN 
	ANK	A1,/0E	BITS 12-14 = NEXT P(S) TO SEND
	ORR	A1,A2	P(S) := SAME AS BEFORE 
	RF	FO100	COMMON ENDING 
* 
* 
FWOPSR	EQU	*
	LD	A2,DWTLD2,A6	FLOW CONTROL COUNTERS
	LDR	A1,A2
	SRL	A2,4	BITS 8-10 := NEXT EXPECTED P(S) IN
*			 (= P(R) TO SEND) 
	ANK	A2,/E0	CLEAN 
	ANK	A1,/0E	BITS 12-14 = NEXT P(S) TO SEND
	ORR	A2,A1	COUNTERS FOR MESSAGE 
	LDR	A1,A2
	ADK	A1,/02	INCREMENT P(S) TO SEND
	ANK	A1,/EE	MODULO 8
* 
* 
FO100	EQU	* 
	SC	A1,DWTLD2+1,A6	SAVE FLOW CONTROL COUNTERS 
* 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
* 
	IFF	CPU852=1 
	RTN	A15
	XIF
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	WRADDR
* 
* FUNCTION: 
*	THIS ROUTINE WRITES THE LINE ADDRESS IN A 
*	MESSAGE. THE ADDRESS CONSISTS OF: DROP ADDRESS, 
*	GROUP NUMBER AND DEVICE ADDRESS. WRADR1 SETS
*	GROUP=1 INDICATING NO FLOW CONTROL, WRADR2 SETS 
*	GROUP=0 INDICATING FLOW CONTROL.
* 
* CALL: 
*	CF	A15,WRADR1 
*	CF	A15,WRADR2 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A2  =	CHANGED 
*	CR  =	CHANGED 
* 
************************************************************
* 
WRADR1	EQU	*
	LDK	A2,/11	GROUP NUMBER 1
	RF	WA100	TO COMMON PART
* 
	EJECT
* 
WRADR2	EQU	*
	LDK	A2,/10	GROUP NUMBER 0
* 
* 
WA100	EQU	* 
	SC	A2,X25LGN,A4	GROUP NUMBER TO BUFFER 
	LC	A2,DWTCP2,A6	CHANNEL PARAMETERS 
	ANK	A2,MASKWS	CLEAN WS NUMBER
	SC	A2,CWTCCA+CCRDLS,A5	TO CCA
	LC	A2,DWTCP2+1,A6
	ANK	A2,MASKLC	CLEAN DEVICE ADDRESS 
	SC	A2,X25LCN,A4	TO BUFFER
* 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
* 
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	STAHAN
* 
* FUNCTION: 
*	THIS ROUTINE HANDLES PLC STATUS WORD FOR ONE
*	WORK STATION. IF "NO CONNECTION", "LINK RESET"
*	OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR
*	CODE WILL BE
*	SET IN THE WORK STATION STATUS WORD (CWTWSS). 
*	OTHER STATUS BITS ARE NOT ALLOWED.
* 
* CALL: 
*	CF	A15,STAHAN 
* 
* INPUT:
*	A1  =	PLC STATUS
*	A2  =	WORK STATION NUMBER 
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	DEVICE RETURN CODE
*	CR  =	CHANGED 
* 
************************************************************
* 
STAHAN	EQU	*
	STR	A3,A15	PUSH A3 
	LDR	A3,A1	ANY ERROR? 
	RF(Z)	SH120	NO, RETURN 
	STR	A4,A15	PUSH A4 
* 
	EJECT
* 
	LDK	A1,NOTOPR	ASSUME NO CONNECTION 
	ANKL	A3,STADNO+STANOC	IS IT? 
	RF(NZ)	SH100	YES, CONTINUE 
	LDK	A1,LINERR	NO, LINK ERROR 
SH100	EQU	* 
	LDR	A3,A2	WORK STATION NUMBER
	SLA	A3,1	MAKE INDEX
	ADR	A3,A5	ADD CWT ADDRESS
	ADK	A3,CWTWSS	A3 := ADDRESS OF STATUS FOR WS 
	SCR	A1,A3	SAVE ERROR CODE
	LDK	A4,WSFERR	WORK STATION ERROR 
	ANR*	A4,A3	ALREADY DETECTED? 
	RF(NZ)	SH110	YES, RETURN 
	LDK	A4,WSFERR
	ORRS	A4,A3	SET ERROR DETECTED
	ST	A2,CWTABW,A5	INDICATE ABORT DWT:S FOR WS
* 
SH110	EQU	* 
	LDR*	A4,A15	POP A4 
SH120	EQU	* 
	LDR*	A3,A15	POP A3 
* 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GETSTA
* 
* FUNCTION: 
*	THIS ROUTINE WILL CHECK THE I/O STATUS FOR
*	A DEVICE. 
*	GETWSS WILL ONLY CHECK THE STATUS FOR THE 
*	WORK STATION CONNECTION.
*	GETLCS WILL CHECK BOTH LOGICAL CHANNEL AND
*	WORK STATION STATUS.
* 
* CALL: 
*	CF	A15,GETLCS 
*	CF	A15,GETWSS 
* 
* INPUT:
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A1  =	RETURN CODE 
*	CR  =	CONTENTS OF A1
*	INTERR.	INHIBITED 
* 
************************************************************
* 
GETLCS	EQU	*
	INH
	STR	A3,A15	PUSH A3 
* 
	LDK	A1,LINERR	SET RETURN CODE IN CASE
	LD	A3,DWTST,A6	DWT STATUS
	ANK	A3,DWFRES	RESET PACKET RECIEVED? 
	RF(NZ)	LS110	YES, RETURN. RET CODE = LINERR
	RF	LS100	NOT RESET. CHECK WSS
* 
* 
GETWSS	EQU	*
	INH
	STR	A3,A15	PUSH A3 
* 
* 
LS100	EQU	* 
	LC	A3,DWTCP2,A6	WS NUMBER
	ANK	A3,MASKWS	CLEAN
	SLA	A3,1	MAKE INDEX
	ADR	A3,A5	CWT ADDRESS
	LC	A1,CWTWSS,A3	WS STATUS
* 
* 
LS110	EQU	* 
	LDR*	A3,A15	POP A3 
	ADKL	A15,4	ADJUST STACK
	ANK	A1,/FF	CLEAN RETURN CODE & SET CR
	ABR*	A15	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLGTBU
* 
* FUNCTION: 
*	THIS ROUTINE WILL ALLOCATE A BUFFER AND FORMAT IT 
*	ACCORDING TO THE FORMAT USED BY THIS DRIVER.
* 
* CALL: 
*	CF	A15,PLGTBU 
* 
* INPUT:
*	A7  =	POOLBLOCK ADDRESS 
* 
* OUTPUT: 
*	A2  =	LENGTH OF USER PART OF BUFFER 
*	A4  =	START OF USER PART OF BUFFER (IF ANY) 
*	CR  =	NOT 0 IF BUFFER ALLOCATED 
*		0 IF NO BUFFER ALLOCATED 
*	INTERR.	INHIBITED 
* 
************************************************************
* 
PLGTBU	EQU	*
	LDR*	A2,A15	SKIP PSW 
	LDR*	A2,A15	GET RETURN ADDRESS 
	CF	A15,GETBUF	A4 := BUFFER. INH
	ABR(Z)	A2	RETURN IF NO BUFFER
* 
	ST	A2,0,A15	SAVE RETURN ADDRESS
	ADK	A4,BUFHLN	START OF USER PART 
	ST	A7,BUFLNK,A4	SAVE POOLBLOCK ADDRESS 
	LD	A2,POBBUS,A7	BUFFER SIZE
	SUK	A2,BUFHLN	A2 := LENGTH OF USER PART
	RF(P)	GU100	CONTINUE IF OK 
	ANK	A2,0	TOO SHORT. BUFFER LENGTH & CR := 0
GU100	EQU	* 
	ST	A2,BUFLEN,A4	USER BUFFER LENGTH 
	ABR*	A15	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLRLBU
* 
* FUNCTION: 
*	THIS ROUTINE RELEASES AN I/O BUFFER OF THE
*	FORMAT USED BY THIS DRIVER. 
* 
* CALL: 
*	CF	A15,PLRLBU 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
* 
* OUTPUT: 
*	A4  =	CHANGED 
*	CR  =	CHANGED 
*	INTERR.	INHIBITED IF CPU 852
* 
************************************************************
* 
PLRLBU	EQU	*
	STR	A7,A15	PUSH A7 
	LD	A7,BUFLNK,A4	POOLBLOCK ADDRESS
	SUK	A4,BUFHLN	A4 :- PHYSICAL START OF BUFFER 
	CF	A15,RELBUF	RELEASE BUFFER & INH 
	LDR*	A7,A15	POP A7 
* 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
	IFF	CPU852=1 
	RTN	A15
	XIF
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	PLCHAR
* 
* FUNCTION: 
*	THESE ROUTINES ARE USED TO GET A CHARACTER
*	FROM A BUFFER OR PUT A CHARACTER IN A BUFFER. 
*	THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL 
*	PLC FORMAT (SE "BUFFER LAYOUT" CONSTANT 
*	DEFINITION).
* 
* CALL: 
*	CF	A15,PLGECH 
*	CF	A15,PLPUCH 
* 
* INPUT:
*	A2  =	IF PUT CHAR 
*		BITS 0-7 IRRELEVANT
*		BITS 8-15 CHARACTER
*	A4  =	BUFFER ADDRESS
* 
* OUTPUT: 
*	A1  =	RETURN CODE 
*		-1 IF OVERFLOW/UNDERFLOW, ELSE 
*		 AT PLPUCH: 0
*		 AT PLGECH: NR OF CHAR LEFT IN BUFFER
*	A2  =	IF PLGECH & A1>=0 : 
*		BITS 0-7 ZERO
*		BITS 8-15 CHARACTER
*	INTERR.	INHIBITED 
* 
************************************************************
* 
	EJECT
* 
PLGECH	EQU	*
	INH
* 
	LD	A1,BUFLEN,A4	LENGTH OF TEXT IN BUFFER 
	LD	A2,BUFBIX,A4	BYTE INDEX 
	SUR	A1,A2
	SUK	A1,1	A1 := NR OF CHAR LEFT 
	RF(N)	CH100	EXIT IF UNDERFLOW
	IM	BUFBIX,A4	INCREMENT INDEX 
	ADR	A2,A4	ABSOLUTE ADDRESS OF CHARACTER
	LCR	A2,A2	GET CHARACTER
	ANK	A2,/FF	CLEAN 
* 
	RF	CH110	NORMAL EXIT 
* 
* 
PLPUCH	EQU	*
	INH
* 
	LD	A1,BUFBIX,A4	BYTE INDEX 
	CW	A1,BUFLEN,A4	OUTSIDE BUFFER?
	RF(NL)	CH100	YES, ERROR
	IM	BUFBIX,A4	INCREMENT INDEX 
	ADR	A1,A4	FREE PLACE IN BUFFER 
	SCR	A2,A1	PUT CHARACTER IN BUFFER
	LDK	A1,0	RETURN CODE := OK 
	RF	CH110	NORMAL EXIT 
* 
* 
CH100	EQU	* 
	LDKL	A1,-1	RETURN CODE := ERROR
CH110	EQU	* 
	ADKL	A15,4	ADJUST STACK
	ABR*	A15	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	INTYPE
* 
* FUNCTION: 
*	THIS ROUTINE CHECKS A GENERAL READ ANSWER FROM
*	THE PLC TO DETERMINE TYPE OF MESSAGE. 
* 
* CALL: 
*	CF	A15,INTYPE 
* 
* INPUT:
*	A5  =	CWT ADDRESS 
* 
* OUTPUT: 
*	A2  =	CHANGED 
*	A3  =	TYPE
*	A4  =	CHANGED 
*	CR  =	CHANGED 
* 
************************************************************
* 
INTYPE	EQU	*
	LDK	A2,X25DAT	MINIMUM INPUT LENGTH 
	CW	A2,CWTRCA+CCRLEN,A5	LENGTH >= MINIMUM?
	RF(G)	ITERR	NO, ERROR
* 
	EJECT
* 
	LD	A3,CWTRCA+CCRBUF,A5	BUFFER ADDRESS
	LC	A2,X25LGN,A3	GROUP NUMBER 
	LDR	A4,A2	SAVE 
	ANK	A4,/0F	CLEAN 
	RF(NZ)	IT120	NOT GROUP ZERO
* 
*    CHANNEL GROUP ZERO. NORMAL MESSAGES. 
	LC	A3,X25FLW,A3	FLOW CONTROL BYTE
	LDR	A4,A3	SAVE 
	ANK	A4,/01	FLAG
	RF(NZ)	IT100	NOT DATA PACKET 
	LDK	A3,TYDATA	ASSUME NORMAL DATA 
	ANK	A2,/80	QUALIFY BIT SET?
	RF(Z)	ITEXIT	NO, NORMAL DATA. EXIT 
	LDK	A3,TYSTAT	YES, STATUS MESSAGE
	RF	ITEXIT	EXIT 
* 
IT100	EQU	* 
	LDR	A4,A3	SAVE FLOW CONTROL BYTE 
	ANK	A3,/02	RECIEVE READY?
	RF(NZ)	IT110	NO
	LDK	A3,TYRR	TYPE := RECIEVE READY
	RF	ITEXIT	EXIT 
* 
IT110	EQU	* 
	LDK	A3,TYRES	ASSUME TYPE = RESET 
	ANK	A4,/04	IS IT RESET?
	RF(Z)	ITEXIT	YES, EXIT 
	LDK	A3,TYRESC	NO, TYPE := RESET CONFIRMATION 
	RF	ITEXIT	EXIT 
* 
	EJECT
* 
IT120	EQU	* 
*    NOT NORMAL MESSAGE 
	LDK	A3,TYNFLO	ASSUME TYPE = NO FLOW CONTROL
	SUK	A4,1	IS IT NO FLOW CONTROL?
	RF(Z)	ITEXIT	YES, EXIT 
* 
ITERR	EQU	* 
	LDK	A3,TYERR	IRRECOVERABLE ERROR 
* 
ITEXIT	EQU	*
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	OUTBUQ
* 
* FUNCTION: 
*	THIS ROUTINE WILL REMOVE A DWT FROM THE QUEUES FOR
*	SHORT OR LONG OUTPUT BUFFERS, IF IT IS IN ANY 
*	OF THE QUEUES.
* 
* CALL: 
*	CF	A15,OUTBUQ 
* 
* INPUT:
*	A5  =	CWT ADDRESS 
*	A6  =	DWT ADDRESS 
* 
* OUTPUT: 
*	A2  =	NOT 0 IF DWT FOUND
*		 0 IF DWT NOT FOUND
*	A4  =	CHANGED 
*	CR  =	CHANGED 
* 
************************************************************
* 
OUTBUQ	EQU	*
	STR	A1,A15	PUSH A1 
	STR	A7,A15	PUSH A7 
	LDR	A4,A6	DWT ADDRESS
	ADKL	A4,DWTOTQ	QUEUE LINK
* 
	LDR	A7,A5	CWT ADDRESS
	ADK	A7,CWTSBQ	SHORT BUFFERS QUEUE
	CF	A15,LNKOUT	REMOVE DWT FROM QUEUE
	LDR	A7,A7	FOUND? 
	RF(NZ)	OB100	YES, RETURN 
* 
	LDR	A7,A5
	ADKL	A7,CWTLBQ	LONG BUFFERS QUEUE
	CF	A15,LNKOUT	REMOVE FROM QUEUE
* 
OB100	EQU	* 
	LDR	A2,A7	A2 := FOUND / NOT FOUND
* 
	LDR*	A7,A15	POP A7 
	LDR*	A1,A15	POP A1 
	IFT	CPU852=1 
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	LNKFST
* 
* FUNCTION: 
*	THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN 
*	A QUEUE (CLOSEST TO QUEUE HEAD).
*	ONE WORD IN EACH ELEMENT IS USED AS A LINK. 
*	END OF QUEUE IS INDICATED BY LINK=0 IN LAST 
*	ELEMENT.
* 
* CALL: 
*	CF	A15,LNKFST 
* 
* INPUT:
*	A4  =	QUEUE ELEMENT LINK ADDRESS
*	A7  =	QUEUE HEAD LINK ADDRESS 
* 
* OUTPUT: 
*	A1  =	CHANGED 
*	CR  =	CHANGED 
* 
************************************************************
* 
LNKFST	EQU	*
	LDR*	A1,A7	FIRST QUEUE ELEMENT 
	STR	A1,A4	SET LINK FROM NEW ELEMENT
	STR	A4,A7	SET NEW ELEMENT FIRST
	IFT	CPU852=1 
	RF	LNKRET	RETURN 
	XIF
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	LNKLST
* 
* FUNCTION: 
*	THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN
*	A QUEUE (OPOSITE END TO QUEUE HEAD).
*	ONE WORD IN EACH ELEMENT IS USED AS A LINK. 
*	END OF QUEUE IS INDICATED BY LINK=0 IN LAST 
*	ELEMENT.
* 
* CALL: 
*	CF	A15,LNKLST 
* 
* INPUT:
*	A4  =	QUEUE ELEMENT LINK ADDRESS
*	A7  =	QUEUE HEAD LINK ADDRESS 
* 
* OUTPUT: 
*	A1  =	CHANGED 
*	A7  =	CHANGED 
*	CR  =	CHANGED 
* 
************************************************************
* 
LNKLST	EQU	*
	LDR	A1,A7	SAVE PRESENT ELEMENT 
	LDR*	A7,A7	NEXT ELEMENT
	RB(NZ)	LNKLST	CONTINUE IF NOT LAST ELEMENT 
	STR	A4,A1	LINK NEW ELEMENT AFTER LAST
	CMR	A4	SET END MARKER IN LAST ELEMENT
* 
	EJECT
* 
	IFT	CPU852=1 
	RF	LNKRET	RETURN 
	XIF
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	LNKOUT
* 
* FUNCTION: 
*	THIS ROUTINE REMOVES AN ELEMENT FROM A QUEUE. 
*	ONE WORD IN EACH ELEMENT IS USED AS A LINK. 
*	END OF QUEUE IS INDICATED BY LINK=0 IN LAST 
*	ELEMENT.
* 
* CALL: 
*	CF	A15,LNKOUT 
* 
* INPUT:
*	A4  =	QUEUE ELEMENT LINK ADDRESS
*	A7  =	QUEUE HEAD LINK ADDRESS 
* 
* OUTPUT: 
*	A1  =	CHANGED 
*	A7  =	=0 IF ELEMENT NOT FOUND 
*		><0 IF ELEMENT FOUND 
*	CR  =	CHANGED 
* 
************************************************************
* 
LNKOUT	EQU	*
	LDR	A1,A7	SAVE PRESENT ELEMENT 
	LDR*	A7,A7	NEXT ELEMENT
	RF(Z)	LO100	EXIT IF END OF QUEUE 
	CWR	A4,A7	ELEMENT FOUND? 
	RB(NE)	LNKOUT	NO, CHECK NEXT 
* 
	EJECT
* 
	LDR*	A7,A7	ELEMENT AFTER WANTED ELEMENT
	STR	A7,A1	SET LINK FROM PREVIOUS TO NEXT 
	LDK	A7,1	INDICATE ELEMENT FOUND
LO100	EQU	* 
* 
* 
	IFT	CPU852=1 
LNKRET	EQU	*
*    COMMON EXIT FOR QUEUE ROUTINES 
*    RETURN WITHOUT CHANGING INTERRUPT ENABLE FLAG
	ADKL	A15,2	SKIP PSW
	LDR*	P,A15	RETURN
	XIF
* 
	IFF	CPU852=1 
	RTN	A15
	XIF
* 
	EJECT
* 
* 
* 
* 
************************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   TBUFF  =  TOSS BUFFER HANDLING SUBROUTINES
* 
* 
* 
************************************************************
* 
*   THIS PROGRAM CONTAINS A SET OF BUFFER HANDLING
*   SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED
*   IN BUFFER POOLS. A BUFFER POOL CONSISTS OF A
*   POOLBLOCK FOR CONTROL INFORMATION, AND ONE OR 
*   MORE BUFFER AREAS. THE POOLBLOCK AND BUFFER 
*   AREA(S) SHOULD BE SUPPLIED BY THE USER. 
* 
*   ROUTINES IN ORDER OF APPEARANCE IN CODE:
* 
*	NAME	FUNCTION 
* 
*	GETBUF	GET BUFFER FROM POOL 
*	RELBUF	RETURN BUFFER TO POOL
*	AREBUF	DIVIDE AREA INTO BUFFERS 
* 
	EJECT
* 
************* 
* CONSTANTS * 
************* 
* 
* 
*    POOLBLOCK LAYOUT DEFINITION
* 
*      POOLBLOCK WORD OFFSETS 
POBID	EQU	0	POOL IDENTITY 
POBFLG	EQU	2	BINARY FLAGS 
POBFRE	EQU	4	FREE LIST LINK HEAD
POBBUS	EQU	6	BUFFER SIZE (BYTES)
POBARS	EQU	8	AREA SIZE (BYTES)
* 
*      POOLBLOCK LENGTH 
POBLEN	EQU	10	LENGTH (BYTES)
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	GETBUF
* 
* FUNCTION: 
*	THIS ROUTINE FETCHES ONE BUFFER FROM A BUFFER 
*	POOL AND GIVES IT TO THE CALLER.
* 
* CALL: 
*	CF	A15,GETBUF 
* 
* INPUT:
*	A7  =	POOLBLOCK ADDRESS 
* 
* OUTPUT: 
*	A4  =	BUFFER ADDRESS IF BUFFER ALLOCATED
*		  ELSE ZERO
*	CR  =	CONTENTS OF A4
*	INTERR.=	INHIBITED
* 
************************************************************
* 
GETBUF	EQU	*
	INH
	LD	A4,POBFRE,A7	FREE LIST START
	RF(Z)	GB100	NO BUFFER LEFT. EXIT 
* 
	EJECT
* 
	STR	A1,A15	PUSH A1 
	LDR*	A1,A4	NEW START OF FREE LIST
	ST	A1,POBFRE,A7	TO POOLBLOCK 
	LDR*	A1,A15	POP A1 
* 
GB100	EQU	* 
	ADKL	A15,4	ADJUST STACK
	LDR	A4,A4	CR := CONTENTS OF A4 
	ABR*	A15	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	RELBUF
* 
* FUNCTION: 
*	THIS ROUTINE RELEASES ONE BUFFER AND RETURNS
*	IT TO A BUFFER POOL.
* 
* CALL: 
*	CF	A15,RELBUF 
* 
* INPUT:
*	A4  =	BUFFER ADDRESS
*	A7  =	POOLBLOCK ADDRESS 
* 
* OUTPUT: 
*	CR  =	CHANGED 
*	INTERR.=	INHIBITED
* 
************************************************************
* 
RELBUF	EQU	*
	INH
	STR	A1,A15	PUSH A1 
* 
	LD	A1,POBFRE,A7	OLD FREE LIST START
	STR	A1,A4	LINK AFTER NEW BUFFER
	ST	A4,POBFRE,A7	SET NEW FREE LIST START
* 
	LDR*	A1,A15	POP A1 
	ADKL	A15,4	ADJUST STACK
	ABR*	A15	RETURN
* 
	EJECT
* 
************************************************************
* 
* ROUTINE NAME: 
*	AREBUF
* 
* FUNCTION: 
*	THIS ROUTINE ALLOCATES A SPECIFIED DATA AREA TO 
*	A BUFFER POOL. THIS CAN BE DONE IN TWO WAYS.
*	"INIBUF" IS USED WHEN A NEW BUFFER POOL IS
*	INITIATED. IT DIVIDES THE AREA INTO BUFFERS,
*	LINKS THE BUFFERS IN A CHAIN FROM THE FREE LIST 
*	HEAD IN POOLBLOCK, AND PUTS AN END MARKER (-1)
*	IN THE LAST BUFFER. "LNKBUF" IS USED WHEN A NEW 
*	AREA IS ADDED TO AN EXISTING BUFFER POOL. IT
*	DIVIDES THE AREA INTO BUFFERS, AND LINKS THE
*	BUFFERS FIRST IN THE FREE LIST. 
* 
* CALL: 
*	CF	A15,INIBUF 
*	CF	A15,LNKBUF 
* 
* INPUT:
*	A4  =	AREA ADDRESS
*	A7  =	POOLBLOCK ADDRESS 
* 
* OUTPUT: 
*	CR  =	CHANGED IF CPU852 
* 
************************************************************
* 
	EJECT
* 
INIBUF	EQU	*
	IFT	CPU852=1 
	STR	A1,A15	PUSH A1 
	XIF
* 
	IFF	CPU852=1 
	MSR	4,A15	PUSH A1-A4 
	XIF
* 
	LDK	A1,0	MARKER FOR LAST BUFFER
	RF	IL100	GO TO COMMON PART 
* 
* 
LNKBUF	EQU	*
	IFT	CPU852=1 
	STR	A1,A15	PUSH A1 
	XIF
* 
	IFF	CPU852=1 
	MSR	4,A15	PUSH A1-A4 
	XIF
* 
	LD	A1,POBFRE,A7	LINK TO OLD BUFFERS
* 
* 
IL100	EQU	* 
* 
*    COMMON PART FOR INIBUF AND LNKBUF
* 
	IFT	CPU852=1 
	STR	A2,A15	PUSH A2-A4
	STR	A3,A15 
	STR	A4,A15 
	XIF
* 
	EJECT
* 
	LDR	A2,A7
	ADK	A2,POBFRE	FREE LIST START
	LDR	A3,A4
	AD	A3,POBARS,A7	END OF AREA
	SU	A3,POBBUS,A7	HIGEST BUFFER START IN AREA
* 
IL110	EQU	* 
*    BUFFER LINKING LOOP
	CWR	A4,A3	ROOM LEFT? 
	RF(G)	IL120	NO, FINISH 
* 
	STR	A4,A2	SET LINK FROM PREVIOUS TO PRESENT
	LDR	A2,A4	NEW PREVIOUS 
	AD	A4,POBBUS,A7	NEW PRESENT
	RB	IL110	TAKE NEXT BUFFER
* 
IL120	EQU	* 
	STR	A1,A2	SET LINK OR END IN LAST BUFFER 
* 
	IFT	CPU852=1 
	LDR*	A4,A15	POP A1-A4
	LDR*	A3,A15
	LDR*	A2,A15
	LDR*	A1,A15
	ADKL	A15,2	ADJUST STACK
	LDR*	P,A15	RETURN
	XIF
* 
	IFF	CPU852=1 
	MLR	4,A15	POP A1-A4
	RTN	A15
	XIF
* 
	IFF	UTTEST=0 
	EJECT
* 
******************************************
* 
* ROUTINE NAMES: LOGCOM 
*                LOGIOC 
*                LOGATT 
* FUNCTION:      LOG MSG TYPE AND CCR+BUFFER
*                 DLSSEL SPECIFIES DLS TO BE SELECTED 
*                 0 MEANS LOG ALL 
* 
* RECORD FORMAT:   BYTE 1-2 MSG TYPE (CO,RE,AT) 
*                  BYTE 3   DLS INDEX 
*                  BYTE 4   COMMAND CODE
*                  BYTE 5-6 STATUS-1
*                  BYTE 7   BUFFER LENGTH 
*                  BYTE 8   PACKET HEADER -1
*                  BYTE 9   PACKET HEADER -2 (LOGICAL CHANNEL)
*                  BYTE 10  PACKET HEADER -3 (FLOW CONTOL)
*                  BYTE 11-16  6 FIRST DATA BYTES 
*********************************************** 
* 
DLSSEL	DATA	0	0=LOG ALL 
*			ELSE DLS TO BE LOGGED 
LOGPTR	DATA	LOGARE	RECORD POINTER IN LOG AREA 
LOGARE	RES	960	LOG AREA 
LOGEND	EQU	*
	DATA	'ENDLOG'	MARK END OF LOG AREA 
*-------------------------------------------- 
LOGCOM	EQU	*	SUBROUTINE ENTRY 
	IFT	CPU852=1 
	STR	A1,A15 
	STR	A2,A15 
	STR	A3,A15 
	XIF
	IFF	UTTEST=0 
	IFF	CPU852=1 
	MSR	3,A15	PUSH A1-A3 
	XIF
	IFF	UTTEST=0 
	LDKL	A1,'CO'	MSG TYPE
	LDK	A2,CWTCCA	CCA OFFSET 
	RF	LOG:10

LOGIOC	EQU	*	SUBROUTINE ENTRY 
	IFT	CPU852=1 
	STR	A1,A15 
	STR	A2,A15 
	STR	A3,A15 
	XIF
	IFF	UTTEST=0 
	IFF	CPU852=1 
	MSR	3,A15	PUSH A1-A3 
	XIF
	IFF	UTTEST=0 
	LDKL	A1,'RE'	MSG TYPE
	LDK	A2,CWTRCA	RCA OFFSET 
	RF	LOG:10

LOGATT	EQU	*	SUBROUTINE ENTRY 
	IFT	CPU852=1 
	STR	A1,A15 
	STR	A2,A15 
	STR	A3,A15 
	XIF
	IFF	UTTEST=0 
	IFF	CPU852=1 
	MSR	3,A15	PUSH A1-A3 
	XIF
	IFF	UTTEST=0 
	LDKL	A1,'AT'	MSG TYPE
	LDK	A2,CWTRCA	RCA OFFSET 
*------------------------------------------ 
LOG:10	EQU	*	COMMON PART
	LD	A3,LOGPTR 
	STR	A1,A3	LOG MSG TYPE 
	ADR	A2,A5	CCR PTR
	LD	A1,DLSSEL	SELECTED DLS
	RF(Z)	LOG:15	LOG ALL 
	CC	A1,CCRDLS,A2
	RF(NE)	LOG:20	NOT SELECTED,SKIP
LOG:15	EQU	*
	LD	A1,CCRDLS,A2	DLS INDEX
	ST	A1,2,A3	+COMMAND INTO LOG 
	LD	A1,CCRSTA,A2	STATUS-1 
	ST	A1,4,A3	LOG STATUS-1
	LD	A1,CCRLEN,A2	BUFFER LENGTH
	SC	A1,6,A3	INTO LOG
	LD	A2,CCRBUF,A2	BUFFER ADDRESS 
	LDR*	A1,A2	BYTE 0-1
	SC	A1,8,A3	PACKET HEADER 2 
	SRL	A1,8 
	SC	A1,7,A3	PACKET HEADER 1 
	LD	A1,2,A2	PACKET HEADER 3+ BYTE 1 
	SC	A1,10,A3
	SRL	A1,8 
	SC	A1,9,A3 
	LD	A1,4,A2	BYTE 2-3
	SC	A1,12,A3
	SRL	A1,8 
	SC	A1,11,A3
	LD	A1,6,A2	BYTE 4-5
	SC	A1,14,A3
	SRL	A1,8 
	SC	A1,13,A3
	LD	A1,8,A2 
	SRL	A1,8 
	SC	A1,15,A3
	ADK	A3,16
	ST	A3,LOGPTR	NEXT RECORD IN LOG AREA 
	CWK	A3,LOGEND	END OF LOG AREA? 
	RF(NE)	LOG:20	NO!
	LDKL	A1,LOGARE	RESET PTR 
	ST	A1,LOGPTR 
LOG:20	EQU	*
	IFT	CPU852=1 
	LDR*	A3,A15	RESTORE
	LDR*	A2,A15
	LDR*	A1,A15
	ADKL	A15,4 
	ABR*	A15	RETURN
	XIF
	IFF	UTTEST=0 
	IFF	CPU852=1 
	MLR	3,A15
	RTN	A15
	XIF
* 
* 
	END

HexDump

0x00000…00036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRPL01  REL 11.0 81-06-23 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00060               Head {h00=0x001e, h01=0x0050, text=»   =7,CORR. OF CWT-DISPL. «, t00=0x0000, t01=0x0042}
0x00060…0007c               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-06-11«, t00=0x0000, t01=0x0064}
0x0007c…000a8               Head {h00=0x0028, h01=0x0050, text=»   =6,LENGTH OF LONG BUFFERS CHANGED«, t00=0x0000, t01=0x0080}
0x000a8…000c4               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-05-27«, t00=0x0000, t01=0x00ac}
0x000c4…000e8               Head {h00=0x0020, h01=0x0050, text=»   =5,CORR. OF RWSI-CWT:S , «, t00=0x0000, t01=0x00c8}
0x000e8…00110               Head {h00=0x0024, h01=0x0050, text=»   OPEN LINE PROC. & COND. ASS. «, t00=0x0000, t01=0x00ec}
0x00110…0012c               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-05-22«, t00=0x0000, t01=0x0114}
0x0012c…0014e               Head {h00=0x001e, h01=0x0050, text=»   =4,CORR. OF CWT-DISPL. «, t00=0x0000, t01=0x0130}
0x0014e…0016a               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-05-20«, t00=0x0000, t01=0x0152}
0x0016a…0018c               Head {h00=0x001e, h01=0x0050, text=»   =3,CORR. OF TIMER NAME «, t00=0x0000, t01=0x016e}
0x0018c…001a8               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-04-29«, t00=0x0000, t01=0x0190}
0x001a8…001d2               Head {h00=0x0026, h01=0x0050, text=»   =2,CORR. OF OPEN LINE PROCEDURE«, t00=0x0001, t01=0x001c}
0x001d2…001ee               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-04-21«, t00=0x0001, t01=0x0046}
0x001ee…00210               Head {h00=0x001e, h01=0x0050, text=»   GENERAL UPDATE FOR RWSI«, t00=0x0001, t01=0x0062}
0x00210…0022c               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0001, t01=0x0084}
0x0022c…00258               Head {h00=0x0028, h01=0x0050, text=»   =1,OPEN LINE PARAM. AREA EXPANDED«, t00=0x0001, t01=0x00a0}
0x00258…00274               Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-11-19«, t00=0x0001, t01=0x00cc}
0x00274…0027e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x0027e…00288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x00288…00292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x00292…0029c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x0029c…002e0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0001, t01=0x0110}
0x002e0…002ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x002ea…00312               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM  PTS«, t00=0x0001, t01=0x015e}
0x00312…0031c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0186}
0x0031c…00356               Head {h00=0x0036, h01=0x0050, text=»*   DRPL01  =  DRIVER PROCESSOR FOR LINE CONTROL, «, t00=0x0001, t01=0x0190}
0x00356…00388               Head {h00=0x002e, h01=0x0050, text=»*               LOCAL & REMOTE CONNECTIONS«, t00=0x0002, t01=0x003a}
0x00388…00392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x00392…0039c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x0039c…003a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0080}
0x003a6…003ea               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0002, t01=0x008a}
0x003ea…003f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ce}
0x003f4…003fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d8}
0x003fe…00434               Head {h00=0x0032, h01=0x0050, text=»*   THIS PROGRAM HANDLES I/O OPERATIONS ON THE«, t00=0x0002, t01=0x00e2}
0x00434…00468               Head {h00=0x0030, h01=0x0050, text=»*   PROCESSOR FOR LINE CONTROL (PLC). IT IS «, t00=0x0002, t01=0x0118}
0x00468…0049c               Head {h00=0x0030, h01=0x0050, text=»*   CALLED FROM THE TERMINAL DEVICE DRIVERS.«, t00=0x0002, t01=0x014c}
0x0049c…004a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0180}
0x004a6…004dc               Head {h00=0x0032, h01=0x0050, text=»*   INPUT AND OUTPUT OF CHARACTERS FROM/TO THE«, t00=0x0002, t01=0x018a}
0x004dc…00516               Head {h00=0x0036, h01=0x0050, text=»*   TERMINAL DEVICE DRIVERS ARE MADE ON CHARACTER «, t00=0x0003, t01=0x0030}
0x00516…0054e               Head {h00=0x0034, h01=0x0050, text=»*   BASIS. BLOCKING AND DEBLOCKING OF CHARACTERS«, t00=0x0003, t01=0x006a}
0x0054e…00586               Head {h00=0x0034, h01=0x0050, text=»*   IN DATA PACKETS ARE HANDLED BY THIS DRIVER. «, t00=0x0003, t01=0x00a2}
0x00586…00590               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00da}
0x00590…0059e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00e4}
0x0059e…005a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f2}
0x005a8…005e6               Head {h00=0x003a, h01=0x0050, text=»*   THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. «, t00=0x0003, t01=0x00fc}
0x005e6…0061e               Head {h00=0x0034, h01=0x0050, text=»*   SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED«, t00=0x0003, t01=0x013a}
0x0061e…00654               Head {h00=0x0032, h01=0x0050, text=»*   INTO ROUTINES. THE ROUTINES ARE LISTED AT «, t00=0x0003, t01=0x0172}
0x00654…0068c               Head {h00=0x0034, h01=0x0050, text=»*   BEGINNING OF EACH SECTION. THE SECTIONS, IN «, t00=0x0004, t01=0x0018}
0x0068c…006ba               Head {h00=0x002a, h01=0x0050, text=»*   ORDER OF APPEARANCE IN LIST, ARE: «, t00=0x0004, t01=0x0050}
0x006ba…006c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007e}
0x006c4…006de               Head {h00=0x0016, h01=0x0050, text=»* NAME    FUNCTION«, t00=0x0004, t01=0x0088}
0x006de…006e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x006e8…00712               Head {h00=0x0026, h01=0x0050, text=»* ENTRIES    DECLARE ENTRY POINTS «, t00=0x0004, t01=0x00ac}
0x00712…00744               Head {h00=0x002e, h01=0x0050, text=»* EXTERNALS   DECLARE EXTERNAL REFERENCES «, t00=0x0004, t01=0x00d6}
0x00744…0077e               Head {h00=0x0036, h01=0x0050, text=»* CONDITION   SET CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0004, t01=0x0108}
0x0077e…007a8               Head {h00=0x0026, h01=0x0050, text=»* CONSTANTS   SET CONSTANT VALUES «, t00=0x0004, t01=0x0142}
0x007a8…007c4               Head {h00=0x0018, h01=0x0050, text=»* DATA    DATA AREAS«, t00=0x0004, t01=0x016c}
0x007c4…007ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0188}
0x007ce…00802 (5, 0, 400)   Head {h00=0x0030, h01=0x0050, text=»* REQUEST    DEVICE DRIVER REQUEST ROUTINES «, t00=0x0005, t01=0x0004}
0x00802…0082a               Head {h00=0x0024, h01=0x0050, text=»* INTERRUPT   INTERRUPT ENTRIES «, t00=0x0005, t01=0x0038}
0x0082a…00866               Head {h00=0x0038, h01=0x0050, text=»* RECOVERY    SYSTEM START, POWER FAIL AND RECOVERY «, t00=0x0005, t01=0x0060}
0x00866…00890               Head {h00=0x0026, h01=0x0050, text=»* DISPATCH    LOCAL PLC DISPATCHER«, t00=0x0005, t01=0x009c}
0x00890…008bc               Head {h00=0x0028, h01=0x0050, text=»* ROUTINE    COMMON SERVICE ROUTINES«, t00=0x0005, t01=0x00c6}
0x008bc…008ec               Head {h00=0x002c, h01=0x0050, text=»* SUBROUTIN   COMMON SERVICE SUBROUTINES«, t00=0x0005, t01=0x00f2}
0x008ec…0091a               Head {h00=0x002a, h01=0x0050, text=»* TBUFF    BUFFER HANDLING SUBROUTINES«, t00=0x0005, t01=0x0122}
0x0091a…00924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x00924…00932               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x015a}
0x00932…0093c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0168}
0x0093c…00950               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x0172}
0x00950…00964               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x0186}
0x00964…00978               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0006, t01=0x000a}
0x00978…00982               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001e}
0x00982…0099c               Head {h00=0x0016, h01=0x0050, text=»*    I/O REQUESTS «, t00=0x0006, t01=0x0028}
0x0099c…009a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0042}
0x009a6…009cc               Head {h00=0x0022, h01=0x0050, text=» ENTRY PLCHRI CHARACTER INPUT «, t00=0x0006, t01=0x004c}
0x009cc…009fe               Head {h00=0x002e, h01=0x0050, text=» ENTRY PLSTBL DEFINE START OF OUTPUT BLOCK«, t00=0x0006, t01=0x0072}
0x009fe…00a24               Head {h00=0x0022, h01=0x0050, text=» ENTRY PLCHRO CHARACTER OUTPUT«, t00=0x0006, t01=0x00a4}
0x00a24…00a54               Head {h00=0x002c, h01=0x0050, text=» ENTRY PLENBL DEFINE END OF OUTPUT BLOCK«, t00=0x0006, t01=0x00ca}
0x00a54…00a7a               Head {h00=0x0022, h01=0x0050, text=» ENTRY PLDISP LOCAL DISPATCHER«, t00=0x0006, t01=0x00fa}
0x00a7a…00aa0               Head {h00=0x0022, h01=0x0050, text=» ENTRY PRCHRI CHR INP REMOTE  «, t00=0x0006, t01=0x0120}
0x00aa0…00ad0               Head {h00=0x002c, h01=0x0050, text=» ENTRY PRSTBL START OUTP BLOCK, REMOTE  «, t00=0x0006, t01=0x0146}
0x00ad0…00af8               Head {h00=0x0024, h01=0x0050, text=» ENTRY PRCHRO CHR OUTP. REMOTE  «, t00=0x0006, t01=0x0176}
0x00af8…00b26               Head {h00=0x002a, h01=0x0050, text=» ENTRY PRENBL END OUTP BLOCK, REMOTE  «, t00=0x0007, t01=0x000e}
0x00b26…00b50               Head {h00=0x0026, h01=0x0050, text=» ENTRY PRDISP LOCAL DSIP. REMOTE  «, t00=0x0007, t01=0x003c}
0x00b50…00b74               Head {h00=0x0020, h01=0x0050, text=» ENTRY PLTEST TEST COMMANDS «, t00=0x0007, t01=0x0066}
0x00b74…00b94               Head {h00=0x001c, h01=0x0050, text=» ENTRY CWTPLC CWT TABLE «, t00=0x0007, t01=0x008a}
0x00b94…00bbc               Head {h00=0x0024, h01=0x0050, text=» ENTRY GETDWT GET DWT SUBROUTINE«, t00=0x0007, t01=0x00aa}
0x00bbc…00bc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d2}
0x00bc6…00bd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00dc}
0x00bd0…00be8               Head {h00=0x0014, h01=0x0050, text=»*    INTERRUPTS «, t00=0x0007, t01=0x00e6}
0x00be8…00bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x00bf2…00c14               Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL01 PLC NUMBER 0«, t00=0x0007, t01=0x0108}
0x00c14…00c36               Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL02 PLC NUMBER 1«, t00=0x0007, t01=0x012a}
0x00c36…00c58               Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL03 PLC NUMBER 2«, t00=0x0007, t01=0x014c}
0x00c58…00c7a               Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL04 PLC NUMBER 3«, t00=0x0007, t01=0x016e}
0x00c7a…00c84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0190}
0x00c84…00cae               Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR01 PLC NUMBER 5,REMOTE «, t00=0x0008, t01=0x000a}
0x00cae…00cd8               Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR02            6,REMOTE «, t00=0x0008, t01=0x0034}
0x00cd8…00d02               Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR03            7,REMOTE «, t00=0x0008, t01=0x005e}
0x00d02…00d2c               Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR04            8,REMOTE «, t00=0x0008, t01=0x0088}
0x00d2c…00d36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x00d36…00d5a               Head {h00=0x0020, h01=0x0050, text=»*    RECOVERY AT TC POWER UP«, t00=0x0008, t01=0x00bc}
0x00d5a…00d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e0}
0x00d64…00d92               Head {h00=0x002a, h01=0x0050, text=» ENTRY PLON RECOVER ALL DEFINED PLC:S «, t00=0x0008, t01=0x00ea}
0x00d92…00d9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x00d9c…00daa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0122}
0x00daa…00db4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x00db4…00dca               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x013a}
0x00dca…00de0               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0008, t01=0x0150}
0x00de0…00df6               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0166}
0x00df6…00e00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x00e00…00e1a               Head {h00=0x0016, h01=0x0050, text=»*    TOSS MONITOR «, t00=0x0008, t01=0x0186}
0x00e1a…00e24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0010}
0x00e24…00e3c               Head {h00=0x0014, h01=0x0050, text=»*      ROUTINES «, t00=0x0009, t01=0x001a}
0x00e3c…00e60               Head {h00=0x0020, h01=0x0050, text=» EXTRN TDISP TOSS DISPATCHER«, t00=0x0009, t01=0x0032}
0x00e60…00e86               Head {h00=0x0022, h01=0x0050, text=» EXTRN QMJOB QUEUE MONITOR JOB«, t00=0x0009, t01=0x0056}
0x00e86…00eb0               Head {h00=0x0026, h01=0x0050, text=» EXTRN MEXIT EXIT FROM MONITOR JOB«, t00=0x0009, t01=0x007c}
0x00eb0…00ed8               Head {h00=0x0024, h01=0x0050, text=» EXTRN GETBLK GET MONITOR BLOCK «, t00=0x0009, t01=0x00a6}
0x00ed8…00f02               Head {h00=0x0026, h01=0x0050, text=» EXTRN FREBLK RETURN MONITOR BLOCK«, t00=0x0009, t01=0x00ce}
0x00f02…00f2e               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 PUSH A1-A8 ON A15 STACK«, t00=0x0009, t01=0x00f8}
0x00f2e…00f4e               Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIME SET TIMER «, t00=0x0009, t01=0x0124}
0x00f4e…00f68               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x0009, t01=0x0144}
0x00f68…00f8e               Head {h00=0x0022, h01=0x0050, text=» EXTRN PFPOST POWER FAIL FLAG «, t00=0x0009, t01=0x015e}
0x00f8e…00fbe               Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSAV LATEST INTERRUPT SAVE AREA«, t00=0x0009, t01=0x0184}
0x00fbe…00fc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0024}
0x00fc8…00fd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002e}
0x00fd2…00ff6               Head {h00=0x0020, h01=0x0050, text=»*    DRND01 SERVICE ROUTINES«, t00=0x000a, t01=0x0038}
0x00ff6…01000               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005c}
0x01000…0102e               Head {h00=0x002a, h01=0x0050, text=» EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT«, t00=0x000a, t01=0x0066}
0x0102e…0105e               Head {h00=0x002c, h01=0x0050, text=» EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT «, t00=0x000a, t01=0x0094}
0x0105e…01094               Head {h00=0x0032, h01=0x0050, text=» EXTRN NDREWS CALL RECOVERY FOR ALL DEV ON WS «, t00=0x000a, t01=0x00c4}
0x01094…010c0               Head {h00=0x0028, h01=0x0050, text=» EXTRN NDREDW CALL RECOVERY FOR DWT «, t00=0x000a, t01=0x00fa}
0x010c0…010f2               Head {h00=0x002e, h01=0x0050, text=» EXTRN NDGEDN GET HIGEST DWT NUMBER ON WS «, t00=0x000a, t01=0x0126}
0x010f2…01118               Head {h00=0x0022, h01=0x0050, text=» EXTRN NDGEDW GET DWT ADDRESS «, t00=0x000a, t01=0x0158}
0x01118…01122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017e}
0x01122…01130               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0188}
0x01130…0113a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x0113a…01172               Head {h00=0x0034, h01=0x0050, text=»*    DRND01 ROUTINES FOR RETURN TO DEVICE DRIVER«, t00=0x000b, t01=0x0012}
0x01172…0117c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004a}
0x0117c…011a2               Head {h00=0x0022, h01=0x0050, text=» EXTRN NDREPO POP, OK & RETURN«, t00=0x000b, t01=0x0054}
0x011a2…011c4               Head {h00=0x001e, h01=0x0050, text=» EXTRN NDRETO OK & RETURN «, t00=0x000b, t01=0x007a}
0x011c4…011e6               Head {h00=0x001e, h01=0x0050, text=» EXTRN NDREP POP & RETURN «, t00=0x000b, t01=0x009c}
0x011e6…01202               Head {h00=0x0018, h01=0x0050, text=» EXTRN NDRET RETURN «, t00=0x000b, t01=0x00be}
0x01202…0120c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00da}
0x0120c…01216               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e4}
0x01216…01234               Head {h00=0x001a, h01=0x0050, text=»*    DWT DISPLACEMENTS«, t00=0x000b, t01=0x00ee}
0x01234…0123e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010c}
0x0123e…01266               Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTCHP CHANNEL PARAMETERS«, t00=0x000b, t01=0x0116}
0x01266…01288               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTST STATUS FLAGS «, t00=0x000b, t01=0x013e}
0x01288…012b0               Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR ORDER (RIGHT BYTE) «, t00=0x000b, t01=0x0160}
0x012b0…012e2               Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS«, t00=0x000b, t01=0x0188}
0x012e2…01302               Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTOTQ QUEUE LINK«, t00=0x000c, t01=0x002a}
0x01302…01336               Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTCP2 SECOND CHANNEL PARAMETER WORD «, t00=0x000c, t01=0x004a}
0x01336…01368               Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTLD1 PLC INPUT/OUTPUT BUFFER ADDR«, t00=0x000c, t01=0x007e}
0x01368…01398               Head {h00=0x002c, h01=0x0050, text=» EXTRN DWTLD2 PLC FLOW CONTROL COUNTERS «, t00=0x000c, t01=0x00b0}
0x01398…013cc               Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTTBU PLC TEST COMMANDS BUFFER ADDR «, t00=0x000c, t01=0x00e0}
0x013cc…01402               Head {h00=0x0032, h01=0x0050, text=» EXTRN DWTTLN PLC TEST COMMANDS BUFFER LENGTH «, t00=0x000c, t01=0x0114}
0x01402…01438               Head {h00=0x0032, h01=0x0050, text=» EXTRN DWTTCW PLC TEST COMMANDS SPECIAL PARAM «, t00=0x000c, t01=0x014a}
0x01438…01442               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0180}
0x01442…01450               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x018a}
0x01450…0145a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x0145a…0147a               Head {h00=0x001c, h01=0x0050, text=»*    WORK STATION TABLES«, t00=0x000d, t01=0x0012}
0x0147a…01484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0032}
0x01484…014a0               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL1 PLC 1 «, t00=0x000d, t01=0x003c}
0x014a0…014bc               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL2 PLC 2 «, t00=0x000d, t01=0x0058}
0x014bc…014d8               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL3 PLC 3 «, t00=0x000d, t01=0x0074}
0x014d8…014f4               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL4 PLC 4 «, t00=0x000d, t01=0x0090}
0x014f4…014fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ac}
0x014fe…0151a               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR1 REMOTE«, t00=0x000d, t01=0x00b6}
0x0151a…01536               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR2 REMOTE«, t00=0x000d, t01=0x00d2}
0x01536…01552               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR3 REMOTE«, t00=0x000d, t01=0x00ee}
0x01552…0156e               Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR4 REMOTE«, t00=0x000d, t01=0x010a}
0x0156e…01578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x01578…01592               Head {h00=0x0016, h01=0x0050, text=»*    MISCELLANEOUS«, t00=0x000d, t01=0x0130}
0x01592…0159c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014a}
0x0159c…015d6               Head {h00=0x0036, h01=0x0050, text=» EXTRN INTADR INTERRUPT ADDR IN DRIVER ADDR BLOCK «, t00=0x000d, t01=0x0154}
0x015d6…015e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018e}
0x015e0…015ee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0008}
0x015ee…015f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0016}
0x015f8…01618               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000e, t01=0x0020}
0x01618…01638               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000e, t01=0x0040}
0x01638…01658               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000e, t01=0x0060}
0x01658…01662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0080}
0x01662…0166c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008a}
0x0166c…016a6               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x0094}
0x016a6…016d8               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000e, t01=0x00ce}
0x016d8…016e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x016e2…016f6               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000e, t01=0x010a}
0x016f6…01700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011e}
0x01700…0170a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0128}
0x0170a…01752               Head {h00=0x0044, h01=0x0050, text=»* PLCNRL DEFINES NUMBER OF LOCAL PLC:S ACTUALLY CONNECTED (0-4) «, t00=0x000e, t01=0x0132}
0x01752…0175c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017a}
0x0175c…0176e               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000e, t01=0x0184}
0x0176e…01784               Head {h00=0x0012, h01=0x0050, text=»PLCNRL EQU X:A«, t00=0x000f, t01=0x0008}
0x01784…0178e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001e}
0x0178e…017d6               Head {h00=0x0044, h01=0x0050, text=»* PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4)«, t00=0x000f, t01=0x0028}
0x017d6…017e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0070}
0x017e0…017f2               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000f, t01=0x007a}
0x017f2…01808               Head {h00=0x0012, h01=0x0050, text=»PLCNRR EQU X:B«, t00=0x000f, t01=0x008c}
0x01808…01812               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a2}
0x01812…0181c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ac}
0x0181c…0182a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00b6}
0x0182a…01834               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c4}
0x01834…0184a               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x00ce}
0x0184a…01860               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000f, t01=0x00e4}
0x01860…01876               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x00fa}
0x01876…01880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0110}
0x01880…018a8               Head {h00=0x0024, h01=0x0050, text=»*    SYSTEM PARAMETER DEFINITION«, t00=0x000f, t01=0x011a}
0x018a8…018b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0142}
0x018b2…018e2               Head {h00=0x002c, h01=0x0050, text=»* LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7)«, t00=0x000f, t01=0x014c}
0x018e2…018f6               Head {h00=0x0010, h01=0x0050, text=»WINDOW EQU 2«, t00=0x000f, t01=0x017c}
0x018f6…01900               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x01900…01938               Head {h00=0x0034, h01=0x0050, text=»* MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32)«, t00=0x0010, t01=0x000a}
0x01938…0194c               Head {h00=0x0010, h01=0x0050, text=»MAXWS EQU 32«, t00=0x0010, t01=0x0042}
0x0194c…01956               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x01956…01998               Head {h00=0x003e, h01=0x0050, text=»* DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS)«, t00=0x0010, t01=0x0060}
0x01998…019ba               Head {h00=0x001e, h01=0x0050, text=»STADLY EQU 100 10 SECONDS «, t00=0x0010, t01=0x00a2}
0x019ba…019c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c4}
0x019c4…01a0a               Head {h00=0x0042, h01=0x0050, text=»* LENGTH OF USER PART OF SHORT OUTPUT BUFFER IN WORDS (1-128) «, t00=0x0010, t01=0x00ce}
0x01a0a…01a1e               Head {h00=0x0010, h01=0x0050, text=»SOBUFU EQU 3«, t00=0x0010, t01=0x0114}
0x01a1e…01a28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0128}
0x01a28…01a6e               Head {h00=0x0042, h01=0x0050, text=»* LENGTH OF USER PART OF GENERAL READ BUFFER IN WORDS (1-128) «, t00=0x0010, t01=0x0132}
0x01a6e…01a84               Head {h00=0x0012, h01=0x0050, text=»GRBUFU EQU 70 «, t00=0x0010, t01=0x0178}
0x01a84…01a8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018e}
0x01a8e…01aba               Head {h00=0x0028, h01=0x0050, text=»*        INACTIVITY TIMER (MINUTES) «, t00=0x0011, t01=0x0008}
0x01aba…01ace               Head {h00=0x0010, h01=0x0050, text=»TIMACT EQU 5«, t00=0x0011, t01=0x0034}
0x01ace…01ad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0048}
0x01ad8…01b18               Head {h00=0x003c, h01=0x0050, text=»* IF PLCTST IS 1 THE PLC DIAGNOSTIC COMMANDS ARE HANDLED«, t00=0x0011, t01=0x0052}
0x01b18…01b32               Head {h00=0x0016, h01=0x0050, text=»* BY THIS DRIVER. «, t00=0x0011, t01=0x0092}
0x01b32…01b3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ac}
0x01b3c…01b50               Head {h00=0x0010, h01=0x0050, text=»PLCTST EQU 0«, t00=0x0011, t01=0x00b6}
0x01b50…01b5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x01b5a…01b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d4}
0x01b64…01bac               Head {h00=0x0044, h01=0x0050, text=»* A TEST VERSION OF THE DRIVER IS OBTAINED BY SETTING UTTEST><0 «, t00=0x0011, t01=0x00de}
0x01bac…01bf0               Head {h00=0x0040, h01=0x0050, text=»* IF UTTEST=1 THE TEST CODE IS INCLUDUD BUT TRAP IS NOT USED«, t00=0x0011, t01=0x0126}
0x01bf0…01c30               Head {h00=0x003c, h01=0x0050, text=»* IF UTTEST=2 THE TEST CODE IS INCLUDED AND TRAP IS USED«, t00=0x0011, t01=0x016a}
0x01c30…01c3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001a}
0x01c3a…01c4e               Head {h00=0x0010, h01=0x0050, text=»UTTEST EQU 0«, t00=0x0012, t01=0x0024}
0x01c4e…01c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0038}
0x01c58…01c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0042}
0x01c62…01c9c               Head {h00=0x0036, h01=0x0050, text=»* LOBUFN IS THE NUMBER OF LONG OUTPUT BUFFERS USED«, t00=0x0012, t01=0x004c}
0x01c9c…01cb8               Head {h00=0x0018, h01=0x0050, text=»* FOR EACH PLC (1-6)«, t00=0x0012, t01=0x0086}
0x01cb8…01cc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a2}
0x01cc2…01cd6               Head {h00=0x0010, h01=0x0050, text=»LOBUFN EQU 3«, t00=0x0012, t01=0x00ac}
0x01cd6…01ce0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c0}
0x01ce0…01cea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ca}
0x01cea…01d24               Head {h00=0x0036, h01=0x0050, text=»* LOBUFU IS THE LENGTH OF THE USER PART OF A LONG «, t00=0x0012, t01=0x00d4}
0x01d24…01d4c               Head {h00=0x0024, h01=0x0050, text=»* OUTPUT BUFFER IN WORDS (1-128)«, t00=0x0012, t01=0x010e}
0x01d4c…01d56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0136}
0x01d56…01d70               Head {h00=0x0016, h01=0x0050, text=»LOBUFU EQU 72 U =6«, t00=0x0012, t01=0x0140}
0x01d70…01d7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015a}
0x01d7a…01d88               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0164}
0x01d88…01d92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0172}
0x01d92…01db8               Head {h00=0x0022, h01=0x0050, text=»*    HARDWARE INTERRUPT LEVELS«, t00=0x0012, t01=0x017c}
0x01db8…01dec               Head {h00=0x0030, h01=0x0050, text=»* THESE LEVELS MUST CORRESPOND TO INTERRUPT «, t00=0x0013, t01=0x0012}
0x01dec…01e06               Head {h00=0x0016, h01=0x0050, text=»* VECTOR IN SYSTAB«, t00=0x0013, t01=0x0046}
0x01e06…01e10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0060}
0x01e10…01e32               Head {h00=0x001e, h01=0x0050, text=»INTLV0 EQU 26 PLC NUMBER 1«, t00=0x0013, t01=0x006a}
0x01e32…01e54               Head {h00=0x001e, h01=0x0050, text=»INTLV1 EQU 27 PLC NUMBER 2«, t00=0x0013, t01=0x008c}
0x01e54…01e76               Head {h00=0x001e, h01=0x0050, text=»INTLV2 EQU 24 PLC NUMBER 3«, t00=0x0013, t01=0x00ae}
0x01e76…01e98               Head {h00=0x001e, h01=0x0050, text=»INTLV3 EQU 25 PLC NUMBER 4«, t00=0x0013, t01=0x00d0}
0x01e98…01ec2               Head {h00=0x0026, h01=0x0050, text=»INTRV0 EQU 18 PLC NUMBER 5, REMOTE«, t00=0x0013, t01=0x00f2}
0x01ec2…01eec               Head {h00=0x0026, h01=0x0050, text=»INTRV1 EQU 19            6, REMOTE«, t00=0x0013, t01=0x011c}
0x01eec…01f16               Head {h00=0x0026, h01=0x0050, text=»INTRV2 EQU 20            7, REMOTE«, t00=0x0013, t01=0x0146}
0x01f16…01f40               Head {h00=0x0026, h01=0x0050, text=»INTRV3 EQU 21            8, REMOTE«, t00=0x0013, t01=0x0170}
0x01f40…01f4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000a}
0x01f4a…01f74               Head {h00=0x0026, h01=0x0050, text=»*    CHANNEL UNIT DEVICE ADDRESSES«, t00=0x0014, t01=0x0014}
0x01f74…01f7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003e}
0x01f7e…01f9a               Head {h00=0x0018, h01=0x0050, text=»PLCDA0 EQU /06 PLC 1«, t00=0x0014, t01=0x0048}
0x01f9a…01fb6               Head {h00=0x0018, h01=0x0050, text=»PLCDA1 EQU /07 PLC 2«, t00=0x0014, t01=0x0064}
0x01fb6…01fd2               Head {h00=0x0018, h01=0x0050, text=»PLCDA2 EQU /26 PLC 3«, t00=0x0014, t01=0x0080}
0x01fd2…01fee               Head {h00=0x0018, h01=0x0050, text=»PLCDA3 EQU /27 PLC 4«, t00=0x0014, t01=0x009c}
0x01fee…0200a               Head {h00=0x0018, h01=0x0050, text=»PLCDA4 EQU /3A PLC 5«, t00=0x0014, t01=0x00b8}
0x0200a…02026               Head {h00=0x0018, h01=0x0050, text=»PLCDA5 EQU /3B PLC 6«, t00=0x0014, t01=0x00d4}
0x02026…02042               Head {h00=0x0018, h01=0x0050, text=»PLCDA6 EQU /2A PLC 7«, t00=0x0014, t01=0x00f0}
0x02042…0205e               Head {h00=0x0018, h01=0x0050, text=»PLCDA7 EQU /2B PLC 8«, t00=0x0014, t01=0x010c}
0x0205e…02068               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0128}
0x02068…02076               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0132}
0x02076…02080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0140}
0x02080…020ae               Head {h00=0x002a, h01=0x0050, text=»*    BUFFER AREA PARAMETER DEFINITION «, t00=0x0014, t01=0x014a}
0x020ae…020b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0178}
0x020b8…020ea               Head {h00=0x002e, h01=0x0050, text=»HEADLW EQU 4 BUFFER HEADER LENGTH (WORDS) «, t00=0x0014, t01=0x0182}
0x020ea…02120               Head {h00=0x0032, h01=0x0050, text=»FLOWLW EQU 2 FLOW CONTROL FIELD LENGTH (WORDS)«, t00=0x0015, t01=0x0024}
0x02120…02156               Head {h00=0x0032, h01=0x0050, text=»SYSTLW EQU HEADLW+FLOWLW SYSTEM PART OF BUFFER«, t00=0x0015, t01=0x005a}
0x02156…02160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0090}
0x02160…02182               Head {h00=0x001e, h01=0x0050, text=»*      LONG OUTPUT BUFFERS«, t00=0x0015, t01=0x009a}
0x02182…021c0               Head {h00=0x003a, h01=0x0050, text=»LOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) «, t00=0x0015, t01=0x00bc}
0x021c0…021ea               Head {h00=0x0026, h01=0x0050, text=»LOBUF2 EQU LOBUF1+LOBUF1 2 BUFFERS«, t00=0x0015, t01=0x00fa}
0x021ea…0220a               Head {h00=0x001c, h01=0x0050, text=»LOBUF3 EQU LOBUF2+LOBUF1«, t00=0x0015, t01=0x0124}
0x0220a…0222a               Head {h00=0x001c, h01=0x0050, text=»LOBUF4 EQU LOBUF3+LOBUF1«, t00=0x0015, t01=0x0144}
0x0222a…0224a               Head {h00=0x001c, h01=0x0050, text=»LOBUF5 EQU LOBUF4+LOBUF1«, t00=0x0015, t01=0x0164}
0x0224a…0226a               Head {h00=0x001c, h01=0x0050, text=»LOBUF6 EQU LOBUF5+LOBUF1«, t00=0x0015, t01=0x0184}
0x0226a…02280               Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=1 «, t00=0x0016, t01=0x0014}
0x02280…022b8               Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF1 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0016, t01=0x002a}
0x022b8…022c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0062}
0x022c4…022da               Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=2 «, t00=0x0016, t01=0x006e}
0x022da…02312               Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF2 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0016, t01=0x0084}
0x02312…0231e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00bc}
0x0231e…02334               Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=3 «, t00=0x0016, t01=0x00c8}
0x02334…0236c               Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF3 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0016, t01=0x00de}
0x0236c…02378               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0116}
0x02378…0238e               Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=4 «, t00=0x0016, t01=0x0122}
0x0238e…023c6               Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF4 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0016, t01=0x0138}
0x023c6…023d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0170}
0x023d2…023e8               Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=5 «, t00=0x0016, t01=0x017c}
0x023e8…02420 (23, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF5 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0017, t01=0x0004}
0x02420…0242c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x003c}
0x0242c…02442               Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=6 «, t00=0x0017, t01=0x0048}
0x02442…0247a               Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF6 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0017, t01=0x005e}
0x0247a…02486               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0096}
0x02486…02490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a2}
0x02490…0249e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00ac}
0x0249e…024a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x024a8…024cc               Head {h00=0x0020, h01=0x0050, text=»*      SHORT OUTPUT BUFFERS «, t00=0x0017, t01=0x00c4}
0x024cc…0250a               Head {h00=0x003a, h01=0x0050, text=»SOBUF1 EQU SYSTLW+SOBUFU LENGTH OF ONE BUFFER (WORDS) «, t00=0x0017, t01=0x00e8}
0x0250a…02534               Head {h00=0x0026, h01=0x0050, text=»SOBUF2 EQU SOBUF1+SOBUF1 2 BUFFERS«, t00=0x0017, t01=0x0126}
0x02534…02554               Head {h00=0x001c, h01=0x0050, text=»SOBUF4 EQU SOBUF2+SOBUF2«, t00=0x0017, t01=0x0150}
0x02554…02574               Head {h00=0x001c, h01=0x0050, text=»SOBUF8 EQU SOBUF4+SOBUF4«, t00=0x0017, t01=0x0170}
0x02574…025ac               Head {h00=0x0034, h01=0x0050, text=»SOBUFS EQU SOBUF8 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0017, t01=0x0190}
0x025ac…025b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0038}
0x025b6…025da               Head {h00=0x0020, h01=0x0050, text=»*      GENERAL READ BUFFERS «, t00=0x0018, t01=0x0042}
0x025da…02618               Head {h00=0x003a, h01=0x0050, text=»GRBUF1 EQU SYSTLW+GRBUFU LENGTH OF ONE BUFFER (WORDS) «, t00=0x0018, t01=0x0066}
0x02618…02638               Head {h00=0x001c, h01=0x0050, text=»GRBUF2 EQU GRBUF1+GRBUF1«, t00=0x0018, t01=0x00a4}
0x02638…02670               Head {h00=0x0034, h01=0x0050, text=»GRBUFS EQU GRBUF2 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0018, t01=0x00c4}
0x02670…0267a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fc}
0x0267a…026b0               Head {h00=0x0032, h01=0x0050, text=»*      LENGTHS OF USER PART OF BUFFERS (BYTES)«, t00=0x0018, t01=0x0106}
0x026b0…026e6               Head {h00=0x0032, h01=0x0050, text=»SOBUFL EQU SOBUFU+SOBUFU SHORT OUTPUT BUFFERS «, t00=0x0018, t01=0x013c}
0x026e6…0271a               Head {h00=0x0030, h01=0x0050, text=»LOBUFL EQU LOBUFU+LOBUFU LONG OUTPUT BUFFERS«, t00=0x0018, t01=0x0172}
0x0271a…02750               Head {h00=0x0032, h01=0x0050, text=»GRBUFL EQU GRBUFU+GRBUFU GENERAL READ BUFFERS «, t00=0x0019, t01=0x0016}
0x02750…0275a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004c}
0x0275a…02768               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0056}
0x02768…02772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0064}
0x02772…027a6               Head {h00=0x0030, h01=0x0050, text=»*    CONTROLLER COMMAND RECORD (CCR) LAYOUT «, t00=0x0019, t01=0x006e}
0x027a6…027b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a2}
0x027b0…027dc               Head {h00=0x0028, h01=0x0050, text=»CCRDLS EQU 0 DATA LINK STATION INDEX«, t00=0x0019, t01=0x00ac}
0x027dc…027fe               Head {h00=0x001e, h01=0x0050, text=»CCRCMD EQU 1 COMMAND CODE «, t00=0x0019, t01=0x00d8}
0x027fe…02824               Head {h00=0x0022, h01=0x0050, text=»CCRSU1 EQU 2 SUBCOMMAND BYTE 1«, t00=0x0019, t01=0x00fa}
0x02824…0284a               Head {h00=0x0022, h01=0x0050, text=»CCRSU2 EQU 3 SUBCOMMAND BYTE 2«, t00=0x0019, t01=0x0120}
0x0284a…0286e               Head {h00=0x0020, h01=0x0050, text=»CCRSUB EQU 2 SUBCOMMAND WORD«, t00=0x0019, t01=0x0146}
0x0286e…0288e               Head {h00=0x001c, h01=0x0050, text=»CCRSTA EQU 4 STATUS WORD«, t00=0x0019, t01=0x016a}
0x0288e…028b8               Head {h00=0x0026, h01=0x0050, text=»CCRIDB EQU 7 IDENTITY, BYTE FIELD «, t00=0x0019, t01=0x018a}
0x028b8…028e2               Head {h00=0x0026, h01=0x0050, text=»CCRIDW EQU 8 IDENTITY, WORD FIELD «, t00=0x001a, t01=0x0024}
0x028e2…0290e               Head {h00=0x0028, h01=0x0050, text=»CCRLEN EQU 10 BUFFER LENGTH (BYTES) «, t00=0x001a, t01=0x004e}
0x0290e…02948               Head {h00=0x0036, h01=0x0050, text=»CCRC1B EQU 12 DATA CHAINING CTRL & MSB BUFFER ADDR«, t00=0x001a, t01=0x007a}
0x02948…0296c               Head {h00=0x0020, h01=0x0050, text=»CCRBUF EQU 14 BUFFER ADDRESS«, t00=0x001a, t01=0x00b4}
0x0296c…02976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d8}
0x02976…02980               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e2}
0x02980…0299a               Head {h00=0x0016, h01=0x0050, text=»*    BUFFER LAYOUT«, t00=0x001a, t01=0x00ec}
0x0299a…029a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0106}
0x029a4…029c0               Head {h00=0x0018, h01=0x0050, text=»*      HEADER LENGTH«, t00=0x001a, t01=0x0110}
0x029c0…029f0               Head {h00=0x002c, h01=0x0050, text=»BUFHLN EQU HEADLW+HEADLW LENGTH (BYTES) «, t00=0x001a, t01=0x012c}
0x029f0…02a0c               Head {h00=0x0018, h01=0x0050, text=»*      HEADER LAYOUT«, t00=0x001a, t01=0x015c}
0x02a0c…02a30               Head {h00=0x0020, h01=0x0050, text=»BUFLNK EQU -8 FREE LIST LINK«, t00=0x001a, t01=0x0178}
0x02a30…02a52               Head {h00=0x001e, h01=0x0050, text=»BUFDWT EQU -6 DWT ADDRESS «, t00=0x001b, t01=0x000c}
0x02a52…02a80               Head {h00=0x002a, h01=0x0050, text=»BUFLEN EQU -4 LENGTH OF TEXT IN BUFFER«, t00=0x001b, t01=0x002e}
0x02a80…02aa0               Head {h00=0x001c, h01=0x0050, text=»BUFBIX EQU -2 BYTE INDEX«, t00=0x001b, t01=0x005c}
0x02aa0…02ac8               Head {h00=0x0024, h01=0x0050, text=»*      X25 CONTROL FIELD LAYOUT «, t00=0x001b, t01=0x007c}
0x02ac8…02afa               Head {h00=0x002e, h01=0x0050, text=»X25LGN EQU 0 LOGICAL CHANNEL GROUP NUMBER «, t00=0x001b, t01=0x00a4}
0x02afa…02b26               Head {h00=0x0028, h01=0x0050, text=»X25LCN EQU 1 LOGICAL CHANNEL NUMBER «, t00=0x001b, t01=0x00d6}
0x02b26…02b54               Head {h00=0x002a, h01=0x0050, text=»X25FLW EQU 2 FLOW CONTROL INFORMATION «, t00=0x001b, t01=0x0102}
0x02b54…02b7c               Head {h00=0x0024, h01=0x0050, text=»X25DAT EQU 3 START OF USER DATA «, t00=0x001b, t01=0x0130}
0x02b7c…02b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0158}
0x02b86…02b94               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0162}
0x02b94…02b9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0170}
0x02b9e…02bbc               Head {h00=0x001a, h01=0x0050, text=»*    PLC COMMAND CODES«, t00=0x001b, t01=0x017a}
0x02bbc…02bc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0008}
0x02bc6…02bee               Head {h00=0x0024, h01=0x0050, text=»CMDTC EQU /80 TEST CHANNEL UNIT «, t00=0x001c, t01=0x0012}
0x02bee…02c0e               Head {h00=0x001c, h01=0x0050, text=»CMDOP EQU /86 OPEN LINE «, t00=0x001c, t01=0x003a}
0x02c0e…02c2c               Head {h00=0x001a, h01=0x0050, text=»CMDOD EQU /85 OPEN DLS«, t00=0x001c, t01=0x005a}
0x02c2c…02c56               Head {h00=0x0026, h01=0x0050, text=»CMDPS EQU /84 GET LINE STATISTICS «, t00=0x001c, t01=0x0078}
0x02c56…02c7e               Head {h00=0x0024, h01=0x0050, text=»CMDDS EQU /83 GET DLS STATISTICS«, t00=0x001c, t01=0x00a2}
0x02c7e…02ca6               Head {h00=0x0024, h01=0x0050, text=»CMDRM EQU /87 READ LOCAL MEMORY «, t00=0x001c, t01=0x00ca}
0x02ca6…02cca               Head {h00=0x0020, h01=0x0050, text=»CMDSW EQU /40 STANDARD WRITE«, t00=0x001c, t01=0x00f2}
0x02cca…02cea               Head {h00=0x001c, h01=0x0050, text=»CMDFW EQU /41 FAST WRITE«, t00=0x001c, t01=0x0116}
0x02cea…02d0c               Head {h00=0x001e, h01=0x0050, text=»CMDGR EQU /20 GENERAL READ«, t00=0x001c, t01=0x0136}
0x02d0c…02d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0158}
0x02d16…02d20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0162}
0x02d20…02d4c               Head {h00=0x0028, h01=0x0050, text=»*    APPLICATION TEST COMMAND CODES «, t00=0x001c, t01=0x016c}
0x02d4c…02d56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x02d56…02d7e               Head {h00=0x0024, h01=0x0050, text=»ORDPS EQU 1 GET LINE STATISTICS «, t00=0x001d, t01=0x0012}
0x02d7e…02da4               Head {h00=0x0022, h01=0x0050, text=»ORDDS EQU 2 GER DLS STATISTICS«, t00=0x001d, t01=0x003a}
0x02da4…02dca               Head {h00=0x0022, h01=0x0050, text=»ORDRM EQU 3 READ LOCAL MEMORY «, t00=0x001d, t01=0x0060}
0x02dca…02dd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0086}
0x02dd4…02dde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0090}
0x02dde…02df8               Head {h00=0x0016, h01=0x0050, text=»*    MESSAGE TYPES«, t00=0x001d, t01=0x009a}
0x02df8…02e02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b4}
0x02e02…02e2c               Head {h00=0x0026, h01=0x0050, text=»TYERR EQU 0 ILLEGAL TYPE OR ERROR «, t00=0x001d, t01=0x00be}
0x02e2c…02e62               Head {h00=0x0032, h01=0x0050, text=»TYNFLO EQU 2 DATA PACKET WITH NO FLOW CONTROL «, t00=0x001d, t01=0x00e8}
0x02e62…02e8c               Head {h00=0x0026, h01=0x0050, text=»TYSTAT EQU 4 DEVICE STATUS MESSAGE«, t00=0x001d, t01=0x011e}
0x02e8c…02eb4               Head {h00=0x0024, h01=0x0050, text=»TYDATA EQU 6 NORMAL DATA PACKET «, t00=0x001d, t01=0x0148}
0x02eb4…02edc               Head {h00=0x0024, h01=0x0050, text=»TYRR EQU 8 RECIEVE READY PACKET «, t00=0x001d, t01=0x0170}
0x02edc…02efe               Head {h00=0x001e, h01=0x0050, text=»TYRES EQU 10 RESET PACKET «, t00=0x001e, t01=0x0008}
0x02efe…02f2e               Head {h00=0x002c, h01=0x0050, text=»TYRESC EQU 12 RESET CONFIRMATION PACKET «, t00=0x001e, t01=0x002a}
0x02f2e…02f38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x005a}
0x02f38…02f46               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0064}
0x02f46…02f50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0072}
0x02f50…02f76               Head {h00=0x0022, h01=0x0050, text=»*    DWT STATUS FLAGS (DWTST) «, t00=0x001e, t01=0x007c}
0x02f76…02f80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a2}
0x02f80…02fa8               Head {h00=0x0024, h01=0x0050, text=»DWFBSY EQU /8000 DEVICE NOT BUSY«, t00=0x001e, t01=0x00ac}
0x02fa8…02fca               Head {h00=0x001e, h01=0x0050, text=»DWFECH EQU /2000 ECHO MODE«, t00=0x001e, t01=0x00d4}
0x02fca…02ff2               Head {h00=0x0024, h01=0x0050, text=»DWFINP EQU /0020 INPUT REQUESTED«, t00=0x001e, t01=0x00f6}
0x02ff2…03020               Head {h00=0x002a, h01=0x0050, text=»DWFRES EQU /0008 RESET SEQUENCE ACTIVE«, t00=0x001e, t01=0x011e}
0x03020…03050               Head {h00=0x002c, h01=0x0050, text=»DWFAK3 EQU /0004 WAITING FOR LEVEL 3 ACK«, t00=0x001e, t01=0x014c}
0x03050…0307a               Head {h00=0x0026, h01=0x0050, text=»DWFPLC EQU DWFRES+DWFAK3 PLC FLAGS«, t00=0x001e, t01=0x017c}
0x0307a…030b0               Head {h00=0x0032, h01=0x0050, text=»DWFTY1 EQU /0002 USE ONLY TYPE 1 DATA PACKETS «, t00=0x001f, t01=0x0016}
0x030b0…030de               Head {h00=0x002a, h01=0x0050, text=»DWFSAC EQU /0001 WAIT FOR LEVEL 3 ACK «, t00=0x001f, t01=0x004c}
0x030de…030e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007a}
0x030e8…030f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0084}
0x030f2…03118               Head {h00=0x0022, h01=0x0050, text=»*    PLC STATUS FLAGS (CCRSTA)«, t00=0x001f, t01=0x008e}
0x03118…03122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b4}
0x03122…03148               Head {h00=0x0022, h01=0x0050, text=»STANOC EQU /0001 NO CONNECTION«, t00=0x001f, t01=0x00be}
0x03148…0316c               Head {h00=0x0020, h01=0x0050, text=»STALIR EQU /0004 LINK RESET «, t00=0x001f, t01=0x00e4}
0x0316c…03196               Head {h00=0x0026, h01=0x0050, text=»STADNO EQU /1000 DCE NOT OPERABLE «, t00=0x001f, t01=0x0108}
0x03196…031bc               Head {h00=0x0022, h01=0x0050, text=»STAE1 EQU STANOC+STALIR DUMMY «, t00=0x001f, t01=0x0132}
0x031bc…031f2               Head {h00=0x0032, h01=0x0050, text=»STAERR EQU STAE1+STADNO ERROR IN COMMUNICATION«, t00=0x001f, t01=0x0158}
0x031f2…031fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018e}
0x031fc…03222               Head {h00=0x0022, h01=0x0050, text=»STAREQ EQU /8000 REQUEST ERROR«, t00=0x0020, t01=0x0008}
0x03222…0324e               Head {h00=0x0028, h01=0x0050, text=»STANOB EQU /0800 NO BUFFERS FOR CCR «, t00=0x0020, t01=0x002e}
0x0324e…03276               Head {h00=0x0024, h01=0x0050, text=»STAPOL EQU /0100 POLLING STOPPED«, t00=0x0020, t01=0x005a}
0x03276…032aa               Head {h00=0x0030, h01=0x0050, text=»STACOM EQU /0080 COMMUNICATION REESTABLISHED«, t00=0x0020, t01=0x0082}
0x032aa…032d2               Head {h00=0x0024, h01=0x0050, text=»STASEQ EQU /0010 SEQUENCE ERROR «, t00=0x0020, t01=0x00b6}
0x032d2…032fa               Head {h00=0x0024, h01=0x0050, text=»STAILL EQU /0008 ILLEGAL LENGTH «, t00=0x0020, t01=0x00de}
0x032fa…0331e               Head {h00=0x0020, h01=0x0050, text=»STALER EQU /0002 LINK ERROR «, t00=0x0020, t01=0x0106}
0x0331e…03328               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012a}
0x03328…03336               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0134}
0x03336…03340               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0142}
0x03340…03366               Head {h00=0x0022, h01=0x0050, text=»*    WORK STATION STATUS FLAGS«, t00=0x0020, t01=0x014c}
0x03366…03370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0172}
0x03370…0339a               Head {h00=0x0026, h01=0x0050, text=»WSFERR EQU /01 COMMUNICATION ERROR«, t00=0x0020, t01=0x017c}
0x0339a…033a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0016}
0x033a4…033ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0020}
0x033ae…033d8               Head {h00=0x0026, h01=0x0050, text=»*    MASKS FOR CHANNEL PARAMETERS «, t00=0x0021, t01=0x002a}
0x033d8…033e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0054}
0x033e2…0340e               Head {h00=0x0028, h01=0x0050, text=»MASKPL EQU /0F PLC NUMBER (0-3 USED)«, t00=0x0021, t01=0x005e}
0x0340e…03444               Head {h00=0x0032, h01=0x0050, text=»MASKWS EQU /3F WORK STATION NUMBER (1-32 USED)«, t00=0x0021, t01=0x008a}
0x03444…03476               Head {h00=0x002e, h01=0x0050, text=»MASKLC EQU /3F LOGICAL CHANNEL (0-7 USED) «, t00=0x0021, t01=0x00c0}
0x03476…03480               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f2}
0x03480…0348a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00fc}
0x0348a…034a4               Head {h00=0x0016, h01=0x0050, text=»*    RETURN CODES «, t00=0x0021, t01=0x0106}
0x034a4…034ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0120}
0x034ae…034ce               Head {h00=0x001c, h01=0x0050, text=»*      AT REQUEST RETURN«, t00=0x0021, t01=0x012a}
0x034ce…034f4               Head {h00=0x0022, h01=0x0050, text=»NOTOPR EQU /0001 NOT OPERABLE «, t00=0x0021, t01=0x014a}
0x034f4…03518               Head {h00=0x0020, h01=0x0050, text=»LINERR EQU /0004 LINK ERROR «, t00=0x0021, t01=0x0170}
0x03518…03540 (34, 0, 400)  Head {h00=0x0024, h01=0x0050, text=»PLSERR EQU /0001 SOFTWARE ERROR «, t00=0x0022, t01=0x0004}
0x03540…03560               Head {h00=0x001c, h01=0x0050, text=»*      AT RECOVERY ENTRY«, t00=0x0022, t01=0x002c}
0x03560…03584               Head {h00=0x0020, h01=0x0050, text=»RETCP EQU /0001 TC POWER UP «, t00=0x0022, t01=0x004c}
0x03584…035b0               Head {h00=0x0028, h01=0x0050, text=»RESECP EQU /0002 SECONDARY POWER UP «, t00=0x0022, t01=0x0070}
0x035b0…035d4               Head {h00=0x0020, h01=0x0050, text=»RELINE EQU /0004 LINK ERROR «, t00=0x0022, t01=0x009c}
0x035d4…035de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c0}
0x035de…035e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ca}
0x035e8…03602               Head {h00=0x0016, h01=0x0050, text=»*    MISCELLANEOUS«, t00=0x0022, t01=0x00d4}
0x03602…0360c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ee}
0x0360c…0363a               Head {h00=0x002a, h01=0x0050, text=»PLCERR EQU /F1 SOP ERROR CODE AT TRAP «, t00=0x0022, t01=0x00f8}
0x0363a…0366e               Head {h00=0x0030, h01=0x0050, text=»CIDINT EQU 8 OFFSET TO INTERRUPT DESCRIPTOR «, t00=0x0022, t01=0x0126}
0x0366e…036a4               Head {h00=0x0032, h01=0x0050, text=»MAXFR EQU 4 MAX OUTSTANDING FRAMES ON LEVEL 2 «, t00=0x0022, t01=0x015a}
0x036a4…036ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0190}
0x036ae…036bc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x000a}
0x036bc…036c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0018}
0x036c6…036dc               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0023, t01=0x0022}
0x036dc…036f2               Head {h00=0x0012, h01=0x0050, text=»* DATA AREAS *«, t00=0x0023, t01=0x0038}
0x036f2…03708               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0023, t01=0x004e}
0x03708…03712               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0064}
0x03712…03730               Head {h00=0x001a, h01=0x0050, text=»*    CWT ADDRESS TABLE«, t00=0x0023, t01=0x006e}
0x03730…0373a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x008c}
0x0373a…0374e               Head {h00=0x0010, h01=0x0050, text=»CWTPLC EQU *«, t00=0x0023, t01=0x0096}
0x0374e…03762               Head {h00=0x0010, h01=0x0050, text=»TABCWT EQU *«, t00=0x0023, t01=0x00aa}
0x03762…03778               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0023, t01=0x00be}
0x03778…0379e               Head {h00=0x0022, h01=0x0050, text=» DATA PL0CWT CWT FOR PLC NR 1 «, t00=0x0023, t01=0x00d4}
0x0379e…037b4               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x0023, t01=0x00fa}
0x037b4…037da               Head {h00=0x0022, h01=0x0050, text=» DATA PL1CWT CWT FOR PLC NR 2 «, t00=0x0023, t01=0x0110}
0x037da…037f0               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x0023, t01=0x0136}
0x037f0…03816               Head {h00=0x0022, h01=0x0050, text=» DATA PL2CWT CWT FOR PLC NR 3 «, t00=0x0023, t01=0x014c}
0x03816…0382c               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x0023, t01=0x0172}
0x0382c…03852               Head {h00=0x0022, h01=0x0050, text=» DATA PL3CWT CWT FOR PLC NR 4 «, t00=0x0023, t01=0x0188}
0x03852…0385e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x001e}
0x0385e…03868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002a}
0x03868…0387e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=4 «, t00=0x0024, t01=0x0034}
0x0387e…038a4               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 4 NOT CONNECTED«, t00=0x0024, t01=0x004a}
0x038a4…038ba               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x0024, t01=0x0070}
0x038ba…038e0               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 3 NOT CONNECTED«, t00=0x0024, t01=0x0086}
0x038e0…038f6               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x0024, t01=0x00ac}
0x038f6…0391c               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 2 NOT CONNECTED«, t00=0x0024, t01=0x00c2}
0x0391c…03936               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=1  =5 «, t00=0x0024, t01=0x00e8}
0x03936…03960               Head {h00=0x0026, h01=0x0050, text=» DATA 0 PLC NR 1 NOT CONNECTED =5 «, t00=0x0024, t01=0x0102}
0x03960…0396c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x012c}
0x0396c…03976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0138}
0x03976…0398c               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0024, t01=0x0142}
0x0398c…039b8               Head {h00=0x0028, h01=0x0050, text=» DATA PR1CWT CWT FOR PLC NR. 5, REM.«, t00=0x0024, t01=0x0158}
0x039b8…039ce               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0024, t01=0x0184}
0x039ce…039fa               Head {h00=0x0028, h01=0x0050, text=» DATA PR2CWT CWT FOR PLC NR. 6, REM.«, t00=0x0025, t01=0x000a}
0x039fa…03a10               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0025, t01=0x0036}
0x03a10…03a3c               Head {h00=0x0028, h01=0x0050, text=» DATA PR3CWT CWT FOR PLC NR. 7, REM.«, t00=0x0025, t01=0x004c}
0x03a3c…03a52               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x0025, t01=0x0078}
0x03a52…03a7e               Head {h00=0x0028, h01=0x0050, text=» DATA PR4CWT CWT FOR PLC NR. 8, REM.«, t00=0x0025, t01=0x008e}
0x03a7e…03a8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00ba}
0x03a8a…03a94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c6}
0x03a94…03aaa               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=4 «, t00=0x0025, t01=0x00d0}
0x03aaa…03ad0               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 8 NOT CONNECTED«, t00=0x0025, t01=0x00e6}
0x03ad0…03ae6               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x0025, t01=0x010c}
0x03ae6…03b0c               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 7 NOT CONNECTED«, t00=0x0025, t01=0x0122}
0x03b0c…03b22               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0025, t01=0x0148}
0x03b22…03b48               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 6 NOT CONNECTED«, t00=0x0025, t01=0x015e}
0x03b48…03b5e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0025, t01=0x0184}
0x03b5e…03b84               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 5 NOT CONNECTED«, t00=0x0026, t01=0x000a}
0x03b84…03b90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0030}
0x03b90…03b9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003c}
0x03b9a…03ba8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0046}
0x03ba8…03bb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0054}
0x03bb2…03bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005e}
0x03bbc…03bd0               Head {h00=0x0010, h01=0x0050, text=»OPARR1 EQU *«, t00=0x0026, t01=0x0068}
0x03bd0…03bea               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0026, t01=0x007c}
0x03bea…03c06               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR10 LINE 0 «, t00=0x0026, t01=0x0096}
0x03c06…03c22               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR11 LINE 1 «, t00=0x0026, t01=0x00b2}
0x03c22…03c3e               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR12 LINE 2 «, t00=0x0026, t01=0x00ce}
0x03c3e…03c5a               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR13 LINE 3 «, t00=0x0026, t01=0x00ea}
0x03c5a…03c66               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0106}
0x03c66…03c7a               Head {h00=0x0010, h01=0x0050, text=»OPARR2 EQU *«, t00=0x0026, t01=0x0112}
0x03c7a…03c94               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0026, t01=0x0126}
0x03c94…03cae               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=1 U =5«, t00=0x0026, t01=0x0140}
0x03cae…03cca               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR20 LINE 0 «, t00=0x0026, t01=0x015a}
0x03cca…03ce6               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR21 LINE 1 «, t00=0x0026, t01=0x0176}
0x03ce6…03d02 (39, 0, 400)  Head {h00=0x0018, h01=0x0050, text=» DATA OPNR22 LINE 2 «, t00=0x0027, t01=0x0004}
0x03d02…03d1e               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR23 LINE 3 «, t00=0x0027, t01=0x0020}
0x03d1e…03d2a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x003c}
0x03d2a…03d3e               Head {h00=0x0010, h01=0x0050, text=»OPARR3 EQU *«, t00=0x0027, t01=0x0048}
0x03d3e…03d58               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0027, t01=0x005c}
0x03d58…03d72               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=1 U =5«, t00=0x0027, t01=0x0076}
0x03d72…03d8c               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=2 U =5«, t00=0x0027, t01=0x0090}
0x03d8c…03da8               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR30 LINE 0 «, t00=0x0027, t01=0x00aa}
0x03da8…03dc4               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR31 LINE 1 «, t00=0x0027, t01=0x00c6}
0x03dc4…03de0               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR32 LINE 2 «, t00=0x0027, t01=0x00e2}
0x03de0…03dfc               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR33 LINE 3 «, t00=0x0027, t01=0x00fe}
0x03dfc…03e08               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x011a}
0x03e08…03e1c               Head {h00=0x0010, h01=0x0050, text=»OPARR4 EQU *«, t00=0x0027, t01=0x0126}
0x03e1c…03e36               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0027, t01=0x013a}
0x03e36…03e50               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=1 U =5«, t00=0x0027, t01=0x0154}
0x03e50…03e6a               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=2 U =5«, t00=0x0027, t01=0x016e}
0x03e6a…03e84               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=3 U =5«, t00=0x0027, t01=0x0188}
0x03e84…03ea0               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR40 LINE 0 «, t00=0x0028, t01=0x0012}
0x03ea0…03ebc               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR41 LINE 1 «, t00=0x0028, t01=0x002e}
0x03ebc…03ed8               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR42 LINE 2 «, t00=0x0028, t01=0x004a}
0x03ed8…03ef4               Head {h00=0x0018, h01=0x0050, text=» DATA OPNR43 LINE 3 «, t00=0x0028, t01=0x0066}
0x03ef4…03f00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0082}
0x03f00…03f0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x008e}
0x03f0a…03f24               Head {h00=0x0016, h01=0x0050, text=»OPARL1 EQU * U =5 «, t00=0x0028, t01=0x0098}
0x03f24…03f48               Head {h00=0x0020, h01=0x0050, text=» DATA OPNL10 LOCAL PLC 1 =5 «, t00=0x0028, t01=0x00b2}
0x03f48…03f62               Head {h00=0x0016, h01=0x0050, text=»OPARL2 EQU * U =5 «, t00=0x0028, t01=0x00d6}
0x03f62…03f86               Head {h00=0x0020, h01=0x0050, text=» DATA OPNL20 LOCAL PLC 2 =5 «, t00=0x0028, t01=0x00f0}
0x03f86…03fa0               Head {h00=0x0016, h01=0x0050, text=»OPARL3 EQU * U =5 «, t00=0x0028, t01=0x0114}
0x03fa0…03fc4               Head {h00=0x0020, h01=0x0050, text=» DATA OPNL30 LOCAL PLC 3 =5 «, t00=0x0028, t01=0x012e}
0x03fc4…03fde               Head {h00=0x0016, h01=0x0050, text=»OPARL4 EQU * U =5 «, t00=0x0028, t01=0x0152}
0x03fde…04002               Head {h00=0x0020, h01=0x0050, text=» DATA OPNL40 LOCAL PLC 4 =5 «, t00=0x0028, t01=0x016c}
0x04002…04010               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0190}
0x04010…0401a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x000e}
0x0401a…04044               Head {h00=0x0026, h01=0x0050, text=»* OPEN LINE PARAMETER AREAS, LOCAL«, t00=0x0029, t01=0x0018}
0x04044…0404e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0042}
0x0404e…0406a               Head {h00=0x0018, h01=0x0050, text=»*   STANDARD AREAS :«, t00=0x0029, t01=0x004c}
0x0406a…04084               Head {h00=0x0016, h01=0x0050, text=»* PRIMARY STATION «, t00=0x0029, t01=0x0068}
0x04084…0409a               Head {h00=0x0012, h01=0x0050, text=»* FULL DUPLEX «, t00=0x0029, t01=0x0082}
0x0409a…040b2               Head {h00=0x0014, h01=0x0050, text=»* 96000 BITS/SEC«, t00=0x0029, t01=0x0098}
0x040b2…040cc               Head {h00=0x0016, h01=0x0050, text=»* NO NRZI ENCODING«, t00=0x0029, t01=0x00b0}
0x040cc…040e8               Head {h00=0x0018, h01=0x0050, text=»* 5 RETRANSMISSIONS «, t00=0x0029, t01=0x00ca}
0x040e8…04102               Head {h00=0x0016, h01=0x0050, text=»* 5 MIN. TIME OUT «, t00=0x0029, t01=0x00e6}
0x04102…0410c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0100}
0x0410c…04116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010a}
0x04116…0413e               Head {h00=0x0024, h01=0x0050, text=»OPNL40 EQU * LOCAL PLC 4, LINE 0«, t00=0x0029, t01=0x0114}
0x0413e…04154               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0029, t01=0x013c}
0x04154…0416a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x0029, t01=0x0152}
0x0416a…04180               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x0029, t01=0x0168}
0x04180…04196               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x0029, t01=0x017e}
0x04196…041c0 (42, 0, 398)  Head {h00=0x0026, h01=0x0050, text=» DATA /0101,/A000,/0D05,TIMACT,0,0«, t00=0x002a, t01=0x0004}
0x041c0…041cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x002e}
0x041cc…041f4               Head {h00=0x0024, h01=0x0050, text=»OPNL30 EQU * LOCAL PLC 3, LINE 0«, t00=0x002a, t01=0x003a}
0x041f4…0420a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x002a, t01=0x0062}
0x0420a…04220               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x002a, t01=0x0078}
0x04220…04236               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x002a, t01=0x008e}
0x04236…04266               Head {h00=0x002c, h01=0x0050, text=» DATA /0101,/A000,/0D05,TIMACT,0,0 U =3 «, t00=0x002a, t01=0x00a4}
0x04266…04272               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00d4}
0x04272…0429a               Head {h00=0x0024, h01=0x0050, text=»OPNL20 EQU * LOCAL PLC 2, LINE 0«, t00=0x002a, t01=0x00e0}
0x0429a…042b0               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x002a, t01=0x0108}
0x042b0…042c6               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x002a, t01=0x011e}
0x042c6…042f0               Head {h00=0x0026, h01=0x0050, text=» DATA /0101,/A000,/0D05,TIMACT,0,0«, t00=0x002a, t01=0x0134}
0x042f0…042fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x015e}
0x042fc…04324               Head {h00=0x0024, h01=0x0050, text=»OPNL10 EQU * LOCAL PLC 1, LINE 0«, t00=0x002a, t01=0x016a}
0x04324…0433a (43, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x002b, t01=0x0004}
0x0433a…04364               Head {h00=0x0026, h01=0x0050, text=» DATA /0101,/A000,/0D05,TIMACT,0,0«, t00=0x002b, t01=0x001a}
0x04364…04370               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0044}
0x04370…0437a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0050}
0x0437a…043a6               Head {h00=0x0028, h01=0x0050, text=»* END OF LOCAL LINE PARAMETER AREAS «, t00=0x002b, t01=0x005a}
0x043a6…043b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0086}
0x043b0…043be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0090}
0x043be…043c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009e}
0x043c8…043f4               Head {h00=0x0028, h01=0x0050, text=»* OPEN LINE PARAMETER AREAS, REMOTE «, t00=0x002b, t01=0x00a8}
0x043f4…043fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d4}
0x043fe…0441a               Head {h00=0x0018, h01=0x0050, text=»*   STANDARD AREAS :«, t00=0x002b, t01=0x00de}
0x0441a…04434               Head {h00=0x0016, h01=0x0050, text=»* PRIMARY STATION «, t00=0x002b, t01=0x00fa}
0x04434…0444a               Head {h00=0x0012, h01=0x0050, text=»* FULL DUPLEX «, t00=0x002b, t01=0x0114}
0x0444a…04462               Head {h00=0x0014, h01=0x0050, text=»* 2400 BITS/SEC «, t00=0x002b, t01=0x012a}
0x04462…0447c               Head {h00=0x0016, h01=0x0050, text=»* NO NRZI ENCODING«, t00=0x002b, t01=0x0142}
0x0447c…04492               Head {h00=0x0012, h01=0x0050, text=»* POLLING 13HZ«, t00=0x002b, t01=0x015c}
0x04492…044ae               Head {h00=0x0018, h01=0x0050, text=»* 5 RETRANSMISSIONS «, t00=0x002b, t01=0x0172}
0x044ae…044c8               Head {h00=0x0016, h01=0x0050, text=»* 5 MIN. TIME OUT «, t00=0x002b, t01=0x018e}
0x044c8…044d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0018}
0x044d2…044dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0022}
0x044dc…044f2               Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 4«, t00=0x002c, t01=0x002c}
0x044f2…0450e               Head {h00=0x0018, h01=0x0050, text=»OPNR40 EQU * LINE 0 «, t00=0x002c, t01=0x0042}
0x0450e…04524               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002c, t01=0x005e}
0x04524…0453a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002c, t01=0x0074}
0x0453a…04550               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002c, t01=0x008a}
0x04550…04566               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x002c, t01=0x00a0}
0x04566…04594               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0108,0«, t00=0x002c, t01=0x00b6}
0x04594…045a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00e4}
0x045a0…045bc               Head {h00=0x0018, h01=0x0050, text=»OPNR41 EQU * LINE 1 «, t00=0x002c, t01=0x00f0}
0x045bc…045d2               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002c, t01=0x010c}
0x045d2…045e8               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002c, t01=0x0122}
0x045e8…045fe               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002c, t01=0x0138}
0x045fe…04614               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x002c, t01=0x014e}
0x04614…04642               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0908,0«, t00=0x002c, t01=0x0164}
0x04642…0464e (45, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0004}
0x0464e…0466a               Head {h00=0x0018, h01=0x0050, text=»OPNR42 EQU * LINE 3 «, t00=0x002d, t01=0x0010}
0x0466a…04680               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002d, t01=0x002c}
0x04680…04696               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002d, t01=0x0042}
0x04696…046ac               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002d, t01=0x0058}
0x046ac…046c2               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x002d, t01=0x006e}
0x046c2…046f0               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0B08,0«, t00=0x002d, t01=0x0084}
0x046f0…046fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00b2}
0x046fc…04718               Head {h00=0x0018, h01=0x0050, text=»OPNR43 EQU * LINE 3 «, t00=0x002d, t01=0x00be}
0x04718…0472e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002d, t01=0x00da}
0x0472e…04744               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002d, t01=0x00f0}
0x04744…0475a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002d, t01=0x0106}
0x0475a…04770               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x002d, t01=0x011c}
0x04770…0479e               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/1308,0«, t00=0x002d, t01=0x0132}
0x0479e…047aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0160}
0x047aa…047c0               Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 3«, t00=0x002d, t01=0x016c}
0x047c0…047dc               Head {h00=0x0018, h01=0x0050, text=»OPNR30 EQU * LINE 0 «, t00=0x002d, t01=0x0182}
0x047dc…047f2               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002e, t01=0x000e}
0x047f2…04808               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002e, t01=0x0024}
0x04808…0481e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002e, t01=0x003a}
0x0481e…0484c               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0108,0«, t00=0x002e, t01=0x0050}
0x0484c…04858               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x007e}
0x04858…04874               Head {h00=0x0018, h01=0x0050, text=»OPNR31 EQU * LINE 1 «, t00=0x002e, t01=0x008a}
0x04874…0488a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002e, t01=0x00a6}
0x0488a…048a0               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002e, t01=0x00bc}
0x048a0…048b6               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002e, t01=0x00d2}
0x048b6…048e4               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0908,0«, t00=0x002e, t01=0x00e8}
0x048e4…048f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0116}
0x048f0…0490c               Head {h00=0x0018, h01=0x0050, text=»OPNR32 EQU * LINE 2 «, t00=0x002e, t01=0x0122}
0x0490c…04922               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002e, t01=0x013e}
0x04922…04938               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002e, t01=0x0154}
0x04938…0494e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002e, t01=0x016a}
0x0494e…0497c               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0B08,0«, t00=0x002e, t01=0x0180}
0x0497c…04988               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x001e}
0x04988…049a4               Head {h00=0x0018, h01=0x0050, text=»OPNR33 EQU * LINE 3 «, t00=0x002f, t01=0x002a}
0x049a4…049ba               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002f, t01=0x0046}
0x049ba…049d0               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002f, t01=0x005c}
0x049d0…049e6               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002f, t01=0x0072}
0x049e6…04a14               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/1308,0«, t00=0x002f, t01=0x0088}
0x04a14…04a20               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00b6}
0x04a20…04a2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c2}
0x04a2a…04a40               Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 2«, t00=0x002f, t01=0x00cc}
0x04a40…04a5c               Head {h00=0x0018, h01=0x0050, text=»OPNR20 EQU * LINE 0 «, t00=0x002f, t01=0x00e2}
0x04a5c…04a72               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002f, t01=0x00fe}
0x04a72…04a88               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002f, t01=0x0114}
0x04a88…04ab6               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0108,0«, t00=0x002f, t01=0x012a}
0x04ab6…04ac2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0158}
0x04ac2…04ade               Head {h00=0x0018, h01=0x0050, text=»OPNR21 EQU * LINE 1 «, t00=0x002f, t01=0x0164}
0x04ade…04af4               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002f, t01=0x0180}
0x04af4…04b0a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0030, t01=0x0008}
0x04b0a…04b38               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0908,0«, t00=0x0030, t01=0x001e}
0x04b38…04b44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x004c}
0x04b44…04b60               Head {h00=0x0018, h01=0x0050, text=»OPNR22 EQU * LINE 2 «, t00=0x0030, t01=0x0058}
0x04b60…04b76               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0030, t01=0x0074}
0x04b76…04b8c               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0030, t01=0x008a}
0x04b8c…04bba               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0B08,0«, t00=0x0030, t01=0x00a0}
0x04bba…04bc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00ce}
0x04bc6…04be2               Head {h00=0x0018, h01=0x0050, text=»OPNR23 EQU * LINE 3 «, t00=0x0030, t01=0x00da}
0x04be2…04bf8               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0030, t01=0x00f6}
0x04bf8…04c0e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0030, t01=0x010c}
0x04c0e…04c3c               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/1308,0«, t00=0x0030, t01=0x0122}
0x04c3c…04c48               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0150}
0x04c48…04c52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015c}
0x04c52…04c68               Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 1«, t00=0x0030, t01=0x0166}
0x04c68…04c84               Head {h00=0x0018, h01=0x0050, text=»OPNR10 EQU * LINE 0 «, t00=0x0030, t01=0x017c}
0x04c84…04c9a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0031, t01=0x0008}
0x04c9a…04cc8               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0108,0«, t00=0x0031, t01=0x001e}
0x04cc8…04cd4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x004c}
0x04cd4…04cf0               Head {h00=0x0018, h01=0x0050, text=»OPNR11 EQU * LINE 1 «, t00=0x0031, t01=0x0058}
0x04cf0…04d06               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0031, t01=0x0074}
0x04d06…04d34               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0908,0«, t00=0x0031, t01=0x008a}
0x04d34…04d40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00b8}
0x04d40…04d5c               Head {h00=0x0018, h01=0x0050, text=»OPNR12 EQU * LINE 2 «, t00=0x0031, t01=0x00c4}
0x04d5c…04d72               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0031, t01=0x00e0}
0x04d72…04da0               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/0B08,0«, t00=0x0031, t01=0x00f6}
0x04da0…04dac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0124}
0x04dac…04dc8               Head {h00=0x0018, h01=0x0050, text=»OPNR13 EQU * LINE 3 «, t00=0x0031, t01=0x0130}
0x04dc8…04dde               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0031, t01=0x014c}
0x04dde…04e0c               Head {h00=0x002a, h01=0x0050, text=» DATA /0103,/0400,/0D05,TIMACT,/1308,0«, t00=0x0031, t01=0x0162}
0x04e0c…04e18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0190}
0x04e18…04e44               Head {h00=0x0028, h01=0x0050, text=»* END OF REMOTE LINE PARAMETER AREAS«, t00=0x0032, t01=0x000c}
0x04e44…04e4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0038}
0x04e4e…04e58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0042}
0x04e58…04e88               Head {h00=0x002c, h01=0x0050, text=»PLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG «, t00=0x0032, t01=0x004c}
0x04e88…04e92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007c}
0x04e92…04ebe               Head {h00=0x0028, h01=0x0050, text=» IFF UTTEST=0 TEST VERSION OF DRIVER«, t00=0x0032, t01=0x0086}
0x04ebe…04ec8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b2}
0x04ec8…04ed6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00bc}
0x04ed6…04ee0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ca}
0x04ee0…04f0c               Head {h00=0x0028, h01=0x0050, text=»UTTST DATA UTTEST 1 = TRAP NOT USED «, t00=0x0032, t01=0x00d4}
0x04f0c…04f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0100}
0x04f16…04f20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x010a}
0x04f20…04f46               Head {h00=0x0022, h01=0x0050, text=»*    QUEUE STATISTICS COUNTERS«, t00=0x0032, t01=0x0114}
0x04f46…04f70               Head {h00=0x0026, h01=0x0050, text=»* EACH COUNTER HAS ONE WORD / PLC «, t00=0x0032, t01=0x013a}
0x04f70…04f7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0164}
0x04f7a…04f8e               Head {h00=0x0010, h01=0x0050, text=»STATAR EQU *«, t00=0x0032, t01=0x016e}
0x04f8e…04fb0               Head {h00=0x001e, h01=0x0050, text=»WIQSTA RES 8 WINDOW QUEUE «, t00=0x0032, t01=0x0182}
0x04fb0…04fd8               Head {h00=0x0024, h01=0x0050, text=»SBQSTA RES 8 SHORT BUFFERS QUEUE«, t00=0x0033, t01=0x0014}
0x04fd8…05000               Head {h00=0x0024, h01=0x0050, text=»LBQSTA RES 8 LONG BUFFERS QUEUE «, t00=0x0033, t01=0x003c}
0x05000…0501e               Head {h00=0x001a, h01=0x0050, text=»CCQSTA RES 8 CCA QUEUE«, t00=0x0033, t01=0x0064}
0x0501e…05046               Head {h00=0x0024, h01=0x0050, text=»STATLN EQU *-STATAR TABLE LENGTH«, t00=0x0033, t01=0x0082}
0x05046…05050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00aa}
0x05050…0505c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x00b4}
0x0505c…0506a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00c0}
0x0506a…05074               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ce}
0x05074…0507e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00d8}
0x0507e…0509c               Head {h00=0x001a, h01=0x0050, text=»*   CWT DISPLACEMENTS «, t00=0x0033, t01=0x00e2}
0x0509c…050a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0100}
0x050a6…050c8               Head {h00=0x001e, h01=0x0050, text=»CWTOPR EQU /00 CU OPERABLE«, t00=0x0033, t01=0x010a}
0x050c8…050e8               Head {h00=0x001c, h01=0x0050, text=»CWTCCB EQU /02 CCA BUSY «, t00=0x0033, t01=0x012c}
0x050e8…05114               Head {h00=0x0028, h01=0x0050, text=»CWTGR EQU /04 GENERAL READ ALLOWED  «, t00=0x0033, t01=0x014c}
0x05114…0513a               Head {h00=0x0022, h01=0x0050, text=»CWTPNR EQU /06 CU NUMBER (0-7)«, t00=0x0033, t01=0x0178}
0x0513a…0515c               Head {h00=0x001e, h01=0x0050, text=»CWTABW EQU /08 WS TO ABORT«, t00=0x0034, t01=0x000e}
0x0515c…05188               Head {h00=0x0028, h01=0x0050, text=»CWTPLS EQU /0A LATEST PLC RCA STATUS«, t00=0x0034, t01=0x0030}
0x05188…051b0               Head {h00=0x0024, h01=0x0050, text=»CWTLNO EQU /0C LINE NO INDICATOR«, t00=0x0034, t01=0x005c}
0x051b0…051e0               Head {h00=0x002c, h01=0x0050, text=»CWTPAR EQU /0E INDEX TO PARAMETER AREA  «, t00=0x0034, t01=0x0084}
0x051e0…0521a               Head {h00=0x0036, h01=0x0050, text=»CWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2«, t00=0x0034, t01=0x00b4}
0x0521a…05242               Head {h00=0x0024, h01=0x0050, text=»CWTINT EQU /12 WS TABLE ADDRESS «, t00=0x0034, t01=0x00ee}
0x05242…0526e               Head {h00=0x0028, h01=0x0050, text=»CWTBUF EQU /14 INP. BUFFER ADDRESS  «, t00=0x0034, t01=0x0116}
0x0526e…052a4               Head {h00=0x0032, h01=0x0050, text=»CWTSBQ EQU /16 QUEUE FOR SHORT OUTP. BUFFERS  «, t00=0x0034, t01=0x0142}
0x052a4…052d8               Head {h00=0x0030, h01=0x0050, text=»CWTLBQ EQU /18 QUEUE FOR LONG OUTP. BUFFERS «, t00=0x0034, t01=0x0178}
0x052d8…05302               Head {h00=0x0026, h01=0x0050, text=»CWTCCQ EQU /1A QUEUE FOR CCA FREE «, t00=0x0035, t01=0x001c}
0x05302…05338               Head {h00=0x0032, h01=0x0050, text=»CWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS «, t00=0x0035, t01=0x0046}
0x05338…0535e               Head {h00=0x0022, h01=0x0050, text=»CWTTPR EQU /1E TIMER POINTER  «, t00=0x0035, t01=0x007c}
0x0535e…05386               Head {h00=0x0024, h01=0x0050, text=»CWTCIO EQU /20 CIO START INSTR. «, t00=0x0035, t01=0x00a2}
0x05386…053a8               Head {h00=0x001e, h01=0x0050, text=»CWTST3 EQU /22 SST INSTR. «, t00=0x0035, t01=0x00ca}
0x053a8…053da               Head {h00=0x002e, h01=0x0050, text=»CWTCSD EQU /24 CTRL UNIT START DESCRIPTOR «, t00=0x0035, t01=0x00ec}
0x053da…0540a               Head {h00=0x002c, h01=0x0050, text=»CWTCID EQU /2A CTRL UNIT INTERF. DESCR. «, t00=0x0035, t01=0x011e}
0x0540a…05434               Head {h00=0x0026, h01=0x0050, text=»CWTCCA EQU /34 COMMAND CTRL AREA  «, t00=0x0035, t01=0x014e}
0x05434…0545e               Head {h00=0x0026, h01=0x0050, text=»CWTRCA EQU /44 RESPONSE CTRL AREA «, t00=0x0035, t01=0x0178}
0x0545e…05492               Head {h00=0x0030, h01=0x0050, text=»CWTPBS EQU /54 POOLBL. SHORT OUTP. BUFFERS  «, t00=0x0036, t01=0x0012}
0x05492…054c6               Head {h00=0x0030, h01=0x0050, text=»CWTPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2«, t00=0x0036, t01=0x0046}
0x054c6…054fa               Head {h00=0x0030, h01=0x0050, text=»CWTPBG EQU /68 POOLBL. GENERAL READ BUFFERS «, t00=0x0036, t01=0x007a}
0x054fa…0551c               Head {h00=0x001e, h01=0x0050, text=»CWTWSS EQU /72 WS STATUS  «, t00=0x0036, t01=0x00ae}
0x0551c…05554               Head {h00=0x0034, h01=0x0050, text=»CWTSOB EQU MAXWS+MAXWS+/74 SH. OUTP. BUFFERS =4 «, t00=0x0036, t01=0x00d0}
0x05554…0557a               Head {h00=0x0022, h01=0x0050, text=»CWTLB1 EQU CWTSOB+SOBUFS U =7 «, t00=0x0036, t01=0x0108}
0x0557a…055b0               Head {h00=0x0032, h01=0x0050, text=»CWTLOB EQU CWTLB1+SOBUFS LONG OUTP. BUFFERS =7«, t00=0x0036, t01=0x012e}
0x055b0…055d6               Head {h00=0x0022, h01=0x0050, text=»CWTGR1 EQU CWTLOB+LOBUFS U =7 «, t00=0x0036, t01=0x0164}
0x055d6…0560c               Head {h00=0x0032, h01=0x0050, text=»CWTGRB EQU CWTGR1+LOBUFS GEN. READ BUFFERS =7 «, t00=0x0036, t01=0x018a}
0x0560c…0561a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0030}
0x0561a…05624               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x003e}
0x05624…0563c               Head {h00=0x0014, h01=0x0050, text=» IFF PLCNRL=0   «, t00=0x0037, t01=0x0048}
0x0563c…0565e               Head {h00=0x001e, h01=0x0050, text=»*    CWT FOR PLC NUMBER 1 «, t00=0x0037, t01=0x0060}
0x0565e…05668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0082}
0x05668…0567c               Head {h00=0x0010, h01=0x0050, text=»PL0CWT EQU *«, t00=0x0037, t01=0x008c}
0x0567c…05686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a0}
0x05686…0569a               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x0037, t01=0x00aa}
0x0569a…056ba               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0037, t01=0x00be}
0x056ba…056e0               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0037, t01=0x00de}
0x056e0…05710               Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0037, t01=0x0104}
0x05710…0571a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0134}
0x0571a…05734               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x0037, t01=0x013e}
0x05734…05754               Head {h00=0x001c, h01=0x0050, text=» DATA 0 PLC NUMBER (0-3)«, t00=0x0037, t01=0x0158}
0x05754…05786               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0037, t01=0x0178}
0x05786…057ac               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0038, t01=0x001a}
0x057ac…057ce               Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0038, t01=0x0040}
0x057ce…057f2               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INDEX PARAMETER AREA«, t00=0x0038, t01=0x0062}
0x057f2…057fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0086}
0x057fc…05824               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x0038, t01=0x0090}
0x05824…05856               Head {h00=0x002e, h01=0x0050, text=» DATA OPARL1 OPEN LINE PARAMETER AREA ADDR«, t00=0x0038, t01=0x00b8}
0x05856…05886               Head {h00=0x002c, h01=0x0050, text=» DATA INTPL1 WORK STATION TABLE ADDRESS «, t00=0x0038, t01=0x00ea}
0x05886…058aa               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0038, t01=0x011a}
0x058aa…058d8               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0038, t01=0x013e}
0x058d8…05904               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0038, t01=0x016c}
0x05904…05926               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0039, t01=0x0008}
0x05926…05958               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0039, t01=0x002a}
0x05958…05988               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0039, t01=0x005c}
0x05988…05992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x008c}
0x05992…059ae               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x0039, t01=0x0096}
0x059ae…059da               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA0 START I/O OPERATION«, t00=0x0039, t01=0x00b2}
0x059da…05a10               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA0 RELEASE RCA AND RESET INTERRUPT«, t00=0x0039, t01=0x00de}
0x05a10…05a1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0114}
0x05a1a…05a3a               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x0039, t01=0x011e}
0x05a3a…05a6c               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0039, t01=0x013e}
0x05a6c…05a90               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0039, t01=0x0170}
0x05a90…05ab8 (58, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» DATA PL0CWT+CWTCID CID ADDRESS «, t00=0x003a, t01=0x0004}
0x05ab8…05adc               Head {h00=0x0020, h01=0x0050, text=» DATA INTLV0 INTERRUPT LEVEL«, t00=0x003a, t01=0x002c}
0x05adc…05b12               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x003a, t01=0x0050}
0x05b12…05b36               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x003a, t01=0x0086}
0x05b36…05b5e               Head {h00=0x0024, h01=0x0050, text=» DATA PL0CWT+CWTCCA CCA ADDRESS «, t00=0x003a, t01=0x00aa}
0x05b5e…05b82               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x003a, t01=0x00d2}
0x05b82…05baa               Head {h00=0x0024, h01=0x0050, text=» DATA PL0CWT+CWTRCA RCA ADDRESS «, t00=0x003a, t01=0x00f6}
0x05baa…05bd2               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x003a, t01=0x011e}
0x05bd2…05bf6               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x003a, t01=0x0146}
0x05bf6…05c1a               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x003a, t01=0x016a}
0x05c1a…05c24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018e}
0x05c24…05c3e               Head {h00=0x0016, h01=0x0050, text=»*      POOLBLOCKS «, t00=0x003b, t01=0x0008}
0x05c3e…05c5e               Head {h00=0x001c, h01=0x0050, text=» DATA 'SO',0 ID & FLAGS «, t00=0x003b, t01=0x0022}
0x05c5e…05c96               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x003b, t01=0x0042}
0x05c96…05cbe               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x003b, t01=0x007a}
0x05cbe…05cd2               Head {h00=0x0010, h01=0x0050, text=» DATA 'LO',0«, t00=0x003b, t01=0x00a2}
0x05cd2…05cf0               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x003b, t01=0x00b6}
0x05cf0…05d0c               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x003b, t01=0x00d4}
0x05d0c…05d20               Head {h00=0x0010, h01=0x0050, text=» DATA 'GR',0«, t00=0x003b, t01=0x00f0}
0x05d20…05d3e               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x003b, t01=0x0104}
0x05d3e…05d5a               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x003b, t01=0x0122}
0x05d5a…05d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x013e}
0x05d64…05d9a               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x003b, t01=0x0148}
0x05d9a…05dd0               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x003b, t01=0x017e}
0x05dd0…05dda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0024}
0x05dda…05df6               Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x003c, t01=0x002e}
0x05df6…05e1e               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x003c, t01=0x004a}
0x05e1e…05e46               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x003c, t01=0x0072}
0x05e46…05e6e               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x003c, t01=0x009a}
0x05e6e…05e78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c2}
0x05e78…05e82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00cc}
0x05e82…05e8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00d6}
0x05e8e…05ea4               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x003c, t01=0x00e2}
0x05ea4…05eae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00f8}
0x05eae…05ebc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0102}
0x05ebc…05ec6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0110}
0x05ec6…05ee8               Head {h00=0x001e, h01=0x0050, text=»*    CWT FOR PLC NUMBER 2 «, t00=0x003c, t01=0x011a}
0x05ee8…05ef2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013c}
0x05ef2…05f06               Head {h00=0x0010, h01=0x0050, text=»PL1CWT EQU *«, t00=0x003c, t01=0x0146}
0x05f06…05f10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x015a}
0x05f10…05f24               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x003c, t01=0x0164}
0x05f24…05f44               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x003c, t01=0x0178}
0x05f44…05f6a               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x003d, t01=0x0008}
0x05f6a…05f9a               Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x003d, t01=0x002e}
0x05f9a…05fa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x005e}
0x05fa4…05fbe               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x003d, t01=0x0068}
0x05fbe…05fde               Head {h00=0x001c, h01=0x0050, text=» DATA 1 PLC NUMBER (0-3)«, t00=0x003d, t01=0x0082}
0x05fde…06010               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x003d, t01=0x00a2}
0x06010…06036               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x003d, t01=0x00d4}
0x06036…06058               Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x003d, t01=0x00fa}
0x06058…06080               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREA «, t00=0x003d, t01=0x011c}
0x06080…0608a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0144}
0x0608a…060b2               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x003d, t01=0x014e}
0x060b2…060e4               Head {h00=0x002e, h01=0x0050, text=» DATA OPARL2 OPEN LINE PARAMETER AREA ADDR«, t00=0x003d, t01=0x0176}
0x060e4…06114               Head {h00=0x002c, h01=0x0050, text=» DATA INTPL2 WORK STATION TABLE ADDRESS «, t00=0x003e, t01=0x0018}
0x06114…06138               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x003e, t01=0x0048}
0x06138…06166               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x003e, t01=0x006c}
0x06166…06192               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x003e, t01=0x009a}
0x06192…061b4               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x003e, t01=0x00c6}
0x061b4…061e6               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x003e, t01=0x00e8}
0x061e6…06216               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x003e, t01=0x011a}
0x06216…06220               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x014a}
0x06220…0623c               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x003e, t01=0x0154}
0x0623c…06268               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA1 START I/O OPERATION«, t00=0x003e, t01=0x0170}
0x06268…0629e               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA1 RELEASE RCA AND RESET INTERRUPT«, t00=0x003f, t01=0x000c}
0x0629e…062a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0042}
0x062a8…062c8               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x003f, t01=0x004c}
0x062c8…062fa               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x003f, t01=0x006c}
0x062fa…0631e               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x003f, t01=0x009e}
0x0631e…06346               Head {h00=0x0024, h01=0x0050, text=» DATA PL1CWT+CWTCID CID ADDRESS «, t00=0x003f, t01=0x00c2}
0x06346…0636a               Head {h00=0x0020, h01=0x0050, text=» DATA INTLV1 INTERRUPT LEVEL«, t00=0x003f, t01=0x00ea}
0x0636a…063a0               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x003f, t01=0x010e}
0x063a0…063c4               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x003f, t01=0x0144}
0x063c4…063ec               Head {h00=0x0024, h01=0x0050, text=» DATA PL1CWT+CWTCCA CCA ADDRESS «, t00=0x003f, t01=0x0168}
0x063ec…06410               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x003f, t01=0x0190}
0x06410…06438               Head {h00=0x0024, h01=0x0050, text=» DATA PL1CWT+CWTRCA RCA ADDRESS «, t00=0x0040, t01=0x0024}
0x06438…06460               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0040, t01=0x004c}
0x06460…06484               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0040, t01=0x0074}
0x06484…064a8               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0040, t01=0x0098}
0x064a8…064b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00bc}
0x064b2…064de               Head {h00=0x0028, h01=0x0050, text=»*      POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0040, t01=0x00c6}
0x064de…0650e               Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0040, t01=0x00f2}
0x0650e…06546               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0040, t01=0x0122}
0x06546…0656e               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0040, t01=0x015a}
0x0656e…06596               Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0040, t01=0x0182}
0x06596…065b4               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0041, t01=0x001a}
0x065b4…065d0               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0041, t01=0x0038}
0x065d0…065f8               Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0041, t01=0x0054}
0x065f8…06616               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0041, t01=0x007c}
0x06616…06632               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0041, t01=0x009a}
0x06632…0663c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b6}
0x0663c…06672               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0041, t01=0x00c0}
0x06672…066a8               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0041, t01=0x00f6}
0x066a8…066b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x012c}
0x066b2…066ce               Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x0041, t01=0x0136}
0x066ce…066f6               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0041, t01=0x0152}
0x066f6…0671e               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0041, t01=0x017a}
0x0671e…06746               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0042, t01=0x0012}
0x06746…06750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x003a}
0x06750…0675a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0044}
0x0675a…06770               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x0042, t01=0x004e}
0x06770…0677a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0064}
0x0677a…06788               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x006e}
0x06788…06792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x007c}
0x06792…067b4               Head {h00=0x001e, h01=0x0050, text=»*    CWT FOR PLC NUMBER 3 «, t00=0x0042, t01=0x0086}
0x067b4…067be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00a8}
0x067be…067d2               Head {h00=0x0010, h01=0x0050, text=»PL2CWT EQU *«, t00=0x0042, t01=0x00b2}
0x067d2…067dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00c6}
0x067dc…067f0               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x0042, t01=0x00d0}
0x067f0…06810               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0042, t01=0x00e4}
0x06810…06836               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0042, t01=0x0104}
0x06836…06866               Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0042, t01=0x012a}
0x06866…06870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x015a}
0x06870…0688a               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x0042, t01=0x0164}
0x0688a…068aa               Head {h00=0x001c, h01=0x0050, text=» DATA 2 PLC NUMBER (0-3)«, t00=0x0042, t01=0x017e}
0x068aa…068dc               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0043, t01=0x000e}
0x068dc…06902               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0043, t01=0x0040}
0x06902…06924               Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0043, t01=0x0066}
0x06924…0694c               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREA «, t00=0x0043, t01=0x0088}
0x0694c…06956               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b0}
0x06956…0697e               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x0043, t01=0x00ba}
0x0697e…069b0               Head {h00=0x002e, h01=0x0050, text=» DATA OPARL3 OPEN LINE PARAMETER AREA ADDR«, t00=0x0043, t01=0x00e2}
0x069b0…069e0               Head {h00=0x002c, h01=0x0050, text=» DATA INTPL3 WORK STATION TABLE ADDRESS «, t00=0x0043, t01=0x0114}
0x069e0…06a04               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0043, t01=0x0144}
0x06a04…06a32               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0043, t01=0x0168}
0x06a32…06a5e               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0044, t01=0x0008}
0x06a5e…06a80               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0044, t01=0x0034}
0x06a80…06ab2               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0044, t01=0x0056}
0x06ab2…06ae2               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0044, t01=0x0088}
0x06ae2…06aec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b8}
0x06aec…06b08               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x0044, t01=0x00c2}
0x06b08…06b34               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA2 START I/O OPERATION«, t00=0x0044, t01=0x00de}
0x06b34…06b6a               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA2 RELEASE RCA AND RESET INTERRUPT«, t00=0x0044, t01=0x010a}
0x06b6a…06b74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0140}
0x06b74…06b94               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x0044, t01=0x014a}
0x06b94…06bc6               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0044, t01=0x016a}
0x06bc6…06bea               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0045, t01=0x000c}
0x06bea…06c12               Head {h00=0x0024, h01=0x0050, text=» DATA PL2CWT+CWTCID CID ADDRESS «, t00=0x0045, t01=0x0030}
0x06c12…06c36               Head {h00=0x0020, h01=0x0050, text=» DATA INTLV2 INTERRUPT LEVEL«, t00=0x0045, t01=0x0058}
0x06c36…06c6c               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0045, t01=0x007c}
0x06c6c…06c90               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0045, t01=0x00b2}
0x06c90…06cb8               Head {h00=0x0024, h01=0x0050, text=» DATA PL2CWT+CWTCCA CCA ADDRESS «, t00=0x0045, t01=0x00d6}
0x06cb8…06cdc               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0045, t01=0x00fe}
0x06cdc…06d04               Head {h00=0x0024, h01=0x0050, text=» DATA PL2CWT+CWTRCA RCA ADDRESS «, t00=0x0045, t01=0x0122}
0x06d04…06d2c               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0045, t01=0x014a}
0x06d2c…06d50               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0045, t01=0x0172}
0x06d50…06d74               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0046, t01=0x0008}
0x06d74…06d7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x002c}
0x06d7e…06daa               Head {h00=0x0028, h01=0x0050, text=»*      POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0046, t01=0x0036}
0x06daa…06dda               Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0046, t01=0x0062}
0x06dda…06e12               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0046, t01=0x0092}
0x06e12…06e3a               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0046, t01=0x00ca}
0x06e3a…06e62               Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0046, t01=0x00f2}
0x06e62…06e80               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0046, t01=0x011a}
0x06e80…06e9c               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0046, t01=0x0138}
0x06e9c…06ec4               Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0046, t01=0x0154}
0x06ec4…06ee2               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0046, t01=0x017c}
0x06ee2…06efe               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0047, t01=0x000a}
0x06efe…06f08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0026}
0x06f08…06f3e               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0047, t01=0x0030}
0x06f3e…06f74               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0047, t01=0x0066}
0x06f74…06f7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x009c}
0x06f7e…06f9a               Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x0047, t01=0x00a6}
0x06f9a…06fc2               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0047, t01=0x00c2}
0x06fc2…06fea               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0047, t01=0x00ea}
0x06fea…07012               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0047, t01=0x0112}
0x07012…0701c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x013a}
0x0701c…07026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0144}
0x07026…0703c               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x0047, t01=0x014e}
0x0703c…07046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0164}
0x07046…07054               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x016e}
0x07054…0705e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x017c}
0x0705e…07080               Head {h00=0x001e, h01=0x0050, text=»*    CWT FOR PLC NUMBER 4 «, t00=0x0047, t01=0x0186}
0x07080…0708a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0018}
0x0708a…0709e               Head {h00=0x0010, h01=0x0050, text=»PL3CWT EQU *«, t00=0x0048, t01=0x0022}
0x0709e…070a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0036}
0x070a8…070bc               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x0048, t01=0x0040}
0x070bc…070dc               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0048, t01=0x0054}
0x070dc…07102               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0048, t01=0x0074}
0x07102…07132               Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0048, t01=0x009a}
0x07132…0713c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ca}
0x0713c…07156               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x0048, t01=0x00d4}
0x07156…07176               Head {h00=0x001c, h01=0x0050, text=» DATA 3 PLC NUMBER (0-3)«, t00=0x0048, t01=0x00ee}
0x07176…071a8               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0048, t01=0x010e}
0x071a8…071ce               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0048, t01=0x0140}
0x071ce…071f0               Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0048, t01=0x0166}
0x071f0…07218               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREA «, t00=0x0048, t01=0x0188}
0x07218…07222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0020}
0x07222…0724a               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x0049, t01=0x002a}
0x0724a…0727c               Head {h00=0x002e, h01=0x0050, text=» DATA OPARL4 OPEN LINE PARAMETER AREA ADDR«, t00=0x0049, t01=0x0052}
0x0727c…072ac               Head {h00=0x002c, h01=0x0050, text=» DATA INTPL4 WORK STATION TABLE ADDRESS «, t00=0x0049, t01=0x0084}
0x072ac…072d0               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0049, t01=0x00b4}
0x072d0…072fe               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0049, t01=0x00d8}
0x072fe…0732a               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0049, t01=0x0106}
0x0732a…0734c               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0049, t01=0x0132}
0x0734c…0737e               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0049, t01=0x0154}
0x0737e…073ae               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0049, t01=0x0186}
0x073ae…073b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0026}
0x073b8…073d4               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x004a, t01=0x0030}
0x073d4…07400               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA3 START I/O OPERATION«, t00=0x004a, t01=0x004c}
0x07400…07436               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA3 RELEASE RCA AND RESET INTERRUPT«, t00=0x004a, t01=0x0078}
0x07436…07440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ae}
0x07440…07460               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x004a, t01=0x00b8}
0x07460…07492               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x004a, t01=0x00d8}
0x07492…074b6               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x004a, t01=0x010a}
0x074b6…074de               Head {h00=0x0024, h01=0x0050, text=» DATA PL3CWT+CWTCID CID ADDRESS «, t00=0x004a, t01=0x012e}
0x074de…07502               Head {h00=0x0020, h01=0x0050, text=» DATA INTLV3 INTERRUPT LEVEL«, t00=0x004a, t01=0x0156}
0x07502…07538               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x004a, t01=0x017a}
0x07538…0755c               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x004b, t01=0x0020}
0x0755c…07584               Head {h00=0x0024, h01=0x0050, text=» DATA PL3CWT+CWTCCA CCA ADDRESS «, t00=0x004b, t01=0x0044}
0x07584…075a8               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x004b, t01=0x006c}
0x075a8…075d0               Head {h00=0x0024, h01=0x0050, text=» DATA PL3CWT+CWTRCA RCA ADDRESS «, t00=0x004b, t01=0x0090}
0x075d0…075f8               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x004b, t01=0x00b8}
0x075f8…0761c               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x004b, t01=0x00e0}
0x0761c…07640               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x004b, t01=0x0104}
0x07640…0764a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0128}
0x0764a…07676               Head {h00=0x0028, h01=0x0050, text=»*      POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x004b, t01=0x0132}
0x07676…076a6               Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x004b, t01=0x015e}
0x076a6…076de               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x004b, t01=0x018e}
0x076de…07706               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x004c, t01=0x0036}
0x07706…0772e               Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x004c, t01=0x005e}
0x0772e…0774c               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x004c, t01=0x0086}
0x0774c…07768               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x004c, t01=0x00a4}
0x07768…07790               Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x004c, t01=0x00c0}
0x07790…077ae               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x004c, t01=0x00e8}
0x077ae…077ca               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x004c, t01=0x0106}
0x077ca…077d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0122}
0x077d4…0780a               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x004c, t01=0x012c}
0x0780a…07840               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x004c, t01=0x0162}
0x07840…0784a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0008}
0x0784a…07866               Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x004d, t01=0x0012}
0x07866…0788e               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x004d, t01=0x002e}
0x0788e…078b6               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x004d, t01=0x0056}
0x078b6…078de               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x004d, t01=0x007e}
0x078de…078ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00a6}
0x078ea…078f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00b2}
0x078f4…07902               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x00bc}
0x07902…07918               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x004d, t01=0x00ca}
0x07918…07922               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00e0}
0x07922…0794a               Head {h00=0x0024, h01=0x0050, text=»*    CWT FOR PLC NUMBER 5 REMOTE«, t00=0x004d, t01=0x00ea}
0x0794a…07954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0112}
0x07954…07968               Head {h00=0x0010, h01=0x0050, text=»PR1CWT EQU *«, t00=0x004d, t01=0x011c}
0x07968…07972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0130}
0x07972…07986               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x004d, t01=0x013a}
0x07986…079a6               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x004d, t01=0x014e}
0x079a6…079cc               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x004d, t01=0x016e}
0x079cc…079fc (78, 0, 400)  Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x004e, t01=0x0004}
0x079fc…07a06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0034}
0x07a06…07a20               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x004e, t01=0x003e}
0x07a20…07a44               Head {h00=0x0020, h01=0x0050, text=» DATA 4 PLC NUMBER (4-7) =5 «, t00=0x004e, t01=0x0058}
0x07a44…07a76               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x004e, t01=0x007c}
0x07a76…07a9c               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x004e, t01=0x00ae}
0x07a9c…07abe               Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x004e, t01=0x00d4}
0x07abe…07ae6               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS«, t00=0x004e, t01=0x00f6}
0x07ae6…07af0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x011e}
0x07af0…07b18               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x004e, t01=0x0128}
0x07b18…07b50               Head {h00=0x0034, h01=0x0050, text=» DATA OPARR1 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x004e, t01=0x0150}
0x07b50…07b80               Head {h00=0x002c, h01=0x0050, text=» DATA INTPR1 WORK STATION TABLE ADDRESS «, t00=0x004e, t01=0x0188}
0x07b80…07ba4               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x004f, t01=0x0028}
0x07ba4…07bd2               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x004f, t01=0x004c}
0x07bd2…07bfe               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x004f, t01=0x007a}
0x07bfe…07c20               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x004f, t01=0x00a6}
0x07c20…07c52               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x004f, t01=0x00c8}
0x07c52…07c82               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x004f, t01=0x00fa}
0x07c82…07c8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x012a}
0x07c8c…07ca8               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x004f, t01=0x0134}
0x07ca8…07cd4               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA4 START I/O OPERATION«, t00=0x004f, t01=0x0150}
0x07cd4…07d0a               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA4 RELEASE RCA AND RESET INTERRUPT«, t00=0x004f, t01=0x017c}
0x07d0a…07d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0022}
0x07d14…07d34               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x0050, t01=0x002c}
0x07d34…07d66               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0050, t01=0x004c}
0x07d66…07d8a               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0050, t01=0x007e}
0x07d8a…07db2               Head {h00=0x0024, h01=0x0050, text=» DATA PR1CWT+CWTCID CID ADDRESS «, t00=0x0050, t01=0x00a2}
0x07db2…07dd6               Head {h00=0x0020, h01=0x0050, text=» DATA INTRV0 INTERRUPT LEVEL«, t00=0x0050, t01=0x00ca}
0x07dd6…07e0c               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0050, t01=0x00ee}
0x07e0c…07e30               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0050, t01=0x0124}
0x07e30…07e58               Head {h00=0x0024, h01=0x0050, text=» DATA PR1CWT+CWTCCA CCA ADDRESS «, t00=0x0050, t01=0x0148}
0x07e58…07e7c               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0050, t01=0x0170}
0x07e7c…07ea4 (81, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» DATA PR1CWT+CWTRCA RCA ADDRESS «, t00=0x0051, t01=0x0004}
0x07ea4…07ecc               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0051, t01=0x002c}
0x07ecc…07ef0               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0051, t01=0x0054}
0x07ef0…07f14               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0051, t01=0x0078}
0x07f14…07f1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x009c}
0x07f1e…07f4a               Head {h00=0x0028, h01=0x0050, text=»*      POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0051, t01=0x00a6}
0x07f4a…07f7a               Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0051, t01=0x00d2}
0x07f7a…07fb2               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0051, t01=0x0102}
0x07fb2…07fda               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0051, t01=0x013a}
0x07fda…08002               Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0051, t01=0x0162}
0x08002…08020               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0051, t01=0x018a}
0x08020…0803c               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0052, t01=0x0018}
0x0803c…08064               Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0052, t01=0x0034}
0x08064…08082               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0052, t01=0x005c}
0x08082…0809e               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0052, t01=0x007a}
0x0809e…080a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0096}
0x080a8…080de               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0052, t01=0x00a0}
0x080de…08114               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0052, t01=0x00d6}
0x08114…0811e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x010c}
0x0811e…0813a               Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x0052, t01=0x0116}
0x0813a…08162               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0052, t01=0x0132}
0x08162…0818a               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0052, t01=0x015a}
0x0818a…081b2               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0052, t01=0x0182}
0x081b2…081bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x001a}
0x081bc…081c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0024}
0x081c6…081d4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x002e}
0x081d4…081ea               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0053, t01=0x003c}
0x081ea…081f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0052}
0x081f4…0821c               Head {h00=0x0024, h01=0x0050, text=»*    CWT FOR PLC NUMBER 6 REMOTE«, t00=0x0053, t01=0x005c}
0x0821c…08226               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0084}
0x08226…0823a               Head {h00=0x0010, h01=0x0050, text=»PR2CWT EQU *«, t00=0x0053, t01=0x008e}
0x0823a…08244               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00a2}
0x08244…08258               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x0053, t01=0x00ac}
0x08258…08278               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0053, t01=0x00c0}
0x08278…0829e               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0053, t01=0x00e0}
0x0829e…082ce               Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0053, t01=0x0106}
0x082ce…082d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0136}
0x082d8…082f2               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x0053, t01=0x0140}
0x082f2…08316               Head {h00=0x0020, h01=0x0050, text=» DATA 5 PLC NUMBER (4-7) =5 «, t00=0x0053, t01=0x015a}
0x08316…08348               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0053, t01=0x017e}
0x08348…0836e               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0054, t01=0x0020}
0x0836e…08392               Head {h00=0x0020, h01=0x0050, text=» DATA 0 LINE NO INDICATOR =5«, t00=0x0054, t01=0x0046}
0x08392…083be               Head {h00=0x0028, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS =5 «, t00=0x0054, t01=0x006a}
0x083be…083c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0096}
0x083c8…083f0               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x0054, t01=0x00a0}
0x083f0…08428               Head {h00=0x0034, h01=0x0050, text=» DATA OPARR2 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x0054, t01=0x00c8}
0x08428…08458               Head {h00=0x002c, h01=0x0050, text=» DATA INTPR2 WORK STATION TABLE ADDRESS «, t00=0x0054, t01=0x0100}
0x08458…0847c               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0054, t01=0x0130}
0x0847c…084aa               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0054, t01=0x0154}
0x084aa…084d6               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0054, t01=0x0182}
0x084d6…084f8               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0055, t01=0x001e}
0x084f8…0852a               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0055, t01=0x0040}
0x0852a…0855a               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0055, t01=0x0072}
0x0855a…08564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00a2}
0x08564…08580               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x0055, t01=0x00ac}
0x08580…085ac               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA5 START I/O OPERATION«, t00=0x0055, t01=0x00c8}
0x085ac…085e2               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA5 RELEASE RCA AND RESET INTERRUPT«, t00=0x0055, t01=0x00f4}
0x085e2…085ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x012a}
0x085ec…0860c               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x0055, t01=0x0134}
0x0860c…0863e               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0055, t01=0x0154}
0x0863e…08662               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0055, t01=0x0186}
0x08662…0868a               Head {h00=0x0024, h01=0x0050, text=» DATA PR2CWT+CWTCID CID ADDRESS «, t00=0x0056, t01=0x001a}
0x0868a…086ae               Head {h00=0x0020, h01=0x0050, text=» DATA INTRV1 INTERRUPT LEVEL«, t00=0x0056, t01=0x0042}
0x086ae…086e4               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0056, t01=0x0066}
0x086e4…08708               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0056, t01=0x009c}
0x08708…08730               Head {h00=0x0024, h01=0x0050, text=» DATA PR2CWT+CWTCCA CCA ADDRESS «, t00=0x0056, t01=0x00c0}
0x08730…08754               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0056, t01=0x00e8}
0x08754…0877c               Head {h00=0x0024, h01=0x0050, text=» DATA PR2CWT+CWTRCA RCA ADDRESS «, t00=0x0056, t01=0x010c}
0x0877c…087a4               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0056, t01=0x0134}
0x087a4…087c8               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0056, t01=0x015c}
0x087c8…087ec               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0056, t01=0x0180}
0x087ec…087f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0014}
0x087f6…08822               Head {h00=0x0028, h01=0x0050, text=»*      POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0057, t01=0x001e}
0x08822…08852               Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0057, t01=0x004a}
0x08852…0888a               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0057, t01=0x007a}
0x0888a…088b2               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0057, t01=0x00b2}
0x088b2…088da               Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0057, t01=0x00da}
0x088da…088f8               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0057, t01=0x0102}
0x088f8…08914               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0057, t01=0x0120}
0x08914…0893c               Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0057, t01=0x013c}
0x0893c…0895a               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0057, t01=0x0164}
0x0895a…08976               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0057, t01=0x0182}
0x08976…08980               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x000e}
0x08980…089b6               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0058, t01=0x0018}
0x089b6…089ec               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0058, t01=0x004e}
0x089ec…089f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0084}
0x089f6…08a12               Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x0058, t01=0x008e}
0x08a12…08a3a               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0058, t01=0x00aa}
0x08a3a…08a62               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0058, t01=0x00d2}
0x08a62…08a8a               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0058, t01=0x00fa}
0x08a8a…08a94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0122}
0x08a94…08a9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x012c}
0x08a9e…08aac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x0136}
0x08aac…08ac2               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0058, t01=0x0144}
0x08ac2…08acc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x015a}
0x08acc…08af4               Head {h00=0x0024, h01=0x0050, text=»*    CWT FOR PLC NUMBER 7 REMOTE«, t00=0x0058, t01=0x0164}
0x08af4…08afe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x018c}
0x08afe…08b12               Head {h00=0x0010, h01=0x0050, text=»PR3CWT EQU *«, t00=0x0059, t01=0x0008}
0x08b12…08b1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x001c}
0x08b1c…08b30               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x0059, t01=0x0026}
0x08b30…08b50               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0059, t01=0x003a}
0x08b50…08b76               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0059, t01=0x005a}
0x08b76…08ba6               Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0059, t01=0x0080}
0x08ba6…08bb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b0}
0x08bb0…08bca               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x0059, t01=0x00ba}
0x08bca…08bee               Head {h00=0x0020, h01=0x0050, text=» DATA 6 PLC NUMBER (4-7) =5 «, t00=0x0059, t01=0x00d4}
0x08bee…08c20               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0059, t01=0x00f8}
0x08c20…08c46               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0059, t01=0x012a}
0x08c46…08c68               Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0059, t01=0x0150}
0x08c68…08c90               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS«, t00=0x0059, t01=0x0172}
0x08c90…08c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x000a}
0x08c9a…08cc2               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x005a, t01=0x0014}
0x08cc2…08cfa               Head {h00=0x0034, h01=0x0050, text=» DATA OPARR3 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x005a, t01=0x003c}
0x08cfa…08d2a               Head {h00=0x002c, h01=0x0050, text=» DATA INTPR3 WORK STATION TABLE ADDRESS «, t00=0x005a, t01=0x0074}
0x08d2a…08d4e               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x005a, t01=0x00a4}
0x08d4e…08d7c               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x005a, t01=0x00c8}
0x08d7c…08da8               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x005a, t01=0x00f6}
0x08da8…08dca               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x005a, t01=0x0122}
0x08dca…08dfc               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x005a, t01=0x0144}
0x08dfc…08e2c               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x005a, t01=0x0176}
0x08e2c…08e36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0016}
0x08e36…08e52               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x005b, t01=0x0020}
0x08e52…08e7e               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA6 START I/O OPERATION«, t00=0x005b, t01=0x003c}
0x08e7e…08eb4               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA6 RELEASE RCA AND RESET INTERRUPT«, t00=0x005b, t01=0x0068}
0x08eb4…08ebe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x009e}
0x08ebe…08ede               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x005b, t01=0x00a8}
0x08ede…08f10               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x005b, t01=0x00c8}
0x08f10…08f34               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x005b, t01=0x00fa}
0x08f34…08f5c               Head {h00=0x0024, h01=0x0050, text=» DATA PR3CWT+CWTCID CID ADDRESS «, t00=0x005b, t01=0x011e}
0x08f5c…08f80               Head {h00=0x0020, h01=0x0050, text=» DATA INTRV2 INTERRUPT LEVEL«, t00=0x005b, t01=0x0146}
0x08f80…08fb6               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x005b, t01=0x016a}
0x08fb6…08fda               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x005c, t01=0x0010}
0x08fda…09002               Head {h00=0x0024, h01=0x0050, text=» DATA PR3CWT+CWTCCA CCA ADDRESS «, t00=0x005c, t01=0x0034}
0x09002…09026               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x005c, t01=0x005c}
0x09026…0904e               Head {h00=0x0024, h01=0x0050, text=» DATA PR3CWT+CWTRCA RCA ADDRESS «, t00=0x005c, t01=0x0080}
0x0904e…09076               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x005c, t01=0x00a8}
0x09076…0909a               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x005c, t01=0x00d0}
0x0909a…090be               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x005c, t01=0x00f4}
0x090be…090c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0118}
0x090c8…090f4               Head {h00=0x0028, h01=0x0050, text=»*      POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x005c, t01=0x0122}
0x090f4…09124               Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x005c, t01=0x014e}
0x09124…0915c               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x005c, t01=0x017e}
0x0915c…09184               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x005d, t01=0x0026}
0x09184…091ac               Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x005d, t01=0x004e}
0x091ac…091ca               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x005d, t01=0x0076}
0x091ca…091e6               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x005d, t01=0x0094}
0x091e6…0920e               Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x005d, t01=0x00b0}
0x0920e…0922c               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x005d, t01=0x00d8}
0x0922c…09248               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x005d, t01=0x00f6}
0x09248…09252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0112}
0x09252…09288               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x005d, t01=0x011c}
0x09288…092be               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x005d, t01=0x0152}
0x092be…092c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0188}
0x092c8…092e4 (94, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x005e, t01=0x0004}
0x092e4…0930c               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x005e, t01=0x0020}
0x0930c…09334               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x005e, t01=0x0048}
0x09334…0935c               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x005e, t01=0x0070}
0x0935c…09366               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0098}
0x09366…09370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00a2}
0x09370…0937e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00ac}
0x0937e…09394               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x005e, t01=0x00ba}
0x09394…0939e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00d0}
0x0939e…093c6               Head {h00=0x0024, h01=0x0050, text=»*    CWT FOR PLC NUMBER 8 REMOTE«, t00=0x005e, t01=0x00da}
0x093c6…093d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0102}
0x093d0…093e4               Head {h00=0x0010, h01=0x0050, text=»PR4CWT EQU *«, t00=0x005e, t01=0x010c}
0x093e4…093ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0120}
0x093ee…09402               Head {h00=0x0010, h01=0x0050, text=»*      FLAGS«, t00=0x005e, t01=0x012a}
0x09402…09422               Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x005e, t01=0x013e}
0x09422…09448               Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x005e, t01=0x015e}
0x09448…09478               Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x005e, t01=0x0184}
0x09478…09482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0024}
0x09482…0949c               Head {h00=0x0016, h01=0x0050, text=»*      DATA WORDS «, t00=0x005f, t01=0x002e}
0x0949c…094c0               Head {h00=0x0020, h01=0x0050, text=» DATA 7 PLC NUMBER (4-7) =5 «, t00=0x005f, t01=0x0048}
0x094c0…094f2               Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x005f, t01=0x006c}
0x094f2…09518               Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x005f, t01=0x009e}
0x09518…0953a               Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x005f, t01=0x00c4}
0x0953a…09562               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS«, t00=0x005f, t01=0x00e6}
0x09562…0956c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x010e}
0x0956c…09594               Head {h00=0x0024, h01=0x0050, text=»*      POINTERS AND QUEUE HEADS «, t00=0x005f, t01=0x0118}
0x09594…095cc               Head {h00=0x0034, h01=0x0050, text=» DATA OPARR4 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x005f, t01=0x0140}
0x095cc…095fc               Head {h00=0x002c, h01=0x0050, text=» DATA INTPR4 WORK STATION TABLE ADDRESS «, t00=0x005f, t01=0x0178}
0x095fc…09620               Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0060, t01=0x0018}
0x09620…0964e               Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0060, t01=0x003c}
0x0964e…0967a               Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0060, t01=0x006a}
0x0967a…0969c               Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0060, t01=0x0096}
0x0969c…096ce               Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0060, t01=0x00b8}
0x096ce…096fe               Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0060, t01=0x00ea}
0x096fe…09708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x011a}
0x09708…09724               Head {h00=0x0018, h01=0x0050, text=»*      INSTRUCTIONS «, t00=0x0060, t01=0x0124}
0x09724…09750               Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA7 START I/O OPERATION«, t00=0x0060, t01=0x0140}
0x09750…09786               Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA7 RELEASE RCA AND RESET INTERRUPT«, t00=0x0060, t01=0x016c}
0x09786…09790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0012}
0x09790…097b0               Head {h00=0x001c, h01=0x0050, text=»*      PLC CONTROL AREAS«, t00=0x0061, t01=0x001c}
0x097b0…097e2               Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0061, t01=0x003c}
0x097e2…09806               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0061, t01=0x006e}
0x09806…0982e               Head {h00=0x0024, h01=0x0050, text=» DATA PR4CWT+CWTCID CID ADDRESS «, t00=0x0061, t01=0x0092}
0x0982e…09852               Head {h00=0x0020, h01=0x0050, text=» DATA INTRV3 INTERRUPT LEVEL«, t00=0x0061, t01=0x00ba}
0x09852…09888               Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0061, t01=0x00de}
0x09888…098ac               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0061, t01=0x0114}
0x098ac…098d4               Head {h00=0x0024, h01=0x0050, text=» DATA PR4CWT+CWTCCA CCA ADDRESS «, t00=0x0061, t01=0x0138}
0x098d4…098f8               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0061, t01=0x0160}
0x098f8…09920               Head {h00=0x0024, h01=0x0050, text=» DATA PR4CWT+CWTRCA RCA ADDRESS «, t00=0x0061, t01=0x0184}
0x09920…09948               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0062, t01=0x001c}
0x09948…0996c               Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0062, t01=0x0044}
0x0996c…09990               Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0062, t01=0x0068}
0x09990…0999a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x008c}
0x0999a…099c6               Head {h00=0x0028, h01=0x0050, text=»*      POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0062, t01=0x0096}
0x099c6…099f6               Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0062, t01=0x00c2}
0x099f6…09a2e               Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0062, t01=0x00f2}
0x09a2e…09a56               Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0062, t01=0x012a}
0x09a56…09a7e               Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0062, t01=0x0152}
0x09a7e…09a9c               Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0062, t01=0x017a}
0x09a9c…09ab8               Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0063, t01=0x0008}
0x09ab8…09ae0               Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0063, t01=0x0024}
0x09ae0…09afe               Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0063, t01=0x004c}
0x09afe…09b1a               Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0063, t01=0x006a}
0x09b1a…09b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0086}
0x09b24…09b5a               Head {h00=0x0032, h01=0x0050, text=»*      WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0063, t01=0x0090}
0x09b5a…09b90               Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0063, t01=0x00c6}
0x09b90…09b9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00fc}
0x09b9a…09bb6               Head {h00=0x0018, h01=0x0050, text=»*      BUFFER AREAS «, t00=0x0063, t01=0x0106}
0x09bb6…09bde               Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0063, t01=0x0122}
0x09bde…09c06               Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0063, t01=0x014a}
0x09c06…09c2e               Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0063, t01=0x0172}
0x09c2e…09c38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x000a}
0x09c38…09c42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0014}
0x09c42…09c4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x001e}
0x09c4e…09c5c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x002a}
0x09c5c…09c66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0038}
0x09c66…09c90               Head {h00=0x0026, h01=0x0050, text=»*    I/O COMPLETION DISPATCH TABLE«, t00=0x0064, t01=0x0042}
0x09c90…09c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x006c}
0x09c9a…09cd0               Head {h00=0x0032, h01=0x0050, text=»* THE MOST FREQUENTLY USED ROUTINES ARE PLACED«, t00=0x0064, t01=0x0076}
0x09cd0…09d04               Head {h00=0x0030, h01=0x0050, text=»* AT THE END OF THE TABLE, AS IT IS SCANNED «, t00=0x0064, t01=0x00ac}
0x09d04…09d1c               Head {h00=0x0014, h01=0x0050, text=»* FROM THE END. «, t00=0x0064, t01=0x00e0}
0x09d1c…09d26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00f8}
0x09d26…09d3a               Head {h00=0x0010, h01=0x0050, text=»CMDTAB EQU *«, t00=0x0064, t01=0x0102}
0x09d3a…09d6e               Head {h00=0x0030, h01=0x0050, text=» DATA CMDTC COMMAND CODE "TEST CHANNEL UNIT"«, t00=0x0064, t01=0x0116}
0x09d6e…09da8               Head {h00=0x0036, h01=0x0050, text=» DATA COMPTC START OF "TEST CU" COMPLETION ROUTINE«, t00=0x0064, t01=0x014a}
0x09da8…09ddc               Head {h00=0x0030, h01=0x0050, text=» DATA 0 ALLOWED STATUS FOR "TEST CU" COMMAND«, t00=0x0064, t01=0x0184}
0x09ddc…09e0c               Head {h00=0x002c, h01=0x0050, text=»CMDTB1 EQU *-CMDTAB LENGTH OF ONE ENTRY «, t00=0x0065, t01=0x0028}
0x09e0c…09e2a               Head {h00=0x001a, h01=0x0050, text=» DATA CMDOP OPEN LINE «, t00=0x0065, t01=0x0058}
0x09e2a…09e3e               Head {h00=0x0010, h01=0x0050, text=» DATA COMPOP«, t00=0x0065, t01=0x0076}
0x09e3e…09e4e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0065, t01=0x008a}
0x09e4e…09e6a               Head {h00=0x0018, h01=0x0050, text=» DATA CMDOD OPEN DLS«, t00=0x0065, t01=0x009a}
0x09e6a…09e7e               Head {h00=0x0010, h01=0x0050, text=» DATA COMPOD«, t00=0x0065, t01=0x00b6}
0x09e7e…09e9a               Head {h00=0x0018, h01=0x0050, text=» DATA STADNO+STANOC «, t00=0x0065, t01=0x00ca}
0x09e9a…09eb0               Head {h00=0x0012, h01=0x0050, text=» IFT PLCTST=1 «, t00=0x0065, t01=0x00e6}
0x09eb0…09ed8               Head {h00=0x0024, h01=0x0050, text=» DATA CMDPS GET LINE STATISTICS «, t00=0x0065, t01=0x00fc}
0x09ed8…09eec               Head {h00=0x0010, h01=0x0050, text=» DATA COMPPS«, t00=0x0065, t01=0x0124}
0x09eec…09f12               Head {h00=0x0022, h01=0x0050, text=»STAE2 EQU STAREQ+STAILL DUMMY «, t00=0x0065, t01=0x0138}
0x09f12…09f38               Head {h00=0x0022, h01=0x0050, text=»STAE3 EQU STASEQ+STANOB DUMMY «, t00=0x0065, t01=0x015e}
0x09f38…09f52               Head {h00=0x0016, h01=0x0050, text=» DATA STAE2+STAE3 «, t00=0x0065, t01=0x0184}
0x09f52…09f78               Head {h00=0x0022, h01=0x0050, text=» DATA CMDDS GET DLS STATISTICS«, t00=0x0066, t01=0x000e}
0x09f78…09f8c               Head {h00=0x0010, h01=0x0050, text=» DATA COMPDS«, t00=0x0066, t01=0x0034}
0x09f8c…09fa6               Head {h00=0x0016, h01=0x0050, text=» DATA STAE2+STAE3 «, t00=0x0066, t01=0x0048}
0x09fa6…09fcc               Head {h00=0x0022, h01=0x0050, text=» DATA CMDRM READ LOCAL MEMORY «, t00=0x0066, t01=0x0062}
0x09fcc…09fe0               Head {h00=0x0010, h01=0x0050, text=» DATA COMPRM«, t00=0x0066, t01=0x0088}
0x09fe0…09ff4               Head {h00=0x0010, h01=0x0050, text=» DATA STAE2 «, t00=0x0066, t01=0x009c}
0x09ff4…09ffe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00b0}
0x09ffe…0a00c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00ba}
0x0a00c…0a016               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00c8}
0x0a016…0a022               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x00d2}
0x0a022…0a044               Head {h00=0x001e, h01=0x0050, text=» DATA CMDSW STANDARD WRITE«, t00=0x0066, t01=0x00de}
0x0a044…0a058               Head {h00=0x0010, h01=0x0050, text=» DATA COMPSW«, t00=0x0066, t01=0x0100}
0x0a058…0a06c               Head {h00=0x0010, h01=0x0050, text=» DATA STAERR«, t00=0x0066, t01=0x0114}
0x0a06c…0a08a               Head {h00=0x001a, h01=0x0050, text=» DATA CMDFW FAST WRITE«, t00=0x0066, t01=0x0128}
0x0a08a…0a09e               Head {h00=0x0010, h01=0x0050, text=» DATA COMPFW«, t00=0x0066, t01=0x0146}
0x0a09e…0a0b2               Head {h00=0x0010, h01=0x0050, text=» DATA STAERR«, t00=0x0066, t01=0x015a}
0x0a0b2…0a0d2               Head {h00=0x001c, h01=0x0050, text=» DATA CMDGR GENERAL READ«, t00=0x0066, t01=0x016e}
0x0a0d2…0a0e6               Head {h00=0x0010, h01=0x0050, text=» DATA COMPGR«, t00=0x0066, t01=0x018e}
0x0a0e6…0a0f6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0067, t01=0x0012}
0x0a0f6…0a11e               Head {h00=0x0024, h01=0x0050, text=»CMDTBL EQU *-CMDTAB TABLE LENGTH«, t00=0x0067, t01=0x0022}
0x0a11e…0a128               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x004a}
0x0a128…0a136               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x0054}
0x0a136…0a140               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0062}
0x0a140…0a16c               Head {h00=0x0028, h01=0x0050, text=»*    READ COMPLETION DISPATCH TABLE «, t00=0x0067, t01=0x006c}
0x0a16c…0a176               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0098}
0x0a176…0a1ac               Head {h00=0x0032, h01=0x0050, text=»* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" «, t00=0x0067, t01=0x00a2}
0x0a1ac…0a1ce               Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS DEFINED ABOVE.«, t00=0x0067, t01=0x00d8}
0x0a1ce…0a1e2               Head {h00=0x0010, h01=0x0050, text=»REAROU EQU *«, t00=0x0067, t01=0x00fa}
0x0a1e2…0a204               Head {h00=0x001e, h01=0x0050, text=» DATA GRERR1 ERROR ROUTINE«, t00=0x0067, t01=0x010e}
0x0a204…0a23e               Head {h00=0x0036, h01=0x0050, text=» DATA GRERR1 DATA PACKET NO FLOW C. (NOT IMPLEM.) «, t00=0x0067, t01=0x0130}
0x0a23e…0a26c               Head {h00=0x002a, h01=0x0050, text=» DATA GRSTAT DEVICE STATUS DATA PACKET«, t00=0x0067, t01=0x016a}
0x0a26c…0a294               Head {h00=0x0024, h01=0x0050, text=» DATA GRDATA NORMAL DATA PACKET «, t00=0x0068, t01=0x0008}
0x0a294…0a2bc               Head {h00=0x0024, h01=0x0050, text=» DATA GRRR RECIEVE READY PACKET «, t00=0x0068, t01=0x0030}
0x0a2bc…0a2dc               Head {h00=0x001c, h01=0x0050, text=» DATA GRRES RESET PACKET«, t00=0x0068, t01=0x0058}
0x0a2dc…0a314               Head {h00=0x0034, h01=0x0050, text=» DATA GRERR1 RESET CONFIRM. PACKET (NOT IMPLEM.)«, t00=0x0068, t01=0x0078}
0x0a314…0a31e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00b0}
0x0a31e…0a328               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00ba}
0x0a328…0a354               Head {h00=0x0028, h01=0x0050, text=»*    WRITE COMPLETION DISPATCH TABLE«, t00=0x0068, t01=0x00c4}
0x0a354…0a35e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00f0}
0x0a35e…0a394               Head {h00=0x0032, h01=0x0050, text=»* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" «, t00=0x0068, t01=0x00fa}
0x0a394…0a3b6               Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS DEFINED ABOVE.«, t00=0x0068, t01=0x0130}
0x0a3b6…0a3ca               Head {h00=0x0010, h01=0x0050, text=»WRIROU EQU *«, t00=0x0068, t01=0x0152}
0x0a3ca…0a3ec               Head {h00=0x001e, h01=0x0050, text=» DATA WRERR ERROR ROUTINE «, t00=0x0068, t01=0x0166}
0x0a3ec…0a422               Head {h00=0x0032, h01=0x0050, text=» DATA WRNFLO DATA PACKET WITHOUT FLOW CONTROL «, t00=0x0068, t01=0x0188}
0x0a422…0a458               Head {h00=0x0032, h01=0x0050, text=» DATA WRERR DEVICE STATUS DATA (NOT RELEVANT) «, t00=0x0069, t01=0x002e}
0x0a458…0a480               Head {h00=0x0024, h01=0x0050, text=» DATA WRDATA NORMAL DATA PACKET «, t00=0x0069, t01=0x0064}
0x0a480…0a4a8               Head {h00=0x0024, h01=0x0050, text=» DATA WRRR RECIEVE READY PACKET «, t00=0x0069, t01=0x008c}
0x0a4a8…0a4da               Head {h00=0x002e, h01=0x0050, text=» DATA WRERR RESET PACKET (NOT IMPLEMENTED)«, t00=0x0069, t01=0x00b4}
0x0a4da…0a508               Head {h00=0x002a, h01=0x0050, text=» DATA WRRESC RESET CONFIRMATION PACKET«, t00=0x0069, t01=0x00e6}
0x0a508…0a512               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0114}
0x0a512…0a520               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x011e}
0x0a520…0a52a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x012c}
0x0a52a…0a546               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0069, t01=0x0136}
0x0a546…0a562               Head {h00=0x0018, h01=0x0050, text=»* REQUEST ROUTINES *«, t00=0x0069, t01=0x0152}
0x0a562…0a57e               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0069, t01=0x016e}
0x0a57e…0a588               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x018a}
0x0a588…0a5c4 (106, 0, 400) Head {h00=0x0038, h01=0x0050, text=»*   THIS SECTION CONTAINS REQUEST HANDLING ROUTINES.«, t00=0x006a, t01=0x0004}
0x0a5c4…0a5fe               Head {h00=0x0036, h01=0x0050, text=»*   THE REQUEST ROUTINES ARE CALLED FROM TERMINAL «, t00=0x006a, t01=0x0040}
0x0a5fe…0a638               Head {h00=0x0036, h01=0x0050, text=»*   DEVICE DRIVERS. THIS IS NORMALLY DONE THROUGH «, t00=0x006a, t01=0x007a}
0x0a638…0a676               Head {h00=0x003a, h01=0x0050, text=»*   THE TERMINAL NETWORK DISTRIBUTOR DRIVER (DRND01). «, t00=0x006a, t01=0x00b4}
0x0a676…0a6ac               Head {h00=0x0032, h01=0x0050, text=»*   THE DISTRIBUTOR DRIVER WILL SWITCH CALL TO«, t00=0x006a, t01=0x00f2}
0x0a6ac…0a6e6               Head {h00=0x0036, h01=0x0050, text=»*   CONNECTED LINE DRIVER. RETURN IS MADE DIRECTLY«, t00=0x006a, t01=0x0128}
0x0a6e6…0a71e               Head {h00=0x0034, h01=0x0050, text=»*   FROM THIS DRIVER TO TERMINAL DEVICE DRIVER. «, t00=0x006a, t01=0x0162}
0x0a71e…0a758               Head {h00=0x0036, h01=0x0050, text=»*   A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME«, t00=0x006b, t01=0x000a}
0x0a758…0a794               Head {h00=0x0038, h01=0x0050, text=»*   I/O ACTION AND DISPATCHING. THIS MEANS, THAT AT «, t00=0x006b, t01=0x0044}
0x0a794…0a7d0               Head {h00=0x0038, h01=0x0050, text=»*   TIME OF CALL THE DEVICE DRIVER MAY NOT HAVE ANY «, t00=0x006b, t01=0x0080}
0x0a7d0…0a7f2               Head {h00=0x001e, h01=0x0050, text=»*   DATA ON THE A15 STACK.«, t00=0x006b, t01=0x00bc}
0x0a7f2…0a7fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00de}
0x0a7fc…0a830               Head {h00=0x0030, h01=0x0050, text=»*   ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x006b, t01=0x00e8}
0x0a830…0a83a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x011c}
0x0a83a…0a852               Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x006b, t01=0x0126}
0x0a852…0a85c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x013e}
0x0a85c…0a884               Head {h00=0x0024, h01=0x0050, text=»* PLCHRI INPUT OF ONE CHARACTER «, t00=0x006b, t01=0x0148}
0x0a884…0a8b2               Head {h00=0x002a, h01=0x0050, text=»* PLSTBL DEFINE START OF OUTPUT BLOCK «, t00=0x006b, t01=0x0170}
0x0a8b2…0a8da               Head {h00=0x0024, h01=0x0050, text=»* PLCHRO OUTPUT OF ONE CHARACTER«, t00=0x006c, t01=0x000e}
0x0a8da…0a906               Head {h00=0x0028, h01=0x0050, text=»* PLENBL DEFINE END OF OUTPUT BLOCK «, t00=0x006c, t01=0x0036}
0x0a906…0a930               Head {h00=0x0026, h01=0x0050, text=»* PLTEST PERFORM PLC TEST FUNCTION«, t00=0x006c, t01=0x0062}
0x0a930…0a93a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x008c}
0x0a93a…0a948               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x0096}
0x0a948…0a952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00a4}
0x0a952…0a996               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006c, t01=0x00ae}
0x0a996…0a9a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00f2}
0x0a9a0…0a9b8               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x006c, t01=0x00fc}
0x0a9b8…0a9c8               Head {h00=0x000c, h01=0x0050, text=»* PLCHRI«, t00=0x006c, t01=0x0114}
0x0a9c8…0a9d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0124}
0x0a9d2…0a9e6               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x006c, t01=0x012e}
0x0a9e6…0aa1c               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE FETCHES ONE CHARACTER FROM THE «, t00=0x006c, t01=0x0142}
0x0aa1c…0aa54               Head {h00=0x0034, h01=0x0050, text=»* INPUT BUFFER. IF NO BUFFER HAS ARRIVED, "INPUT«, t00=0x006c, t01=0x0178}
0x0aa54…0aa88               Head {h00=0x0030, h01=0x0050, text=»* REQUESTED" FLAG IN DWT IS SET, AND CALLING«, t00=0x006d, t01=0x0020}
0x0aa88…0aabe               Head {h00=0x0032, h01=0x0050, text=»* PROCESS IS SUSPENDED UNTIL A BUFFER ARRIVES.«, t00=0x006d, t01=0x0054}
0x0aabe…0aac8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x008a}
0x0aac8…0aad8               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x006d, t01=0x0094}
0x0aad8…0aaf0               Head {h00=0x0014, h01=0x0050, text=»* ABI INPTAB,A1 «, t00=0x006d, t01=0x00a4}
0x0aaf0…0ab06               Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLCHRI«, t00=0x006d, t01=0x00bc}
0x0ab06…0ab10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00d2}
0x0ab10…0ab20               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x006d, t01=0x00dc}
0x0ab20…0ab3c               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x006d, t01=0x00ec}
0x0ab3c…0ab46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0108}
0x0ab46…0ab58               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x006d, t01=0x0112}
0x0ab58…0ab7c               Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x006d, t01=0x0124}
0x0ab7c…0ab9e               Head {h00=0x001e, h01=0x0050, text=»* A1  = BITS 0-14  CHANGED«, t00=0x006d, t01=0x0148}
0x0ab9e…0abca               Head {h00=0x0028, h01=0x0050, text=»*  BIT 15  1 IF MORE CHAR IN BUFFER «, t00=0x006d, t01=0x016a}
0x0abca…0abe8               Head {h00=0x001a, h01=0x0050, text=»* A2  = BITS 0-7  ZERO«, t00=0x006e, t01=0x0008}
0x0abe8…0ac08               Head {h00=0x001c, h01=0x0050, text=»*  BITS 8-15  CHARACTER «, t00=0x006e, t01=0x0026}
0x0ac08…0ac22               Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x006e, t01=0x0046}
0x0ac22…0ac2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0060}
0x0ac2c…0ac70               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x006a}
0x0ac70…0ac7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ae}
0x0ac7a…0ac8e               Head {h00=0x0010, h01=0x0050, text=»PLCHRI EQU *«, t00=0x006e, t01=0x00b8}
0x0ac8e…0aca2               Head {h00=0x0010, h01=0x0050, text=»PRCHRI EQU *«, t00=0x006e, t01=0x00cc}
0x0aca2…0acbe               Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 PUSH A4 «, t00=0x006e, t01=0x00e0}
0x0acbe…0acea               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTLD1,A6 INPUT TEXT WAITING?«, t00=0x006e, t01=0x00fc}
0x0acea…0ad10               Head {h00=0x0022, h01=0x0050, text=» RF(Z) CI100 NO, WAIT FOR TEXT«, t00=0x006e, t01=0x0128}
0x0ad10…0ad1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x014e}
0x0ad1a…0ad28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0158}
0x0ad28…0ad32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0166}
0x0ad32…0ad62               Head {h00=0x002c, h01=0x0050, text=» CF A15,PLGECH GET CHARACTER FROM BUFFER«, t00=0x006e, t01=0x0170}
0x0ad62…0ad88               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A1 CHECK RETURN STATUS«, t00=0x006f, t01=0x0010}
0x0ad88…0adb8               Head {h00=0x002c, h01=0x0050, text=» RF(N) CI100 BUFFER EMPTY, WAIT FOR NEXT«, t00=0x006f, t01=0x0036}
0x0adb8…0add4               Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x006f, t01=0x0066}
0x0add4…0adfe               Head {h00=0x0026, h01=0x0050, text=» RF CI110 RETURN TO DEVICE DRIVER «, t00=0x006f, t01=0x0082}
0x0adfe…0ae08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ac}
0x0ae08…0ae12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00b6}
0x0ae12…0ae26               Head {h00=0x0010, h01=0x0050, text=»CI100 EQU * «, t00=0x006f, t01=0x00c0}
0x0ae26…0ae42               Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x006f, t01=0x00d4}
0x0ae42…0ae70               Head {h00=0x002a, h01=0x0050, text=» LDK A2,DWFINP FLAG "INPUT REQUESTED" «, t00=0x006f, t01=0x00f0}
0x0ae70…0aea4               Head {h00=0x0030, h01=0x0050, text=» ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT «, t00=0x006f, t01=0x011e}
0x0aea4…0aed4               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x006f, t01=0x0152}
0x0aed4…0aef8               Head {h00=0x0020, h01=0x0050, text=» ABL PLDISP LOCAL DISPATCHER«, t00=0x006f, t01=0x0182}
0x0aef8…0af02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0016}
0x0af02…0af0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0020}
0x0af0c…0af4a               Head {h00=0x003a, h01=0x0050, text=»*    ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED «, t00=0x0070, t01=0x002a}
0x0af4a…0af6c               Head {h00=0x001e, h01=0x0050, text=»*      REGISTERS ON ENTRY:«, t00=0x0070, t01=0x0068}
0x0af6c…0af9c               Head {h00=0x002c, h01=0x0050, text=»* A1  = NR OF CHARACTERS LEFT IN BUFFER «, t00=0x0070, t01=0x008a}
0x0af9c…0afba               Head {h00=0x001a, h01=0x0050, text=»* A2  = BITS 0-7  ZERO«, t00=0x0070, t01=0x00ba}
0x0afba…0afda               Head {h00=0x001c, h01=0x0050, text=»*  BITS 8-15  CHARACTER «, t00=0x0070, t01=0x00d8}
0x0afda…0aff8               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x0070, t01=0x00f8}
0x0aff8…0b014               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0070, t01=0x0116}
0x0b014…0b01e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0132}
0x0b01e…0b032               Head {h00=0x0010, h01=0x0050, text=»INPRST EQU *«, t00=0x0070, t01=0x013c}
0x0b032…0b068               Head {h00=0x0032, h01=0x0050, text=» LDKL A3,/FFFF-DWFINP MASK FOR INPUT REQUESTED«, t00=0x0070, t01=0x0150}
0x0b068…0b08c               Head {h00=0x0020, h01=0x0050, text=» ANS A3,DWTST,A6 RESET FLAG «, t00=0x0070, t01=0x0186}
0x0b08c…0b0b8               Head {h00=0x0028, h01=0x0050, text=» ST A4,DWTLD1,A6 LINK BUFFER TO DWT «, t00=0x0071, t01=0x001a}
0x0b0b8…0b0c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0046}
0x0b0c2…0b0f2               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT«, t00=0x0071, t01=0x0050}
0x0b0f2…0b0fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0080}
0x0b0fc…0b10a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x008a}
0x0b10a…0b114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0098}
0x0b114…0b128               Head {h00=0x0010, h01=0x0050, text=»CI110 EQU * «, t00=0x0071, t01=0x00a2}
0x0b128…0b14c               Head {h00=0x0020, h01=0x0050, text=»*    RETURN TO DEVICE DRIVER«, t00=0x0071, t01=0x00b6}
0x0b14c…0b178               Head {h00=0x0028, h01=0x0050, text=» LDR A1,A1 ANY CHAR LEFT IN BUFFER? «, t00=0x0071, t01=0x00da}
0x0b178…0b19a               Head {h00=0x001e, h01=0x0050, text=» RF(Z) CI120 NO, CONTINUE «, t00=0x0071, t01=0x0106}
0x0b19a…0b1c4               Head {h00=0x0026, h01=0x0050, text=» LDK A1,1 INDICATE MORE CHARACTERS«, t00=0x0071, t01=0x0128}
0x0b1c4…0b1d6               Head {h00=0x000e, h01=0x0050, text=» RF CI130 «, t00=0x0071, t01=0x0152}
0x0b1d6…0b1e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0164}
0x0b1e0…0b1f4               Head {h00=0x0010, h01=0x0050, text=»CI120 EQU * «, t00=0x0071, t01=0x016e}
0x0b1f4…0b218               Head {h00=0x0020, h01=0x0050, text=» CM DWTLD1,A6 UNLINK BUFFER «, t00=0x0071, t01=0x0182}
0x0b218…0b22c               Head {h00=0x0010, h01=0x0050, text=»CI130 EQU * «, t00=0x0072, t01=0x0016}
0x0b22c…0b238               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0072, t01=0x002a}
0x0b238…0b248               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0072, t01=0x0036}
0x0b248…0b252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0046}
0x0b252…0b260               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0050}
0x0b260…0b26a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x005e}
0x0b26a…0b2ae               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0072, t01=0x0068}
0x0b2ae…0b2b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00ac}
0x0b2b8…0b2d0               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0072, t01=0x00b6}
0x0b2d0…0b2e0               Head {h00=0x000c, h01=0x0050, text=»* PLSTBL«, t00=0x0072, t01=0x00ce}
0x0b2e0…0b2ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00de}
0x0b2ea…0b2fe               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0072, t01=0x00e8}
0x0b2fe…0b336               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK.«, t00=0x0072, t01=0x00fc}
0x0b336…0b36c               Head {h00=0x0032, h01=0x0050, text=»* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT «, t00=0x0072, t01=0x0134}
0x0b36c…0b382               Head {h00=0x0012, h01=0x0050, text=»* TO THE DWT. «, t00=0x0072, t01=0x016a}
0x0b382…0b38c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0180}
0x0b38c…0b39c               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0072, t01=0x018a}
0x0b39c…0b3b4               Head {h00=0x0014, h01=0x0050, text=»* ABI STBTAB,A1 «, t00=0x0073, t01=0x000a}
0x0b3b4…0b3ca               Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLSTBL«, t00=0x0073, t01=0x0022}
0x0b3ca…0b3d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0038}
0x0b3d4…0b3e4               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0073, t01=0x0042}
0x0b3e4…0b41c               Head {h00=0x0034, h01=0x0050, text=»* A2  = MAXIMAL LENGTH OF TEXT IN BLOCK (BYTES) «, t00=0x0073, t01=0x0052}
0x0b41c…0b438               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0073, t01=0x008a}
0x0b438…0b442               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00a6}
0x0b442…0b454               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0073, t01=0x00b0}
0x0b454…0b478               Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x0073, t01=0x00c2}
0x0b478…0b494               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x0073, t01=0x00e6}
0x0b494…0b4a6               Head {h00=0x000e, h01=0x0050, text=»*  0 IF OK«, t00=0x0073, t01=0x0102}
0x0b4a6…0b4c0               Head {h00=0x0016, h01=0x0050, text=»*  NOT 0 IF ERROR «, t00=0x0073, t01=0x0114}
0x0b4c0…0b4f4               Head {h00=0x0030, h01=0x0050, text=»* A2  = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x0073, t01=0x012e}
0x0b4f4…0b512               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A1«, t00=0x0073, t01=0x0162}
0x0b512…0b52c               Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x0073, t01=0x0180}
0x0b52c…0b536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x000a}
0x0b536…0b57a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0074, t01=0x0014}
0x0b57a…0b584               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0058}
0x0b584…0b598               Head {h00=0x0010, h01=0x0050, text=»PLSTBL EQU *«, t00=0x0074, t01=0x0062}
0x0b598…0b5ac               Head {h00=0x0010, h01=0x0050, text=»PRSTBL EQU *«, t00=0x0074, t01=0x0076}
0x0b5ac…0b5b8               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0074, t01=0x008a}
0x0b5b8…0b5e8               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x0074, t01=0x0096}
0x0b5e8…0b610               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x0074, t01=0x00c6}
0x0b610…0b61a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00ee}
0x0b61a…0b628               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x00f8}
0x0b628…0b632               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0106}
0x0b632…0b664               Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED?«, t00=0x0074, t01=0x0110}
0x0b664…0b690               Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) NDREPO YES, SET OK & RETURN«, t00=0x0074, t01=0x0142}
0x0b690…0b6ba               Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x0074, t01=0x016e}
0x0b6ba…0b6de               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SBERR2 ERROR, RETURN«, t00=0x0075, t01=0x0008}
0x0b6de…0b6e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x002c}
0x0b6e8…0b70a               Head {h00=0x001e, h01=0x0050, text=»*    CHECK LEVEL 3 WINDOW «, t00=0x0075, t01=0x0036}
0x0b70a…0b732               Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE MAX BLOCK LENGTH«, t00=0x0075, t01=0x0058}
0x0b732…0b754               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 DWT STATUS«, t00=0x0075, t01=0x0080}
0x0b754…0b788               Head {h00=0x0030, h01=0x0050, text=» ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? «, t00=0x0075, t01=0x00a2}
0x0b788…0b7b6               Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SB090 YES, DON'T CHECK WINDOW «, t00=0x0075, t01=0x00d6}
0x0b7b6…0b7ec               Head {h00=0x0032, h01=0x0050, text=» CF A15,GETOFR A2 := NR OF OUTSTANDING FRAMES «, t00=0x0075, t01=0x0104}
0x0b7ec…0b816               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A2 ANY FRAMES OUTSTANDING?«, t00=0x0075, t01=0x013a}
0x0b816…0b838               Head {h00=0x001e, h01=0x0050, text=» RF(Z) SB090 NO, CONTINUE «, t00=0x0075, t01=0x0164}
0x0b838…0b85a               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 DWT STATUS«, t00=0x0075, t01=0x0186}
0x0b85a…0b88e               Head {h00=0x0030, h01=0x0050, text=» ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x0076, t01=0x0018}
0x0b88e…0b8c4               Head {h00=0x0032, h01=0x0050, text=» RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR«, t00=0x0076, t01=0x004c}
0x0b8c4…0b8e8               Head {h00=0x0020, h01=0x0050, text=» SUK A2,WINDOW WINDOW FULL? «, t00=0x0076, t01=0x0082}
0x0b8e8…0b90a               Head {h00=0x001e, h01=0x0050, text=» RF(N) SB090 NO, CONTINUE «, t00=0x0076, t01=0x00a6}
0x0b90a…0b93e               Head {h00=0x0030, h01=0x0050, text=»* DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN«, t00=0x0076, t01=0x00c8}
0x0b93e…0b974               Head {h00=0x0032, h01=0x0050, text=» ST A3,DWTLD1,A6 SAVE REQUESTED BUFFER LENGTH «, t00=0x0076, t01=0x00fc}
0x0b974…0b9aa               Head {h00=0x0032, h01=0x0050, text=» LDK A1,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" «, t00=0x0076, t01=0x0132}
0x0b9aa…0b9da               Head {h00=0x002c, h01=0x0050, text=» ORS A1,DWTST,A6 SET FLAG IN DWT STATUS «, t00=0x0076, t01=0x0168}
0x0b9da…0ba00               Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x0077, t01=0x0008}
0x0ba00…0ba24               Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x0077, t01=0x002e}
0x0ba24…0ba40               Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x0077, t01=0x0052}
0x0ba40…0ba78               Head {h00=0x0034, h01=0x0050, text=» IM WIQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x0077, t01=0x006e}
0x0ba78…0ba84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x00a6}
0x0ba84…0baa8               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0077, t01=0x00b2}
0x0baa8…0bab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00d6}
0x0bab2…0babc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00e0}
0x0babc…0baf6               Head {h00=0x0036, h01=0x0050, text=»*    ENTRY IS MADE HERE WHEN WINDOW IS OPEN AGAIN «, t00=0x0077, t01=0x00ea}
0x0baf6…0bb1a               Head {h00=0x0020, h01=0x0050, text=»*     (AFTER A LEVEL 3 ACK) «, t00=0x0077, t01=0x0124}
0x0bb1a…0bb44               Head {h00=0x0026, h01=0x0050, text=»*      REGISTER CONTENTS ON ENTRY:«, t00=0x0077, t01=0x0148}
0x0bb44…0bb60               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x0077, t01=0x0172}
0x0bb60…0bb7c               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0077, t01=0x018e}
0x0bb7c…0bb98               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0078, t01=0x001a}
0x0bb98…0bba2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0036}
0x0bba2…0bbb6               Head {h00=0x0010, h01=0x0050, text=»WINRST EQU *«, t00=0x0078, t01=0x0040}
0x0bbb6…0bbee               Head {h00=0x0034, h01=0x0050, text=» LD A3,DWTLD1,A6 RESTORE REQUESTED BUFFER LENGTH«, t00=0x0078, t01=0x0054}
0x0bbee…0bc04               Head {h00=0x0012, h01=0x0050, text=» CM DWTLD1,A6 «, t00=0x0078, t01=0x008c}
0x0bc04…0bc22               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0078, t01=0x00a2}
0x0bc22…0bc58               Head {h00=0x0032, h01=0x0050, text=» RF(NZ) SBERR2 ERROR, RETURN TO DEVICE DRIVER «, t00=0x0078, t01=0x00c0}
0x0bc58…0bc62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00f6}
0x0bc62…0bc6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0100}
0x0bc6c…0bc80               Head {h00=0x0010, h01=0x0050, text=»SB090 EQU * «, t00=0x0078, t01=0x010a}
0x0bc80…0bc92               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0078, t01=0x011e}
0x0bc92…0bcbe               Head {h00=0x0028, h01=0x0050, text=» CWK A3,SOBUFL SHORT BUFFER ENOUGH? «, t00=0x0078, t01=0x0130}
0x0bcbe…0bce8               Head {h00=0x0026, h01=0x0050, text=» RF(G) SB100 NO, TAKE LONG BUFFER «, t00=0x0078, t01=0x015c}
0x0bce8…0bcf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0186}
0x0bcf2…0bd1c               Head {h00=0x0026, h01=0x0050, text=»*    ALLOCATE SHORT OUTPUT BUFFER «, t00=0x0078, t01=0x0190}
0x0bd1c…0bd4e               Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS«, t00=0x0079, t01=0x002a}
0x0bd4e…0bd74               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLGTBU ALLOCATE BUFFER«, t00=0x0079, t01=0x005c}
0x0bd74…0bda4               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) SB120 COMMON PART FOR SHORT/LONG«, t00=0x0079, t01=0x0082}
0x0bda4…0bdda               Head {h00=0x0032, h01=0x0050, text=» LDK A7,CWTSBQ NO BUFFER LEFT. SET QUEUE HEAD «, t00=0x0079, t01=0x00b2}
0x0bdda…0be00               Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x0079, t01=0x00e8}
0x0be00…0be24               Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x0079, t01=0x010e}
0x0be24…0be40               Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x0079, t01=0x0132}
0x0be40…0be78               Head {h00=0x0034, h01=0x0050, text=» IM SBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x0079, t01=0x014e}
0x0be78…0be84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x0186}
0x0be84…0beb0 (122, 0, 400) Head {h00=0x0028, h01=0x0050, text=» RF SB110 COMMON PART FOR NO BUFFER «, t00=0x007a, t01=0x0004}
0x0beb0…0beba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0030}
0x0beba…0bece               Head {h00=0x0010, h01=0x0050, text=»SB100 EQU * «, t00=0x007a, t01=0x003a}
0x0bece…0bef8               Head {h00=0x0026, h01=0x0050, text=» CWK A3,LOBUFL LONG BUFFER ENOUGH?«, t00=0x007a, t01=0x004e}
0x0bef8…0bf16               Head {h00=0x001a, h01=0x0050, text=» RF(G) SBERR NO, ERROR«, t00=0x007a, t01=0x0078}
0x0bf16…0bf3e               Head {h00=0x0024, h01=0x0050, text=»*    ALLOCATE LONG OUTPUT BUFFER«, t00=0x007a, t01=0x0096}
0x0bf3e…0bf70               Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS «, t00=0x007a, t01=0x00be}
0x0bf70…0bf96               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLGTBU ALLOCATE BUFFER«, t00=0x007a, t01=0x00f0}
0x0bf96…0bfc6               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) SB120 COMMON PART FOR SHORT/LONG«, t00=0x007a, t01=0x0116}
0x0bfc6…0bffc               Head {h00=0x0032, h01=0x0050, text=» LDK A7,CWTLBQ NO BUFFER LEFT. SET QUEUE HEAD «, t00=0x007a, t01=0x0146}
0x0bffc…0c022               Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x007a, t01=0x017c}
0x0c022…0c046               Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x007b, t01=0x0012}
0x0c046…0c062               Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x007b, t01=0x0036}
0x0c062…0c09a               Head {h00=0x0034, h01=0x0050, text=» IM LBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x007b, t01=0x0052}
0x0c09a…0c0a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x008a}
0x0c0a6…0c0b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0096}
0x0c0b0…0c0c4               Head {h00=0x0010, h01=0x0050, text=»SB110 EQU * «, t00=0x007b, t01=0x00a0}
0x0c0c4…0c100               Head {h00=0x0038, h01=0x0050, text=»*    NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. «, t00=0x007b, t01=0x00b4}
0x0c100…0c12c               Head {h00=0x0028, h01=0x0050, text=» ADR A7,A5 A7 := QUEUE HEAD ADDRESS «, t00=0x007b, t01=0x00f0}
0x0c12c…0c14a               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A6 DWT ADDRESS«, t00=0x007b, t01=0x011c}
0x0c14a…0c174               Head {h00=0x0026, h01=0x0050, text=» ADKL A4,DWTOTQ QUEUE LINK ADDRESS«, t00=0x007b, t01=0x013a}
0x0c174…0c19c               Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKLST PUT LAST IN QUEUE«, t00=0x007b, t01=0x0164}
0x0c19c…0c1c0               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x007b, t01=0x018c}
0x0c1c0…0c1ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0020}
0x0c1ca…0c1d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x002a}
0x0c1d4…0c20a               Head {h00=0x0032, h01=0x0050, text=»*    ENTRY IS MADE HERE WHEN A BUFFER IS FREE «, t00=0x007c, t01=0x0034}
0x0c20a…0c22a               Head {h00=0x001c, h01=0x0050, text=»*    REGISTERS ON ENTRY:«, t00=0x007c, t01=0x006a}
0x0c22a…0c246               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x007c, t01=0x008a}
0x0c246…0c26e               Head {h00=0x0024, h01=0x0050, text=»* A4  = BUFFER ADDRESS (IF A1=0)«, t00=0x007c, t01=0x00a6}
0x0c26e…0c28a               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x007c, t01=0x00ce}
0x0c28a…0c2a6               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x007c, t01=0x00ea}
0x0c2a6…0c2b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0106}
0x0c2b0…0c2c4               Head {h00=0x0010, h01=0x0050, text=»BUFRST EQU *«, t00=0x007c, t01=0x0110}
0x0c2c4…0c2e2               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x007c, t01=0x0124}
0x0c2e2…0c308               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SBERR2 RETURN IF ERROR«, t00=0x007c, t01=0x0142}
0x0c308…0c31c               Head {h00=0x0010, h01=0x0050, text=»SB120 EQU * «, t00=0x007c, t01=0x0168}
0x0c31c…0c348               Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT LENGTH OF X25 HEADER «, t00=0x007c, t01=0x017c}
0x0c348…0c37c               Head {h00=0x0030, h01=0x0050, text=» ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA«, t00=0x007d, t01=0x0018}
0x0c37c…0c3b0               Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTLD1,A6 SAVE BUFFER ADDRESS IN DWT «, t00=0x007d, t01=0x004c}
0x0c3b0…0c3ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0080}
0x0c3ba…0c3e6               Head {h00=0x0028, h01=0x0050, text=» ABL NDREPO RETURN TO DEVICE DRIVER «, t00=0x007d, t01=0x008a}
0x0c3e6…0c404               Head {h00=0x001a, h01=0x0050, text=»*    RETURN CODE := OK«, t00=0x007d, t01=0x00b6}
0x0c404…0c40e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00d4}
0x0c40e…0c418               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00de}
0x0c418…0c42c               Head {h00=0x0010, h01=0x0050, text=»SBERR EQU * «, t00=0x007d, t01=0x00e8}
0x0c42c…0c458               Head {h00=0x0028, h01=0x0050, text=» LDK A1,PLSERR RET CODE := SW ERROR «, t00=0x007d, t01=0x00fc}
0x0c458…0c46c               Head {h00=0x0010, h01=0x0050, text=»SBERR2 EQU *«, t00=0x007d, t01=0x0128}
0x0c46c…0c492               Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET DEVICE STATUS «, t00=0x007d, t01=0x013c}
0x0c492…0c4bc               Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x007d, t01=0x0162}
0x0c4bc…0c4c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x018c}
0x0c4c6…0c4d4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x0008}
0x0c4d4…0c4de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0016}
0x0c4de…0c522               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007e, t01=0x0020}
0x0c522…0c52c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0064}
0x0c52c…0c544               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x007e, t01=0x006e}
0x0c544…0c554               Head {h00=0x000c, h01=0x0050, text=»* PLCHRO«, t00=0x007e, t01=0x0086}
0x0c554…0c55e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0096}
0x0c55e…0c572               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x007e, t01=0x00a0}
0x0c572…0c5b0               Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. «, t00=0x007e, t01=0x00b4}
0x0c5b0…0c5ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00f2}
0x0c5ba…0c5ca               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x007e, t01=0x00fc}
0x0c5ca…0c5e2               Head {h00=0x0014, h01=0x0050, text=»* ABI OUPTAB,A1 «, t00=0x007e, t01=0x010c}
0x0c5e2…0c5f8               Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLCHRO«, t00=0x007e, t01=0x0124}
0x0c5f8…0c602               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x013a}
0x0c602…0c612               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x007e, t01=0x0144}
0x0c612…0c636               Head {h00=0x0020, h01=0x0050, text=»* A2  = BITS 0-7  IRRELEVANT«, t00=0x007e, t01=0x0154}
0x0c636…0c656               Head {h00=0x001c, h01=0x0050, text=»*  BITS 8-15  CHARACTER «, t00=0x007e, t01=0x0178}
0x0c656…0c672               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x007f, t01=0x0008}
0x0c672…0c67c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0024}
0x0c67c…0c68e               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x007f, t01=0x002e}
0x0c68e…0c6b2               Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x007f, t01=0x0040}
0x0c6b2…0c6ce               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x007f, t01=0x0064}
0x0c6ce…0c6e0               Head {h00=0x000e, h01=0x0050, text=»*  0 IF OK«, t00=0x007f, t01=0x0080}
0x0c6e0…0c6fa               Head {h00=0x0016, h01=0x0050, text=»*  NOT 0 IF ERROR «, t00=0x007f, t01=0x0092}
0x0c6fa…0c72e               Head {h00=0x0030, h01=0x0050, text=»* A2  = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x007f, t01=0x00ac}
0x0c72e…0c74c               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A1«, t00=0x007f, t01=0x00e0}
0x0c74c…0c766               Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x007f, t01=0x00fe}
0x0c766…0c770               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0118}
0x0c770…0c7b4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x0122}
0x0c7b4…0c7be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0166}
0x0c7be…0c7d2               Head {h00=0x0010, h01=0x0050, text=»PLCHRO EQU *«, t00=0x007f, t01=0x0170}
0x0c7d2…0c7e6               Head {h00=0x0010, h01=0x0050, text=»PRCHRO EQU *«, t00=0x007f, t01=0x0184}
0x0c7e6…0c7f2               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0080, t01=0x0008}
0x0c7f2…0c7fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0014}
0x0c7fc…0c80a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x001e}
0x0c80a…0c814               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x002c}
0x0c814…0c830               Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 PUSH A4 «, t00=0x0080, t01=0x0036}
0x0c830…0c858               Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTLD1,A6 BUFFER ADDRESS «, t00=0x0080, t01=0x0052}
0x0c858…0c880               Head {h00=0x0024, h01=0x0050, text=» RF(Z) COERR2 ERROR IF NO BUFFER«, t00=0x0080, t01=0x007a}
0x0c880…0c8ae               Head {h00=0x002a, h01=0x0050, text=» CF A15,PLPUCH PUT CHARACTER IN BUFFER«, t00=0x0080, t01=0x00a2}
0x0c8ae…0c8d2               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 CHECK RETURN CODE«, t00=0x0080, t01=0x00d0}
0x0c8d2…0c8fe               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COERR1 ERROR IF BUFFER FULL «, t00=0x0080, t01=0x00f4}
0x0c8fe…0c908               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0120}
0x0c908…0c924               Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x0080, t01=0x012a}
0x0c924…0c95e               Head {h00=0x0036, h01=0x0050, text=»* RETURN DIRECTLY INSTEAD OF THROUGH NDRETO TO GET«, t00=0x0080, t01=0x0146}
0x0c95e…0c97a               Head {h00=0x0018, h01=0x0050, text=»* FASTER PROCESSING.«, t00=0x0080, t01=0x0180}
0x0c97a…0c986               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0081, t01=0x000c}
0x0c986…0c9a4               Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 ADJUST STACK«, t00=0x0081, t01=0x0018}
0x0c9a4…0c9d6               Head {h00=0x002e, h01=0x0050, text=» LDR A2,A1 DEVICE STATUS & RET CODE := OK «, t00=0x0081, t01=0x0036}
0x0c9d6…0c9fe               Head {h00=0x0024, h01=0x0050, text=» ABR* A5 RETURN TO DEVICE DRIVER«, t00=0x0081, t01=0x0068}
0x0c9fe…0ca08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0090}
0x0ca08…0ca12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x009a}
0x0ca12…0ca26               Head {h00=0x0010, h01=0x0050, text=»COERR1 EQU *«, t00=0x0081, t01=0x00a4}
0x0ca26…0ca4c               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLRLBU RELEASE BUFFER «, t00=0x0081, t01=0x00b8}
0x0ca4c…0ca74               Head {h00=0x0024, h01=0x0050, text=» CM DWTLD1,A6 INDICATE NO BUFFER«, t00=0x0081, t01=0x00de}
0x0ca74…0ca88               Head {h00=0x0010, h01=0x0050, text=»COERR2 EQU *«, t00=0x0081, t01=0x0106}
0x0ca88…0caa4               Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x0081, t01=0x011a}
0x0caa4…0cad0               Head {h00=0x0028, h01=0x0050, text=» LDK A1,PLSERR RET CODE := SW ERROR «, t00=0x0081, t01=0x0136}
0x0cad0…0cafa               Head {h00=0x0026, h01=0x0050, text=» ABL NDRET RETURN TO DEVICE DRIVER«, t00=0x0081, t01=0x0162}
0x0cafa…0cb04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x018c}
0x0cb04…0cb12               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0008}
0x0cb12…0cb1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0016}
0x0cb1c…0cb60               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0082, t01=0x0020}
0x0cb60…0cb6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0064}
0x0cb6a…0cb82               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0082, t01=0x006e}
0x0cb82…0cb92               Head {h00=0x000c, h01=0x0050, text=»* PLENBL«, t00=0x0082, t01=0x0086}
0x0cb92…0cb9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0096}
0x0cb9c…0cbb0               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0082, t01=0x00a0}
0x0cbb0…0cbe4               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE DEFINES END OF OUTPUT BLOCK. «, t00=0x0082, t01=0x00b4}
0x0cbe4…0cc16               Head {h00=0x002e, h01=0x0050, text=»* IT SENDS THE BLOCK TO PLC AND WAITS FOR «, t00=0x0082, t01=0x00e8}
0x0cc16…0cc2c               Head {h00=0x0012, h01=0x0050, text=»* ACKNOWLEDGE.«, t00=0x0082, t01=0x011a}
0x0cc2c…0cc36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0130}
0x0cc36…0cc46               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0082, t01=0x013a}
0x0cc46…0cc5e               Head {h00=0x0014, h01=0x0050, text=»* ABI ENBTAB,A1 «, t00=0x0082, t01=0x014a}
0x0cc5e…0cc74               Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLENBL«, t00=0x0082, t01=0x0162}
0x0cc74…0cc7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0178}
0x0cc7e…0cc8e               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0082, t01=0x0182}
0x0cc8e…0ccaa (131, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0083, t01=0x0004}
0x0ccaa…0ccb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0020}
0x0ccb4…0ccc6               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0083, t01=0x002a}
0x0ccc6…0ccea               Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x0083, t01=0x003c}
0x0ccea…0cd06               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x0083, t01=0x0060}
0x0cd06…0cd18               Head {h00=0x000e, h01=0x0050, text=»*  0 IF OK«, t00=0x0083, t01=0x007c}
0x0cd18…0cd32               Head {h00=0x0016, h01=0x0050, text=»*  NOT 0 IF ERROR «, t00=0x0083, t01=0x008e}
0x0cd32…0cd66               Head {h00=0x0030, h01=0x0050, text=»* A2  = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x0083, t01=0x00a8}
0x0cd66…0cd84               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A1«, t00=0x0083, t01=0x00dc}
0x0cd84…0cd9e               Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x0083, t01=0x00fa}
0x0cd9e…0cda8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0114}
0x0cda8…0cdec               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0083, t01=0x011e}
0x0cdec…0cdf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0162}
0x0cdf6…0ce0a               Head {h00=0x0010, h01=0x0050, text=»PLENBL EQU *«, t00=0x0083, t01=0x016c}
0x0ce0a…0ce1e               Head {h00=0x0010, h01=0x0050, text=»PRENBL EQU *«, t00=0x0083, t01=0x0180}
0x0ce1e…0ce2a (132, 0, 400) Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0084, t01=0x0004}
0x0ce2a…0ce5a               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x0084, t01=0x0010}
0x0ce5a…0ce82               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x0084, t01=0x0040}
0x0ce82…0ce8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0068}
0x0ce8c…0ce9a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x0072}
0x0ce9a…0cea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0080}
0x0cea4…0ced4               Head {h00=0x002c, h01=0x0050, text=» LDK A1,PLSERR SET RET CODE JUST IN CASE«, t00=0x0084, t01=0x008a}
0x0ced4…0cefc               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTLD1,A6 BUFFER ADDRESS «, t00=0x0084, t01=0x00ba}
0x0cefc…0cf2c               Head {h00=0x002c, h01=0x0050, text=» ABL(Z) NDREP ERROR IF NO BUFFER. RETURN«, t00=0x0084, t01=0x00e2}
0x0cf2c…0cf56               Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x0084, t01=0x0112}
0x0cf56…0cf7c               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EBERR1 RETURN IF ERROR«, t00=0x0084, t01=0x013c}
0x0cf7c…0cf86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0162}
0x0cf86…0cfa4               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A6 DWT ADDRESS«, t00=0x0084, t01=0x016c}
0x0cfa4…0cfca               Head {h00=0x0022, h01=0x0050, text=» ADKL A3,DWTOTQ QUEUE POINTER «, t00=0x0084, t01=0x018a}
0x0cfca…0cfec               Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCS RESERVE CCA«, t00=0x0085, t01=0x0020}
0x0cfec…0d01e               Head {h00=0x002e, h01=0x0050, text=» CM DWTOTQ,A6 RESET QUEUE ELEMENT POINTER «, t00=0x0085, t01=0x0042}
0x0d01e…0d03c               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0085, t01=0x0074}
0x0d03c…0d062               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EBERR1 RETURN IF ERROR«, t00=0x0085, t01=0x0092}
0x0d062…0d06c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00b8}
0x0d06c…0d0a0               Head {h00=0x0030, h01=0x0050, text=»*    WRITE PARAMETERS IN CCA AND X25 HEADER «, t00=0x0085, t01=0x00c2}
0x0d0a0…0d0ac               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0085, t01=0x00f6}
0x0d0ac…0d0d4               Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTLD1,A6 BUFFER ADDRESS «, t00=0x0085, t01=0x0102}
0x0d0d4…0d0fa               Head {h00=0x0022, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 TO CCA«, t00=0x0085, t01=0x012a}
0x0d0fa…0d138               Head {h00=0x003a, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR«, t00=0x0085, t01=0x0150}
0x0d138…0d160               Head {h00=0x0024, h01=0x0050, text=» LDK A3,CMDFW ASSUME FAST WRITE «, t00=0x0085, t01=0x018e}
0x0d160…0d186               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 DEVICE STATUS «, t00=0x0086, t01=0x0026}
0x0d186…0d19e               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A2 SAVE «, t00=0x0086, t01=0x004c}
0x0d19e…0d1c2               Head {h00=0x0020, h01=0x0050, text=» ANKL A7,DWFECH ECHO OUTPUT?«, t00=0x0086, t01=0x0064}
0x0d1c2…0d1e8               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EB090 YES, USE TYPE 1 «, t00=0x0086, t01=0x0088}
0x0d1e8…0d21a               Head {h00=0x002e, h01=0x0050, text=» LDK A3,CMDSW NOT ECHO, USE STANDARD WRITE«, t00=0x0086, t01=0x00ae}
0x0d21a…0d246               Head {h00=0x0028, h01=0x0050, text=» ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED? «, t00=0x0086, t01=0x00e0}
0x0d246…0d26a               Head {h00=0x0020, h01=0x0050, text=» RF(Z) EB100 NO, USE TYPE 2 «, t00=0x0086, t01=0x010c}
0x0d26a…0d274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0130}
0x0d274…0d282               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x013a}
0x0d282…0d28c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0148}
0x0d28c…0d2a0               Head {h00=0x0010, h01=0x0050, text=»EB090 EQU * «, t00=0x0086, t01=0x0152}
0x0d2a0…0d2be               Head {h00=0x001a, h01=0x0050, text=»*      NO FLOW CONTROL«, t00=0x0086, t01=0x0166}
0x0d2be…0d2f2               Head {h00=0x0030, h01=0x0050, text=» CF A15,WRADR1 WRITE LINE ADDRESS. NO FLOW C«, t00=0x0086, t01=0x0184}
0x0d2f2…0d328               Head {h00=0x0032, h01=0x0050, text=» LDK A2,TYNFLO MESSAGE TYPE := NO FLOW CONTROL«, t00=0x0087, t01=0x0028}
0x0d328…0d342               Head {h00=0x0016, h01=0x0050, text=» RF EB110 CONTINUE«, t00=0x0087, t01=0x005e}
0x0d342…0d34c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0078}
0x0d34c…0d360               Head {h00=0x0010, h01=0x0050, text=»EB100 EQU * «, t00=0x0087, t01=0x0082}
0x0d360…0d37c               Head {h00=0x0018, h01=0x0050, text=»*      FLOW CONTROL «, t00=0x0087, t01=0x0096}
0x0d37c…0d3b0               Head {h00=0x0030, h01=0x0050, text=» CF A15,WRADR2 WRITE LINE ADDRESS. FLOW CTRL«, t00=0x0087, t01=0x00b2}
0x0d3b0…0d3e4               Head {h00=0x0030, h01=0x0050, text=» CF A15,FWOPSR FETCH AND UPDATE FLOW CONTROL«, t00=0x0087, t01=0x00e6}
0x0d3e4…0d412               Head {h00=0x002a, h01=0x0050, text=» SC A2,X25FLW,A4 P(R) & P(S) TO PACKET«, t00=0x0087, t01=0x011a}
0x0d412…0d444               Head {h00=0x002e, h01=0x0050, text=» LDK A2,TYDATA MESSAGE TYPE := NORMAL DATA«, t00=0x0087, t01=0x0148}
0x0d444…0d44e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x017a}
0x0d44e…0d462               Head {h00=0x0010, h01=0x0050, text=»EB110 EQU * «, t00=0x0087, t01=0x0184}
0x0d462…0d496               Head {h00=0x0030, h01=0x0050, text=» SC A2,CWTCCA+CCRIDB,A5 MESSAGE TYPE TO CCA «, t00=0x0088, t01=0x0008}
0x0d496…0d4c4               Head {h00=0x002a, h01=0x0050, text=» SC A3,CWTCCA+CCRCMD,A5 COMMAND TO CCA«, t00=0x0088, t01=0x003c}
0x0d4c4…0d4f6               Head {h00=0x002e, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA«, t00=0x0088, t01=0x006a}
0x0d4f6…0d51a               Head {h00=0x0020, h01=0x0050, text=» LD A3,BUFBIX,A4 BYTE INDEX «, t00=0x0088, t01=0x009c}
0x0d51a…0d54e               Head {h00=0x0030, h01=0x0050, text=» ST A3,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA«, t00=0x0088, t01=0x00c0}
0x0d54e…0d558               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00f4}
0x0d558…0d582               Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x0088, t01=0x00fe}
0x0d582…0d5a8               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EBERR2 RETURN IF ERROR«, t00=0x0088, t01=0x0128}
0x0d5a8…0d5d0               Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x0088, t01=0x014e}
0x0d5d0…0d5f4               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EBERR1 HANDLE ERROR «, t00=0x0088, t01=0x0176}
0x0d5f4…0d618               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0089, t01=0x000a}
0x0d618…0d622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x002e}
0x0d622…0d630               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x0038}
0x0d630…0d63a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0046}
0x0d63a…0d672               Head {h00=0x0034, h01=0x0050, text=»*    ENTRY TO ACKRST IS MADE WHEN I/O OPERATION «, t00=0x0089, t01=0x0050}
0x0d672…0d68c               Head {h00=0x0016, h01=0x0050, text=»*    IS COMPLETED.«, t00=0x0089, t01=0x0088}
0x0d68c…0d6b6               Head {h00=0x0026, h01=0x0050, text=»*      REGISTER CONTENTS ON ENTRY:«, t00=0x0089, t01=0x00a2}
0x0d6b6…0d6d2               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x0089, t01=0x00cc}
0x0d6d2…0d6ee               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0089, t01=0x00e8}
0x0d6ee…0d70a               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0089, t01=0x0104}
0x0d70a…0d726               Head {h00=0x0018, h01=0x0050, text=»* A7  = MESSAGE TYPE«, t00=0x0089, t01=0x0120}
0x0d726…0d730               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x013c}
0x0d730…0d744               Head {h00=0x0010, h01=0x0050, text=»ACKRST EQU *«, t00=0x0089, t01=0x0146}
0x0d744…0d76a               Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET DEVICE STATUS «, t00=0x0089, t01=0x015a}
0x0d76a…0d788               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 ANY ERROR? «, t00=0x0089, t01=0x0180}
0x0d788…0d7aa               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) EB130 YES, RETURN «, t00=0x008a, t01=0x000e}
0x0d7aa…0d7b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0030}
0x0d7b4…0d7d6               Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTST,A6 DWT STATUS«, t00=0x008a, t01=0x003a}
0x0d7d6…0d7e8               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x008a, t01=0x005c}
0x0d7e8…0d816               Head {h00=0x002a, h01=0x0050, text=» ANK A4,DWFRES RESET PACKET RECIEVED? «, t00=0x008a, t01=0x006e}
0x0d816…0d82e               Head {h00=0x0014, h01=0x0050, text=» RF(Z) EB120 NO «, t00=0x008a, t01=0x009c}
0x0d82e…0d860               Head {h00=0x002e, h01=0x0050, text=» LDK A1,LINERR YES. RET CODE := LINK RESET«, t00=0x008a, t01=0x00b4}
0x0d860…0d878               Head {h00=0x0014, h01=0x0050, text=» RF EB130 RETURN«, t00=0x008a, t01=0x00e6}
0x0d878…0d882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x00fe}
0x0d882…0d896               Head {h00=0x0010, h01=0x0050, text=»EB120 EQU * «, t00=0x008a, t01=0x0108}
0x0d896…0d8ca               Head {h00=0x0030, h01=0x0050, text=» CWK A7,TYNFLO PACKET WITH NO FLOW CONTROL? «, t00=0x008a, t01=0x011c}
0x0d8ca…0d8ea               Head {h00=0x001c, h01=0x0050, text=» RF(E) EB130 YES, RETURN«, t00=0x008a, t01=0x0150}
0x0d8ea…0d916               Head {h00=0x0028, h01=0x0050, text=» ANK A3,DWFSAC WAIT FOR LEVEL 3 ACK?«, t00=0x008a, t01=0x0170}
0x0d916…0d936               Head {h00=0x001c, h01=0x0050, text=» RF(Z) EB130 NO, RETURN «, t00=0x008b, t01=0x000c}
0x0d936…0d940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x002c}
0x0d940…0d976               Head {h00=0x0032, h01=0x0050, text=» LDK A3,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" «, t00=0x008b, t01=0x0036}
0x0d976…0d9a6               Head {h00=0x002c, h01=0x0050, text=» ORS A3,DWTST,A6 SET FLAG IN DWT STATUS «, t00=0x008b, t01=0x006c}
0x0d9a6…0d9ca               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x008b, t01=0x009c}
0x0d9ca…0d9d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00c0}
0x0d9d4…0d9e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x00ca}
0x0d9e2…0d9ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00d8}
0x0d9ec…0da32               Head {h00=0x0042, h01=0x0050, text=»*    ENTRY IS MADE HERE WHEN ACK ON LEVEL 3 HAVE BEEN RECIEVED«, t00=0x008b, t01=0x00e2}
0x0da32…0da5c               Head {h00=0x0026, h01=0x0050, text=»*      REGISTER CONTENTS ON ENTRY:«, t00=0x008b, t01=0x0128}
0x0da5c…0da78               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x008b, t01=0x0152}
0x0da78…0daac               Head {h00=0x0030, h01=0x0050, text=»* A2  = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x008b, t01=0x016e}
0x0daac…0dac8               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x008c, t01=0x0012}
0x0dac8…0dae4               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x008c, t01=0x002e}
0x0dae4…0daee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x004a}
0x0daee…0db02               Head {h00=0x0010, h01=0x0050, text=»AK3RST EQU *«, t00=0x008c, t01=0x0054}
0x0db02…0db0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0068}
0x0db0c…0db20               Head {h00=0x0010, h01=0x0050, text=»EB130 EQU * «, t00=0x008c, t01=0x0072}
0x0db20…0db2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0086}
0x0db2a…0db54               Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x008c, t01=0x0090}
0x0db54…0db5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00ba}
0x0db5e…0db68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00c4}
0x0db68…0db72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00ce}
0x0db72…0db86               Head {h00=0x0010, h01=0x0050, text=»EBERR2 EQU *«, t00=0x008c, t01=0x00d8}
0x0db86…0dba8               Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x008c, t01=0x00ec}
0x0dba8…0dbbc               Head {h00=0x0010, h01=0x0050, text=»EBERR1 EQU *«, t00=0x008c, t01=0x010e}
0x0dbbc…0dbea               Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTLD1,A6 OUTPUT BUFFER ADDRESS«, t00=0x008c, t01=0x0122}
0x0dbea…0dc10               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLRLBU RELEASE BUFFER «, t00=0x008c, t01=0x0150}
0x0dc10…0dc38               Head {h00=0x0024, h01=0x0050, text=» CM DWTLD1,A6 INDICATE NO BUFFER«, t00=0x008c, t01=0x0176}
0x0dc38…0dc60               Head {h00=0x0024, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL«, t00=0x008d, t01=0x000e}
0x0dc60…0dc8a               Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x008d, t01=0x0036}
0x0dc8a…0dc94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0060}
0x0dc94…0dca2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x006a}
0x0dca2…0dcac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0078}
0x0dcac…0dcf0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x008d, t01=0x0082}
0x0dcf0…0dcfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00c6}
0x0dcfa…0dd12               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x008d, t01=0x00d0}
0x0dd12…0dd22               Head {h00=0x000c, h01=0x0050, text=»* PLTEST«, t00=0x008d, t01=0x00e8}
0x0dd22…0dd2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00f8}
0x0dd2c…0dd40               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x008d, t01=0x0102}
0x0dd40…0dd76               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES TEST COMMANDS FOR PLC. «, t00=0x008d, t01=0x0116}
0x0dd76…0ddaa               Head {h00=0x0030, h01=0x0050, text=»* THE TEST COMMANDS ARE GENERATED BY A TEST «, t00=0x008d, t01=0x014c}
0x0ddaa…0dde2               Head {h00=0x0034, h01=0x0050, text=»* COMMAND "DRIVER" WITH AN INTERFACE SIMILAR TO «, t00=0x008d, t01=0x0180}
0x0dde2…0de18               Head {h00=0x0032, h01=0x0050, text=»* THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. «, t00=0x008e, t01=0x0028}
0x0de18…0de4e               Head {h00=0x0032, h01=0x0050, text=»* CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND«, t00=0x008e, t01=0x005e}
0x0de4e…0de86               Head {h00=0x0034, h01=0x0050, text=»* NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, «, t00=0x008e, t01=0x0094}
0x0de86…0debc               Head {h00=0x0032, h01=0x0050, text=»* AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER «, t00=0x008e, t01=0x00cc}
0x0debc…0ded4               Head {h00=0x0014, h01=0x0050, text=»* LINE DRIVERS. «, t00=0x008e, t01=0x0102}
0x0ded4…0dede               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x011a}
0x0dede…0deee               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x008e, t01=0x0124}
0x0deee…0df04               Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLTEST«, t00=0x008e, t01=0x0134}
0x0df04…0df0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x014a}
0x0df0e…0df1e               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x008e, t01=0x0154}
0x0df1e…0df3a               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x008e, t01=0x0164}
0x0df3a…0df44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0180}
0x0df44…0df56               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x008e, t01=0x018a}
0x0df56…0df7a               Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x008f, t01=0x000c}
0x0df7a…0df96               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x008f, t01=0x0030}
0x0df96…0dfa8               Head {h00=0x000e, h01=0x0050, text=»*  0 IF OK«, t00=0x008f, t01=0x004c}
0x0dfa8…0dfc2               Head {h00=0x0016, h01=0x0050, text=»*  NOT 0 IF ERROR «, t00=0x008f, t01=0x005e}
0x0dfc2…0dfda               Head {h00=0x0014, h01=0x0050, text=»* A2  = CHANGED «, t00=0x008f, t01=0x0078}
0x0dfda…0dff8               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A1«, t00=0x008f, t01=0x0090}
0x0dff8…0e012               Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x008f, t01=0x00ae}
0x0e012…0e01c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00c8}
0x0e01c…0e060               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x008f, t01=0x00d2}
0x0e060…0e06a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0116}
0x0e06a…0e078               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x0120}
0x0e078…0e082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x012e}
0x0e082…0e096               Head {h00=0x0010, h01=0x0050, text=»PLTEST EQU *«, t00=0x008f, t01=0x0138}
0x0e096…0e0ac               Head {h00=0x0012, h01=0x0050, text=» IFT PLCTST=1 «, t00=0x008f, t01=0x014c}
0x0e0ac…0e0dc               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x008f, t01=0x0162}
0x0e0dc…0e104 (144, 0, 398) Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x0090, t01=0x0004}
0x0e104…0e126               Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x0090, t01=0x002c}
0x0e126…0e130               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x004e}
0x0e130…0e13c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0090, t01=0x0058}
0x0e13c…0e16e               Head {h00=0x002e, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA«, t00=0x0090, t01=0x0064}
0x0e16e…0e1ae               Head {h00=0x003c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 DATA CHAINING & MSB OF BUFFER ADDR «, t00=0x0090, t01=0x0096}
0x0e1ae…0e1e2               Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS«, t00=0x0090, t01=0x00d6}
0x0e1e2…0e208               Head {h00=0x0022, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 TO CCA«, t00=0x0090, t01=0x010a}
0x0e208…0e23c               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTTLN,A6 USER REQUEST BUFFER LENGTH «, t00=0x0090, t01=0x0130}
0x0e23c…0e26a               Head {h00=0x002a, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 LENGTH TO CCA «, t00=0x0090, t01=0x0164}
0x0e26a…0e29c (145, 0, 400) Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD«, t00=0x0091, t01=0x0004}
0x0e29c…0e2a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0036}
0x0e2a6…0e2d0               Head {h00=0x0026, h01=0x0050, text=»*    DETERMINE TYPE OF TEST ORDER «, t00=0x0091, t01=0x0040}
0x0e2d0…0e302               Head {h00=0x002e, h01=0x0050, text=» LC A1,DWTOR+1,A6 USER REQUEST ORDER CODE «, t00=0x0091, t01=0x006a}
0x0e302…0e31c               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F CLEAN «, t00=0x0091, t01=0x009c}
0x0e31c…0e346               Head {h00=0x0026, h01=0x0050, text=» CWK A1,ORDPS GET LINE STATISTICS?«, t00=0x0091, t01=0x00b6}
0x0e346…0e366               Head {h00=0x001c, h01=0x0050, text=» RF(E) TE100 YES, HANDLE«, t00=0x0091, t01=0x00e0}
0x0e366…0e390               Head {h00=0x0026, h01=0x0050, text=» CWK A1,ORDDS GET DLS STATISTICS? «, t00=0x0091, t01=0x0100}
0x0e390…0e3b0               Head {h00=0x001c, h01=0x0050, text=» RF(E) TE110 YES, HANDLE«, t00=0x0091, t01=0x012a}
0x0e3b0…0e3d8               Head {h00=0x0024, h01=0x0050, text=» CWK A1,ORDRM READ LOCAL MEMORY?«, t00=0x0091, t01=0x014a}
0x0e3d8…0e40e               Head {h00=0x0032, h01=0x0050, text=» RF(NE) TEERR2 NO, COMMAND NOT DEFINED. ERROR «, t00=0x0091, t01=0x0172}
0x0e40e…0e418               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0018}
0x0e418…0e436               Head {h00=0x001a, h01=0x0050, text=»*    READ LOCAL MEMORY«, t00=0x0092, t01=0x0022}
0x0e436…0e470               Head {h00=0x0036, h01=0x0050, text=» ST A3,CWTCCA+CCRSUB,A5 PLC MEMORY ADDRESS TO CCA «, t00=0x0092, t01=0x0040}
0x0e470…0e4a4               Head {h00=0x0030, h01=0x0050, text=» LDK A3,CMDRM PLC COMMAND READ LOCAL MEMORY «, t00=0x0092, t01=0x007a}
0x0e4a4…0e4c4               Head {h00=0x001c, h01=0x0050, text=» RF TE120 TO COMMON PART«, t00=0x0092, t01=0x00ae}
0x0e4c4…0e4ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00ce}
0x0e4ce…0e4e2               Head {h00=0x0010, h01=0x0050, text=»TE100 EQU * «, t00=0x0092, t01=0x00d8}
0x0e4e2…0e502               Head {h00=0x001c, h01=0x0050, text=»*    GET LINE STATISTICS«, t00=0x0092, t01=0x00ec}
0x0e502…0e538               Head {h00=0x0032, h01=0x0050, text=» LDK A3,CMDPS PLC COMMAND GET LINE STATISTICS «, t00=0x0092, t01=0x010c}
0x0e538…0e558               Head {h00=0x001c, h01=0x0050, text=» RF TE120 TO COMMON PART«, t00=0x0092, t01=0x0142}
0x0e558…0e562               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0162}
0x0e562…0e576               Head {h00=0x0010, h01=0x0050, text=»TE110 EQU * «, t00=0x0092, t01=0x016c}
0x0e576…0e596               Head {h00=0x001c, h01=0x0050, text=»*    GET DLS STATISTICS «, t00=0x0092, t01=0x0180}
0x0e596…0e5c0               Head {h00=0x0026, h01=0x0050, text=» LC A3,DWTCP2,A6 CHANNEL PARAMETER«, t00=0x0093, t01=0x0010}
0x0e5c0…0e5e6               Head {h00=0x0022, h01=0x0050, text=» ANK A3,MASKWS CLEAN WS NUMBER«, t00=0x0093, t01=0x003a}
0x0e5e6…0e604               Head {h00=0x001a, h01=0x0050, text=» SLL A3,8 TO LEFT BYTE«, t00=0x0093, t01=0x0060}
0x0e604…0e638               Head {h00=0x0030, h01=0x0050, text=» ADK A3,CMDDS PLC COMMAND GET DLS STATISTICS«, t00=0x0093, t01=0x007e}
0x0e638…0e642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00b2}
0x0e642…0e656               Head {h00=0x0010, h01=0x0050, text=»TE120 EQU * «, t00=0x0093, t01=0x00bc}
0x0e656…0e690               Head {h00=0x0036, h01=0x0050, text=» ST A3,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND TO CCA«, t00=0x0093, t01=0x00d0}
0x0e690…0e69a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x010a}
0x0e69a…0e6c2               Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x0093, t01=0x0114}
0x0e6c2…0e6e6               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TEERR1 ERROR. HANDLE«, t00=0x0093, t01=0x013c}
0x0e6e6…0e710               Head {h00=0x0026, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCER. WAIT «, t00=0x0093, t01=0x0160}
0x0e710…0e71a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x018a}
0x0e71a…0e724 (148, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0004}
0x0e724…0e764               Head {h00=0x003c, h01=0x0050, text=»*    ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. «, t00=0x0094, t01=0x000e}
0x0e764…0e78e               Head {h00=0x0026, h01=0x0050, text=»*      REGISTER CONTENTS ON ENTRY:«, t00=0x0094, t01=0x004e}
0x0e78e…0e7aa               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x0094, t01=0x0078}
0x0e7aa…0e7c6               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0094, t01=0x0094}
0x0e7c6…0e7e2               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0094, t01=0x00b0}
0x0e7e2…0e7ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00cc}
0x0e7ec…0e800               Head {h00=0x0010, h01=0x0050, text=»TSTRST EQU *«, t00=0x0094, t01=0x00d6}
0x0e800…0e82a               Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x0094, t01=0x00ea}
0x0e82a…0e834               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0114}
0x0e834…0e83e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x011e}
0x0e83e…0e852               Head {h00=0x0010, h01=0x0050, text=»TEERR2 EQU *«, t00=0x0094, t01=0x0128}
0x0e852…0e87a               Head {h00=0x0024, h01=0x0050, text=» CM CWTCCB,A5 INDICATE CCA FREE «, t00=0x0094, t01=0x013c}
0x0e87a…0e8a6               Head {h00=0x0028, h01=0x0050, text=» LDK A1,PLSERR RET CODE := SW ERROR «, t00=0x0094, t01=0x0164}
0x0e8a6…0e8ba               Head {h00=0x0010, h01=0x0050, text=»TEERR1 EQU *«, t00=0x0094, t01=0x0190}
0x0e8ba…0e8e4               Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x0095, t01=0x0014}
0x0e8e4…0e8f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0095, t01=0x003e}
0x0e8f0…0e8fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x004a}
0x0e8fa…0e908               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0054}
0x0e908…0e912               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0062}
0x0e912…0e930               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0095, t01=0x006c}
0x0e930…0e94e               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT ROUTINES *«, t00=0x0095, t01=0x008a}
0x0e94e…0e96c               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0095, t01=0x00a8}
0x0e96c…0e976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00c6}
0x0e976…0e9b4               Head {h00=0x003a, h01=0x0050, text=»*   THIS SECTION CONTAINS INTERRUPT HANDLING ROUTINES.«, t00=0x0095, t01=0x00d0}
0x0e9b4…0e9e8               Head {h00=0x0030, h01=0x0050, text=»*   IT IS ENTERED IMMEDIATELY AT A RELEASE, «, t00=0x0095, t01=0x010e}
0x0e9e8…0ea1a               Head {h00=0x002e, h01=0x0050, text=»*   ATTENTION OR I/O COMPLETION INTERRUPT.«, t00=0x0095, t01=0x0142}
0x0ea1a…0ea40               Head {h00=0x0022, h01=0x0050, text=»*   ALL ROUTINES ARE EXECUTED «, t00=0x0095, t01=0x0174}
0x0ea40…0ea7c               Head {h00=0x0038, h01=0x0050, text=»*   ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS«, t00=0x0096, t01=0x000a}
0x0ea7c…0eabe               Head {h00=0x003e, h01=0x0050, text=»*   MADE EITHER TO SOME ROUTINE WAITING FOR THE INTERRUPT,«, t00=0x0096, t01=0x0046}
0x0eabe…0eafc               Head {h00=0x003a, h01=0x0050, text=»*   TO THE LOCAL PLC DISPATCHER OR TO TOSS DISPATCHER.«, t00=0x0096, t01=0x0088}
0x0eafc…0eb38               Head {h00=0x0038, h01=0x0050, text=»*   ON EXIT, A15 STACK CONTAINS INTERRUPT RETURN AND«, t00=0x0096, t01=0x00c6}
0x0eb38…0eb4a               Head {h00=0x000e, h01=0x0050, text=»*   A1-A8.«, t00=0x0096, t01=0x0102}
0x0eb4a…0eb54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0114}
0x0eb54…0eb5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x011e}
0x0eb5e…0eb92               Head {h00=0x0030, h01=0x0050, text=»*   ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x0096, t01=0x0128}
0x0eb92…0eb9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x015c}
0x0eb9c…0ebb4               Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x0096, t01=0x0166}
0x0ebb4…0ebbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x017e}
0x0ebbe…0ebdc               Head {h00=0x001a, h01=0x0050, text=»* IHPL INTERRUPT ENTRY«, t00=0x0096, t01=0x0188}
0x0ebdc…0ec04               Head {h00=0x0024, h01=0x0050, text=»* PLIHR HANDLE RELEASE INTERRUPT«, t00=0x0097, t01=0x0016}
0x0ec04…0ec2e               Head {h00=0x0026, h01=0x0050, text=»* PLIHA HANDLE ATTENTION INTERRUPT«, t00=0x0097, t01=0x003e}
0x0ec2e…0ec5e               Head {h00=0x002c, h01=0x0050, text=»* PLIHC HANDLE I/O COMPLETION INTERRUPT «, t00=0x0097, t01=0x0068}
0x0ec5e…0ec94               Head {h00=0x0032, h01=0x0050, text=»* COMPSTA HANDLE COMPLETION OF START COMMANDS «, t00=0x0097, t01=0x0098}
0x0ec94…0ecbe               Head {h00=0x0026, h01=0x0050, text=»*   (TEST CU, OPEN LINE, OPEN DLS)«, t00=0x0097, t01=0x00ce}
0x0ecbe…0ecf4               Head {h00=0x0032, h01=0x0050, text=»* COMPTEST HANDLE COMPLETION OF TEST COMMANDS «, t00=0x0097, t01=0x00f8}
0x0ecf4…0ed2e               Head {h00=0x0036, h01=0x0050, text=»*   (PLC STATISTICS, DLS STAT., READ LOCAL MEMORY)«, t00=0x0097, t01=0x012e}
0x0ed2e…0ed64               Head {h00=0x0032, h01=0x0050, text=»* COMPWRI HANDLE COMPLETION OF WRITE COMMANDS «, t00=0x0097, t01=0x0168}
0x0ed64…0eda0               Head {h00=0x0038, h01=0x0050, text=»* COMPGR HANDLE COMPLETION OF GENERAL READ COMMANDS «, t00=0x0098, t01=0x000e}
0x0eda0…0edce               Head {h00=0x002a, h01=0x0050, text=»* GRERR HANDLE ERRORS AT GENERAL READ «, t00=0x0098, t01=0x004a}
0x0edce…0ee08               Head {h00=0x0036, h01=0x0050, text=»* GRSACK HANDLE STATUS AND RR MESSAGE FROM DEVICE «, t00=0x0098, t01=0x0078}
0x0ee08…0ee36               Head {h00=0x002a, h01=0x0050, text=»* GRDATA HANDLE DATA INPUT FROM DEVICE«, t00=0x0098, t01=0x00b2}
0x0ee36…0ee6a               Head {h00=0x0030, h01=0x0050, text=»* GRRES HANDLE RESET MESSAGE FROM SECONDARY «, t00=0x0098, t01=0x00e0}
0x0ee6a…0ee74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0114}
0x0ee74…0ee82               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x011e}
0x0ee82…0ee8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x012c}
0x0ee8c…0eed0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0098, t01=0x0136}
0x0eed0…0eeda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x017a}
0x0eeda…0eef2               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0098, t01=0x0184}
0x0eef2…0ef00               Head {h00=0x000a, h01=0x0050, text=»* IHPL«, t00=0x0099, t01=0x000c}
0x0ef00…0ef0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x001a}
0x0ef0a…0ef1e               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0099, t01=0x0024}
0x0ef1e…0ef54               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE CONTAINS INTERRUPT ENTRIES FOR «, t00=0x0099, t01=0x0038}
0x0ef54…0ef8a               Head {h00=0x0032, h01=0x0050, text=»* ALL PLC:S INCLUDED. IT SAVES A1-A8, SETS CWT«, t00=0x0099, t01=0x006e}
0x0ef8a…0efc2               Head {h00=0x0034, h01=0x0050, text=»* ADDRESS AND EXITS TO RELEASE OR I/O COMPLETION«, t00=0x0099, t01=0x00a4}
0x0efc2…0efde               Head {h00=0x0018, h01=0x0050, text=»* INTERRUPT HANDLER.«, t00=0x0099, t01=0x00dc}
0x0efde…0efe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00f8}
0x0efe8…0eff8               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0099, t01=0x0102}
0x0eff8…0f014               Head {h00=0x0018, h01=0x0050, text=»* HARDWARE INTERRUPT«, t00=0x0099, t01=0x0112}
0x0f014…0f01e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x012e}
0x0f01e…0f02e               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0099, t01=0x0138}
0x0f02e…0f052               Head {h00=0x0020, h01=0x0050, text=»* A15 = SYSTEM STACK POINTER«, t00=0x0099, t01=0x0148}
0x0f052…0f06e               Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0099, t01=0x016c}
0x0f06e…0f084               Head {h00=0x0012, h01=0x0050, text=»* MODE SYSTEM «, t00=0x0099, t01=0x0188}
0x0f084…0f08e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x000e}
0x0f08e…0f0a0               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x009a, t01=0x0018}
0x0f0a0…0f0bc               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x009a, t01=0x002a}
0x0f0bc…0f0c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0046}
0x0f0c6…0f10a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009a, t01=0x0050}
0x0f10a…0f114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0094}
0x0f114…0f128               Head {h00=0x0010, h01=0x0050, text=»IHPL01 EQU *«, t00=0x009a, t01=0x009e}
0x0f128…0f142               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009a, t01=0x00b2}
0x0f142…0f158               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x009a, t01=0x00cc}
0x0f158…0f178               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x009a, t01=0x00e2}
0x0f178…0f184               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009a, t01=0x0102}
0x0f184…0f19e               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009a, t01=0x010e}
0x0f19e…0f1b4               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x009a, t01=0x0128}
0x0f1b4…0f1d2               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x009a, t01=0x013e}
0x0f1d2…0f1de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009a, t01=0x015c}
0x0f1de…0f1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0168}
0x0f1e8…0f202               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009a, t01=0x0172}
0x0f202…0f22c               Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL0CWT CWT ADDRESS, PLC 0«, t00=0x009a, t01=0x018c}
0x0f22c…0f254               Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x009b, t01=0x0026}
0x0f254…0f260               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x004e}
0x0f260…0f26a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x005a}
0x0f26a…0f278               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x0064}
0x0f278…0f282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0072}
0x0f282…0f296               Head {h00=0x0010, h01=0x0050, text=»IHPL02 EQU *«, t00=0x009b, t01=0x007c}
0x0f296…0f2b0               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009b, t01=0x0090}
0x0f2b0…0f2c6               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009b, t01=0x00aa}
0x0f2c6…0f2dc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x009b, t01=0x00c0}
0x0f2dc…0f2fc               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x009b, t01=0x00d6}
0x0f2fc…0f308               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x00f6}
0x0f308…0f312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0102}
0x0f312…0f32c               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009b, t01=0x010c}
0x0f32c…0f342               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009b, t01=0x0126}
0x0f342…0f358               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x009b, t01=0x013c}
0x0f358…0f376               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x009b, t01=0x0152}
0x0f376…0f382               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x0170}
0x0f382…0f38c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x017c}
0x0f38c…0f3a6               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009b, t01=0x0186}
0x0f3a6…0f3bc               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009c, t01=0x0010}
0x0f3bc…0f3e6               Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL1CWT CWT ADDRESS, PLC 1«, t00=0x009c, t01=0x0026}
0x0f3e6…0f40e               Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x009c, t01=0x0050}
0x0f40e…0f41a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0078}
0x0f41a…0f424               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0084}
0x0f424…0f438               Head {h00=0x0010, h01=0x0050, text=»IHPL03 EQU *«, t00=0x009c, t01=0x008e}
0x0f438…0f452               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009c, t01=0x00a2}
0x0f452…0f468               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009c, t01=0x00bc}
0x0f468…0f47e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x009c, t01=0x00d2}
0x0f47e…0f494               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x009c, t01=0x00e8}
0x0f494…0f4b4               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x009c, t01=0x00fe}
0x0f4b4…0f4c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x011e}
0x0f4c0…0f4ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x012a}
0x0f4ca…0f4e4               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009c, t01=0x0134}
0x0f4e4…0f4fa               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009c, t01=0x014e}
0x0f4fa…0f510               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x009c, t01=0x0164}
0x0f510…0f526               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x009c, t01=0x017a}
0x0f526…0f544               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x009c, t01=0x0190}
0x0f544…0f550               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009d, t01=0x001e}
0x0f550…0f55a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x002a}
0x0f55a…0f574               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009d, t01=0x0034}
0x0f574…0f58a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009d, t01=0x004e}
0x0f58a…0f5a0               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x009d, t01=0x0064}
0x0f5a0…0f5ca               Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL2CWT CWT ADDRESS, PLC 2«, t00=0x009d, t01=0x007a}
0x0f5ca…0f5f2               Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x009d, t01=0x00a4}
0x0f5f2…0f5fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009d, t01=0x00cc}
0x0f5fe…0f608               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00d8}
0x0f608…0f61c               Head {h00=0x0010, h01=0x0050, text=»IHPL04 EQU *«, t00=0x009d, t01=0x00e2}
0x0f61c…0f636               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009d, t01=0x00f6}
0x0f636…0f64c               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009d, t01=0x0110}
0x0f64c…0f662               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x009d, t01=0x0126}
0x0f662…0f678               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x009d, t01=0x013c}
0x0f678…0f68e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x009d, t01=0x0152}
0x0f68e…0f6ae               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x009d, t01=0x0168}
0x0f6ae…0f6ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009d, t01=0x0188}
0x0f6ba…0f6c4 (158, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0004}
0x0f6c4…0f6de               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009e, t01=0x000e}
0x0f6de…0f6f4               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009e, t01=0x0028}
0x0f6f4…0f70a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x009e, t01=0x003e}
0x0f70a…0f720               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x009e, t01=0x0054}
0x0f720…0f736               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x009e, t01=0x006a}
0x0f736…0f754               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x009e, t01=0x0080}
0x0f754…0f760               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009e, t01=0x009e}
0x0f760…0f76a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00aa}
0x0f76a…0f784               Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x009e, t01=0x00b4}
0x0f784…0f79a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x009e, t01=0x00ce}
0x0f79a…0f7b0               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x009e, t01=0x00e4}
0x0f7b0…0f7c6               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x009e, t01=0x00fa}
0x0f7c6…0f7f0               Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL3CWT CWT ADDRESS, PLC 3«, t00=0x009e, t01=0x0110}
0x0f7f0…0f818               Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x009e, t01=0x013a}
0x0f818…0f824               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009e, t01=0x0162}
0x0f824…0f82e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x016e}
0x0f82e…0f842               Head {h00=0x0010, h01=0x0050, text=»IHPR01 EQU *«, t00=0x009e, t01=0x0178}
0x0f842…0f858               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x009e, t01=0x018c}
0x0f858…0f86e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x009f, t01=0x0012}
0x0f86e…0f88e               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x009f, t01=0x0028}
0x0f88e…0f89a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009f, t01=0x0048}
0x0f89a…0f8b0               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x009f, t01=0x0054}
0x0f8b0…0f8c6               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x009f, t01=0x006a}
0x0f8c6…0f8e4               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x009f, t01=0x0080}
0x0f8e4…0f8f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009f, t01=0x009e}
0x0f8f0…0f906               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x009f, t01=0x00aa}
0x0f906…0f936               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR1CWT CWTADDRESS PLC 1 REMOTE «, t00=0x009f, t01=0x00c0}
0x0f936…0f95c               Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL CWT:S«, t00=0x009f, t01=0x00f0}
0x0f95c…0f968               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009f, t01=0x0116}
0x0f968…0f97c               Head {h00=0x0010, h01=0x0050, text=»IHPR02 EQU *«, t00=0x009f, t01=0x0122}
0x0f97c…0f992               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x009f, t01=0x0136}
0x0f992…0f9a8               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x009f, t01=0x014c}
0x0f9a8…0f9be               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x009f, t01=0x0162}
0x0f9be…0f9de               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x009f, t01=0x0178}
0x0f9de…0f9ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x0008}
0x0f9ea…0fa00               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a0, t01=0x0014}
0x0fa00…0fa16               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a0, t01=0x002a}
0x0fa16…0fa2c               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00a0, t01=0x0040}
0x0fa2c…0fa4a               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00a0, t01=0x0056}
0x0fa4a…0fa56               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x0074}
0x0fa56…0fa6c               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a0, t01=0x0080}
0x0fa6c…0fa82               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a0, t01=0x0096}
0x0fa82…0fab2               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR2CWT CWTADDRESS PLC 2 REMOTE «, t00=0x00a0, t01=0x00ac}
0x0fab2…0fad8               Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL CWT:S«, t00=0x00a0, t01=0x00dc}
0x0fad8…0fae4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x0102}
0x0fae4…0faf8               Head {h00=0x0010, h01=0x0050, text=»IHPR03 EQU *«, t00=0x00a0, t01=0x010e}
0x0faf8…0fb0e               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a0, t01=0x0122}
0x0fb0e…0fb24               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a0, t01=0x0138}
0x0fb24…0fb3a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00a0, t01=0x014e}
0x0fb3a…0fb50               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00a0, t01=0x0164}
0x0fb50…0fb70               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00a0, t01=0x017a}
0x0fb70…0fb7c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x000a}
0x0fb7c…0fb92               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a1, t01=0x0016}
0x0fb92…0fba8               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a1, t01=0x002c}
0x0fba8…0fbbe               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00a1, t01=0x0042}
0x0fbbe…0fbd4               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00a1, t01=0x0058}
0x0fbd4…0fbf2               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00a1, t01=0x006e}
0x0fbf2…0fbfe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x008c}
0x0fbfe…0fc14               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a1, t01=0x0098}
0x0fc14…0fc2a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a1, t01=0x00ae}
0x0fc2a…0fc40               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00a1, t01=0x00c4}
0x0fc40…0fc70               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR3CWT CWTADDRESS PLC 3 REMOTE «, t00=0x00a1, t01=0x00da}
0x0fc70…0fc96               Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL PLC:S«, t00=0x00a1, t01=0x010a}
0x0fc96…0fca2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x0130}
0x0fca2…0fcb6               Head {h00=0x0010, h01=0x0050, text=»IHPR04 EQU *«, t00=0x00a1, t01=0x013c}
0x0fcb6…0fccc               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a1, t01=0x0150}
0x0fccc…0fce2               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a1, t01=0x0166}
0x0fce2…0fcf8               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00a1, t01=0x017c}
0x0fcf8…0fd0e (162, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x00a2, t01=0x0004}
0x0fd0e…0fd24               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00a2, t01=0x001a}
0x0fd24…0fd44               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00a2, t01=0x0030}
0x0fd44…0fd50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x0050}
0x0fd50…0fd66               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a2, t01=0x005c}
0x0fd66…0fd7c               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a2, t01=0x0072}
0x0fd7c…0fd92               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00a2, t01=0x0088}
0x0fd92…0fda8               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x00a2, t01=0x009e}
0x0fda8…0fdbe               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00a2, t01=0x00b4}
0x0fdbe…0fddc               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00a2, t01=0x00ca}
0x0fddc…0fde8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x00e8}
0x0fde8…0fdfe               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00a2, t01=0x00f4}
0x0fdfe…0fe14               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00a2, t01=0x010a}
0x0fe14…0fe2a               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x00a2, t01=0x0120}
0x0fe2a…0fe40               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x00a2, t01=0x0136}
0x0fe40…0fe70               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR4CWT CWTADDRESS PLC 4 REMOTE «, t00=0x00a2, t01=0x014c}
0x0fe70…0fe96               Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL CWT:S«, t00=0x00a2, t01=0x017c}
0x0fe96…0fea2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a3, t01=0x0012}
0x0fea2…0feb0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a3, t01=0x001e}
0x0feb0…0feba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x002c}
0x0feba…0fecc               Head {h00=0x000e, h01=0x0050, text=»IHPL EQU *«, t00=0x00a3, t01=0x0036}
0x0fecc…0fef6               Head {h00=0x0026, h01=0x0050, text=» ST P,INTSAV SAVE LATEST INTERRUPT«, t00=0x00a3, t01=0x0048}
0x0fef6…0ff18               Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 RESET HIGH BYTE «, t00=0x00a3, t01=0x0072}
0x0ff18…0ff48               Head {h00=0x002c, h01=0x0050, text=» LC A1,CWTCID+CIDINT,A5 INTERRUPT SOURCE«, t00=0x00a3, t01=0x0094}
0x0ff48…0ff64               Head {h00=0x0018, h01=0x0050, text=» CWK A1,/40 RELEASE?«, t00=0x00a3, t01=0x00c4}
0x0ff64…0ff84               Head {h00=0x001c, h01=0x0050, text=» RF(E) PLIHR YES, HANDLE«, t00=0x00a3, t01=0x00e0}
0x0ff84…0ffa8               Head {h00=0x0020, h01=0x0050, text=» CWK A1,/20 I/O COMPLETION? «, t00=0x00a3, t01=0x0100}
0x0ffa8…0ffc8               Head {h00=0x001c, h01=0x0050, text=» RF(E) PLIHC YES, HANDLE«, t00=0x00a3, t01=0x0124}
0x0ffc8…0ffe6               Head {h00=0x001a, h01=0x0050, text=» CWK A1,/80 ATTENTION?«, t00=0x00a3, t01=0x0144}
0x0ffe6…10006               Head {h00=0x001c, h01=0x0050, text=» RF(E) PLIHA YES, HANDLE«, t00=0x00a3, t01=0x0162}
0x10006…10010               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0182}
0x10010…10046               Head {h00=0x0032, h01=0x0050, text=» CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE «, t00=0x00a3, t01=0x018c}
0x10046…1005e               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00a4, t01=0x0032}
0x1005e…10068               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x004a}
0x10068…10076               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a4, t01=0x0054}
0x10076…10080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0062}
0x10080…100c4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00a4, t01=0x006c}
0x100c4…100ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00b0}
0x100ce…100e6               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00a4, t01=0x00ba}
0x100e6…100f6               Head {h00=0x000c, h01=0x0050, text=»* PLIHR «, t00=0x00a4, t01=0x00d2}
0x100f6…10100               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00e2}
0x10100…10114               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00a4, t01=0x00ec}
0x10114…10146               Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE HANDLES RELEASE INTERRUPTS.«, t00=0x00a4, t01=0x0100}
0x10146…10178               Head {h00=0x002e, h01=0x0050, text=»* IT RESETS THE INTERRUPT, AND IF ANOTHER «, t00=0x00a4, t01=0x0132}
0x10178…101a8               Head {h00=0x002c, h01=0x0050, text=»* PROCESS IS WAITING FOR THE CCA, RETURN«, t00=0x00a4, t01=0x0164}
0x101a8…101d4 (165, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* IS MADE TO CCA ALLOCATION ROUTINE.«, t00=0x00a5, t01=0x0004}
0x101d4…101de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0030}
0x101de…101ee               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00a5, t01=0x003a}
0x101ee…10200               Head {h00=0x000e, h01=0x0050, text=»* RF PLIHR«, t00=0x00a5, t01=0x004a}
0x10200…1020a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x005c}
0x1020a…1021a               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00a5, t01=0x0066}
0x1021a…10236               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00a5, t01=0x0076}
0x10236…10240               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0092}
0x10240…10252               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00a5, t01=0x009c}
0x10252…1026e               Head {h00=0x0018, h01=0x0050, text=»* IF PROCESS WAITING«, t00=0x00a5, t01=0x00ae}
0x1026e…1029e               Head {h00=0x002c, h01=0x0050, text=»* A4  = BLOCK ADDRESS OF WAITING PROCESS«, t00=0x00a5, t01=0x00ca}
0x1029e…102ba               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00a5, t01=0x00fa}
0x102ba…102c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0116}
0x102c4…10308               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00a5, t01=0x0120}
0x10308…10312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0164}
0x10312…10326               Head {h00=0x0010, h01=0x0050, text=»PLIHR EQU * «, t00=0x00a5, t01=0x016e}
0x10326…1034c               Head {h00=0x0022, h01=0x0050, text=» EX CWTST3,A5 RESET INTERRUPT «, t00=0x00a5, t01=0x0182}
0x1034c…1037e               Head {h00=0x002e, h01=0x0050, text=» LD A4,CWTCCQ,A5 PROCESS WAITING FOR CCA? «, t00=0x00a6, t01=0x0018}
0x1037e…103ac               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) CCARST YES, ACTIVATE PROCESS «, t00=0x00a6, t01=0x004a}
0x103ac…103d2               Head {h00=0x0022, h01=0x0050, text=» CM CWTCCB,A5 NO, SET CCA FREE«, t00=0x00a6, t01=0x0078}
0x103d2…103ea               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00a6, t01=0x009e}
0x103ea…103f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00b6}
0x103f4…10402               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a6, t01=0x00c0}
0x10402…1040c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00ce}
0x1040c…10450               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00a6, t01=0x00d8}
0x10450…1045a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x011c}
0x1045a…10472               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00a6, t01=0x0126}
0x10472…10482               Head {h00=0x000c, h01=0x0050, text=»* PLIHA «, t00=0x00a6, t01=0x013e}
0x10482…1048c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x014e}
0x1048c…104a0               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00a6, t01=0x0158}
0x104a0…104d8               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE HANDLES ATTENTION INTERRUPTS. IF «, t00=0x00a6, t01=0x016c}
0x104d8…10510               Head {h00=0x0034, h01=0x0050, text=»* ERROR, IT SETS AN ERROR CODE AND STARTS ABORT «, t00=0x00a7, t01=0x0014}
0x10510…10548               Head {h00=0x0034, h01=0x0050, text=»* OF ALL CALLS. IF COMMUNICATION REESTABLISHED, «, t00=0x00a7, t01=0x004c}
0x10548…10566               Head {h00=0x001a, h01=0x0050, text=»* IT STARTS RECOVERY. «, t00=0x00a7, t01=0x0084}
0x10566…10570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x00a2}
0x10570…10580               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00a7, t01=0x00ac}
0x10580…10592               Head {h00=0x000e, h01=0x0050, text=»* RF PLIHA«, t00=0x00a7, t01=0x00bc}
0x10592…1059c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x00ce}
0x1059c…105ac               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00a7, t01=0x00d8}
0x105ac…105c8               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00a7, t01=0x00e8}
0x105c8…105d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0104}
0x105d2…105e4               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00a7, t01=0x010e}
0x105e4…10600               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00a7, t01=0x0120}
0x10600…1061a               Head {h00=0x0016, h01=0x0050, text=»* A6  = WS NUMBER «, t00=0x00a7, t01=0x013c}
0x1061a…10624               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0156}
0x10624…10668               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00a7, t01=0x0160}
0x10668…10672               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0014}
0x10672…10686               Head {h00=0x0010, h01=0x0050, text=»PLIHA EQU * «, t00=0x00a8, t01=0x001e}
0x10686…106b0               Head {h00=0x0026, h01=0x0050, text=» LD A1,CWTRCA+CCRSTA,A5 PLC STATUS«, t00=0x00a8, t01=0x0032}
0x106b0…106da               Head {h00=0x0026, h01=0x0050, text=» ST A1,CWTPLS,A5 SAVE FOR TESTING «, t00=0x00a8, t01=0x005c}
0x106da…106f0               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x00a8, t01=0x0086}
0x106f0…1070e               Head {h00=0x001a, h01=0x0050, text=» CF A15,LOGATT LOG RCA«, t00=0x00a8, t01=0x009c}
0x1070e…1071a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x00ba}
0x1071a…10744               Head {h00=0x0026, h01=0x0050, text=» LC A6,CWTRCA+CCRDLS,A5 WS NUMBER «, t00=0x00a8, t01=0x00c6}
0x10744…10760               Head {h00=0x0018, h01=0x0050, text=» ANK A6,MASKWS CLEAN«, t00=0x00a8, t01=0x00f0}
0x10760…10782               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00a8, t01=0x010c}
0x10782…1078c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x012e}
0x1078c…1079a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x0138}
0x1079a…107a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0146}
0x107a4…107c8               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/FFFF-STACOM-STAERR«, t00=0x00a8, t01=0x0150}
0x107c8…107ec               Head {h00=0x0020, h01=0x0050, text=»*    MASK FOR ALLOWED ERRORS«, t00=0x00a8, t01=0x0174}
0x107ec…1080c               Head {h00=0x001c, h01=0x0050, text=» ANR A2,A1 FATAL ERROR? «, t00=0x00a9, t01=0x0008}
0x1080c…1082e               Head {h00=0x001e, h01=0x0050, text=» RF(Z) IA100 NO, CONTINUE «, t00=0x00a9, t01=0x0028}
0x1082e…1085a               Head {h00=0x0028, h01=0x0050, text=» CF A15,PLCNOP SET PLC NOT OPERABLE «, t00=0x00a9, t01=0x004a}
0x1085a…10872               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00a9, t01=0x0076}
0x10872…1087c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x008e}
0x1087c…10890               Head {h00=0x0010, h01=0x0050, text=»IA100 EQU * «, t00=0x00a9, t01=0x0098}
0x10890…108aa               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 STATUS «, t00=0x00a9, t01=0x00ac}
0x108aa…108de               Head {h00=0x0030, h01=0x0050, text=» ANK A2,STACOM COMMUNICATION REESTABLISHED? «, t00=0x00a9, t01=0x00c6}
0x108de…10910               Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) PLREWS YES, START RECOVERY OF WS «, t00=0x00a9, t01=0x00fa}
0x10910…1091a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x012c}
0x1091a…10936               Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 WS NUMBER«, t00=0x00a9, t01=0x0136}
0x10936…10960               Head {h00=0x0026, h01=0x0050, text=» CF A15,STAHAN HANDLE ERROR STATUS«, t00=0x00a9, t01=0x0152}
0x10960…10984               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00a9, t01=0x017c}
0x10984…1098e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0010}
0x1098e…1099c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x001a}
0x1099c…109a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0028}
0x109a6…109ea               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00aa, t01=0x0032}
0x109ea…109f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0076}
0x109f4…10a0c               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00aa, t01=0x0080}
0x10a0c…10a1c               Head {h00=0x000c, h01=0x0050, text=»* PLIHC «, t00=0x00aa, t01=0x0098}
0x10a1c…10a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x00a8}
0x10a26…10a3a               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00aa, t01=0x00b2}
0x10a3a…10a74               Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE HANDLES I/O COMPLETION INTERRUPTS. «, t00=0x00aa, t01=0x00c6}
0x10a74…10aae               Head {h00=0x0036, h01=0x0050, text=»* IT CHECKS WHICH COMMAND THAT HAS BEEN COMPLETED,«, t00=0x00aa, t01=0x0100}
0x10aae…10ae4               Head {h00=0x0032, h01=0x0050, text=»* AND EXITS TO CORRESPONDING COMMAND HANDLER. «, t00=0x00aa, t01=0x013a}
0x10ae4…10aee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0170}
0x10aee…10afe               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00aa, t01=0x017a}
0x10afe…10b10               Head {h00=0x000e, h01=0x0050, text=»* RF PLIHC«, t00=0x00aa, t01=0x018a}
0x10b10…10b1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x000c}
0x10b1a…10b2a               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00ab, t01=0x0016}
0x10b2a…10b46               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00ab, t01=0x0026}
0x10b46…10b50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0042}
0x10b50…10b62               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00ab, t01=0x004c}
0x10b62…10b7c               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00ab, t01=0x005e}
0x10b7c…10b9c               Head {h00=0x001c, h01=0x0050, text=»* A2  = FATAL PLC STATUS«, t00=0x00ab, t01=0x0078}
0x10b9c…10bb8               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00ab, t01=0x0098}
0x10bb8…10bd6               Head {h00=0x001a, h01=0x0050, text=»* A6  = USER PARAMETER«, t00=0x00ab, t01=0x00b4}
0x10bd6…10be0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00d2}
0x10be0…10c24               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00ab, t01=0x00dc}
0x10c24…10c2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0120}
0x10c2e…10c42               Head {h00=0x0010, h01=0x0050, text=»PLIHC EQU * «, t00=0x00ab, t01=0x012a}
0x10c42…10c6c               Head {h00=0x0026, h01=0x0050, text=» LD A1,CWTRCA+CCRSTA,A5 PLC STATUS«, t00=0x00ab, t01=0x013e}
0x10c6c…10c96               Head {h00=0x0026, h01=0x0050, text=» ST A1,CWTPLS,A5 SAVE FOR TESTING «, t00=0x00ab, t01=0x0168}
0x10c96…10cac (172, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x00ac, t01=0x0004}
0x10cac…10cca               Head {h00=0x001a, h01=0x0050, text=» CF A15,LOGIOC LOG CCR«, t00=0x00ac, t01=0x001a}
0x10cca…10cd6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0038}
0x10cd6…10cfa               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFF-STAPOL-STALER«, t00=0x00ac, t01=0x0044}
0x10cfa…10d24               Head {h00=0x0026, h01=0x0050, text=»*    RESET POLL STOP & LINK ERROR «, t00=0x00ac, t01=0x0068}
0x10d24…10d64               Head {h00=0x003c, h01=0x0050, text=» LD A6,CWTRCA+CCRIDW,A5 USER PARAMETER (DWT, DLS OR ...)«, t00=0x00ac, t01=0x0092}
0x10d64…10d8c               Head {h00=0x0024, h01=0x0050, text=» LC A2,CWTRCA+CCRCMD,A5 COMMAND «, t00=0x00ac, t01=0x00d2}
0x10d8c…10d96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x00fa}
0x10d96…10da4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ac, t01=0x0104}
0x10da4…10dae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0112}
0x10dae…10dda               Head {h00=0x0028, h01=0x0050, text=» LDK A3,CMDTBL COMMAND TABLE LENGTH «, t00=0x00ac, t01=0x011c}
0x10dda…10dee               Head {h00=0x0010, h01=0x0050, text=»IC100 EQU * «, t00=0x00ac, t01=0x0148}
0x10dee…10e1e               Head {h00=0x002c, h01=0x0050, text=»*    SCAN TABLE TO FIND MATCHING COMMAND«, t00=0x00ac, t01=0x015c}
0x10e1e…10e44               Head {h00=0x0022, h01=0x0050, text=» SUK A3,CMDTB1 DECREMENT INDEX«, t00=0x00ac, t01=0x018c}
0x10e44…10e6c               Head {h00=0x0024, h01=0x0050, text=» RF(N) IC120 END OF TABLE. ERROR«, t00=0x00ad, t01=0x0022}
0x10e6c…10e96               Head {h00=0x0026, h01=0x0050, text=» CC A2,CMDTAB+1,A3 COMMAND FOUND? «, t00=0x00ad, t01=0x004a}
0x10e96…10eb8               Head {h00=0x001e, h01=0x0050, text=» RB(NE) IC100 NO, CONTINUE«, t00=0x00ad, t01=0x0074}
0x10eb8…10ec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0096}
0x10ec2…10ef4               Head {h00=0x002e, h01=0x0050, text=» C1 A2,CMDTAB+4,A3 MASK FOR ALLOWED ERRORS«, t00=0x00ad, t01=0x00a0}
0x10ef4…10f14               Head {h00=0x001c, h01=0x0050, text=» ANR A2,A1 FATAL ERROR? «, t00=0x00ad, t01=0x00d2}
0x10f14…10f36               Head {h00=0x001e, h01=0x0050, text=» RF(Z) IC110 NO, CONTINUE «, t00=0x00ad, t01=0x00f2}
0x10f36…10f62               Head {h00=0x0028, h01=0x0050, text=» CF A15,PLCNOP SET PLC NOT OPERABLE «, t00=0x00ad, t01=0x0114}
0x10f62…10f76               Head {h00=0x0010, h01=0x0050, text=»IC110 EQU * «, t00=0x00ad, t01=0x0140}
0x10f76…10fac               Head {h00=0x0032, h01=0x0050, text=» ABI CMDTAB+2,A3 CALL COMMAND HANDLING ROUTINE«, t00=0x00ad, t01=0x0154}
0x10fac…10fb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x018a}
0x10fb6…10fca (174, 0, 400) Head {h00=0x0010, h01=0x0050, text=»IC120 EQU * «, t00=0x00ae, t01=0x0004}
0x10fca…10fec               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00ae, t01=0x0018}
0x10fec…11018               Head {h00=0x0028, h01=0x0050, text=» CF A15,PLCNOP SET PLC NOT OPERABLE «, t00=0x00ae, t01=0x003a}
0x11018…1103c               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00ae, t01=0x0066}
0x1103c…11046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x008a}
0x11046…11054               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ae, t01=0x0094}
0x11054…1105e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00a2}
0x1105e…110a2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00ae, t01=0x00ac}
0x110a2…110ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00f0}
0x110ac…110c4               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00ae, t01=0x00fa}
0x110c4…110d6               Head {h00=0x000e, h01=0x0050, text=»* COMPSTA «, t00=0x00ae, t01=0x0112}
0x110d6…110e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0124}
0x110e0…110f4               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00ae, t01=0x012e}
0x110f4…1112a               Head {h00=0x0032, h01=0x0050, text=»* THESE ROUTINES HANDLE COMPLETION OF TEST CU,«, t00=0x00ae, t01=0x0142}
0x1112a…11154               Head {h00=0x0026, h01=0x0050, text=»* OPEN LINE AND OPEN DLS COMMANDS.«, t00=0x00ae, t01=0x0178}
0x11154…11188               Head {h00=0x0030, h01=0x0050, text=»* THEY CHECK THE RETURN CODE AND EXIT TO THE«, t00=0x00af, t01=0x0012}
0x11188…111b2               Head {h00=0x0026, h01=0x0050, text=»* ROUTINE THAT MADE THE I/O CALL. «, t00=0x00af, t01=0x0046}
0x111b2…111bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0070}
0x111bc…111cc               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00af, t01=0x007a}
0x111cc…111e4               Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00af, t01=0x008a}
0x111e4…111ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x00a2}
0x111ee…111fe               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00af, t01=0x00ac}
0x111fe…11218               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00af, t01=0x00bc}
0x11218…11238               Head {h00=0x001c, h01=0x0050, text=»* A2  = FATAL PLC STATUS«, t00=0x00af, t01=0x00d6}
0x11238…11254               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00af, t01=0x00f6}
0x11254…1127c               Head {h00=0x0024, h01=0x0050, text=»* A6  = PARAMETER (IF RELEVANT) «, t00=0x00af, t01=0x0112}
0x1127c…11286               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x013a}
0x11286…11298               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00af, t01=0x0144}
0x11298…112b2               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00af, t01=0x0156}
0x112b2…112d2               Head {h00=0x001c, h01=0x0050, text=»* A2  = FATAL PLC STATUS«, t00=0x00af, t01=0x0170}
0x112d2…112ee               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00af, t01=0x0190}
0x112ee…1131c               Head {h00=0x002a, h01=0x0050, text=»* A6  = DLS INDEX (IF EXIT TO ODLRST) «, t00=0x00b0, t01=0x001c}
0x1131c…11326               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x004a}
0x11326…1136a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b0, t01=0x0054}
0x1136a…11374               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0098}
0x11374…11388               Head {h00=0x0010, h01=0x0050, text=»COMPTC EQU *«, t00=0x00b0, t01=0x00a2}
0x11388…113aa               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00b0, t01=0x00b6}
0x113aa…113e0               Head {h00=0x0032, h01=0x0050, text=» ABL TCURST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00b0, t01=0x00d8}
0x113e0…113ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x010e}
0x113ea…113f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b0, t01=0x0118}
0x113f8…11402               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0126}
0x11402…1140c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0130}
0x1140c…1142e               Head {h00=0x001e, h01=0x0050, text=»*    OPEN LINE, COMPLETION«, t00=0x00b0, t01=0x013a}
0x1142e…11438               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x015c}
0x11438…1144c               Head {h00=0x0010, h01=0x0050, text=»COMPOP EQU *«, t00=0x00b0, t01=0x0166}
0x1144c…1146e               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00b0, t01=0x017a}
0x1146e…114a4               Head {h00=0x0032, h01=0x0050, text=» ABL OPLRST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00b1, t01=0x000c}
0x114a4…114ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0042}
0x114ae…114b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x004c}
0x114b8…114da               Head {h00=0x001e, h01=0x0050, text=»*    OPEN DLS, COMPLETION «, t00=0x00b1, t01=0x0056}
0x114da…114e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0078}
0x114e4…114f8               Head {h00=0x0010, h01=0x0050, text=»COMPOD EQU *«, t00=0x00b1, t01=0x0082}
0x114f8…1151a               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00b1, t01=0x0096}
0x1151a…1153a               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 FATAL STATUS?«, t00=0x00b1, t01=0x00b8}
0x1153a…11566               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CD100 YES, SKIP STATUS CHECK«, t00=0x00b1, t01=0x00d8}
0x11566…11570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0104}
0x11570…1158c               Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 WS NUMBER«, t00=0x00b1, t01=0x010e}
0x1158c…115b4               Head {h00=0x0024, h01=0x0050, text=» CF A15,STAHAN HANDLE PLC STATUS«, t00=0x00b1, t01=0x012a}
0x115b4…115de               Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 CLEAR FATAL STATUS FLAGS«, t00=0x00b1, t01=0x0152}
0x115de…115e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x017c}
0x115e8…115fc               Head {h00=0x0010, h01=0x0050, text=»CD100 EQU * «, t00=0x00b1, t01=0x0186}
0x115fc…11632               Head {h00=0x0032, h01=0x0050, text=» ABL ODLRST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00b2, t01=0x000a}
0x11632…1163c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0040}
0x1163c…1164a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b2, t01=0x004a}
0x1164a…11654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0058}
0x11654…11698               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b2, t01=0x0062}
0x11698…116a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x00a6}
0x116a2…116ba               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00b2, t01=0x00b0}
0x116ba…116cc               Head {h00=0x000e, h01=0x0050, text=»* COMPTEST«, t00=0x00b2, t01=0x00c8}
0x116cc…116d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x00da}
0x116d6…116ea               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00b2, t01=0x00e4}
0x116ea…11720               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES COMPLETION OF GET LINE «, t00=0x00b2, t01=0x00f8}
0x11720…11758               Head {h00=0x0034, h01=0x0050, text=»* STATISTICS, GET DLS STATISTICS AND READ LOCAL «, t00=0x00b2, t01=0x012e}
0x11758…11772               Head {h00=0x0016, h01=0x0050, text=»* MEMORY COMMANDS.«, t00=0x00b2, t01=0x0166}
0x11772…117a4               Head {h00=0x002e, h01=0x0050, text=»* IT CHECKS THE PLC STATUS, SETS EFFECTIVE«, t00=0x00b2, t01=0x0180}
0x117a4…117da               Head {h00=0x0032, h01=0x0050, text=»* LENGTH IN DWT AND EXITS TO THE ROUTINE THAT «, t00=0x00b3, t01=0x0022}
0x117da…117f6               Head {h00=0x0018, h01=0x0050, text=»* MADE THE I/O CALL.«, t00=0x00b3, t01=0x0058}
0x117f6…11800               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0074}
0x11800…11810               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00b3, t01=0x007e}
0x11810…11828               Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00b3, t01=0x008e}
0x11828…11832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x00a6}
0x11832…11842               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00b3, t01=0x00b0}
0x11842…1185c               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00b3, t01=0x00c0}
0x1185c…11878               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00b3, t01=0x00da}
0x11878…11894               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x00b3, t01=0x00f6}
0x11894…1189e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0112}
0x1189e…118b0               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00b3, t01=0x011c}
0x118b0…118cc               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x00b3, t01=0x012e}
0x118cc…118e8               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00b3, t01=0x014a}
0x118e8…11904               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x00b3, t01=0x0166}
0x11904…1190e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0182}
0x1190e…11952               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b3, t01=0x018c}
0x11952…1195c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0040}
0x1195c…11972               Head {h00=0x0012, h01=0x0050, text=» IFT PLCTST=1 «, t00=0x00b4, t01=0x004a}
0x11972…11986               Head {h00=0x0010, h01=0x0050, text=»COMPPS EQU *«, t00=0x00b4, t01=0x0060}
0x11986…1199a               Head {h00=0x0010, h01=0x0050, text=»COMPDS EQU *«, t00=0x00b4, t01=0x0074}
0x1199a…119ae               Head {h00=0x0010, h01=0x0050, text=»COMPRM EQU *«, t00=0x00b4, t01=0x0088}
0x119ae…119b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x009c}
0x119b8…119c6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b4, t01=0x00a6}
0x119c6…119d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x00b4}
0x119d0…119ee               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 PLC STATUS «, t00=0x00b4, t01=0x00be}
0x119ee…11a12               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TS100 ERROR. HANDLE «, t00=0x00b4, t01=0x00dc}
0x11a12…11a1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0100}
0x11a1c…11a4c               Head {h00=0x002c, h01=0x0050, text=» LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH«, t00=0x00b4, t01=0x010a}
0x11a4c…11a6c               Head {h00=0x001c, h01=0x0050, text=» ST A2,DWTTLN,A6 TO DWT «, t00=0x00b4, t01=0x013a}
0x11a6c…11a8a               Head {h00=0x001a, h01=0x0050, text=» RF TS110 EXIT. A1 = 0«, t00=0x00b4, t01=0x015a}
0x11a8a…11a94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0178}
0x11a94…11aa8               Head {h00=0x0010, h01=0x0050, text=»TS100 EQU * «, t00=0x00b4, t01=0x0182}
0x11aa8…11ada               Head {h00=0x002e, h01=0x0050, text=» LDK A1,NOTOPR RETURN CODE := NOT OPERABLE«, t00=0x00b5, t01=0x0008}
0x11ada…11b06               Head {h00=0x0028, h01=0x0050, text=» CM DWTTLN,A6 EFFECTIVE LENGTH := 0 «, t00=0x00b5, t01=0x003a}
0x11b06…11b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0066}
0x11b10…11b24               Head {h00=0x0010, h01=0x0050, text=»TS110 EQU * «, t00=0x00b5, t01=0x0070}
0x11b24…11b46               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00b5, t01=0x0084}
0x11b46…11b7c               Head {h00=0x0032, h01=0x0050, text=» ABL TSTRST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00b5, t01=0x00a6}
0x11b7c…11b88               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x00dc}
0x11b88…11b92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x00e8}
0x11b92…11ba0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b5, t01=0x00f2}
0x11ba0…11baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0100}
0x11baa…11bee               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b5, t01=0x010a}
0x11bee…11bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x014e}
0x11bf8…11c10               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00b5, t01=0x0158}
0x11c10…11c22               Head {h00=0x000e, h01=0x0050, text=»* COMPWRI «, t00=0x00b5, t01=0x0170}
0x11c22…11c2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0182}
0x11c2c…11c40               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00b5, t01=0x018c}
0x11c40…11c76               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES COMPLETION OF STANDARD «, t00=0x00b6, t01=0x0010}
0x11c76…11c96               Head {h00=0x001c, h01=0x0050, text=»* WRITE AND FAST WRITE. «, t00=0x00b6, t01=0x0046}
0x11c96…11cd0               Head {h00=0x0036, h01=0x0050, text=»* IT CHECKS THE PLC STATUS AND RELEASES THE OUTPUT«, t00=0x00b6, t01=0x0066}
0x11cd0…11d06               Head {h00=0x0032, h01=0x0050, text=»* BUFFER, IF ANY WAS ALLOCATED. IF THE OUTPUT «, t00=0x00b6, t01=0x00a0}
0x11d06…11d3c               Head {h00=0x0032, h01=0x0050, text=»* OPERATION IS FINISHED, IT THEN EXITS TO THE «, t00=0x00b6, t01=0x00d6}
0x11d3c…11d66               Head {h00=0x0026, h01=0x0050, text=»* ROUTINE THAT MADE THE I/O CALL. «, t00=0x00b6, t01=0x010c}
0x11d66…11d70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0136}
0x11d70…11d80               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00b6, t01=0x0140}
0x11d80…11d98               Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00b6, t01=0x0150}
0x11d98…11da2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0168}
0x11da2…11db2               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00b6, t01=0x0172}
0x11db2…11dcc               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00b6, t01=0x0182}
0x11dcc…11dec               Head {h00=0x001c, h01=0x0050, text=»* A2  = FATAL PLC STATUS«, t00=0x00b7, t01=0x000c}
0x11dec…11e08               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00b7, t01=0x002c}
0x11e08…11e24               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x00b7, t01=0x0048}
0x11e24…11e2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0064}
0x11e2e…11e40               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00b7, t01=0x006e}
0x11e40…11e74               Head {h00=0x0030, h01=0x0050, text=»* WHEN RETURN TO ROUTINE MAKING OUTPUT CALL «, t00=0x00b7, t01=0x0080}
0x11e74…11e90               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x00b7, t01=0x00b4}
0x11e90…11eae               Head {h00=0x001a, h01=0x0050, text=»* A2  = BITS 0-7 ZERO «, t00=0x00b7, t01=0x00d0}
0x11eae…11ed0               Head {h00=0x001e, h01=0x0050, text=»*  BITS 8-15 DEVICE STATUS«, t00=0x00b7, t01=0x00ee}
0x11ed0…11eec               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00b7, t01=0x0110}
0x11eec…11f08               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x00b7, t01=0x012c}
0x11f08…11f12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0148}
0x11f12…11f56               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b7, t01=0x0152}
0x11f56…11f60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0008}
0x11f60…11f6e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b8, t01=0x0012}
0x11f6e…11f78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0020}
0x11f78…11f8c               Head {h00=0x0010, h01=0x0050, text=»COMPSW EQU *«, t00=0x00b8, t01=0x002a}
0x11f8c…11fa0               Head {h00=0x0010, h01=0x0050, text=»COMPFW EQU *«, t00=0x00b8, t01=0x003e}
0x11fa0…11fc4               Head {h00=0x0020, h01=0x0050, text=» LDR A2,A2 FATAL PLC STATUS?«, t00=0x00b8, t01=0x0052}
0x11fc4…11fe6               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) WRERR1 YES, HANDLE«, t00=0x00b8, t01=0x0076}
0x11fe6…11ff0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0098}
0x11ff0…1201a               Head {h00=0x0026, h01=0x0050, text=» LC A2,DWTCP2,A6 CHANEL PARAMETER «, t00=0x00b8, t01=0x00a2}
0x1201a…12040               Head {h00=0x0022, h01=0x0050, text=» ANK A2,MASKWS CLEAN WS NUMBER«, t00=0x00b8, t01=0x00cc}
0x12040…12068               Head {h00=0x0024, h01=0x0050, text=» CF A15,STAHAN HANDLE PLC STATUS«, t00=0x00b8, t01=0x00f2}
0x12068…1209e               Head {h00=0x0032, h01=0x0050, text=» LC A7,CWTRCA+CCRIDB,A5 TYPE OF WRITE COMMAND «, t00=0x00b8, t01=0x011a}
0x1209e…120b8               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/FF CLEAN «, t00=0x00b8, t01=0x0150}
0x120b8…120e6               Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x00b8, t01=0x016a}
0x120e6…12108               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00b9, t01=0x0008}
0x12108…1213a               Head {h00=0x002e, h01=0x0050, text=» ABI WRIROU,A7 CALL CORRESPONDING ROUTINE «, t00=0x00b9, t01=0x002a}
0x1213a…12144               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x005c}
0x12144…1214e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0066}
0x1214e…1216e               Head {h00=0x001c, h01=0x0050, text=»*    IRRECOVERABLE ERROR«, t00=0x00b9, t01=0x0070}
0x1216e…12178               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0090}
0x12178…1218c               Head {h00=0x0010, h01=0x0050, text=»WRERR1 EQU *«, t00=0x00b9, t01=0x009a}
0x1218c…121ae               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00b9, t01=0x00ae}
0x121ae…121c2               Head {h00=0x0010, h01=0x0050, text=»WRERR EQU * «, t00=0x00b9, t01=0x00d0}
0x121c2…121da               Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00b9, t01=0x00e4}
0x121da…121e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x00fc}
0x121e4…121ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0106}
0x121ee…1221c               Head {h00=0x002a, h01=0x0050, text=»*    COMPLETION OF DATA MESSAGE OUTPUT«, t00=0x00b9, t01=0x0110}
0x1221c…12226               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x013e}
0x12226…1223a               Head {h00=0x0010, h01=0x0050, text=»WRNFLO EQU *«, t00=0x00b9, t01=0x0148}
0x1223a…1224e               Head {h00=0x0010, h01=0x0050, text=»WRDATA EQU *«, t00=0x00b9, t01=0x015c}
0x1224e…1227a               Head {h00=0x0028, h01=0x0050, text=» CF A15,PLRLBU RELEASE OUTPUT BUFFER«, t00=0x00b9, t01=0x0170}
0x1227a…122a2               Head {h00=0x0024, h01=0x0050, text=» CM DWTLD1,A6 INDICATE NO BUFFER«, t00=0x00ba, t01=0x000c}
0x122a2…122d0               Head {h00=0x002a, h01=0x0050, text=» ABL ACKRST RETURN TO REQUEST HANDLER «, t00=0x00ba, t01=0x0034}
0x122d0…122da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0062}
0x122da…122e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x006c}
0x122e4…1231c               Head {h00=0x0034, h01=0x0050, text=»*    COMPLETION OF RECIEVE READY MESSAGE OUTPUT «, t00=0x00ba, t01=0x0076}
0x1231c…12326               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x00ae}
0x12326…12338               Head {h00=0x000e, h01=0x0050, text=»WRRR EQU *«, t00=0x00ba, t01=0x00b8}
0x12338…12360               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 START OF MONITOR BLOCK«, t00=0x00ba, t01=0x00ca}
0x12360…1237e               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00ba, t01=0x00f2}
0x1237e…123ae               Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00ba, t01=0x0110}
0x123ae…123d6               Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00ba, t01=0x0140}
0x123d6…123fa               Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00ba, t01=0x0168}
0x123fa…12404               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x018c}
0x12404…1241c               Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00bb, t01=0x0008}
0x1241c…12426               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0020}
0x12426…12430               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x002a}
0x12430…1246c               Head {h00=0x0038, h01=0x0050, text=»*    COMPLETION OF RESET CONFIRMATION MESSAGE OUTPUT«, t00=0x00bb, t01=0x0034}
0x1246c…12476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0070}
0x12476…1248a               Head {h00=0x0010, h01=0x0050, text=»WRRESC EQU *«, t00=0x00bb, t01=0x007a}
0x1248a…124b2               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 START OF MONITOR BLOCK«, t00=0x00bb, t01=0x008e}
0x124b2…124d0               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00bb, t01=0x00b6}
0x124d0…12500               Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00bb, t01=0x00d4}
0x12500…12528               Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00bb, t01=0x0104}
0x12528…1254c               Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00bb, t01=0x012c}
0x1254c…12556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0150}
0x12556…12588               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/FFFF-DWFRES MASK FOR RESET FLAG «, t00=0x00bb, t01=0x015a}
0x12588…125b4               Head {h00=0x0028, h01=0x0050, text=» ANS A2,DWTST,A6 CLEAR "RESET" FLAG «, t00=0x00bb, t01=0x018c}
0x125b4…125e8               Head {h00=0x0030, h01=0x0050, text=» LDK A4,RELINE RECOVERY CAUSE := LINK RESET «, t00=0x00bc, t01=0x0028}
0x125e8…12614               Head {h00=0x0028, h01=0x0050, text=» CF A15,NDREDW CALL RECOVERY FOR DWT«, t00=0x00bc, t01=0x005c}
0x12614…12638               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00bc, t01=0x0088}
0x12638…12642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00ac}
0x12642…12650               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x00b6}
0x12650…1265a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00c4}
0x1265a…1269e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00bc, t01=0x00ce}
0x1269e…126a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0112}
0x126a8…126c0               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00bc, t01=0x011c}
0x126c0…126d0               Head {h00=0x000c, h01=0x0050, text=»* COMPGR«, t00=0x00bc, t01=0x0134}
0x126d0…126da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0144}
0x126da…126ee               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00bc, t01=0x014e}
0x126ee…12722               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE HANDLES COMPLETION OF GENERAL«, t00=0x00bc, t01=0x0162}
0x12722…1273a               Head {h00=0x0014, h01=0x0050, text=»* READ COMMANDS.«, t00=0x00bd, t01=0x0008}
0x1273a…12768               Head {h00=0x002a, h01=0x0050, text=»* IT CHECKS TYPE OF MESSAGE AND CALLS «, t00=0x00bd, t01=0x0020}
0x12768…12788               Head {h00=0x001c, h01=0x0050, text=»* CORRESPONDING ROUTINE.«, t00=0x00bd, t01=0x004e}
0x12788…12792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x006e}
0x12792…127a2               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00bd, t01=0x0078}
0x127a2…127ba               Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00bd, t01=0x0088}
0x127ba…127c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x00a0}
0x127c4…127d4               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00bd, t01=0x00aa}
0x127d4…127ee               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00bd, t01=0x00ba}
0x127ee…1280e               Head {h00=0x001c, h01=0x0050, text=»* A2  = FATAL PLC STATUS«, t00=0x00bd, t01=0x00d4}
0x1280e…1282a               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00bd, t01=0x00f4}
0x1282a…12834               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0110}
0x12834…12846               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00bd, t01=0x011a}
0x12846…12860               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00bd, t01=0x012c}
0x12860…1287e               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x00bd, t01=0x0146}
0x1287e…1289a               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00bd, t01=0x0164}
0x1289a…128b4               Head {h00=0x0016, h01=0x0050, text=»* A6  = DLS INDEX «, t00=0x00bd, t01=0x0180}
0x128b4…128e0               Head {h00=0x0028, h01=0x0050, text=»* A7  = DEVICE ADDRESS (IF RELEVANT)«, t00=0x00be, t01=0x000a}
0x128e0…128ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0036}
0x128ea…1292e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00be, t01=0x0040}
0x1292e…12938               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0084}
0x12938…1294c               Head {h00=0x0010, h01=0x0050, text=»COMPGR EQU *«, t00=0x00be, t01=0x008e}
0x1294c…1296c               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 FATAL STATUS?«, t00=0x00be, t01=0x00a2}
0x1296c…1298c               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GRERR2 YES, EXIT«, t00=0x00be, t01=0x00c2}
0x1298c…12996               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x00e2}
0x12996…129a4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00be, t01=0x00ec}
0x129a4…129ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x00fa}
0x129ae…129da               Head {h00=0x0028, h01=0x0050, text=» CF A15,INTYPE A3 := TYPE OF MESSAGE«, t00=0x00be, t01=0x0104}
0x129da…12a08               Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x00be, t01=0x0130}
0x12a08…12a32               Head {h00=0x0026, h01=0x0050, text=» LC A6,CWTRCA+CCRDLS,A5 DLS INDEX «, t00=0x00be, t01=0x015e}
0x12a32…12a4e               Head {h00=0x0018, h01=0x0050, text=» ANK A6,MASKWS CLEAN«, t00=0x00be, t01=0x0188}
0x12a4e…12a76               Head {h00=0x0024, h01=0x0050, text=» LC A7,X25LCN,A4 DEVICE ADDRESS «, t00=0x00bf, t01=0x0014}
0x12a76…12a92               Head {h00=0x0018, h01=0x0050, text=» ANK A7,MASKLC CLEAN«, t00=0x00bf, t01=0x003c}
0x12a92…12a9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0058}
0x12a9c…12ad0               Head {h00=0x0030, h01=0x0050, text=» ABI REAROU,A3 ROUTINE FOR THIS MESSAGE TYPE«, t00=0x00bf, t01=0x0062}
0x12ad0…12ada               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0096}
0x12ada…12ae8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x00a0}
0x12ae8…12af2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00ae}
0x12af2…12b36               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00bf, t01=0x00b8}
0x12b36…12b40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00fc}
0x12b40…12b58               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00bf, t01=0x0106}
0x12b58…12b68               Head {h00=0x000c, h01=0x0050, text=»* GRERR «, t00=0x00bf, t01=0x011e}
0x12b68…12b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x012e}
0x12b72…12b86               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00bf, t01=0x0138}
0x12b86…12bbc               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES ILLEGAL INPUT MESSAGES.«, t00=0x00bf, t01=0x014c}
0x12bbc…12bdc               Head {h00=0x001c, h01=0x0050, text=»* GRERR1 RETURNS BUFFER «, t00=0x00bf, t01=0x0182}
0x12bdc…12be6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0012}
0x12be6…12bf6               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00c0, t01=0x001c}
0x12bf6…12c0e               Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00c0, t01=0x002c}
0x12c0e…12c22               Head {h00=0x0010, h01=0x0050, text=»* RB GRERR1 «, t00=0x00c0, t01=0x0044}
0x12c22…12c36               Head {h00=0x0010, h01=0x0050, text=»* RF GRERR2 «, t00=0x00c0, t01=0x0058}
0x12c36…12c40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x006c}
0x12c40…12c50               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00c0, t01=0x0076}
0x12c50…12c7a               Head {h00=0x0026, h01=0x0050, text=»* A4  = BUFFER ADDRESS (IF GRERR1)«, t00=0x00c0, t01=0x0086}
0x12c7a…12c96               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00c0, t01=0x00b0}
0x12c96…12ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00cc}
0x12ca0…12cb2               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00c0, t01=0x00d6}
0x12cb2…12cbe               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00c0, t01=0x00e8}
0x12cbe…12cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00f4}
0x12cc8…12d0c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c0, t01=0x00fe}
0x12d0c…12d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0142}
0x12d16…12d2a               Head {h00=0x0010, h01=0x0050, text=»GRERR1 EQU *«, t00=0x00c0, t01=0x014c}
0x12d2a…12d5c               Head {h00=0x002e, h01=0x0050, text=» CF A15,PLRLBU RELEASE GENERAL READ BUFFER«, t00=0x00c0, t01=0x0160}
0x12d5c…12d66 (193, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0004}
0x12d66…12d7a               Head {h00=0x0010, h01=0x0050, text=»GRERR2 EQU *«, t00=0x00c1, t01=0x000e}
0x12d7a…12d9c               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00c1, t01=0x0022}
0x12d9c…12da6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0044}
0x12da6…12dbe               Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00c1, t01=0x004e}
0x12dbe…12dc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0066}
0x12dc8…12dd6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c1, t01=0x0070}
0x12dd6…12de0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x007e}
0x12de0…12e24               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c1, t01=0x0088}
0x12e24…12e2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x00cc}
0x12e2e…12e46               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00c1, t01=0x00d6}
0x12e46…12e56               Head {h00=0x000c, h01=0x0050, text=»* GRSACK«, t00=0x00c1, t01=0x00ee}
0x12e56…12e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x00fe}
0x12e60…12e74               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00c1, t01=0x0108}
0x12e74…12eac               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE HANDLES STATUS AND RECIEVE READY «, t00=0x00c1, t01=0x011c}
0x12eac…12ece               Head {h00=0x001e, h01=0x0050, text=»* MESSAGES FROM A DEVICE. «, t00=0x00c1, t01=0x0154}
0x12ece…12f06               Head {h00=0x0034, h01=0x0050, text=»* IT RELEASES THE BUFFER AND RETURNS TO ROUTINE «, t00=0x00c1, t01=0x0176}
0x12f06…12f20               Head {h00=0x0016, h01=0x0050, text=»* MAKING I/O CALL.«, t00=0x00c2, t01=0x001e}
0x12f20…12f2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x0038}
0x12f2a…12f3a               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00c2, t01=0x0042}
0x12f3a…12f52               Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00c2, t01=0x0052}
0x12f52…12f5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x006a}
0x12f5c…12f6c               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00c2, t01=0x0074}
0x12f6c…12f8a               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x00c2, t01=0x0084}
0x12f8a…12fa6               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00c2, t01=0x00a2}
0x12fa6…12fc0               Head {h00=0x0016, h01=0x0050, text=»* A6  = DLS INDEX «, t00=0x00c2, t01=0x00be}
0x12fc0…12fde               Head {h00=0x001a, h01=0x0050, text=»* A7  = DEVICE ADDRESS«, t00=0x00c2, t01=0x00d8}
0x12fde…12fe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x00f6}
0x12fe8…12ffa               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00c2, t01=0x0100}
0x12ffa…13016               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x00c2, t01=0x0112}
0x13016…1302a               Head {h00=0x0010, h01=0x0050, text=»*  =0 IF OK «, t00=0x00c2, t01=0x012e}
0x1302a…13042               Head {h00=0x0014, h01=0x0050, text=»*  ><0 IF ERROR «, t00=0x00c2, t01=0x0142}
0x13042…13060               Head {h00=0x001a, h01=0x0050, text=»* A2  = BITS 0-7  ZERO«, t00=0x00c2, t01=0x015a}
0x13060…13084               Head {h00=0x0020, h01=0x0050, text=»*  BITS 8-15  DEVICE STATUS «, t00=0x00c2, t01=0x0178}
0x13084…130a0               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00c3, t01=0x000c}
0x130a0…130bc               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x00c3, t01=0x0028}
0x130bc…130c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0044}
0x130c6…1310a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c3, t01=0x004e}
0x1310a…13114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0092}
0x13114…13122               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x009c}
0x13122…1312c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x00aa}
0x1312c…13140               Head {h00=0x0010, h01=0x0050, text=»GRSTAT EQU *«, t00=0x00c3, t01=0x00b4}
0x13140…13168               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00c3, t01=0x00c8}
0x13168…1318c               Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00c3, t01=0x00f0}
0x1318c…131c0               Head {h00=0x0030, h01=0x0050, text=» CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS «, t00=0x00c3, t01=0x0114}
0x131c0…131ec               Head {h00=0x0028, h01=0x0050, text=» LC A2,X25DAT,A4 DEVICE STATUS BYTE «, t00=0x00c3, t01=0x0148}
0x131ec…13206               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/FF CLEAN «, t00=0x00c3, t01=0x0174}
0x13206…13224               Head {h00=0x001a, h01=0x0050, text=» RF SR100 COMMON PART «, t00=0x00c3, t01=0x018e}
0x13224…1322e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x001c}
0x1322e…13238               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0026}
0x13238…1324a               Head {h00=0x000e, h01=0x0050, text=»GRRR EQU *«, t00=0x00c4, t01=0x0030}
0x1324a…13272               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00c4, t01=0x0042}
0x13272…13296               Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00c4, t01=0x006a}
0x13296…132c8               Head {h00=0x002e, h01=0x0050, text=» CF A15,FWIPR UPDATE FLOW CONTROL COUNTERS«, t00=0x00c4, t01=0x008e}
0x132c8…132f2               Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET DEVICE STATUS BYTE«, t00=0x00c4, t01=0x00c0}
0x132f2…132fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x00ea}
0x132fc…13306               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x00f4}
0x13306…1331a               Head {h00=0x0010, h01=0x0050, text=»SR100 EQU * «, t00=0x00c4, t01=0x00fe}
0x1331a…13360               Head {h00=0x0042, h01=0x0050, text=»*    COMMON PART FOR DEVICE STATUS AND RECIEVE READY MESSAGES «, t00=0x00c4, t01=0x0112}
0x13360…13382               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00c4, t01=0x0158}
0x13382…133b4               Head {h00=0x002e, h01=0x0050, text=» CF A15,PLRLBU RELEASE GENERAL READ BUFFER«, t00=0x00c4, t01=0x017a}
0x133b4…133d6               Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTST,A6 DWT STATUS«, t00=0x00c5, t01=0x001c}
0x133d6…133e8               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x00c5, t01=0x003e}
0x133e8…13420               Head {h00=0x0034, h01=0x0050, text=» ANK A4,DWFAK3 ANYONE WAITING FOR THIS MESSAGE? «, t00=0x00c5, t01=0x0050}
0x13420…13444               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) PLDSP2 NO, DISPATCH «, t00=0x00c5, t01=0x0088}
0x13444…1344e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c5, t01=0x00ac}
0x1344e…13476               Head {h00=0x0024, h01=0x0050, text=» XRS A4,DWTST,A6 RESET WAIT FLAG«, t00=0x00c5, t01=0x00b6}
0x13476…1349a               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x00c5, t01=0x00de}
0x1349a…134ce               Head {h00=0x0030, h01=0x0050, text=» ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x00c5, t01=0x0102}
0x134ce…134fc               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) AK3RST YES, RETURN WITH ACK 3«, t00=0x00c5, t01=0x0136}
0x134fc…1352a               Head {h00=0x002a, h01=0x0050, text=» ABL WINRST NO, RETURN TO WINDOW QUEUE«, t00=0x00c5, t01=0x0164}
0x1352a…13534 (198, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x0004}
0x13534…13542               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c6, t01=0x000e}
0x13542…1354c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x001c}
0x1354c…13590               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c6, t01=0x0026}
0x13590…1359a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x006a}
0x1359a…135b2               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00c6, t01=0x0074}
0x135b2…135c2               Head {h00=0x000c, h01=0x0050, text=»* GRDATA«, t00=0x00c6, t01=0x008c}
0x135c2…135cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x009c}
0x135cc…135e0               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00c6, t01=0x00a6}
0x135e0…13614               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE HANDLES DATA INPUT MESSAGES. «, t00=0x00c6, t01=0x00ba}
0x13614…1363e               Head {h00=0x0026, h01=0x0050, text=»* IT LINKS THE BUFFER TO THE CWT. «, t00=0x00c6, t01=0x00ee}
0x1363e…13648               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x0118}
0x13648…13658               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00c6, t01=0x0122}
0x13658…13670               Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00c6, t01=0x0132}
0x13670…1367a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x014a}
0x1367a…1368a               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00c6, t01=0x0154}
0x1368a…136a8               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x00c6, t01=0x0164}
0x136a8…136c4               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00c6, t01=0x0182}
0x136c4…136de               Head {h00=0x0016, h01=0x0050, text=»* A6  = DLS INDEX «, t00=0x00c7, t01=0x000e}
0x136de…136fc               Head {h00=0x001a, h01=0x0050, text=»* A7  = DEVICE ADDRESS«, t00=0x00c7, t01=0x0028}
0x136fc…13706               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0046}
0x13706…13718               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00c7, t01=0x0050}
0x13718…13724               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00c7, t01=0x0062}
0x13724…1372e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x006e}
0x1372e…13772               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c7, t01=0x0078}
0x13772…1377c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x00bc}
0x1377c…13790               Head {h00=0x0010, h01=0x0050, text=»GRDATA EQU *«, t00=0x00c7, t01=0x00c6}
0x13790…137b8               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00c7, t01=0x00da}
0x137b8…137dc               Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00c7, t01=0x0102}
0x137dc…137e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0126}
0x137e6…1381a               Head {h00=0x0030, h01=0x0050, text=» CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS «, t00=0x00c7, t01=0x0130}
0x1381a…13852               Head {h00=0x0034, h01=0x0050, text=» ST A4,CWTBUF,A5 SAVE INPUT DATA BUFFER ADDRESS «, t00=0x00c7, t01=0x0164}
0x13852…13886               Head {h00=0x0030, h01=0x0050, text=» ST A6,BUFDWT,A4 SAVE DWT ADDRESS IN BUFFER «, t00=0x00c8, t01=0x000c}
0x13886…138b6               Head {h00=0x002c, h01=0x0050, text=» LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH«, t00=0x00c8, t01=0x0040}
0x138b6…138de               Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFLEN,A4 SAVE IN BUFFER «, t00=0x00c8, t01=0x0070}
0x138de…13908               Head {h00=0x0026, h01=0x0050, text=» LDK A2,X25DAT START OF USER DATA «, t00=0x00c8, t01=0x0098}
0x13908…1392e               Head {h00=0x0022, h01=0x0050, text=» ST A2,BUFBIX,A4 TO BYTE INDEX«, t00=0x00c8, t01=0x00c2}
0x1392e…13938               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x00e8}
0x13938…13946               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x00f2}
0x13946…13950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0100}
0x13950…13972               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00c8, t01=0x010a}
0x13972…1398a               Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00c8, t01=0x012c}
0x1398a…13994               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0144}
0x13994…139a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x014e}
0x139a2…139ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x015c}
0x139ac…139f0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c8, t01=0x0166}
0x139f0…139fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x001a}
0x139fa…13a12               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00c9, t01=0x0024}
0x13a12…13a22               Head {h00=0x000c, h01=0x0050, text=»* GRRES «, t00=0x00c9, t01=0x003c}
0x13a22…13a2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x004c}
0x13a2c…13a40               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00c9, t01=0x0056}
0x13a40…13a76               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES RESET MESSAGES FROM THE«, t00=0x00c9, t01=0x006a}
0x13a76…13a8a               Head {h00=0x0010, h01=0x0050, text=»* SECONDARY.«, t00=0x00c9, t01=0x00a0}
0x13a8a…13ac4               Head {h00=0x0036, h01=0x0050, text=»* IT RESETS THE FLOW CONTROL COUNTERS IN THE DWT, «, t00=0x00c9, t01=0x00b4}
0x13ac4…13afe               Head {h00=0x0036, h01=0x0050, text=»* AND SETS A RESET PACKET FLAG IN THE DWT. THEN A «, t00=0x00c9, t01=0x00ee}
0x13afe…13b32               Head {h00=0x0030, h01=0x0050, text=»* RESET CONFIRMATION MESSAGE IS SENT. IF THE«, t00=0x00c9, t01=0x0128}
0x13b32…13b6e               Head {h00=0x0038, h01=0x0050, text=»* PROCESS IS WAITING FOR LEVEL 3 ACK OR IN A BUFFER «, t00=0x00c9, t01=0x015c}
0x13b6e…13b8c               Head {h00=0x001a, h01=0x0050, text=»* QUEUE IT IS ABORTED.«, t00=0x00ca, t01=0x0008}
0x13b8c…13b96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0026}
0x13b96…13ba6               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00ca, t01=0x0030}
0x13ba6…13bbe               Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00ca, t01=0x0040}
0x13bbe…13bc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0058}
0x13bc8…13bd8               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00ca, t01=0x0062}
0x13bd8…13bf6               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x00ca, t01=0x0072}
0x13bf6…13c12               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00ca, t01=0x0090}
0x13c12…13c2c               Head {h00=0x0016, h01=0x0050, text=»* A6  = DLS INDEX «, t00=0x00ca, t01=0x00ac}
0x13c2c…13c4a               Head {h00=0x001a, h01=0x0050, text=»* A7  = DEVICE ADDRESS«, t00=0x00ca, t01=0x00c6}
0x13c4a…13c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x00e4}
0x13c54…13c66               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00ca, t01=0x00ee}
0x13c66…13c72               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00ca, t01=0x0100}
0x13c72…13c7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x010c}
0x13c7c…13cc0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00ca, t01=0x0116}
0x13cc0…13cca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x015a}
0x13cca…13cde               Head {h00=0x0010, h01=0x0050, text=»GRRES EQU * «, t00=0x00ca, t01=0x0164}
0x13cde…13d06               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00ca, t01=0x0178}
0x13d06…13d2a               Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00cb, t01=0x0010}
0x13d2a…13d34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0034}
0x13d34…13d42               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x003e}
0x13d42…13d4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x004c}
0x13d4c…13d6e               Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00cb, t01=0x0056}
0x13d6e…13da0               Head {h00=0x002e, h01=0x0050, text=» CF A15,PLRLBU RELEASE GENERAL READ BUFFER«, t00=0x00cb, t01=0x0078}
0x13da0…13dd2               Head {h00=0x002e, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL COUNTERS «, t00=0x00cb, t01=0x00aa}
0x13dd2…13ddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x00dc}
0x13ddc…13dfe               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x00cb, t01=0x00e6}
0x13dfe…13e2c               Head {h00=0x002a, h01=0x0050, text=» ANK A2,DWFRES RESET ALREADY RECIEVED?«, t00=0x00cb, t01=0x0108}
0x13e2c…13e4e               Head {h00=0x001e, h01=0x0050, text=» ABL(NZ) PLDSP2 YES, EXIT «, t00=0x00cb, t01=0x0136}
0x13e4e…13e64               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWFRES«, t00=0x00cb, t01=0x0158}
0x13e64…13e94               Head {h00=0x002c, h01=0x0050, text=» ORS A2,DWTST,A6 INDICATE RESET RECIEVED«, t00=0x00cb, t01=0x016e}
0x13e94…13e9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x000e}
0x13e9e…13ec4               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLCCCA RESERVE PLC CCA«, t00=0x00cc, t01=0x0018}
0x13ec4…13ed0               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x00cc, t01=0x003e}
0x13ed0…13eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x004a}
0x13eda…13f02               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET OUTPUT BUFFER«, t00=0x00cc, t01=0x0054}
0x13f02…13f20               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00cc, t01=0x007c}
0x13f20…13f50               Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00cc, t01=0x009a}
0x13f50…13f88               Head {h00=0x0034, h01=0x0050, text=» CF A15,LNKFST PUT BLOCK IN QUEUE (FOR RECOVERY)«, t00=0x00cc, t01=0x00ca}
0x13f88…13faa               Head {h00=0x001e, h01=0x0050, text=» ADK A4,2 SKIP QUEUE LINK «, t00=0x00cc, t01=0x0102}
0x13faa…13fdc               Head {h00=0x002e, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDR TO CCA«, t00=0x00cc, t01=0x0124}
0x13fdc…1401a               Head {h00=0x003a, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR«, t00=0x00cc, t01=0x0156}
0x1401a…1404e (205, 0, 400) Head {h00=0x0030, h01=0x0050, text=» CF A15,WRADR2 WRITE ADDRESS IN CCA (TYPE 2)«, t00=0x00cd, t01=0x0004}
0x1404e…14082               Head {h00=0x0030, h01=0x0050, text=» LDK A2,CMDSW COMMAND CODE "STANDARD WRITE" «, t00=0x00cd, t01=0x0038}
0x14082…140a8               Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRCMD,A5 TO CCA«, t00=0x00cd, t01=0x006c}
0x140a8…140ce               Head {h00=0x0022, h01=0x0050, text=» LDK A2,/1F MESSAGE TYPE FLAGS«, t00=0x00cd, t01=0x0092}
0x140ce…140f8               Head {h00=0x0026, h01=0x0050, text=» SC A2,X25FLW,A4 TO OUTPUT BUFFER «, t00=0x00cd, t01=0x00b8}
0x140f8…14128               Head {h00=0x002c, h01=0x0050, text=» LDK A2,TYRESC TYPE "RESET CONFIRMATION"«, t00=0x00cd, t01=0x00e2}
0x14128…1415a               Head {h00=0x002e, h01=0x0050, text=» SC A2,CWTCCA+CCRIDB,A5 TO CCA, COMMAND ID«, t00=0x00cd, t01=0x0112}
0x1415a…14198               Head {h00=0x003a, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA, COMMAND ID«, t00=0x00cd, t01=0x0144}
0x14198…141c4               Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT LENGTH OF SYSTEM PART«, t00=0x00cd, t01=0x0182}
0x141c4…141f2               Head {h00=0x002a, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 TO CCA LENGTH «, t00=0x00ce, t01=0x001e}
0x141f2…141fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x004c}
0x141fc…1420a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x0056}
0x1420a…14214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0064}
0x14214…14236               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x00ce, t01=0x006e}
0x14236…14260               Head {h00=0x0026, h01=0x0050, text=» ANK A2,DWFRES RESET STILL WANTED?«, t00=0x00ce, t01=0x0090}
0x14260…1427e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) REERR1 NO, EXIT«, t00=0x00ce, t01=0x00ba}
0x1427e…142a8               Head {h00=0x0026, h01=0x0050, text=» CF A15,GETWSS A1 := STATUS & INH «, t00=0x00ce, t01=0x00d8}
0x142a8…142cc               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) REERR1 EXIT IF ERROR«, t00=0x00ce, t01=0x0102}
0x142cc…142f4               Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x00ce, t01=0x0126}
0x142f4…14318               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) REERR2 EXIT IF ERROR«, t00=0x00ce, t01=0x014e}
0x14318…14322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0172}
0x14322…14350               Head {h00=0x002a, h01=0x0050, text=» LDK A1,LINERR RET CODE := LINK ERROR «, t00=0x00ce, t01=0x017c}
0x14350…14372               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x00cf, t01=0x001a}
0x14372…14384               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00cf, t01=0x003c}
0x14384…143b4               Head {h00=0x002c, h01=0x0050, text=» ANK A2,DWFAK3 WAITING FOR LEVEL 3 ACK? «, t00=0x00cf, t01=0x004e}
0x143b4…143d6               Head {h00=0x001e, h01=0x0050, text=» RF(Z) RE100 NO, CONTINUE «, t00=0x00cf, t01=0x007e}
0x143d6…143fe               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTST,A6 RESET ACK3 FLAG«, t00=0x00cf, t01=0x00a0}
0x143fe…14432               Head {h00=0x0030, h01=0x0050, text=» ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x00cf, t01=0x00c8}
0x14432…14460               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) AK3RST YES, RETURN WITH ACK 3«, t00=0x00cf, t01=0x00fc}
0x14460…1448e               Head {h00=0x002a, h01=0x0050, text=» ABL WINRST NO, RETURN TO WINDOW QUEUE«, t00=0x00cf, t01=0x012a}
0x1448e…14498               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0158}
0x14498…144ac               Head {h00=0x0010, h01=0x0050, text=»RE100 EQU * «, t00=0x00cf, t01=0x0162}
0x144ac…144e0               Head {h00=0x0030, h01=0x0050, text=» CF A15,OUTBUQ REMOVE DWT FROM BUFFER QUEUE «, t00=0x00cf, t01=0x0176}
0x144e0…144fa               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 FOUND? «, t00=0x00d0, t01=0x001a}
0x144fa…1452e               Head {h00=0x0030, h01=0x0050, text=» ABL(NZ) BUFRST YES, RETURN WITH ERROR CODE «, t00=0x00d0, t01=0x0034}
0x1452e…14538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0068}
0x14538…1455c               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00d0, t01=0x0072}
0x1455c…14566               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0096}
0x14566…14570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x00a0}
0x14570…14584               Head {h00=0x0010, h01=0x0050, text=»REERR1 EQU *«, t00=0x00d0, t01=0x00aa}
0x14584…145a6               Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x00d0, t01=0x00be}
0x145a6…145ba               Head {h00=0x0010, h01=0x0050, text=»REERR2 EQU *«, t00=0x00d0, t01=0x00e0}
0x145ba…145f0               Head {h00=0x0032, h01=0x0050, text=»*      ERROR. RETURN MONITOR BLOCK IMMEDIATELY«, t00=0x00d0, t01=0x00f4}
0x145f0…14620               Head {h00=0x002c, h01=0x0050, text=» SUK A4,2 START ADDRESS OF MONITOR BLOCK«, t00=0x00d0, t01=0x012a}
0x14620…14658               Head {h00=0x0034, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET«, t00=0x00d0, t01=0x015a}
0x14658…14684 (209, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CF A15,FREBLK RETURN MONITOR BLOCK «, t00=0x00d1, t01=0x0004}
0x14684…146a8               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00d1, t01=0x0030}
0x146a8…146b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0054}
0x146b2…146c0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x005e}
0x146c0…146ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x006c}
0x146ca…146e8               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00d1, t01=0x0076}
0x146e8…14706               Head {h00=0x001a, h01=0x0050, text=»* RECOVERY ROUTINES * «, t00=0x00d1, t01=0x0094}
0x14706…14724               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00d1, t01=0x00b2}
0x14724…1472e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x00d0}
0x1472e…1476e               Head {h00=0x003c, h01=0x0050, text=»*   THESE ROUTINES ARE USED AT SYSTEM START OR TC POWER «, t00=0x00d1, t01=0x00da}
0x1476e…147b0               Head {h00=0x003e, h01=0x0050, text=»*   UP. IN CASE OF POWER UP, THEY FIRST REMOVE ALL RUNNING«, t00=0x00d1, t01=0x011a}
0x147b0…147ee               Head {h00=0x003a, h01=0x0050, text=»*   OUTPUT OPERATIONS. AFTER THAT, THE PLC IS STARTED,«, t00=0x00d1, t01=0x015c}
0x147ee…1482a               Head {h00=0x0038, h01=0x0050, text=»*   AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE«, t00=0x00d2, t01=0x000a}
0x1482a…1484c               Head {h00=0x001e, h01=0x0050, text=»*   CALLED FOR ALL DWT:S. «, t00=0x00d2, t01=0x0046}
0x1484c…14888               Head {h00=0x0038, h01=0x0050, text=»*   THE SECTION ALSO CONTAINS ROUTINES FOR RECOVERY «, t00=0x00d2, t01=0x0068}
0x14888…148a2               Head {h00=0x0016, h01=0x0050, text=»*   OF I/O ERRORS.«, t00=0x00d2, t01=0x00a4}
0x148a2…148ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00be}
0x148ac…148b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00c8}
0x148b6…148ea               Head {h00=0x0030, h01=0x0050, text=»*   ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x00d2, t01=0x00d2}
0x148ea…148f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0106}
0x148f4…1490c               Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x00d2, t01=0x0110}
0x1490c…14916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0128}
0x14916…14952               Head {h00=0x0038, h01=0x0050, text=»* PLON CALL RECOVERY ONCE FOR EACH PLC CHANNEL UNIT «, t00=0x00d2, t01=0x0132}
0x14952…14986               Head {h00=0x0030, h01=0x0050, text=»* PLSTRT START PLC AND CALL DEVICE RECOVERY «, t00=0x00d2, t01=0x016e}
0x14986…14990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0012}
0x14990…1499e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x001c}
0x1499e…149a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x002a}
0x149a8…149ec               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d3, t01=0x0034}
0x149ec…149f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0078}
0x149f6…14a0e               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00d3, t01=0x0082}
0x14a0e…14a1c               Head {h00=0x000a, h01=0x0050, text=»* PLON«, t00=0x00d3, t01=0x009a}
0x14a1c…14a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x00a8}
0x14a26…14a3a               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00d3, t01=0x00b2}
0x14a3a…14a6c               Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE WILL ACTIVATE A MONITOR JOB«, t00=0x00d3, t01=0x00c6}
0x14a6c…14aa2               Head {h00=0x0032, h01=0x0050, text=»* FOR THE PLC RECOVERY, IF THE JOB NOT ALREADY«, t00=0x00d3, t01=0x00f8}
0x14aa2…14ab8               Head {h00=0x0012, h01=0x0050, text=»* IS PENDING. «, t00=0x00d3, t01=0x012e}
0x14ab8…14af6               Head {h00=0x003a, h01=0x0050, text=»* THE MONITOR JOB WILL CALL THE RECOVERY ROUTINE ONCE «, t00=0x00d3, t01=0x0144}
0x14af6…14b16               Head {h00=0x001c, h01=0x0050, text=»* FOR EACH PLC DEFINED. «, t00=0x00d3, t01=0x0182}
0x14b16…14b20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0012}
0x14b20…14b30               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00d4, t01=0x001c}
0x14b30…14b46               Head {h00=0x0012, h01=0x0050, text=»* CF A15,PLON «, t00=0x00d4, t01=0x002c}
0x14b46…14b50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0042}
0x14b50…14b60               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00d4, t01=0x004c}
0x14b60…14b6c               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00d4, t01=0x005c}
0x14b6c…14b76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0068}
0x14b76…14b88               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00d4, t01=0x0072}
0x14b88…14baa               Head {h00=0x001e, h01=0x0050, text=»*      AT ENTRY TO PLSTRT:«, t00=0x00d4, t01=0x0084}
0x14baa…14bc6               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00d4, t01=0x00a6}
0x14bc6…14bd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x00c2}
0x14bd0…14c14               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d4, t01=0x00cc}
0x14c14…14c1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0110}
0x14c1e…14c30               Head {h00=0x000e, h01=0x0050, text=»PLON EQU *«, t00=0x00d4, t01=0x011a}
0x14c30…14c58               Head {h00=0x0024, h01=0x0050, text=» LD A1,PLCPFP POWER UP PENDING? «, t00=0x00d4, t01=0x012c}
0x14c58…14c78               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) PO100 YES, EXIT «, t00=0x00d4, t01=0x0154}
0x14c78…14ca4               Head {h00=0x0028, h01=0x0050, text=» IM PLCPFP INDICATE POWER UP STARTED«, t00=0x00d4, t01=0x0174}
0x14ca4…14cae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0010}
0x14cae…14cd2               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PO110 START ADDRESS«, t00=0x00d5, t01=0x001a}
0x14cd2…14cfc               Head {h00=0x0026, h01=0x0050, text=» CF A15,QMJOB ACTIVATE MONITOR JOB«, t00=0x00d5, t01=0x003e}
0x14cfc…14d06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0068}
0x14d06…14d1a               Head {h00=0x0010, h01=0x0050, text=»PO100 EQU * «, t00=0x00d5, t01=0x0072}
0x14d1a…14d2a               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00d5, t01=0x0086}
0x14d2a…14d34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0096}
0x14d34…14d42               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x00a0}
0x14d42…14d4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00ae}
0x14d4c…14d60               Head {h00=0x0010, h01=0x0050, text=»PO110 EQU * «, t00=0x00d5, t01=0x00b8}
0x14d60…14d84               Head {h00=0x0020, h01=0x0050, text=» CM PLCPFP NO LONGER PENDING«, t00=0x00d5, t01=0x00cc}
0x14d84…14d8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00f0}
0x14d8e…14d98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00fa}
0x14d98…14dbe               Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x00d5, t01=0x0104}
0x14dbe…14dea               Head {h00=0x0028, h01=0x0050, text=»*    RESET QUEUE STATISTICS COUNTERS«, t00=0x00d5, t01=0x012a}
0x14dea…14e0e               Head {h00=0x0020, h01=0x0050, text=» LDK A1,STATLN TABLE LENGTH «, t00=0x00d5, t01=0x0156}
0x14e0e…14e22               Head {h00=0x0010, h01=0x0050, text=»PO113 EQU * «, t00=0x00d5, t01=0x017a}
0x14e22…14e3e               Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 NEXT WORD «, t00=0x00d5, t01=0x018e}
0x14e3e…14e66               Head {h00=0x0024, h01=0x0050, text=» RF(N) PO116 READY WHEN ALL DONE«, t00=0x00d6, t01=0x001a}
0x14e66…14e8a               Head {h00=0x0020, h01=0x0050, text=» CM STATAR,A1 RESET COUNTER «, t00=0x00d6, t01=0x0042}
0x14e8a…14ea6               Head {h00=0x0018, h01=0x0050, text=» RB PO113 NEXT WORD «, t00=0x00d6, t01=0x0066}
0x14ea6…14eba               Head {h00=0x0010, h01=0x0050, text=»PO116 EQU * «, t00=0x00d6, t01=0x0082}
0x14eba…14ec6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d6, t01=0x0096}
0x14ec6…14ed0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00a2}
0x14ed0…14efc               Head {h00=0x0028, h01=0x0050, text=» LDK A1,16 (MAX NUMBER OF PLC:S) * 2«, t00=0x00d6, t01=0x00ac}
0x14efc…14f10               Head {h00=0x0010, h01=0x0050, text=»PO120 EQU * «, t00=0x00d6, t01=0x00d8}
0x14f10…14f44               Head {h00=0x0030, h01=0x0050, text=»*    THIS LOOP IS EXECUTED ONCE FOR EACH PLC«, t00=0x00d6, t01=0x00ec}
0x14f44…14f5e               Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 NEXT PLC«, t00=0x00d6, t01=0x0120}
0x14f5e…14f84               Head {h00=0x0022, h01=0x0050, text=» RF(N) PO130 EXIT IF ALL DONE «, t00=0x00d6, t01=0x013a}
0x14f84…14fa8               Head {h00=0x0020, h01=0x0050, text=» LD A5,TABCWT,A1 CWT ADDRESS«, t00=0x00d6, t01=0x0160}
0x14fa8…14fd6               Head {h00=0x002a, h01=0x0050, text=» RB(Z) PO120 TAKE NEXT IF NOT DEFINED «, t00=0x00d6, t01=0x0184}
0x14fd6…14ffa               Head {h00=0x0020, h01=0x0050, text=» CF A15,PLSTRT START ONE PLC«, t00=0x00d7, t01=0x0022}
0x14ffa…15014               Head {h00=0x0016, h01=0x0050, text=» RB PO120 NEXT PLC«, t00=0x00d7, t01=0x0046}
0x15014…1501e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0060}
0x1501e…15032               Head {h00=0x0010, h01=0x0050, text=»PO130 EQU * «, t00=0x00d7, t01=0x006a}
0x15032…15056               Head {h00=0x0020, h01=0x0050, text=» ABL MEXIT MONITOR JOB EXIT «, t00=0x00d7, t01=0x007e}
0x15056…15060               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x00a2}
0x15060…1506e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x00ac}
0x1506e…15078               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x00ba}
0x15078…150bc               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d7, t01=0x00c4}
0x150bc…150c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0108}
0x150c6…150de               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00d7, t01=0x0112}
0x150de…150ee               Head {h00=0x000c, h01=0x0050, text=»* PLSTRT«, t00=0x00d7, t01=0x012a}
0x150ee…150f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x013a}
0x150f8…1510c               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00d7, t01=0x0144}
0x1510c…15142               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE FIRST CLEARS ALL WORK AREAS AND«, t00=0x00d7, t01=0x0158}
0x15142…1517a               Head {h00=0x0034, h01=0x0050, text=»* DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS«, t00=0x00d7, t01=0x018e}
0x1517a…151b0               Head {h00=0x0032, h01=0x0050, text=»* THE PLC, AND CALLS RECOVERY ROUTINES IN ALL «, t00=0x00d8, t01=0x0036}
0x151b0…151ca               Head {h00=0x0016, h01=0x0050, text=»* DEVICE DRIVERS. «, t00=0x00d8, t01=0x006c}
0x151ca…151d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0086}
0x151d4…151e4               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00d8, t01=0x0090}
0x151e4…151fc               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLSTRT «, t00=0x00d8, t01=0x00a0}
0x151fc…15206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00b8}
0x15206…15216               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00d8, t01=0x00c2}
0x15216…15232               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00d8, t01=0x00d2}
0x15232…1523c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00ee}
0x1523c…1524e               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00d8, t01=0x00f8}
0x1524e…1525a               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00d8, t01=0x010a}
0x1525a…15264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0116}
0x15264…152a8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d8, t01=0x0120}
0x152a8…152b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0164}
0x152b2…152c6               Head {h00=0x0010, h01=0x0050, text=»PLSTRT EQU *«, t00=0x00d8, t01=0x016e}
0x152c6…152dc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d8, t01=0x0182}
0x152dc…152fc               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00d9, t01=0x0008}
0x152fc…15308               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0028}
0x15308…1531e               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00d9, t01=0x0034}
0x1531e…1533c               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00d9, t01=0x004a}
0x1533c…15348               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0068}
0x15348…15352               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0074}
0x15352…1535e               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x00d9, t01=0x007e}
0x1535e…15394               Head {h00=0x0032, h01=0x0050, text=» IM CWTGR,A5 INDICATE GENERAL READ NOT ALLOWED«, t00=0x00d9, t01=0x008a}
0x15394…153ba               Head {h00=0x0022, h01=0x0050, text=» CM CWTABW,A5 STOP ABORT OF WS«, t00=0x00d9, t01=0x00c0}
0x153ba…153e8               Head {h00=0x002a, h01=0x0050, text=» CM CWTSBQ,A5 RESET SHORT BUFFER QUEUE«, t00=0x00d9, t01=0x00e6}
0x153e8…15416               Head {h00=0x002a, h01=0x0050, text=» CM CWTLBQ,A5 RESET LONG BUFFER QUEUE «, t00=0x00d9, t01=0x0114}
0x15416…15420               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0142}
0x15420…1542e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d9, t01=0x014c}
0x1542e…15438               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x015a}
0x15438…1544c               Head {h00=0x0010, h01=0x0050, text=»ST100 EQU * «, t00=0x00d9, t01=0x0164}
0x1544c…1547e               Head {h00=0x002e, h01=0x0050, text=»*    RETURN MONITOR BLOCKS USED AS BUFFERS«, t00=0x00d9, t01=0x0178}
0x1547e…15490               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00da, t01=0x001a}
0x15490…154c0               Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00da, t01=0x002c}
0x154c0…154e0               Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A7 FIRST BLOCK «, t00=0x00da, t01=0x005c}
0x154e0…15508               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ST105 CONTINUE IF NO LEFT«, t00=0x00da, t01=0x007c}
0x15508…15530               Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00da, t01=0x00a4}
0x15530…15554               Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00da, t01=0x00cc}
0x15554…15570               Head {h00=0x0018, h01=0x0050, text=» RB ST100 TAKE NEXT «, t00=0x00da, t01=0x00f0}
0x15570…15584               Head {h00=0x0010, h01=0x0050, text=»ST105 EQU * «, t00=0x00da, t01=0x010c}
0x15584…155b6               Head {h00=0x002e, h01=0x0050, text=»*    RETURN MONITOR BLOCKS FROM CCA QUEUE «, t00=0x00da, t01=0x0120}
0x155b6…155c8               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00da, t01=0x0152}
0x155c8…155ee               Head {h00=0x0022, h01=0x0050, text=» ADK A7,CWTCCQ CCA QUEUE HEAD «, t00=0x00da, t01=0x0164}
0x155ee…1560e               Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A7 FIRST BLOCK «, t00=0x00da, t01=0x018a}
0x1560e…15636               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ST110 CONTINUE IF NO LEFT«, t00=0x00db, t01=0x001a}
0x15636…1565e               Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00db, t01=0x0042}
0x1565e…15682               Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00db, t01=0x006a}
0x15682…1569e               Head {h00=0x0018, h01=0x0050, text=» RB ST105 TAKE NEXT «, t00=0x00db, t01=0x008e}
0x1569e…156a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00aa}
0x156a8…156bc               Head {h00=0x0010, h01=0x0050, text=»ST110 EQU * «, t00=0x00db, t01=0x00b4}
0x156bc…156de               Head {h00=0x001e, h01=0x0050, text=»*    INITIATE BUFFER AREAS«, t00=0x00db, t01=0x00c8}
0x156de…156fc               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 CWT ADDRESS«, t00=0x00db, t01=0x00ea}
0x156fc…15732               Head {h00=0x0032, h01=0x0050, text=» ADKL A4,CWTSOB AREA FOR SHORT OUTPUT BUFFERS «, t00=0x00db, t01=0x0108}
0x15732…15744               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00db, t01=0x013e}
0x15744…1577a               Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTPBS POOLBLOCK, SHORT OUTPUT BUFFERS«, t00=0x00db, t01=0x0150}
0x1577a…157a6               Head {h00=0x0028, h01=0x0050, text=» CF A15,INIBUF INITIATE BUFFER AREA «, t00=0x00db, t01=0x0186}
0x157a6…157c4               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 CWT ADDRESS«, t00=0x00dc, t01=0x0022}
0x157c4…157f8               Head {h00=0x0030, h01=0x0050, text=» ADKL A4,CWTLOB AREA FOR LONG OUTPUT BUFFERS«, t00=0x00dc, t01=0x0040}
0x157f8…1580a               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00dc, t01=0x0074}
0x1580a…15840               Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTPBL POOLBLOCK, LONG OUTPUT BUFFERS «, t00=0x00dc, t01=0x0086}
0x15840…1586c               Head {h00=0x0028, h01=0x0050, text=» CF A15,INIBUF INITIATE BUFFER AREA «, t00=0x00dc, t01=0x00bc}
0x1586c…1588a               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 CWT ADDRESS«, t00=0x00dc, t01=0x00e8}
0x1588a…158c0               Head {h00=0x0032, h01=0x0050, text=» ADKL A4,CWTGRB AREA FOR GENERAL READ BUFFERS «, t00=0x00dc, t01=0x0106}
0x158c0…158d2               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00dc, t01=0x013c}
0x158d2…15908               Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTPBG POOLBLOCK, GENERAL READ BUFFERS«, t00=0x00dc, t01=0x014e}
0x15908…15934               Head {h00=0x0028, h01=0x0050, text=» CF A15,INIBUF INITIATE BUFFER AREA «, t00=0x00dc, t01=0x0184}
0x15934…1593e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0020}
0x1593e…15972               Head {h00=0x0030, h01=0x0050, text=»*    RESET ALL DWT:S AND WORK STATION STATUS«, t00=0x00dd, t01=0x002a}
0x15972…159a6               Head {h00=0x0030, h01=0x0050, text=» LDK A3,MAXWS+1 NUMBER OF WORK STATIONS + 1 «, t00=0x00dd, t01=0x005e}
0x159a6…159ba               Head {h00=0x0010, h01=0x0050, text=»ST120 EQU * «, t00=0x00dd, t01=0x0092}
0x159ba…159de               Head {h00=0x0020, h01=0x0050, text=» SUK A3,1 NEXT WORK STATION «, t00=0x00dd, t01=0x00a6}
0x159de…15a06               Head {h00=0x0024, h01=0x0050, text=» RF(N) ST150 END IF NO MORE LEFT«, t00=0x00dd, t01=0x00ca}
0x15a06…15a2c               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A3 WORK STATION NUMBER«, t00=0x00dd, t01=0x00f2}
0x15a2c…15a48               Head {h00=0x0018, h01=0x0050, text=» SLA A2,1 MAKE INDEX«, t00=0x00dd, t01=0x0118}
0x15a48…15a6a               Head {h00=0x001e, h01=0x0050, text=» ADR A2,A5 ADD CWT ADDRESS«, t00=0x00dd, t01=0x0134}
0x15a6a…15a9a               Head {h00=0x002c, h01=0x0050, text=» ADK A2,CWTWSS WORK STATION STATUS WORD «, t00=0x00dd, t01=0x0156}
0x15a9a…15ab6               Head {h00=0x0018, h01=0x0050, text=» CMR A2 CLEAR STATUS«, t00=0x00dd, t01=0x0186}
0x15ab6…15acc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,NOTOPR«, t00=0x00de, t01=0x0012}
0x15acc…15af2               Head {h00=0x0022, h01=0x0050, text=» SCR A1,A2 WS := NOT OPERABLE «, t00=0x00de, t01=0x0028}
0x15af2…15b26               Head {h00=0x0030, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE ADDRESS«, t00=0x00de, t01=0x004e}
0x15b26…15b4c               Head {h00=0x0022, h01=0x0050, text=» LDR A6,A3 WORK STATION NUMBER«, t00=0x00de, t01=0x0082}
0x15b4c…15b80               Head {h00=0x0030, h01=0x0050, text=» CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS«, t00=0x00de, t01=0x00a8}
0x15b80…15b92               Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x00de, t01=0x00dc}
0x15b92…15ba6               Head {h00=0x0010, h01=0x0050, text=»ST130 EQU * «, t00=0x00de, t01=0x00ee}
0x15ba6…15bc0               Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 NEXT DWT«, t00=0x00de, t01=0x0102}
0x15bc0…15bec               Head {h00=0x0028, h01=0x0050, text=» RF(N) ST140 NEXT WS IF NO DWT LEFT «, t00=0x00de, t01=0x011c}
0x15bec…15c08               Head {h00=0x0018, h01=0x0050, text=» LDR A6,A3 WS NUMBER«, t00=0x00de, t01=0x0148}
0x15c08…15c30               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00de, t01=0x0164}
0x15c30…15c50               Head {h00=0x001c, h01=0x0050, text=» RB(Z) ST130 NOT DEFINED«, t00=0x00de, t01=0x018c}
0x15c50…15c78               Head {h00=0x0024, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL«, t00=0x00df, t01=0x001c}
0x15c78…15c9c               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/FFFF-DWFBSY-DWFPLC«, t00=0x00df, t01=0x0044}
0x15c9c…15cc4               Head {h00=0x0024, h01=0x0050, text=»*    MASK FOR BUSY AND PLC FLAGS«, t00=0x00df, t01=0x0068}
0x15cc4…15ce8               Head {h00=0x0020, h01=0x0050, text=» ANS A2,DWTST,A6 RESET FLAGS«, t00=0x00df, t01=0x0090}
0x15ce8…15d14               Head {h00=0x0028, h01=0x0050, text=» CM DWTLD1,A6 RELEASE BUFFER, IF ANY«, t00=0x00df, t01=0x00b4}
0x15d14…15d48               Head {h00=0x0030, h01=0x0050, text=» CM DWTOTQ,A6 REMOVE DWT FROM QUEUE, IF ANY «, t00=0x00df, t01=0x00e0}
0x15d48…15d62               Head {h00=0x0016, h01=0x0050, text=» RB ST130 NEXT DWT«, t00=0x00df, t01=0x0114}
0x15d62…15d76               Head {h00=0x0010, h01=0x0050, text=»ST140 EQU * «, t00=0x00df, t01=0x012e}
0x15d76…15d9a               Head {h00=0x0020, h01=0x0050, text=» RB ST120 NEXT WORK STATION «, t00=0x00df, t01=0x0142}
0x15d9a…15da4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0166}
0x15da4…15db8               Head {h00=0x0010, h01=0x0050, text=»ST150 EQU * «, t00=0x00df, t01=0x0170}
0x15db8…15de8               Head {h00=0x002c, h01=0x0050, text=»*    DELAY UNTIL PLC IS READY FOR START «, t00=0x00df, t01=0x0184}
0x15de8…15e18               Head {h00=0x002c, h01=0x0050, text=» LD A4,CWTTPR,A5 TIMER ALREADY STARTED? «, t00=0x00e0, t01=0x0024}
0x15e18…15e3c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) ST152 NO, START TIMER«, t00=0x00e0, t01=0x0054}
0x15e3c…15e62               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,-STADLY-1 DELAY TIME «, t00=0x00e0, t01=0x0078}
0x15e62…15e82               Head {h00=0x001c, h01=0x0050, text=» STR A1,A4 RESTART TIMER«, t00=0x00e0, t01=0x009e}
0x15e82…15e98               Head {h00=0x0012, h01=0x0050, text=» RF ST154 EXIT«, t00=0x00e0, t01=0x00be}
0x15e98…15ea2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00d4}
0x15ea2…15eb6               Head {h00=0x0010, h01=0x0050, text=»ST152 EQU * «, t00=0x00e0, t01=0x00de}
0x15eb6…15eda               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A5 SAVE CWT ADDRESS «, t00=0x00e0, t01=0x00f2}
0x15eda…15efc               Head {h00=0x001e, h01=0x0050, text=» CF A15,SETIME START TIMER«, t00=0x00e0, t01=0x0116}
0x15efc…15f34               Head {h00=0x0034, h01=0x0050, text=» DATA ST156,STADLY RESTART ADDRESS & DELAY TIME «, t00=0x00e0, t01=0x0138}
0x15f34…15f60               Head {h00=0x0028, h01=0x0050, text=» ST A4,CWTTPR,A5 SAVE TIMER POINTER «, t00=0x00e0, t01=0x0170}
0x15f60…15f74               Head {h00=0x0010, h01=0x0050, text=»ST154 EQU * «, t00=0x00e1, t01=0x000c}
0x15f74…15fa0               Head {h00=0x0028, h01=0x0050, text=» ABL TDISP WAIT UNTIL TIMER EXPIRES «, t00=0x00e1, t01=0x0020}
0x15fa0…15faa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x004c}
0x15faa…15fbe               Head {h00=0x0010, h01=0x0050, text=»ST156 EQU * «, t00=0x00e1, t01=0x0056}
0x15fbe…15fe4               Head {h00=0x0022, h01=0x0050, text=» LDR A5,A1 RESTORE CWT ADDRESS«, t00=0x00e1, t01=0x006a}
0x15fe4…16014               Head {h00=0x002c, h01=0x0050, text=» CM CWTTPR,A5 INDICATE NO TIMER RUNNING «, t00=0x00e1, t01=0x0090}
0x16014…1601e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x00c0}
0x1601e…1604e               Head {h00=0x002c, h01=0x0050, text=»*    START "TEST CHANNEL UNIT" OPERATION«, t00=0x00e1, t01=0x00ca}
0x1604e…16070               Head {h00=0x001e, h01=0x0050, text=» IM CWTCCB,A5 SET CCA BUSY«, t00=0x00e1, t01=0x00fa}
0x16070…16096               Head {h00=0x0022, h01=0x0050, text=» CM CWTOPR,A5 SET PLC OPERABLE«, t00=0x00e1, t01=0x011c}
0x16096…160c0               Head {h00=0x0026, h01=0x0050, text=» LDK A2,CMDTC COMMAND CODE TEST CU«, t00=0x00e1, t01=0x0142}
0x160c0…160fc               Head {h00=0x0038, h01=0x0050, text=» ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA«, t00=0x00e1, t01=0x016c}
0x160fc…1612c               Head {h00=0x002c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING«, t00=0x00e2, t01=0x0018}
0x1612c…1614a               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 CWT ADDRESS«, t00=0x00e2, t01=0x0048}
0x1614a…16184               Head {h00=0x0036, h01=0x0050, text=» ADK A3,CWTCSD CONTROL UNIT START DESCRIPTOR ADDR «, t00=0x00e2, t01=0x0066}
0x16184…16190               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00e2, t01=0x00a0}
0x16190…161b0               Head {h00=0x001c, h01=0x0050, text=» CF A15,PLCCIO CIO START«, t00=0x00e2, t01=0x00ac}
0x161b0…161d4               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STERR2 EXIT IF ERROR«, t00=0x00e2, t01=0x00cc}
0x161d4…1620e               Head {h00=0x0036, h01=0x0050, text=» IM CWTOPR,A5 SET NOT OPERABLE UNTIL TEST CU READY«, t00=0x00e2, t01=0x00f0}
0x1620e…16234               Head {h00=0x0022, h01=0x0050, text=» ABL TDISP WAIT FOR COMPLETION«, t00=0x00e2, t01=0x012a}
0x16234…1623e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0150}
0x1623e…16248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x015a}
0x16248…16282               Head {h00=0x0036, h01=0x0050, text=»*    ENTRY IS MADE HERE WHEN TEST CU IS COMPLETED.«, t00=0x00e2, t01=0x0164}
0x16282…162ac               Head {h00=0x0026, h01=0x0050, text=»*      REGISTER CONTENTS ON ENTRY:«, t00=0x00e3, t01=0x000e}
0x162ac…162c6               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00e3, t01=0x0038}
0x162c6…162e2               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00e3, t01=0x0052}
0x162e2…162ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x006e}
0x162ec…16300               Head {h00=0x0010, h01=0x0050, text=»TCURST EQU *«, t00=0x00e3, t01=0x0078}
0x16300…16320               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 OPERATION OK?«, t00=0x00e3, t01=0x008c}
0x16320…16340               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) STERR2 NO, EXIT «, t00=0x00e3, t01=0x00ac}
0x16340…1634a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x00cc}
0x1634a…16374               Head {h00=0x0026, h01=0x0050, text=»*    PERFORM "OPEN LINE" OPERATION«, t00=0x00e3, t01=0x00d6}
0x16374…16384               Head {h00=0x000c, h01=0x0050, text=»   U =5 «, t00=0x00e3, t01=0x0100}
0x16384…163ac               Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 INITIATE LINE COUNTER «, t00=0x00e3, t01=0x0110}
0x163ac…163c4               Head {h00=0x0014, h01=0x0050, text=» ST A2,CWTLNO,A5«, t00=0x00e3, t01=0x0138}
0x163c4…163d8               Head {h00=0x0010, h01=0x0050, text=»ST157 EQU * «, t00=0x00e3, t01=0x0150}
0x163d8…163fa               Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x00e3, t01=0x0164}
0x163fa…16404               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0186}
0x16404…16428               Head {h00=0x0020, h01=0x0050, text=» LD A2,CWTLNO,A5 GET LINE NO«, t00=0x00e3, t01=0x0190}
0x16428…1645e               Head {h00=0x0032, h01=0x0050, text=» SC A2,CWTCCA+CCRSU1,A5 SET UP LINE IN CCA =5 «, t00=0x00e4, t01=0x0024}
0x1645e…16484               Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 MAKE OPEN LINE PARA-«, t00=0x00e4, t01=0x005a}
0x16484…164a8               Head {h00=0x0020, h01=0x0050, text=» ST A2,CWTPAR,A5 METER AREA «, t00=0x00e4, t01=0x0080}
0x164a8…164bc               Head {h00=0x0010, h01=0x0050, text=»ST158 EQU * «, t00=0x00e4, t01=0x00a4}
0x164bc…164e4               Head {h00=0x0024, h01=0x0050, text=» LD A2,CWTOPP,A5 MAKE ADDRESS TO«, t00=0x00e4, t01=0x00b8}
0x164e4…16516               Head {h00=0x002e, h01=0x0050, text=» AD A2,CWTPAR,A5 OPEN LINE PARAMETER AREA «, t00=0x00e4, t01=0x00e0}
0x16516…1652e               Head {h00=0x0014, h01=0x0050, text=» LDR* A2,A2 U =5«, t00=0x00e4, t01=0x0112}
0x1652e…1655c               Head {h00=0x002a, h01=0x0050, text=» ST A2,CWTCCA+CCRBUF,A5 SET UP IN CCA «, t00=0x00e4, t01=0x012a}
0x1655c…16584               Head {h00=0x0024, h01=0x0050, text=» LDK A2,CMDOP COMMAND OPEN LINE «, t00=0x00e4, t01=0x0158}
0x16584…165c0               Head {h00=0x0038, h01=0x0050, text=» ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA«, t00=0x00e4, t01=0x0180}
0x165c0…165fe               Head {h00=0x003a, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR«, t00=0x00e5, t01=0x002c}
0x165fe…1662a               Head {h00=0x0028, h01=0x0050, text=» LDK A2,12 PARAMETER AREA LENGTH =1 «, t00=0x00e5, t01=0x006a}
0x1662a…16650               Head {h00=0x0022, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 TO CCA«, t00=0x00e5, t01=0x0096}
0x16650…1665a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x00bc}
0x1665a…16680               Head {h00=0x0022, h01=0x0050, text=» CM CWTOPR,A5 SET PLC OPERABLE«, t00=0x00e5, t01=0x00c6}
0x16680…166a0               Head {h00=0x001c, h01=0x0050, text=» CF A15,PLCCIO CIO START«, t00=0x00e5, t01=0x00ec}
0x166a0…166c4               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STERR2 EXIT IF ERROR«, t00=0x00e5, t01=0x010c}
0x166c4…166e8               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00e5, t01=0x0130}
0x166e8…166f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x0154}
0x166f2…166fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x015e}
0x166fc…16738               Head {h00=0x0038, h01=0x0050, text=»*    ENTRY TO OPLRST WILL BE MADE WHEN THE OPEN LINE«, t00=0x00e5, t01=0x0168}
0x16738…1675c               Head {h00=0x0020, h01=0x0050, text=»*    OPERATION IS COMPLETED.«, t00=0x00e6, t01=0x0014}
0x1675c…16786               Head {h00=0x0026, h01=0x0050, text=»*      REGISTER CONTENTS ON ENTRY:«, t00=0x00e6, t01=0x0038}
0x16786…167a0               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x00e6, t01=0x0062}
0x167a0…167bc               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00e6, t01=0x007c}
0x167bc…167c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0098}
0x167c6…167da               Head {h00=0x0010, h01=0x0050, text=»OPLRST EQU *«, t00=0x00e6, t01=0x00a2}
0x167da…167fa               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 OPERATION OK?«, t00=0x00e6, t01=0x00b6}
0x167fa…1681a               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) STERR2 NO, EXIT «, t00=0x00e6, t01=0x00d6}
0x1681a…16824               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00f6}
0x16824…16848               Head {h00=0x0020, h01=0x0050, text=» LD A2,CWTPNR,A5 GET PLC NR «, t00=0x00e6, t01=0x0100}
0x16848…16868               Head {h00=0x001c, h01=0x0050, text=» SUK A2,3 CHECK IF LOCAL«, t00=0x00e6, t01=0x0124}
0x16868…16882               Head {h00=0x0016, h01=0x0050, text=» RF(NP) ST159 YES «, t00=0x00e6, t01=0x0144}
0x16882…168ae               Head {h00=0x0028, h01=0x0050, text=» IM CWTLNO,A5 INCREMENT LINE NUMBER «, t00=0x00e6, t01=0x015e}
0x168ae…168d2               Head {h00=0x0020, h01=0x0050, text=» LD A2,CWTLNO,A5 GET LINE NO«, t00=0x00e6, t01=0x018a}
0x168d2…168f6               Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 ALL LINES OPENED ?«, t00=0x00e7, t01=0x001e}
0x168f6…1691a               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ST157 NO, TAKE NEXT «, t00=0x00e7, t01=0x0042}
0x1691a…16930               Head {h00=0x0012, h01=0x0050, text=» CM CWTLNO,A5 «, t00=0x00e7, t01=0x0066}
0x16930…16944               Head {h00=0x0010, h01=0x0050, text=»ST159 EQU * «, t00=0x00e7, t01=0x007c}
0x16944…1694e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0090}
0x1694e…16980               Head {h00=0x002e, h01=0x0050, text=» CM CWTGR,A5 INDICATE GENERAL READ ALLOWED«, t00=0x00e7, t01=0x009a}
0x16980…1698a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00cc}
0x1698a…169cc               Head {h00=0x003e, h01=0x0050, text=»*    PERFORM OPEN DATA LINK FOR ALL CONNECTED SECONDARIES «, t00=0x00e7, t01=0x00d6}
0x169cc…169d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0118}
0x169d6…16a02               Head {h00=0x0028, h01=0x0050, text=» LDK A6,MAXWS+1 (MAX NR OF DLS) + 1 «, t00=0x00e7, t01=0x0122}
0x16a02…16a16               Head {h00=0x0010, h01=0x0050, text=»ST160 EQU * «, t00=0x00e7, t01=0x014e}
0x16a16…16a40               Head {h00=0x0026, h01=0x0050, text=» SUK A6,1 NEXT WORK STATION (DLS) «, t00=0x00e7, t01=0x0162}
0x16a40…16a66               Head {h00=0x0022, h01=0x0050, text=» RF(N) ST180 EXIT IF ALL DONE «, t00=0x00e7, t01=0x018c}
0x16a66…16a92               Head {h00=0x0028, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE«, t00=0x00e8, t01=0x0022}
0x16a92…16ac6               Head {h00=0x0030, h01=0x0050, text=» CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS«, t00=0x00e8, t01=0x004e}
0x16ac6…16ae4               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 ANY DWT:S? «, t00=0x00e8, t01=0x0082}
0x16ae4…16b0a               Head {h00=0x0022, h01=0x0050, text=» RB(N) ST160 NO, TAKE NEXT WS «, t00=0x00e8, t01=0x00a0}
0x16b0a…16b14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00c6}
0x16b14…16b36               Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x00e8, t01=0x00d0}
0x16b36…16b5c               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 WORK STATION NUMBER«, t00=0x00e8, t01=0x00f2}
0x16b5c…16b78               Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x00e8, t01=0x0118}
0x16b78…16b9a               Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x00e8, t01=0x0134}
0x16b9a…16bc0               Head {h00=0x0022, h01=0x0050, text=» CM CWTWSS,A3 CLEAR WS STATUS «, t00=0x00e8, t01=0x0156}
0x16bc0…16bfc               Head {h00=0x0038, h01=0x0050, text=» SC A6,CWTCCA+CCRDLS,A5 DLS INDEX (WS NUMBER) TO CCA«, t00=0x00e8, t01=0x017c}
0x16bfc…16c2a               Head {h00=0x002a, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 SAVE DLS INDEX«, t00=0x00e9, t01=0x0028}
0x16c2a…16c50               Head {h00=0x0022, h01=0x0050, text=» LDK A2,CMDOD COMMAND OPEN DLS«, t00=0x00e9, t01=0x0056}
0x16c50…16c76               Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRCMD,A5 TO CCA«, t00=0x00e9, t01=0x007c}
0x16c76…16ca2               Head {h00=0x0028, h01=0x0050, text=» LDK A2,MAXFR MAX OUTSTANDING FRAMES«, t00=0x00e9, t01=0x00a2}
0x16ca2…16cd2               Head {h00=0x002c, h01=0x0050, text=» SC A2,CWTCCA+CCRSU1,A5 TO SUBCOMMAND 1 «, t00=0x00e9, t01=0x00ce}
0x16cd2…16d02               Head {h00=0x002c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING«, t00=0x00e9, t01=0x00fe}
0x16d02…16d22               Head {h00=0x001c, h01=0x0050, text=» CF A15,PLCCIO CIO START«, t00=0x00e9, t01=0x012e}
0x16d22…16d46               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STERR2 EXIT IF ERROR«, t00=0x00e9, t01=0x014e}
0x16d46…16d74               Head {h00=0x002a, h01=0x0050, text=» ABL PLDSP2 EXIT. WAIT FOR COMPLETION «, t00=0x00e9, t01=0x0172}
0x16d74…16d7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0010}
0x16d7e…16d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x001a}
0x16d88…16dca               Head {h00=0x003e, h01=0x0050, text=»*    ENTRY TO ODLRST IS MADE WHEN OPERATION IS COMPLETED. «, t00=0x00ea, t01=0x0024}
0x16dca…16df4               Head {h00=0x0026, h01=0x0050, text=»*      REGISTER CONTENTS ON ENTRY:«, t00=0x00ea, t01=0x0066}
0x16df4…16e14               Head {h00=0x001c, h01=0x0050, text=»* A2  = FATAL PLC STATUS«, t00=0x00ea, t01=0x0090}
0x16e14…16e30               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00ea, t01=0x00b0}
0x16e30…16e60               Head {h00=0x002c, h01=0x0050, text=»* A6  = WORK STATION NUMBER (DLS INDEX) «, t00=0x00ea, t01=0x00cc}
0x16e60…16e6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00fc}
0x16e6a…16e7e               Head {h00=0x0010, h01=0x0050, text=»ODLRST EQU *«, t00=0x00ea, t01=0x0106}
0x16e7e…16e9e               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 FATAL ERROR? «, t00=0x00ea, t01=0x011a}
0x16e9e…16ebe               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) STERR2 YES, EXIT«, t00=0x00ea, t01=0x013a}
0x16ebe…16ef2               Head {h00=0x0030, h01=0x0050, text=» LD* A3,CWTINT,A5 WORK STATION TABLE ADDRESS«, t00=0x00ea, t01=0x015a}
0x16ef2…16f1a               Head {h00=0x0024, h01=0x0050, text=» LDK A4,RETCP FLAG "TC POWER UP"«, t00=0x00ea, t01=0x018e}
0x16f1a…16f4c               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDREWS RECOVERY OF ALL DWT:S ON WS«, t00=0x00eb, t01=0x0026}
0x16f4c…16f74               Head {h00=0x0024, h01=0x0050, text=» RB ST160 TAKE NEXT WORK STATION«, t00=0x00eb, t01=0x0058}
0x16f74…16f7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0080}
0x16f7e…16f88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x008a}
0x16f88…16f9c               Head {h00=0x0010, h01=0x0050, text=»ST180 EQU * «, t00=0x00eb, t01=0x0094}
0x16f9c…16fca               Head {h00=0x002a, h01=0x0050, text=»*    ALL DATA LINKS ARE STARTED. EXIT.«, t00=0x00eb, t01=0x00a8}
0x16fca…16fee               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00eb, t01=0x00d6}
0x16fee…16ff8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x00fa}
0x16ff8…17002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0104}
0x17002…17016               Head {h00=0x0010, h01=0x0050, text=»STERR2 EQU *«, t00=0x00eb, t01=0x010e}
0x17016…1703e               Head {h00=0x0024, h01=0x0050, text=»*    ERROR DURING STARTUP. EXIT.«, t00=0x00eb, t01=0x0122}
0x1703e…17048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x014a}
0x17048…17060               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00eb, t01=0x0154}
0x17060…1706a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x016c}
0x1706a…17078               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00eb, t01=0x0176}
0x17078…17082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0184}
0x17082…1709e               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x00eb, t01=0x018e}
0x1709e…170ba               Head {h00=0x0018, h01=0x0050, text=»* LOCAL DISPATCHER *«, t00=0x00ec, t01=0x001a}
0x170ba…170d6               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x00ec, t01=0x0036}
0x170d6…170e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0052}
0x170e0…17122               Head {h00=0x003e, h01=0x0050, text=»*   THIS SECTION CONTAINS A DISPATCHER FOR THE PLC DRIVER.«, t00=0x00ec, t01=0x005c}
0x17122…17162               Head {h00=0x003c, h01=0x0050, text=»*   IT CAN BE CALLED EITHER FROM ANOTHER ROUTINE IN THE «, t00=0x00ec, t01=0x009e}
0x17162…171a4               Head {h00=0x003e, h01=0x0050, text=»*   PLC DRIVER, OR FROM A TERMINAL DEVICE DRIVER (THROUGH «, t00=0x00ec, t01=0x00de}
0x171a4…171ca               Head {h00=0x0022, h01=0x0050, text=»*   THE NETWORK DISTRIBUTOR). «, t00=0x00ec, t01=0x0120}
0x171ca…17208               Head {h00=0x003a, h01=0x0050, text=»*   SOME INTERRUPTS OR DEVICE DRIVER CALLS SET SEVERAL«, t00=0x00ec, t01=0x0146}
0x17208…17244               Head {h00=0x0038, h01=0x0050, text=»*   RESOURCES FREE. THIS MEANS THAT SEVERAL WAITING «, t00=0x00ec, t01=0x0184}
0x17244…17284               Head {h00=0x003c, h01=0x0050, text=»*   PROCERSSES MAY BECOME READY FOR ACTIVATION. ONLY ONE«, t00=0x00ed, t01=0x0030}
0x17284…172c2               Head {h00=0x003a, h01=0x0050, text=»*   OF THESE PROCESSES CAN BE ACTIVATED DIRECTLY. THE «, t00=0x00ed, t01=0x0070}
0x172c2…17304               Head {h00=0x003e, h01=0x0050, text=»*   OTHER PROCESSES WILL BE ACTIVATED IN TURN, WHEN FIRST «, t00=0x00ed, t01=0x00ae}
0x17304…17332               Head {h00=0x002a, h01=0x0050, text=»*   PROCESS EXITS TO THIS DISPATCHER. «, t00=0x00ed, t01=0x00f0}
0x17332…1733c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x011e}
0x1733c…17346               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0128}
0x17346…1737a               Head {h00=0x0030, h01=0x0050, text=»*   ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x00ed, t01=0x0132}
0x1737a…17384               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0166}
0x17384…1739c               Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x00ed, t01=0x0170}
0x1739c…173a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0188}
0x173a6…173e2 (238, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* PLDISP ACTIVATE PROCESS OR PERFORM COMMON FUNCTION«, t00=0x00ee, t01=0x0004}
0x173e2…173ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0040}
0x173ec…173fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ee, t01=0x004a}
0x173fa…17404               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0058}
0x17404…17448               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00ee, t01=0x0062}
0x17448…17452               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x00a6}
0x17452…1746a               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00ee, t01=0x00b0}
0x1746a…1747a               Head {h00=0x000c, h01=0x0050, text=»* PLDISP«, t00=0x00ee, t01=0x00c8}
0x1747a…17484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x00d8}
0x17484…17498               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00ee, t01=0x00e2}
0x17498…174d4               Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE LOOKS FOR WAITING PROCESSES THAT ARE «, t00=0x00ee, t01=0x00f6}
0x174d4…1750c               Head {h00=0x0034, h01=0x0050, text=»* READY FOR DISPATCHING. IF ANY IS FOUND, IT IS «, t00=0x00ee, t01=0x0132}
0x1750c…17548               Head {h00=0x0038, h01=0x0050, text=»* ACTIVATED. THE ROUTINE ALSO PERFORMS ACTIONS THAT «, t00=0x00ee, t01=0x016a}
0x17548…17584               Head {h00=0x0038, h01=0x0050, text=»* ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG«, t00=0x00ef, t01=0x0016}
0x17584…175c4               Head {h00=0x003c, h01=0x0050, text=»* GENERAL READ. WHEN NOTHING IS LEFT TO DO, THE ROUTINE «, t00=0x00ef, t01=0x0052}
0x175c4…175e8               Head {h00=0x0020, h01=0x0050, text=»* EXITS TO TOSS DISPATCHER. «, t00=0x00ef, t01=0x0092}
0x175e8…17624               Head {h00=0x0038, h01=0x0050, text=»* TWO ENTRIES ARE PROVIDED. ONE IS USED WHEN CALLER «, t00=0x00ef, t01=0x00b6}
0x17624…1765e               Head {h00=0x0036, h01=0x0050, text=»* KNOWS OWN DWT ADDRESS, ONE WHEN CALLER KNOWS OWN«, t00=0x00ef, t01=0x00f2}
0x1765e…17674               Head {h00=0x0012, h01=0x0050, text=»* CWT ADDRESS.«, t00=0x00ef, t01=0x012c}
0x17674…1767e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0142}
0x1767e…1768e               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00ef, t01=0x014c}
0x1768e…176a2               Head {h00=0x0010, h01=0x0050, text=»* ABL PLDISP«, t00=0x00ef, t01=0x015c}
0x176a2…176b6               Head {h00=0x0010, h01=0x0050, text=»* ABL PLDSP2«, t00=0x00ef, t01=0x0170}
0x176b6…176c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0184}
0x176c0…176d0               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00ef, t01=0x018e}
0x176d0…176f8               Head {h00=0x0024, h01=0x0050, text=»* A5  = CWT ADDRESS (IF PLDSP2) «, t00=0x00f0, t01=0x000e}
0x176f8…17720               Head {h00=0x0024, h01=0x0050, text=»* A6  = DWT ADDRESS (IF PLDISP) «, t00=0x00f0, t01=0x0036}
0x17720…1773c               Head {h00=0x0018, h01=0x0050, text=»* A1-A8 ON A15 STACK«, t00=0x00f0, t01=0x005e}
0x1773c…17746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x007a}
0x17746…17758               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00f0, t01=0x0084}
0x17758…17764               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00f0, t01=0x0096}
0x17764…1776e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00a2}
0x1776e…177b2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00f0, t01=0x00ac}
0x177b2…177bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00f0}
0x177bc…177d0               Head {h00=0x0010, h01=0x0050, text=»PLDISP EQU *«, t00=0x00f0, t01=0x00fa}
0x177d0…177e4               Head {h00=0x0010, h01=0x0050, text=»PRDISP EQU *«, t00=0x00f0, t01=0x010e}
0x177e4…1780c               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x00f0, t01=0x0122}
0x1780c…1781e               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x00f0, t01=0x014a}
0x1781e…17846               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) TDISP NOT DEFINED. EXIT «, t00=0x00f0, t01=0x015c}
0x17846…17850               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0184}
0x17850…1785a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x018e}
0x1785a…1786e               Head {h00=0x0010, h01=0x0050, text=»PLDSP2 EQU *«, t00=0x00f1, t01=0x0008}
0x1786e…17878               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x001c}
0x17878…17882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0026}
0x17882…17896               Head {h00=0x0010, h01=0x0050, text=»DP100 EQU * «, t00=0x00f1, t01=0x0030}
0x17896…178a2               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x00f1, t01=0x0044}
0x178a2…178c6               Head {h00=0x0020, h01=0x0050, text=»*    HANDLE CHARACTER INPUT «, t00=0x00f1, t01=0x0050}
0x178c6…178f4               Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTBUF,A5 INPUT BUFFER WAITING?«, t00=0x00f1, t01=0x0074}
0x178f4…17916               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DP200 NO, CONTINUE «, t00=0x00f1, t01=0x00a2}
0x17916…1793a               Head {h00=0x0020, h01=0x0050, text=» LD A6,BUFDWT,A4 DWT ADDRESS«, t00=0x00f1, t01=0x00c4}
0x1793a…17944               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x00e8}
0x17944…1796a               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLGECH A2 := CHARACTER«, t00=0x00f1, t01=0x00f2}
0x1796a…1798e               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 CHECK RETURN CODE«, t00=0x00f1, t01=0x0118}
0x1798e…179b0               Head {h00=0x001e, h01=0x0050, text=» RF(N) DP110 BUFFER EMPTY «, t00=0x00f1, t01=0x013c}
0x179b0…179d6               Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTST,A6 DEVICE STATUS «, t00=0x00f1, t01=0x015e}
0x179d6…179fe               Head {h00=0x0024, h01=0x0050, text=» ANK A3,DWFINP INPUT REQUESTED? «, t00=0x00f1, t01=0x0184}
0x179fe…17a32               Head {h00=0x0030, h01=0x0050, text=» ABL(NZ) INPRST YES, RETURN TO DEVICE DRIVER«, t00=0x00f2, t01=0x001c}
0x17a32…17a3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0050}
0x17a3c…17a62               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS BLOCK«, t00=0x00f2, t01=0x005a}
0x17a62…17a94               Head {h00=0x002e, h01=0x0050, text=» LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? «, t00=0x00f2, t01=0x0080}
0x17a94…17ac4               Head {h00=0x002c, h01=0x0050, text=» ABR(NZ) A1 YES, GO TO INTERRUPT HANDLER«, t00=0x00f2, t01=0x00b2}
0x17ac4…17ace               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x00e2}
0x17ace…17ae2               Head {h00=0x0010, h01=0x0050, text=»DP110 EQU * «, t00=0x00f2, t01=0x00ec}
0x17ae2…17b16               Head {h00=0x0030, h01=0x0050, text=» CW A4,DWTLD1,A6 BUFFER CHAINED TO THIS DWT?«, t00=0x00f2, t01=0x0100}
0x17b16…17b38               Head {h00=0x001e, h01=0x0050, text=» RF(NE) DP120 NO, CONTINUE«, t00=0x00f2, t01=0x0134}
0x17b38…17b5a               Head {h00=0x001e, h01=0x0050, text=» CM DWTLD1,A6 REMOVE LINK «, t00=0x00f2, t01=0x0156}
0x17b5a…17b6e               Head {h00=0x0010, h01=0x0050, text=»DP120 EQU * «, t00=0x00f2, t01=0x0178}
0x17b6e…17b96               Head {h00=0x0024, h01=0x0050, text=» CM CWTBUF,A5 NO BUFFER WAITING «, t00=0x00f2, t01=0x018c}
0x17b96…17bbc               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLRLBU RELEASE BUFFER «, t00=0x00f3, t01=0x0024}
0x17bbc…17bc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x004a}
0x17bc6…17c02               Head {h00=0x0038, h01=0x0050, text=»*      CHECK IF LEVEL 3 RECIEVE READY SHOULD BE SENT«, t00=0x00f3, t01=0x0054}
0x17c02…17c36               Head {h00=0x0030, h01=0x0050, text=» CF A15,GETIFR A2 := NR OF FRAMES NOT ACK:ED«, t00=0x00f3, t01=0x0090}
0x17c36…17c58               Head {h00=0x001e, h01=0x0050, text=» SUK A2,6 TIME TO SEND RR?«, t00=0x00f3, t01=0x00c4}
0x17c58…17c74               Head {h00=0x0018, h01=0x0050, text=» ABL(NN) SENDRR YES «, t00=0x00f3, t01=0x00e6}
0x17c74…17c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x0102}
0x17c7e…17c88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x010c}
0x17c88…17c9c               Head {h00=0x0010, h01=0x0050, text=»DP200 EQU * «, t00=0x00f3, t01=0x0116}
0x17c9c…17ca8               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x00f3, t01=0x012a}
0x17ca8…17ccc               Head {h00=0x0020, h01=0x0050, text=»*    HANDLE POWER UP FOR TC «, t00=0x00f3, t01=0x0136}
0x17ccc…17cf8               Head {h00=0x0028, h01=0x0050, text=» LD A1,PFPOST POWER UP TASK PENDING?«, t00=0x00f3, t01=0x015a}
0x17cf8…17d24               Head {h00=0x0028, h01=0x0050, text=» OR A1,PLCPFP PLC POWER UP PENDING? «, t00=0x00f3, t01=0x0186}
0x17d24…17d44               Head {h00=0x001c, h01=0x0050, text=» ABL(NZ) TDISP YES, EXIT«, t00=0x00f4, t01=0x0022}
0x17d44…17d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x0042}
0x17d4e…17d58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x004c}
0x17d58…17d6c               Head {h00=0x0010, h01=0x0050, text=»DP300 EQU * «, t00=0x00f4, t01=0x0056}
0x17d6c…17d9a               Head {h00=0x002a, h01=0x0050, text=»*    HANDLE ABORT OF ONE WORK STATION «, t00=0x00f4, t01=0x006a}
0x17d9a…17dc6               Head {h00=0x0028, h01=0x0050, text=» LD A6,CWTABW,A5 WS TO ABORT, IF ANY«, t00=0x00f4, t01=0x0098}
0x17dc6…17df4               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) ABTHAN DO ABORT, IF REQUESTED«, t00=0x00f4, t01=0x00c4}
0x17df4…17dfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x00f2}
0x17dfe…17e08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x00fc}
0x17e08…17e1c               Head {h00=0x0010, h01=0x0050, text=»DP400 EQU * «, t00=0x00f4, t01=0x0106}
0x17e1c…17e48               Head {h00=0x0028, h01=0x0050, text=»*    CHECK IF ANYONE WAITING FOR CCA«, t00=0x00f4, t01=0x011a}
0x17e48…17e76               Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTCCQ,A5 ANYONE IN CCA QUEUE? «, t00=0x00f4, t01=0x0146}
0x17e76…17e98               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DP500 NO, CONTINUE «, t00=0x00f4, t01=0x0174}
0x17e98…17eba               Head {h00=0x001e, h01=0x0050, text=» LD A1,CWTCCB,A5 CCA FREE?«, t00=0x00f5, t01=0x0008}
0x17eba…17edc               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DP500 NO, CONTINUE«, t00=0x00f5, t01=0x002a}
0x17edc…17efe               Head {h00=0x001e, h01=0x0050, text=» IM CWTCCB,A5 SET CCA BUSY«, t00=0x00f5, t01=0x004c}
0x17efe…17f2a               Head {h00=0x0028, h01=0x0050, text=» ABL CCARST ACTIVATE WAITING PROCESS«, t00=0x00f5, t01=0x006e}
0x17f2a…17f34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x009a}
0x17f34…17f3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x00a4}
0x17f3e…17f52               Head {h00=0x0010, h01=0x0050, text=»DP500 EQU * «, t00=0x00f5, t01=0x00ae}
0x17f52…17f72               Head {h00=0x001c, h01=0x0050, text=»*    CHECK BUFFER QUEUES«, t00=0x00f5, t01=0x00c2}
0x17f72…17faa               Head {h00=0x0034, h01=0x0050, text=» LD A6,CWTSBQ,A5 ANYONE IN SHORT BUFFERS QUEUE? «, t00=0x00f5, t01=0x00e2}
0x17faa…17fce               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DP510 NO, CHECK LONG «, t00=0x00f5, t01=0x011a}
0x17fce…17fec               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00f5, t01=0x013e}
0x17fec…1801e               Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS«, t00=0x00f5, t01=0x015c}
0x1801e…1804a               Head {h00=0x0028, h01=0x0050, text=» CF A15,PLGTBU A4 := BUFFER ADDRESS «, t00=0x00f5, t01=0x018e}
0x1804a…18072               Head {h00=0x0024, h01=0x0050, text=» RF(Z) DP510 NO BUFFER AVAILABLE«, t00=0x00f6, t01=0x002a}
0x18072…180a2               Head {h00=0x002c, h01=0x0050, text=» LDK A7,CWTSBQ OFFSET TO CWT QUEUE HEAD «, t00=0x00f6, t01=0x0052}
0x180a2…180ce               Head {h00=0x0028, h01=0x0050, text=» RF DP520 COMMON PART FOR SHORT/LONG«, t00=0x00f6, t01=0x0082}
0x180ce…180d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x00ae}
0x180d8…180ec               Head {h00=0x0010, h01=0x0050, text=»DP510 EQU * «, t00=0x00f6, t01=0x00b8}
0x180ec…18122               Head {h00=0x0032, h01=0x0050, text=» LD A6,CWTLBQ,A5 ANYONE IN LONG BUFFERS QUEUE?«, t00=0x00f6, t01=0x00cc}
0x18122…18144               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DP600 NO, CONTINUE «, t00=0x00f6, t01=0x0102}
0x18144…18162               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00f6, t01=0x0124}
0x18162…18194               Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS «, t00=0x00f6, t01=0x0142}
0x18194…181c0               Head {h00=0x0028, h01=0x0050, text=» CF A15,PLGTBU A4 := BUFFER ADDRESS «, t00=0x00f6, t01=0x0174}
0x181c0…181f4               Head {h00=0x0030, h01=0x0050, text=» RF(Z) DP600 CONTINUE IF NO BUFFER AVAILABLE«, t00=0x00f7, t01=0x0010}
0x181f4…1822c               Head {h00=0x0034, h01=0x0050, text=» LDK A7,CWTLBQ OFFSET TO LONG BUFFERS QUEUE HEAD«, t00=0x00f7, t01=0x0044}
0x1822c…18236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x007c}
0x18236…1824a               Head {h00=0x0010, h01=0x0050, text=»DP520 EQU * «, t00=0x00f7, t01=0x0086}
0x1824a…18274               Head {h00=0x0026, h01=0x0050, text=»*      SHORT OR LONG BUFFER FOUND «, t00=0x00f7, t01=0x009a}
0x18274…1829a               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS«, t00=0x00f7, t01=0x00c4}
0x1829a…182bc               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 DWT QUEUE LINK «, t00=0x00f7, t01=0x00ea}
0x182bc…182e0               Head {h00=0x0020, h01=0x0050, text=» ADR A7,A5 BUFFER QUEUE HEAD«, t00=0x00f7, t01=0x010c}
0x182e0…18308               Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00f7, t01=0x0130}
0x18308…18332               Head {h00=0x0026, h01=0x0050, text=» SUKL A6,DWTOTQ A6 := DWT ADDRESS «, t00=0x00f7, t01=0x0158}
0x18332…1835c               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A2 RESTORE BUFFER ADDRESS «, t00=0x00f7, t01=0x0182}
0x1835c…1837c               Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 RET CODE := OK«, t00=0x00f8, t01=0x001c}
0x1837c…183aa               Head {h00=0x002a, h01=0x0050, text=» ABL BUFRST RETURN TO ROUTINE WAITING «, t00=0x00f8, t01=0x003c}
0x183aa…183b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x006a}
0x183b4…183be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0074}
0x183be…183d2               Head {h00=0x0010, h01=0x0050, text=»DP600 EQU * «, t00=0x00f8, t01=0x007e}
0x183d2…18408               Head {h00=0x0032, h01=0x0050, text=»*    CHECK IF GENERAL READ SHOULD BE PERFORMED«, t00=0x00f8, t01=0x0092}
0x18408…18436               Head {h00=0x002a, h01=0x0050, text=» LD A1,CWTGR,A5 GENERAL READ ALLOWED? «, t00=0x00f8, t01=0x00c8}
0x18436…18454               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) DP800 NO, EXIT«, t00=0x00f8, t01=0x00f6}
0x18454…1845e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0114}
0x1845e…1847c               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00f8, t01=0x011e}
0x1847c…184b6               Head {h00=0x0036, h01=0x0050, text=» ADK A7,CWTPBG POOLBLOCK FOR GENERAL READ BUFFERS «, t00=0x00f8, t01=0x013c}
0x184b6…184e2               Head {h00=0x0028, h01=0x0050, text=» CF A15,PLGTBU A4 := BUFFER ADDRESS «, t00=0x00f8, t01=0x0176}
0x184e2…18514               Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) GREAD PERFORM GR IF BUFFER FOUND «, t00=0x00f9, t01=0x0012}
0x18514…1851e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0044}
0x1851e…18528               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x004e}
0x18528…1853c               Head {h00=0x0010, h01=0x0050, text=»DP800 EQU * «, t00=0x00f9, t01=0x0058}
0x1853c…18570               Head {h00=0x0030, h01=0x0050, text=»*    NOTHING MORE TO DO. EXIT TO DISPATCHER «, t00=0x00f9, t01=0x006c}
0x18570…18592               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP TOSS DISPATCHER«, t00=0x00f9, t01=0x00a0}
0x18592…1859c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00c2}
0x1859c…185aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f9, t01=0x00cc}
0x185aa…185b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00da}
0x185b4…185c8               Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x00f9, t01=0x00e4}
0x185c8…185dc               Head {h00=0x0010, h01=0x0050, text=»* ROUTINES *«, t00=0x00f9, t01=0x00f8}
0x185dc…185f0               Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x00f9, t01=0x010c}
0x185f0…185fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0120}
0x185fa…1863c               Head {h00=0x003e, h01=0x0050, text=»*   THIS SECTION CONTAINS MISCELLANEOUS SERVICE ROUTINES. «, t00=0x00f9, t01=0x012a}
0x1863c…18682               Head {h00=0x0042, h01=0x0050, text=»*   ALL ROUTINES ARE CALLED BY AN   ABL   "NAME" INSTRUCTION. «, t00=0x00f9, t01=0x016c}
0x18682…186c0               Head {h00=0x003a, h01=0x0050, text=»*   REGISTER INTERFACE IS DESCRIBED FOR EACH ROUTINE. «, t00=0x00fa, t01=0x0022}
0x186c0…18700               Head {h00=0x003c, h01=0x0050, text=»*   WHEN A ROUTINE HAS PERFORMED THE REQUESTED FUNCTION,«, t00=0x00fa, t01=0x0060}
0x18700…18732               Head {h00=0x002e, h01=0x0050, text=»*   IT WILL EXIT TO THE LOCAL DISPATCHER. «, t00=0x00fa, t01=0x00a0}
0x18732…1873c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00d2}
0x1873c…18770               Head {h00=0x0030, h01=0x0050, text=»*   ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x00fa, t01=0x00dc}
0x18770…1877a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0110}
0x1877a…18792               Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x00fa, t01=0x011a}
0x18792…1879c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0132}
0x1879c…187d6               Head {h00=0x0036, h01=0x0050, text=»* ABTHAN ABORT ALL WAITING DWT:S ON A WORK STATION«, t00=0x00fa, t01=0x013c}
0x187d6…1880a               Head {h00=0x0030, h01=0x0050, text=»* PLREWS HANDLE RECOVERY OF ONE WORK STATION«, t00=0x00fa, t01=0x0176}
0x1880a…1883e               Head {h00=0x0030, h01=0x0050, text=»* SENDRR SEND LEVEL 3 RECIEVE READY MESSAGE «, t00=0x00fb, t01=0x001a}
0x1883e…18862               Head {h00=0x0020, h01=0x0050, text=»* GREAD PERFORM GENERAL READ«, t00=0x00fb, t01=0x004e}
0x18862…1886c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0072}
0x1886c…1887a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x007c}
0x1887a…18884               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x008a}
0x18884…188c8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00fb, t01=0x0094}
0x188c8…188d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x00d8}
0x188d2…188ea               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00fb, t01=0x00e2}
0x188ea…188fa               Head {h00=0x000c, h01=0x0050, text=»* ABTHAN«, t00=0x00fb, t01=0x00fa}
0x188fa…18904               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x010a}
0x18904…18918               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00fb, t01=0x0114}
0x18918…1894e               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE WILL HANDLE ABORTS FOR ONE WORK«, t00=0x00fb, t01=0x0128}
0x1894e…18982               Head {h00=0x0030, h01=0x0050, text=»* STATION. ALL REQUESTS OF DWT:S WAITING FOR«, t00=0x00fb, t01=0x015e}
0x18982…189ba (252, 0, 398) Head {h00=0x0034, h01=0x0050, text=»* LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES«, t00=0x00fc, t01=0x0004}
0x189ba…189f0               Head {h00=0x0032, h01=0x0050, text=»* WILL BE ABORTED. ONE CALL IS NEEDED FOR EACH«, t00=0x00fc, t01=0x003c}
0x189f0…18a10               Head {h00=0x001c, h01=0x0050, text=»* REQUEST TO BE ABORTED.«, t00=0x00fc, t01=0x0072}
0x18a10…18a1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x0092}
0x18a1a…18a2a               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00fc, t01=0x009c}
0x18a2a…18a3e               Head {h00=0x0010, h01=0x0050, text=»* ABL ABTHAN«, t00=0x00fc, t01=0x00ac}
0x18a3e…18a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x00c0}
0x18a48…18a58               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00fc, t01=0x00ca}
0x18a58…18a74               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00fc, t01=0x00da}
0x18a74…18a98               Head {h00=0x0020, h01=0x0050, text=»* A6  = WORK STATION NUMBER «, t00=0x00fc, t01=0x00f6}
0x18a98…18aa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x011a}
0x18aa2…18ab4               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00fc, t01=0x0124}
0x18ab4…18ad8               Head {h00=0x0020, h01=0x0050, text=»*      AT RETURN TO REQUEST:«, t00=0x00fc, t01=0x0136}
0x18ad8…18af4               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x00fc, t01=0x015a}
0x18af4…18b10               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x00fc, t01=0x0176}
0x18b10…18b2c (253, 0, 398) Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x00fd, t01=0x0004}
0x18b2c…18b36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0020}
0x18b36…18b7a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00fd, t01=0x002a}
0x18b7a…18b84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x006e}
0x18b84…18b98               Head {h00=0x0010, h01=0x0050, text=»ABTHAN EQU *«, t00=0x00fd, t01=0x0078}
0x18b98…18bbe               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 WORK STATION NUMBER«, t00=0x00fd, t01=0x008c}
0x18bbe…18bda               Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x00fd, t01=0x00b2}
0x18bda…18bfc               Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x00fd, t01=0x00ce}
0x18bfc…18c32               Head {h00=0x0032, h01=0x0050, text=» ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS «, t00=0x00fd, t01=0x00f0}
0x18c32…18c3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0126}
0x18c3c…18c4a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x0130}
0x18c4a…18c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x013e}
0x18c54…18c76               Head {h00=0x001e, h01=0x0050, text=» LDR A8,A6 SAVE WS NUMBER «, t00=0x00fd, t01=0x0148}
0x18c76…18ca2               Head {h00=0x0028, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE«, t00=0x00fd, t01=0x016a}
0x18ca2…18cd2               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDGEDN A7 := HIGEST DWT NR ON WS«, t00=0x00fe, t01=0x0008}
0x18cd2…18ce4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00fe, t01=0x0038}
0x18ce4…18d0a               Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 WORK STATION STATUS«, t00=0x00fe, t01=0x004a}
0x18d0a…18d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0070}
0x18d14…18d36               Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 PREPARE FOR SUK «, t00=0x00fe, t01=0x007a}
0x18d36…18d4a               Head {h00=0x0010, h01=0x0050, text=»AH100 EQU * «, t00=0x00fe, t01=0x009c}
0x18d4a…18d64               Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 NEXT DWT«, t00=0x00fe, t01=0x00b0}
0x18d64…18d8a               Head {h00=0x0022, h01=0x0050, text=» RF(N) AH110 EXIT IF ALL DONE «, t00=0x00fe, t01=0x00ca}
0x18d8a…18da6               Head {h00=0x0018, h01=0x0050, text=» LDR A6,A8 WS NUMBER«, t00=0x00fe, t01=0x00f0}
0x18da6…18dce               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00fe, t01=0x010c}
0x18dce…18dee               Head {h00=0x001c, h01=0x0050, text=» RB(Z) AH100 NOT DEFINED«, t00=0x00fe, t01=0x0134}
0x18dee…18df8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0154}
0x18df8…18e20               Head {h00=0x0024, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL«, t00=0x00fe, t01=0x015e}
0x18e20…18e42               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x00fe, t01=0x0186}
0x18e42…18e54               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00ff, t01=0x0018}
0x18e54…18e84               Head {h00=0x002c, h01=0x0050, text=» LDKL A4,/FFFF-DWFPLC MASK FOR PLC FLAGS«, t00=0x00ff, t01=0x002a}
0x18e84…18ea8               Head {h00=0x0020, h01=0x0050, text=» ANS A4,DWTST,A6 RESET FLAGS«, t00=0x00ff, t01=0x005a}
0x18ea8…18ede               Head {h00=0x0032, h01=0x0050, text=» ANK A2,DWFAK3 IS DWT WAITING FOR LEVEL 3 ACK?«, t00=0x00ff, t01=0x007e}
0x18ede…18f00               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AH105 NO, CONTINUE «, t00=0x00ff, t01=0x00b4}
0x18f00…18f34               Head {h00=0x0030, h01=0x0050, text=» ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x00ff, t01=0x00d6}
0x18f34…18f62               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) AK3RST YES, RETURN WITH ACK 3«, t00=0x00ff, t01=0x010a}
0x18f62…18f90               Head {h00=0x002a, h01=0x0050, text=» ABL WINRST NO, RETURN TO WINDOW QUEUE«, t00=0x00ff, t01=0x0138}
0x18f90…18f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0166}
0x18f9a…18fae               Head {h00=0x0010, h01=0x0050, text=»AH105 EQU * «, t00=0x00ff, t01=0x0170}
0x18fae…18fe0               Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTOTQ,A6 CCA QUEUE ELEMENT POINTER«, t00=0x00ff, t01=0x0184}
0x18fe0…19006               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 SAVE DEVICE ADDRESS«, t00=0x0100, t01=0x0026}
0x19006…1902a               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE RETURN CODE «, t00=0x0100, t01=0x004c}
0x1902a…19048               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0100, t01=0x0070}
0x19048…1906e               Head {h00=0x0022, h01=0x0050, text=» ADK A7,CWTCCQ CCA QUEUE HEAD «, t00=0x0100, t01=0x008e}
0x1906e…190a4               Head {h00=0x0032, h01=0x0050, text=» CF A15,LNKOUT LINK MONITOR BLOCK OUT OF QUEUE«, t00=0x0100, t01=0x00b4}
0x190a4…190be               Head {h00=0x0016, h01=0x0050, text=» LDR A7,A7 FOUND? «, t00=0x0100, t01=0x00ea}
0x190be…190e8               Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) CCAABT YES, ABORT REQUEST«, t00=0x0100, t01=0x0104}
0x190e8…19112               Head {h00=0x0026, h01=0x0050, text=» LDR A7,A2 RESTORE DEVICE ADDRESS «, t00=0x0100, t01=0x012e}
0x19112…19138               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A3 RESTORE RETURN CODE«, t00=0x0100, t01=0x0158}
0x19138…19142               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x017e}
0x19142…19172               Head {h00=0x002c, h01=0x0050, text=» CF A15,OUTBUQ REMOVE FROM BUFFER QUEUE «, t00=0x0100, t01=0x0188}
0x19172…19194               Head {h00=0x001e, h01=0x0050, text=» LDR A2,A2 FOUND IN QUEUE?«, t00=0x0101, t01=0x0028}
0x19194…191c2               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) BUFRST YES, TERMINATE REQUEST«, t00=0x0101, t01=0x004a}
0x191c2…191dc               Head {h00=0x0016, h01=0x0050, text=» RB AH100 NEXT DWT«, t00=0x0101, t01=0x0078}
0x191dc…191e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0092}
0x191e6…191fa               Head {h00=0x0010, h01=0x0050, text=»AH110 EQU * «, t00=0x0101, t01=0x009c}
0x191fa…19240               Head {h00=0x0042, h01=0x0050, text=»*    ALL PROCESSES WAITING FOR ACK 3 OR IN QUEUES ARE ABORTED «, t00=0x0101, t01=0x00b0}
0x19240…19264               Head {h00=0x0020, h01=0x0050, text=» CM CWTABW,A5 NO MORE ABORT «, t00=0x0101, t01=0x00f6}
0x19264…19288               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0101, t01=0x011a}
0x19288…19292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x013e}
0x19292…192a0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0101, t01=0x0148}
0x192a0…192aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0156}
0x192aa…192ee               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0101, t01=0x0160}
0x192ee…192f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0014}
0x192f8…19310               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0102, t01=0x001e}
0x19310…19320               Head {h00=0x000c, h01=0x0050, text=»* PLREWS«, t00=0x0102, t01=0x0036}
0x19320…1932a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0046}
0x1932a…1933e               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0102, t01=0x0050}
0x1933e…19376               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE WILL HANDLE RECOVERY OF ONE WORK «, t00=0x0102, t01=0x0064}
0x19376…193ae               Head {h00=0x0034, h01=0x0050, text=»* STATION. ACTUAL CALL TO TERMINAL DEVICE DRIVER«, t00=0x0102, t01=0x009c}
0x193ae…193e2               Head {h00=0x0030, h01=0x0050, text=»* RECOVERY ROUTINES ARE MADE THROUGH NDREWS.«, t00=0x0102, t01=0x00d4}
0x193e2…193ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0108}
0x193ec…193fc               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0102, t01=0x0112}
0x193fc…19410               Head {h00=0x0010, h01=0x0050, text=»* ABL PLREWS«, t00=0x0102, t01=0x0122}
0x19410…1941a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0136}
0x1941a…1942a               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0102, t01=0x0140}
0x1942a…19446               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0102, t01=0x0150}
0x19446…1946a               Head {h00=0x0020, h01=0x0050, text=»* A6  = WORK STATION NUMBER «, t00=0x0102, t01=0x016c}
0x1946a…19474               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0190}
0x19474…19486               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0103, t01=0x000a}
0x19486…194b2               Head {h00=0x0028, h01=0x0050, text=»*      AT ENTRY TO DEVICE RECOVERY: «, t00=0x0103, t01=0x001c}
0x194b2…194c6               Head {h00=0x0010, h01=0x0050, text=»* SEE NDREWS«, t00=0x0103, t01=0x0048}
0x194c6…194d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x005c}
0x194d0…19514               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0103, t01=0x0066}
0x19514…1951e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x00aa}
0x1951e…19532               Head {h00=0x0010, h01=0x0050, text=»PLREWS EQU *«, t00=0x0103, t01=0x00b4}
0x19532…19558               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 WORK STATION NUMBER«, t00=0x0103, t01=0x00c8}
0x19558…19574               Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x0103, t01=0x00ee}
0x19574…19596               Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x0103, t01=0x010a}
0x19596…195cc               Head {h00=0x0032, h01=0x0050, text=» ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS «, t00=0x0103, t01=0x012c}
0x195cc…195d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x0162}
0x195d6…19608               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/FFFF-WSFERR MASK FOR ERROR FLAG «, t00=0x0103, t01=0x016c}
0x19608…1963c               Head {h00=0x0030, h01=0x0050, text=» ANRS A2,A3 INDICATE WS WORKING AFTER ERROR «, t00=0x0104, t01=0x000e}
0x1963c…19658               Head {h00=0x0018, h01=0x0050, text=» LCR A1,A3 WS STATUS«, t00=0x0104, t01=0x0042}
0x19658…1966a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0104, t01=0x005e}
0x1966a…1968a               Head {h00=0x001c, h01=0x0050, text=» SCR A2,A3 RESET STATUS «, t00=0x0104, t01=0x0070}
0x1968a…196ba               Head {h00=0x002c, h01=0x0050, text=» LDK A4,RESECP ASSUME SECONDARY POWER UP«, t00=0x0104, t01=0x0090}
0x196ba…196d8               Head {h00=0x001a, h01=0x0050, text=» ANK A1,NOTOPR WAS IT?«, t00=0x0104, t01=0x00c0}
0x196d8…196f2               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PR110 YES «, t00=0x0104, t01=0x00de}
0x196f2…19718               Head {h00=0x0022, h01=0x0050, text=» LDK A4,RELINE NO, LINK ERROR «, t00=0x0104, t01=0x00f8}
0x19718…1972c               Head {h00=0x0010, h01=0x0050, text=»PR110 EQU * «, t00=0x0104, t01=0x011e}
0x1972c…19758               Head {h00=0x0028, h01=0x0050, text=» LD* A3,CWTINT,A5 WORK STATION TABLE«, t00=0x0104, t01=0x0132}
0x19758…19790               Head {h00=0x0034, h01=0x0050, text=» CF A15,NDREWS CALL RECOVERY FOR ALL DWT:S ON WS«, t00=0x0104, t01=0x015e}
0x19790…1979a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0008}
0x1979a…197be               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0105, t01=0x0012}
0x197be…197c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0036}
0x197c8…197d6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0105, t01=0x0040}
0x197d6…197e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x004e}
0x197e0…19824               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0105, t01=0x0058}
0x19824…1982e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x009c}
0x1982e…19846               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0105, t01=0x00a6}
0x19846…19856               Head {h00=0x000c, h01=0x0050, text=»* SENDRR«, t00=0x0105, t01=0x00be}
0x19856…19860               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x00ce}
0x19860…19874               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0105, t01=0x00d8}
0x19874…198ae               Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE WILL SEND ONE LEVEL 3 RECIEVE READY«, t00=0x0105, t01=0x00ec}
0x198ae…198d8               Head {h00=0x0026, h01=0x0050, text=»* MESSAGE TO A SECONDARY STATION. «, t00=0x0105, t01=0x0126}
0x198d8…198e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0150}
0x198e2…198f2               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0105, t01=0x015a}
0x198f2…19906               Head {h00=0x0010, h01=0x0050, text=»* ABL SENDRR«, t00=0x0105, t01=0x016a}
0x19906…19910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x017e}
0x19910…19920               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0105, t01=0x0188}
0x19920…1993c               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0106, t01=0x0008}
0x1993c…19958               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0106, t01=0x0024}
0x19958…19962               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0040}
0x19962…19974               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0106, t01=0x004a}
0x19974…19980               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x0106, t01=0x005c}
0x19980…1998a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0068}
0x1998a…199ce               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0106, t01=0x0072}
0x199ce…199d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00b6}
0x199d8…199ec               Head {h00=0x0010, h01=0x0050, text=»SENDRR EQU *«, t00=0x0106, t01=0x00c0}
0x199ec…19a0e               Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x0106, t01=0x00d4}
0x19a0e…19a40               Head {h00=0x002e, h01=0x0050, text=» CF A15,GETBLK GET MONITOR BLOCK AS BUFFER«, t00=0x0106, t01=0x00f6}
0x19a40…19a4c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0106, t01=0x0128}
0x19a4c…19a6a               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0106, t01=0x0134}
0x19a6a…19aa0               Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTMBQ QUEUE FOR KEEPING TRACK OF MB:S«, t00=0x0106, t01=0x0152}
0x19aa0…19ad2               Head {h00=0x002e, h01=0x0050, text=» CF A15,LNKFST PUT MONITOR BLOCK IN QUEUE «, t00=0x0106, t01=0x0188}
0x19ad2…19afc               Head {h00=0x0026, h01=0x0050, text=» ADK A4,2 A4 := START OF USER PART«, t00=0x0107, t01=0x002a}
0x19afc…19b36               Head {h00=0x0036, h01=0x0050, text=» CF A15,WRADR2 WRITE LINE ADDRESS IN CCA & BUFFER «, t00=0x0107, t01=0x0054}
0x19b36…19b66               Head {h00=0x002c, h01=0x0050, text=» LDK A2,CMDSW COMMAND := STANDARD WRITE «, t00=0x0107, t01=0x008e}
0x19b66…19b8c               Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRCMD,A5 TO CCA«, t00=0x0107, t01=0x00be}
0x19b8c…19bbe               Head {h00=0x002e, h01=0x0050, text=» LDK A2,TYRR MESSAGE TYPE := RECIEVE READY«, t00=0x0107, t01=0x00e4}
0x19bbe…19bee               Head {h00=0x002c, h01=0x0050, text=» SC A2,CWTCCA+CCRIDB,A5 TO CCA, IDENTITY«, t00=0x0107, t01=0x0116}
0x19bee…19c1a               Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT LENGTH OF X25 HEADER «, t00=0x0107, t01=0x0146}
0x19c1a…19c4e               Head {h00=0x0030, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA«, t00=0x0107, t01=0x0172}
0x19c4e…19c8e               Head {h00=0x003c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAIN & MSB BUFFER ADDR «, t00=0x0108, t01=0x0016}
0x19c8e…19cc4               Head {h00=0x0032, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDRESS TO CCA «, t00=0x0108, t01=0x0056}
0x19cc4…19cce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x008c}
0x19cce…19cf8               Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x0108, t01=0x0096}
0x19cf8…19d1c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) RR100 CONTINUE IF OK «, t00=0x0108, t01=0x00c0}
0x19d1c…19d3e               Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x0108, t01=0x00e4}
0x19d3e…19d58               Head {h00=0x0016, h01=0x0050, text=» RF RR110 SKIP RR «, t00=0x0108, t01=0x0106}
0x19d58…19d6c               Head {h00=0x0010, h01=0x0050, text=»RR100 EQU * «, t00=0x0108, t01=0x0120}
0x19d6c…19d9e               Head {h00=0x002e, h01=0x0050, text=» CF A15,FWOPR A2 := P(R). UPDATE FLOW CTRL«, t00=0x0108, t01=0x0134}
0x19d9e…19dc4               Head {h00=0x0022, h01=0x0050, text=» ORK A2,/01 MESSAGE TYPE := RR«, t00=0x0108, t01=0x0166}
0x19dc4…19de6               Head {h00=0x001e, h01=0x0050, text=» SC A2,X25FLW,A4 TO BUFFER«, t00=0x0108, t01=0x018c}
0x19de6…19e0e               Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x0109, t01=0x001e}
0x19e0e…19e2e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RR120 EXIT IF OK «, t00=0x0109, t01=0x0046}
0x19e2e…19e42               Head {h00=0x0010, h01=0x0050, text=»RR110 EQU * «, t00=0x0109, t01=0x0066}
0x19e42…19e72               Head {h00=0x002c, h01=0x0050, text=» SUK A4,2 START ADDRESS OF MONITOR BLOCK«, t00=0x0109, t01=0x007a}
0x19e72…19eaa               Head {h00=0x0034, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET«, t00=0x0109, t01=0x00aa}
0x19eaa…19ed6               Head {h00=0x0028, h01=0x0050, text=» CF A15,FREBLK RETURN MONITOR BLOCK «, t00=0x0109, t01=0x00e2}
0x19ed6…19ee0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x010e}
0x19ee0…19ef4               Head {h00=0x0010, h01=0x0050, text=»RR120 EQU * «, t00=0x0109, t01=0x0118}
0x19ef4…19f18               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0109, t01=0x012c}
0x19f18…19f22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0150}
0x19f22…19f30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x015a}
0x19f30…19f3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0168}
0x19f3a…19f7e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0109, t01=0x0172}
0x19f7e…19f88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0026}
0x19f88…19fa0               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x010a, t01=0x0030}
0x19fa0…19fb0               Head {h00=0x000c, h01=0x0050, text=»* GREAD «, t00=0x010a, t01=0x0048}
0x19fb0…19fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0058}
0x19fba…19fce               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x010a, t01=0x0062}
0x19fce…1a002               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE WILL PERFORM ONE GENERAL READ«, t00=0x010a, t01=0x0076}
0x1a002…1a022               Head {h00=0x001c, h01=0x0050, text=»* OPERATION TO THE PLC. «, t00=0x010a, t01=0x00aa}
0x1a022…1a02c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x00ca}
0x1a02c…1a03c               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x010a, t01=0x00d4}
0x1a03c…1a050               Head {h00=0x0010, h01=0x0050, text=»* ABL GREAD «, t00=0x010a, t01=0x00e4}
0x1a050…1a05a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x00f8}
0x1a05a…1a06a               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x010a, t01=0x0102}
0x1a06a…1a088               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x010a, t01=0x0112}
0x1a088…1a0a4               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x010a, t01=0x0130}
0x1a0a4…1a0ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x014c}
0x1a0ae…1a0c0               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x010a, t01=0x0156}
0x1a0c0…1a0cc               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x010a, t01=0x0168}
0x1a0cc…1a0d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0174}
0x1a0d6…1a11a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x010a, t01=0x017e}
0x1a11a…1a124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x0032}
0x1a124…1a138               Head {h00=0x0010, h01=0x0050, text=»GREAD EQU * «, t00=0x010b, t01=0x003c}
0x1a138…1a166               Head {h00=0x002a, h01=0x0050, text=» LDR A6,A4 PARAMETER := BUFFER ADDRESS«, t00=0x010b, t01=0x0050}
0x1a166…1a18c               Head {h00=0x0022, h01=0x0050, text=» CF A15,PLCCCA RESERVE PLC CCA«, t00=0x010b, t01=0x007e}
0x1a18c…1a1ae               Head {h00=0x001e, h01=0x0050, text=»*      SET CCA PARAMETERS «, t00=0x010b, t01=0x00a4}
0x1a1ae…1a1ea               Head {h00=0x0038, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 CLEAR DATA CHAINING & MSB ADDR «, t00=0x010b, t01=0x00c6}
0x1a1ea…1a218               Head {h00=0x002a, h01=0x0050, text=» ST A6,CWTCCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x010b, t01=0x0102}
0x1a218…1a23e               Head {h00=0x0022, h01=0x0050, text=» LD A2,BUFLEN,A6 BUFFER LENGTH«, t00=0x010b, t01=0x0130}
0x1a23e…1a25e               Head {h00=0x001c, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 «, t00=0x010b, t01=0x0156}
0x1a25e…1a288               Head {h00=0x0026, h01=0x0050, text=» LDK A2,CMDGR COMMAND GENERAL READ«, t00=0x010b, t01=0x0176}
0x1a288…1a2bc               Head {h00=0x0030, h01=0x0050, text=» ST A2,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND «, t00=0x010c, t01=0x0010}
0x1a2bc…1a2e4               Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x010c, t01=0x0044}
0x1a2e4…1a30e               Head {h00=0x0026, h01=0x0050, text=» ABL PLDSP2 CHECK WHAT TO DO NEXT «, t00=0x010c, t01=0x006c}
0x1a30e…1a318               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x0096}
0x1a318…1a326               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010c, t01=0x00a0}
0x1a326…1a330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x00ae}
0x1a330…1a348               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x010c, t01=0x00b8}
0x1a348…1a360               Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES * «, t00=0x010c, t01=0x00d0}
0x1a360…1a378               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x010c, t01=0x00e8}
0x1a378…1a382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x0100}
0x1a382…1a3c6               Head {h00=0x0040, h01=0x0050, text=»*   THIS SECTION CONTAINS MISCELLANEOUS SERVICE SUBROUTINES.«, t00=0x010c, t01=0x010a}
0x1a3c6…1a400               Head {h00=0x0036, h01=0x0050, text=»*   ALL ROUTINES ARE CALLED BY A   CF  A15,"NAME" «, t00=0x010c, t01=0x014e}
0x1a400…1a442               Head {h00=0x003e, h01=0x0050, text=»*   INSTRUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH «, t00=0x010c, t01=0x0188}
0x1a442…1a482               Head {h00=0x003c, h01=0x0050, text=»*   ROUTINE. ONLY REGISTERS A1-A8 & PSW ARE CONSIDERED. «, t00=0x010d, t01=0x003a}
0x1a482…1a4c2               Head {h00=0x003c, h01=0x0050, text=»*   REGISTERS NOT MENTIONED UNDER "OUTPUT" ARE UNCHANGED«, t00=0x010d, t01=0x007a}
0x1a4c2…1a4d8               Head {h00=0x0012, h01=0x0050, text=»*   FROM CALL.«, t00=0x010d, t01=0x00ba}
0x1a4d8…1a518               Head {h00=0x003c, h01=0x0050, text=»*   THE ROUTINES ARE OF TWO TYPES, ASYNCHRONOUS ROUTINES«, t00=0x010d, t01=0x00d0}
0x1a518…1a558               Head {h00=0x003c, h01=0x0050, text=»*   AND COMPUTATION ROUTINES. ASYNCHRONOUS ROUTINES MAY,«, t00=0x010d, t01=0x0110}
0x1a558…1a59a               Head {h00=0x003e, h01=0x0050, text=»*   IF THE REQUESTED FUNCTION IS OCCUPIED OR NOT USEABLE, «, t00=0x010d, t01=0x0150}
0x1a59a…1a5da (270, 0, 400) Head {h00=0x003c, h01=0x0050, text=»*   EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER.«, t00=0x010e, t01=0x0004}
0x1a5da…1a618               Head {h00=0x003a, h01=0x0050, text=»*   THIS MEANS THAT THE A15 STACK AT CALL MUST CONTAIN«, t00=0x010e, t01=0x0044}
0x1a618…1a65a               Head {h00=0x003e, h01=0x0050, text=»*   INTERRUPT RETURN, A1-A8 AND NOTHING ELSE. COMPUTATION «, t00=0x010e, t01=0x0082}
0x1a65a…1a69c               Head {h00=0x003e, h01=0x0050, text=»*   ROUTINES HAVE NO SUCH LIMITATIONS, AS THEY WILL RETURN«, t00=0x010e, t01=0x00c4}
0x1a69c…1a6dc               Head {h00=0x003c, h01=0x0050, text=»*   IMMEDIATELY WHEN THEY HAVE PERFORMED THE PROCESSING.«, t00=0x010e, t01=0x0106}
0x1a6dc…1a6e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0146}
0x1a6e6…1a6f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x0150}
0x1a6f4…1a6fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x015e}
0x1a6fe…1a732               Head {h00=0x0030, h01=0x0050, text=»*   ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x010e, t01=0x0168}
0x1a732…1a73c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x000c}
0x1a73c…1a754               Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x010f, t01=0x0016}
0x1a754…1a75e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x002e}
0x1a75e…1a782               Head {h00=0x0020, h01=0x0050, text=»*      ASYNCHRONOUS ROUTINES«, t00=0x010f, t01=0x0038}
0x1a782…1a7aa               Head {h00=0x0024, h01=0x0050, text=»* PLCCCA RESERVE CCA FOR PROCESS«, t00=0x010f, t01=0x005c}
0x1a7aa…1a7cc               Head {h00=0x001e, h01=0x0050, text=»* PLCCIO EXECUTE CIO START«, t00=0x010f, t01=0x0084}
0x1a7cc…1a7d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x00a6}
0x1a7d6…1a7fa               Head {h00=0x0020, h01=0x0050, text=»*      COMPUTATION ROUTINES «, t00=0x010f, t01=0x00b0}
0x1a7fa…1a830               Head {h00=0x0032, h01=0x0050, text=»* PLCNOP SET FLAG INDICATING PLC NOT OPERABLE «, t00=0x010f, t01=0x00d4}
0x1a830…1a856               Head {h00=0x0022, h01=0x0050, text=»* GETDWT CALCULATE DWT ADDRESS«, t00=0x010f, t01=0x010a}
0x1a856…1a87c               Head {h00=0x0022, h01=0x0050, text=»* GETCWT CALCULATE CWT ADDRESS«, t00=0x010f, t01=0x0130}
0x1a87c…1a8ac               Head {h00=0x002c, h01=0x0050, text=»* GETFR GET NUMBER OF OUTSTANDING FRAMES«, t00=0x010f, t01=0x0156}
0x1a8ac…1a8da               Head {h00=0x002a, h01=0x0050, text=»* FLWINP HANDLE FLOW CONTROL FOR INPUT«, t00=0x010f, t01=0x0186}
0x1a8da…1a90a               Head {h00=0x002c, h01=0x0050, text=»* FLWOUT HANDLE FLOW CONTROL FOR OUTPUT «, t00=0x0110, t01=0x0024}
0x1a90a…1a940               Head {h00=0x0032, h01=0x0050, text=»* WRADDR WRITE LINE ADDRESS IN CCA AND BUFFER «, t00=0x0110, t01=0x0054}
0x1a940…1a96a               Head {h00=0x0026, h01=0x0050, text=»* STAHAN PLC RETURN STATUS HANDLER«, t00=0x0110, t01=0x008a}
0x1a96a…1a998               Head {h00=0x002a, h01=0x0050, text=»* GETSTA GET STATUS FOR I/O CONNECTION«, t00=0x0110, t01=0x00b4}
0x1a998…1a9ce               Head {h00=0x0032, h01=0x0050, text=»* PLGTBU ALLOCATE BUFFER AND SET TO PLC FORMAT«, t00=0x0110, t01=0x00e2}
0x1a9ce…1a9fc               Head {h00=0x002a, h01=0x0050, text=»* PLRLBU RELEASE BUFFER OF PLC FORMAT «, t00=0x0110, t01=0x0118}
0x1a9fc…1aa38               Head {h00=0x0038, h01=0x0050, text=»* PLCHAR GET/PUT CHARACTER FROM/IN PLC FORMAT BUFFER«, t00=0x0110, t01=0x0146}
0x1aa38…1aa66               Head {h00=0x002a, h01=0x0050, text=»* INTYPE DECIDE TYPE OF INPUT MESSAGE «, t00=0x0110, t01=0x0182}
0x1aa66…1aa98               Head {h00=0x002e, h01=0x0050, text=»* OUTBUQ REMOVE ELEMENT FROM BUFFER QUEUE «, t00=0x0111, t01=0x0020}
0x1aa98…1aac4               Head {h00=0x0028, h01=0x0050, text=»* LNKFST LINK ELEMENT FIRST IN QUEUE«, t00=0x0111, t01=0x0052}
0x1aac4…1aaf0               Head {h00=0x0028, h01=0x0050, text=»* LNKLST LINK ELEMENT LAST IN QUEUE «, t00=0x0111, t01=0x007e}
0x1aaf0…1ab1a               Head {h00=0x0026, h01=0x0050, text=»* LNKOUT LINK ELEMENT OUT OF QUEUE«, t00=0x0111, t01=0x00aa}
0x1ab1a…1ab24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00d4}
0x1ab24…1ab32               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x00de}
0x1ab32…1ab3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00ec}
0x1ab3c…1ab80               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0111, t01=0x00f6}
0x1ab80…1ab8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x013a}
0x1ab8a…1aba2               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0111, t01=0x0144}
0x1aba2…1abb2               Head {h00=0x000c, h01=0x0050, text=»* PLCCCA«, t00=0x0111, t01=0x015c}
0x1abb2…1abbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x016c}
0x1abbc…1abd0               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0111, t01=0x0176}
0x1abd0…1ac08               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE IS CALLED WHEN A PROCESS WANTS TO«, t00=0x0111, t01=0x018a}
0x1ac08…1ac40               Head {h00=0x0034, h01=0x0050, text=»* USE THE PLC COMMAND COMMUNICATION AREA (CCA). «, t00=0x0112, t01=0x0032}
0x1ac40…1ac78               Head {h00=0x0034, h01=0x0050, text=»* IF THE AREA IS FREE, THE ROUTINE SETS IT BUSY «, t00=0x0112, t01=0x006a}
0x1ac78…1acb0               Head {h00=0x0034, h01=0x0050, text=»* AND RETURNS. IF THE AREA IS BUSY, THE CALLING «, t00=0x0112, t01=0x00a2}
0x1acb0…1ace8               Head {h00=0x0034, h01=0x0050, text=»* PROCESS IS PUT IN A QUEUE, AND EXIT IS MADE TO«, t00=0x0112, t01=0x00da}
0x1ace8…1ad08               Head {h00=0x001c, h01=0x0050, text=»* THE LOCAL DISPATCHER. «, t00=0x0112, t01=0x0112}
0x1ad08…1ad30               Head {h00=0x0024, h01=0x0050, text=»* PLCCCA ONLY RESERVES THE AREA.«, t00=0x0112, t01=0x0132}
0x1ad30…1ad66               Head {h00=0x0032, h01=0x0050, text=»* PLCCCS ALSO SAVES THE QUEUE ELEMENT ADDRESS.«, t00=0x0112, t01=0x015a}
0x1ad66…1ad70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0190}
0x1ad70…1ad80               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0113, t01=0x000a}
0x1ad80…1ad98               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCCCA «, t00=0x0113, t01=0x001a}
0x1ad98…1adb0               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCCCS «, t00=0x0113, t01=0x0032}
0x1adb0…1adba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x004a}
0x1adba…1adca               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0113, t01=0x0054}
0x1adca…1ae06               Head {h00=0x0038, h01=0x0050, text=»* A3  = QUEUE ELEMENT ADDRESS SAVE AREA (IF PLCCCS) «, t00=0x0113, t01=0x0064}
0x1ae06…1ae22               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0113, t01=0x00a0}
0x1ae22…1ae3c               Head {h00=0x0016, h01=0x0050, text=»* A6  = PARAMETER «, t00=0x0113, t01=0x00bc}
0x1ae3c…1ae58               Head {h00=0x0018, h01=0x0050, text=»* A1-A8 ON A15 STACK«, t00=0x0113, t01=0x00d6}
0x1ae58…1ae62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x00f2}
0x1ae62…1ae74               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0113, t01=0x00fc}
0x1ae74…1aeaa               Head {h00=0x0032, h01=0x0050, text=»* A1  = RETURN CODE (IF PLCCCS, ELSE CHANGED) «, t00=0x0113, t01=0x010e}
0x1aeaa…1aec2               Head {h00=0x0014, h01=0x0050, text=»* A2-A4 CHANGED «, t00=0x0113, t01=0x0144}
0x1aec2…1aeda               Head {h00=0x0014, h01=0x0050, text=»* A7-A8 CHANGED «, t00=0x0113, t01=0x015c}
0x1aeda…1aef2               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0113, t01=0x0174}
0x1aef2…1af0e               Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0113, t01=0x018c}
0x1af0e…1af18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x0018}
0x1af18…1af5c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0114, t01=0x0022}
0x1af5c…1af66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x0066}
0x1af66…1af74               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0114, t01=0x0070}
0x1af74…1af7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x007e}
0x1af7e…1af92               Head {h00=0x0010, h01=0x0050, text=»PLCCCA EQU *«, t00=0x0114, t01=0x0088}
0x1af92…1afc4               Head {h00=0x002e, h01=0x0050, text=» LDK A3,0 DON'T SAVE QUEUE ELEMENT ADDRESS«, t00=0x0114, t01=0x009c}
0x1afc4…1afce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x00ce}
0x1afce…1afe2               Head {h00=0x0010, h01=0x0050, text=»PLCCCS EQU *«, t00=0x0114, t01=0x00d8}
0x1afe2…1afee               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0114, t01=0x00ec}
0x1afee…1b01e               Head {h00=0x002c, h01=0x0050, text=» LD A1,CWTCCQ,A5 ANYONE WAITING FOR CCA?«, t00=0x0114, t01=0x00f8}
0x1b01e…1b046               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CA100 YES, PUT IN QUEUE «, t00=0x0114, t01=0x0128}
0x1b046…1b068               Head {h00=0x001e, h01=0x0050, text=» LD A4,CWTCCB,A5 PLC BUSY?«, t00=0x0114, t01=0x0150}
0x1b068…1b090               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CA100 YES, PUT IN QUEUE «, t00=0x0114, t01=0x0172}
0x1b090…1b09a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x000a}
0x1b09a…1b0b0               Head {h00=0x0012, h01=0x0050, text=»*    PLC FREE «, t00=0x0115, t01=0x0014}
0x1b0b0…1b0d2               Head {h00=0x001e, h01=0x0050, text=» IM CWTCCB,A5 SET PLC BUSY«, t00=0x0115, t01=0x002a}
0x1b0d2…1b0fe               Head {h00=0x0028, h01=0x0050, text=» ADKL A15,4 ADJUST STACK FOR RETURN «, t00=0x0115, t01=0x004c}
0x1b0fe…1b122               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x0115, t01=0x0078}
0x1b122…1b14a               Head {h00=0x0024, h01=0x0050, text=» ABR* A15 RETURN IN INHIBIT MODE«, t00=0x0115, t01=0x009c}
0x1b14a…1b154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x00c4}
0x1b154…1b15e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x00ce}
0x1b15e…1b172               Head {h00=0x0010, h01=0x0050, text=»CA100 EQU * «, t00=0x0115, t01=0x00d8}
0x1b172…1b19e               Head {h00=0x0028, h01=0x0050, text=»*    PLC BUSY. PUT REQUEST IN QUEUE.«, t00=0x0115, t01=0x00ec}
0x1b19e…1b1c0               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A6 SAVE PARAMETER «, t00=0x0115, t01=0x0118}
0x1b1c0…1b1de               Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A15 SKIP PSW «, t00=0x0115, t01=0x013a}
0x1b1de…1b206               Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A15 SAVE RETURN ADDRESS«, t00=0x0115, t01=0x0158}
0x1b206…1b23e               Head {h00=0x0034, h01=0x0050, text=» CF A15,GETBLK GET MONITOR BLOCK AND SAVE A1-A2 «, t00=0x0115, t01=0x0180}
0x1b23e…1b25e               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 SAVE POINTER?«, t00=0x0116, t01=0x0028}
0x1b25e…1b280               Head {h00=0x001e, h01=0x0050, text=» RF(Z) CA110 NO, CONTINUE «, t00=0x0116, t01=0x0048}
0x1b280…1b2ae               Head {h00=0x002a, h01=0x0050, text=» STR A4,A3 SAVE QUEUE ELEMENT ADDRESS «, t00=0x0116, t01=0x006a}
0x1b2ae…1b2c2               Head {h00=0x0010, h01=0x0050, text=»CA110 EQU * «, t00=0x0116, t01=0x0098}
0x1b2c2…1b2e0               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0116, t01=0x00ac}
0x1b2e0…1b30a               Head {h00=0x0026, h01=0x0050, text=» ADK A7,CWTCCQ PLC BUSY QUEUE HEAD«, t00=0x0116, t01=0x00ca}
0x1b30a…1b338               Head {h00=0x002a, h01=0x0050, text=» CF A15,LNKLST PUT BLOCK LAST IN QUEUE«, t00=0x0116, t01=0x00f4}
0x1b338…1b35e               Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x0116, t01=0x0122}
0x1b35e…1b382               Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x0116, t01=0x0148}
0x1b382…1b39e               Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x0116, t01=0x016c}
0x1b39e…1b3d6               Head {h00=0x0034, h01=0x0050, text=» IM CCQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x0116, t01=0x0188}
0x1b3d6…1b3e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x0030}
0x1b3e2…1b406               Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0117, t01=0x003c}
0x1b406…1b410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0060}
0x1b410…1b41a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x006a}
0x1b41a…1b450               Head {h00=0x0032, h01=0x0050, text=»*    RETURN IS MADE HERE WHEN THE CCA IS FREE.«, t00=0x0117, t01=0x0074}
0x1b450…1b48a               Head {h00=0x0036, h01=0x0050, text=»*    (AT A RELEASE INTERRUPT OR FROM DISPATCHER.) «, t00=0x0117, t01=0x00aa}
0x1b48a…1b4ac               Head {h00=0x001e, h01=0x0050, text=»*      REGISTERS ON ENTRY:«, t00=0x0117, t01=0x00e4}
0x1b4ac…1b4d2               Head {h00=0x0022, h01=0x0050, text=»* A4  = MONITOR BLOCK ADDRESS «, t00=0x0117, t01=0x0106}
0x1b4d2…1b4ee               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0117, t01=0x012c}
0x1b4ee…1b4f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0148}
0x1b4f8…1b50c               Head {h00=0x0010, h01=0x0050, text=»CCARST EQU *«, t00=0x0117, t01=0x0152}
0x1b50c…1b518               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0117, t01=0x0166}
0x1b518…1b536               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0117, t01=0x0172}
0x1b536…1b55c               Head {h00=0x0022, h01=0x0050, text=» ADK A7,CWTCCQ CCA QUEUE HEAD «, t00=0x0117, t01=0x0190}
0x1b55c…1b58c               Head {h00=0x002c, h01=0x0050, text=» CF A15,LNKOUT REMOVE PROCESS FROM QUEUE«, t00=0x0118, t01=0x0026}
0x1b58c…1b5b0               Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RETURN CODE := OK «, t00=0x0118, t01=0x0056}
0x1b5b0…1b5ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x007a}
0x1b5ba…1b5c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x0084}
0x1b5c4…1b604               Head {h00=0x003c, h01=0x0050, text=»*    ENTRY IS MADE HERE WHEN A REQUEST SHOULD BE ABORTED«, t00=0x0118, t01=0x008e}
0x1b604…1b622               Head {h00=0x001a, h01=0x0050, text=»*    DUE TO I/O ERROR.«, t00=0x0118, t01=0x00ce}
0x1b622…1b644               Head {h00=0x001e, h01=0x0050, text=»*      REGISTERS ON ENTRY:«, t00=0x0118, t01=0x00ec}
0x1b644…1b660               Head {h00=0x0018, h01=0x0050, text=»* A3  = RETURN CODE «, t00=0x0118, t01=0x010e}
0x1b660…1b686               Head {h00=0x0022, h01=0x0050, text=»* A4  = MONITOR BLOCK ADDRESS «, t00=0x0118, t01=0x012a}
0x1b686…1b6a2               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0118, t01=0x0150}
0x1b6a2…1b6ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x016c}
0x1b6ac…1b6c0               Head {h00=0x0010, h01=0x0050, text=»CCAABT EQU *«, t00=0x0118, t01=0x0176}
0x1b6c0…1b6cc               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0118, t01=0x018a}
0x1b6cc…1b6f0               Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 SAVE RETURN CODE «, t00=0x0119, t01=0x0008}
0x1b6f0…1b728               Head {h00=0x0034, h01=0x0050, text=» CF A15,FREBLK RETURN MONITOR BLOCK. LOAD A1-A2 «, t00=0x0119, t01=0x002c}
0x1b728…1b744               Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 PARAMETER«, t00=0x0119, t01=0x0064}
0x1b744…1b768               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A7 A1 := RETURN CODE«, t00=0x0119, t01=0x0080}
0x1b768…1b77e               Head {h00=0x0012, h01=0x0050, text=» ABR A2 RETURN«, t00=0x0119, t01=0x00a4}
0x1b77e…1b788               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ba}
0x1b788…1b796               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0119, t01=0x00c4}
0x1b796…1b7a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00d2}
0x1b7a0…1b7e4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0119, t01=0x00dc}
0x1b7e4…1b7ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0120}
0x1b7ee…1b806               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0119, t01=0x012a}
0x1b806…1b816               Head {h00=0x000c, h01=0x0050, text=»* PLCCIO«, t00=0x0119, t01=0x0142}
0x1b816…1b820               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0152}
0x1b820…1b834               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0119, t01=0x015c}
0x1b834…1b874               Head {h00=0x003c, h01=0x0050, text=»* THIS ROUTINE CHECKS IF THE PLC CAN BE USED. IF IT CAN,«, t00=0x0119, t01=0x0170}
0x1b874…1b8ac               Head {h00=0x0034, h01=0x0050, text=»* THE ROUTINE EXECUTES A CIO START INSTRUCTION. «, t00=0x011a, t01=0x0020}
0x1b8ac…1b8e4               Head {h00=0x0034, h01=0x0050, text=»* IF THE PLC IS NOT OPERABLE DUE TO TC POWER UP,«, t00=0x011a, t01=0x0058}
0x1b8e4…1b924               Head {h00=0x003c, h01=0x0050, text=»* THE ROUTINE WILL EXIT TO TOSS DISPATCHER. IN ALL OTHER«, t00=0x011a, t01=0x0090}
0x1b924…1b964               Head {h00=0x003c, h01=0x0050, text=»* CASES, IT WILL RETURN TO CALLING PROGRAM WITH A RETURN«, t00=0x011a, t01=0x00d0}
0x1b964…1b974               Head {h00=0x000c, h01=0x0050, text=»* CODE. «, t00=0x011a, t01=0x0110}
0x1b974…1b97e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x0120}
0x1b97e…1b98e               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x011a, t01=0x012a}
0x1b98e…1b9a6               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCCIO «, t00=0x011a, t01=0x013a}
0x1b9a6…1b9b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x0152}
0x1b9b0…1b9c0               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x011a, t01=0x015c}
0x1b9c0…1b9dc               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x011a, t01=0x016c}
0x1b9dc…1b9f8               Head {h00=0x0018, h01=0x0050, text=»* A1-A8 ON A15 STACK«, t00=0x011a, t01=0x0188}
0x1b9f8…1ba02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0014}
0x1ba02…1ba14               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x011b, t01=0x001e}
0x1ba14…1ba30               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x011b, t01=0x0030}
0x1ba30…1ba44               Head {h00=0x0010, h01=0x0050, text=»*   0 IF OK «, t00=0x011b, t01=0x004c}
0x1ba44…1ba5a               Head {h00=0x0012, h01=0x0050, text=»*   NOT 0 ELSE«, t00=0x011b, t01=0x0060}
0x1ba5a…1ba72               Head {h00=0x0014, h01=0x0050, text=»* A2  = CHANGED «, t00=0x011b, t01=0x0076}
0x1ba72…1ba90               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A1«, t00=0x011b, t01=0x008e}
0x1ba90…1baac               Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x011b, t01=0x00ac}
0x1baac…1bab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x00c8}
0x1bab6…1bafa               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x011b, t01=0x00d2}
0x1bafa…1bb04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0116}
0x1bb04…1bb18               Head {h00=0x0010, h01=0x0050, text=»PLCCIO EQU *«, t00=0x011b, t01=0x0120}
0x1bb18…1bb24               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x011b, t01=0x0134}
0x1bb24…1bb42               Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A15 SKIP PSW «, t00=0x011b, t01=0x0140}
0x1bb42…1bb6a               Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A15 GET RETURN ADDRESS «, t00=0x011b, t01=0x015e}
0x1bb6a…1bb74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0186}
0x1bb74…1bb82               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x0190}
0x1bb82…1bb8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x000e}
0x1bb8c…1bbb8               Head {h00=0x0028, h01=0x0050, text=» LD A1,PFPOST POWER UP TASK PENDING?«, t00=0x011c, t01=0x0018}
0x1bbb8…1bbe4               Head {h00=0x0028, h01=0x0050, text=» OR A1,PLCPFP PLC POWER UP PENDING? «, t00=0x011c, t01=0x0044}
0x1bbe4…1bc16               Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) TDISP YES, GO TO TOSS DISPATCHER «, t00=0x011c, t01=0x0070}
0x1bc16…1bc3c               Head {h00=0x0022, h01=0x0050, text=» LD A1,CWTOPR,A5 PLC OPERABLE?«, t00=0x011c, t01=0x00a2}
0x1bc3c…1bc5c               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) CS100 NO, HANDLE«, t00=0x011c, t01=0x00c8}
0x1bc5c…1bc72               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x011c, t01=0x00e8}
0x1bc72…1bc90               Head {h00=0x001a, h01=0x0050, text=» CF A15,LOGCOM LOG CCR«, t00=0x011c, t01=0x00fe}
0x1bc90…1bc9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x011c}
0x1bc9c…1bcc4               Head {h00=0x0024, h01=0x0050, text=» EX CWTCIO,A5 EXECUTE CIO START «, t00=0x011c, t01=0x0128}
0x1bcc4…1bcea               Head {h00=0x0022, h01=0x0050, text=» ABR(A) A2 RETURN IF OK. A1=0 «, t00=0x011c, t01=0x0150}
0x1bcea…1bcf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x0176}
0x1bcf4…1bd22               Head {h00=0x002a, h01=0x0050, text=» CF A15,PLCNOP ERROR. SET NOT OPERABLE«, t00=0x011c, t01=0x0180}
0x1bd22…1bd36               Head {h00=0x0010, h01=0x0050, text=»CS100 EQU * «, t00=0x011d, t01=0x001e}
0x1bd36…1bd68               Head {h00=0x002e, h01=0x0050, text=» LDK A1,NOTOPR RETURN CODE := NOT OPERABLE«, t00=0x011d, t01=0x0032}
0x1bd68…1bd8a               Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x011d, t01=0x0064}
0x1bd8a…1bda4               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 SET CR «, t00=0x011d, t01=0x0086}
0x1bda4…1bdba               Head {h00=0x0012, h01=0x0050, text=» ABR A2 RETURN«, t00=0x011d, t01=0x00a0}
0x1bdba…1bdc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00b6}
0x1bdc4…1bdd2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x00c0}
0x1bdd2…1bddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00ce}
0x1bddc…1be20               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x011d, t01=0x00d8}
0x1be20…1be2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x011c}
0x1be2a…1be42               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x011d, t01=0x0126}
0x1be42…1be52               Head {h00=0x000c, h01=0x0050, text=»* PLCNOP«, t00=0x011d, t01=0x013e}
0x1be52…1be5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x014e}
0x1be5c…1be70               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x011d, t01=0x0158}
0x1be70…1beac               Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE SETS A FLAG TO INDICATE THAT THE PLC «, t00=0x011d, t01=0x016c}
0x1beac…1bec8               Head {h00=0x0018, h01=0x0050, text=»* IS "NOT OPERABLE".«, t00=0x011e, t01=0x0018}
0x1bec8…1bed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0034}
0x1bed2…1bee2               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x011e, t01=0x003e}
0x1bee2…1befa               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCNOP «, t00=0x011e, t01=0x004e}
0x1befa…1bf04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0066}
0x1bf04…1bf14               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x011e, t01=0x0070}
0x1bf14…1bf30               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x011e, t01=0x0080}
0x1bf30…1bf3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x009c}
0x1bf3a…1bf4c               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x011e, t01=0x00a6}
0x1bf4c…1bf58               Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x011e, t01=0x00b8}
0x1bf58…1bf62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x00c4}
0x1bf62…1bfa6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x011e, t01=0x00ce}
0x1bfa6…1bfb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0112}
0x1bfb0…1bfc4               Head {h00=0x0010, h01=0x0050, text=»PLCNOP EQU *«, t00=0x011e, t01=0x011c}
0x1bfc4…1bfe0               Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x011e, t01=0x0130}
0x1bfe0…1c008               Head {h00=0x0024, h01=0x0050, text=» LD A1,CWTPLS,A5 GET PLC STATUS «, t00=0x011e, t01=0x014c}
0x1c008…1c01e               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PN100 «, t00=0x011e, t01=0x0174}
0x1c01e…1c046               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,-1 SET DUMMY ERROR CODE«, t00=0x011e, t01=0x018a}
0x1c046…1c05a               Head {h00=0x0010, h01=0x0050, text=»PN100 EQU * «, t00=0x011f, t01=0x0022}
0x1c05a…1c088               Head {h00=0x002a, h01=0x0050, text=» ST A1,CWTOPR,A5 SET PLC NOT OPERABLE «, t00=0x011f, t01=0x0036}
0x1c088…1c092               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x0064}
0x1c092…1c0a8               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x011f, t01=0x006e}
0x1c0a8…1c0b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x0084}
0x1c0b2…1c0c0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011f, t01=0x008e}
0x1c0c0…1c0ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x009c}
0x1c0ca…1c0ec               Head {h00=0x001e, h01=0x0050, text=» LD A1,UTTST TRAP CONTROL «, t00=0x011f, t01=0x00a6}
0x1c0ec…1c108               Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 TRAP USED?«, t00=0x011f, t01=0x00c8}
0x1c108…1c126               Head {h00=0x001a, h01=0x0050, text=» RF(NG) PN120 NO, SKIP«, t00=0x011f, t01=0x00e4}
0x1c126…1c148               Head {h00=0x001e, h01=0x0050, text=» LDK A1,PLCERR ERROR CODE «, t00=0x011f, t01=0x0102}
0x1c148…1c16a               Head {h00=0x001e, h01=0x0050, text=» OTR A1,0,/2E TO SOP LAMPS«, t00=0x011f, t01=0x0124}
0x1c16a…1c18c               Head {h00=0x001e, h01=0x0050, text=» DATA /6300 TRAP TO BUGGER«, t00=0x011f, t01=0x0146}
0x1c18c…1c1a0               Head {h00=0x0010, h01=0x0050, text=»PN120 EQU * «, t00=0x011f, t01=0x0168}
0x1c1a0…1c1aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x017c}
0x1c1aa…1c1b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011f, t01=0x0186}
0x1c1b6…1c1c0 (288, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0004}
0x1c1c0…1c1dc               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x0120, t01=0x000e}
0x1c1dc…1c1ec               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0120, t01=0x002a}
0x1c1ec…1c1fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0120, t01=0x003a}
0x1c1fa…1c204               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0048}
0x1c204…1c248               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0120, t01=0x0052}
0x1c248…1c252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0096}
0x1c252…1c26a               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0120, t01=0x00a0}
0x1c26a…1c27a               Head {h00=0x000c, h01=0x0050, text=»* GETDWT«, t00=0x0120, t01=0x00b8}
0x1c27a…1c284               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x00c8}
0x1c284…1c298               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0120, t01=0x00d2}
0x1c298…1c2d0               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE CALCULATES THE DWT ADDRESS FOR A «, t00=0x0120, t01=0x00e6}
0x1c2d0…1c2f4               Head {h00=0x0020, h01=0x0050, text=»* DEVICE CONNECTED TO A PLC.«, t00=0x0120, t01=0x011e}
0x1c2f4…1c2fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0142}
0x1c2fe…1c30e               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0120, t01=0x014c}
0x1c30e…1c326               Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETDWT «, t00=0x0120, t01=0x015c}
0x1c326…1c330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0174}
0x1c330…1c340               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0120, t01=0x017e}
0x1c340…1c35c               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0120, t01=0x018e}
0x1c35c…1c376               Head {h00=0x0016, h01=0x0050, text=»* A6  = DLS INDEX «, t00=0x0121, t01=0x001a}
0x1c376…1c394               Head {h00=0x001a, h01=0x0050, text=»* A7  = DEVICE ADDRESS«, t00=0x0121, t01=0x0034}
0x1c394…1c39e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0052}
0x1c39e…1c3b0               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0121, t01=0x005c}
0x1c3b0…1c3d6               Head {h00=0x0022, h01=0x0050, text=»* A6  = DWT ADDRESS IF FOUND, «, t00=0x0121, t01=0x006e}
0x1c3d6…1c3e8               Head {h00=0x000e, h01=0x0050, text=»*   ELSE 0«, t00=0x0121, t01=0x0094}
0x1c3e8…1c406               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A6«, t00=0x0121, t01=0x00a6}
0x1c406…1c422               Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0121, t01=0x00c4}
0x1c422…1c42c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00e0}
0x1c42c…1c470               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0121, t01=0x00ea}
0x1c470…1c47a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x012e}
0x1c47a…1c48e               Head {h00=0x0010, h01=0x0050, text=»GETDWT EQU *«, t00=0x0121, t01=0x0138}
0x1c48e…1c49a               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0121, t01=0x014c}
0x1c49a…1c4b6               Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x0121, t01=0x0158}
0x1c4b6…1c4e2               Head {h00=0x0028, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE«, t00=0x0121, t01=0x0174}
0x1c4e2…1c50a               Head {h00=0x0024, h01=0x0050, text=» CF A15,NDGEDW A6 := DWT ADDRESS«, t00=0x0122, t01=0x0010}
0x1c50a…1c526               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x0122, t01=0x0038}
0x1c526…1c552               Head {h00=0x0028, h01=0x0050, text=» ADKL A15,4 ADJUST STACK FOR RETURN «, t00=0x0122, t01=0x0054}
0x1c552…1c582               Head {h00=0x002c, h01=0x0050, text=» ANKL A6,/FFFE SET CR & SKIP ODD ADDRESS«, t00=0x0122, t01=0x0080}
0x1c582…1c59a               Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x0122, t01=0x00b0}
0x1c59a…1c5a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x00c8}
0x1c5a4…1c5b2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x00d2}
0x1c5b2…1c5bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x00e0}
0x1c5bc…1c600               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0122, t01=0x00ea}
0x1c600…1c60a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x012e}
0x1c60a…1c622               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0122, t01=0x0138}
0x1c622…1c632               Head {h00=0x000c, h01=0x0050, text=»* GETCWT«, t00=0x0122, t01=0x0150}
0x1c632…1c63c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0160}
0x1c63c…1c650               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0122, t01=0x016a}
0x1c650…1c686               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE CALCULATES THE CWT ADDRESS FOR «, t00=0x0122, t01=0x017e}
0x1c686…1c6b4               Head {h00=0x002a, h01=0x0050, text=»* THE PLC CONTROLLING CALLING DEVICE. «, t00=0x0123, t01=0x0024}
0x1c6b4…1c6be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0052}
0x1c6be…1c6ce               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0123, t01=0x005c}
0x1c6ce…1c6e6               Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETCWT «, t00=0x0123, t01=0x006c}
0x1c6e6…1c6f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0084}
0x1c6f0…1c700               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0123, t01=0x008e}
0x1c700…1c71c               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0123, t01=0x009e}
0x1c71c…1c726               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x00ba}
0x1c726…1c738               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0123, t01=0x00c4}
0x1c738…1c75e               Head {h00=0x0022, h01=0x0050, text=»* A5  = CWT ADDRESS IF FOUND, «, t00=0x0123, t01=0x00d6}
0x1c75e…1c770               Head {h00=0x000e, h01=0x0050, text=»*   ELSE 0«, t00=0x0123, t01=0x00fc}
0x1c770…1c796               Head {h00=0x0022, h01=0x0050, text=»* A7  = 0 IF LOCAL CONNECTION «, t00=0x0123, t01=0x010e}
0x1c796…1c7ae               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0123, t01=0x0134}
0x1c7ae…1c7b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x014c}
0x1c7b8…1c7fc               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0123, t01=0x0156}
0x1c7fc…1c806               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x000a}
0x1c806…1c81a               Head {h00=0x0010, h01=0x0050, text=»GETCWT EQU *«, t00=0x0124, t01=0x0014}
0x1c81a…1c846               Head {h00=0x0028, h01=0x0050, text=» LD A5,DWTCHP,A6 CHANNEL PARAMETERS «, t00=0x0124, t01=0x0028}
0x1c846…1c876               Head {h00=0x002c, h01=0x0050, text=» ANK A5,MASKPL CLEAN CHANNEL UNIT INDEX «, t00=0x0124, t01=0x0054}
0x1c876…1c892               Head {h00=0x0018, h01=0x0050, text=» SLL A5,1 MAKE INDEX«, t00=0x0124, t01=0x0084}
0x1c892…1c8a8               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0124, t01=0x00a0}
0x1c8a8…1c8be               Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0124, t01=0x00b6}
0x1c8be…1c8e4               Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0124, t01=0x00cc}
0x1c8e4…1c904               Head {h00=0x001c, h01=0x0050, text=» SUKL A7,/0500 REMOTE ? «, t00=0x0124, t01=0x00f2}
0x1c904…1c91c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) GET010 NO«, t00=0x0124, t01=0x0112}
0x1c91c…1c946               Head {h00=0x0026, h01=0x0050, text=» ADK A5,8 ADJUST INDEX FOR REMOTE «, t00=0x0124, t01=0x012a}
0x1c946…1c952               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0124, t01=0x0154}
0x1c952…1c982               Head {h00=0x002c, h01=0x0050, text=»GET010 LD A5,TABCWT,A5 A5 := CWT ADDRESS«, t00=0x0124, t01=0x0160}
0x1c982…1c98c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x0190}
0x1c98c…1c9a2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0125, t01=0x000a}
0x1c9a2…1c9be               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0125, t01=0x0020}
0x1c9be…1c9d8               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0125, t01=0x003c}
0x1c9d8…1c9e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0125, t01=0x0056}
0x1c9e4…1c9fa               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0125, t01=0x0062}
0x1c9fa…1ca0a               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0125, t01=0x0078}
0x1ca0a…1ca16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0125, t01=0x0088}
0x1ca16…1ca20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0094}
0x1ca20…1ca2e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0125, t01=0x009e}
0x1ca2e…1ca38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00ac}
0x1ca38…1ca7c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0125, t01=0x00b6}
0x1ca7c…1ca86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00fa}
0x1ca86…1ca9e               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0125, t01=0x0104}
0x1ca9e…1caae               Head {h00=0x000c, h01=0x0050, text=»* GETFR «, t00=0x0125, t01=0x011c}
0x1caae…1cab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x012c}
0x1cab8…1cacc               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0125, t01=0x0136}
0x1cacc…1cb08               Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE CALCULATES THE NUMBER OF OUTSTANDING «, t00=0x0125, t01=0x014a}
0x1cb08…1cb42               Head {h00=0x0036, h01=0x0050, text=»* FRAMES, IE FRAMES THAT HAVE BEEN TRANSFERRED BUT«, t00=0x0125, t01=0x0186}
0x1cb42…1cb76               Head {h00=0x0030, h01=0x0050, text=»* NOT ACKNOWLEDGED ON LEVEL 3, FOR A LOGICAL«, t00=0x0126, t01=0x0030}
0x1cb76…1cb88               Head {h00=0x000e, h01=0x0050, text=»* CHANNEL.«, t00=0x0126, t01=0x0064}
0x1cb88…1cbc0               Head {h00=0x0034, h01=0x0050, text=»* GETIFR GETS NUMBER OF FRAMES RECIEVED BY PLC. «, t00=0x0126, t01=0x0076}
0x1cbc0…1cbf4               Head {h00=0x0030, h01=0x0050, text=»* GETOFR GETS NUMBER OF FRAMES SENT BY PLC. «, t00=0x0126, t01=0x00ae}
0x1cbf4…1cbfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00e2}
0x1cbfe…1cc0e               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0126, t01=0x00ec}
0x1cc0e…1cc26               Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETIFR «, t00=0x0126, t01=0x00fc}
0x1cc26…1cc3e               Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETOFR «, t00=0x0126, t01=0x0114}
0x1cc3e…1cc48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x012c}
0x1cc48…1cc58               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0126, t01=0x0136}
0x1cc58…1cc74               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0126, t01=0x0146}
0x1cc74…1cc7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0162}
0x1cc7e…1cc90               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0126, t01=0x016c}
0x1cc90…1cca8               Head {h00=0x0014, h01=0x0050, text=»* A1  = CHANGED «, t00=0x0126, t01=0x017e}
0x1cca8…1ccd4               Head {h00=0x0028, h01=0x0050, text=»* A2  = NUMBER OF OUTSTANDING FRAMES«, t00=0x0127, t01=0x0008}
0x1ccd4…1ccec               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0127, t01=0x0034}
0x1ccec…1ccf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x004c}
0x1ccf6…1cd3a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0127, t01=0x0056}
0x1cd3a…1cd44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x009a}
0x1cd44…1cd58               Head {h00=0x0010, h01=0x0050, text=»GETIFR EQU *«, t00=0x0127, t01=0x00a4}
0x1cd58…1cd86               Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x0127, t01=0x00b8}
0x1cd86…1cd98               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0127, t01=0x00e6}
0x1cd98…1cdca               Head {h00=0x002e, h01=0x0050, text=» SRL A2,9 BITS 13-15 := NEXT EXPECTED P(S)«, t00=0x0127, t01=0x00f8}
0x1cdca…1cdf8               Head {h00=0x002a, h01=0x0050, text=» SRL A1,5 BITS 13-15 := LAST SENT P(R)«, t00=0x0127, t01=0x012a}
0x1cdf8…1ce18               Head {h00=0x001c, h01=0x0050, text=» RF GF100 TO COMMON PART«, t00=0x0127, t01=0x0158}
0x1ce18…1ce22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0178}
0x1ce22…1ce30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0127, t01=0x0182}
0x1ce30…1ce3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0190}
0x1ce3a…1ce4e               Head {h00=0x0010, h01=0x0050, text=»GETOFR EQU *«, t00=0x0128, t01=0x000a}
0x1ce4e…1ce7c               Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x0128, t01=0x001e}
0x1ce7c…1ce8e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0128, t01=0x004c}
0x1ce8e…1cec0               Head {h00=0x002e, h01=0x0050, text=» SRL A2,1 BITS 13-15 := NEXT P(S) TO SEND «, t00=0x0128, t01=0x005e}
0x1cec0…1cef2               Head {h00=0x002e, h01=0x0050, text=» SLC A1,3 BITS 13-15 := LAST RECIEVED P(R)«, t00=0x0128, t01=0x0090}
0x1cef2…1cefc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00c2}
0x1cefc…1cf06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00cc}
0x1cf06…1cf1a               Head {h00=0x0010, h01=0x0050, text=»GF100 EQU * «, t00=0x0128, t01=0x00d6}
0x1cf1a…1cf46               Head {h00=0x0028, h01=0x0050, text=» SUR A2,A1 A2 := OUTSTANDING FRAMES «, t00=0x0128, t01=0x00ea}
0x1cf46…1cf6a               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/07 CLEAN & MODULO 8«, t00=0x0128, t01=0x0116}
0x1cf6a…1cf74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x013a}
0x1cf74…1cf8a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0128, t01=0x0144}
0x1cf8a…1cfa6               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0128, t01=0x015a}
0x1cfa6…1cfc0               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0128, t01=0x0176}
0x1cfc0…1cfcc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x0190}
0x1cfcc…1cfd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x000c}
0x1cfd6…1cfec               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0129, t01=0x0016}
0x1cfec…1cffc               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0129, t01=0x002c}
0x1cffc…1d008               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0129, t01=0x003c}
0x1d008…1d012               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0048}
0x1d012…1d020               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0129, t01=0x0052}
0x1d020…1d02a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0060}
0x1d02a…1d06e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0129, t01=0x006a}
0x1d06e…1d078               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x00ae}
0x1d078…1d090               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0129, t01=0x00b8}
0x1d090…1d0a0               Head {h00=0x000c, h01=0x0050, text=»* FLWINP«, t00=0x0129, t01=0x00d0}
0x1d0a0…1d0aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x00e0}
0x1d0aa…1d0be               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0129, t01=0x00ea}
0x1d0be…1d100               Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE HANDLES FLOW CONTROL FOR INPUT. IT FETCHES «, t00=0x0129, t01=0x00fe}
0x1d100…1d13c               Head {h00=0x0038, h01=0x0050, text=»* FLOW CONTROL INFORMATION FROM MESSAGE AND UPDATES «, t00=0x0129, t01=0x0140}
0x1d13c…1d156               Head {h00=0x0016, h01=0x0050, text=»* COUNTERS IN DWT.«, t00=0x0129, t01=0x017c}
0x1d156…1d18c               Head {h00=0x0032, h01=0x0050, text=»* FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). «, t00=0x012a, t01=0x0008}
0x1d18c…1d1c6               Head {h00=0x0036, h01=0x0050, text=»* FWIPSR IS FOR MESSAGES CONTAINING P(S) AND P(R).«, t00=0x012a, t01=0x003e}
0x1d1c6…1d1e8               Head {h00=0x001e, h01=0x0050, text=»* NO ERROR CHECK IS MADE. «, t00=0x012a, t01=0x0078}
0x1d1e8…1d1f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x009a}
0x1d1f2…1d202               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x012a, t01=0x00a4}
0x1d202…1d218               Head {h00=0x0012, h01=0x0050, text=»* CF A15,FWIPR«, t00=0x012a, t01=0x00b4}
0x1d218…1d230               Head {h00=0x0014, h01=0x0050, text=»* CF A15,FWIPSR «, t00=0x012a, t01=0x00ca}
0x1d230…1d23a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x00e2}
0x1d23a…1d24a               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x012a, t01=0x00ec}
0x1d24a…1d268               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x012a, t01=0x00fc}
0x1d268…1d284               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x012a, t01=0x011a}
0x1d284…1d28e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0136}
0x1d28e…1d2a0               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x012a, t01=0x0140}
0x1d2a0…1d2b8               Head {h00=0x0014, h01=0x0050, text=»* A1  = CHANGED «, t00=0x012a, t01=0x0152}
0x1d2b8…1d2d0               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x012a, t01=0x016a}
0x1d2d0…1d2da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0182}
0x1d2da…1d31e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012a, t01=0x018c}
0x1d31e…1d328               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0040}
0x1d328…1d33c               Head {h00=0x0010, h01=0x0050, text=»FWIPR EQU * «, t00=0x012b, t01=0x004a}
0x1d33c…1d358               Head {h00=0x0018, h01=0x0050, text=» STR A2,A15 PUSH A2 «, t00=0x012b, t01=0x005e}
0x1d358…1d388               Head {h00=0x002c, h01=0x0050, text=» LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT«, t00=0x012b, t01=0x007a}
0x1d388…1d3b0               Head {h00=0x0024, h01=0x0050, text=» ANK A1,/E0 BITS 8-10 = P(R) IN «, t00=0x012b, t01=0x00aa}
0x1d3b0…1d3da               Head {h00=0x0026, h01=0x0050, text=» LC A2,DWTLD2,A6 OLD FLOW CONTROL «, t00=0x012b, t01=0x00d2}
0x1d3da…1d406               Head {h00=0x0028, h01=0x0050, text=» ANK A2,/0E BITS 12-14 = OLD P(S) IN«, t00=0x012b, t01=0x00fc}
0x1d406…1d426               Head {h00=0x001c, h01=0x0050, text=» ORR A1,A2 KEEP OLD P(S)«, t00=0x012b, t01=0x0128}
0x1d426…1d442               Head {h00=0x0018, h01=0x0050, text=» LDR* A2,A15 POP A2 «, t00=0x012b, t01=0x0148}
0x1d442…1d462               Head {h00=0x001c, h01=0x0050, text=» RF FI100 COMMON ENDING «, t00=0x012b, t01=0x0164}
0x1d462…1d46c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0184}
0x1d46c…1d476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x018e}
0x1d476…1d48a               Head {h00=0x0010, h01=0x0050, text=»FWIPSR EQU *«, t00=0x012c, t01=0x0008}
0x1d48a…1d4ba               Head {h00=0x002c, h01=0x0050, text=» LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT«, t00=0x012c, t01=0x001c}
0x1d4ba…1d4d4               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/EE CLEAN «, t00=0x012c, t01=0x004c}
0x1d4d4…1d50c               Head {h00=0x0034, h01=0x0050, text=» ADK A1,/02 BITS 12-14 := NEXT EXPECTED P(S) IN «, t00=0x012c, t01=0x0066}
0x1d50c…1d528               Head {h00=0x0018, h01=0x0050, text=» ANK A1,/EE MODULO 8«, t00=0x012c, t01=0x009e}
0x1d528…1d532               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00ba}
0x1d532…1d53c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00c4}
0x1d53c…1d550               Head {h00=0x0010, h01=0x0050, text=»FI100 EQU * «, t00=0x012c, t01=0x00ce}
0x1d550…1d57e               Head {h00=0x002a, h01=0x0050, text=» SC A1,DWTLD2,A6 SAVE NEW FLOW CONTROL«, t00=0x012c, t01=0x00e2}
0x1d57e…1d588               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0110}
0x1d588…1d59e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x012c, t01=0x011a}
0x1d59e…1d5ba               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x012c, t01=0x0130}
0x1d5ba…1d5d4               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x012c, t01=0x014c}
0x1d5d4…1d5e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012c, t01=0x0166}
0x1d5e0…1d5ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0172}
0x1d5ea…1d600               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x012c, t01=0x017c}
0x1d600…1d610 (301, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x012d, t01=0x0004}
0x1d610…1d61c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x0014}
0x1d61c…1d626               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0020}
0x1d626…1d634               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012d, t01=0x002a}
0x1d634…1d63e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0038}
0x1d63e…1d682               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012d, t01=0x0042}
0x1d682…1d68c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0086}
0x1d68c…1d6a4               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x012d, t01=0x0090}
0x1d6a4…1d6b4               Head {h00=0x000c, h01=0x0050, text=»* FLWOUT«, t00=0x012d, t01=0x00a8}
0x1d6b4…1d6be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00b8}
0x1d6be…1d6d2               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x012d, t01=0x00c2}
0x1d6d2…1d70e               Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE HANDLES FLOW CONTROL FOR OUTPUT. FLOW«, t00=0x012d, t01=0x00d6}
0x1d70e…1d74e               Head {h00=0x003c, h01=0x0050, text=»* CONTROL INFORMATION IS FETCHED FROM DWT, AND COUNTERS «, t00=0x012d, t01=0x0112}
0x1d74e…1d76c               Head {h00=0x001a, h01=0x0050, text=»* IN DWT ARE UPDATED. «, t00=0x012d, t01=0x0152}
0x1d76c…1d7a2               Head {h00=0x0032, h01=0x0050, text=»* FWOPR IS FOR MESSAGES CONTAINING ONLY P(R). «, t00=0x012d, t01=0x0170}
0x1d7a2…1d7dc               Head {h00=0x0036, h01=0x0050, text=»* FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R).«, t00=0x012e, t01=0x0016}
0x1d7dc…1d7e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0050}
0x1d7e6…1d7f6               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x012e, t01=0x005a}
0x1d7f6…1d80c               Head {h00=0x0012, h01=0x0050, text=»* CF A15,FWOPR«, t00=0x012e, t01=0x006a}
0x1d80c…1d824               Head {h00=0x0014, h01=0x0050, text=»* CF A15,FWOPSR «, t00=0x012e, t01=0x0080}
0x1d824…1d82e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0098}
0x1d82e…1d83e               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x012e, t01=0x00a2}
0x1d83e…1d85a               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x012e, t01=0x00b2}
0x1d85a…1d864               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x00ce}
0x1d864…1d876               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x012e, t01=0x00d8}
0x1d876…1d88e               Head {h00=0x0014, h01=0x0050, text=»* A1  = CHANGED «, t00=0x012e, t01=0x00ea}
0x1d88e…1d8ac               Head {h00=0x001a, h01=0x0050, text=»* A2  = BITS 0-7  ZERO«, t00=0x012e, t01=0x0102}
0x1d8ac…1d8ce               Head {h00=0x001e, h01=0x0050, text=»*  BITS 8-10  P(R) TO SEND«, t00=0x012e, t01=0x0120}
0x1d8ce…1d8e6               Head {h00=0x0014, h01=0x0050, text=»*  BIT 11  ZERO «, t00=0x012e, t01=0x0142}
0x1d8e6…1d914               Head {h00=0x002a, h01=0x0050, text=»*  BITS 12-14  P(S) TO SEND IF FWOPSR «, t00=0x012e, t01=0x015a}
0x1d914…1d936               Head {h00=0x001e, h01=0x0050, text=»*               ELSE ZERO «, t00=0x012e, t01=0x0188}
0x1d936…1d94e               Head {h00=0x0014, h01=0x0050, text=»*  BIT 15  ZERO «, t00=0x012f, t01=0x001a}
0x1d94e…1d966               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x012f, t01=0x0032}
0x1d966…1d970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x004a}
0x1d970…1d9b4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012f, t01=0x0054}
0x1d9b4…1d9be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0098}
0x1d9be…1d9d2               Head {h00=0x0010, h01=0x0050, text=»FWOPR EQU * «, t00=0x012f, t01=0x00a2}
0x1d9d2…1da00               Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x012f, t01=0x00b6}
0x1da00…1da12               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x012f, t01=0x00e4}
0x1da12…1da46               Head {h00=0x0030, h01=0x0050, text=» SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN«, t00=0x012f, t01=0x00f6}
0x1da46…1da64               Head {h00=0x001a, h01=0x0050, text=»*    (= P(R) TO SEND) «, t00=0x012f, t01=0x012a}
0x1da64…1da7e               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/E0 CLEAN «, t00=0x012f, t01=0x0148}
0x1da7e…1dab0               Head {h00=0x002e, h01=0x0050, text=» ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND«, t00=0x012f, t01=0x0162}
0x1dab0…1dada (304, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ORR A1,A2 P(S) := SAME AS BEFORE «, t00=0x0130, t01=0x0004}
0x1dada…1dafa               Head {h00=0x001c, h01=0x0050, text=» RF FO100 COMMON ENDING «, t00=0x0130, t01=0x002e}
0x1dafa…1db04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x004e}
0x1db04…1db0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0058}
0x1db0e…1db22               Head {h00=0x0010, h01=0x0050, text=»FWOPSR EQU *«, t00=0x0130, t01=0x0062}
0x1db22…1db50               Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x0130, t01=0x0076}
0x1db50…1db62               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0130, t01=0x00a4}
0x1db62…1db96               Head {h00=0x0030, h01=0x0050, text=» SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN«, t00=0x0130, t01=0x00b6}
0x1db96…1dbb4               Head {h00=0x001a, h01=0x0050, text=»*    (= P(R) TO SEND) «, t00=0x0130, t01=0x00ea}
0x1dbb4…1dbce               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/E0 CLEAN «, t00=0x0130, t01=0x0108}
0x1dbce…1dc00               Head {h00=0x002e, h01=0x0050, text=» ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND«, t00=0x0130, t01=0x0122}
0x1dc00…1dc28               Head {h00=0x0024, h01=0x0050, text=» ORR A2,A1 COUNTERS FOR MESSAGE «, t00=0x0130, t01=0x0154}
0x1dc28…1dc3a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0130, t01=0x017c}
0x1dc3a…1dc64               Head {h00=0x0026, h01=0x0050, text=» ADK A1,/02 INCREMENT P(S) TO SEND«, t00=0x0130, t01=0x018e}
0x1dc64…1dc80               Head {h00=0x0018, h01=0x0050, text=» ANK A1,/EE MODULO 8«, t00=0x0131, t01=0x0028}
0x1dc80…1dc8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x0044}
0x1dc8a…1dc94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x004e}
0x1dc94…1dca8               Head {h00=0x0010, h01=0x0050, text=»FO100 EQU * «, t00=0x0131, t01=0x0058}
0x1dca8…1dcde               Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTLD2+1,A6 SAVE FLOW CONTROL COUNTERS «, t00=0x0131, t01=0x006c}
0x1dcde…1dce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00a2}
0x1dce8…1dcfe               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0131, t01=0x00ac}
0x1dcfe…1dd1a               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0131, t01=0x00c2}
0x1dd1a…1dd34               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0131, t01=0x00de}
0x1dd34…1dd40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x00f8}
0x1dd40…1dd4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x0104}
0x1dd4a…1dd60               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0131, t01=0x010e}
0x1dd60…1dd70               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0131, t01=0x0124}
0x1dd70…1dd7c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x0134}
0x1dd7c…1dd8a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0131, t01=0x0140}
0x1dd8a…1dd94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x014e}
0x1dd94…1ddd8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0131, t01=0x0158}
0x1ddd8…1dde2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x000c}
0x1dde2…1ddfa               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0132, t01=0x0016}
0x1ddfa…1de0a               Head {h00=0x000c, h01=0x0050, text=»* WRADDR«, t00=0x0132, t01=0x002e}
0x1de0a…1de14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x003e}
0x1de14…1de28               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0132, t01=0x0048}
0x1de28…1de5c               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE WRITES THE LINE ADDRESS IN A «, t00=0x0132, t01=0x005c}
0x1de5c…1de96               Head {h00=0x0036, h01=0x0050, text=»* MESSAGE. THE ADDRESS CONSISTS OF: DROP ADDRESS, «, t00=0x0132, t01=0x0090}
0x1de96…1decc               Head {h00=0x0032, h01=0x0050, text=»* GROUP NUMBER AND DEVICE ADDRESS. WRADR1 SETS«, t00=0x0132, t01=0x00ca}
0x1decc…1df06               Head {h00=0x0036, h01=0x0050, text=»* GROUP=1 INDICATING NO FLOW CONTROL, WRADR2 SETS «, t00=0x0132, t01=0x0100}
0x1df06…1df30               Head {h00=0x0026, h01=0x0050, text=»* GROUP=0 INDICATING FLOW CONTROL.«, t00=0x0132, t01=0x013a}
0x1df30…1df3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0164}
0x1df3a…1df4a               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0132, t01=0x016e}
0x1df4a…1df62               Head {h00=0x0014, h01=0x0050, text=»* CF A15,WRADR1 «, t00=0x0132, t01=0x017e}
0x1df62…1df7a               Head {h00=0x0014, h01=0x0050, text=»* CF A15,WRADR2 «, t00=0x0133, t01=0x0008}
0x1df7a…1df84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0020}
0x1df84…1df94               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0133, t01=0x002a}
0x1df94…1dfb2               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x0133, t01=0x003a}
0x1dfb2…1dfce               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0133, t01=0x0058}
0x1dfce…1dfea               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x0133, t01=0x0074}
0x1dfea…1dff4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0090}
0x1dff4…1e006               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0133, t01=0x009a}
0x1e006…1e01e               Head {h00=0x0014, h01=0x0050, text=»* A2  = CHANGED «, t00=0x0133, t01=0x00ac}
0x1e01e…1e036               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0133, t01=0x00c4}
0x1e036…1e040               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x00dc}
0x1e040…1e084               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0133, t01=0x00e6}
0x1e084…1e08e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x012a}
0x1e08e…1e0a2               Head {h00=0x0010, h01=0x0050, text=»WRADR1 EQU *«, t00=0x0133, t01=0x0134}
0x1e0a2…1e0c4               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/11 GROUP NUMBER 1«, t00=0x0133, t01=0x0148}
0x1e0c4…1e0e4               Head {h00=0x001c, h01=0x0050, text=» RF WA100 TO COMMON PART«, t00=0x0133, t01=0x016a}
0x1e0e4…1e0ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x018a}
0x1e0ee…1e0fc (308, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0134, t01=0x0004}
0x1e0fc…1e106               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x0012}
0x1e106…1e11a               Head {h00=0x0010, h01=0x0050, text=»WRADR2 EQU *«, t00=0x0134, t01=0x001c}
0x1e11a…1e13c               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/10 GROUP NUMBER 0«, t00=0x0134, t01=0x0030}
0x1e13c…1e146               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x0052}
0x1e146…1e150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x005c}
0x1e150…1e164               Head {h00=0x0010, h01=0x0050, text=»WA100 EQU * «, t00=0x0134, t01=0x0066}
0x1e164…1e194               Head {h00=0x002c, h01=0x0050, text=» SC A2,X25LGN,A4 GROUP NUMBER TO BUFFER «, t00=0x0134, t01=0x007a}
0x1e194…1e1c0               Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTCP2,A6 CHANNEL PARAMETERS «, t00=0x0134, t01=0x00aa}
0x1e1c0…1e1e6               Head {h00=0x0022, h01=0x0050, text=» ANK A2,MASKWS CLEAN WS NUMBER«, t00=0x0134, t01=0x00d6}
0x1e1e6…1e20c               Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRDLS,A5 TO CCA«, t00=0x0134, t01=0x00fc}
0x1e20c…1e226               Head {h00=0x0016, h01=0x0050, text=» LC A2,DWTCP2+1,A6«, t00=0x0134, t01=0x0122}
0x1e226…1e252               Head {h00=0x0028, h01=0x0050, text=» ANK A2,MASKLC CLEAN DEVICE ADDRESS «, t00=0x0134, t01=0x013c}
0x1e252…1e274               Head {h00=0x001e, h01=0x0050, text=» SC A2,X25LCN,A4 TO BUFFER«, t00=0x0134, t01=0x0168}
0x1e274…1e27e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x018a}
0x1e27e…1e294 (309, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0135, t01=0x0004}
0x1e294…1e2b0               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0135, t01=0x001a}
0x1e2b0…1e2ca               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0135, t01=0x0036}
0x1e2ca…1e2d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x0050}
0x1e2d6…1e2e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x005c}
0x1e2e0…1e2f6               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0135, t01=0x0066}
0x1e2f6…1e306               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0135, t01=0x007c}
0x1e306…1e312               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x008c}
0x1e312…1e31c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0098}
0x1e31c…1e32a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0135, t01=0x00a2}
0x1e32a…1e334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x00b0}
0x1e334…1e378               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0135, t01=0x00ba}
0x1e378…1e382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x00fe}
0x1e382…1e39a               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0135, t01=0x0108}
0x1e39a…1e3aa               Head {h00=0x000c, h01=0x0050, text=»* STAHAN«, t00=0x0135, t01=0x0120}
0x1e3aa…1e3b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0130}
0x1e3b4…1e3c8               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0135, t01=0x013a}
0x1e3c8…1e3fe               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES PLC STATUS WORD FOR ONE«, t00=0x0135, t01=0x014e}
0x1e3fe…1e436               Head {h00=0x0034, h01=0x0050, text=»* WORK STATION. IF "NO CONNECTION", "LINK RESET"«, t00=0x0135, t01=0x0184}
0x1e436…1e46c               Head {h00=0x0032, h01=0x0050, text=»* OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR«, t00=0x0136, t01=0x002c}
0x1e46c…1e482               Head {h00=0x0012, h01=0x0050, text=»* CODE WILL BE«, t00=0x0136, t01=0x0062}
0x1e482…1e4ba               Head {h00=0x0034, h01=0x0050, text=»* SET IN THE WORK STATION STATUS WORD (CWTWSS). «, t00=0x0136, t01=0x0078}
0x1e4ba…1e4e6               Head {h00=0x0028, h01=0x0050, text=»* OTHER STATUS BITS ARE NOT ALLOWED.«, t00=0x0136, t01=0x00b0}
0x1e4e6…1e4f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x00dc}
0x1e4f0…1e500               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0136, t01=0x00e6}
0x1e500…1e518               Head {h00=0x0014, h01=0x0050, text=»* CF A15,STAHAN «, t00=0x0136, t01=0x00f6}
0x1e518…1e522               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x010e}
0x1e522…1e532               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0136, t01=0x0118}
0x1e532…1e54c               Head {h00=0x0016, h01=0x0050, text=»* A1  = PLC STATUS«, t00=0x0136, t01=0x0128}
0x1e54c…1e570               Head {h00=0x0020, h01=0x0050, text=»* A2  = WORK STATION NUMBER «, t00=0x0136, t01=0x0142}
0x1e570…1e58c               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0136, t01=0x0166}
0x1e58c…1e596               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x0182}
0x1e596…1e5a8               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0136, t01=0x018c}
0x1e5a8…1e5ca               Head {h00=0x001e, h01=0x0050, text=»* A1  = DEVICE RETURN CODE«, t00=0x0137, t01=0x000e}
0x1e5ca…1e5e2               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0137, t01=0x0030}
0x1e5e2…1e5ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0048}
0x1e5ec…1e630               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0137, t01=0x0052}
0x1e630…1e63a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0096}
0x1e63a…1e64e               Head {h00=0x0010, h01=0x0050, text=»STAHAN EQU *«, t00=0x0137, t01=0x00a0}
0x1e64e…1e66a               Head {h00=0x0018, h01=0x0050, text=» STR A3,A15 PUSH A3 «, t00=0x0137, t01=0x00b4}
0x1e66a…1e688               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 ANY ERROR? «, t00=0x0137, t01=0x00d0}
0x1e688…1e6a8               Head {h00=0x001c, h01=0x0050, text=» RF(Z) SH120 NO, RETURN «, t00=0x0137, t01=0x00ee}
0x1e6a8…1e6c4               Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 PUSH A4 «, t00=0x0137, t01=0x010e}
0x1e6c4…1e6ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x012a}
0x1e6ce…1e6dc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0137, t01=0x0134}
0x1e6dc…1e6e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0142}
0x1e6e6…1e712               Head {h00=0x0028, h01=0x0050, text=» LDK A1,NOTOPR ASSUME NO CONNECTION «, t00=0x0137, t01=0x014c}
0x1e712…1e738               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,STADNO+STANOC IS IT? «, t00=0x0137, t01=0x0178}
0x1e738…1e75c               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SH100 YES, CONTINUE «, t00=0x0138, t01=0x000e}
0x1e75c…1e782               Head {h00=0x0022, h01=0x0050, text=» LDK A1,LINERR NO, LINK ERROR «, t00=0x0138, t01=0x0032}
0x1e782…1e796               Head {h00=0x0010, h01=0x0050, text=»SH100 EQU * «, t00=0x0138, t01=0x0058}
0x1e796…1e7bc               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A2 WORK STATION NUMBER«, t00=0x0138, t01=0x006c}
0x1e7bc…1e7d8               Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x0138, t01=0x0092}
0x1e7d8…1e7fa               Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x0138, t01=0x00ae}
0x1e7fa…1e830               Head {h00=0x0032, h01=0x0050, text=» ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS «, t00=0x0138, t01=0x00d0}
0x1e830…1e852               Head {h00=0x001e, h01=0x0050, text=» SCR A1,A3 SAVE ERROR CODE«, t00=0x0138, t01=0x0106}
0x1e852…1e87c               Head {h00=0x0026, h01=0x0050, text=» LDK A4,WSFERR WORK STATION ERROR «, t00=0x0138, t01=0x0128}
0x1e87c…1e8a2               Head {h00=0x0022, h01=0x0050, text=» ANR* A4,A3 ALREADY DETECTED? «, t00=0x0138, t01=0x0152}
0x1e8a2…1e8c4               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SH110 YES, RETURN «, t00=0x0138, t01=0x0178}
0x1e8c4…1e8da               Head {h00=0x0012, h01=0x0050, text=» LDK A4,WSFERR«, t00=0x0139, t01=0x000a}
0x1e8da…1e900               Head {h00=0x0022, h01=0x0050, text=» ORRS A4,A3 SET ERROR DETECTED«, t00=0x0139, t01=0x0020}
0x1e900…1e934               Head {h00=0x0030, h01=0x0050, text=» ST A2,CWTABW,A5 INDICATE ABORT DWT:S FOR WS«, t00=0x0139, t01=0x0046}
0x1e934…1e93e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x007a}
0x1e93e…1e952               Head {h00=0x0010, h01=0x0050, text=»SH110 EQU * «, t00=0x0139, t01=0x0084}
0x1e952…1e96e               Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x0139, t01=0x0098}
0x1e96e…1e982               Head {h00=0x0010, h01=0x0050, text=»SH120 EQU * «, t00=0x0139, t01=0x00b4}
0x1e982…1e99e               Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A15 POP A3 «, t00=0x0139, t01=0x00c8}
0x1e99e…1e9a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x00e4}
0x1e9a8…1e9be               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0139, t01=0x00ee}
0x1e9be…1e9da               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0139, t01=0x0104}
0x1e9da…1e9f4               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0139, t01=0x0120}
0x1e9f4…1ea00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0139, t01=0x013a}
0x1ea00…1ea16               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0139, t01=0x0146}
0x1ea16…1ea26               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0139, t01=0x015c}
0x1ea26…1ea32               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0139, t01=0x016c}
0x1ea32…1ea3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x0178}
0x1ea3c…1ea4a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0139, t01=0x0182}
0x1ea4a…1ea54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x0190}
0x1ea54…1ea98               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x013a, t01=0x000a}
0x1ea98…1eaa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x004e}
0x1eaa2…1eaba               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x013a, t01=0x0058}
0x1eaba…1eaca               Head {h00=0x000c, h01=0x0050, text=»* GETSTA«, t00=0x013a, t01=0x0070}
0x1eaca…1ead4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x0080}
0x1ead4…1eae8               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x013a, t01=0x008a}
0x1eae8…1eb1c               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE WILL CHECK THE I/O STATUS FOR«, t00=0x013a, t01=0x009e}
0x1eb1c…1eb30               Head {h00=0x0010, h01=0x0050, text=»* A DEVICE. «, t00=0x013a, t01=0x00d2}
0x1eb30…1eb64               Head {h00=0x0030, h01=0x0050, text=»* GETWSS WILL ONLY CHECK THE STATUS FOR THE «, t00=0x013a, t01=0x00e6}
0x1eb64…1eb86               Head {h00=0x001e, h01=0x0050, text=»* WORK STATION CONNECTION.«, t00=0x013a, t01=0x011a}
0x1eb86…1ebba               Head {h00=0x0030, h01=0x0050, text=»* GETLCS WILL CHECK BOTH LOGICAL CHANNEL AND«, t00=0x013a, t01=0x013c}
0x1ebba…1ebd8               Head {h00=0x001a, h01=0x0050, text=»* WORK STATION STATUS.«, t00=0x013a, t01=0x0170}
0x1ebd8…1ebe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x018e}
0x1ebe2…1ebf2               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x013b, t01=0x0008}
0x1ebf2…1ec0a               Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETLCS «, t00=0x013b, t01=0x0018}
0x1ec0a…1ec22               Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETWSS «, t00=0x013b, t01=0x0030}
0x1ec22…1ec2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0048}
0x1ec2c…1ec3c               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x013b, t01=0x0052}
0x1ec3c…1ec58               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x013b, t01=0x0062}
0x1ec58…1ec74               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x013b, t01=0x007e}
0x1ec74…1ec7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x009a}
0x1ec7e…1ec90               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x013b, t01=0x00a4}
0x1ec90…1ecac               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x013b, t01=0x00b6}
0x1ecac…1ecca               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A1«, t00=0x013b, t01=0x00d2}
0x1ecca…1ece6               Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x013b, t01=0x00f0}
0x1ece6…1ecf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x010c}
0x1ecf0…1ed34               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x013b, t01=0x0116}
0x1ed34…1ed3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x015a}
0x1ed3e…1ed52               Head {h00=0x0010, h01=0x0050, text=»GETLCS EQU *«, t00=0x013b, t01=0x0164}
0x1ed52…1ed5e               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x013b, t01=0x0178}
0x1ed5e…1ed7a               Head {h00=0x0018, h01=0x0050, text=» STR A3,A15 PUSH A3 «, t00=0x013b, t01=0x0184}
0x1ed7a…1ed84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x0010}
0x1ed84…1edb2               Head {h00=0x002a, h01=0x0050, text=» LDK A1,LINERR SET RETURN CODE IN CASE«, t00=0x013c, t01=0x001a}
0x1edb2…1edd4               Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTST,A6 DWT STATUS«, t00=0x013c, t01=0x0048}
0x1edd4…1ee02               Head {h00=0x002a, h01=0x0050, text=» ANK A3,DWFRES RESET PACKET RECIEVED? «, t00=0x013c, t01=0x006a}
0x1ee02…1ee36               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) LS110 YES, RETURN. RET CODE = LINERR«, t00=0x013c, t01=0x0098}
0x1ee36…1ee5c               Head {h00=0x0022, h01=0x0050, text=» RF LS100 NOT RESET. CHECK WSS«, t00=0x013c, t01=0x00cc}
0x1ee5c…1ee66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00f2}
0x1ee66…1ee70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00fc}
0x1ee70…1ee84               Head {h00=0x0010, h01=0x0050, text=»GETWSS EQU *«, t00=0x013c, t01=0x0106}
0x1ee84…1ee90               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x013c, t01=0x011a}
0x1ee90…1eeac               Head {h00=0x0018, h01=0x0050, text=» STR A3,A15 PUSH A3 «, t00=0x013c, t01=0x0126}
0x1eeac…1eeb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x0142}
0x1eeb6…1eec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x014c}
0x1eec0…1eed4               Head {h00=0x0010, h01=0x0050, text=»LS100 EQU * «, t00=0x013c, t01=0x0156}
0x1eed4…1eef6               Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTCP2,A6 WS NUMBER«, t00=0x013c, t01=0x016a}
0x1eef6…1ef12               Head {h00=0x0018, h01=0x0050, text=» ANK A3,MASKWS CLEAN«, t00=0x013c, t01=0x018c}
0x1ef12…1ef2e               Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x013d, t01=0x0018}
0x1ef2e…1ef4c               Head {h00=0x001a, h01=0x0050, text=» ADR A3,A5 CWT ADDRESS«, t00=0x013d, t01=0x0034}
0x1ef4c…1ef6e               Head {h00=0x001e, h01=0x0050, text=» LC A1,CWTWSS,A3 WS STATUS«, t00=0x013d, t01=0x0052}
0x1ef6e…1ef78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0074}
0x1ef78…1ef82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x007e}
0x1ef82…1ef96               Head {h00=0x0010, h01=0x0050, text=»LS110 EQU * «, t00=0x013d, t01=0x0088}
0x1ef96…1efb2               Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A15 POP A3 «, t00=0x013d, t01=0x009c}
0x1efb2…1efd2               Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x013d, t01=0x00b8}
0x1efd2…1f000               Head {h00=0x002a, h01=0x0050, text=» ANK A1,/FF CLEAN RETURN CODE & SET CR«, t00=0x013d, t01=0x00d8}
0x1f000…1f018               Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x013d, t01=0x0106}
0x1f018…1f022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x011e}
0x1f022…1f030               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013d, t01=0x0128}
0x1f030…1f03a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0136}
0x1f03a…1f07e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x013d, t01=0x0140}
0x1f07e…1f088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0184}
0x1f088…1f0a0               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x013d, t01=0x018e}
0x1f0a0…1f0b0               Head {h00=0x000c, h01=0x0050, text=»* PLGTBU«, t00=0x013e, t01=0x0016}
0x1f0b0…1f0ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0026}
0x1f0ba…1f0ce               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x013e, t01=0x0030}
0x1f0ce…1f10a               Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE WILL ALLOCATE A BUFFER AND FORMAT IT «, t00=0x013e, t01=0x0044}
0x1f10a…1f140               Head {h00=0x0032, h01=0x0050, text=»* ACCORDING TO THE FORMAT USED BY THIS DRIVER.«, t00=0x013e, t01=0x0080}
0x1f140…1f14a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x00b6}
0x1f14a…1f15a               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x013e, t01=0x00c0}
0x1f15a…1f172               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLGTBU «, t00=0x013e, t01=0x00d0}
0x1f172…1f17c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x00e8}
0x1f17c…1f18c               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x013e, t01=0x00f2}
0x1f18c…1f1ae               Head {h00=0x001e, h01=0x0050, text=»* A7  = POOLBLOCK ADDRESS «, t00=0x013e, t01=0x0102}
0x1f1ae…1f1b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0124}
0x1f1b8…1f1ca               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x013e, t01=0x012e}
0x1f1ca…1f1f8               Head {h00=0x002a, h01=0x0050, text=»* A2  = LENGTH OF USER PART OF BUFFER «, t00=0x013e, t01=0x0140}
0x1f1f8…1f22e               Head {h00=0x0032, h01=0x0050, text=»* A4  = START OF USER PART OF BUFFER (IF ANY) «, t00=0x013e, t01=0x016e}
0x1f22e…1f258               Head {h00=0x0026, h01=0x0050, text=»* CR  = NOT 0 IF BUFFER ALLOCATED «, t00=0x013f, t01=0x0014}
0x1f258…1f27c               Head {h00=0x0020, h01=0x0050, text=»*  0 IF NO BUFFER ALLOCATED «, t00=0x013f, t01=0x003e}
0x1f27c…1f298               Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x013f, t01=0x0062}
0x1f298…1f2a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x007e}
0x1f2a2…1f2e6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x013f, t01=0x0088}
0x1f2e6…1f2f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00cc}
0x1f2f0…1f304               Head {h00=0x0010, h01=0x0050, text=»PLGTBU EQU *«, t00=0x013f, t01=0x00d6}
0x1f304…1f322               Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A15 SKIP PSW «, t00=0x013f, t01=0x00ea}
0x1f322…1f34a               Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A15 GET RETURN ADDRESS «, t00=0x013f, t01=0x0108}
0x1f34a…1f372               Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBUF A4 := BUFFER. INH«, t00=0x013f, t01=0x0130}
0x1f372…1f398               Head {h00=0x0022, h01=0x0050, text=» ABR(Z) A2 RETURN IF NO BUFFER«, t00=0x013f, t01=0x0158}
0x1f398…1f3a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x017e}
0x1f3a2…1f3ca               Head {h00=0x0024, h01=0x0050, text=» ST A2,0,A15 SAVE RETURN ADDRESS«, t00=0x013f, t01=0x0188}
0x1f3ca…1f3f4               Head {h00=0x0026, h01=0x0050, text=» ADK A4,BUFHLN START OF USER PART «, t00=0x0140, t01=0x0020}
0x1f3f4…1f424               Head {h00=0x002c, h01=0x0050, text=» ST A7,BUFLNK,A4 SAVE POOLBLOCK ADDRESS «, t00=0x0140, t01=0x004a}
0x1f424…1f448               Head {h00=0x0020, h01=0x0050, text=» LD A2,POBBUS,A7 BUFFER SIZE«, t00=0x0140, t01=0x007a}
0x1f448…1f478               Head {h00=0x002c, h01=0x0050, text=» SUK A2,BUFHLN A2 := LENGTH OF USER PART«, t00=0x0140, t01=0x009e}
0x1f478…1f49c               Head {h00=0x0020, h01=0x0050, text=» RF(P) GU100 CONTINUE IF OK «, t00=0x0140, t01=0x00ce}
0x1f49c…1f4d0               Head {h00=0x0030, h01=0x0050, text=» ANK A2,0 TOO SHORT. BUFFER LENGTH & CR := 0«, t00=0x0140, t01=0x00f2}
0x1f4d0…1f4e4               Head {h00=0x0010, h01=0x0050, text=»GU100 EQU * «, t00=0x0140, t01=0x0126}
0x1f4e4…1f510               Head {h00=0x0028, h01=0x0050, text=» ST A2,BUFLEN,A4 USER BUFFER LENGTH «, t00=0x0140, t01=0x013a}
0x1f510…1f528               Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x0140, t01=0x0166}
0x1f528…1f532               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x017e}
0x1f532…1f540               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x0188}
0x1f540…1f54a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0008}
0x1f54a…1f58e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0141, t01=0x0012}
0x1f58e…1f598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0056}
0x1f598…1f5b0               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0141, t01=0x0060}
0x1f5b0…1f5c0               Head {h00=0x000c, h01=0x0050, text=»* PLRLBU«, t00=0x0141, t01=0x0078}
0x1f5c0…1f5ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0088}
0x1f5ca…1f5de               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0141, t01=0x0092}
0x1f5de…1f612               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE RELEASES AN I/O BUFFER OF THE«, t00=0x0141, t01=0x00a6}
0x1f612…1f638               Head {h00=0x0022, h01=0x0050, text=»* FORMAT USED BY THIS DRIVER. «, t00=0x0141, t01=0x00da}
0x1f638…1f642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0100}
0x1f642…1f652               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0141, t01=0x010a}
0x1f652…1f66a               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLRLBU «, t00=0x0141, t01=0x011a}
0x1f66a…1f674               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0132}
0x1f674…1f684               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0141, t01=0x013c}
0x1f684…1f6a2               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x0141, t01=0x014c}
0x1f6a2…1f6ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x016a}
0x1f6ac…1f6be               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0141, t01=0x0174}
0x1f6be…1f6d6               Head {h00=0x0014, h01=0x0050, text=»* A4  = CHANGED «, t00=0x0141, t01=0x0186}
0x1f6d6…1f6ee               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0142, t01=0x000e}
0x1f6ee…1f714               Head {h00=0x0022, h01=0x0050, text=»* INTERR. INHIBITED IF CPU 852«, t00=0x0142, t01=0x0026}
0x1f714…1f71e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x004c}
0x1f71e…1f762               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0142, t01=0x0056}
0x1f762…1f76c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x009a}
0x1f76c…1f780               Head {h00=0x0010, h01=0x0050, text=»PLRLBU EQU *«, t00=0x0142, t01=0x00a4}
0x1f780…1f79c               Head {h00=0x0018, h01=0x0050, text=» STR A7,A15 PUSH A7 «, t00=0x0142, t01=0x00b8}
0x1f79c…1f7c6               Head {h00=0x0026, h01=0x0050, text=» LD A7,BUFLNK,A4 POOLBLOCK ADDRESS«, t00=0x0142, t01=0x00d4}
0x1f7c6…1f7fc               Head {h00=0x0032, h01=0x0050, text=» SUK A4,BUFHLN A4 :- PHYSICAL START OF BUFFER «, t00=0x0142, t01=0x00fe}
0x1f7fc…1f828               Head {h00=0x0028, h01=0x0050, text=» CF A15,RELBUF RELEASE BUFFER & INH «, t00=0x0142, t01=0x0134}
0x1f828…1f844               Head {h00=0x0018, h01=0x0050, text=» LDR* A7,A15 POP A7 «, t00=0x0142, t01=0x0160}
0x1f844…1f84e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x017c}
0x1f84e…1f864               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0142, t01=0x0186}
0x1f864…1f880               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0143, t01=0x000c}
0x1f880…1f89a               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0143, t01=0x0028}
0x1f89a…1f8a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0143, t01=0x0042}
0x1f8a6…1f8bc               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0143, t01=0x004e}
0x1f8bc…1f8cc               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0143, t01=0x0064}
0x1f8cc…1f8d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0143, t01=0x0074}
0x1f8d8…1f8e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0143, t01=0x0080}
0x1f8e6…1f8f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x008e}
0x1f8f0…1f934               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0143, t01=0x0098}
0x1f934…1f93e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x00dc}
0x1f93e…1f956               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0143, t01=0x00e6}
0x1f956…1f966               Head {h00=0x000c, h01=0x0050, text=»* PLCHAR«, t00=0x0143, t01=0x00fe}
0x1f966…1f970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x010e}
0x1f970…1f984               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0143, t01=0x0118}
0x1f984…1f9b8               Head {h00=0x0030, h01=0x0050, text=»* THESE ROUTINES ARE USED TO GET A CHARACTER«, t00=0x0143, t01=0x012c}
0x1f9b8…1f9f0               Head {h00=0x0034, h01=0x0050, text=»* FROM A BUFFER OR PUT A CHARACTER IN A BUFFER. «, t00=0x0143, t01=0x0160}
0x1f9f0…1fa28               Head {h00=0x0034, h01=0x0050, text=»* THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL «, t00=0x0144, t01=0x0008}
0x1fa28…1fa5a               Head {h00=0x002e, h01=0x0050, text=»* PLC FORMAT (SE "BUFFER LAYOUT" CONSTANT «, t00=0x0144, t01=0x0040}
0x1fa5a…1fa70               Head {h00=0x0012, h01=0x0050, text=»* DEFINITION).«, t00=0x0144, t01=0x0072}
0x1fa70…1fa7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0088}
0x1fa7a…1fa8a               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0144, t01=0x0092}
0x1fa8a…1faa2               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLGECH «, t00=0x0144, t01=0x00a2}
0x1faa2…1faba               Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLPUCH «, t00=0x0144, t01=0x00ba}
0x1faba…1fac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x00d2}
0x1fac4…1fad4               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0144, t01=0x00dc}
0x1fad4…1faf0               Head {h00=0x0018, h01=0x0050, text=»* A2  = IF PUT CHAR «, t00=0x0144, t01=0x00ec}
0x1faf0…1fb0e               Head {h00=0x001a, h01=0x0050, text=»*  BITS 0-7 IRRELEVANT«, t00=0x0144, t01=0x0108}
0x1fb0e…1fb2c               Head {h00=0x001a, h01=0x0050, text=»*  BITS 8-15 CHARACTER«, t00=0x0144, t01=0x0126}
0x1fb2c…1fb4a               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x0144, t01=0x0144}
0x1fb4a…1fb54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0162}
0x1fb54…1fb66               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0144, t01=0x016c}
0x1fb66…1fb82               Head {h00=0x0018, h01=0x0050, text=»* A1  = RETURN CODE «, t00=0x0144, t01=0x017e}
0x1fb82…1fbac               Head {h00=0x0026, h01=0x0050, text=»*  -1 IF OVERFLOW/UNDERFLOW, ELSE «, t00=0x0145, t01=0x000a}
0x1fbac…1fbc4               Head {h00=0x0014, h01=0x0050, text=»*   AT PLPUCH: 0«, t00=0x0145, t01=0x0034}
0x1fbc4…1fbf4               Head {h00=0x002c, h01=0x0050, text=»*   AT PLGECH: NR OF CHAR LEFT IN BUFFER«, t00=0x0145, t01=0x004c}
0x1fbf4…1fc18               Head {h00=0x0020, h01=0x0050, text=»* A2  = IF PLGECH & A1>=0 : «, t00=0x0145, t01=0x007c}
0x1fc18…1fc30               Head {h00=0x0014, h01=0x0050, text=»*  BITS 0-7 ZERO«, t00=0x0145, t01=0x00a0}
0x1fc30…1fc4e               Head {h00=0x001a, h01=0x0050, text=»*  BITS 8-15 CHARACTER«, t00=0x0145, t01=0x00b8}
0x1fc4e…1fc6a               Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0145, t01=0x00d6}
0x1fc6a…1fc74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x00f2}
0x1fc74…1fcb8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0145, t01=0x00fc}
0x1fcb8…1fcc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0140}
0x1fcc2…1fcd0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0145, t01=0x014a}
0x1fcd0…1fcda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0158}
0x1fcda…1fcee               Head {h00=0x0010, h01=0x0050, text=»PLGECH EQU *«, t00=0x0145, t01=0x0162}
0x1fcee…1fcfa               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0145, t01=0x0176}
0x1fcfa…1fd04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0182}
0x1fd04…1fd36               Head {h00=0x002e, h01=0x0050, text=» LD A1,BUFLEN,A4 LENGTH OF TEXT IN BUFFER «, t00=0x0145, t01=0x018c}
0x1fd36…1fd5a               Head {h00=0x0020, h01=0x0050, text=» LD A2,BUFBIX,A4 BYTE INDEX «, t00=0x0146, t01=0x002e}
0x1fd5a…1fd6c               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0146, t01=0x0052}
0x1fd6c…1fd94               Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 A1 := NR OF CHAR LEFT «, t00=0x0146, t01=0x0064}
0x1fd94…1fdba               Head {h00=0x0022, h01=0x0050, text=» RF(N) CH100 EXIT IF UNDERFLOW«, t00=0x0146, t01=0x008c}
0x1fdba…1fde0               Head {h00=0x0022, h01=0x0050, text=» IM BUFBIX,A4 INCREMENT INDEX «, t00=0x0146, t01=0x00b2}
0x1fde0…1fe10               Head {h00=0x002c, h01=0x0050, text=» ADR A2,A4 ABSOLUTE ADDRESS OF CHARACTER«, t00=0x0146, t01=0x00d8}
0x1fe10…1fe30               Head {h00=0x001c, h01=0x0050, text=» LCR A2,A2 GET CHARACTER«, t00=0x0146, t01=0x0108}
0x1fe30…1fe4a               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/FF CLEAN «, t00=0x0146, t01=0x0128}
0x1fe4a…1fe54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0142}
0x1fe54…1fe72               Head {h00=0x001a, h01=0x0050, text=» RF CH110 NORMAL EXIT «, t00=0x0146, t01=0x014c}
0x1fe72…1fe7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x016a}
0x1fe7c…1fe86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0174}
0x1fe86…1fe9a               Head {h00=0x0010, h01=0x0050, text=»PLPUCH EQU *«, t00=0x0146, t01=0x017e}
0x1fe9a…1fea6 (327, 0, 400) Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0147, t01=0x0004}
0x1fea6…1feb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0010}
0x1feb0…1fed4               Head {h00=0x0020, h01=0x0050, text=» LD A1,BUFBIX,A4 BYTE INDEX «, t00=0x0147, t01=0x001a}
0x1fed4…1fefc               Head {h00=0x0024, h01=0x0050, text=» CW A1,BUFLEN,A4 OUTSIDE BUFFER?«, t00=0x0147, t01=0x003e}
0x1fefc…1ff1c               Head {h00=0x001c, h01=0x0050, text=» RF(NL) CH100 YES, ERROR«, t00=0x0147, t01=0x0066}
0x1ff1c…1ff42               Head {h00=0x0022, h01=0x0050, text=» IM BUFBIX,A4 INCREMENT INDEX «, t00=0x0147, t01=0x0086}
0x1ff42…1ff6a               Head {h00=0x0024, h01=0x0050, text=» ADR A1,A4 FREE PLACE IN BUFFER «, t00=0x0147, t01=0x00ac}
0x1ff6a…1ff94               Head {h00=0x0026, h01=0x0050, text=» SCR A2,A1 PUT CHARACTER IN BUFFER«, t00=0x0147, t01=0x00d4}
0x1ff94…1ffb8               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x0147, t01=0x00fe}
0x1ffb8…1ffd6               Head {h00=0x001a, h01=0x0050, text=» RF CH110 NORMAL EXIT «, t00=0x0147, t01=0x0122}
0x1ffd6…1ffe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0140}
0x1ffe0…1ffea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x014a}
0x1ffea…1fffe               Head {h00=0x0010, h01=0x0050, text=»CH100 EQU * «, t00=0x0147, t01=0x0154}
0x1fffe…20026               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,-1 RETURN CODE := ERROR«, t00=0x0147, t01=0x0168}
0x20026…2003a               Head {h00=0x0010, h01=0x0050, text=»CH110 EQU * «, t00=0x0147, t01=0x0190}
0x2003a…2005a               Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x0148, t01=0x0014}
0x2005a…20072               Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x0148, t01=0x0034}
0x20072…2007c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x004c}
0x2007c…2008a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0148, t01=0x0056}
0x2008a…20094               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x0064}
0x20094…200d8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0148, t01=0x006e}
0x200d8…200e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x00b2}
0x200e2…200fa               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0148, t01=0x00bc}
0x200fa…2010a               Head {h00=0x000c, h01=0x0050, text=»* INTYPE«, t00=0x0148, t01=0x00d4}
0x2010a…20114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x00e4}
0x20114…20128               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0148, t01=0x00ee}
0x20128…20160               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE CHECKS A GENERAL READ ANSWER FROM«, t00=0x0148, t01=0x0102}
0x20160…20190               Head {h00=0x002c, h01=0x0050, text=»* THE PLC TO DETERMINE TYPE OF MESSAGE. «, t00=0x0148, t01=0x013a}
0x20190…2019a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x016a}
0x2019a…201aa               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0148, t01=0x0174}
0x201aa…201c2               Head {h00=0x0014, h01=0x0050, text=»* CF A15,INTYPE «, t00=0x0148, t01=0x0184}
0x201c2…201cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x000c}
0x201cc…201dc               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0149, t01=0x0016}
0x201dc…201f8               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x0149, t01=0x0026}
0x201f8…20202               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0042}
0x20202…20214               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0149, t01=0x004c}
0x20214…2022c               Head {h00=0x0014, h01=0x0050, text=»* A2  = CHANGED «, t00=0x0149, t01=0x005e}
0x2022c…20240               Head {h00=0x0010, h01=0x0050, text=»* A3  = TYPE«, t00=0x0149, t01=0x0076}
0x20240…20258               Head {h00=0x0014, h01=0x0050, text=»* A4  = CHANGED «, t00=0x0149, t01=0x008a}
0x20258…20270               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0149, t01=0x00a2}
0x20270…2027a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x00ba}
0x2027a…202be               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0149, t01=0x00c4}
0x202be…202c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0108}
0x202c8…202dc               Head {h00=0x0010, h01=0x0050, text=»INTYPE EQU *«, t00=0x0149, t01=0x0112}
0x202dc…20308               Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT MINIMUM INPUT LENGTH «, t00=0x0149, t01=0x0126}
0x20308…2033a               Head {h00=0x002e, h01=0x0050, text=» CW A2,CWTRCA+CCRLEN,A5 LENGTH >= MINIMUM?«, t00=0x0149, t01=0x0152}
0x2033a…20358               Head {h00=0x001a, h01=0x0050, text=» RF(G) ITERR NO, ERROR«, t00=0x0149, t01=0x0184}
0x20358…20362               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0012}
0x20362…20370               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014a, t01=0x001c}
0x20370…2037a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x002a}
0x2037a…203a8               Head {h00=0x002a, h01=0x0050, text=» LD A3,CWTRCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x014a, t01=0x0034}
0x203a8…203ce               Head {h00=0x0022, h01=0x0050, text=» LC A2,X25LGN,A3 GROUP NUMBER «, t00=0x014a, t01=0x0062}
0x203ce…203e6               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A2 SAVE «, t00=0x014a, t01=0x0088}
0x203e6…20400               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/0F CLEAN «, t00=0x014a, t01=0x00a0}
0x20400…20424               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) IT120 NOT GROUP ZERO«, t00=0x014a, t01=0x00ba}
0x20424…2042e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x00de}
0x2042e…20460               Head {h00=0x002e, h01=0x0050, text=»*    CHANNEL GROUP ZERO. NORMAL MESSAGES. «, t00=0x014a, t01=0x00e8}
0x20460…2048a               Head {h00=0x0026, h01=0x0050, text=» LC A3,X25FLW,A3 FLOW CONTROL BYTE«, t00=0x014a, t01=0x011a}
0x2048a…204a2               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x014a, t01=0x0144}
0x204a2…204ba               Head {h00=0x0014, h01=0x0050, text=» ANK A4,/01 FLAG«, t00=0x014a, t01=0x015c}
0x204ba…204e0               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) IT100 NOT DATA PACKET «, t00=0x014a, t01=0x0174}
0x204e0…2050a               Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYDATA ASSUME NORMAL DATA «, t00=0x014b, t01=0x000a}
0x2050a…2052e               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/80 QUALIFY BIT SET?«, t00=0x014b, t01=0x0034}
0x2052e…2055a               Head {h00=0x0028, h01=0x0050, text=» RF(Z) ITEXIT NO, NORMAL DATA. EXIT «, t00=0x014b, t01=0x0058}
0x2055a…20584               Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYSTAT YES, STATUS MESSAGE«, t00=0x014b, t01=0x0084}
0x20584…2059c               Head {h00=0x0014, h01=0x0050, text=» RF ITEXIT EXIT «, t00=0x014b, t01=0x00ae}
0x2059c…205a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x00c6}
0x205a6…205ba               Head {h00=0x0010, h01=0x0050, text=»IT100 EQU * «, t00=0x014b, t01=0x00d0}
0x205ba…205e4               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A3 SAVE FLOW CONTROL BYTE «, t00=0x014b, t01=0x00e4}
0x205e4…20606               Head {h00=0x001e, h01=0x0050, text=» ANK A3,/02 RECIEVE READY?«, t00=0x014b, t01=0x010e}
0x20606…2061e               Head {h00=0x0014, h01=0x0050, text=» RF(NZ) IT110 NO«, t00=0x014b, t01=0x0130}
0x2061e…20648               Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYRR TYPE := RECIEVE READY«, t00=0x014b, t01=0x0148}
0x20648…20660               Head {h00=0x0014, h01=0x0050, text=» RF ITEXIT EXIT «, t00=0x014b, t01=0x0172}
0x20660…2066a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x018a}
0x2066a…2067e (332, 0, 400) Head {h00=0x0010, h01=0x0050, text=»IT110 EQU * «, t00=0x014c, t01=0x0004}
0x2067e…206a8               Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYRES ASSUME TYPE = RESET «, t00=0x014c, t01=0x0018}
0x206a8…206c8               Head {h00=0x001c, h01=0x0050, text=» ANK A4,/04 IS IT RESET?«, t00=0x014c, t01=0x0042}
0x206c8…206e8               Head {h00=0x001c, h01=0x0050, text=» RF(Z) ITEXIT YES, EXIT «, t00=0x014c, t01=0x0062}
0x206e8…2071e               Head {h00=0x0032, h01=0x0050, text=» LDK A3,TYRESC NO, TYPE := RESET CONFIRMATION «, t00=0x014c, t01=0x0082}
0x2071e…20736               Head {h00=0x0014, h01=0x0050, text=» RF ITEXIT EXIT «, t00=0x014c, t01=0x00b8}
0x20736…20740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x00d0}
0x20740…2074e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014c, t01=0x00da}
0x2074e…20758               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x00e8}
0x20758…2076c               Head {h00=0x0010, h01=0x0050, text=»IT120 EQU * «, t00=0x014c, t01=0x00f2}
0x2076c…2078c               Head {h00=0x001c, h01=0x0050, text=»*    NOT NORMAL MESSAGE «, t00=0x014c, t01=0x0106}
0x2078c…207c0               Head {h00=0x0030, h01=0x0050, text=» LDK A3,TYNFLO ASSUME TYPE = NO FLOW CONTROL«, t00=0x014c, t01=0x0126}
0x207c0…207e8               Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 IS IT NO FLOW CONTROL?«, t00=0x014c, t01=0x015a}
0x207e8…20808               Head {h00=0x001c, h01=0x0050, text=» RF(Z) ITEXIT YES, EXIT «, t00=0x014c, t01=0x0182}
0x20808…20812               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0012}
0x20812…20826               Head {h00=0x0010, h01=0x0050, text=»ITERR EQU * «, t00=0x014d, t01=0x001c}
0x20826…20850               Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYERR IRRECOVERABLE ERROR «, t00=0x014d, t01=0x0030}
0x20850…2085a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x005a}
0x2085a…2086e               Head {h00=0x0010, h01=0x0050, text=»ITEXIT EQU *«, t00=0x014d, t01=0x0064}
0x2086e…20884               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x014d, t01=0x0078}
0x20884…208a0               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x014d, t01=0x008e}
0x208a0…208ba               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x014d, t01=0x00aa}
0x208ba…208c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014d, t01=0x00c4}
0x208c6…208dc               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x014d, t01=0x00d0}
0x208dc…208ec               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x014d, t01=0x00e6}
0x208ec…208f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014d, t01=0x00f6}
0x208f8…20902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0102}
0x20902…20910               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014d, t01=0x010c}
0x20910…2091a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x011a}
0x2091a…2095e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x014d, t01=0x0124}
0x2095e…20968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0168}
0x20968…20980               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x014d, t01=0x0172}
0x20980…20990               Head {h00=0x000c, h01=0x0050, text=»* OUTBUQ«, t00=0x014d, t01=0x018a}
0x20990…2099a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x000a}
0x2099a…209ae               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x014e, t01=0x0014}
0x209ae…209ea               Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE WILL REMOVE A DWT FROM THE QUEUES FOR«, t00=0x014e, t01=0x0028}
0x209ea…20a22               Head {h00=0x0034, h01=0x0050, text=»* SHORT OR LONG OUTPUT BUFFERS, IF IT IS IN ANY «, t00=0x014e, t01=0x0064}
0x20a22…20a3a               Head {h00=0x0014, h01=0x0050, text=»* OF THE QUEUES.«, t00=0x014e, t01=0x009c}
0x20a3a…20a44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00b4}
0x20a44…20a54               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x014e, t01=0x00be}
0x20a54…20a6c               Head {h00=0x0014, h01=0x0050, text=»* CF A15,OUTBUQ «, t00=0x014e, t01=0x00ce}
0x20a6c…20a76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00e6}
0x20a76…20a86               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x014e, t01=0x00f0}
0x20a86…20aa2               Head {h00=0x0018, h01=0x0050, text=»* A5  = CWT ADDRESS «, t00=0x014e, t01=0x0100}
0x20aa2…20abe               Head {h00=0x0018, h01=0x0050, text=»* A6  = DWT ADDRESS «, t00=0x014e, t01=0x011c}
0x20abe…20ac8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0138}
0x20ac8…20ada               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x014e, t01=0x0142}
0x20ada…20afc               Head {h00=0x001e, h01=0x0050, text=»* A2  = NOT 0 IF DWT FOUND«, t00=0x014e, t01=0x0154}
0x20afc…20b1a               Head {h00=0x001a, h01=0x0050, text=»*   0 IF DWT NOT FOUND«, t00=0x014e, t01=0x0176}
0x20b1a…20b32 (335, 0, 398) Head {h00=0x0014, h01=0x0050, text=»* A4  = CHANGED «, t00=0x014f, t01=0x0004}
0x20b32…20b4a               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x014f, t01=0x001c}
0x20b4a…20b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0034}
0x20b54…20b98               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x014f, t01=0x003e}
0x20b98…20ba2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0082}
0x20ba2…20bb6               Head {h00=0x0010, h01=0x0050, text=»OUTBUQ EQU *«, t00=0x014f, t01=0x008c}
0x20bb6…20bd2               Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x014f, t01=0x00a0}
0x20bd2…20bee               Head {h00=0x0018, h01=0x0050, text=» STR A7,A15 PUSH A7 «, t00=0x014f, t01=0x00bc}
0x20bee…20c0c               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A6 DWT ADDRESS«, t00=0x014f, t01=0x00d8}
0x20c0c…20c2e               Head {h00=0x001e, h01=0x0050, text=» ADKL A4,DWTOTQ QUEUE LINK«, t00=0x014f, t01=0x00f6}
0x20c2e…20c38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0118}
0x20c38…20c56               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x014f, t01=0x0122}
0x20c56…20c80               Head {h00=0x0026, h01=0x0050, text=» ADK A7,CWTSBQ SHORT BUFFERS QUEUE«, t00=0x014f, t01=0x0140}
0x20c80…20cac               Head {h00=0x0028, h01=0x0050, text=» CF A15,LNKOUT REMOVE DWT FROM QUEUE«, t00=0x014f, t01=0x016a}
0x20cac…20cc6               Head {h00=0x0016, h01=0x0050, text=» LDR A7,A7 FOUND? «, t00=0x0150, t01=0x0008}
0x20cc6…20ce8               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) OB100 YES, RETURN «, t00=0x0150, t01=0x0022}
0x20ce8…20cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x0044}
0x20cf2…20d04               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0150, t01=0x004e}
0x20d04…20d2e               Head {h00=0x0026, h01=0x0050, text=» ADKL A7,CWTLBQ LONG BUFFERS QUEUE«, t00=0x0150, t01=0x0060}
0x20d2e…20d56               Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x0150, t01=0x008a}
0x20d56…20d60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x00b2}
0x20d60…20d74               Head {h00=0x0010, h01=0x0050, text=»OB100 EQU * «, t00=0x0150, t01=0x00bc}
0x20d74…20d9e               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A7 A2 := FOUND / NOT FOUND«, t00=0x0150, t01=0x00d0}
0x20d9e…20da8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x00fa}
0x20da8…20dc4               Head {h00=0x0018, h01=0x0050, text=» LDR* A7,A15 POP A7 «, t00=0x0150, t01=0x0104}
0x20dc4…20de0               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x0150, t01=0x0120}
0x20de0…20df6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0150, t01=0x013c}
0x20df6…20e12               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0150, t01=0x0152}
0x20e12…20e2c               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0150, t01=0x016e}
0x20e2c…20e38               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0150, t01=0x0188}
0x20e38…20e4e (337, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0151, t01=0x0004}
0x20e4e…20e5e               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0151, t01=0x001a}
0x20e5e…20e6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0151, t01=0x002a}
0x20e6a…20e74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x0036}
0x20e74…20e82               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0151, t01=0x0040}
0x20e82…20e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x004e}
0x20e8c…20ed0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0151, t01=0x0058}
0x20ed0…20eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x009c}
0x20eda…20ef2               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0151, t01=0x00a6}
0x20ef2…20f02               Head {h00=0x000c, h01=0x0050, text=»* LNKFST«, t00=0x0151, t01=0x00be}
0x20f02…20f0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00ce}
0x20f0c…20f20               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0151, t01=0x00d8}
0x20f20…20f56               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN «, t00=0x0151, t01=0x00ec}
0x20f56…20f80               Head {h00=0x0026, h01=0x0050, text=»* A QUEUE (CLOSEST TO QUEUE HEAD).«, t00=0x0151, t01=0x0122}
0x20f80…20fb6               Head {h00=0x0032, h01=0x0050, text=»* ONE WORD IN EACH ELEMENT IS USED AS A LINK. «, t00=0x0151, t01=0x014c}
0x20fb6…20fec               Head {h00=0x0032, h01=0x0050, text=»* END OF QUEUE IS INDICATED BY LINK=0 IN LAST «, t00=0x0151, t01=0x0182}
0x20fec…20ffe               Head {h00=0x000e, h01=0x0050, text=»* ELEMENT.«, t00=0x0152, t01=0x0028}
0x20ffe…21008               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x003a}
0x21008…21018               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0152, t01=0x0044}
0x21018…21030               Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKFST «, t00=0x0152, t01=0x0054}
0x21030…2103a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x006c}
0x2103a…2104a               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0152, t01=0x0076}
0x2104a…21074               Head {h00=0x0026, h01=0x0050, text=»* A4  = QUEUE ELEMENT LINK ADDRESS«, t00=0x0152, t01=0x0086}
0x21074…2109c               Head {h00=0x0024, h01=0x0050, text=»* A7  = QUEUE HEAD LINK ADDRESS «, t00=0x0152, t01=0x00b0}
0x2109c…210a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x00d8}
0x210a6…210b8               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0152, t01=0x00e2}
0x210b8…210d0               Head {h00=0x0014, h01=0x0050, text=»* A1  = CHANGED «, t00=0x0152, t01=0x00f4}
0x210d0…210e8               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0152, t01=0x010c}
0x210e8…210f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0124}
0x210f2…21136               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0152, t01=0x012e}
0x21136…21140               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0172}
0x21140…21154               Head {h00=0x0010, h01=0x0050, text=»LNKFST EQU *«, t00=0x0152, t01=0x017c}
0x21154…2117c               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A7 FIRST QUEUE ELEMENT «, t00=0x0152, t01=0x0190}
0x2117c…211a8               Head {h00=0x0028, h01=0x0050, text=» STR A1,A4 SET LINK FROM NEW ELEMENT«, t00=0x0153, t01=0x0028}
0x211a8…211d0               Head {h00=0x0024, h01=0x0050, text=» STR A4,A7 SET NEW ELEMENT FIRST«, t00=0x0153, t01=0x0054}
0x211d0…211e6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0153, t01=0x007c}
0x211e6…21200               Head {h00=0x0016, h01=0x0050, text=» RF LNKRET RETURN «, t00=0x0153, t01=0x0092}
0x21200…2120c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0153, t01=0x00ac}
0x2120c…21222               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0153, t01=0x00b8}
0x21222…21232               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0153, t01=0x00ce}
0x21232…2123e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0153, t01=0x00de}
0x2123e…21248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x00ea}
0x21248…21256               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0153, t01=0x00f4}
0x21256…21260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0102}
0x21260…212a4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0153, t01=0x010c}
0x212a4…212ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0150}
0x212ae…212c6               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0153, t01=0x015a}
0x212c6…212d6               Head {h00=0x000c, h01=0x0050, text=»* LNKLST«, t00=0x0153, t01=0x0172}
0x212d6…212e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0182}
0x212e0…212f4               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0153, t01=0x018c}
0x212f4…21328               Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN«, t00=0x0154, t01=0x0010}
0x21328…21356               Head {h00=0x002a, h01=0x0050, text=»* A QUEUE (OPOSITE END TO QUEUE HEAD).«, t00=0x0154, t01=0x0044}
0x21356…2138c               Head {h00=0x0032, h01=0x0050, text=»* ONE WORD IN EACH ELEMENT IS USED AS A LINK. «, t00=0x0154, t01=0x0072}
0x2138c…213c2               Head {h00=0x0032, h01=0x0050, text=»* END OF QUEUE IS INDICATED BY LINK=0 IN LAST «, t00=0x0154, t01=0x00a8}
0x213c2…213d4               Head {h00=0x000e, h01=0x0050, text=»* ELEMENT.«, t00=0x0154, t01=0x00de}
0x213d4…213de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x00f0}
0x213de…213ee               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0154, t01=0x00fa}
0x213ee…21406               Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKLST «, t00=0x0154, t01=0x010a}
0x21406…21410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0122}
0x21410…21420               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0154, t01=0x012c}
0x21420…2144a               Head {h00=0x0026, h01=0x0050, text=»* A4  = QUEUE ELEMENT LINK ADDRESS«, t00=0x0154, t01=0x013c}
0x2144a…21472               Head {h00=0x0024, h01=0x0050, text=»* A7  = QUEUE HEAD LINK ADDRESS «, t00=0x0154, t01=0x0166}
0x21472…2147c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x018e}
0x2147c…2148e               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0155, t01=0x0008}
0x2148e…214a6               Head {h00=0x0014, h01=0x0050, text=»* A1  = CHANGED «, t00=0x0155, t01=0x001a}
0x214a6…214be               Head {h00=0x0014, h01=0x0050, text=»* A7  = CHANGED «, t00=0x0155, t01=0x0032}
0x214be…214d6               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0155, t01=0x004a}
0x214d6…214e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0062}
0x214e0…21524               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0155, t01=0x006c}
0x21524…2152e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x00b0}
0x2152e…21542               Head {h00=0x0010, h01=0x0050, text=»LNKLST EQU *«, t00=0x0155, t01=0x00ba}
0x21542…2156a               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A7 SAVE PRESENT ELEMENT «, t00=0x0155, t01=0x00ce}
0x2156a…2158a               Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A7 NEXT ELEMENT«, t00=0x0155, t01=0x00f6}
0x2158a…215be               Head {h00=0x0030, h01=0x0050, text=» RB(NZ) LNKLST CONTINUE IF NOT LAST ELEMENT «, t00=0x0155, t01=0x0116}
0x215be…215ec               Head {h00=0x002a, h01=0x0050, text=» STR A4,A1 LINK NEW ELEMENT AFTER LAST«, t00=0x0155, t01=0x014a}
0x215ec…2161a               Head {h00=0x002a, h01=0x0050, text=» CMR A4 SET END MARKER IN LAST ELEMENT«, t00=0x0155, t01=0x0178}
0x2161a…21624               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x0016}
0x21624…21632               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0156, t01=0x0020}
0x21632…2163c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x002e}
0x2163c…21652               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0156, t01=0x0038}
0x21652…2166c               Head {h00=0x0016, h01=0x0050, text=» RF LNKRET RETURN «, t00=0x0156, t01=0x004e}
0x2166c…21678               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0156, t01=0x0068}
0x21678…2168e               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0156, t01=0x0074}
0x2168e…2169e               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0156, t01=0x008a}
0x2169e…216aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0156, t01=0x009a}
0x216aa…216b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00a6}
0x216b4…216c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0156, t01=0x00b0}
0x216c2…216cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00be}
0x216cc…21710               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0156, t01=0x00c8}
0x21710…2171a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x010c}
0x2171a…21732               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0156, t01=0x0116}
0x21732…21742               Head {h00=0x000c, h01=0x0050, text=»* LNKOUT«, t00=0x0156, t01=0x012e}
0x21742…2174c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x013e}
0x2174c…21760               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0156, t01=0x0148}
0x21760…21798               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE REMOVES AN ELEMENT FROM A QUEUE. «, t00=0x0156, t01=0x015c}
0x21798…217ce (343, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* ONE WORD IN EACH ELEMENT IS USED AS A LINK. «, t00=0x0157, t01=0x0004}
0x217ce…21804               Head {h00=0x0032, h01=0x0050, text=»* END OF QUEUE IS INDICATED BY LINK=0 IN LAST «, t00=0x0157, t01=0x003a}
0x21804…21816               Head {h00=0x000e, h01=0x0050, text=»* ELEMENT.«, t00=0x0157, t01=0x0070}
0x21816…21820               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0082}
0x21820…21830               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0157, t01=0x008c}
0x21830…21848               Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKOUT «, t00=0x0157, t01=0x009c}
0x21848…21852               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x00b4}
0x21852…21862               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0157, t01=0x00be}
0x21862…2188c               Head {h00=0x0026, h01=0x0050, text=»* A4  = QUEUE ELEMENT LINK ADDRESS«, t00=0x0157, t01=0x00ce}
0x2188c…218b4               Head {h00=0x0024, h01=0x0050, text=»* A7  = QUEUE HEAD LINK ADDRESS «, t00=0x0157, t01=0x00f8}
0x218b4…218be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0120}
0x218be…218d0               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0157, t01=0x012a}
0x218d0…218e8               Head {h00=0x0014, h01=0x0050, text=»* A1  = CHANGED «, t00=0x0157, t01=0x013c}
0x218e8…21910               Head {h00=0x0024, h01=0x0050, text=»* A7  = =0 IF ELEMENT NOT FOUND «, t00=0x0157, t01=0x0154}
0x21910…21930               Head {h00=0x001c, h01=0x0050, text=»*  ><0 IF ELEMENT FOUND «, t00=0x0157, t01=0x017c}
0x21930…21948               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0158, t01=0x000c}
0x21948…21952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0024}
0x21952…21996               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0158, t01=0x002e}
0x21996…219a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0072}
0x219a0…219b4               Head {h00=0x0010, h01=0x0050, text=»LNKOUT EQU *«, t00=0x0158, t01=0x007c}
0x219b4…219dc               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A7 SAVE PRESENT ELEMENT «, t00=0x0158, t01=0x0090}
0x219dc…219fc               Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A7 NEXT ELEMENT«, t00=0x0158, t01=0x00b8}
0x219fc…21a26               Head {h00=0x0026, h01=0x0050, text=» RF(Z) LO100 EXIT IF END OF QUEUE «, t00=0x0158, t01=0x00d8}
0x21a26…21a48               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A7 ELEMENT FOUND? «, t00=0x0158, t01=0x0102}
0x21a48…21a6e               Head {h00=0x0022, h01=0x0050, text=» RB(NE) LNKOUT NO, CHECK NEXT «, t00=0x0158, t01=0x0124}
0x21a6e…21a78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x014a}
0x21a78…21a86               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x0154}
0x21a86…21a90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0162}
0x21a90…21ac0               Head {h00=0x002c, h01=0x0050, text=» LDR* A7,A7 ELEMENT AFTER WANTED ELEMENT«, t00=0x0158, t01=0x016c}
0x21ac0…21af2               Head {h00=0x002e, h01=0x0050, text=» STR A7,A1 SET LINK FROM PREVIOUS TO NEXT «, t00=0x0159, t01=0x000c}
0x21af2…21b1a               Head {h00=0x0024, h01=0x0050, text=» LDK A7,1 INDICATE ELEMENT FOUND«, t00=0x0159, t01=0x003e}
0x21b1a…21b2e               Head {h00=0x0010, h01=0x0050, text=»LO100 EQU * «, t00=0x0159, t01=0x0066}
0x21b2e…21b38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x007a}
0x21b38…21b42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0084}
0x21b42…21b58               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0159, t01=0x008e}
0x21b58…21b6c               Head {h00=0x0010, h01=0x0050, text=»LNKRET EQU *«, t00=0x0159, t01=0x00a4}
0x21b6c…21b98               Head {h00=0x0028, h01=0x0050, text=»*    COMMON EXIT FOR QUEUE ROUTINES «, t00=0x0159, t01=0x00b8}
0x21b98…21bd2               Head {h00=0x0036, h01=0x0050, text=»*    RETURN WITHOUT CHANGING INTERRUPT ENABLE FLAG«, t00=0x0159, t01=0x00e4}
0x21bd2…21bee               Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0159, t01=0x011e}
0x21bee…21c08               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0159, t01=0x013a}
0x21c08…21c14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0159, t01=0x0154}
0x21c14…21c1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0160}
0x21c1e…21c34               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0159, t01=0x016a}
0x21c34…21c44               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0159, t01=0x0180}
0x21c44…21c50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0159, t01=0x0190}
0x21c50…21c5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x000c}
0x21c5a…21c68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015a, t01=0x0016}
0x21c68…21c72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0024}
0x21c72…21c7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x002e}
0x21c7c…21c86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0038}
0x21c86…21c90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0042}
0x21c90…21cd4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x015a, t01=0x004c}
0x21cd4…21cde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0090}
0x21cde…21d06               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM  PTS«, t00=0x015a, t01=0x009a}
0x21d06…21d10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x00c2}
0x21d10…21d46               Head {h00=0x0032, h01=0x0050, text=»*   TBUFF  =  TOSS BUFFER HANDLING SUBROUTINES«, t00=0x015a, t01=0x00cc}
0x21d46…21d50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0102}
0x21d50…21d5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x010c}
0x21d5a…21d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0116}
0x21d64…21da8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x015a, t01=0x0120}
0x21da8…21db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0164}
0x21db2…21dec               Head {h00=0x0036, h01=0x0050, text=»*   THIS PROGRAM CONTAINS A SET OF BUFFER HANDLING«, t00=0x015a, t01=0x016e}
0x21dec…21e26               Head {h00=0x0036, h01=0x0050, text=»*   SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED«, t00=0x015b, t01=0x0018}
0x21e26…21e5e               Head {h00=0x0034, h01=0x0050, text=»*   IN BUFFER POOLS. A BUFFER POOL CONSISTS OF A«, t00=0x015b, t01=0x0052}
0x21e5e…21e98               Head {h00=0x0036, h01=0x0050, text=»*   POOLBLOCK FOR CONTROL INFORMATION, AND ONE OR «, t00=0x015b, t01=0x008a}
0x21e98…21ed0               Head {h00=0x0034, h01=0x0050, text=»*   MORE BUFFER AREAS. THE POOLBLOCK AND BUFFER «, t00=0x015b, t01=0x00c4}
0x21ed0…21f04               Head {h00=0x0030, h01=0x0050, text=»*   AREA(S) SHOULD BE SUPPLIED BY THE USER. «, t00=0x015b, t01=0x00fc}
0x21f04…21f0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x0130}
0x21f0e…21f42               Head {h00=0x0030, h01=0x0050, text=»*   ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x015b, t01=0x013a}
0x21f42…21f4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x016e}
0x21f4c…21f64               Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x015b, t01=0x0178}
0x21f64…21f6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x0190}
0x21f6e…21f94               Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER FROM POOL «, t00=0x015c, t01=0x000a}
0x21f94…21fba               Head {h00=0x0022, h01=0x0050, text=»* RELBUF RETURN BUFFER TO POOL«, t00=0x015c, t01=0x0030}
0x21fba…21fe4               Head {h00=0x0026, h01=0x0050, text=»* AREBUF DIVIDE AREA INTO BUFFERS «, t00=0x015c, t01=0x0056}
0x21fe4…21fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x0080}
0x21fee…21ffc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015c, t01=0x008a}
0x21ffc…22006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x0098}
0x22006…2201c               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x015c, t01=0x00a2}
0x2201c…22032               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x015c, t01=0x00b8}
0x22032…22048               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x015c, t01=0x00ce}
0x22048…22052               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00e4}
0x22052…2205c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00ee}
0x2205c…22084               Head {h00=0x0024, h01=0x0050, text=»*    POOLBLOCK LAYOUT DEFINITION«, t00=0x015c, t01=0x00f8}
0x22084…2208e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x0120}
0x2208e…220b4               Head {h00=0x0022, h01=0x0050, text=»*      POOLBLOCK WORD OFFSETS «, t00=0x015c, t01=0x012a}
0x220b4…220d6               Head {h00=0x001e, h01=0x0050, text=»POBID EQU 0 POOL IDENTITY «, t00=0x015c, t01=0x0150}
0x220d6…220f8               Head {h00=0x001e, h01=0x0050, text=»POBFLG EQU 2 BINARY FLAGS «, t00=0x015c, t01=0x0172}
0x220f8…22120 (349, 0, 400) Head {h00=0x0024, h01=0x0050, text=»POBFRE EQU 4 FREE LIST LINK HEAD«, t00=0x015d, t01=0x0004}
0x22120…22148               Head {h00=0x0024, h01=0x0050, text=»POBBUS EQU 6 BUFFER SIZE (BYTES)«, t00=0x015d, t01=0x002c}
0x22148…2216e               Head {h00=0x0022, h01=0x0050, text=»POBARS EQU 8 AREA SIZE (BYTES)«, t00=0x015d, t01=0x0054}
0x2216e…22178               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x007a}
0x22178…22198               Head {h00=0x001c, h01=0x0050, text=»*      POOLBLOCK LENGTH «, t00=0x015d, t01=0x0084}
0x22198…221bc               Head {h00=0x0020, h01=0x0050, text=»POBLEN EQU 10 LENGTH (BYTES)«, t00=0x015d, t01=0x00a4}
0x221bc…221c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x00c8}
0x221c6…221d4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015d, t01=0x00d2}
0x221d4…221de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x00e0}
0x221de…22222               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x015d, t01=0x00ea}
0x22222…2222c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x012e}
0x2222c…22244               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x015d, t01=0x0138}
0x22244…22254               Head {h00=0x000c, h01=0x0050, text=»* GETBUF«, t00=0x015d, t01=0x0150}
0x22254…2225e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x0160}
0x2225e…22272               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x015d, t01=0x016a}
0x22272…222aa               Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE FETCHES ONE BUFFER FROM A BUFFER «, t00=0x015d, t01=0x017e}
0x222aa…222d4               Head {h00=0x0026, h01=0x0050, text=»* POOL AND GIVES IT TO THE CALLER.«, t00=0x015e, t01=0x0026}
0x222d4…222de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0050}
0x222de…222ee               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x015e, t01=0x005a}
0x222ee…22306               Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETBUF «, t00=0x015e, t01=0x006a}
0x22306…22310               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0082}
0x22310…22320               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x015e, t01=0x008c}
0x22320…22342               Head {h00=0x001e, h01=0x0050, text=»* A7  = POOLBLOCK ADDRESS «, t00=0x015e, t01=0x009c}
0x22342…2234c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x00be}
0x2234c…2235e               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x015e, t01=0x00c8}
0x2235e…22390               Head {h00=0x002e, h01=0x0050, text=»* A4  = BUFFER ADDRESS IF BUFFER ALLOCATED«, t00=0x015e, t01=0x00da}
0x22390…223a6               Head {h00=0x0012, h01=0x0050, text=»*    ELSE ZERO«, t00=0x015e, t01=0x010c}
0x223a6…223c4               Head {h00=0x001a, h01=0x0050, text=»* CR  = CONTENTS OF A4«, t00=0x015e, t01=0x0122}
0x223c4…223e0               Head {h00=0x0018, h01=0x0050, text=»* INTERR.= INHIBITED«, t00=0x015e, t01=0x0140}
0x223e0…223ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x015c}
0x223ea…2242e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x015e, t01=0x0166}
0x2242e…22438               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x001a}
0x22438…2244c               Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x015f, t01=0x0024}
0x2244c…22458               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x015f, t01=0x0038}
0x22458…22480               Head {h00=0x0024, h01=0x0050, text=» LD A4,POBFRE,A7 FREE LIST START«, t00=0x015f, t01=0x0044}
0x22480…224aa               Head {h00=0x0026, h01=0x0050, text=» RF(Z) GB100 NO BUFFER LEFT. EXIT «, t00=0x015f, t01=0x006c}
0x224aa…224b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x0096}
0x224b4…224c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015f, t01=0x00a0}
0x224c2…224cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x00ae}
0x224cc…224e8               Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x015f, t01=0x00b8}
0x224e8…22512               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A4 NEW START OF FREE LIST«, t00=0x015f, t01=0x00d4}
0x22512…22538               Head {h00=0x0022, h01=0x0050, text=» ST A1,POBFRE,A7 TO POOLBLOCK «, t00=0x015f, t01=0x00fe}
0x22538…22554               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x015f, t01=0x0124}
0x22554…2255e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x0140}
0x2255e…22572               Head {h00=0x0010, h01=0x0050, text=»GB100 EQU * «, t00=0x015f, t01=0x014a}
0x22572…22592               Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x015f, t01=0x015e}
0x22592…225ba               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 CR := CONTENTS OF A4 «, t00=0x015f, t01=0x017e}
0x225ba…225d2               Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x0160, t01=0x0016}
0x225d2…225dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x002e}
0x225dc…225ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0160, t01=0x0038}
0x225ea…225f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x0046}
0x225f4…22638               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0160, t01=0x0050}
0x22638…22642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x0094}
0x22642…2265a               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0160, t01=0x009e}
0x2265a…2266a               Head {h00=0x000c, h01=0x0050, text=»* RELBUF«, t00=0x0160, t01=0x00b6}
0x2266a…22674               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x00c6}
0x22674…22688               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0160, t01=0x00d0}
0x22688…226be               Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE RELEASES ONE BUFFER AND RETURNS«, t00=0x0160, t01=0x00e4}
0x226be…226dc               Head {h00=0x001a, h01=0x0050, text=»* IT TO A BUFFER POOL.«, t00=0x0160, t01=0x011a}
0x226dc…226e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x0138}
0x226e6…226f6               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0160, t01=0x0142}
0x226f6…2270e               Head {h00=0x0014, h01=0x0050, text=»* CF A15,RELBUF «, t00=0x0160, t01=0x0152}
0x2270e…22718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x016a}
0x22718…22728               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0160, t01=0x0174}
0x22728…22746               Head {h00=0x001a, h01=0x0050, text=»* A4  = BUFFER ADDRESS«, t00=0x0160, t01=0x0184}
0x22746…22768               Head {h00=0x001e, h01=0x0050, text=»* A7  = POOLBLOCK ADDRESS «, t00=0x0161, t01=0x0012}
0x22768…22772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x0034}
0x22772…22784               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0161, t01=0x003e}
0x22784…2279c               Head {h00=0x0014, h01=0x0050, text=»* CR  = CHANGED «, t00=0x0161, t01=0x0050}
0x2279c…227b8               Head {h00=0x0018, h01=0x0050, text=»* INTERR.= INHIBITED«, t00=0x0161, t01=0x0068}
0x227b8…227c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x0084}
0x227c2…22806               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0161, t01=0x008e}
0x22806…22810               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x00d2}
0x22810…22824               Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0161, t01=0x00dc}
0x22824…22830               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0161, t01=0x00f0}
0x22830…2284c               Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x0161, t01=0x00fc}
0x2284c…22856               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x0118}
0x22856…22882               Head {h00=0x0028, h01=0x0050, text=» LD A1,POBFRE,A7 OLD FREE LIST START«, t00=0x0161, t01=0x0122}
0x22882…228aa               Head {h00=0x0024, h01=0x0050, text=» STR A1,A4 LINK AFTER NEW BUFFER«, t00=0x0161, t01=0x014e}
0x228aa…228da               Head {h00=0x002c, h01=0x0050, text=» ST A4,POBFRE,A7 SET NEW FREE LIST START«, t00=0x0161, t01=0x0176}
0x228da…228e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0016}
0x228e4…22900               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x0162, t01=0x0020}
0x22900…22920               Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x0162, t01=0x003c}
0x22920…22938               Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x0162, t01=0x005c}
0x22938…22942               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0074}
0x22942…22950               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0162, t01=0x007e}
0x22950…2295a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x008c}
0x2295a…2299e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0162, t01=0x0096}
0x2299e…229a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x00da}
0x229a8…229c0               Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0162, t01=0x00e4}
0x229c0…229d0               Head {h00=0x000c, h01=0x0050, text=»* AREBUF«, t00=0x0162, t01=0x00fc}
0x229d0…229da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x010c}
0x229da…229ee               Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0162, t01=0x0116}
0x229ee…22a28               Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE ALLOCATES A SPECIFIED DATA AREA TO «, t00=0x0162, t01=0x012a}
0x22a28…22a5e               Head {h00=0x0032, h01=0x0050, text=»* A BUFFER POOL. THIS CAN BE DONE IN TWO WAYS.«, t00=0x0162, t01=0x0164}
0x22a5e…22a92               Head {h00=0x0030, h01=0x0050, text=»* "INIBUF" IS USED WHEN A NEW BUFFER POOL IS«, t00=0x0163, t01=0x000a}
0x22a92…22ac8               Head {h00=0x0032, h01=0x0050, text=»* INITIATED. IT DIVIDES THE AREA INTO BUFFERS,«, t00=0x0163, t01=0x003e}
0x22ac8…22b02               Head {h00=0x0036, h01=0x0050, text=»* LINKS THE BUFFERS IN A CHAIN FROM THE FREE LIST «, t00=0x0163, t01=0x0074}
0x22b02…22b3a               Head {h00=0x0034, h01=0x0050, text=»* HEAD IN POOLBLOCK, AND PUTS AN END MARKER (-1)«, t00=0x0163, t01=0x00ae}
0x22b3a…22b74               Head {h00=0x0036, h01=0x0050, text=»* IN THE LAST BUFFER. "LNKBUF" IS USED WHEN A NEW «, t00=0x0163, t01=0x00e6}
0x22b74…22baa               Head {h00=0x0032, h01=0x0050, text=»* AREA IS ADDED TO AN EXISTING BUFFER POOL. IT«, t00=0x0163, t01=0x0120}
0x22baa…22be0               Head {h00=0x0032, h01=0x0050, text=»* DIVIDES THE AREA INTO BUFFERS, AND LINKS THE«, t00=0x0163, t01=0x0156}
0x22be0…22c0a               Head {h00=0x0026, h01=0x0050, text=»* BUFFERS FIRST IN THE FREE LIST. «, t00=0x0163, t01=0x018c}
0x22c0a…22c14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x0026}
0x22c14…22c24               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0164, t01=0x0030}
0x22c24…22c3c               Head {h00=0x0014, h01=0x0050, text=»* CF A15,INIBUF «, t00=0x0164, t01=0x0040}
0x22c3c…22c54               Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKBUF «, t00=0x0164, t01=0x0058}
0x22c54…22c5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x0070}
0x22c5e…22c6e               Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0164, t01=0x007a}
0x22c6e…22c8a               Head {h00=0x0018, h01=0x0050, text=»* A4  = AREA ADDRESS«, t00=0x0164, t01=0x008a}
0x22c8a…22cac               Head {h00=0x001e, h01=0x0050, text=»* A7  = POOLBLOCK ADDRESS «, t00=0x0164, t01=0x00a6}
0x22cac…22cb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x00c8}
0x22cb6…22cc8               Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0164, t01=0x00d2}
0x22cc8…22cea               Head {h00=0x001e, h01=0x0050, text=»* CR  = CHANGED IF CPU852 «, t00=0x0164, t01=0x00e4}
0x22cea…22cf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x0106}
0x22cf4…22d38               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0164, t01=0x0110}
0x22d38…22d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x0154}
0x22d42…22d50               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0164, t01=0x015e}
0x22d50…22d5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x016c}
0x22d5a…22d6e               Head {h00=0x0010, h01=0x0050, text=»INIBUF EQU *«, t00=0x0164, t01=0x0176}
0x22d6e…22d84               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0164, t01=0x018a}
0x22d84…22da0               Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x0165, t01=0x0010}
0x22da0…22dac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0165, t01=0x002c}
0x22dac…22db6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0038}
0x22db6…22dcc               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0165, t01=0x0042}
0x22dcc…22dea               Head {h00=0x001a, h01=0x0050, text=» MSR 4,A15 PUSH A1-A4 «, t00=0x0165, t01=0x0058}
0x22dea…22df6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0165, t01=0x0076}
0x22df6…22e00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0082}
0x22e00…22e28               Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 MARKER FOR LAST BUFFER«, t00=0x0165, t01=0x008c}
0x22e28…22e4c               Head {h00=0x0020, h01=0x0050, text=» RF IL100 GO TO COMMON PART «, t00=0x0165, t01=0x00b4}
0x22e4c…22e56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x00d8}
0x22e56…22e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x00e2}
0x22e60…22e74               Head {h00=0x0010, h01=0x0050, text=»LNKBUF EQU *«, t00=0x0165, t01=0x00ec}
0x22e74…22e8a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0165, t01=0x0100}
0x22e8a…22ea6               Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x0165, t01=0x0116}
0x22ea6…22eb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0165, t01=0x0132}
0x22eb2…22ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x013e}
0x22ebc…22ed2               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0165, t01=0x0148}
0x22ed2…22ef0               Head {h00=0x001a, h01=0x0050, text=» MSR 4,A15 PUSH A1-A4 «, t00=0x0165, t01=0x015e}
0x22ef0…22efc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0165, t01=0x017c}
0x22efc…22f06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0188}
0x22f06…22f32 (358, 0, 398) Head {h00=0x0028, h01=0x0050, text=» LD A1,POBFRE,A7 LINK TO OLD BUFFERS«, t00=0x0166, t01=0x0004}
0x22f32…22f3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x0030}
0x22f3c…22f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x003a}
0x22f46…22f5a               Head {h00=0x0010, h01=0x0050, text=»IL100 EQU * «, t00=0x0166, t01=0x0044}
0x22f5a…22f64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x0058}
0x22f64…22f92               Head {h00=0x002a, h01=0x0050, text=»*    COMMON PART FOR INIBUF AND LNKBUF«, t00=0x0166, t01=0x0062}
0x22f92…22f9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x0090}
0x22f9c…22fb2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0166, t01=0x009a}
0x22fb2…22fd0               Head {h00=0x001a, h01=0x0050, text=» STR A2,A15 PUSH A2-A4«, t00=0x0166, t01=0x00b0}
0x22fd0…22fe4               Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0166, t01=0x00ce}
0x22fe4…22ff8               Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0166, t01=0x00e2}
0x22ff8…23004               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0166, t01=0x00f6}
0x23004…2300e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x0102}
0x2300e…2301c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0166, t01=0x010c}
0x2301c…23026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x011a}
0x23026…23038               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0166, t01=0x0124}
0x23038…2305e               Head {h00=0x0022, h01=0x0050, text=» ADK A2,POBFRE FREE LIST START«, t00=0x0166, t01=0x0136}
0x2305e…23070               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0166, t01=0x015c}
0x23070…23094               Head {h00=0x0020, h01=0x0050, text=» AD A3,POBARS,A7 END OF AREA«, t00=0x0166, t01=0x016e}
0x23094…230c8 (359, 0, 400) Head {h00=0x0030, h01=0x0050, text=» SU A3,POBBUS,A7 HIGEST BUFFER START IN AREA«, t00=0x0167, t01=0x0004}
0x230c8…230d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x0038}
0x230d2…230e6               Head {h00=0x0010, h01=0x0050, text=»IL110 EQU * «, t00=0x0167, t01=0x0042}
0x230e6…23106               Head {h00=0x001c, h01=0x0050, text=»*    BUFFER LINKING LOOP«, t00=0x0167, t01=0x0056}
0x23106…23124               Head {h00=0x001a, h01=0x0050, text=» CWR A4,A3 ROOM LEFT? «, t00=0x0167, t01=0x0076}
0x23124…23144               Head {h00=0x001c, h01=0x0050, text=» RF(G) IL120 NO, FINISH «, t00=0x0167, t01=0x0094}
0x23144…2314e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x00b4}
0x2314e…23182               Head {h00=0x0030, h01=0x0050, text=» STR A4,A2 SET LINK FROM PREVIOUS TO PRESENT«, t00=0x0167, t01=0x00be}
0x23182…231a2               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 NEW PREVIOUS «, t00=0x0167, t01=0x00f2}
0x231a2…231c6               Head {h00=0x0020, h01=0x0050, text=» AD A4,POBBUS,A7 NEW PRESENT«, t00=0x0167, t01=0x0112}
0x231c6…231e8               Head {h00=0x001e, h01=0x0050, text=» RB IL110 TAKE NEXT BUFFER«, t00=0x0167, t01=0x0136}
0x231e8…231f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x0158}
0x231f2…23206               Head {h00=0x0010, h01=0x0050, text=»IL120 EQU * «, t00=0x0167, t01=0x0162}
0x23206…23238               Head {h00=0x002e, h01=0x0050, text=» STR A1,A2 SET LINK OR END IN LAST BUFFER «, t00=0x0167, t01=0x0176}
0x23238…23242               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x0018}
0x23242…23258               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0168, t01=0x0022}
0x23258…23276               Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A15 POP A1-A4«, t00=0x0168, t01=0x0038}
0x23276…2328a               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0168, t01=0x0056}
0x2328a…2329e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0168, t01=0x006a}
0x2329e…232b2               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0168, t01=0x007e}
0x232b2…232d2               Head {h00=0x001c, h01=0x0050, text=» ADKL A15,2 ADJUST STACK«, t00=0x0168, t01=0x0092}
0x232d2…232ec               Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0168, t01=0x00b2}
0x232ec…232f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0168, t01=0x00cc}
0x232f8…23302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x00d8}
0x23302…23318               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0168, t01=0x00e2}
0x23318…23334               Head {h00=0x0018, h01=0x0050, text=» MLR 4,A15 POP A1-A4«, t00=0x0168, t01=0x00f8}
0x23334…23344               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0168, t01=0x0114}
0x23344…23350               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0168, t01=0x0124}
0x23350…2335a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x0130}
0x2335a…23370               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x0168, t01=0x013a}
0x23370…2337e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0168, t01=0x0150}
0x2337e…23388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x015e}
0x23388…233ba               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0168, t01=0x0168}
0x233ba…233c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0169, t01=0x000a}
0x233c4…233e4               Head {h00=0x001c, h01=0x0050, text=»* ROUTINE NAMES: LOGCOM «, t00=0x0169, t01=0x0014}
0x233e4…23404               Head {h00=0x001c, h01=0x0050, text=»*                LOGIOC «, t00=0x0169, t01=0x0034}
0x23404…23424               Head {h00=0x001c, h01=0x0050, text=»*                LOGATT «, t00=0x0169, t01=0x0054}
0x23424…23458               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION:      LOG MSG TYPE AND CCR+BUFFER«, t00=0x0169, t01=0x0074}
0x23458…23496               Head {h00=0x003a, h01=0x0050, text=»*                 DLSSEL SPECIFIES DLS TO BE SELECTED «, t00=0x0169, t01=0x00a8}
0x23496…234c0               Head {h00=0x0026, h01=0x0050, text=»*                 0 MEANS LOG ALL «, t00=0x0169, t01=0x00e6}
0x234c0…234ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0169, t01=0x0110}
0x234ca…23502               Head {h00=0x0034, h01=0x0050, text=»* RECORD FORMAT:   BYTE 1-2 MSG TYPE (CO,RE,AT) «, t00=0x0169, t01=0x011a}
0x23502…23530               Head {h00=0x002a, h01=0x0050, text=»*                  BYTE 3   DLS INDEX «, t00=0x0169, t01=0x0152}
0x23530…23560               Head {h00=0x002c, h01=0x0050, text=»*                  BYTE 4   COMMAND CODE«, t00=0x0169, t01=0x0180}
0x23560…2358c               Head {h00=0x0028, h01=0x0050, text=»*                  BYTE 5-6 STATUS-1«, t00=0x016a, t01=0x0020}
0x2358c…235be               Head {h00=0x002e, h01=0x0050, text=»*                  BYTE 7   BUFFER LENGTH «, t00=0x016a, t01=0x004c}
0x235be…235f2               Head {h00=0x0030, h01=0x0050, text=»*                  BYTE 8   PACKET HEADER -1«, t00=0x016a, t01=0x007e}
0x235f2…23638               Head {h00=0x0042, h01=0x0050, text=»*                  BYTE 9   PACKET HEADER -2 (LOGICAL CHANNEL)«, t00=0x016a, t01=0x00b2}
0x23638…2367a               Head {h00=0x003e, h01=0x0050, text=»*                  BYTE 10  PACKET HEADER -3 (FLOW CONTOL)«, t00=0x016a, t01=0x00f8}
0x2367a…236b4               Head {h00=0x0036, h01=0x0050, text=»*                  BYTE 11-16  6 FIRST DATA BYTES «, t00=0x016a, t01=0x013a}
0x236b4…236ec               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x016a, t01=0x0174}
0x236ec…236f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x001c}
0x236f6…23716               Head {h00=0x001c, h01=0x0050, text=»DLSSEL DATA 0 0=LOG ALL «, t00=0x016b, t01=0x0026}
0x23716…23738               Head {h00=0x001e, h01=0x0050, text=»*   ELSE DLS TO BE LOGGED «, t00=0x016b, t01=0x0046}
0x23738…2376e               Head {h00=0x0032, h01=0x0050, text=»LOGPTR DATA LOGARE RECORD POINTER IN LOG AREA «, t00=0x016b, t01=0x0068}
0x2376e…2378e               Head {h00=0x001c, h01=0x0050, text=»LOGARE RES 960 LOG AREA «, t00=0x016b, t01=0x009e}
0x2378e…237a2               Head {h00=0x0010, h01=0x0050, text=»LOGEND EQU *«, t00=0x016b, t01=0x00be}
0x237a2…237ce               Head {h00=0x0028, h01=0x0050, text=» DATA 'ENDLOG' MARK END OF LOG AREA «, t00=0x016b, t01=0x00d2}
0x237ce…23804               Head {h00=0x0032, h01=0x0050, text=»*-------------------------------------------- «, t00=0x016b, t01=0x00fe}
0x23804…2382a               Head {h00=0x0022, h01=0x0050, text=»LOGCOM EQU * SUBROUTINE ENTRY «, t00=0x016b, t01=0x0134}
0x2382a…23840               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x016b, t01=0x015a}
0x23840…23854               Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x016b, t01=0x0170}
0x23854…23868               Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x016b, t01=0x0184}
0x23868…2387c               Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x016c, t01=0x0008}
0x2387c…23888               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x016c, t01=0x001c}
0x23888…2389e               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x016c, t01=0x0028}
0x2389e…238b4               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x016c, t01=0x003e}
0x238b4…238d2               Head {h00=0x001a, h01=0x0050, text=» MSR 3,A15 PUSH A1-A3 «, t00=0x016c, t01=0x0054}
0x238d2…238de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x016c, t01=0x0072}
0x238de…238f4               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x016c, t01=0x007e}
0x238f4…23912               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'CO' MSG TYPE«, t00=0x016c, t01=0x0094}
0x23912…23934               Head {h00=0x001e, h01=0x0050, text=» LDK A2,CWTCCA CCA OFFSET «, t00=0x016c, t01=0x00b2}
0x23934…23946               Head {h00=0x000e, h01=0x0050, text=» RF LOG:10«, t00=0x016c, t01=0x00d4}
0x23946…2394e               Head {h00=0x0004, h01=0x0050, t00=0x016c, t01=0x00e6}
0x2394e…23974               Head {h00=0x0022, h01=0x0050, text=»LOGIOC EQU * SUBROUTINE ENTRY «, t00=0x016c, t01=0x00ee}
0x23974…2398a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x016c, t01=0x0114}
0x2398a…2399e               Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x016c, t01=0x012a}
0x2399e…239b2               Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x016c, t01=0x013e}
0x239b2…239c6               Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x016c, t01=0x0152}
0x239c6…239d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x016c, t01=0x0166}
0x239d2…239e8               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x016c, t01=0x0172}
0x239e8…239fe               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x016c, t01=0x0188}
0x239fe…23a1c               Head {h00=0x001a, h01=0x0050, text=» MSR 3,A15 PUSH A1-A3 «, t00=0x016d, t01=0x000e}
0x23a1c…23a28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x016d, t01=0x002c}
0x23a28…23a3e               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x016d, t01=0x0038}
0x23a3e…23a5c               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'RE' MSG TYPE«, t00=0x016d, t01=0x004e}
0x23a5c…23a7e               Head {h00=0x001e, h01=0x0050, text=» LDK A2,CWTRCA RCA OFFSET «, t00=0x016d, t01=0x006c}
0x23a7e…23a90               Head {h00=0x000e, h01=0x0050, text=» RF LOG:10«, t00=0x016d, t01=0x008e}
0x23a90…23a98               Head {h00=0x0004, h01=0x0050, t00=0x016d, t01=0x00a0}
0x23a98…23abe               Head {h00=0x0022, h01=0x0050, text=»LOGATT EQU * SUBROUTINE ENTRY «, t00=0x016d, t01=0x00a8}
0x23abe…23ad4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x016d, t01=0x00ce}
0x23ad4…23ae8               Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x016d, t01=0x00e4}
0x23ae8…23afc               Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x016d, t01=0x00f8}
0x23afc…23b10               Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x016d, t01=0x010c}
0x23b10…23b1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x016d, t01=0x0120}
0x23b1c…23b32               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x016d, t01=0x012c}
0x23b32…23b48               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x016d, t01=0x0142}
0x23b48…23b66               Head {h00=0x001a, h01=0x0050, text=» MSR 3,A15 PUSH A1-A3 «, t00=0x016d, t01=0x0158}
0x23b66…23b72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x016d, t01=0x0176}
0x23b72…23b88               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x016d, t01=0x0182}
0x23b88…23ba6               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'AT' MSG TYPE«, t00=0x016e, t01=0x0008}
0x23ba6…23bc8               Head {h00=0x001e, h01=0x0050, text=» LDK A2,CWTRCA RCA OFFSET «, t00=0x016e, t01=0x0026}
0x23bc8…23bfc               Head {h00=0x0030, h01=0x0050, text=»*------------------------------------------ «, t00=0x016e, t01=0x0048}
0x23bfc…23c1c               Head {h00=0x001c, h01=0x0050, text=»LOG:10 EQU * COMMON PART«, t00=0x016e, t01=0x007c}
0x23c1c…23c32               Head {h00=0x0012, h01=0x0050, text=» LD A3,LOGPTR «, t00=0x016e, t01=0x009c}
0x23c32…23c52               Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 LOG MSG TYPE «, t00=0x016e, t01=0x00b2}
0x23c52…23c6c               Head {h00=0x0016, h01=0x0050, text=» ADR A2,A5 CCR PTR«, t00=0x016e, t01=0x00d2}
0x23c6c…23c8e               Head {h00=0x001e, h01=0x0050, text=» LD A1,DLSSEL SELECTED DLS«, t00=0x016e, t01=0x00ec}
0x23c8e…23cac               Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOG:15 LOG ALL «, t00=0x016e, t01=0x010e}
0x23cac…23cc4               Head {h00=0x0014, h01=0x0050, text=» CC A1,CCRDLS,A2«, t00=0x016e, t01=0x012c}
0x23cc4…23cec               Head {h00=0x0024, h01=0x0050, text=» RF(NE) LOG:20 NOT SELECTED,SKIP«, t00=0x016e, t01=0x0144}
0x23cec…23d00               Head {h00=0x0010, h01=0x0050, text=»LOG:15 EQU *«, t00=0x016e, t01=0x016c}
0x23d00…23d22               Head {h00=0x001e, h01=0x0050, text=» LD A1,CCRDLS,A2 DLS INDEX«, t00=0x016e, t01=0x0180}
0x23d22…23d48               Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A3 +COMMAND INTO LOG «, t00=0x016f, t01=0x0012}
0x23d48…23d6a               Head {h00=0x001e, h01=0x0050, text=» LD A1,CCRSTA,A2 STATUS-1 «, t00=0x016f, t01=0x0038}
0x23d6a…23d8a               Head {h00=0x001c, h01=0x0050, text=» ST A1,4,A3 LOG STATUS-1«, t00=0x016f, t01=0x005a}
0x23d8a…23db0               Head {h00=0x0022, h01=0x0050, text=» LD A1,CCRLEN,A2 BUFFER LENGTH«, t00=0x016f, t01=0x007a}
0x23db0…23dcc               Head {h00=0x0018, h01=0x0050, text=» SC A1,6,A3 INTO LOG«, t00=0x016f, t01=0x00a0}
0x23dcc…23df4               Head {h00=0x0024, h01=0x0050, text=» LD A2,CCRBUF,A2 BUFFER ADDRESS «, t00=0x016f, t01=0x00bc}
0x23df4…23e10               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A2 BYTE 0-1«, t00=0x016f, t01=0x00e4}
0x23e10…23e34               Head {h00=0x0020, h01=0x0050, text=» SC A1,8,A3 PACKET HEADER 2 «, t00=0x016f, t01=0x0100}
0x23e34…23e46               Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x016f, t01=0x0124}
0x23e46…23e6a               Head {h00=0x0020, h01=0x0050, text=» SC A1,7,A3 PACKET HEADER 1 «, t00=0x016f, t01=0x0136}
0x23e6a…23e96               Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A2 PACKET HEADER 3+ BYTE 1 «, t00=0x016f, t01=0x015a}
0x23e96…23eaa               Head {h00=0x0010, h01=0x0050, text=» SC A1,10,A3«, t00=0x016f, t01=0x0186}
0x23eaa…23ebc               Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x0170, t01=0x000a}
0x23ebc…23ed0               Head {h00=0x0010, h01=0x0050, text=» SC A1,9,A3 «, t00=0x0170, t01=0x001c}
0x23ed0…23eec               Head {h00=0x0018, h01=0x0050, text=» LD A1,4,A2 BYTE 2-3«, t00=0x0170, t01=0x0030}
0x23eec…23f00               Head {h00=0x0010, h01=0x0050, text=» SC A1,12,A3«, t00=0x0170, t01=0x004c}
0x23f00…23f12               Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x0170, t01=0x0060}
0x23f12…23f26               Head {h00=0x0010, h01=0x0050, text=» SC A1,11,A3«, t00=0x0170, t01=0x0072}
0x23f26…23f42               Head {h00=0x0018, h01=0x0050, text=» LD A1,6,A2 BYTE 4-5«, t00=0x0170, t01=0x0086}
0x23f42…23f56               Head {h00=0x0010, h01=0x0050, text=» SC A1,14,A3«, t00=0x0170, t01=0x00a2}
0x23f56…23f68               Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x0170, t01=0x00b6}
0x23f68…23f7c               Head {h00=0x0010, h01=0x0050, text=» SC A1,13,A3«, t00=0x0170, t01=0x00c8}
0x23f7c…23f90               Head {h00=0x0010, h01=0x0050, text=» LD A1,8,A2 «, t00=0x0170, t01=0x00dc}
0x23f90…23fa2               Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x0170, t01=0x00f0}
0x23fa2…23fb6               Head {h00=0x0010, h01=0x0050, text=» SC A1,15,A3«, t00=0x0170, t01=0x0102}
0x23fb6…23fc8               Head {h00=0x000e, h01=0x0050, text=» ADK A3,16«, t00=0x0170, t01=0x0116}
0x23fc8…23ff6               Head {h00=0x002a, h01=0x0050, text=» ST A3,LOGPTR NEXT RECORD IN LOG AREA «, t00=0x0170, t01=0x0128}
0x23ff6…2401e               Head {h00=0x0024, h01=0x0050, text=» CWK A3,LOGEND END OF LOG AREA? «, t00=0x0170, t01=0x0156}
0x2401e…24038               Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOG:20 NO!«, t00=0x0170, t01=0x017e}
0x24038…2405a               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LOGARE RESET PTR «, t00=0x0171, t01=0x0008}
0x2405a…24070               Head {h00=0x0012, h01=0x0050, text=» ST A1,LOGPTR «, t00=0x0171, t01=0x002a}
0x24070…24084               Head {h00=0x0010, h01=0x0050, text=»LOG:20 EQU *«, t00=0x0171, t01=0x0040}
0x24084…2409a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0171, t01=0x0054}
0x2409a…240b6               Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A15 RESTORE«, t00=0x0171, t01=0x006a}
0x240b6…240ca               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0171, t01=0x0086}
0x240ca…240de               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0171, t01=0x009a}
0x240de…240f2               Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x0171, t01=0x00ae}
0x240f2…2410a               Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x0171, t01=0x00c2}
0x2410a…24116               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0171, t01=0x00da}
0x24116…2412c               Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x0171, t01=0x00e6}
0x2412c…24142               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0171, t01=0x00fc}
0x24142…24154               Head {h00=0x000e, h01=0x0050, text=» MLR 3,A15«, t00=0x0171, t01=0x0112}
0x24154…24164               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0171, t01=0x0124}
0x24164…24170               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0171, t01=0x0134}
0x24170…2417a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0171, t01=0x0140}
0x2417a…24184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0171, t01=0x014a}
0x24184…24190               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0171, t01=0x0154}
0x24190…24194               Head {h00=0x4004, h01=0x0000}
0x24194…24198               01 71 01 60                                                                                                                                                                                                                                       ┆ q `┆
0x24198…241a0 (370, 1, 8)   20 04 00 00 01 72 00 04                                                                                                                                                                                                                           ┆     r  ┆

DataMuseum.dk

Philips Data Systems

⟦22194e2f6⟧

Derivation

PTS(SC)

HexDump

Reduced view