DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦adac23f11⟧

    Length: 97152 (0x17b80)
    Notes: pts_type(SC)
    Names: »DRDC15.SC«

Derivation

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

PTS(SC)

	IDENT	DRDC15	REL 11.0 81-05-21 870105041100

			=13, ERRONEOUS DISCARD DWT HANDLING
			=12, SUB-ADDR IN CW2 AT RECEIVE REQ COMPL
			REL 11.0 81-05-12
			=11, PROCEDURE TIMER PROBLEM 
			=10, EOT ON SPECIFIC POLL
			=9, REMAINING TIME IN ECBCW1 
			REL 11.0 81-04-12
			=8, ODD USER BUFFER ADDRESS
			=7, BINARY STORE PROBLEM 
			REL 11.0 81-04-07
			=6, ERROR IN POLL TIMER HANDLING 
			=5, WRONG STATISTIC HANDLING 
			REL 11.0 81-03-27
			=4, ERROR IN POWER UP
			=3, DELETE INSTRUCTIONS NOT USED 
			=2, CHANGES IN STATUS HANLING
			=1, ERROR IN OPEN/CLOSE REQUESTS 
			REL 11.0 81-01-26
* 
* 
********************************************* 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRDC15: DRIVER DATA COMMUNICATION 
*           BSC MULTIPOINT LINE PROCEDURE 
*           OR SIEMENS MSV1 
* 
* 
* 
* 
* 
****************************************************
	EJECT
* 
* 
*	ENTRY POINTS
* 
	ENTRY	DC15AD	ADDRESS BLOCK TERMINAL REQUESTS 
	ENTRY	IH1501	INPUT INTERRUPT 
	ENTRY	IH1502	OUTPUT INTERRUPT
	ENTRY	DC15ON	POWER ON ROUTINE
	ENTRY	DW1500	DUMMY DWT 
* 
	EJECT
* 
* 
*	EXTERNAL REFERENCES 
* 
	EXTRN	TDISP	DISPATCHER ENTRY 
	EXTRN	SAVE8	SAVE A1-A8 ON A15 STACK
	EXTRN	TENDIO	COMPLETE I/O EVENT
	EXTRN	SETIME	SET TIMER 
	EXTRN	DWTCHP	DWT ADDRESS 
	EXTRN	DWTST	DWT STATUS 
	EXTRN	DWTOR	DWT ORDER
	EXTRN	DWTECB	DWT ECB 
	EXTRN	DWTOPT	OPTION CODE 
	EXTRN	DWTUEC	USER ECB IF MMU 
	EXTRN	DWTMEC	MMU ECB 
	EXTRN	ECBFC	FILE CODE
	EXTRN	ECBBA	BUFFER ADDRESS 
	EXTRN	ECBRL	REQUESTED LENGTH 
	EXTRN	ECBEL	EFFECTIVE LENGTH 
	EXTRN	ECBCW1	CONTROL WORD 1
	EXTRN	ECBCW2	CONTROL WORD 2
	EXTRN	GETSSA 
	EXTRN	INTSAV	SAVE AREA LAST INTERRUPT
	EXTRN	TEBCDIC	ASCII TO EBCDIC TABLE
	EXTRN	TASCII	EBCDIC TO ASCII TABLE 
	EXTRN	DCSRED	READ STATISTICS ENTRY POINT 
	EXTRN	DCSRLL	RESET ALL STATISTICS BUFFERS ENTRY POINT
	EXTRN	DCSUPS	UPDATE STATISTICS ENTRY POINT IN DCSTAT 
	EXTRN	GETDNA	VALIDATE AND CONVERT SYMBOLIC DTE ADDR
	EXTRN	GETSNA	VALIDATE AND CONVERT SYMBOLIC SUB ADDR
	EXTRN	DC:MIN	MOVE DATA TO USER BUFFER
	EXTRN	DC:MOT	MOVE DATA FROM USER BUFFER
	EXTRN	DISEND	COMPLETE REQUEST AND DISPATCH 
	EXTRN	PFPOST	WAIT FOR POWER UP IF SET
	EJECT		
**********************************************************************
* 
*	REGISTER USAGE:	
* 
*	A1	WORK (RETURN CODE) 
*	A2	WORK 
*	A3	WORK (BUFFER LENGTH) 
*	A4	WORK (BUFFER POINTER)
*	A5	DRIVER STACK POINTER 
*	A6	DWT ADDRESS
*	A7	ORDER CODE, DTETAB ADDRESS 
*	A8	ECB ADDRESS
* 
************************************************************************
	EJECT
******************************************************* 
* 
*	PARAMETERS FOR CONDITIONAL ASSEMBLY 
* 
* 
X:A	EQU	1000	RECEIVE BUFFER LENGTH
RBUFL	EQU	X:A 
X:B	EQU	0	IF 1 INTERRUPT LOGGING
LOGG	EQU	X:B
X:C	EQU	600	POLL TIMEOUT VALUE
TIMPOL	EQU	X:C
X:D	EQU	0	STATUS AND RVI HANDLING IF=1
STARVI	EQU	X:D
X:E	EQU	0	READ COMMAND HANDLING IF=1
RCOM	EQU	X:E
X:F	EQU	254	TRANSMIT BLOCK LENGTH 
TBLEN	EQU	X:F 
X:G	EQU	0	CODE , 0=ASCII , 1=EBCDIC 
CODE	EQU	X:G
X:H	EQU	0	IF 1 SPECIFIC POLL HANDLING 
SPECP	EQU	X:H 
X:I	EQU	0	IF = 1 LINE SPEED SET TO HIGH 
			IF = 0  LINE SPEED IS SET TO LOW 
SPEED	EQU	X:I 
X:J	EQU	0	IF 1 SIEMENS MSV1 PROCEDURE 
MSV1	EQU	X:J
X:K	EQU	2	NUMBER OF RECEIVE BUFFERS (2-5) 
RBUFNR	EQU	X:K
X:L	EQU	0	IF = 1  PTS 6805 ADAPTION	SALCUZ
P6805	EQU	X:L 
X:M	EQU	/02 
	IFT	P6805=0
LCUIN	EQU	X:M	DEVICE ADDRESS OF RECEIVER
	XIF
	IFT	P6805=1
LCUIN	EQU	/0A	DEVICE ADDRESS OF RECEIVER
	XIF
	IFT	P6805=0		SALCUZ
LCUUT	EQU	LCUIN+/10	DEVICE ADDRESS OF TRANSMITTER	SALCUZ
	XIF			SALCUZ 
	IFT	P6805=1
LCUUT	EQU	LCUIN+/01	DEVICE ADDRESS OF TRANSMITTER	SALCUZ
	XIF			SALCUZ 
X:N	EQU	0 
IBMCHR	EQU	X:N	IF 1 IBM CHARACTER HANDLING
X:O	EQU	0	IF 1 MESSAGE PASSING TO DC TASK 
MESPAS	EQU	X:O
X:P	EQU	0	IBM-3270 EMULATION PACKAGE, IF NOT = 0
EM3270	EQU	X:P
X:Q	EQU	0 
TPMODE	EQU	X:Q	IF = 1 TRANSPARANT MODE
X:R	EQU	0 
STTSTS	EQU	X:R	IF = 1 STATISTICS INCLUDED 
X:S	EQU	500 
TBUFL	EQU	X:S	MMU BUFFER LENGTH 
BINTRM	EQU	0	IF 1 BINARY TRANSMISSION 
DMRK	EQU	0	SPECIAL CONDITION FOR DENMARK
NOWACK	EQU	0	WHEN WORKING WITH A MAIN-FRAME THAT
			DOESN'T ACCEPT WACK RESPONSE TO A SELECT 
			SEQUENCE, NOWACK SHOULD BE SET TO "ONE". 
				=2

REMTIM	EQU	0		=9
			IF = 1 THE REMAINING TIME UNTIL TIMEOUT	=9 
			IS DELIVERED IN ECBCW1 AT COMPLETION 	=9 
			OF SEND AND RECEIVE REQUESTS	=9
* 
	IFT	SPEED=1
LSPEED	EQU	/0200
	XIF
	IFT	SPEED=0
LSPEED	EQU	0
	XIF
	EJECT
* 
* 
***************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
***************************************** 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
DEVIND	EQU	0	DEVICE INDEX DATA COMMUNICATION
BUFLEN	EQU	TBUFL+TBUFL	MMU BUFFER SIZE
* 
	EJECT
* 
**************************************
* 
*	DCDEFS  COMMON DEFS FOR DC DRIVERS/PACKAGES 
*	
**************************************
	 
*************************************** 
* 
*	TABLE AND PACKET LAYOUTS
* 
*************************************** 
	 
	 
	EJECT
**********************************************************************
* 
*	DWT, DEVICE WORK TABLE
* 
************************************************************************
* 
*	    ................... 
*	  0 .  DWTCHP         . 
*	    ................... 
*	  2 .  DWTST          . 
*	    ................... 
*	  4 .  DWTECB         . 
*	    ................... 
*	  6 . DWTOPT . DWTOR  . 
*	    ................... 
*	  8 .  DWTADR         . 
*	    ................... 
*	 10 .  DWTTAB         . 
*	    ................... 
*	 12 .  DWTWAT         . 
*	    ................... 
*	 14 .  DWTTQ          . 
*	    ................... 
*	(16).  DWTUEC         .   IF   MMUPAG 
*	    ................... 
*	(18).  DWTMEC         .   IF   MMUPAG 
*	    ................... 
* DWTDRD	 +2 .  DWTSTB         .
*            ...................
*	 +4 .  DWTCHD         . 
*	    ................... 
*	 +6 .  DWTCHN         . 
*	    ................... 
*	 +8 .  DWTLAD         . 
*	    ................... 
*	+10 .  DWTRAD         . 
*	    ................... 
*	+12 .  DWTDR1/SUB     . 
*	    ................... 
*	+14 .  DWTRCL         . 
*	    ................... 
*	+16 .  DWTRTV         . 
*	    ................... 
*	+18 .  DWTRTP         . 
*	    ................... 
*	+20 .  DWTOPE         . 
*	    ................... 
*	+22 .  DWTOPN         . 
*	    ................... 
*	+24 .  DWTIPC         . 
*	    ................... 
*	+26 .  DWTIPT         . 
*	    ................... 
*	+28 .                 . 
*	    /  DRIVER DEPEND  / 
*	    /                 / 
*	    /                 / 
*	    ................... 
*	    .  STATISTIC      .   IF STAT   AND DWTSTB /=0
*	    /  BUFFER         / 
*	    ................... 
* 
	EJECT
* 
********************************************************* 
* 
*	D W T  D I S P L A C E M E N T S
* 
********************************************************* 
* 
DWTTQ	EQU	/0E	TERMINAL QUEUE
	IFT	MMUPAG=0 
DWTDRD	EQU	DWTTQ+2	START OF DRIVER DEPENDENT AREA 
	XIF
	IFT	MMUPAG=1 
DWTDRD	EQU	DWTTQ+6	START OF DRIVER DEPENDENT AREA 
	XIF
DWTSTB	EQU	DWTDRD	OFFSET REL START DWT TO STATISTIC BUFF IF ANY 
DWTCHD	EQU	DWTDRD+2	CONFIG CHAIN LINK HEAD DWT
DWTCHN	EQU	DWTDRD+4	CONFIG CHAIN LINK NEXT DWT
DWTLAD	EQU	DWTDRD+6	LOCAL SYMBOLIC DTE ADDRESS
DWTRAD	EQU	DWTDRD+8	REMOTE SYMBOLIC DTE ADDRESS 
DWTDR1	EQU	DWTDRD+10	DRIVER DEP WORD 1
DWTSUB	EQU	DWTDR1	SYMBOLIC SUBADDRESS 
DWTRCL	EQU	DWTDRD+12	REQUEST CONTROL WORD 
DWTRTV	EQU	DWTDRD+14	REQUEST TIMER VALUE
DWTRTP	EQU	DWTDRD+16	REQUEST TIMER POINTER
DWTOPE	EQU	DWTDRD+18	O/P DATA Q EXPEDITED/STATUS LINK NXT DWT 
DWTOPN	EQU	DWTDRD+20	O/P DATA Q NORMAL LINK NXT DWT 
DWTIPC	EQU	DWTDRD+22	I/P DATA Q LINK TO BUFFER
DWTIPT	EQU	DWTDRD+24	I/P DATA TIMER POINTER 
DWTCUR	EQU	DWTDRD+26	CURSOR ADDRESS 
DWTBUF	EQU	DWTDRD+28	DEVICE BUFFER ADDRESS
DWTSTA	EQU	DWTDRD+30	DWT STATUS 
	EJECT
**********************************************************************
* 
*	DTE, DTE CONTROL TABLE
* 
************************************************************************
* 
*	    ................... 
*	  0 .  DTECHP         . 
*	    ................... 
*	  2 .  DTEST          . 
*	    ................... 
*	  4 .  DTEECB         . 
*	    ................... 
*	  6 . DTEOPT . DTEOR  . 
*	    ................... 
*	  8 .  DTEADR         . 
*	    ................... 
*	 10 .  DTETAB         . 
*	    ................... 
*	 12 .  DTEWAT         . 
*	    ................... 
*	 14 .  DTETQ          . 
*	    ................... 
*	(16).  DTEUEC         .   IF   MMUPAG 
*	    ................... 
*	(18).  DTEMEC         .   IF   MMUPAG 
*	    ................... 
* DTEDRD	 +2 .  DTESTB         .
*            ...................
*	 +4 .  DTECHD         . 
*	    ................... 
*	 +6 .  DTECHN         . 
*	    ................... 
*	 +8 .  DTELAD         . 
*	    ................... 
*	+10 .                 . 
*	    /  DRIVER DEPEND  / 
*	    /                 / 
*	    /                 / 
*	    ................... 
*	    .  STATISTIC      .   IF STAT   AND DTESTB /=0
*	    /  BUFFER         / 
*	    ................... 
* 
DTETQ	EQU	14
DTEUEC	EQU	DTETQ+2
DTEMEC	EQU	DTEUEC+2 

	IFT	MMUPAG=0 
DTEDRD	EQU	DTETQ+2	START OF DC DEPENDENT AREA 
	XIF
	IFT	MMUPAG=1 
DTEDRD	EQU	DTEMEC+2	START OF DC DEPENDENT AREA
	XIF
DTESTB	EQU	DTEDRD	OFFSET REL START DTE TO STATISTIC BUFF IF ANY 
DTECHD	EQU	DTEDRD+2	CONFIG CHAIN LINK HEAD DTE
DTECHN	EQU	DTEDRD+4	CONFIG CHAIN LINK NEXT DTE
DTELAD	EQU	DTEDRD+6	LOCAL SYMBOLIC DTE ADDRESS
*	DRIVER DEPENDENT
DTEPLS	EQU	DTEDRD+8	PHYSICAL LINK STATUS
DTEDLS	EQU	DTEDRD+10	DATA LINK STATUS 
DTESTA	EQU	DTEDRD+12	DTE STATUS 
DTEDWT	EQU	DTEDRD+14	CHAIN LINK  DWT
DTEDDT	EQU	DTEDRD+16	CHAIN LINK  DISCARD DWT
*	STATITICS BUFFER
STWSID	EQU	DTEDRD+18	RESERVED FOR SYMBOLIC ID 
STWCST	EQU	DTEDRD+20	COUNTER STATUS INDEX 
STWMIX	EQU	DTEDRD+22	MAX COUNTER INDEX
STWCTA	EQU	DTEDRD+24	COUNTERS 
	EJECT
**********************************************************************
* 
*	COUNTER INDECES - PARAMETER-1 EQUATES 
* 
*	REQUEST LEVEL COUNTERS: 
* 
*************************************************************** 
* 
CSRCON	EQU	/01	CONNECTIONS ESTABLISHED
CSRCBY	EQU	/02	CONNECTION NOT ESTABLISHED - BUSY
CSRMSR	EQU	/03	MESSAGES RECEIVED
CSRCHR	EQU	/C5	CHARACTERS RECEIVED
CSRMST	EQU	/06	MESSAGES TRANSMITTED 
CSRCHT	EQU	/C8	CHARACTERS TRANSMITTED 
CSRTOP	EQU	/09	TIMEOUT
CSRABT	EQU	/0A	ABORTED
CSRERR	EQU	/0B	ERROR
CSRTRE	EQU	/0C	TRANSMISSION ERROR 
CSRXC1	EQU	/0D	PROTOCOL DEPENDENT 
* 
*	LINK LEVEL COUNTERS 
	 
CSSRBL	EQU	/10	SYNCH DATA BLOCKS RECEIVED 
CSSRBY	EQU	/11	  "   DATA BLOCKS REJECTED BUFFER BUSY 
CSSRBO	EQU	/12	  "   DATA BLOCKS REJECTED BUFFER OVERFLOW 
CSSRAB	EQU	/13	  "   DATA BLOCKS REJECTED ABORTED 
CSSRPE	EQU	/14	  "   DATA BLOCKS REJECTED PARITY ERROR
CSSTBL	EQU	/15	  "   DATA BLOCKS TRANSMITTED
CSSTRT	EQU	/16	  "   DATA BLOCKS RETRANSMITTED
CSSTAB	EQU	/17	  "   DATA BLOCKS ABORTED
CSSXC1	EQU	/18	NBR OF REPLY REQUESTS TRANSMITTED
CSSXC2	EQU	/19	PROCEDURE TIME OUTS
CSSXC3	EQU	/1A	NBR OF TIMES POLL TIMEOUT HAS OCCURED
	 
	 
	EJECT
*	DTE/DCE LEVEL COUNTERS
	 
CSCDTE	EQU	/28	DTE NOT OPERABLE 
CSCDIT	EQU	/29	I/P THROUGHPUT ERROR 
CSCDOT	EQU	/2A	O/P THROUGHPUT ERROR 
CSCDCE	EQU	/2B	DCE NOT OPERABLE 
CSCXC1	EQU	/2C	CONTROL UNIT DEPENDENT 
CSCXC2	EQU	/2D	    "
CSCXC3	EQU	/2E	    "
	EJECT
* 
* 
*	REQUEST HANDLING
* 
* 
*	ORDER CODE (A7) 
* 
OPEN	EQU	/21	OPEN 
CLOSE	EQU	/22	CLOSE 
CONPAS	EQU	/27	CONNECT PASSIVE
DISCO	EQU	/2F	DISCONNECT
RECEIVE	EQU	/02	RECEIVE 
SEND	EQU	/06	SEND 
RSTAT	EQU	/00	READ STATUS 
SSTAT	EQU	/38	SET STATUS
STATIS	EQU	/2D	READ/RESET STATISTICS
STIMOT	EQU	/39	SET TIMEOUT VALUE
* 
*	OPTIONS:
* 
TYPRR	EQU	/4343	RESET STATISTICS AFTER READ	=5
	EJECT
* 
**********************************************************
* 
*	S O F T W A R E  R E T U R N  C O D E S 
* 
**********************************************************
* 
*---------------------------------------------------------------------- 
R:REQ	EQU	/8000	REQUEST ERROR 
R:ABRT	EQU	/4000	REQUEST ABORTED
R:2	EQU	/2000 
R:3	EQU	/1000 
*---------------------------------------------------------------------
R:4	EQU	/0800 
R:5	EQU	/0400 
R:6	EQU	/0200 
R:DATA	EQU	/0100	DATA AVAILABLE (QUEUED)
*---------------------------------------------------------------------
R:8	EQU	/0080 
R:TIME	EQU	/0040	TIME OUT 
R:10	EQU	/0020
R:SEQ	EQU	/0010	SEQUENCE ERROR
*---------------------------------------------------------------------
R:LGTH	EQU	/0008	ILLEGAL LENGTH 
R:13	EQU	/0004
R:LOGC	EQU	/0002	LOGICAL CONNECTION ERROR 
R:PHYC	EQU	/0001	PHYSICAL CONNECTION ERROR
*---------------------------------------------------------------------- 
* 
	EJECT
* 
********************************************************
* 
*	H A R D W A R E  R E T U R N  C O D E S 
* 
*********************************************************=
* 
*---------------------------------------------------------------------- 
H:0	EQU	/8000 
H:1	EQU	/4000 
H:2	EQU	/2000 
H:3	EQU	/1000 
*---------------------------------------------------------------------- 
H:4	EQU	/0800 
H:5	EQU	/0400 
H:6	EQU	/0200 
H:7	EQU	/0100 
*---------------------------------------------------------------------- 
H:8	EQU	/0080 
H:9	EQU	/0040 
H:CARR	EQU	/0020	CARRIER OFF
H:11	EQU	/0010
*-------------------------------------------------------------------- 
H:12	EQU	/0008
H:PARI	EQU	/0004	PARITY ERROR 
H:THRU	EQU	/0002	THROUGHPUT ERROR 
H:NOOP	EQU	/0001	NOT OPERABLE 
*---------------------------------------------------------------------- 
	EJECT			 
**********************************************************
* 
*	LINE CONTROL CHAR EQU:S		 
*				 
**********************************************************
* 
SF	EQU	X'1D'	START FIELD CHARACTER
SYN	EQU	/16 
STX	EQU	/02 
ETX	EQU	/03 
ETB	EQU	/17 
ITB	EQU	/1F 
SOH	EQU	/01 
ENQ	EQU	/05 
DLE	EQU	/10 
EOT	EQU	/04 
NAK	EQU	/15 
ESC	EQU	/1B 
SBA	EQU	/11 
GP	EQU	/22
RDBCOM	EQU	/32
RDMCOM	EQU	/36
	EJECT
	IFT	CODE=0 
PAR	EQU	/80 
RVI	EQU	/3C 
ACK0	EQU	/30
ACK1	EQU	/31
DC1	EQU	/11 
	IFT	MSV1=0 
WACK	EQU	/3B
	XIF
	IFT	CODE=0 
	IFT	MSV1=1 
WACK	EQU	/BF	=WABT - SIEMENS MSV1 PROCEDURE 
	XIF
	IFT	CODE=1 
PAR	EQU	/00 
WACK	EQU	/2C
RVI	EQU	/40 
ACK0	EQU	/18
ACK1	EQU	/2F
SYNEBC	EQU	/32
ENQEBC	EQU	/2D
ETBEBC	EQU	/26
	XIF
	IFT	P6805=0
ENQPAR	EQU	ENQ+PAR
RVIPAR	EQU	RVI+PAR
ACKPAR	EQU	ACK0+PAR 
	XIF
	IFT	P6805=1
ENQPAR	EQU	ENQ
RVIPAR	EQU	RVI
ACKPAR	EQU	ACK0 
	XIF
	EJECT
* 
* 
*	3270 SENSE/STATUS INFORMATION 
* 
* 
	IFF	STARVI=0 
SSTAB	EQU	*	S/S 0 : NO STATUS,DB,DE,DB+DE 
* 
* 
	DATA	/4248 
	DATA	/4242 
* 
NOIR	EQU	/20	S/S 1 : NO INTERVENTION REQUIRED 
IR	EQU	/26	S/S 1 : INTERVENTION REQUIRED
	XIF
* 
* 
*	TIMER VALUES
* 
* 
TIMPRO	EQU	30	PROCEDURE TIMER 3 SEC 
* 
* 
	EJECT
************************************************************* 
* 
*	LINE CONTROL UNIT FUNCTION CONTROL EQU:S
* 
************************************************************* 
* 
	IFT	CODE=0 
SYNC	EQU	/16
	XIF
	IFT	CODE=1 
SYNC	EQU	/32
	XIF
	IFT	P6805=0
CBCARR	EQU	/100+LSPEED
	XIF
	IFT	P6805=1
CBSTOP	EQU	/00
	IFT	CODE=0 
PARITY	EQU	/0C
	XIF
	IFT	P6805=1
	IFT	CODE=1 
PARITY	EQU	/00
	XIF
	EJECT
*************************************************** 
* 
*	LINE CONTROL UNIT SST STATUS BITS 
* 
*************************************************** 
* 
	IFT	P6805=0
H:ERR	EQU	/23	H:NOOP+H:THRU+H:CARR
	XIF
	IFT	P6805=1
H:ERR	EQU	/27	H:NOOP+H:THRU+H:CARR+H:PARI 
	XIF
	EJECT			 
****************************************************************
* 
*	DRIVER ADDRESS BLOCK
* 
*************************************************************** 
* 
	DATA	BUFLEN	MMU BUFFER SIZE
	DATA	DEVIND	DEVICE INDEX 
DC15AD	DATA	DCACT	ACTIVATION ADDRESS
	DATA	ABORT	ABORT ROUTINE 
	DATA	DCRBUF	REC. BUFFER ANCHOR 
	DATA	6	HEADER LENGTH 
* 
	RES	15	SUBROUTINE STACK FOR INTERRUPTS 
STB	RES	1 
	EJECT

************************************************************
* 
*    ABORT ROUTINE
* 
************************

ABORT	LD	A1,DWTRTP,A6	TIMER POINTER 
	RF(Z)	AB:10	NO TIMER RUNNING 
	CMR	A1	KILL TIMER
	CM	DWTRTP,A6 

AB:10	LD	A2,DWTOR,A6	ORDER CODE 
	ANK	A2,/7F 
	SUK	A2,6 
	RF(NE)	AB:RTN
	CF	A15,REMOVW	REMOVE DWT FROM WRITE QUEUE
	LD	A2,FDWTUT	WRITING DWT ADDRESS 
	CWR	A2,A6
	RF(NE)	AB:RTN	NOT THIS DWT 
	CM	FDWTUT	REST SENDING DWT 
	CM	XACK	RESET ACK EXPECTED 

AB:RTN	EQU	*
	ABL	RTABRT 
	EJECT
**********************************************************************
**********************************************************************
* 
* 
*	REQUEST HANDLER/APPLICATION INTERFACE 
* 
* 
**********************************************************************
**********************************************************************
* 
*	ACTIVATION FROM TERMINAL TASKS
* 
DCACT	EQU	* 
	LDK	A1,0	PRESET RETURN CODE
	LDR	A2,A7	ORDER CODE AS PARAMETER
	LDKL	A7,DTETAB	DTE TAB ADDR
	ANK	A2,/FF	STRIP OFF OPTION BITS 
	CF	A15,LOOKUP	BRANCH ON CODES, TABLE ADDRESS TO STACK
	DATA	TREQX,RTREQ	LAST ENTRY; ERROR ADDRESS 
	DATA	RECEIVE,RQRECE	RECEIVE REQUEST
	DATA	SEND,RQSEND	SEND REQUEST
	DATA	OPEN,RQOPEN	OPEN REQUEST
	DATA	CLOSE,RQCLOS	CLOSE REQUEST
	DATA	CONPAS,RQCON	CONNECT PASSIVE REQUEST
	DATA	DISCO,RQDIS	DISCONNECT REQUEST
	DATA	RSTAT,RQRSTS	READ STATUS REQUEST
	DATA	SSTAT,RQSST	SET STATUS REQUEST
	DATA	STIMOT,RQTIME	SET REQUEST TIMEOUT 
TREQX	DATA	STATIS,RQSTAT	READ/RESET STATISTICS REQUEST
	EJECT
* 
* 
*	OPEN REQUEST
* 
*	ACTIVATION PARAMETERS:
*		SYMBOLIC DTE-ADDRESS (ECBCW2)
* 
*	FUNCTIONS:
*		1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS
*		2. CONVERT & VERIFY DTE ADDRESS
* 
RQOPEN	EQU	*
	LD	A1,ECBCW2,A8	GET SYMBOLIC DTE-ADDRESS 
	LD	A2,DTESTA,A7	GET DTE STATUS 
	ADR	A2,A2	WORD ALIGNED INDEX VALUE 
	ABI	RQOPTB,A2	BRANCH ON INDEX IN TABLE 
RQOPTB	DATA	RQOP20	CLOSED/INACTIVE
	DATA	RQOP15	OPEN IN PROGRESS 
	DATA	RQOP10	OPEN 
	DATA	RQOP15	CLOSE IN PROGRESS
RQOP10	EQU	*
	CW	A1,DTELAD,A7	SAME AS THE ONE WHO OPENED ? 
	RF(E)	RQOP90	YES - OK
RQOP15	EQU	*
	ABL	RTSEQ	RETURN: SEQUENCE ERROR 
* 
RQOP20	EQU	*
	IM	DTESTA,A7	SET OPEN IN PROGRESS
	ST	A1,DTELAD,A7	SAVE SYMBOLIC DTE ADDRESS
	LDR	A2,A7	ADDR TO SELECT AND POLL IN DTE TAB 
	CF	A15,GETDNA	CONVERT AND VALIDATE DTE ADDR
	LDR	A1,A1
	RF(NN)	RQOP80	OK 
	CM	DTELAD,A7	CLEAR DTE ADDR
	CM	DTESTA,A7	CLEAR DTE STATUS
	ABL	RTREQ	RETURN: REQUEST ERROR
* 
RQOP80	EQU	*
	IFT	CODE=1 
	LDR*	A2,A7	DTE ADDRESS IN EBCDIC 
	LDR	A1,A2
	ANK	A2,/FF 
	RF(Z)	RQOP30	ONLY ONE BYTE 
	LC	A2,TASCII,A2	CONVERT INTO ASCII 
	SLL	A2,8 
RQOP30	EQU	*
	ECR	A1,A1
	ANK	A1,/FF 
	LC	A2,TASCII,A1
	STR	A2,A7	SAVE ASCII VALUE IN DTETAB 
	XIF
				=1
	ABL	DTE:ON	CONNECT MODEM 
RQOP90	EQU	*
	LD	A2,DTEPLS,A7	PHYSICAL CONNECTION ?
	ABL(NZ)	RTOK	YES RETURN OK 
	ABL	RTPHYC	RETURN PHYSICAL CONNECTION
	EJECT
* 
*	CLOSE REQUEST 
* 
*	ACTIVATION PARAMETERS:
*		OPTION	/00 = UNCONDITIONAL 
*			/80 = CONDITIONAL 
*	FUNCTIONS:
*		1. IF CONDITIONAL, CHECK IF ANY LOGICAL CONNECTIONS (DWTS) ARE ACTIVE
*		   ACTIVE. 
*		2. IF UNCONDITIONAL, DISCONNECT ALL DWT:S
* 
RQCLOS	EQU	*
	LD	A5,DWTOR,A6	GET OPTION AND ORDER
	LD	A2,ECBCW2,A8	GET SYMBOLIC DTE - ADDR
	RF(Z)	RQCL20 
	CW	A2,DTELAD,A7	CORRECT DTE ?
	ABL(NE)	RTREQ	RETURN: REQUEST ERROR
RQCL20	EQU	*
	LD	A2,DTESTA,A7	GET DTE STATUS 
	ABL(Z)	RTOK	RETURN : OK
	SUK	A2,2	DTE OPENED ?
	ABL(NZ)	RTSEQ	RETURN: SEQUENCE ERROR 
	IM	DTESTA,A7	CLOSE IN PROGRESS 
	LDR	A8,A6	SAVE REQUESTING DWT-ADDR 
* 
RQCL40	EQU	*
	IFT	MESPAS=1 
	LD	A6,DTEDDT,A7	GET DISCARD DWT ADDR 
	RF(Z)	RQCL50 
	LDR	A5,A5	CONDITIONAL CLOSE ?
	RF(N)	RQCL95	YES ! 
	LD	A2,DWTCHN,A6	GET POINTER TO NEXT DWT
	ST	A2,DTEDDT,A7	DISCARD DWT ADDR REMOVED 
	RF	RQCL60
RQCL50	EQU	*
	XIF
	LD	A6,DTEDWT,A7	GET DWT ADDR 
	RF(Z)	RQCL90	NO DWT IN QUEUE 
	LDR	A5,A5	CONDITIONAL CLOSE ?
	RF(N)	RQCL95	YES ! 
	LD	A2,DWTCHN,A6	GET POINTER TO NEXT DWT IN CHAIN 
	ST	A2,DTEDWT,A7	DWT FIRST IN QUEUE REMOVED 
	IFT	MESPAS=1 
RQCL60	EQU	*
	XIF
	CF	A15,RELBUF	REMOVE BUFFERS QUEUED ON DWT 
	CM	DWTSTA,A6	CLEAR DWT-STATUS
	LDK	A1,0	PRESET RETURN CODE
	CWR	A8,A6	REQUESTING DWT ? 
	RF(E)	RQCL80	YES-COMPLETE REQUEST
	LD	A2,DWTST,A6	A PENDING REQUEST ? 
	RB(N)	RQCL40	NO TAKE NEXT DWT
	LDK	A1,R:SEQ	COMPLETE REQUEST WITH SEQUENCE ERROR
RQCL80	EQU	*
	CF	A15,TENDIO	COMPLETE THE REQUEST 
	RB	RQCL40	TAKE NEXT ON QUEUE 
RQCL90	EQU	*
				=1
	LDR	A6,A8	GET REQUESTING DWT ADDR
	LD	A8,DWTECB,A6	RESTORE ECB ADDRESS
				=1
	RF(Z)	RQCL92	REQUEST ALREADY COMPLETED	=1
	LDK	A1,0	RC=0	=1 
	CF	A15,TENDIO	COMPLETE CLOSE REQUEST	=1
RQCL92	EQU	*		=1
	IFT	P6805=0		=1
	LDKL	A5,STB		=1
	CF	A5,CHALTI	HALT I/P DEVICE	=1
	CF	A5,CHALTO	HALT O/P DEVICE	=1
	LDK	A2,0		=1 
	CIO	A2,1,LCUIN	DISCONNECT MODEM	=1 
	XIF			=1 
	IFT	P6805=1		=1
	LDK	A2,1	DISCONNECT ORDER	=1 
	CIO	A2,0,LCUIN	DISCONNECT MODEM	=1 
	XIF			=1 
	CMR	A7	REMOVE NETWORK ADDRESS	=1 
	CM	DTESTA,A7	CLEAR STATUS	=1 
	LD	A1,DCTPGP	POLL TIMER RUNNING ?	=6 
	RF(Z)	RQCL94	NO	=6 
	CM*	DCTPGP	KILL TIMER	=6 
	CM	DCTPGP	CLEAR POINTER	=6 
RQCL94	EQU	*		=6
	CM	DTEDLS,A7	INDICATE DATA LINK DOWN	=6
	ABL	TDISP		=1
RQCL95	EQU	*
	LDK	A2,2 
	ST	A2,DTESTA,A7	SET DTE OPEN AGAIN 
	LDR	A6,A8	RESTORE DWT ADDRESS
	ABL	RTSEQ	SEQUENCE ERROR 
	EJECT
* 
*	CONNECT PASSIVE REQUEST 
* 
*	ACTIVATION PARAMETERS:
*		- SYMBOLIC SUBADDRESS (RIGHTMOST BYTE IN ECBBA-BFR)
*		- DEVICE ADDRESSES IN ECBBA-BFR
*		- LENGTH OF BUFFER (ECBRL) 
*		- SYMBOLIC DTE-ADDRESS (ECBCW2)
* 
*	FUNCTIONS:
*		1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST
*		2. VERIFY & CONVERT SUBTERMINAL ADDRESS
*		3. VERIFY AND STORE DEVICE ADDRESSES 
*		4. LINK CALLING DWT TO QUEUE 
* 
RQCON	EQU	* 
	LD	A2,DTELAD,A7	SYMBOLIC DTE-ADDR
	CW	A2,ECBCW2,A8	CORRECT DTE ?
	ABL(NE)	RTREQ	NO, RETURN: REQUEST ERROR
	LD	A2,DTESTA,A7	GET DTE STATUS 
	SUK	A2,2	OPEN ?
	ABL(NZ)	RTSEQ	NO, RETURN: SEQUENCE ERROR 
	LD	A2,DWTSTA,A6	GET DWT STATUS 
	SUK	A2,2	ALREADY CONNECTED ? 
	ABL(Z)	RTSEQ	YES, RETURN: SEQUENCE ERROR 
	IFT	MESPAS=1		=13
	LDK	A2,/40	OPTION CODE	=13 
	CC	A2,DWTOPT,A6	DISCARD DWT ?	=13
	RF(NE)	RQCN10	NO	=13 
	CM	DWTCHP,A6	INDICATE DISCARD DWT	=13
	LD	A1,DTEDDT,A7	POINTER TO DISCARD DWT	=13 
	RF(NZ)	RQCN50	MORE THAN ONE DISC. DWT ?	=13
	ST	A6,DTEDDT,A7	SAVE POINTER TO TO DISCARD DWT	=13 
	RF	RQCN60		=13 
RQCN10	EQU	*		=13 
	XIF			=13
	IFF	MMUPAG=0 
	LDKL	A4,MMUBUF	MMU BUFFER ADDRESS
	ST	A4,ECBBA,A8	TO ECB
	CF	A15,DC:MOT	MOVE DATA TO MMU BUFFER
	XIF
	LD	A4,ECBBA,A8	GET ECB-BUFFER ADDRESS
	IFT	MSV1=1 
	LDK	A2,0	RESET A2
	LCR	A2,A4	GET SELECT SUB-ADDRESS 
	SC	A2,DWTSUB,A6	SAVE IT IN THE DWT 
	LD	A1,ECBCW2,A8	GET SYMBOLIC DTE-ADDRESS 
	CF	A15,GETSNA	VALIDATE AND TRANSLATE THE SUB-ADDR
	LDR	A1,A1	IS IT OK ? 
	RF(NN)	RQCN20	YES
	CM	DWTSUB,A7	CLEAR SUB-ADDRESS 
	ABL	RTREQ	RETURN REQUEST ERROR 
RQCN20	EQU	*
	IFT	CODE=1 
	LC	A1,TASCII,A1	CONVERT FROM EBCDIC TO ASCII 
	XIF
	IFT	MSV1=1 
	SC	A1,DWTCHP,A6	SAVE NETWORK ADDRESS 
	XIF
	LC	A2,1,A4	GET SYMBOLIC ADDRESS	=8 
	SC	A2,DWTSUB+1,A6	SAVE IT IN THE DWT 
	LD	A1,ECBCW2,A8	GET SYMBOLIC DTE ADDRESS 
	ST	A1,DWTLAD,A6	SAVE IT IN THE DWT 
	CF	A15,GETSNA	VALIDATE AND TRANSLATE THE SUB-ADDRESS 
	LDR	A1,A1	IS IT OK ? 
	RF(NN)	RQCN30	YES
	CM	DWTSUB,A6	CLEAR SUB-ADDRESS 
	CM	DWTLAD,A6	CLEAR DTE ADDRESS 
	ABL	RTREQ	RETURN REQUEST ERROR 
RQCN30	EQU	*
	IFT	CODE=1 
	LC	A1,TASCII,A1	CONVERT FROM EBCDIC TO ASCII 
	XIF
	SC	A1,DWTCHP+1,A6	SAVE NETWORK ADDRESS 
	IFT	EM3270=1 
	ST	A1,ECBCW2,A8
	XIF
* 
* 
*		LINK DWT TO CONFIGURATION CHAIN
* 
				=13 
RQCN40	EQU	*
	LD	A1,DTEDWT,A7	GET POINTER TO DWT QUEUE 
	RF(NZ)	RQCN50	YES
	ST	A6,DTEDWT,A7	SAVE POINTER TO DWT QUEUE
	RF	RQCN60
RQCN50	EQU	*
	LDR	A2,A1	MOV ADDR TO A2 
	LD	A1,DWTCHN,A2	POINTER TO NEXT DWT
	RB(NZ)	RQCN50	KEEP ON UNTIL LAST IN CHAIN
	ST	A6,DWTCHN,A2	ADD NEW DWT TO CHAIN 
RQCN60	EQU	*
	CM	DWTCHN,A6	END OF CHAIN MARKER 
	ST	A7,DWTCHD,A6	BACKWARD LINK TO ANCHOR
	LDK	A2,2	
	ST	A2,DWTSTA,A6	SET STATUS: CONNECTED
	LDKL	A2,/8000
	ST	A2,DWTRTV,A6	STORE NO TIMING
				=13 
	IFT	STARVI=1 
	LD	A1,DWTCHP,A6	DISCARD DWT ?	=13
	RF(Z)	RQCN65	YES, DO NOT SEND DE	=13 
	LDK	A1,4	STORE DEVICE
	ORS	A1,DWTST,A6	END IN THE DWT 
	CF	A15,INSSQ	INSERT DWT IN STATUS QUEUE
RQCN65	EQU	*		=13 
	XIF
* 
*	START POLL TIMER
* 
	LD	A2,DCTPGP	POLL TIMER POINTER
	RF(NZ)	RQCN70	TIMER ALREADY STARTED	=6 
	CF	A15,SPOTIM
RQCN70	EQU	*
	ABL	RQOP90 
	EJECT
* 
*	DISCONNECT REQUEST
* 
*	ACTIVATION PARAMETERS:
*		DWT-ADDRESS (A6) 
* 
*	FUNCTIONS:
*		1. CHECK IF IN CONNECTED STATE 
*		2. REMOVE DWT-ADDRESS FROM CONFIGURATION CHAIN 
*		3. SET DWT STATUS DISCONNECTED 
* 
*	COMPLETION PARAMETERS:
*		RETURN CODE (A1) 
* 
RQDIS	EQU	* 
	LD	A2,DWTSTA,A6	DWT STATUS = DISCONNECTED ?
	ABL(Z)	RTOK	YES, RETURN: OK
	LD	A3,DTEDWT,A7	FIRST DWT ADDR TO A3 
	RF(Z)	RQDI20	END OF CHAIN
	CWR	A3,A6	OUR DWT ?
	RF(NE)	RQDI10	NO 
	CF	A15,RELBUF	RELEASE QUEUED BUFFERS 
	LD	A3,DWTCHN,A6	YES-TAKE POINTER TO NEXT DWT 
	CM	DWTSTA,A6	SET DWT FREE
	ST	A3,DTEDWT,A7	STORE DWT-ADDR IN DTETAB 
	RB	RQCN70
RQDI10	EQU	*
	LDR	A5,A3	A5 CONTAINES PREVIOUS DWT-ADDR 
	LD	A3,DWTCHN,A5	A3 CONTAINES ADDR TO NEXT DWT ON CHAIN 
	RF(Z)	RQDI20	END OF CHAIN
	CWR	A3,A6	OUR DWT ?
	RB(NE)	RQDI10	NO TAKE NEXT IN CHAIN
	CF	A15,RELBUF	RELEASE QUEUED BUFFERS 
	LD	A3,DWTCHN,A6	YES-TAKE POINTER TO NEXT DWT 
	ST	A3,DWTCHN,A5	AND STORE IT IN PREVIOUS DWT 
	CM	DWTSTA,A6	SET DWT FREE
	RB	RQCN70
RQDI20	EQU	*
	IFT	MESPAS=1 
	LD	A3,DTEDDT,A7	TAKE THE DISCARD DWT ADDR
	CWR	A3,A6	OUR DWT ?
	RF(NE)	RQDI30	SEQUENCE ERROR 
	CF	A15,RELBUF	RELEASE BUFFERS QUEUED 
	CM	DTEDDT,A7 
	CM	DWTSTA,A6	SET DWT FREE
	RB	RQCN70
RQDI30	EQU	*
	XIF
	ABL	RTSEQ	SEQUENCE ERROR 
	EJECT
* 
* 
*	READ STATUS REQUEST 
* 
*	ACTIVATION PARAMETERS:
*		DWT - ADDRESS (A6) 
* 
*	FUNCTIONS:
*		1. TRANSFER LOGICAL CONNECTION STATUS TO APPLICATION 
* 
*	COMPLETION PARAMETERS:
*		LOGICAL CONNECTION STATUS (ECBCW1) 
* 
*	0       3 4       7 8      11 12      15
*	........................................
*	.  DWT   .  DTE    .  DATA   .  PHYS   .
*	.  STATE .  STATE  .  LINK   .  LINK   .
*	.        .         .  STATUS .  STATUS .
*	........................................
* 
RQRSTS	EQU	*
	IFT	EM3270=1 
	LD	A2,ECBCW1,A8	GET OPTION CODE
	RF(NZ)	RQRS10	TEST IF ANY MESSAGE
	XIF
	LD	A2,DWTSTA,A6	DWT STATUS 
	SLL	A2,4	BITS 0-3
	AD	A2,DTESTA,A7	DTE STATUS 
	SLL	A2,4	BITS 4-7
	AD	A2,DTEDLS,A7	DATA LINK STATUS 
	SLL	A2,4	BITS 8-11 
	AD	A2,DTEPLS,A7	PHYSICAL LINK STATUS (BITS 12 - 15)
	ST	A2,ECBCW1,A8	STATUS TO ECB CONTROL WORD 1 
	ABL	RTOK	RETURN: OK
	IFT	EM3270=1 
* 
* 
*		ANY MESSAGE ORDER (ONLY IF EM3270 = 1) 
* 
RQRS10	EQU	*
	LD	A2,DTESTA,A7	GET DTE STATUS 
	SUK	A2,2	OPEN ?
	ABL(NZ)	RTSEQ	NO,SEQUENCE ERROR
	LD	A2,DWTSTA,A6	GET DWT STATUS 
	SUK	A2,2	CONNECTED ? 
	ABL(NZ)	RTSEQ	NO,SEQUENCE ERROR
	LD	A4,DWTIPC,A6	ANY QUEUED MESSAGE ON THIS DWT ? 
	ABL(NZ)	RTOK	YES COMPLETE THE REQUEST
	ABL TDISP	TO DISPATCHER
	XIF
	EJECT
* 
*	SET STATUS REQUEST
* 
* 
*	ACTIVATION PARAMETERS 
*		DWT ADDRESS (A6) 
* 
*	FUNCTIONS:
*		SET DEVICE STATUS (ONLY IF STARVI = 1) 
* 
*		DE DEVICE END : X`'00' 
* 
*		IR INTERVENTION REQUIRED : X'01' 
* 
*		DB DEVICE BUSY :X'10'
* 
*	COMPLETION PARAMETERS:
*		RETURN CODE (A1) 
* 
RQSST	EQU	* 
	IFT	STARVI=0 
	ABL	RTREQ	SET STATUS NOT INCLUDED
	XIF
	IFT	STARVI=1 
	LD	A1,ECBCW1,A8	GET DEVICE STATUS
	ANK	A1,3	MASK DB,IR
	RF(NZ)	RQST90	NOT DE 
	LD	A1,DWTST,A6	GET DEVICE STATUS 
	ANK	A1,/B	WACK SENT, DB OR IR ?	=2 
	RF(Z)	RQST90	NO	=2 
	CF	A15,INSSQ	INSERT DWT IN STATUS QUEUE
	LDK	A1,4	SET DE
RQST90	EQU	*
	ST	A1,DWTST,A6	SAVE STATUS 
	ABL	RTOK	RETYURN : OK
	XIF
	EJECT
* 
*	READ/RESET STATISTICS REQUEST 
* 
*	ACTIVATION PARAMETERS:
*		TYPE = BITS 0-7 OF ECBCW1
*		ECB-ADDRESS (A8) 
*		DWT-ADDRESS OF LOW-LEVEL DWT (A6)
* 
*	FUNCTIONS:
*		1. READ STATISTICS TO USER AREA
*		2. RESET ALL STATISTICS BUFFERS
* 
*	COMPLETION PARAMETERS:
*		NUMBER OF BYTES TRANSFERRED (ECBEL)
*		RETURN CODE (A1) 
* 
RQSTAT	EQU	*
	IFT	STTSTS=0 
	ABL	RTREQ	RC : REQUEST ERROR NO STATISTICS INCLUDED
	XIF
	IFF	STTSTS=0 
	CF	A15,DCSRED	READ STATISTICS
	LDR	A1,A1	OK?
	ABL(NZ)	RTREQ	NO, RETURN: REQUEST ERROR
	LD	A1,ECBCW1,A8	GET TYPE 
	SRL	A1,8	TYPE FIELD TO LEFT BYTE 
	CCK	A1,TYPRR	CORRECT TYPE? 
	RF(NE)	RQST40
	CF	A15,DCSRLL	RESET ALL STATISTICS BUFFERS 
	LDR	A1,A1	LUCKY AGAIN? 
	ABL(NZ)	RTREQ	NO, RETURN: REQUEST ERROR
RQST40	EQU	*
	ABL	RTOK	RETURN: OK
	XIF
	EJECT
* 
*	SET TIMEOUT VALUE 
* 
*	ACTIVATION PARAMETERS:
*		ECBCW1 >= 0 : ACTIVATE TIMING CONTROL
*		              TIMEOUT VALUE IN MULTIPLES OF 100 MS;
*		              0 = IMMEDIATE TIMEOUT. 
*		       < 0:   DE-ACTIVATE TIMING CONTROL 
* 
*	FUNCTIONS:
*		STORE VALUE DIRECTLY IN CALLER'S DWT 
* 
*	COMPLETION PARAMETERS:
*		DWTRTV = TIMEOUT VALUE = ECBCW1
* 
RQTIME	EQU	*
	LD	A2,ECBCW1,A8	GET TIMEOUT VALUE FROM ECB 
	ST	A2,DWTRTV,A6	STORE IN DWT 
	ABL	RTOK	RETURN: OK
	EJECT
* 
*	SEND REQUEST
* 
*	ACTIVATION PARAMETERS:
*		BUFFER ADDRESS (ECBBA) 
*		BUFFER LENGTH (ECBRL)
*		SUBTERMINAL ADDRESS (DWT)
*		ECB CONTROL WORD 1 
*	
*	FUNCTIONS:
*		1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. 
*		2. VERIFY BUFFER SIZE IF MMU 
*		3. QUEUE REQUESTING DWT
*		4. COMPLETE WHEN ACK'D OR TIMEOUT. 
* 
RQSEND	EQU	*
	LD	A2,DWTSTA,A6	GET DWT STATUS 
	SUK	A2,2	CONNECTED ? 
	ABL(NZ)	RTSEQ	NO, RETURN: SEQUENCE ERROR 
	LD	A2,DTEPLS,A7	PHYSICAL CONNECTION ACTICE ? 
	ABL(Z)	RTPHYC	NO, RETURN: PHYSICAL CONNECTION ERROR
	LD	A2,DTEDLS,A7	LOGICAL CONNECTION ACTIVE ?
	ABL(Z)	RTLOGC	NO, RETURN: LOGICAL CONNECTION ERROR 
	LC	A2,DWTOPT,A6	GET OPTION 
	ANK	A2,/FF 
	RF(Z)	RQSE10	THERE IS NO OPTION
	SUK	A2,/20	WHICH OPTION ?
	ABL(NZ)	RTREQ	WRONG OPTION :REQUEST ERROR
	CF	A15,RELBUF	RELEASE BUFFERS QUEUED 
RQSE10	EQU	*
	IFT	MMUPAG=1 
	LD	A2,ECBRL,A8	REQUESTED LENGTH
	CWK	A2,BUFLEN	ILLEGAL LENGTH ? 
	ABL(G)	RTLGTH	YES, RETURN: ILLEGAL BUFFER LENGTH 
	XIF
	CF	A15,TIMEWR	START TIMER
	CF	A15,INSWQ	QUEUE SEND REQUEST
	ABL	TDISP
* 
	EJECT
* 
*	RECEIVE REQUEST 
* 
*	ACTIVATION PARAMETERS:
*		BUFFER ADDRESS (ECBBA) 
*		REQUESTED BUFFER LENGTH IN CHARS. (ECBRL)
*		SUBTERMINAL ADDRESS (DWT)
* 
*	FUNCTIONS:
*		1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. 
*		2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, 
*		3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED 
*		   WITHIN TIMEOUT PERIOD.
* 
*	COMPLETION PARAMETERS:
*		ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL)
*		RETURN CODE (A1) 
* 
RQRECE	EQU	*
	LD	A2,DWTSTA,A6	GET DWT STATUS 
	SUK	A2,2	CONNECTED ? 
	ABL(NZ)	RTSEQ	NO, RETURN: SEQUENCE ERROR 
	LD	A2,DTEPLS,A7	PHYSICAL CONNECTION ACTIVE ? 
	ABL(Z)	RTPHYC	NO, RETURN: PHYSICAL CONNECTION ERROR
	LD	A4,DWTIPC,A6	ANY BUFFER ON QUEUE ?
	RF(NZ)	RQRE10	YES
	LD	A2,DTEDLS,A7	LOGICAL CONNECTION ACTIVE ?
	ABL(Z)	RTLOGC	NO, RETURN: LOGICAL CONNECTION ERROR 
	CF	A15,TIMERE	START TIMER
	RF	RQRE40	GO TO DISPATCHER 
RQRE10	EQU	*
	LD	A3,2,A4	EFFECTIVE LENGTH
	ST	A3,ECBEL,A8 
	LD	A1,DWTLAD,A6	SYMBOLIC DTE-ADDRESS 
	LD	A2,4,A4	NETWORK SUB-ADDRESS 
	CF	A15,GETSSA	GET SYMBOLIC SUB-ADDRESS 
	ST	A1,ECBCW2,A8	AND SAVE IT IN ECB 
	IFT	REMTIM=1		=9 
	LD	A1,DWTRTV,A6	GET REQUESTED TIMEOUT VALUE	=9 
	ST	A1,ECBCW1,A8	STORE IN CONTROL WORD 1	=9 
	XIF			=9 
	LDK	A1,0	RC : ACCEPTED AND COMPLETED 
	LDR*	A2,A4	GET NEXT BUFFER IN QUEUE
	RF(Z)	RQRE20	NO MORE BUFFERS IN QUEUE
	ORKL	A1,R:DATA	RC: AND MORE DATA AVAILABLE 
RQRE20	EQU	*
	ST	A2,DWTIPC,A6 	STORE AS FIRST IN QUEUE 
	ADK	A4,6 
	CF	A15,DC:MIN	MOVE DATA TO USER BUFFER 
RQRE40	EQU	*
	ABL	TDISP	GO TO DISPATCHER 
	EJECT
* 
* 
*		COMPLETE APPLICATION REQUEST 
* 
RTREQ	EQU	* 
	LDKL	A1,R:REQ	RC = REQUEST ERROR 
	RF	RQRTN 
RTABRT	EQU	*
	LDKL	A1,R:ABRT	RC = ABORTED
	RF	RQRTN 
RTTIME	EQU	*
	LDK	A1,R:TIME	RC = TIME OUT
	RF	RQRTN 
RTSEQ	EQU	* 
	LDK	A1,R:SEQ	RC = SEQUENCE ERROR 
	RF	RQRTN 
RTLGTH	EQU	*
	LDK	A1,R:LGTH	RC = ILLEGAL LENGTH
	RF	RQRTN 
RTLOGC	EQU	*
	LDK	A1,R:LOGC	RC = LOGICAL CONNECTION ERROR
	RF	RQRTN 
RTPHYC	EQU	*
	LDK	A1,R:PHYC	RC = PHYSICAL CONNECTION ERROR 
	RF	RQRTN 
RTOK	EQU	*
	LDK	A1,0	RC = OK 
RQRTN	EQU	* 
	ABL	DISEND	COMPLETE REQUEST AND GO TO DISPATCHER 
	EJECT
* 
*	LOOKUP - LOOK UP KEY IN TABLE & BRANCH ON ADDRESS 
* 
*	CALL: 
*		CF     A15,LOOKUP          TABLE ADDRESS TO STACK
*		DATA   LAST,ADDRE          LAST ENTRY; ERROR ADDRESS 
*		DATA   KEY1,ADDR1          KEY (A2); ADDRESS FOR BRANCH
*		 "       "    "
*	LAST	DATA   KEYN,ADDRN
* 
*	ENTRY: A2 = KEY VALUE 
*	EXIT: A3 & A4 DESTROYED 
* 
LOOKUP	EQU	*
	LDR*	A3,A15	POINT TO NEXT INSTRUCTION ADDRESS IN STACK 
	LDR*	A3,A15	GET CONTENTS = TABLE ADDRESS 
	LDR*	A4,A3	GET LAST LEGAL ADDRESS
	LD	A1,2,A3	ERROR ADDRESS 
* 
LOOK50	EQU	*	LOOP ENTRY 
	ADK	A3,4	GET NEXT TABLE ENTRY ADDRESS
	CWR	A3,A4	PAST THE END?
	RF(G)	LOOK90	YES = NOT FOUND 
	CWR*	A2,A3	KEY = VALUE IN TABLE? 
	RB(NE)	LOOK50	NO - CHECK NEXT ENTRY
	ABI	2,A3	BRANCH TO TABLE ADDRESS 
*		KEY NOT FOUND
LOOK90	EQU	*
	LDR	P,A1	GO TO ERROR ADDRESS 
	EJECT
* 
* 
* 
*	REQUEST TIMER HANDLING PART 
* 
* 
* 
*	RECEIVE TIMER=TIMERR
* 
TIMERE	EQU	*
	LDR	A1,A6
	LD	A2,DWTRTV,A6	GET TIMEOUT VALUE
	RF(N)	TIMRTN	NO TIMING 
	RF(Z)	ITOUTR	TIMER=0 => IMMEDIATE TIMEOUT
	ST	A2,TIMERR 
	CF	A15,SETIME
	DATA	TOUTRE
TIMERR	DATA	0 
	ST	A4,DWTRTP,A6	STORE TIMER POINTER
TIMRTN	EQU	*
	ABL	RTNA15 
* 
*	TIMEOUT READ TIMER
* 
ITOUTR	EQU	*
	ADKL	A15,4 
	RF	TIMOUT
TOUTRE	EQU	*
	LDR	A6,A1	FETCH DWT
	CM	DWTRTP,A6 
	RF	TIMOUT	COMPLETE REQUEST RC=TIMEOUT
* 
* 
*		 RETURN FROM TIMER HANDLING
* 
	EJECT
* 
*	SEND TIMER=TIMWR
* 
TIMEWR	LDR	A1,A6
	LD	A2,DWTRTV,A6	GET TIMEOUT VALUE
	RB(N)	TIMRTN	NO TIMING 
	RB(Z)	ITOUTR	TIMER=0 => IMMEDIATE TIMEOUT
	ST	A2,TIMWR
	CF	A15,SETIME
	DATA	TOUTWR
TIMWR	DATA	0
	ST	A4,DWTRTP,A6
	RB	TIMRTN
* 
*	TIMEOUT WRITE TIMER 
* 
TOUTWR	EQU	*
	LDR	A6,A1	FETCH DWT
	CM	DWTRTP,A6 
	CF	A15,REMOVW	REMOVE FROM WRITE QUEUE
* 
* 
*	THIS INSTRUCTION DOES NOT BELONG
*	TO THE STANDARD INTERFACE 
	LD	A2,FDWTUT 
	CWR	A2,A6
	RF(NE)	TIMOUT	THIS DWT IS NOT WRITING
	CM	XACK	INDICATE 'ACK NOT EXPECTED'
	CM	FDWTUT
TIMOUT	EQU	*
	ABL	RTTIME	COMPLETE REQUEST RC=TIMEOUT 
	EJECT
* 
* 
*	STOP REQUEST TIMING 
* 
*	REMAINING TIME IS RETURNED IN A2
* 
* 
CTIME	EQU	* 
	LD	A2,DWTRTP,A6	GET TIMER POINTER
	RF(Z)	CTIM10	NOT RUNNING 
	IFT	REMTIM=1		=9 
	LDR*	A2,A2		=9 
	NGR	A2,A2	GET REMAINING TIME	=9
	XIF			=9 
	CM*	DWTRTP,A6	KILL TIMER	=9
	CM	DWTRTP,A6 
				=3
CTIM10	EQU	*
	ABL	RTNA15 
	EJECT
* 
*	GET RECEIVE BUFFER
* 
*	CALLING SEQUENCE: CF A15,GRBUF
*	A4=0 IF NO BUFFER IS FREE 
*	ELSE A4 CONTAINS BUFFER ADDRESS 
*	A2 AND A3 ARE DESTROYED 
* 
* 
GRBUF	LDKL	A2,DCRBUF	RECEIVE BUFFERS
	INH
	LDR*	A4,A2 
	RF(Z)	GBUF10	NO BUFFER FREE
	LDR*	A3,A4	REMOVE BUFFER FROM FREE CHAIN 
	STR	A3,A2
GBUF10	EQU	*
	ABL	RTNA15 
	EJECT
* 
* 
*	RELEASE RECEIVE BUFFER
* 
*	A4 CONTAINS BUFFER ADDRESS
*	CALLING SEQUENCE: CF A15,RRBUF
*	A2 AND A3 ARE DESTROYED 
* 
* 
RRBUF	LDKL	A2,DCRBUF	RECEIVE BUFFERS
	INH
RBUF10	EQU	*
	LDR*	A3,A2 
	RF(Z)	RBUF20 
	LDR	A2,A3
	RB	RBUF10
RBUF20	EQU	*
	STR	A4,A2
	CMR	A4 
	RB	GBUF10	RETURN TO CALLER 
	EJECT
* 
*	RELEASE ALL RECEIVE BUFFERS QUEUED ON A DWT 
* 
*	A6 - DWT ADDR 
*	A1 AND A4 ARE DESTROYED 
*	CALLING SEQUENCE: CF    A15,RELBUF
* 
* 
RELBUF	EQU	*
	LDK	A1,DWTIPC	SET BUFFER QUEUE DISP. 
	ADR	A1,A6
RLBU10	EQU	*
	LDR*	A4,A1	NEXT IN BUFFER QUEUE
	RB(Z)	GBUF10 
	LDR*	A2,A4	REMOVE FROM QUEUE 
	STR	A2,A1	.
	CF	A15,RRBUF	RELEASE BUFFER
	RB	RLBU10
	EJECT
* 
* 
*	INSERT DWT IN SEND REQUEST QUEUE
* 
*	A2,A3,A4 DESTROYED
*	A6=DWT
* 
INSWQ	LDKL	A2,DCWRQ	GET QUEUE ANCHOR
	LDK	A4,DWTOPN
INSWQ2	LDR*	A3,A2 
	RF(Z)	INSWQ3	END OF QUEUE FOUND
	LDR	A2,A3
	RB	INSWQ2
INSWQ3	ADR	A4,A6
	STR	A4,A2	INSERT IN QUEUE
	CMR	A4	INDICATE END OF QUEUE 
	RB	GBUF10	RETURN 
	EJECT
* 
* 
*	REMOVE DWT FROM SEND REQUEST QUEUE
* 
*	A2,A3,A4 DESTROYED
*	A6=DWT
* 
REMOVW	LDKL	A2,DCWRQ	GET QUEUE ANCHOR 
	LDK	A4,DWTOPN	GET DWT-LINK TO BE REMOVED 
REM06	EQU	* 
	ADR	A4,A6	 
REM10	LDR*	A3,A2
	RB(Z)	GBUF10	NOT ON QUEUE: RETURN
	CWR	A3,A4
	RF(E)	REM15
	LDR	A2,A3	GET NEXT 
	RB	REM10 
REM15	LDR*	A3,A4	REMOVE 
	STR	A3,A2
	RB	GBUF10	RETURN 
	EJECT
* 
* 
*	INSERT DWT IN STATUS QUEUE
* 
	IFF	STARVI=0 
*	A2,A3,A4 DESTROYED
*	A6=DWT
* 
INSSQ	LDKL	A2,DCSTQ	GET QUEUE ANCHOR
	LDK	A4,DWTOPE
	RB	INSWQ2
* 
* 
*	REMOVE DWT FROM STATUS QUEUE
* 
*	A2,A3,A4 DESTROYED
*	A6=DWT
* 
REMOVS	LDKL	A2,DCSTQ	GET QUEUE ANCHOR 
	LDK	A4,DWTOPE
	RB	REM06 
	XIF
	EJECT
* 
* 
*	QUEUE ALLOCATED RECEIVE BUFFER
* 
*	A4=BUFFER ADDR
*	A2,A3 DESTROYED 
* 
QRBUF	EQU	* 
	SUK	A4,6 
	LDK	A2,DWTIPC	SET BUFFER QUEUE DISP. 
	ADR	A2,A6
QR100	EQU	* 
	LDR*	A3,A2 
	RF(Z)	QR200	END OF QUEUE FOUND 
	LDR	A2,A3
	RB	QR100 
QR200	STR	A4,A2	INSERT INTO QUEUE 
	CMR	A4	INDICATE END OF QUEUE 
	RTN	A5 
	EJECT
* 
* 
*	STORE REGISTER A3-A8
*	CALLING SEQUENSE: CF A15,STREG
* 
STREG	ST	A3,LCA3
	ST	A4,LCA4 
	ST	A5,LCA5 
	ST	A6,LCA6 
	ST	A7,LCA7 
	ST	A8,LCA8 
	RF	RTNA15	RETURN 
* 
* 
*	RESTORE 
*	CALLING SEQUENCE: CF A15,LDREG
* 
LDREG	LDKL	A3,0 
LCA3	EQU	*-2
	LDKL	A4,0
LCA4	EQU	*-2
	LDKL	A5,0
LCA5	EQU	*-2
	LDKL	A6,0
LCA6	EQU	*-2
	LDKL	A7,0
LCA7	EQU	*-2
	LDKL	A8,0
LCA8	EQU	*-2
* 
* 
*		RETURN VIA REGISTER 15 
* 
RTNA15	EQU	*
	ADKL	A15,4 
	ABR*	A15 
	EJECT
* 
*	POLL TIME OUT 
* 
PTOUT	LDKL	A5,STB	LOAD A5 STACK BASE
	LDR	A6,A1	RELOAD DWT ADDRESS 
	LDKL	A7,DTETAB 
	CM	DTEDLS,A7 
	IFT	STTSTS=1 
* 
* 
*		COUNT POLL TIME OUT
* 
	LDK	A1,CSSXC3
	CF	A15,DCSUPS
	XIF
	CF	A15,SPOTIM	START POLL TIMER 
	ABL	TDISP
* 
*	RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED
* 
CPTIM	EQU	* 
	LDK	A2,1	INDICATE
	ST	A2,DTEDLS,A7	DATA LINK UP 
	LDKL	A2,-TIMPOL
	ST*	A2,DCTPGP	RESTART TIMER
	RTN	A5 
* 
*	START POLL TIMER
* 
SPOTIM	EQU	*
	LDR	A1,A6	LOAD DWT ADDRESS AS PARAMETER
	CF	A15,SETIME	START TIMER
	DATA	PTOUT,TIMPOL
	ST	A4,DCTPGP	STORE TIMER POINTER 
	RB	RTNA15	RETURN 
	EJECT
* 
*	START PROCEDURE TIMER 
* 
SPTIM	EQU	* 
	LDR	A1,A6	LOAD DWT AS PARAMETER
	CF	A15,SETIME
	DATA	PRTOUT,TIMPRO 
	ST	A4,DCTPP	SAVE TIMER POINTER 
	RTN	A5 
* 
*	PROCEDURE TIMEOUT 
* 
PRTOUT	CM	DCTPP 
	LDR	A6,A1	RELOAD A6
	LDKL	A5,STB	LOAD STACK BASE
	LDKL	A7,DTETAB 
	IFT	STTSTS=1 
* 
* 
*		COUNT PROCEDURE TIME OUT 
* 
	LDK	A1,CSSXC2
	CF	A15,DCSUPS
	XIF
	CF	A5,CHALTI	HALT INPUT IF OPEN	SALCUZ 
	LD	A1,XACK 
	RF(Z)	PRT10	ACK NOT EXPECTED 
	CF	A5,TRENQ	SEND ENQ 
	CF	A5,SPTIM	START PROCEDURE TIMER
PRT10	ABL	BRM 
	EJECT
* 
*	STOP PROCEDURE TIMER
* 
HPTIM	LD	A1,DCTPP	GET TIMER POINTER 
	RF(Z)	HPT10	NOT RUNNING
	CMR	A1	STOP TIMER
	CM	DCTPP 
HPT10	RTN	A5

* 
* 
*   WAIT 1 SEC. FOR MODEM CONNECTION
* 

DTE:ON	LDR	A1,A6	DWT ADDRESS
	CF	A15,SETIME	WAIT 1 SEC.
	DATA	DTE:10,10 
				=1
	LDKL	A5,STB		=1
	CF	A5,CSYNCI	CONNECT MODEM	=1
	CF	A5,CHALTI	NO INTERRUPTS ALLOWED	=1
	ABL	TDISP	=1 


* 
* 
*   MODEM-CONNECT TIMEOUT 
* 

DTE:10	LDR	A6,A1	DWT ADDRESS
	LDKL	A7,DTETAB 
	IM	DTESTA,A7	SET OPEN STATUS	=1
	LDKL	A5,STB		=1
	CF	A5,CSYNCI	PUT CU IN ACTIVE MODE	=1
	CF	A5,CHALTI	HALT I/P DEVICE TO GET MODEM STATUS	=1
	IM	DTEPLS,A7	PRESET PHYSICAL STATUS = OK	=1
	ANK	A2,1	MODEM OK ?	=1 
	RF(Z)	DTE:20	YES	=1
	CM	DTEPLS,A7	INDICATE PHYSICAL ERROR	=1
DTE:20	EQU	*		=1
	LDR	A1,A2	SET RETURN CODE	=1 
	CF	A15,TENDIO	COMPLETE THE REQUEST	=1
	CF	A15,SPOTIM	START POLL TIMER	=6
	ABL	BRM	START I/P	=1 
	EJECT
	IFT	MESPAS=1 
* 
* 
*		GET DWT ADDRESS
* 
MESDWT	EQU	*
	CWR	A6,A7	IS IT DTETAB-ADDRESS ? 
	RF(E)	MES200	YES 
	LD	A2,DTEDDT,A7	GET ADDR TO DDT
	CWR	A6,A2	IS IT DDT-ADDR 
	RF(E)	MES200	YES 
	LD	A2,DWTST,A6	ANY REQUEST ? 
	RF(N)	MESD50	NO
	LD	A2,DWTOR,A6	ANY MESSAGE ORDER ? 
	ANK	A2,/FF 
	RF(Z)	MES200	YES 
	SUK	A2,RECEIVE	A RECEIVE ORDER ? 
	RF(Z)	MES200	YES 
MESD50	EQU	*
	LD	A2,DTEDDT,A7	IS THERE A DDT CONNECTED ? 
	RF(Z)	MES100	NO
	LDR	A6,A2	GET DDT-ADDR 
	RF	MES200
MES100	EQU	*
	LDR	A6,A7	GET DTETAB-ADDR
MES200	EQU	*
	ABL	RTNA15	RETURN VIA A15
	XIF
	EJECT
* 
* 
*	BASIC RECEIVE MODE
* 
*	ENTERED EVERY TIME A MESSAGE
*	IS EXPECTED FROM THE MASTER SIDE
* 
* 
BRM	EQU	* 
	LDKL	A5,STB	LOAD STACKBASE 
	CM	SYNSW	CLEAR SYN-SWITCH
	CM	TPM	CLEAR TRANSPARENT TEXT
	CF	A5,CSYNCI	START INPUT WITH SYNC DEF 
* 
* 
* 
	CF	A5,READP	READ CHARACTER 
	RF(NZ)	BRM120	PARITY ERROR 
* 
* 
*		CHECK IF IT IS A CONTROL CHARACTER 
* 
	LDR	A1,A2
	CF	A15,LOOKUP	BRANCH ON CODES, TABLE ADDRESS TO STACK
	DATA	BRM100,BRM200	LAST ENTRY,POLL OR SELECT SEQUENCE
	DATA	STX,STX100	STX RECEIVED 
	DATA	EOT,EOT100	EOT RECEIVED 
	DATA	ENQ,ENQ100	ENQ RECEIVED 
	DATA	DLE,DLE100	DLE RECEIVED 
BRM100	DATA	NAK,NAK100	NAK RECEIVED 
	EJECT
* 
* 
*		THROUGHPUT ERROR 
* 
BRM110	EQU	*
	CM	XSTA	INDICATE "INVALID MESSAGE" 
	LDKL	A5,STB	LOAD STACKBASE TO A5 
	CF	A5,CSYNCI	START INPUT WITH SYNC DEF 
* 
* 
*		WAIT FOR MARK HOLD TO RESYNC.
* 
BRM120	EQU	*
	CF	A5,READ	READ CHARACTER
	LD	A1,DCSTCU	ANY STATUS FROM CONTROL UNIT ?
	RF(NZ)	BRM130	YES
	ANK	A2,/7F 
	SUK	A2,/7F 
	RB(NZ)	BRM120	NO 
BRM130	EQU	*
	CF	A5,CHALTI	HALT INPUT
	RB	BRM 
	EJECT
* 
* 
*		CHECK IF IT IS A POLL OR A SELECT SEQUENCE 
* 
BRM200	EQU	*
	IFT	MSV1=0 
	LDR	A4,A2
	CF	A5,READP	READ CHARACTER 
	CWR	A2,A4
	RB(NE)	BRM120	INVALID SEQUENCE 
	XIF
	LDK	A3,0 
	CC	A2,1,A7	IS IT A POLL ?
	RF(E)	BRM210	POLLING 
	LDK	A3,2 
	CCR	A2,A7	IS IT A SELECT ? 
	RB(NE)	BRM120	INVALID SEQUENCE 
BRM210	EQU	*
	CF	A5,READP	READ 1:ST STA
	RB(NZ)	BRM	PARITY ERROR
	LDR	A4,A2
	IFT	MSV1=0 
	CF	A5,READP	READ 2:ND STA
	CWR	A2,A4
	RB(NE)	BRM120	INVALID SEQUENCE 
	XIF
	CF	A5,READP	READ ENQ 
	SUK	A2,ENQ 
	RB(NE)	BRM120	INVALID SEQUENCE 
* 
* 
*		YES SEQUENCE OK - HALT INPUT 
* 
	CF	A5,CHALTI 
	EJECT
* 
* 
*		CHECK IF IT IS A SELECT OR A POLL ADDRESS
* 
	LDK	A1,1 
	ST	A1,CACK	LOAD ACK-COUNTER
	LDR	A2,A4
	SUK	A3,2 
	RF(Z)	SELECT	SELECTING 
* 
* 
*		POLLING
* 
	CWK	A4,GP
	RF(E)	GPOLL	GENERAL POLL 
	CF	A5,FINTEP	CHECK IF STA PRESENT (POLL ADDRESS) 
				=10 
* 
	EJECT
* 
* 
*	SPECIFIC POLL HAS BEEN RECEIVED 
* 
* 
	IFF	STARVI+SPECP=0 
	LD	A1,XACK	
	RF(NZ)	POL100	ACK EXPECTED 
	LDR	A6,A3	LOAD DWT ADDRESS IN A6	=10 
	RF(Z)	POL150	REQ. DEV. NOT CONNECTED, SEND EOT	=10 
	CF	A5,CPTIM	CHECK POLLTIMER
	IFT	STARVI=1 
	LD	A1,DWTST,A6	GET STATUS
	ANK	A1,7 
	RF(NZ)	POL120	PENDING STATUS 
	XIF
	IFF	STARVI+SPECP=0 
	LD	A1,DWTST,A6 
	RF(N)	POL150	NO REQUEST
	LD	A1,DWTOR,A6	GET ORDER 
	ANK	A1,/FF	MASK AWAY OPTION PART 
	SUK	A1,6 
	RF(Z)	POL170	WRITE REQUEST 
	XIF
	RF	POL150	SEND EOT 
	EJECT
* 
* 
*	GENERAL POLL HAS BEEN RECEIVED
* 
* 
GPOLL	EQU	* 
	LD	A1,XACK	
	RF(Z)	POL110	ACK NOT EXPECTED
				=11 
POL100	EQU	*
	CF	A5,HPTIM	KILL PROCEDURE TIMER	=11 
	CF	A5,TRENQ	SEND ENQ 
	CF	A5,SPTIM	START PROCEDURE TIMER
	ABL	BRM	WAIT FOR RESPONSE
POL110	EQU	*	 
	CF	A5,CPTIM	CHECK POLL TIMER 
	IFF	STARVI=0 
	LD	A6,DCSTQ	 
	RF(Z)	POL140	NO STATUS TO BE SENT
	SUK	A6,DWTOPE	GET DWT ADDRESS
POL120	EQU	*
	CF	A5,TRSTA	SEND STATUS
	CF	A5,SPTIM	START PROCEDURE TIMER
	IM	XACK	SET 'ACK EXPECTED' 
	XIF
	IFF	STARVI=1 
	RF	POL140
	XIF
POL130	EQU	*
	ABL	BRM
POL140	EQU	*
	LD	A6,DCWRQ
	RF(NZ)	POL160	WRITE ON QUEUE 
POL150	EQU	*
	CF	A5,TREOT	SEND EOT 
	RB	POL130
POL160	EQU	*
	SUK	A6,DWTOPN	GET DWT ADDRESS
POL170	EQU	*
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RF(NZ)	POL180
	CF	A15,REMOVW
	RB	POL150
POL180	EQU	*
	ST	A8,FECB	SAVE ECB ADDRESS
	ST	A6,FDWTUT	SAVE A6 
	IFF	MMUPAG=0 
	LDKL	A4,MMUBUF	MMU WORK BUFFER 
	ST	A4,ECBBA,A8 
	CF	A15,DC:MOT	MOVE DATA FROM USER BUFFER 
	XIF
	LD	A4,ECBBA,A8	GET BUFFER ADDRESS
	LD	A3,ECBRL,A8	GET LENGTH
POL190	EQU	*
	ST	A4,FECBBA	SAVE BUFFER ADDRESS 
	SUK	A3,2	SKIP FIRST WORD OF BUFFER 
	ST	A3,FECBRL	SAVE LENGTH 
	CM	FBAX	RESET BUFFER INDEX 
POL200	EQU	*
	CM	XETX	RESET 'ETX SENT' 
	CM	XSTA
	CF	A5,TRTEXT	SEND ONE BLOCK
	CF	A5,SPTIM	START PROCEDURE TIMER
	IM	XACK	SET 'ACK EXPECTED' 
	RB	POL130
	EJECT
* 
* 
*		SELECT HAS BEEN RECEIVED 
* 
SELECT	EQU	*
	CF	A5,FINTES 
	LDR	A6,A3	GET DWT-ADDR 
	RF(NZ)	SEL100
	IFT	MESPAS=1 
	LD	A6,DTEDDT,A7	GET DDT-ADDR 
	RF(NZ)	SEL100
	XIF
	LDKL	A6,DTETAB	DTETAB ADRR 
SEL100	EQU	*
	LD	A1,XACK	
	RB(NZ)	POL100	ERROR. ACK EXPECTED
	IFF	STARVI=0 
	LD	A1,DWTST,A6	GET STATUS
	LDR	A3,A1
	ANK	A1,1 
	RF(Z)	SEL120	NO PENDING STATUS 
	CF	A5,TRRVI	SEND RVI 
	XIF
	IFF	STARVI=1 
	RF	SEL120
	XIF
SEL110	EQU	*
	ABL	BRM
SEL120	EQU	*
				=2
	IFT	STARVI=1		=2 
	ANK	A3,/A	WACK SENT OR DB ?	=2 
	RF(NZ)	SEL140	YES	=2 
	XIF
				=2
	LD	A1,DCRBUF 
	RF(NZ)	SEL150	BUFFER AVAILABLE 
	IFT	STTSTS=1 
	LDK	A1,CSSRBY	BUFFER NOT AVAILABLE 
	CF	A15,DCSUPS	INCREMENT COUNTER
	XIF
SEL140	EQU	*
				=2
	IFF	NOWACK=1		=2 
	CF	A5,TRWACK	SEND WACK 
	XIF
	RB	SEL110
SEL150	EQU	*
	CF	A5,PRREC	PREPARE FOR TEXT RECEPTION 
	ADK	A1,6 
	ST	A1,FBLST
	CF	A5,TRACK	SEND ACK,0 
	RB	SEL110
	EJECT
* 
* 
*	EOT HAS BEEN RECEIVED 
* 
* 
EOT100	EQU	*
	CF	A5,HPTIM	STOP PROCEDURE TIMER 
	IFT	RCOM=1 
	CM	XRB	RESET READ BUFFER 
	XIF
	LD	A1,XACK 
	RF(Z)	EOT120	ACK IS NOT EXPECTED 
	LD	A6,FDWTUT	GET WRITING DWT 
	RF(Z)	EOT110	NO ONE WRITING
	LDK	A1,2	SET RC=2
	CF	A5,CWRITE	COMPLETE WRITE REQUEST
EOT110	EQU	*
	CM	XACK	RESET 'ACK EXPECTED' 
EOT120	EQU	*
	CM	XSEL	RESET 'SELECTED' 
	ABL	BRM
	EJECT
* 
* 
*	STX HAS BEEN RECEIVED 
* 
* 
STX100	EQU	*
	CF	A5,HPTIM
	IFT	TPMODE=1 
	ABL	BRM120	INVALID SEQENCE 
STX110	EQU	*
	XIF
	LD	A1,XSEL 
	RF(Z)	STX150	NOT SELECTED
	LD	A1,DCRBUF 
	IFF	STTSTS=1 
	ABL(Z)	BRM120	NO BUFFER AVAILABLE
	XIF
	IFT	STTSTS=1 
	RF(NZ)	STX120
* 
*	NO BUFFER AVAILABLE 
* 
	LDK	A1,CSSRBY
	CF	A15,DCSUPS	INCREMENT COUNTER
	ABL	BRM120 
	XIF
STX120	EQU	*
	CF	A5,RDMESS	READ MESSAGE
	IFT	STTSTS=1 
* 
* 
*		COUNT MESSAGES RECEIVED
* 
	LDK	A1,CSSRBL
	CF	A15,DCSUPS
	XIF
	SUK	A3,1 
	RF(NZ)	STX170	MESSAGE OK 
STX130	EQU	*
	CM	XSTA	INDICATE 'INVALID MESSAGE' 
STX140	EQU	*
	CF	A5,TRNAK	SEND NAK 
	ABL	BRM
STX150	EQU	*
	IFT	RCOM=1 
	LD	A1,XACK 
	RF(Z)	STX160	ACK IS NOT EXPECTED 
	LD	A1,DCRBUF 
	RF(Z)	STX160	NO BUFFER AVAILABLE 
	LD	A6,FDWTUT	GET WRITING DWT 
	ABL(Z)	BRM120	NO ONE WRITING. RESYNCHRONIZE
	LDR*	A2,A6	GET STA 
	CF	A5,PRREC	PREPARE FOR TEXT RECEPTION 
	LDK	A1,0	SET RC=0
	CF	A5,CWRITE	COMPLETE WRITE REQUEST
	CM	CACK	PRESET ACK-1 
	RB	STX120	READ THE MESSAGE 
	XIF
STX160	CF	A5,READ	READ ONE CHARACTER
	CWK	A2,ENQPAR	IS IT ENQ ?
	RB(Z)	STX140	FORWARD ABORT SEQUENCE
	RB	EOT120
STX170	EQU	*
	IM	XSTA	INDICATE MESSAGE OK
	LD	A4,DCRBUF	GET BUFFER ADDRESS
	ADK	A4,6 
	CW	A4,FBLST
	RF(NE)	STX180	NOT FIRST BLOCK
	IFF	RCOM=0 
	LDK	A1,ESC 
	CCR	A1,A4
	RB(NE)	STX130	ESC NOT FOUND
	LC	A1,1,A4	GET COMMAND CODE
	SUK	A1,RDBCOM
	RF(Z)	RDBUF	READ MODIFIED RECEIVED 
	SUK	A1,RDMCOM-RDBCOM 
	RF(Z)	RDMOD	READ BUFFER RECEIVED 
	XIF
STX180	EQU	*
	SUK	A3,1 
	RF(Z)	STX280	SEND ACK
	LD	A6,FDWTIN	GET INPUT DWT 
	IFT	MESPAS=1 
	CF	A15,MESDWT
	XIF
	CWR	A7,A6	IS IT DTETAB ? 
	RF(E)	STX280	SEND ACK
	CM	FBAX
	CF	A15,GRBUF	ALLOCATE RECEIVE BUFFER 
	ADK	A4,6 
	IFT	RCOM=1 
	LDR*	A2,A6	GET ADDRESS 
	LC	A2,TEBCDIC,A2	TRANSLATE IT TO EBCDIC
	LD	A1,DCRBUF	IS THERE A BUFFER 
	RF(Z)	STX200	NO
	ST	A2,+4,A1	STORE THE ADDR 
STX200	EQU	*
	XIF
	LD	A2,DWTST,A6	ANY REQUEST ? 
	RF(N)	STX220	NO
	LD	A2,DWTOR,A6	GET ORDER 
	IFT	EM3270=1 
	RF(Z)	STX210	ANY MESSAGE ORDER ? 
	XIF
	CWK	A2,RECEIVE	A RECEIVE ? 
	RF(NE)	STX220	NO 
STX210	EQU	*
				=12 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	LD	A3,-4,A4	GET LENGTH 
	ST	A3,ECBEL,A8	STORE EFFECTIVE LENGTH
	LD	A1,DWTLAD,A6	SYMBOLIC DTE ADDRESS	=12 
	LD	A2,4,A4	NETWORK SUB-ADDRESS	=12 
	CF	A15,GETSSA	GET SYMBOLIC SUB ADDRESS	=12 
	ST	A1,ECBCW2,A8	AND SAVE IT IN ECB	=12 
	LDK	A1,0	RESET RETURN CODE	=12 
	CF	A15,CTIME	STOP REQUEST TIMING 
	IFT	REMTIM=1		=9 
	ST	A2,ECBCW1,A8	STORE REMAINING TIME 
	XIF			=9 
STX220	EQU	*
	IFT	STARVI=1 
	LC	A2,+2,A4	GET WCC/CCC
	ANK	A2,/FF 
	LC	A2,TEBCDIC,A2 
	ANK	A2,8 
	RF(Z)	STX230 
	LD	A2,DWTST,A6 
	ORK	A2,/A
	ST	A2,DWTST,A6 
STX230	EQU	*
	XIF
	LD	A2,DWTST,A6	ANY REQUEST ? 
	RF(NN)	STX240	YES
	CF	A5,QRBUF	QUEUE BUFFER 
	RF	STX270
STX240	EQU	*
	LD	A2,DWTOR,A6	GET ORDER 
	CWK	A2,RECEIVE	RECEIVE ORDER ? 
	RF(NE)	STX260	NO 
				=12 
	LDK	A1,0	RESET RETURN CODE 
	LD	A2,DWTIPC,A6	ANY QUEUED MESSAGES ?
	RF(Z)	STX250	NO
	ORKL	A1,R:DATA	YES 
STX250	EQU	*
	CF	A15,DC:MIN	MOVE TO USER BUFFER
	RF	STX270
STX260	EQU	*
	CF	A5,QRBUF	QUEUE BUFFER 
	IFT	EM3270=1 
	LD	A2,DWTOR,A6	GET ORDER 
	RF(NZ)	STX270	NOT ANY MESSAGE ORDER
	CF	A15,TENDIO	COMPLETE REQUEST 
	XIF
STX270	EQU	*
	IFT	STARVI=1 
	LD	A1,DWTST,A6	GET STATUS
	ANK	A1,8	MASK A1 
	RF(Z)	STX280 
	CF	A5,TRWACK	SEN WACK
	RF	STX290
	XIF
STX280	EQU	*
	CF	A5,TRACK	SEND ACK 
STX290	EQU	*
	ABL	BRM
	EJECT
* 
* 
*	READ MODIFIED OR READ BUFFER RECEIVED 
* 
* 
	IFF	RCOM=0 
RDBUF	EQU	*	READ BUFFER COMMAND 
RDMOD	EQU	* 
	CM	XSEL	RESET SELECT EXPECTED
	LD	A6,FDWTIN	DWT-ADDRESS FOR ADDRESSED TERMINAL
	LD	A4,DWTBUF,A6	BUFFER ADDRESS 
	SUK	A4,2	SDJUST BUFFER ADDRESS 
	LDKL	A3,1922	REQUESTED LENGTH
	IM	XRB	SET READ BUFFER SWITCH
	CM	FDWTUT
	LDK	A1,1 
	XRS	A1,CACK	INCREMENT ACK COUNTER
	ABL	POL190 
	XIF
	EJECT
* 
* 
*	ENQ HAS BEEN RECEIVED 
* 
* 
ENQ100	EQU	*
	CF	A5,HPTIM	STOP PROCEDURE TIMER 
	LD	A1,XACK 
	RF(NZ)	NAK110	RETRANSMISSION OF MESSAGE
	OR	A1,XSEL 
	RF(Z)	ENQ110	IN CONTROL STATE
	CF	A5,TRREP	REPEAT LAST CONTROL SEQUENCE 
ENQ110	EQU	*
	ABL	BRM
	EJECT
* 
* 
*	NAK HAS BEEN RECEIVED 
* 
* 
NAK100	EQU	*
	CF	A5,HPTIM	STOP PROCEDURE TIMER 
	LD	A1,XACK 
	RF(NZ)	NAK110	ACK EXPECTED 
	OR	A1,XSEL 
	RB(Z)	ENQ110	IN CONTROL STATE
	RF	DLE160
NAK110	EQU	*
	LD	A6,FDWTUT	GET WRITING DWT 
	IFF	STARVI=0 
	LD	A1,XSTA 
	ABL(NZ)	POL120	STATUS HAS BEEN TRANSMITTED 
	XIF
	LD	A1,FBLST	GET START POINT FOR LAST BLOCK 
	SU	A1,FECBBA	COMPUTE BUFFER INDEX
	ST	A1,FBAX 
	IFT	STTSTS=1 
* 
* 
*		COUNT MESSAGES RETRANSMITTED 
* 
	LDK	A1,CSSTRT
	CF	A15,DCSUPS
	XIF
	ABL	POL200 
	EJECT
* 
* 
*	DLE HAS BEEN RECEIVED 
* 
* 
DLE100	EQU	*
	CF	A5,HPTIM	STOP PROCEDURE TIMER 
	LD	A1,XACK 
	RF(NZ)	DLE110
	IFT	TPMODE=1 
	CF	A5,READ 
	CWK	A2,STX 
	ABL(Z)	STX110	YES - TRANSPARENT TEXT 
	XIF
	RB	ENQ110
DLE110	EQU	*
	CF	A5,READ	READ SECOND CHARACTER 
	CWK	A2,ACKPAR	IS IT ACK 0 ?
	RF(NE)	DLE130
* 
*	ACK , 0 RECEIVED
* 
	LD	A1,CACK	GET ACKCOUNTER
	RF(Z)	DLE140	ACK,0 EXPECTED
DLE120	EQU	*
	CF	A5,TRENQ	SEND ENQ 
	CF	A5,SPTIM	START PROCEDURE TIMER
	RB	ENQ110
DLE130	EQU	*
	CWK	A2,ACK1
	RF(NE)	DLE180
* 
*	ACK , 1 RECEIVED
* 
	LD	A1,CACK	GET ACK COUNTER 
	RB(Z)	DLE120	ACK,1 NOT EXPECTED
DLE140	EQU	*
	LD	A1,XETX 
	RF(Z)	DLE170	ETX NOT SENT
	EJECT
* 
*	ACK HAS BEEN RECEIVED TO AN ETX BLOCK 
* 
	LDK	A1,0	SET RC=0
DLE150	EQU	*
	IFF	STARVI=0 
	LD	A2,XSTA 
	RF(NZ)	DLE200	STATUS HAS BEEN TRANSMITTED
	XIF
	CF	A5,CWRITE	COMPLETE WRITE REQUEST
DLE160	EQU	*
	CF	A5,TREOT	SEND EOT 
	IFT	RCOM=1 
	CM	XRB	RESET READ BUFFER 
	XIF
	RB	ENQ110
DLE170	EQU	*
	LDK	A1,1 
	XRS	A1,CACK	INCREMENT ACK COUNTER
	ABL	POL200 
DLE180	EQU	*
	CWK	A2,RVIPAR	IS IT RVI ?
	RB(NE)	DLE120	INVALID DLE SEQUENCE 
	CM	XACK	RESET 'EXPECTING ACK'
	LD	A1,XETX 
	RF(NZ)	DLE190	ETX HAS BEEN SENT
	LDK	A1,2	SET RC=2
	RB	DLE150
DLE190	EQU	*
	LDK	A1,0	SET RC=0
	RB	DLE150
	EJECT
	IFF	STARVI=0 
* 
* 
*	STATUS HAS BEEN TRANSMITTED 
* 
* 
DLE200	EQU	*
	LD	A6,FDWTUT	GET DWT ADDRESS 
	CF	A15,REMOVS	REMOVE FROM STATUS QUEUE 
	CM	XSTA	CLEAR 'STATUS SENT'
	CM	XACK	CLEAR 'ACK EXPECTED' 
	LD	A1,DWTST,A6	GET STATUS
	ANK	A1,4 
	RB(Z)	DLE160	NOT DE
	LDKL	A1,/8000
	ANS	A1,DWTST,A6	CLEAR STATUS 
	RB	DLE160
	XIF
	EJECT
* 
*	FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2
* 
*	CALLING SEQUENCE: CF A5,FINTER(S) 
*	A2=SUBTERMINAL ADDRESS
*	A4 DESTROYED
*	A3#0: DWT TO FOUND TERMINAL 
* 
* NOTE:	FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES 
*	ENTRY:	FINTES - CHECK SELECT ADDRESS
*		FINTEP - CHECK SPECIFIC POLL ADDRESS 
* 
* 
* 
FINTES	EQU	*
	IFT	MSV1=1 
	LDK	A4,0 
	RF	FINT05
	XIF
FINTEP	EQU	*
	LDK	A4,1	RIGTH BYTE
FINT05	EQU	*
	LD	A3,DTEDWT,A7	GET FIRST DWT
FINT10	EQU	*
	RF(Z)	FINT20	END QUEUE 
	ADR	A3,A4
	CCR	A2,A3	THIS SUB-ADDRESS ? 
	RF(E)	FINT20	YES 
	SUR	A3,A4
	LD	A3,DWTCHN,A3	GET NEXT DWT 
	RB	FINT10
FINT20	EQU	*
	ANKL	A3,/FFFE
	RTN	A5 
	EJECT
* 
* 
*	PREPARE FOR TEXT RECEPTION
* 
* 
PRREC	EQU	* 
	IM	XSEL	SET 'SELECTED' 
	CM	FBAX	RESET BUFFER INDEX 
	IFT	CODE=1 
	LC	A2,TEBCDIC,A2	TRANSLATE STA TO EBCDIC 
	XIF
	ST	A2,+4,A1	SAVE STA IN BUFFER 
	IM	XSTA
	ST	A6,FDWTIN	STORE INPUT DWT 
	RTN	A5 
	EJECT
* 
* 
*	CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED
* 
*	A1 CONTAINS RETURN CODE 
* 
* 
CWRITE	LD	A6,FDWTUT 
	RF(Z)	CWR900	NO WRITE GOING ON 
	LD	A2,DWTST,A6 
	RF(N)	CWR900	NO REQUEST
	LD	A2,DWTOR,A6	GET ORDER 
	ANK	A2,/FF	MASK AWAY OPTION PART 
	SUK	A2,6 
	RF(NZ)	CWR900	NOT SEND REQUEST 
	LD	A2,DWTIPC,A6	ANY RECEIVED BUFFERS ON QUEU ? 
	RF(Z)	CWR110	NO
	ORKL	A1,R:DATA	ACCEPTED AND DATA AVAILABLE 
CWR110	EQU	*
	LD	A8,DWTECB,A6
	CF	A15,CTIME	STOP TIMER
	IFT	REMTIM=1		=9 
	ST	A2,ECBCW1,A8
	XIF			=9 
	CF	A15,TENDIO	COMPLETE REQUEST 
CWR150	EQU	*
	CF	A15,REMOVW	REMOVE FROM WRITE QUEUE
CWR900	EQU	*
	CM	XACK	RESET 'ACK EXPECTED' 
	CM	FDWTUT
	RTN	A5 
	EJECT
* 
* 
*	READ ONE TEXT BLOCK 
* 
*	ON EXIT A3 CONTAINS : 
*	0 : IF CORRECT ETX BLOCK RECEIVED 
*	1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW
*	2 : IF CORRECT ETB BLOCK RECEIVED 
* 
RDMESS	EQU	*
	LD	A4,DCRBUF	GET BUFFER ADDRESS
	ADK	A4,6	RESERVE HEADER
	LDK	A3,0 
	LD	A1,XSTA 
	RF(NZ)	RDM050	LAST INPUT WAS OK
	LD	A1,FBLST	COMPUTE NEW INDEX
	SUR	A1,A4
	ST	A1,FBAX 
RDM050	EQU	*
	AD	A4,FBAX	ADD BUFFER INDEX
	ST	A4,FBLST	REMEMBER START OF BLOCK
	CM	XSTA
	SUR	A8,A8	RESET LRC

	IFT	IBMCHR=1 
	IFF	TPMODE=1 
	LD	A1,FBAX 
	RF(NZ)	RDM100	NOT FIRST BLOCK
	CF	A5,READP
	RF(NZ)	RDM120	PARITY ERROR 
	CWK	A2,ESC 
	RF(NE)	RDM110
	CF	A5,READP	SKIP NEXT TWO CHARACTERS 
	CF	A5,READP
	XIF
	IFF	TPMODE=1 
RDM100	EQU	*
	CF	A5,READP	READ ONE CHARACTER 
	RF(NZ)	RDM120	PARITY ERROR 
RDM110	EQU	*
	XIF
	IFT	TPMODE=1 
	IM	TPM	INDICATE TRANSPARENT TEXT 
RDM100	CF	A5,READ 
	CWK	A2,DLE	CHECK IF DLE
	RF(NE)	RDM112	NO 
	CF	A5,READ	SKIP DLE AND READ NEXT CHARACTER
	CWK	A2,SYNEBC	CHECK IF SYN 
	RB(E)	RDM100	SKIP SYN
	CF	A5,CRCCAL	CALCULATE CRC 
	CWK	A2,DLE	CHECK IF 2:ND DLE 
	RF(E)	RDM115	YES - STORE DLE AS DATA 
	CWK	A2,ETX	CHECK IF ETX
	RF(E)	RDM130	YES 
	CWK	A2,ETBEBC	CHECK IF ETB 
	RF(E)	RDM160	YES 
	CWK	A2,ITB	CHECK IF ITB
	RF(E)	RDM175	YES 
	CWK	A2,ENQEBC	CHECK IF ENQ 
	RF(E)	RDM140	YES SEND NAK
* 
* 
*	GET END OF BLOCK
* 
RDM105	EQU	*
	CF	A5,READ 
	CWK	A2,DLE 
	RB(NE)	RDM105
	CF	A5,READ 
	CWK	A2,ETX 
	RF(E)	RDM110	YES - END OF BLOCK
	CWK	A2,ETBEBC
	RB(NE)	RDM105	NOT END OF BLOCK 
RDM110	EQU	*
	CM	TPM	OUT OF TRANSPARENT TEXT 
	CF	A5,RDCRC
	RF	RDM140	INDICATE INVALID MESSAGE 
RDM112	CF	A5,CRCCAL	CALCULATE CRC 
	XIF
	IFF	TPMODE=1 
	CWK	A2,ETX 
	RF(E)	RDM130	ETX RECEIVED
	CWK	A2,ETB 
	RF(E)	RDM160	ETB RECEIVED
	CWK	A2,ITB 
	RF(E)	RDM170	ITB RECEIVED
	CWK	A2,ENQ 
	RF(E)	RDM120	SKIP IF ENQ EMBEDDED IN MESSAGE 
	CWK	A2,/FF 
	RF(E)	RDM140	MARK HOLD RECEIVED
	IFT	CODE=0 
	IFT	BINTRM=1 
	LDR	A1,A2
	SUK	A1,DC1+3 
	RF(P)	RDM115	NOT DC1-DC3 
	ADK	A1,3 
	RF(N)	RDM115	NOT DC1-DC3 
	SLL	A1,6 
	SCR	A1,A4		=7
	CF	A5,READP	8-BIT CHAR GET NEXT PART 
	RF(NZ)	RDM120	PARITY ERROR 
	LCR	A1,A4		=7
	SUK	A2,/20	ASSEMBLE TO ONE CHARACTER 
	ORR	A2,A1		=7
	XIF
RDM115	EQU	*
	ADK	A3,0	ERROR DETECTED EARLIER ?
	RB(NZ)	RDM100	YES !!!
	SCR	A2,A4	STORE CHARACTER
	ADK	A4,1	INCREMENT POINTER 
	IM	FBAX	INCREMENT BUFFER INDEX 
	LD	A1,FBAX 
	CWK	A1,RBUFL+RBUFL 
	RB(NG)	RDM100	NOT OVERFLOW 
* 
*	BUFFER OVERFLOW 
* 
	LDK	A3,1	INDICATE BUFFER OVERFLOW
	IFT	STTSTS=1 
	LDK	A1,CSSRBO	BUFFER OVERFLOW
	CF	A15,DCSUPS	INCREMENT COUNTER
	XIF
	RB	RDM100
* 
*	PARITY ERROR DETECTED 
* 
RDM120	EQU	*
	IFT	STTSTS=1 
	LDK	A1,CSSRPE
	CF	A15,DCSUPS	INCREMENT COUNTER
	XIF
	LDK	A3,1	INDICATE INVALID MESSAGE
	SUK	A2,/7F 
	RF(Z)	RDM150	MARK HOLD RECEIVED
	RB	RDM100
* 
*	ETX RECEIVED
* 
RDM130	EQU	*
	LD	A1,DCRBUF	GET BUFFER ADDRESS
	LD	A2,FBAX	GET BUFFER INDEX
	ST	A2,+2,A1	STORE EFFECTIVE LENGTH IN HEADER 
	IFF	CODE=1 
	CF	A5,RDLRC
	RF(Z)	RDM150	LRC WAS OK
	XIF
	IFT	CODE=1 
	CF	A5,RDCRC	READ CRC AND CHECK IT
	RF(E)	RDM150	CRC WAS OK
	XIF
RDM140	EQU	*
	LDK	A3,1	INDICATE INVALID MESSAGE
RDM150	EQU	*
	CF	A5,CHALTI	HALT INPUT
	IFT	P6805=1
	IFT	CODE=0 
	ANK	A2,H:PARI
	RF(Z)	RDM155 
	LDK	A3,1	PARITY ERROR
RDM155	EQU	*
	XIF
	IFT	TPMODE=1 
	CWK	A3,1	ERROR DETECTED EARLIER ?
	RF(NE)	RDM158	NO 
	CM	TPM	OUT OF TRANSPARENT TEXT 
RDM158	EQU	*
	XIF
	RTN	A5 
* 
*	ETB RECEIVED
* 
RDM160	EQU	*
	LDR	A3,A3
	RB(NZ)	RDM130	ALREADY INVALID
	LDK	A3,2	INDICATE CORRECT ETB
	RB	RDM130
* 
*	ITB RECEIVED
* 
RDM170	EQU	*
	IFF	CODE=1 
	CF	A5,RDLRC
	RB(NZ)	RDM120	LRC WAS NOT OK 
	XIF
	IFT	CODE=1 
	CF	A5,RDCRC	READ CRC AND CHECK IT
	RB(NE)	RDM120	CRC WAS NOT OK 
	IFT	TPMODE=1 
RDM175	CM	TPM	OUT OF TRANSPARENT TEXT 
	CF	A5,RDCRC	READ AND CHECK CRC 
	IM	TPM 
	RB(NE)	RDM105	CRC WAS NOT OK 
RDM180	CF	A5,READ 
	CWK	A2,SYNEBC
	RB(E)	RDM180	SKIP SYN
	CWK	A2,DLE 
	RB(NE)	RDM105	ILLEGAL CHARACTER
	CF	A5,READ 
	CWK	A2,STX 
	RB(NE)	RDM105	ILLEGAL CHARACTER
	XIF
	RB	RDM100
	EJECT
* 
*	TRANSMIT ACK 0 OR 1 
* 
TRACK	LDK	A2,1
	LDK	A3,ACK1	PRELOAD ACK1 
	XRS	A2,CACK	INCREMENT ACK COUNTER
	RF(NZ)	TRDLE 
	LDK	A3,ACK0	LOAD ACK0
	RF	TRDLE 
* 
*	TRANSMIT WACK 
* 
TRWACK	LDK	A3,WACK	LOAD WACK
	RF	TRDLE 
* 
*	TRANSMIT RVI
* 
	IFF	STARVI=0 
TRRVI	LDK	A3,RVI	LOAD RVI 
	XIF
* 
*	TRANSMIT DLE
* 
TRDLE	LDK	A2,DLE	LOAD DLE 
	SC	A2,RESEND	PUT INSAVE AREA 
	SC	A3,RESEND+1	
	RF	TRREP 
	EJECT
* 
*	TRANSMIT NAK
* 
TRNAK	LDK	A3,NAK	LOAD NAK 
	RF	TREN10
* 
*	TRANSMIT EOT
* 
TREOT	LDK	A3,EOT	LOAD EOT 
	RF	TREN10
* 
*	TRANSMIT ENQ
* 
TRENQ	LDK	A3,ENQ	LOAD ENQ 
* 
TREN10	SC	A3,RESEND	PUT IN SAVE AREA
	LDK	A2,/FF 
	SC	A2,RESEND+1 
TRREP	CF	A5,TRSYNC	START OUTPUT 
	LC	A2,RESEND	GET FIRST CHARACTER 
	CF	A5,WRITEP	SEND IT 
	LC	A2,RESEND+1	GET NEXT CHARACTER
	CF	A5,WRITEP	SEND IT 
TRRE10	LDK	A2,/FF 
	CF	A5,WRIT05	SEND PAD
	LDK	A2,/FF 
	CF	A5,WRIT05 
	CF	A5,CHALTO	HALT OUTPUT 
	IFF	LOGG=0 
	CF	A5,LOGSST	LOG TRANSMITTER STATUS
	XIF
	RTN	A5 
	EJECT
* 
* 
*	TRANSMIT ONE TEXT BLOCK 
* 
* 
TRTEXT	EQU	*
	CF	A5,TRSYNC	START OUTPUT
	IFF	TPMODE=0 
	LDK	A2,DLE 
	CF	A5,WRIDLE	SEND DLE
	XIF
	LDK	A2,STX 
	CF	A5,WRITE	SEND STX 
	SUR	A8,A8	RESET LRC
	LD	A4,FECBBA	GET BUFFER ADDRESS
	AD	A4,FBAX	ADD BUFFER INDEX
	ST	A4,FBLST	REMEMBER START OF BLOCK
	ADK	A4,2	SKIP FIRST WORD OF BUFFER 
	LDK	A3,0	RESET CHARACTER COUNTER 
	LD	A1,FBAX	GET BUFFER INDEX
	RF(NZ)	TRT100	NOT FIRST BLOCK
	LDR*	A2,A7	NETWORK POLL ADDR 
	CF	A5,WRITEP	SEND TCA
	LD	A2,FDWTUT	GET DWT-ADDRESS 
	LDR*	A2,A2	GET NETWORK SUB-ADDRESS 
	CF	A5,WRITEP	SEND STA
	IFT	IBMCHR=1 
	IFF	RCOM=1 
	LDK	A2,/27	SEND ENTER AS AID 
	CF	A5,WRITEP 
	LDK	A2,/20	AND CURSOR ADDRESS
	CF	A5,WRITEP 
	LDK	A2,/20 
	CF	A5,WRITEP 
	XIF
	IFT	RCOM=1 

	LD	A1,XRB	READ BUFFER COMMAND ???
	RF(Z)	TRT070	NO!!

			******************** 
	LDK	A2,X'2D'	AID FOR DISPLAY 
	CF	A5,WRITEP	SEND AID

	LD*	A3,DWTCUR,A6	CURSOR ADDRESS
	CF	A5,LINCOL	SEND LINE AND COLUMN NUMBER 
	LDK	A3,5	SET BLOCK COUNT 
	RF	TRT100
TRT070	EQU	*
	XIF

	LDK	A3,2 
TRT100	EQU	*
	IFT	TPMODE=1 
	IM	TPM	TRANSPARENT TEXT
	XIF
	LCR	A2,A4	GET ONE CHARACTER
	ADK	A4,1	INCREMENT POINTER 
	ANK	A2,/7F 
	IFT	RCOM=1 
	LD	A1,XRB	READ BUFFER COMMAND ???
	RF(Z)	TRT105	NO!!

************************************************************
* 
*   CHECK IF ATTRIBUTE CHARACTER OR NULL
* 
*********************************************** 

	CWK	A2,X'20'	ATTRIBUTE CHARACTER 
	RF(L)	TRT101	YES!!!
	XIF
	IFT	DMRK=1 
	CWK	A2,/7E	LINE FEED ? 
	RF(NE)	TRT102	NO,GO TO TRT102
	LDK	A2,/0A 
TRT102	EQU	*
	CWK	A2,/7D	END OF MESSAGE ?
	RF(NE)	TRT103	NO,GO TO TRT103
	LDK	A2,/19 
TRT103	EQU	*
	CWK	A2,X'7F'	NULL ?? 
	RF(NE)	TRT105
	SUK	A2,1 
	XIF
	IFT	RCOM=1 
	RF	TRT105

TRT101	EQU	*

	LDK	A2,SF
	CF	A5,WRITEP	SEND START FIELD

	LC	A2,-1,A4	GET ATTRIBUTE CHARACTER
	ANK	A2,X'7F' 
	LDR	A1,A2	CONVERT TO IBM ATTRIBUTE 
	ANK	A1,1 
	ANK	A2,/1E	MASK
	SLL	A2,1 
	ORR	A2,A1	IBM ATTRIBUTE COMPOSED 
	ORK	A2,/40	BIT ALWAYS SET ONE
	LC	A2,TASCII,A2
	CWK	A2,/18	CHECK SPECIAL ATTRIBUT
	RF(NE)	TRT104
	LDK	A2,/30 
TRT104	EQU	*
	CF	A5,WRITEP	SEND ATTRIBUTE
	ADK	A3,1 
	RF	TRT110
TRT105	EQU	*
	XIF
	EJECT
	IFF	TPMODE=1 
	CWK	A2,/07 
	RF(L)	TRT110	ILLEGAL CODE : SKIP IT
	XIF
	CF	A5,WRITEP	SEND CHARACTER
TRT110	EQU	*
	IM	FBAX	INCREMENT BUFFER INDEX 
	LD	A1,FECBRL	GET REQUESTED LENGTH
	CW	A1,FBAX 
	RF(NG)	TRT130	END OF MESSAGE 
	ADK	A3,1	INCREMENT CHARACTER COUNTER 
	CWK	A3,TBLEN 
	IFT	TPMODE=1 
	RB(L)	TRT105	NOT FULL BLOCK
	XIF
	RB(L)	TRT100	NOT FULL BLOCK
	IFT	RCOM=1 
	LDK	A1,SBA	CHECK IF SBA AT END OF BLOCK
	CC	A1,-2,A4
	RF(E)	TRT115	YES 
	CC	A1,-1,A4
	RF(NE)	TRT116	NO SEND ETB
	LCR	A2,A4	GET FIRST BYTE AFTER SBA 
	ADK	A4,1	INREMENT POINTER
	CF	A5,WRITEP	SEND IT 
	IM	FBAX	INCREMENT INDEX
TRT115	LCR	A2,A4	GET SECOND BYTE AFTER SBA
	CF	A5,WRITEP	SEND IT 
	IM	FBAX	INCREMENT INDEX
	XIF
TRT116	EQU	*
	IFT	TPMODE=1 
	LDK	A2,DLE 
	CF	A5,WRIDLE	SEND AN EXTRA DLE 
	XIF
	LDK	A2,ETB	LOAD ETB
TRT120	EQU	*
	IFT	TPMODE=1 
	CM	TPM 
	XIF
	CF	A5,WRITEP	SEND IT 
	IFF	CODE=1 
	LDR	A2,A8	GET LRC
	CF	A5,WRITEP	SEND LRC
	XIF
	IFT	CODE=1 
	LDR	A2,A6
	ANK	A2,/FF 
	CF	A5,WRIT05	SEND CRC BYTE 1 
	ECR	A2,A6
	ANK	A2,/FF 
	CF	A5,WRIT05	SEND CRC BYTE 2 
	XIF
	IFT	STTSTS=1 
* 
* 
*		COUNT MESSAGES TRANSMITTED 
* 
	LDK	A1,CSSTBL
	CF	A15,DCSUPS
	XIF
	ABL	TRRE10	HALT OUTPUT 
TRT130	EQU	*
	IM	XETX	INDICATE 'ETX SENT'
	IFT	TPMODE=1 
	LDK	A2,DLE 
	CF	A5,WRIDLE	SEND AN EXTRA DLE 
	XIF
	LDK	A2,ETX	LOAD ETX
	RB	TRT120	SEND ETX AND LRC 
	EJECT
* 
* 
*	TRANSMIT STATUS MESSAGE 
* 
* 
	IFF	STARVI=0 
TRSTA	EQU	* 
	IM	XSTA	INDICATE 'STATUS SENT' 
	ST	A6,FDWTUT	SAVE A6 
	CF	A5,TRSYNC	START OUTPUT
	LDK	A2,SOH 
	CF	A5,WRITE	SEND SOH 
	SUR	A8,A8	RESET LRC
	LDK	A2,'%' 
	CF	A5,WRITEP	SEND '%'
	LDK	A2,'R' 
	CF	A5,WRITEP	SEND 'R'
	LDK	A2,STX 
	CF	A5,WRITE	SEND STX 
	LDR*	A2,A7 
	CF	A5,WRITEP	SEND TCA
	LD	A4,FDWTUT	GET DWT-ADDRESS 
	LDR*	A2,A4	GET NETWORK SUB-ADDRESS 
	CF	A5,WRITEP	SEND STA
	LD	A1,DWTST,A4	GET STATUS
	ANK	A1,/06	MASK FOR S/S 0
	SRL	A1,1 
	LC	A2,SSTAB,A1	GET STATUS BYTE 
	CF	A5,WRITEP	SEND S/S 0
	LDK	A2,NOIR	PRELOAD S/S 1
	LD	A1,DWTST,A4	GET STATUS
	ANK	A1,5 
	RF(Z)	TRST10	NOT 'IR'
	ANK	A1,4 
	RF(NZ)	TRST10	NO IR IF DE
	LDK	A2,IR
TRST10	EQU	*
	CF	A5,WRITEP	SEND S/S 1
	RB	TRT130	SEND ETX AND LRC 
	XIF
	EJECT
* 
* 
*		TRSYNC : TRANSMIT SYNC SEQUENCE
* 
TRSYNC	EQU	*
	CF	A5,CHALTI	HALT INPUT IF NOT DONE
	CF	A5,CSYNCO	START OUTPUT WITH SYNC DEF
	CF	A5,READ	WAIT FOR OUTPUT INTERRUPT 
* 
* 
*		SEND 4 SYN-CHARACTERS
* 
	LDK	A3,4 
TRS100	EQU	*
	LDK	A2,SYN 
	CF	A5,WRITE	SEND CHARACTER 
	SUK	A3,1 
	RB(NZ)	TRS100
	RTN	A5	RETURN TO CALLER
	EJECT
* 
* 
*		CSYNCI :SEND SYNC-PATTERN FOR INPUT DATA 
* 
CSYNCI	EQU	*
	LD	A2,PFPOST 
	RF(NZ)	CSYN:I	WAIT FOR POWER UP
	CF	A5,CHALTI	STOP INPUT
	ST	A5,DCLCI	SET INPUT ACTIVE FLAG
	IFT	P6805=1
	LDK	A2,PARITY	CHAR PARITY FUNCTION FOR LC
	CIO	A2,1,LCUIN	START I/O 
	LDK	A2,SYNC	SYNC PATTERN 
	OTR	A2,1,LCUIN	SEND INPUT SYNC-PATTERN TO LC 
	XIF
	IFT	P6805=0
	LDKL	A2,CBCARR+SYNC	DEF SYNC-PATTERN 
	CIO	A2,1,LCUIN	SEND INPUT SYNC-PATTERN TO LC 
				=1
	XIF
CSYN:I	EQU	*
	RTN	A5	RETURN TO CALLER
* 
* 
*		CHALTI : HALT INPUT CHANNEL
* 
CHALTI	EQU	*
	IFT	P6805=1
	LDK	A2,CBSTOP	STOP FUNCTION BIT
	XIF
	CIO	A2,0,LCUIN	HALT INPUT
	CM	DCLCI	CLEAR INPUT ACTIVE FLAG 
	SST	A2,LCUIN	READ STATUS 
	RF(A)	CHALTR	SST ACCEPTED	=1 
	LDK	A2,1	INSTRUCTION NOT ACCEPTED, SET MODEM ERR.	=1 
CHALTR	EQU	*		=1
	IFF	LOGG=0 
	CF	A5,LOGSST	LOGG INPUT STATUS 
	XIF
	RTN	A5	RETURN TO CALLER
	EJECT
* 
* 
*		CSYNCO : START TRANSMITTER WITH SYNC DEF 
* 
CSYNCO	EQU	*
	LD	A2,PFPOST 
	RF(NZ)	CSYN:O	WAIT FOR POWER UP
	IFT	P6805=1
	LDK	A2,PARITY	CHAR PARITY CHECK BY CU
	CIO	A2,1,LCUUT	CIO START 
	RF(A)	CSYNC1	ACCEPTED
	SST	A2,LCUUT	TRY TO READ STATUS
	ABL	BRM	NOT ACCEPTED TIMEOUT REQUEST 
CSYNC1	EQU	*
	LDK	A2,SYNC	DEF SYNC PATTERN 
	OTR	A2,1,LCUUT	SEND SYNC PATTERN 
	XIF
	IFT	P6805=0
	CIO	A2,1,LCUUT	START TRANSMITTER 
	XIF
CSYN:O	EQU	*
	RTN	A5	RETURN TO CALLER
* 
* 
*		CHALTO : HALT OUTPUT CHANNEL 
* 
CHALTO	EQU	*
	IFT	P6805=1
	LDK	A2,CBSTOP	STOP FUNCTION
	XIF
	CIO	A2,0,LCUUT	HALT OUTPUT 
	IFT	P6805=1
	LDK	A2,1	PRESET STATUS = MODEM ERROR	=1
	RF(NA)	CHLT00	INSTRUCTION NOT ACCEPTED	=1
	CF	A5,READ	WAIT FOR INTERRUPT
	XIF
	SST	A2,LCUUT	GET STATUS
CHLT00	EQU	*
	IFT	STTSTS=1 
	ANK	A2,H:NOOP+H:THRU 
	RF(Z)	CHLTO2 
	LDK	A1,CSCDCE	DCE NOT OPERABLE 
	ANK	A2,H:NOOP
	RF(NZ)	CHLTO1	YES
	LDK	A1,CSCDOT	OUTPUT THROUGHPUT ERROR
CHLTO1	EQU	*
	CF	A15,DCSUPS	INCREMENT COUNTER
CHLTO2	EQU	*
	XIF
	RTN	A5	RETURN TO CALLER
	EJECT
* 
* 
*   RECEIVER INTERRUPT
* 
* 
IH1501	EQU	*
	ST	P,INTSAV
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8
	XIF

	IFF	CPU852=1 
	MSR	8,A15	SAVE A1-A8 
	XIF
	CF	A15,LDREG	RESTORE DC REGS A3 - A8 
	INR	A2,0,LCUIN	READ CHAR 
	RF(NA)	IHIN20	NOT ACCEPTED,CHECK STATUS
	IFF	LOGG=0 
	CF	A5,LOGIN	LOG RECEIVED CHARACTER 
	XIF
	IFT	TPMODE=1 
	C2	TPM 
	RF(NZ)	IHLC10	DO NOT SKIP SYNC IN TRANSPARENT TEXT 
	XIF
	C2	SYNSW 
	RF(NZ)	IHLC05	DO NOT SKIP SYNS IN BCC FRAME
	CWK	A2,SYNC
	RF(E)	READ 
IHLC05	EQU	*
	IFT	CODE=0 
	XRR	A8,A2	CALCULATE LRC
	XIF
	IFT	CODE=1 
	CF	A5,CRCCAL	CALCULATE CRC 
	LC	A2,TASCII,A2	TRANSLATE TO ASCII 
	XIF
IHLC10	EQU	*
	LDR	A1,A2
	ORKL	A1,/FF00	SET FLAG FOR CARRIER ON
	ST	A1,DCLCI	SET INPUT ACTIV FLAG 
	CM	DCSTCU	CLEAR SST SAVE 
	LDK	A1,1 
	ST A1,DTEPLS,A7	CU OPERABLE
	RTN	A5	RETURN TO CALLER
IHIN20	EQU	*
	CF	A5,SST	PERFORM SST
	ABL	BRM
	EJECT
* 
* 
*   TRANSMITTER INTERRUPT 
* 
* 
IH1502	EQU	*
	ST	P,INTSAV
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8
	XIF

	IFF	CPU852=1 
	MSR	8,A15	SAVE A1-A8 
	XIF
	CF	A15,LDREG	RESTORE DC REGS A3 - A8 
	RTN	A5 
	EJECT
* 
* 
*	SST INSTRUCTION AND STATUS CHECK
* 
*   LCU STATUS : BIT 10=CARRIER OFF 
*		BIT 13=PARITY ERROR (6805 ONLY)	SALCUZ 
*                BIT 14=THROUGHPUT ERROR
*                BIT 15=MODEM NOT READY 
* 
SST	EQU	* 
	SST	A2,LCUIN	GET STATUS
	LDR	A1,A2
	IFT	LOGG=1 
	CF	A5,LOGSST	LOGG SST INFORMATION
	XIF
	ANK	A2,H:ERR	ERROR BIT SET 
	RF(NZ)	SST050	YES
	IFT	P6805=0
	LD	A2,DCLCI	INPUT STATUS 
	RF(Z)	SST125	INPUT NOT ACTIVE  IGNORE
	RF(N)	SST100	INPUT ACTIVE WITH DATA
	LDKL	A2,CBCARR+SYNC	DEF SYNC PATTERN 
	CIO	A2,1,LCUIN	START INPUT AGAIN 
	RF	SST125	RETURN TO DISPATCHER 
	XIF
	IFT	P6805=1
	RF	SST100
	XIF
SST050	EQU	*
	CM	DTEPLS,A7	CLEAR PHYS. LINK STATUS 
	ANK	A2,H:CARR	CARRIR OFF 
	RF(Z)	SST075	NO
	LD	A2,DCLCI	INPUT STATUS 
	RF(Z)	SST125	NOT ACTIVE IGNORE CARRIER OFF 
	RF	SST100	ACTIVE 
SST075	EQU	*
	LDR	A2,A1
	ANK	A2,H:THRU	THROUGHPUT ERROR 
	RF(Z)	SST100	NO
	IFT	STTSTS=1 
* 
* 
*		COUNT INPUT THROUGHPUT ERROR 
* 
	LDK	A1,CSCDIT
	CF	A15,DCSUPS
	XIF
	ABL	BRM110 
* 
SST100	EQU	*
	LDR	A2,A1
	ANK	A2,H:NOOP	NOT OPERABLE 
	RF(Z)	SST200 
	IFT	STTSTS=1 
* 
* 
*		COUNT DCE NOT OPERABLE 
* 
	LDK	A1,CSCDCE
	CF	A15,DCSUPS
	XIF
	CF	A15,STREG	SAVE REGISTERS
	CF	A15,SETIME	DELAY 1 SEC
	DATA	SST150,10 
SST125	EQU	*
	ABL	TDISP	RETURN TO DISPATCHER 
* 
SST150	EQU	*
	CF	A15,LDREG	LOAD REGISTERS
SST200	EQU	*
	LDR	A2,A1
	ANK	A2,H:CARR	CHECK STATUS IF CARRIER OFF
	RF(Z)	SST225	NO
	XRK	A1,H:CARR	CHECK STATUS IF ONLY CARRIER OFF 
	RF(Z)	SST250	YES 
SST225	EQU	*
	ST	A1,DCSTCU	STORE STATUS AS CURRENT STATUS
SST250	EQU	*
	RTN	A5	RETURN TO CALLER
	EJECT
* 
* 
*	WRITE FROM OR READ ONE CHARACTER TO A2
* 
* 
WRITE	EQU	* 
	IFT	CODE=1 
	C2	TPM 
	RF(Z)	WRIT02	NOT TRANSPARENT MODE
	CWK	A2,DLE	CHECK IF DLE
	RF(NZ)	WRIT05	NO 
	CF	A5,WRIDLE	SEND EXTRA DLE
	LDK	A2,DLE 
	RF	WRIT05
WRIT02	EQU	*
	ANK	A2,/FF 
	CWK	A2,/FF 
	RF(E)	WRIT05	NO TRANSLATION OF TRAILING PAD
	LC	A2,TEBCDIC,A2	TRANSLATE TO EBCDIC 
	XIF
WRIT05	EQU	*
	OTR	A2,0,LCUUT	SEND CHARACTER
	RF(A)	WRIT10 
	IFF	CODE=1 
WRIT10	XRR	A8,A2	ACCUMULATE BCC 
	XIF
	IFT	CODE=1 
WRIT10	CF	A5,CRCCAL	CALCULATE CRC 
	XIF
WRIT15	EQU	*
	IFF	LOGG=0 
	CF	A5,LOGOUT	LOG OUTPUT CHARACTER
	XIF
* 
READ	CF	A15,STREG 
	ABL	TDISP
* 
* 
*		THESE INSTRUCTIONS ARE ONLY USED TO SEND AN EXTRA DLE
*		WHEN TRANSPARENT MODE IS CONFIGURED
* 
WRIDLE	EQU	*
	OTR	A2,0,LCUUT	SEND CHARACTER
	RB(A)	WRIT15	ACCEPTED
	RB	READ	OUTPUT THROUGHPUT ERROR
	EJECT
* 
* 
***	WRITEP
* 
*   WRITE A2 WITH PARITY
* 
* 
	IFT	CODE+P6805=0		SALCUZ 
WRITEP	ANK	A2,/FF 
	ECR	A1,A2
	ORK	A2,/80 
WRI100	SLL	A1,1 
	RB(P)	WRI100 
	RB(Z)	WRITE	WRITE
	XRK	A2,/80 
	RB	WRI100
	XIF
	IFF	CODE+P6805=0		SALCUZ 
WRITEP	RB	WRITE 
	XIF
* 
* 
* 
***	READP 
* 
*   READ CHARACTER TO A2 AND CHECK PARITY 
* 
* 
READP	CF	A5,READ
	IFT	CODE+P6805=0		SALCUZ 
	ECR	A1,A2
RE100	SLL	A1,1
	RF(Z)	RE110
	RB(NN)	RE100 
	XRK	A2,/80 
	RB	RE100 
RE110	LDR	A1,A2 
	ANK	A2,/7F 
	XIF
	IFF	CODE+P6805=0		SALCUZ 
	LDK	A1,/80 
	XIF
	ADK	A5,4 
	ANK	A1,/80 
	XRK	A1,/80 
	ABR*	A5
* 
* 
	EJECT
* 
* 
*	POWER ON FUNCTIONS
* 
* 
DC15ON	EQU	*
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8
	XIF

	IFF	CPU852=1 
	MSR	8,A15	SAVE A1-A8 
	XIF
	LDKL	A7,DTETAB	DTETAB ADDRESS
	IFT	STARVI=1 
	LDK	A5,4	SET DEVICE END
	LD	A6,DTEDWT,A7	GET FIRST DWT ADDR 
DC1510	EQU	*
	RF(Z)	DC1520	END OF CHAIN
	ORS	A5,DWTST,A6	STORE DEVICE END 
	CF	A15,INSSQ	INSERT DWT IN STAUS QUEUE 
	LD	A6,DWTCHN,A6	GET NEXT DWT IN CHAIN
	RB	DC1510
DC1520	EQU	*
				=4
				=13 
	XIF
	LD	A2,DTESTA,A7	DTE STATUS 
	SUK	A2,2 
	ABL(NZ)	TDISP	OPEN NOT EXECUTED
	CM	DCLCI	INIT LINE CONTROL UNIT INFO 
	LD	A2,DCTPGP	GET POLL TIMER POINTER
	RF(NZ)	DC1540	ALREADY STARTED
	CF	A15,SPOTIM	START POLL TIMER 
DC1540	EQU	*
	ABL	BRM
	EJECT
	IFT	CODE=1 
* 
* 
*	CALCULATION OF CRC
* 
*	A2 = CHARACTER
*	A8 = ACCUMULATED CRC
* 
* 
CRCCAL	EQU	*
	ST	A1,CRCSAV+2 
	ST	A2,CRCSAV+6 
	ST	A3,CRCSAV+10
	ST	A4,CRCSAV+14
	LDK	A1,8 
	LDR	A4,A8	GET OLD CRC
CRC100	LDR	A3,A4
	SRL	A4,1 
	XRR	A3,A2
	SRL	A2,1 
	ANK	A3,1 
	RF(Z)	CRC110 
	XRKL	A4,/A001
CRC110	SUK	A1,1 
	RB(NZ)	CRC100
	LDR	A8,A4	SAVE NEW CRC 
CRCSAV	EQU	*
	LDKL	A1,0
	LDKL	A2,0
	LDKL	A3,0
	LDKL	A4,0
	RTN	A5 
	EJECT
* 
* 
*	READ CRC CHARACTERS AND CHECK THEM
*	CR = (E) IF CRC WAS OK
* 
* 
RDCRC	EQU	* 
	STR	A8,A5	SAVE CURRENT CRC 
	SUK	A5,2	ADJUST STACK POINTER
	IM	SYNSW	DO NOT SKIP SYNCS NOW 
	CF	A5,READ	READ BYTE 1 
	LD	A4,CRCSAV+6	SAVE IT 
	CF	A5,READ	READ BYTE 2 
	CM	SYNSW	SYNCS CAN BE SKIPPED AGAIN
	LD	A2,CRCSAV+6	SAVE IT 
	SLL	A2,8 
	XRR	A2,A4
	ADK	A5,6 
	CW	A2,-4,A5
	ABR*	A5
	XIF
	IFT	CODE=0 
* 
*   RDLRC      READ LRC CHARACTER 
*              CR=0 IF LRC OK 
* 
RDLRC	IM	SYNSW
	CF	A5,READP
	ADK	A5,4 
	LDR	A1,A1
	RF(NZ)	LRCEND
	ANKL	A8,/007F
LRCEND	EQU	*
	CM	SYNSW 
	ABR*	A5

	XIF
	EJECT
****************************************
* 
*		DRIVER WORK AREAS
* 
****************************************
* 
* 
*	DC RECEIVE BUFFER POOL
* 
RLINK	EQU	RBUFL+RBUFL+8 
* 
DCRBUF	EQU	*
	DATA	*+2	FREE BUFFER ANCHOR
	IFF	RBUFNR=2 
	DATA	*+RLINK 
	RES	RBUFL+3
	IFF	RBUFNR=3 
	DATA	*+RLINK 
	RES	RBUFL+3
	IFF	RBUFNR=4 
	DATA	*+RLINK 
	RES	RBUFL+3
	XIF
	DATA	*+RLINK 
	RES	RBUFL+3
	DATA	0	END OF CHAIN
	RES	RBUFL+3

	IFF	MMUPAG=0 
MMUBUF	RES	TBUFL+1	MMU WORK BUFFER
	XIF
	EJECT
* 
* 
*	INTERRUPT LOGGING ROUTINE 
* 
* 
	IFF	LOGG=0 
LOGSST	ST	A2,SAVE2
	ORKL	A2,/F000
	RF	LOG10 
LOGOUT	ST	A2,SAVE2
	ORKL	A2,/0F00
	RF	LOG10 
LOGIN	CWK	A2,/FF
	RF(E)	LOGE10 
	ST	A2,SAVE2
LOG10	ST	A3,SAVE3 
	LD	A3,LOGPNT 
	STR	A2,A3
	ADK	A3,2 
	CWK	A3,LOGEND
	RF(L)	LOGEXI 
	LDKL	A3,LOGSTA 
LOGEXI	ST	A3,LOGPNT 
	LD	A2,SAVE2
	LD	A3,SAVE3
LOGE10	RTN	A5 
	EJECT
* 
* 
LOGPNT	DATA	LOGSTA
LOGSTA	EQU	*
	RES	300
LOGEND	EQU	*-4
SAVE2	DATA	0
SAVE3	DATA	0
	XIF
* 
* 
* 
	IFT	RCOM=1 
	EJECT
******************************************************* 
* 
*     L I N C O L 
* 
*     CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER
* 
**********************************************************

LINCOL	EQU	*
	LDR	A2,A3	COPY CURSOR ADDRESS
	SRL	A2,6 
	ANK	A2,X'3F'	
	LC	A2,LICO:T,A2	ASCII LINE NUMBER
	CF	A5,WRITEP	SEND LINE NUMBER

	LDR	A2,A3
	ANK	A2,X'3F' 
	LC	A2,LICO:T,A2	ASCII COLUMN NUMBER
	CF	A5,WRITEP	SEND COLUMN NUMBER
	RTN	A5	RETURN
* 
* 
* 
	EJECT


LICO:T	EQU	*
	DATA	/2041,/4243,/4445,/4647	/00-/07 
	DATA	/4849,/5B2E,/3C28,/2B21	/08-/0F 
	DATA	/264A,/4B4C,/4D4E,/4F50	/10-/17 
	DATA	/5152,/5D24,/2A29,/3B5E	/18-/1F 
	DATA	/2D2F,/5354,/5556,/5758	/20-/27 
	DATA	/595A,/7C2C,/255F,/3E3F	/28-/2F 
	DATA	/3031,/3233,/3435,/3637	/30-37
	DATA	/3839,/3A23,/4027,/3D22	/38-3F
	XIF
	EJECT
* 
*	DTETAB
* 
*	FIXED PART
* 
DW1500	EQU	*
DTETAB	DATA	0,0 
	DATA	0,0,0,0,0,0 
	IFT	MMUPAG=1 
	DATA	0,0 
	XIF
*	DRIVER DEPENDENT PART 
	DATA	DTESBU-DTETAB	START OF STATISTIC BUFFER 
	DATA	0,0,0,0,0,0 
	DATA	0,0,0,0,0,0	 *
DTESBU	EQU	*
	DATA	0	SYMBOLIC ID 
	DATA	0	COUNTER STATUS WORD 
	DATA	/20	MAX NUMBER OF COUNTERS
	RES	/20	STATISTIC BUFFER 
	EJECT
* 
* 
*	PROCEDURE WORK AREAS
* 
* 
FDWTIN	RES	1	CURRENT DWT FOR RECEPTION
FDWTUT	RES	1	CURRENT DWT FOR TRANSMISSION 
XACK	DATA	0	ACK EXPECTED
XSEL	DATA	0	SELECTED
XETX	DATA	0	ETX SENT
XSTA	DATA	0	STATUS SENT / MESSAGE INPUT RESULT
XRB	DATA	0	READ BUFFER SWITCH 
CACK	DATA	0	ACK COUNTER 
SYNSW	DATA	0	0=SKIP SYNS, 1=DON'T SKIP
TPM	DATA	0	IF =1 TRANSPARENT TEXT 
* 
FECB	RES	1	WRITING ECB
FECBBA	RES	1	WRITING BUFFER ADDRESS 
FECBRL	RES	1	WRITING BUFFER LENGTH
FBAX	DATA	0	BUFFER INDEX
FBLST	DATA	0	START OF LAST TRANSMITTED BLOCK
DCSTQ	DATA	0	STATUS QUEUE ANCHOR
DCTPP	DATA	0	POINTER FOR PROCEDURE TIMING 
DCWRQ	DATA	0	WRITE REQUEST QUEUE
RESEND	DATA	0	CONTROL SEQUENCE SAVE AREA
* 
	EJECT
* 
* 
*	CONSTANTS AND WORK AREAS
* 
* 
DCSTCU	DATA	0	CURRENT STATUS
DCTPGP	DATA	0	TIMER POINTER GENERAL POLL
DCLCI	DATA	0	DC UNIT INPUT STATUS 
	END

HexDump

0x00000…00034 (0, 0, 400)   Head {h00=0x0030, h01=0x0050, text=» IDENT DRDC15 REL 11.0 81-05-21 870105041100«, t00=0x0000, t01=0x0004}
0x00034…0003c               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x0003c…0006a               Head {h00=0x002a, h01=0x0050, text=»   =13, ERRONEOUS DISCARD DWT HANDLING«, t00=0x0000, t01=0x0040}
0x0006a…0009e               Head {h00=0x0030, h01=0x0050, text=»   =12, SUB-ADDR IN CW2 AT RECEIVE REQ COMPL«, t00=0x0000, t01=0x006e}
0x0009e…000ba               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-05-12«, t00=0x0000, t01=0x00a2}
0x000ba…000e2               Head {h00=0x0024, h01=0x0050, text=»   =11, PROCEDURE TIMER PROBLEM «, t00=0x0000, t01=0x00be}
0x000e2…00106               Head {h00=0x0020, h01=0x0050, text=»   =10, EOT ON SPECIFIC POLL«, t00=0x0000, t01=0x00e6}
0x00106…0012e               Head {h00=0x0024, h01=0x0050, text=»   =9, REMAINING TIME IN ECBCW1 «, t00=0x0000, t01=0x010a}
0x0012e…0014a               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-04-12«, t00=0x0000, t01=0x0132}
0x0014a…00170               Head {h00=0x0022, h01=0x0050, text=»   =8, ODD USER BUFFER ADDRESS«, t00=0x0000, t01=0x014e}
0x00170…00194               Head {h00=0x0020, h01=0x0050, text=»   =7, BINARY STORE PROBLEM «, t00=0x0000, t01=0x0174}
0x00194…001b0               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-04-07«, t00=0x0001, t01=0x0008}
0x001b0…001dc               Head {h00=0x0028, h01=0x0050, text=»   =6, ERROR IN POLL TIMER HANDLING «, t00=0x0001, t01=0x0024}
0x001dc…00204               Head {h00=0x0024, h01=0x0050, text=»   =5, WRONG STATISTIC HANDLING «, t00=0x0001, t01=0x0050}
0x00204…00220               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-03-27«, t00=0x0001, t01=0x0078}
0x00220…00240               Head {h00=0x001c, h01=0x0050, text=»   =4, ERROR IN POWER UP«, t00=0x0001, t01=0x0094}
0x00240…0026c               Head {h00=0x0028, h01=0x0050, text=»   =3, DELETE INSTRUCTIONS NOT USED «, t00=0x0001, t01=0x00b4}
0x0026c…00294               Head {h00=0x0024, h01=0x0050, text=»   =2, CHANGES IN STATUS HANLING«, t00=0x0001, t01=0x00e0}
0x00294…002c0               Head {h00=0x0028, h01=0x0050, text=»   =1, ERROR IN OPEN/CLOSE REQUESTS «, t00=0x0001, t01=0x0108}
0x002c0…002dc               Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0001, t01=0x0134}
0x002dc…002e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x002e6…002f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x002f0…00326               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0164}
0x00326…00330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000a}
0x00330…00358               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0002, t01=0x0014}
0x00358…00362               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x00362…00390               Head {h00=0x002a, h01=0x0050, text=»*   DRDC15: DRIVER DATA COMMUNICATION «, t00=0x0002, t01=0x0046}
0x00390…003c2               Head {h00=0x002e, h01=0x0050, text=»*           BSC MULTIPOINT LINE PROCEDURE «, t00=0x0002, t01=0x0074}
0x003c2…003e6               Head {h00=0x0020, h01=0x0050, text=»*           OR SIEMENS MSV1 «, t00=0x0002, t01=0x00a6}
0x003e6…003f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ca}
0x003f0…003fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x003fa…00404               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00de}
0x00404…0040e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x0040e…00418               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f2}
0x00418…00454               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x00fc}
0x00454…00462               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0138}
0x00462…0046c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0146}
0x0046c…00476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0150}
0x00476…0048c               Head {h00=0x0012, h01=0x0050, text=»* ENTRY POINTS«, t00=0x0002, t01=0x015a}
0x0048c…00496               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x00496…004cc               Head {h00=0x0032, h01=0x0050, text=» ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS «, t00=0x0002, t01=0x017a}
0x004cc…004f2               Head {h00=0x0022, h01=0x0050, text=» ENTRY IH1501 INPUT INTERRUPT «, t00=0x0003, t01=0x0020}
0x004f2…00518               Head {h00=0x0022, h01=0x0050, text=» ENTRY IH1502 OUTPUT INTERRUPT«, t00=0x0003, t01=0x0046}
0x00518…0053e               Head {h00=0x0022, h01=0x0050, text=» ENTRY DC15ON POWER ON ROUTINE«, t00=0x0003, t01=0x006c}
0x0053e…0055e               Head {h00=0x001c, h01=0x0050, text=» ENTRY DW1500 DUMMY DWT «, t00=0x0003, t01=0x0092}
0x0055e…00568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x00568…00576               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00bc}
0x00576…00580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ca}
0x00580…0058a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d4}
0x0058a…005a8               Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENCES «, t00=0x0003, t01=0x00de}
0x005a8…005b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fc}
0x005b2…005d8               Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0003, t01=0x0106}
0x005d8…00604               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0003, t01=0x012c}
0x00604…0062c               Head {h00=0x0024, h01=0x0050, text=» EXTRN TENDIO COMPLETE I/O EVENT«, t00=0x0003, t01=0x0158}
0x0062c…0064c               Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIME SET TIMER «, t00=0x0003, t01=0x0180}
0x0064c…0066e               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTCHP DWT ADDRESS «, t00=0x0004, t01=0x0010}
0x0066e…0068e               Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0004, t01=0x0032}
0x0068e…006ac               Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTOR DWT ORDER«, t00=0x0004, t01=0x0052}
0x006ac…006ca               Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTECB DWT ECB «, t00=0x0004, t01=0x0070}
0x006ca…006ec               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTOPT OPTION CODE «, t00=0x0004, t01=0x008e}
0x006ec…00712               Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB IF MMU «, t00=0x0004, t01=0x00b0}
0x00712…00730               Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTMEC MMU ECB «, t00=0x0004, t01=0x00d6}
0x00730…0074e               Head {h00=0x001a, h01=0x0050, text=» EXTRN ECBFC FILE CODE«, t00=0x0004, t01=0x00f4}
0x0074e…00772               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0004, t01=0x0112}
0x00772…00798               Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0004, t01=0x0136}
0x00798…007be               Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0004, t01=0x015c}
0x007be…007e2               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBCW1 CONTROL WORD 1«, t00=0x0004, t01=0x0182}
0x007e2…00806               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBCW2 CONTROL WORD 2«, t00=0x0005, t01=0x0016}
0x00806…0081c               Head {h00=0x0012, h01=0x0050, text=» EXTRN GETSSA «, t00=0x0005, t01=0x003a}
0x0081c…0084a               Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0005, t01=0x0050}
0x0084a…00876               Head {h00=0x0028, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TABLE«, t00=0x0005, t01=0x007e}
0x00876…008a2               Head {h00=0x0028, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TABLE «, t00=0x0005, t01=0x00aa}
0x008a2…008d4               Head {h00=0x002e, h01=0x0050, text=» EXTRN DCSRED READ STATISTICS ENTRY POINT «, t00=0x0005, t01=0x00d6}
0x008d4…00912               Head {h00=0x003a, h01=0x0050, text=» EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT«, t00=0x0005, t01=0x0108}
0x00912…00950               Head {h00=0x003a, h01=0x0050, text=» EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT «, t00=0x0005, t01=0x0146}
0x00950…0098c               Head {h00=0x0038, h01=0x0050, text=» EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR«, t00=0x0005, t01=0x0184}
0x0098c…009c8               Head {h00=0x0038, h01=0x0050, text=» EXTRN GETSNA VALIDATE AND CONVERT SYMBOLIC SUB ADDR«, t00=0x0006, t01=0x0030}
0x009c8…009f6               Head {h00=0x002a, h01=0x0050, text=» EXTRN DC:MIN MOVE DATA TO USER BUFFER«, t00=0x0006, t01=0x006c}
0x009f6…00a26               Head {h00=0x002c, h01=0x0050, text=» EXTRN DC:MOT MOVE DATA FROM USER BUFFER«, t00=0x0006, t01=0x009a}
0x00a26…00a5a               Head {h00=0x0030, h01=0x0050, text=» EXTRN DISEND COMPLETE REQUEST AND DISPATCH «, t00=0x0006, t01=0x00ca}
0x00a5a…00a88               Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST WAIT FOR POWER UP IF SET«, t00=0x0006, t01=0x00fe}
0x00a88…00a98               Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x0006, t01=0x012c}
0x00a98…00ae6               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0006, t01=0x013c}
0x00ae6…00af0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018a}
0x00af0…00b0a (7, 0, 400)   Head {h00=0x0016, h01=0x0050, text=»* REGISTER USAGE: «, t00=0x0007, t01=0x0004}
0x00b0a…00b14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001e}
0x00b14…00b34               Head {h00=0x001c, h01=0x0050, text=»* A1 WORK (RETURN CODE) «, t00=0x0007, t01=0x0028}
0x00b34…00b46               Head {h00=0x000e, h01=0x0050, text=»* A2 WORK «, t00=0x0007, t01=0x0048}
0x00b46…00b68               Head {h00=0x001e, h01=0x0050, text=»* A3 WORK (BUFFER LENGTH) «, t00=0x0007, t01=0x005a}
0x00b68…00b8a               Head {h00=0x001e, h01=0x0050, text=»* A4 WORK (BUFFER POINTER)«, t00=0x0007, t01=0x007c}
0x00b8a…00bac               Head {h00=0x001e, h01=0x0050, text=»* A5 DRIVER STACK POINTER «, t00=0x0007, t01=0x009e}
0x00bac…00bc4               Head {h00=0x0014, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0007, t01=0x00c0}
0x00bc4…00bec               Head {h00=0x0024, h01=0x0050, text=»* A7 ORDER CODE, DTETAB ADDRESS «, t00=0x0007, t01=0x00d8}
0x00bec…00c04               Head {h00=0x0014, h01=0x0050, text=»* A8 ECB ADDRESS«, t00=0x0007, t01=0x0100}
0x00c04…00c0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x00c0e…00c5e               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x0122}
0x00c5e…00c6c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0172}
0x00c6c…00cac               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0007, t01=0x0180}
0x00cac…00cb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0030}
0x00cb6…00ce4               Head {h00=0x002a, h01=0x0050, text=»* PARAMETERS FOR CONDITIONAL ASSEMBLY «, t00=0x0008, t01=0x003a}
0x00ce4…00cee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0068}
0x00cee…00cf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0072}
0x00cf8…00d22               Head {h00=0x0026, h01=0x0050, text=»X:A EQU 1000 RECEIVE BUFFER LENGTH«, t00=0x0008, t01=0x007c}
0x00d22…00d38               Head {h00=0x0012, h01=0x0050, text=»RBUFL EQU X:A «, t00=0x0008, t01=0x00a6}
0x00d38…00d60               Head {h00=0x0024, h01=0x0050, text=»X:B EQU 0 IF 1 INTERRUPT LOGGING«, t00=0x0008, t01=0x00bc}
0x00d60…00d74               Head {h00=0x0010, h01=0x0050, text=»LOGG EQU X:B«, t00=0x0008, t01=0x00e4}
0x00d74…00d9a               Head {h00=0x0022, h01=0x0050, text=»X:C EQU 600 POLL TIMEOUT VALUE«, t00=0x0008, t01=0x00f8}
0x00d9a…00db0               Head {h00=0x0012, h01=0x0050, text=»TIMPOL EQU X:C«, t00=0x0008, t01=0x011e}
0x00db0…00dde               Head {h00=0x002a, h01=0x0050, text=»X:D EQU 0 STATUS AND RVI HANDLING IF=1«, t00=0x0008, t01=0x0134}
0x00dde…00df4               Head {h00=0x0012, h01=0x0050, text=»STARVI EQU X:D«, t00=0x0008, t01=0x0162}
0x00df4…00e20               Head {h00=0x0028, h01=0x0050, text=»X:E EQU 0 READ COMMAND HANDLING IF=1«, t00=0x0008, t01=0x0178}
0x00e20…00e34               Head {h00=0x0010, h01=0x0050, text=»RCOM EQU X:E«, t00=0x0009, t01=0x0014}
0x00e34…00e5e               Head {h00=0x0026, h01=0x0050, text=»X:F EQU 254 TRANSMIT BLOCK LENGTH «, t00=0x0009, t01=0x0028}
0x00e5e…00e74               Head {h00=0x0012, h01=0x0050, text=»TBLEN EQU X:F «, t00=0x0009, t01=0x0052}
0x00e74…00ea0               Head {h00=0x0028, h01=0x0050, text=»X:G EQU 0 CODE , 0=ASCII , 1=EBCDIC «, t00=0x0009, t01=0x0068}
0x00ea0…00eb4               Head {h00=0x0010, h01=0x0050, text=»CODE EQU X:G«, t00=0x0009, t01=0x0094}
0x00eb4…00ee2               Head {h00=0x002a, h01=0x0050, text=»X:H EQU 0 IF 1 SPECIFIC POLL HANDLING «, t00=0x0009, t01=0x00a8}
0x00ee2…00ef8               Head {h00=0x0012, h01=0x0050, text=»SPECP EQU X:H «, t00=0x0009, t01=0x00d6}
0x00ef8…00f28               Head {h00=0x002c, h01=0x0050, text=»X:I EQU 0 IF = 1 LINE SPEED SET TO HIGH «, t00=0x0009, t01=0x00ec}
0x00f28…00f54               Head {h00=0x0028, h01=0x0050, text=»   IF = 0  LINE SPEED IS SET TO LOW «, t00=0x0009, t01=0x011c}
0x00f54…00f6a               Head {h00=0x0012, h01=0x0050, text=»SPEED EQU X:I «, t00=0x0009, t01=0x0148}
0x00f6a…00f98               Head {h00=0x002a, h01=0x0050, text=»X:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE «, t00=0x0009, t01=0x015e}
0x00f98…00fac               Head {h00=0x0010, h01=0x0050, text=»MSV1 EQU X:J«, t00=0x0009, t01=0x018c}
0x00fac…00fde               Head {h00=0x002e, h01=0x0050, text=»X:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) «, t00=0x000a, t01=0x0010}
0x00fde…00ff4               Head {h00=0x0012, h01=0x0050, text=»RBUFNR EQU X:K«, t00=0x000a, t01=0x0042}
0x00ff4…01026               Head {h00=0x002e, h01=0x0050, text=»X:L EQU 0 IF = 1  PTS 6805 ADAPTION SALCUZ«, t00=0x000a, t01=0x0058}
0x01026…0103c               Head {h00=0x0012, h01=0x0050, text=»P6805 EQU X:L «, t00=0x000a, t01=0x008a}
0x0103c…01050               Head {h00=0x0010, h01=0x0050, text=»X:M EQU /02 «, t00=0x000a, t01=0x00a0}
0x01050…01064               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=0«, t00=0x000a, t01=0x00b4}
0x01064…01094               Head {h00=0x002c, h01=0x0050, text=»LCUIN EQU X:M DEVICE ADDRESS OF RECEIVER«, t00=0x000a, t01=0x00c8}
0x01094…010a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00f8}
0x010a0…010b4               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x000a, t01=0x0104}
0x010b4…010e4               Head {h00=0x002c, h01=0x0050, text=»LCUIN EQU /0A DEVICE ADDRESS OF RECEIVER«, t00=0x000a, t01=0x0118}
0x010e4…010f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0148}
0x010f0…0110c               Head {h00=0x0018, h01=0x0050, text=» IFT P6805=0  SALCUZ«, t00=0x000a, t01=0x0154}
0x0110c…0114c               Head {h00=0x003c, h01=0x0050, text=»LCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ«, t00=0x000a, t01=0x0170}
0x0114c…01162               Head {h00=0x0012, h01=0x0050, text=» XIF   SALCUZ «, t00=0x000b, t01=0x0020}
0x01162…01176               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x000b, t01=0x0036}
0x01176…011b6               Head {h00=0x003c, h01=0x0050, text=»LCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ«, t00=0x000b, t01=0x004a}
0x011b6…011cc               Head {h00=0x0012, h01=0x0050, text=» XIF   SALCUZ «, t00=0x000b, t01=0x008a}
0x011cc…011de               Head {h00=0x000e, h01=0x0050, text=»X:N EQU 0 «, t00=0x000b, t01=0x00a0}
0x011de…01210               Head {h00=0x002e, h01=0x0050, text=»IBMCHR EQU X:N IF 1 IBM CHARACTER HANDLING«, t00=0x000b, t01=0x00b2}
0x01210…01242               Head {h00=0x002e, h01=0x0050, text=»X:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK «, t00=0x000b, t01=0x00e4}
0x01242…01258               Head {h00=0x0012, h01=0x0050, text=»MESPAS EQU X:O«, t00=0x000b, t01=0x0116}
0x01258…01290               Head {h00=0x0034, h01=0x0050, text=»X:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0«, t00=0x000b, t01=0x012c}
0x01290…012a6               Head {h00=0x0012, h01=0x0050, text=»EM3270 EQU X:P«, t00=0x000b, t01=0x0164}
0x012a6…012b8               Head {h00=0x000e, h01=0x0050, text=»X:Q EQU 0 «, t00=0x000b, t01=0x017a}
0x012b8…012e6               Head {h00=0x002a, h01=0x0050, text=»TPMODE EQU X:Q IF = 1 TRANSPARANT MODE«, t00=0x000b, t01=0x018c}
0x012e6…012f8               Head {h00=0x000e, h01=0x0050, text=»X:R EQU 0 «, t00=0x000c, t01=0x002a}
0x012f8…0132a               Head {h00=0x002e, h01=0x0050, text=»STTSTS EQU X:R IF = 1 STATISTICS INCLUDED «, t00=0x000c, t01=0x003c}
0x0132a…0133e               Head {h00=0x0010, h01=0x0050, text=»X:S EQU 500 «, t00=0x000c, t01=0x006e}
0x0133e…01366               Head {h00=0x0024, h01=0x0050, text=»TBUFL EQU X:S MMU BUFFER LENGTH «, t00=0x000c, t01=0x0082}
0x01366…01394               Head {h00=0x002a, h01=0x0050, text=»BINTRM EQU 0 IF 1 BINARY TRANSMISSION «, t00=0x000c, t01=0x00aa}
0x01394…013c4               Head {h00=0x002c, h01=0x0050, text=»DMRK EQU 0 SPECIAL CONDITION FOR DENMARK«, t00=0x000c, t01=0x00d8}
0x013c4…013fc               Head {h00=0x0034, h01=0x0050, text=»NOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT«, t00=0x000c, t01=0x0108}
0x013fc…01430               Head {h00=0x0030, h01=0x0050, text=»   DOESN'T ACCEPT WACK RESPONSE TO A SELECT «, t00=0x000c, t01=0x0140}
0x01430…01464               Head {h00=0x0030, h01=0x0050, text=»   SEQUENCE, NOWACK SHOULD BE SET TO "ONE". «, t00=0x000c, t01=0x0174}
0x01464…01472               Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x000d, t01=0x0018}
0x01472…0147a               Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0026}
0x0147a…01492               Head {h00=0x0014, h01=0x0050, text=»REMTIM EQU 0  =9«, t00=0x000d, t01=0x002e}
0x01492…014c8               Head {h00=0x0032, h01=0x0050, text=»   IF = 1 THE REMAINING TIME UNTIL TIMEOUT =9 «, t00=0x000d, t01=0x0046}
0x014c8…014fc               Head {h00=0x0030, h01=0x0050, text=»   IS DELIVERED IN ECBCW1 AT COMPLETION  =9 «, t00=0x000d, t01=0x007c}
0x014fc…01526               Head {h00=0x0026, h01=0x0050, text=»   OF SEND AND RECEIVE REQUESTS =9«, t00=0x000d, t01=0x00b0}
0x01526…01530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x01530…01544               Head {h00=0x0010, h01=0x0050, text=» IFT SPEED=1«, t00=0x000d, t01=0x00e4}
0x01544…0155c               Head {h00=0x0014, h01=0x0050, text=»LSPEED EQU /0200«, t00=0x000d, t01=0x00f8}
0x0155c…01568               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0110}
0x01568…0157c               Head {h00=0x0010, h01=0x0050, text=» IFT SPEED=0«, t00=0x000d, t01=0x011c}
0x0157c…01590               Head {h00=0x0010, h01=0x0050, text=»LSPEED EQU 0«, t00=0x000d, t01=0x0130}
0x01590…0159c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0144}
0x0159c…015aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0150}
0x015aa…015b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015e}
0x015b4…015be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0168}
0x015be…015f0               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x0172}
0x015f0…015fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0014}
0x015fa…01618               Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000e, t01=0x001e}
0x01618…01622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003c}
0x01622…01654               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000e, t01=0x0046}
0x01654…0165e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0078}
0x0165e…01690               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x0082}
0x01690…016be               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x00b4}
0x016be…016c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e2}
0x016c8…016dc               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000e, t01=0x00ec}
0x016dc…016e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x016e6…016f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010a}
0x016f0…0172a               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x0114}
0x0172a…0175c               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000e, t01=0x014e}
0x0175c…01766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0180}
0x01766…0177a               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000e, t01=0x018a}
0x0177a…01784               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000e}
0x01784…017b8               Head {h00=0x0030, h01=0x0050, text=»DEVIND EQU 0 DEVICE INDEX DATA COMMUNICATION«, t00=0x000f, t01=0x0018}
0x017b8…017e6               Head {h00=0x002a, h01=0x0050, text=»BUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE«, t00=0x000f, t01=0x004c}
0x017e6…017f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007a}
0x017f0…017fe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0084}
0x017fe…01808               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000f, t01=0x0092}
0x01808…01836               Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x000f, t01=0x009c}
0x01836…01840               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000f, t01=0x00ca}
0x01840…01876               Head {h00=0x0032, h01=0x002d, text=»* DCDEFS  COMMON DEFS FOR DC DRIVERS/PACKAGES «, t00=0x000f, t01=0x00d4}
0x01876…01880               Head {h00=0x0006, h01=0x000a, text=»* «, t00=0x000f, t01=0x010a}
0x01880…018ae               Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x000f, t01=0x0114}
0x018ae…018b8               Head {h00=0x0006, h01=0x0001, text=»  «, t00=0x000f, t01=0x0142}
0x018b8…018e8               Head {h00=0x002c, h01=0x0027, text=»*************************************** «, t00=0x000f, t01=0x014c}
0x018e8…018f2               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000f, t01=0x017c}
0x018f2…01914               Head {h00=0x001e, h01=0x001a, text=»* TABLE AND PACKET LAYOUTS«, t00=0x000f, t01=0x0186}
0x01914…0191e               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0010, t01=0x0018}
0x0191e…0194e               Head {h00=0x002c, h01=0x0027, text=»*************************************** «, t00=0x0010, t01=0x0022}
0x0194e…01958               Head {h00=0x0006, h01=0x0001, text=»  «, t00=0x0010, t01=0x0052}
0x01958…01962               Head {h00=0x0006, h01=0x0001, text=»  «, t00=0x0010, t01=0x005c}
0x01962…01970               Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0010, t01=0x0066}
0x01970…019be               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0010, t01=0x0074}
0x019be…019c8               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0010, t01=0x00c2}
0x019c8…019e8               Head {h00=0x001c, h01=0x0018, text=»* DWT, DEVICE WORK TABLE«, t00=0x0010, t01=0x00cc}
0x019e8…019f2               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0010, t01=0x00ec}
0x019f2…01a42               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0010, t01=0x00f6}
0x01a42…01a4c               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0010, t01=0x0146}
0x01a4c…01a6e               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0010, t01=0x0150}
0x01a6e…01a90               Head {h00=0x001e, h01=0x0050, text=»*   0 .  DWTCHP         . «, t00=0x0010, t01=0x0172}
0x01a90…01ab2 (17, 0, 400)  Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0011, t01=0x0004}
0x01ab2…01ad4               Head {h00=0x001e, h01=0x0050, text=»*   2 .  DWTST          . «, t00=0x0011, t01=0x0026}
0x01ad4…01af6               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0011, t01=0x0048}
0x01af6…01b18               Head {h00=0x001e, h01=0x0050, text=»*   4 .  DWTECB         . «, t00=0x0011, t01=0x006a}
0x01b18…01b3a               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0011, t01=0x008c}
0x01b3a…01b5c               Head {h00=0x001e, h01=0x0050, text=»*   6 . DWTOPT . DWTOR  . «, t00=0x0011, t01=0x00ae}
0x01b5c…01b7e               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0011, t01=0x00d0}
0x01b7e…01ba0               Head {h00=0x001e, h01=0x0050, text=»*   8 .  DWTADR         . «, t00=0x0011, t01=0x00f2}
0x01ba0…01bc2               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0011, t01=0x0114}
0x01bc2…01be4               Head {h00=0x001e, h01=0x0050, text=»*  10 .  DWTTAB         . «, t00=0x0011, t01=0x0136}
0x01be4…01c06               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0011, t01=0x0158}
0x01c06…01c28               Head {h00=0x001e, h01=0x0050, text=»*  12 .  DWTWAT         . «, t00=0x0011, t01=0x017a}
0x01c28…01c4a               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0012, t01=0x000c}
0x01c4a…01c6c               Head {h00=0x001e, h01=0x0050, text=»*  14 .  DWTTQ          . «, t00=0x0012, t01=0x002e}
0x01c6c…01c8e               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0012, t01=0x0050}
0x01c8e…01cbe               Head {h00=0x002c, h01=0x0050, text=»* (16).  DWTUEC         .   IF   MMUPAG «, t00=0x0012, t01=0x0072}
0x01cbe…01ce0               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0012, t01=0x00a2}
0x01ce0…01d10               Head {h00=0x002c, h01=0x0050, text=»* (18).  DWTMEC         .   IF   MMUPAG «, t00=0x0012, t01=0x00c4}
0x01d10…01d32               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0012, t01=0x00f4}
0x01d32…01d5a               Head {h00=0x0024, h01=0x0050, text=»* DWTDRD  +2 .  DWTSTB         .«, t00=0x0012, t01=0x0116}
0x01d5a…01d82               Head {h00=0x0024, h01=0x0050, text=»*            ...................«, t00=0x0012, t01=0x013e}
0x01d82…01da4               Head {h00=0x001e, h01=0x0050, text=»*  +4 .  DWTCHD         . «, t00=0x0012, t01=0x0166}
0x01da4…01dc6               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0012, t01=0x0188}
0x01dc6…01de8               Head {h00=0x001e, h01=0x0050, text=»*  +6 .  DWTCHN         . «, t00=0x0013, t01=0x001a}
0x01de8…01e0a               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0013, t01=0x003c}
0x01e0a…01e2c               Head {h00=0x001e, h01=0x0050, text=»*  +8 .  DWTLAD         . «, t00=0x0013, t01=0x005e}
0x01e2c…01e4e               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0013, t01=0x0080}
0x01e4e…01e70               Head {h00=0x001e, h01=0x0050, text=»* +10 .  DWTRAD         . «, t00=0x0013, t01=0x00a2}
0x01e70…01e92               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0013, t01=0x00c4}
0x01e92…01eb4               Head {h00=0x001e, h01=0x0050, text=»* +12 .  DWTDR1/SUB     . «, t00=0x0013, t01=0x00e6}
0x01eb4…01ed6               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0013, t01=0x0108}
0x01ed6…01ef8               Head {h00=0x001e, h01=0x0050, text=»* +14 .  DWTRCL         . «, t00=0x0013, t01=0x012a}
0x01ef8…01f1a               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0013, t01=0x014c}
0x01f1a…01f3c               Head {h00=0x001e, h01=0x0050, text=»* +16 .  DWTRTV         . «, t00=0x0013, t01=0x016e}
0x01f3c…01f5e               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0013, t01=0x0190}
0x01f5e…01f80               Head {h00=0x001e, h01=0x0050, text=»* +18 .  DWTRTP         . «, t00=0x0014, t01=0x0022}
0x01f80…01fa2               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0014, t01=0x0044}
0x01fa2…01fc4               Head {h00=0x001e, h01=0x0050, text=»* +20 .  DWTOPE         . «, t00=0x0014, t01=0x0066}
0x01fc4…01fe6               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0014, t01=0x0088}
0x01fe6…02008               Head {h00=0x001e, h01=0x0050, text=»* +22 .  DWTOPN         . «, t00=0x0014, t01=0x00aa}
0x02008…0202a               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0014, t01=0x00cc}
0x0202a…0204c               Head {h00=0x001e, h01=0x0050, text=»* +24 .  DWTIPC         . «, t00=0x0014, t01=0x00ee}
0x0204c…0206e               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0014, t01=0x0110}
0x0206e…02090               Head {h00=0x001e, h01=0x0050, text=»* +26 .  DWTIPT         . «, t00=0x0014, t01=0x0132}
0x02090…020b2               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0014, t01=0x0154}
0x020b2…020d4               Head {h00=0x001e, h01=0x0050, text=»* +28 .                 . «, t00=0x0014, t01=0x0176}
0x020d4…020f6               Head {h00=0x001e, h01=0x0050, text=»*     /  DRIVER DEPEND  / «, t00=0x0015, t01=0x0008}
0x020f6…02118               Head {h00=0x001e, h01=0x0050, text=»*     /                 / «, t00=0x0015, t01=0x002a}
0x02118…0213a               Head {h00=0x001e, h01=0x0050, text=»*     /                 / «, t00=0x0015, t01=0x004c}
0x0213a…0215c               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0015, t01=0x006e}
0x0215c…02198               Head {h00=0x0038, h01=0x0050, text=»*     .  STATISTIC      .   IF STAT   AND DWTSTB /=0«, t00=0x0015, t01=0x0090}
0x02198…021ba               Head {h00=0x001e, h01=0x0050, text=»*     /  BUFFER         / «, t00=0x0015, t01=0x00cc}
0x021ba…021dc               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0015, t01=0x00ee}
0x021dc…021e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0110}
0x021e6…021f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x011a}
0x021f4…021fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0128}
0x021fe…02240               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0015, t01=0x0132}
0x02240…0224a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0174}
0x0224a…02274               Head {h00=0x0026, h01=0x0050, text=»* D W T  D I S P L A C E M E N T S«, t00=0x0015, t01=0x017e}
0x02274…0227e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0018}
0x0227e…022c0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0016, t01=0x0022}
0x022c0…022ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0064}
0x022ca…022ee               Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU /0E TERMINAL QUEUE«, t00=0x0016, t01=0x006e}
0x022ee…02304               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0016, t01=0x0092}
0x02304…0233e               Head {h00=0x0036, h01=0x0050, text=»DWTDRD EQU DWTTQ+2 START OF DRIVER DEPENDENT AREA «, t00=0x0016, t01=0x00a8}
0x0233e…0234a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00e2}
0x0234a…02360               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0016, t01=0x00ee}
0x02360…0239a               Head {h00=0x0036, h01=0x0050, text=»DWTDRD EQU DWTTQ+6 START OF DRIVER DEPENDENT AREA «, t00=0x0016, t01=0x0104}
0x0239a…023a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x013e}
0x023a6…023ee               Head {h00=0x0044, h01=0x0050, text=»DWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY «, t00=0x0016, t01=0x014a}
0x023ee…02424 (23, 0, 400)  Head {h00=0x0032, h01=0x0050, text=»DWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT«, t00=0x0017, t01=0x0004}
0x02424…0245a               Head {h00=0x0032, h01=0x0050, text=»DWTCHN EQU DWTDRD+4 CONFIG CHAIN LINK NEXT DWT«, t00=0x0017, t01=0x003a}
0x0245a…02490               Head {h00=0x0032, h01=0x0050, text=»DWTLAD EQU DWTDRD+6 LOCAL SYMBOLIC DTE ADDRESS«, t00=0x0017, t01=0x0070}
0x02490…024c8               Head {h00=0x0034, h01=0x0050, text=»DWTRAD EQU DWTDRD+8 REMOTE SYMBOLIC DTE ADDRESS «, t00=0x0017, t01=0x00a6}
0x024c8…024f6               Head {h00=0x002a, h01=0x0050, text=»DWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1«, t00=0x0017, t01=0x00de}
0x024f6…02524               Head {h00=0x002a, h01=0x0050, text=»DWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS «, t00=0x0017, t01=0x010c}
0x02524…02556               Head {h00=0x002e, h01=0x0050, text=»DWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD «, t00=0x0017, t01=0x013a}
0x02556…02586               Head {h00=0x002c, h01=0x0050, text=»DWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE«, t00=0x0017, t01=0x016c}
0x02586…025b8               Head {h00=0x002e, h01=0x0050, text=»DWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER«, t00=0x0018, t01=0x000c}
0x025b8…025fe               Head {h00=0x0042, h01=0x0050, text=»DWTOPE EQU DWTDRD+18 O/P DATA Q EXPEDITED/STATUS LINK NXT DWT «, t00=0x0018, t01=0x003e}
0x025fe…0263a               Head {h00=0x0038, h01=0x0050, text=»DWTOPN EQU DWTDRD+20 O/P DATA Q NORMAL LINK NXT DWT «, t00=0x0018, t01=0x0084}
0x0263a…02670               Head {h00=0x0032, h01=0x0050, text=»DWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER«, t00=0x0018, t01=0x00c0}
0x02670…026a4               Head {h00=0x0030, h01=0x0050, text=»DWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER «, t00=0x0018, t01=0x00f6}
0x026a4…026d0               Head {h00=0x0028, h01=0x0050, text=»DWTCUR EQU DWTDRD+26 CURSOR ADDRESS «, t00=0x0018, t01=0x012a}
0x026d0…02702               Head {h00=0x002e, h01=0x0050, text=»DWTBUF EQU DWTDRD+28 DEVICE BUFFER ADDRESS«, t00=0x0018, t01=0x0156}
0x02702…0272a               Head {h00=0x0024, h01=0x0050, text=»DWTSTA EQU DWTDRD+30 DWT STATUS «, t00=0x0018, t01=0x0188}
0x0272a…02738               Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0019, t01=0x0020}
0x02738…02786               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0019, t01=0x002e}
0x02786…02790               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0019, t01=0x007c}
0x02790…027b0               Head {h00=0x001c, h01=0x0050, text=»* DTE, DTE CONTROL TABLE«, t00=0x0019, t01=0x0086}
0x027b0…027ba               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0019, t01=0x00a6}
0x027ba…0280a               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0019, t01=0x00b0}
0x0280a…02814               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0019, t01=0x0100}
0x02814…02836               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0019, t01=0x010a}
0x02836…02858               Head {h00=0x001e, h01=0x0050, text=»*   0 .  DTECHP         . «, t00=0x0019, t01=0x012c}
0x02858…0287a               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x0019, t01=0x014e}
0x0287a…0289c               Head {h00=0x001e, h01=0x0050, text=»*   2 .  DTEST          . «, t00=0x0019, t01=0x0170}
0x0289c…028be (26, 0, 400)  Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001a, t01=0x0004}
0x028be…028e0               Head {h00=0x001e, h01=0x0050, text=»*   4 .  DTEECB         . «, t00=0x001a, t01=0x0026}
0x028e0…02902               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001a, t01=0x0048}
0x02902…02924               Head {h00=0x001e, h01=0x0050, text=»*   6 . DTEOPT . DTEOR  . «, t00=0x001a, t01=0x006a}
0x02924…02946               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001a, t01=0x008c}
0x02946…02968               Head {h00=0x001e, h01=0x0050, text=»*   8 .  DTEADR         . «, t00=0x001a, t01=0x00ae}
0x02968…0298a               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001a, t01=0x00d0}
0x0298a…029ac               Head {h00=0x001e, h01=0x0050, text=»*  10 .  DTETAB         . «, t00=0x001a, t01=0x00f2}
0x029ac…029ce               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001a, t01=0x0114}
0x029ce…029f0               Head {h00=0x001e, h01=0x0050, text=»*  12 .  DTEWAT         . «, t00=0x001a, t01=0x0136}
0x029f0…02a12               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001a, t01=0x0158}
0x02a12…02a34               Head {h00=0x001e, h01=0x0050, text=»*  14 .  DTETQ          . «, t00=0x001a, t01=0x017a}
0x02a34…02a56               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001b, t01=0x000c}
0x02a56…02a86               Head {h00=0x002c, h01=0x0050, text=»* (16).  DTEUEC         .   IF   MMUPAG «, t00=0x001b, t01=0x002e}
0x02a86…02aa8               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001b, t01=0x005e}
0x02aa8…02ad8               Head {h00=0x002c, h01=0x0050, text=»* (18).  DTEMEC         .   IF   MMUPAG «, t00=0x001b, t01=0x0080}
0x02ad8…02afa               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001b, t01=0x00b0}
0x02afa…02b22               Head {h00=0x0024, h01=0x0050, text=»* DTEDRD  +2 .  DTESTB         .«, t00=0x001b, t01=0x00d2}
0x02b22…02b4a               Head {h00=0x0024, h01=0x0050, text=»*            ...................«, t00=0x001b, t01=0x00fa}
0x02b4a…02b6c               Head {h00=0x001e, h01=0x0050, text=»*  +4 .  DTECHD         . «, t00=0x001b, t01=0x0122}
0x02b6c…02b8e               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001b, t01=0x0144}
0x02b8e…02bb0               Head {h00=0x001e, h01=0x0050, text=»*  +6 .  DTECHN         . «, t00=0x001b, t01=0x0166}
0x02bb0…02bd2               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001b, t01=0x0188}
0x02bd2…02bf4               Head {h00=0x001e, h01=0x0050, text=»*  +8 .  DTELAD         . «, t00=0x001c, t01=0x001a}
0x02bf4…02c16               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001c, t01=0x003c}
0x02c16…02c38               Head {h00=0x001e, h01=0x0050, text=»* +10 .                 . «, t00=0x001c, t01=0x005e}
0x02c38…02c5a               Head {h00=0x001e, h01=0x0050, text=»*     /  DRIVER DEPEND  / «, t00=0x001c, t01=0x0080}
0x02c5a…02c7c               Head {h00=0x001e, h01=0x0050, text=»*     /                 / «, t00=0x001c, t01=0x00a2}
0x02c7c…02c9e               Head {h00=0x001e, h01=0x0050, text=»*     /                 / «, t00=0x001c, t01=0x00c4}
0x02c9e…02cc0               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001c, t01=0x00e6}
0x02cc0…02cfc               Head {h00=0x0038, h01=0x0050, text=»*     .  STATISTIC      .   IF STAT   AND DTESTB /=0«, t00=0x001c, t01=0x0108}
0x02cfc…02d1e               Head {h00=0x001e, h01=0x0050, text=»*     /  BUFFER         / «, t00=0x001c, t01=0x0144}
0x02d1e…02d40               Head {h00=0x001e, h01=0x0050, text=»*     ................... «, t00=0x001c, t01=0x0166}
0x02d40…02d4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0188}
0x02d4a…02d5e (29, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»DTETQ EQU 14«, t00=0x001d, t01=0x0004}
0x02d5e…02d78               Head {h00=0x0016, h01=0x0050, text=»DTEUEC EQU DTETQ+2«, t00=0x001d, t01=0x0018}
0x02d78…02d94               Head {h00=0x0018, h01=0x0050, text=»DTEMEC EQU DTEUEC+2 «, t00=0x001d, t01=0x0032}
0x02d94…02d9c               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x004e}
0x02d9c…02db2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001d, t01=0x0056}
0x02db2…02de8               Head {h00=0x0032, h01=0x0050, text=»DTEDRD EQU DTETQ+2 START OF DC DEPENDENT AREA «, t00=0x001d, t01=0x006c}
0x02de8…02df4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00a2}
0x02df4…02e0a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x00ae}
0x02e0a…02e40               Head {h00=0x0032, h01=0x0050, text=»DTEDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA«, t00=0x001d, t01=0x00c4}
0x02e40…02e4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00fa}
0x02e4c…02e94               Head {h00=0x0044, h01=0x0050, text=»DTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY «, t00=0x001d, t01=0x0106}
0x02e94…02eca               Head {h00=0x0032, h01=0x0050, text=»DTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE«, t00=0x001d, t01=0x014e}
0x02eca…02f00               Head {h00=0x0032, h01=0x0050, text=»DTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE«, t00=0x001d, t01=0x0184}
0x02f00…02f36               Head {h00=0x0032, h01=0x0050, text=»DTELAD EQU DTEDRD+6 LOCAL SYMBOLIC DTE ADDRESS«, t00=0x001e, t01=0x002a}
0x02f36…02f50               Head {h00=0x0016, h01=0x0050, text=»* DRIVER DEPENDENT«, t00=0x001e, t01=0x0060}
0x02f50…02f80               Head {h00=0x002c, h01=0x0050, text=»DTEPLS EQU DTEDRD+8 PHYSICAL LINK STATUS«, t00=0x001e, t01=0x007a}
0x02f80…02fae               Head {h00=0x002a, h01=0x0050, text=»DTEDLS EQU DTEDRD+10 DATA LINK STATUS «, t00=0x001e, t01=0x00aa}
0x02fae…02fd6               Head {h00=0x0024, h01=0x0050, text=»DTESTA EQU DTEDRD+12 DTE STATUS «, t00=0x001e, t01=0x00d8}
0x02fd6…03002               Head {h00=0x0028, h01=0x0050, text=»DTEDWT EQU DTEDRD+14 CHAIN LINK  DWT«, t00=0x001e, t01=0x0100}
0x03002…03036               Head {h00=0x0030, h01=0x0050, text=»DTEDDT EQU DTEDRD+16 CHAIN LINK  DISCARD DWT«, t00=0x001e, t01=0x012c}
0x03036…03050               Head {h00=0x0016, h01=0x0050, text=»* STATITICS BUFFER«, t00=0x001e, t01=0x0160}
0x03050…03086               Head {h00=0x0032, h01=0x0050, text=»STWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID «, t00=0x001e, t01=0x017a}
0x03086…030b8               Head {h00=0x002e, h01=0x0050, text=»STWCST EQU DTEDRD+20 COUNTER STATUS INDEX «, t00=0x001f, t01=0x0020}
0x030b8…030e6               Head {h00=0x002a, h01=0x0050, text=»STWMIX EQU DTEDRD+22 MAX COUNTER INDEX«, t00=0x001f, t01=0x0052}
0x030e6…0310c               Head {h00=0x0022, h01=0x0050, text=»STWCTA EQU DTEDRD+24 COUNTERS «, t00=0x001f, t01=0x0080}
0x0310c…0311a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00a6}
0x0311a…03168               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x001f, t01=0x00b4}
0x03168…03172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0102}
0x03172…031a2               Head {h00=0x002c, h01=0x0050, text=»* COUNTER INDECES - PARAMETER-1 EQUATES «, t00=0x001f, t01=0x010c}
0x031a2…031ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x031ac…031ce               Head {h00=0x001e, h01=0x0050, text=»* REQUEST LEVEL COUNTERS: «, t00=0x001f, t01=0x0146}
0x031ce…031d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0168}
0x031d8…03220               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x001f, t01=0x0172}
0x03220…0322a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002a}
0x0322a…03258               Head {h00=0x002a, h01=0x0050, text=»CSRCON EQU /01 CONNECTIONS ESTABLISHED«, t00=0x0020, t01=0x0034}
0x03258…03290               Head {h00=0x0034, h01=0x0050, text=»CSRCBY EQU /02 CONNECTION NOT ESTABLISHED - BUSY«, t00=0x0020, t01=0x0062}
0x03290…032b8               Head {h00=0x0024, h01=0x0050, text=»CSRMSR EQU /03 MESSAGES RECEIVED«, t00=0x0020, t01=0x009a}
0x032b8…032e2               Head {h00=0x0026, h01=0x0050, text=»CSRCHR EQU /C5 CHARACTERS RECEIVED«, t00=0x0020, t01=0x00c2}
0x032e2…0330e               Head {h00=0x0028, h01=0x0050, text=»CSRMST EQU /06 MESSAGES TRANSMITTED «, t00=0x0020, t01=0x00ec}
0x0330e…0333c               Head {h00=0x002a, h01=0x0050, text=»CSRCHT EQU /C8 CHARACTERS TRANSMITTED «, t00=0x0020, t01=0x0118}
0x0333c…0335a               Head {h00=0x001a, h01=0x0050, text=»CSRTOP EQU /09 TIMEOUT«, t00=0x0020, t01=0x0146}
0x0335a…03378               Head {h00=0x001a, h01=0x0050, text=»CSRABT EQU /0A ABORTED«, t00=0x0020, t01=0x0164}
0x03378…03394               Head {h00=0x0018, h01=0x0050, text=»CSRERR EQU /0B ERROR«, t00=0x0020, t01=0x0182}
0x03394…033be               Head {h00=0x0026, h01=0x0050, text=»CSRTRE EQU /0C TRANSMISSION ERROR «, t00=0x0021, t01=0x000e}
0x033be…033e8               Head {h00=0x0026, h01=0x0050, text=»CSRXC1 EQU /0D PROTOCOL DEPENDENT «, t00=0x0021, t01=0x0038}
0x033e8…033f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0062}
0x033f2…03410               Head {h00=0x001a, h01=0x0050, text=»* LINK LEVEL COUNTERS «, t00=0x0021, t01=0x006c}
0x03410…0341a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0021, t01=0x008a}
0x0341a…0344c               Head {h00=0x002e, h01=0x0050, text=»CSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED «, t00=0x0021, t01=0x0094}
0x0344c…0348a               Head {h00=0x003a, h01=0x0050, text=»CSSRBY EQU /11   "   DATA BLOCKS REJECTED BUFFER BUSY «, t00=0x0021, t01=0x00c6}
0x0348a…034cc               Head {h00=0x003e, h01=0x0050, text=»CSSRBO EQU /12   "   DATA BLOCKS REJECTED BUFFER OVERFLOW «, t00=0x0021, t01=0x0104}
0x034cc…03506               Head {h00=0x0036, h01=0x0050, text=»CSSRAB EQU /13   "   DATA BLOCKS REJECTED ABORTED «, t00=0x0021, t01=0x0146}
0x03506…03544               Head {h00=0x003a, h01=0x0050, text=»CSSRPE EQU /14   "   DATA BLOCKS REJECTED PARITY ERROR«, t00=0x0021, t01=0x0180}
0x03544…03578               Head {h00=0x0030, h01=0x0050, text=»CSSTBL EQU /15   "   DATA BLOCKS TRANSMITTED«, t00=0x0022, t01=0x002e}
0x03578…035ae               Head {h00=0x0032, h01=0x0050, text=»CSSTRT EQU /16   "   DATA BLOCKS RETRANSMITTED«, t00=0x0022, t01=0x0062}
0x035ae…035de               Head {h00=0x002c, h01=0x0050, text=»CSSTAB EQU /17   "   DATA BLOCKS ABORTED«, t00=0x0022, t01=0x0098}
0x035de…03616               Head {h00=0x0034, h01=0x0050, text=»CSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED«, t00=0x0022, t01=0x00c8}
0x03616…03640               Head {h00=0x0026, h01=0x0050, text=»CSSXC2 EQU /19 PROCEDURE TIME OUTS«, t00=0x0022, t01=0x0100}
0x03640…0367c               Head {h00=0x0038, h01=0x0050, text=»CSSXC3 EQU /1A NBR OF TIMES POLL TIMEOUT HAS OCCURED«, t00=0x0022, t01=0x012a}
0x0367c…03686               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0022, t01=0x0166}
0x03686…03690               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0022, t01=0x0170}
0x03690…0369e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x017a}
0x0369e…036be               Head {h00=0x001c, h01=0x0050, text=»* DTE/DCE LEVEL COUNTERS«, t00=0x0022, t01=0x0188}
0x036be…036c8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0023, t01=0x0018}
0x036c8…036f0               Head {h00=0x0024, h01=0x0050, text=»CSCDTE EQU /28 DTE NOT OPERABLE «, t00=0x0023, t01=0x0022}
0x036f0…0371c               Head {h00=0x0028, h01=0x0050, text=»CSCDIT EQU /29 I/P THROUGHPUT ERROR «, t00=0x0023, t01=0x004a}
0x0371c…03748               Head {h00=0x0028, h01=0x0050, text=»CSCDOT EQU /2A O/P THROUGHPUT ERROR «, t00=0x0023, t01=0x0076}
0x03748…03770               Head {h00=0x0024, h01=0x0050, text=»CSCDCE EQU /2B DCE NOT OPERABLE «, t00=0x0023, t01=0x00a2}
0x03770…0379e               Head {h00=0x002a, h01=0x0050, text=»CSCXC1 EQU /2C CONTROL UNIT DEPENDENT «, t00=0x0023, t01=0x00ca}
0x0379e…037ba               Head {h00=0x0018, h01=0x0050, text=»CSCXC2 EQU /2D     "«, t00=0x0023, t01=0x00f8}
0x037ba…037d6               Head {h00=0x0018, h01=0x0050, text=»CSCXC3 EQU /2E     "«, t00=0x0023, t01=0x0114}
0x037d6…037e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0130}
0x037e4…037ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013e}
0x037ee…037f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0148}
0x037f8…03812               Head {h00=0x0016, h01=0x0050, text=»* REQUEST HANDLING«, t00=0x0023, t01=0x0152}
0x03812…0381c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016c}
0x0381c…03826               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0176}
0x03826…03840               Head {h00=0x0016, h01=0x0050, text=»* ORDER CODE (A7) «, t00=0x0023, t01=0x0180}
0x03840…0384a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000a}
0x0384a…03864               Head {h00=0x0016, h01=0x0050, text=»OPEN EQU /21 OPEN «, t00=0x0024, t01=0x0014}
0x03864…03880               Head {h00=0x0018, h01=0x0050, text=»CLOSE EQU /22 CLOSE «, t00=0x0024, t01=0x002e}
0x03880…038a6               Head {h00=0x0022, h01=0x0050, text=»CONPAS EQU /27 CONNECT PASSIVE«, t00=0x0024, t01=0x004a}
0x038a6…038c6               Head {h00=0x001c, h01=0x0050, text=»DISCO EQU /2F DISCONNECT«, t00=0x0024, t01=0x0070}
0x038c6…038e6               Head {h00=0x001c, h01=0x0050, text=»RECEIVE EQU /02 RECEIVE «, t00=0x0024, t01=0x0090}
0x038e6…03900               Head {h00=0x0016, h01=0x0050, text=»SEND EQU /06 SEND «, t00=0x0024, t01=0x00b0}
0x03900…03922               Head {h00=0x001e, h01=0x0050, text=»RSTAT EQU /00 READ STATUS «, t00=0x0024, t01=0x00ca}
0x03922…03942               Head {h00=0x001c, h01=0x0050, text=»SSTAT EQU /38 SET STATUS«, t00=0x0024, t01=0x00ec}
0x03942…0396e               Head {h00=0x0028, h01=0x0050, text=»STATIS EQU /2D READ/RESET STATISTICS«, t00=0x0024, t01=0x010c}
0x0396e…03996               Head {h00=0x0024, h01=0x0050, text=»STIMOT EQU /39 SET TIMEOUT VALUE«, t00=0x0024, t01=0x0138}
0x03996…039a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0160}
0x039a0…039b2               Head {h00=0x000e, h01=0x0050, text=»* OPTIONS:«, t00=0x0024, t01=0x016a}
0x039b2…039bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017c}
0x039bc…039f2               Head {h00=0x0032, h01=0x0050, text=»TYPRR EQU /4343 RESET STATISTICS AFTER READ =5«, t00=0x0024, t01=0x0186}
0x039f2…03a00               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x002c}
0x03a00…03a0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003a}
0x03a0a…03a4c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0025, t01=0x0044}
0x03a4c…03a56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0086}
0x03a56…03a88               Head {h00=0x002e, h01=0x0050, text=»* S O F T W A R E  R E T U R N  C O D E S «, t00=0x0025, t01=0x0090}
0x03a88…03a92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c2}
0x03a92…03ad4               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0025, t01=0x00cc}
0x03ad4…03ade               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x010e}
0x03ade…03b2e               Head {h00=0x004c, h01=0x0050, text=»*---------------------------------------------------------------------- «, t00=0x0025, t01=0x0118}
0x03b2e…03b54               Head {h00=0x0022, h01=0x0050, text=»R:REQ EQU /8000 REQUEST ERROR «, t00=0x0025, t01=0x0168}
0x03b54…03b7c               Head {h00=0x0024, h01=0x0050, text=»R:ABRT EQU /4000 REQUEST ABORTED«, t00=0x0025, t01=0x018e}
0x03b7c…03b92               Head {h00=0x0012, h01=0x0050, text=»R:2 EQU /2000 «, t00=0x0026, t01=0x0026}
0x03b92…03ba8               Head {h00=0x0012, h01=0x0050, text=»R:3 EQU /1000 «, t00=0x0026, t01=0x003c}
0x03ba8…03bf6               Head {h00=0x004a, h01=0x0050, text=»*---------------------------------------------------------------------«, t00=0x0026, t01=0x0052}
0x03bf6…03c0c               Head {h00=0x0012, h01=0x0050, text=»R:4 EQU /0800 «, t00=0x0026, t01=0x00a0}
0x03c0c…03c22               Head {h00=0x0012, h01=0x0050, text=»R:5 EQU /0400 «, t00=0x0026, t01=0x00b6}
0x03c22…03c38               Head {h00=0x0012, h01=0x0050, text=»R:6 EQU /0200 «, t00=0x0026, t01=0x00cc}
0x03c38…03c68               Head {h00=0x002c, h01=0x0050, text=»R:DATA EQU /0100 DATA AVAILABLE (QUEUED)«, t00=0x0026, t01=0x00e2}
0x03c68…03cb6               Head {h00=0x004a, h01=0x0050, text=»*---------------------------------------------------------------------«, t00=0x0026, t01=0x0112}
0x03cb6…03ccc               Head {h00=0x0012, h01=0x0050, text=»R:8 EQU /0080 «, t00=0x0026, t01=0x0160}
0x03ccc…03cee               Head {h00=0x001e, h01=0x0050, text=»R:TIME EQU /0040 TIME OUT «, t00=0x0026, t01=0x0176}
0x03cee…03d04               Head {h00=0x0012, h01=0x0050, text=»R:10 EQU /0020«, t00=0x0027, t01=0x0008}
0x03d04…03d2a               Head {h00=0x0022, h01=0x0050, text=»R:SEQ EQU /0010 SEQUENCE ERROR«, t00=0x0027, t01=0x001e}
0x03d2a…03d78               Head {h00=0x004a, h01=0x0050, text=»*---------------------------------------------------------------------«, t00=0x0027, t01=0x0044}
0x03d78…03da0               Head {h00=0x0024, h01=0x0050, text=»R:LGTH EQU /0008 ILLEGAL LENGTH «, t00=0x0027, t01=0x0092}
0x03da0…03db6               Head {h00=0x0012, h01=0x0050, text=»R:13 EQU /0004«, t00=0x0027, t01=0x00ba}
0x03db6…03de8               Head {h00=0x002e, h01=0x0050, text=»R:LOGC EQU /0002 LOGICAL CONNECTION ERROR «, t00=0x0027, t01=0x00d0}
0x03de8…03e1a               Head {h00=0x002e, h01=0x0050, text=»R:PHYC EQU /0001 PHYSICAL CONNECTION ERROR«, t00=0x0027, t01=0x0102}
0x03e1a…03e6a               Head {h00=0x004c, h01=0x0050, text=»*---------------------------------------------------------------------- «, t00=0x0027, t01=0x0134}
0x03e6a…03e74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0184}
0x03e74…03e82               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x018e}
0x03e82…03e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000c}
0x03e8c…03ecc               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0028, t01=0x0016}
0x03ecc…03ed6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0056}
0x03ed6…03f08               Head {h00=0x002e, h01=0x0050, text=»* H A R D W A R E  R E T U R N  C O D E S «, t00=0x0028, t01=0x0060}
0x03f08…03f12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0092}
0x03f12…03f54               Head {h00=0x003e, h01=0x0050, text=»*********************************************************=«, t00=0x0028, t01=0x009c}
0x03f54…03f5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00de}
0x03f5e…03fae               Head {h00=0x004c, h01=0x0050, text=»*---------------------------------------------------------------------- «, t00=0x0028, t01=0x00e8}
0x03fae…03fc4               Head {h00=0x0012, h01=0x0050, text=»H:0 EQU /8000 «, t00=0x0028, t01=0x0138}
0x03fc4…03fda               Head {h00=0x0012, h01=0x0050, text=»H:1 EQU /4000 «, t00=0x0028, t01=0x014e}
0x03fda…03ff0               Head {h00=0x0012, h01=0x0050, text=»H:2 EQU /2000 «, t00=0x0028, t01=0x0164}
0x03ff0…04006               Head {h00=0x0012, h01=0x0050, text=»H:3 EQU /1000 «, t00=0x0028, t01=0x017a}
0x04006…04056               Head {h00=0x004c, h01=0x0050, text=»*---------------------------------------------------------------------- «, t00=0x0028, t01=0x0190}
0x04056…0406c               Head {h00=0x0012, h01=0x0050, text=»H:4 EQU /0800 «, t00=0x0029, t01=0x0050}
0x0406c…04082               Head {h00=0x0012, h01=0x0050, text=»H:5 EQU /0400 «, t00=0x0029, t01=0x0066}
0x04082…04098               Head {h00=0x0012, h01=0x0050, text=»H:6 EQU /0200 «, t00=0x0029, t01=0x007c}
0x04098…040ae               Head {h00=0x0012, h01=0x0050, text=»H:7 EQU /0100 «, t00=0x0029, t01=0x0092}
0x040ae…040fe               Head {h00=0x004c, h01=0x0050, text=»*---------------------------------------------------------------------- «, t00=0x0029, t01=0x00a8}
0x040fe…04114               Head {h00=0x0012, h01=0x0050, text=»H:8 EQU /0080 «, t00=0x0029, t01=0x00f8}
0x04114…0412a               Head {h00=0x0012, h01=0x0050, text=»H:9 EQU /0040 «, t00=0x0029, t01=0x010e}
0x0412a…0414e               Head {h00=0x0020, h01=0x0050, text=»H:CARR EQU /0020 CARRIER OFF«, t00=0x0029, t01=0x0124}
0x0414e…04164               Head {h00=0x0012, h01=0x0050, text=»H:11 EQU /0010«, t00=0x0029, t01=0x0148}
0x04164…041b2               Head {h00=0x004a, h01=0x0050, text=»*-------------------------------------------------------------------- «, t00=0x0029, t01=0x015e}
0x041b2…041c8               Head {h00=0x0012, h01=0x0050, text=»H:12 EQU /0008«, t00=0x002a, t01=0x001c}
0x041c8…041ee               Head {h00=0x0022, h01=0x0050, text=»H:PARI EQU /0004 PARITY ERROR «, t00=0x002a, t01=0x0032}
0x041ee…04218               Head {h00=0x0026, h01=0x0050, text=»H:THRU EQU /0002 THROUGHPUT ERROR «, t00=0x002a, t01=0x0058}
0x04218…0423e               Head {h00=0x0022, h01=0x0050, text=»H:NOOP EQU /0001 NOT OPERABLE «, t00=0x002a, t01=0x0082}
0x0423e…0428e               Head {h00=0x004c, h01=0x0050, text=»*---------------------------------------------------------------------- «, t00=0x002a, t01=0x00a8}
0x0428e…042a0               Head {h00=0x000e, h01=0x0050, text=» EJECT    «, t00=0x002a, t01=0x00f8}
0x042a0…042e2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x010a}
0x042e2…042ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x014c}
0x042ec…04310               Head {h00=0x0020, h01=0x0050, text=»* LINE CONTROL CHAR EQU:S   «, t00=0x002a, t01=0x0156}
0x04310…0431e               Head {h00=0x000a, h01=0x0050, text=»*     «, t00=0x002a, t01=0x017a}
0x0431e…04360               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x0188}
0x04360…0436a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003a}
0x0436a…04394               Head {h00=0x0026, h01=0x0050, text=»SF EQU X'1D' START FIELD CHARACTER«, t00=0x002b, t01=0x0044}
0x04394…043a8               Head {h00=0x0010, h01=0x0050, text=»SYN EQU /16 «, t00=0x002b, t01=0x006e}
0x043a8…043bc               Head {h00=0x0010, h01=0x0050, text=»STX EQU /02 «, t00=0x002b, t01=0x0082}
0x043bc…043d0               Head {h00=0x0010, h01=0x0050, text=»ETX EQU /03 «, t00=0x002b, t01=0x0096}
0x043d0…043e4               Head {h00=0x0010, h01=0x0050, text=»ETB EQU /17 «, t00=0x002b, t01=0x00aa}
0x043e4…043f8               Head {h00=0x0010, h01=0x0050, text=»ITB EQU /1F «, t00=0x002b, t01=0x00be}
0x043f8…0440c               Head {h00=0x0010, h01=0x0050, text=»SOH EQU /01 «, t00=0x002b, t01=0x00d2}
0x0440c…04420               Head {h00=0x0010, h01=0x0050, text=»ENQ EQU /05 «, t00=0x002b, t01=0x00e6}
0x04420…04434               Head {h00=0x0010, h01=0x0050, text=»DLE EQU /10 «, t00=0x002b, t01=0x00fa}
0x04434…04448               Head {h00=0x0010, h01=0x0050, text=»EOT EQU /04 «, t00=0x002b, t01=0x010e}
0x04448…0445c               Head {h00=0x0010, h01=0x0050, text=»NAK EQU /15 «, t00=0x002b, t01=0x0122}
0x0445c…04470               Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x002b, t01=0x0136}
0x04470…04484               Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x002b, t01=0x014a}
0x04484…04496               Head {h00=0x000e, h01=0x0050, text=»GP EQU /22«, t00=0x002b, t01=0x015e}
0x04496…044ac               Head {h00=0x0012, h01=0x0050, text=»RDBCOM EQU /32«, t00=0x002b, t01=0x0170}
0x044ac…044c2               Head {h00=0x0012, h01=0x0050, text=»RDMCOM EQU /36«, t00=0x002b, t01=0x0186}
0x044c2…044d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x000c}
0x044d0…044e4               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x002c, t01=0x001a}
0x044e4…044f8               Head {h00=0x0010, h01=0x0050, text=»PAR EQU /80 «, t00=0x002c, t01=0x002e}
0x044f8…0450c               Head {h00=0x0010, h01=0x0050, text=»RVI EQU /3C «, t00=0x002c, t01=0x0042}
0x0450c…04520               Head {h00=0x0010, h01=0x0050, text=»ACK0 EQU /30«, t00=0x002c, t01=0x0056}
0x04520…04534               Head {h00=0x0010, h01=0x0050, text=»ACK1 EQU /31«, t00=0x002c, t01=0x006a}
0x04534…04548               Head {h00=0x0010, h01=0x0050, text=»DC1 EQU /11 «, t00=0x002c, t01=0x007e}
0x04548…0455c               Head {h00=0x0010, h01=0x0050, text=» IFT MSV1=0 «, t00=0x002c, t01=0x0092}
0x0455c…04570               Head {h00=0x0010, h01=0x0050, text=»WACK EQU /3B«, t00=0x002c, t01=0x00a6}
0x04570…0457c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00ba}
0x0457c…04590               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x002c, t01=0x00c6}
0x04590…045a4               Head {h00=0x0010, h01=0x0050, text=» IFT MSV1=1 «, t00=0x002c, t01=0x00da}
0x045a4…045d8               Head {h00=0x0030, h01=0x0050, text=»WACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE «, t00=0x002c, t01=0x00ee}
0x045d8…045e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0122}
0x045e4…045f8               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x002c, t01=0x012e}
0x045f8…0460c               Head {h00=0x0010, h01=0x0050, text=»PAR EQU /00 «, t00=0x002c, t01=0x0142}
0x0460c…04620               Head {h00=0x0010, h01=0x0050, text=»WACK EQU /2C«, t00=0x002c, t01=0x0156}
0x04620…04634               Head {h00=0x0010, h01=0x0050, text=»RVI EQU /40 «, t00=0x002c, t01=0x016a}
0x04634…04648               Head {h00=0x0010, h01=0x0050, text=»ACK0 EQU /18«, t00=0x002c, t01=0x017e}
0x04648…0465c (45, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»ACK1 EQU /2F«, t00=0x002d, t01=0x0004}
0x0465c…04672               Head {h00=0x0012, h01=0x0050, text=»SYNEBC EQU /32«, t00=0x002d, t01=0x0018}
0x04672…04688               Head {h00=0x0012, h01=0x0050, text=»ENQEBC EQU /2D«, t00=0x002d, t01=0x002e}
0x04688…0469e               Head {h00=0x0012, h01=0x0050, text=»ETBEBC EQU /26«, t00=0x002d, t01=0x0044}
0x0469e…046aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x005a}
0x046aa…046be               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=0«, t00=0x002d, t01=0x0066}
0x046be…046d8               Head {h00=0x0016, h01=0x0050, text=»ENQPAR EQU ENQ+PAR«, t00=0x002d, t01=0x007a}
0x046d8…046f2               Head {h00=0x0016, h01=0x0050, text=»RVIPAR EQU RVI+PAR«, t00=0x002d, t01=0x0094}
0x046f2…0470e               Head {h00=0x0018, h01=0x0050, text=»ACKPAR EQU ACK0+PAR «, t00=0x002d, t01=0x00ae}
0x0470e…0471a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00ca}
0x0471a…0472e               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x002d, t01=0x00d6}
0x0472e…04744               Head {h00=0x0012, h01=0x0050, text=»ENQPAR EQU ENQ«, t00=0x002d, t01=0x00ea}
0x04744…0475a               Head {h00=0x0012, h01=0x0050, text=»RVIPAR EQU RVI«, t00=0x002d, t01=0x0100}
0x0475a…04772               Head {h00=0x0014, h01=0x0050, text=»ACKPAR EQU ACK0 «, t00=0x002d, t01=0x0116}
0x04772…0477e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x012e}
0x0477e…0478c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x013a}
0x0478c…04796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0148}
0x04796…047a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0152}
0x047a0…047c8               Head {h00=0x0024, h01=0x0050, text=»* 3270 SENSE/STATUS INFORMATION «, t00=0x002d, t01=0x015c}
0x047c8…047d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0184}
0x047d2…047dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x018e}
0x047dc…047f2               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x002e, t01=0x0008}
0x047f2…04824               Head {h00=0x002e, h01=0x0050, text=»SSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE «, t00=0x002e, t01=0x001e}
0x04824…0482e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0050}
0x0482e…04838               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005a}
0x04838…0484c               Head {h00=0x0010, h01=0x0050, text=» DATA /4248 «, t00=0x002e, t01=0x0064}
0x0484c…04860               Head {h00=0x0010, h01=0x0050, text=» DATA /4242 «, t00=0x002e, t01=0x0078}
0x04860…0486a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008c}
0x0486a…048a0               Head {h00=0x0032, h01=0x0050, text=»NOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED «, t00=0x002e, t01=0x0096}
0x048a0…048d0               Head {h00=0x002c, h01=0x0050, text=»IR EQU /26 S/S 1 : INTERVENTION REQUIRED«, t00=0x002e, t01=0x00cc}
0x048d0…048dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00fc}
0x048dc…048e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0108}
0x048e6…048f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0112}
0x048f0…04906               Head {h00=0x0012, h01=0x0050, text=»* TIMER VALUES«, t00=0x002e, t01=0x011c}
0x04906…04910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0132}
0x04910…0491a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x013c}
0x0491a…04946               Head {h00=0x0028, h01=0x0050, text=»TIMPRO EQU 30 PROCEDURE TIMER 3 SEC «, t00=0x002e, t01=0x0146}
0x04946…04950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0172}
0x04950…0495a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017c}
0x0495a…04968               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0186}
0x04968…049ae (47, 0, 400)  Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002f, t01=0x0004}
0x049ae…049b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x004a}
0x049b8…049ea               Head {h00=0x002e, h01=0x0050, text=»* LINE CONTROL UNIT FUNCTION CONTROL EQU:S«, t00=0x002f, t01=0x0054}
0x049ea…049f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0086}
0x049f4…04a3a               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002f, t01=0x0090}
0x04a3a…04a44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d6}
0x04a44…04a58               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x002f, t01=0x00e0}
0x04a58…04a6c               Head {h00=0x0010, h01=0x0050, text=»SYNC EQU /16«, t00=0x002f, t01=0x00f4}
0x04a6c…04a78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0108}
0x04a78…04a8c               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x002f, t01=0x0114}
0x04a8c…04aa0               Head {h00=0x0010, h01=0x0050, text=»SYNC EQU /32«, t00=0x002f, t01=0x0128}
0x04aa0…04aac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x013c}
0x04aac…04ac0               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=0«, t00=0x002f, t01=0x0148}
0x04ac0…04ade               Head {h00=0x001a, h01=0x0050, text=»CBCARR EQU /100+LSPEED«, t00=0x002f, t01=0x015c}
0x04ade…04aea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x017a}
0x04aea…04afe               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x002f, t01=0x0186}
0x04afe…04b14               Head {h00=0x0012, h01=0x0050, text=»CBSTOP EQU /00«, t00=0x0030, t01=0x000a}
0x04b14…04b28               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x0030, t01=0x0020}
0x04b28…04b3e               Head {h00=0x0012, h01=0x0050, text=»PARITY EQU /0C«, t00=0x0030, t01=0x0034}
0x04b3e…04b4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x004a}
0x04b4a…04b5e               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x0030, t01=0x0056}
0x04b5e…04b72               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x0030, t01=0x006a}
0x04b72…04b88               Head {h00=0x0012, h01=0x0050, text=»PARITY EQU /00«, t00=0x0030, t01=0x007e}
0x04b88…04b94               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0094}
0x04b94…04ba2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00a0}
0x04ba2…04bde               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0030, t01=0x00ae}
0x04bde…04be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ea}
0x04be8…04c14               Head {h00=0x0028, h01=0x0050, text=»* LINE CONTROL UNIT SST STATUS BITS «, t00=0x0030, t01=0x00f4}
0x04c14…04c1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0120}
0x04c1e…04c5a               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0030, t01=0x012a}
0x04c5a…04c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0166}
0x04c64…04c78               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=0«, t00=0x0030, t01=0x0170}
0x04c78…04ca2               Head {h00=0x0026, h01=0x0050, text=»H:ERR EQU /23 H:NOOP+H:THRU+H:CARR«, t00=0x0030, t01=0x0184}
0x04ca2…04cae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x001e}
0x04cae…04cc2               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x0031, t01=0x002a}
0x04cc2…04cf4               Head {h00=0x002e, h01=0x0050, text=»H:ERR EQU /27 H:NOOP+H:THRU+H:CARR+H:PARI «, t00=0x0031, t01=0x003e}
0x04cf4…04d00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0070}
0x04d00…04d12               Head {h00=0x000e, h01=0x0050, text=» EJECT    «, t00=0x0031, t01=0x007c}
0x04d12…04d5a               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0031, t01=0x008e}
0x04d5a…04d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00d6}
0x04d64…04d82               Head {h00=0x001a, h01=0x0050, text=»* DRIVER ADDRESS BLOCK«, t00=0x0031, t01=0x00e0}
0x04d82…04d8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00fe}
0x04d8c…04dd4               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0031, t01=0x0108}
0x04dd4…04dde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0150}
0x04dde…04e02               Head {h00=0x0020, h01=0x0050, text=» DATA BUFLEN MMU BUFFER SIZE«, t00=0x0031, t01=0x015a}
0x04e02…04e24               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x0031, t01=0x017e}
0x04e24…04e50               Head {h00=0x0028, h01=0x0050, text=»DC15AD DATA DCACT ACTIVATION ADDRESS«, t00=0x0032, t01=0x0010}
0x04e50…04e72               Head {h00=0x001e, h01=0x0050, text=» DATA ABORT ABORT ROUTINE «, t00=0x0032, t01=0x003c}
0x04e72…04e9a               Head {h00=0x0024, h01=0x0050, text=» DATA DCRBUF REC. BUFFER ANCHOR «, t00=0x0032, t01=0x005e}
0x04e9a…04eb8               Head {h00=0x001a, h01=0x0050, text=» DATA 6 HEADER LENGTH «, t00=0x0032, t01=0x0086}
0x04eb8…04ec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00a4}
0x04ec2…04ef2               Head {h00=0x002c, h01=0x0050, text=» RES 15 SUBROUTINE STACK FOR INTERRUPTS «, t00=0x0032, t01=0x00ae}
0x04ef2…04f04               Head {h00=0x000e, h01=0x0050, text=»STB RES 1 «, t00=0x0032, t01=0x00de}
0x04f04…04f12               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00f0}
0x04f12…04f1a               Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x00fe}
0x04f1a…04f5e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0032, t01=0x0106}
0x04f5e…04f68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x014a}
0x04f68…04f82               Head {h00=0x0016, h01=0x0050, text=»*    ABORT ROUTINE«, t00=0x0032, t01=0x0154}
0x04f82…04f8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x016e}
0x04f8c…04fac               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0032, t01=0x0178}
0x04fac…04fb4               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0008}
0x04fb4…04fe0               Head {h00=0x0028, h01=0x0050, text=»ABORT LD A1,DWTRTP,A6 TIMER POINTER «, t00=0x0033, t01=0x0010}
0x04fe0…05006               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AB:10 NO TIMER RUNNING «, t00=0x0033, t01=0x003c}
0x05006…05020               Head {h00=0x0016, h01=0x0050, text=» CMR A1 KILL TIMER«, t00=0x0033, t01=0x0062}
0x05020…05036               Head {h00=0x0012, h01=0x0050, text=» CM DWTRTP,A6 «, t00=0x0033, t01=0x007c}
0x05036…0503e               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0092}
0x0503e…05066               Head {h00=0x0024, h01=0x0050, text=»AB:10 LD A2,DWTOR,A6 ORDER CODE «, t00=0x0033, t01=0x009a}
0x05066…0507a               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0033, t01=0x00c2}
0x0507a…0508c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,6 «, t00=0x0033, t01=0x00d6}
0x0508c…050a2               Head {h00=0x0012, h01=0x0050, text=» RF(NE) AB:RTN«, t00=0x0033, t01=0x00e8}
0x050a2…050d4               Head {h00=0x002e, h01=0x0050, text=» CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE«, t00=0x0033, t01=0x00fe}
0x050d4…050fe               Head {h00=0x0026, h01=0x0050, text=» LD A2,FDWTUT WRITING DWT ADDRESS «, t00=0x0033, t01=0x0130}
0x050fe…05110               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A6«, t00=0x0033, t01=0x015a}
0x05110…05134               Head {h00=0x0020, h01=0x0050, text=» RF(NE) AB:RTN NOT THIS DWT «, t00=0x0033, t01=0x016c}
0x05134…05158               Head {h00=0x0020, h01=0x0050, text=» CM FDWTUT REST SENDING DWT «, t00=0x0033, t01=0x0190}
0x05158…0517c               Head {h00=0x0020, h01=0x0050, text=» CM XACK RESET ACK EXPECTED «, t00=0x0034, t01=0x0024}
0x0517c…05184               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0048}
0x05184…05198               Head {h00=0x0010, h01=0x0050, text=»AB:RTN EQU *«, t00=0x0034, t01=0x0050}
0x05198…051ac               Head {h00=0x0010, h01=0x0050, text=» ABL RTABRT «, t00=0x0034, t01=0x0064}
0x051ac…051ba               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0078}
0x051ba…05208               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0034, t01=0x0086}
0x05208…05256               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0034, t01=0x00d4}
0x05256…05260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0122}
0x05260…0526a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x012c}
0x0526a…0529a               Head {h00=0x002c, h01=0x0050, text=»* REQUEST HANDLER/APPLICATION INTERFACE «, t00=0x0034, t01=0x0136}
0x0529a…052a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0166}
0x052a4…052ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0170}
0x052ae…052fc               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0034, t01=0x017a}
0x052fc…0534a               Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0035, t01=0x0038}
0x0534a…05354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0086}
0x05354…0537c               Head {h00=0x0024, h01=0x0050, text=»* ACTIVATION FROM TERMINAL TASKS«, t00=0x0035, t01=0x0090}
0x0537c…05386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b8}
0x05386…0539a               Head {h00=0x0010, h01=0x0050, text=»DCACT EQU * «, t00=0x0035, t01=0x00c2}
0x0539a…053be               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 PRESET RETURN CODE«, t00=0x0035, t01=0x00d6}
0x053be…053e8               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A7 ORDER CODE AS PARAMETER«, t00=0x0035, t01=0x00fa}
0x053e8…0540c               Head {h00=0x0020, h01=0x0050, text=» LDKL A7,DTETAB DTE TAB ADDR«, t00=0x0035, t01=0x0124}
0x0540c…05436               Head {h00=0x0026, h01=0x0050, text=» ANK A2,/FF STRIP OFF OPTION BITS «, t00=0x0035, t01=0x0148}
0x05436…05474               Head {h00=0x003a, h01=0x0050, text=» CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK«, t00=0x0035, t01=0x0172}
0x05474…054a8               Head {h00=0x0030, h01=0x0050, text=» DATA TREQX,RTREQ LAST ENTRY; ERROR ADDRESS «, t00=0x0036, t01=0x0020}
0x054a8…054d4               Head {h00=0x0028, h01=0x0050, text=» DATA RECEIVE,RQRECE RECEIVE REQUEST«, t00=0x0036, t01=0x0054}
0x054d4…054fa               Head {h00=0x0022, h01=0x0050, text=» DATA SEND,RQSEND SEND REQUEST«, t00=0x0036, t01=0x0080}
0x054fa…05520               Head {h00=0x0022, h01=0x0050, text=» DATA OPEN,RQOPEN OPEN REQUEST«, t00=0x0036, t01=0x00a6}
0x05520…05548               Head {h00=0x0024, h01=0x0050, text=» DATA CLOSE,RQCLOS CLOSE REQUEST«, t00=0x0036, t01=0x00cc}
0x05548…0557a               Head {h00=0x002e, h01=0x0050, text=» DATA CONPAS,RQCON CONNECT PASSIVE REQUEST«, t00=0x0036, t01=0x00f4}
0x0557a…055a6               Head {h00=0x0028, h01=0x0050, text=» DATA DISCO,RQDIS DISCONNECT REQUEST«, t00=0x0036, t01=0x0126}
0x055a6…055d4               Head {h00=0x002a, h01=0x0050, text=» DATA RSTAT,RQRSTS READ STATUS REQUEST«, t00=0x0036, t01=0x0152}
0x055d4…05600               Head {h00=0x0028, h01=0x0050, text=» DATA SSTAT,RQSST SET STATUS REQUEST«, t00=0x0036, t01=0x0180}
0x05600…05630               Head {h00=0x002c, h01=0x0050, text=» DATA STIMOT,RQTIME SET REQUEST TIMEOUT «, t00=0x0037, t01=0x001c}
0x05630…0566e               Head {h00=0x003a, h01=0x0050, text=»TREQX DATA STATIS,RQSTAT READ/RESET STATISTICS REQUEST«, t00=0x0037, t01=0x004c}
0x0566e…0567c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x008a}
0x0567c…05686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0098}
0x05686…05690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a2}
0x05690…056a6               Head {h00=0x0012, h01=0x0050, text=»* OPEN REQUEST«, t00=0x0037, t01=0x00ac}
0x056a6…056b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c2}
0x056b0…056d0               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x0037, t01=0x00cc}
0x056d0…056f8               Head {h00=0x0024, h01=0x0050, text=»*  SYMBOLIC DTE-ADDRESS (ECBCW2)«, t00=0x0037, t01=0x00ec}
0x056f8…05702               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0114}
0x05702…05716               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0037, t01=0x011e}
0x05716…05752               Head {h00=0x0038, h01=0x0050, text=»*  1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS«, t00=0x0037, t01=0x0132}
0x05752…0577c               Head {h00=0x0026, h01=0x0050, text=»*  2. CONVERT & VERIFY DTE ADDRESS«, t00=0x0037, t01=0x016e}
0x0577c…05786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0008}
0x05786…0579a               Head {h00=0x0010, h01=0x0050, text=»RQOPEN EQU *«, t00=0x0038, t01=0x0012}
0x0579a…057cc               Head {h00=0x002e, h01=0x0050, text=» LD A1,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS «, t00=0x0038, t01=0x0026}
0x057cc…057f4               Head {h00=0x0024, h01=0x0050, text=» LD A2,DTESTA,A7 GET DTE STATUS «, t00=0x0038, t01=0x0058}
0x057f4…05820               Head {h00=0x0028, h01=0x0050, text=» ADR A2,A2 WORD ALIGNED INDEX VALUE «, t00=0x0038, t01=0x0080}
0x05820…05850               Head {h00=0x002c, h01=0x0050, text=» ABI RQOPTB,A2 BRANCH ON INDEX IN TABLE «, t00=0x0038, t01=0x00ac}
0x05850…0587a               Head {h00=0x0026, h01=0x0050, text=»RQOPTB DATA RQOP20 CLOSED/INACTIVE«, t00=0x0038, t01=0x00dc}
0x0587a…058a0               Head {h00=0x0022, h01=0x0050, text=» DATA RQOP15 OPEN IN PROGRESS «, t00=0x0038, t01=0x0106}
0x058a0…058ba               Head {h00=0x0016, h01=0x0050, text=» DATA RQOP10 OPEN «, t00=0x0038, t01=0x012c}
0x058ba…058e0               Head {h00=0x0022, h01=0x0050, text=» DATA RQOP15 CLOSE IN PROGRESS«, t00=0x0038, t01=0x0146}
0x058e0…058f4               Head {h00=0x0010, h01=0x0050, text=»RQOP10 EQU *«, t00=0x0038, t01=0x016c}
0x058f4…0592a               Head {h00=0x0032, h01=0x0050, text=» CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? «, t00=0x0038, t01=0x0180}
0x0592a…05948               Head {h00=0x001a, h01=0x0050, text=» RF(E) RQOP90 YES - OK«, t00=0x0039, t01=0x0026}
0x05948…0595c               Head {h00=0x0010, h01=0x0050, text=»RQOP15 EQU *«, t00=0x0039, t01=0x0044}
0x0595c…05986               Head {h00=0x0026, h01=0x0050, text=» ABL RTSEQ RETURN: SEQUENCE ERROR «, t00=0x0039, t01=0x0058}
0x05986…05990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0082}
0x05990…059a4               Head {h00=0x0010, h01=0x0050, text=»RQOP20 EQU *«, t00=0x0039, t01=0x008c}
0x059a4…059ce               Head {h00=0x0026, h01=0x0050, text=» IM DTESTA,A7 SET OPEN IN PROGRESS«, t00=0x0039, t01=0x00a0}
0x059ce…05a00               Head {h00=0x002e, h01=0x0050, text=» ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS«, t00=0x0039, t01=0x00ca}
0x05a00…05a36               Head {h00=0x0032, h01=0x0050, text=» LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB «, t00=0x0039, t01=0x00fc}
0x05a36…05a6a               Head {h00=0x0030, h01=0x0050, text=» CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR«, t00=0x0039, t01=0x0132}
0x05a6a…05a7c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0039, t01=0x0166}
0x05a7c…05a96               Head {h00=0x0016, h01=0x0050, text=» RF(NN) RQOP80 OK «, t00=0x0039, t01=0x0178}
0x05a96…05aba (58, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» CM DTELAD,A7 CLEAR DTE ADDR«, t00=0x003a, t01=0x0004}
0x05aba…05ae0               Head {h00=0x0022, h01=0x0050, text=» CM DTESTA,A7 CLEAR DTE STATUS«, t00=0x003a, t01=0x0028}
0x05ae0…05b08               Head {h00=0x0024, h01=0x0050, text=» ABL RTREQ RETURN: REQUEST ERROR«, t00=0x003a, t01=0x004e}
0x05b08…05b12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0076}
0x05b12…05b26               Head {h00=0x0010, h01=0x0050, text=»RQOP80 EQU *«, t00=0x003a, t01=0x0080}
0x05b26…05b3a               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x003a, t01=0x0094}
0x05b3a…05b64               Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A7 DTE ADDRESS IN EBCDIC «, t00=0x003a, t01=0x00a8}
0x05b64…05b76               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x003a, t01=0x00d2}
0x05b76…05b8a               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003a, t01=0x00e4}
0x05b8a…05bae               Head {h00=0x0020, h01=0x0050, text=» RF(Z) RQOP30 ONLY ONE BYTE «, t00=0x003a, t01=0x00f8}
0x05bae…05bda               Head {h00=0x0028, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT INTO ASCII «, t00=0x003a, t01=0x011c}
0x05bda…05bec               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x003a, t01=0x0148}
0x05bec…05c00               Head {h00=0x0010, h01=0x0050, text=»RQOP30 EQU *«, t00=0x003a, t01=0x015a}
0x05c00…05c12               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x003a, t01=0x016e}
0x05c12…05c26               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x003a, t01=0x0180}
0x05c26…05c3e (59, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A1«, t00=0x003b, t01=0x0004}
0x05c3e…05c6c               Head {h00=0x002a, h01=0x0050, text=» STR A2,A7 SAVE ASCII VALUE IN DTETAB «, t00=0x003b, t01=0x001c}
0x05c6c…05c78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x004a}
0x05c78…05c86               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003b, t01=0x0056}
0x05c86…05ca8               Head {h00=0x001e, h01=0x0050, text=» ABL DTE:ON CONNECT MODEM «, t00=0x003b, t01=0x0064}
0x05ca8…05cbc               Head {h00=0x0010, h01=0x0050, text=»RQOP90 EQU *«, t00=0x003b, t01=0x0086}
0x05cbc…05cea               Head {h00=0x002a, h01=0x0050, text=» LD A2,DTEPLS,A7 PHYSICAL CONNECTION ?«, t00=0x003b, t01=0x009a}
0x05cea…05d0e               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) RTOK YES RETURN OK «, t00=0x003b, t01=0x00c8}
0x05d0e…05d3c               Head {h00=0x002a, h01=0x0050, text=» ABL RTPHYC RETURN PHYSICAL CONNECTION«, t00=0x003b, t01=0x00ec}
0x05d3c…05d4a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x011a}
0x05d4a…05d54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0128}
0x05d54…05d6c               Head {h00=0x0014, h01=0x0050, text=»* CLOSE REQUEST «, t00=0x003b, t01=0x0132}
0x05d6c…05d76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x014a}
0x05d76…05d96               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x003b, t01=0x0154}
0x05d96…05dbc               Head {h00=0x0022, h01=0x0050, text=»*  OPTION /00 = UNCONDITIONAL «, t00=0x003b, t01=0x0174}
0x05dbc…05dda               Head {h00=0x001a, h01=0x0050, text=»*   /80 = CONDITIONAL «, t00=0x003c, t01=0x000a}
0x05dda…05dee               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x003c, t01=0x0028}
0x05dee…05e3e               Head {h00=0x004c, h01=0x0050, text=»*  1. IF CONDITIONAL, CHECK IF ANY LOGICAL CONNECTIONS (DWTS) ARE ACTIVE«, t00=0x003c, t01=0x003c}
0x05e3e…05e54               Head {h00=0x0012, h01=0x0050, text=»*     ACTIVE. «, t00=0x003c, t01=0x008c}
0x05e54…05e88               Head {h00=0x0030, h01=0x0050, text=»*  2. IF UNCONDITIONAL, DISCONNECT ALL DWT:S«, t00=0x003c, t01=0x00a2}
0x05e88…05e92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d6}
0x05e92…05ea6               Head {h00=0x0010, h01=0x0050, text=»RQCLOS EQU *«, t00=0x003c, t01=0x00e0}
0x05ea6…05ed2               Head {h00=0x0028, h01=0x0050, text=» LD A5,DWTOR,A6 GET OPTION AND ORDER«, t00=0x003c, t01=0x00f4}
0x05ed2…05f02               Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR«, t00=0x003c, t01=0x0120}
0x05f02…05f18               Head {h00=0x0012, h01=0x0050, text=» RF(Z) RQCL20 «, t00=0x003c, t01=0x0150}
0x05f18…05f3e               Head {h00=0x0022, h01=0x0050, text=» CW A2,DTELAD,A7 CORRECT DTE ?«, t00=0x003c, t01=0x0166}
0x05f3e…05f6a               Head {h00=0x0028, h01=0x0050, text=» ABL(NE) RTREQ RETURN: REQUEST ERROR«, t00=0x003c, t01=0x018c}
0x05f6a…05f7e               Head {h00=0x0010, h01=0x0050, text=»RQCL20 EQU *«, t00=0x003d, t01=0x0028}
0x05f7e…05fa6               Head {h00=0x0024, h01=0x0050, text=» LD A2,DTESTA,A7 GET DTE STATUS «, t00=0x003d, t01=0x003c}
0x05fa6…05fc6               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) RTOK RETURN : OK«, t00=0x003d, t01=0x0064}
0x05fc6…05fe4               Head {h00=0x001a, h01=0x0050, text=» SUK A2,2 DTE OPENED ?«, t00=0x003d, t01=0x0084}
0x05fe4…06012               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) RTSEQ RETURN: SEQUENCE ERROR «, t00=0x003d, t01=0x00a2}
0x06012…0603a               Head {h00=0x0024, h01=0x0050, text=» IM DTESTA,A7 CLOSE IN PROGRESS «, t00=0x003d, t01=0x00d0}
0x0603a…06066               Head {h00=0x0028, h01=0x0050, text=» LDR A8,A6 SAVE REQUESTING DWT-ADDR «, t00=0x003d, t01=0x00f8}
0x06066…06070               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0124}
0x06070…06084               Head {h00=0x0010, h01=0x0050, text=»RQCL40 EQU *«, t00=0x003d, t01=0x012e}
0x06084…0609a               Head {h00=0x0012, h01=0x0050, text=» IFT MESPAS=1 «, t00=0x003d, t01=0x0142}
0x0609a…060c8               Head {h00=0x002a, h01=0x0050, text=» LD A6,DTEDDT,A7 GET DISCARD DWT ADDR «, t00=0x003d, t01=0x0158}
0x060c8…060de               Head {h00=0x0012, h01=0x0050, text=» RF(Z) RQCL50 «, t00=0x003d, t01=0x0186}
0x060de…06104               Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 CONDITIONAL CLOSE ?«, t00=0x003e, t01=0x000c}
0x06104…06120               Head {h00=0x0018, h01=0x0050, text=» RF(N) RQCL95 YES ! «, t00=0x003e, t01=0x0032}
0x06120…06150               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT«, t00=0x003e, t01=0x004e}
0x06150…06182               Head {h00=0x002e, h01=0x0050, text=» ST A2,DTEDDT,A7 DISCARD DWT ADDR REMOVED «, t00=0x003e, t01=0x007e}
0x06182…06194               Head {h00=0x000e, h01=0x0050, text=» RF RQCL60«, t00=0x003e, t01=0x00b0}
0x06194…061a8               Head {h00=0x0010, h01=0x0050, text=»RQCL50 EQU *«, t00=0x003e, t01=0x00c2}
0x061a8…061b4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00d6}
0x061b4…061da               Head {h00=0x0022, h01=0x0050, text=» LD A6,DTEDWT,A7 GET DWT ADDR «, t00=0x003e, t01=0x00e2}
0x061da…06200               Head {h00=0x0022, h01=0x0050, text=» RF(Z) RQCL90 NO DWT IN QUEUE «, t00=0x003e, t01=0x0108}
0x06200…06226               Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 CONDITIONAL CLOSE ?«, t00=0x003e, t01=0x012e}
0x06226…06242               Head {h00=0x0018, h01=0x0050, text=» RF(N) RQCL95 YES ! «, t00=0x003e, t01=0x0154}
0x06242…0627c               Head {h00=0x0036, h01=0x0050, text=» LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT IN CHAIN «, t00=0x003e, t01=0x0170}
0x0627c…062b0               Head {h00=0x0030, h01=0x0050, text=» ST A2,DTEDWT,A7 DWT FIRST IN QUEUE REMOVED «, t00=0x003f, t01=0x001a}
0x062b0…062c6               Head {h00=0x0012, h01=0x0050, text=» IFT MESPAS=1 «, t00=0x003f, t01=0x004e}
0x062c6…062da               Head {h00=0x0010, h01=0x0050, text=»RQCL60 EQU *«, t00=0x003f, t01=0x0064}
0x062da…062e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0078}
0x062e6…0631a               Head {h00=0x0030, h01=0x0050, text=» CF A15,RELBUF REMOVE BUFFERS QUEUED ON DWT «, t00=0x003f, t01=0x0084}
0x0631a…06340               Head {h00=0x0022, h01=0x0050, text=» CM DWTSTA,A6 CLEAR DWT-STATUS«, t00=0x003f, t01=0x00b8}
0x06340…06364               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 PRESET RETURN CODE«, t00=0x003f, t01=0x00de}
0x06364…06388               Head {h00=0x0020, h01=0x0050, text=» CWR A8,A6 REQUESTING DWT ? «, t00=0x003f, t01=0x0102}
0x06388…063b2               Head {h00=0x0026, h01=0x0050, text=» RF(E) RQCL80 YES-COMPLETE REQUEST«, t00=0x003f, t01=0x0126}
0x063b2…063de               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTST,A6 A PENDING REQUEST ? «, t00=0x003f, t01=0x0150}
0x063de…06404               Head {h00=0x0022, h01=0x0050, text=» RB(N) RQCL40 NO TAKE NEXT DWT«, t00=0x003f, t01=0x017c}
0x06404…0643e               Head {h00=0x0036, h01=0x0050, text=» LDK A1,R:SEQ COMPLETE REQUEST WITH SEQUENCE ERROR«, t00=0x0040, t01=0x0012}
0x0643e…06452               Head {h00=0x0010, h01=0x0050, text=»RQCL80 EQU *«, t00=0x0040, t01=0x004c}
0x06452…0647e               Head {h00=0x0028, h01=0x0050, text=» CF A15,TENDIO COMPLETE THE REQUEST «, t00=0x0040, t01=0x0060}
0x0647e…064a4               Head {h00=0x0022, h01=0x0050, text=» RB RQCL40 TAKE NEXT ON QUEUE «, t00=0x0040, t01=0x008c}
0x064a4…064b8               Head {h00=0x0010, h01=0x0050, text=»RQCL90 EQU *«, t00=0x0040, t01=0x00b2}
0x064b8…064c6               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x0040, t01=0x00c6}
0x064c6…064f0               Head {h00=0x0026, h01=0x0050, text=» LDR A6,A8 GET REQUESTING DWT ADDR«, t00=0x0040, t01=0x00d4}
0x064f0…0651c               Head {h00=0x0028, h01=0x0050, text=» LD A8,DWTECB,A6 RESTORE ECB ADDRESS«, t00=0x0040, t01=0x00fe}
0x0651c…0652a               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x0040, t01=0x012a}
0x0652a…0655c               Head {h00=0x002e, h01=0x0050, text=» RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1«, t00=0x0040, t01=0x0138}
0x0655c…06576               Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RC=0 =1 «, t00=0x0040, t01=0x016a}
0x06576…065a6               Head {h00=0x002c, h01=0x0050, text=» CF A15,TENDIO COMPLETE CLOSE REQUEST =1«, t00=0x0040, t01=0x0184}
0x065a6…065be               Head {h00=0x0014, h01=0x0050, text=»RQCL92 EQU *  =1«, t00=0x0041, t01=0x0024}
0x065be…065d6               Head {h00=0x0014, h01=0x0050, text=» IFT P6805=0  =1«, t00=0x0041, t01=0x003c}
0x065d6…065ee               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,STB  =1«, t00=0x0041, t01=0x0054}
0x065ee…06616               Head {h00=0x0024, h01=0x0050, text=» CF A5,CHALTI HALT I/P DEVICE =1«, t00=0x0041, t01=0x006c}
0x06616…0663e               Head {h00=0x0024, h01=0x0050, text=» CF A5,CHALTO HALT O/P DEVICE =1«, t00=0x0041, t01=0x0094}
0x0663e…06654               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0  =1 «, t00=0x0041, t01=0x00bc}
0x06654…06680               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,LCUIN DISCONNECT MODEM =1 «, t00=0x0041, t01=0x00d2}
0x06680…06692               Head {h00=0x000e, h01=0x0050, text=» XIF   =1 «, t00=0x0041, t01=0x00fe}
0x06692…066aa               Head {h00=0x0014, h01=0x0050, text=» IFT P6805=1  =1«, t00=0x0041, t01=0x0110}
0x066aa…066d0               Head {h00=0x0022, h01=0x0050, text=» LDK A2,1 DISCONNECT ORDER =1 «, t00=0x0041, t01=0x0128}
0x066d0…066fc               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,LCUIN DISCONNECT MODEM =1 «, t00=0x0041, t01=0x014e}
0x066fc…0670e               Head {h00=0x000e, h01=0x0050, text=» XIF   =1 «, t00=0x0041, t01=0x017a}
0x0670e…06738               Head {h00=0x0026, h01=0x0050, text=» CMR A7 REMOVE NETWORK ADDRESS =1 «, t00=0x0041, t01=0x018c}
0x06738…0675e               Head {h00=0x0022, h01=0x0050, text=» CM DTESTA,A7 CLEAR STATUS =1 «, t00=0x0042, t01=0x0026}
0x0675e…0678c               Head {h00=0x002a, h01=0x0050, text=» LD A1,DCTPGP POLL TIMER RUNNING ? =6 «, t00=0x0042, t01=0x004c}
0x0678c…067a8               Head {h00=0x0018, h01=0x0050, text=» RF(Z) RQCL94 NO =6 «, t00=0x0042, t01=0x007a}
0x067a8…067ca               Head {h00=0x001e, h01=0x0050, text=» CM* DCTPGP KILL TIMER =6 «, t00=0x0042, t01=0x0096}
0x067ca…067ee               Head {h00=0x0020, h01=0x0050, text=» CM DCTPGP CLEAR POINTER =6 «, t00=0x0042, t01=0x00b8}
0x067ee…06806               Head {h00=0x0014, h01=0x0050, text=»RQCL94 EQU *  =6«, t00=0x0042, t01=0x00dc}
0x06806…06836               Head {h00=0x002c, h01=0x0050, text=» CM DTEDLS,A7 INDICATE DATA LINK DOWN =6«, t00=0x0042, t01=0x00f4}
0x06836…0684c               Head {h00=0x0012, h01=0x0050, text=» ABL TDISP  =1«, t00=0x0042, t01=0x0124}
0x0684c…06860               Head {h00=0x0010, h01=0x0050, text=»RQCL95 EQU *«, t00=0x0042, t01=0x013a}
0x06860…06872               Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x0042, t01=0x014e}
0x06872…0689e               Head {h00=0x0028, h01=0x0050, text=» ST A2,DTESTA,A7 SET DTE OPEN AGAIN «, t00=0x0042, t01=0x0160}
0x0689e…068c4               Head {h00=0x0022, h01=0x0050, text=» LDR A6,A8 RESTORE DWT ADDRESS«, t00=0x0042, t01=0x018c}
0x068c4…068e6               Head {h00=0x001e, h01=0x0050, text=» ABL RTSEQ SEQUENCE ERROR «, t00=0x0043, t01=0x0022}
0x068e6…068f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0044}
0x068f4…068fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0052}
0x068fe…06920               Head {h00=0x001e, h01=0x0050, text=»* CONNECT PASSIVE REQUEST «, t00=0x0043, t01=0x005c}
0x06920…0692a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007e}
0x0692a…0694a               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x0043, t01=0x0088}
0x0694a…06988               Head {h00=0x003a, h01=0x0050, text=»*  - SYMBOLIC SUBADDRESS (RIGHTMOST BYTE IN ECBBA-BFR)«, t00=0x0043, t01=0x00a8}
0x06988…069b2               Head {h00=0x0026, h01=0x0050, text=»*  - DEVICE ADDRESSES IN ECBBA-BFR«, t00=0x0043, t01=0x00e6}
0x069b2…069d8               Head {h00=0x0022, h01=0x0050, text=»*  - LENGTH OF BUFFER (ECBRL) «, t00=0x0043, t01=0x0110}
0x069d8…06a02               Head {h00=0x0026, h01=0x0050, text=»*  - SYMBOLIC DTE-ADDRESS (ECBCW2)«, t00=0x0043, t01=0x0136}
0x06a02…06a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0160}
0x06a0c…06a20               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0043, t01=0x016a}
0x06a20…06a54               Head {h00=0x0030, h01=0x0050, text=»*  1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST«, t00=0x0043, t01=0x017e}
0x06a54…06a86               Head {h00=0x002e, h01=0x0050, text=»*  2. VERIFY & CONVERT SUBTERMINAL ADDRESS«, t00=0x0044, t01=0x0022}
0x06a86…06ab6               Head {h00=0x002c, h01=0x0050, text=»*  3. VERIFY AND STORE DEVICE ADDRESSES «, t00=0x0044, t01=0x0054}
0x06ab6…06ade               Head {h00=0x0024, h01=0x0050, text=»*  4. LINK CALLING DWT TO QUEUE «, t00=0x0044, t01=0x0084}
0x06ade…06ae8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ac}
0x06ae8…06afc               Head {h00=0x0010, h01=0x0050, text=»RQCON EQU * «, t00=0x0044, t01=0x00b6}
0x06afc…06b26               Head {h00=0x0026, h01=0x0050, text=» LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR«, t00=0x0044, t01=0x00ca}
0x06b26…06b4c               Head {h00=0x0022, h01=0x0050, text=» CW A2,ECBCW2,A8 CORRECT DTE ?«, t00=0x0044, t01=0x00f4}
0x06b4c…06b7c               Head {h00=0x002c, h01=0x0050, text=» ABL(NE) RTREQ NO, RETURN: REQUEST ERROR«, t00=0x0044, t01=0x011a}
0x06b7c…06ba4               Head {h00=0x0024, h01=0x0050, text=» LD A2,DTESTA,A7 GET DTE STATUS «, t00=0x0044, t01=0x014a}
0x06ba4…06bbc               Head {h00=0x0014, h01=0x0050, text=» SUK A2,2 OPEN ?«, t00=0x0044, t01=0x0172}
0x06bbc…06bee               Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR «, t00=0x0044, t01=0x018a}
0x06bee…06c16               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTSTA,A6 GET DWT STATUS «, t00=0x0045, t01=0x002c}
0x06c16…06c3c               Head {h00=0x0022, h01=0x0050, text=» SUK A2,2 ALREADY CONNECTED ? «, t00=0x0045, t01=0x0054}
0x06c3c…06c6e               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) RTSEQ YES, RETURN: SEQUENCE ERROR «, t00=0x0045, t01=0x007a}
0x06c6e…06c88               Head {h00=0x0016, h01=0x0050, text=» IFT MESPAS=1  =13«, t00=0x0045, t01=0x00ac}
0x06c88…06cac               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/40 OPTION CODE =13 «, t00=0x0045, t01=0x00c6}
0x06cac…06cd6               Head {h00=0x0026, h01=0x0050, text=» CC A2,DWTOPT,A6 DISCARD DWT ? =13«, t00=0x0045, t01=0x00ea}
0x06cd6…06cf4               Head {h00=0x001a, h01=0x0050, text=» RF(NE) RQCN10 NO =13 «, t00=0x0045, t01=0x0114}
0x06cf4…06d22               Head {h00=0x002a, h01=0x0050, text=» CM DWTCHP,A6 INDICATE DISCARD DWT =13«, t00=0x0045, t01=0x0132}
0x06d22…06d56               Head {h00=0x0030, h01=0x0050, text=» LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 «, t00=0x0045, t01=0x0160}
0x06d56…06d8a (70, 0, 398)  Head {h00=0x0030, h01=0x0050, text=» RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13«, t00=0x0046, t01=0x0004}
0x06d8a…06dc6               Head {h00=0x0038, h01=0x0050, text=» ST A6,DTEDDT,A7 SAVE POINTER TO TO DISCARD DWT =13 «, t00=0x0046, t01=0x0038}
0x06dc6…06dde               Head {h00=0x0014, h01=0x0050, text=» RF RQCN60  =13 «, t00=0x0046, t01=0x0074}
0x06dde…06df8               Head {h00=0x0016, h01=0x0050, text=»RQCN10 EQU *  =13 «, t00=0x0046, t01=0x008c}
0x06df8…06e0a               Head {h00=0x000e, h01=0x0050, text=» XIF   =13«, t00=0x0046, t01=0x00a6}
0x06e0a…06e20               Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=0 «, t00=0x0046, t01=0x00b8}
0x06e20…06e4a               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,MMUBUF MMU BUFFER ADDRESS«, t00=0x0046, t01=0x00ce}
0x06e4a…06e68               Head {h00=0x001a, h01=0x0050, text=» ST A4,ECBBA,A8 TO ECB«, t00=0x0046, t01=0x00f8}
0x06e68…06e96               Head {h00=0x002a, h01=0x0050, text=» CF A15,DC:MOT MOVE DATA TO MMU BUFFER«, t00=0x0046, t01=0x0116}
0x06e96…06ea2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0144}
0x06ea2…06ed0               Head {h00=0x002a, h01=0x0050, text=» LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS«, t00=0x0046, t01=0x0150}
0x06ed0…06ee4               Head {h00=0x0010, h01=0x0050, text=» IFT MSV1=1 «, t00=0x0046, t01=0x017e}
0x06ee4…06efe (71, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 RESET A2«, t00=0x0047, t01=0x0004}
0x06efe…06f28               Head {h00=0x0026, h01=0x0050, text=» LCR A2,A4 GET SELECT SUB-ADDRESS «, t00=0x0047, t01=0x001e}
0x06f28…06f54               Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTSUB,A6 SAVE IT IN THE DWT «, t00=0x0047, t01=0x0048}
0x06f54…06f86               Head {h00=0x002e, h01=0x0050, text=» LD A1,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS «, t00=0x0047, t01=0x0074}
0x06f86…06fc0               Head {h00=0x0036, h01=0x0050, text=» CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDR«, t00=0x0047, t01=0x00a6}
0x06fc0…06fde               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 IS IT OK ? «, t00=0x0047, t01=0x00e0}
0x06fde…06ff8               Head {h00=0x0016, h01=0x0050, text=» RF(NN) RQCN20 YES«, t00=0x0047, t01=0x00fe}
0x06ff8…07020               Head {h00=0x0024, h01=0x0050, text=» CM DWTSUB,A7 CLEAR SUB-ADDRESS «, t00=0x0047, t01=0x0118}
0x07020…07048               Head {h00=0x0024, h01=0x0050, text=» ABL RTREQ RETURN REQUEST ERROR «, t00=0x0047, t01=0x0140}
0x07048…0705c               Head {h00=0x0010, h01=0x0050, text=»RQCN20 EQU *«, t00=0x0047, t01=0x0168}
0x0705c…07070               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x0047, t01=0x017c}
0x07070…070a6               Head {h00=0x0032, h01=0x0050, text=» LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII «, t00=0x0047, t01=0x0190}
0x070a6…070b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0036}
0x070b2…070c6               Head {h00=0x0010, h01=0x0050, text=» IFT MSV1=1 «, t00=0x0048, t01=0x0042}
0x070c6…070f4               Head {h00=0x002a, h01=0x0050, text=» SC A1,DWTCHP,A6 SAVE NETWORK ADDRESS «, t00=0x0048, t01=0x0056}
0x070f4…07100               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0084}
0x07100…0712c               Head {h00=0x0028, h01=0x0050, text=» LC A2,1,A4 GET SYMBOLIC ADDRESS =8 «, t00=0x0048, t01=0x0090}
0x0712c…0715a               Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTSUB+1,A6 SAVE IT IN THE DWT «, t00=0x0048, t01=0x00bc}
0x0715a…0718c               Head {h00=0x002e, h01=0x0050, text=» LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS «, t00=0x0048, t01=0x00ea}
0x0718c…071b8               Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTLAD,A6 SAVE IT IN THE DWT «, t00=0x0048, t01=0x011c}
0x071b8…071f6               Head {h00=0x003a, h01=0x0050, text=» CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS «, t00=0x0048, t01=0x0148}
0x071f6…07214               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 IS IT OK ? «, t00=0x0048, t01=0x0186}
0x07214…0722e               Head {h00=0x0016, h01=0x0050, text=» RF(NN) RQCN30 YES«, t00=0x0049, t01=0x0014}
0x0722e…07256               Head {h00=0x0024, h01=0x0050, text=» CM DWTSUB,A6 CLEAR SUB-ADDRESS «, t00=0x0049, t01=0x002e}
0x07256…0727e               Head {h00=0x0024, h01=0x0050, text=» CM DWTLAD,A6 CLEAR DTE ADDRESS «, t00=0x0049, t01=0x0056}
0x0727e…072a6               Head {h00=0x0024, h01=0x0050, text=» ABL RTREQ RETURN REQUEST ERROR «, t00=0x0049, t01=0x007e}
0x072a6…072ba               Head {h00=0x0010, h01=0x0050, text=»RQCN30 EQU *«, t00=0x0049, t01=0x00a6}
0x072ba…072ce               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x0049, t01=0x00ba}
0x072ce…07304               Head {h00=0x0032, h01=0x0050, text=» LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII «, t00=0x0049, t01=0x00ce}
0x07304…07310               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0104}
0x07310…07340               Head {h00=0x002c, h01=0x0050, text=» SC A1,DWTCHP+1,A6 SAVE NETWORK ADDRESS «, t00=0x0049, t01=0x0110}
0x07340…07356               Head {h00=0x0012, h01=0x0050, text=» IFT EM3270=1 «, t00=0x0049, t01=0x0140}
0x07356…0736e               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW2,A8«, t00=0x0049, t01=0x0156}
0x0736e…0737a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x016e}
0x0737a…07384               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x017a}
0x07384…0738e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0184}
0x0738e…073b8               Head {h00=0x0026, h01=0x0050, text=»*  LINK DWT TO CONFIGURATION CHAIN«, t00=0x0049, t01=0x018e}
0x073b8…073c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0028}
0x073c2…073d2               Head {h00=0x000c, h01=0x0050, text=»    =13 «, t00=0x004a, t01=0x0032}
0x073d2…073e6               Head {h00=0x0010, h01=0x0050, text=»RQCN40 EQU *«, t00=0x004a, t01=0x0042}
0x073e6…07418               Head {h00=0x002e, h01=0x0050, text=» LD A1,DTEDWT,A7 GET POINTER TO DWT QUEUE «, t00=0x004a, t01=0x0056}
0x07418…07432               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RQCN50 YES«, t00=0x004a, t01=0x0088}
0x07432…07464               Head {h00=0x002e, h01=0x0050, text=» ST A6,DTEDWT,A7 SAVE POINTER TO DWT QUEUE«, t00=0x004a, t01=0x00a2}
0x07464…07476               Head {h00=0x000e, h01=0x0050, text=» RF RQCN60«, t00=0x004a, t01=0x00d4}
0x07476…0748a               Head {h00=0x0010, h01=0x0050, text=»RQCN50 EQU *«, t00=0x004a, t01=0x00e6}
0x0748a…074ac               Head {h00=0x001e, h01=0x0050, text=» LDR A2,A1 MOV ADDR TO A2 «, t00=0x004a, t01=0x00fa}
0x074ac…074d8               Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTCHN,A2 POINTER TO NEXT DWT«, t00=0x004a, t01=0x011c}
0x074d8…0750a               Head {h00=0x002e, h01=0x0050, text=» RB(NZ) RQCN50 KEEP ON UNTIL LAST IN CHAIN«, t00=0x004a, t01=0x0148}
0x0750a…07538               Head {h00=0x002a, h01=0x0050, text=» ST A6,DWTCHN,A2 ADD NEW DWT TO CHAIN «, t00=0x004a, t01=0x017a}
0x07538…0754c               Head {h00=0x0010, h01=0x0050, text=»RQCN60 EQU *«, t00=0x004b, t01=0x0018}
0x0754c…07576               Head {h00=0x0026, h01=0x0050, text=» CM DWTCHN,A6 END OF CHAIN MARKER «, t00=0x004b, t01=0x002c}
0x07576…075a6               Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTCHD,A6 BACKWARD LINK TO ANCHOR«, t00=0x004b, t01=0x0056}
0x075a6…075b8               Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x004b, t01=0x0086}
0x075b8…075e6               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTSTA,A6 SET STATUS: CONNECTED«, t00=0x004b, t01=0x0098}
0x075e6…075fc               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x004b, t01=0x00c6}
0x075fc…07624               Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTRTV,A6 STORE NO TIMING«, t00=0x004b, t01=0x00dc}
0x07624…07634               Head {h00=0x000c, h01=0x0050, text=»    =13 «, t00=0x004b, t01=0x0104}
0x07634…0764a               Head {h00=0x0012, h01=0x0050, text=» IFT STARVI=1 «, t00=0x004b, t01=0x0114}
0x0764a…07674               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCHP,A6 DISCARD DWT ? =13«, t00=0x004b, t01=0x012a}
0x07674…076a2               Head {h00=0x002a, h01=0x0050, text=» RF(Z) RQCN65 YES, DO NOT SEND DE =13 «, t00=0x004b, t01=0x0154}
0x076a2…076c0               Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 STORE DEVICE«, t00=0x004b, t01=0x0182}
0x076c0…076e8               Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTST,A6 END IN THE DWT «, t00=0x004c, t01=0x0010}
0x076e8…07718               Head {h00=0x002c, h01=0x0050, text=» CF A15,INSSQ INSERT DWT IN STATUS QUEUE«, t00=0x004c, t01=0x0038}
0x07718…07732               Head {h00=0x0016, h01=0x0050, text=»RQCN65 EQU *  =13 «, t00=0x004c, t01=0x0068}
0x07732…0773e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x0082}
0x0773e…07748               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x008e}
0x07748…07762               Head {h00=0x0016, h01=0x0050, text=»* START POLL TIMER«, t00=0x004c, t01=0x0098}
0x07762…0776c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00b2}
0x0776c…07794               Head {h00=0x0024, h01=0x0050, text=» LD A2,DCTPGP POLL TIMER POINTER«, t00=0x004c, t01=0x00bc}
0x07794…077c4               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) RQCN70 TIMER ALREADY STARTED =6 «, t00=0x004c, t01=0x00e4}
0x077c4…077da               Head {h00=0x0012, h01=0x0050, text=» CF A15,SPOTIM«, t00=0x004c, t01=0x0114}
0x077da…077ee               Head {h00=0x0010, h01=0x0050, text=»RQCN70 EQU *«, t00=0x004c, t01=0x012a}
0x077ee…07802               Head {h00=0x0010, h01=0x0050, text=» ABL RQOP90 «, t00=0x004c, t01=0x013e}
0x07802…07810               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0152}
0x07810…0781a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0160}
0x0781a…07836               Head {h00=0x0018, h01=0x0050, text=»* DISCONNECT REQUEST«, t00=0x004c, t01=0x016a}
0x07836…07840               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0186}
0x07840…07860               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x004c, t01=0x0190}
0x07860…0787c               Head {h00=0x0018, h01=0x0050, text=»*  DWT-ADDRESS (A6) «, t00=0x004d, t01=0x0020}
0x0787c…07886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x003c}
0x07886…0789a               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x004d, t01=0x0046}
0x0789a…078c4               Head {h00=0x0026, h01=0x0050, text=»*  1. CHECK IF IN CONNECTED STATE «, t00=0x004d, t01=0x005a}
0x078c4…078fe               Head {h00=0x0036, h01=0x0050, text=»*  2. REMOVE DWT-ADDRESS FROM CONFIGURATION CHAIN «, t00=0x004d, t01=0x0084}
0x078fe…07928               Head {h00=0x0026, h01=0x0050, text=»*  3. SET DWT STATUS DISCONNECTED «, t00=0x004d, t01=0x00be}
0x07928…07932               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00e8}
0x07932…07952               Head {h00=0x001c, h01=0x0050, text=»* COMPLETION PARAMETERS:«, t00=0x004d, t01=0x00f2}
0x07952…0796e               Head {h00=0x0018, h01=0x0050, text=»*  RETURN CODE (A1) «, t00=0x004d, t01=0x0112}
0x0796e…07978               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012e}
0x07978…0798c               Head {h00=0x0010, h01=0x0050, text=»RQDIS EQU * «, t00=0x004d, t01=0x0138}
0x0798c…079c0               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ?«, t00=0x004d, t01=0x014c}
0x079c0…079e4               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) RTOK YES, RETURN: OK«, t00=0x004d, t01=0x0180}
0x079e4…07a12               Head {h00=0x002a, h01=0x0050, text=» LD A3,DTEDWT,A7 FIRST DWT ADDR TO A3 «, t00=0x004e, t01=0x0014}
0x07a12…07a34               Head {h00=0x001e, h01=0x0050, text=» RF(Z) RQDI20 END OF CHAIN«, t00=0x004e, t01=0x0042}
0x07a34…07a50               Head {h00=0x0018, h01=0x0050, text=» CWR A3,A6 OUR DWT ?«, t00=0x004e, t01=0x0064}
0x07a50…07a6a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) RQDI10 NO «, t00=0x004e, t01=0x0080}
0x07a6a…07a98               Head {h00=0x002a, h01=0x0050, text=» CF A15,RELBUF RELEASE QUEUED BUFFERS «, t00=0x004e, t01=0x009a}
0x07a98…07ace               Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT «, t00=0x004e, t01=0x00c8}
0x07ace…07af0               Head {h00=0x001e, h01=0x0050, text=» CM DWTSTA,A6 SET DWT FREE«, t00=0x004e, t01=0x00fe}
0x07af0…07b22               Head {h00=0x002e, h01=0x0050, text=» ST A3,DTEDWT,A7 STORE DWT-ADDR IN DTETAB «, t00=0x004e, t01=0x0120}
0x07b22…07b34               Head {h00=0x000e, h01=0x0050, text=» RB RQCN70«, t00=0x004e, t01=0x0152}
0x07b34…07b48               Head {h00=0x0010, h01=0x0050, text=»RQDI10 EQU *«, t00=0x004e, t01=0x0164}
0x07b48…07b7a               Head {h00=0x002e, h01=0x0050, text=» LDR A5,A3 A5 CONTAINES PREVIOUS DWT-ADDR «, t00=0x004e, t01=0x0178}
0x07b7a…07bba               Head {h00=0x003c, h01=0x0050, text=» LD A3,DWTCHN,A5 A3 CONTAINES ADDR TO NEXT DWT ON CHAIN «, t00=0x004f, t01=0x001a}
0x07bba…07bdc               Head {h00=0x001e, h01=0x0050, text=» RF(Z) RQDI20 END OF CHAIN«, t00=0x004f, t01=0x005a}
0x07bdc…07bf8               Head {h00=0x0018, h01=0x0050, text=» CWR A3,A6 OUR DWT ?«, t00=0x004f, t01=0x007c}
0x07bf8…07c24               Head {h00=0x0028, h01=0x0050, text=» RB(NE) RQDI10 NO TAKE NEXT IN CHAIN«, t00=0x004f, t01=0x0098}
0x07c24…07c52               Head {h00=0x002a, h01=0x0050, text=» CF A15,RELBUF RELEASE QUEUED BUFFERS «, t00=0x004f, t01=0x00c4}
0x07c52…07c88               Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT «, t00=0x004f, t01=0x00f2}
0x07c88…07cbe               Head {h00=0x0032, h01=0x0050, text=» ST A3,DWTCHN,A5 AND STORE IT IN PREVIOUS DWT «, t00=0x004f, t01=0x0128}
0x07cbe…07ce0               Head {h00=0x001e, h01=0x0050, text=» CM DWTSTA,A6 SET DWT FREE«, t00=0x004f, t01=0x015e}
0x07ce0…07cf2               Head {h00=0x000e, h01=0x0050, text=» RB RQCN70«, t00=0x004f, t01=0x0180}
0x07cf2…07d06 (80, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»RQDI20 EQU *«, t00=0x0050, t01=0x0004}
0x07d06…07d1c               Head {h00=0x0012, h01=0x0050, text=» IFT MESPAS=1 «, t00=0x0050, t01=0x0018}
0x07d1c…07d4e               Head {h00=0x002e, h01=0x0050, text=» LD A3,DTEDDT,A7 TAKE THE DISCARD DWT ADDR«, t00=0x0050, t01=0x002e}
0x07d4e…07d6a               Head {h00=0x0018, h01=0x0050, text=» CWR A3,A6 OUR DWT ?«, t00=0x0050, t01=0x0060}
0x07d6a…07d90               Head {h00=0x0022, h01=0x0050, text=» RF(NE) RQDI30 SEQUENCE ERROR «, t00=0x0050, t01=0x007c}
0x07d90…07dbe               Head {h00=0x002a, h01=0x0050, text=» CF A15,RELBUF RELEASE BUFFERS QUEUED «, t00=0x0050, t01=0x00a2}
0x07dbe…07dd4               Head {h00=0x0012, h01=0x0050, text=» CM DTEDDT,A7 «, t00=0x0050, t01=0x00d0}
0x07dd4…07df6               Head {h00=0x001e, h01=0x0050, text=» CM DWTSTA,A6 SET DWT FREE«, t00=0x0050, t01=0x00e6}
0x07df6…07e08               Head {h00=0x000e, h01=0x0050, text=» RB RQCN70«, t00=0x0050, t01=0x0108}
0x07e08…07e1c               Head {h00=0x0010, h01=0x0050, text=»RQDI30 EQU *«, t00=0x0050, t01=0x011a}
0x07e1c…07e28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x012e}
0x07e28…07e4a               Head {h00=0x001e, h01=0x0050, text=» ABL RTSEQ SEQUENCE ERROR «, t00=0x0050, t01=0x013a}
0x07e4a…07e58               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x015c}
0x07e58…07e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x016a}
0x07e62…07e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0174}
0x07e6c…07e8a               Head {h00=0x001a, h01=0x0050, text=»* READ STATUS REQUEST «, t00=0x0050, t01=0x017e}
0x07e8a…07e94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x000c}
0x07e94…07eb4               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x0051, t01=0x0016}
0x07eb4…07ed2               Head {h00=0x001a, h01=0x0050, text=»*  DWT - ADDRESS (A6) «, t00=0x0051, t01=0x0036}
0x07ed2…07edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0054}
0x07edc…07ef0               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0051, t01=0x005e}
0x07ef0…07f30               Head {h00=0x003c, h01=0x0050, text=»*  1. TRANSFER LOGICAL CONNECTION STATUS TO APPLICATION «, t00=0x0051, t01=0x0072}
0x07f30…07f3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00b2}
0x07f3a…07f5a               Head {h00=0x001c, h01=0x0050, text=»* COMPLETION PARAMETERS:«, t00=0x0051, t01=0x00bc}
0x07f5a…07f88               Head {h00=0x002a, h01=0x0050, text=»*  LOGICAL CONNECTION STATUS (ECBCW1) «, t00=0x0051, t01=0x00dc}
0x07f88…07f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x010a}
0x07f92…07fc4               Head {h00=0x002e, h01=0x0050, text=»* 0       3 4       7 8      11 12      15«, t00=0x0051, t01=0x0114}
0x07fc4…07ff6               Head {h00=0x002e, h01=0x0050, text=»* ........................................«, t00=0x0051, t01=0x0146}
0x07ff6…08028               Head {h00=0x002e, h01=0x0050, text=»* .  DWT   .  DTE    .  DATA   .  PHYS   .«, t00=0x0051, t01=0x0178}
0x08028…0805a               Head {h00=0x002e, h01=0x0050, text=»* .  STATE .  STATE  .  LINK   .  LINK   .«, t00=0x0052, t01=0x001a}
0x0805a…0808c               Head {h00=0x002e, h01=0x0050, text=»* .        .         .  STATUS .  STATUS .«, t00=0x0052, t01=0x004c}
0x0808c…080be               Head {h00=0x002e, h01=0x0050, text=»* ........................................«, t00=0x0052, t01=0x007e}
0x080be…080c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00b0}
0x080c8…080dc               Head {h00=0x0010, h01=0x0050, text=»RQRSTS EQU *«, t00=0x0052, t01=0x00ba}
0x080dc…080f2               Head {h00=0x0012, h01=0x0050, text=» IFT EM3270=1 «, t00=0x0052, t01=0x00ce}
0x080f2…0811a               Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW1,A8 GET OPTION CODE«, t00=0x0052, t01=0x00e4}
0x0811a…08144               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RQRS10 TEST IF ANY MESSAGE«, t00=0x0052, t01=0x010c}
0x08144…08150               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0136}
0x08150…08174               Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTSTA,A6 DWT STATUS «, t00=0x0052, t01=0x0142}
0x08174…0818e               Head {h00=0x0016, h01=0x0050, text=» SLL A2,4 BITS 0-3«, t00=0x0052, t01=0x0166}
0x0818e…081b2               Head {h00=0x0020, h01=0x0050, text=» AD A2,DTESTA,A7 DTE STATUS «, t00=0x0052, t01=0x0180}
0x081b2…081cc               Head {h00=0x0016, h01=0x0050, text=» SLL A2,4 BITS 4-7«, t00=0x0053, t01=0x0014}
0x081cc…081f6               Head {h00=0x0026, h01=0x0050, text=» AD A2,DTEDLS,A7 DATA LINK STATUS «, t00=0x0053, t01=0x002e}
0x081f6…08212               Head {h00=0x0018, h01=0x0050, text=» SLL A2,4 BITS 8-11 «, t00=0x0053, t01=0x0058}
0x08212…0824e               Head {h00=0x0038, h01=0x0050, text=» AD A2,DTEPLS,A7 PHYSICAL LINK STATUS (BITS 12 - 15)«, t00=0x0053, t01=0x0074}
0x0824e…08284               Head {h00=0x0032, h01=0x0050, text=» ST A2,ECBCW1,A8 STATUS TO ECB CONTROL WORD 1 «, t00=0x0053, t01=0x00b0}
0x08284…082a0               Head {h00=0x0018, h01=0x0050, text=» ABL RTOK RETURN: OK«, t00=0x0053, t01=0x00e6}
0x082a0…082b6               Head {h00=0x0012, h01=0x0050, text=» IFT EM3270=1 «, t00=0x0053, t01=0x0102}
0x082b6…082c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0118}
0x082c0…082ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0122}
0x082ca…082fc               Head {h00=0x002e, h01=0x0050, text=»*  ANY MESSAGE ORDER (ONLY IF EM3270 = 1) «, t00=0x0053, t01=0x012c}
0x082fc…08306               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x015e}
0x08306…0831a               Head {h00=0x0010, h01=0x0050, text=»RQRS10 EQU *«, t00=0x0053, t01=0x0168}
0x0831a…08342               Head {h00=0x0024, h01=0x0050, text=» LD A2,DTESTA,A7 GET DTE STATUS «, t00=0x0053, t01=0x017c}
0x08342…0835a               Head {h00=0x0014, h01=0x0050, text=» SUK A2,2 OPEN ?«, t00=0x0054, t01=0x0014}
0x0835a…08382               Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) RTSEQ NO,SEQUENCE ERROR«, t00=0x0054, t01=0x002c}
0x08382…083aa               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTSTA,A6 GET DWT STATUS «, t00=0x0054, t01=0x0054}
0x083aa…083c8               Head {h00=0x001a, h01=0x0050, text=» SUK A2,2 CONNECTED ? «, t00=0x0054, t01=0x007c}
0x083c8…083f0               Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) RTSEQ NO,SEQUENCE ERROR«, t00=0x0054, t01=0x009a}
0x083f0…0842a               Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? «, t00=0x0054, t01=0x00c2}
0x0842a…08458               Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) RTOK YES COMPLETE THE REQUEST«, t00=0x0054, t01=0x00fc}
0x08458…08478               Head {h00=0x001c, h01=0x0050, text=» ABL TDISP TO DISPATCHER«, t00=0x0054, t01=0x012a}
0x08478…08484               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x014a}
0x08484…08492               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0156}
0x08492…0849c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0164}
0x0849c…084b8               Head {h00=0x0018, h01=0x0050, text=»* SET STATUS REQUEST«, t00=0x0054, t01=0x016e}
0x084b8…084c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x018a}
0x084c2…084cc (85, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0004}
0x084cc…084ec               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS «, t00=0x0055, t01=0x000e}
0x084ec…08508               Head {h00=0x0018, h01=0x0050, text=»*  DWT ADDRESS (A6) «, t00=0x0055, t01=0x002e}
0x08508…08512               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x004a}
0x08512…08526               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0055, t01=0x0054}
0x08526…08558               Head {h00=0x002e, h01=0x0050, text=»*  SET DEVICE STATUS (ONLY IF STARVI = 1) «, t00=0x0055, t01=0x0068}
0x08558…08562               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x009a}
0x08562…08584               Head {h00=0x001e, h01=0x0050, text=»*  DE DEVICE END : X`'00' «, t00=0x0055, t01=0x00a4}
0x08584…0858e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c6}
0x0858e…085ba               Head {h00=0x0028, h01=0x0050, text=»*  IR INTERVENTION REQUIRED : X'01' «, t00=0x0055, t01=0x00d0}
0x085ba…085c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00fc}
0x085c4…085e4               Head {h00=0x001c, h01=0x0050, text=»*  DB DEVICE BUSY :X'10'«, t00=0x0055, t01=0x0106}
0x085e4…085ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0126}
0x085ee…0860e               Head {h00=0x001c, h01=0x0050, text=»* COMPLETION PARAMETERS:«, t00=0x0055, t01=0x0130}
0x0860e…0862a               Head {h00=0x0018, h01=0x0050, text=»*  RETURN CODE (A1) «, t00=0x0055, t01=0x0150}
0x0862a…08634               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x016c}
0x08634…08648               Head {h00=0x0010, h01=0x0050, text=»RQSST EQU * «, t00=0x0055, t01=0x0176}
0x08648…0865e               Head {h00=0x0012, h01=0x0050, text=» IFT STARVI=0 «, t00=0x0055, t01=0x018a}
0x0865e…08688               Head {h00=0x0026, h01=0x0050, text=» ABL RTREQ SET STATUS NOT INCLUDED«, t00=0x0056, t01=0x0010}
0x08688…08694               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x003a}
0x08694…086aa               Head {h00=0x0012, h01=0x0050, text=» IFT STARVI=1 «, t00=0x0056, t01=0x0046}
0x086aa…086d4               Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBCW1,A8 GET DEVICE STATUS«, t00=0x0056, t01=0x005c}
0x086d4…086f0               Head {h00=0x0018, h01=0x0050, text=» ANK A1,3 MASK DB,IR«, t00=0x0056, t01=0x0086}
0x086f0…0870e               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) RQST90 NOT DE «, t00=0x0056, t01=0x00a2}
0x0870e…08738               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTST,A6 GET DEVICE STATUS «, t00=0x0056, t01=0x00c0}
0x08738…08764               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/B WACK SENT, DB OR IR ? =2 «, t00=0x0056, t01=0x00ea}
0x08764…08780               Head {h00=0x0018, h01=0x0050, text=» RF(Z) RQST90 NO =2 «, t00=0x0056, t01=0x0116}
0x08780…087b0               Head {h00=0x002c, h01=0x0050, text=» CF A15,INSSQ INSERT DWT IN STATUS QUEUE«, t00=0x0056, t01=0x0132}
0x087b0…087c8               Head {h00=0x0014, h01=0x0050, text=» LDK A1,4 SET DE«, t00=0x0056, t01=0x0162}
0x087c8…087dc               Head {h00=0x0010, h01=0x0050, text=»RQST90 EQU *«, t00=0x0056, t01=0x017a}
0x087dc…08800               Head {h00=0x0020, h01=0x0050, text=» ST A1,DWTST,A6 SAVE STATUS «, t00=0x0056, t01=0x018e}
0x08800…0881e               Head {h00=0x001a, h01=0x0050, text=» ABL RTOK RETYURN : OK«, t00=0x0057, t01=0x0022}
0x0881e…0882a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0040}
0x0882a…08838               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x004c}
0x08838…08842               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x005a}
0x08842…0886a               Head {h00=0x0024, h01=0x0050, text=»* READ/RESET STATISTICS REQUEST «, t00=0x0057, t01=0x0064}
0x0886a…08874               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x008c}
0x08874…08894               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x0057, t01=0x0096}
0x08894…088b8               Head {h00=0x0020, h01=0x0050, text=»*  TYPE = BITS 0-7 OF ECBCW1«, t00=0x0057, t01=0x00b6}
0x088b8…088d4               Head {h00=0x0018, h01=0x0050, text=»*  ECB-ADDRESS (A8) «, t00=0x0057, t01=0x00da}
0x088d4…08900               Head {h00=0x0028, h01=0x0050, text=»*  DWT-ADDRESS OF LOW-LEVEL DWT (A6)«, t00=0x0057, t01=0x00f6}
0x08900…0890a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0122}
0x0890a…0891e               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0057, t01=0x012c}
0x0891e…08948               Head {h00=0x0026, h01=0x0050, text=»*  1. READ STATISTICS TO USER AREA«, t00=0x0057, t01=0x0140}
0x08948…08972               Head {h00=0x0026, h01=0x0050, text=»*  2. RESET ALL STATISTICS BUFFERS«, t00=0x0057, t01=0x016a}
0x08972…0897c (88, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0004}
0x0897c…0899c               Head {h00=0x001c, h01=0x0050, text=»* COMPLETION PARAMETERS:«, t00=0x0058, t01=0x000e}
0x0899c…089ca               Head {h00=0x002a, h01=0x0050, text=»*  NUMBER OF BYTES TRANSFERRED (ECBEL)«, t00=0x0058, t01=0x002e}
0x089ca…089e6               Head {h00=0x0018, h01=0x0050, text=»*  RETURN CODE (A1) «, t00=0x0058, t01=0x005c}
0x089e6…089f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0078}
0x089f0…08a04               Head {h00=0x0010, h01=0x0050, text=»RQSTAT EQU *«, t00=0x0058, t01=0x0082}
0x08a04…08a1a               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=0 «, t00=0x0058, t01=0x0096}
0x08a1a…08a56               Head {h00=0x0038, h01=0x0050, text=» ABL RTREQ RC : REQUEST ERROR NO STATISTICS INCLUDED«, t00=0x0058, t01=0x00ac}
0x08a56…08a62               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x00e8}
0x08a62…08a78               Head {h00=0x0012, h01=0x0050, text=» IFF STTSTS=0 «, t00=0x0058, t01=0x00f4}
0x08a78…08a9e               Head {h00=0x0022, h01=0x0050, text=» CF A15,DCSRED READ STATISTICS«, t00=0x0058, t01=0x010a}
0x08a9e…08ab4               Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0058, t01=0x0130}
0x08ab4…08ae4               Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR«, t00=0x0058, t01=0x0146}
0x08ae4…08b06               Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW1,A8 GET TYPE «, t00=0x0058, t01=0x0176}
0x08b06…08b30               Head {h00=0x0026, h01=0x0050, text=» SRL A1,8 TYPE FIELD TO LEFT BYTE «, t00=0x0059, t01=0x0008}
0x08b30…08b54               Head {h00=0x0020, h01=0x0050, text=» CCK A1,TYPRR CORRECT TYPE? «, t00=0x0059, t01=0x0032}
0x08b54…08b6a               Head {h00=0x0012, h01=0x0050, text=» RF(NE) RQST40«, t00=0x0059, t01=0x0056}
0x08b6a…08b9e               Head {h00=0x0030, h01=0x0050, text=» CF A15,DCSRLL RESET ALL STATISTICS BUFFERS «, t00=0x0059, t01=0x006c}
0x08b9e…08bbe               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 LUCKY AGAIN? «, t00=0x0059, t01=0x00a0}
0x08bbe…08bee               Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR«, t00=0x0059, t01=0x00c0}
0x08bee…08c02               Head {h00=0x0010, h01=0x0050, text=»RQST40 EQU *«, t00=0x0059, t01=0x00f0}
0x08c02…08c1e               Head {h00=0x0018, h01=0x0050, text=» ABL RTOK RETURN: OK«, t00=0x0059, t01=0x0104}
0x08c1e…08c2a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0120}
0x08c2a…08c38               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x012c}
0x08c38…08c42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x013a}
0x08c42…08c5e               Head {h00=0x0018, h01=0x0050, text=»* SET TIMEOUT VALUE «, t00=0x0059, t01=0x0144}
0x08c5e…08c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0160}
0x08c68…08c88               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x0059, t01=0x016a}
0x08c88…08cb8               Head {h00=0x002c, h01=0x0050, text=»*  ECBCW1 >= 0 : ACTIVATE TIMING CONTROL«, t00=0x0059, t01=0x018a}
0x08cb8…08cf6               Head {h00=0x003a, h01=0x0050, text=»*                TIMEOUT VALUE IN MULTIPLES OF 100 MS;«, t00=0x005a, t01=0x002a}
0x08cf6…08d26               Head {h00=0x002c, h01=0x0050, text=»*                0 = IMMEDIATE TIMEOUT. «, t00=0x005a, t01=0x0068}
0x08d26…08d5a               Head {h00=0x0030, h01=0x0050, text=»*         < 0:   DE-ACTIVATE TIMING CONTROL «, t00=0x005a, t01=0x0098}
0x08d5a…08d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00cc}
0x08d64…08d78               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x005a, t01=0x00d6}
0x08d78…08da8               Head {h00=0x002c, h01=0x0050, text=»*  STORE VALUE DIRECTLY IN CALLER'S DWT «, t00=0x005a, t01=0x00ea}
0x08da8…08db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x011a}
0x08db2…08dd2               Head {h00=0x001c, h01=0x0050, text=»* COMPLETION PARAMETERS:«, t00=0x005a, t01=0x0124}
0x08dd2…08dfc               Head {h00=0x0026, h01=0x0050, text=»*  DWTRTV = TIMEOUT VALUE = ECBCW1«, t00=0x005a, t01=0x0144}
0x08dfc…08e06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x016e}
0x08e06…08e1a               Head {h00=0x0010, h01=0x0050, text=»RQTIME EQU *«, t00=0x005a, t01=0x0178}
0x08e1a…08e4e               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB «, t00=0x005a, t01=0x018c}
0x08e4e…08e74               Head {h00=0x0022, h01=0x0050, text=» ST A2,DWTRTV,A6 STORE IN DWT «, t00=0x005b, t01=0x0030}
0x08e74…08e90               Head {h00=0x0018, h01=0x0050, text=» ABL RTOK RETURN: OK«, t00=0x005b, t01=0x0056}
0x08e90…08e9e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x0072}
0x08e9e…08ea8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0080}
0x08ea8…08ebe               Head {h00=0x0012, h01=0x0050, text=»* SEND REQUEST«, t00=0x005b, t01=0x008a}
0x08ebe…08ec8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a0}
0x08ec8…08ee8               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x005b, t01=0x00aa}
0x08ee8…08f0a               Head {h00=0x001e, h01=0x0050, text=»*  BUFFER ADDRESS (ECBBA) «, t00=0x005b, t01=0x00ca}
0x08f0a…08f2a               Head {h00=0x001c, h01=0x0050, text=»*  BUFFER LENGTH (ECBRL)«, t00=0x005b, t01=0x00ec}
0x08f2a…08f4e               Head {h00=0x0020, h01=0x0050, text=»*  SUBTERMINAL ADDRESS (DWT)«, t00=0x005b, t01=0x010c}
0x08f4e…08f6c               Head {h00=0x001a, h01=0x0050, text=»*  ECB CONTROL WORD 1 «, t00=0x005b, t01=0x0130}
0x08f6c…08f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x014e}
0x08f76…08f8a               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x005b, t01=0x0158}
0x08f8a…08fca               Head {h00=0x003c, h01=0x0050, text=»*  1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. «, t00=0x005b, t01=0x016c}
0x08fca…08ff2               Head {h00=0x0024, h01=0x0050, text=»*  2. VERIFY BUFFER SIZE IF MMU «, t00=0x005c, t01=0x001c}
0x08ff2…09014               Head {h00=0x001e, h01=0x0050, text=»*  3. QUEUE REQUESTING DWT«, t00=0x005c, t01=0x0044}
0x09014…09042               Head {h00=0x002a, h01=0x0050, text=»*  4. COMPLETE WHEN ACK'D OR TIMEOUT. «, t00=0x005c, t01=0x0066}
0x09042…0904c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0094}
0x0904c…09060               Head {h00=0x0010, h01=0x0050, text=»RQSEND EQU *«, t00=0x005c, t01=0x009e}
0x09060…09088               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTSTA,A6 GET DWT STATUS «, t00=0x005c, t01=0x00b2}
0x09088…090a6               Head {h00=0x001a, h01=0x0050, text=» SUK A2,2 CONNECTED ? «, t00=0x005c, t01=0x00da}
0x090a6…090d8               Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR «, t00=0x005c, t01=0x00f8}
0x090d8…0910e               Head {h00=0x0032, h01=0x0050, text=» LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? «, t00=0x005c, t01=0x012a}
0x0910e…0914a               Head {h00=0x0038, h01=0x0050, text=» ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR«, t00=0x005c, t01=0x0160}
0x0914a…0917e               Head {h00=0x0030, h01=0x0050, text=» LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ?«, t00=0x005d, t01=0x000c}
0x0917e…091ba               Head {h00=0x0038, h01=0x0050, text=» ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR «, t00=0x005d, t01=0x0040}
0x091ba…091de               Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTOPT,A6 GET OPTION «, t00=0x005d, t01=0x007c}
0x091de…091f2               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005d, t01=0x00a0}
0x091f2…0921a               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RQSE10 THERE IS NO OPTION«, t00=0x005d, t01=0x00b4}
0x0921a…0923c               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/20 WHICH OPTION ?«, t00=0x005d, t01=0x00dc}
0x0923c…0926e               Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR«, t00=0x005d, t01=0x00fe}
0x0926e…0929c               Head {h00=0x002a, h01=0x0050, text=» CF A15,RELBUF RELEASE BUFFERS QUEUED «, t00=0x005d, t01=0x0130}
0x0929c…092b0               Head {h00=0x0010, h01=0x0050, text=»RQSE10 EQU *«, t00=0x005d, t01=0x015e}
0x092b0…092c6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005d, t01=0x0172}
0x092c6…092ee               Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRL,A8 REQUESTED LENGTH«, t00=0x005d, t01=0x0188}
0x092ee…09316               Head {h00=0x0024, h01=0x0050, text=» CWK A2,BUFLEN ILLEGAL LENGTH ? «, t00=0x005e, t01=0x0020}
0x09316…09350               Head {h00=0x0036, h01=0x0050, text=» ABL(G) RTLGTH YES, RETURN: ILLEGAL BUFFER LENGTH «, t00=0x005e, t01=0x0048}
0x09350…0935c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0082}
0x0935c…0937e               Head {h00=0x001e, h01=0x0050, text=» CF A15,TIMEWR START TIMER«, t00=0x005e, t01=0x008e}
0x0937e…093a6               Head {h00=0x0024, h01=0x0050, text=» CF A15,INSWQ QUEUE SEND REQUEST«, t00=0x005e, t01=0x00b0}
0x093a6…093b8               Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x005e, t01=0x00d8}
0x093b8…093c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00ea}
0x093c2…093d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00f4}
0x093d0…093da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0102}
0x093da…093f4               Head {h00=0x0016, h01=0x0050, text=»* RECEIVE REQUEST «, t00=0x005e, t01=0x010c}
0x093f4…093fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0126}
0x093fe…0941e               Head {h00=0x001c, h01=0x0050, text=»* ACTIVATION PARAMETERS:«, t00=0x005e, t01=0x0130}
0x0941e…09440               Head {h00=0x001e, h01=0x0050, text=»*  BUFFER ADDRESS (ECBBA) «, t00=0x005e, t01=0x0150}
0x09440…09474               Head {h00=0x0030, h01=0x0050, text=»*  REQUESTED BUFFER LENGTH IN CHARS. (ECBRL)«, t00=0x005e, t01=0x0172}
0x09474…09498               Head {h00=0x0020, h01=0x0050, text=»*  SUBTERMINAL ADDRESS (DWT)«, t00=0x005f, t01=0x0016}
0x09498…094a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x003a}
0x094a2…094b6               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x005f, t01=0x0044}
0x094b6…094f6               Head {h00=0x003c, h01=0x0050, text=»*  1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. «, t00=0x005f, t01=0x0058}
0x094f6…09540               Head {h00=0x0046, h01=0x0050, text=»*  2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, «, t00=0x005f, t01=0x0098}
0x09540…09584               Head {h00=0x0040, h01=0x0050, text=»*  3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED «, t00=0x005f, t01=0x00e2}
0x09584…095a8               Head {h00=0x0020, h01=0x0050, text=»*     WITHIN TIMEOUT PERIOD.«, t00=0x005f, t01=0x0126}
0x095a8…095b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x014a}
0x095b2…095d2               Head {h00=0x001c, h01=0x0050, text=»* COMPLETION PARAMETERS:«, t00=0x005f, t01=0x0154}
0x095d2…09606               Head {h00=0x0030, h01=0x0050, text=»*  ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL)«, t00=0x005f, t01=0x0174}
0x09606…09622               Head {h00=0x0018, h01=0x0050, text=»*  RETURN CODE (A1) «, t00=0x0060, t01=0x0018}
0x09622…0962c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0034}
0x0962c…09640               Head {h00=0x0010, h01=0x0050, text=»RQRECE EQU *«, t00=0x0060, t01=0x003e}
0x09640…09668               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTSTA,A6 GET DWT STATUS «, t00=0x0060, t01=0x0052}
0x09668…09686               Head {h00=0x001a, h01=0x0050, text=» SUK A2,2 CONNECTED ? «, t00=0x0060, t01=0x007a}
0x09686…096b8               Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR «, t00=0x0060, t01=0x0098}
0x096b8…096ee               Head {h00=0x0032, h01=0x0050, text=» LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? «, t00=0x0060, t01=0x00ca}
0x096ee…0972a               Head {h00=0x0038, h01=0x0050, text=» ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR«, t00=0x0060, t01=0x0100}
0x0972a…09758               Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ?«, t00=0x0060, t01=0x013c}
0x09758…09772               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RQRE10 YES«, t00=0x0060, t01=0x016a}
0x09772…097a6               Head {h00=0x0030, h01=0x0050, text=» LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ?«, t00=0x0060, t01=0x0184}
0x097a6…097e2               Head {h00=0x0038, h01=0x0050, text=» ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR «, t00=0x0061, t01=0x0028}
0x097e2…09804               Head {h00=0x001e, h01=0x0050, text=» CF A15,TIMERE START TIMER«, t00=0x0061, t01=0x0064}
0x09804…09828               Head {h00=0x0020, h01=0x0050, text=» RF RQRE40 GO TO DISPATCHER «, t00=0x0061, t01=0x0086}
0x09828…0983c               Head {h00=0x0010, h01=0x0050, text=»RQRE10 EQU *«, t00=0x0061, t01=0x00aa}
0x0983c…09860               Head {h00=0x0020, h01=0x0050, text=» LD A3,2,A4 EFFECTIVE LENGTH«, t00=0x0061, t01=0x00be}
0x09860…09878               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBEL,A8 «, t00=0x0061, t01=0x00e2}
0x09878…098a6               Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS «, t00=0x0061, t01=0x00fa}
0x098a6…098ce               Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A4 NETWORK SUB-ADDRESS «, t00=0x0061, t01=0x0128}
0x098ce…098fe               Head {h00=0x002c, h01=0x0050, text=» CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS «, t00=0x0061, t01=0x0150}
0x098fe…0992a               Head {h00=0x0028, h01=0x0050, text=» ST A1,ECBCW2,A8 AND SAVE IT IN ECB «, t00=0x0061, t01=0x0180}
0x0992a…09944               Head {h00=0x0016, h01=0x0050, text=» IFT REMTIM=1  =9 «, t00=0x0062, t01=0x001c}
0x09944…0997c               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWTRTV,A6 GET REQUESTED TIMEOUT VALUE =9 «, t00=0x0062, t01=0x0036}
0x0997c…099b0               Head {h00=0x0030, h01=0x0050, text=» ST A1,ECBCW1,A8 STORE IN CONTROL WORD 1 =9 «, t00=0x0062, t01=0x006e}
0x099b0…099c2               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x0062, t01=0x00a2}
0x099c2…099f0               Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 RC : ACCEPTED AND COMPLETED «, t00=0x0062, t01=0x00b4}
0x099f0…09a1c               Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 GET NEXT BUFFER IN QUEUE«, t00=0x0062, t01=0x00e2}
0x09a1c…09a4a               Head {h00=0x002a, h01=0x0050, text=» RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE«, t00=0x0062, t01=0x010e}
0x09a4a…09a7e               Head {h00=0x0030, h01=0x0050, text=» ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE «, t00=0x0062, t01=0x013c}
0x09a7e…09a92               Head {h00=0x0010, h01=0x0050, text=»RQRE20 EQU *«, t00=0x0062, t01=0x0170}
0x09a92…09ac4               Head {h00=0x002e, h01=0x0050, text=» ST A2,DWTIPC,A6  STORE AS FIRST IN QUEUE «, t00=0x0062, t01=0x0184}
0x09ac4…09ad6               Head {h00=0x000e, h01=0x0050, text=» ADK A4,6 «, t00=0x0063, t01=0x0026}
0x09ad6…09b06               Head {h00=0x002c, h01=0x0050, text=» CF A15,DC:MIN MOVE DATA TO USER BUFFER «, t00=0x0063, t01=0x0038}
0x09b06…09b1a               Head {h00=0x0010, h01=0x0050, text=»RQRE40 EQU *«, t00=0x0063, t01=0x0068}
0x09b1a…09b3e               Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0063, t01=0x007c}
0x09b3e…09b4c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x00a0}
0x09b4c…09b56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00ae}
0x09b56…09b60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00b8}
0x09b60…09b88               Head {h00=0x0024, h01=0x0050, text=»*  COMPLETE APPLICATION REQUEST «, t00=0x0063, t01=0x00c2}
0x09b88…09b92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00ea}
0x09b92…09ba6               Head {h00=0x0010, h01=0x0050, text=»RTREQ EQU * «, t00=0x0063, t01=0x00f4}
0x09ba6…09bd0               Head {h00=0x0026, h01=0x0050, text=» LDKL A1,R:REQ RC = REQUEST ERROR «, t00=0x0063, t01=0x0108}
0x09bd0…09be2               Head {h00=0x000e, h01=0x0050, text=» RF RQRTN «, t00=0x0063, t01=0x0132}
0x09be2…09bf6               Head {h00=0x0010, h01=0x0050, text=»RTABRT EQU *«, t00=0x0063, t01=0x0144}
0x09bf6…09c1a               Head {h00=0x0020, h01=0x0050, text=» LDKL A1,R:ABRT RC = ABORTED«, t00=0x0063, t01=0x0158}
0x09c1a…09c2c               Head {h00=0x000e, h01=0x0050, text=» RF RQRTN «, t00=0x0063, t01=0x017c}
0x09c2c…09c40               Head {h00=0x0010, h01=0x0050, text=»RTTIME EQU *«, t00=0x0063, t01=0x018e}
0x09c40…09c64               Head {h00=0x0020, h01=0x0050, text=» LDK A1,R:TIME RC = TIME OUT«, t00=0x0064, t01=0x0012}
0x09c64…09c76               Head {h00=0x000e, h01=0x0050, text=» RF RQRTN «, t00=0x0064, t01=0x0036}
0x09c76…09c8a               Head {h00=0x0010, h01=0x0050, text=»RTSEQ EQU * «, t00=0x0064, t01=0x0048}
0x09c8a…09cb4               Head {h00=0x0026, h01=0x0050, text=» LDK A1,R:SEQ RC = SEQUENCE ERROR «, t00=0x0064, t01=0x005c}
0x09cb4…09cc6               Head {h00=0x000e, h01=0x0050, text=» RF RQRTN «, t00=0x0064, t01=0x0086}
0x09cc6…09cda               Head {h00=0x0010, h01=0x0050, text=»RTLGTH EQU *«, t00=0x0064, t01=0x0098}
0x09cda…09d04               Head {h00=0x0026, h01=0x0050, text=» LDK A1,R:LGTH RC = ILLEGAL LENGTH«, t00=0x0064, t01=0x00ac}
0x09d04…09d16               Head {h00=0x000e, h01=0x0050, text=» RF RQRTN «, t00=0x0064, t01=0x00d6}
0x09d16…09d2a               Head {h00=0x0010, h01=0x0050, text=»RTLOGC EQU *«, t00=0x0064, t01=0x00e8}
0x09d2a…09d5e               Head {h00=0x0030, h01=0x0050, text=» LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR«, t00=0x0064, t01=0x00fc}
0x09d5e…09d70               Head {h00=0x000e, h01=0x0050, text=» RF RQRTN «, t00=0x0064, t01=0x0130}
0x09d70…09d84               Head {h00=0x0010, h01=0x0050, text=»RTPHYC EQU *«, t00=0x0064, t01=0x0142}
0x09d84…09dba               Head {h00=0x0032, h01=0x0050, text=» LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR «, t00=0x0064, t01=0x0156}
0x09dba…09dcc               Head {h00=0x000e, h01=0x0050, text=» RF RQRTN «, t00=0x0064, t01=0x018c}
0x09dcc…09dde               Head {h00=0x000e, h01=0x0050, text=»RTOK EQU *«, t00=0x0065, t01=0x000e}
0x09dde…09df8               Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RC = OK «, t00=0x0065, t01=0x0020}
0x09df8…09e0c               Head {h00=0x0010, h01=0x0050, text=»RQRTN EQU * «, t00=0x0065, t01=0x003a}
0x09e0c…09e46               Head {h00=0x0036, h01=0x0050, text=» ABL DISEND COMPLETE REQUEST AND GO TO DISPATCHER «, t00=0x0065, t01=0x004e}
0x09e46…09e54               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x0088}
0x09e54…09e5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0096}
0x09e5e…09e9a               Head {h00=0x0038, h01=0x0050, text=»* LOOKUP - LOOK UP KEY IN TABLE & BRANCH ON ADDRESS «, t00=0x0065, t01=0x00a0}
0x09e9a…09ea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00dc}
0x09ea4…09eb4               Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0065, t01=0x00e6}
0x09eb4…09ef0               Head {h00=0x0038, h01=0x0050, text=»*  CF     A15,LOOKUP          TABLE ADDRESS TO STACK«, t00=0x0065, t01=0x00f6}
0x09ef0…09f30               Head {h00=0x003c, h01=0x0050, text=»*  DATA   LAST,ADDRE          LAST ENTRY; ERROR ADDRESS «, t00=0x0065, t01=0x0132}
0x09f30…09f72               Head {h00=0x003e, h01=0x0050, text=»*  DATA   KEY1,ADDR1          KEY (A2); ADDRESS FOR BRANCH«, t00=0x0065, t01=0x0172}
0x09f72…09f8c               Head {h00=0x0016, h01=0x0050, text=»*   "       "    "«, t00=0x0066, t01=0x0024}
0x09f8c…09fac               Head {h00=0x001c, h01=0x0050, text=»* LAST DATA   KEYN,ADDRN«, t00=0x0066, t01=0x003e}
0x09fac…09fb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x005e}
0x09fb6…09fd6               Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A2 = KEY VALUE «, t00=0x0066, t01=0x0068}
0x09fd6…09ff8               Head {h00=0x001e, h01=0x0050, text=»* EXIT: A3 & A4 DESTROYED «, t00=0x0066, t01=0x0088}
0x09ff8…0a002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00aa}
0x0a002…0a016               Head {h00=0x0010, h01=0x0050, text=»LOOKUP EQU *«, t00=0x0066, t01=0x00b4}
0x0a016…0a056               Head {h00=0x003c, h01=0x0050, text=» LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK «, t00=0x0066, t01=0x00c8}
0x0a056…0a088               Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A15 GET CONTENTS = TABLE ADDRESS «, t00=0x0066, t01=0x0108}
0x0a088…0a0b2               Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A3 GET LAST LEGAL ADDRESS«, t00=0x0066, t01=0x013a}
0x0a0b2…0a0d4               Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A3 ERROR ADDRESS «, t00=0x0066, t01=0x0164}
0x0a0d4…0a0de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0186}
0x0a0de…0a0fe               Head {h00=0x001c, h01=0x0050, text=»LOOK50 EQU * LOOP ENTRY «, t00=0x0066, t01=0x0190}
0x0a0fe…0a12c               Head {h00=0x002a, h01=0x0050, text=» ADK A3,4 GET NEXT TABLE ENTRY ADDRESS«, t00=0x0067, t01=0x0020}
0x0a12c…0a14c               Head {h00=0x001c, h01=0x0050, text=» CWR A3,A4 PAST THE END?«, t00=0x0067, t01=0x004e}
0x0a14c…0a172               Head {h00=0x0022, h01=0x0050, text=» RF(G) LOOK90 YES = NOT FOUND «, t00=0x0067, t01=0x006e}
0x0a172…0a19c               Head {h00=0x0026, h01=0x0050, text=» CWR* A2,A3 KEY = VALUE IN TABLE? «, t00=0x0067, t01=0x0094}
0x0a19c…0a1c8               Head {h00=0x0028, h01=0x0050, text=» RB(NE) LOOK50 NO - CHECK NEXT ENTRY«, t00=0x0067, t01=0x00be}
0x0a1c8…0a1f2               Head {h00=0x0026, h01=0x0050, text=» ABI 2,A3 BRANCH TO TABLE ADDRESS «, t00=0x0067, t01=0x00ea}
0x0a1f2…0a20a               Head {h00=0x0014, h01=0x0050, text=»*  KEY NOT FOUND«, t00=0x0067, t01=0x0114}
0x0a20a…0a21e               Head {h00=0x0010, h01=0x0050, text=»LOOK90 EQU *«, t00=0x0067, t01=0x012c}
0x0a21e…0a244               Head {h00=0x0022, h01=0x0050, text=» LDR P,A1 GO TO ERROR ADDRESS «, t00=0x0067, t01=0x0140}
0x0a244…0a252               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x0166}
0x0a252…0a25c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0174}
0x0a25c…0a266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x017e}
0x0a266…0a270               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0188}
0x0a270…0a296 (104, 0, 400) Head {h00=0x0022, h01=0x0050, text=»* REQUEST TIMER HANDLING PART «, t00=0x0068, t01=0x0004}
0x0a296…0a2a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x002a}
0x0a2a0…0a2aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0034}
0x0a2aa…0a2b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x003e}
0x0a2b4…0a2d2               Head {h00=0x001a, h01=0x0050, text=»* RECEIVE TIMER=TIMERR«, t00=0x0068, t01=0x0048}
0x0a2d2…0a2dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0066}
0x0a2dc…0a2f0               Head {h00=0x0010, h01=0x0050, text=»TIMERE EQU *«, t00=0x0068, t01=0x0070}
0x0a2f0…0a302               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0068, t01=0x0084}
0x0a302…0a32c               Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTRTV,A6 GET TIMEOUT VALUE«, t00=0x0068, t01=0x0096}
0x0a32c…0a34c               Head {h00=0x001c, h01=0x0050, text=» RF(N) TIMRTN NO TIMING «, t00=0x0068, t01=0x00c0}
0x0a34c…0a37e               Head {h00=0x002e, h01=0x0050, text=» RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT«, t00=0x0068, t01=0x00e0}
0x0a37e…0a394               Head {h00=0x0012, h01=0x0050, text=» ST A2,TIMERR «, t00=0x0068, t01=0x0112}
0x0a394…0a3aa               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0068, t01=0x0128}
0x0a3aa…0a3be               Head {h00=0x0010, h01=0x0050, text=» DATA TOUTRE«, t00=0x0068, t01=0x013e}
0x0a3be…0a3d4               Head {h00=0x0012, h01=0x0050, text=»TIMERR DATA 0 «, t00=0x0068, t01=0x0152}
0x0a3d4…0a400               Head {h00=0x0028, h01=0x0050, text=» ST A4,DWTRTP,A6 STORE TIMER POINTER«, t00=0x0068, t01=0x0168}
0x0a400…0a414 (105, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TIMRTN EQU *«, t00=0x0069, t01=0x0004}
0x0a414…0a428               Head {h00=0x0010, h01=0x0050, text=» ABL RTNA15 «, t00=0x0069, t01=0x0018}
0x0a428…0a432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x002c}
0x0a432…0a44e               Head {h00=0x0018, h01=0x0050, text=»* TIMEOUT READ TIMER«, t00=0x0069, t01=0x0036}
0x0a44e…0a458               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0052}
0x0a458…0a46c               Head {h00=0x0010, h01=0x0050, text=»ITOUTR EQU *«, t00=0x0069, t01=0x005c}
0x0a46c…0a480               Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x0069, t01=0x0070}
0x0a480…0a492               Head {h00=0x000e, h01=0x0050, text=» RF TIMOUT«, t00=0x0069, t01=0x0084}
0x0a492…0a4a6               Head {h00=0x0010, h01=0x0050, text=»TOUTRE EQU *«, t00=0x0069, t01=0x0096}
0x0a4a6…0a4c2               Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FETCH DWT«, t00=0x0069, t01=0x00aa}
0x0a4c2…0a4d8               Head {h00=0x0012, h01=0x0050, text=» CM DWTRTP,A6 «, t00=0x0069, t01=0x00c6}
0x0a4d8…0a506               Head {h00=0x002a, h01=0x0050, text=» RF TIMOUT COMPLETE REQUEST RC=TIMEOUT«, t00=0x0069, t01=0x00dc}
0x0a506…0a510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x010a}
0x0a510…0a51a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0114}
0x0a51a…0a540               Head {h00=0x0022, h01=0x0050, text=»*   RETURN FROM TIMER HANDLING«, t00=0x0069, t01=0x011e}
0x0a540…0a54a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0144}
0x0a54a…0a558               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x014e}
0x0a558…0a562               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x015c}
0x0a562…0a57c               Head {h00=0x0016, h01=0x0050, text=»* SEND TIMER=TIMWR«, t00=0x0069, t01=0x0166}
0x0a57c…0a586               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0180}
0x0a586…0a59e               Head {h00=0x0014, h01=0x0050, text=»TIMEWR LDR A1,A6«, t00=0x0069, t01=0x018a}
0x0a59e…0a5c8               Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTRTV,A6 GET TIMEOUT VALUE«, t00=0x006a, t01=0x0012}
0x0a5c8…0a5e8               Head {h00=0x001c, h01=0x0050, text=» RB(N) TIMRTN NO TIMING «, t00=0x006a, t01=0x003c}
0x0a5e8…0a61a               Head {h00=0x002e, h01=0x0050, text=» RB(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT«, t00=0x006a, t01=0x005c}
0x0a61a…0a62e               Head {h00=0x0010, h01=0x0050, text=» ST A2,TIMWR«, t00=0x006a, t01=0x008e}
0x0a62e…0a644               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x006a, t01=0x00a2}
0x0a644…0a658               Head {h00=0x0010, h01=0x0050, text=» DATA TOUTWR«, t00=0x006a, t01=0x00b8}
0x0a658…0a66c               Head {h00=0x0010, h01=0x0050, text=»TIMWR DATA 0«, t00=0x006a, t01=0x00cc}
0x0a66c…0a684               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTRTP,A6«, t00=0x006a, t01=0x00e0}
0x0a684…0a696               Head {h00=0x000e, h01=0x0050, text=» RB TIMRTN«, t00=0x006a, t01=0x00f8}
0x0a696…0a6a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x010a}
0x0a6a0…0a6be               Head {h00=0x001a, h01=0x0050, text=»* TIMEOUT WRITE TIMER «, t00=0x006a, t01=0x0114}
0x0a6be…0a6c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0132}
0x0a6c8…0a6dc               Head {h00=0x0010, h01=0x0050, text=»TOUTWR EQU *«, t00=0x006a, t01=0x013c}
0x0a6dc…0a6f8               Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FETCH DWT«, t00=0x006a, t01=0x0150}
0x0a6f8…0a70e               Head {h00=0x0012, h01=0x0050, text=» CM DWTRTP,A6 «, t00=0x006a, t01=0x016c}
0x0a70e…0a73c               Head {h00=0x002a, h01=0x0050, text=» CF A15,REMOVW REMOVE FROM WRITE QUEUE«, t00=0x006a, t01=0x0182}
0x0a73c…0a746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0020}
0x0a746…0a750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x002a}
0x0a750…0a77a               Head {h00=0x0026, h01=0x0050, text=»* THIS INSTRUCTION DOES NOT BELONG«, t00=0x006b, t01=0x0034}
0x0a77a…0a79e               Head {h00=0x0020, h01=0x0050, text=»* TO THE STANDARD INTERFACE «, t00=0x006b, t01=0x005e}
0x0a79e…0a7b4               Head {h00=0x0012, h01=0x0050, text=» LD A2,FDWTUT «, t00=0x006b, t01=0x0082}
0x0a7b4…0a7c6               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A6«, t00=0x006b, t01=0x0098}
0x0a7c6…0a7f4               Head {h00=0x002a, h01=0x0050, text=» RF(NE) TIMOUT THIS DWT IS NOT WRITING«, t00=0x006b, t01=0x00aa}
0x0a7f4…0a820               Head {h00=0x0028, h01=0x0050, text=» CM XACK INDICATE 'ACK NOT EXPECTED'«, t00=0x006b, t01=0x00d8}
0x0a820…0a832               Head {h00=0x000e, h01=0x0050, text=» CM FDWTUT«, t00=0x006b, t01=0x0104}
0x0a832…0a846               Head {h00=0x0010, h01=0x0050, text=»TIMOUT EQU *«, t00=0x006b, t01=0x0116}
0x0a846…0a876               Head {h00=0x002c, h01=0x0050, text=» ABL RTTIME COMPLETE REQUEST RC=TIMEOUT «, t00=0x006b, t01=0x012a}
0x0a876…0a884               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x015a}
0x0a884…0a88e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0168}
0x0a88e…0a898               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0172}
0x0a898…0a8b6               Head {h00=0x001a, h01=0x0050, text=»* STOP REQUEST TIMING «, t00=0x006b, t01=0x017c}
0x0a8b6…0a8c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x000a}
0x0a8c0…0a8ea               Head {h00=0x0026, h01=0x0050, text=»* REMAINING TIME IS RETURNED IN A2«, t00=0x006c, t01=0x0014}
0x0a8ea…0a8f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x003e}
0x0a8f4…0a8fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0048}
0x0a8fe…0a912               Head {h00=0x0010, h01=0x0050, text=»CTIME EQU * «, t00=0x006c, t01=0x0052}
0x0a912…0a93c               Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTRTP,A6 GET TIMER POINTER«, t00=0x006c, t01=0x0066}
0x0a93c…0a95e               Head {h00=0x001e, h01=0x0050, text=» RF(Z) CTIM10 NOT RUNNING «, t00=0x006c, t01=0x0090}
0x0a95e…0a978               Head {h00=0x0016, h01=0x0050, text=» IFT REMTIM=1  =9 «, t00=0x006c, t01=0x00b2}
0x0a978…0a990               Head {h00=0x0014, h01=0x0050, text=» LDR* A2,A2  =9 «, t00=0x006c, t01=0x00cc}
0x0a990…0a9b8               Head {h00=0x0024, h01=0x0050, text=» NGR A2,A2 GET REMAINING TIME =9«, t00=0x006c, t01=0x00e4}
0x0a9b8…0a9ca               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x006c, t01=0x010c}
0x0a9ca…0a9ee               Head {h00=0x0020, h01=0x0050, text=» CM* DWTRTP,A6 KILL TIMER =9«, t00=0x006c, t01=0x011e}
0x0a9ee…0aa04               Head {h00=0x0012, h01=0x0050, text=» CM DWTRTP,A6 «, t00=0x006c, t01=0x0142}
0x0aa04…0aa12               Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x006c, t01=0x0158}
0x0aa12…0aa26               Head {h00=0x0010, h01=0x0050, text=»CTIM10 EQU *«, t00=0x006c, t01=0x0166}
0x0aa26…0aa3a               Head {h00=0x0010, h01=0x0050, text=» ABL RTNA15 «, t00=0x006c, t01=0x017a}
0x0aa3a…0aa48               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x018e}
0x0aa48…0aa52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x000c}
0x0aa52…0aa6e               Head {h00=0x0018, h01=0x0050, text=»* GET RECEIVE BUFFER«, t00=0x006d, t01=0x0016}
0x0aa6e…0aa78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0032}
0x0aa78…0aaa0               Head {h00=0x0024, h01=0x0050, text=»* CALLING SEQUENCE: CF A15,GRBUF«, t00=0x006d, t01=0x003c}
0x0aaa0…0aac4               Head {h00=0x0020, h01=0x0050, text=»* A4=0 IF NO BUFFER IS FREE «, t00=0x006d, t01=0x0064}
0x0aac4…0aaee               Head {h00=0x0026, h01=0x0050, text=»* ELSE A4 CONTAINS BUFFER ADDRESS «, t00=0x006d, t01=0x0088}
0x0aaee…0ab10               Head {h00=0x001e, h01=0x0050, text=»* A2 AND A3 ARE DESTROYED «, t00=0x006d, t01=0x00b2}
0x0ab10…0ab1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00d4}
0x0ab1a…0ab24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00de}
0x0ab24…0ab50               Head {h00=0x0028, h01=0x0050, text=»GRBUF LDKL A2,DCRBUF RECEIVE BUFFERS«, t00=0x006d, t01=0x00e8}
0x0ab50…0ab5c               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x006d, t01=0x0114}
0x0ab5c…0ab70               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A2 «, t00=0x006d, t01=0x0120}
0x0ab70…0ab94               Head {h00=0x0020, h01=0x0050, text=» RF(Z) GBUF10 NO BUFFER FREE«, t00=0x006d, t01=0x0134}
0x0ab94…0abc6               Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN «, t00=0x006d, t01=0x0158}
0x0abc6…0abd8               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x006d, t01=0x018a}
0x0abd8…0abec               Head {h00=0x0010, h01=0x0050, text=»GBUF10 EQU *«, t00=0x006e, t01=0x000c}
0x0abec…0ac00               Head {h00=0x0010, h01=0x0050, text=» ABL RTNA15 «, t00=0x006e, t01=0x0020}
0x0ac00…0ac0e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0034}
0x0ac0e…0ac18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0042}
0x0ac18…0ac22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x004c}
0x0ac22…0ac42               Head {h00=0x001c, h01=0x0050, text=»* RELEASE RECEIVE BUFFER«, t00=0x006e, t01=0x0056}
0x0ac42…0ac4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0076}
0x0ac4c…0ac70               Head {h00=0x0020, h01=0x0050, text=»* A4 CONTAINS BUFFER ADDRESS«, t00=0x006e, t01=0x0080}
0x0ac70…0ac98               Head {h00=0x0024, h01=0x0050, text=»* CALLING SEQUENCE: CF A15,RRBUF«, t00=0x006e, t01=0x00a4}
0x0ac98…0acba               Head {h00=0x001e, h01=0x0050, text=»* A2 AND A3 ARE DESTROYED «, t00=0x006e, t01=0x00cc}
0x0acba…0acc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ee}
0x0acc4…0acce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00f8}
0x0acce…0acfa               Head {h00=0x0028, h01=0x0050, text=»RRBUF LDKL A2,DCRBUF RECEIVE BUFFERS«, t00=0x006e, t01=0x0102}
0x0acfa…0ad06               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x006e, t01=0x012e}
0x0ad06…0ad1a               Head {h00=0x0010, h01=0x0050, text=»RBUF10 EQU *«, t00=0x006e, t01=0x013a}
0x0ad1a…0ad2e               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x006e, t01=0x014e}
0x0ad2e…0ad44               Head {h00=0x0012, h01=0x0050, text=» RF(Z) RBUF20 «, t00=0x006e, t01=0x0162}
0x0ad44…0ad56               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x006e, t01=0x0178}
0x0ad56…0ad68               Head {h00=0x000e, h01=0x0050, text=» RB RBUF10«, t00=0x006e, t01=0x018a}
0x0ad68…0ad7c               Head {h00=0x0010, h01=0x0050, text=»RBUF20 EQU *«, t00=0x006f, t01=0x000c}
0x0ad7c…0ad8e               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x006f, t01=0x0020}
0x0ad8e…0ad9e               Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x006f, t01=0x0032}
0x0ad9e…0adc2               Head {h00=0x0020, h01=0x0050, text=» RB GBUF10 RETURN TO CALLER «, t00=0x006f, t01=0x0042}
0x0adc2…0add0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006f, t01=0x0066}
0x0add0…0adda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0074}
0x0adda…0ae10               Head {h00=0x0032, h01=0x0050, text=»* RELEASE ALL RECEIVE BUFFERS QUEUED ON A DWT «, t00=0x006f, t01=0x007e}
0x0ae10…0ae1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00b4}
0x0ae1a…0ae32               Head {h00=0x0014, h01=0x0050, text=»* A6 - DWT ADDR «, t00=0x006f, t01=0x00be}
0x0ae32…0ae54               Head {h00=0x001e, h01=0x0050, text=»* A1 AND A4 ARE DESTROYED «, t00=0x006f, t01=0x00d6}
0x0ae54…0ae80               Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE: CF    A15,RELBUF«, t00=0x006f, t01=0x00f8}
0x0ae80…0ae8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0124}
0x0ae8a…0ae94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x012e}
0x0ae94…0aea8               Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x006f, t01=0x0138}
0x0aea8…0aed6               Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTIPC SET BUFFER QUEUE DISP. «, t00=0x006f, t01=0x014c}
0x0aed6…0aee8               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x006f, t01=0x017a}
0x0aee8…0aefc               Head {h00=0x0010, h01=0x0050, text=»RLBU10 EQU *«, t00=0x006f, t01=0x018c}
0x0aefc…0af24               Head {h00=0x0024, h01=0x0050, text=» LDR* A4,A1 NEXT IN BUFFER QUEUE«, t00=0x0070, t01=0x0010}
0x0af24…0af3a               Head {h00=0x0012, h01=0x0050, text=» RB(Z) GBUF10 «, t00=0x0070, t01=0x0038}
0x0af3a…0af60               Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A4 REMOVE FROM QUEUE «, t00=0x0070, t01=0x004e}
0x0af60…0af74               Head {h00=0x0010, h01=0x0050, text=» STR A2,A1 .«, t00=0x0070, t01=0x0074}
0x0af74…0af98               Head {h00=0x0020, h01=0x0050, text=» CF A15,RRBUF RELEASE BUFFER«, t00=0x0070, t01=0x0088}
0x0af98…0afaa               Head {h00=0x000e, h01=0x0050, text=» RB RLBU10«, t00=0x0070, t01=0x00ac}
0x0afaa…0afb8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x00be}
0x0afb8…0afc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00cc}
0x0afc2…0afcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00d6}
0x0afcc…0aff6               Head {h00=0x0026, h01=0x0050, text=»* INSERT DWT IN SEND REQUEST QUEUE«, t00=0x0070, t01=0x00e0}
0x0aff6…0b000               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x010a}
0x0b000…0b01c               Head {h00=0x0018, h01=0x0050, text=»* A2,A3,A4 DESTROYED«, t00=0x0070, t01=0x0114}
0x0b01c…0b02c               Head {h00=0x000c, h01=0x0050, text=»* A6=DWT«, t00=0x0070, t01=0x0130}
0x0b02c…0b036               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0140}
0x0b036…0b062               Head {h00=0x0028, h01=0x0050, text=»INSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR«, t00=0x0070, t01=0x014a}
0x0b062…0b078               Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTOPN«, t00=0x0070, t01=0x0176}
0x0b078…0b092               Head {h00=0x0016, h01=0x0050, text=»INSWQ2 LDR* A3,A2 «, t00=0x0070, t01=0x018c}
0x0b092…0b0ba               Head {h00=0x0024, h01=0x0050, text=» RF(Z) INSWQ3 END OF QUEUE FOUND«, t00=0x0071, t01=0x0016}
0x0b0ba…0b0cc               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0071, t01=0x003e}
0x0b0cc…0b0de               Head {h00=0x000e, h01=0x0050, text=» RB INSWQ2«, t00=0x0071, t01=0x0050}
0x0b0de…0b0f6               Head {h00=0x0014, h01=0x0050, text=»INSWQ3 ADR A4,A6«, t00=0x0071, t01=0x0062}
0x0b0f6…0b118               Head {h00=0x001e, h01=0x0050, text=» STR A4,A2 INSERT IN QUEUE«, t00=0x0071, t01=0x007a}
0x0b118…0b13e               Head {h00=0x0022, h01=0x0050, text=» CMR A4 INDICATE END OF QUEUE «, t00=0x0071, t01=0x009c}
0x0b13e…0b158               Head {h00=0x0016, h01=0x0050, text=» RB GBUF10 RETURN «, t00=0x0071, t01=0x00c2}
0x0b158…0b166               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x00dc}
0x0b166…0b170               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00ea}
0x0b170…0b17a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00f4}
0x0b17a…0b1a6               Head {h00=0x0028, h01=0x0050, text=»* REMOVE DWT FROM SEND REQUEST QUEUE«, t00=0x0071, t01=0x00fe}
0x0b1a6…0b1b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x012a}
0x0b1b0…0b1cc               Head {h00=0x0018, h01=0x0050, text=»* A2,A3,A4 DESTROYED«, t00=0x0071, t01=0x0134}
0x0b1cc…0b1dc               Head {h00=0x000c, h01=0x0050, text=»* A6=DWT«, t00=0x0071, t01=0x0150}
0x0b1dc…0b1e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0160}
0x0b1e6…0b214               Head {h00=0x002a, h01=0x0050, text=»REMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR «, t00=0x0071, t01=0x016a}
0x0b214…0b246               Head {h00=0x002e, h01=0x0050, text=» LDK A4,DWTOPN GET DWT-LINK TO BE REMOVED «, t00=0x0072, t01=0x0008}
0x0b246…0b25a               Head {h00=0x0010, h01=0x0050, text=»REM06 EQU * «, t00=0x0072, t01=0x003a}
0x0b25a…0b26e               Head {h00=0x0010, h01=0x0050, text=» ADR A4,A6  «, t00=0x0072, t01=0x004e}
0x0b26e…0b286               Head {h00=0x0014, h01=0x0050, text=»REM10 LDR* A3,A2«, t00=0x0072, t01=0x0062}
0x0b286…0b2b0               Head {h00=0x0026, h01=0x0050, text=» RB(Z) GBUF10 NOT ON QUEUE: RETURN«, t00=0x0072, t01=0x007a}
0x0b2b0…0b2c2               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A4«, t00=0x0072, t01=0x00a4}
0x0b2c2…0b2d6               Head {h00=0x0010, h01=0x0050, text=» RF(E) REM15«, t00=0x0072, t01=0x00b6}
0x0b2d6…0b2f2               Head {h00=0x0018, h01=0x0050, text=» LDR A2,A3 GET NEXT «, t00=0x0072, t01=0x00ca}
0x0b2f2…0b304               Head {h00=0x000e, h01=0x0050, text=» RB REM10 «, t00=0x0072, t01=0x00e6}
0x0b304…0b324               Head {h00=0x001c, h01=0x0050, text=»REM15 LDR* A3,A4 REMOVE «, t00=0x0072, t01=0x00f8}
0x0b324…0b336               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0072, t01=0x0118}
0x0b336…0b350               Head {h00=0x0016, h01=0x0050, text=» RB GBUF10 RETURN «, t00=0x0072, t01=0x012a}
0x0b350…0b35e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0144}
0x0b35e…0b368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0152}
0x0b368…0b372               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x015c}
0x0b372…0b396               Head {h00=0x0020, h01=0x0050, text=»* INSERT DWT IN STATUS QUEUE«, t00=0x0072, t01=0x0166}
0x0b396…0b3a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x018a}
0x0b3a0…0b3b6 (115, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x0073, t01=0x0004}
0x0b3b6…0b3d2               Head {h00=0x0018, h01=0x0050, text=»* A2,A3,A4 DESTROYED«, t00=0x0073, t01=0x001a}
0x0b3d2…0b3e2               Head {h00=0x000c, h01=0x0050, text=»* A6=DWT«, t00=0x0073, t01=0x0036}
0x0b3e2…0b3ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0046}
0x0b3ec…0b418               Head {h00=0x0028, h01=0x0050, text=»INSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR«, t00=0x0073, t01=0x0050}
0x0b418…0b42e               Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTOPE«, t00=0x0073, t01=0x007c}
0x0b42e…0b440               Head {h00=0x000e, h01=0x0050, text=» RB INSWQ2«, t00=0x0073, t01=0x0092}
0x0b440…0b44a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00a4}
0x0b44a…0b454               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ae}
0x0b454…0b47a               Head {h00=0x0022, h01=0x0050, text=»* REMOVE DWT FROM STATUS QUEUE«, t00=0x0073, t01=0x00b8}
0x0b47a…0b484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00de}
0x0b484…0b4a0               Head {h00=0x0018, h01=0x0050, text=»* A2,A3,A4 DESTROYED«, t00=0x0073, t01=0x00e8}
0x0b4a0…0b4b0               Head {h00=0x000c, h01=0x0050, text=»* A6=DWT«, t00=0x0073, t01=0x0104}
0x0b4b0…0b4ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0114}
0x0b4ba…0b4e8               Head {h00=0x002a, h01=0x0050, text=»REMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR «, t00=0x0073, t01=0x011e}
0x0b4e8…0b4fe               Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTOPE«, t00=0x0073, t01=0x014c}
0x0b4fe…0b510               Head {h00=0x000e, h01=0x0050, text=» RB REM06 «, t00=0x0073, t01=0x0162}
0x0b510…0b51c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x0174}
0x0b51c…0b52a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0180}
0x0b52a…0b534               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x018e}
0x0b534…0b53e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0008}
0x0b53e…0b566               Head {h00=0x0024, h01=0x0050, text=»* QUEUE ALLOCATED RECEIVE BUFFER«, t00=0x0074, t01=0x0012}
0x0b566…0b570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x003a}
0x0b570…0b588               Head {h00=0x0014, h01=0x0050, text=»* A4=BUFFER ADDR«, t00=0x0074, t01=0x0044}
0x0b588…0b5a2               Head {h00=0x0016, h01=0x0050, text=»* A2,A3 DESTROYED «, t00=0x0074, t01=0x005c}
0x0b5a2…0b5ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0076}
0x0b5ac…0b5c0               Head {h00=0x0010, h01=0x0050, text=»QRBUF EQU * «, t00=0x0074, t01=0x0080}
0x0b5c0…0b5d2               Head {h00=0x000e, h01=0x0050, text=» SUK A4,6 «, t00=0x0074, t01=0x0094}
0x0b5d2…0b600               Head {h00=0x002a, h01=0x0050, text=» LDK A2,DWTIPC SET BUFFER QUEUE DISP. «, t00=0x0074, t01=0x00a6}
0x0b600…0b612               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0074, t01=0x00d4}
0x0b612…0b626               Head {h00=0x0010, h01=0x0050, text=»QR100 EQU * «, t00=0x0074, t01=0x00e6}
0x0b626…0b63a               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0074, t01=0x00fa}
0x0b63a…0b662               Head {h00=0x0024, h01=0x0050, text=» RF(Z) QR200 END OF QUEUE FOUND «, t00=0x0074, t01=0x010e}
0x0b662…0b674               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0074, t01=0x0136}
0x0b674…0b686               Head {h00=0x000e, h01=0x0050, text=» RB QR100 «, t00=0x0074, t01=0x0148}
0x0b686…0b6b0               Head {h00=0x0026, h01=0x0050, text=»QR200 STR A4,A2 INSERT INTO QUEUE «, t00=0x0074, t01=0x015a}
0x0b6b0…0b6d6               Head {h00=0x0022, h01=0x0050, text=» CMR A4 INDICATE END OF QUEUE «, t00=0x0074, t01=0x0184}
0x0b6d6…0b6e6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0075, t01=0x001a}
0x0b6e6…0b6f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x002a}
0x0b6f4…0b6fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0038}
0x0b6fe…0b708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0042}
0x0b708…0b726               Head {h00=0x001a, h01=0x0050, text=»* STORE REGISTER A3-A8«, t00=0x0075, t01=0x004c}
0x0b726…0b74e               Head {h00=0x0024, h01=0x0050, text=»* CALLING SEQUENSE: CF A15,STREG«, t00=0x0075, t01=0x006a}
0x0b74e…0b758               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0092}
0x0b758…0b770               Head {h00=0x0014, h01=0x0050, text=»STREG ST A3,LCA3«, t00=0x0075, t01=0x009c}
0x0b770…0b784               Head {h00=0x0010, h01=0x0050, text=» ST A4,LCA4 «, t00=0x0075, t01=0x00b4}
0x0b784…0b798               Head {h00=0x0010, h01=0x0050, text=» ST A5,LCA5 «, t00=0x0075, t01=0x00c8}
0x0b798…0b7ac               Head {h00=0x0010, h01=0x0050, text=» ST A6,LCA6 «, t00=0x0075, t01=0x00dc}
0x0b7ac…0b7c0               Head {h00=0x0010, h01=0x0050, text=» ST A7,LCA7 «, t00=0x0075, t01=0x00f0}
0x0b7c0…0b7d4               Head {h00=0x0010, h01=0x0050, text=» ST A8,LCA8 «, t00=0x0075, t01=0x0104}
0x0b7d4…0b7ee               Head {h00=0x0016, h01=0x0050, text=» RF RTNA15 RETURN «, t00=0x0075, t01=0x0118}
0x0b7ee…0b7f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0132}
0x0b7f8…0b802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x013c}
0x0b802…0b814               Head {h00=0x000e, h01=0x0050, text=»* RESTORE «, t00=0x0075, t01=0x0146}
0x0b814…0b83c               Head {h00=0x0024, h01=0x0050, text=»* CALLING SEQUENCE: CF A15,LDREG«, t00=0x0075, t01=0x0158}
0x0b83c…0b846               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0180}
0x0b846…0b85e               Head {h00=0x0014, h01=0x0050, text=»LDREG LDKL A3,0 «, t00=0x0075, t01=0x018a}
0x0b85e…0b872               Head {h00=0x0010, h01=0x0050, text=»LCA3 EQU *-2«, t00=0x0076, t01=0x0012}
0x0b872…0b884               Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x0076, t01=0x0026}
0x0b884…0b898               Head {h00=0x0010, h01=0x0050, text=»LCA4 EQU *-2«, t00=0x0076, t01=0x0038}
0x0b898…0b8aa               Head {h00=0x000e, h01=0x0050, text=» LDKL A5,0«, t00=0x0076, t01=0x004c}
0x0b8aa…0b8be               Head {h00=0x0010, h01=0x0050, text=»LCA5 EQU *-2«, t00=0x0076, t01=0x005e}
0x0b8be…0b8d0               Head {h00=0x000e, h01=0x0050, text=» LDKL A6,0«, t00=0x0076, t01=0x0072}
0x0b8d0…0b8e4               Head {h00=0x0010, h01=0x0050, text=»LCA6 EQU *-2«, t00=0x0076, t01=0x0084}
0x0b8e4…0b8f6               Head {h00=0x000e, h01=0x0050, text=» LDKL A7,0«, t00=0x0076, t01=0x0098}
0x0b8f6…0b90a               Head {h00=0x0010, h01=0x0050, text=»LCA7 EQU *-2«, t00=0x0076, t01=0x00aa}
0x0b90a…0b91c               Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0076, t01=0x00be}
0x0b91c…0b930               Head {h00=0x0010, h01=0x0050, text=»LCA8 EQU *-2«, t00=0x0076, t01=0x00d0}
0x0b930…0b93a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00e4}
0x0b93a…0b944               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00ee}
0x0b944…0b966               Head {h00=0x001e, h01=0x0050, text=»*  RETURN VIA REGISTER 15 «, t00=0x0076, t01=0x00f8}
0x0b966…0b970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x011a}
0x0b970…0b984               Head {h00=0x0010, h01=0x0050, text=»RTNA15 EQU *«, t00=0x0076, t01=0x0124}
0x0b984…0b998               Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x0076, t01=0x0138}
0x0b998…0b9aa               Head {h00=0x000e, h01=0x0050, text=» ABR* A15 «, t00=0x0076, t01=0x014c}
0x0b9aa…0b9b8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x015e}
0x0b9b8…0b9c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x016c}
0x0b9c2…0b9da               Head {h00=0x0014, h01=0x0050, text=»* POLL TIME OUT «, t00=0x0076, t01=0x0176}
0x0b9da…0b9e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x018e}
0x0b9e4…0ba10               Head {h00=0x0028, h01=0x0050, text=»PTOUT LDKL A5,STB LOAD A5 STACK BASE«, t00=0x0077, t01=0x0008}
0x0ba10…0ba36               Head {h00=0x0022, h01=0x0050, text=» LDR A6,A1 RELOAD DWT ADDRESS «, t00=0x0077, t01=0x0034}
0x0ba36…0ba4e               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,DTETAB «, t00=0x0077, t01=0x005a}
0x0ba4e…0ba64               Head {h00=0x0012, h01=0x0050, text=» CM DTEDLS,A7 «, t00=0x0077, t01=0x0072}
0x0ba64…0ba7a               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x0077, t01=0x0088}
0x0ba7a…0ba84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x009e}
0x0ba84…0ba8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00a8}
0x0ba8e…0baac               Head {h00=0x001a, h01=0x0050, text=»*  COUNT POLL TIME OUT«, t00=0x0077, t01=0x00b2}
0x0baac…0bab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00d0}
0x0bab6…0bacc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSSXC3«, t00=0x0077, t01=0x00da}
0x0bacc…0bae2               Head {h00=0x0012, h01=0x0050, text=» CF A15,DCSUPS«, t00=0x0077, t01=0x00f0}
0x0bae2…0baee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0106}
0x0baee…0bb16               Head {h00=0x0024, h01=0x0050, text=» CF A15,SPOTIM START POLL TIMER «, t00=0x0077, t01=0x0112}
0x0bb16…0bb28               Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0077, t01=0x013a}
0x0bb28…0bb32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x014c}
0x0bb32…0bb6a               Head {h00=0x0034, h01=0x0050, text=»* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED«, t00=0x0077, t01=0x0156}
0x0bb6a…0bb74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x018e}
0x0bb74…0bb88               Head {h00=0x0010, h01=0x0050, text=»CPTIM EQU * «, t00=0x0078, t01=0x0008}
0x0bb88…0bba2               Head {h00=0x0016, h01=0x0050, text=» LDK A2,1 INDICATE«, t00=0x0078, t01=0x001c}
0x0bba2…0bbc8               Head {h00=0x0022, h01=0x0050, text=» ST A2,DTEDLS,A7 DATA LINK UP «, t00=0x0078, t01=0x0036}
0x0bbc8…0bbe0               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,-TIMPOL«, t00=0x0078, t01=0x005c}
0x0bbe0…0bc04               Head {h00=0x0020, h01=0x0050, text=» ST* A2,DCTPGP RESTART TIMER«, t00=0x0078, t01=0x0074}
0x0bc04…0bc14               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0078, t01=0x0098}
0x0bc14…0bc1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00a8}
0x0bc1e…0bc38               Head {h00=0x0016, h01=0x0050, text=»* START POLL TIMER«, t00=0x0078, t01=0x00b2}
0x0bc38…0bc42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00cc}
0x0bc42…0bc56               Head {h00=0x0010, h01=0x0050, text=»SPOTIM EQU *«, t00=0x0078, t01=0x00d6}
0x0bc56…0bc86               Head {h00=0x002c, h01=0x0050, text=» LDR A1,A6 LOAD DWT ADDRESS AS PARAMETER«, t00=0x0078, t01=0x00ea}
0x0bc86…0bca8               Head {h00=0x001e, h01=0x0050, text=» CF A15,SETIME START TIMER«, t00=0x0078, t01=0x011a}
0x0bca8…0bcc2               Head {h00=0x0016, h01=0x0050, text=» DATA PTOUT,TIMPOL«, t00=0x0078, t01=0x013c}
0x0bcc2…0bcec               Head {h00=0x0026, h01=0x0050, text=» ST A4,DCTPGP STORE TIMER POINTER «, t00=0x0078, t01=0x0156}
0x0bcec…0bd06               Head {h00=0x0016, h01=0x0050, text=» RB RTNA15 RETURN «, t00=0x0078, t01=0x0180}
0x0bd06…0bd14               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x000a}
0x0bd14…0bd1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0018}
0x0bd1e…0bd3e               Head {h00=0x001c, h01=0x0050, text=»* START PROCEDURE TIMER «, t00=0x0079, t01=0x0022}
0x0bd3e…0bd48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0042}
0x0bd48…0bd5c               Head {h00=0x0010, h01=0x0050, text=»SPTIM EQU * «, t00=0x0079, t01=0x004c}
0x0bd5c…0bd84               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 LOAD DWT AS PARAMETER«, t00=0x0079, t01=0x0060}
0x0bd84…0bd9a               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0079, t01=0x0088}
0x0bd9a…0bdb6               Head {h00=0x0018, h01=0x0050, text=» DATA PRTOUT,TIMPRO «, t00=0x0079, t01=0x009e}
0x0bdb6…0bdde               Head {h00=0x0024, h01=0x0050, text=» ST A4,DCTPP SAVE TIMER POINTER «, t00=0x0079, t01=0x00ba}
0x0bdde…0bdee               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0079, t01=0x00e2}
0x0bdee…0bdf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00f2}
0x0bdf8…0be14               Head {h00=0x0018, h01=0x0050, text=»* PROCEDURE TIMEOUT «, t00=0x0079, t01=0x00fc}
0x0be14…0be1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0118}
0x0be1e…0be36               Head {h00=0x0014, h01=0x0050, text=»PRTOUT CM DCTPP «, t00=0x0079, t01=0x0122}
0x0be36…0be52               Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 RELOAD A6«, t00=0x0079, t01=0x013a}
0x0be52…0be76               Head {h00=0x0020, h01=0x0050, text=» LDKL A5,STB LOAD STACK BASE«, t00=0x0079, t01=0x0156}
0x0be76…0be8e               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,DTETAB «, t00=0x0079, t01=0x017a}
0x0be8e…0bea4 (122, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x007a, t01=0x0004}
0x0bea4…0beae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x001a}
0x0beae…0beb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0024}
0x0beb8…0bedc               Head {h00=0x0020, h01=0x0050, text=»*  COUNT PROCEDURE TIME OUT «, t00=0x007a, t01=0x002e}
0x0bedc…0bee6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0052}
0x0bee6…0befc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSSXC2«, t00=0x007a, t01=0x005c}
0x0befc…0bf12               Head {h00=0x0012, h01=0x0050, text=» CF A15,DCSUPS«, t00=0x007a, t01=0x0072}
0x0bf12…0bf1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x0088}
0x0bf1e…0bf4e               Head {h00=0x002c, h01=0x0050, text=» CF A5,CHALTI HALT INPUT IF OPEN SALCUZ «, t00=0x007a, t01=0x0094}
0x0bf4e…0bf62               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x007a, t01=0x00c4}
0x0bf62…0bf88               Head {h00=0x0022, h01=0x0050, text=» RF(Z) PRT10 ACK NOT EXPECTED «, t00=0x007a, t01=0x00d8}
0x0bf88…0bfa6               Head {h00=0x001a, h01=0x0050, text=» CF A5,TRENQ SEND ENQ «, t00=0x007a, t01=0x00fe}
0x0bfa6…0bfd0               Head {h00=0x0026, h01=0x0050, text=» CF A5,SPTIM START PROCEDURE TIMER«, t00=0x007a, t01=0x011c}
0x0bfd0…0bfe6               Head {h00=0x0012, h01=0x0050, text=»PRT10 ABL BRM «, t00=0x007a, t01=0x0146}
0x0bfe6…0bff4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x015c}
0x0bff4…0bffe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x016a}
0x0bffe…0c01c               Head {h00=0x001a, h01=0x0050, text=»* STOP PROCEDURE TIMER«, t00=0x007a, t01=0x0174}
0x0c01c…0c026 (123, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0004}
0x0c026…0c052               Head {h00=0x0028, h01=0x0050, text=»HPTIM LD A1,DCTPP GET TIMER POINTER «, t00=0x007b, t01=0x000e}
0x0c052…0c072               Head {h00=0x001c, h01=0x0050, text=» RF(Z) HPT10 NOT RUNNING«, t00=0x007b, t01=0x003a}
0x0c072…0c08c               Head {h00=0x0016, h01=0x0050, text=» CMR A1 STOP TIMER«, t00=0x007b, t01=0x005a}
0x0c08c…0c09e               Head {h00=0x000e, h01=0x0050, text=» CM DCTPP «, t00=0x007b, t01=0x0074}
0x0c09e…0c0b2               Head {h00=0x0010, h01=0x0050, text=»HPT10 RTN A5«, t00=0x007b, t01=0x0086}
0x0c0b2…0c0ba               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x009a}
0x0c0ba…0c0c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00a2}
0x0c0c4…0c0ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ac}
0x0c0ce…0c0fa               Head {h00=0x0028, h01=0x0050, text=»*   WAIT 1 SEC. FOR MODEM CONNECTION«, t00=0x007b, t01=0x00b6}
0x0c0fa…0c104               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00e2}
0x0c104…0c10c               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x00ec}
0x0c10c…0c130               Head {h00=0x0020, h01=0x0050, text=»DTE:ON LDR A1,A6 DWT ADDRESS«, t00=0x007b, t01=0x00f4}
0x0c130…0c152               Head {h00=0x001e, h01=0x0050, text=» CF A15,SETIME WAIT 1 SEC.«, t00=0x007b, t01=0x0118}
0x0c152…0c16a               Head {h00=0x0014, h01=0x0050, text=» DATA DTE:10,10 «, t00=0x007b, t01=0x013a}
0x0c16a…0c178               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x007b, t01=0x0152}
0x0c178…0c190               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,STB  =1«, t00=0x007b, t01=0x0160}
0x0c190…0c1b6               Head {h00=0x0022, h01=0x0050, text=» CF A5,CSYNCI CONNECT MODEM =1«, t00=0x007b, t01=0x0178}
0x0c1b6…0c1e4               Head {h00=0x002a, h01=0x0050, text=» CF A5,CHALTI NO INTERRUPTS ALLOWED =1«, t00=0x007c, t01=0x000e}
0x0c1e4…0c1fa               Head {h00=0x0012, h01=0x0050, text=» ABL TDISP =1 «, t00=0x007c, t01=0x003c}
0x0c1fa…0c202               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x0052}
0x0c202…0c20a               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x005a}
0x0c20a…0c214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0062}
0x0c214…0c21e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x006c}
0x0c21e…0c240               Head {h00=0x001e, h01=0x0050, text=»*   MODEM-CONNECT TIMEOUT «, t00=0x007c, t01=0x0076}
0x0c240…0c24a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0098}
0x0c24a…0c252               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x00a2}
0x0c252…0c276               Head {h00=0x0020, h01=0x0050, text=»DTE:10 LDR A6,A1 DWT ADDRESS«, t00=0x007c, t01=0x00aa}
0x0c276…0c28e               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,DTETAB «, t00=0x007c, t01=0x00ce}
0x0c28e…0c2b6               Head {h00=0x0024, h01=0x0050, text=» IM DTESTA,A7 SET OPEN STATUS =1«, t00=0x007c, t01=0x00e6}
0x0c2b6…0c2ce               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,STB  =1«, t00=0x007c, t01=0x010e}
0x0c2ce…0c2fc               Head {h00=0x002a, h01=0x0050, text=» CF A5,CSYNCI PUT CU IN ACTIVE MODE =1«, t00=0x007c, t01=0x0126}
0x0c2fc…0c338               Head {h00=0x0038, h01=0x0050, text=» CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1«, t00=0x007c, t01=0x0154}
0x0c338…0c36c               Head {h00=0x0030, h01=0x0050, text=» IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK =1«, t00=0x007c, t01=0x0190}
0x0c36c…0c38c               Head {h00=0x001c, h01=0x0050, text=» ANK A2,1 MODEM OK ? =1 «, t00=0x007d, t01=0x0034}
0x0c38c…0c3a8               Head {h00=0x0018, h01=0x0050, text=» RF(Z) DTE:20 YES =1«, t00=0x007d, t01=0x0054}
0x0c3a8…0c3d8               Head {h00=0x002c, h01=0x0050, text=» CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1«, t00=0x007d, t01=0x0070}
0x0c3d8…0c3f0               Head {h00=0x0014, h01=0x0050, text=»DTE:20 EQU *  =1«, t00=0x007d, t01=0x00a0}
0x0c3f0…0c416               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 SET RETURN CODE =1 «, t00=0x007d, t01=0x00b8}
0x0c416…0c444               Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO COMPLETE THE REQUEST =1«, t00=0x007d, t01=0x00de}
0x0c444…0c46e               Head {h00=0x0026, h01=0x0050, text=» CF A15,SPOTIM START POLL TIMER =6«, t00=0x007d, t01=0x010c}
0x0c46e…0c48c               Head {h00=0x001a, h01=0x0050, text=» ABL BRM START I/P =1 «, t00=0x007d, t01=0x0136}
0x0c48c…0c49a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x0154}
0x0c49a…0c4b0               Head {h00=0x0012, h01=0x0050, text=» IFT MESPAS=1 «, t00=0x007d, t01=0x0162}
0x0c4b0…0c4ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0178}
0x0c4ba…0c4c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0182}
0x0c4c4…0c4de               Head {h00=0x0016, h01=0x0050, text=»*  GET DWT ADDRESS«, t00=0x007d, t01=0x018c}
0x0c4de…0c4e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0016}
0x0c4e8…0c4fc               Head {h00=0x0010, h01=0x0050, text=»MESDWT EQU *«, t00=0x007e, t01=0x0020}
0x0c4fc…0c526               Head {h00=0x0026, h01=0x0050, text=» CWR A6,A7 IS IT DTETAB-ADDRESS ? «, t00=0x007e, t01=0x0034}
0x0c526…0c540               Head {h00=0x0016, h01=0x0050, text=» RF(E) MES200 YES «, t00=0x007e, t01=0x005e}
0x0c540…0c568               Head {h00=0x0024, h01=0x0050, text=» LD A2,DTEDDT,A7 GET ADDR TO DDT«, t00=0x007e, t01=0x0078}
0x0c568…0c58a               Head {h00=0x001e, h01=0x0050, text=» CWR A6,A2 IS IT DDT-ADDR «, t00=0x007e, t01=0x00a0}
0x0c58a…0c5a4               Head {h00=0x0016, h01=0x0050, text=» RF(E) MES200 YES «, t00=0x007e, t01=0x00c2}
0x0c5a4…0c5ca               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 ANY REQUEST ? «, t00=0x007e, t01=0x00dc}
0x0c5ca…0c5e2               Head {h00=0x0014, h01=0x0050, text=» RF(N) MESD50 NO«, t00=0x007e, t01=0x0102}
0x0c5e2…0c60e               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTOR,A6 ANY MESSAGE ORDER ? «, t00=0x007e, t01=0x011a}
0x0c60e…0c622               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x007e, t01=0x0146}
0x0c622…0c63c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MES200 YES «, t00=0x007e, t01=0x015a}
0x0c63c…0c666               Head {h00=0x0026, h01=0x0050, text=» SUK A2,RECEIVE A RECEIVE ORDER ? «, t00=0x007e, t01=0x0174}
0x0c666…0c680               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MES200 YES «, t00=0x007f, t01=0x000e}
0x0c680…0c694               Head {h00=0x0010, h01=0x0050, text=»MESD50 EQU *«, t00=0x007f, t01=0x0028}
0x0c694…0c6c8               Head {h00=0x0030, h01=0x0050, text=» LD A2,DTEDDT,A7 IS THERE A DDT CONNECTED ? «, t00=0x007f, t01=0x003c}
0x0c6c8…0c6e0               Head {h00=0x0014, h01=0x0050, text=» RF(Z) MES100 NO«, t00=0x007f, t01=0x0070}
0x0c6e0…0c700               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A2 GET DDT-ADDR «, t00=0x007f, t01=0x0088}
0x0c700…0c712               Head {h00=0x000e, h01=0x0050, text=» RF MES200«, t00=0x007f, t01=0x00a8}
0x0c712…0c726               Head {h00=0x0010, h01=0x0050, text=»MES100 EQU *«, t00=0x007f, t01=0x00ba}
0x0c726…0c748               Head {h00=0x001e, h01=0x0050, text=» LDR A6,A7 GET DTETAB-ADDR«, t00=0x007f, t01=0x00ce}
0x0c748…0c75c               Head {h00=0x0010, h01=0x0050, text=»MES200 EQU *«, t00=0x007f, t01=0x00f0}
0x0c75c…0c77e               Head {h00=0x001e, h01=0x0050, text=» ABL RTNA15 RETURN VIA A15«, t00=0x007f, t01=0x0104}
0x0c77e…0c78a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0126}
0x0c78a…0c798               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0132}
0x0c798…0c7a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0140}
0x0c7a2…0c7ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x014a}
0x0c7ac…0c7c8               Head {h00=0x0018, h01=0x0050, text=»* BASIC RECEIVE MODE«, t00=0x007f, t01=0x0154}
0x0c7c8…0c7d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0170}
0x0c7d2…0c7f8               Head {h00=0x0022, h01=0x0050, text=»* ENTERED EVERY TIME A MESSAGE«, t00=0x007f, t01=0x017a}
0x0c7f8…0c822               Head {h00=0x0026, h01=0x0050, text=»* IS EXPECTED FROM THE MASTER SIDE«, t00=0x0080, t01=0x0010}
0x0c822…0c82c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x003a}
0x0c82c…0c836               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0044}
0x0c836…0c848               Head {h00=0x000e, h01=0x0050, text=»BRM EQU * «, t00=0x0080, t01=0x004e}
0x0c848…0c86c               Head {h00=0x0020, h01=0x0050, text=» LDKL A5,STB LOAD STACKBASE «, t00=0x0080, t01=0x0060}
0x0c86c…0c88e               Head {h00=0x001e, h01=0x0050, text=» CM SYNSW CLEAR SYN-SWITCH«, t00=0x0080, t01=0x0084}
0x0c88e…0c8b4               Head {h00=0x0022, h01=0x0050, text=» CM TPM CLEAR TRANSPARENT TEXT«, t00=0x0080, t01=0x00a6}
0x0c8b4…0c8e4               Head {h00=0x002c, h01=0x0050, text=» CF A5,CSYNCI START INPUT WITH SYNC DEF «, t00=0x0080, t01=0x00cc}
0x0c8e4…0c8ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00fc}
0x0c8ee…0c8f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0106}
0x0c8f8…0c902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0110}
0x0c902…0c926               Head {h00=0x0020, h01=0x0050, text=» CF A5,READP READ CHARACTER «, t00=0x0080, t01=0x011a}
0x0c926…0c94a               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BRM120 PARITY ERROR «, t00=0x0080, t01=0x013e}
0x0c94a…0c954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0162}
0x0c954…0c95e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x016c}
0x0c95e…0c98c               Head {h00=0x002a, h01=0x0050, text=»*  CHECK IF IT IS A CONTROL CHARACTER «, t00=0x0080, t01=0x0176}
0x0c98c…0c996               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0014}
0x0c996…0c9a8               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0081, t01=0x001e}
0x0c9a8…0c9e6               Head {h00=0x003a, h01=0x0050, text=» CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK«, t00=0x0081, t01=0x0030}
0x0c9e6…0ca24               Head {h00=0x003a, h01=0x0050, text=» DATA BRM100,BRM200 LAST ENTRY,POLL OR SELECT SEQUENCE«, t00=0x0081, t01=0x006e}
0x0ca24…0ca4a               Head {h00=0x0022, h01=0x0050, text=» DATA STX,STX100 STX RECEIVED «, t00=0x0081, t01=0x00ac}
0x0ca4a…0ca70               Head {h00=0x0022, h01=0x0050, text=» DATA EOT,EOT100 EOT RECEIVED «, t00=0x0081, t01=0x00d2}
0x0ca70…0ca96               Head {h00=0x0022, h01=0x0050, text=» DATA ENQ,ENQ100 ENQ RECEIVED «, t00=0x0081, t01=0x00f8}
0x0ca96…0cabc               Head {h00=0x0022, h01=0x0050, text=» DATA DLE,DLE100 DLE RECEIVED «, t00=0x0081, t01=0x011e}
0x0cabc…0cae8               Head {h00=0x0028, h01=0x0050, text=»BRM100 DATA NAK,NAK100 NAK RECEIVED «, t00=0x0081, t01=0x0144}
0x0cae8…0caf6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0170}
0x0caf6…0cb00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x017e}
0x0cb00…0cb0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0188}
0x0cb0a…0cb26 (130, 0, 400) Head {h00=0x0018, h01=0x0050, text=»*  THROUGHPUT ERROR «, t00=0x0082, t01=0x0004}
0x0cb26…0cb30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0020}
0x0cb30…0cb44               Head {h00=0x0010, h01=0x0050, text=»BRM110 EQU *«, t00=0x0082, t01=0x002a}
0x0cb44…0cb70               Head {h00=0x0028, h01=0x0050, text=» CM XSTA INDICATE "INVALID MESSAGE" «, t00=0x0082, t01=0x003e}
0x0cb70…0cb9a               Head {h00=0x0026, h01=0x0050, text=» LDKL A5,STB LOAD STACKBASE TO A5 «, t00=0x0082, t01=0x006a}
0x0cb9a…0cbca               Head {h00=0x002c, h01=0x0050, text=» CF A5,CSYNCI START INPUT WITH SYNC DEF «, t00=0x0082, t01=0x0094}
0x0cbca…0cbd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00c4}
0x0cbd4…0cbde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00ce}
0x0cbde…0cc06               Head {h00=0x0024, h01=0x0050, text=»*  WAIT FOR MARK HOLD TO RESYNC.«, t00=0x0082, t01=0x00d8}
0x0cc06…0cc10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0100}
0x0cc10…0cc24               Head {h00=0x0010, h01=0x0050, text=»BRM120 EQU *«, t00=0x0082, t01=0x010a}
0x0cc24…0cc46               Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ CHARACTER«, t00=0x0082, t01=0x011e}
0x0cc46…0cc7a               Head {h00=0x0030, h01=0x0050, text=» LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ?«, t00=0x0082, t01=0x0140}
0x0cc7a…0cc94               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BRM130 YES«, t00=0x0082, t01=0x0174}
0x0cc94…0cca8               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0082, t01=0x018e}
0x0cca8…0ccbc               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/7F «, t00=0x0083, t01=0x0012}
0x0ccbc…0ccd6               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BRM120 NO «, t00=0x0083, t01=0x0026}
0x0ccd6…0ccea               Head {h00=0x0010, h01=0x0050, text=»BRM130 EQU *«, t00=0x0083, t01=0x0040}
0x0ccea…0cd0a               Head {h00=0x001c, h01=0x0050, text=» CF A5,CHALTI HALT INPUT«, t00=0x0083, t01=0x0054}
0x0cd0a…0cd1a               Head {h00=0x000c, h01=0x0050, text=» RB BRM «, t00=0x0083, t01=0x0074}
0x0cd1a…0cd28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0084}
0x0cd28…0cd32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0092}
0x0cd32…0cd3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x009c}
0x0cd3c…0cd72               Head {h00=0x0032, h01=0x0050, text=»*  CHECK IF IT IS A POLL OR A SELECT SEQUENCE «, t00=0x0083, t01=0x00a6}
0x0cd72…0cd7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00dc}
0x0cd7c…0cd90               Head {h00=0x0010, h01=0x0050, text=»BRM200 EQU *«, t00=0x0083, t01=0x00e6}
0x0cd90…0cda4               Head {h00=0x0010, h01=0x0050, text=» IFT MSV1=0 «, t00=0x0083, t01=0x00fa}
0x0cda4…0cdb6               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0083, t01=0x010e}
0x0cdb6…0cdda               Head {h00=0x0020, h01=0x0050, text=» CF A5,READP READ CHARACTER «, t00=0x0083, t01=0x0120}
0x0cdda…0cdec               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x0083, t01=0x0144}
0x0cdec…0ce14               Head {h00=0x0024, h01=0x0050, text=» RB(NE) BRM120 INVALID SEQUENCE «, t00=0x0083, t01=0x0156}
0x0ce14…0ce20               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x017e}
0x0ce20…0ce32               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0083, t01=0x018a}
0x0ce32…0ce54               Head {h00=0x001e, h01=0x0050, text=» CC A2,1,A7 IS IT A POLL ?«, t00=0x0084, t01=0x000c}
0x0ce54…0ce72               Head {h00=0x001a, h01=0x0050, text=» RF(E) BRM210 POLLING «, t00=0x0084, t01=0x002e}
0x0ce72…0ce84               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0084, t01=0x004c}
0x0ce84…0cea8               Head {h00=0x0020, h01=0x0050, text=» CCR A2,A7 IS IT A SELECT ? «, t00=0x0084, t01=0x005e}
0x0cea8…0ced0               Head {h00=0x0024, h01=0x0050, text=» RB(NE) BRM120 INVALID SEQUENCE «, t00=0x0084, t01=0x0082}
0x0ced0…0cee4               Head {h00=0x0010, h01=0x0050, text=»BRM210 EQU *«, t00=0x0084, t01=0x00aa}
0x0cee4…0cf06               Head {h00=0x001e, h01=0x0050, text=» CF A5,READP READ 1:ST STA«, t00=0x0084, t01=0x00be}
0x0cf06…0cf26               Head {h00=0x001c, h01=0x0050, text=» RB(NZ) BRM PARITY ERROR«, t00=0x0084, t01=0x00e0}
0x0cf26…0cf38               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0084, t01=0x0100}
0x0cf38…0cf4c               Head {h00=0x0010, h01=0x0050, text=» IFT MSV1=0 «, t00=0x0084, t01=0x0112}
0x0cf4c…0cf6e               Head {h00=0x001e, h01=0x0050, text=» CF A5,READP READ 2:ND STA«, t00=0x0084, t01=0x0126}
0x0cf6e…0cf80               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x0084, t01=0x0148}
0x0cf80…0cfa8               Head {h00=0x0024, h01=0x0050, text=» RB(NE) BRM120 INVALID SEQUENCE «, t00=0x0084, t01=0x015a}
0x0cfa8…0cfb4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0182}
0x0cfb4…0cfd2               Head {h00=0x001a, h01=0x0050, text=» CF A5,READP READ ENQ «, t00=0x0084, t01=0x018e}
0x0cfd2…0cfe6               Head {h00=0x0010, h01=0x0050, text=» SUK A2,ENQ «, t00=0x0085, t01=0x001c}
0x0cfe6…0d00e               Head {h00=0x0024, h01=0x0050, text=» RB(NE) BRM120 INVALID SEQUENCE «, t00=0x0085, t01=0x0030}
0x0d00e…0d018               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0058}
0x0d018…0d022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0062}
0x0d022…0d04a               Head {h00=0x0024, h01=0x0050, text=»*  YES SEQUENCE OK - HALT INPUT «, t00=0x0085, t01=0x006c}
0x0d04a…0d054               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0094}
0x0d054…0d06a               Head {h00=0x0012, h01=0x0050, text=» CF A5,CHALTI «, t00=0x0085, t01=0x009e}
0x0d06a…0d078               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x00b4}
0x0d078…0d082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00c2}
0x0d082…0d08c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00cc}
0x0d08c…0d0c0               Head {h00=0x0030, h01=0x0050, text=»*  CHECK IF IT IS A SELECT OR A POLL ADDRESS«, t00=0x0085, t01=0x00d6}
0x0d0c0…0d0ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x010a}
0x0d0ca…0d0dc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0085, t01=0x0114}
0x0d0dc…0d100               Head {h00=0x0020, h01=0x0050, text=» ST A1,CACK LOAD ACK-COUNTER«, t00=0x0085, t01=0x0126}
0x0d100…0d112               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0085, t01=0x014a}
0x0d112…0d124               Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0085, t01=0x015c}
0x0d124…0d144               Head {h00=0x001c, h01=0x0050, text=» RF(Z) SELECT SELECTING «, t00=0x0085, t01=0x016e}
0x0d144…0d14e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x018e}
0x0d14e…0d158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0008}
0x0d158…0d16a               Head {h00=0x000e, h01=0x0050, text=»*  POLLING«, t00=0x0086, t01=0x0012}
0x0d16a…0d174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0024}
0x0d174…0d186               Head {h00=0x000e, h01=0x0050, text=» CWK A4,GP«, t00=0x0086, t01=0x002e}
0x0d186…0d1a8               Head {h00=0x001e, h01=0x0050, text=» RF(E) GPOLL GENERAL POLL «, t00=0x0086, t01=0x0040}
0x0d1a8…0d1e2               Head {h00=0x0036, h01=0x0050, text=» CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) «, t00=0x0086, t01=0x0062}
0x0d1e2…0d1f2               Head {h00=0x000c, h01=0x0050, text=»    =10 «, t00=0x0086, t01=0x009c}
0x0d1f2…0d1fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00ac}
0x0d1fc…0d20a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x00b6}
0x0d20a…0d214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00c4}
0x0d214…0d21e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00ce}
0x0d21e…0d248               Head {h00=0x0026, h01=0x0050, text=»* SPECIFIC POLL HAS BEEN RECEIVED «, t00=0x0086, t01=0x00d8}
0x0d248…0d252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0102}
0x0d252…0d25c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x010c}
0x0d25c…0d278               Head {h00=0x0018, h01=0x0050, text=» IFF STARVI+SPECP=0 «, t00=0x0086, t01=0x0116}
0x0d278…0d28c               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x0086, t01=0x0132}
0x0d28c…0d2b0               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) POL100 ACK EXPECTED «, t00=0x0086, t01=0x0146}
0x0d2b0…0d2de               Head {h00=0x002a, h01=0x0050, text=» LDR A6,A3 LOAD DWT ADDRESS IN A6 =10 «, t00=0x0086, t01=0x016a}
0x0d2de…0d31a               Head {h00=0x0038, h01=0x0050, text=» RF(Z) POL150 REQ. DEV. NOT CONNECTED, SEND EOT =10 «, t00=0x0087, t01=0x0008}
0x0d31a…0d33e               Head {h00=0x0020, h01=0x0050, text=» CF A5,CPTIM CHECK POLLTIMER«, t00=0x0087, t01=0x0044}
0x0d33e…0d354               Head {h00=0x0012, h01=0x0050, text=» IFT STARVI=1 «, t00=0x0087, t01=0x0068}
0x0d354…0d376               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 GET STATUS«, t00=0x0087, t01=0x007e}
0x0d376…0d388               Head {h00=0x000e, h01=0x0050, text=» ANK A1,7 «, t00=0x0087, t01=0x00a0}
0x0d388…0d3ae               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) POL120 PENDING STATUS «, t00=0x0087, t01=0x00b2}
0x0d3ae…0d3ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0087, t01=0x00d8}
0x0d3ba…0d3d6               Head {h00=0x0018, h01=0x0050, text=» IFF STARVI+SPECP=0 «, t00=0x0087, t01=0x00e4}
0x0d3d6…0d3ee               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x0087, t01=0x0100}
0x0d3ee…0d40e               Head {h00=0x001c, h01=0x0050, text=» RF(N) POL150 NO REQUEST«, t00=0x0087, t01=0x0118}
0x0d40e…0d430               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTOR,A6 GET ORDER «, t00=0x0087, t01=0x0138}
0x0d430…0d45a               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/FF MASK AWAY OPTION PART «, t00=0x0087, t01=0x015a}
0x0d45a…0d46c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x0087, t01=0x0184}
0x0d46c…0d490               Head {h00=0x0020, h01=0x0050, text=» RF(Z) POL170 WRITE REQUEST «, t00=0x0088, t01=0x0008}
0x0d490…0d49c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0088, t01=0x002c}
0x0d49c…0d4b8               Head {h00=0x0018, h01=0x0050, text=» RF POL150 SEND EOT «, t00=0x0088, t01=0x0038}
0x0d4b8…0d4c6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x0054}
0x0d4c6…0d4d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0062}
0x0d4d0…0d4da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x006c}
0x0d4da…0d502               Head {h00=0x0024, h01=0x0050, text=»* GENERAL POLL HAS BEEN RECEIVED«, t00=0x0088, t01=0x0076}
0x0d502…0d50c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x009e}
0x0d50c…0d516               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00a8}
0x0d516…0d52a               Head {h00=0x0010, h01=0x0050, text=»GPOLL EQU * «, t00=0x0088, t01=0x00b2}
0x0d52a…0d53e               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x0088, t01=0x00c6}
0x0d53e…0d564               Head {h00=0x0022, h01=0x0050, text=» RF(Z) POL110 ACK NOT EXPECTED«, t00=0x0088, t01=0x00da}
0x0d564…0d574               Head {h00=0x000c, h01=0x0050, text=»    =11 «, t00=0x0088, t01=0x0100}
0x0d574…0d588               Head {h00=0x0010, h01=0x0050, text=»POL100 EQU *«, t00=0x0088, t01=0x0110}
0x0d588…0d5b6               Head {h00=0x002a, h01=0x0050, text=» CF A5,HPTIM KILL PROCEDURE TIMER =11 «, t00=0x0088, t01=0x0124}
0x0d5b6…0d5d4               Head {h00=0x001a, h01=0x0050, text=» CF A5,TRENQ SEND ENQ «, t00=0x0088, t01=0x0152}
0x0d5d4…0d5fe               Head {h00=0x0026, h01=0x0050, text=» CF A5,SPTIM START PROCEDURE TIMER«, t00=0x0088, t01=0x0170}
0x0d5fe…0d620               Head {h00=0x001e, h01=0x0050, text=» ABL BRM WAIT FOR RESPONSE«, t00=0x0089, t01=0x000a}
0x0d620…0d636               Head {h00=0x0012, h01=0x0050, text=»POL110 EQU *  «, t00=0x0089, t01=0x002c}
0x0d636…0d65c               Head {h00=0x0022, h01=0x0050, text=» CF A5,CPTIM CHECK POLL TIMER «, t00=0x0089, t01=0x0042}
0x0d65c…0d672               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x0089, t01=0x0068}
0x0d672…0d688               Head {h00=0x0012, h01=0x0050, text=» LD A6,DCSTQ  «, t00=0x0089, t01=0x007e}
0x0d688…0d6b2               Head {h00=0x0026, h01=0x0050, text=» RF(Z) POL140 NO STATUS TO BE SENT«, t00=0x0089, t01=0x0094}
0x0d6b2…0d6d8               Head {h00=0x0022, h01=0x0050, text=» SUK A6,DWTOPE GET DWT ADDRESS«, t00=0x0089, t01=0x00be}
0x0d6d8…0d6ec               Head {h00=0x0010, h01=0x0050, text=»POL120 EQU *«, t00=0x0089, t01=0x00e4}
0x0d6ec…0d70c               Head {h00=0x001c, h01=0x0050, text=» CF A5,TRSTA SEND STATUS«, t00=0x0089, t01=0x00f8}
0x0d70c…0d736               Head {h00=0x0026, h01=0x0050, text=» CF A5,SPTIM START PROCEDURE TIMER«, t00=0x0089, t01=0x0118}
0x0d736…0d75a               Head {h00=0x0020, h01=0x0050, text=» IM XACK SET 'ACK EXPECTED' «, t00=0x0089, t01=0x0142}
0x0d75a…0d766               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x0166}
0x0d766…0d77c               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=1 «, t00=0x0089, t01=0x0172}
0x0d77c…0d78e               Head {h00=0x000e, h01=0x0050, text=» RF POL140«, t00=0x0089, t01=0x0188}
0x0d78e…0d79a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008a, t01=0x000a}
0x0d79a…0d7ae               Head {h00=0x0010, h01=0x0050, text=»POL130 EQU *«, t00=0x008a, t01=0x0016}
0x0d7ae…0d7be               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x008a, t01=0x002a}
0x0d7be…0d7d2               Head {h00=0x0010, h01=0x0050, text=»POL140 EQU *«, t00=0x008a, t01=0x003a}
0x0d7d2…0d7e6               Head {h00=0x0010, h01=0x0050, text=» LD A6,DCWRQ«, t00=0x008a, t01=0x004e}
0x0d7e6…0d80c               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) POL160 WRITE ON QUEUE «, t00=0x008a, t01=0x0062}
0x0d80c…0d820               Head {h00=0x0010, h01=0x0050, text=»POL150 EQU *«, t00=0x008a, t01=0x0088}
0x0d820…0d83e               Head {h00=0x001a, h01=0x0050, text=» CF A5,TREOT SEND EOT «, t00=0x008a, t01=0x009c}
0x0d83e…0d850               Head {h00=0x000e, h01=0x0050, text=» RB POL130«, t00=0x008a, t01=0x00ba}
0x0d850…0d864               Head {h00=0x0010, h01=0x0050, text=»POL160 EQU *«, t00=0x008a, t01=0x00cc}
0x0d864…0d88a               Head {h00=0x0022, h01=0x0050, text=» SUK A6,DWTOPN GET DWT ADDRESS«, t00=0x008a, t01=0x00e0}
0x0d88a…0d89e               Head {h00=0x0010, h01=0x0050, text=»POL170 EQU *«, t00=0x008a, t01=0x0106}
0x0d89e…0d8c6               Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x008a, t01=0x011a}
0x0d8c6…0d8dc               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) POL180«, t00=0x008a, t01=0x0142}
0x0d8dc…0d8f2               Head {h00=0x0012, h01=0x0050, text=» CF A15,REMOVW«, t00=0x008a, t01=0x0158}
0x0d8f2…0d904               Head {h00=0x000e, h01=0x0050, text=» RB POL150«, t00=0x008a, t01=0x016e}
0x0d904…0d918               Head {h00=0x0010, h01=0x0050, text=»POL180 EQU *«, t00=0x008a, t01=0x0180}
0x0d918…0d93c (139, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ST A8,FECB SAVE ECB ADDRESS«, t00=0x008b, t01=0x0004}
0x0d93c…0d95a               Head {h00=0x001a, h01=0x0050, text=» ST A6,FDWTUT SAVE A6 «, t00=0x008b, t01=0x0028}
0x0d95a…0d970               Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=0 «, t00=0x008b, t01=0x0046}
0x0d970…0d998               Head {h00=0x0024, h01=0x0050, text=» LDKL A4,MMUBUF MMU WORK BUFFER «, t00=0x008b, t01=0x005c}
0x0d998…0d9b0               Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBBA,A8 «, t00=0x008b, t01=0x0084}
0x0d9b0…0d9e2               Head {h00=0x002e, h01=0x0050, text=» CF A15,DC:MOT MOVE DATA FROM USER BUFFER «, t00=0x008b, t01=0x009c}
0x0d9e2…0d9ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x00ce}
0x0d9ee…0da18               Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x008b, t01=0x00da}
0x0da18…0da3a               Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBRL,A8 GET LENGTH«, t00=0x008b, t01=0x0104}
0x0da3a…0da4e               Head {h00=0x0010, h01=0x0050, text=»POL190 EQU *«, t00=0x008b, t01=0x0126}
0x0da4e…0da78               Head {h00=0x0026, h01=0x0050, text=» ST A4,FECBBA SAVE BUFFER ADDRESS «, t00=0x008b, t01=0x013a}
0x0da78…0daa4               Head {h00=0x0028, h01=0x0050, text=» SUK A3,2 SKIP FIRST WORD OF BUFFER «, t00=0x008b, t01=0x0164}
0x0daa4…0dac6               Head {h00=0x001e, h01=0x0050, text=» ST A3,FECBRL SAVE LENGTH «, t00=0x008b, t01=0x0190}
0x0dac6…0daea               Head {h00=0x0020, h01=0x0050, text=» CM FBAX RESET BUFFER INDEX «, t00=0x008c, t01=0x0022}
0x0daea…0dafe               Head {h00=0x0010, h01=0x0050, text=»POL200 EQU *«, t00=0x008c, t01=0x0046}
0x0dafe…0db20               Head {h00=0x001e, h01=0x0050, text=» CM XETX RESET 'ETX SENT' «, t00=0x008c, t01=0x005a}
0x0db20…0db30               Head {h00=0x000c, h01=0x0050, text=» CM XSTA«, t00=0x008c, t01=0x007c}
0x0db30…0db54               Head {h00=0x0020, h01=0x0050, text=» CF A5,TRTEXT SEND ONE BLOCK«, t00=0x008c, t01=0x008c}
0x0db54…0db7e               Head {h00=0x0026, h01=0x0050, text=» CF A5,SPTIM START PROCEDURE TIMER«, t00=0x008c, t01=0x00b0}
0x0db7e…0dba2               Head {h00=0x0020, h01=0x0050, text=» IM XACK SET 'ACK EXPECTED' «, t00=0x008c, t01=0x00da}
0x0dba2…0dbb4               Head {h00=0x000e, h01=0x0050, text=» RB POL130«, t00=0x008c, t01=0x00fe}
0x0dbb4…0dbc2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008c, t01=0x0110}
0x0dbc2…0dbcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x011e}
0x0dbcc…0dbd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0128}
0x0dbd6…0dbfa               Head {h00=0x0020, h01=0x0050, text=»*  SELECT HAS BEEN RECEIVED «, t00=0x008c, t01=0x0132}
0x0dbfa…0dc04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0156}
0x0dc04…0dc18               Head {h00=0x0010, h01=0x0050, text=»SELECT EQU *«, t00=0x008c, t01=0x0160}
0x0dc18…0dc2e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FINTES «, t00=0x008c, t01=0x0174}
0x0dc2e…0dc4e               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A3 GET DWT-ADDR «, t00=0x008c, t01=0x018a}
0x0dc4e…0dc64               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SEL100«, t00=0x008d, t01=0x001a}
0x0dc64…0dc7a               Head {h00=0x0012, h01=0x0050, text=» IFT MESPAS=1 «, t00=0x008d, t01=0x0030}
0x0dc7a…0dca0               Head {h00=0x0022, h01=0x0050, text=» LD A6,DTEDDT,A7 GET DDT-ADDR «, t00=0x008d, t01=0x0046}
0x0dca0…0dcb6               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SEL100«, t00=0x008d, t01=0x006c}
0x0dcb6…0dcc2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x0082}
0x0dcc2…0dce6               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DTETAB DTETAB ADRR «, t00=0x008d, t01=0x008e}
0x0dce6…0dcfa               Head {h00=0x0010, h01=0x0050, text=»SEL100 EQU *«, t00=0x008d, t01=0x00b2}
0x0dcfa…0dd0e               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x008d, t01=0x00c6}
0x0dd0e…0dd38               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) POL100 ERROR. ACK EXPECTED«, t00=0x008d, t01=0x00da}
0x0dd38…0dd4e               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x008d, t01=0x0104}
0x0dd4e…0dd70               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 GET STATUS«, t00=0x008d, t01=0x011a}
0x0dd70…0dd82               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x008d, t01=0x013c}
0x0dd82…0dd94               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x008d, t01=0x014e}
0x0dd94…0ddbc               Head {h00=0x0024, h01=0x0050, text=» RF(Z) SEL120 NO PENDING STATUS «, t00=0x008d, t01=0x0160}
0x0ddbc…0ddda               Head {h00=0x001a, h01=0x0050, text=» CF A5,TRRVI SEND RVI «, t00=0x008d, t01=0x0188}
0x0ddda…0dde6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0016}
0x0dde6…0ddfc               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=1 «, t00=0x008e, t01=0x0022}
0x0ddfc…0de0e               Head {h00=0x000e, h01=0x0050, text=» RF SEL120«, t00=0x008e, t01=0x0038}
0x0de0e…0de1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x004a}
0x0de1a…0de2e               Head {h00=0x0010, h01=0x0050, text=»SEL110 EQU *«, t00=0x008e, t01=0x0056}
0x0de2e…0de3e               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x008e, t01=0x006a}
0x0de3e…0de52               Head {h00=0x0010, h01=0x0050, text=»SEL120 EQU *«, t00=0x008e, t01=0x007a}
0x0de52…0de60               Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x008e, t01=0x008e}
0x0de60…0de7a               Head {h00=0x0016, h01=0x0050, text=» IFT STARVI=1  =2 «, t00=0x008e, t01=0x009c}
0x0de7a…0dea2               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/A WACK SENT OR DB ? =2 «, t00=0x008e, t01=0x00b6}
0x0dea2…0dec0               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) SEL140 YES =2 «, t00=0x008e, t01=0x00de}
0x0dec0…0decc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00fc}
0x0decc…0deda               Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x008e, t01=0x0108}
0x0deda…0def0               Head {h00=0x0012, h01=0x0050, text=» LD A1,DCRBUF «, t00=0x008e, t01=0x0116}
0x0def0…0df18               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) SEL150 BUFFER AVAILABLE «, t00=0x008e, t01=0x012c}
0x0df18…0df2e               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x008e, t01=0x0154}
0x0df2e…0df5a               Head {h00=0x0028, h01=0x0050, text=» LDK A1,CSSRBY BUFFER NOT AVAILABLE «, t00=0x008e, t01=0x016a}
0x0df5a…0df82               Head {h00=0x0024, h01=0x0050, text=» CF A15,DCSUPS INCREMENT COUNTER«, t00=0x008f, t01=0x0008}
0x0df82…0df8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0030}
0x0df8e…0dfa2               Head {h00=0x0010, h01=0x0050, text=»SEL140 EQU *«, t00=0x008f, t01=0x003c}
0x0dfa2…0dfb0               Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x008f, t01=0x0050}
0x0dfb0…0dfca               Head {h00=0x0016, h01=0x0050, text=» IFF NOWACK=1  =2 «, t00=0x008f, t01=0x005e}
0x0dfca…0dfea               Head {h00=0x001c, h01=0x0050, text=» CF A5,TRWACK SEND WACK «, t00=0x008f, t01=0x0078}
0x0dfea…0dff6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0098}
0x0dff6…0e008               Head {h00=0x000e, h01=0x0050, text=» RB SEL110«, t00=0x008f, t01=0x00a4}
0x0e008…0e01c               Head {h00=0x0010, h01=0x0050, text=»SEL150 EQU *«, t00=0x008f, t01=0x00b6}
0x0e01c…0e04c               Head {h00=0x002c, h01=0x0050, text=» CF A5,PRREC PREPARE FOR TEXT RECEPTION «, t00=0x008f, t01=0x00ca}
0x0e04c…0e05e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,6 «, t00=0x008f, t01=0x00fa}
0x0e05e…0e072               Head {h00=0x0010, h01=0x0050, text=» ST A1,FBLST«, t00=0x008f, t01=0x010c}
0x0e072…0e092               Head {h00=0x001c, h01=0x0050, text=» CF A5,TRACK SEND ACK,0 «, t00=0x008f, t01=0x0120}
0x0e092…0e0a4               Head {h00=0x000e, h01=0x0050, text=» RB SEL110«, t00=0x008f, t01=0x0140}
0x0e0a4…0e0b2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x0152}
0x0e0b2…0e0bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0160}
0x0e0bc…0e0c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x016a}
0x0e0c6…0e0e6               Head {h00=0x001c, h01=0x0050, text=»* EOT HAS BEEN RECEIVED «, t00=0x008f, t01=0x0174}
0x0e0e6…0e0f0 (144, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0004}
0x0e0f0…0e0fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x000e}
0x0e0fa…0e10e               Head {h00=0x0010, h01=0x0050, text=»EOT100 EQU *«, t00=0x0090, t01=0x0018}
0x0e10e…0e138               Head {h00=0x0026, h01=0x0050, text=» CF A5,HPTIM STOP PROCEDURE TIMER «, t00=0x0090, t01=0x002c}
0x0e138…0e14c               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x0090, t01=0x0056}
0x0e14c…0e16e               Head {h00=0x001e, h01=0x0050, text=» CM XRB RESET READ BUFFER «, t00=0x0090, t01=0x006a}
0x0e16e…0e17a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0090, t01=0x008c}
0x0e17a…0e18e               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x0090, t01=0x0098}
0x0e18e…0e1b8               Head {h00=0x0026, h01=0x0050, text=» RF(Z) EOT120 ACK IS NOT EXPECTED «, t00=0x0090, t01=0x00ac}
0x0e1b8…0e1de               Head {h00=0x0022, h01=0x0050, text=» LD A6,FDWTUT GET WRITING DWT «, t00=0x0090, t01=0x00d6}
0x0e1de…0e202               Head {h00=0x0020, h01=0x0050, text=» RF(Z) EOT110 NO ONE WRITING«, t00=0x0090, t01=0x00fc}
0x0e202…0e21c               Head {h00=0x0016, h01=0x0050, text=» LDK A1,2 SET RC=2«, t00=0x0090, t01=0x0120}
0x0e21c…0e248               Head {h00=0x0028, h01=0x0050, text=» CF A5,CWRITE COMPLETE WRITE REQUEST«, t00=0x0090, t01=0x013a}
0x0e248…0e25c               Head {h00=0x0010, h01=0x0050, text=»EOT110 EQU *«, t00=0x0090, t01=0x0166}
0x0e25c…0e282               Head {h00=0x0022, h01=0x0050, text=» CM XACK RESET 'ACK EXPECTED' «, t00=0x0090, t01=0x017a}
0x0e282…0e296               Head {h00=0x0010, h01=0x0050, text=»EOT120 EQU *«, t00=0x0091, t01=0x0010}
0x0e296…0e2b8               Head {h00=0x001e, h01=0x0050, text=» CM XSEL RESET 'SELECTED' «, t00=0x0091, t01=0x0024}
0x0e2b8…0e2c8               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x0091, t01=0x0046}
0x0e2c8…0e2d6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0091, t01=0x0056}
0x0e2d6…0e2e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0064}
0x0e2e0…0e2ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x006e}
0x0e2ea…0e30a               Head {h00=0x001c, h01=0x0050, text=»* STX HAS BEEN RECEIVED «, t00=0x0091, t01=0x0078}
0x0e30a…0e314               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0098}
0x0e314…0e31e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00a2}
0x0e31e…0e332               Head {h00=0x0010, h01=0x0050, text=»STX100 EQU *«, t00=0x0091, t01=0x00ac}
0x0e332…0e346               Head {h00=0x0010, h01=0x0050, text=» CF A5,HPTIM«, t00=0x0091, t01=0x00c0}
0x0e346…0e35c               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x0091, t01=0x00d4}
0x0e35c…0e380               Head {h00=0x0020, h01=0x0050, text=» ABL BRM120 INVALID SEQENCE «, t00=0x0091, t01=0x00ea}
0x0e380…0e394               Head {h00=0x0010, h01=0x0050, text=»STX110 EQU *«, t00=0x0091, t01=0x010e}
0x0e394…0e3a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0091, t01=0x0122}
0x0e3a0…0e3b4               Head {h00=0x0010, h01=0x0050, text=» LD A1,XSEL «, t00=0x0091, t01=0x012e}
0x0e3b4…0e3d6               Head {h00=0x001e, h01=0x0050, text=» RF(Z) STX150 NOT SELECTED«, t00=0x0091, t01=0x0142}
0x0e3d6…0e3ec               Head {h00=0x0012, h01=0x0050, text=» LD A1,DCRBUF «, t00=0x0091, t01=0x0164}
0x0e3ec…0e402               Head {h00=0x0012, h01=0x0050, text=» IFF STTSTS=1 «, t00=0x0091, t01=0x017a}
0x0e402…0e42c               Head {h00=0x0026, h01=0x0050, text=» ABL(Z) BRM120 NO BUFFER AVAILABLE«, t00=0x0091, t01=0x0190}
0x0e42c…0e438               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0092, t01=0x002a}
0x0e438…0e44e               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x0092, t01=0x0036}
0x0e44e…0e464               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) STX120«, t00=0x0092, t01=0x004c}
0x0e464…0e46e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0062}
0x0e46e…0e48c               Head {h00=0x001a, h01=0x0050, text=»* NO BUFFER AVAILABLE «, t00=0x0092, t01=0x006c}
0x0e48c…0e496               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x008a}
0x0e496…0e4ac               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSSRBY«, t00=0x0092, t01=0x0094}
0x0e4ac…0e4d4               Head {h00=0x0024, h01=0x0050, text=» CF A15,DCSUPS INCREMENT COUNTER«, t00=0x0092, t01=0x00aa}
0x0e4d4…0e4e8               Head {h00=0x0010, h01=0x0050, text=» ABL BRM120 «, t00=0x0092, t01=0x00d2}
0x0e4e8…0e4f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0092, t01=0x00e6}
0x0e4f4…0e508               Head {h00=0x0010, h01=0x0050, text=»STX120 EQU *«, t00=0x0092, t01=0x00f2}
0x0e508…0e52a               Head {h00=0x001e, h01=0x0050, text=» CF A5,RDMESS READ MESSAGE«, t00=0x0092, t01=0x0106}
0x0e52a…0e540               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x0092, t01=0x0128}
0x0e540…0e54a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x013e}
0x0e54a…0e554               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0148}
0x0e554…0e576               Head {h00=0x001e, h01=0x0050, text=»*  COUNT MESSAGES RECEIVED«, t00=0x0092, t01=0x0152}
0x0e576…0e580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0174}
0x0e580…0e596               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSSRBL«, t00=0x0092, t01=0x017e}
0x0e596…0e5ac (147, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A15,DCSUPS«, t00=0x0093, t01=0x0004}
0x0e5ac…0e5b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x001a}
0x0e5b8…0e5ca               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0093, t01=0x0026}
0x0e5ca…0e5ec               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) STX170 MESSAGE OK «, t00=0x0093, t01=0x0038}
0x0e5ec…0e600               Head {h00=0x0010, h01=0x0050, text=»STX130 EQU *«, t00=0x0093, t01=0x005a}
0x0e600…0e62c               Head {h00=0x0028, h01=0x0050, text=» CM XSTA INDICATE 'INVALID MESSAGE' «, t00=0x0093, t01=0x006e}
0x0e62c…0e640               Head {h00=0x0010, h01=0x0050, text=»STX140 EQU *«, t00=0x0093, t01=0x009a}
0x0e640…0e65e               Head {h00=0x001a, h01=0x0050, text=» CF A5,TRNAK SEND NAK «, t00=0x0093, t01=0x00ae}
0x0e65e…0e66e               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x0093, t01=0x00cc}
0x0e66e…0e682               Head {h00=0x0010, h01=0x0050, text=»STX150 EQU *«, t00=0x0093, t01=0x00dc}
0x0e682…0e696               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x0093, t01=0x00f0}
0x0e696…0e6aa               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x0093, t01=0x0104}
0x0e6aa…0e6d4               Head {h00=0x0026, h01=0x0050, text=» RF(Z) STX160 ACK IS NOT EXPECTED «, t00=0x0093, t01=0x0118}
0x0e6d4…0e6ea               Head {h00=0x0012, h01=0x0050, text=» LD A1,DCRBUF «, t00=0x0093, t01=0x0142}
0x0e6ea…0e714               Head {h00=0x0026, h01=0x0050, text=» RF(Z) STX160 NO BUFFER AVAILABLE «, t00=0x0093, t01=0x0158}
0x0e714…0e73a               Head {h00=0x0022, h01=0x0050, text=» LD A6,FDWTUT GET WRITING DWT «, t00=0x0093, t01=0x0182}
0x0e73a…0e76e               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) BRM120 NO ONE WRITING. RESYNCHRONIZE«, t00=0x0094, t01=0x0018}
0x0e76e…0e78a               Head {h00=0x0018, h01=0x0050, text=» LDR* A2,A6 GET STA «, t00=0x0094, t01=0x004c}
0x0e78a…0e7ba               Head {h00=0x002c, h01=0x0050, text=» CF A5,PRREC PREPARE FOR TEXT RECEPTION «, t00=0x0094, t01=0x0068}
0x0e7ba…0e7d4               Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 SET RC=0«, t00=0x0094, t01=0x0098}
0x0e7d4…0e800               Head {h00=0x0028, h01=0x0050, text=» CF A5,CWRITE COMPLETE WRITE REQUEST«, t00=0x0094, t01=0x00b2}
0x0e800…0e81e               Head {h00=0x001a, h01=0x0050, text=» CM CACK PRESET ACK-1 «, t00=0x0094, t01=0x00de}
0x0e81e…0e842               Head {h00=0x0020, h01=0x0050, text=» RB STX120 READ THE MESSAGE «, t00=0x0094, t01=0x00fc}
0x0e842…0e84e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x0120}
0x0e84e…0e87a               Head {h00=0x0028, h01=0x0050, text=»STX160 CF A5,READ READ ONE CHARACTER«, t00=0x0094, t01=0x012c}
0x0e87a…0e89c               Head {h00=0x001e, h01=0x0050, text=» CWK A2,ENQPAR IS IT ENQ ?«, t00=0x0094, t01=0x0158}
0x0e89c…0e8c8               Head {h00=0x0028, h01=0x0050, text=» RB(Z) STX140 FORWARD ABORT SEQUENCE«, t00=0x0094, t01=0x017a}
0x0e8c8…0e8da               Head {h00=0x000e, h01=0x0050, text=» RB EOT120«, t00=0x0095, t01=0x0016}
0x0e8da…0e8ee               Head {h00=0x0010, h01=0x0050, text=»STX170 EQU *«, t00=0x0095, t01=0x0028}
0x0e8ee…0e912               Head {h00=0x0020, h01=0x0050, text=» IM XSTA INDICATE MESSAGE OK«, t00=0x0095, t01=0x003c}
0x0e912…0e93a               Head {h00=0x0024, h01=0x0050, text=» LD A4,DCRBUF GET BUFFER ADDRESS«, t00=0x0095, t01=0x0060}
0x0e93a…0e94c               Head {h00=0x000e, h01=0x0050, text=» ADK A4,6 «, t00=0x0095, t01=0x0088}
0x0e94c…0e960               Head {h00=0x0010, h01=0x0050, text=» CW A4,FBLST«, t00=0x0095, t01=0x009a}
0x0e960…0e986               Head {h00=0x0022, h01=0x0050, text=» RF(NE) STX180 NOT FIRST BLOCK«, t00=0x0095, t01=0x00ae}
0x0e986…0e99a               Head {h00=0x0010, h01=0x0050, text=» IFF RCOM=0 «, t00=0x0095, t01=0x00d4}
0x0e99a…0e9ae               Head {h00=0x0010, h01=0x0050, text=» LDK A1,ESC «, t00=0x0095, t01=0x00e8}
0x0e9ae…0e9c0               Head {h00=0x000e, h01=0x0050, text=» CCR A1,A4«, t00=0x0095, t01=0x00fc}
0x0e9c0…0e9e4               Head {h00=0x0020, h01=0x0050, text=» RB(NE) STX130 ESC NOT FOUND«, t00=0x0095, t01=0x010e}
0x0e9e4…0ea08               Head {h00=0x0020, h01=0x0050, text=» LC A1,1,A4 GET COMMAND CODE«, t00=0x0095, t01=0x0132}
0x0ea08…0ea1e               Head {h00=0x0012, h01=0x0050, text=» SUK A1,RDBCOM«, t00=0x0095, t01=0x0156}
0x0ea1e…0ea4a               Head {h00=0x0028, h01=0x0050, text=» RF(Z) RDBUF READ MODIFIED RECEIVED «, t00=0x0095, t01=0x016c}
0x0ea4a…0ea68               Head {h00=0x001a, h01=0x0050, text=» SUK A1,RDMCOM-RDBCOM «, t00=0x0096, t01=0x0008}
0x0ea68…0ea92               Head {h00=0x0026, h01=0x0050, text=» RF(Z) RDMOD READ BUFFER RECEIVED «, t00=0x0096, t01=0x0026}
0x0ea92…0ea9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0096, t01=0x0050}
0x0ea9e…0eab2               Head {h00=0x0010, h01=0x0050, text=»STX180 EQU *«, t00=0x0096, t01=0x005c}
0x0eab2…0eac4               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0096, t01=0x0070}
0x0eac4…0eae2               Head {h00=0x001a, h01=0x0050, text=» RF(Z) STX280 SEND ACK«, t00=0x0096, t01=0x0082}
0x0eae2…0eb06               Head {h00=0x0020, h01=0x0050, text=» LD A6,FDWTIN GET INPUT DWT «, t00=0x0096, t01=0x00a0}
0x0eb06…0eb1c               Head {h00=0x0012, h01=0x0050, text=» IFT MESPAS=1 «, t00=0x0096, t01=0x00c4}
0x0eb1c…0eb32               Head {h00=0x0012, h01=0x0050, text=» CF A15,MESDWT«, t00=0x0096, t01=0x00da}
0x0eb32…0eb3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0096, t01=0x00f0}
0x0eb3e…0eb60               Head {h00=0x001e, h01=0x0050, text=» CWR A7,A6 IS IT DTETAB ? «, t00=0x0096, t01=0x00fc}
0x0eb60…0eb7e               Head {h00=0x001a, h01=0x0050, text=» RF(E) STX280 SEND ACK«, t00=0x0096, t01=0x011e}
0x0eb7e…0eb8e               Head {h00=0x000c, h01=0x0050, text=» CM FBAX«, t00=0x0096, t01=0x013c}
0x0eb8e…0ebbc               Head {h00=0x002a, h01=0x0050, text=» CF A15,GRBUF ALLOCATE RECEIVE BUFFER «, t00=0x0096, t01=0x014c}
0x0ebbc…0ebce               Head {h00=0x000e, h01=0x0050, text=» ADK A4,6 «, t00=0x0096, t01=0x017a}
0x0ebce…0ebe2               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x0096, t01=0x018c}
0x0ebe2…0ec02               Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A6 GET ADDRESS «, t00=0x0097, t01=0x0010}
0x0ec02…0ec32               Head {h00=0x002c, h01=0x0050, text=» LC A2,TEBCDIC,A2 TRANSLATE IT TO EBCDIC«, t00=0x0097, t01=0x0030}
0x0ec32…0ec5a               Head {h00=0x0024, h01=0x0050, text=» LD A1,DCRBUF IS THERE A BUFFER «, t00=0x0097, t01=0x0060}
0x0ec5a…0ec72               Head {h00=0x0014, h01=0x0050, text=» RF(Z) STX200 NO«, t00=0x0097, t01=0x0088}
0x0ec72…0ec96               Head {h00=0x0020, h01=0x0050, text=» ST A2,+4,A1 STORE THE ADDR «, t00=0x0097, t01=0x00a0}
0x0ec96…0ecaa               Head {h00=0x0010, h01=0x0050, text=»STX200 EQU *«, t00=0x0097, t01=0x00c4}
0x0ecaa…0ecb6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x00d8}
0x0ecb6…0ecdc               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 ANY REQUEST ? «, t00=0x0097, t01=0x00e4}
0x0ecdc…0ecf4               Head {h00=0x0014, h01=0x0050, text=» RF(N) STX220 NO«, t00=0x0097, t01=0x010a}
0x0ecf4…0ed16               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET ORDER «, t00=0x0097, t01=0x0122}
0x0ed16…0ed2c               Head {h00=0x0012, h01=0x0050, text=» IFT EM3270=1 «, t00=0x0097, t01=0x0144}
0x0ed2c…0ed56               Head {h00=0x0026, h01=0x0050, text=» RF(Z) STX210 ANY MESSAGE ORDER ? «, t00=0x0097, t01=0x015a}
0x0ed56…0ed62               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x0184}
0x0ed62…0ed86               Head {h00=0x0020, h01=0x0050, text=» CWK A2,RECEIVE A RECEIVE ? «, t00=0x0097, t01=0x0190}
0x0ed86…0eda0               Head {h00=0x0016, h01=0x0050, text=» RF(NE) STX220 NO «, t00=0x0098, t01=0x0024}
0x0eda0…0edb4               Head {h00=0x0010, h01=0x0050, text=»STX210 EQU *«, t00=0x0098, t01=0x003e}
0x0edb4…0edc4               Head {h00=0x000c, h01=0x0050, text=»    =12 «, t00=0x0098, t01=0x0052}
0x0edc4…0edec               Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0098, t01=0x0062}
0x0edec…0ee0c               Head {h00=0x001c, h01=0x0050, text=» LD A3,-4,A4 GET LENGTH «, t00=0x0098, t01=0x008a}
0x0ee0c…0ee3a               Head {h00=0x002a, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0098, t01=0x00aa}
0x0ee3a…0ee6c               Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 «, t00=0x0098, t01=0x00d8}
0x0ee6c…0ee98               Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A4 NETWORK SUB-ADDRESS =12 «, t00=0x0098, t01=0x010a}
0x0ee98…0eecc               Head {h00=0x0030, h01=0x0050, text=» CF A15,GETSSA GET SYMBOLIC SUB ADDRESS =12 «, t00=0x0098, t01=0x0136}
0x0eecc…0eefc               Head {h00=0x002c, h01=0x0050, text=» ST A1,ECBCW2,A8 AND SAVE IT IN ECB =12 «, t00=0x0098, t01=0x016a}
0x0eefc…0ef24               Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE =12 «, t00=0x0099, t01=0x000a}
0x0ef24…0ef4e               Head {h00=0x0026, h01=0x0050, text=» CF A15,CTIME STOP REQUEST TIMING «, t00=0x0099, t01=0x0032}
0x0ef4e…0ef68               Head {h00=0x0016, h01=0x0050, text=» IFT REMTIM=1  =9 «, t00=0x0099, t01=0x005c}
0x0ef68…0ef96               Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW1,A8 STORE REMAINING TIME «, t00=0x0099, t01=0x0076}
0x0ef96…0efa8               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x0099, t01=0x00a4}
0x0efa8…0efbc               Head {h00=0x0010, h01=0x0050, text=»STX220 EQU *«, t00=0x0099, t01=0x00b6}
0x0efbc…0efd2               Head {h00=0x0012, h01=0x0050, text=» IFT STARVI=1 «, t00=0x0099, t01=0x00ca}
0x0efd2…0eff2               Head {h00=0x001c, h01=0x0050, text=» LC A2,+2,A4 GET WCC/CCC«, t00=0x0099, t01=0x00e0}
0x0eff2…0f006               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0099, t01=0x0100}
0x0f006…0f020               Head {h00=0x0016, h01=0x0050, text=» LC A2,TEBCDIC,A2 «, t00=0x0099, t01=0x0114}
0x0f020…0f032               Head {h00=0x000e, h01=0x0050, text=» ANK A2,8 «, t00=0x0099, t01=0x012e}
0x0f032…0f048               Head {h00=0x0012, h01=0x0050, text=» RF(Z) STX230 «, t00=0x0099, t01=0x0140}
0x0f048…0f060               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0099, t01=0x0156}
0x0f060…0f072               Head {h00=0x000e, h01=0x0050, text=» ORK A2,/A«, t00=0x0099, t01=0x016e}
0x0f072…0f08a               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A6 «, t00=0x0099, t01=0x0180}
0x0f08a…0f09e               Head {h00=0x0010, h01=0x0050, text=»STX230 EQU *«, t00=0x009a, t01=0x0008}
0x0f09e…0f0aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009a, t01=0x001c}
0x0f0aa…0f0d0               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 ANY REQUEST ? «, t00=0x009a, t01=0x0028}
0x0f0d0…0f0ea               Head {h00=0x0016, h01=0x0050, text=» RF(NN) STX240 YES«, t00=0x009a, t01=0x004e}
0x0f0ea…0f10c               Head {h00=0x001e, h01=0x0050, text=» CF A5,QRBUF QUEUE BUFFER «, t00=0x009a, t01=0x0068}
0x0f10c…0f11e               Head {h00=0x000e, h01=0x0050, text=» RF STX270«, t00=0x009a, t01=0x008a}
0x0f11e…0f132               Head {h00=0x0010, h01=0x0050, text=»STX240 EQU *«, t00=0x009a, t01=0x009c}
0x0f132…0f154               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET ORDER «, t00=0x009a, t01=0x00b0}
0x0f154…0f17c               Head {h00=0x0024, h01=0x0050, text=» CWK A2,RECEIVE RECEIVE ORDER ? «, t00=0x009a, t01=0x00d2}
0x0f17c…0f196               Head {h00=0x0016, h01=0x0050, text=» RF(NE) STX260 NO «, t00=0x009a, t01=0x00fa}
0x0f196…0f1a6               Head {h00=0x000c, h01=0x0050, text=»    =12 «, t00=0x009a, t01=0x0114}
0x0f1a6…0f1ca               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x009a, t01=0x0124}
0x0f1ca…0f1f8               Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTIPC,A6 ANY QUEUED MESSAGES ?«, t00=0x009a, t01=0x0148}
0x0f1f8…0f210               Head {h00=0x0014, h01=0x0050, text=» RF(Z) STX250 NO«, t00=0x009a, t01=0x0176}
0x0f210…0f22c               Head {h00=0x0018, h01=0x0050, text=» ORKL A1,R:DATA YES «, t00=0x009a, t01=0x018e}
0x0f22c…0f240               Head {h00=0x0010, h01=0x0050, text=»STX250 EQU *«, t00=0x009b, t01=0x001a}
0x0f240…0f26a               Head {h00=0x0026, h01=0x0050, text=» CF A15,DC:MIN MOVE TO USER BUFFER«, t00=0x009b, t01=0x002e}
0x0f26a…0f27c               Head {h00=0x000e, h01=0x0050, text=» RF STX270«, t00=0x009b, t01=0x0058}
0x0f27c…0f290               Head {h00=0x0010, h01=0x0050, text=»STX260 EQU *«, t00=0x009b, t01=0x006a}
0x0f290…0f2b2               Head {h00=0x001e, h01=0x0050, text=» CF A5,QRBUF QUEUE BUFFER «, t00=0x009b, t01=0x007e}
0x0f2b2…0f2c8               Head {h00=0x0012, h01=0x0050, text=» IFT EM3270=1 «, t00=0x009b, t01=0x00a0}
0x0f2c8…0f2ea               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET ORDER «, t00=0x009b, t01=0x00b6}
0x0f2ea…0f316               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) STX270 NOT ANY MESSAGE ORDER«, t00=0x009b, t01=0x00d8}
0x0f316…0f33e               Head {h00=0x0024, h01=0x0050, text=» CF A15,TENDIO COMPLETE REQUEST «, t00=0x009b, t01=0x0104}
0x0f33e…0f34a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x012c}
0x0f34a…0f35e               Head {h00=0x0010, h01=0x0050, text=»STX270 EQU *«, t00=0x009b, t01=0x0138}
0x0f35e…0f374               Head {h00=0x0012, h01=0x0050, text=» IFT STARVI=1 «, t00=0x009b, t01=0x014c}
0x0f374…0f396               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 GET STATUS«, t00=0x009b, t01=0x0162}
0x0f396…0f3b0               Head {h00=0x0016, h01=0x0050, text=» ANK A1,8 MASK A1 «, t00=0x009b, t01=0x0184}
0x0f3b0…0f3c6               Head {h00=0x0012, h01=0x0050, text=» RF(Z) STX280 «, t00=0x009c, t01=0x000e}
0x0f3c6…0f3e4               Head {h00=0x001a, h01=0x0050, text=» CF A5,TRWACK SEN WACK«, t00=0x009c, t01=0x0024}
0x0f3e4…0f3f6               Head {h00=0x000e, h01=0x0050, text=» RF STX290«, t00=0x009c, t01=0x0042}
0x0f3f6…0f402               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0054}
0x0f402…0f416               Head {h00=0x0010, h01=0x0050, text=»STX280 EQU *«, t00=0x009c, t01=0x0060}
0x0f416…0f434               Head {h00=0x001a, h01=0x0050, text=» CF A5,TRACK SEND ACK «, t00=0x009c, t01=0x0074}
0x0f434…0f448               Head {h00=0x0010, h01=0x0050, text=»STX290 EQU *«, t00=0x009c, t01=0x0092}
0x0f448…0f458               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x009c, t01=0x00a6}
0x0f458…0f466               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x00b6}
0x0f466…0f470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00c4}
0x0f470…0f47a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00ce}
0x0f47a…0f4aa               Head {h00=0x002c, h01=0x0050, text=»* READ MODIFIED OR READ BUFFER RECEIVED «, t00=0x009c, t01=0x00d8}
0x0f4aa…0f4b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0108}
0x0f4b4…0f4be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0112}
0x0f4be…0f4d2               Head {h00=0x0010, h01=0x0050, text=» IFF RCOM=0 «, t00=0x009c, t01=0x011c}
0x0f4d2…0f4fa               Head {h00=0x0024, h01=0x0050, text=»RDBUF EQU * READ BUFFER COMMAND «, t00=0x009c, t01=0x0130}
0x0f4fa…0f50e               Head {h00=0x0010, h01=0x0050, text=»RDMOD EQU * «, t00=0x009c, t01=0x0158}
0x0f50e…0f534               Head {h00=0x0022, h01=0x0050, text=» CM XSEL RESET SELECT EXPECTED«, t00=0x009c, t01=0x016c}
0x0f534…0f56c (157, 0, 398) Head {h00=0x0034, h01=0x0050, text=» LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL«, t00=0x009d, t01=0x0004}
0x0f56c…0f594               Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTBUF,A6 BUFFER ADDRESS «, t00=0x009d, t01=0x003c}
0x0f594…0f5bc               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 SDJUST BUFFER ADDRESS «, t00=0x009d, t01=0x0064}
0x0f5bc…0f5e2               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,1922 REQUESTED LENGTH«, t00=0x009d, t01=0x008c}
0x0f5e2…0f608               Head {h00=0x0022, h01=0x0050, text=» IM XRB SET READ BUFFER SWITCH«, t00=0x009d, t01=0x00b2}
0x0f608…0f61a               Head {h00=0x000e, h01=0x0050, text=» CM FDWTUT«, t00=0x009d, t01=0x00d8}
0x0f61a…0f62c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x009d, t01=0x00ea}
0x0f62c…0f656               Head {h00=0x0026, h01=0x0050, text=» XRS A1,CACK INCREMENT ACK COUNTER«, t00=0x009d, t01=0x00fc}
0x0f656…0f66a               Head {h00=0x0010, h01=0x0050, text=» ABL POL190 «, t00=0x009d, t01=0x0126}
0x0f66a…0f676               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009d, t01=0x013a}
0x0f676…0f684               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x0146}
0x0f684…0f68e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0154}
0x0f68e…0f698               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x015e}
0x0f698…0f6b8               Head {h00=0x001c, h01=0x0050, text=»* ENQ HAS BEEN RECEIVED «, t00=0x009d, t01=0x0168}
0x0f6b8…0f6c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0188}
0x0f6c2…0f6cc (158, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0004}
0x0f6cc…0f6e0               Head {h00=0x0010, h01=0x0050, text=»ENQ100 EQU *«, t00=0x009e, t01=0x000e}
0x0f6e0…0f70a               Head {h00=0x0026, h01=0x0050, text=» CF A5,HPTIM STOP PROCEDURE TIMER «, t00=0x009e, t01=0x0022}
0x0f70a…0f71e               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x009e, t01=0x004c}
0x0f71e…0f74e               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) NAK110 RETRANSMISSION OF MESSAGE«, t00=0x009e, t01=0x0060}
0x0f74e…0f762               Head {h00=0x0010, h01=0x0050, text=» OR A1,XSEL «, t00=0x009e, t01=0x0090}
0x0f762…0f788               Head {h00=0x0022, h01=0x0050, text=» RF(Z) ENQ110 IN CONTROL STATE«, t00=0x009e, t01=0x00a4}
0x0f788…0f7ba               Head {h00=0x002e, h01=0x0050, text=» CF A5,TRREP REPEAT LAST CONTROL SEQUENCE «, t00=0x009e, t01=0x00ca}
0x0f7ba…0f7ce               Head {h00=0x0010, h01=0x0050, text=»ENQ110 EQU *«, t00=0x009e, t01=0x00fc}
0x0f7ce…0f7de               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x009e, t01=0x0110}
0x0f7de…0f7ec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x0120}
0x0f7ec…0f7f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x012e}
0x0f7f6…0f800               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0138}
0x0f800…0f820               Head {h00=0x001c, h01=0x0050, text=»* NAK HAS BEEN RECEIVED «, t00=0x009e, t01=0x0142}
0x0f820…0f82a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0162}
0x0f82a…0f834               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x016c}
0x0f834…0f848               Head {h00=0x0010, h01=0x0050, text=»NAK100 EQU *«, t00=0x009e, t01=0x0176}
0x0f848…0f872               Head {h00=0x0026, h01=0x0050, text=» CF A5,HPTIM STOP PROCEDURE TIMER «, t00=0x009e, t01=0x018a}
0x0f872…0f886               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x009f, t01=0x0024}
0x0f886…0f8aa               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) NAK110 ACK EXPECTED «, t00=0x009f, t01=0x0038}
0x0f8aa…0f8be               Head {h00=0x0010, h01=0x0050, text=» OR A1,XSEL «, t00=0x009f, t01=0x005c}
0x0f8be…0f8e4               Head {h00=0x0022, h01=0x0050, text=» RB(Z) ENQ110 IN CONTROL STATE«, t00=0x009f, t01=0x0070}
0x0f8e4…0f8f6               Head {h00=0x000e, h01=0x0050, text=» RF DLE160«, t00=0x009f, t01=0x0096}
0x0f8f6…0f90a               Head {h00=0x0010, h01=0x0050, text=»NAK110 EQU *«, t00=0x009f, t01=0x00a8}
0x0f90a…0f930               Head {h00=0x0022, h01=0x0050, text=» LD A6,FDWTUT GET WRITING DWT «, t00=0x009f, t01=0x00bc}
0x0f930…0f946               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x009f, t01=0x00e2}
0x0f946…0f95a               Head {h00=0x0010, h01=0x0050, text=» LD A1,XSTA «, t00=0x009f, t01=0x00f8}
0x0f95a…0f98e               Head {h00=0x0030, h01=0x0050, text=» ABL(NZ) POL120 STATUS HAS BEEN TRANSMITTED «, t00=0x009f, t01=0x010c}
0x0f98e…0f99a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009f, t01=0x0140}
0x0f99a…0f9ce               Head {h00=0x0030, h01=0x0050, text=» LD A1,FBLST GET START POINT FOR LAST BLOCK «, t00=0x009f, t01=0x014c}
0x0f9ce…0f9f8               Head {h00=0x0026, h01=0x0050, text=» SU A1,FECBBA COMPUTE BUFFER INDEX«, t00=0x009f, t01=0x0180}
0x0f9f8…0fa0c               Head {h00=0x0010, h01=0x0050, text=» ST A1,FBAX «, t00=0x00a0, t01=0x001a}
0x0fa0c…0fa22               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x00a0, t01=0x002e}
0x0fa22…0fa2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0044}
0x0fa2c…0fa36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x004e}
0x0fa36…0fa5e               Head {h00=0x0024, h01=0x0050, text=»*  COUNT MESSAGES RETRANSMITTED «, t00=0x00a0, t01=0x0058}
0x0fa5e…0fa68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0080}
0x0fa68…0fa7e               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSSTRT«, t00=0x00a0, t01=0x008a}
0x0fa7e…0fa94               Head {h00=0x0012, h01=0x0050, text=» CF A15,DCSUPS«, t00=0x00a0, t01=0x00a0}
0x0fa94…0faa0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x00b6}
0x0faa0…0fab4               Head {h00=0x0010, h01=0x0050, text=» ABL POL200 «, t00=0x00a0, t01=0x00c2}
0x0fab4…0fac2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x00d6}
0x0fac2…0facc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x00e4}
0x0facc…0fad6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x00ee}
0x0fad6…0faf6               Head {h00=0x001c, h01=0x0050, text=»* DLE HAS BEEN RECEIVED «, t00=0x00a0, t01=0x00f8}
0x0faf6…0fb00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0118}
0x0fb00…0fb0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0122}
0x0fb0a…0fb1e               Head {h00=0x0010, h01=0x0050, text=»DLE100 EQU *«, t00=0x00a0, t01=0x012c}
0x0fb1e…0fb48               Head {h00=0x0026, h01=0x0050, text=» CF A5,HPTIM STOP PROCEDURE TIMER «, t00=0x00a0, t01=0x0140}
0x0fb48…0fb5c               Head {h00=0x0010, h01=0x0050, text=» LD A1,XACK «, t00=0x00a0, t01=0x016a}
0x0fb5c…0fb72               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DLE110«, t00=0x00a0, t01=0x017e}
0x0fb72…0fb88 (161, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00a1, t01=0x0004}
0x0fb88…0fb9c               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x00a1, t01=0x001a}
0x0fb9c…0fbb0               Head {h00=0x0010, h01=0x0050, text=» CWK A2,STX «, t00=0x00a1, t01=0x002e}
0x0fbb0…0fbde               Head {h00=0x002a, h01=0x0050, text=» ABL(Z) STX110 YES - TRANSPARENT TEXT «, t00=0x00a1, t01=0x0042}
0x0fbde…0fbea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x0070}
0x0fbea…0fbfc               Head {h00=0x000e, h01=0x0050, text=» RB ENQ110«, t00=0x00a1, t01=0x007c}
0x0fbfc…0fc10               Head {h00=0x0010, h01=0x0050, text=»DLE110 EQU *«, t00=0x00a1, t01=0x008e}
0x0fc10…0fc3a               Head {h00=0x0026, h01=0x0050, text=» CF A5,READ READ SECOND CHARACTER «, t00=0x00a1, t01=0x00a2}
0x0fc3a…0fc5e               Head {h00=0x0020, h01=0x0050, text=» CWK A2,ACKPAR IS IT ACK 0 ?«, t00=0x00a1, t01=0x00cc}
0x0fc5e…0fc74               Head {h00=0x0012, h01=0x0050, text=» RF(NE) DLE130«, t00=0x00a1, t01=0x00f0}
0x0fc74…0fc7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0106}
0x0fc7e…0fc98               Head {h00=0x0016, h01=0x0050, text=»* ACK , 0 RECEIVED«, t00=0x00a1, t01=0x0110}
0x0fc98…0fca2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x012a}
0x0fca2…0fcc4               Head {h00=0x001e, h01=0x0050, text=» LD A1,CACK GET ACKCOUNTER«, t00=0x00a1, t01=0x0134}
0x0fcc4…0fce8               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DLE140 ACK,0 EXPECTED«, t00=0x00a1, t01=0x0156}
0x0fce8…0fcfc               Head {h00=0x0010, h01=0x0050, text=»DLE120 EQU *«, t00=0x00a1, t01=0x017a}
0x0fcfc…0fd1a               Head {h00=0x001a, h01=0x0050, text=» CF A5,TRENQ SEND ENQ «, t00=0x00a1, t01=0x018e}
0x0fd1a…0fd44               Head {h00=0x0026, h01=0x0050, text=» CF A5,SPTIM START PROCEDURE TIMER«, t00=0x00a2, t01=0x001c}
0x0fd44…0fd56               Head {h00=0x000e, h01=0x0050, text=» RB ENQ110«, t00=0x00a2, t01=0x0046}
0x0fd56…0fd6a               Head {h00=0x0010, h01=0x0050, text=»DLE130 EQU *«, t00=0x00a2, t01=0x0058}
0x0fd6a…0fd7e               Head {h00=0x0010, h01=0x0050, text=» CWK A2,ACK1«, t00=0x00a2, t01=0x006c}
0x0fd7e…0fd94               Head {h00=0x0012, h01=0x0050, text=» RF(NE) DLE180«, t00=0x00a2, t01=0x0080}
0x0fd94…0fd9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0096}
0x0fd9e…0fdb8               Head {h00=0x0016, h01=0x0050, text=»* ACK , 1 RECEIVED«, t00=0x00a2, t01=0x00a0}
0x0fdb8…0fdc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x00ba}
0x0fdc2…0fde6               Head {h00=0x0020, h01=0x0050, text=» LD A1,CACK GET ACK COUNTER «, t00=0x00a2, t01=0x00c4}
0x0fde6…0fe0e               Head {h00=0x0024, h01=0x0050, text=» RB(Z) DLE120 ACK,1 NOT EXPECTED«, t00=0x00a2, t01=0x00e8}
0x0fe0e…0fe22               Head {h00=0x0010, h01=0x0050, text=»DLE140 EQU *«, t00=0x00a2, t01=0x0110}
0x0fe22…0fe36               Head {h00=0x0010, h01=0x0050, text=» LD A1,XETX «, t00=0x00a2, t01=0x0124}
0x0fe36…0fe58               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DLE170 ETX NOT SENT«, t00=0x00a2, t01=0x0138}
0x0fe58…0fe66               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x015a}
0x0fe66…0fe70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0168}
0x0fe70…0fea0               Head {h00=0x002c, h01=0x0050, text=»* ACK HAS BEEN RECEIVED TO AN ETX BLOCK «, t00=0x00a2, t01=0x0172}
0x0fea0…0feaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0012}
0x0feaa…0fec4               Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 SET RC=0«, t00=0x00a3, t01=0x001c}
0x0fec4…0fed8               Head {h00=0x0010, h01=0x0050, text=»DLE150 EQU *«, t00=0x00a3, t01=0x0036}
0x0fed8…0feee               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x00a3, t01=0x004a}
0x0feee…0ff02               Head {h00=0x0010, h01=0x0050, text=» LD A2,XSTA «, t00=0x00a3, t01=0x0060}
0x0ff02…0ff34               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) DLE200 STATUS HAS BEEN TRANSMITTED«, t00=0x00a3, t01=0x0074}
0x0ff34…0ff40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a3, t01=0x00a6}
0x0ff40…0ff6c               Head {h00=0x0028, h01=0x0050, text=» CF A5,CWRITE COMPLETE WRITE REQUEST«, t00=0x00a3, t01=0x00b2}
0x0ff6c…0ff80               Head {h00=0x0010, h01=0x0050, text=»DLE160 EQU *«, t00=0x00a3, t01=0x00de}
0x0ff80…0ff9e               Head {h00=0x001a, h01=0x0050, text=» CF A5,TREOT SEND EOT «, t00=0x00a3, t01=0x00f2}
0x0ff9e…0ffb2               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x00a3, t01=0x0110}
0x0ffb2…0ffd4               Head {h00=0x001e, h01=0x0050, text=» CM XRB RESET READ BUFFER «, t00=0x00a3, t01=0x0124}
0x0ffd4…0ffe0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a3, t01=0x0146}
0x0ffe0…0fff2               Head {h00=0x000e, h01=0x0050, text=» RB ENQ110«, t00=0x00a3, t01=0x0152}
0x0fff2…10006               Head {h00=0x0010, h01=0x0050, text=»DLE170 EQU *«, t00=0x00a3, t01=0x0164}
0x10006…10018               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x00a3, t01=0x0178}
0x10018…10042               Head {h00=0x0026, h01=0x0050, text=» XRS A1,CACK INCREMENT ACK COUNTER«, t00=0x00a3, t01=0x018a}
0x10042…10056               Head {h00=0x0010, h01=0x0050, text=» ABL POL200 «, t00=0x00a4, t01=0x0024}
0x10056…1006a               Head {h00=0x0010, h01=0x0050, text=»DLE180 EQU *«, t00=0x00a4, t01=0x0038}
0x1006a…1008c               Head {h00=0x001e, h01=0x0050, text=» CWK A2,RVIPAR IS IT RVI ?«, t00=0x00a4, t01=0x004c}
0x1008c…100b8               Head {h00=0x0028, h01=0x0050, text=» RB(NE) DLE120 INVALID DLE SEQUENCE «, t00=0x00a4, t01=0x006e}
0x100b8…100de               Head {h00=0x0022, h01=0x0050, text=» CM XACK RESET 'EXPECTING ACK'«, t00=0x00a4, t01=0x009a}
0x100de…100f2               Head {h00=0x0010, h01=0x0050, text=» LD A1,XETX «, t00=0x00a4, t01=0x00c0}
0x100f2…1011a               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DLE190 ETX HAS BEEN SENT«, t00=0x00a4, t01=0x00d4}
0x1011a…10134               Head {h00=0x0016, h01=0x0050, text=» LDK A1,2 SET RC=2«, t00=0x00a4, t01=0x00fc}
0x10134…10146               Head {h00=0x000e, h01=0x0050, text=» RB DLE150«, t00=0x00a4, t01=0x0116}
0x10146…1015a               Head {h00=0x0010, h01=0x0050, text=»DLE190 EQU *«, t00=0x00a4, t01=0x0128}
0x1015a…10174               Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 SET RC=0«, t00=0x00a4, t01=0x013c}
0x10174…10186               Head {h00=0x000e, h01=0x0050, text=» RB DLE150«, t00=0x00a4, t01=0x0156}
0x10186…10194               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a4, t01=0x0168}
0x10194…101aa               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x00a4, t01=0x0176}
0x101aa…101b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x018c}
0x101b4…101be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0008}
0x101be…101e4               Head {h00=0x0022, h01=0x0050, text=»* STATUS HAS BEEN TRANSMITTED «, t00=0x00a5, t01=0x0012}
0x101e4…101ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0038}
0x101ee…101f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0042}
0x101f8…1020c               Head {h00=0x0010, h01=0x0050, text=»DLE200 EQU *«, t00=0x00a5, t01=0x004c}
0x1020c…10232               Head {h00=0x0022, h01=0x0050, text=» LD A6,FDWTUT GET DWT ADDRESS «, t00=0x00a5, t01=0x0060}
0x10232…10262               Head {h00=0x002c, h01=0x0050, text=» CF A15,REMOVS REMOVE FROM STATUS QUEUE «, t00=0x00a5, t01=0x0086}
0x10262…10286               Head {h00=0x0020, h01=0x0050, text=» CM XSTA CLEAR 'STATUS SENT'«, t00=0x00a5, t01=0x00b6}
0x10286…102ac               Head {h00=0x0022, h01=0x0050, text=» CM XACK CLEAR 'ACK EXPECTED' «, t00=0x00a5, t01=0x00da}
0x102ac…102ce               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 GET STATUS«, t00=0x00a5, t01=0x0100}
0x102ce…102e0               Head {h00=0x000e, h01=0x0050, text=» ANK A1,4 «, t00=0x00a5, t01=0x0122}
0x102e0…102fc               Head {h00=0x0018, h01=0x0050, text=» RB(Z) DLE160 NOT DE«, t00=0x00a5, t01=0x0134}
0x102fc…10312               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8000«, t00=0x00a5, t01=0x0150}
0x10312…10338               Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTST,A6 CLEAR STATUS «, t00=0x00a5, t01=0x0166}
0x10338…1034a               Head {h00=0x000e, h01=0x0050, text=» RB DLE160«, t00=0x00a5, t01=0x018c}
0x1034a…10356               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a6, t01=0x000e}
0x10356…10364               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a6, t01=0x001a}
0x10364…1036e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0028}
0x1036e…103ae               Head {h00=0x003c, h01=0x0050, text=»* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2«, t00=0x00a6, t01=0x0032}
0x103ae…103b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0072}
0x103b8…103e4               Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE: CF A5,FINTER(S) «, t00=0x00a6, t01=0x007c}
0x103e4…10404               Head {h00=0x001c, h01=0x0050, text=»* A2=SUBTERMINAL ADDRESS«, t00=0x00a6, t01=0x00a8}
0x10404…1041a               Head {h00=0x0012, h01=0x0050, text=»* A4 DESTROYED«, t00=0x00a6, t01=0x00c8}
0x1041a…10440               Head {h00=0x0022, h01=0x0050, text=»* A3#0: DWT TO FOUND TERMINAL «, t00=0x00a6, t01=0x00de}
0x10440…1044a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0104}
0x1044a…10490               Head {h00=0x0042, h01=0x0050, text=»* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES «, t00=0x00a6, t01=0x010e}
0x10490…104be               Head {h00=0x002a, h01=0x0050, text=»* ENTRY: FINTES - CHECK SELECT ADDRESS«, t00=0x00a6, t01=0x0154}
0x104be…104ee               Head {h00=0x002c, h01=0x0050, text=»*  FINTEP - CHECK SPECIFIC POLL ADDRESS «, t00=0x00a6, t01=0x0182}
0x104ee…104f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0022}
0x104f8…10502               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x002c}
0x10502…1050c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0036}
0x1050c…10520               Head {h00=0x0010, h01=0x0050, text=»FINTES EQU *«, t00=0x00a7, t01=0x0040}
0x10520…10534               Head {h00=0x0010, h01=0x0050, text=» IFT MSV1=1 «, t00=0x00a7, t01=0x0054}
0x10534…10546               Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x00a7, t01=0x0068}
0x10546…10558               Head {h00=0x000e, h01=0x0050, text=» RF FINT05«, t00=0x00a7, t01=0x007a}
0x10558…10564               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x008c}
0x10564…10578               Head {h00=0x0010, h01=0x0050, text=»FINTEP EQU *«, t00=0x00a7, t01=0x0098}
0x10578…10594               Head {h00=0x0018, h01=0x0050, text=» LDK A4,1 RIGTH BYTE«, t00=0x00a7, t01=0x00ac}
0x10594…105a8               Head {h00=0x0010, h01=0x0050, text=»FINT05 EQU *«, t00=0x00a7, t01=0x00c8}
0x105a8…105ce               Head {h00=0x0022, h01=0x0050, text=» LD A3,DTEDWT,A7 GET FIRST DWT«, t00=0x00a7, t01=0x00dc}
0x105ce…105e2               Head {h00=0x0010, h01=0x0050, text=»FINT10 EQU *«, t00=0x00a7, t01=0x0102}
0x105e2…10602               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FINT20 END QUEUE «, t00=0x00a7, t01=0x0116}
0x10602…10614               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x00a7, t01=0x0136}
0x10614…1063a               Head {h00=0x0022, h01=0x0050, text=» CCR A2,A3 THIS SUB-ADDRESS ? «, t00=0x00a7, t01=0x0148}
0x1063a…10654               Head {h00=0x0016, h01=0x0050, text=» RF(E) FINT20 YES «, t00=0x00a7, t01=0x016e}
0x10654…10666               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x00a7, t01=0x0188}
0x10666…1068c               Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTCHN,A3 GET NEXT DWT «, t00=0x00a8, t01=0x000a}
0x1068c…1069e               Head {h00=0x000e, h01=0x0050, text=» RB FINT10«, t00=0x00a8, t01=0x0030}
0x1069e…106b2               Head {h00=0x0010, h01=0x0050, text=»FINT20 EQU *«, t00=0x00a8, t01=0x0042}
0x106b2…106c8               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFFE«, t00=0x00a8, t01=0x0056}
0x106c8…106d8               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x00a8, t01=0x006c}
0x106d8…106e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x007c}
0x106e6…106f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x008a}
0x106f0…106fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0094}
0x106fa…1071e               Head {h00=0x0020, h01=0x0050, text=»* PREPARE FOR TEXT RECEPTION«, t00=0x00a8, t01=0x009e}
0x1071e…10728               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00c2}
0x10728…10732               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00cc}
0x10732…10746               Head {h00=0x0010, h01=0x0050, text=»PRREC EQU * «, t00=0x00a8, t01=0x00d6}
0x10746…10766               Head {h00=0x001c, h01=0x0050, text=» IM XSEL SET 'SELECTED' «, t00=0x00a8, t01=0x00ea}
0x10766…1078a               Head {h00=0x0020, h01=0x0050, text=» CM FBAX RESET BUFFER INDEX «, t00=0x00a8, t01=0x010a}
0x1078a…1079e               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00a8, t01=0x012e}
0x1079e…107d0               Head {h00=0x002e, h01=0x0050, text=» LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC «, t00=0x00a8, t01=0x0142}
0x107d0…107dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0174}
0x107dc…10804               Head {h00=0x0024, h01=0x0050, text=» ST A2,+4,A1 SAVE STA IN BUFFER «, t00=0x00a8, t01=0x0180}
0x10804…10814               Head {h00=0x000c, h01=0x0050, text=» IM XSTA«, t00=0x00a9, t01=0x0018}
0x10814…1083a               Head {h00=0x0022, h01=0x0050, text=» ST A6,FDWTIN STORE INPUT DWT «, t00=0x00a9, t01=0x0028}
0x1083a…1084a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x00a9, t01=0x004e}
0x1084a…10858               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a9, t01=0x005e}
0x10858…10862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x006c}
0x10862…1086c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0076}
0x1086c…108a6               Head {h00=0x0036, h01=0x0050, text=»* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED«, t00=0x00a9, t01=0x0080}
0x108a6…108b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00ba}
0x108b0…108d2               Head {h00=0x001e, h01=0x0050, text=»* A1 CONTAINS RETURN CODE «, t00=0x00a9, t01=0x00c4}
0x108d2…108dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00e6}
0x108dc…108e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00f0}
0x108e6…10902               Head {h00=0x0018, h01=0x0050, text=»CWRITE LD A6,FDWTUT «, t00=0x00a9, t01=0x00fa}
0x10902…1092a               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CWR900 NO WRITE GOING ON «, t00=0x00a9, t01=0x0116}
0x1092a…10942               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x00a9, t01=0x013e}
0x10942…10962               Head {h00=0x001c, h01=0x0050, text=» RF(N) CWR900 NO REQUEST«, t00=0x00a9, t01=0x0156}
0x10962…10984               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET ORDER «, t00=0x00a9, t01=0x0176}
0x10984…109ae               Head {h00=0x0026, h01=0x0050, text=» ANK A2,/FF MASK AWAY OPTION PART «, t00=0x00aa, t01=0x0008}
0x109ae…109c0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,6 «, t00=0x00aa, t01=0x0032}
0x109c0…109e8               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CWR900 NOT SEND REQUEST «, t00=0x00aa, t01=0x0044}
0x109e8…10a20               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWTIPC,A6 ANY RECEIVED BUFFERS ON QUEU ? «, t00=0x00aa, t01=0x006c}
0x10a20…10a38               Head {h00=0x0014, h01=0x0050, text=» RF(Z) CWR110 NO«, t00=0x00aa, t01=0x00a4}
0x10a38…10a6c               Head {h00=0x0030, h01=0x0050, text=» ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE «, t00=0x00aa, t01=0x00bc}
0x10a6c…10a80               Head {h00=0x0010, h01=0x0050, text=»CWR110 EQU *«, t00=0x00aa, t01=0x00f0}
0x10a80…10a98               Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x00aa, t01=0x0104}
0x10a98…10ab8               Head {h00=0x001c, h01=0x0050, text=» CF A15,CTIME STOP TIMER«, t00=0x00aa, t01=0x011c}
0x10ab8…10ad2               Head {h00=0x0016, h01=0x0050, text=» IFT REMTIM=1  =9 «, t00=0x00aa, t01=0x013c}
0x10ad2…10aea               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW1,A8«, t00=0x00aa, t01=0x0156}
0x10aea…10afc               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x00aa, t01=0x016e}
0x10afc…10b24               Head {h00=0x0024, h01=0x0050, text=» CF A15,TENDIO COMPLETE REQUEST «, t00=0x00aa, t01=0x0180}
0x10b24…10b38               Head {h00=0x0010, h01=0x0050, text=»CWR150 EQU *«, t00=0x00ab, t01=0x0018}
0x10b38…10b66               Head {h00=0x002a, h01=0x0050, text=» CF A15,REMOVW REMOVE FROM WRITE QUEUE«, t00=0x00ab, t01=0x002c}
0x10b66…10b7a               Head {h00=0x0010, h01=0x0050, text=»CWR900 EQU *«, t00=0x00ab, t01=0x005a}
0x10b7a…10ba0               Head {h00=0x0022, h01=0x0050, text=» CM XACK RESET 'ACK EXPECTED' «, t00=0x00ab, t01=0x006e}
0x10ba0…10bb2               Head {h00=0x000e, h01=0x0050, text=» CM FDWTUT«, t00=0x00ab, t01=0x0094}
0x10bb2…10bc2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x00ab, t01=0x00a6}
0x10bc2…10bd0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ab, t01=0x00b6}
0x10bd0…10bda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00c4}
0x10bda…10be4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00ce}
0x10be4…10c02               Head {h00=0x001a, h01=0x0050, text=»* READ ONE TEXT BLOCK «, t00=0x00ab, t01=0x00d8}
0x10c02…10c0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00f6}
0x10c0c…10c2c               Head {h00=0x001c, h01=0x0050, text=»* ON EXIT A3 CONTAINS : «, t00=0x00ab, t01=0x0100}
0x10c2c…10c58               Head {h00=0x0028, h01=0x0050, text=»* 0 : IF CORRECT ETX BLOCK RECEIVED «, t00=0x00ab, t01=0x0120}
0x10c58…10c8e               Head {h00=0x0032, h01=0x0050, text=»* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW«, t00=0x00ab, t01=0x014c}
0x10c8e…10cba               Head {h00=0x0028, h01=0x0050, text=»* 2 : IF CORRECT ETB BLOCK RECEIVED «, t00=0x00ab, t01=0x0182}
0x10cba…10cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x001e}
0x10cc4…10cd8               Head {h00=0x0010, h01=0x0050, text=»RDMESS EQU *«, t00=0x00ac, t01=0x0028}
0x10cd8…10d00               Head {h00=0x0024, h01=0x0050, text=» LD A4,DCRBUF GET BUFFER ADDRESS«, t00=0x00ac, t01=0x003c}
0x10d00…10d20               Head {h00=0x001c, h01=0x0050, text=» ADK A4,6 RESERVE HEADER«, t00=0x00ac, t01=0x0064}
0x10d20…10d32               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x00ac, t01=0x0084}
0x10d32…10d46               Head {h00=0x0010, h01=0x0050, text=» LD A1,XSTA «, t00=0x00ac, t01=0x0096}
0x10d46…10d6e               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) RDM050 LAST INPUT WAS OK«, t00=0x00ac, t01=0x00aa}
0x10d6e…10d94               Head {h00=0x0022, h01=0x0050, text=» LD A1,FBLST COMPUTE NEW INDEX«, t00=0x00ac, t01=0x00d2}
0x10d94…10da6               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A4«, t00=0x00ac, t01=0x00f8}
0x10da6…10dba               Head {h00=0x0010, h01=0x0050, text=» ST A1,FBAX «, t00=0x00ac, t01=0x010a}
0x10dba…10dce               Head {h00=0x0010, h01=0x0050, text=»RDM050 EQU *«, t00=0x00ac, t01=0x011e}
0x10dce…10df2               Head {h00=0x0020, h01=0x0050, text=» AD A4,FBAX ADD BUFFER INDEX«, t00=0x00ac, t01=0x0132}
0x10df2…10e1e               Head {h00=0x0028, h01=0x0050, text=» ST A4,FBLST REMEMBER START OF BLOCK«, t00=0x00ac, t01=0x0156}
0x10e1e…10e2e               Head {h00=0x000c, h01=0x0050, text=» CM XSTA«, t00=0x00ac, t01=0x0182}
0x10e2e…10e4a (173, 0, 400) Head {h00=0x0018, h01=0x0050, text=» SUR A8,A8 RESET LRC«, t00=0x00ad, t01=0x0004}
0x10e4a…10e52               Head {h00=0x0004, h01=0x0050, t00=0x00ad, t01=0x0020}
0x10e52…10e68               Head {h00=0x0012, h01=0x0050, text=» IFT IBMCHR=1 «, t00=0x00ad, t01=0x0028}
0x10e68…10e7e               Head {h00=0x0012, h01=0x0050, text=» IFF TPMODE=1 «, t00=0x00ad, t01=0x003e}
0x10e7e…10e92               Head {h00=0x0010, h01=0x0050, text=» LD A1,FBAX «, t00=0x00ad, t01=0x0054}
0x10e92…10eb8               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) RDM100 NOT FIRST BLOCK«, t00=0x00ad, t01=0x0068}
0x10eb8…10ecc               Head {h00=0x0010, h01=0x0050, text=» CF A5,READP«, t00=0x00ad, t01=0x008e}
0x10ecc…10ef0               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDM120 PARITY ERROR «, t00=0x00ad, t01=0x00a2}
0x10ef0…10f04               Head {h00=0x0010, h01=0x0050, text=» CWK A2,ESC «, t00=0x00ad, t01=0x00c6}
0x10f04…10f1a               Head {h00=0x0012, h01=0x0050, text=» RF(NE) RDM110«, t00=0x00ad, t01=0x00da}
0x10f1a…10f48               Head {h00=0x002a, h01=0x0050, text=» CF A5,READP SKIP NEXT TWO CHARACTERS «, t00=0x00ad, t01=0x00f0}
0x10f48…10f5c               Head {h00=0x0010, h01=0x0050, text=» CF A5,READP«, t00=0x00ad, t01=0x011e}
0x10f5c…10f68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ad, t01=0x0132}
0x10f68…10f7e               Head {h00=0x0012, h01=0x0050, text=» IFF TPMODE=1 «, t00=0x00ad, t01=0x013e}
0x10f7e…10f92               Head {h00=0x0010, h01=0x0050, text=»RDM100 EQU *«, t00=0x00ad, t01=0x0154}
0x10f92…10fba               Head {h00=0x0024, h01=0x0050, text=» CF A5,READP READ ONE CHARACTER «, t00=0x00ad, t01=0x0168}
0x10fba…10fde               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDM120 PARITY ERROR «, t00=0x00ad, t01=0x0190}
0x10fde…10ff2               Head {h00=0x0010, h01=0x0050, text=»RDM110 EQU *«, t00=0x00ae, t01=0x0024}
0x10ff2…10ffe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ae, t01=0x0038}
0x10ffe…11014               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00ae, t01=0x0044}
0x11014…1103e               Head {h00=0x0026, h01=0x0050, text=» IM TPM INDICATE TRANSPARENT TEXT «, t00=0x00ae, t01=0x005a}
0x1103e…11058               Head {h00=0x0016, h01=0x0050, text=»RDM100 CF A5,READ «, t00=0x00ae, t01=0x0084}
0x11058…11078               Head {h00=0x001c, h01=0x0050, text=» CWK A2,DLE CHECK IF DLE«, t00=0x00ae, t01=0x009e}
0x11078…11092               Head {h00=0x0016, h01=0x0050, text=» RF(NE) RDM112 NO «, t00=0x00ae, t01=0x00be}
0x11092…110c6               Head {h00=0x0030, h01=0x0050, text=» CF A5,READ SKIP DLE AND READ NEXT CHARACTER«, t00=0x00ae, t01=0x00d8}
0x110c6…110ea               Head {h00=0x0020, h01=0x0050, text=» CWK A2,SYNEBC CHECK IF SYN «, t00=0x00ae, t01=0x010c}
0x110ea…11108               Head {h00=0x001a, h01=0x0050, text=» RB(E) RDM100 SKIP SYN«, t00=0x00ae, t01=0x0130}
0x11108…1112c               Head {h00=0x0020, h01=0x0050, text=» CF A5,CRCCAL CALCULATE CRC «, t00=0x00ae, t01=0x014e}
0x1112c…11152               Head {h00=0x0022, h01=0x0050, text=» CWK A2,DLE CHECK IF 2:ND DLE «, t00=0x00ae, t01=0x0172}
0x11152…11180               Head {h00=0x002a, h01=0x0050, text=» RF(E) RDM115 YES - STORE DLE AS DATA «, t00=0x00af, t01=0x0008}
0x11180…111a0               Head {h00=0x001c, h01=0x0050, text=» CWK A2,ETX CHECK IF ETX«, t00=0x00af, t01=0x0036}
0x111a0…111ba               Head {h00=0x0016, h01=0x0050, text=» RF(E) RDM130 YES «, t00=0x00af, t01=0x0056}
0x111ba…111de               Head {h00=0x0020, h01=0x0050, text=» CWK A2,ETBEBC CHECK IF ETB «, t00=0x00af, t01=0x0070}
0x111de…111f8               Head {h00=0x0016, h01=0x0050, text=» RF(E) RDM160 YES «, t00=0x00af, t01=0x0094}
0x111f8…11218               Head {h00=0x001c, h01=0x0050, text=» CWK A2,ITB CHECK IF ITB«, t00=0x00af, t01=0x00ae}
0x11218…11232               Head {h00=0x0016, h01=0x0050, text=» RF(E) RDM175 YES «, t00=0x00af, t01=0x00ce}
0x11232…11256               Head {h00=0x0020, h01=0x0050, text=» CWK A2,ENQEBC CHECK IF ENQ «, t00=0x00af, t01=0x00e8}
0x11256…11278               Head {h00=0x001e, h01=0x0050, text=» RF(E) RDM140 YES SEND NAK«, t00=0x00af, t01=0x010c}
0x11278…11282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x012e}
0x11282…1128c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0138}
0x1128c…112a6               Head {h00=0x0016, h01=0x0050, text=»* GET END OF BLOCK«, t00=0x00af, t01=0x0142}
0x112a6…112b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x015c}
0x112b0…112c4               Head {h00=0x0010, h01=0x0050, text=»RDM105 EQU *«, t00=0x00af, t01=0x0166}
0x112c4…112d8               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x00af, t01=0x017a}
0x112d8…112ec               Head {h00=0x0010, h01=0x0050, text=» CWK A2,DLE «, t00=0x00af, t01=0x018e}
0x112ec…11302               Head {h00=0x0012, h01=0x0050, text=» RB(NE) RDM105«, t00=0x00b0, t01=0x0012}
0x11302…11316               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x00b0, t01=0x0028}
0x11316…1132a               Head {h00=0x0010, h01=0x0050, text=» CWK A2,ETX «, t00=0x00b0, t01=0x003c}
0x1132a…11352               Head {h00=0x0024, h01=0x0050, text=» RF(E) RDM110 YES - END OF BLOCK«, t00=0x00b0, t01=0x0050}
0x11352…11368               Head {h00=0x0012, h01=0x0050, text=» CWK A2,ETBEBC«, t00=0x00b0, t01=0x0078}
0x11368…11390               Head {h00=0x0024, h01=0x0050, text=» RB(NE) RDM105 NOT END OF BLOCK «, t00=0x00b0, t01=0x008e}
0x11390…113a4               Head {h00=0x0010, h01=0x0050, text=»RDM110 EQU *«, t00=0x00b0, t01=0x00b6}
0x113a4…113cc               Head {h00=0x0024, h01=0x0050, text=» CM TPM OUT OF TRANSPARENT TEXT «, t00=0x00b0, t01=0x00ca}
0x113cc…113e0               Head {h00=0x0010, h01=0x0050, text=» CF A5,RDCRC«, t00=0x00b0, t01=0x00f2}
0x113e0…1140c               Head {h00=0x0028, h01=0x0050, text=» RF RDM140 INDICATE INVALID MESSAGE «, t00=0x00b0, t01=0x0106}
0x1140c…11436               Head {h00=0x0026, h01=0x0050, text=»RDM112 CF A5,CRCCAL CALCULATE CRC «, t00=0x00b0, t01=0x0132}
0x11436…11442               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b0, t01=0x015c}
0x11442…11458               Head {h00=0x0012, h01=0x0050, text=» IFF TPMODE=1 «, t00=0x00b0, t01=0x0168}
0x11458…1146c               Head {h00=0x0010, h01=0x0050, text=» CWK A2,ETX «, t00=0x00b0, t01=0x017e}
0x1146c…1148e (177, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(E) RDM130 ETX RECEIVED«, t00=0x00b1, t01=0x0004}
0x1148e…114a2               Head {h00=0x0010, h01=0x0050, text=» CWK A2,ETB «, t00=0x00b1, t01=0x0026}
0x114a2…114c4               Head {h00=0x001e, h01=0x0050, text=» RF(E) RDM160 ETB RECEIVED«, t00=0x00b1, t01=0x003a}
0x114c4…114d8               Head {h00=0x0010, h01=0x0050, text=» CWK A2,ITB «, t00=0x00b1, t01=0x005c}
0x114d8…114fa               Head {h00=0x001e, h01=0x0050, text=» RF(E) RDM170 ITB RECEIVED«, t00=0x00b1, t01=0x0070}
0x114fa…1150e               Head {h00=0x0010, h01=0x0050, text=» CWK A2,ENQ «, t00=0x00b1, t01=0x0092}
0x1150e…11544               Head {h00=0x0032, h01=0x0050, text=» RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE «, t00=0x00b1, t01=0x00a6}
0x11544…11558               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x00b1, t01=0x00dc}
0x11558…11580               Head {h00=0x0024, h01=0x0050, text=» RF(E) RDM140 MARK HOLD RECEIVED«, t00=0x00b1, t01=0x00f0}
0x11580…11594               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x00b1, t01=0x0118}
0x11594…115aa               Head {h00=0x0012, h01=0x0050, text=» IFT BINTRM=1 «, t00=0x00b1, t01=0x012c}
0x115aa…115bc               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00b1, t01=0x0142}
0x115bc…115d2               Head {h00=0x0012, h01=0x0050, text=» SUK A1,DC1+3 «, t00=0x00b1, t01=0x0154}
0x115d2…115f4               Head {h00=0x001e, h01=0x0050, text=» RF(P) RDM115 NOT DC1-DC3 «, t00=0x00b1, t01=0x016a}
0x115f4…11606               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x00b1, t01=0x018c}
0x11606…11628               Head {h00=0x001e, h01=0x0050, text=» RF(N) RDM115 NOT DC1-DC3 «, t00=0x00b2, t01=0x000e}
0x11628…1163a               Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x00b2, t01=0x0030}
0x1163a…11650               Head {h00=0x0012, h01=0x0050, text=» SCR A1,A4  =7«, t00=0x00b2, t01=0x0042}
0x11650…1167e               Head {h00=0x002a, h01=0x0050, text=» CF A5,READP 8-BIT CHAR GET NEXT PART «, t00=0x00b2, t01=0x0058}
0x1167e…116a2               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDM120 PARITY ERROR «, t00=0x00b2, t01=0x0086}
0x116a2…116b8               Head {h00=0x0012, h01=0x0050, text=» LCR A1,A4  =7«, t00=0x00b2, t01=0x00aa}
0x116b8…116e6               Head {h00=0x002a, h01=0x0050, text=» SUK A2,/20 ASSEMBLE TO ONE CHARACTER «, t00=0x00b2, t01=0x00c0}
0x116e6…116fc               Head {h00=0x0012, h01=0x0050, text=» ORR A2,A1  =7«, t00=0x00b2, t01=0x00ee}
0x116fc…11708               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b2, t01=0x0104}
0x11708…1171c               Head {h00=0x0010, h01=0x0050, text=»RDM115 EQU *«, t00=0x00b2, t01=0x0110}
0x1171c…11746               Head {h00=0x0026, h01=0x0050, text=» ADK A3,0 ERROR DETECTED EARLIER ?«, t00=0x00b2, t01=0x0124}
0x11746…11764               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) RDM100 YES !!!«, t00=0x00b2, t01=0x014e}
0x11764…11786               Head {h00=0x001e, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER«, t00=0x00b2, t01=0x016c}
0x11786…117aa               Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 INCREMENT POINTER «, t00=0x00b2, t01=0x018e}
0x117aa…117d2               Head {h00=0x0024, h01=0x0050, text=» IM FBAX INCREMENT BUFFER INDEX «, t00=0x00b3, t01=0x0022}
0x117d2…117e6               Head {h00=0x0010, h01=0x0050, text=» LD A1,FBAX «, t00=0x00b3, t01=0x004a}
0x117e6…11802               Head {h00=0x0018, h01=0x0050, text=» CWK A1,RBUFL+RBUFL «, t00=0x00b3, t01=0x005e}
0x11802…11826               Head {h00=0x0020, h01=0x0050, text=» RB(NG) RDM100 NOT OVERFLOW «, t00=0x00b3, t01=0x007a}
0x11826…11830               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x009e}
0x11830…1184a               Head {h00=0x0016, h01=0x0050, text=»* BUFFER OVERFLOW «, t00=0x00b3, t01=0x00a8}
0x1184a…11854               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x00c2}
0x11854…1187e               Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE BUFFER OVERFLOW«, t00=0x00b3, t01=0x00cc}
0x1187e…11894               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x00b3, t01=0x00f6}
0x11894…118ba               Head {h00=0x0022, h01=0x0050, text=» LDK A1,CSSRBO BUFFER OVERFLOW«, t00=0x00b3, t01=0x010c}
0x118ba…118e2               Head {h00=0x0024, h01=0x0050, text=» CF A15,DCSUPS INCREMENT COUNTER«, t00=0x00b3, t01=0x0132}
0x118e2…118ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b3, t01=0x015a}
0x118ee…11900               Head {h00=0x000e, h01=0x0050, text=» RB RDM100«, t00=0x00b3, t01=0x0166}
0x11900…1190a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0178}
0x1190a…1192a               Head {h00=0x001c, h01=0x0050, text=»* PARITY ERROR DETECTED «, t00=0x00b3, t01=0x0182}
0x1192a…11934               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0012}
0x11934…11948               Head {h00=0x0010, h01=0x0050, text=»RDM120 EQU *«, t00=0x00b4, t01=0x001c}
0x11948…1195e               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x00b4, t01=0x0030}
0x1195e…11974               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSSRPE«, t00=0x00b4, t01=0x0046}
0x11974…1199c               Head {h00=0x0024, h01=0x0050, text=» CF A15,DCSUPS INCREMENT COUNTER«, t00=0x00b4, t01=0x005c}
0x1199c…119a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x0084}
0x119a8…119d2               Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE INVALID MESSAGE«, t00=0x00b4, t01=0x0090}
0x119d2…119e6               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/7F «, t00=0x00b4, t01=0x00ba}
0x119e6…11a0e               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RDM150 MARK HOLD RECEIVED«, t00=0x00b4, t01=0x00ce}
0x11a0e…11a20               Head {h00=0x000e, h01=0x0050, text=» RB RDM100«, t00=0x00b4, t01=0x00f6}
0x11a20…11a2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0108}
0x11a2a…11a40               Head {h00=0x0012, h01=0x0050, text=»* ETX RECEIVED«, t00=0x00b4, t01=0x0112}
0x11a40…11a4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0128}
0x11a4a…11a5e               Head {h00=0x0010, h01=0x0050, text=»RDM130 EQU *«, t00=0x00b4, t01=0x0132}
0x11a5e…11a86               Head {h00=0x0024, h01=0x0050, text=» LD A1,DCRBUF GET BUFFER ADDRESS«, t00=0x00b4, t01=0x0146}
0x11a86…11aaa               Head {h00=0x0020, h01=0x0050, text=» LD A2,FBAX GET BUFFER INDEX«, t00=0x00b4, t01=0x016e}
0x11aaa…11ae0 (181, 0, 398) Head {h00=0x0032, h01=0x0050, text=» ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER «, t00=0x00b5, t01=0x0004}
0x11ae0…11af4               Head {h00=0x0010, h01=0x0050, text=» IFF CODE=1 «, t00=0x00b5, t01=0x003a}
0x11af4…11b08               Head {h00=0x0010, h01=0x0050, text=» CF A5,RDLRC«, t00=0x00b5, t01=0x004e}
0x11b08…11b28               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RDM150 LRC WAS OK«, t00=0x00b5, t01=0x0062}
0x11b28…11b34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x0082}
0x11b34…11b48               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00b5, t01=0x008e}
0x11b48…11b72               Head {h00=0x0026, h01=0x0050, text=» CF A5,RDCRC READ CRC AND CHECK IT«, t00=0x00b5, t01=0x00a2}
0x11b72…11b92               Head {h00=0x001c, h01=0x0050, text=» RF(E) RDM150 CRC WAS OK«, t00=0x00b5, t01=0x00cc}
0x11b92…11b9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x00ec}
0x11b9e…11bb2               Head {h00=0x0010, h01=0x0050, text=»RDM140 EQU *«, t00=0x00b5, t01=0x00f8}
0x11bb2…11bdc               Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE INVALID MESSAGE«, t00=0x00b5, t01=0x010c}
0x11bdc…11bf0               Head {h00=0x0010, h01=0x0050, text=»RDM150 EQU *«, t00=0x00b5, t01=0x0136}
0x11bf0…11c10               Head {h00=0x001c, h01=0x0050, text=» CF A5,CHALTI HALT INPUT«, t00=0x00b5, t01=0x014a}
0x11c10…11c24               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x00b5, t01=0x016a}
0x11c24…11c38               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x00b5, t01=0x017e}
0x11c38…11c4e (182, 0, 398) Head {h00=0x0012, h01=0x0050, text=» ANK A2,H:PARI«, t00=0x00b6, t01=0x0004}
0x11c4e…11c64               Head {h00=0x0012, h01=0x0050, text=» RF(Z) RDM155 «, t00=0x00b6, t01=0x001a}
0x11c64…11c82               Head {h00=0x001a, h01=0x0050, text=» LDK A3,1 PARITY ERROR«, t00=0x00b6, t01=0x0030}
0x11c82…11c96               Head {h00=0x0010, h01=0x0050, text=»RDM155 EQU *«, t00=0x00b6, t01=0x004e}
0x11c96…11ca2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b6, t01=0x0062}
0x11ca2…11cb8               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00b6, t01=0x006e}
0x11cb8…11ce2               Head {h00=0x0026, h01=0x0050, text=» CWK A3,1 ERROR DETECTED EARLIER ?«, t00=0x00b6, t01=0x0084}
0x11ce2…11cfc               Head {h00=0x0016, h01=0x0050, text=» RF(NE) RDM158 NO «, t00=0x00b6, t01=0x00ae}
0x11cfc…11d24               Head {h00=0x0024, h01=0x0050, text=» CM TPM OUT OF TRANSPARENT TEXT «, t00=0x00b6, t01=0x00c8}
0x11d24…11d38               Head {h00=0x0010, h01=0x0050, text=»RDM158 EQU *«, t00=0x00b6, t01=0x00f0}
0x11d38…11d44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b6, t01=0x0104}
0x11d44…11d54               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x00b6, t01=0x0110}
0x11d54…11d5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0120}
0x11d5e…11d74               Head {h00=0x0012, h01=0x0050, text=»* ETB RECEIVED«, t00=0x00b6, t01=0x012a}
0x11d74…11d7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0140}
0x11d7e…11d92               Head {h00=0x0010, h01=0x0050, text=»RDM160 EQU *«, t00=0x00b6, t01=0x014a}
0x11d92…11da4               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x00b6, t01=0x015e}
0x11da4…11dca               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) RDM130 ALREADY INVALID«, t00=0x00b6, t01=0x0170}
0x11dca…11df0               Head {h00=0x0022, h01=0x0050, text=» LDK A3,2 INDICATE CORRECT ETB«, t00=0x00b7, t01=0x0008}
0x11df0…11e02               Head {h00=0x000e, h01=0x0050, text=» RB RDM130«, t00=0x00b7, t01=0x002e}
0x11e02…11e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0040}
0x11e0c…11e22               Head {h00=0x0012, h01=0x0050, text=»* ITB RECEIVED«, t00=0x00b7, t01=0x004a}
0x11e22…11e2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0060}
0x11e2c…11e40               Head {h00=0x0010, h01=0x0050, text=»RDM170 EQU *«, t00=0x00b7, t01=0x006a}
0x11e40…11e54               Head {h00=0x0010, h01=0x0050, text=» IFF CODE=1 «, t00=0x00b7, t01=0x007e}
0x11e54…11e68               Head {h00=0x0010, h01=0x0050, text=» CF A5,RDLRC«, t00=0x00b7, t01=0x0092}
0x11e68…11e8e               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) RDM120 LRC WAS NOT OK «, t00=0x00b7, t01=0x00a6}
0x11e8e…11e9a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x00cc}
0x11e9a…11eae               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00b7, t01=0x00d8}
0x11eae…11ed8               Head {h00=0x0026, h01=0x0050, text=» CF A5,RDCRC READ CRC AND CHECK IT«, t00=0x00b7, t01=0x00ec}
0x11ed8…11efe               Head {h00=0x0022, h01=0x0050, text=» RB(NE) RDM120 CRC WAS NOT OK «, t00=0x00b7, t01=0x0116}
0x11efe…11f14               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00b7, t01=0x013c}
0x11f14…11f42               Head {h00=0x002a, h01=0x0050, text=»RDM175 CM TPM OUT OF TRANSPARENT TEXT «, t00=0x00b7, t01=0x0152}
0x11f42…11f6a               Head {h00=0x0024, h01=0x0050, text=» CF A5,RDCRC READ AND CHECK CRC «, t00=0x00b7, t01=0x0180}
0x11f6a…11f7a               Head {h00=0x000c, h01=0x0050, text=» IM TPM «, t00=0x00b8, t01=0x0018}
0x11f7a…11fa0               Head {h00=0x0022, h01=0x0050, text=» RB(NE) RDM105 CRC WAS NOT OK «, t00=0x00b8, t01=0x0028}
0x11fa0…11fba               Head {h00=0x0016, h01=0x0050, text=»RDM180 CF A5,READ «, t00=0x00b8, t01=0x004e}
0x11fba…11fd0               Head {h00=0x0012, h01=0x0050, text=» CWK A2,SYNEBC«, t00=0x00b8, t01=0x0068}
0x11fd0…11fee               Head {h00=0x001a, h01=0x0050, text=» RB(E) RDM180 SKIP SYN«, t00=0x00b8, t01=0x007e}
0x11fee…12002               Head {h00=0x0010, h01=0x0050, text=» CWK A2,DLE «, t00=0x00b8, t01=0x009c}
0x12002…1202a               Head {h00=0x0024, h01=0x0050, text=» RB(NE) RDM105 ILLEGAL CHARACTER«, t00=0x00b8, t01=0x00b0}
0x1202a…1203e               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x00b8, t01=0x00d8}
0x1203e…12052               Head {h00=0x0010, h01=0x0050, text=» CWK A2,STX «, t00=0x00b8, t01=0x00ec}
0x12052…1207a               Head {h00=0x0024, h01=0x0050, text=» RB(NE) RDM105 ILLEGAL CHARACTER«, t00=0x00b8, t01=0x0100}
0x1207a…12086               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x0128}
0x12086…12098               Head {h00=0x000e, h01=0x0050, text=» RB RDM100«, t00=0x00b8, t01=0x0134}
0x12098…120a6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b8, t01=0x0146}
0x120a6…120b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0154}
0x120b0…120ce               Head {h00=0x001a, h01=0x0050, text=»* TRANSMIT ACK 0 OR 1 «, t00=0x00b8, t01=0x015e}
0x120ce…120d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x017c}
0x120d8…120ee               Head {h00=0x0012, h01=0x0050, text=»TRACK LDK A2,1«, t00=0x00b8, t01=0x0186}
0x120ee…12110               Head {h00=0x001e, h01=0x0050, text=» LDK A3,ACK1 PRELOAD ACK1 «, t00=0x00b9, t01=0x000c}
0x12110…1213a               Head {h00=0x0026, h01=0x0050, text=» XRS A2,CACK INCREMENT ACK COUNTER«, t00=0x00b9, t01=0x002e}
0x1213a…12150               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TRDLE «, t00=0x00b9, t01=0x0058}
0x12150…1216e               Head {h00=0x001a, h01=0x0050, text=» LDK A3,ACK0 LOAD ACK0«, t00=0x00b9, t01=0x006e}
0x1216e…12180               Head {h00=0x000e, h01=0x0050, text=» RF TRDLE «, t00=0x00b9, t01=0x008c}
0x12180…1218a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x009e}
0x1218a…121a2               Head {h00=0x0014, h01=0x0050, text=»* TRANSMIT WACK «, t00=0x00b9, t01=0x00a8}
0x121a2…121ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x00c0}
0x121ac…121d0               Head {h00=0x0020, h01=0x0050, text=»TRWACK LDK A3,WACK LOAD WACK«, t00=0x00b9, t01=0x00ca}
0x121d0…121e2               Head {h00=0x000e, h01=0x0050, text=» RF TRDLE «, t00=0x00b9, t01=0x00ee}
0x121e2…121ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0100}
0x121ec…12202               Head {h00=0x0012, h01=0x0050, text=»* TRANSMIT RVI«, t00=0x00b9, t01=0x010a}
0x12202…1220c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0120}
0x1220c…12222               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x00b9, t01=0x012a}
0x12222…12244               Head {h00=0x001e, h01=0x0050, text=»TRRVI LDK A3,RVI LOAD RVI «, t00=0x00b9, t01=0x0140}
0x12244…12250               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x0162}
0x12250…1225a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x016e}
0x1225a…12270               Head {h00=0x0012, h01=0x0050, text=»* TRANSMIT DLE«, t00=0x00b9, t01=0x0178}
0x12270…1227a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x018e}
0x1227a…1229c               Head {h00=0x001e, h01=0x0050, text=»TRDLE LDK A2,DLE LOAD DLE «, t00=0x00ba, t01=0x0008}
0x1229c…122c2               Head {h00=0x0022, h01=0x0050, text=» SC A2,RESEND PUT INSAVE AREA «, t00=0x00ba, t01=0x002a}
0x122c2…122da               Head {h00=0x0014, h01=0x0050, text=» SC A3,RESEND+1 «, t00=0x00ba, t01=0x0050}
0x122da…122ec               Head {h00=0x000e, h01=0x0050, text=» RF TRREP «, t00=0x00ba, t01=0x0068}
0x122ec…122fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x007a}
0x122fa…12304               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0088}
0x12304…1231a               Head {h00=0x0012, h01=0x0050, text=»* TRANSMIT NAK«, t00=0x00ba, t01=0x0092}
0x1231a…12324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x00a8}
0x12324…12346               Head {h00=0x001e, h01=0x0050, text=»TRNAK LDK A3,NAK LOAD NAK «, t00=0x00ba, t01=0x00b2}
0x12346…12358               Head {h00=0x000e, h01=0x0050, text=» RF TREN10«, t00=0x00ba, t01=0x00d4}
0x12358…12362               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x00e6}
0x12362…12378               Head {h00=0x0012, h01=0x0050, text=»* TRANSMIT EOT«, t00=0x00ba, t01=0x00f0}
0x12378…12382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0106}
0x12382…123a4               Head {h00=0x001e, h01=0x0050, text=»TREOT LDK A3,EOT LOAD EOT «, t00=0x00ba, t01=0x0110}
0x123a4…123b6               Head {h00=0x000e, h01=0x0050, text=» RF TREN10«, t00=0x00ba, t01=0x0132}
0x123b6…123c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0144}
0x123c0…123d6               Head {h00=0x0012, h01=0x0050, text=»* TRANSMIT ENQ«, t00=0x00ba, t01=0x014e}
0x123d6…123e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0164}
0x123e0…12402               Head {h00=0x001e, h01=0x0050, text=»TRENQ LDK A3,ENQ LOAD ENQ «, t00=0x00ba, t01=0x016e}
0x12402…1240c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0190}
0x1240c…12438               Head {h00=0x0028, h01=0x0050, text=»TREN10 SC A3,RESEND PUT IN SAVE AREA«, t00=0x00bb, t01=0x000a}
0x12438…1244c               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/FF «, t00=0x00bb, t01=0x0036}
0x1244c…12464               Head {h00=0x0014, h01=0x0050, text=» SC A2,RESEND+1 «, t00=0x00bb, t01=0x004a}
0x12464…1248c               Head {h00=0x0024, h01=0x0050, text=»TRREP CF A5,TRSYNC START OUTPUT «, t00=0x00bb, t01=0x0062}
0x1248c…124b6               Head {h00=0x0026, h01=0x0050, text=» LC A2,RESEND GET FIRST CHARACTER «, t00=0x00bb, t01=0x008a}
0x124b6…124d4               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND IT «, t00=0x00bb, t01=0x00b4}
0x124d4…124fe               Head {h00=0x0026, h01=0x0050, text=» LC A2,RESEND+1 GET NEXT CHARACTER«, t00=0x00bb, t01=0x00d2}
0x124fe…1251c               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND IT «, t00=0x00bb, t01=0x00fc}
0x1251c…12536               Head {h00=0x0016, h01=0x0050, text=»TRRE10 LDK A2,/FF «, t00=0x00bb, t01=0x011a}
0x12536…12554               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRIT05 SEND PAD«, t00=0x00bb, t01=0x0134}
0x12554…12568               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/FF «, t00=0x00bb, t01=0x0152}
0x12568…1257e               Head {h00=0x0012, h01=0x0050, text=» CF A5,WRIT05 «, t00=0x00bb, t01=0x0166}
0x1257e…125a0               Head {h00=0x001e, h01=0x0050, text=» CF A5,CHALTO HALT OUTPUT «, t00=0x00bb, t01=0x017c}
0x125a0…125b4               Head {h00=0x0010, h01=0x0050, text=» IFF LOGG=0 «, t00=0x00bc, t01=0x000e}
0x125b4…125e0               Head {h00=0x0028, h01=0x0050, text=» CF A5,LOGSST LOG TRANSMITTER STATUS«, t00=0x00bc, t01=0x0022}
0x125e0…125ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x004e}
0x125ec…125fc               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x00bc, t01=0x005a}
0x125fc…1260a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x006a}
0x1260a…12614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0078}
0x12614…1261e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0082}
0x1261e…12640               Head {h00=0x001e, h01=0x0050, text=»* TRANSMIT ONE TEXT BLOCK «, t00=0x00bc, t01=0x008c}
0x12640…1264a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00ae}
0x1264a…12654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00b8}
0x12654…12668               Head {h00=0x0010, h01=0x0050, text=»TRTEXT EQU *«, t00=0x00bc, t01=0x00c2}
0x12668…1268a               Head {h00=0x001e, h01=0x0050, text=» CF A5,TRSYNC START OUTPUT«, t00=0x00bc, t01=0x00d6}
0x1268a…126a0               Head {h00=0x0012, h01=0x0050, text=» IFF TPMODE=0 «, t00=0x00bc, t01=0x00f8}
0x126a0…126b4               Head {h00=0x0010, h01=0x0050, text=» LDK A2,DLE «, t00=0x00bc, t01=0x010e}
0x126b4…126d2               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRIDLE SEND DLE«, t00=0x00bc, t01=0x0122}
0x126d2…126de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x0140}
0x126de…126f2               Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x00bc, t01=0x014c}
0x126f2…12710               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITE SEND STX «, t00=0x00bc, t01=0x0160}
0x12710…1272c               Head {h00=0x0018, h01=0x0050, text=» SUR A8,A8 RESET LRC«, t00=0x00bc, t01=0x017e}
0x1272c…12754               Head {h00=0x0024, h01=0x0050, text=» LD A4,FECBBA GET BUFFER ADDRESS«, t00=0x00bd, t01=0x000a}
0x12754…12778               Head {h00=0x0020, h01=0x0050, text=» AD A4,FBAX ADD BUFFER INDEX«, t00=0x00bd, t01=0x0032}
0x12778…127a4               Head {h00=0x0028, h01=0x0050, text=» ST A4,FBLST REMEMBER START OF BLOCK«, t00=0x00bd, t01=0x0056}
0x127a4…127d0               Head {h00=0x0028, h01=0x0050, text=» ADK A4,2 SKIP FIRST WORD OF BUFFER «, t00=0x00bd, t01=0x0082}
0x127d0…127fa               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x00bd, t01=0x00ae}
0x127fa…1281e               Head {h00=0x0020, h01=0x0050, text=» LD A1,FBAX GET BUFFER INDEX«, t00=0x00bd, t01=0x00d8}
0x1281e…12844               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TRT100 NOT FIRST BLOCK«, t00=0x00bd, t01=0x00fc}
0x12844…1286a               Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A7 NETWORK POLL ADDR «, t00=0x00bd, t01=0x0122}
0x1286a…12888               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND TCA«, t00=0x00bd, t01=0x0148}
0x12888…128ae               Head {h00=0x0022, h01=0x0050, text=» LD A2,FDWTUT GET DWT-ADDRESS «, t00=0x00bd, t01=0x0166}
0x128ae…128da               Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A2 GET NETWORK SUB-ADDRESS «, t00=0x00bd, t01=0x018c}
0x128da…128f8               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND STA«, t00=0x00be, t01=0x0028}
0x128f8…1290e               Head {h00=0x0012, h01=0x0050, text=» IFT IBMCHR=1 «, t00=0x00be, t01=0x0046}
0x1290e…12922               Head {h00=0x0010, h01=0x0050, text=» IFF RCOM=1 «, t00=0x00be, t01=0x005c}
0x12922…12948               Head {h00=0x0022, h01=0x0050, text=» LDK A2,/27 SEND ENTER AS AID «, t00=0x00be, t01=0x0070}
0x12948…1295e               Head {h00=0x0012, h01=0x0050, text=» CF A5,WRITEP «, t00=0x00be, t01=0x0096}
0x1295e…12984               Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 AND CURSOR ADDRESS«, t00=0x00be, t01=0x00ac}
0x12984…1299a               Head {h00=0x0012, h01=0x0050, text=» CF A5,WRITEP «, t00=0x00be, t01=0x00d2}
0x1299a…129ae               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x00be, t01=0x00e8}
0x129ae…129c4               Head {h00=0x0012, h01=0x0050, text=» CF A5,WRITEP «, t00=0x00be, t01=0x00fc}
0x129c4…129d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00be, t01=0x0112}
0x129d0…129e4               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x00be, t01=0x011e}
0x129e4…129ec               Head {h00=0x0004, h01=0x0050, t00=0x00be, t01=0x0132}
0x129ec…12a16               Head {h00=0x0026, h01=0x0050, text=» LD A1,XRB READ BUFFER COMMAND ???«, t00=0x00be, t01=0x013a}
0x12a16…12a30               Head {h00=0x0016, h01=0x0050, text=» RF(Z) TRT070 NO!!«, t00=0x00be, t01=0x0164}
0x12a30…12a38               Head {h00=0x0004, h01=0x0050, t00=0x00be, t01=0x017e}
0x12a38…12a58               Head {h00=0x001c, h01=0x0050, text=»   ******************** «, t00=0x00be, t01=0x0186}
0x12a58…12a7e               Head {h00=0x0022, h01=0x0050, text=» LDK A2,X'2D' AID FOR DISPLAY «, t00=0x00bf, t01=0x0016}
0x12a7e…12a9c               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND AID«, t00=0x00bf, t01=0x003c}
0x12a9c…12aa4               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x005a}
0x12aa4…12acc               Head {h00=0x0024, h01=0x0050, text=» LD* A3,DWTCUR,A6 CURSOR ADDRESS«, t00=0x00bf, t01=0x0062}
0x12acc…12afe               Head {h00=0x002e, h01=0x0050, text=» CF A5,LINCOL SEND LINE AND COLUMN NUMBER «, t00=0x00bf, t01=0x008a}
0x12afe…12b20               Head {h00=0x001e, h01=0x0050, text=» LDK A3,5 SET BLOCK COUNT «, t00=0x00bf, t01=0x00bc}
0x12b20…12b32               Head {h00=0x000e, h01=0x0050, text=» RF TRT100«, t00=0x00bf, t01=0x00de}
0x12b32…12b46               Head {h00=0x0010, h01=0x0050, text=»TRT070 EQU *«, t00=0x00bf, t01=0x00f0}
0x12b46…12b52               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bf, t01=0x0104}
0x12b52…12b5a               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0110}
0x12b5a…12b6c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x00bf, t01=0x0118}
0x12b6c…12b80               Head {h00=0x0010, h01=0x0050, text=»TRT100 EQU *«, t00=0x00bf, t01=0x012a}
0x12b80…12b96               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00bf, t01=0x013e}
0x12b96…12bb6               Head {h00=0x001c, h01=0x0050, text=» IM TPM TRANSPARENT TEXT«, t00=0x00bf, t01=0x0154}
0x12bb6…12bc2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bf, t01=0x0174}
0x12bc2…12be6               Head {h00=0x0020, h01=0x0050, text=» LCR A2,A4 GET ONE CHARACTER«, t00=0x00bf, t01=0x0180}
0x12be6…12c0a               Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 INCREMENT POINTER «, t00=0x00c0, t01=0x0014}
0x12c0a…12c1e               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x00c0, t01=0x0038}
0x12c1e…12c32               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x00c0, t01=0x004c}
0x12c32…12c5c               Head {h00=0x0026, h01=0x0050, text=» LD A1,XRB READ BUFFER COMMAND ???«, t00=0x00c0, t01=0x0060}
0x12c5c…12c76               Head {h00=0x0016, h01=0x0050, text=» RF(Z) TRT105 NO!!«, t00=0x00c0, t01=0x008a}
0x12c76…12c7e               Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x00a4}
0x12c7e…12cc2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c0, t01=0x00ac}
0x12cc2…12ccc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00f0}
0x12ccc…12cfc               Head {h00=0x002c, h01=0x0050, text=»*   CHECK IF ATTRIBUTE CHARACTER OR NULL«, t00=0x00c0, t01=0x00fa}
0x12cfc…12d06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x012a}
0x12d06…12d3e               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00c0, t01=0x0134}
0x12d3e…12d46               Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x016c}
0x12d46…12d70               Head {h00=0x0026, h01=0x0050, text=» CWK A2,X'20' ATTRIBUTE CHARACTER «, t00=0x00c0, t01=0x0174}
0x12d70…12d8c               Head {h00=0x0018, h01=0x0050, text=» RF(L) TRT101 YES!!!«, t00=0x00c1, t01=0x000e}
0x12d8c…12d98               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c1, t01=0x002a}
0x12d98…12dac               Head {h00=0x0010, h01=0x0050, text=» IFT DMRK=1 «, t00=0x00c1, t01=0x0036}
0x12dac…12dcc               Head {h00=0x001c, h01=0x0050, text=» CWK A2,/7E LINE FEED ? «, t00=0x00c1, t01=0x004a}
0x12dcc…12df2               Head {h00=0x0022, h01=0x0050, text=» RF(NE) TRT102 NO,GO TO TRT102«, t00=0x00c1, t01=0x006a}
0x12df2…12e06               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/0A «, t00=0x00c1, t01=0x0090}
0x12e06…12e1a               Head {h00=0x0010, h01=0x0050, text=»TRT102 EQU *«, t00=0x00c1, t01=0x00a4}
0x12e1a…12e3e               Head {h00=0x0020, h01=0x0050, text=» CWK A2,/7D END OF MESSAGE ?«, t00=0x00c1, t01=0x00b8}
0x12e3e…12e64               Head {h00=0x0022, h01=0x0050, text=» RF(NE) TRT103 NO,GO TO TRT103«, t00=0x00c1, t01=0x00dc}
0x12e64…12e78               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/19 «, t00=0x00c1, t01=0x0102}
0x12e78…12e8c               Head {h00=0x0010, h01=0x0050, text=»TRT103 EQU *«, t00=0x00c1, t01=0x0116}
0x12e8c…12eaa               Head {h00=0x001a, h01=0x0050, text=» CWK A2,X'7F' NULL ?? «, t00=0x00c1, t01=0x012a}
0x12eaa…12ec0               Head {h00=0x0012, h01=0x0050, text=» RF(NE) TRT105«, t00=0x00c1, t01=0x0148}
0x12ec0…12ed2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00c1, t01=0x015e}
0x12ed2…12ede               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c1, t01=0x0170}
0x12ede…12ef2               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x00c1, t01=0x017c}
0x12ef2…12f04               Head {h00=0x000e, h01=0x0050, text=» RF TRT105«, t00=0x00c1, t01=0x0190}
0x12f04…12f0c               Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x0012}
0x12f0c…12f20               Head {h00=0x0010, h01=0x0050, text=»TRT101 EQU *«, t00=0x00c2, t01=0x001a}
0x12f20…12f28               Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x002e}
0x12f28…12f3a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,SF«, t00=0x00c2, t01=0x0036}
0x12f3a…12f60               Head {h00=0x0022, h01=0x0050, text=» CF A5,WRITEP SEND START FIELD«, t00=0x00c2, t01=0x0048}
0x12f60…12f68               Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x006e}
0x12f68…12f94               Head {h00=0x0028, h01=0x0050, text=» LC A2,-1,A4 GET ATTRIBUTE CHARACTER«, t00=0x00c2, t01=0x0076}
0x12f94…12faa               Head {h00=0x0012, h01=0x0050, text=» ANK A2,X'7F' «, t00=0x00c2, t01=0x00a2}
0x12faa…12fd6               Head {h00=0x0028, h01=0x0050, text=» LDR A1,A2 CONVERT TO IBM ATTRIBUTE «, t00=0x00c2, t01=0x00b8}
0x12fd6…12fe8               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00c2, t01=0x00e4}
0x12fe8…13000               Head {h00=0x0014, h01=0x0050, text=» ANK A2,/1E MASK«, t00=0x00c2, t01=0x00f6}
0x13000…13012               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x00c2, t01=0x010e}
0x13012…1303c               Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 IBM ATTRIBUTE COMPOSED «, t00=0x00c2, t01=0x0120}
0x1303c…13062               Head {h00=0x0022, h01=0x0050, text=» ORK A2,/40 BIT ALWAYS SET ONE«, t00=0x00c2, t01=0x014a}
0x13062…1307a               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x00c2, t01=0x0170}
0x1307a…130a4               Head {h00=0x0026, h01=0x0050, text=» CWK A2,/18 CHECK SPECIAL ATTRIBUT«, t00=0x00c2, t01=0x0188}
0x130a4…130ba               Head {h00=0x0012, h01=0x0050, text=» RF(NE) TRT104«, t00=0x00c3, t01=0x0022}
0x130ba…130ce               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/30 «, t00=0x00c3, t01=0x0038}
0x130ce…130e2               Head {h00=0x0010, h01=0x0050, text=»TRT104 EQU *«, t00=0x00c3, t01=0x004c}
0x130e2…13106               Head {h00=0x0020, h01=0x0050, text=» CF A5,WRITEP SEND ATTRIBUTE«, t00=0x00c3, t01=0x0060}
0x13106…13118               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x00c3, t01=0x0084}
0x13118…1312a               Head {h00=0x000e, h01=0x0050, text=» RF TRT110«, t00=0x00c3, t01=0x0096}
0x1312a…1313e               Head {h00=0x0010, h01=0x0050, text=»TRT105 EQU *«, t00=0x00c3, t01=0x00a8}
0x1313e…1314a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c3, t01=0x00bc}
0x1314a…13158               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x00c8}
0x13158…1316e               Head {h00=0x0012, h01=0x0050, text=» IFF TPMODE=1 «, t00=0x00c3, t01=0x00d6}
0x1316e…13182               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/07 «, t00=0x00c3, t01=0x00ec}
0x13182…131ae               Head {h00=0x0028, h01=0x0050, text=» RF(L) TRT110 ILLEGAL CODE : SKIP IT«, t00=0x00c3, t01=0x0100}
0x131ae…131ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c3, t01=0x012c}
0x131ba…131de               Head {h00=0x0020, h01=0x0050, text=» CF A5,WRITEP SEND CHARACTER«, t00=0x00c3, t01=0x0138}
0x131de…131f2               Head {h00=0x0010, h01=0x0050, text=»TRT110 EQU *«, t00=0x00c3, t01=0x015c}
0x131f2…1321a               Head {h00=0x0024, h01=0x0050, text=» IM FBAX INCREMENT BUFFER INDEX «, t00=0x00c3, t01=0x0170}
0x1321a…13244               Head {h00=0x0026, h01=0x0050, text=» LD A1,FECBRL GET REQUESTED LENGTH«, t00=0x00c4, t01=0x0008}
0x13244…13258               Head {h00=0x0010, h01=0x0050, text=» CW A1,FBAX «, t00=0x00c4, t01=0x0032}
0x13258…1327e               Head {h00=0x0022, h01=0x0050, text=» RF(NG) TRT130 END OF MESSAGE «, t00=0x00c4, t01=0x0046}
0x1327e…132ac               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x00c4, t01=0x006c}
0x132ac…132c2               Head {h00=0x0012, h01=0x0050, text=» CWK A3,TBLEN «, t00=0x00c4, t01=0x009a}
0x132c2…132d8               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00c4, t01=0x00b0}
0x132d8…132fc               Head {h00=0x0020, h01=0x0050, text=» RB(L) TRT105 NOT FULL BLOCK«, t00=0x00c4, t01=0x00c6}
0x132fc…13308               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c4, t01=0x00ea}
0x13308…1332c               Head {h00=0x0020, h01=0x0050, text=» RB(L) TRT100 NOT FULL BLOCK«, t00=0x00c4, t01=0x00f6}
0x1332c…13340               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x00c4, t01=0x011a}
0x13340…13370               Head {h00=0x002c, h01=0x0050, text=» LDK A1,SBA CHECK IF SBA AT END OF BLOCK«, t00=0x00c4, t01=0x012e}
0x13370…13384               Head {h00=0x0010, h01=0x0050, text=» CC A1,-2,A4«, t00=0x00c4, t01=0x015e}
0x13384…1339e               Head {h00=0x0016, h01=0x0050, text=» RF(E) TRT115 YES «, t00=0x00c4, t01=0x0172}
0x1339e…133b2               Head {h00=0x0010, h01=0x0050, text=» CC A1,-1,A4«, t00=0x00c4, t01=0x018c}
0x133b2…133d4               Head {h00=0x001e, h01=0x0050, text=» RF(NE) TRT116 NO SEND ETB«, t00=0x00c5, t01=0x0010}
0x133d4…13400               Head {h00=0x0028, h01=0x0050, text=» LCR A2,A4 GET FIRST BYTE AFTER SBA «, t00=0x00c5, t01=0x0032}
0x13400…13422               Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 INREMENT POINTER«, t00=0x00c5, t01=0x005e}
0x13422…13440               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND IT «, t00=0x00c5, t01=0x0080}
0x13440…13460               Head {h00=0x001c, h01=0x0050, text=» IM FBAX INCREMENT INDEX«, t00=0x00c5, t01=0x009e}
0x13460…13492               Head {h00=0x002e, h01=0x0050, text=»TRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA«, t00=0x00c5, t01=0x00be}
0x13492…134b0               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND IT «, t00=0x00c5, t01=0x00f0}
0x134b0…134d0               Head {h00=0x001c, h01=0x0050, text=» IM FBAX INCREMENT INDEX«, t00=0x00c5, t01=0x010e}
0x134d0…134dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c5, t01=0x012e}
0x134dc…134f0               Head {h00=0x0010, h01=0x0050, text=»TRT116 EQU *«, t00=0x00c5, t01=0x013a}
0x134f0…13506               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00c5, t01=0x014e}
0x13506…1351a               Head {h00=0x0010, h01=0x0050, text=» LDK A2,DLE «, t00=0x00c5, t01=0x0164}
0x1351a…13542               Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIDLE SEND AN EXTRA DLE «, t00=0x00c5, t01=0x0178}
0x13542…1354e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c6, t01=0x0010}
0x1354e…1356a               Head {h00=0x0018, h01=0x0050, text=» LDK A2,ETB LOAD ETB«, t00=0x00c6, t01=0x001c}
0x1356a…1357e               Head {h00=0x0010, h01=0x0050, text=»TRT120 EQU *«, t00=0x00c6, t01=0x0038}
0x1357e…13594               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00c6, t01=0x004c}
0x13594…135a4               Head {h00=0x000c, h01=0x0050, text=» CM TPM «, t00=0x00c6, t01=0x0062}
0x135a4…135b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c6, t01=0x0072}
0x135b0…135ce               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND IT «, t00=0x00c6, t01=0x007e}
0x135ce…135e2               Head {h00=0x0010, h01=0x0050, text=» IFF CODE=1 «, t00=0x00c6, t01=0x009c}
0x135e2…135fc               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A8 GET LRC«, t00=0x00c6, t01=0x00b0}
0x135fc…1361a               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND LRC«, t00=0x00c6, t01=0x00ca}
0x1361a…13626               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c6, t01=0x00e8}
0x13626…1363a               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00c6, t01=0x00f4}
0x1363a…1364c               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x00c6, t01=0x0108}
0x1364c…13660               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x00c6, t01=0x011a}
0x13660…13686               Head {h00=0x0022, h01=0x0050, text=» CF A5,WRIT05 SEND CRC BYTE 1 «, t00=0x00c6, t01=0x012e}
0x13686…13698               Head {h00=0x000e, h01=0x0050, text=» ECR A2,A6«, t00=0x00c6, t01=0x0154}
0x13698…136ac               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x00c6, t01=0x0166}
0x136ac…136d2               Head {h00=0x0022, h01=0x0050, text=» CF A5,WRIT05 SEND CRC BYTE 2 «, t00=0x00c6, t01=0x017a}
0x136d2…136de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x0010}
0x136de…136f4               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x00c7, t01=0x001c}
0x136f4…136fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0032}
0x136fe…13708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x003c}
0x13708…1372e               Head {h00=0x0022, h01=0x0050, text=»*  COUNT MESSAGES TRANSMITTED «, t00=0x00c7, t01=0x0046}
0x1372e…13738               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x006c}
0x13738…1374e               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSSTBL«, t00=0x00c7, t01=0x0076}
0x1374e…13764               Head {h00=0x0012, h01=0x0050, text=» CF A15,DCSUPS«, t00=0x00c7, t01=0x008c}
0x13764…13770               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x00a2}
0x13770…13790               Head {h00=0x001c, h01=0x0050, text=» ABL TRRE10 HALT OUTPUT «, t00=0x00c7, t01=0x00ae}
0x13790…137a4               Head {h00=0x0010, h01=0x0050, text=»TRT130 EQU *«, t00=0x00c7, t01=0x00ce}
0x137a4…137c8               Head {h00=0x0020, h01=0x0050, text=» IM XETX INDICATE 'ETX SENT'«, t00=0x00c7, t01=0x00e2}
0x137c8…137de               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00c7, t01=0x0106}
0x137de…137f2               Head {h00=0x0010, h01=0x0050, text=» LDK A2,DLE «, t00=0x00c7, t01=0x011c}
0x137f2…1381a               Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIDLE SEND AN EXTRA DLE «, t00=0x00c7, t01=0x0130}
0x1381a…13826               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x0158}
0x13826…13842               Head {h00=0x0018, h01=0x0050, text=» LDK A2,ETX LOAD ETX«, t00=0x00c7, t01=0x0164}
0x13842…13866               Head {h00=0x0020, h01=0x0050, text=» RB TRT120 SEND ETX AND LRC «, t00=0x00c7, t01=0x0180}
0x13866…13874               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x0014}
0x13874…1387e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0022}
0x1387e…13888               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x002c}
0x13888…138aa               Head {h00=0x001e, h01=0x0050, text=»* TRANSMIT STATUS MESSAGE «, t00=0x00c8, t01=0x0036}
0x138aa…138b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0058}
0x138b4…138be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0062}
0x138be…138d4               Head {h00=0x0012, h01=0x0050, text=» IFF STARVI=0 «, t00=0x00c8, t01=0x006c}
0x138d4…138e8               Head {h00=0x0010, h01=0x0050, text=»TRSTA EQU * «, t00=0x00c8, t01=0x0082}
0x138e8…13910               Head {h00=0x0024, h01=0x0050, text=» IM XSTA INDICATE 'STATUS SENT' «, t00=0x00c8, t01=0x0096}
0x13910…1392e               Head {h00=0x001a, h01=0x0050, text=» ST A6,FDWTUT SAVE A6 «, t00=0x00c8, t01=0x00be}
0x1392e…13950               Head {h00=0x001e, h01=0x0050, text=» CF A5,TRSYNC START OUTPUT«, t00=0x00c8, t01=0x00dc}
0x13950…13964               Head {h00=0x0010, h01=0x0050, text=» LDK A2,SOH «, t00=0x00c8, t01=0x00fe}
0x13964…13982               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITE SEND SOH «, t00=0x00c8, t01=0x0112}
0x13982…1399e               Head {h00=0x0018, h01=0x0050, text=» SUR A8,A8 RESET LRC«, t00=0x00c8, t01=0x0130}
0x1399e…139b2               Head {h00=0x0010, h01=0x0050, text=» LDK A2,'%' «, t00=0x00c8, t01=0x014c}
0x139b2…139d0               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND '%'«, t00=0x00c8, t01=0x0160}
0x139d0…139e4               Head {h00=0x0010, h01=0x0050, text=» LDK A2,'R' «, t00=0x00c8, t01=0x017e}
0x139e4…13a02 (201, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND 'R'«, t00=0x00c9, t01=0x0004}
0x13a02…13a16               Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x00c9, t01=0x0022}
0x13a16…13a34               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITE SEND STX «, t00=0x00c9, t01=0x0036}
0x13a34…13a48               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A7 «, t00=0x00c9, t01=0x0054}
0x13a48…13a66               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND TCA«, t00=0x00c9, t01=0x0068}
0x13a66…13a8c               Head {h00=0x0022, h01=0x0050, text=» LD A4,FDWTUT GET DWT-ADDRESS «, t00=0x00c9, t01=0x0086}
0x13a8c…13ab8               Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 GET NETWORK SUB-ADDRESS «, t00=0x00c9, t01=0x00ac}
0x13ab8…13ad6               Head {h00=0x001a, h01=0x0050, text=» CF A5,WRITEP SEND STA«, t00=0x00c9, t01=0x00d8}
0x13ad6…13af8               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A4 GET STATUS«, t00=0x00c9, t01=0x00f6}
0x13af8…13b1a               Head {h00=0x001e, h01=0x0050, text=» ANK A1,/06 MASK FOR S/S 0«, t00=0x00c9, t01=0x0118}
0x13b1a…13b2c               Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x00c9, t01=0x013a}
0x13b2c…13b54               Head {h00=0x0024, h01=0x0050, text=» LC A2,SSTAB,A1 GET STATUS BYTE «, t00=0x00c9, t01=0x014c}
0x13b54…13b74               Head {h00=0x001c, h01=0x0050, text=» CF A5,WRITEP SEND S/S 0«, t00=0x00c9, t01=0x0174}
0x13b74…13b96 (202, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDK A2,NOIR PRELOAD S/S 1«, t00=0x00ca, t01=0x0004}
0x13b96…13bb8               Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A4 GET STATUS«, t00=0x00ca, t01=0x0026}
0x13bb8…13bca               Head {h00=0x000e, h01=0x0050, text=» ANK A1,5 «, t00=0x00ca, t01=0x0048}
0x13bca…13be8               Head {h00=0x001a, h01=0x0050, text=» RF(Z) TRST10 NOT 'IR'«, t00=0x00ca, t01=0x005a}
0x13be8…13bfa               Head {h00=0x000e, h01=0x0050, text=» ANK A1,4 «, t00=0x00ca, t01=0x0078}
0x13bfa…13c1c               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) TRST10 NO IR IF DE«, t00=0x00ca, t01=0x008a}
0x13c1c…13c2e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,IR«, t00=0x00ca, t01=0x00ac}
0x13c2e…13c42               Head {h00=0x0010, h01=0x0050, text=»TRST10 EQU *«, t00=0x00ca, t01=0x00be}
0x13c42…13c62               Head {h00=0x001c, h01=0x0050, text=» CF A5,WRITEP SEND S/S 1«, t00=0x00ca, t01=0x00d2}
0x13c62…13c86               Head {h00=0x0020, h01=0x0050, text=» RB TRT130 SEND ETX AND LRC «, t00=0x00ca, t01=0x00f2}
0x13c86…13c92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ca, t01=0x0116}
0x13c92…13ca0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ca, t01=0x0122}
0x13ca0…13caa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0130}
0x13caa…13cb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x013a}
0x13cb4…13cde               Head {h00=0x0026, h01=0x0050, text=»*  TRSYNC : TRANSMIT SYNC SEQUENCE«, t00=0x00ca, t01=0x0144}
0x13cde…13ce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x016e}
0x13ce8…13cfc               Head {h00=0x0010, h01=0x0050, text=»TRSYNC EQU *«, t00=0x00ca, t01=0x0178}
0x13cfc…13d28               Head {h00=0x0028, h01=0x0050, text=» CF A5,CHALTI HALT INPUT IF NOT DONE«, t00=0x00ca, t01=0x018c}
0x13d28…13d58               Head {h00=0x002c, h01=0x0050, text=» CF A5,CSYNCO START OUTPUT WITH SYNC DEF«, t00=0x00cb, t01=0x0028}
0x13d58…13d86               Head {h00=0x002a, h01=0x0050, text=» CF A5,READ WAIT FOR OUTPUT INTERRUPT «, t00=0x00cb, t01=0x0058}
0x13d86…13d90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0086}
0x13d90…13d9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0090}
0x13d9a…13dba               Head {h00=0x001c, h01=0x0050, text=»*  SEND 4 SYN-CHARACTERS«, t00=0x00cb, t01=0x009a}
0x13dba…13dc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x00ba}
0x13dc4…13dd6               Head {h00=0x000e, h01=0x0050, text=» LDK A3,4 «, t00=0x00cb, t01=0x00c4}
0x13dd6…13dea               Head {h00=0x0010, h01=0x0050, text=»TRS100 EQU *«, t00=0x00cb, t01=0x00d6}
0x13dea…13dfe               Head {h00=0x0010, h01=0x0050, text=» LDK A2,SYN «, t00=0x00cb, t01=0x00ea}
0x13dfe…13e22               Head {h00=0x0020, h01=0x0050, text=» CF A5,WRITE SEND CHARACTER «, t00=0x00cb, t01=0x00fe}
0x13e22…13e34               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x00cb, t01=0x0122}
0x13e34…13e4a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) TRS100«, t00=0x00cb, t01=0x0134}
0x13e4a…13e6a               Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x00cb, t01=0x014a}
0x13e6a…13e78               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x016a}
0x13e78…13e82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0178}
0x13e82…13e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0182}
0x13e8c…13ec0               Head {h00=0x0030, h01=0x0050, text=»*  CSYNCI :SEND SYNC-PATTERN FOR INPUT DATA «, t00=0x00cb, t01=0x018c}
0x13ec0…13eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x0030}
0x13eca…13ede               Head {h00=0x0010, h01=0x0050, text=»CSYNCI EQU *«, t00=0x00cc, t01=0x003a}
0x13ede…13ef4               Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x00cc, t01=0x004e}
0x13ef4…13f1c               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CSYN:I WAIT FOR POWER UP«, t00=0x00cc, t01=0x0064}
0x13f1c…13f3c               Head {h00=0x001c, h01=0x0050, text=» CF A5,CHALTI STOP INPUT«, t00=0x00cc, t01=0x008c}
0x13f3c…13f66               Head {h00=0x0026, h01=0x0050, text=» ST A5,DCLCI SET INPUT ACTIVE FLAG«, t00=0x00cc, t01=0x00ac}
0x13f66…13f7a               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x00cc, t01=0x00d6}
0x13f7a…13fac               Head {h00=0x002e, h01=0x0050, text=» LDK A2,PARITY CHAR PARITY FUNCTION FOR LC«, t00=0x00cc, t01=0x00ea}
0x13fac…13fce               Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,LCUIN START I/O «, t00=0x00cc, t01=0x011c}
0x13fce…13ff0               Head {h00=0x001e, h01=0x0050, text=» LDK A2,SYNC SYNC PATTERN «, t00=0x00cc, t01=0x013e}
0x13ff0…14026               Head {h00=0x0032, h01=0x0050, text=» OTR A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC «, t00=0x00cc, t01=0x0160}
0x14026…14032               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x0008}
0x14032…14046               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=0«, t00=0x00cd, t01=0x0014}
0x14046…14074               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CBCARR+SYNC DEF SYNC-PATTERN «, t00=0x00cd, t01=0x0028}
0x14074…140aa               Head {h00=0x0032, h01=0x0050, text=» CIO A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC «, t00=0x00cd, t01=0x0056}
0x140aa…140b8               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00cd, t01=0x008c}
0x140b8…140c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x009a}
0x140c4…140d8               Head {h00=0x0010, h01=0x0050, text=»CSYN:I EQU *«, t00=0x00cd, t01=0x00a6}
0x140d8…140f8               Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x00cd, t01=0x00ba}
0x140f8…14102               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x00da}
0x14102…1410c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x00e4}
0x1410c…14132               Head {h00=0x0022, h01=0x0050, text=»*  CHALTI : HALT INPUT CHANNEL«, t00=0x00cd, t01=0x00ee}
0x14132…1413c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x0114}
0x1413c…14150               Head {h00=0x0010, h01=0x0050, text=»CHALTI EQU *«, t00=0x00cd, t01=0x011e}
0x14150…14164               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x00cd, t01=0x0132}
0x14164…1418c               Head {h00=0x0024, h01=0x0050, text=» LDK A2,CBSTOP STOP FUNCTION BIT«, t00=0x00cd, t01=0x0146}
0x1418c…14198               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x016e}
0x14198…141ba               Head {h00=0x001e, h01=0x0050, text=» CIO A2,0,LCUIN HALT INPUT«, t00=0x00cd, t01=0x017a}
0x141ba…141e4               Head {h00=0x0026, h01=0x0050, text=» CM DCLCI CLEAR INPUT ACTIVE FLAG «, t00=0x00ce, t01=0x000c}
0x141e4…14206               Head {h00=0x001e, h01=0x0050, text=» SST A2,LCUIN READ STATUS «, t00=0x00ce, t01=0x0036}
0x14206…1422c               Head {h00=0x0022, h01=0x0050, text=» RF(A) CHALTR SST ACCEPTED =1 «, t00=0x00ce, t01=0x0058}
0x1422c…1426a               Head {h00=0x003a, h01=0x0050, text=» LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 «, t00=0x00ce, t01=0x007e}
0x1426a…14282               Head {h00=0x0014, h01=0x0050, text=»CHALTR EQU *  =1«, t00=0x00ce, t01=0x00bc}
0x14282…14296               Head {h00=0x0010, h01=0x0050, text=» IFF LOGG=0 «, t00=0x00ce, t01=0x00d4}
0x14296…142be               Head {h00=0x0024, h01=0x0050, text=» CF A5,LOGSST LOGG INPUT STATUS «, t00=0x00ce, t01=0x00e8}
0x142be…142ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ce, t01=0x0110}
0x142ca…142ea               Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x00ce, t01=0x011c}
0x142ea…142f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x013c}
0x142f8…14302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x014a}
0x14302…1430c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0154}
0x1430c…14340               Head {h00=0x0030, h01=0x0050, text=»*  CSYNCO : START TRANSMITTER WITH SYNC DEF «, t00=0x00ce, t01=0x015e}
0x14340…1434a (207, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0004}
0x1434a…1435e               Head {h00=0x0010, h01=0x0050, text=»CSYNCO EQU *«, t00=0x00cf, t01=0x000e}
0x1435e…14374               Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x00cf, t01=0x0022}
0x14374…1439c               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CSYN:O WAIT FOR POWER UP«, t00=0x00cf, t01=0x0038}
0x1439c…143b0               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x00cf, t01=0x0060}
0x143b0…143de               Head {h00=0x002a, h01=0x0050, text=» LDK A2,PARITY CHAR PARITY CHECK BY CU«, t00=0x00cf, t01=0x0074}
0x143de…14400               Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,LCUUT CIO START «, t00=0x00cf, t01=0x00a2}
0x14400…1441e               Head {h00=0x001a, h01=0x0050, text=» RF(A) CSYNC1 ACCEPTED«, t00=0x00cf, t01=0x00c4}
0x1441e…14446               Head {h00=0x0024, h01=0x0050, text=» SST A2,LCUUT TRY TO READ STATUS«, t00=0x00cf, t01=0x00e2}
0x14446…14474               Head {h00=0x002a, h01=0x0050, text=» ABL BRM NOT ACCEPTED TIMEOUT REQUEST «, t00=0x00cf, t01=0x010a}
0x14474…14488               Head {h00=0x0010, h01=0x0050, text=»CSYNC1 EQU *«, t00=0x00cf, t01=0x0138}
0x14488…144ae               Head {h00=0x0022, h01=0x0050, text=» LDK A2,SYNC DEF SYNC PATTERN «, t00=0x00cf, t01=0x014c}
0x144ae…144d8               Head {h00=0x0026, h01=0x0050, text=» OTR A2,1,LCUUT SEND SYNC PATTERN «, t00=0x00cf, t01=0x0172}
0x144d8…144e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x000c}
0x144e4…144f8               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=0«, t00=0x00d0, t01=0x0018}
0x144f8…14522               Head {h00=0x0026, h01=0x0050, text=» CIO A2,1,LCUUT START TRANSMITTER «, t00=0x00d0, t01=0x002c}
0x14522…1452e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x0056}
0x1452e…14542               Head {h00=0x0010, h01=0x0050, text=»CSYN:O EQU *«, t00=0x00d0, t01=0x0062}
0x14542…14562               Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x00d0, t01=0x0076}
0x14562…1456c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0096}
0x1456c…14576               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x00a0}
0x14576…1459e               Head {h00=0x0024, h01=0x0050, text=»*  CHALTO : HALT OUTPUT CHANNEL «, t00=0x00d0, t01=0x00aa}
0x1459e…145a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x00d2}
0x145a8…145bc               Head {h00=0x0010, h01=0x0050, text=»CHALTO EQU *«, t00=0x00d0, t01=0x00dc}
0x145bc…145d0               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x00d0, t01=0x00f0}
0x145d0…145f4               Head {h00=0x0020, h01=0x0050, text=» LDK A2,CBSTOP STOP FUNCTION«, t00=0x00d0, t01=0x0104}
0x145f4…14600               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x0128}
0x14600…14624               Head {h00=0x0020, h01=0x0050, text=» CIO A2,0,LCUUT HALT OUTPUT «, t00=0x00d0, t01=0x0134}
0x14624…14638               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x00d0, t01=0x0158}
0x14638…14668               Head {h00=0x002c, h01=0x0050, text=» LDK A2,1 PRESET STATUS = MODEM ERROR =1«, t00=0x00d0, t01=0x016c}
0x14668…1469a               Head {h00=0x002e, h01=0x0050, text=» RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1«, t00=0x00d1, t01=0x000c}
0x1469a…146c0               Head {h00=0x0022, h01=0x0050, text=» CF A5,READ WAIT FOR INTERRUPT«, t00=0x00d1, t01=0x003e}
0x146c0…146cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x0064}
0x146cc…146ec               Head {h00=0x001c, h01=0x0050, text=» SST A2,LCUUT GET STATUS«, t00=0x00d1, t01=0x0070}
0x146ec…14700               Head {h00=0x0010, h01=0x0050, text=»CHLT00 EQU *«, t00=0x00d1, t01=0x0090}
0x14700…14716               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x00d1, t01=0x00a4}
0x14716…14734               Head {h00=0x001a, h01=0x0050, text=» ANK A2,H:NOOP+H:THRU «, t00=0x00d1, t01=0x00ba}
0x14734…1474a               Head {h00=0x0012, h01=0x0050, text=» RF(Z) CHLTO2 «, t00=0x00d1, t01=0x00d8}
0x1474a…14772               Head {h00=0x0024, h01=0x0050, text=» LDK A1,CSCDCE DCE NOT OPERABLE «, t00=0x00d1, t01=0x00ee}
0x14772…14788               Head {h00=0x0012, h01=0x0050, text=» ANK A2,H:NOOP«, t00=0x00d1, t01=0x0116}
0x14788…147a2               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CHLTO1 YES«, t00=0x00d1, t01=0x012c}
0x147a2…147d0               Head {h00=0x002a, h01=0x0050, text=» LDK A1,CSCDOT OUTPUT THROUGHPUT ERROR«, t00=0x00d1, t01=0x0146}
0x147d0…147e4               Head {h00=0x0010, h01=0x0050, text=»CHLTO1 EQU *«, t00=0x00d1, t01=0x0174}
0x147e4…1480c               Head {h00=0x0024, h01=0x0050, text=» CF A15,DCSUPS INCREMENT COUNTER«, t00=0x00d1, t01=0x0188}
0x1480c…14820               Head {h00=0x0010, h01=0x0050, text=»CHLTO2 EQU *«, t00=0x00d2, t01=0x0020}
0x14820…1482c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x0034}
0x1482c…1484c               Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x00d2, t01=0x0040}
0x1484c…1485a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d2, t01=0x0060}
0x1485a…14864               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x006e}
0x14864…1486e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0078}
0x1486e…1488c               Head {h00=0x001a, h01=0x0050, text=»*   RECEIVER INTERRUPT«, t00=0x00d2, t01=0x0082}
0x1488c…14896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00a0}
0x14896…148a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00aa}
0x148a0…148b4               Head {h00=0x0010, h01=0x0050, text=»IH1501 EQU *«, t00=0x00d2, t01=0x00b4}
0x148b4…148c8               Head {h00=0x0010, h01=0x0050, text=» ST P,INTSAV«, t00=0x00d2, t01=0x00c8}
0x148c8…148de               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d2, t01=0x00dc}
0x148de…148fe               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8«, t00=0x00d2, t01=0x00f2}
0x148fe…1490a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x0112}
0x1490a…14912               Head {h00=0x0004, h01=0x0050, t00=0x00d2, t01=0x011e}
0x14912…14928               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00d2, t01=0x0126}
0x14928…14946               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 «, t00=0x00d2, t01=0x013c}
0x14946…14952               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x015a}
0x14952…14980               Head {h00=0x002a, h01=0x0050, text=» CF A15,LDREG RESTORE DC REGS A3 - A8 «, t00=0x00d2, t01=0x0166}
0x14980…149a2 (211, 0, 398) Head {h00=0x001e, h01=0x0050, text=» INR A2,0,LCUIN READ CHAR «, t00=0x00d3, t01=0x0004}
0x149a2…149d2               Head {h00=0x002c, h01=0x0050, text=» RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS«, t00=0x00d3, t01=0x0026}
0x149d2…149e6               Head {h00=0x0010, h01=0x0050, text=» IFF LOGG=0 «, t00=0x00d3, t01=0x0056}
0x149e6…14a12               Head {h00=0x0028, h01=0x0050, text=» CF A5,LOGIN LOG RECEIVED CHARACTER «, t00=0x00d3, t01=0x006a}
0x14a12…14a1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x0096}
0x14a1e…14a34               Head {h00=0x0012, h01=0x0050, text=» IFT TPMODE=1 «, t00=0x00d3, t01=0x00a2}
0x14a34…14a44               Head {h00=0x000c, h01=0x0050, text=» C2 TPM «, t00=0x00d3, t01=0x00b8}
0x14a44…14a80               Head {h00=0x0038, h01=0x0050, text=» RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT «, t00=0x00d3, t01=0x00c8}
0x14a80…14a8c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x0104}
0x14a8c…14a9e               Head {h00=0x000e, h01=0x0050, text=» C2 SYNSW «, t00=0x00d3, t01=0x0110}
0x14a9e…14ad2               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME«, t00=0x00d3, t01=0x0122}
0x14ad2…14ae6               Head {h00=0x0010, h01=0x0050, text=» CWK A2,SYNC«, t00=0x00d3, t01=0x0156}
0x14ae6…14afa               Head {h00=0x0010, h01=0x0050, text=» RF(E) READ «, t00=0x00d3, t01=0x016a}
0x14afa…14b0e               Head {h00=0x0010, h01=0x0050, text=»IHLC05 EQU *«, t00=0x00d3, t01=0x017e}
0x14b0e…14b22 (212, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x00d4, t01=0x0004}
0x14b22…14b42               Head {h00=0x001c, h01=0x0050, text=» XRR A8,A2 CALCULATE LRC«, t00=0x00d4, t01=0x0018}
0x14b42…14b4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x0038}
0x14b4e…14b62               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00d4, t01=0x0044}
0x14b62…14b86               Head {h00=0x0020, h01=0x0050, text=» CF A5,CRCCAL CALCULATE CRC «, t00=0x00d4, t01=0x0058}
0x14b86…14bb2               Head {h00=0x0028, h01=0x0050, text=» LC A2,TASCII,A2 TRANSLATE TO ASCII «, t00=0x00d4, t01=0x007c}
0x14bb2…14bbe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x00a8}
0x14bbe…14bd2               Head {h00=0x0010, h01=0x0050, text=»IHLC10 EQU *«, t00=0x00d4, t01=0x00b4}
0x14bd2…14be4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d4, t01=0x00c8}
0x14be4…14c12               Head {h00=0x002a, h01=0x0050, text=» ORKL A1,/FF00 SET FLAG FOR CARRIER ON«, t00=0x00d4, t01=0x00da}
0x14c12…14c3c               Head {h00=0x0026, h01=0x0050, text=» ST A1,DCLCI SET INPUT ACTIV FLAG «, t00=0x00d4, t01=0x0108}
0x14c3c…14c5e               Head {h00=0x001e, h01=0x0050, text=» CM DCSTCU CLEAR SST SAVE «, t00=0x00d4, t01=0x0132}
0x14c5e…14c70               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x00d4, t01=0x0154}
0x14c70…14c94               Head {h00=0x0020, h01=0x0050, text=» ST A1,DTEPLS,A7 CU OPERABLE«, t00=0x00d4, t01=0x0166}
0x14c94…14cb4               Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x00d4, t01=0x018a}
0x14cb4…14cc8               Head {h00=0x0010, h01=0x0050, text=»IHIN20 EQU *«, t00=0x00d5, t01=0x001a}
0x14cc8…14ce6               Head {h00=0x001a, h01=0x0050, text=» CF A5,SST PERFORM SST«, t00=0x00d5, t01=0x002e}
0x14ce6…14cf6               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x00d5, t01=0x004c}
0x14cf6…14d04               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x005c}
0x14d04…14d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x006a}
0x14d0e…14d18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0074}
0x14d18…14d3a               Head {h00=0x001e, h01=0x0050, text=»*   TRANSMITTER INTERRUPT «, t00=0x00d5, t01=0x007e}
0x14d3a…14d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00a0}
0x14d44…14d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00aa}
0x14d4e…14d62               Head {h00=0x0010, h01=0x0050, text=»IH1502 EQU *«, t00=0x00d5, t01=0x00b4}
0x14d62…14d76               Head {h00=0x0010, h01=0x0050, text=» ST P,INTSAV«, t00=0x00d5, t01=0x00c8}
0x14d76…14d8c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d5, t01=0x00dc}
0x14d8c…14dae               Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8«, t00=0x00d5, t01=0x00f2}
0x14dae…14dba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x0114}
0x14dba…14dc2               Head {h00=0x0004, h01=0x0050, t00=0x00d5, t01=0x0120}
0x14dc2…14dd8               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00d5, t01=0x0128}
0x14dd8…14df6               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 «, t00=0x00d5, t01=0x013e}
0x14df6…14e02               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x015c}
0x14e02…14e30               Head {h00=0x002a, h01=0x0050, text=» CF A15,LDREG RESTORE DC REGS A3 - A8 «, t00=0x00d5, t01=0x0168}
0x14e30…14e40               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x00d6, t01=0x0008}
0x14e40…14e4e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d6, t01=0x0018}
0x14e4e…14e58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0026}
0x14e58…14e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0030}
0x14e62…14e8c               Head {h00=0x0026, h01=0x0050, text=»* SST INSTRUCTION AND STATUS CHECK«, t00=0x00d6, t01=0x003a}
0x14e8c…14e96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0064}
0x14e96…14ec2               Head {h00=0x0028, h01=0x0050, text=»*   LCU STATUS : BIT 10=CARRIER OFF «, t00=0x00d6, t01=0x006e}
0x14ec2…14ef4               Head {h00=0x002e, h01=0x0050, text=»*  BIT 13=PARITY ERROR (6805 ONLY) SALCUZ «, t00=0x00d6, t01=0x009a}
0x14ef4…14f24               Head {h00=0x002c, h01=0x0050, text=»*                BIT 14=THROUGHPUT ERROR«, t00=0x00d6, t01=0x00cc}
0x14f24…14f54               Head {h00=0x002c, h01=0x0050, text=»*                BIT 15=MODEM NOT READY «, t00=0x00d6, t01=0x00fc}
0x14f54…14f5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x012c}
0x14f5e…14f70               Head {h00=0x000e, h01=0x0050, text=»SST EQU * «, t00=0x00d6, t01=0x0136}
0x14f70…14f90               Head {h00=0x001c, h01=0x0050, text=» SST A2,LCUIN GET STATUS«, t00=0x00d6, t01=0x0148}
0x14f90…14fa2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d6, t01=0x0168}
0x14fa2…14fb6               Head {h00=0x0010, h01=0x0050, text=» IFT LOGG=1 «, t00=0x00d6, t01=0x017a}
0x14fb6…14fe0               Head {h00=0x0026, h01=0x0050, text=» CF A5,LOGSST LOGG SST INFORMATION«, t00=0x00d6, t01=0x018e}
0x14fe0…14fec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x0028}
0x14fec…15010               Head {h00=0x0020, h01=0x0050, text=» ANK A2,H:ERR ERROR BIT SET «, t00=0x00d7, t01=0x0034}
0x15010…1502a               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SST050 YES«, t00=0x00d7, t01=0x0058}
0x1502a…1503e               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=0«, t00=0x00d7, t01=0x0072}
0x1503e…15060               Head {h00=0x001e, h01=0x0050, text=» LD A2,DCLCI INPUT STATUS «, t00=0x00d7, t01=0x0086}
0x15060…1508e               Head {h00=0x002a, h01=0x0050, text=» RF(Z) SST125 INPUT NOT ACTIVE  IGNORE«, t00=0x00d7, t01=0x00a8}
0x1508e…150ba               Head {h00=0x0028, h01=0x0050, text=» RF(N) SST100 INPUT ACTIVE WITH DATA«, t00=0x00d7, t01=0x00d6}
0x150ba…150e8               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,CBCARR+SYNC DEF SYNC PATTERN «, t00=0x00d7, t01=0x0102}
0x150e8…15112               Head {h00=0x0026, h01=0x0050, text=» CIO A2,1,LCUIN START INPUT AGAIN «, t00=0x00d7, t01=0x0130}
0x15112…1513a               Head {h00=0x0024, h01=0x0050, text=» RF SST125 RETURN TO DISPATCHER «, t00=0x00d7, t01=0x015a}
0x1513a…15146               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x0182}
0x15146…1515a               Head {h00=0x0010, h01=0x0050, text=» IFT P6805=1«, t00=0x00d7, t01=0x018e}
0x1515a…1516c               Head {h00=0x000e, h01=0x0050, text=» RF SST100«, t00=0x00d8, t01=0x0012}
0x1516c…15178               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d8, t01=0x0024}
0x15178…1518c               Head {h00=0x0010, h01=0x0050, text=»SST050 EQU *«, t00=0x00d8, t01=0x0030}
0x1518c…151ba               Head {h00=0x002a, h01=0x0050, text=» CM DTEPLS,A7 CLEAR PHYS. LINK STATUS «, t00=0x00d8, t01=0x0044}
0x151ba…151dc               Head {h00=0x001e, h01=0x0050, text=» ANK A2,H:CARR CARRIR OFF «, t00=0x00d8, t01=0x0072}
0x151dc…151f4               Head {h00=0x0014, h01=0x0050, text=» RF(Z) SST075 NO«, t00=0x00d8, t01=0x0094}
0x151f4…15216               Head {h00=0x001e, h01=0x0050, text=» LD A2,DCLCI INPUT STATUS «, t00=0x00d8, t01=0x00ac}
0x15216…1524a               Head {h00=0x0030, h01=0x0050, text=» RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF «, t00=0x00d8, t01=0x00ce}
0x1524a…15264               Head {h00=0x0016, h01=0x0050, text=» RF SST100 ACTIVE «, t00=0x00d8, t01=0x0102}
0x15264…15278               Head {h00=0x0010, h01=0x0050, text=»SST075 EQU *«, t00=0x00d8, t01=0x011c}
0x15278…1528a               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00d8, t01=0x0130}
0x1528a…152b2               Head {h00=0x0024, h01=0x0050, text=» ANK A2,H:THRU THROUGHPUT ERROR «, t00=0x00d8, t01=0x0142}
0x152b2…152ca               Head {h00=0x0014, h01=0x0050, text=» RF(Z) SST100 NO«, t00=0x00d8, t01=0x016a}
0x152ca…152e0               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x00d8, t01=0x0182}
0x152e0…152ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0008}
0x152ea…152f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0012}
0x152f4…1531c               Head {h00=0x0024, h01=0x0050, text=»*  COUNT INPUT THROUGHPUT ERROR «, t00=0x00d9, t01=0x001c}
0x1531c…15326               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0044}
0x15326…1533c               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSCDIT«, t00=0x00d9, t01=0x004e}
0x1533c…15352               Head {h00=0x0012, h01=0x0050, text=» CF A15,DCSUPS«, t00=0x00d9, t01=0x0064}
0x15352…1535e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x007a}
0x1535e…15372               Head {h00=0x0010, h01=0x0050, text=» ABL BRM110 «, t00=0x00d9, t01=0x0086}
0x15372…1537c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x009a}
0x1537c…15390               Head {h00=0x0010, h01=0x0050, text=»SST100 EQU *«, t00=0x00d9, t01=0x00a4}
0x15390…153a2               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00d9, t01=0x00b8}
0x153a2…153c6               Head {h00=0x0020, h01=0x0050, text=» ANK A2,H:NOOP NOT OPERABLE «, t00=0x00d9, t01=0x00ca}
0x153c6…153dc               Head {h00=0x0012, h01=0x0050, text=» RF(Z) SST200 «, t00=0x00d9, t01=0x00ee}
0x153dc…153f2               Head {h00=0x0012, h01=0x0050, text=» IFT STTSTS=1 «, t00=0x00d9, t01=0x0104}
0x153f2…153fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x011a}
0x153fc…15406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0124}
0x15406…15428               Head {h00=0x001e, h01=0x0050, text=»*  COUNT DCE NOT OPERABLE «, t00=0x00d9, t01=0x012e}
0x15428…15432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0150}
0x15432…15448               Head {h00=0x0012, h01=0x0050, text=» LDK A1,CSCDCE«, t00=0x00d9, t01=0x015a}
0x15448…1545e               Head {h00=0x0012, h01=0x0050, text=» CF A15,DCSUPS«, t00=0x00d9, t01=0x0170}
0x1545e…1546a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0186}
0x1546a…1548e (218, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CF A15,STREG SAVE REGISTERS«, t00=0x00da, t01=0x0004}
0x1548e…154b0               Head {h00=0x001e, h01=0x0050, text=» CF A15,SETIME DELAY 1 SEC«, t00=0x00da, t01=0x0028}
0x154b0…154c8               Head {h00=0x0014, h01=0x0050, text=» DATA SST150,10 «, t00=0x00da, t01=0x004a}
0x154c8…154dc               Head {h00=0x0010, h01=0x0050, text=»SST125 EQU *«, t00=0x00da, t01=0x0062}
0x154dc…15504               Head {h00=0x0024, h01=0x0050, text=» ABL TDISP RETURN TO DISPATCHER «, t00=0x00da, t01=0x0076}
0x15504…1550e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x009e}
0x1550e…15522               Head {h00=0x0010, h01=0x0050, text=»SST150 EQU *«, t00=0x00da, t01=0x00a8}
0x15522…15546               Head {h00=0x0020, h01=0x0050, text=» CF A15,LDREG LOAD REGISTERS«, t00=0x00da, t01=0x00bc}
0x15546…1555a               Head {h00=0x0010, h01=0x0050, text=»SST200 EQU *«, t00=0x00da, t01=0x00e0}
0x1555a…1556c               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00da, t01=0x00f4}
0x1556c…1559e               Head {h00=0x002e, h01=0x0050, text=» ANK A2,H:CARR CHECK STATUS IF CARRIER OFF«, t00=0x00da, t01=0x0106}
0x1559e…155b6               Head {h00=0x0014, h01=0x0050, text=» RF(Z) SST225 NO«, t00=0x00da, t01=0x0138}
0x155b6…155ee               Head {h00=0x0034, h01=0x0050, text=» XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF «, t00=0x00da, t01=0x0150}
0x155ee…15608               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SST250 YES «, t00=0x00da, t01=0x0188}
0x15608…1561c               Head {h00=0x0010, h01=0x0050, text=»SST225 EQU *«, t00=0x00db, t01=0x0012}
0x1561c…15650               Head {h00=0x0030, h01=0x0050, text=» ST A1,DCSTCU STORE STATUS AS CURRENT STATUS«, t00=0x00db, t01=0x0026}
0x15650…15664               Head {h00=0x0010, h01=0x0050, text=»SST250 EQU *«, t00=0x00db, t01=0x005a}
0x15664…15684               Head {h00=0x001c, h01=0x0050, text=» RTN A5 RETURN TO CALLER«, t00=0x00db, t01=0x006e}
0x15684…15692               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00db, t01=0x008e}
0x15692…1569c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x009c}
0x1569c…156a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00a6}
0x156a6…156d6               Head {h00=0x002c, h01=0x0050, text=»* WRITE FROM OR READ ONE CHARACTER TO A2«, t00=0x00db, t01=0x00b0}
0x156d6…156e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00e0}
0x156e0…156ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00ea}
0x156ea…156fe               Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x00db, t01=0x00f4}
0x156fe…15712               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00db, t01=0x0108}
0x15712…15722               Head {h00=0x000c, h01=0x0050, text=» C2 TPM «, t00=0x00db, t01=0x011c}
0x15722…1574c               Head {h00=0x0026, h01=0x0050, text=» RF(Z) WRIT02 NOT TRANSPARENT MODE«, t00=0x00db, t01=0x012c}
0x1574c…1576c               Head {h00=0x001c, h01=0x0050, text=» CWK A2,DLE CHECK IF DLE«, t00=0x00db, t01=0x0156}
0x1576c…15786               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WRIT05 NO «, t00=0x00db, t01=0x0176}
0x15786…157aa               Head {h00=0x0020, h01=0x0050, text=» CF A5,WRIDLE SEND EXTRA DLE«, t00=0x00db, t01=0x0190}
0x157aa…157be               Head {h00=0x0010, h01=0x0050, text=» LDK A2,DLE «, t00=0x00dc, t01=0x0024}
0x157be…157d0               Head {h00=0x000e, h01=0x0050, text=» RF WRIT05«, t00=0x00dc, t01=0x0038}
0x157d0…157e4               Head {h00=0x0010, h01=0x0050, text=»WRIT02 EQU *«, t00=0x00dc, t01=0x004a}
0x157e4…157f8               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x00dc, t01=0x005e}
0x157f8…1580c               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/FF «, t00=0x00dc, t01=0x0072}
0x1580c…15840               Head {h00=0x0030, h01=0x0050, text=» RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD«, t00=0x00dc, t01=0x0086}
0x15840…1586e               Head {h00=0x002a, h01=0x0050, text=» LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC «, t00=0x00dc, t01=0x00ba}
0x1586e…1587a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dc, t01=0x00e8}
0x1587a…1588e               Head {h00=0x0010, h01=0x0050, text=»WRIT05 EQU *«, t00=0x00dc, t01=0x00f4}
0x1588e…158b4               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,LCUUT SEND CHARACTER«, t00=0x00dc, t01=0x0108}
0x158b4…158ca               Head {h00=0x0012, h01=0x0050, text=» RF(A) WRIT10 «, t00=0x00dc, t01=0x012e}
0x158ca…158de               Head {h00=0x0010, h01=0x0050, text=» IFF CODE=1 «, t00=0x00dc, t01=0x0144}
0x158de…15906               Head {h00=0x0024, h01=0x0050, text=»WRIT10 XRR A8,A2 ACCUMULATE BCC «, t00=0x00dc, t01=0x0158}
0x15906…15912               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dc, t01=0x0180}
0x15912…15926               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00dc, t01=0x018c}
0x15926…15950               Head {h00=0x0026, h01=0x0050, text=»WRIT10 CF A5,CRCCAL CALCULATE CRC «, t00=0x00dd, t01=0x0010}
0x15950…1595c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dd, t01=0x003a}
0x1595c…15970               Head {h00=0x0010, h01=0x0050, text=»WRIT15 EQU *«, t00=0x00dd, t01=0x0046}
0x15970…15984               Head {h00=0x0010, h01=0x0050, text=» IFF LOGG=0 «, t00=0x00dd, t01=0x005a}
0x15984…159ae               Head {h00=0x0026, h01=0x0050, text=» CF A5,LOGOUT LOG OUTPUT CHARACTER«, t00=0x00dd, t01=0x006e}
0x159ae…159ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dd, t01=0x0098}
0x159ba…159c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00a4}
0x159c4…159de               Head {h00=0x0016, h01=0x0050, text=»READ CF A15,STREG «, t00=0x00dd, t01=0x00ae}
0x159de…159f0               Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x00dd, t01=0x00c8}
0x159f0…159fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00da}
0x159fa…15a04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00e4}
0x15a04…15a44               Head {h00=0x003c, h01=0x0050, text=»*  THESE INSTRUCTIONS ARE ONLY USED TO SEND AN EXTRA DLE«, t00=0x00dd, t01=0x00ee}
0x15a44…15a72               Head {h00=0x002a, h01=0x0050, text=»*  WHEN TRANSPARENT MODE IS CONFIGURED«, t00=0x00dd, t01=0x012e}
0x15a72…15a7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x015c}
0x15a7c…15a90               Head {h00=0x0010, h01=0x0050, text=»WRIDLE EQU *«, t00=0x00dd, t01=0x0166}
0x15a90…15ab6               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,LCUUT SEND CHARACTER«, t00=0x00dd, t01=0x017a}
0x15ab6…15ad4               Head {h00=0x001a, h01=0x0050, text=» RB(A) WRIT15 ACCEPTED«, t00=0x00de, t01=0x0010}
0x15ad4…15afc               Head {h00=0x0024, h01=0x0050, text=» RB READ OUTPUT THROUGHPUT ERROR«, t00=0x00de, t01=0x002e}
0x15afc…15b0a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0056}
0x15b0a…15b14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0064}
0x15b14…15b1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x006e}
0x15b1e…15b30               Head {h00=0x000e, h01=0x0050, text=»*** WRITEP«, t00=0x00de, t01=0x0078}
0x15b30…15b3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x008a}
0x15b3a…15b5a               Head {h00=0x001c, h01=0x0050, text=»*   WRITE A2 WITH PARITY«, t00=0x00de, t01=0x0094}
0x15b5a…15b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00b4}
0x15b64…15b6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00be}
0x15b6e…15b90               Head {h00=0x001e, h01=0x0050, text=» IFT CODE+P6805=0  SALCUZ «, t00=0x00de, t01=0x00c8}
0x15b90…15baa               Head {h00=0x0016, h01=0x0050, text=»WRITEP ANK A2,/FF «, t00=0x00de, t01=0x00ea}
0x15baa…15bbc               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A2«, t00=0x00de, t01=0x0104}
0x15bbc…15bd0               Head {h00=0x0010, h01=0x0050, text=» ORK A2,/80 «, t00=0x00de, t01=0x0116}
0x15bd0…15be8               Head {h00=0x0014, h01=0x0050, text=»WRI100 SLL A1,1 «, t00=0x00de, t01=0x012a}
0x15be8…15bfe               Head {h00=0x0012, h01=0x0050, text=» RB(P) WRI100 «, t00=0x00de, t01=0x0142}
0x15bfe…15c18               Head {h00=0x0016, h01=0x0050, text=» RB(Z) WRITE WRITE«, t00=0x00de, t01=0x0158}
0x15c18…15c2c               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/80 «, t00=0x00de, t01=0x0172}
0x15c2c…15c3e               Head {h00=0x000e, h01=0x0050, text=» RB WRI100«, t00=0x00de, t01=0x0186}
0x15c3e…15c4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x0008}
0x15c4a…15c6c               Head {h00=0x001e, h01=0x0050, text=» IFF CODE+P6805=0  SALCUZ «, t00=0x00df, t01=0x0014}
0x15c6c…15c84               Head {h00=0x0014, h01=0x0050, text=»WRITEP RB WRITE «, t00=0x00df, t01=0x0036}
0x15c84…15c90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x004e}
0x15c90…15c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x005a}
0x15c9a…15ca4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0064}
0x15ca4…15cae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x006e}
0x15cae…15cc0               Head {h00=0x000e, h01=0x0050, text=»*** READP «, t00=0x00df, t01=0x0078}
0x15cc0…15cca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x008a}
0x15cca…15cfc               Head {h00=0x002e, h01=0x0050, text=»*   READ CHARACTER TO A2 AND CHECK PARITY «, t00=0x00df, t01=0x0094}
0x15cfc…15d06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00c6}
0x15d06…15d10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00d0}
0x15d10…15d28               Head {h00=0x0014, h01=0x0050, text=»READP CF A5,READ«, t00=0x00df, t01=0x00da}
0x15d28…15d4a               Head {h00=0x001e, h01=0x0050, text=» IFT CODE+P6805=0  SALCUZ «, t00=0x00df, t01=0x00f2}
0x15d4a…15d5c               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A2«, t00=0x00df, t01=0x0114}
0x15d5c…15d72               Head {h00=0x0012, h01=0x0050, text=»RE100 SLL A1,1«, t00=0x00df, t01=0x0126}
0x15d72…15d86               Head {h00=0x0010, h01=0x0050, text=» RF(Z) RE110«, t00=0x00df, t01=0x013c}
0x15d86…15d9c               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RE100 «, t00=0x00df, t01=0x0150}
0x15d9c…15db0               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/80 «, t00=0x00df, t01=0x0166}
0x15db0…15dc2               Head {h00=0x000e, h01=0x0050, text=» RB RE100 «, t00=0x00df, t01=0x017a}
0x15dc2…15dda               Head {h00=0x0014, h01=0x0050, text=»RE110 LDR A1,A2 «, t00=0x00df, t01=0x018c}
0x15dda…15dee               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x00e0, t01=0x0014}
0x15dee…15dfa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e0, t01=0x0028}
0x15dfa…15e1c               Head {h00=0x001e, h01=0x0050, text=» IFF CODE+P6805=0  SALCUZ «, t00=0x00e0, t01=0x0034}
0x15e1c…15e30               Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x00e0, t01=0x0056}
0x15e30…15e3c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e0, t01=0x006a}
0x15e3c…15e4e               Head {h00=0x000e, h01=0x0050, text=» ADK A5,4 «, t00=0x00e0, t01=0x0076}
0x15e4e…15e62               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x00e0, t01=0x0088}
0x15e62…15e76               Head {h00=0x0010, h01=0x0050, text=» XRK A1,/80 «, t00=0x00e0, t01=0x009c}
0x15e76…15e86               Head {h00=0x000c, h01=0x0050, text=» ABR* A5«, t00=0x00e0, t01=0x00b0}
0x15e86…15e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00c0}
0x15e90…15e9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00ca}
0x15e9a…15ea8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e0, t01=0x00d4}
0x15ea8…15eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00e2}
0x15eb2…15ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00ec}
0x15ebc…15ed8               Head {h00=0x0018, h01=0x0050, text=»* POWER ON FUNCTIONS«, t00=0x00e0, t01=0x00f6}
0x15ed8…15ee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0112}
0x15ee2…15eec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x011c}
0x15eec…15f00               Head {h00=0x0010, h01=0x0050, text=»DC15ON EQU *«, t00=0x00e0, t01=0x0126}
0x15f00…15f16               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00e0, t01=0x013a}
0x15f16…15f36               Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8«, t00=0x00e0, t01=0x0150}
0x15f36…15f42               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e0, t01=0x0170}
0x15f42…15f4a               Head {h00=0x0004, h01=0x0050, t00=0x00e0, t01=0x017c}
0x15f4a…15f60               Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00e0, t01=0x0184}
0x15f60…15f7e               Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 «, t00=0x00e1, t01=0x000a}
0x15f7e…15f8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e1, t01=0x0028}
0x15f8a…15fb0               Head {h00=0x0022, h01=0x0050, text=» LDKL A7,DTETAB DTETAB ADDRESS«, t00=0x00e1, t01=0x0034}
0x15fb0…15fc6               Head {h00=0x0012, h01=0x0050, text=» IFT STARVI=1 «, t00=0x00e1, t01=0x005a}
0x15fc6…15fe6               Head {h00=0x001c, h01=0x0050, text=» LDK A5,4 SET DEVICE END«, t00=0x00e1, t01=0x0070}
0x15fe6…16012               Head {h00=0x0028, h01=0x0050, text=» LD A6,DTEDWT,A7 GET FIRST DWT ADDR «, t00=0x00e1, t01=0x0090}
0x16012…16026               Head {h00=0x0010, h01=0x0050, text=»DC1510 EQU *«, t00=0x00e1, t01=0x00bc}
0x16026…16048               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DC1520 END OF CHAIN«, t00=0x00e1, t01=0x00d0}
0x16048…16072               Head {h00=0x0026, h01=0x0050, text=» ORS A5,DWTST,A6 STORE DEVICE END «, t00=0x00e1, t01=0x00f2}
0x16072…160a2               Head {h00=0x002c, h01=0x0050, text=» CF A15,INSSQ INSERT DWT IN STAUS QUEUE «, t00=0x00e1, t01=0x011c}
0x160a2…160d0               Head {h00=0x002a, h01=0x0050, text=» LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN«, t00=0x00e1, t01=0x014c}
0x160d0…160e2               Head {h00=0x000e, h01=0x0050, text=» RB DC1510«, t00=0x00e1, t01=0x017a}
0x160e2…160f6               Head {h00=0x0010, h01=0x0050, text=»DC1520 EQU *«, t00=0x00e1, t01=0x018c}
0x160f6…16104               Head {h00=0x000a, h01=0x0050, text=»    =4«, t00=0x00e2, t01=0x0010}
0x16104…16114               Head {h00=0x000c, h01=0x0050, text=»    =13 «, t00=0x00e2, t01=0x001e}
0x16114…16120               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x002e}
0x16120…16144               Head {h00=0x0020, h01=0x0050, text=» LD A2,DTESTA,A7 DTE STATUS «, t00=0x00e2, t01=0x003a}
0x16144…16156               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00e2, t01=0x005e}
0x16156…1617e               Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) TDISP OPEN NOT EXECUTED«, t00=0x00e2, t01=0x0070}
0x1617e…161ac               Head {h00=0x002a, h01=0x0050, text=» CM DCLCI INIT LINE CONTROL UNIT INFO «, t00=0x00e2, t01=0x0098}
0x161ac…161d8               Head {h00=0x0028, h01=0x0050, text=» LD A2,DCTPGP GET POLL TIMER POINTER«, t00=0x00e2, t01=0x00c6}
0x161d8…161fe               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DC1540 ALREADY STARTED«, t00=0x00e2, t01=0x00f2}
0x161fe…16226               Head {h00=0x0024, h01=0x0050, text=» CF A15,SPOTIM START POLL TIMER «, t00=0x00e2, t01=0x0118}
0x16226…1623a               Head {h00=0x0010, h01=0x0050, text=»DC1540 EQU *«, t00=0x00e2, t01=0x0140}
0x1623a…1624a               Head {h00=0x000c, h01=0x0050, text=» ABL BRM«, t00=0x00e2, t01=0x0154}
0x1624a…16258               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x0164}
0x16258…1626c               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x00e2, t01=0x0172}
0x1626c…16276               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0186}
0x16276…16280               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0190}
0x16280…1629c               Head {h00=0x0018, h01=0x0050, text=»* CALCULATION OF CRC«, t00=0x00e3, t01=0x000a}
0x1629c…162a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0026}
0x162a6…162be               Head {h00=0x0014, h01=0x0050, text=»* A2 = CHARACTER«, t00=0x00e3, t01=0x0030}
0x162be…162dc               Head {h00=0x001a, h01=0x0050, text=»* A8 = ACCUMULATED CRC«, t00=0x00e3, t01=0x0048}
0x162dc…162e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0066}
0x162e6…162f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0070}
0x162f0…16304               Head {h00=0x0010, h01=0x0050, text=»CRCCAL EQU *«, t00=0x00e3, t01=0x007a}
0x16304…1631c               Head {h00=0x0014, h01=0x0050, text=» ST A1,CRCSAV+2 «, t00=0x00e3, t01=0x008e}
0x1631c…16334               Head {h00=0x0014, h01=0x0050, text=» ST A2,CRCSAV+6 «, t00=0x00e3, t01=0x00a6}
0x16334…1634c               Head {h00=0x0014, h01=0x0050, text=» ST A3,CRCSAV+10«, t00=0x00e3, t01=0x00be}
0x1634c…16364               Head {h00=0x0014, h01=0x0050, text=» ST A4,CRCSAV+14«, t00=0x00e3, t01=0x00d6}
0x16364…16376               Head {h00=0x000e, h01=0x0050, text=» LDK A1,8 «, t00=0x00e3, t01=0x00ee}
0x16376…16394               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A8 GET OLD CRC«, t00=0x00e3, t01=0x0100}
0x16394…163ac               Head {h00=0x0014, h01=0x0050, text=»CRC100 LDR A3,A4«, t00=0x00e3, t01=0x011e}
0x163ac…163be               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x00e3, t01=0x0136}
0x163be…163d0               Head {h00=0x000e, h01=0x0050, text=» XRR A3,A2«, t00=0x00e3, t01=0x0148}
0x163d0…163e2               Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x00e3, t01=0x015a}
0x163e2…163f4               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x00e3, t01=0x016c}
0x163f4…1640a               Head {h00=0x0012, h01=0x0050, text=» RF(Z) CRC110 «, t00=0x00e3, t01=0x017e}
0x1640a…16420 (228, 0, 400) Head {h00=0x0012, h01=0x0050, text=» XRKL A4,/A001«, t00=0x00e4, t01=0x0004}
0x16420…16438               Head {h00=0x0014, h01=0x0050, text=»CRC110 SUK A1,1 «, t00=0x00e4, t01=0x001a}
0x16438…1644e               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) CRC100«, t00=0x00e4, t01=0x0032}
0x1644e…1646e               Head {h00=0x001c, h01=0x0050, text=» LDR A8,A4 SAVE NEW CRC «, t00=0x00e4, t01=0x0048}
0x1646e…16482               Head {h00=0x0010, h01=0x0050, text=»CRCSAV EQU *«, t00=0x00e4, t01=0x0068}
0x16482…16494               Head {h00=0x000e, h01=0x0050, text=» LDKL A1,0«, t00=0x00e4, t01=0x007c}
0x16494…164a6               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x00e4, t01=0x008e}
0x164a6…164b8               Head {h00=0x000e, h01=0x0050, text=» LDKL A3,0«, t00=0x00e4, t01=0x00a0}
0x164b8…164ca               Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x00e4, t01=0x00b2}
0x164ca…164da               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x00e4, t01=0x00c4}
0x164da…164e8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e4, t01=0x00d4}
0x164e8…164f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x00e2}
0x164f2…164fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x00ec}
0x164fc…16528               Head {h00=0x0028, h01=0x0050, text=»* READ CRC CHARACTERS AND CHECK THEM«, t00=0x00e4, t01=0x00f6}
0x16528…16548               Head {h00=0x001c, h01=0x0050, text=»* CR = (E) IF CRC WAS OK«, t00=0x00e4, t01=0x0122}
0x16548…16552               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x0142}
0x16552…1655c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x014c}
0x1655c…16570               Head {h00=0x0010, h01=0x0050, text=»RDCRC EQU * «, t00=0x00e4, t01=0x0156}
0x16570…16594               Head {h00=0x0020, h01=0x0050, text=» STR A8,A5 SAVE CURRENT CRC «, t00=0x00e4, t01=0x016a}
0x16594…165ba               Head {h00=0x0022, h01=0x0050, text=» SUK A5,2 ADJUST STACK POINTER«, t00=0x00e4, t01=0x018e}
0x165ba…165e2               Head {h00=0x0024, h01=0x0050, text=» IM SYNSW DO NOT SKIP SYNCS NOW «, t00=0x00e5, t01=0x0024}
0x165e2…16602               Head {h00=0x001c, h01=0x0050, text=» CF A5,READ READ BYTE 1 «, t00=0x00e5, t01=0x004c}
0x16602…16622               Head {h00=0x001c, h01=0x0050, text=» LD A4,CRCSAV+6 SAVE IT «, t00=0x00e5, t01=0x006c}
0x16622…16642               Head {h00=0x001c, h01=0x0050, text=» CF A5,READ READ BYTE 2 «, t00=0x00e5, t01=0x008c}
0x16642…1666e               Head {h00=0x0028, h01=0x0050, text=» CM SYNSW SYNCS CAN BE SKIPPED AGAIN«, t00=0x00e5, t01=0x00ac}
0x1666e…1668e               Head {h00=0x001c, h01=0x0050, text=» LD A2,CRCSAV+6 SAVE IT «, t00=0x00e5, t01=0x00d8}
0x1668e…166a0               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x00e5, t01=0x00f8}
0x166a0…166b2               Head {h00=0x000e, h01=0x0050, text=» XRR A2,A4«, t00=0x00e5, t01=0x010a}
0x166b2…166c4               Head {h00=0x000e, h01=0x0050, text=» ADK A5,6 «, t00=0x00e5, t01=0x011c}
0x166c4…166d8               Head {h00=0x0010, h01=0x0050, text=» CW A2,-4,A5«, t00=0x00e5, t01=0x012e}
0x166d8…166e8               Head {h00=0x000c, h01=0x0050, text=» ABR* A5«, t00=0x00e5, t01=0x0142}
0x166e8…166f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x0152}
0x166f4…16708               Head {h00=0x0010, h01=0x0050, text=» IFT CODE=0 «, t00=0x00e5, t01=0x015e}
0x16708…16712               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x0172}
0x16712…1673c               Head {h00=0x0026, h01=0x0050, text=»*   RDLRC      READ LRC CHARACTER «, t00=0x00e5, t01=0x017c}
0x1673c…16762               Head {h00=0x0022, h01=0x0050, text=»*              CR=0 IF LRC OK «, t00=0x00e6, t01=0x0016}
0x16762…1676c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x003c}
0x1676c…16782               Head {h00=0x0012, h01=0x0050, text=»RDLRC IM SYNSW«, t00=0x00e6, t01=0x0046}
0x16782…16796               Head {h00=0x0010, h01=0x0050, text=» CF A5,READP«, t00=0x00e6, t01=0x005c}
0x16796…167a8               Head {h00=0x000e, h01=0x0050, text=» ADK A5,4 «, t00=0x00e6, t01=0x0070}
0x167a8…167ba               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00e6, t01=0x0082}
0x167ba…167d0               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LRCEND«, t00=0x00e6, t01=0x0094}
0x167d0…167e6               Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/007F«, t00=0x00e6, t01=0x00aa}
0x167e6…167fa               Head {h00=0x0010, h01=0x0050, text=»LRCEND EQU *«, t00=0x00e6, t01=0x00c0}
0x167fa…1680c               Head {h00=0x000e, h01=0x0050, text=» CM SYNSW «, t00=0x00e6, t01=0x00d4}
0x1680c…1681c               Head {h00=0x000c, h01=0x0050, text=» ABR* A5«, t00=0x00e6, t01=0x00e6}
0x1681c…16824               Head {h00=0x0004, h01=0x0050, t00=0x00e6, t01=0x00f6}
0x16824…16830               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x00fe}
0x16830…1683e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x010a}
0x1683e…1686e               Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e6, t01=0x0118}
0x1686e…16878               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0148}
0x16878…16894               Head {h00=0x0018, h01=0x0050, text=»*  DRIVER WORK AREAS«, t00=0x00e6, t01=0x0152}
0x16894…1689e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x016e}
0x1689e…168ce               Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e6, t01=0x0178}
0x168ce…168d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0018}
0x168d8…168e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0022}
0x168e2…16902               Head {h00=0x001c, h01=0x0050, text=»* DC RECEIVE BUFFER POOL«, t00=0x00e7, t01=0x002c}
0x16902…1690c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x004c}
0x1690c…1692c               Head {h00=0x001c, h01=0x0050, text=»RLINK EQU RBUFL+RBUFL+8 «, t00=0x00e7, t01=0x0056}
0x1692c…16936               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0076}
0x16936…1694a               Head {h00=0x0010, h01=0x0050, text=»DCRBUF EQU *«, t00=0x00e7, t01=0x0080}
0x1694a…1696e               Head {h00=0x0020, h01=0x0050, text=» DATA *+2 FREE BUFFER ANCHOR«, t00=0x00e7, t01=0x0094}
0x1696e…16984               Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=2 «, t00=0x00e7, t01=0x00b8}
0x16984…1699a               Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x00e7, t01=0x00ce}
0x1699a…169ae               Head {h00=0x0010, h01=0x0050, text=» RES RBUFL+3«, t00=0x00e7, t01=0x00e4}
0x169ae…169c4               Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=3 «, t00=0x00e7, t01=0x00f8}
0x169c4…169da               Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x00e7, t01=0x010e}
0x169da…169ee               Head {h00=0x0010, h01=0x0050, text=» RES RBUFL+3«, t00=0x00e7, t01=0x0124}
0x169ee…16a04               Head {h00=0x0012, h01=0x0050, text=» IFF RBUFNR=4 «, t00=0x00e7, t01=0x0138}
0x16a04…16a1a               Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x00e7, t01=0x014e}
0x16a1a…16a2e               Head {h00=0x0010, h01=0x0050, text=» RES RBUFL+3«, t00=0x00e7, t01=0x0164}
0x16a2e…16a3a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e7, t01=0x0178}
0x16a3a…16a50               Head {h00=0x0012, h01=0x0050, text=» DATA *+RLINK «, t00=0x00e7, t01=0x0184}
0x16a50…16a64               Head {h00=0x0010, h01=0x0050, text=» RES RBUFL+3«, t00=0x00e8, t01=0x000a}
0x16a64…16a80               Head {h00=0x0018, h01=0x0050, text=» DATA 0 END OF CHAIN«, t00=0x00e8, t01=0x001e}
0x16a80…16a94               Head {h00=0x0010, h01=0x0050, text=» RES RBUFL+3«, t00=0x00e8, t01=0x003a}
0x16a94…16a9c               Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x004e}
0x16a9c…16ab2               Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=0 «, t00=0x00e8, t01=0x0056}
0x16ab2…16adc               Head {h00=0x0026, h01=0x0050, text=»MMUBUF RES TBUFL+1 MMU WORK BUFFER«, t00=0x00e8, t01=0x006c}
0x16adc…16ae8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e8, t01=0x0096}
0x16ae8…16af6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e8, t01=0x00a2}
0x16af6…16b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00b0}
0x16b00…16b0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00ba}
0x16b0a…16b2e               Head {h00=0x0020, h01=0x0050, text=»* INTERRUPT LOGGING ROUTINE «, t00=0x00e8, t01=0x00c4}
0x16b2e…16b38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00e8}
0x16b38…16b42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00f2}
0x16b42…16b56               Head {h00=0x0010, h01=0x0050, text=» IFF LOGG=0 «, t00=0x00e8, t01=0x00fc}
0x16b56…16b70               Head {h00=0x0016, h01=0x0050, text=»LOGSST ST A2,SAVE2«, t00=0x00e8, t01=0x0110}
0x16b70…16b86               Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/F000«, t00=0x00e8, t01=0x012a}
0x16b86…16b98               Head {h00=0x000e, h01=0x0050, text=» RF LOG10 «, t00=0x00e8, t01=0x0140}
0x16b98…16bb2               Head {h00=0x0016, h01=0x0050, text=»LOGOUT ST A2,SAVE2«, t00=0x00e8, t01=0x0152}
0x16bb2…16bc8               Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/0F00«, t00=0x00e8, t01=0x016c}
0x16bc8…16bda               Head {h00=0x000e, h01=0x0050, text=» RF LOG10 «, t00=0x00e8, t01=0x0182}
0x16bda…16bf2 (233, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LOGIN CWK A2,/FF«, t00=0x00e9, t01=0x0004}
0x16bf2…16c08               Head {h00=0x0012, h01=0x0050, text=» RF(E) LOGE10 «, t00=0x00e9, t01=0x001c}
0x16c08…16c1c               Head {h00=0x0010, h01=0x0050, text=» ST A2,SAVE2«, t00=0x00e9, t01=0x0032}
0x16c1c…16c36               Head {h00=0x0016, h01=0x0050, text=»LOG10 ST A3,SAVE3 «, t00=0x00e9, t01=0x0046}
0x16c36…16c4c               Head {h00=0x0012, h01=0x0050, text=» LD A3,LOGPNT «, t00=0x00e9, t01=0x0060}
0x16c4c…16c5e               Head {h00=0x000e, h01=0x0050, text=» STR A2,A3«, t00=0x00e9, t01=0x0076}
0x16c5e…16c70               Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x00e9, t01=0x0088}
0x16c70…16c86               Head {h00=0x0012, h01=0x0050, text=» CWK A3,LOGEND«, t00=0x00e9, t01=0x009a}
0x16c86…16c9c               Head {h00=0x0012, h01=0x0050, text=» RF(L) LOGEXI «, t00=0x00e9, t01=0x00b0}
0x16c9c…16cb4               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,LOGSTA «, t00=0x00e9, t01=0x00c6}
0x16cb4…16cd0               Head {h00=0x0018, h01=0x0050, text=»LOGEXI ST A3,LOGPNT «, t00=0x00e9, t01=0x00de}
0x16cd0…16ce4               Head {h00=0x0010, h01=0x0050, text=» LD A2,SAVE2«, t00=0x00e9, t01=0x00fa}
0x16ce4…16cf8               Head {h00=0x0010, h01=0x0050, text=» LD A3,SAVE3«, t00=0x00e9, t01=0x010e}
0x16cf8…16d0e               Head {h00=0x0012, h01=0x0050, text=»LOGE10 RTN A5 «, t00=0x00e9, t01=0x0122}
0x16d0e…16d1c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e9, t01=0x0138}
0x16d1c…16d26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0146}
0x16d26…16d30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0150}
0x16d30…16d4a               Head {h00=0x0016, h01=0x0050, text=»LOGPNT DATA LOGSTA«, t00=0x00e9, t01=0x015a}
0x16d4a…16d5e               Head {h00=0x0010, h01=0x0050, text=»LOGSTA EQU *«, t00=0x00e9, t01=0x0174}
0x16d5e…16d6e               Head {h00=0x000c, h01=0x0050, text=» RES 300«, t00=0x00e9, t01=0x0188}
0x16d6e…16d84               Head {h00=0x0012, h01=0x0050, text=»LOGEND EQU *-4«, t00=0x00ea, t01=0x0008}
0x16d84…16d98               Head {h00=0x0010, h01=0x0050, text=»SAVE2 DATA 0«, t00=0x00ea, t01=0x001e}
0x16d98…16dac               Head {h00=0x0010, h01=0x0050, text=»SAVE3 DATA 0«, t00=0x00ea, t01=0x0032}
0x16dac…16db8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ea, t01=0x0046}
0x16db8…16dc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0052}
0x16dc2…16dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x005c}
0x16dcc…16dd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0066}
0x16dd6…16dea               Head {h00=0x0010, h01=0x0050, text=» IFT RCOM=1 «, t00=0x00ea, t01=0x0070}
0x16dea…16df8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ea, t01=0x0084}
0x16df8…16e38               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00ea, t01=0x0092}
0x16e38…16e42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00d2}
0x16e42…16e5c               Head {h00=0x0016, h01=0x0050, text=»*     L I N C O L «, t00=0x00ea, t01=0x00dc}
0x16e5c…16e66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00f6}
0x16e66…16ea4               Head {h00=0x003a, h01=0x0050, text=»*     CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER«, t00=0x00ea, t01=0x0100}
0x16ea4…16eae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x013e}
0x16eae…16ef0               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00ea, t01=0x0148}
0x16ef0…16ef8               Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x018a}
0x16ef8…16f0c (235, 0, 400) Head {h00=0x0010, h01=0x0050, text=»LINCOL EQU *«, t00=0x00eb, t01=0x0004}
0x16f0c…16f32               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A3 COPY CURSOR ADDRESS«, t00=0x00eb, t01=0x0018}
0x16f32…16f44               Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x00eb, t01=0x003e}
0x16f44…16f5a               Head {h00=0x0012, h01=0x0050, text=» ANK A2,X'3F' «, t00=0x00eb, t01=0x0050}
0x16f5a…16f84               Head {h00=0x0026, h01=0x0050, text=» LC A2,LICO:T,A2 ASCII LINE NUMBER«, t00=0x00eb, t01=0x0066}
0x16f84…16faa               Head {h00=0x0022, h01=0x0050, text=» CF A5,WRITEP SEND LINE NUMBER«, t00=0x00eb, t01=0x0090}
0x16faa…16fb2               Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x00b6}
0x16fb2…16fc4               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x00eb, t01=0x00be}
0x16fc4…16fda               Head {h00=0x0012, h01=0x0050, text=» ANK A2,X'3F' «, t00=0x00eb, t01=0x00d0}
0x16fda…17006               Head {h00=0x0028, h01=0x0050, text=» LC A2,LICO:T,A2 ASCII COLUMN NUMBER«, t00=0x00eb, t01=0x00e6}
0x17006…1702e               Head {h00=0x0024, h01=0x0050, text=» CF A5,WRITEP SEND COLUMN NUMBER«, t00=0x00eb, t01=0x0112}
0x1702e…17044               Head {h00=0x0012, h01=0x0050, text=» RTN A5 RETURN«, t00=0x00eb, t01=0x013a}
0x17044…1704e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0150}
0x1704e…17058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x015a}
0x17058…17062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0164}
0x17062…17070               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00eb, t01=0x016e}
0x17070…17078               Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x017c}
0x17078…17080               Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x0184}
0x17080…17094               Head {h00=0x0010, h01=0x0050, text=»LICO:T EQU *«, t00=0x00eb, t01=0x018c}
0x17094…170c2               Head {h00=0x002a, h01=0x0050, text=» DATA /2041,/4243,/4445,/4647 /00-/07 «, t00=0x00ec, t01=0x0010}
0x170c2…170f0               Head {h00=0x002a, h01=0x0050, text=» DATA /4849,/5B2E,/3C28,/2B21 /08-/0F «, t00=0x00ec, t01=0x003e}
0x170f0…1711e               Head {h00=0x002a, h01=0x0050, text=» DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 «, t00=0x00ec, t01=0x006c}
0x1711e…1714c               Head {h00=0x002a, h01=0x0050, text=» DATA /5152,/5D24,/2A29,/3B5E /18-/1F «, t00=0x00ec, t01=0x009a}
0x1714c…1717a               Head {h00=0x002a, h01=0x0050, text=» DATA /2D2F,/5354,/5556,/5758 /20-/27 «, t00=0x00ec, t01=0x00c8}
0x1717a…171a8               Head {h00=0x002a, h01=0x0050, text=» DATA /595A,/7C2C,/255F,/3E3F /28-/2F «, t00=0x00ec, t01=0x00f6}
0x171a8…171d4               Head {h00=0x0028, h01=0x0050, text=» DATA /3031,/3233,/3435,/3637 /30-37«, t00=0x00ec, t01=0x0124}
0x171d4…17200               Head {h00=0x0028, h01=0x0050, text=» DATA /3839,/3A23,/4027,/3D22 /38-3F«, t00=0x00ec, t01=0x0150}
0x17200…1720c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ec, t01=0x017c}
0x1720c…1721a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ec, t01=0x0188}
0x1721a…17224               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0008}
0x17224…17234               Head {h00=0x000c, h01=0x0050, text=»* DTETAB«, t00=0x00ed, t01=0x0012}
0x17234…1723e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0022}
0x1723e…17252               Head {h00=0x0010, h01=0x0050, text=»* FIXED PART«, t00=0x00ed, t01=0x002c}
0x17252…1725c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0040}
0x1725c…17270               Head {h00=0x0010, h01=0x0050, text=»DW1500 EQU *«, t00=0x00ed, t01=0x004a}
0x17270…17288               Head {h00=0x0014, h01=0x0050, text=»DTETAB DATA 0,0 «, t00=0x00ed, t01=0x005e}
0x17288…172a2               Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x00ed, t01=0x0076}
0x172a2…172b8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x00ed, t01=0x0090}
0x172b8…172ca               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x00ed, t01=0x00a6}
0x172ca…172d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x00b8}
0x172d6…172f6               Head {h00=0x001c, h01=0x0050, text=»* DRIVER DEPENDENT PART «, t00=0x00ed, t01=0x00c4}
0x172f6…1732c               Head {h00=0x0032, h01=0x0050, text=» DATA DTESBU-DTETAB START OF STATISTIC BUFFER «, t00=0x00ed, t01=0x00e4}
0x1732c…17346               Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x00ed, t01=0x011a}
0x17346…17362               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0  *«, t00=0x00ed, t01=0x0134}
0x17362…17376               Head {h00=0x0010, h01=0x0050, text=»DTESBU EQU *«, t00=0x00ed, t01=0x0150}
0x17376…17392               Head {h00=0x0018, h01=0x0050, text=» DATA 0 SYMBOLIC ID «, t00=0x00ed, t01=0x0164}
0x17392…173b6               Head {h00=0x0020, h01=0x0050, text=» DATA 0 COUNTER STATUS WORD «, t00=0x00ed, t01=0x0180}
0x173b6…173de               Head {h00=0x0024, h01=0x0050, text=» DATA /20 MAX NUMBER OF COUNTERS«, t00=0x00ee, t01=0x0014}
0x173de…17400               Head {h00=0x001e, h01=0x0050, text=» RES /20 STATISTIC BUFFER «, t00=0x00ee, t01=0x003c}
0x17400…1740e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ee, t01=0x005e}
0x1740e…17418               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x006c}
0x17418…17422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0076}
0x17422…17440               Head {h00=0x001a, h01=0x0050, text=»* PROCEDURE WORK AREAS«, t00=0x00ee, t01=0x0080}
0x17440…1744a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x009e}
0x1744a…17454               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x00a8}
0x17454…17482               Head {h00=0x002a, h01=0x0050, text=»FDWTIN RES 1 CURRENT DWT FOR RECEPTION«, t00=0x00ee, t01=0x00b2}
0x17482…174b4               Head {h00=0x002e, h01=0x0050, text=»FDWTUT RES 1 CURRENT DWT FOR TRANSMISSION «, t00=0x00ee, t01=0x00e0}
0x174b4…174d4               Head {h00=0x001c, h01=0x0050, text=»XACK DATA 0 ACK EXPECTED«, t00=0x00ee, t01=0x0112}
0x174d4…174f0               Head {h00=0x0018, h01=0x0050, text=»XSEL DATA 0 SELECTED«, t00=0x00ee, t01=0x0132}
0x174f0…1750c               Head {h00=0x0018, h01=0x0050, text=»XETX DATA 0 ETX SENT«, t00=0x00ee, t01=0x014e}
0x1750c…17542               Head {h00=0x0032, h01=0x0050, text=»XSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT«, t00=0x00ee, t01=0x016a}
0x17542…17568               Head {h00=0x0022, h01=0x0050, text=»XRB DATA 0 READ BUFFER SWITCH «, t00=0x00ef, t01=0x0010}
0x17568…17588               Head {h00=0x001c, h01=0x0050, text=»CACK DATA 0 ACK COUNTER «, t00=0x00ef, t01=0x0036}
0x17588…175b6               Head {h00=0x002a, h01=0x0050, text=»SYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP«, t00=0x00ef, t01=0x0056}
0x175b6…175e0               Head {h00=0x0026, h01=0x0050, text=»TPM DATA 0 IF =1 TRANSPARENT TEXT «, t00=0x00ef, t01=0x0084}
0x175e0…175ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x00ae}
0x175ea…17608               Head {h00=0x001a, h01=0x0050, text=»FECB RES 1 WRITING ECB«, t00=0x00ef, t01=0x00b8}
0x17608…17634               Head {h00=0x0028, h01=0x0050, text=»FECBBA RES 1 WRITING BUFFER ADDRESS «, t00=0x00ef, t01=0x00d6}
0x17634…1765e               Head {h00=0x0026, h01=0x0050, text=»FECBRL RES 1 WRITING BUFFER LENGTH«, t00=0x00ef, t01=0x0102}
0x1765e…1767e               Head {h00=0x001c, h01=0x0050, text=»FBAX DATA 0 BUFFER INDEX«, t00=0x00ef, t01=0x012c}
0x1767e…176b2               Head {h00=0x0030, h01=0x0050, text=»FBLST DATA 0 START OF LAST TRANSMITTED BLOCK«, t00=0x00ef, t01=0x014c}
0x176b2…176da               Head {h00=0x0024, h01=0x0050, text=»DCSTQ DATA 0 STATUS QUEUE ANCHOR«, t00=0x00ef, t01=0x0180}
0x176da…1770c               Head {h00=0x002e, h01=0x0050, text=»DCTPP DATA 0 POINTER FOR PROCEDURE TIMING «, t00=0x00f0, t01=0x0018}
0x1770c…17734               Head {h00=0x0024, h01=0x0050, text=»DCWRQ DATA 0 WRITE REQUEST QUEUE«, t00=0x00f0, t01=0x004a}
0x17734…17764               Head {h00=0x002c, h01=0x0050, text=»RESEND DATA 0 CONTROL SEQUENCE SAVE AREA«, t00=0x00f0, t01=0x0072}
0x17764…1776e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00a2}
0x1776e…1777c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f0, t01=0x00ac}
0x1777c…17786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00ba}
0x17786…17790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00c4}
0x17790…177b2               Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS AND WORK AREAS«, t00=0x00f0, t01=0x00ce}
0x177b2…177bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00f0}
0x177bc…177c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00fa}
0x177c6…177ea               Head {h00=0x0020, h01=0x0050, text=»DCSTCU DATA 0 CURRENT STATUS«, t00=0x00f0, t01=0x0104}
0x177ea…1781a               Head {h00=0x002c, h01=0x0050, text=»DCTPGP DATA 0 TIMER POINTER GENERAL POLL«, t00=0x00f0, t01=0x0128}
0x1781a…17844               Head {h00=0x0026, h01=0x0050, text=»DCLCI DATA 0 DC UNIT INPUT STATUS «, t00=0x00f0, t01=0x0158}
0x17844…17850               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x00f0, t01=0x0182}
0x17850…17854 (241, 2, 8)   Head {h00=0x4004, h01=0x0000}
0x17854…17858               00 f1 00 04                                                                                                                                                                                                                                       ┆    ┆
0x17858…17860 (242, 1, 8)   20 04 00 00 00 f2 00 04                                                                                                                                                                                                                           ┆        ┆
0x17860…178b0 (243, 0, 400) 4d 4f 44 45 4d 20 00 3a 01 7c 00 10 00 50 52 51 4f 50 39 30 5c 45 51 55 5c 2a 00 3b 00 0e 00 2a 00 50 5c 4c 44 5c 41 32 2c 44 54 45 50 4c 53 2c 41 37 5c 50 48 59 53 49 43 41 4c 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 3f 00 3b 00 22 00 20 00 50   ┆MODEM  : |   PRQOP90 EQU * ;   * P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ? ; "   P┆
0x178b0…17900               5c 41 42 4c 28 4e 5a 29 5c 52 54 4f 4b 5c 59 45 53 20 52 45 54 55 52 4e 20 4f 4b 20 00 3b 00 50 00 2a 00 50 5c 41 42 4c 5c 52 54 50 48 59 43 5c 52 45 54 55 52 4e 20 50 48 59 53 49 43 41 4c 20 43 4f 4e 4e 45 43 54 49 4f 4e 00 3b 00 74 00 0a   ┆ ABL(NZ) RTOK YES RETURN OK  ; P * P ABL RTPHYC RETURN PHYSICAL CONNECTION ; t  ┆
0x17900…17950               00 50 5c 45 4a 45 43 54 00 3b 00 a2 00 06 00 50 2a 20 00 3b 00 b0 00 14 00 50 2a 5c 43 4c 4f 53 45 20 52 45 51 55 45 53 54 20 00 3b 00 ba 00 06 00 50 2a 20 00 3b 00 d2 00 1c 00 50 2a 5c 41 43 54 49 56 41 54 49 4f 4e 20 50 41 52 41 4d 45 54   ┆ P EJECT ;     P*  ;     P* CLOSE REQUEST  ;     P*  ;     P* ACTIVATION PARAMET┆
0x17950…179a0               45 52 53 3a 00 3b 00 dc 00 22 00 50 2a 5c 5c 4f 50 54 49 4f 4e 5c 2f 30 30 20 3d 20 55 4e 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 00 3b 00 fc 00 1a 00 50 2a 5c 5c 5c 2f 38 30 20 3d 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 00 3b 01 22 00 10 00 50   ┆ERS: ;   " P*  OPTION /00 = UNCONDITIONAL  ;     P*   /80 = CONDITIONAL  ; "   P┆
0x179a0…179f0               2a 5c 46 55 4e 43 54 49 4f 4e 53 3a 00 3b 01 40 00 4c 00 50 2a 5c 5c 31 2e 20 49 46 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 2c 20 43 48 45 43 4b 20 49 46 20 41 4e 59 20 4c 4f 47 49 43 41 4c 20 43 4f 4e 4e 45 43 54 49 4f 4e 53 20 28 44 57 54 53   ┆* FUNCTIONS: ; @ L P*  1. IF CONDITIONAL, CHECK IF ANY LOGICAL CONNECTIONS (DWTS┆
0x179f0…17a40 (244, 0, 400) 29 20 41 52 45 20 41 43 54 49 56 45 00 3b 01 54 00 12 00 50 2a 5c 5c 20 20 20 41 43 54 49 56 45 2e 20 00 3c 00 14 00 30 00 50 2a 5c 5c 32 2e 20 49 46 20 55 4e 43 4f 4e 44 49 54 49 4f 4e 41 4c 2c 20 44 49 53 43 4f 4e 4e 45 43 54 20 41 4c 4c   ┆) ARE ACTIVE ; T   P*     ACTIVE.  <   0 P*  2. IF UNCONDITIONAL, DISCONNECT ALL┆
0x17a40…17a90               20 44 57 54 3a 53 00 3c 00 2a 00 06 00 50 2a 20 00 3c 00 5e 00 10 00 50 52 51 43 4c 4f 53 5c 45 51 55 5c 2a 00 3c 00 68 00 28 00 50 5c 4c 44 5c 41 35 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 4f 50 54 49 4f 4e 20 41 4e 44 20 4f 52 44 45 52   ┆ DWT:S < *   P*  < ^   PRQCLOS EQU * < h ( P LD A5,DWTOR,A6 GET OPTION AND ORDER┆
0x17a90…17ae0               00 3c 00 7c 00 2c 00 50 5c 4c 44 5c 41 32 2c 45 43 42 43 57 32 2c 41 38 5c 47 45 54 20 53 59 4d 42 4f 4c 49 43 20 44 54 45 20 2d 20 41 44 44 52 00 3c 00 a8 00 12 00 50 5c 52 46 28 5a 29 5c 52 51 43 4c 32 30 20 00 3c 00 d8 00 22 00 50 5c 43   ┆ < | , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR <     P RF(Z) RQCL20  <   " P C┆
0x17ae0…17b30               57 5c 41 32 2c 44 54 45 4c 41 44 2c 41 37 5c 43 4f 52 52 45 43 54 20 44 54 45 20 3f 00 3c 00 ee 00 28 00 50 5c 41 42 4c 28 4e 45 29 5c 52 54 52 45 51 5c 52 45 54 55 52 4e 3a 20 52 45 51 55 45 53 54 20 45 52 52 4f 52 00 3c 01 14 00 10 00 50   ┆W A2,DTELAD,A7 CORRECT DTE ? <   ( P ABL(NE) RTREQ RETURN: REQUEST ERROR <     P┆
0x17b30…17b80               52 51 43 4c 32 30 5c 45 51 55 5c 2a 00 3c 01 40 00 24 00 50 5c 4c 44 5c 41 32 2c 44 54 45 53 54 41 2c 41 37 5c 47 45 54 20 44 54 45 20 53 54 41 54 55 53 20 00 3c 01 54 00 1c 00 50 5c 41 42 4c 28 5a 29 5c 52 54 4f 4b 5c 52 45 54 55 52 4e 20   ┆RQCL20 EQU * < @ $ P LD A2,DTESTA,A7 GET DTE STATUS  < T   P ABL(Z) RTOK RETURN ┆

Reduced view