⟦9fd819d7c⟧

PTS(SC)

	IDENT DRVU01 	REL 11.0 81-01-26 870105041100 




* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRVU01 = DRIVER VIDEO CONNECTED DISPLAY PTS8041 
*            AND
*            DRIVER CHANNEL UNIT FOR VIDEO TERMINALS
* 
* 
* 
* 
* 
* 
**************************************************
* 
*	THIS DRIVER CONSISTS OF THE FOLLOWING TWO SECTIONS: 
* 
*	- S C R E E N   S E C T I O N 
*	- P E R I P H E R A L   S E C T I O N 
* 
	EJECT
* 
*    THE  S C R E E N   S E C T I O N  HANDLES OUTPUT TO
*     THE VIDEO DISPLAY PTS8041 
*	CONNECTED VIA THE SCREEN SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. 
* 
*    THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS
*    WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN 
*    ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE 
*    GENERAL KEYBOARD DRIVER DRKB04.
* 
* 
* 
* 
* 
*    THE  S C R E E N   S E C T I O N  OF THE DRIVER
*       CONSISTS OF FOLLOWING PARTS:
* 
*	- D E V I C E   D R I V E R   P A R T 
*	- L I N E   D R I V E R   P A R T 
* 
	EJECT
* 
*	THE  D E V I C E   D R I V E R   P A R T
*	OF THE SCREEN SECTION OF THE DRIVER 
*	CONSISTS OF THE FOLLOWING ROUTINES: 
* 
* 
* 
* 
*	A C T I V A T I O N   R O U T I N E 
* 
*	-ACVU	ACTIVATION OF DEVICE DRIVER, AT LKM DATA 1
* 
* 
* 
* 
*	A B O R T   R O U T I N E 
* 
*	-ABVU	ABORT HANDLING IN DEVICE DRIVER, AT LKM DATA 10 
* 
* 
* 
* 
*	R E C O V E R Y   R O U T I N E 
* 
*	-RCVU	RECOVERY HANDLING IN DEVICE DRIVER, AT POWER ON 
* 
* 
* 
* 
*	E C H O   R O U T I N E 
* 
*	-ECHOVU	ECHO-HANDLING OF KEYBOARD INPUT 
* 
* 
* 
* 
*	E R R O R   R O U T I N E 
* 
*	-DEVERR	DEVICE DRIVER ERROR HANDLING, 
*		AT ERROR-RETURN FROM LINE DRIVER 
* 
* 
* 
*	S U B - R O U T I N E S 
* 
*	-CHKOUT	CHECK IF LAST COLUMN WRITTEN, AND OUTPUT ONE CHARACTER
*	-ECHOUT	OUTPUT ONE CHARACTER IN ECHO MODE 
*	-NXTROW	UPDATE ROW COUNTER TO NEXT ROW, 
*		AND IF NECESSARY HANDLE SCROLL.
*	-NXTCOL	CALLED AFTER WRITE IN CURRENT COLUMN, SO: 
*		UPDATE COLUMN COUNTER TO NEXT COLUMN,
*		AND IF NECESSARY HANDLE LAST COLUMN WRITTEN. 
*	-SAVCN	SAVE CURRENT NEXT WRITE POSITION 
*	-RESCN	RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT
* 
* 
* 
* 
*    NORMAL REGISTER USAGE
*    IN THE DEVICE DRIVER PART OF SCREEN SECTION: 
* 
*    REGISTER A1 = RETURN CODE TO ECB 
*             A2 = OUTPUT CHARACTER OR WRITE POSITION OR CURSOR POSITION
*             A3 = BUFFER INDEX 
*             A4 = WORK REGISTER
*             A5 = STACK BASE 
*             A6 = DWT-ADDRESS
*             A7 = ORDER
*             A8 = ECB-ADDRESS
* 
	EJECT
* 
*	THE  L I N E   D R I V E R   P A R T
*	OF THE SCREEN SECTION OF THE DRIVER 
*	CONSISTS OF THE FOLLOWING ROUTINES: 
* 
* 
* 
* 
*	A C T I V A T I O N   R O U T I N E S 
* 
*	-STAWRI	START WRITE SCREEN IN SPECIFIED POSITION
*	-OUTCHA	OUTPUT ONE SCREEN CHARACTER 
*	-ENDWRI	END WRITE SCREEN
*	-OUTCUR	OUTPUT VISUAL CURSOR IN SPECIFIED POSITION
*	-CLESCR	CLEAR SCREEN AND RESET CURSOR 
* 
* 
* 
* 
*	I N T E R R U P T   R O U T I N E S 
* 
*	IHSVU1	VCCU NO 1
*	IHSVU2	VCCU NO 2
*	IHSVU3	VCCU NO 3
*	IHSVU4	VCCU NO 4
*	IHSVU5	VCCU NO 5
*	IHSVU6	VCCU NO 6
*	IHSVU7	VCCU NO 7
*	IHSVU8	VCCU NO 8
* 
* 
* 
* 
	EJECT
* 
*	E R R O R   R O U T I N E S 
* 
*	-LINER0	CIO START NOT ACCEPTED
*	-LINER1	OTR NOT ACCEPTED
*	-LINER2	SST NOT ACCEPTED
*	-LINER3	SST UNEXPECTEDLY ACCEPTED 
*	-LINER4	UNEXPECTED INTERRUPT
*	-LINER5	I/O-INSTRUCTION TRIED DURING POWER FAIL POST PROCESSING 
* 
* 
* 
*	S U B - R O U T I N E S 
* 
*	-CONPOS	CONVERT SCREEN POSITION INTO SCREEN MEMORY DISPLACEMENT 
*	-IXTERM	INDEX SCREEN MEMORY DISPLACEMENT WITH TERMINAL NUMBER 
*	-CWTDWT	GET CWT-ADDRESS FROM DWT-ADDRESS
*	-PUTQUE	PUT DWT INTO SCREEN OUTPUT QUEUE
*	-GETQUE	GET DWT FROM SCREEN OUTPUT QUEUE
* 
* 
* 
*	NORMAL REGISTER USAGE 
*	IN THE LINE DRIVER PART OF THE SCREEN SECTION:
* 
*	A1 = RETURN CODE TO DEVICE DRIVER PART
*	A2 = BIO-LINES OUTPUT 
*	A3 = WORK REGISTER
*	A4 = WORK REGISTER
*	A5 = CWT-ADDRESS
*	A6 = DWT-ADDRESS
*	A7 = WORK REGISTER
*	A8 = WORK REGISTER
* 
* 
	EJECT
* 
*	THE  P E R I P H E R A L   S E C T I O N  OF THE DRIVER IS A
*	L I N E   D R I V E R   ONLY. 
*	IT HANDLES INPUT FROM AND OUTPUT TO DEVICES CONNECTED VIA 
*	THE PERIPHERAL SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. 
* 
* 
*	THE PERIPHERAL SECTION OF THE DRIVER CONSISTS OF
*	THE FOLLOWING (LINE DRIVER) ROUTINES: 
* 
*	A C T I V A T I O N   R O U T I N E S 
* 
*	-VUSTBL	DEFINE START OF OUTPUT BLOCK
*	-VUCHRO	CHARACTER OUTPUT
*	-VUENBL	DEFINE END OF OUTPUT BLOCK
*	-VUCHRI	CHARACTER INPUT 
*	-VUDISP	VIDEO DISPATCHER
* 
* 
*	I N T E R R U P T   R O U T I N E S 
* 
*	FOR DATA INPUT
* 
*	-IHPVU1	VCCU NO 1 
*	-IHPVU2	VCCU NO 2 
*	-IHPVU3	VCCU NO 3 
*	-IHPVU4	VCCU NO 4 
*	-IHPVU5	VCCU NO 5 
*	-IHPVU6	VCCU NO 6 
*	-IHPVU7	VCCU NO 7 
*	-IHPVU8	VCCU NO 8 
* 
*	AND FOR DATA OUTPUT 
* 
*	-TIMOUT	MONITOR CLOCK TIME-OUT
* 
	EJECT
* 
*	R E C O V E R Y   R O U T I N E 
* 
*	-VUON	LINE DRIVER RECOVERY ROUTINE, 
*		COMMON TO PERIPHERAL AND SCREEN SECTIONS.
* 
* 
* 
* 
*   NORMAL REGISTER USAGE IN THE LINE DRIVER PART 
*	 OF THE PERIPHERAL SECTION: 
* 
*   A1 = WORK REGISTER
*   A2 = INPUT WORD 
*   A3 = WORK REGISTER
*   A4 = WORK REGISTER
*   A5 = CWT-ADDRESS
*   A6 = DWT-ADDRESS
*   A7 = WORK REGISTER
*   A8 = WORK REGISTER
* 
* 
* 
	EJECT
* 
* 
*    SYSTEM ADAPTATION
* 
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: 
* 
*   -IS ADAPTED TO CONTROL ONE OR UP TO EIGHT VIDEO CHANNELS
*  -IS ADAPTED FOR CONNECTION OF THE VIDEO CHANNELS 
*	      EITHER ON PROGRAMMED CHANNEL OR IOP.
*  -HANDLES EITHER OF TWO CHARACTER GENERATORS. 
*  -HANDLES ONE OF ELEVEN DIFFERENT (COUNTRY DEPENDANT) CHARACTER SETS, 
*	      PROVIDED THAT THE SELECTED CHARACTER SET, 
*	      IS SUPPORTED BY THE SELECTED CHARACTER GENERATOR. 
*   -CAN ECHO ALSO END OF RECORD CHARACTER
*   -CAN SUPPRESS TRAILING STRINGS COMPOSED OF: 
*			SPACE (/20) 
*			TABULATION (/11 + POS.CHAR.)
*			UNDERLINE START (/12) 
*			LOW INTENSITY START (/1E) 
*			LOW INTENSITY STOP (/1F)
*   -CAN BE ADAPTED TO THE EXTENDED INSTRUCTION SET.
*   -CONTAINS LENGTH OF DRIVER MMU-BUFFER.
	EJECT
* 
* 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
*	SCREEN SECTION DEVICE DRIVER ACTIVATION ROUTINES
* 
* 
	ENTRY	VUAD	ADDRESS TO ADDRESSBLOCK 
* 
* 
*	SCREEN SECTION LINE DRIVER
*	INTERRUPT ROUTINES ENTERED FROM INTERRUPT VECTOR
* 
	ENTRY	IHSVU1	INTERRUPT FROM  VCCU1/4 NO 1
	ENTRY	IHSVU2	INTERRUPT FROM  VCCU1/4 NO 2
	ENTRY	IHSVU3	INTERRUPT FROM  VCCU1/4 NO 3
	ENTRY	IHSVU4	INTERRUPT FROM  VCCU1/4 NO 4
	ENTRY	IHSVU5	INTERRUPT FROM  VCCU1/4 NO 5
	ENTRY	IHSVU6	INTERRUPT FROM  VCCU1/4 NO 6
	ENTRY	IHSVU7	INTERRUPT FROM  VCCU1/4 NO 7
	ENTRY	IHSVU8	INTERRUPT FROM  VCCU1/4 NO 8
* 
	EJECT
* 
*	PERIPHERAL SECTION LINE DRIVER
*	ACTIVATION ROUTINES ENTERED FROM DEVICE DRIVERS VIA NETWORK DISTRIBUTO
* 
	ENTRY	VUCHRI	CHARACTER INPUT 
	ENTRY	VUSTBL	DEFINE START OF OUTPUT BLOCK
	ENTRY	VUCHRO	CHARACTER OUTPUT
	ENTRY	VUENBL	DEFINE END OF OUTPUT BLOCK
	ENTRY	VUDISP	VIDEO DISPATCHER
* 
*	PERIPHERAL SECTION LINE DRIVER
*	INTERRUPT ROUTINES ENTERED FROM INTERRUPT VECTOR
* 
	ENTRY	IHPVU1	INTERRUPT FROM  VCCU1/4 NO 1
	ENTRY	IHPVU2	INTERRUPT FROM  VCCU1/4 NO 2
	ENTRY	IHPVU3	INTERRUPT FROM  VCCU1/4 NO 3
	ENTRY	IHPVU4	INTERRUPT FROM  VCCU1/4 NO 4
	ENTRY	IHPVU5	INTERRUPT FROM  VCCU1/4 NO 5
	ENTRY	IHPVU6	INTERRUPT FROM  VCCU1/4 NO 6
	ENTRY	IHPVU7	INTERRUPT FROM  VCCU1/4 NO 7
	ENTRY	IHPVU8	INTERRUPT FROM  VCCU1/4 NO 8
* 
*	MISCELLENEOUS ENTRIES 
* 
	ENTRY	VUON	START RECOVERY OF VCCU1/4  UNITS
* 
* 
* 
* 
	EJECT
* 
***************************************** 
*    EXTERNAL TOSS MODULE ENTRIES       * 
***************************************** 
* 
* 
* 
	EXTRN	SAVE8	SAVE A1-A8 
	EXTRN	TDISP	DISPATCH 
	EXTRN	TENDIO	END I/O 
	EXTRN	DISEND	END I/O AND DISPATCH
	EXTRN	DISIOE	ERROR, END I/O AND DISPATCH 
	EXTRN	IHRTN	RETURN 
	EXTRN	SWL48	SWITCH TO LEVEL 48 AND ENB 
* 
	EXTRN	INTVU1	INTERRUPT TABLE FOR VCCU1/4 NO 1
	EXTRN	INTVU2	INTERRUPT TABLE FOR VCCU1/4 NO 2
	EXTRN	INTVU3	INTERRUPT TABLE FOR VCCU1/4 NO 3
	EXTRN	INTVU4	INTERRUPT TABLE FOR VCCU1/4 NO 4
	EXTRN	INTVU5	INTERRUPT TABLE FOR VCCU1/4 NO 5
	EXTRN	INTVU6	INTERRUPT TABLE FOR VCCU1/4 NO 6
	EXTRN	INTVU7	INTERRUPT TABLE FOR VCCU1/4 NO 7
	EXTRN	INTVU8	INTERRUPT TABLE FOR VCCU1/4 NO 8
* 
	EXTRN	SETIMP	GET TIMER BLOCK 
	EXTRN	INTSAV	SAVE AREA LAST INTERRUPT
	EXTRN	PFPOST	POWER FAIL POST PROCESSING FLAG 
* 
	EXTRN	NDSAV8	SAVE A3-A5, A7-A8 IN DWT
	EXTRN	NDGEDW	GET DWT ADDRESS FOR A DEVICE
	EXTRN	NDREWS	CALL RECOVERY FOR A WORK-STATION
	EXTRN	NDRET	RETURN 
	EXTRN	NDRETO	OK & RETURN 
	EXTRN	NDREP	POP & RETURN 
	EXTRN	NDREPO	POP, OK AND RETURN
	EXTRN	ECHRTN	RETURN TO KEYBOARD AFTER ECHO 
	EXTRN	GETCHR	GET CHARACTER FROM ECB-BUFFER 
	EJECT
* 
******************************************************
*	DRIVER ADDRESS BLOCK DISPLACEMENTS
******************************************************* 
* 
	EXTRN	INTADR	INTERRUPT ADDRESS DISPLACEMENT
* 
* 
***************************************************** 
*	DEVICE INDEX VALUES 
***************************************************** 
* 
	EXTRN	PC:DIX	PROGRAMMED CHANNEL DEVICE INDEX 
* 
* 
*********************************************************** 
*	ECB DISPLACEMENTS 
*********************************************************** 
* 
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW	ECB CONTROL WORD 
	EJECT
* 
* 
************************
*    DWT PARAMETERS    *
************************
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTOCH	LAST OUTPUT CHARACTER 
	EXTRN	DWTADR	ADDRESS TO ADDRESS-BLOCK
	EXTRN	DWTOTQ	OUTPUT QUEUE
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	DWTCP2	CHANNEL PARAMETERS 2
	EXTRN	DWTLD1	LINE DRIVER DEPENDANT 1 
	EXTRN	DWTLD2	LINE DRIVER DEPENDANT 2 
* 
* 
	EXTRN	DWTDEV	DEVICE DRIVER DEPENDANT (FIRST FIELD) 
* 
	EJECT
* 
* 
***************************************** 
*    CONDITIONAL ASSEMBLY               * 
***************************************** 
* 
*	THE NUMBER OF VIDEO CHANNELS HANDLED BY 
*	 THE LINE DRIVER PART OF THIS DRIVER
*	IS SELECTED BY SETTING X:A TO 1,2,3,4,5,6,7 OR 8. 
* 
X:A	EQU	1 
VUCHAN	EQU	X:A
* 
* 
* 
*	WHEATHER THE LINE DRIVER PART OF THE DRIVER 
*	 SHOULD HANDLE SCREEN SECTION OF VCCU1/4
*	CONNECTED ON PROGRAMMED CHANNEL OR IOP
*	IS SELECTED BY SETTING X:B TO 0 OR 1. 
* 
X:B	EQU	0 
IOP	EQU	X:B 
* 
* 
* 
*	IF A DRIVER VERSION USING THE EXTENDED INSTRUCTION SET IS WANTED, 
*	THIS IS SELECTED BY SETTING CPU852 TO 0.
* 
CPU852	EQU	0
* 
* 
* 
*	WHICH ONE OF EITHER OF THE TWO CHARACTER GENERATORS 
*	FOR SCREEN OUTPUT (TYPE I = ENGLISH, OR TYPE II = AMERICAN) 
*	THE LINE DRIVER PART OF THE DRIVER SHOULD HANDLE, 
*	IS SELECTED BY SETTING X:C TO 1 OR 2. 
* 
X:C	EQU	1 
CHAGEN	EQU	X:C
* 
*	WHICH CHARACTER-SET FOR SCREEN OUTPUT,
*	THE LINE DRIVER PART OF THE DRIVER SHOULD HANDLE
*	   (PROVIDED THAT THE CHARACTER SET IS SUPPORTED
*	    BY THE SELECTED CHARACTER GENERATOR), 
*	IS SELECTED BY SETTING X:D TO 0,1,2,3,4,5,6,7,8,9 OR /A.


* CHARACTER-SET	COUNTRY 

*	0	GB/NZ/SA/NL/B 
*	1	D/A/L/CH
*	2	F/CH/B/L
*	3	E 
*	4	I/CH
*	5	S/SF
*	6	DK/N
*	7	P 
*	8	YU
*	9	US
*	A	S (INDUSTRY VERSION)
* 
X:D	EQU	0 
CHASET	EQU	X:D
* 
* 
* 
	EJECT
* 
*	IF THE DEVICE DRIVER PART OF THE DRIVER 
*	 SHOULD ECHO ALSO END-OF-RECORD-CHARACTER,
*	THIS IS SELECTED BY SETTING X:E TO 1. 
* 
X:E	EQU	0 
EORECH	EQU	X:E
* 
*	IF THE DEVICE DRIVER PART OF THE DRIVER 
*	 SHOULD SUPPRESS TRAILING STRINGS COMPOSED ONLY OF
*	/20, /11+POS.CHARACTERS, /12, /1E, /1F, 
*	THIS IS SELECTED BY SETTING X:F TO 1. 
* 
X:F	EQU	1 
TRASPA	EQU	X:F
* 
* 
*	MEMORY MANAGEMENT BUFFER SIZE FOR 
*	 THE DEVICE DRIVER PART OF THE DRIVER 
*	IS SELECTED BY SETTING X:G TO THE WANTED SIZE IN BYTES. 
* 
* 
X:G	EQU	80
DVBLEN	EQU	X:G
* 
	EJECT
* 
* 
********************************
*    DWT-DISPLACEMENTS RELATIVE DWTDEV          * 
********************************
* 
* 
* 
* 
DWTCN	EQU	2	CURRENT NEXT WRITE POS. DURING REQUEST
DWTCNR	EQU	DWTCN	CURRENT NEXT WRITE POSITION ROW NUMBER 
DWTCNC	EQU	DWTCN+1	CURRENT NEXT WRITE POS. COLUMN NUMBER
* 
* 
DWTSN	EQU	4	SAVED CURRENT NEXT WRITE POSITION 
*			AFTER PREVIOUS REQUEST OR AT /14 COMMAND
DWTSNR	EQU	DWTSN	SAVED NEXT WRITE POSITION ROW NUMBER 
DWTSNC	EQU	DWTSN+1	SAVED NEXT WRITE POS. COLUMN NUMBER
	EJECT
* 
************* 
* CONSTANTS * 
************* 
* 
*	USED BY SCREEN SECTION, DEVICE DRIVER PART
* 
MAXROW	EQU	/1818	MAX NUMBER OF ROWS PER SCREEN IS 24
MAXCOL	EQU	/5050	MAX NUMBER OF COLUMNS PER SCREEN IS 80 
*	DWTDEV-BITS 
UNDBIT	EQU	/0400	UNDERLINE/NON-UNDERLINE DISPLAY-MODE 
INTBIT	EQU	/0100	HIGH/LOW INTENSITY DISPLAY-MODE
ROLBIT	EQU	/80	SCROLL MODE
LCWBIT	EQU	/40	LAST COLUMN WRITTEN
LCPBIT	EQU	/20	LAST COLUMN WRITTEN BY PREVIOUS REQUEST
* 
SPACE	EQU	/20	SPACE 
POINT	EQU	/2E	POINT CHARACTER 
* 
CCERR	EQU	/4	STATUS: CODE CHECK ERROR 
OPERR	EQU	/1	STATUS: NOT OPERABLE 
* 
* 
*	USED BY SCREEN SECTION, LINE DRIVER PART
* 
IOPPAR	EQU	/C000	WORD-MODE + READ-MEMORY TRANSFER 
*	DWTST BIT 11,12,13 (LINE DRIVER DEPENDANT)
OTRFLA	EQU	/0010	OTR-ACTION AT NEXT INTERRUPT 
HLTFLA	EQU	/0008	HALT-ACTION AT NEXT INTERRUPT
SSTFLA	EQU	/0004	SST-ACTION AT NEXT INTERRUPT 
* 
SMLCUR	EQU	/07FF	SCREEN MEMORY LOCATION 
*			HOLDING CURSOR POSITION 
* 
AUTCLE	EQU	/2000	BIO-BIT FOR AUTO-CLEAR 
*	ERROR-STATUS FROM LINE DRIVER TO DEVICE DRIVER PART OF SCREEN SECTION 
CIOERR	EQU	/8000	ERROR: CIO START NOT ACCEPTED
OTRERR	EQU	/4000	ERROR: OTR NOT ACCEPTED
SSTERR	EQU	/2000	ERROR: SST NOT ACCEPTED
SSTER2	EQU	/1000	ERROR: SST UNEXPECTEDLY ACCEPTED 
*			(AFTER CIO START OR OTR,
*			BUT BEFORE CIO HALT)
PFERR	EQU	/0800	I/O-INSTRUCTION TRIED DURING PFPOST 
* 
* 
*	USED BY PERIPHERAL SECTION: 
* 
* 
QUETIM	EQU	1	CWT PERIPHERAL OUTPUT QUEUE TIME-OUT VALUE 
*			(MULTIPLES OF 100MS)
MAXTVU	EQU	4	MAX NBR OF TERMINALS ON ANY VCCU1/4
TCPON	EQU	/0001	RECOVERY CAUSE: TC POWER ON 
PONPSW	EQU	/2080	POWER-ON-PSW: LEVEL 8, RUN-MODE, INH-MODE
* 
INSTAT	EQU	/0800	MASK FOR BIO BIT : STATUS OR DATA INPUT
TERMNR	EQU	/0300	MASK FOR BIO BITS : TERM.NBR WITHIN CHANNEL
DEVADR	EQU	/0400	MASK FOR BIO BIT: DEV.ADR. WITHIN TERM.
INDATA	EQU	/00FF	MASK FOR BIO DATA BITS IN INPUT WORD 
* 
	EJECT
* 
**********
* TABLES *
**********
* 
*	DRIVER ADDRESS BLOCK
* 
	DATA	DVBLEN	BUFFER LENGTH
	DATA	PC:DIX	PROGRAMMED CHANNEL DEVICE INDEX (ALWAYS!)
VUAD	EQU	*	ADDRESS BLOCK
	DATA	ACVU	ACTIVATION DRIVER
	DATA	ABVU	ABORT ROUTINE ADDRESS
	DATA	0	INTERRUPT HANDLER 
	DATA	RCVU	RECOVERY ROUTINE 
	DATA	ECHOVU	DEVICE-DEPENDENT ECHO-ROUTINE
* 
* 
* 
*	CODE CONVERSION TABLE 
* 
* 
CODINP	EQU	*
	DATA	/2340,/5B5C,/5D60,/7B7C,/7D7E 
CODOUT	EQU	*
	IFT	CHASET=0 
	IFT	CHAGEN=1 
	DATA	/2340,/5B5C,/5D60,/7B7C,/7D7E 
	XIF
	IFT	CHASET=0 
	IFT	CHAGEN=2 
	DATA	/0340,/5B5C,/5D60,/7B7C,/7D7E 
	XIF
	IFT	CHASET=1 
	IFT	CHAGEN=1 
	DATA	/0310,/0B0C,/0E60,/1B1C,/0E11 
	XIF
	IFT	CHASET=2 
	IFT	CHAGEN=1 
	DATA	/2312,/0608,/1060,/1716,/1305 
	XIF
	IFT	CHASET=3 
	IFT	CHAGEN=2 
	DATA	/0340,/5B08,/5D60,/7B18,/7D7E 
	XIF
	IFT	CHASET=4 
	IFT	CHAGEN=1 
	DATA	/2310,/0608,/0716,/1215,/1314 
	XIF
	IFT	CHASET=5 
	IFT	CHAGEN=1 
	DATA	/0307,/0B0C,/0D17,/1B1C,/1D7E 
	XIF
	IFT	CHASET=6 
	IFT	CHAGEN=1 
	DATA	/2340,/0A02,/0D60,/1A04,/1D7E 
	XIF
	IFT	CHASET=7 
	IFT	CHAGEN=2 
	DATA	/0340,/0604,/0560,/1614,/157E 
	XIF
	IFT	CHASET=8 
	IFT	CHAGEN=2 
	DATA	/0307,/0B0C,/0D17,/1B1C,/1D7E 
	XIF
	IFT	CHASET=9 
	IFT	CHAGEN=1 
	DATA	/0340,/5B5C,/5D60,/7B7C,/7D7E 
	XIF
	IFT	CHASET=9 
	IFT	CHAGEN=2 
	DATA	/2340,/5B5C,/5D60,/7B7C,/7D7E 
	XIF
	IFT	CHASET=/A
	IFT	CHAGEN=1 
	DATA	/2340,/0B0C,/0D60,/1B1C,/1D7E 
	XIF
* 
*	IF ERROR IN SYSGEN (WRONG COMBINATION OF CHASET AND CHAGEN),
*	THEN CHARACTER-SET DEPENDANT INPUT-CODES
*	ARE CONVERTED TO QUESTION MARKS.
* 
	DATA	/3F3F,/3F3F,/3F3F,/3F3F,/3F3F 
* 
* 
	EJECT
* 
**********************************************
*    C W T T A B                               *
**********************************************
* 
*   THIS TABLE HOLDS ADDRESSES TO CHANNEL WORK TABLES, CWT:S, 
*   ONE CWT PER VIDEO CHANNEL UNIT. 
* 
* 
CWTTAB	EQU	*
	DATA	CWTABE-*	TABLE LENGTH 
	DATA	CWTVU1	 
	IFF	VUCHAN=1 
	DATA	CWTVU2
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	DATA	CWTVU3
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	DATA	CWTVU4
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	DATA	CWTVU5
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	DATA	CWTVU6
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	DATA	CWTVU7
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	IFF	VUCHAN=7 
	DATA	CWTVU8
	XIF
CWTABE	EQU	*	END OF TABLE 
* 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 1                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 1
* 
* 
VU1	EQU	/0C	CONTROL UNIT ADDRESS
* 
CWTVU1	EQU	*	TABLE ENTRY
CWTDOS	EQU	*-CWTVU1	
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
CWTPQ	EQU	*-CWTVU1	 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
CWTSEQ	EQU	*-CWTVU1	
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
CWTSLQ	EQU	*-CWTVU1	
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
CWTTP	EQU	*-CWTVU1	 
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
CWTACK	EQU	*-CWTVU1	
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
CWTSRD	EQU	*-CWTVU1	
	DATA	0	SST-READY DWT (SCREEN ONLY) 
CWTITA	EQU	*-CWTVU1	
	DATA	INTVU1	ADDRESS TO POINTER TO WORK-STATION TABLE 
CWTCSS	EQU	*-CWTVU1	
	CIO	A2,1,VU1	CIO START SCREEN
CWTCSP	EQU	*-CWTVU1	
	CIO	A2,1,VU1+1	CIO START PERIPHERAL
CWTOTS	EQU	*-CWTVU1	
	OTR	A2,0,VU1	OTR SCREEN
CWTOTP	EQU	*-CWTVU1	
	OTR	A2,0,VU1+1	OTR PERIPHERAL
CWTCHS	EQU	*-CWTVU1	
	CIO	A2,0,VU1	CIO HALT SCREEN 
CWTCHP	EQU	*-CWTVU1	
	CIO	A2,0,VU1+1	CIO HALT PERIPHERAL 
CWTSST	EQU	*-CWTVU1	
	SST	A2,VU1	SST (SCREEN ONLY) 
CWTINR	EQU	*-CWTVU1	
	INR	A2,0,VU1+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
CWTWE1	EQU	*-CWTVU1	
	WER	A2,VU1+VU1	WER1 (SCREEN ONLY, IOP ONLY)
CWTWE2	EQU	*-CWTVU1	
	WER	A2,VU1+VU1+1	WER2 (SCREEN ONLY, IOP ONLY)
CWTBUF	EQU	*-CWTVU1	
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
CWTBIN	EQU	*-CWTVU1	
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
* 
	IFF	VUCHAN=1 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 2                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 2
* 
* 
VU2	EQU	/0E	CONTROL UNIT ADDRESS
* 
CWTVU2	EQU	*	TABLE ENTRY
* 
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
	DATA	0	SST-READY DWT (SCREEN ONLY) 
	DATA	INTVU2	ADDRESS TO POINTER TO WORK-STATION TABLE 
	CIO	A2,1,VU2	CIO START SCREEN
	CIO	A2,1,VU2+1	CIO START PERIPHERAL
	OTR	A2,0,VU2	OTR SCREEN
	OTR	A2,0,VU2+1	OTR PERIPHERAL
	CIO	A2,0,VU2	CIO HALT SCREEN 
	CIO	A2,0,VU2+1	CIO HALT PERIPHERAL 
	SST	A2,VU2	SST (SCREEN ONLY) 
	INR	A2,0,VU2+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
	WER	A2,VU2+VU2	WER1 (SCREEN ONLY, IOP ONLY)
	WER	A2,VU2+VU2+1	WER2 (SCREEN ONLY, IOP ONLY)
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 3                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 3
* 
* 
VU3	EQU	/06	CONTROL UNIT ADDRESS
* 
CWTVU3	EQU	*	TABLE ENTRY
* 
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
	DATA	0	SST-READY DWT (SCREEN ONLY) 
	DATA	INTVU3	ADDRESS TO POINTER TO WORK-STATION TABLE 
	CIO	A2,1,VU3	CIO START SCREEN
	CIO	A2,1,VU3+1	CIO START PERIPHERAL
	OTR	A2,0,VU3	OTR SCREEN
	OTR	A2,0,VU3+1	OTR PERIPHERAL
	CIO	A2,0,VU3	CIO HALT SCREEN 
	CIO	A2,0,VU3+1	CIO HALT PERIPHERAL 
	SST	A2,VU3	SST (SCREEN ONLY) 
	INR	A2,0,VU3+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
	WER	A2,VU3+VU3	WER1 (SCREEN ONLY, IOP ONLY)
	WER	A2,VU3+VU3+1	WER2 (SCREEN ONLY, IOP ONLY)
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 4                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 4
* 
* 
VU4	EQU	/02	CONTROL UNIT ADDRESS
* 
CWTVU4	EQU	*	TABLE ENTRY
* 
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
	DATA	0	SST-READY DWT (SCREEN ONLY) 
	DATA	INTVU4	ADDRESS TO POINTER TO WORK-STATION TABLE 
	CIO	A2,1,VU4	CIO START SCREEN
	CIO	A2,1,VU4+1	CIO START PERIPHERAL
	OTR	A2,0,VU4	OTR SCREEN
	OTR	A2,0,VU4+1	OTR PERIPHERAL
	CIO	A2,0,VU4	CIO HALT SCREEN 
	CIO	A2,0,VU4+1	CIO HALT PERIPHERAL 
	SST	A2,VU4	SST (SCREEN ONLY) 
	INR	A2,0,VU4+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
	WER	A2,VU4+VU4	WER1 (SCREEN ONLY, IOP ONLY)
	WER	A2,VU4+VU4+1	WER2 (SCREEN ONLY, IOP ONLY)
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 5                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 5
* 
* 
VU5	EQU	/20	CONTROL UNIT ADDRESS
* 
CWTVU5	EQU	*	TABLE ENTRY
* 
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
	DATA	0	SST-READY DWT (SCREEN ONLY) 
	DATA	INTVU5	ADDRESS TO POINTER TO WORK-STATION TABLE 
	CIO	A2,1,VU5	CIO START SCREEN
	CIO	A2,1,VU5+1	CIO START PERIPHERAL
	OTR	A2,0,VU5	OTR SCREEN
	OTR	A2,0,VU5+1	OTR PERIPHERAL
	CIO	A2,0,VU5	CIO HALT SCREEN 
	CIO	A2,0,VU5+1	CIO HALT PERIPHERAL 
	SST	A2,VU5	SST (SCREEN ONLY) 
	INR	A2,0,VU5+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
	WER	A2,VU5+VU5	WER1 (SCREEN ONLY, IOP ONLY)
	WER	A2,VU5+VU5+1	WER2 (SCREEN ONLY, IOP ONLY)
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 6                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 6
* 
* 
VU6	EQU	/22	CONTROL UNIT ADDRESS
* 
CWTVU6	EQU	*	TABLE ENTRY
* 
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
	DATA	0	SST-READY DWT (SCREEN ONLY) 
	DATA	INTVU6	ADDRESS TO POINTER TO WORK-STATION TABLE 
	CIO	A2,1,VU6	CIO START SCREEN
	CIO	A2,1,VU6+1	CIO START PERIPHERAL
	OTR	A2,0,VU6	OTR SCREEN
	OTR	A2,0,VU6+1	OTR PERIPHERAL
	CIO	A2,0,VU6	CIO HALT SCREEN 
	CIO	A2,0,VU6+1	CIO HALT PERIPHERAL 
	SST	A2,VU6	SST (SCREEN ONLY) 
	INR	A2,0,VU6+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
	WER	A2,VU6+VU6	WER1 (SCREEN ONLY, IOP ONLY)
	WER	A2,VU6+VU6+1	WER2 (SCREEN ONLY, IOP ONLY)
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 7                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 7
* 
* 
VU7	EQU	/26	CONTROL UNIT ADDRESS
* 
CWTVU7	EQU	*	TABLE ENTRY
* 
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
	DATA	0	SST-READY DWT (SCREEN ONLY) 
	DATA	INTVU7	ADDRESS TO POINTER TO WORK-STATION TABLE 
	CIO	A2,1,VU7	CIO START SCREEN
	CIO	A2,1,VU7+1	CIO START PERIPHERAL
	OTR	A2,0,VU7	OTR SCREEN
	OTR	A2,0,VU7+1	OTR PERIPHERAL
	CIO	A2,0,VU7	CIO HALT SCREEN 
	CIO	A2,0,VU7+1	CIO HALT PERIPHERAL 
	SST	A2,VU7	SST (SCREEN ONLY) 
	INR	A2,0,VU7+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
	WER	A2,VU7+VU7	WER1 (SCREEN ONLY, IOP ONLY)
	WER	A2,VU7+VU7+1	WER2 (SCREEN ONLY, IOP ONLY)
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	IFF	VUCHAN=7 
	EJECT
* 
* 
***************************************************** 
*    C W T V U 8                                    * 
***************************************************** 
* 
*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 8
* 
* 
VU8	EQU	/2C	CONTROL UNIT ADDRESS
* 
CWTVU8	EQU	*	TABLE ENTRY
* 
	DATA	0	DWT OCCUPYING SCREEN SECTION OF VCCU1/4 
	DATA	0	PERIPHERAL SECTION OUTPUT QUEUE ANCHOR
	DATA	0	SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR 
	DATA	0	SCREEN SECTION LKM OUTPUT QUEUE ANCHOR
	DATA	0	PERIPH. SECTION OUTPUT QUEUE TIMER PTR
	DATA	0	ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION
	DATA	0	SST-READY DWT (SCREEN ONLY) 
	DATA	INTVU8	ADDRESS TO POINTER TO WORK-STATION TABLE 
	CIO	A2,1,VU8	CIO START SCREEN
	CIO	A2,1,VU8+1	CIO START PERIPHERAL
	OTR	A2,0,VU8	OTR SCREEN
	OTR	A2,0,VU8+1	OTR PERIPHERAL
	CIO	A2,0,VU8	CIO HALT SCREEN 
	CIO	A2,0,VU8+1	CIO HALT PERIPHERAL 
	SST	A2,VU8	SST (SCREEN ONLY) 
	INR	A2,0,VU8+1	INR (PERIPHERAL ONLY) 
	IFT	IOP=1
	WER	A2,VU8+VU8	WER1 (SCREEN ONLY, IOP ONLY)
	WER	A2,VU8+VU8+1	WER2 (SCREEN ONLY, IOP ONLY)
	RES	160	IOP-BUFFER (SCREEN ONLY, IOP ONLY) 
	DATA	0	IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)
	XIF
* 
* 
* 
* 
	EJECT
* 
************************************************************
* 
*	S C R E E N   S E C T I O N 
*	D E V I C E   D R I V E R   P A R T 
*	A C T I V A T I O N   R O U T I N E 
* 
************************************************************* 
* 
* 
*	ENTERED:	AT LKM DATA 1
* 
*	FUNCTIONS:
* 
* 
*	    ORDER /00: TEST STATUS. 
*		 1.DUMMY IS SENT TO DISPLAY VIA VCCU1/4. 
*              2.STATUS IS RETURNED INTO ECBRC IF VCCU1/4 NOT OPERABLE
*		3.CURSOR POSITION IS RETURNED INTO ECBCW.
*		ADDITIONALLY:
*		IF CURSOR POSITION IS LAST COLUMN OF A ROW,
*		AND IF THAT LAST COLUMN IS WRITTEN INTO, 
*		AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE
*		THE WRITING OF THAT LAST COLUMN, THEN: 
*		ECBCW IS INCREMENTED WITH 1
*		(INDICATING LAST+1 COLUMN OF THAT ROW) 
* 
* 
*	    ORDER /05: BASIC WRITE. 
*		 1.DISPLAY-ACTION IS PERFORMED 
*              ACCORDING TO CHARACTER(S) FROM ECB-BUFFER. 
*		CHARACTERS IN THE RANGE /20 - /7F ARE ACCEPTED AND DISPLAYED.
*              CHARACTERS IN THE RANGE /00 - /1F (COMMAND CHARACTERS) 
*              FROM ECB-BUFFER,  ARE ILLEGAL EXCEPT FOR /0A AND /0D.
*              ILLEGAL CHARACTERS ARE IGNORED WITHOUT ANY ERROR 
*              INDICATION IN ECBRC. 
*		WHEN THE LAST COLUMN OF A ROW HAS BEEN WRITTEN INTO, 
*		THE CURSOR REMAINS IN THAT POSITION, 
*		AND THE FOLLOWING CHARACTERS (/20-/7F) 
*		ARE WRITTEN INTO THAT SAME POSITION. 
*		2.EFFECTIVE LENGTH IS RETURNED INTO ECBEL. 
*		3.STATUS IS RETURNED INTO ECBRC, IF VCCU1/4 IS NOT OPERABLE. 
*		4.CURSOR POSITION AFTER REQUEST IS RETURNED INTO ECBCW.
*		ADDITIONALLY:
*		IF CURSOR POSITION IS LAST COLUMN OF A ROW,
*		AND IF THAT LAST COLUMN IS WRITTEN INTO, 
*		AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE
*		THE WRITING OF THAT LAST COLUMN, THEN: 
*		ECBCW IS INCREMENTED WITH 1
*		(INDICATING LAST+1 COLUMN OF THAT ROW) 
* 
*	    ORDER /06: STANDARD WRITE.
*		1.IF REQUESTED LENGTH IS LESS THAN 2 BYTES 
*		(NO CONTROL CHARACTER), THEN DEFAULT-ACTION LF+CR IS DONE. 
*	     2.IF REQUESTED LENGTH IS AT LEAST 2 BYTES, THEN
*	    ACTIONS SPECIFIED BY USER IN RIGHT-MOST BYTE OF FIRST WORD IN BUFF
*	    (CONTROL CHARACTER) ARE CARRIED OUT:
*	    /2B            NO MOVING OF WRITE POSITION
*	    /30            LF, LF, CR 
*	    /31            ERASE SCREEN AND WRITE FROM HOME POSITION
*	    OTHER VALUE:    LF, CR
* 
*		3.IF REQUESTED LENGTH EXCEEDS 2 BYTES, THEN ALSO 
*		 DISPLAY-ACTION IS PERFORMED 
*               ACCORDING TO CHARACTER(S) FROM ECB-BUFFER . 
*		CHARACTERS IN THE RANGE /20 - /7F ARE ACCEPTED AND DISPLAYED.
*              CHARACTERS IN THE RANGE /00 - /1F (COMMAND CHARACTERS) 
*              FROM ECB-BUFFER, ARE ILLEGAL EXCEPT FOR /11, /12, /13, 
*              /14, /1E, /1F. ILLEGAL CHARACTERS ARE IGNORED AND
*              WHEN THE REQUEST IS COMPLETED, ERROR INDICATION IS 
*              GIVEN IN ECBRC.
*		WHEN THE LAST COLUMN OF A ROW HAS BEEN WRITTEN INTO, 
*		THE CURSOR REMAINS IN THAT POSITION, 
*		AND THE FOLLOWING CHARACTERS (/20-/7F) 
*		ARE WRITTEN INTO THAT SAME POSITION. 
*		4.EFFECTIVE LENGTH IS RETURNED INTO ECBEL. 
*		5.STATUS IS RETURNED INTO ECBRC, 
*		IF VCCU1/4 IS NOT OPERABLE OR IF CODE CHECK ERROR. 
*		6.CURSOR POSITION AFTER REQUEST IS RETURNED INTO ECBCW.
*		ADDITIONALLY:
*		IF CURSOR POSITION IS LAST COLUMN OF A ROW,
*		AND IF THAT LAST COLUMN IS WRITTEN INTO, 
*		AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE
*		THE WRITING OF THAT LAST COLUMN, THEN: 
*		ECBCW IS INCREMENTED WITH 1
*		(INDICATING LAST+1 COLUMN OF THAT ROW) 
* 
* 
*	    ORDER /0B: CURSOR POSITIONING AND STANDARD WRITE. 
*              1.THE CURSOR IS SENT TO THE POSITION GIVEN 
*	     IN ECBCW AT START OF REQUEST.
*		 NO INFORMATION ON SCREEN IS ERASED. 
*		2.THEN, IF REQUESTED LENGTH EXCEEDS 2 BYTES, 
*		DISPLAY-ACTION IS PERFORMED ACCORDING TO 
*		CHARACTERS FROM ECB BUFFER (SEE ORDER /06, NOTE NUMBER 3-6). 
* 
*	    ORDER /31: ERASE. 
*		 1.THE SCREEN IS ERASED ON THE LINE
*		WHERE THE CURSOR IS POSITIONED.
*		THE NUMBER OF CHARACTERS (1-80) TO BE ERASED,
*		IS DEFINED IN ECBCW AT START OF REQUEST. 
*		ERASING STARTS IN THE CURSOR POSITION. 
*		THE CURSOR REMAINS IN THAT POSITION. 
*		2.STATUS IS RETURNED INTO ECBRC, IF VCCU1/4 IS NOT OPERABLE. 
* 
* 
*	INPUT:	A5 = DWT STACK BASE
*		A6 = DWT ADDRESS 
*		A7 = ORDER 
*		A8 = ECB ADDRESS 
* 
*	OUTPUT:	A1 = RETURN CODE FOR ECB
*		A6 = DWT ADDRESS 
*		A7 = ORDER 
*		A8 = ECB ADDRESS 
* 
***************************************************************** 
* 
ACVU	EQU	*
* 
*	SWITCH TO LEVEL 48 AND ENB
*	(TO HAVE, DURING IOP-PREPARATION-LOOP,
*	LOWER PRIORITY THAN VCCU-INPUT-INTERRUPTS)
* 
	CF	A15,SWL48	SWITCH TO LEVEL 48 AND ENB
* 
*	CHECK ORDER CODE
* 
	CWK	A7,/06	ORDER /06 ? 
	RF(E)	ACV100	YES 
	CWK	A7,/0B	ORDER /0B ? 
	ABL(E)	ACV420	YES
	CWK	A7,/31	ORDER /31 ? 
	ABL(E)	ACV450	YES
	CWK	A7,/00	ORDER /00 ? 
	ABL(E)	ACV460	YES
	CWK	A7,/05	ORDER /05 ? 
	ABL(E)	ACV470	YES
* 
*	ILLEGAL ORDER CODE
* 
	ABL	DISIOE	I/O REQUEST ERROR 
	EJECT
**************************************************
*	ORDER /06 
*	STANDARD WRITE
**************************************************
* 
ACV100	EQU	*
	LDK	A3,0	INITIATE BUFFER INDEX 
	LD	A2,ECBRL,A8	GET REQUESTED LENGTH
	SUK	A2,2	AT LEAST 2 BYTES ?
	RF(N)	ACV120	NO. THEN NO CONTROL CHARACTER, SO 
*			DO DEFAULT: LF+CR.
* 
*	CHECK BUFFER CONTROL CHARACTER
* 
	LDK	A3,2	INITIATE BUFFER INDEX 
*			TO POINT AFTER 2 CONTROL CHARACTERS 
	LD	A2,ECBBA,A8	GET ECB BUFFER ADDRESS
	LC	A2,1,A2	GET BUFFER CONTROL CHAR 
	ANK	A2,/FF	CLEAN LEFT BYTE 
	SUK	A2,/2B	WITHOUT POSITIONING BEFORE WRITE ?
	RF(Z)	ACV150	YES 
	SUK	A2,5	LF+LF+CR ? (=/30) 
	RF(Z)	ACV110	YES 
	SUK	A2,1	CLEAR SCREEN, HOME WRITE POS. ? (=/31)
	RF(NZ)	ACV120	NO. THEN FOR ALL OTHER VALUES: LF+CR 
* 
*	INITIAL ACTION
*	ACCORDING TO DETECTED BUFFER CONTROL CHARACTER
* 
	LDKL	A2,/0101	HOME WRITE POSITION
	ST	A2,DWTCN+DWTDEV,A6	AS CURRENT NEXT WRITE POSITION 
	LDK	A4,ROLBIT	BIT 8 (SET IF SCROLL MODE) 
	C1R	A4,A4	COMPLEMENT 
	ANS	A4,DWTDEV,A6	RESET BIT 8 (NO LONGER SCROLL MODE) 
	CF	A5,CLESCR	CLEAR SCREEN, RESET WRITE+CURSOR POS
	ABL(NZ)	DEVERR	STATUS NOT OK 
	RF	ACV140	GO RESET DWTDEV BIT 9
ACV110	EQU	*
	CF	A5,NXTROW	DO LINE-FEED TO NEXT ROW
ACV120	EQU	*
	CF	A5,NXTROW	DO LINE-FEED TO NEXT ROW
*	DO CR 
ACV130	EQU	*
	LDK	A2,/01	FIRST COLUMN
	SC	A2,DWTCNC+DWTDEV,A6	AS CURRENT NEXT WRITE COLUMN
ACV140	EQU	*
	LDK	A4,LCWBIT	BIT 9 (SET IF LAST COLUMN WRITTEN) 
	C1R	A4,A4	COMPLEMENT 
	ANS	A4,DWTDEV,A6	RESET BIT 9 
	EJECT
* 
*	START WRITING 
*	ACCORDING TO ASCII CHARACTERS FROM BUFFER 
* 
ACV150	EQU	*
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	CF	A5,STAWRI	START NEW WRITE REQUEST 
	ABL(NZ)	DEVERR	STATUS NOT OK 
	IFT	TRASPA=1 
	EJECT
* 
*	REMOVE ANY TRAILING /20, /11, /12, /1E, /1F 
*	BY DECREMENTING REQUESTED LENGTH
* 
	LD	A1,ECBBA,A8	GET BUFFER ADDRESS
	LD	A2,ECBRL,A8	GET REQUESTED LENGTH
	ADR	A1,A2	GET ADDRESS TO END OF BUFFER 
ACV160	CWK	A2,2	REQUESTED LENGTH < 3 ?
	RF(NG)	ACV200	YES. THEN NO (MORE) ACTION 
	SUK	A1,1	DECR ADDRESS IN BUFFER
	LCR	A4,A1	GET CHAR 
	CCK	A4,/2020	TRAILING SPACE ?
	RF(NE)	ACV180	NO. GO CHECK IF OTHER SKIPPABLE CHAR 
ACV170	SUK	A2,1	DECR REQUESTED LENGTH 
*			TO SKIP THAT TRAILING CHAR
	RB	ACV160	GO BACKWARDS TO CHECK PRECEEDING CHAR
ACV180	CWK	A2,4	REQUESTED LENGTH < 5 ?
	RF(NG)	ACV200	YES. THEN NO (MORE) ACTION 
	LC	A4,-2,A1	NOW GET THE CHAR 2 BYTES BEFORE
	CCK	A4,/1111	TRAILING TABULATION CHAR ?
	RF(NE)	ACV190	NO. GO CHECK IF OTHER SKIPPABLE CHAR 
	SUK	A1,2	DECR ADDRESS IN BUFFER
	SUK	A2,2	DECR REQUESTED LENGTH 
	RB	ACV170	 
ACV190	LCR	A4,A1	GET THE CHARACTER AGAIN
	ANK	A4,/FF 
	SUK	A4,/12	TRAILING UNDERLINE START? 
	RB(Z)	ACV170	YES. SKIP IT
	SUK	A4,/C	TRAILING LOW INTENSITY START?
	RB(Z)	ACV170	YES. SKIP IT
	SUK	A4,1	TRAILING LOW INTENSITY STOP?
	RB(Z)	ACV170	YES. SKIP IT
* 
ACV200	ST	A2,ECBRL,A8	STORE (NEW) REQUESTED LENGTH
	EJECT
	XIF
ACV210	EQU	*
	CF	A15,GETCHR	GET CHAR FROM ECB BUFFER 
	LDR	A1,A1	END OF ECB BUFFER ?
	RF(NP)	ACV380	YES
	ANK	A2,/7F	CLEAN 
	CWK	A2,SPACE	< /20 ? 
	RF(L)	ACV220	YES. THEN CHECK COMMAND CHARACTER 
	CF	A5,CHKOUT	CHECK IF LAST COLUMN AND DO OUTPUT
	RB	ACV210	GET NEXT CHAR
	EJECT
* 
*	CHECK OF COMMAND CHARACTER
* 
ACV220	EQU	*
	CWK	A7,/05	ORDER /05 RUNNING ? 
	ABL(E)	ACV480	YES. THEN DIFFERENT CHARACTER CHECK
	SUK	A2,/11	TABULATION ?
	RF(Z)	ACV290	YES 
	SUK	A2,1	START UNDERLINE ? (/12) 
	RF(Z)	ACV230	YES 
	SUK	A2,1	STOP UNDERLINE ? (/13)
	RF(Z)	ACV250	YES 
	SUK	A2,1	FAST OUTPUT ? (/14) 
	RF(Z)	ACV350	YES 
	SUK	A2,/A	START LOW INTENSITY ? (/1E)
	RF(Z)	ACV270	YES 
	SUK	A2,1	STOP LOW INTENSITY ? (/1F)
	RF(Z)	ACV280	YES 
* 
*	ILLEGAL (COMMAND) CHARACTER 
* 
	LDK	A1,CCERR	CODE CHECK ERROR STATUS 
	ORS	A1,ECBRC,A8	INTO ECB RETURN CODE 
	RB	ACV210	GO GET NEXT CHAR 
	EJECT
* 
*	START UNDERLINE 
* 
ACV230	EQU	*
	LDKL	A2,UNDBIT	GET UNDERLINE MODE BIT
ACV240	EQU	*
	ORS	A2,DWTDEV,A6	SET BIT INTO DWT
	RB	ACV210	GO GET NEXT CHAR 
* 
*	STOP UNDERLINE
* 
ACV250	EQU	*
	LDKL	A2,UNDBIT	GET UNDERLINE MODE BIT
ACV260	EQU	*
	C1R	A2,A2	COMPLEMENT 
	ANS	A2,DWTDEV,A6	RESET BIT IN DWT
	RB	ACV210	GO GET NEXT CHAR 
* 
*	START LOW (!) INTENSITY 
* 
ACV270	EQU	*
	LDKL	A2,INTBIT	GET HIGH INTENSITY MODE BIT 
	RB	ACV260	GO RESET BIT IN DWT
* 
*	STOP LOW (!) INTENSITY
* 
ACV280	EQU	*
	LDKL	A2,INTBIT	GET HIGH INTENSITY MODE BIT 
	RB	ACV240	GO SET BIT INTO DWT
	EJECT
* 
*	ORDER /06, COMMAND /11 (TABULATION) 
* 
ACV290	EQU	*
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	ABL(NZ)	DEVERR	STATUS NOT OK 
	CF	A15,GETCHR	GET TAB COLUMN NUMBER (FIRST DIGIT)
	LDR	A4,A2	SAVE FIRST DIGIT 
	CF	A15,GETCHR	GET TAB COLUMN NUMBER (SECOND DIGIT) 
* 
*	CONVERT FROM DECIMAL INTO HEXA
* 
	ANK	A2,/F	GET UNITS
	ANK	A4,/F	GET TENTHS. ANY ?
	RF(Z)	ACV310	NO
ACV300	EQU	*
	ADK	A2,/A	INCR WITH TEN UNITS
	SUK	A4,1	ONE MORE TIME ? 
	RB(NZ)	ACV300	YES
* 
*	CHECK COLUMN NUMBER TABULATED INTO
* 
ACV310	EQU	*
	LDK	A4,0	CLEAR REGISTER
	LC	A4,DWTCNR+DWTDEV,A6	GET CURRENT NEXT WRITE ROW NUMBER 
	ECR	A4,A4	ROW NUMBER INTO LEFT BYTE
ACV320	EQU	*
	CWK	A2,1	< COLUMN 1 ? (=COLUMN 'ZERO' ?) 
	RF(NL)	ACV330	NO 
	LCK	A2,/0101	YES. SET COLUMN 1 INSTEAD 
	RF	ACV340
ACV330	EQU	*
	CCK	A2,MAXCOL	EXCEEDING MAX NUMBER OF COLUMNS ?
	RF(NG)	ACV340	NO 
	LCK	A2,MAXCOL	YES. SET LAST COLUMN INSTEAD 
* 
*	EXECUTE THE TABULATION
* 
ACV340	EQU	*
	ORR	A2,A4	COMBINE ROW AND COLUMN NUMBERS 
	ST	A2,DWTCN+DWTDEV,A6	SET CURRENT NEXT WRITE POSITION
	ABL	ACV140	GO RESET BIT 9 IN DWTDEV, DO STAWRI.
	EJECT
* 
*	ORDER /06, COMMAND /14 (FAST OUTPUT)
* 
ACV350	EQU	*
	CF	A15,SAVCN	SAVE CURRENT NEXT WRITE POSITION
	CF	A15,GETCHR	GET NEXT CHARACTER FROM ECB BUFFER 
	LD	A4,ECBRL,A8	GET REQUESTED LENGTH
	ST	A4,ECBEL,A8	SET EFFECTIVE LENGTH
	SUR	A4,A3	SUBTRACT BUFFER INDEX
	LDR	A3,A4	SAVE REMAINING LENGTH FOR 'FAST OUTPUT'
	RF(Z)	ACV370	NO OUTPUT IF ZERO LENGTH
ACV360	EQU	*
	CF	A5,CHKOUT	CHECK LAST COLUMN WRITTEN AND DO OUTPUT 
	SUK	A3,1	ONE MORE TIME ? 
	RB(NZ)	ACV360	YES
ACV370	EQU	*
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	ABL(NZ)	DEVERR	STATUS NOT OK 
	CF	A15,RESCN	RESTORE SAVED WRITE POS. AS CURRENT NEXT
	RF	ACV390	GO SET CURSOR TO IT
	EJECT
* 
*	END OF LKM-REQUEST
* 
ACV380	EQU	*
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	ABL(NZ)	DEVERR	STATUS NOT OK 
	CF	A15,SAVCN	SAVE CURRENT NEXT WRITE POSITION
ACV390	EQU	*
	CWK	A7,/31	ORDER /31 ? 
	RF(E)	ACV395	YES. THEN DO NOT MODIFY ECBCW.
ACV392	EQU	*
	ST	A2,ECBCW,A8	SAVE NEXT WRITE POSITION ALSO INTO ECB
	LD	A4,DWTDEV,A6	 
	ANK	A4,LCWBIT	BIT 9 SET ?
	RF(Z)	ACV395	NO = LAST COLUMN NOT WRITTEN
	IM	ECBCW,A8	YES. INDICATE BY RETURNING LAST+1 COLUMN 
ACV395	EQU	*
	CF	A5,OUTCUR	SET CURSOR TO NEXT WRITE POSITION 
	ABL(NZ)	DEVERR	STATUS NOT OK 
* 
*	RESET DISPLAY MODE BITS IN DWT
* 
ACV400	EQU	*
	LDKL	A2,UNDBIT	GET UNDERLINE MODE BIT
	C1R	A2,A2	COMPLEMENT 
	ANS	A2,DWTDEV,A6	RESET BIT IN DWT
	LDKL	A2,INTBIT	GET HIGH INTENSITY MODE BIT 
	ORS	A2,DWTDEV,A6	SET BIT INTO DWT
ACV410	EQU	*
	ABL	DISEND	END I/O AND DISPATCH
	EJECT
******************************************************* 
*	ORDER /0B 
*	SET CURSOR (AND WRITE)
********************************************************* 
* 
ACV420	EQU	*
	LDK	A3,2	INITIATE BUFFER INDEX 
*			 (SKIP UNUSED LEADING 2 BYTES)
	LDK	A2,0	CLEAR WORK REGISTER 
	LDK	A4,0	CLEAR WORK REGISTER 
	LC	A4,ECBCW,A8	GET REQUESTED ROW NUMBER
	CWK	A4,1	< ROW 1 ? (=ROW 'ZERO' ?) 
	RF(NL)	ACV430	NO 
	LCK	A4,/0101	YES. SET ROW 1 INSTEAD
	RF	ACV440	 
ACV430	EQU	*
	CCK	A4,MAXROW	EXCEEDING MAX NUMBER OF ROWS ? 
	RF(NG)	ACV440	NO 
	LCK	A4,MAXROW	YES. SET LAST ROW INSTEAD
ACV440	EQU	*
	ECR	A4,A4	ROW NUMBER INTO LEFT BYTE
	LC	A2,ECBCW+1,A8	GET REQUESTED COLUMN NUMBER 
	RB	ACV320	GO CHECK REQUESTED COLUMN NUMBER ETC.
	EJECT
********************************************************
*	ORDER /31 
*	ERASE 
******************************************************* 
* 
ACV450	EQU	*
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	LD	A3,ECBCW,A8	GET NUMBER OF CHARACTERS TO ERASE 
	RB(Z)	ACV395	NO ERASE IF ZERO CHARACTERS,
*			BUT THEN GO SET CURSOR ETC
*			+ DO ENDIO. 
	CF	A5,STAWRI	START NEW WRITE REQUEST 
	ABL(NZ)	DEVERR	STATUS NOT OK 
	LDK	A2,SPACE	GET SPACE TO DO ERASE WITH
	RB	ACV360	GO DO ERASE
	EJECT
************************************************
*	ORDER /00 
*	TEST STATUS 
************************************************* 
* 
ACV460	EQU	*
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	RB	ACV392	SET ECBCW AND DO (DUMMY) OUTPUT CURSOR 
	EJECT
************************************************* 
*	ORDER /05 
*	BASIC WRITE 
************************************************* 
* 
ACV470	EQU	*
	LDK	A3,0	INITIATE BUFFER INDEX 
	ABL	ACV150	GO START WRITE REQUEST ETC. 
* 
* 
* 
* 
*	CHECK OF DETECTED COMMAND CHARACTER 
* 
ACV480	EQU	*
	SUK	A2,/0A	LINE-FEED ? (=/0A)
	RF(NZ)	ACV490	NO 
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	ABL(NZ)	DEVERR	STATUS NOT OK 
	CF	A5,NXTROW	DO LINE-FEED TO NEXT ROW
	ABL	ACV150	GO START NEW WRITE REQUEST ETC. 
ACV490	EQU	*
	SUK	A2,3	CARRIAGE RETURN ? (=/0D)
	ABL(NZ)	ACV210	NO. THEN ILLEGAL COMMAND CHAR ! 
*			NO OUTPUT, NO ERROR STATUS, GET NEXT CHAR 
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	RF(NZ)	DEVERR	STATUS NOT OK
	ABL	ACV130	GO DO CARRIAGE RETURN ETC.
	EJECT
* 
*********************************************************** 
* 
*	S C R E E N   S E C T I O N 
*	D E V I C E   D R I V E R   P A R T 
*	A B O R T   R O U T I N E 
* 
*********************************************************** 
* 
* 
*	CALL:	CFR A15,A2  (A2 = ABVU) 
* 
*	USED BY:	ABORT-LKM PROCESSOR
*		AT ABORT OF KEYBOARD INPUT WITH ECHO 
* 
*	FUNCTION:SAVE CURRENT NEXT WRITE POSITION (DEFINING 
*		END OF REQUEST POSITION) INTO DWT
* 
*	INPUT:	A6 = DWT-ADDRESS OF ECHO DEVICE
*		A8 = DWT-ADDRESS OF INPUT DEVICE 
* 
*	OUTPUT:	A6,A8 UNCHANGED ! 
* 
************************************************************
* 
ABVU	EQU	*
	CF	A15,SAVCN	SAVE CURRENT NEXT WRITE POSITION
	IFT	CPU852=1 
	ABL	IHRTN	RETURN 
	XIF
	RTN	A15
	EJECT
* 
*********************************************************** 
* 
*	S C R E E N   S E C T I O N 
*	D E V I C E   D R I V E R   P A R T 
*	R E C O V E R Y   R O U T I N E 
* 
*********************************************************** 
* 
*	ENTERED:	FROM LINE DRIVER PART VIA NETWORK DISTRIBUTOR, 
*		AT POWER ON
* 
*	FUNCTIONS:
*		1. SET DWT BUSY
*		2. CLEAR SCREEN
*		3. INITIATE CURRENT NEXT WRITE POSITION IN DWT 
*		4. RESET BITS IN DWT FOR 
*			- SCROLL MODE 
*			- LAST COLUMN WRITTEN 
*			- UNDERLINE MODE
*		5. SET BIT IN DWT FOR
*			- HIGH INTENSITY MODE 
*		6. SET RETURN STATUS FOR ECBRC: 'NOT OPERABLE' 
*		7. EXIT: ENDIO+DISPATCH
* 
*	INPUT:	A4 = RECOVERY CAUSE
*		A5 = DWT STACK BASE
*		A6 = DWT ADDRESS 
*		A7 = ORDER (IF REQUEST IS ON)
*		A8 = ECB ADDRESS (IF REQUEST IS ON)
*		     0 (IF NO REQUEST IS ON) 
* 
*	OUTPUT:	A1 = RETURN CODE
*		A6 = DWT ADDRESS 
* 
**************************************************************
* 
RCVU	EQU	*
	LDKL	A2,/7FFF	READY-BIT
	ANS	A2,DWTST,A6	RESET IT (=SET DWT BUSY) 
	CF	A5,CLESCR	CLEAR SCREEN, RESET WRITE+CURSOR POS. 
	RF(NZ)	DEVERR	STATUS NOT OK
	LDKL	A2,/0101	HOME POSITION
	ST	A2,DWTCN+DWTDEV,A6	AS CURRENT NEXT WRITE POSITION 
	LDK	A4,ROLBIT+LCWBIT	BIT 8+9 (SCROLL + LAST COLUMN WRITTEN)
	C1R	A4,A4	COMPLEMENT 
	ANS	A4,DWTDEV,A6	RESET BITS IN DWT 
	CF	A15,SAVCN	SAVE CURRENT NEXT WRITE POSITION
	LDK	A1,OPERR	STATUS NOT OPERABLE (FOR ECBRC) 
	RB	ACV400	GO RESET UNDERLINE+INTENSITY MODE, 
*			AND EXIT:  ENDIO+DISPATCH 
	EJECT
* 
**************************************************************
* 
*	S C R E E N   S E C T I O N 
*	D E V I C E   D R I V E R   P A R T 
*	E C H O   R O U T I N E 
* 
**************************************************************
* 
* 
*	ENTERED:	FROM KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR,
*		AT KEYBOARD INPUT WITH ECHO
* 
*	FUNCTIONS:
*		1. ECHOING OF ALPHANUMERIC CHARACTERS
*		2. HANDLING OF BACKSPACE-CHARACTER 
*		3. HANDLING OF CLEAR-CHARACTER 
*		4. HANDLING OF LINEFEED-CHARACTER
*		5. HANDLING OF CARRIAGE-RETURN-CHARACTER 
*		6. HANDLING OF END-OF-RECORD-CHARACTER (ALPHANUM., LF OR CR) 
*		7. EXIT: TO KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR
* 
*	INPUT:	A2 = BITS 0-7 : ZERO 
*		     BITS 8-15: CHARACTER
*		A5 = DWT STACK BASE
*		A6 = DWT ADDRESS 
*		A7 = BIT 0  =1 IF END OF ECHO
*		            =0 IF NOT
* 
*	OUTPUT:	A6 = DWT ADDRESS
* 
*************************************************************** 
* 
ECHOVU	EQU	*
	LDR	A7,A7	END OF REQUEST FOR ECHO ?
	RF(N)	ECV110	YES 
* 
*	CHECK IF SPECIAL ECHO CHARACTER 
* 
	CWK	A2,/80	8-BIT SET ? (=EOR-CHARACTER, >=/80) 
	IFT	EORECH=0 
	RF(NL)	ECV120	YES. NOT TO BE ECHOED. 
	XIF
	IFT	EORECH=1 
	RF(L)	ECV080	NO. THEN NOT EOR-CHARACTER
* 
*	ECHO OF EOR-CHARACTER 
* 
	ANK	A2,/7F	CLEAN 
	CWK	A2,/20	</20 ?
	RF(L)	ECV085	YES. COMMAND CHARACTER AS EOR-CHAR. 
	RF	ECV095	NO. ALPHANUMERIC CHAR AS EOR-CHAR. 
	XIF
* 
*	ECHO OF NON-EOR CHARACTER 
* 
ECV080	EQU	*
	CWK	A2,/20	</20 ?
	RF(NL)	ECV095	NO. THEN ALPHANUMERIC CHARACTER. 
	SUK	A2,/08	BACKSPACE ? (/08) 
	RF(Z)	ECV130	YES 
	SUK	A2,/10	CLEAR-CHARACTER ? (/18) 
	RF(Z)	ECV160	YES 
	ADK	A2,/18	RESTORE CHARACTER 
ECV085	EQU	*
	SUK	A2,/0A	LINEFEED ? (/0A)
	RF(NZ)	ECV090	NO 
* 
*	ECHO OF LINEFEED
* 
	CF	A5,NXTROW	DO LINEFEED TO NEXT ROW 
	RF	ECV100	GO SET CURSOR
ECV090	EQU	*
	SUK	A2,3	CARRIAGE RETURN ? (/0D) 
	RF(NZ)	ECV120	NO. THEN ILLEGAL ECHO CHARACTER! 
* 
*	ECHO OF CARRIAGE RETURN 
* 
	LDK	A2,/01	FIRST COLUMN OF ROW 
	SC	A2,DWTCNC+DWTDEV,A6	AS CURRENT NEXT WRITE COLUMN
	LDK	A4,LCWBIT	BIT 9 (SET IF LAST COLUMN WRITTEN) 
	C1R	A4,A4	COMPLEMENT 
	ANS	A4,DWTDEV,A6	RESET BIT 9 
	RF	ECV100	GO SET CURSOR
* 
*	DO ECHO OF ALPHANUMERIC CHARACTER 
* 
ECV095	EQU	*
	CF	A5,ECHOUT	ECHO THE CHARACTER
	CF	A15,NXTCOL	UPDATE COLUMN COUNTER TO NEXT COLUMN 
ECV100	EQU	*
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	CF	A5,OUTCUR	OUTPUT CURSOR IN IT 
	RF(NZ)	DEVERR	STATUS NOT OK
	RF	ECV120	RETURN 
* 
*	END THE ECHO REQUEST
* 
ECV110	EQU	*
	CF	A15,SAVCN	SAVE CURRENT NEXT WRITE POSITION
	CF	A15,TENDIO	END ECHO-OUTPUT I/O-REQUEST
* 
*	RETURN FROM ECHO HANDLING 
* 
ECV120	EQU	*
	ABL	ECHRTN	RETURN FROM ECHO TO KB-DRIVER 
	EJECT
* 
*	HANDLING OF A BACKSPACE-CHARACTER 
* 
ECV130	EQU	*
	LD	A2,DWTDEV,A6	 
	LDR	A4,A2	SAVE INTO A4 
	ANK	A4,LCPBIT	BIT 10 SET ? (=LAST COLUMN ALREADY WRITTEN 
*			BY PREVIOUS REQUEST)
	RB(NZ)	ECV120	YES. THEN NO RUBOUT !
	ANK	A2,LCWBIT	BIT 9 SET ?
	RF(NZ)	ECV140	YES.LAST COLUMN WRITTEN (DURING REQUEST) 
	LD	A4,DWTSN+DWTDEV,A6	GET NEXT WRITE POSITION SAVED AFTER
*			PREVIOUS REQUEST
	CW	A4,DWTCN+DWTDEV,A6	= CURRENT NEXT WRITE POSITION ?
	RB(E)	ECV120	YES. THEN NO RUB-OUT !
	LDKL	A4,-1	
	ADS	A4,DWTCN+DWTDEV,A6	DECR CURRENT NEXT WRITE POSITION
	RF	ECV150
ECV140	EQU	*
	XRS	A2,DWTDEV,A6	RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) 
ECV150	EQU	*
	LDK	A2,SPACE	RUBOUT PREVIOUS (OR LAST) COLUMN
	CF	A5,ECHOUT	OUTPUT ONE SPACE TO RUBOUT
	RB	ECV100	GO SET CURSOR
	EJECT
* 
*	HANDLING OF A CLEAR-CHARACTER 
* 
ECV160	EQU	*
	LD	A4,DWTDEV,A6	 
	LDR	A2,A4	ALSO INTO A2 
	ANK	A4,LCPBIT	BIT 10 SET ? (=LAST COLUMN WRITTEN 
*			ALREADY BY PREVIOUS REQUEST)
	RB(NZ)	ECV120	YES. THEN NO RUBOUT !
* 
*	PREPARE THE RUBOUT
* 
	LD	A3,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	SU	A3,DWTSN+DWTDEV,A6	SUBTRACT WITH NEXT WRITE POSITION
*			SAVED AFTER PREVIOUS REQUEST
	ANK	A2,LCWBIT	BIT 9 SET ? (=LAST COLUMN WRITTEN, 
*			DURING REQUEST !) 
	RF(Z)	ECV170	NO
	ADK	A3,1	YES. MODIFY TO RUBOUT ALSO LAST COLUMN
ECV170	EQU	*
	ADK	A3,0	ANY ECHOED CHARACTERS TO RUBOUT ? 
	RB(Z)	ECV120	NO
* 
*	DO THE RUBOUT 
* 
	CF	A15,RESCN	RESTORE SAVED WRITE POS. AS CURRENT NEXT
	CF	A5,STAWRI	START NEW WRITE REQUEST TO DO RUBOUT
	RF(NZ)	DEVERR	STATUS NOT OK
ECV180	EQU	*
	LDK	A2,SPACE	GET SPACE TO DO RUBOUT WITH 
	CF	A5,OUTCHA	OUTPUT IT 
	RF(NZ)	DEVERR	STATUS NOT OK
	SUK	A3,1	ONE MORE CHAR TO RUBOUT ? 
	RB(NZ)	ECV180	YES
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	RF(NZ)	DEVERR	STATUS NOT OK
	RB	ECV100	GO SET CURSOR
	EJECT
* 
********************************************************
* 
*	S C R E E N   S E C T I O N 
*	D E V I C E   D R I V E R   P A R T 
*	E R R O R   R O U T I N E 
* 
********************************************************
* 
* 
*	ENTERED:	FROM DEVICE DRIVER PART, 
*		AT ERROR STATUS AT RETURN FROM LINE DRIVER PART
* 
*	FUNCTION: 1. INDICATE STATUS 'NOT OPERABLE' FOR ECBRC 
*		 2. EXIT FROM DRIVER 
* 
*	INPUT:	A6 = DWT ADDRESS 
* 
*	OUTPUT:	A1 = BIT 15  =1 (STATUS NOT OPERABLE) 
*		A6 = DWT ADDRESS 
* 
********************************************************* 
* 
DEVERR	EQU	*
	LDK	A1,OPERR	STATUS NOT OPERABLE (FOR ECBRC) 
	ABL	ACV410	EXIT: ENDIO AND DISPATCH
	EJECT
* 
***************************************************************** 
* 
*	S C R E E N   S E C T I O N 
*	D E V I C E   D R I V E R   P A R T 
*	S U B - R O U T I N E S 
* 
***************************************************************** 
* 
* 
* 
*	-CHKOUT	CHECK IF LAST COLUMN WRITTEN, AND OUTPUT ONE CHARACTER
*	-ECHOUT	OUTPUT ONE CHARACTER IN ECHO MODE 
*	-NXTROW	UPDATE ROW COUNTER TO NEXT ROW, 
*		AND IF NECESSARY HANDLE SCROLL.
*	-NXTCOL	CALLED AFTER WRITE IN CURRENT COLUMN, SO: 
*		UPDATE COLUMN COUNTER TO NEXT COLUMN,
*		AND IF NECESSARY HANDLE LAST-COLUMN-WRITTEN. 
*	-SAVCN	SAVE CURRENT NEXT WRITE POSITION 
*	-RESCN	RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT
* 
* 
* 
	EJECT
* 
********************************************************
* 
*	C H K O U T 
* 
********************************************************* 
* 
* 
*	CALL:	CF A5,CHKOUT
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION: 1. CHECK IF LAST COLUMN WRITTTEN, 
*		  AND IF SO END THE WRITE REQUEST AND START A NEW ONE. 
*		2. OUTPUT ONE CHARACTER
*		3. UPDATE COLUMN COUNTER TO NEXT COLUMN
* 
*	INPUT:	A2 = CHARACTER TO BE OUTPUT
*		A5 = DWT STACK POINTER 
*		A6 = DWT ADDRESS 
* 
*	OUTPUT:	A2 = UNCHANGED !
*		A4 = CHANGED 
*		A5 = DWT STACK BASE
*		A6 = DWT ADDRESS 
* 
******************************************************************
* 
CHKOUT	EQU	*
	LDR	A4,A2	 SAVE CHARACTER TO BE OUTPUT 
	LD	A2,DWTDEV,A6	 
	ANK	A2,LCWBIT	BIT 9 SET ? (=LAST COLUMN WRITTEN) 
	RF(Z)	CHKO10	NO
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	RB(NZ)	DEVERR	STATUS NOT OK
	LD	A2,DWTCN+DWTDEV,A6	NOW ALSO NEXT CHAR IN LAST COLUMN
	CF	A5,STAWRI	START NEW WRITE REQUEST 
	RB(NZ)	DEVERR	STATUS NOT OK
CHKO10	EQU	*
	LDR	A2,A4	RESTORE  SAVED CHARACTER 
	CF	A5,OUTCHA	OUTPUT IT 
	RB(NZ)	DEVERR	STATUS NOT OK
	LDR	A2,A4	RESTORE A2 AGAIN 
	CF	A15,NXTCOL	UPDATE COLUMN COUNTER TO NEXT COLUMN 
	ABL	NDRET	RETURN VIA A5-STACK
	EJECT
* 
************************************************************
* 
*	E C H O U T 
* 
************************************************************
* 
* 
*	CALL:	CF A5,ECHOUT
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION: OUTPUT ONE CHARACTER IN ECHO MODE 
*		OBS: COLUMN COUNTER IS NOT UPDATED 
* 
*	INPUT:	A2 = ECHO CHARACTER
*		A5 = DWT STACK POINTER 
*		A6 = DWT ADDRESS 
* 
*	OUTPUT:	A2 = CHANGED
*		A4 = CHANGED 
*		A5 = DWT STACK BASE
*		A6 = DWT ADDRESS 
* 
********************************************************
* 
ECHOUT	EQU	*
	LDR	A4,A2	SAVE CHARACTER TO BE OUTPUT
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	CF	A5,STAWRI	START THE WRITE REQUEST 
	RB(NZ)	DEVERR	STATUS NOT OK
	LDR	A2,A4	RESTORE SAVED CHARACTER
	CF	A5,OUTCHA	OUTPUT IT 
	RB(NZ)	DEVERR	STATUS NOT OK
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	RB(NZ)	DEVERR	STATUS NOT OK
	ABL	NDRET	RETURN VIA A5-STACK
	EJECT
* 
**********************************************************
* 
*	N X T R O W 
* 
**********************************************************
* 
* 
*	CALL:	CF A5, NXTROW 
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION: UPDATE ROW COUNTER TO NEXT ROW, 
*		 AND IF NECESSARY HANDLE SCROLL
* 
*	INPUT:	A5 = DWT STACK POINTER 
*		A6 = DWT ADDRESS 
* 
*	OUTPUT:	A2 = CHANGED
*		A4 = CHANGED 
*		A5 = DWT STACK BASE
*		A6 = DWT ADDRESS 
* 
**********************************************************
* 
NXTROW	EQU	*
	LC	A4,DWTCNR+DWTDEV,A6	GET CURRENT ROW NUMBER
	CCK	A4,MAXROW	= LAST ROW ? 
	RF(E)	NXTR10	YES. START SCROLLING
	LDKL	A2,/0100	POSITION DISPLACEMENT = ONE ROW
	ADS	A2,DWTCNR+DWTDEV,A6	INCR CURRENT ROW NUMBER
	LD	A4,DWTDEV,A6	 
	ANK	A4,ROLBIT	BIT 8 SET ? (=ALREADY IN SCROLL MODE)
	RF(Z)	NXTR40	NO. THEN RETURN 
* 
*	CONTINUE SCROLLING
* 
	LC	A4,DWTCNR+DWTDEV,A6	GET CURRENT ROW NUMBER AFTER LF 
	CCK	A4,MAXROW	= LAST ROW ? 
	RF(E)	NXTR40	YES. THE NO RUBOUT ONE ROW IN ADVANCE.
* 
*	CONTINUE RUBOUT 
* 
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	ADKL	A2,/0100	RUBOUT ONE ROW IN ADVANCE
	LDK	A4,/50	ONE ROW CONTAINS 80 CHAR TO RUBOUT
	RF	NXTR20	GO DO RUBOUT 
* 
*	START SCROLLING AND RUBOUT
* 
NXTR10	EQU	*
	LDK	A4,ROLBIT	SET BIT 8 (SCROLL MODE)
	ORS	A4,DWTDEV,A6	INTO DWT
	LDK	A2,/01	SET FIRST ROW 
	SC	A2,DWTCNR+DWTDEV,A6	AS CURRENT WRITE ROW
	LDK	A4,/A0	TWO ROWS CONTAIN 160 CHAR TO RUBOUT 
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
NXTR20	EQU	*
	ANKL	A2,/FF00	RUB FROM BEGIN OF THAT ROW 
	ADK	A2,1	BEGIN OF ROW IS COLUMN 1 (NOT 'ZERO') 
	CF	A5,STAWRI	START NEW WRITE REQUEST TO RUBOUT 
	RB(NZ)	DEVERR	STATUS NOT OK
NXTR30	EQU	*
	LDK	A2,SPACE	GET SPACE TO DO RUBOUT WITH 
	CF	A5,OUTCHA	OUTPUT IT 
	RB(NZ)	DEVERR	STATUS NOT OK
	SUK	A4,1	ONE MORE TIME ? 
	RB(NZ)	NXTR30	YES
	CF	A5,ENDWRI	END THE WRITE REQUEST 
	RB(NZ)	DEVERR	STATUS NOT OK
NXTR40	EQU	*
	ABL	NDRET	RETURN VIA A5 STACK
	EJECT
* 
********************************************************* 
* 
*	N X T C O L 
* 
********************************************************* 
* 
* 
*	CALL:	CF A15,NXTCOL 
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION: CALLED AFTER WRITE IN CURRENT COLUMN, SO: 
*		1. IF LAST COLUMN NOT WRITTEN, 
*		   UPDATE COLUMN COUNTER TO NEXT COLUMN. 
*		2. IF LAST COLUMN WRITTEN, 
*		   SET BIT 9 IN DWTDEV.
* 
*	INPUT:	NONE.
* 
*	OUTPUT:	A4 CHANGED. 
* 
*********************************************************** 
* 
NXTCOL	EQU	*
	LD	A4,DWTDEV,A6	 
	ANK	A4,LCWBIT	BIT 9 SET ?
	RF(NZ)	NXTC20	YES. LAST COLUMN IS WRITTEN
	LC	A4,DWTCNC+DWTDEV,A6	GET CURRENT NEXT WRITE COLUMN 
	CCK	A4,MAXCOL	= LAST COLUMN ?
	RF(NE)	NXTC10	NO 
	LDK	A4,LCWBIT	LAST COLUMN WRITTEN
	ORS	A4,DWTDEV,A6	SET BIT 9 
	RF	NXTC20	 
NXTC10	EQU	*
	IM	DWTCN+DWTDEV,A6	INCR CURRENT NEXT WRITE COLUMN
NXTC20	EQU	*
	RTN	A15	RETURN 
	EJECT
* 
********************************************************* 
* 
*	S A V C N 
* 
**********************************************************
* 
* 
*	CALL:	CF 15,SAVCN 
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION: 1. SAVE DWTCN (CURRENT NEXT WRITE POSITION) INTO DWTSN
*		 2. SAVE DWTDEV BIT 9 INTO BIT 10
* 
*	INPUT:	NONE 
* 
*	OUTPUT:	A2,A4 CHANGED 
* 
*************************************************************** 
* 
SAVCN	EQU	* 
*	COPY DWTDEV BIT 9 INTO BIT 10 
	LD	A4,DWTDEV,A6	 
	LDR	A2,A4	SAVE INTO A2 
	ANK	A4,LCWBIT	GET BIT 9 (SET IF LAST COLUMN WRITTEN) 
	LDK	A2,LCPBIT	BIT 10 (SET IF LAST COLUMN WRITTEN 
*			ALREADY BY PREVIOUS REQUEST)
	C1R	A2,A2	COMPLEMENT 
	ANS	A2,DWTDEV,A6	RESET BIT 10
	SRL	A4,1	SHIFT BIT 9 INTO BIT 10 
	ORS	A4,DWTDEV,A6	STORE INTO DWT
*	COPY DWTCN INTO DWTSN 
	LD	A2,DWTCN+DWTDEV,A6	GET CURRENT NEXT WRITE POSITION
	ST	A2,DWTSN+DWTDEV,A6	SET SAVED WRITE POSITION 
	RTN	A15	RETURN 
	EJECT
* 
*********************************************************** 
* 
*	R E S C N 
* 
************************************************************
* 
* 
*	CALL:	CF A15,RESCN
* 
*	USED BY:	SCREEN SECTION,DEVICE DRIVER PART
* 
*	FUNCTION: 1. RESTORE, FROM DWTSN INTO DWTCN,
*		  SAVED WRITE POSITION TO BECOME CURRENT NEXT. 
*		2. RESTORE DWTDEV BIT 9 FROM BIT 10. 
* 
*	INPUT:	NONE.
* 
*	OUTPUT:	A2,A4 CHANGED.
* 
**************************************************************
* 
RESCN	EQU	* 
*	COPY DWTDEV BIT 10 INTO BIT 9 
	LD	A4,DWTDEV,A6	 
	ANK	A4,LCPBIT	GET BIT 10 (SET IF LAST COLUMN WRITTEN 
*			ALREADY BY PREVIOUS REQUEST)
	LDK	A2,LCWBIT	BIT 9 (SET IF LAST COLUMN WRITTEN) 
	C1R	A2,A2	COMPLEMENT 
	ANS	A2,DWTDEV,A6	RESET BIT 9 
	SLL	A4,1	SHIFT BIT 10 INTO BIT 9 
	ORS	A4,DWTDEV,A6	STORE INTO DWT
*	COPY DWTSN INTO DWTCN 
	LD	A2,DWTSN+DWTDEV,A6	GET SAVED NEXT WRITE POSITION
	ST	A2,DWTCN+DWTDEV,A6	RESTORE CURRENT NEXT WRITE POSITION
	RTN	A15	RETURN 
	EJECT
* 
**********************************************************
* 
*	S C R E E N   S E C T I O N 
*	L I N E   D R I V E R   P A R T 
*	A C T I V A T I O N   R O U T I N E S 
* 
**********************************************************
* 
* 
*	THEESE ACTIVATION ROUTINES ARE CALLED DIRECTLY
*	FROM THE SCREEN SECTION DEVICE DRIVER PART OF THIS DRIVER.
*	RETURN TO DEVICE DRIVER PART IS MADE VIA THE NETWORK DISTRIBUTOR. 
* 
* 
	EJECT
* 
***************************************************** 
* 
*	S T A W R I 
* 
***************************************************** 
* 
* 
*	CALL:	CF A5, STAWRI 
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION:TO DEFINE, FOR THIS CIO-REQUEST, 
*		THE START WRITE POSITION ON SCREEN.
* 
*	INPUT:	A2 = WRITE POSITION ON SCREEN
*		( /0101-/1850 )
*		A6 = DWT-ADDRESS 
* 
*	OUTPUT:	A1 = RETURN CODE
*		0 IF OK, NOT 0 IF ERROR
*		A2 = DESTROYED 
* 
******************************************************
* 
STAWRI	EQU	*
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 INTO DWT 
	CF	A15,CONPOS	CONVERT SCREEN POSITION
*			INTO SCREEN MEMORY DISPLACEMENT 
	CF	A15,IXTERM	INDEX SCREEN MEMORY DISPL. WITH TERM. NBR
	ST	A2,DWTLD1,A6	SAVE SCREEN MEMORY LOCATION
*			(=BIO FOR CIO START)
	CF	A15,CWTDWT	GET CWT FROM DWT 
	INH
	LD	A3,CWTDOS,A5	ANY DWT OCCUPYING SCREEN SECTION ? 
	RF(Z)	STAWR2	NO
STAWR1	EQU	*
	CF	A15,PUTQUE	PUT REQUESTING DWT INTO SCREEN QUEUE 
	ABL	TDISP	DISPATCH 
STAWR2	EQU	*
	ST	A6,CWTDOS,A5	OCCUPY SCREEN SECTION OF VCCU1/4 
	IFT	IOP=0
	RF	CLESC2	DO CIO START 
	XIF
	IFT	IOP=1
	CM	CWTBIN,A5	RESET INDEX IN IOP-BUFFER 
	ABL	NDREPO	POP REGISTERS, SET OK-STATUS AND RETURN 
	XIF
	EJECT
* 
****************************************************
* 
*	O U T C H A 
* 
****************************************************
* 
* 
*	CALL:	CF A5,OUTCHA
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION:TO OUTPUT ONE VIDEO CHARACTER
* 
*	INPUT:	A2 = ASCII-CHARACTER (/20-/7F) 
*		A6 = DWT-ADDRESS 
* 
*	OUTPUT:	A1 = RETURN CODE
*		      0 IF OK, NOT 0 IF ERROR
*		A2 = DESTROYED 
* 
******************************************************
* 
OUTCHA	EQU	*
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 INTO DWT 
* 
*	A 7-BIT ASCII-CHAR IS CONVERTED,
*	ACCORDING TO CHARACTER GENERATOR IN SYSTEM AND CURRENT DISPLAY MODE,
*	INTO A 11-BIT VIDEO-CHARACTER.
* 
	ANK	A2,/7F	CLEAR INSIGNIFICANT BITS
	LDK	A4,CODOUT-CODINP	LENGTH OF CONVERSION TABLE
OUTCH1	EQU	*
	SUK	A4,1	DECR INDEX IN TABLE. END OF TABLE ? 
	RF(N)	OUTCH2	YES 
	CC	A2,CODINP,A4	COMPARE CHAR WITH TABLE ELEMENT
	RB(NE)	OUTCH1	NOT EQUAL
	LC	A2,CODOUT,A4	CONVERT CHARACTER
OUTCH2	EQU	*
	LD	A3,DWTDEV,A6	GET DISPLAY-MODE 
	ANKL	A3,INTBIT+UNDBIT	BITS 
	ORR	A2,A3	INTO BIO 
* 
* 
	CF	A15,CWTDWT	GET CWT FROM DWT 
OUTCH3	EQU	*
	INH
	IFT	IOP=0
	EX	CWTOTS,A5	EXECUTE OTR ON SCREEN SECTION OF VCCU1/4
	ABL(NA)	LINER1	ERROR IF NOT ACCEPTED 
	ABL	TDISP	DISPATCH 
	XIF
	IFT	IOP=1
	LD	A3,CWTBIN,A5	GET WORD-INDEX IN IOP-BUFFER 
	ADR	A3,A3	CONVERT TO DISPLACEMENT IN BYTES 
	LDKL	A4,CWTBUF	GET ADDRESS TO IOP-BUFFER 
	ADR	A4,A5	IN CWT 
	ADR	A4,A3	INDEXING IN BUFFER 
	STR	A2,A4	STORE VIDEO-CHAR INTO IOP-BUFFER 
	IM	CWTBIN,A5	INCR BUFFER INDEX 
	ABL	NDREPO	POP REGISTERS, SET OK-STATUS AND RETURN 
	XIF
	EJECT
* 
****************************************************
* 
*	E N D W R I 
* 
***************************************************** 
* 
* 
*	CALL:	CF A5,ENDWRI
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION:TO END CURRENT CIO-WRITE-REQUEST 
* 
*	INPUT:	A6 = DWT-ADDRESS 
* 
*	OUTPUT:	A1 = RETURN CODE
*		     0 IF OK, NOT O IF ERROR 
*		A2 = DESTROYED 
* 
************************************************* 
* 
ENDWRI	EQU	*
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 INTO DWT 
	CF	A15,CWTDWT	GET CWT FROM DWT 
	INH
	IFT	IOP=0
	LDKL	A4,HLTFLA	FLAG HALT-ACTION REQUESTED
	ORS	A4,DWTST,A6	INTO DEVICE STATUS 
	ABL	IHS125	DO CIO HALT 
	XIF
	IFT	IOP=1
ENDWR1	EQU	*
	LD	A2,CWTBIN,A5	GET WORD-INDEX IN IOP-BUFFER 
	RF(NZ)	ENDWR2	INDEX NOT ZERO 
*	IF INDEX IS ZERO, THEN NO OUTPUT
	CM	CWTDOS,A5	SCREEN SECTION NO LONGER OCCUPIED 
	ABL	NDREPO	POP REGISTERS, SET OK-STATUS AND RETURN 
ENDWR2	EQU	*
	ORKL	A2,IOPPAR	WORD-MODE + READ-MEMORY TRANSFER
	EX	CWTWE1,A5	WRITE BUFFER LENGTH INTO IOP
	LDKL	A2,CWTBUF	GET ADDRESS TO IOP-BUFFER 
	ADR	A2,A5	IN CWT 
	EX	CWTWE2,A5	WRITE BUFFER ADDRESS INTO IOP 
	LDKL	A3,SSTFLA	FLAG SST-ACTION AT NEXT INTERRUPT 
	ORS	A3,DWTST,A6	INTO DEVICE STATUS 
	RF	CLESC2	DO CIO START 
	XIF
	EJECT
* 
*************************************************** 
* 
*	O U T C U R 
* 
*************************************************** 
* 
* 
*	CALL:	CF A5,OUTCUR
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION:TO OUTPUT THE VISUAL CURSOR
* 
*	INPUT:	A2 = REQUESTED  CURSOR POSITION ON SCREEN
*		      ( /0101 - /1850 )
*		A6 = DWT-ADDRESS 
* 
*	OUTPUT:	A1 = RETURN CODE
*		      0 IF OK, NOT 0 IF ERROR
*		A2 = DESTROYED 
* 
*************************************************** 
* 
OUTCUR	EQU	*
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 INTO DWT 
	CF	A15,CONPOS	CONVERT SCREEN POSITION
*			INTO SCREEN MEMORY DISPLACEMENT 
	CF	A15,IXTERM	INDEX SCREEN MEMORY DISPL. WITH TERM. NBR
	ST	A2,DWTLD2,A6	SAVE SCREEN MEMORY LOCATION
*			(=BIO FOR OTR)
	LDKL	A2,SMLCUR	SCREEN MEM.LOC. HOLDING CURSOR POS. 
	CF	A15,IXTERM	INDEX SCREEN MEMORY WITH TERMINAL NBR
	ST	A2,DWTLD1,A6	SAVE SCREEN MEMORY LOCATION
*			(=BIO FOR CIO-START)
	LDKL	A3,OTRFLA	FLAG OTR-ACTION AT NEXT INTERRUPT 
	ORS	A3,DWTST,A6	INTO DEVICE STATUS 
	CF	A15,CWTDWT	GET CWT FROM DWT 
	INH
	LD	A3,CWTDOS,A5	ANY DWT OCCUPYING SCREEN SECTION ? 
	RB(NZ)	STAWR1	YES. QUEUE REQUESTING DWT
OUTCU1	EQU	*
	ST	A6,CWTDOS,A5	OCCUPY SCREEN SECTION OF VCCU1/4 
	IFT	IOP=0
	RF	CLESC2	DO CIO START 
	XIF
	IFT	IOP=1
	LDKL	A3,OTRFLA	IF THEN RESET OTR-FLAG
	XRS	A3,DWTST,A6	IN DEVICE STATUS 
	LD	A3,DWTLD2,A6	GET SCREEN MEMORY CURSOR POSITION
OUTCU2	EQU	*
	ST	A3,CWTBUF,A5	STORE INTO IOP-BUFFER
	CM	CWTBIN,A5	RESET INDEX IN IOP-BUFFER 
	IM	CWTBIN,A5	INCR BUFFER INDEX 
	RB	ENDWR1	DO WER:S 
	XIF
	EJECT
* 
****************************************************
* 
*	C L E S C R 
* 
****************************************************
* 
* 
*	CALL:	CF A5,CLESCR
* 
*	USED BY:	SCREEN SECTION, DEVICE DRIVER PART 
* 
*	FUNCTION:TO CLEAR SCREEN, RESET CURSOR AND
*		RESET START WRITE POSITION.
* 
*	INPUT:	A6 = DWT-ADDRESS 
* 
*	OUTPUT:	A1 = RETURN CODE
*		       0 IF OK, NOT 0 OF ERROR 
*		A2 = DESTROYED 
* 
*************************************************** 
* 
CLESCR	EQU	*
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 INTO DWT 
	LDKL	A2,AUTCLE	SET BIO FOR AUTO-CLEAR
	CF	A15,IXTERM	INDEX WITH TERMINAL NUMBER 
	ST	A2,DWTLD1,A6	SAVE BIO FOR CIO START 
	LDKL	A3,HLTFLA	FLAG HALT-ACTION AT NEXT INTERRUPT
	ORS	A3,DWTST,A6	INTO DEVICE STATUS 
	CF	A15,CWTDWT	GET CWT FROM DWT 
	INH
	LD	A3,CWTDOS,A5	ANY DWT OCCUPYING SCREEN SECTION ? 
	RB(NZ)	STAWR1	YES. QUEUE REQUESTING DWT
CLESC1	EQU	*
	ST	A6,CWTDOS,A5	OCCUPY SCREEN SECTION OF VCCU1/4 
	IFT	IOP=1
	LDKL	A3,HLTFLA	RESET HALT-FLAG 
	XRS	A3,DWTST,A6	IN DEVICE STATUS 
	LDKL	A3,/0120	SPACE (HIGH-INTENSITY MODE)
	RB	OUTCU2	STORE INTO IOP-BUFFER AND DO WER:S 
	XIF
CLESC2	EQU	*
	LD	A3,PFPOST	GET POWER FAIL POST PROCESSING FLAG 
	ABL(NZ)	LINER5	FLAG SET: I/O-INSTRUCTIONS NOT ALLOWED. 
	LD	A2,DWTLD1,A6	GET BIO FOR CIO START
	EX	CWTCSS,A5	CIO START ON SCREEN SECTION OF VCCU1/4
	ABL(NA)	LINER0	ERROR IF NOT ACCEPTED 
CLESC3	EQU	*
	LD	A6,CWTSRD,A5	ANY SST-READY DWT ?
	ABL(Z)	TDISP	NO. DISPATCH
	CM	CWTSRD,A5	YES. RESET SAVE-AREA
	ABL	NDREPO	POP REGISTERS, SET OK-STATUS AND RETURN 
	EJECT
* 
***************************************************** 
* 
*	S C R E E N   S E C T I O N 
*	L I N E   D R I V E R   P A R T 
*	I N T E R R U P T   R O U T I N E S 
* 
***************************************************** 
* 
* 
*	ENTERED:	VIA THE INTERRUPT VECTOR 
* 
*	FUNCTIONS FOR EACH INTERRUPT ROUTINE: 
* 
*	1. SAVE START ADDRESS OF ENTERED INTERRUPT ROUTINE. 
*	2. SAVE A1-A8 ONTO STACK. 
*	3. GET CWT-ADDRESS FOR ENTERED INTERRUPT ROUTINE. 
*	4. GET THE DWT OCCUPYING THE SCREEN SECTION OF THIS CWT.
*	5. TEST CHANNEL UNIT STATUS.
*	6. TEST AND UPDATE INTERRUPT-ACTION-FLAGS,
*	   GO TO ERROR ROUTINE, OR: 
*	7. GO TO APROPRIATE ACTIVATION ROUTINE, 
*	   IN SCREEN SECTION LINE DRIVER PART,
*	   OR 
*	   GET DWT FROM OUTPUT QUEUE, 
*	   AND GO TO APROPRIATE ACTIVATION ROUTINE. 
* 
* 
* 
*	ON EXIT:	A5 = CWT-ADDRESS 
*		A6 = DWT-ADDRESS 
* 
*********************************************************** 
* 
* 
* 
	EJECT
* 
* 
*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 1 
* 
IHSVU1	EQU	*
	IFT	VUCHAN=1 
IHSVU2	EQU	*
IHSVU3	EQU	*
IHSVU4	EQU	*
IHSVU5	EQU	*
IHSVU6	EQU	*
IHSVU7	EQU	*
IHSVU8	EQU	*
	XIF
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	LDKL	A5,CWTVU1	SET CWT-ADDRESS FOR VCCU1/4 NO 1
	IFF	VUCHAN=1 
	RF	IHS100
* 
*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 2 
* 
IHSVU2	EQU	*
	XIF
	IFT	VUCHAN=2 
IHSVU3	EQU	*
IHSVU4	EQU	*
IHSVU5	EQU	*
IHSVU6	EQU	*
IHSVU7	EQU	*
IHSVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	LDKL	A5,CWTVU2	SET CWT-ADDRESS FOR VCCU1/4 NO 2
	XIF
	IFT	VUCHAN=2 
IHS100	EQU	*
* 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	RF	IHS100
* 
*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 3 
* 
IHSVU3	EQU	*
	XIF
	IFT	VUCHAN=3 
IHSVU4	EQU	*
IHSVU5	EQU	*
IHSVU6	EQU	*
IHSVU7	EQU	*
IHSVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	LDKL	A5,CWTVU3	SET CWT-ADDRESS FOR VCCU1/4 NO 3
	XIF
	IFT	VUCHAN=3 
IHS100	EQU	*
* 
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	RF	IHS100
* 
*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 4 
* 
IHSVU4	EQU	*
	XIF
	IFT	VUCHAN=4 
IHSVU5	EQU	*
IHSVU6	EQU	*
IHSVU7	EQU	*
IHSVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	LDKL	A5,CWTVU4	SET CWT-ADDRESS FOR VCCU1/4 NO 4
	XIF
	IFT	VUCHAN=4 
IHS100	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	RF	IHS100
* 
*	INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 5 
* 
IHSVU5	EQU	*
	XIF
	IFT	VUCHAN=5 
IHSVU6	EQU	*
IHSVU7	EQU	*
IHSVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	LDKL	A5,CWTVU5	SET CWT-ADDRESS FOR VCCU1/4 NO 5
	XIF
	IFT	VUCHAN=5 
IHS100	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	RF	IHS100
* 
*	INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 6 
* 
IHSVU6	EQU	*
	XIF
	IFT	VUCHAN=6 
IHSVU7	EQU	*
IHSVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	LDKL	A5,CWTVU6	SET CWT-ADDRESS FOR VCCU1/4 NO 6
	XIF
	IFT	VUCHAN=6 
IHS100	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	RF	IHS100
* 
*	INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 7 
* 
IHSVU7	EQU	*
	XIF
	IFT	VUCHAN=7 
IHSVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	LDKL	A5,CWTVU7	SET CWT-ADDRESS FOR VCCU1/4 NO 7
	XIF
	IFT	VUCHAN=7 
IHS100	EQU	*
	XIF
	IFT	VUCHAN=8 
	RF	IHS100
* 
*	INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 8 
* 
IHSVU8	EQU	*
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFT	VUCHAN=8 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFT	VUCHAN=8 
	LDKL	A5,CWTVU8	SET CWT-ADDRESS FOR VCCU1/4 NO 8
IHS100	EQU	*
	XIF
	EJECT
* 
* 
* 
*	COMMON PART FOR ALL SCREEN SECTION LINE DRIVER INTERRUPT ROUTINES 
* 
* 
	LD	A6,CWTDOS,A5	GET DWT OCCUPYING SCREEN SECTION OF CWT
	ABL(Z)	LINER4	IF NOT OCCUPYED: CIO HALT+SST+DISPATCH 
IHS110	EQU	*
	EX	CWTSST,A5	EXECUTE SST ON SCREEN SECTION OF VCCU1/4
	RF(NA)	IHS120	NOT ACCEPTED 
	LD	A3,DWTST,A6	GET DEVICE STATUS 
	ANKL	A3,SSTFLA	TEST SST-ACTION FLAG
	ABL(Z)	LINER3	ERROR IF NOT SET 
* 
*	END OF CIO-REQUEST
* 
	XRS	A3,DWTST,A6	RESET SST-ACTION FLAG
	ST	A6,CWTSRD,A5	SAVE SST-READY DWT 
	CM	CWTDOS,A5	SCREEN SECTION NO LONGER OCCUPYED 
* 
*	GET AND CHECK QUEUED DWT
* 
	CF	A15,GETQUE	GET QUEUED DWT FROM SCREEN QUEUE 
	ADK	A6,0	ANY QUEUED DWT ?
	RB(Z)	CLESC3	NO. GET SAVED SST-READY DWT 
	LD	A3,DWTST,A6	YES. GET DEVICE STATUS
	LDR	A4,A3	 
	ANKL	A4,HLTFLA	TEST HALT-ACTION FLAG 
	RB(NZ)	CLESC1	IF SET: CLEAR WAS QUEUED 
	ANKL	A3,OTRFLA	TEST OTR-ACTION FLAG
	ABL(NZ)	OUTCU1	IF SET: OUTPUT CURSOR WAS QUEUED
	ABL	STAWR2	ELSE: WRITE SCREEN WAS QUEUED 
	EJECT
* 
*	SST NOT ACCEPTED
* 
IHS120	EQU	*
	LD	A3,DWTST,A6	GET DEVICE STATUS 
	LDR	A4,A3	 
	ANKL	A4,SSTFLA	TEST SST-ACTION FLAG
	ABL(NZ)	LINER2	ERROR IF SET
	LDR	A4,A3	 
	ANKL	A4,HLTFLA	TEST HALT-ACTION FLAG 
	RF(Z)	IHS130	NOT SET 
* 
*	HALT-FLAG IS SET. DO CIO HALT.
* 
IHS125	EQU	*
	XRS	A4,DWTST,A6	RESET HALT-ACTION FLAG 
	EX	CWTCHS,A5	CIO HALT ON SCREEN SECTION OF VCCU1/4 
	LDKL	A3,SSTFLA	FLAG SST-ACTION REQUESTED 
	ORS	A3,DWTST,A6	INTO DEVICE STATUS 
	RB	IHS110	DO SST 
IHS130	EQU	*
	ANKL	A3,OTRFLA	TEST OTR-ACTION FLAG
	ABL(Z)	NDREPO	POP REGISTERS, SET OK-STATUS AND RETURN
* 
*	OTR-FLAG IS SET: DO OTR-CURSOR. 
* 
	XRS	A3,DWTST,A6	RESET OTR-ACTION FLAG
	LDKL	A3,HLTFLA	FLAG HALT-ACTION AT NEXT INTERRUPT
	ORS	A3,DWTST,A6	INTO DEVICE STATUS 
	LD	A2,DWTLD2,A6	GET BIO FOR OTR-CURSOR 
	ABL	OUTCH3	DO OTR-CURSOR 
	EJECT
* 
****************************************************
* 
*	S C R E E N   S E C T I O N 
*	L I N E   D R I V E R   P A R T 
*	E R R O R   R O U T I N E S 
* 
***************************************************** 
* 
* 
*	-LINER0	CIO START NOT ACCEPTED
*	-LINER1	OTR NOT ACCEPTED
*	-LINER2	SST NOT ACCEEPTED 
*	-LINER3	SST UNEXPECTEDLY ACCEPTED (AFTER CIO START OR OTR,
*		BUT BEFORE CIO HALT) 
*	-LINER4	UNEXPECTED INTERRUPT
*	-LINER5	I/O-INSTRUCTIONS TRIED DURING POWER FAIL POST PROCESSING
* 
* 
	EJECT
* 
************************************************* 
* 
*	L I N E R X   ( X = 0,1,2,3,4,5 ) 
* 
************************************************* 
* 
* 
*	CALL:	ABL LINERX  ( X = 0,1,2,3,4,5 ) 
* 
*	USED BY:	SCREEN SECTION, LINE DRIVER PART 
* 
*	FUNCTION:1.TO RESET VCCU1/4 CONTROL UNIT SCREEN SECTION 
*		 AFTER I/O-ERROR, (LINER0-4) 
*		2. INDICATE THE ERROR IN THE RETURN CODE 
*		AND RETURN TO DEVICE DRIVER PART 
*		 VIA NETWORK DISTRIBUTOR (LINER0-3, LINER5)
*		3. DISPATCH. (LINER4)
* 
*	INPUT:	A5 = CWT-ADDRESS 
*		A6 = DWT-ADDRESS (IF LINER0-3) 
* 
*	OUTPUT:	A1 = RETURN CODE (IF LINER0-3, LINER5)
*		      /8000 IF LINER0
*		      /4000 IF LINER1
*		      /2000 IF LINER2
*		      /1000 IF LINER3
*		      /0800 IF LINER5
* 
*********************************************** 
* 
LINER0	EQU	*
	LDKL	A1,CIOERR	SET STATUS BIT 0
LINERR	EQU	*
	EX	CWTCHS,A5	CIO HALT ON SCREEN SECTION OF VCCU1/4 
	EX	CWTSST,A5	SST ON SCREEN SECTION OF VCCU1/4
LINERP	EQU	*
	CM	CWTDOS,A5	SCREEN SECTION NO LONGER OCCUPYED 
	LDKL	A3,OTRFLA+HLTFLA	GET ACTION-FLAGS 
	ADKL	A3,SSTFLA	ALL ACTION-FLAGS
	C1R	A3,A3	COMPLEMENT 
	ANS	A3,DWTST,A6	RESET ALL ACTION-FLAGS 
	ABL	NDREP	POP REGISTERS AND RETURN WITH A1=STATUS
* 
LINER1	EQU	*
	LDKL	A1,OTRERR	SET STATUS BIT 1
	RB	LINERR	 
* 
LINER2	EQU	*
	LDKL	A1,SSTERR	SET STATUS BIT 2
	RB	LINERR	 
* 
LINER3	EQU	*
	LDKL	A1,SSTER2	SET STATUS BIT 3
	RB	LINERR	 
* 
LINER4	EQU	*	UNEXPECTED INTERRUPT 
	EX	CWTCHS,A5	CIO HALT ON SCREEN SECTION OF VCCU1/4 
	EX	CWTSST,A5	SST ON SCREEN SECTION OF VCCU1/4
	ABL	TDISP	DISPATCH 
* 
LINER5	EQU	*	I/O-INSTRUCTIONS TRIED DURING PFPOST 
	LDKL	A1,PFERR	SET STATUS BIT 4 
	RB	LINERP
	EJECT
* 
************************************************* 
* 
*	S C R E E N   S E C T I O N 
*	L I N E   D R I V E R   P A R T 
*	S U B - R O U T I N E S 
* 
************************************************
* 
* 
*	-CONPOS	CONVERT SCREEN POSITION INTO SCREEN MEMORY DISPLACEMENT 
*	-IXTERM	INDEX SCREEN MEMORY DISPLACEMENT WITH TERMINAL NUMBER 
*	-CWTDWT	GET CWT-ADDRESS FROM DWT-ADDRESS
*	-PUTQUE	PUT DWT INTO SCREEN OUTPUT QUEUE
*	-GETQUE	GET DWT FROM SCREEN OUTPUT QUEUE
* 
* 
	EJECT
* 
********************************************************* 
* 
*	C O N P O S 
* 
********************************************************* 
* 
* 
*	CALL:	CF A15,CONPOS 
* 
*	USED BY:	SCREEN SECTION, LINE DRIVER PART 
* 
*	FUNCTION:TO CONVERT A SCREEN POSITION 
*		INTO A SCREEN MEMORY DISPLACEMENT
* 
*	INPUT:	A2 = BITS 0-7: SCREEN POSITION ROW NUMBER 1-24 HEXADECIMAL 
*		      BITS 8-15: SCREEN POSITION COLUMN NUMBER 1-80 HEXADECIMAL
* 
*	OBS:	NO CHECK IS MADE HERE, THAT INPUT IS WITHIN /0101-/1850
* 
*	OUTPUT:	A2 = SCREEN MEMORY DISPLACEMENT /0000-/077F 
*		A3 = DESTROYED 
* 
********************************************************* 
* 
CONPOS	EQU	*
	SUKL	A2,/0101	SCREEN HOME POSITION IS DEFINED /0101
	LDR	A3,A2	SAVE INPUT 
	ANK	A2,/FF	GET MODULO 80 
*	MULTIPLY (LINENUMBER-1) WITH 80 (=64+16)
	ANKL	A3,/FF00	ALREADY MULTIPLIED WITH 256
	SRL	A3,2	NOW ONLY MULTIPLIED WITH 64 
	ADR	A2,A3	ADD
	SRL	A3,2	NOW ONLY MULTIPLIED WITH 16 
	ADR	A2,A3	ADD
	RTN	A15	RETURN 
	EJECT
* 
********************************************************* 
* 
*	I X T E R M 
* 
********************************************************* 
* 
* 
*	CALL:	CF A15,IXTERM 
* 
*	USED BY:	SCREEN SECTION, LINE DRIVER PART 
* 
*	FUNCTION:TO INDEX A SCREEN MEMORY DISPLACEMENT
*		WITH THE TERMINAL NUMBER OF CURRENT DWT
* 
*	INPUT:	A2 = SCREEN MEMORY DISPLACEMENT
*		A6 = DWT-ADDRESS 
* 
*	OUTPUT:	A2 = SCREEN MEMORY LOCATION 
*		A3 = DESTROYED 
* 
******************************************************* 
* 
IXTERM	EQU	*
	LD	A3,DWTCP2,A6	GET CHANNEL PARAMETERS 2 
	ANKL	A3,/300	GET TERMINAL NUMBER (0-3) 
	SLL	A3,3	INTO BITS 3 AND 4 
	ORR	A2,A3	COMBINE WITH SCREEN MEMORY DISPLACEMENT
	RTN	A15	RETURN 
	EJECT
* 
********************************************************* 
* 
*	C W T D W T 
* 
********************************************************* 
* 
* 
*	CALL:	CF A15,CWTDWT 
* 
*	USED BY:	SCREEN SECTION, LINE DRIVER PART 
* 
*	FUNCTION:TO GET THE CWT-ADDRESS FOR THE CWT USED BY CURRENT DWT 
* 
*	INPUT:	A6 = DWT-ADDRESS 
* 
*	OUTPUT:	A5 = CWT-ADDRESS
*		NO DESTROYED REGISTERS 
* 
************************************************************* 
* 
CWTDWT	EQU	*
	LDR*	A5,A6	GET DWTCHP-CONTENTS 
	ANK	A5,/F	BITS 12-15 = CHANNEL UNIT INDEX
	ADR	A5,A5	GET CWTTAB-DISPLACEMENT FROM INDEX 
	ADK	A5,2	SKIP TABLE LENGTH ITEM
	LD	A5,CWTTAB,A5	GET CWT-ADDRESS INTO A5
	RTN	A15	RETURN 
	EJECT
* 
**************************************************************
* 
*	P U T Q U E 
* 
************************************************************* 
* 
* 
*	CALL:	CF A15,PUTQUE 
* 
*	USED BY:	SCREEN SECTION, LINE DRIVER PART 
* 
*	FUNCTION:TO QUEUE A DWT LAST IN SCREEN ECHO OUTPUT QUEUE, 
*		IF DWT IN ECHO MODE, ELSE LAST IN SCREEN LKM OUTPUT QUEUE. 
* 
*	INPUT:	A5 = CWT-ADDRESS 
*		A6 =DWT-ADDRESS
* 
*	OUTPUT:	A3,A4,A7 = DESTROYED
* 
*********************************************************** 
* 
PUTQUE	EQU	*
* 
*	SELECT ECHO- OR LKM-QUEUE 
* 
	LD	A7,DWTST,A6	GET DEVICE STATUS 
	ANKL	A7,/2000	DEVICE IN ECHO MODE ?
	RF(Z)	PUTQ05	NO
	LDKL	A7,CWTSEQ	GET SCREEN ECHO OUTPUT QUEUE
	RF	PUTQ07	 
PUTQ05	EQU	*
	LDKL	A7,CWTSLQ	GET SCREEN LKM OUTPUT QUEUE 
PUTQ07	EQU	*
	ADR	A7,A5	ANCHOR 
* 
*	QUEUE DWT INTO SELECTED QUEUE 
* 
	LDR*	A4,A7	GET FIRST QUEUED DWT. QUEUE EMPTY ? 
	RF(Z)	PUTQ20	YES 
PUTQ10	EQU	*
	CWR	A6,A4	CURRENT DWT ALREADY IN QUEUE ? 
	RF(E)	PUTQ60	YES 
	LD	A3,DWTOTQ,A4	GET DWT NEXT IN QUEUE
	RF(Z)	PUTQ30	END OF QUEUE FOUND
	LDR	A4,A3	FOLLOW THE QUEUE 
	RB	PUTQ10
PUTQ20	EQU	*
	STR	A6,A7	QUEUE DWT, IF QUEUE WAS EMPTY
	RF	PUTQ40	 
PUTQ30	EQU	*
	ST	A6,DWTOTQ,A4	QUEUE DWT, IF QUEUE WAS NOT EMPTY
PUTQ40	EQU	*
	CM	DWTOTQ,A6	SET END OF QUEUE
PUTQ60	EQU	*
	IFT	CPU852=1 
	ABL	IHRTN	RETURN IN INHIBIT MODE 
	XIF
	IFT	CPU852=0 
	RTN	A15	RETURN 
	XIF
	EJECT
* 
***************************************************** 
* 
*	G E T Q U E 
* 
***************************************************** 
* 
* 
*	CALL:	CF A15,GETQUE 
* 
*	USED BY:	SCREEN SECTION, LINE DRIVER PART 
* 
*	FUNCTION:TO GET FIRST DWT FROM SCREEN ECHO OUTPUT QUEUE,
*		OR, IF ECHO OUTPUT QUEUE IS EMPTY, 
*		FROM SCREEN LKM OUTPUT QUEUE.
* 
*	INPUT:	A5 = CWT-ADDRESS 
* 
*	OUTPUT:	A6 = DWT-ADDRESS (OR 0 IF NO DWT IN QUEUES) 
*		A3 = DESTROYED 
* 
***************************************************** 
* 
GETQUE	EQU	*
	LD	A6,CWTSEQ,A5	GET FIRST DWT FROM ECHO OUTPUT QUEUE 
	RF(Z)	GETQ10	ECHO QUEUE EMPTY
	LD	A3,DWTOTQ,A6	GET QUEUE LINK 
	ST	A3,CWTSEQ,A5	STORE IT INTO CWT
	RF	GETQ30	 
GETQ10	EQU	*
	LD	A6,CWTSLQ,A5	GET FIRST DWT FROM LKM OUTPUT QUEUE
	RF(Z)	GETQ30	ALSO LKM QUEUE EMPTY
	LD	A3,DWTOTQ,A6	GET QUEUE LINK 
	ST	A3,CWTSLQ,A5	STORE IT INTO CWT
GETQ30	EQU	*
	IFT	CPU852=1 
	ABL	IHRTN	RETURN IN INHIBIT MODE 
	XIF
	IFT	CPU852=0 
	RTN	A15	RETURN 
	XIF
	EJECT
* 
****************************************************
* 
*	P E R I P H E R A L   S E C T I O N 
*	L I N E   D R I V E R   P A R T 
*	A C T I V A T I O N   R O U T I N E S 
* 
********************************************************* 
* 
*	FOR THE PERIPHERAL SECTION OF THE VCCU1/4 
*	THIS DRIVER IS A LINE-DRIVER ONLY,
*	WHICH IS USED BY SEPARATE TERMINAL DEVICE DRIVERS.
*	BELOW APPEARS THOSE ACTIVATION ROUTINES WHICH ARE USING THE 
*	PERIPHERAL SECTION OF THE VCCU1/4.
*	THE ACTIVATION ROUTINES ARE CALLED FROM TERMINAL DEVICE DRIVERS 
*	VIA THE NETWORK DISTRIBUTOR.
* 
* 
********************************************************
* 
*   CHARACTER INPUT 
* 
VUCHRI	EQU	*
	LDK	A2,/20 
	ORS	A2,DWTST,A6	SET INPUT REQUESTED IN DWT 
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 IN DWT 
	RF	VUDISP	VIDEO DISPATCHER 
* 
*   START OF A BLOCK
* 
VUSTBL	EQU	*
* 
*   END OF A BLOCK
* 
VUENBL	EQU	*
	ABL	NDRETO	RETURN TO DEVICE DRIVER. STATUS = OK. 
* 
*   VIDEO DISPATCHER
* 
VUDISP	EQU	*
	ABL	TDISP	GO TO DISPATCHER 
* 
* 
*   CHARACTER OUTPUT
* 
VUCHRO	EQU	*
	EJECT
* 
******************************************************* 
* 
* 
*    FUNCTIONS: 
* 
*	1. SAVE A1-A8 ONTO STACK
*	2. INHIBIT INTERRUPTS 
*	3. COMPUTE CWT FROM DWT 
*	4. TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY 
*	5.      IF NOT THEN TEST IF DWT IS ALREADY IN CWT OUTPUT QUEUE, 
*	                        FOR PERIPHERAL SECTION
*	                         IF NOT THEN QUEUE THE DWT LAST IN QUEUE, 
*	                          STORE OUTPUT-CHARACTER INTO QUEUED DWT, 
*	                          AND THEN DISPATCH.
*	                          ELSE: 
*	7.                        STORE OUTPUT-CHAR INTO ALREADY QUEUED DWT,
*	                          AND THEN DISPATCH.
*	               ELSE:
*	8.             PREPARE TO SEND THE CHAR TO THE CHANNEL
*	9.             TEST IF THE DWT IS FOR DEVICE ON PERIPHERAL
*	               SECTION ON CHANNEL.
*	                    IF NOT THEN NO OUTPUT,
*	                           ELSE:
*	10.                           OUTPUT CHARACTER. 
*	11.           IF OTR ACCEPTED 
*	                     STORE INTO DWT THE CHAR BEING OUTPUT 
*	                        AND RETURN TO DEVICE DRIVER.
*	12.            IF CHAR NOT ACCEPTED BY CHANNEL THEN 
*	                        TEST IF CWT OUTPUT QUEUE IS EMPTY.
*	                        IF SO THEN: 
*	13. 
*	                       START TIMER
*	                           AND SET OUTPUT QUEUE TIMER POINTER IN CWT. 
*	14.                        GO QUEUE DWT INTO CWT OUTPUT QUEUE 
*	                           AND DISPATCH.(5-7) 
* 
* 
* 
*     ON ENTRY: 
* 
*     A2 = OUTPUT CHARACTER IN RIGHT BYTE 
*     A6 = DWT-ADDRESS
************************************************************
* 
* 
* 
	EJECT
OUTPER	EQU	*
	CF	A15,NDSAV8	SAVE A3-A5, A7-A8 IN DWT 
* 
*	GET CWT FOR THIS DWT
* 
	INH		INHIBIT INTERRUPT 
	LDR*	A1,A6	CHANNEL PARAMETER 
	ANK	A1,/F	CHANNEL INDEX
	SLL	A1,1 
	ADK	A1,2 
	LD	A5,CWTTAB,A1	GET CWT-ADDRESS INTO A5
	RB(Z)	VUDISP	 IF NO CWT: DISPATCH
* 
*	TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY
* 
	LD	A4,CWTPQ,A5	IS OUTPUT QUEUE EMPTY ? 
	RF(NZ)	PER560	NO. THEN QUEUE DWT AND DISPATCH
	EJECT
* 
*    PREPARE TO SEND CHARACTER
* 
PER500	EQU	*
	LD	A3,DWTCP2,A6	GET CHANNEL PARAMETERS 2 
	LDR	A4,A3
	ANK	A3,/3	DEVICE ADDRESS 
* 
*	TEST IF THE DEVICE IS ON THE PERIPHERAL SECTION OF CHANNEL
* 
	SUK	A3,1	DEVICE-ADDRESS = 0 ?
	RF(N)	PER520	IF SO, NO OUTPUT
	SUK	A3,2	DEVICE-ADDRESS = 3 ?
	RF(Z)	PER520	IF SO, NO OUTPUT
* 
*	IF NOT POWER FAIL POST PROCESSING, THEN 
*	SEND CHARACTER TO CHANNEL 
* 
	ADK	A3,2	COMPUTE DEVICE-ADDRESS FOR BIO
	SRC	A3,6 
	ANKL	A4,/300	TERMINAL NUMBER 
	ORR	A3,A4	COMBINE DEV.ADDR. AND TERMINAL NUMBER
	ANK	A2,/FF 
	ORR	A2,A3	BIO IS READY-MADE
	LD	A3,PFPOST	GET POWER FAIL POST PROCESSING FLAG 
	RF(NZ)	PER510	FLAG SET: I/O-INSTRUCTIONS NOT ALLOWED.
	EX	CWTOTP,A5	EXECUTE OTR ON PERIPHERAL SECTION 
	RF(NA)	PER510	OTR NOT ACCEPTED 
* 
*	OTR IS ACCEPTED.
*	SAVE OUTPUT CHARACTER INTO DWT, 
*	THEN RETURN TO DEVICE DRIVER. 
* 
	SC	A2,DWTOCH,A6	SAVE OUTPUT
	ABL	NDREPO	POP REGISTERS,SET OK-STATUS AND RETURN
* 
*	OTR IS NOT ACCEPTED.
*	TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY. 
* 
PER510	EQU	*
	LD	A4,CWTPQ,A5	IS OUTPUT QUEUE EMPTY ? 
	RF(NZ)	PER560	NO. THEN ONLY QUEUE DWT, AND DISPATCH. 
* 
*	OUTPUT QUEUE IS EMPTY, THEN 
*	1.START TIMER (AND SET TIMER POINTER).
*	2.QUEUE DWT.
*	3.DISPATCH
* 
* 
PER520	EQU	*
	LDKL	A4,CWTTP	TIMER POINTER
	ADR	A4,A5	ADD WITH CWT-ADDRESS 
	LDR	A1,A5	PARAMETER (=CWT-ADDRESS) INTO A1 
	CF	A15,SETIMP	GET TIMER BLOCK
	DATA	TIMOUT,QUETIM	ADDRESS TO TIME-OUT ROUTINE AND DELAY 
	RF	PER570	QUEUE DWT WHEN QUEUE WAS EMPTY 
	EJECT
* 
*    QUEUE OUTPUT 
*	WHEN QUEUE NOT EMPTY (A4 POINTS TO FIRST QUEUED DWT)
* 
PER560	CWR	A6,A4
	RF(E)	PER600	THIS DWT IS ALREADY IN PERIPHERAL QUEUE 
	LD	A3,DWTOTQ,A4	GET DWT NEXT IN PERIPHERAL QUEUE 
	RF(Z)	PER580	END OF QUEUE FOUND
	LDR	A4,A3	FOLLOW THE QUEUE 
	RB	PER560
* 
*	QUEUE OUTPUT WHEN QUEUE IS EMPTY
* 
PER570	ST	A6,CWTPQ,A5	QUEUE DWT, IF QUEUE WAS EMPTY 
	RF	PER590
PER580	ST	A6,DWTOTQ,A4	QUEUE DWT, IF QUEUE WAS NOT EMPTY
PER590	CM	DWTOTQ,A6	SET END OF QUEUE
PER600	EQU	*
	SC	A2,DWTOCH,A6	STORE CHARACTER INTO DWT 
	RB	VUDISP	DISPATCH 
* 
	EJECT
* 
******************************************* 
* 
*	P E R I P H E R A L   S E C T I O N 
*	L I N E   D R I V E R   P A R T 
*	I N T E R R U P T   H A N D L E R 
* 
********************************************
* 
*	FOR THE PERIPHERAL SECTION OF THE VCCU1/4 
*	THIS DRIVER IS A LINE DRIVER ONLY, WHICH IS USED BY 
*	SEPARATE TERMINAL DEVICE DRIVERS. 
*	BELOW APPEARS THE INTERRUPT HANDLING ROUTINES,
*	USING THE PERIPHERAL SECTION OF THE VCCU1/4.
*	THE ROUTINES ARE OF TWO KINDS:
* 
*	1. INTERRUPT HANDLER FOR DATA INPUT.
*	   THEESE INTERRUPT ROUTINES ARE ENTERED VIA THE INTERRUPT VECTOR.
* 
*	2. INTERRUPT HANDLER FOR DATA OUTPUT. 
*	   THIS INTERRUPT ROUTINE IS ENTERED FROM THE MONITOR CLOCK ROUTINE,
*	   AT SOFTWARE TIME-OUT.
* 
	EJECT
* 
* 
****************************************************
*   THIS IS THE INTERRUPT HANDLER FOR 
*   DATA INPUT TO THE PERIPHERAL SECTION OF VCCU1/4.
******************************************************* 
* 
* 
* 
*    ENTERED: 
*	    VIA THE INTERRUPT VECTOR. 
* 
* 
*    FUNCTIONS FOR EACH INTERRUPT ROUTINE:
* 
*	1. SAVE START ADDRESS OF ENTERED ROUTINE
*	2. SAVE A1-A8 ONTO STACK
*	3. GET CWT-ADDRESS FOR ENTERED INTERRUPT ROUTINE
*	4. GET THE DATA INPUT FROM CHANNEL UNIT 
*	5. COMPUTE DWT FROM DATA INPUT
*	 IF NO DWT EXISTS THEN EXIT,
*	 ELSE:
*	6. TEST IF STATUS- OR DATA-INPUT
*	   IF STATUS-INPUT: INCREMENT ERROR ACKUMULATOR IN CWT AND THEN EXIT, 
*	   ELSE 
*	7. TEST IF DWT BELONGS TO INPUT-DEVICE. 
*	        IF NOT THEN EXIT, 
*	        ELSE: 
*	8.      TEST IF INPUT REQUESTED OR NOT
*	   IF INPUT REQUESTED: RETURN TO DEVICE DRIVER VIA NETWORK DISTRIBUTOR
*	        ELSE: 
*	9.      TEST IF ANY INTERRUPT ROUTINE DEFINED FOR THIS DEVICE 
*	             IF NOT THEN EXIT 
*	            ELSE: 
*	    ENTER DEVICE DEPENDANT INTERRUPT HANDLER. 
* 
* 
* 
*	ON EXIT:
*	        A2 = INPUT CHARACTER IN RIGHT BYTE
*	        A6 = DWT ADDRESS
* 
****************************************************
* 
* 
*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 1 
* 
IHPVU1	EQU	*
	IFT	VUCHAN=1 
IHPVU2	EQU	*
IHPVU3	EQU	*
IHPVU4	EQU	*
IHPVU5	EQU	*
IHPVU6	EQU	*
IHPVU7	EQU	*
IHPVU8	EQU	*
	XIF
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	LDKL	A5,CWTVU1	SET CWT-ADDRESS FOR VCCU1/4 NO 1
	IFT	VUCHAN=1 
	EX	CWTINR,A5	EXECUTE INR INSTRUCTION 
* 
	XIF
	IFF	VUCHAN=1 
	RF	IHP100
* 
*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 2 
* 
IHPVU2	EQU	*
	XIF
	IFT	VUCHAN=2 
IHPVU3	EQU	*
IHPVU4	EQU	*
IHPVU5	EQU	*
IHPVU6	EQU	*
IHPVU7	EQU	*
IHPVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	LDKL	A5,CWTVU2	SET CWT-ADDRESS FOR VCCU1/4 NO 2
	XIF
	IFT	VUCHAN=2 
IHP100	EX	CWTINR,A5	EXECUTE INR-INSTRUCTION 
* 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	RF	IHP100
* 
*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 3 
* 
IHPVU3	EQU	*
	XIF
	IFT	VUCHAN=3 
IHPVU4	EQU	*
IHPVU5	EQU	*
IHPVU6	EQU	*
IHPVU7	EQU	*
IHPVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	LDKL	A5,CWTVU3	SET CWT-ADDRESS FOR VCCU1/4 NO 3
	XIF
	IFT	VUCHAN=3 
IHP100	EX	CWTINR,A5	EXECUTE INR 
* 
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	RF	IHP100
*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 4 
* 
IHPVU4	EQU	*
	XIF
	IFT	VUCHAN=4 
IHPVU5	EQU	*
IHPVU6	EQU	*
IHPVU7	EQU	*
IHPVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	LDKL	A5,CWTVU4	SET CWT-ADDRESS FOR VCCU1/4 NO 4
	XIF
	IFT	VUCHAN=4 
IHP100	EX	CWTINR,A5	EXECUTE INR 
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	RF	IHP100
* 
*	INTERRUPT FROM PERIPHERAL SECTION OV VCCU1/4 NO 5 
* 
IHPVU5	EQU	*
	XIF
	IFT	VUCHAN=5 
IHPVU6	EQU	*
IHPVU7	EQU	*
IHPVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	LDKL	A5,CWTVU5	SET CWT-ADDRESS FOR VCCU1/4 NO 5
	XIF
	IFT	VUCHAN=5 
IHP100	EX	CWTINR,A5	EXECUTE INR 
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	RF	IHP100
* 
*	INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 6 
* 
IHPVU6	EQU	*
	XIF
	IFT	VUCHAN=6 
IHPVU7	EQU	*
IHPVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	LDKL	A5,CWTVU6	SET CWT-ADDRESS FOR VCCU1/4 NO 6
	XIF
	IFT	VUCHAN=6 
IHP100	EX	CWTINR,A5	EXECUTE INR 
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	RF	IHP100
* 
*	INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 7 
* 
IHPVU7	EQU	*
	XIF
	IFT	VUCHAN=7 
IHPVU8	EQU	*
	XIF
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFF	VUCHAN=1 
	IFF	VUCHAN=2 
	IFF	VUCHAN=3 
	IFF	VUCHAN=4 
	IFF	VUCHAN=5 
	IFF	VUCHAN=6 
	LDKL	A5,CWTVU7	SET CWT-ADDRESS FOR VCCU1/4 NO 7
	XIF
	IFT	VUCHAN=7 
IHP100	EX	CWTINR,A5	EXECUTE INR 
	XIF
	IFT	VUCHAN=8 
	RF	IHP100
* 
*	INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 8 
* 
IHPVU8	EQU	*
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1 - A8 ON STACK 
	XIF
* 
	IFT	VUCHAN=8 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1 - A8 ON STACK
	XIF
* 
	IFT	VUCHAN=8 
	LDKL	A5,CWTVU8	SET CWT-ADDRESS FOR VCCU1/4 NO 8
IHP100	EX	CWTINR,A5	EXECUTE INR 
	XIF
	EJECT
* 
* 
*	DETERMINE FROM INPUT: TERMINAL NUMBER AND DEVICE ADDRESS
*	THEN COMPUTE DWT-ADDRESS
* 
	LDR	A6,A2	GET INPUT-WORD (BIO) 
	ANKL	A6,TERMNR	GET TERMINAL NBR WITHIN CHANNEL 
	SRL	A6,8	
	LDR	A7,A2	GET INPUT WORD 
	ANKL	A7,DEVADR	GET DEVICE ADDR WITHIN TERMINAL 
	SRL	A7,/A	 
	ADK	A7,1 
	LD*	A1,CWTITA,A5	GET ADDR TO WORKSTATION TABLE 
	CF	A15,NDGEDW	GET DWT ADDRESS INTO A6
	ADK	A6,0	DWT ADDRESS FOUND ? 
	ABL(Z)	VUDISP	NO. THEN EXIT
* 
*	TEST IF STATUS- OR DATA-INPUT 
* 
	LDR	A3,A2	SAVE INPUT-WORD
	ANK	A2,INDATA	CLEAN INPUT-WORD 
	ANKL	A3,INSTAT	STATUS INPUT ?
	RF(Z)	IHP150	NO
* 
*	STATUS  INPUT 
* 
	IM	CWTACK,A5	INCR ERROR ACKUMULATOR
	ABL	VUDISP	EXIT
* 
*	DATA INPUT
* 
IHP150	EQU	*
	LD	A7,DWTST,A6	DEVICE STATUS 
	ANK	A7,/60	MASK INPUT DEV. AND INPUT REQ.
	SUK	A7,/40 
	RF(Z)	IHP160	INPUT DEV. BUT NO INPUT REQUESTED 
	ABL(N)	VUDISP	NO INPUT-DEVICE. THEN EXIT.
* 
*	INPUT DEV. WITH INPUT REQUESTED 
* 
	LDKL	A7,/FFDF
	ANS	A7,DWTST,A6	RESET FLAG 'INPUT REQUESTED' 
	LDK	A1,0	RESET INDICATOR OF MORE THAN 1 CHAR 
	ABL	NDREP	RETURN TO DEVICE DRIVER
* 
* 
*   GO TO INTERRUPT ROUTINE OF DEVICE DRIVER
* 
IHP160	EQU	*
	LD	A1,DWTADR,A6	ADDRESS BLOCK
	LD	A1,INTADR,A1	INTERRUPT ENTRY DEFINED? 
	ABL(Z)	VUDISP	NO, SKIP CHARACTER 
	LDR	A5,A6	DWT ADDRESS
	ADKL	A5,DWTSB2	STACK BASE
	ABR	A1	DEVICE DRIVER INTERRUPT ENTRY 
	EJECT
* 
******************************************
*   THIS IS THE INTERRUPT HANDLER FOR 
*   DATA OUTPUT TO THE PERIPHERAL SECTION OF THE VCCU1/4. 
***************************************************** 
* 
* 
*	ENTERED:
*              VIA THE MONITOR CLOCK TIME-OUT ROUTINE.
* 
* 
*    FUNCTIONS: 
* 
*	1. GET FIRST QUEUED DWT FOR PERIPHERAL SECTION OUTPUT PART OF THIS CWT
*	   IF QUEUE EMPTY THEN: 
*	2.	RESET OUTPUT QUEUE TIMER POINTER IN CWT, 
*	           AND DISPATCH.
*	               ELSE:
*	3.             GET,FROM THAT FIRST QUEUED DWT, THE CHAR TO BE OUTPUT, 
*	               REMOVE THE DWT FROM CWT PERIPHERAL SECTION OUTPUT QUEUE
*	              IF OUTPUT QUEUE IS STILL NOT EMPTY
*	            THEN:  RESTART TIMER
*	              ELSE: 
*	4.
*	                RESET OUTPUT QUEUE TIMER POINTER IN CWT.
*	5.      GO OUTPUT CHARACTER.
* 
* 
*   ON ENTRY: 
*	 A1 = TIME-OUT PARAMETER (CWT-ADDRESS)
* 
*    ON EXIT: 
*	A2 = CHARACTER TO BE OUTPUT 
*	A5 = CWT ADDRESS
*	A6 = DWT ADDRESS
* 
**********************************************
* 
TIMOUT	EQU	*
	LDR	A5,A1	CWT-ADDRESS INTO A5
* 
*    CHECK PERIPHERAL SECTION  OUTPUT QUEUE FOR THIS CWT
* 
	LD	A6,CWTPQ,A5	GET NEXT DWT FROM OUTPUT QUEUE
	RF(NZ)	TIM200	QUEUE NOT EMPTY
* 
*	PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY AT THE TIMEOUT!
* 
	CM	CWTTP,A5	RESET POINTER TO TIMER BLOCK 
	ABL	VUDISP	DISPATCH
* 
*	PERIPHERAL SECTION OUTPUT QUEUE IS NOT EMPTY AT THE TIMEOUT.
*	GET QUEUED DWT AND TEST IF QUEUE IS EMPTY NOW.
* 
TIM200	EQU	*
	LD	A3,DWTOTQ,A6	GET QUEUE LINK 
	ST	A3,CWTPQ,A5	STORE IT INTO CWT 
	RF(Z)	TIM210	NOW QUEUE IS EMPTY
* 
*	QUEUE STILL NOT EMPTY: RESTART TIMER. 
* 
	LDKL	A3,-QUETIM	TIMEOUT VALUE
	ST*	A3,CWTTP,A5	INTO TIMER BLOCK 
	RF	TIM220	GO OUTPUT ONE CHARACTER
* 
*	NOW QUEUE IS EMPTY
* 
TIM210	EQU	*
	CM	CWTTP,A5	RESET POINTER TO TIMER BLOCK 
* 
*	GET AND SEND ONE CHARACTER
* 
TIM220	EQU	*
	LC	A2,DWTOCH,A6	GET CHARACTER FROM DWT 
	ABL	PER500	GO SEND CHARACTER 
	EJECT
* 
*************************************************************** 
* 
*	L I N E   D R I V E R   R E C O V E R Y   R O U T I  N E
*	C O M M O N   T O 
*	S C R E E N   A N D   P E R I P H E R A L   S E C T I O N S . 
* 
***************************************************************** 
* 
*   V U O N 
* 
*	SUBROUTINE TO RESTART THE VIDEO CHANNEL UNITS AT POWER ON 
****************************************************
* 
* 
*	CALL:	CF A15,VUON 
* 
*	
*	USED BY:	'PFINIT' 
* 
*	FUNCTIONS:
* 
*	1. SWITCH TO LEVEL 8, RUN-MODE, INH-MODE. 
*	2. TEST IF ALL CHANNELS IN SYSTEM HAVE BEEN TREATED.
*	   IF SO THEN ENABLE INTERRUPTS AND RETURN FROM SUBROUTINE, 
*	   ELSE:
*	3. GET CWT FOR NEXT CHANNEL.
*	  IF NO CWT DEFINED THEN CONTINUE IN 2, 
*	  ELSE: 
*	4. CIO START INPUT ON PERIPHERAL SECTION OF CHANNEL 
*	5. RESET DATA AREAS USED BY SCREEN AND PERIPHERAL SECTIONS, 
*	   LINE DRIVER PART.
*	6. FOR EACH TERMINAL ON THE CHANNEL 
*	        CALL DEVICE DEPENDANT RECOVERY ROUTINE
*	                         VIA NETWORK DISTRIBUTOR
*	7. CONTINUE IN 2. 
* 
******************************************************* 
* 
* 
*	SWITCH TO LEVEL 8 (LOWER THAN LEVEL OF ANY VCCU1/4 ON ANY CPU,
*		HIGHER THAN LEVEL OF POWER FAIL OR DC) 
* 
VUON	EQU	*
	LDKL	A2,VUON05	GET LEVEL 8 START ADDRESS 
	STR	A2,A15	STORE ONTO A15-STACK
	LDKL	A2,PONPSW	GET NEW PSW 
	STR	A2,A15	STORE ONTO A15-STACK
	RTN	A15	ENTER LEVEL 8
VUON05	EQU	*
	IFT	CPU852=1 
	INH
	XIF
* 
*	LOOP OVER ALL CWT:S IN CWTTAB 
* 
	LD	A1,CWTTAB 
VUON10	SUK	A1,2	ALL CWT:S TREATED ? 
	RF(NZ)	VUON20	NO TAKE NEXT 
* 
*	RETURN AND ENABLE INTERRUPTS AND SWITCH BACK TO LEVEL 0.
* 
	LDK	A1,/40	BIT FOR ENABLE MODE 
	ORS	A1,2,A15	INTO PSW ON STACK 
	RTN	A15	RETURN 
* 
*	GET CWT 
* 
VUON20	LD	A5,CWTTAB,A1	LOAD CWT-ADDRESS 
	RB(Z)	VUON10	NO CWT ADDRESS
* 
*	CIO START INPUT 
* 
	EX	CWTCSP,A5	EXECUTE CIO-START PERIPHERAL (INPUT)
	EJECT
* 
*	RESET DATA AREAS
*	USED BY SCREEN AND PERIPHERAL SECTIONS
*	LINE DRIVER PART
* 
	LDK	A4,OTRFLA+HLTFLA	GET ACTION-FLAGS
	ADKL	A4,SSTFLA	ALL ACTION FLAGS
	C1R	A4,A4	COMPLEMENT 
	LD	A6,CWTDOS,A5	ANY DWT OCCUPYING SCREEN SECTION ? 
	RF(NZ)	VUON25	YES. GO RESET DWTST BITS 11,12,13. 
VUON22	EQU	*
	CF	A15,GETQUE	GET QUEUED DWT FROM SCREEN QUEUE 
	ADK	A6,0	ANY (MORE) QUEUED DWT ? 
	RF(Z)	VUON27	NO. SCREEN QUEUE EMPTY
VUON25	EQU	*
	ANS	A4,DWTST,A6	RESET ALL ACTION-FLAGS 
	RB	VUON22	GET NEXT (QUEUED) DWT
VUON27	EQU	*
	CM	CWTDOS,A5	RESET INDICATOR OF DWT OCCUPYING SCREEN 
	CM	CWTSRD,A5	RESET INDICATOR SST-READY DWT (SCREEN)
	CM	CWTPQ,A5	RESET OUTPUT QUEUE ON PERIPH. SECTION
* 
* 
*	PREPARE LOOP OVER ALL TERMINALS ON THE CHANNEL
* 
	LD*	A3,CWTITA,A5	GET ADDRESS TO WORK-STATION TABLE 
	RB(Z)	VUON10	NO ADDRESS DEFINED IN TABLE 
	LDK	A6,0	RESET TERMINAL NUMBER 
* 
*	START DEVICE DRIVER RECOVERY FOR ALL TERMINALS ON THE CHANNEL 
* 
VUON30	EQU	*
	LDK	A4,TCPON	INDICATE RECOVERY CAUSE 
	CF	A15,NDREWS	CALL RECOVERY FOR THIS WORK-STATION
*			(=TERMINAL) 
	ADK	A6,1	NEXT TERMINAL 
	CWK	A6,MAXTVU	ANY MORE TERMINAL ON THIS CHANNEL ?
	RB(L)	VUON30	YES 
	RB	VUON10	NO 
* 
* 
* 
	END

HexDump

0x00000…00036 (0, 0, 398)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRVU01  REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00046               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0042}
0x00046…0004e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004a}
0x0004e…00056               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0052}
0x00056…00060               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x005a}
0x00060…0009a               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0064}
0x0009a…000a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x000a4…000cc               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a8}
0x000cc…000d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d0}
0x000d6…00112               Head {h00=0x0038, h01=0x0050, text=»*   DRVU01 = DRIVER VIDEO CONNECTED DISPLAY PTS8041 «, t00=0x0000, t01=0x00da}
0x00112…0012a               Head {h00=0x0014, h01=0x0050, text=»*            AND«, t00=0x0000, t01=0x0116}
0x0012a…00166               Head {h00=0x0038, h01=0x0050, text=»*            DRIVER CHANNEL UNIT FOR VIDEO TERMINALS«, t00=0x0000, t01=0x012e}
0x00166…00170               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016a}
0x00170…0017a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0174}
0x0017a…00184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017e}
0x00184…0018e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x0018e…00198 (1, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x00198…001a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x001a2…001dc               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0018}
0x001dc…001e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x001e6…00224               Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER CONSISTS OF THE FOLLOWING TWO SECTIONS: «, t00=0x0001, t01=0x005c}
0x00224…0022e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009a}
0x0022e…00256               Head {h00=0x0024, h01=0x0050, text=»* - S C R E E N   S E C T I O N «, t00=0x0001, t01=0x00a4}
0x00256…00286               Head {h00=0x002c, h01=0x0050, text=»* - P E R I P H E R A L   S E C T I O N «, t00=0x0001, t01=0x00cc}
0x00286…00290               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x00290…0029e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0106}
0x0029e…002a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x002a8…002e8               Head {h00=0x003c, h01=0x0050, text=»*    THE  S C R E E N   S E C T I O N  HANDLES OUTPUT TO«, t00=0x0001, t01=0x011e}
0x002e8…00310               Head {h00=0x0024, h01=0x0050, text=»*     THE VIDEO DISPLAY PTS8041 «, t00=0x0001, t01=0x015e}
0x00310…0035e               Head {h00=0x004a, h01=0x0050, text=»* CONNECTED VIA THE SCREEN SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. «, t00=0x0001, t01=0x0186}
0x0035e…00368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0044}
0x00368…003a8               Head {h00=0x003c, h01=0x0050, text=»*    THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0002, t01=0x004e}
0x003a8…003e6               Head {h00=0x003a, h01=0x0050, text=»*    WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0002, t01=0x008e}
0x003e6…00424               Head {h00=0x003a, h01=0x0050, text=»*    ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0002, t01=0x00cc}
0x00424…00450               Head {h00=0x0028, h01=0x0050, text=»*    GENERAL KEYBOARD DRIVER DRKB04.«, t00=0x0002, t01=0x010a}
0x00450…0045a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x0045a…00464               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x00464…0046e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014a}
0x0046e…00478               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0154}
0x00478…00482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015e}
0x00482…004be               Head {h00=0x0038, h01=0x0050, text=»*    THE  S C R E E N   S E C T I O N  OF THE DRIVER«, t00=0x0002, t01=0x0168}
0x004be…004ea               Head {h00=0x0028, h01=0x0050, text=»*       CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x0014}
0x004ea…004f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0040}
0x004f4…00524               Head {h00=0x002c, h01=0x0050, text=»* - D E V I C E   D R I V E R   P A R T «, t00=0x0003, t01=0x004a}
0x00524…00550               Head {h00=0x0028, h01=0x0050, text=»* - L I N E   D R I V E R   P A R T «, t00=0x0003, t01=0x007a}
0x00550…0055a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x0055a…00568               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00b0}
0x00568…00572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00be}
0x00572…005a4               Head {h00=0x002e, h01=0x0050, text=»* THE  D E V I C E   D R I V E R   P A R T«, t00=0x0003, t01=0x00c8}
0x005a4…005d2               Head {h00=0x002a, h01=0x0050, text=»* OF THE SCREEN SECTION OF THE DRIVER «, t00=0x0003, t01=0x00fa}
0x005d2…00600               Head {h00=0x002a, h01=0x0050, text=»* CONSISTS OF THE FOLLOWING ROUTINES: «, t00=0x0003, t01=0x0128}
0x00600…0060a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0156}
0x0060a…00614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x00614…0061e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x0061e…00628               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x00628…00656               Head {h00=0x002a, h01=0x0050, text=»* A C T I V A T I O N   R O U T I N E «, t00=0x0003, t01=0x017e}
0x00656…00660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001c}
0x00660…0069a               Head {h00=0x0036, h01=0x0050, text=»* -ACVU ACTIVATION OF DEVICE DRIVER, AT LKM DATA 1«, t00=0x0004, t01=0x0026}
0x0069a…006a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0060}
0x006a4…006ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006a}
0x006ae…006b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0074}
0x006b8…006c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007e}
0x006c2…006e6               Head {h00=0x0020, h01=0x0050, text=»* A B O R T   R O U T I N E «, t00=0x0004, t01=0x0088}
0x006e6…006f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ac}
0x006f0…00730               Head {h00=0x003c, h01=0x0050, text=»* -ABVU ABORT HANDLING IN DEVICE DRIVER, AT LKM DATA 10 «, t00=0x0004, t01=0x00b6}
0x00730…0073a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f6}
0x0073a…00744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0100}
0x00744…0074e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010a}
0x0074e…00758               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x00758…00782               Head {h00=0x0026, h01=0x0050, text=»* R E C O V E R Y   R O U T I N E «, t00=0x0004, t01=0x011e}
0x00782…0078c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0148}
0x0078c…007cc               Head {h00=0x003c, h01=0x0050, text=»* -RCVU RECOVERY HANDLING IN DEVICE DRIVER, AT POWER ON «, t00=0x0004, t01=0x0152}
0x007cc…007d6 (5, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x007d6…007e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x007e0…007ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0018}
0x007ea…007f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0022}
0x007f4…00816               Head {h00=0x001e, h01=0x0050, text=»* E C H O   R O U T I N E «, t00=0x0005, t01=0x002c}
0x00816…00820               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004e}
0x00820…00852               Head {h00=0x002e, h01=0x0050, text=»* -ECHOVU ECHO-HANDLING OF KEYBOARD INPUT «, t00=0x0005, t01=0x0058}
0x00852…0085c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008a}
0x0085c…00866               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x00866…00870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009e}
0x00870…0087a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a8}
0x0087a…0089e               Head {h00=0x0020, h01=0x0050, text=»* E R R O R   R O U T I N E «, t00=0x0005, t01=0x00b2}
0x0089e…008a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d6}
0x008a8…008d8               Head {h00=0x002c, h01=0x0050, text=»* -DEVERR DEVICE DRIVER ERROR HANDLING, «, t00=0x0005, t01=0x00e0}
0x008d8…00904               Head {h00=0x0028, h01=0x0050, text=»*  AT ERROR-RETURN FROM LINE DRIVER «, t00=0x0005, t01=0x0110}
0x00904…0090e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013c}
0x0090e…00918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x00918…00922               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x00922…00944               Head {h00=0x001e, h01=0x0050, text=»* S U B - R O U T I N E S «, t00=0x0005, t01=0x015a}
0x00944…0094e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x0094e…00996               Head {h00=0x0044, h01=0x0050, text=»* -CHKOUT CHECK IF LAST COLUMN WRITTEN, AND OUTPUT ONE CHARACTER«, t00=0x0005, t01=0x0186}
0x00996…009ca               Head {h00=0x0030, h01=0x0050, text=»* -ECHOUT OUTPUT ONE CHARACTER IN ECHO MODE «, t00=0x0006, t01=0x003e}
0x009ca…009fc               Head {h00=0x002e, h01=0x0050, text=»* -NXTROW UPDATE ROW COUNTER TO NEXT ROW, «, t00=0x0006, t01=0x0072}
0x009fc…00a26               Head {h00=0x0026, h01=0x0050, text=»*  AND IF NECESSARY HANDLE SCROLL.«, t00=0x0006, t01=0x00a4}
0x00a26…00a62               Head {h00=0x0038, h01=0x0050, text=»* -NXTCOL CALLED AFTER WRITE IN CURRENT COLUMN, SO: «, t00=0x0006, t01=0x00ce}
0x00a62…00a92               Head {h00=0x002c, h01=0x0050, text=»*  UPDATE COLUMN COUNTER TO NEXT COLUMN,«, t00=0x0006, t01=0x010a}
0x00a92…00aca               Head {h00=0x0034, h01=0x0050, text=»*  AND IF NECESSARY HANDLE LAST COLUMN WRITTEN. «, t00=0x0006, t01=0x013a}
0x00aca…00afc               Head {h00=0x002e, h01=0x0050, text=»* -SAVCN SAVE CURRENT NEXT WRITE POSITION «, t00=0x0006, t01=0x0172}
0x00afc…00b40               Head {h00=0x0040, h01=0x0050, text=»* -RESCN RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT«, t00=0x0007, t01=0x0014}
0x00b40…00b4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0058}
0x00b4a…00b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x00b54…00b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006c}
0x00b5e…00b68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0076}
0x00b68…00b8a               Head {h00=0x001e, h01=0x0050, text=»*    NORMAL REGISTER USAGE«, t00=0x0007, t01=0x0080}
0x00b8a…00bc4               Head {h00=0x0036, h01=0x0050, text=»*    IN THE DEVICE DRIVER PART OF SCREEN SECTION: «, t00=0x0007, t01=0x00a2}
0x00bc4…00bce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00dc}
0x00bce…00bfc               Head {h00=0x002a, h01=0x0050, text=»*    REGISTER A1 = RETURN CODE TO ECB «, t00=0x0007, t01=0x00e6}
0x00bfc…00c4c               Head {h00=0x004c, h01=0x0050, text=»*             A2 = OUTPUT CHARACTER OR WRITE POSITION OR CURSOR POSITION«, t00=0x0007, t01=0x0114}
0x00c4c…00c74               Head {h00=0x0024, h01=0x0050, text=»*             A3 = BUFFER INDEX «, t00=0x0007, t01=0x0164}
0x00c74…00c9c               Head {h00=0x0024, h01=0x0050, text=»*             A4 = WORK REGISTER«, t00=0x0007, t01=0x018c}
0x00c9c…00cc2               Head {h00=0x0022, h01=0x0050, text=»*             A5 = STACK BASE «, t00=0x0008, t01=0x0024}
0x00cc2…00ce8               Head {h00=0x0022, h01=0x0050, text=»*             A6 = DWT-ADDRESS«, t00=0x0008, t01=0x004a}
0x00ce8…00d08               Head {h00=0x001c, h01=0x0050, text=»*             A7 = ORDER«, t00=0x0008, t01=0x0070}
0x00d08…00d2e               Head {h00=0x0022, h01=0x0050, text=»*             A8 = ECB-ADDRESS«, t00=0x0008, t01=0x0090}
0x00d2e…00d38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x00d38…00d46               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00c0}
0x00d46…00d50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x00d50…00d7e               Head {h00=0x002a, h01=0x0050, text=»* THE  L I N E   D R I V E R   P A R T«, t00=0x0008, t01=0x00d8}
0x00d7e…00dac               Head {h00=0x002a, h01=0x0050, text=»* OF THE SCREEN SECTION OF THE DRIVER «, t00=0x0008, t01=0x0106}
0x00dac…00dda               Head {h00=0x002a, h01=0x0050, text=»* CONSISTS OF THE FOLLOWING ROUTINES: «, t00=0x0008, t01=0x0134}
0x00dda…00de4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0162}
0x00de4…00dee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016c}
0x00dee…00df8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0176}
0x00df8…00e02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0180}
0x00e02…00e32               Head {h00=0x002c, h01=0x0050, text=»* A C T I V A T I O N   R O U T I N E S «, t00=0x0008, t01=0x018a}
0x00e32…00e3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x00e3c…00e76               Head {h00=0x0036, h01=0x0050, text=»* -STAWRI START WRITE SCREEN IN SPECIFIED POSITION«, t00=0x0009, t01=0x0034}
0x00e76…00ea4               Head {h00=0x002a, h01=0x0050, text=»* -OUTCHA OUTPUT ONE SCREEN CHARACTER «, t00=0x0009, t01=0x006e}
0x00ea4…00ec6               Head {h00=0x001e, h01=0x0050, text=»* -ENDWRI END WRITE SCREEN«, t00=0x0009, t01=0x009c}
0x00ec6…00f02               Head {h00=0x0038, h01=0x0050, text=»* -OUTCUR OUTPUT VISUAL CURSOR IN SPECIFIED POSITION«, t00=0x0009, t01=0x00be}
0x00f02…00f32               Head {h00=0x002c, h01=0x0050, text=»* -CLESCR CLEAR SCREEN AND RESET CURSOR «, t00=0x0009, t01=0x00fa}
0x00f32…00f3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x00f3c…00f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0134}
0x00f46…00f50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013e}
0x00f50…00f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0148}
0x00f5a…00f88               Head {h00=0x002a, h01=0x0050, text=»* I N T E R R U P T   R O U T I N E S «, t00=0x0009, t01=0x0152}
0x00f88…00f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0180}
0x00f92…00fac               Head {h00=0x0016, h01=0x0050, text=»* IHSVU1 VCCU NO 1«, t00=0x0009, t01=0x018a}
0x00fac…00fc6               Head {h00=0x0016, h01=0x0050, text=»* IHSVU2 VCCU NO 2«, t00=0x000a, t01=0x0014}
0x00fc6…00fe0               Head {h00=0x0016, h01=0x0050, text=»* IHSVU3 VCCU NO 3«, t00=0x000a, t01=0x002e}
0x00fe0…00ffa               Head {h00=0x0016, h01=0x0050, text=»* IHSVU4 VCCU NO 4«, t00=0x000a, t01=0x0048}
0x00ffa…01014               Head {h00=0x0016, h01=0x0050, text=»* IHSVU5 VCCU NO 5«, t00=0x000a, t01=0x0062}
0x01014…0102e               Head {h00=0x0016, h01=0x0050, text=»* IHSVU6 VCCU NO 6«, t00=0x000a, t01=0x007c}
0x0102e…01048               Head {h00=0x0016, h01=0x0050, text=»* IHSVU7 VCCU NO 7«, t00=0x000a, t01=0x0096}
0x01048…01062               Head {h00=0x0016, h01=0x0050, text=»* IHSVU8 VCCU NO 8«, t00=0x000a, t01=0x00b0}
0x01062…0106c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ca}
0x0106c…01076               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d4}
0x01076…01080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x01080…0108a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e8}
0x0108a…01098               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00f2}
0x01098…010a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0100}
0x010a2…010c8               Head {h00=0x0022, h01=0x0050, text=»* E R R O R   R O U T I N E S «, t00=0x000a, t01=0x010a}
0x010c8…010d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0130}
0x010d2…010fa               Head {h00=0x0024, h01=0x0050, text=»* -LINER0 CIO START NOT ACCEPTED«, t00=0x000a, t01=0x013a}
0x010fa…0111c               Head {h00=0x001e, h01=0x0050, text=»* -LINER1 OTR NOT ACCEPTED«, t00=0x000a, t01=0x0162}
0x0111c…0113e               Head {h00=0x001e, h01=0x0050, text=»* -LINER2 SST NOT ACCEPTED«, t00=0x000a, t01=0x0184}
0x0113e…0116a               Head {h00=0x0028, h01=0x0050, text=»* -LINER3 SST UNEXPECTEDLY ACCEPTED «, t00=0x000b, t01=0x0016}
0x0116a…01190               Head {h00=0x0022, h01=0x0050, text=»* -LINER4 UNEXPECTED INTERRUPT«, t00=0x000b, t01=0x0042}
0x01190…011da               Head {h00=0x0046, h01=0x0050, text=»* -LINER5 I/O-INSTRUCTION TRIED DURING POWER FAIL POST PROCESSING «, t00=0x000b, t01=0x0068}
0x011da…011e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b2}
0x011e4…011ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x011ee…011f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c6}
0x011f8…0121a               Head {h00=0x001e, h01=0x0050, text=»* S U B - R O U T I N E S «, t00=0x000b, t01=0x00d0}
0x0121a…01224               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f2}
0x01224…0126e               Head {h00=0x0046, h01=0x0050, text=»* -CONPOS CONVERT SCREEN POSITION INTO SCREEN MEMORY DISPLACEMENT «, t00=0x000b, t01=0x00fc}
0x0126e…012b6               Head {h00=0x0044, h01=0x0050, text=»* -IXTERM INDEX SCREEN MEMORY DISPLACEMENT WITH TERMINAL NUMBER «, t00=0x000b, t01=0x0146}
0x012b6…012e8               Head {h00=0x002e, h01=0x0050, text=»* -CWTDWT GET CWT-ADDRESS FROM DWT-ADDRESS«, t00=0x000b, t01=0x018e}
0x012e8…0131a               Head {h00=0x002e, h01=0x0050, text=»* -PUTQUE PUT DWT INTO SCREEN OUTPUT QUEUE«, t00=0x000c, t01=0x0030}
0x0131a…0134c               Head {h00=0x002e, h01=0x0050, text=»* -GETQUE GET DWT FROM SCREEN OUTPUT QUEUE«, t00=0x000c, t01=0x0062}
0x0134c…01356               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0094}
0x01356…01360               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009e}
0x01360…0136a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a8}
0x0136a…0138a               Head {h00=0x001c, h01=0x0050, text=»* NORMAL REGISTER USAGE «, t00=0x000c, t01=0x00b2}
0x0138a…013c2               Head {h00=0x0034, h01=0x0050, text=»* IN THE LINE DRIVER PART OF THE SCREEN SECTION:«, t00=0x000c, t01=0x00d2}
0x013c2…013cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010a}
0x013cc…013fc               Head {h00=0x002c, h01=0x0050, text=»* A1 = RETURN CODE TO DEVICE DRIVER PART«, t00=0x000c, t01=0x0114}
0x013fc…0141c               Head {h00=0x001c, h01=0x0050, text=»* A2 = BIO-LINES OUTPUT «, t00=0x000c, t01=0x0144}
0x0141c…01438               Head {h00=0x0018, h01=0x0050, text=»* A3 = WORK REGISTER«, t00=0x000c, t01=0x0164}
0x01438…01454               Head {h00=0x0018, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x000c, t01=0x0180}
0x01454…0146e               Head {h00=0x0016, h01=0x0050, text=»* A5 = CWT-ADDRESS«, t00=0x000d, t01=0x000c}
0x0146e…01488               Head {h00=0x0016, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x000d, t01=0x0026}
0x01488…014a4               Head {h00=0x0018, h01=0x0050, text=»* A7 = WORK REGISTER«, t00=0x000d, t01=0x0040}
0x014a4…014c0               Head {h00=0x0018, h01=0x0050, text=»* A8 = WORK REGISTER«, t00=0x000d, t01=0x005c}
0x014c0…014ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0078}
0x014ca…014d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0082}
0x014d4…014e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x008c}
0x014e2…014ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009a}
0x014ec…01532               Head {h00=0x0042, h01=0x0050, text=»* THE  P E R I P H E R A L   S E C T I O N  OF THE DRIVER IS A«, t00=0x000d, t01=0x00a4}
0x01532…0155a               Head {h00=0x0024, h01=0x0050, text=»* L I N E   D R I V E R   ONLY. «, t00=0x000d, t01=0x00ea}
0x0155a…0159e               Head {h00=0x0040, h01=0x0050, text=»* IT HANDLES INPUT FROM AND OUTPUT TO DEVICES CONNECTED VIA «, t00=0x000d, t01=0x0112}
0x0159e…015e2               Head {h00=0x0040, h01=0x0050, text=»* THE PERIPHERAL SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. «, t00=0x000d, t01=0x0156}
0x015e2…015ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x015ec…015f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0014}
0x015f6…01630               Head {h00=0x0036, h01=0x0050, text=»* THE PERIPHERAL SECTION OF THE DRIVER CONSISTS OF«, t00=0x000e, t01=0x001e}
0x01630…01660               Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING (LINE DRIVER) ROUTINES: «, t00=0x000e, t01=0x0058}
0x01660…0166a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0088}
0x0166a…0169a               Head {h00=0x002c, h01=0x0050, text=»* A C T I V A T I O N   R O U T I N E S «, t00=0x000e, t01=0x0092}
0x0169a…016a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x016a4…016d2               Head {h00=0x002a, h01=0x0050, text=»* -VUSTBL DEFINE START OF OUTPUT BLOCK«, t00=0x000e, t01=0x00cc}
0x016d2…016f4               Head {h00=0x001e, h01=0x0050, text=»* -VUCHRO CHARACTER OUTPUT«, t00=0x000e, t01=0x00fa}
0x016f4…01720               Head {h00=0x0028, h01=0x0050, text=»* -VUENBL DEFINE END OF OUTPUT BLOCK«, t00=0x000e, t01=0x011c}
0x01720…01742               Head {h00=0x001e, h01=0x0050, text=»* -VUCHRI CHARACTER INPUT «, t00=0x000e, t01=0x0148}
0x01742…01764               Head {h00=0x001e, h01=0x0050, text=»* -VUDISP VIDEO DISPATCHER«, t00=0x000e, t01=0x016a}
0x01764…0176e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018c}
0x0176e…01778               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0008}
0x01778…017a6               Head {h00=0x002a, h01=0x0050, text=»* I N T E R R U P T   R O U T I N E S «, t00=0x000f, t01=0x0012}
0x017a6…017b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0040}
0x017b0…017c8               Head {h00=0x0014, h01=0x0050, text=»* FOR DATA INPUT«, t00=0x000f, t01=0x004a}
0x017c8…017d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0062}
0x017d2…017ee               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU1 VCCU NO 1 «, t00=0x000f, t01=0x006c}
0x017ee…0180a               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU2 VCCU NO 2 «, t00=0x000f, t01=0x0088}
0x0180a…01826               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU3 VCCU NO 3 «, t00=0x000f, t01=0x00a4}
0x01826…01842               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU4 VCCU NO 4 «, t00=0x000f, t01=0x00c0}
0x01842…0185e               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU5 VCCU NO 5 «, t00=0x000f, t01=0x00dc}
0x0185e…0187a               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU6 VCCU NO 6 «, t00=0x000f, t01=0x00f8}
0x0187a…01896               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU7 VCCU NO 7 «, t00=0x000f, t01=0x0114}
0x01896…018b2               Head {h00=0x0018, h01=0x0050, text=»* -IHPVU8 VCCU NO 8 «, t00=0x000f, t01=0x0130}
0x018b2…018bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014c}
0x018bc…018da               Head {h00=0x001a, h01=0x0050, text=»* AND FOR DATA OUTPUT «, t00=0x000f, t01=0x0156}
0x018da…018e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0174}
0x018e4…0190c               Head {h00=0x0024, h01=0x0050, text=»* -TIMOUT MONITOR CLOCK TIME-OUT«, t00=0x000f, t01=0x017e}
0x0190c…01916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x01916…01924               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0020}
0x01924…0192e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002e}
0x0192e…01958               Head {h00=0x0026, h01=0x0050, text=»* R E C O V E R Y   R O U T I N E «, t00=0x0010, t01=0x0038}
0x01958…01962               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0062}
0x01962…01990               Head {h00=0x002a, h01=0x0050, text=»* -VUON LINE DRIVER RECOVERY ROUTINE, «, t00=0x0010, t01=0x006c}
0x01990…019c4               Head {h00=0x0030, h01=0x0050, text=»*  COMMON TO PERIPHERAL AND SCREEN SECTIONS.«, t00=0x0010, t01=0x009a}
0x019c4…019ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ce}
0x019ce…019d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d8}
0x019d8…019e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e2}
0x019e2…019ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ec}
0x019ec…01a26               Head {h00=0x0036, h01=0x0050, text=»*   NORMAL REGISTER USAGE IN THE LINE DRIVER PART «, t00=0x0010, t01=0x00f6}
0x01a26…01a4c               Head {h00=0x0022, h01=0x0050, text=»*  OF THE PERIPHERAL SECTION: «, t00=0x0010, t01=0x0130}
0x01a4c…01a56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0156}
0x01a56…01a74               Head {h00=0x001a, h01=0x0050, text=»*   A1 = WORK REGISTER«, t00=0x0010, t01=0x0160}
0x01a74…01a90               Head {h00=0x0018, h01=0x0050, text=»*   A2 = INPUT WORD «, t00=0x0010, t01=0x017e}
0x01a90…01aae               Head {h00=0x001a, h01=0x0050, text=»*   A3 = WORK REGISTER«, t00=0x0011, t01=0x000a}
0x01aae…01acc               Head {h00=0x001a, h01=0x0050, text=»*   A4 = WORK REGISTER«, t00=0x0011, t01=0x0028}
0x01acc…01ae8               Head {h00=0x0018, h01=0x0050, text=»*   A5 = CWT-ADDRESS«, t00=0x0011, t01=0x0046}
0x01ae8…01b04               Head {h00=0x0018, h01=0x0050, text=»*   A6 = DWT-ADDRESS«, t00=0x0011, t01=0x0062}
0x01b04…01b22               Head {h00=0x001a, h01=0x0050, text=»*   A7 = WORK REGISTER«, t00=0x0011, t01=0x007e}
0x01b22…01b40               Head {h00=0x001a, h01=0x0050, text=»*   A8 = WORK REGISTER«, t00=0x0011, t01=0x009c}
0x01b40…01b4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ba}
0x01b4a…01b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c4}
0x01b54…01b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ce}
0x01b5e…01b6c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00d8}
0x01b6c…01b76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e6}
0x01b76…01b80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f0}
0x01b80…01b9e               Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0011, t01=0x00fa}
0x01b9e…01ba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0118}
0x01ba8…01bb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0122}
0x01bb2…01bec               Head {h00=0x0036, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0011, t01=0x012c}
0x01bec…01bf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0166}
0x01bf6…01c3a               Head {h00=0x0040, h01=0x0050, text=»*   -IS ADAPTED TO CONTROL ONE OR UP TO EIGHT VIDEO CHANNELS«, t00=0x0011, t01=0x0170}
0x01c3a…01c76               Head {h00=0x0038, h01=0x0050, text=»*  -IS ADAPTED FOR CONNECTION OF THE VIDEO CHANNELS «, t00=0x0012, t01=0x0024}
0x01c76…01caa               Head {h00=0x0030, h01=0x0050, text=»*       EITHER ON PROGRAMMED CHANNEL OR IOP.«, t00=0x0012, t01=0x0060}
0x01caa…01ce2               Head {h00=0x0034, h01=0x0050, text=»*  -HANDLES EITHER OF TWO CHARACTER GENERATORS. «, t00=0x0012, t01=0x0094}
0x01ce2…01d32               Head {h00=0x004c, h01=0x0050, text=»*  -HANDLES ONE OF ELEVEN DIFFERENT (COUNTRY DEPENDANT) CHARACTER SETS, «, t00=0x0012, t01=0x00cc}
0x01d32…01d6c               Head {h00=0x0036, h01=0x0050, text=»*       PROVIDED THAT THE SELECTED CHARACTER SET, «, t00=0x0012, t01=0x011c}
0x01d6c…01dae               Head {h00=0x003e, h01=0x0050, text=»*       IS SUPPORTED BY THE SELECTED CHARACTER GENERATOR. «, t00=0x0012, t01=0x0156}
0x01dae…01de0               Head {h00=0x002e, h01=0x0050, text=»*   -CAN ECHO ALSO END OF RECORD CHARACTER«, t00=0x0013, t01=0x0008}
0x01de0…01e18               Head {h00=0x0034, h01=0x0050, text=»*   -CAN SUPPRESS TRAILING STRINGS COMPOSED OF: «, t00=0x0013, t01=0x003a}
0x01e18…01e30               Head {h00=0x0014, h01=0x0050, text=»*   SPACE (/20) «, t00=0x0013, t01=0x0072}
0x01e30…01e58               Head {h00=0x0024, h01=0x0050, text=»*   TABULATION (/11 + POS.CHAR.)«, t00=0x0013, t01=0x008a}
0x01e58…01e7a               Head {h00=0x001e, h01=0x0050, text=»*   UNDERLINE START (/12) «, t00=0x0013, t01=0x00b2}
0x01e7a…01ea0               Head {h00=0x0022, h01=0x0050, text=»*   LOW INTENSITY START (/1E) «, t00=0x0013, t01=0x00d4}
0x01ea0…01ec4               Head {h00=0x0020, h01=0x0050, text=»*   LOW INTENSITY STOP (/1F)«, t00=0x0013, t01=0x00fa}
0x01ec4…01f00               Head {h00=0x0038, h01=0x0050, text=»*   -CAN BE ADAPTED TO THE EXTENDED INSTRUCTION SET.«, t00=0x0013, t01=0x011e}
0x01f00…01f32               Head {h00=0x002e, h01=0x0050, text=»*   -CONTAINS LENGTH OF DRIVER MMU-BUFFER.«, t00=0x0013, t01=0x015a}
0x01f32…01f40               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x018c}
0x01f40…01f4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000a}
0x01f4a…01f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0014}
0x01f54…01f5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001e}
0x01f5e…01f68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0028}
0x01f68…01f7c               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0014, t01=0x0032}
0x01f7c…01f90               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0014, t01=0x0046}
0x01f90…01fa4               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0014, t01=0x005a}
0x01fa4…01fae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006e}
0x01fae…01fb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0078}
0x01fb8…01ff2               Head {h00=0x0036, h01=0x0050, text=»* SCREEN SECTION DEVICE DRIVER ACTIVATION ROUTINES«, t00=0x0014, t01=0x0082}
0x01ff2…01ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00bc}
0x01ffc…02006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c6}
0x02006…02032               Head {h00=0x0028, h01=0x0050, text=» ENTRY VUAD ADDRESS TO ADDRESSBLOCK «, t00=0x0014, t01=0x00d0}
0x02032…0203c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fc}
0x0203c…02046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0106}
0x02046…0206a               Head {h00=0x0020, h01=0x0050, text=»* SCREEN SECTION LINE DRIVER«, t00=0x0014, t01=0x0110}
0x0206a…020a4               Head {h00=0x0036, h01=0x0050, text=»* INTERRUPT ROUTINES ENTERED FROM INTERRUPT VECTOR«, t00=0x0014, t01=0x0134}
0x020a4…020ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016e}
0x020ae…020e0               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU1 INTERRUPT FROM  VCCU1/4 NO 1«, t00=0x0014, t01=0x0178}
0x020e0…02112               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU2 INTERRUPT FROM  VCCU1/4 NO 2«, t00=0x0015, t01=0x001a}
0x02112…02144               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU3 INTERRUPT FROM  VCCU1/4 NO 3«, t00=0x0015, t01=0x004c}
0x02144…02176               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU4 INTERRUPT FROM  VCCU1/4 NO 4«, t00=0x0015, t01=0x007e}
0x02176…021a8               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU5 INTERRUPT FROM  VCCU1/4 NO 5«, t00=0x0015, t01=0x00b0}
0x021a8…021da               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU6 INTERRUPT FROM  VCCU1/4 NO 6«, t00=0x0015, t01=0x00e2}
0x021da…0220c               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU7 INTERRUPT FROM  VCCU1/4 NO 7«, t00=0x0015, t01=0x0114}
0x0220c…0223e               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHSVU8 INTERRUPT FROM  VCCU1/4 NO 8«, t00=0x0015, t01=0x0146}
0x0223e…02248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0178}
0x02248…02256               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0182}
0x02256…02260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x02260…02288               Head {h00=0x0024, h01=0x0050, text=»* PERIPHERAL SECTION LINE DRIVER«, t00=0x0016, t01=0x000a}
0x02288…022d8               Head {h00=0x004c, h01=0x0050, text=»* ACTIVATION ROUTINES ENTERED FROM DEVICE DRIVERS VIA NETWORK DISTRIBUTO«, t00=0x0016, t01=0x0032}
0x022d8…022e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0082}
0x022e2…02308               Head {h00=0x0022, h01=0x0050, text=» ENTRY VUCHRI CHARACTER INPUT «, t00=0x0016, t01=0x008c}
0x02308…0233a               Head {h00=0x002e, h01=0x0050, text=» ENTRY VUSTBL DEFINE START OF OUTPUT BLOCK«, t00=0x0016, t01=0x00b2}
0x0233a…02360               Head {h00=0x0022, h01=0x0050, text=» ENTRY VUCHRO CHARACTER OUTPUT«, t00=0x0016, t01=0x00e4}
0x02360…02390               Head {h00=0x002c, h01=0x0050, text=» ENTRY VUENBL DEFINE END OF OUTPUT BLOCK«, t00=0x0016, t01=0x010a}
0x02390…023b6               Head {h00=0x0022, h01=0x0050, text=» ENTRY VUDISP VIDEO DISPATCHER«, t00=0x0016, t01=0x013a}
0x023b6…023c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0160}
0x023c0…023e8               Head {h00=0x0024, h01=0x0050, text=»* PERIPHERAL SECTION LINE DRIVER«, t00=0x0016, t01=0x016a}
0x023e8…02422 (23, 0, 400)  Head {h00=0x0036, h01=0x0050, text=»* INTERRUPT ROUTINES ENTERED FROM INTERRUPT VECTOR«, t00=0x0017, t01=0x0004}
0x02422…0242c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003e}
0x0242c…0245e               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU1 INTERRUPT FROM  VCCU1/4 NO 1«, t00=0x0017, t01=0x0048}
0x0245e…02490               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU2 INTERRUPT FROM  VCCU1/4 NO 2«, t00=0x0017, t01=0x007a}
0x02490…024c2               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU3 INTERRUPT FROM  VCCU1/4 NO 3«, t00=0x0017, t01=0x00ac}
0x024c2…024f4               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU4 INTERRUPT FROM  VCCU1/4 NO 4«, t00=0x0017, t01=0x00de}
0x024f4…02526               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU5 INTERRUPT FROM  VCCU1/4 NO 5«, t00=0x0017, t01=0x0110}
0x02526…02558               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU6 INTERRUPT FROM  VCCU1/4 NO 6«, t00=0x0017, t01=0x0142}
0x02558…0258a               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU7 INTERRUPT FROM  VCCU1/4 NO 7«, t00=0x0017, t01=0x0174}
0x0258a…025bc               Head {h00=0x002e, h01=0x0050, text=» ENTRY IHPVU8 INTERRUPT FROM  VCCU1/4 NO 8«, t00=0x0018, t01=0x0016}
0x025bc…025c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0048}
0x025c6…025e6               Head {h00=0x001c, h01=0x0050, text=»* MISCELLENEOUS ENTRIES «, t00=0x0018, t01=0x0052}
0x025e6…025f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x025f0…02624               Head {h00=0x0030, h01=0x0050, text=» ENTRY VUON START RECOVERY OF VCCU1/4  UNITS«, t00=0x0018, t01=0x007c}
0x02624…0262e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b0}
0x0262e…02638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ba}
0x02638…02642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c4}
0x02642…0264c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x0264c…0265a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00d8}
0x0265a…02664               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e6}
0x02664…02696               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0018, t01=0x00f0}
0x02696…026c8               Head {h00=0x002e, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES       * «, t00=0x0018, t01=0x0122}
0x026c8…026fa               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0018, t01=0x0154}
0x026fa…02704               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0186}
0x02704…0270e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0190}
0x0270e…02718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000a}
0x02718…02738               Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 «, t00=0x0019, t01=0x0014}
0x02738…02756               Head {h00=0x001a, h01=0x0050, text=» EXTRN TDISP DISPATCH «, t00=0x0019, t01=0x0034}
0x02756…02774               Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0019, t01=0x0052}
0x02774…0279e               Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0019, t01=0x0070}
0x0279e…027d0               Head {h00=0x002e, h01=0x0050, text=» EXTRN DISIOE ERROR, END I/O AND DISPATCH «, t00=0x0019, t01=0x009a}
0x027d0…027ec               Head {h00=0x0018, h01=0x0050, text=» EXTRN IHRTN RETURN «, t00=0x0019, t01=0x00cc}
0x027ec…0281c               Head {h00=0x002c, h01=0x0050, text=» EXTRN SWL48 SWITCH TO LEVEL 48 AND ENB «, t00=0x0019, t01=0x00e8}
0x0281c…02826               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0118}
0x02826…0285c               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU1 INTERRUPT TABLE FOR VCCU1/4 NO 1«, t00=0x0019, t01=0x0122}
0x0285c…02892               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU2 INTERRUPT TABLE FOR VCCU1/4 NO 2«, t00=0x0019, t01=0x0158}
0x02892…028c8               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU3 INTERRUPT TABLE FOR VCCU1/4 NO 3«, t00=0x0019, t01=0x018e}
0x028c8…028fe               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU4 INTERRUPT TABLE FOR VCCU1/4 NO 4«, t00=0x001a, t01=0x0034}
0x028fe…02934               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU5 INTERRUPT TABLE FOR VCCU1/4 NO 5«, t00=0x001a, t01=0x006a}
0x02934…0296a               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU6 INTERRUPT TABLE FOR VCCU1/4 NO 6«, t00=0x001a, t01=0x00a0}
0x0296a…029a0               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU7 INTERRUPT TABLE FOR VCCU1/4 NO 7«, t00=0x001a, t01=0x00d6}
0x029a0…029d6               Head {h00=0x0032, h01=0x0050, text=» EXTRN INTVU8 INTERRUPT TABLE FOR VCCU1/4 NO 8«, t00=0x001a, t01=0x010c}
0x029d6…029e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0142}
0x029e0…02a06               Head {h00=0x0022, h01=0x0050, text=» EXTRN SETIMP GET TIMER BLOCK «, t00=0x001a, t01=0x014c}
0x02a06…02a34               Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x001a, t01=0x0172}
0x02a34…02a6a               Head {h00=0x0032, h01=0x0050, text=» EXTRN PFPOST POWER FAIL POST PROCESSING FLAG «, t00=0x001b, t01=0x0010}
0x02a6a…02a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0046}
0x02a74…02aa2               Head {h00=0x002a, h01=0x0050, text=» EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT«, t00=0x001b, t01=0x0050}
0x02aa2…02ad4               Head {h00=0x002e, h01=0x0050, text=» EXTRN NDGEDW GET DWT ADDRESS FOR A DEVICE«, t00=0x001b, t01=0x007e}
0x02ad4…02b0a               Head {h00=0x0032, h01=0x0050, text=» EXTRN NDREWS CALL RECOVERY FOR A WORK-STATION«, t00=0x001b, t01=0x00b0}
0x02b0a…02b26               Head {h00=0x0018, h01=0x0050, text=» EXTRN NDRET RETURN «, t00=0x001b, t01=0x00e6}
0x02b26…02b48               Head {h00=0x001e, h01=0x0050, text=» EXTRN NDRETO OK & RETURN «, t00=0x001b, t01=0x0102}
0x02b48…02b6a               Head {h00=0x001e, h01=0x0050, text=» EXTRN NDREP POP & RETURN «, t00=0x001b, t01=0x0124}
0x02b6a…02b92               Head {h00=0x0024, h01=0x0050, text=» EXTRN NDREPO POP, OK AND RETURN«, t00=0x001b, t01=0x0146}
0x02b92…02bc6               Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x001b, t01=0x016e}
0x02bc6…02bfa               Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x001c, t01=0x0012}
0x02bfa…02c08               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0046}
0x02c08…02c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0054}
0x02c12…02c50               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001c, t01=0x005e}
0x02c50…02c7c               Head {h00=0x0028, h01=0x0050, text=»* DRIVER ADDRESS BLOCK DISPLACEMENTS«, t00=0x001c, t01=0x009c}
0x02c7c…02cbc               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x001c, t01=0x00c8}
0x02cbc…02cc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0108}
0x02cc6…02cfa               Head {h00=0x0030, h01=0x0050, text=» EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT«, t00=0x001c, t01=0x0112}
0x02cfa…02d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0146}
0x02d04…02d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0150}
0x02d0e…02d4c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001c, t01=0x015a}
0x02d4c…02d6a               Head {h00=0x001a, h01=0x0050, text=»* DEVICE INDEX VALUES «, t00=0x001d, t01=0x0008}
0x02d6a…02da8               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001d, t01=0x0026}
0x02da8…02db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0064}
0x02db2…02de8               Head {h00=0x0032, h01=0x0050, text=» EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX «, t00=0x001d, t01=0x006e}
0x02de8…02df2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a4}
0x02df2…02dfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ae}
0x02dfc…02e40               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001d, t01=0x00b8}
0x02e40…02e5c               Head {h00=0x0018, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x001d, t01=0x00fc}
0x02e5c…02ea0               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001d, t01=0x0118}
0x02ea0…02eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x02eaa…02ed2               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x001d, t01=0x0166}
0x02ed2…02efc               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x001d, t01=0x018e}
0x02efc…02f26               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x001e, t01=0x0028}
0x02f26…02f4a               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x001e, t01=0x0052}
0x02f4a…02f70               Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x001e, t01=0x0076}
0x02f70…02f7e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x009c}
0x02f7e…02f88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00aa}
0x02f88…02f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b4}
0x02f92…02fb2               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x001e, t01=0x00be}
0x02fb2…02fd2               Head {h00=0x001c, h01=0x0050, text=»*    DWT PARAMETERS    *«, t00=0x001e, t01=0x00de}
0x02fd2…02ff2               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x001e, t01=0x00fe}
0x02ff2…02ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011e}
0x02ffc…03018               Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x001e, t01=0x0128}
0x03018…03044               Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTOCH LAST OUTPUT CHARACTER «, t00=0x001e, t01=0x0144}
0x03044…03072               Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK«, t00=0x001e, t01=0x0170}
0x03072…03094               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTOTQ OUTPUT QUEUE«, t00=0x001f, t01=0x000e}
0x03094…030be               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x001f, t01=0x0030}
0x030be…030e8               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTCP2 CHANNEL PARAMETERS 2«, t00=0x001f, t01=0x005a}
0x030e8…03116               Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTLD1 LINE DRIVER DEPENDANT 1 «, t00=0x001f, t01=0x0084}
0x03116…03144               Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTLD2 LINE DRIVER DEPENDANT 2 «, t00=0x001f, t01=0x00b2}
0x03144…0314e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e0}
0x0314e…03158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ea}
0x03158…03194               Head {h00=0x0038, h01=0x0050, text=» EXTRN DWTDEV DEVICE DRIVER DEPENDANT (FIRST FIELD) «, t00=0x001f, t01=0x00f4}
0x03194…0319e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0130}
0x0319e…031ac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x013a}
0x031ac…031b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0148}
0x031b6…031c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0152}
0x031c0…031f2               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x001f, t01=0x015c}
0x031f2…03224               Head {h00=0x002e, h01=0x0050, text=»*    CONDITIONAL ASSEMBLY               * «, t00=0x001f, t01=0x018e}
0x03224…03256               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0020, t01=0x0030}
0x03256…03260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0062}
0x03260…03292               Head {h00=0x002e, h01=0x0050, text=»* THE NUMBER OF VIDEO CHANNELS HANDLED BY «, t00=0x0020, t01=0x006c}
0x03292…032c0               Head {h00=0x002a, h01=0x0050, text=»*  THE LINE DRIVER PART OF THIS DRIVER«, t00=0x0020, t01=0x009e}
0x032c0…032fc               Head {h00=0x0038, h01=0x0050, text=»* IS SELECTED BY SETTING X:A TO 1,2,3,4,5,6,7 OR 8. «, t00=0x0020, t01=0x00cc}
0x032fc…03306               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0108}
0x03306…03318               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0020, t01=0x0112}
0x03318…0332e               Head {h00=0x0012, h01=0x0050, text=»VUCHAN EQU X:A«, t00=0x0020, t01=0x0124}
0x0332e…03338               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013a}
0x03338…03342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0144}
0x03342…0334c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x014e}
0x0334c…03382               Head {h00=0x0032, h01=0x0050, text=»* WHEATHER THE LINE DRIVER PART OF THE DRIVER «, t00=0x0020, t01=0x0158}
0x03382…033b4               Head {h00=0x002e, h01=0x0050, text=»*  SHOULD HANDLE SCREEN SECTION OF VCCU1/4«, t00=0x0020, t01=0x018e}
0x033b4…033e4               Head {h00=0x002c, h01=0x0050, text=»* CONNECTED ON PROGRAMMED CHANNEL OR IOP«, t00=0x0021, t01=0x0030}
0x033e4…03414               Head {h00=0x002c, h01=0x0050, text=»* IS SELECTED BY SETTING X:B TO 0 OR 1. «, t00=0x0021, t01=0x0060}
0x03414…0341e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0090}
0x0341e…03430               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0021, t01=0x009a}
0x03430…03444               Head {h00=0x0010, h01=0x0050, text=»IOP EQU X:B «, t00=0x0021, t01=0x00ac}
0x03444…0344e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c0}
0x0344e…03458               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ca}
0x03458…03462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d4}
0x03462…034ae               Head {h00=0x0048, h01=0x0050, text=»* IF A DRIVER VERSION USING THE EXTENDED INSTRUCTION SET IS WANTED, «, t00=0x0021, t01=0x00de}
0x034ae…034e0               Head {h00=0x002e, h01=0x0050, text=»* THIS IS SELECTED BY SETTING CPU852 TO 0.«, t00=0x0021, t01=0x012a}
0x034e0…034ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x015c}
0x034ea…034fe               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0021, t01=0x0166}
0x034fe…03508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017a}
0x03508…03512               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0184}
0x03512…0351c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x018e}
0x0351c…0355a               Head {h00=0x003a, h01=0x0050, text=»* WHICH ONE OF EITHER OF THE TWO CHARACTER GENERATORS «, t00=0x0022, t01=0x0008}
0x0355a…035a0               Head {h00=0x0042, h01=0x0050, text=»* FOR SCREEN OUTPUT (TYPE I = ENGLISH, OR TYPE II = AMERICAN) «, t00=0x0022, t01=0x0046}
0x035a0…035dc               Head {h00=0x0038, h01=0x0050, text=»* THE LINE DRIVER PART OF THE DRIVER SHOULD HANDLE, «, t00=0x0022, t01=0x008c}
0x035dc…0360c               Head {h00=0x002c, h01=0x0050, text=»* IS SELECTED BY SETTING X:C TO 1 OR 2. «, t00=0x0022, t01=0x00c8}
0x0360c…03616               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f8}
0x03616…03628               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0022, t01=0x0102}
0x03628…0363e               Head {h00=0x0012, h01=0x0050, text=»CHAGEN EQU X:C«, t00=0x0022, t01=0x0114}
0x0363e…03648               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x012a}
0x03648…03678               Head {h00=0x002c, h01=0x0050, text=»* WHICH CHARACTER-SET FOR SCREEN OUTPUT,«, t00=0x0022, t01=0x0134}
0x03678…036b2               Head {h00=0x0036, h01=0x0050, text=»* THE LINE DRIVER PART OF THE DRIVER SHOULD HANDLE«, t00=0x0022, t01=0x0164}
0x036b2…036ec               Head {h00=0x0036, h01=0x0050, text=»*    (PROVIDED THAT THE CHARACTER SET IS SUPPORTED«, t00=0x0023, t01=0x000e}
0x036ec…03720               Head {h00=0x0030, h01=0x0050, text=»*     BY THE SELECTED CHARACTER GENERATOR), «, t00=0x0023, t01=0x0048}
0x03720…03762               Head {h00=0x003e, h01=0x0050, text=»* IS SELECTED BY SETTING X:D TO 0,1,2,3,4,5,6,7,8,9 OR /A.«, t00=0x0023, t01=0x007c}
0x03762…0376a               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00be}
0x0376a…03772               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00c6}
0x03772…03792               Head {h00=0x001c, h01=0x0050, text=»* CHARACTER-SET COUNTRY «, t00=0x0023, t01=0x00ce}
0x03792…0379a               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00ee}
0x0379a…037b4               Head {h00=0x0016, h01=0x0050, text=»* 0 GB/NZ/SA/NL/B «, t00=0x0023, t01=0x00f6}
0x037b4…037c8               Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0023, t01=0x0110}
0x037c8…037dc               Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0023, t01=0x0124}
0x037dc…037ea               Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0023, t01=0x0138}
0x037ea…037fa               Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0023, t01=0x0146}
0x037fa…0380a               Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0023, t01=0x0156}
0x0380a…0381a               Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0023, t01=0x0166}
0x0381a…03828               Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0023, t01=0x0176}
0x03828…03836               Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0023, t01=0x0184}
0x03836…03844 (36, 0, 400)  Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0024, t01=0x0004}
0x03844…03864               Head {h00=0x001c, h01=0x0050, text=»* A S (INDUSTRY VERSION)«, t00=0x0024, t01=0x0012}
0x03864…0386e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0032}
0x0386e…03880               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0024, t01=0x003c}
0x03880…03896               Head {h00=0x0012, h01=0x0050, text=»CHASET EQU X:D«, t00=0x0024, t01=0x004e}
0x03896…038a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0064}
0x038a0…038aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x006e}
0x038aa…038b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0078}
0x038b4…038c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0082}
0x038c2…038cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0090}
0x038cc…038fe               Head {h00=0x002e, h01=0x0050, text=»* IF THE DEVICE DRIVER PART OF THE DRIVER «, t00=0x0024, t01=0x009a}
0x038fe…03932               Head {h00=0x0030, h01=0x0050, text=»*  SHOULD ECHO ALSO END-OF-RECORD-CHARACTER,«, t00=0x0024, t01=0x00cc}
0x03932…03962               Head {h00=0x002c, h01=0x0050, text=»* THIS IS SELECTED BY SETTING X:E TO 1. «, t00=0x0024, t01=0x0100}
0x03962…0396c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0130}
0x0396c…0397e               Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0024, t01=0x013a}
0x0397e…03994               Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:E«, t00=0x0024, t01=0x014c}
0x03994…0399e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0162}
0x0399e…039d0               Head {h00=0x002e, h01=0x0050, text=»* IF THE DEVICE DRIVER PART OF THE DRIVER «, t00=0x0024, t01=0x016c}
0x039d0…03a0c               Head {h00=0x0038, h01=0x0050, text=»*  SHOULD SUPPRESS TRAILING STRINGS COMPOSED ONLY OF«, t00=0x0025, t01=0x000e}
0x03a0c…03a3e               Head {h00=0x002e, h01=0x0050, text=»* /20, /11+POS.CHARACTERS, /12, /1E, /1F, «, t00=0x0025, t01=0x004a}
0x03a3e…03a6e               Head {h00=0x002c, h01=0x0050, text=»* THIS IS SELECTED BY SETTING X:F TO 1. «, t00=0x0025, t01=0x007c}
0x03a6e…03a78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ac}
0x03a78…03a8a               Head {h00=0x000e, h01=0x0050, text=»X:F EQU 1 «, t00=0x0025, t01=0x00b6}
0x03a8a…03aa0               Head {h00=0x0012, h01=0x0050, text=»TRASPA EQU X:F«, t00=0x0025, t01=0x00c8}
0x03aa0…03aaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00de}
0x03aaa…03ab4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e8}
0x03ab4…03ae0               Head {h00=0x0028, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE FOR «, t00=0x0025, t01=0x00f2}
0x03ae0…03b10               Head {h00=0x002c, h01=0x0050, text=»*  THE DEVICE DRIVER PART OF THE DRIVER «, t00=0x0025, t01=0x011e}
0x03b10…03b52               Head {h00=0x003e, h01=0x0050, text=»* IS SELECTED BY SETTING X:G TO THE WANTED SIZE IN BYTES. «, t00=0x0025, t01=0x014e}
0x03b52…03b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0190}
0x03b5c…03b66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x000a}
0x03b66…03b78               Head {h00=0x000e, h01=0x0050, text=»X:G EQU 80«, t00=0x0026, t01=0x0014}
0x03b78…03b8e               Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:G«, t00=0x0026, t01=0x0026}
0x03b8e…03b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003c}
0x03b98…03ba6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0046}
0x03ba6…03bb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0054}
0x03bb0…03bba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005e}
0x03bba…03be2               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0026, t01=0x0068}
0x03be2…03c1c               Head {h00=0x0036, h01=0x0050, text=»*    DWT-DISPLACEMENTS RELATIVE DWTDEV          * «, t00=0x0026, t01=0x0090}
0x03c1c…03c44               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0026, t01=0x00ca}
0x03c44…03c4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f2}
0x03c4e…03c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00fc}
0x03c58…03c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x03c62…03c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0110}
0x03c6c…03ca6               Head {h00=0x0036, h01=0x0050, text=»DWTCN EQU 2 CURRENT NEXT WRITE POS. DURING REQUEST«, t00=0x0026, t01=0x011a}
0x03ca6…03ce6               Head {h00=0x003c, h01=0x0050, text=»DWTCNR EQU DWTCN CURRENT NEXT WRITE POSITION ROW NUMBER «, t00=0x0026, t01=0x0154}
0x03ce6…03d26 (39, 0, 400)  Head {h00=0x003c, h01=0x0050, text=»DWTCNC EQU DWTCN+1 CURRENT NEXT WRITE POS. COLUMN NUMBER«, t00=0x0027, t01=0x0004}
0x03d26…03d30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0044}
0x03d30…03d3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x004e}
0x03d3a…03d70               Head {h00=0x0032, h01=0x0050, text=»DWTSN EQU 4 SAVED CURRENT NEXT WRITE POSITION «, t00=0x0027, t01=0x0058}
0x03d70…03da4               Head {h00=0x0030, h01=0x0050, text=»*   AFTER PREVIOUS REQUEST OR AT /14 COMMAND«, t00=0x0027, t01=0x008e}
0x03da4…03de2               Head {h00=0x003a, h01=0x0050, text=»DWTSNR EQU DWTSN SAVED NEXT WRITE POSITION ROW NUMBER «, t00=0x0027, t01=0x00c2}
0x03de2…03e20               Head {h00=0x003a, h01=0x0050, text=»DWTSNC EQU DWTSN+1 SAVED NEXT WRITE POS. COLUMN NUMBER«, t00=0x0027, t01=0x0100}
0x03e20…03e2e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x013e}
0x03e2e…03e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014c}
0x03e38…03e4e               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0027, t01=0x0156}
0x03e4e…03e64               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0027, t01=0x016c}
0x03e64…03e7a               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0027, t01=0x0182}
0x03e7a…03e84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0008}
0x03e84…03eb8               Head {h00=0x0030, h01=0x0050, text=»* USED BY SCREEN SECTION, DEVICE DRIVER PART«, t00=0x0028, t01=0x0012}
0x03eb8…03ec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0046}
0x03ec2…03efe               Head {h00=0x0038, h01=0x0050, text=»MAXROW EQU /1818 MAX NUMBER OF ROWS PER SCREEN IS 24«, t00=0x0028, t01=0x0050}
0x03efe…03f3e               Head {h00=0x003c, h01=0x0050, text=»MAXCOL EQU /5050 MAX NUMBER OF COLUMNS PER SCREEN IS 80 «, t00=0x0028, t01=0x008c}
0x03f3e…03f54               Head {h00=0x0012, h01=0x0050, text=»* DWTDEV-BITS «, t00=0x0028, t01=0x00cc}
0x03f54…03f92               Head {h00=0x003a, h01=0x0050, text=»UNDBIT EQU /0400 UNDERLINE/NON-UNDERLINE DISPLAY-MODE «, t00=0x0028, t01=0x00e2}
0x03f92…03fca               Head {h00=0x0034, h01=0x0050, text=»INTBIT EQU /0100 HIGH/LOW INTENSITY DISPLAY-MODE«, t00=0x0028, t01=0x0120}
0x03fca…03fec               Head {h00=0x001e, h01=0x0050, text=»ROLBIT EQU /80 SCROLL MODE«, t00=0x0028, t01=0x0158}
0x03fec…04016               Head {h00=0x0026, h01=0x0050, text=»LCWBIT EQU /40 LAST COLUMN WRITTEN«, t00=0x0028, t01=0x017a}
0x04016…04054               Head {h00=0x003a, h01=0x0050, text=»LCPBIT EQU /20 LAST COLUMN WRITTEN BY PREVIOUS REQUEST«, t00=0x0029, t01=0x0014}
0x04054…0405e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0052}
0x0405e…0407a               Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x0029, t01=0x005c}
0x0407a…040a0               Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x0029, t01=0x0078}
0x040a0…040aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x009e}
0x040aa…040d8               Head {h00=0x002a, h01=0x0050, text=»CCERR EQU /4 STATUS: CODE CHECK ERROR «, t00=0x0029, t01=0x00a8}
0x040d8…04102               Head {h00=0x0026, h01=0x0050, text=»OPERR EQU /1 STATUS: NOT OPERABLE «, t00=0x0029, t01=0x00d6}
0x04102…0410c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0100}
0x0410c…04116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010a}
0x04116…04148               Head {h00=0x002e, h01=0x0050, text=»* USED BY SCREEN SECTION, LINE DRIVER PART«, t00=0x0029, t01=0x0114}
0x04148…04152               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0146}
0x04152…0418c               Head {h00=0x0036, h01=0x0050, text=»IOPPAR EQU /C000 WORD-MODE + READ-MEMORY TRANSFER «, t00=0x0029, t01=0x0150}
0x0418c…041c0               Head {h00=0x0030, h01=0x0050, text=»* DWTST BIT 11,12,13 (LINE DRIVER DEPENDANT)«, t00=0x0029, t01=0x018a}
0x041c0…041f6               Head {h00=0x0032, h01=0x0050, text=»OTRFLA EQU /0010 OTR-ACTION AT NEXT INTERRUPT «, t00=0x002a, t01=0x002e}
0x041f6…0422c               Head {h00=0x0032, h01=0x0050, text=»HLTFLA EQU /0008 HALT-ACTION AT NEXT INTERRUPT«, t00=0x002a, t01=0x0064}
0x0422c…04262               Head {h00=0x0032, h01=0x0050, text=»SSTFLA EQU /0004 SST-ACTION AT NEXT INTERRUPT «, t00=0x002a, t01=0x009a}
0x04262…0426c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d0}
0x0426c…0429c               Head {h00=0x002c, h01=0x0050, text=»SMLCUR EQU /07FF SCREEN MEMORY LOCATION «, t00=0x002a, t01=0x00da}
0x0429c…042c0               Head {h00=0x0020, h01=0x0050, text=»*   HOLDING CURSOR POSITION «, t00=0x002a, t01=0x010a}
0x042c0…042ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012e}
0x042ca…042fa               Head {h00=0x002c, h01=0x0050, text=»AUTCLE EQU /2000 BIO-BIT FOR AUTO-CLEAR «, t00=0x002a, t01=0x0138}
0x042fa…0434a               Head {h00=0x004c, h01=0x0050, text=»* ERROR-STATUS FROM LINE DRIVER TO DEVICE DRIVER PART OF SCREEN SECTION «, t00=0x002a, t01=0x0168}
0x0434a…04380               Head {h00=0x0032, h01=0x0050, text=»CIOERR EQU /8000 ERROR: CIO START NOT ACCEPTED«, t00=0x002b, t01=0x0028}
0x04380…043b0               Head {h00=0x002c, h01=0x0050, text=»OTRERR EQU /4000 ERROR: OTR NOT ACCEPTED«, t00=0x002b, t01=0x005e}
0x043b0…043e0               Head {h00=0x002c, h01=0x0050, text=»SSTERR EQU /2000 ERROR: SST NOT ACCEPTED«, t00=0x002b, t01=0x008e}
0x043e0…0441a               Head {h00=0x0036, h01=0x0050, text=»SSTER2 EQU /1000 ERROR: SST UNEXPECTEDLY ACCEPTED «, t00=0x002b, t01=0x00be}
0x0441a…0443e               Head {h00=0x0020, h01=0x0050, text=»*   (AFTER CIO START OR OTR,«, t00=0x002b, t01=0x00f8}
0x0443e…0445e               Head {h00=0x001c, h01=0x0050, text=»*   BUT BEFORE CIO HALT)«, t00=0x002b, t01=0x011c}
0x0445e…0449a               Head {h00=0x0038, h01=0x0050, text=»PFERR EQU /0800 I/O-INSTRUCTION TRIED DURING PFPOST «, t00=0x002b, t01=0x013c}
0x0449a…044a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0178}
0x044a4…044ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0182}
0x044ae…044d4               Head {h00=0x0022, h01=0x0050, text=»* USED BY PERIPHERAL SECTION: «, t00=0x002b, t01=0x018c}
0x044d4…044de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0022}
0x044de…044e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x002c}
0x044e8…04528               Head {h00=0x003c, h01=0x0050, text=»QUETIM EQU 1 CWT PERIPHERAL OUTPUT QUEUE TIME-OUT VALUE «, t00=0x002c, t01=0x0036}
0x04528…04548               Head {h00=0x001c, h01=0x0050, text=»*   (MULTIPLES OF 100MS)«, t00=0x002c, t01=0x0076}
0x04548…04580               Head {h00=0x0034, h01=0x0050, text=»MAXTVU EQU 4 MAX NBR OF TERMINALS ON ANY VCCU1/4«, t00=0x002c, t01=0x0096}
0x04580…045b4               Head {h00=0x0030, h01=0x0050, text=»TCPON EQU /0001 RECOVERY CAUSE: TC POWER ON «, t00=0x002c, t01=0x00ce}
0x045b4…045f6               Head {h00=0x003e, h01=0x0050, text=»PONPSW EQU /2080 POWER-ON-PSW: LEVEL 8, RUN-MODE, INH-MODE«, t00=0x002c, t01=0x0102}
0x045f6…04600               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0144}
0x04600…04640               Head {h00=0x003c, h01=0x0050, text=»INSTAT EQU /0800 MASK FOR BIO BIT : STATUS OR DATA INPUT«, t00=0x002c, t01=0x014e}
0x04640…04684               Head {h00=0x0040, h01=0x0050, text=»TERMNR EQU /0300 MASK FOR BIO BITS : TERM.NBR WITHIN CHANNEL«, t00=0x002c, t01=0x018e}
0x04684…046c4               Head {h00=0x003c, h01=0x0050, text=»DEVADR EQU /0400 MASK FOR BIO BIT: DEV.ADR. WITHIN TERM.«, t00=0x002d, t01=0x0042}
0x046c4…04702               Head {h00=0x003a, h01=0x0050, text=»INDATA EQU /00FF MASK FOR BIO DATA BITS IN INPUT WORD «, t00=0x002d, t01=0x0082}
0x04702…0470c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c0}
0x0470c…0471a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00ca}
0x0471a…04724               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d8}
0x04724…04736               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x00e2}
0x04736…04748               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x002d, t01=0x00f4}
0x04748…0475a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0106}
0x0475a…04764               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0118}
0x04764…04782               Head {h00=0x001a, h01=0x0050, text=»* DRIVER ADDRESS BLOCK«, t00=0x002d, t01=0x0122}
0x04782…0478c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0140}
0x0478c…047ae               Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x002d, t01=0x014a}
0x047ae…047ec               Head {h00=0x003a, h01=0x0050, text=» DATA PC:DIX PROGRAMMED CHANNEL DEVICE INDEX (ALWAYS!)«, t00=0x002d, t01=0x016c}
0x047ec…0480c               Head {h00=0x001c, h01=0x0050, text=»VUAD EQU * ADDRESS BLOCK«, t00=0x002e, t01=0x001a}
0x0480c…04830               Head {h00=0x0020, h01=0x0050, text=» DATA ACVU ACTIVATION DRIVER«, t00=0x002e, t01=0x003a}
0x04830…04858               Head {h00=0x0024, h01=0x0050, text=» DATA ABVU ABORT ROUTINE ADDRESS«, t00=0x002e, t01=0x005e}
0x04858…0487a               Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x002e, t01=0x0086}
0x0487a…0489e               Head {h00=0x0020, h01=0x0050, text=» DATA RCVU RECOVERY ROUTINE «, t00=0x002e, t01=0x00a8}
0x0489e…048d0               Head {h00=0x002e, h01=0x0050, text=» DATA ECHOVU DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x002e, t01=0x00cc}
0x048d0…048da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fe}
0x048da…048e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0108}
0x048e4…048ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0112}
0x048ee…0490e               Head {h00=0x001c, h01=0x0050, text=»* CODE CONVERSION TABLE «, t00=0x002e, t01=0x011c}
0x0490e…04918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x013c}
0x04918…04922               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0146}
0x04922…04936               Head {h00=0x0010, h01=0x0050, text=»CODINP EQU *«, t00=0x002e, t01=0x0150}
0x04936…04962               Head {h00=0x0028, h01=0x0050, text=» DATA /2340,/5B5C,/5D60,/7B7C,/7D7E «, t00=0x002e, t01=0x0164}
0x04962…04976               Head {h00=0x0010, h01=0x0050, text=»CODOUT EQU *«, t00=0x002e, t01=0x0190}
0x04976…0498c               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=0 «, t00=0x002f, t01=0x0014}
0x0498c…049a2               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x002f, t01=0x002a}
0x049a2…049ce               Head {h00=0x0028, h01=0x0050, text=» DATA /2340,/5B5C,/5D60,/7B7C,/7D7E «, t00=0x002f, t01=0x0040}
0x049ce…049da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x006c}
0x049da…049f0               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=0 «, t00=0x002f, t01=0x0078}
0x049f0…04a06               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=2 «, t00=0x002f, t01=0x008e}
0x04a06…04a32               Head {h00=0x0028, h01=0x0050, text=» DATA /0340,/5B5C,/5D60,/7B7C,/7D7E «, t00=0x002f, t01=0x00a4}
0x04a32…04a3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00d0}
0x04a3e…04a54               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=1 «, t00=0x002f, t01=0x00dc}
0x04a54…04a6a               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x002f, t01=0x00f2}
0x04a6a…04a96               Head {h00=0x0028, h01=0x0050, text=» DATA /0310,/0B0C,/0E60,/1B1C,/0E11 «, t00=0x002f, t01=0x0108}
0x04a96…04aa2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0134}
0x04aa2…04ab8               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=2 «, t00=0x002f, t01=0x0140}
0x04ab8…04ace               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x002f, t01=0x0156}
0x04ace…04afa               Head {h00=0x0028, h01=0x0050, text=» DATA /2312,/0608,/1060,/1716,/1305 «, t00=0x002f, t01=0x016c}
0x04afa…04b06               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0008}
0x04b06…04b1c               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=3 «, t00=0x0030, t01=0x0014}
0x04b1c…04b32               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=2 «, t00=0x0030, t01=0x002a}
0x04b32…04b5e               Head {h00=0x0028, h01=0x0050, text=» DATA /0340,/5B08,/5D60,/7B18,/7D7E «, t00=0x0030, t01=0x0040}
0x04b5e…04b6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x006c}
0x04b6a…04b80               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=4 «, t00=0x0030, t01=0x0078}
0x04b80…04b96               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x0030, t01=0x008e}
0x04b96…04bc2               Head {h00=0x0028, h01=0x0050, text=» DATA /2310,/0608,/0716,/1215,/1314 «, t00=0x0030, t01=0x00a4}
0x04bc2…04bce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00d0}
0x04bce…04be4               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=5 «, t00=0x0030, t01=0x00dc}
0x04be4…04bfa               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x0030, t01=0x00f2}
0x04bfa…04c26               Head {h00=0x0028, h01=0x0050, text=» DATA /0307,/0B0C,/0D17,/1B1C,/1D7E «, t00=0x0030, t01=0x0108}
0x04c26…04c32               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0134}
0x04c32…04c48               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=6 «, t00=0x0030, t01=0x0140}
0x04c48…04c5e               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x0030, t01=0x0156}
0x04c5e…04c8a               Head {h00=0x0028, h01=0x0050, text=» DATA /2340,/0A02,/0D60,/1A04,/1D7E «, t00=0x0030, t01=0x016c}
0x04c8a…04c96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0008}
0x04c96…04cac               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=7 «, t00=0x0031, t01=0x0014}
0x04cac…04cc2               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=2 «, t00=0x0031, t01=0x002a}
0x04cc2…04cee               Head {h00=0x0028, h01=0x0050, text=» DATA /0340,/0604,/0560,/1614,/157E «, t00=0x0031, t01=0x0040}
0x04cee…04cfa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x006c}
0x04cfa…04d10               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=8 «, t00=0x0031, t01=0x0078}
0x04d10…04d26               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=2 «, t00=0x0031, t01=0x008e}
0x04d26…04d52               Head {h00=0x0028, h01=0x0050, text=» DATA /0307,/0B0C,/0D17,/1B1C,/1D7E «, t00=0x0031, t01=0x00a4}
0x04d52…04d5e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00d0}
0x04d5e…04d74               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=9 «, t00=0x0031, t01=0x00dc}
0x04d74…04d8a               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x0031, t01=0x00f2}
0x04d8a…04db6               Head {h00=0x0028, h01=0x0050, text=» DATA /0340,/5B5C,/5D60,/7B7C,/7D7E «, t00=0x0031, t01=0x0108}
0x04db6…04dc2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0134}
0x04dc2…04dd8               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=9 «, t00=0x0031, t01=0x0140}
0x04dd8…04dee               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=2 «, t00=0x0031, t01=0x0156}
0x04dee…04e1a               Head {h00=0x0028, h01=0x0050, text=» DATA /2340,/5B5C,/5D60,/7B7C,/7D7E «, t00=0x0031, t01=0x016c}
0x04e1a…04e26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0008}
0x04e26…04e3c               Head {h00=0x0012, h01=0x0050, text=» IFT CHASET=/A«, t00=0x0032, t01=0x0014}
0x04e3c…04e52               Head {h00=0x0012, h01=0x0050, text=» IFT CHAGEN=1 «, t00=0x0032, t01=0x002a}
0x04e52…04e7e               Head {h00=0x0028, h01=0x0050, text=» DATA /2340,/0B0C,/0D60,/1B1C,/1D7E «, t00=0x0032, t01=0x0040}
0x04e7e…04e8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x006c}
0x04e8a…04e94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0078}
0x04e94…04eda               Head {h00=0x0042, h01=0x0050, text=»* IF ERROR IN SYSGEN (WRONG COMBINATION OF CHASET AND CHAGEN),«, t00=0x0032, t01=0x0082}
0x04eda…04f0c               Head {h00=0x002e, h01=0x0050, text=»* THEN CHARACTER-SET DEPENDANT INPUT-CODES«, t00=0x0032, t01=0x00c8}
0x04f0c…04f36               Head {h00=0x0026, h01=0x0050, text=»* ARE CONVERTED TO QUESTION MARKS.«, t00=0x0032, t01=0x00fa}
0x04f36…04f40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0124}
0x04f40…04f6c               Head {h00=0x0028, h01=0x0050, text=» DATA /3F3F,/3F3F,/3F3F,/3F3F,/3F3F «, t00=0x0032, t01=0x012e}
0x04f6c…04f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x015a}
0x04f76…04f80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0164}
0x04f80…04f8e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x016e}
0x04f8e…04f98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x017c}
0x04f98…04fce               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0032, t01=0x0186}
0x04fce…05006               Head {h00=0x0034, h01=0x0050, text=»*    C W T T A B                               *«, t00=0x0033, t01=0x002c}
0x05006…0503c               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0033, t01=0x0064}
0x0503c…05046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009a}
0x05046…0508c               Head {h00=0x0042, h01=0x0050, text=»*   THIS TABLE HOLDS ADDRESSES TO CHANNEL WORK TABLES, CWT:S, «, t00=0x0033, t01=0x00a4}
0x0508c…050b8               Head {h00=0x0028, h01=0x0050, text=»*   ONE CWT PER VIDEO CHANNEL UNIT. «, t00=0x0033, t01=0x00ea}
0x050b8…050c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0116}
0x050c2…050cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0120}
0x050cc…050e0               Head {h00=0x0010, h01=0x0050, text=»CWTTAB EQU *«, t00=0x0033, t01=0x012a}
0x050e0…05104               Head {h00=0x0020, h01=0x0050, text=» DATA CWTABE-* TABLE LENGTH «, t00=0x0033, t01=0x013e}
0x05104…0511a               Head {h00=0x0012, h01=0x0050, text=» DATA CWTVU1  «, t00=0x0033, t01=0x0162}
0x0511a…05130               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0033, t01=0x0178}
0x05130…05144               Head {h00=0x0010, h01=0x0050, text=» DATA CWTVU2«, t00=0x0033, t01=0x018e}
0x05144…05150               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0012}
0x05150…05166               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0034, t01=0x001e}
0x05166…0517c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0034, t01=0x0034}
0x0517c…05190               Head {h00=0x0010, h01=0x0050, text=» DATA CWTVU3«, t00=0x0034, t01=0x004a}
0x05190…0519c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x005e}
0x0519c…051b2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0034, t01=0x006a}
0x051b2…051c8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0034, t01=0x0080}
0x051c8…051de               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0034, t01=0x0096}
0x051de…051f2               Head {h00=0x0010, h01=0x0050, text=» DATA CWTVU4«, t00=0x0034, t01=0x00ac}
0x051f2…051fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00c0}
0x051fe…05214               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0034, t01=0x00cc}
0x05214…0522a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0034, t01=0x00e2}
0x0522a…05240               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0034, t01=0x00f8}
0x05240…05256               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0034, t01=0x010e}
0x05256…0526a               Head {h00=0x0010, h01=0x0050, text=» DATA CWTVU5«, t00=0x0034, t01=0x0124}
0x0526a…05276               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0138}
0x05276…0528c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0034, t01=0x0144}
0x0528c…052a2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0034, t01=0x015a}
0x052a2…052b8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0034, t01=0x0170}
0x052b8…052ce               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0034, t01=0x0186}
0x052ce…052e4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0035, t01=0x000c}
0x052e4…052f8               Head {h00=0x0010, h01=0x0050, text=» DATA CWTVU6«, t00=0x0035, t01=0x0022}
0x052f8…05304               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0036}
0x05304…0531a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0035, t01=0x0042}
0x0531a…05330               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0035, t01=0x0058}
0x05330…05346               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0035, t01=0x006e}
0x05346…0535c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0035, t01=0x0084}
0x0535c…05372               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0035, t01=0x009a}
0x05372…05388               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x0035, t01=0x00b0}
0x05388…0539c               Head {h00=0x0010, h01=0x0050, text=» DATA CWTVU7«, t00=0x0035, t01=0x00c6}
0x0539c…053a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00da}
0x053a8…053be               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0035, t01=0x00e6}
0x053be…053d4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0035, t01=0x00fc}
0x053d4…053ea               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0035, t01=0x0112}
0x053ea…05400               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0035, t01=0x0128}
0x05400…05416               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0035, t01=0x013e}
0x05416…0542c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x0035, t01=0x0154}
0x0542c…05442               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=7 «, t00=0x0035, t01=0x016a}
0x05442…05456               Head {h00=0x0010, h01=0x0050, text=» DATA CWTVU8«, t00=0x0035, t01=0x0180}
0x05456…05462 (54, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0004}
0x05462…05484               Head {h00=0x001e, h01=0x0050, text=»CWTABE EQU * END OF TABLE «, t00=0x0036, t01=0x0010}
0x05484…0548e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0032}
0x0548e…0549c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x003c}
0x0549c…054a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x004a}
0x054a6…054b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0054}
0x054b0…054ee               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0036, t01=0x005e}
0x054ee…0552c               Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 1                                    * «, t00=0x0036, t01=0x009c}
0x0552c…0556a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0036, t01=0x00da}
0x0556a…05574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0118}
0x05574…055b0               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 1«, t00=0x0036, t01=0x0122}
0x055b0…055ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015e}
0x055ba…055c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0168}
0x055c4…055ec               Head {h00=0x0024, h01=0x0050, text=»VU1 EQU /0C CONTROL UNIT ADDRESS«, t00=0x0036, t01=0x0172}
0x055ec…055f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x000a}
0x055f6…05616               Head {h00=0x001c, h01=0x0050, text=»CWTVU1 EQU * TABLE ENTRY«, t00=0x0037, t01=0x0014}
0x05616…05632               Head {h00=0x0018, h01=0x0050, text=»CWTDOS EQU *-CWTVU1 «, t00=0x0037, t01=0x0034}
0x05632…0566a               Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x0037, t01=0x0050}
0x0566a…05686               Head {h00=0x0018, h01=0x0050, text=»CWTPQ EQU *-CWTVU1  «, t00=0x0037, t01=0x0088}
0x05686…056bc               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x0037, t01=0x00a4}
0x056bc…056d8               Head {h00=0x0018, h01=0x0050, text=»CWTSEQ EQU *-CWTVU1 «, t00=0x0037, t01=0x00da}
0x056d8…05710               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x0037, t01=0x00f6}
0x05710…0572c               Head {h00=0x0018, h01=0x0050, text=»CWTSLQ EQU *-CWTVU1 «, t00=0x0037, t01=0x012e}
0x0572c…05762               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x0037, t01=0x014a}
0x05762…0577e               Head {h00=0x0018, h01=0x0050, text=»CWTTP EQU *-CWTVU1  «, t00=0x0037, t01=0x0180}
0x0577e…057b4               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x0038, t01=0x000c}
0x057b4…057d0               Head {h00=0x0018, h01=0x0050, text=»CWTACK EQU *-CWTVU1 «, t00=0x0038, t01=0x0042}
0x057d0…05810               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x0038, t01=0x005e}
0x05810…0582c               Head {h00=0x0018, h01=0x0050, text=»CWTSRD EQU *-CWTVU1 «, t00=0x0038, t01=0x009e}
0x0582c…05858               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x0038, t01=0x00ba}
0x05858…05874               Head {h00=0x0018, h01=0x0050, text=»CWTITA EQU *-CWTVU1 «, t00=0x0038, t01=0x00e6}
0x05874…058b2               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU1 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x0038, t01=0x0102}
0x058b2…058ce               Head {h00=0x0018, h01=0x0050, text=»CWTCSS EQU *-CWTVU1 «, t00=0x0038, t01=0x0140}
0x058ce…058f4               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU1 CIO START SCREEN«, t00=0x0038, t01=0x015c}
0x058f4…05910               Head {h00=0x0018, h01=0x0050, text=»CWTCSP EQU *-CWTVU1 «, t00=0x0038, t01=0x0182}
0x05910…0593c               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU1+1 CIO START PERIPHERAL«, t00=0x0039, t01=0x000e}
0x0593c…05958               Head {h00=0x0018, h01=0x0050, text=»CWTOTS EQU *-CWTVU1 «, t00=0x0039, t01=0x003a}
0x05958…05978               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU1 OTR SCREEN«, t00=0x0039, t01=0x0056}
0x05978…05994               Head {h00=0x0018, h01=0x0050, text=»CWTOTP EQU *-CWTVU1 «, t00=0x0039, t01=0x0076}
0x05994…059ba               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU1+1 OTR PERIPHERAL«, t00=0x0039, t01=0x0092}
0x059ba…059d6               Head {h00=0x0018, h01=0x0050, text=»CWTCHS EQU *-CWTVU1 «, t00=0x0039, t01=0x00b8}
0x059d6…059fc               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU1 CIO HALT SCREEN «, t00=0x0039, t01=0x00d4}
0x059fc…05a18               Head {h00=0x0018, h01=0x0050, text=»CWTCHP EQU *-CWTVU1 «, t00=0x0039, t01=0x00fa}
0x05a18…05a44               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU1+1 CIO HALT PERIPHERAL «, t00=0x0039, t01=0x0116}
0x05a44…05a60               Head {h00=0x0018, h01=0x0050, text=»CWTSST EQU *-CWTVU1 «, t00=0x0039, t01=0x0142}
0x05a60…05a86               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU1 SST (SCREEN ONLY) «, t00=0x0039, t01=0x015e}
0x05a86…05aa2               Head {h00=0x0018, h01=0x0050, text=»CWTINR EQU *-CWTVU1 «, t00=0x0039, t01=0x0184}
0x05aa2…05ad0               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU1+1 INR (PERIPHERAL ONLY) «, t00=0x003a, t01=0x0010}
0x05ad0…05ae2               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x003a, t01=0x003e}
0x05ae2…05afe               Head {h00=0x0018, h01=0x0050, text=»CWTWE1 EQU *-CWTVU1 «, t00=0x003a, t01=0x0050}
0x05afe…05b32               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU1+VU1 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x003a, t01=0x006c}
0x05b32…05b4e               Head {h00=0x0018, h01=0x0050, text=»CWTWE2 EQU *-CWTVU1 «, t00=0x003a, t01=0x00a0}
0x05b4e…05b84               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU1+VU1+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x003a, t01=0x00bc}
0x05b84…05ba0               Head {h00=0x0018, h01=0x0050, text=»CWTBUF EQU *-CWTVU1 «, t00=0x003a, t01=0x00f2}
0x05ba0…05bd4               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x003a, t01=0x010e}
0x05bd4…05bf0               Head {h00=0x0018, h01=0x0050, text=»CWTBIN EQU *-CWTVU1 «, t00=0x003a, t01=0x0142}
0x05bf0…05c28               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x003a, t01=0x015e}
0x05c28…05c34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0008}
0x05c34…05c3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0014}
0x05c3e…05c54               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x003b, t01=0x001e}
0x05c54…05c62               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0034}
0x05c62…05c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0042}
0x05c6c…05c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x004c}
0x05c76…05cb4               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003b, t01=0x0056}
0x05cb4…05cf2               Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 2                                    * «, t00=0x003b, t01=0x0094}
0x05cf2…05d30               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003b, t01=0x00d2}
0x05d30…05d3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0110}
0x05d3a…05d76               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 2«, t00=0x003b, t01=0x011a}
0x05d76…05d80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0156}
0x05d80…05d8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0160}
0x05d8a…05db2               Head {h00=0x0024, h01=0x0050, text=»VU2 EQU /0E CONTROL UNIT ADDRESS«, t00=0x003b, t01=0x016a}
0x05db2…05dbc (60, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0004}
0x05dbc…05ddc               Head {h00=0x001c, h01=0x0050, text=»CWTVU2 EQU * TABLE ENTRY«, t00=0x003c, t01=0x000e}
0x05ddc…05de6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x002e}
0x05de6…05e1e               Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x003c, t01=0x0038}
0x05e1e…05e54               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x003c, t01=0x0070}
0x05e54…05e8c               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x003c, t01=0x00a6}
0x05e8c…05ec2               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x003c, t01=0x00de}
0x05ec2…05ef8               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x003c, t01=0x0114}
0x05ef8…05f38               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x003c, t01=0x014a}
0x05f38…05f64               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x003c, t01=0x018a}
0x05f64…05fa2               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU2 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x003d, t01=0x0026}
0x05fa2…05fc8               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU2 CIO START SCREEN«, t00=0x003d, t01=0x0064}
0x05fc8…05ff4               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU2+1 CIO START PERIPHERAL«, t00=0x003d, t01=0x008a}
0x05ff4…06014               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU2 OTR SCREEN«, t00=0x003d, t01=0x00b6}
0x06014…0603a               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU2+1 OTR PERIPHERAL«, t00=0x003d, t01=0x00d6}
0x0603a…06060               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU2 CIO HALT SCREEN «, t00=0x003d, t01=0x00fc}
0x06060…0608c               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU2+1 CIO HALT PERIPHERAL «, t00=0x003d, t01=0x0122}
0x0608c…060b2               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU2 SST (SCREEN ONLY) «, t00=0x003d, t01=0x014e}
0x060b2…060e0               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU2+1 INR (PERIPHERAL ONLY) «, t00=0x003d, t01=0x0174}
0x060e0…060f2               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x003e, t01=0x0012}
0x060f2…06126               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU2+VU2 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x003e, t01=0x0024}
0x06126…0615c               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU2+VU2+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x003e, t01=0x0058}
0x0615c…06190               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x003e, t01=0x008e}
0x06190…061c8               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x003e, t01=0x00c2}
0x061c8…061d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00fa}
0x061d4…061ea               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x003e, t01=0x0106}
0x061ea…06200               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x003e, t01=0x011c}
0x06200…0620e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0132}
0x0620e…06218               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0140}
0x06218…06222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x014a}
0x06222…06260               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003e, t01=0x0154}
0x06260…0629e (63, 0, 400)  Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 3                                    * «, t00=0x003f, t01=0x0004}
0x0629e…062dc               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003f, t01=0x0042}
0x062dc…062e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0080}
0x062e6…06322               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 3«, t00=0x003f, t01=0x008a}
0x06322…0632c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c6}
0x0632c…06336               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d0}
0x06336…0635e               Head {h00=0x0024, h01=0x0050, text=»VU3 EQU /06 CONTROL UNIT ADDRESS«, t00=0x003f, t01=0x00da}
0x0635e…06368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0102}
0x06368…06388               Head {h00=0x001c, h01=0x0050, text=»CWTVU3 EQU * TABLE ENTRY«, t00=0x003f, t01=0x010c}
0x06388…06392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x012c}
0x06392…063ca               Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x003f, t01=0x0136}
0x063ca…06400               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x003f, t01=0x016e}
0x06400…06438               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x0040, t01=0x0014}
0x06438…0646e               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x0040, t01=0x004c}
0x0646e…064a4               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x0040, t01=0x0082}
0x064a4…064e4               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x0040, t01=0x00b8}
0x064e4…06510               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x0040, t01=0x00f8}
0x06510…0654e               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU3 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x0040, t01=0x0124}
0x0654e…06574               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU3 CIO START SCREEN«, t00=0x0040, t01=0x0162}
0x06574…065a0               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU3+1 CIO START PERIPHERAL«, t00=0x0040, t01=0x0188}
0x065a0…065c0               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU3 OTR SCREEN«, t00=0x0041, t01=0x0024}
0x065c0…065e6               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU3+1 OTR PERIPHERAL«, t00=0x0041, t01=0x0044}
0x065e6…0660c               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU3 CIO HALT SCREEN «, t00=0x0041, t01=0x006a}
0x0660c…06638               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU3+1 CIO HALT PERIPHERAL «, t00=0x0041, t01=0x0090}
0x06638…0665e               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU3 SST (SCREEN ONLY) «, t00=0x0041, t01=0x00bc}
0x0665e…0668c               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU3+1 INR (PERIPHERAL ONLY) «, t00=0x0041, t01=0x00e2}
0x0668c…0669e               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x0041, t01=0x0110}
0x0669e…066d2               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU3+VU3 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x0041, t01=0x0122}
0x066d2…06708               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU3+VU3+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x0041, t01=0x0156}
0x06708…0673c               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x0041, t01=0x018c}
0x0673c…06774               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x0042, t01=0x0030}
0x06774…06780               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0068}
0x06780…06796               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0042, t01=0x0074}
0x06796…067ac               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0042, t01=0x008a}
0x067ac…067c2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0042, t01=0x00a0}
0x067c2…067d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00b6}
0x067d0…067da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00c4}
0x067da…067e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ce}
0x067e4…06822               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0042, t01=0x00d8}
0x06822…06860               Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 4                                    * «, t00=0x0042, t01=0x0116}
0x06860…0689e               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0042, t01=0x0154}
0x0689e…068a8 (67, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0004}
0x068a8…068e4               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 4«, t00=0x0043, t01=0x000e}
0x068e4…068ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x004a}
0x068ee…068f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0054}
0x068f8…06920               Head {h00=0x0024, h01=0x0050, text=»VU4 EQU /02 CONTROL UNIT ADDRESS«, t00=0x0043, t01=0x005e}
0x06920…0692a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0086}
0x0692a…0694a               Head {h00=0x001c, h01=0x0050, text=»CWTVU4 EQU * TABLE ENTRY«, t00=0x0043, t01=0x0090}
0x0694a…06954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b0}
0x06954…0698c               Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x0043, t01=0x00ba}
0x0698c…069c2               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x0043, t01=0x00f2}
0x069c2…069fa               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x0043, t01=0x0128}
0x069fa…06a30               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x0043, t01=0x0160}
0x06a30…06a66               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x0044, t01=0x0008}
0x06a66…06aa6               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x0044, t01=0x003e}
0x06aa6…06ad2               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x0044, t01=0x007e}
0x06ad2…06b10               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU4 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x0044, t01=0x00aa}
0x06b10…06b36               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU4 CIO START SCREEN«, t00=0x0044, t01=0x00e8}
0x06b36…06b62               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU4+1 CIO START PERIPHERAL«, t00=0x0044, t01=0x010e}
0x06b62…06b82               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU4 OTR SCREEN«, t00=0x0044, t01=0x013a}
0x06b82…06ba8               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU4+1 OTR PERIPHERAL«, t00=0x0044, t01=0x015a}
0x06ba8…06bce               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU4 CIO HALT SCREEN «, t00=0x0044, t01=0x0180}
0x06bce…06bfa               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU4+1 CIO HALT PERIPHERAL «, t00=0x0045, t01=0x0016}
0x06bfa…06c20               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU4 SST (SCREEN ONLY) «, t00=0x0045, t01=0x0042}
0x06c20…06c4e               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU4+1 INR (PERIPHERAL ONLY) «, t00=0x0045, t01=0x0068}
0x06c4e…06c60               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x0045, t01=0x0096}
0x06c60…06c94               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU4+VU4 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x0045, t01=0x00a8}
0x06c94…06cca               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU4+VU4+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x0045, t01=0x00dc}
0x06cca…06cfe               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x0045, t01=0x0112}
0x06cfe…06d36               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x0045, t01=0x0146}
0x06d36…06d42               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x017e}
0x06d42…06d58               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0045, t01=0x018a}
0x06d58…06d6e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0046, t01=0x0010}
0x06d6e…06d84               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0046, t01=0x0026}
0x06d84…06d9a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0046, t01=0x003c}
0x06d9a…06da8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0052}
0x06da8…06db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0060}
0x06db2…06dbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x006a}
0x06dbc…06dfa               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0046, t01=0x0074}
0x06dfa…06e38               Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 5                                    * «, t00=0x0046, t01=0x00b2}
0x06e38…06e76               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0046, t01=0x00f0}
0x06e76…06e80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x012e}
0x06e80…06ebc               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 5«, t00=0x0046, t01=0x0138}
0x06ebc…06ec6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0174}
0x06ec6…06ed0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x017e}
0x06ed0…06ef8               Head {h00=0x0024, h01=0x0050, text=»VU5 EQU /20 CONTROL UNIT ADDRESS«, t00=0x0046, t01=0x0188}
0x06ef8…06f02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0020}
0x06f02…06f22               Head {h00=0x001c, h01=0x0050, text=»CWTVU5 EQU * TABLE ENTRY«, t00=0x0047, t01=0x002a}
0x06f22…06f2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x004a}
0x06f2c…06f64               Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x0047, t01=0x0054}
0x06f64…06f9a               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x0047, t01=0x008c}
0x06f9a…06fd2               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x0047, t01=0x00c2}
0x06fd2…07008               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x0047, t01=0x00fa}
0x07008…0703e               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x0047, t01=0x0130}
0x0703e…0707e               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x0047, t01=0x0166}
0x0707e…070aa               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x0048, t01=0x0016}
0x070aa…070e8               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU5 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x0048, t01=0x0042}
0x070e8…0710e               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU5 CIO START SCREEN«, t00=0x0048, t01=0x0080}
0x0710e…0713a               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU5+1 CIO START PERIPHERAL«, t00=0x0048, t01=0x00a6}
0x0713a…0715a               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU5 OTR SCREEN«, t00=0x0048, t01=0x00d2}
0x0715a…07180               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU5+1 OTR PERIPHERAL«, t00=0x0048, t01=0x00f2}
0x07180…071a6               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU5 CIO HALT SCREEN «, t00=0x0048, t01=0x0118}
0x071a6…071d2               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU5+1 CIO HALT PERIPHERAL «, t00=0x0048, t01=0x013e}
0x071d2…071f8               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU5 SST (SCREEN ONLY) «, t00=0x0048, t01=0x016a}
0x071f8…07226               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU5+1 INR (PERIPHERAL ONLY) «, t00=0x0048, t01=0x0190}
0x07226…07238               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x0049, t01=0x002e}
0x07238…0726c               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU5+VU5 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x0049, t01=0x0040}
0x0726c…072a2               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU5+VU5+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x0049, t01=0x0074}
0x072a2…072d6               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x0049, t01=0x00aa}
0x072d6…0730e               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x0049, t01=0x00de}
0x0730e…0731a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0116}
0x0731a…07330               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0049, t01=0x0122}
0x07330…07346               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0049, t01=0x0138}
0x07346…0735c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0049, t01=0x014e}
0x0735c…07372               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0049, t01=0x0164}
0x07372…07388               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0049, t01=0x017a}
0x07388…07396               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0190}
0x07396…073a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x000e}
0x073a0…073aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0018}
0x073aa…073e8               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004a, t01=0x0022}
0x073e8…07426               Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 6                                    * «, t00=0x004a, t01=0x0060}
0x07426…07464               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004a, t01=0x009e}
0x07464…0746e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00dc}
0x0746e…074aa               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 6«, t00=0x004a, t01=0x00e6}
0x074aa…074b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0122}
0x074b4…074be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x012c}
0x074be…074e6               Head {h00=0x0024, h01=0x0050, text=»VU6 EQU /22 CONTROL UNIT ADDRESS«, t00=0x004a, t01=0x0136}
0x074e6…074f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x015e}
0x074f0…07510               Head {h00=0x001c, h01=0x0050, text=»CWTVU6 EQU * TABLE ENTRY«, t00=0x004a, t01=0x0168}
0x07510…0751a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0188}
0x0751a…07552 (75, 0, 400)  Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x004b, t01=0x0004}
0x07552…07588               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x004b, t01=0x003c}
0x07588…075c0               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x004b, t01=0x0072}
0x075c0…075f6               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x004b, t01=0x00aa}
0x075f6…0762c               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x004b, t01=0x00e0}
0x0762c…0766c               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x004b, t01=0x0116}
0x0766c…07698               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x004b, t01=0x0156}
0x07698…076d6               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU6 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x004b, t01=0x0182}
0x076d6…076fc               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU6 CIO START SCREEN«, t00=0x004c, t01=0x0030}
0x076fc…07728               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU6+1 CIO START PERIPHERAL«, t00=0x004c, t01=0x0056}
0x07728…07748               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU6 OTR SCREEN«, t00=0x004c, t01=0x0082}
0x07748…0776e               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU6+1 OTR PERIPHERAL«, t00=0x004c, t01=0x00a2}
0x0776e…07794               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU6 CIO HALT SCREEN «, t00=0x004c, t01=0x00c8}
0x07794…077c0               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU6+1 CIO HALT PERIPHERAL «, t00=0x004c, t01=0x00ee}
0x077c0…077e6               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU6 SST (SCREEN ONLY) «, t00=0x004c, t01=0x011a}
0x077e6…07814               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU6+1 INR (PERIPHERAL ONLY) «, t00=0x004c, t01=0x0140}
0x07814…07826               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x004c, t01=0x016e}
0x07826…0785a               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU6+VU6 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x004c, t01=0x0180}
0x0785a…07890               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU6+VU6+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x004d, t01=0x0024}
0x07890…078c4               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x004d, t01=0x005a}
0x078c4…078fc               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x004d, t01=0x008e}
0x078fc…07908               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00c6}
0x07908…0791e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x004d, t01=0x00d2}
0x0791e…07934               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x004d, t01=0x00e8}
0x07934…0794a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x004d, t01=0x00fe}
0x0794a…07960               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x004d, t01=0x0114}
0x07960…07976               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x004d, t01=0x012a}
0x07976…0798c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x004d, t01=0x0140}
0x0798c…0799a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0156}
0x0799a…079a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0164}
0x079a4…079ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x016e}
0x079ae…079ec               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004d, t01=0x0178}
0x079ec…07a2a               Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 7                                    * «, t00=0x004e, t01=0x0026}
0x07a2a…07a68               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004e, t01=0x0064}
0x07a68…07a72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a2}
0x07a72…07aae               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 7«, t00=0x004e, t01=0x00ac}
0x07aae…07ab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e8}
0x07ab8…07ac2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f2}
0x07ac2…07aea               Head {h00=0x0024, h01=0x0050, text=»VU7 EQU /26 CONTROL UNIT ADDRESS«, t00=0x004e, t01=0x00fc}
0x07aea…07af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0124}
0x07af4…07b14               Head {h00=0x001c, h01=0x0050, text=»CWTVU7 EQU * TABLE ENTRY«, t00=0x004e, t01=0x012e}
0x07b14…07b1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x014e}
0x07b1e…07b56               Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x004e, t01=0x0158}
0x07b56…07b8c               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x004e, t01=0x0190}
0x07b8c…07bc4               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x004f, t01=0x0036}
0x07bc4…07bfa               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x004f, t01=0x006e}
0x07bfa…07c30               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x004f, t01=0x00a4}
0x07c30…07c70               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x004f, t01=0x00da}
0x07c70…07c9c               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x004f, t01=0x011a}
0x07c9c…07cda               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU7 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x004f, t01=0x0146}
0x07cda…07d00               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU7 CIO START SCREEN«, t00=0x004f, t01=0x0184}
0x07d00…07d2c               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU7+1 CIO START PERIPHERAL«, t00=0x0050, t01=0x001a}
0x07d2c…07d4c               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU7 OTR SCREEN«, t00=0x0050, t01=0x0046}
0x07d4c…07d72               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU7+1 OTR PERIPHERAL«, t00=0x0050, t01=0x0066}
0x07d72…07d98               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU7 CIO HALT SCREEN «, t00=0x0050, t01=0x008c}
0x07d98…07dc4               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU7+1 CIO HALT PERIPHERAL «, t00=0x0050, t01=0x00b2}
0x07dc4…07dea               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU7 SST (SCREEN ONLY) «, t00=0x0050, t01=0x00de}
0x07dea…07e18               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU7+1 INR (PERIPHERAL ONLY) «, t00=0x0050, t01=0x0104}
0x07e18…07e2a               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x0050, t01=0x0132}
0x07e2a…07e5e               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU7+VU7 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x0050, t01=0x0144}
0x07e5e…07e94               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU7+VU7+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x0050, t01=0x0178}
0x07e94…07ec8               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x0051, t01=0x001e}
0x07ec8…07f00               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x0051, t01=0x0052}
0x07f00…07f0c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x008a}
0x07f0c…07f22               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0051, t01=0x0096}
0x07f22…07f38               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0051, t01=0x00ac}
0x07f38…07f4e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0051, t01=0x00c2}
0x07f4e…07f64               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0051, t01=0x00d8}
0x07f64…07f7a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0051, t01=0x00ee}
0x07f7a…07f90               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x0051, t01=0x0104}
0x07f90…07fa6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=7 «, t00=0x0051, t01=0x011a}
0x07fa6…07fb4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0130}
0x07fb4…07fbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x013e}
0x07fbe…07fc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0148}
0x07fc8…08006               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0051, t01=0x0152}
0x08006…08044               Head {h00=0x003a, h01=0x0050, text=»*    C W T V U 8                                    * «, t00=0x0051, t01=0x0190}
0x08044…08082               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0052, t01=0x003e}
0x08082…0808c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x007c}
0x0808c…080c8               Head {h00=0x0038, h01=0x0050, text=»*    CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 8«, t00=0x0052, t01=0x0086}
0x080c8…080d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00c2}
0x080d2…080dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00cc}
0x080dc…08104               Head {h00=0x0024, h01=0x0050, text=»VU8 EQU /2C CONTROL UNIT ADDRESS«, t00=0x0052, t01=0x00d6}
0x08104…0810e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00fe}
0x0810e…0812e               Head {h00=0x001c, h01=0x0050, text=»CWTVU8 EQU * TABLE ENTRY«, t00=0x0052, t01=0x0108}
0x0812e…08138               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0128}
0x08138…08170               Head {h00=0x0034, h01=0x0050, text=» DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 «, t00=0x0052, t01=0x0132}
0x08170…081a6               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR«, t00=0x0052, t01=0x016a}
0x081a6…081de               Head {h00=0x0034, h01=0x0050, text=» DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR «, t00=0x0053, t01=0x0010}
0x081de…08214               Head {h00=0x0032, h01=0x0050, text=» DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR«, t00=0x0053, t01=0x0048}
0x08214…0824a               Head {h00=0x0032, h01=0x0050, text=» DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR«, t00=0x0053, t01=0x007e}
0x0824a…0828a               Head {h00=0x003c, h01=0x0050, text=» DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION«, t00=0x0053, t01=0x00b4}
0x0828a…082b6               Head {h00=0x0028, h01=0x0050, text=» DATA 0 SST-READY DWT (SCREEN ONLY) «, t00=0x0053, t01=0x00f4}
0x082b6…082f4               Head {h00=0x003a, h01=0x0050, text=» DATA INTVU8 ADDRESS TO POINTER TO WORK-STATION TABLE «, t00=0x0053, t01=0x0120}
0x082f4…0831a               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,VU8 CIO START SCREEN«, t00=0x0053, t01=0x015e}
0x0831a…08346               Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,VU8+1 CIO START PERIPHERAL«, t00=0x0053, t01=0x0184}
0x08346…08366               Head {h00=0x001c, h01=0x0050, text=» OTR A2,0,VU8 OTR SCREEN«, t00=0x0054, t01=0x0020}
0x08366…0838c               Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,VU8+1 OTR PERIPHERAL«, t00=0x0054, t01=0x0040}
0x0838c…083b2               Head {h00=0x0022, h01=0x0050, text=» CIO A2,0,VU8 CIO HALT SCREEN «, t00=0x0054, t01=0x0066}
0x083b2…083de               Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,VU8+1 CIO HALT PERIPHERAL «, t00=0x0054, t01=0x008c}
0x083de…08404               Head {h00=0x0022, h01=0x0050, text=» SST A2,VU8 SST (SCREEN ONLY) «, t00=0x0054, t01=0x00b8}
0x08404…08432               Head {h00=0x002a, h01=0x0050, text=» INR A2,0,VU8+1 INR (PERIPHERAL ONLY) «, t00=0x0054, t01=0x00de}
0x08432…08444               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x0054, t01=0x010c}
0x08444…08478               Head {h00=0x0030, h01=0x0050, text=» WER A2,VU8+VU8 WER1 (SCREEN ONLY, IOP ONLY)«, t00=0x0054, t01=0x011e}
0x08478…084ae               Head {h00=0x0032, h01=0x0050, text=» WER A2,VU8+VU8+1 WER2 (SCREEN ONLY, IOP ONLY)«, t00=0x0054, t01=0x0152}
0x084ae…084e2               Head {h00=0x0030, h01=0x0050, text=» RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) «, t00=0x0054, t01=0x0188}
0x084e2…0851a               Head {h00=0x0034, h01=0x0050, text=» DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY)«, t00=0x0055, t01=0x002c}
0x0851a…08526               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0064}
0x08526…08530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0070}
0x08530…0853a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x007a}
0x0853a…08544               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0084}
0x08544…0854e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x008e}
0x0854e…0855c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0098}
0x0855c…08566               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00a6}
0x08566…085aa               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0055, t01=0x00b0}
0x085aa…085b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00f4}
0x085b4…085da               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0055, t01=0x00fe}
0x085da…08608               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0055, t01=0x0124}
0x08608…08636               Head {h00=0x002a, h01=0x0050, text=»* A C T I V A T I O N   R O U T I N E «, t00=0x0055, t01=0x0152}
0x08636…08640               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0180}
0x08640…08686               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0055, t01=0x018a}
0x08686…08690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0040}
0x08690…0869a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x004a}
0x0869a…086ba               Head {h00=0x001c, h01=0x0050, text=»* ENTERED: AT LKM DATA 1«, t00=0x0056, t01=0x0054}
0x086ba…086c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0074}
0x086c4…086d8               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0056, t01=0x007e}
0x086d8…086e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0092}
0x086e2…086ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x009c}
0x086ec…08712               Head {h00=0x0022, h01=0x0050, text=»*     ORDER /00: TEST STATUS. «, t00=0x0056, t01=0x00a6}
0x08712…08746               Head {h00=0x0030, h01=0x0050, text=»*   1.DUMMY IS SENT TO DISPLAY VIA VCCU1/4. «, t00=0x0056, t01=0x00cc}
0x08746…08794               Head {h00=0x004a, h01=0x0050, text=»*              2.STATUS IS RETURNED INTO ECBRC IF VCCU1/4 NOT OPERABLE«, t00=0x0056, t01=0x0100}
0x08794…087c8               Head {h00=0x0030, h01=0x0050, text=»*  3.CURSOR POSITION IS RETURNED INTO ECBCW.«, t00=0x0056, t01=0x014e}
0x087c8…087e0               Head {h00=0x0014, h01=0x0050, text=»*  ADDITIONALLY:«, t00=0x0056, t01=0x0182}
0x087e0…08816               Head {h00=0x0032, h01=0x0050, text=»*  IF CURSOR POSITION IS LAST COLUMN OF A ROW,«, t00=0x0057, t01=0x000a}
0x08816…0884a               Head {h00=0x0030, h01=0x0050, text=»*  AND IF THAT LAST COLUMN IS WRITTEN INTO, «, t00=0x0057, t01=0x0040}
0x0884a…08884               Head {h00=0x0036, h01=0x0050, text=»*  AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE«, t00=0x0057, t01=0x0074}
0x08884…088b6               Head {h00=0x002e, h01=0x0050, text=»*  THE WRITING OF THAT LAST COLUMN, THEN: «, t00=0x0057, t01=0x00ae}
0x088b6…088dc               Head {h00=0x0022, h01=0x0050, text=»*  ECBCW IS INCREMENTED WITH 1«, t00=0x0057, t01=0x00e0}
0x088dc…0890e               Head {h00=0x002e, h01=0x0050, text=»*  (INDICATING LAST+1 COLUMN OF THAT ROW) «, t00=0x0057, t01=0x0106}
0x0890e…08918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0138}
0x08918…08922               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0142}
0x08922…08948               Head {h00=0x0022, h01=0x0050, text=»*     ORDER /05: BASIC WRITE. «, t00=0x0057, t01=0x014c}
0x08948…08972               Head {h00=0x0026, h01=0x0050, text=»*   1.DISPLAY-ACTION IS PERFORMED «, t00=0x0057, t01=0x0172}
0x08972…089b4               Head {h00=0x003e, h01=0x0050, text=»*              ACCORDING TO CHARACTER(S) FROM ECB-BUFFER. «, t00=0x0058, t01=0x000c}
0x089b4…089fc               Head {h00=0x0044, h01=0x0050, text=»*  CHARACTERS IN THE RANGE /20 - /7F ARE ACCEPTED AND DISPLAYED.«, t00=0x0058, t01=0x004e}
0x089fc…08a4a               Head {h00=0x004a, h01=0x0050, text=»*              CHARACTERS IN THE RANGE /00 - /1F (COMMAND CHARACTERS) «, t00=0x0058, t01=0x0096}
0x08a4a…08a96               Head {h00=0x0048, h01=0x0050, text=»*              FROM ECB-BUFFER,  ARE ILLEGAL EXCEPT FOR /0A AND /0D.«, t00=0x0058, t01=0x00e4}
0x08a96…08ade               Head {h00=0x0044, h01=0x0050, text=»*              ILLEGAL CHARACTERS ARE IGNORED WITHOUT ANY ERROR «, t00=0x0058, t01=0x0130}
0x08ade…08b0a               Head {h00=0x0028, h01=0x0050, text=»*              INDICATION IN ECBRC. «, t00=0x0058, t01=0x0178}
0x08b0a…08b4a               Head {h00=0x003c, h01=0x0050, text=»*  WHEN THE LAST COLUMN OF A ROW HAS BEEN WRITTEN INTO, «, t00=0x0059, t01=0x0014}
0x08b4a…08b7a               Head {h00=0x002c, h01=0x0050, text=»*  THE CURSOR REMAINS IN THAT POSITION, «, t00=0x0059, t01=0x0054}
0x08b7a…08bac               Head {h00=0x002e, h01=0x0050, text=»*  AND THE FOLLOWING CHARACTERS (/20-/7F) «, t00=0x0059, t01=0x0084}
0x08bac…08bdc               Head {h00=0x002c, h01=0x0050, text=»*  ARE WRITTEN INTO THAT SAME POSITION. «, t00=0x0059, t01=0x00b6}
0x08bdc…08c12               Head {h00=0x0032, h01=0x0050, text=»*  2.EFFECTIVE LENGTH IS RETURNED INTO ECBEL. «, t00=0x0059, t01=0x00e6}
0x08c12…08c5a               Head {h00=0x0044, h01=0x0050, text=»*  3.STATUS IS RETURNED INTO ECBRC, IF VCCU1/4 IS NOT OPERABLE. «, t00=0x0059, t01=0x011c}
0x08c5a…08c9c               Head {h00=0x003e, h01=0x0050, text=»*  4.CURSOR POSITION AFTER REQUEST IS RETURNED INTO ECBCW.«, t00=0x0059, t01=0x0164}
0x08c9c…08cb4               Head {h00=0x0014, h01=0x0050, text=»*  ADDITIONALLY:«, t00=0x005a, t01=0x0016}
0x08cb4…08cea               Head {h00=0x0032, h01=0x0050, text=»*  IF CURSOR POSITION IS LAST COLUMN OF A ROW,«, t00=0x005a, t01=0x002e}
0x08cea…08d1e               Head {h00=0x0030, h01=0x0050, text=»*  AND IF THAT LAST COLUMN IS WRITTEN INTO, «, t00=0x005a, t01=0x0064}
0x08d1e…08d58               Head {h00=0x0036, h01=0x0050, text=»*  AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE«, t00=0x005a, t01=0x0098}
0x08d58…08d8a               Head {h00=0x002e, h01=0x0050, text=»*  THE WRITING OF THAT LAST COLUMN, THEN: «, t00=0x005a, t01=0x00d2}
0x08d8a…08db0               Head {h00=0x0022, h01=0x0050, text=»*  ECBCW IS INCREMENTED WITH 1«, t00=0x005a, t01=0x0104}
0x08db0…08de2               Head {h00=0x002e, h01=0x0050, text=»*  (INDICATING LAST+1 COLUMN OF THAT ROW) «, t00=0x005a, t01=0x012a}
0x08de2…08dec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x015c}
0x08dec…08e14               Head {h00=0x0024, h01=0x0050, text=»*     ORDER /06: STANDARD WRITE.«, t00=0x005a, t01=0x0166}
0x08e14…08e4a               Head {h00=0x0032, h01=0x0050, text=»*  1.IF REQUESTED LENGTH IS LESS THAN 2 BYTES «, t00=0x005a, t01=0x018e}
0x08e4a…08e90               Head {h00=0x0042, h01=0x0050, text=»*  (NO CONTROL CHARACTER), THEN DEFAULT-ACTION LF+CR IS DONE. «, t00=0x005b, t01=0x0034}
0x08e90…08ece               Head {h00=0x003a, h01=0x0050, text=»*      2.IF REQUESTED LENGTH IS AT LEAST 2 BYTES, THEN«, t00=0x005b, t01=0x007a}
0x08ece…08f1e               Head {h00=0x004c, h01=0x0050, text=»*     ACTIONS SPECIFIED BY USER IN RIGHT-MOST BYTE OF FIRST WORD IN BUFF«, t00=0x005b, t01=0x00b8}
0x08f1e…08f50               Head {h00=0x002e, h01=0x0050, text=»*     (CONTROL CHARACTER) ARE CARRIED OUT:«, t00=0x005b, t01=0x0108}
0x08f50…08f88               Head {h00=0x0034, h01=0x0050, text=»*     /2B            NO MOVING OF WRITE POSITION«, t00=0x005b, t01=0x013a}
0x08f88…08fb0               Head {h00=0x0024, h01=0x0050, text=»*     /30            LF, LF, CR «, t00=0x005b, t01=0x0172}
0x08fb0…08ff6               Head {h00=0x0042, h01=0x0050, text=»*     /31            ERASE SCREEN AND WRITE FROM HOME POSITION«, t00=0x005c, t01=0x000a}
0x08ff6…0901a               Head {h00=0x0020, h01=0x0050, text=»*     OTHER VALUE:    LF, CR«, t00=0x005c, t01=0x0050}
0x0901a…09024               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0074}
0x09024…09060               Head {h00=0x0038, h01=0x0050, text=»*  3.IF REQUESTED LENGTH EXCEEDS 2 BYTES, THEN ALSO «, t00=0x005c, t01=0x007e}
0x09060…09088               Head {h00=0x0024, h01=0x0050, text=»*   DISPLAY-ACTION IS PERFORMED «, t00=0x005c, t01=0x00ba}
0x09088…090cc               Head {h00=0x0040, h01=0x0050, text=»*               ACCORDING TO CHARACTER(S) FROM ECB-BUFFER . «, t00=0x005c, t01=0x00e2}
0x090cc…09114               Head {h00=0x0044, h01=0x0050, text=»*  CHARACTERS IN THE RANGE /20 - /7F ARE ACCEPTED AND DISPLAYED.«, t00=0x005c, t01=0x0126}
0x09114…09162               Head {h00=0x004a, h01=0x0050, text=»*              CHARACTERS IN THE RANGE /00 - /1F (COMMAND CHARACTERS) «, t00=0x005c, t01=0x016e}
0x09162…091b0               Head {h00=0x004a, h01=0x0050, text=»*              FROM ECB-BUFFER, ARE ILLEGAL EXCEPT FOR /11, /12, /13, «, t00=0x005d, t01=0x002c}
0x091b0…091f8               Head {h00=0x0044, h01=0x0050, text=»*              /14, /1E, /1F. ILLEGAL CHARACTERS ARE IGNORED AND«, t00=0x005d, t01=0x007a}
0x091f8…09242               Head {h00=0x0046, h01=0x0050, text=»*              WHEN THE REQUEST IS COMPLETED, ERROR INDICATION IS «, t00=0x005d, t01=0x00c2}
0x09242…09268               Head {h00=0x0022, h01=0x0050, text=»*              GIVEN IN ECBRC.«, t00=0x005d, t01=0x010c}
0x09268…092a8               Head {h00=0x003c, h01=0x0050, text=»*  WHEN THE LAST COLUMN OF A ROW HAS BEEN WRITTEN INTO, «, t00=0x005d, t01=0x0132}
0x092a8…092d8               Head {h00=0x002c, h01=0x0050, text=»*  THE CURSOR REMAINS IN THAT POSITION, «, t00=0x005d, t01=0x0172}
0x092d8…0930a               Head {h00=0x002e, h01=0x0050, text=»*  AND THE FOLLOWING CHARACTERS (/20-/7F) «, t00=0x005e, t01=0x0012}
0x0930a…0933a               Head {h00=0x002c, h01=0x0050, text=»*  ARE WRITTEN INTO THAT SAME POSITION. «, t00=0x005e, t01=0x0044}
0x0933a…09370               Head {h00=0x0032, h01=0x0050, text=»*  4.EFFECTIVE LENGTH IS RETURNED INTO ECBEL. «, t00=0x005e, t01=0x0074}
0x09370…0939c               Head {h00=0x0028, h01=0x0050, text=»*  5.STATUS IS RETURNED INTO ECBRC, «, t00=0x005e, t01=0x00aa}
0x0939c…093da               Head {h00=0x003a, h01=0x0050, text=»*  IF VCCU1/4 IS NOT OPERABLE OR IF CODE CHECK ERROR. «, t00=0x005e, t01=0x00d6}
0x093da…0941c               Head {h00=0x003e, h01=0x0050, text=»*  6.CURSOR POSITION AFTER REQUEST IS RETURNED INTO ECBCW.«, t00=0x005e, t01=0x0114}
0x0941c…09434               Head {h00=0x0014, h01=0x0050, text=»*  ADDITIONALLY:«, t00=0x005e, t01=0x0156}
0x09434…0946a               Head {h00=0x0032, h01=0x0050, text=»*  IF CURSOR POSITION IS LAST COLUMN OF A ROW,«, t00=0x005e, t01=0x016e}
0x0946a…0949e               Head {h00=0x0030, h01=0x0050, text=»*  AND IF THAT LAST COLUMN IS WRITTEN INTO, «, t00=0x005f, t01=0x0014}
0x0949e…094d8               Head {h00=0x0036, h01=0x0050, text=»*  AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE«, t00=0x005f, t01=0x0048}
0x094d8…0950a               Head {h00=0x002e, h01=0x0050, text=»*  THE WRITING OF THAT LAST COLUMN, THEN: «, t00=0x005f, t01=0x0082}
0x0950a…09530               Head {h00=0x0022, h01=0x0050, text=»*  ECBCW IS INCREMENTED WITH 1«, t00=0x005f, t01=0x00b4}
0x09530…09562               Head {h00=0x002e, h01=0x0050, text=»*  (INDICATING LAST+1 COLUMN OF THAT ROW) «, t00=0x005f, t01=0x00da}
0x09562…0956c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x010c}
0x0956c…09576               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0116}
0x09576…095b6               Head {h00=0x003c, h01=0x0050, text=»*     ORDER /0B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x005f, t01=0x0120}
0x095b6…095f8               Head {h00=0x003e, h01=0x0050, text=»*              1.THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x005f, t01=0x0160}
0x095f8…09624               Head {h00=0x0028, h01=0x0050, text=»*      IN ECBCW AT START OF REQUEST.«, t00=0x0060, t01=0x0012}
0x09624…09654               Head {h00=0x002c, h01=0x0050, text=»*   NO INFORMATION ON SCREEN IS ERASED. «, t00=0x0060, t01=0x003e}
0x09654…0968c               Head {h00=0x0034, h01=0x0050, text=»*  2.THEN, IF REQUESTED LENGTH EXCEEDS 2 BYTES, «, t00=0x0060, t01=0x006e}
0x0968c…096c0               Head {h00=0x0030, h01=0x0050, text=»*  DISPLAY-ACTION IS PERFORMED ACCORDING TO «, t00=0x0060, t01=0x00a6}
0x096c0…09708               Head {h00=0x0044, h01=0x0050, text=»*  CHARACTERS FROM ECB BUFFER (SEE ORDER /06, NOTE NUMBER 3-6). «, t00=0x0060, t01=0x00da}
0x09708…09712               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0122}
0x09712…09732               Head {h00=0x001c, h01=0x0050, text=»*     ORDER /31: ERASE. «, t00=0x0060, t01=0x012c}
0x09732…09760               Head {h00=0x002a, h01=0x0050, text=»*   1.THE SCREEN IS ERASED ON THE LINE«, t00=0x0060, t01=0x014c}
0x09760…0978a               Head {h00=0x0026, h01=0x0050, text=»*  WHERE THE CURSOR IS POSITIONED.«, t00=0x0060, t01=0x017a}
0x0978a…097c2               Head {h00=0x0034, h01=0x0050, text=»*  THE NUMBER OF CHARACTERS (1-80) TO BE ERASED,«, t00=0x0061, t01=0x0014}
0x097c2…097f6               Head {h00=0x0030, h01=0x0050, text=»*  IS DEFINED IN ECBCW AT START OF REQUEST. «, t00=0x0061, t01=0x004c}
0x097f6…09828               Head {h00=0x002e, h01=0x0050, text=»*  ERASING STARTS IN THE CURSOR POSITION. «, t00=0x0061, t01=0x0080}
0x09828…09858               Head {h00=0x002c, h01=0x0050, text=»*  THE CURSOR REMAINS IN THAT POSITION. «, t00=0x0061, t01=0x00b2}
0x09858…098a0               Head {h00=0x0044, h01=0x0050, text=»*  2.STATUS IS RETURNED INTO ECBRC, IF VCCU1/4 IS NOT OPERABLE. «, t00=0x0061, t01=0x00e2}
0x098a0…098aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x012a}
0x098aa…098b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0134}
0x098b4…098d8               Head {h00=0x0020, h01=0x0050, text=»* INPUT: A5 = DWT STACK BASE«, t00=0x0061, t01=0x013e}
0x098d8…098f4               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0061, t01=0x0162}
0x098f4…0990a               Head {h00=0x0012, h01=0x0050, text=»*  A7 = ORDER «, t00=0x0061, t01=0x017e}
0x0990a…09926 (98, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»*  A8 = ECB ADDRESS «, t00=0x0062, t01=0x0004}
0x09926…09930               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0020}
0x09930…0995a               Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE FOR ECB«, t00=0x0062, t01=0x002a}
0x0995a…09976               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0062, t01=0x0054}
0x09976…0998c               Head {h00=0x0012, h01=0x0050, text=»*  A7 = ORDER «, t00=0x0062, t01=0x0070}
0x0998c…099a8               Head {h00=0x0018, h01=0x0050, text=»*  A8 = ECB ADDRESS «, t00=0x0062, t01=0x0086}
0x099a8…099b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00a2}
0x099b2…099fc               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0062, t01=0x00ac}
0x099fc…09a06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00f6}
0x09a06…09a18               Head {h00=0x000e, h01=0x0050, text=»ACVU EQU *«, t00=0x0062, t01=0x0100}
0x09a18…09a22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0112}
0x09a22…09a46               Head {h00=0x0020, h01=0x0050, text=»* SWITCH TO LEVEL 48 AND ENB«, t00=0x0062, t01=0x011c}
0x09a46…09a76               Head {h00=0x002c, h01=0x0050, text=»* (TO HAVE, DURING IOP-PREPARATION-LOOP,«, t00=0x0062, t01=0x0140}
0x09a76…09aaa               Head {h00=0x0030, h01=0x0050, text=»* LOWER PRIORITY THAN VCCU-INPUT-INTERRUPTS)«, t00=0x0062, t01=0x0170}
0x09aaa…09ab4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0014}
0x09ab4…09ae4               Head {h00=0x002c, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48 AND ENB«, t00=0x0063, t01=0x001e}
0x09ae4…09aee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x004e}
0x09aee…09b08               Head {h00=0x0016, h01=0x0050, text=»* CHECK ORDER CODE«, t00=0x0063, t01=0x0058}
0x09b08…09b12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0072}
0x09b12…09b32               Head {h00=0x001c, h01=0x0050, text=» CWK A7,/06 ORDER /06 ? «, t00=0x0063, t01=0x007c}
0x09b32…09b4c               Head {h00=0x0016, h01=0x0050, text=» RF(E) ACV100 YES «, t00=0x0063, t01=0x009c}
0x09b4c…09b6c               Head {h00=0x001c, h01=0x0050, text=» CWK A7,/0B ORDER /0B ? «, t00=0x0063, t01=0x00b6}
0x09b6c…09b86               Head {h00=0x0016, h01=0x0050, text=» ABL(E) ACV420 YES«, t00=0x0063, t01=0x00d6}
0x09b86…09ba6               Head {h00=0x001c, h01=0x0050, text=» CWK A7,/31 ORDER /31 ? «, t00=0x0063, t01=0x00f0}
0x09ba6…09bc0               Head {h00=0x0016, h01=0x0050, text=» ABL(E) ACV450 YES«, t00=0x0063, t01=0x0110}
0x09bc0…09be0               Head {h00=0x001c, h01=0x0050, text=» CWK A7,/00 ORDER /00 ? «, t00=0x0063, t01=0x012a}
0x09be0…09bfa               Head {h00=0x0016, h01=0x0050, text=» ABL(E) ACV460 YES«, t00=0x0063, t01=0x014a}
0x09bfa…09c1a               Head {h00=0x001c, h01=0x0050, text=» CWK A7,/05 ORDER /05 ? «, t00=0x0063, t01=0x0164}
0x09c1a…09c34               Head {h00=0x0016, h01=0x0050, text=» ABL(E) ACV470 YES«, t00=0x0063, t01=0x0184}
0x09c34…09c3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x000e}
0x09c3e…09c5a               Head {h00=0x0018, h01=0x0050, text=»* ILLEGAL ORDER CODE«, t00=0x0064, t01=0x0018}
0x09c5a…09c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0034}
0x09c64…09c8a               Head {h00=0x0022, h01=0x0050, text=» ABL DISIOE I/O REQUEST ERROR «, t00=0x0064, t01=0x003e}
0x09c8a…09c98               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0064}
0x09c98…09cd2               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x0072}
0x09cd2…09ce6               Head {h00=0x0010, h01=0x0050, text=»* ORDER /06 «, t00=0x0064, t01=0x00ac}
0x09ce6…09cfe               Head {h00=0x0014, h01=0x0050, text=»* STANDARD WRITE«, t00=0x0064, t01=0x00c0}
0x09cfe…09d38               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x00d8}
0x09d38…09d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0112}
0x09d42…09d56               Head {h00=0x0010, h01=0x0050, text=»ACV100 EQU *«, t00=0x0064, t01=0x011c}
0x09d56…09d7e               Head {h00=0x0024, h01=0x0050, text=» LDK A3,0 INITIATE BUFFER INDEX «, t00=0x0064, t01=0x0130}
0x09d7e…09daa               Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0064, t01=0x0158}
0x09daa…09dce               Head {h00=0x0020, h01=0x0050, text=» SUK A2,2 AT LEAST 2 BYTES ?«, t00=0x0064, t01=0x0184}
0x09dce…09e06               Head {h00=0x0034, h01=0x0050, text=» RF(N) ACV120 NO. THEN NO CONTROL CHARACTER, SO «, t00=0x0065, t01=0x0018}
0x09e06…09e24               Head {h00=0x001a, h01=0x0050, text=»*   DO DEFAULT: LF+CR.«, t00=0x0065, t01=0x0050}
0x09e24…09e2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x006e}
0x09e2e…09e56               Head {h00=0x0024, h01=0x0050, text=»* CHECK BUFFER CONTROL CHARACTER«, t00=0x0065, t01=0x0078}
0x09e56…09e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00a0}
0x09e60…09e88               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 INITIATE BUFFER INDEX «, t00=0x0065, t01=0x00aa}
0x09e88…09eb8               Head {h00=0x002c, h01=0x0050, text=»*   TO POINT AFTER 2 CONTROL CHARACTERS «, t00=0x0065, t01=0x00d2}
0x09eb8…09ee6               Head {h00=0x002a, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECB BUFFER ADDRESS«, t00=0x0065, t01=0x0102}
0x09ee6…09f12               Head {h00=0x0028, h01=0x0050, text=» LC A2,1,A2 GET BUFFER CONTROL CHAR «, t00=0x0065, t01=0x0130}
0x09f12…09f36               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF CLEAN LEFT BYTE «, t00=0x0065, t01=0x015c}
0x09f36…09f6c               Head {h00=0x0032, h01=0x0050, text=» SUK A2,/2B WITHOUT POSITIONING BEFORE WRITE ?«, t00=0x0065, t01=0x0180}
0x09f6c…09f86               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV150 YES «, t00=0x0066, t01=0x0026}
0x09f86…09faa               Head {h00=0x0020, h01=0x0050, text=» SUK A2,5 LF+LF+CR ? (=/30) «, t00=0x0066, t01=0x0040}
0x09faa…09fc4               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV110 YES «, t00=0x0066, t01=0x0064}
0x09fc4…09ffc               Head {h00=0x0034, h01=0x0050, text=» SUK A2,1 CLEAR SCREEN, HOME WRITE POS. ? (=/31)«, t00=0x0066, t01=0x007e}
0x09ffc…0a038               Head {h00=0x0038, h01=0x0050, text=» RF(NZ) ACV120 NO. THEN FOR ALL OTHER VALUES: LF+CR «, t00=0x0066, t01=0x00b6}
0x0a038…0a042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00f2}
0x0a042…0a05a               Head {h00=0x0014, h01=0x0050, text=»* INITIAL ACTION«, t00=0x0066, t01=0x00fc}
0x0a05a…0a092               Head {h00=0x0034, h01=0x0050, text=»* ACCORDING TO DETECTED BUFFER CONTROL CHARACTER«, t00=0x0066, t01=0x0114}
0x0a092…0a09c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x014c}
0x0a09c…0a0c6               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/0101 HOME WRITE POSITION«, t00=0x0066, t01=0x0156}
0x0a0c6…0a104               Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 AS CURRENT NEXT WRITE POSITION «, t00=0x0066, t01=0x0180}
0x0a104…0a136               Head {h00=0x002e, h01=0x0050, text=» LDK A4,ROLBIT BIT 8 (SET IF SCROLL MODE) «, t00=0x0067, t01=0x002e}
0x0a136…0a154               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x0067, t01=0x0060}
0x0a154…0a192               Head {h00=0x003a, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BIT 8 (NO LONGER SCROLL MODE) «, t00=0x0067, t01=0x007e}
0x0a192…0a1cc               Head {h00=0x0036, h01=0x0050, text=» CF A5,CLESCR CLEAR SCREEN, RESET WRITE+CURSOR POS«, t00=0x0067, t01=0x00bc}
0x0a1cc…0a1f2               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0067, t01=0x00f6}
0x0a1f2…0a21a               Head {h00=0x0024, h01=0x0050, text=» RF ACV140 GO RESET DWTDEV BIT 9«, t00=0x0067, t01=0x011c}
0x0a21a…0a22e               Head {h00=0x0010, h01=0x0050, text=»ACV110 EQU *«, t00=0x0067, t01=0x0144}
0x0a22e…0a25c               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINE-FEED TO NEXT ROW«, t00=0x0067, t01=0x0158}
0x0a25c…0a270               Head {h00=0x0010, h01=0x0050, text=»ACV120 EQU *«, t00=0x0067, t01=0x0186}
0x0a270…0a29e               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINE-FEED TO NEXT ROW«, t00=0x0068, t01=0x000a}
0x0a29e…0a2ae               Head {h00=0x000c, h01=0x0050, text=»* DO CR «, t00=0x0068, t01=0x0038}
0x0a2ae…0a2c2               Head {h00=0x0010, h01=0x0050, text=»ACV130 EQU *«, t00=0x0068, t01=0x0048}
0x0a2c2…0a2e2               Head {h00=0x001c, h01=0x0050, text=» LDK A2,/01 FIRST COLUMN«, t00=0x0068, t01=0x005c}
0x0a2e2…0a31e               Head {h00=0x0038, h01=0x0050, text=» SC A2,DWTCNC+DWTDEV,A6 AS CURRENT NEXT WRITE COLUMN«, t00=0x0068, t01=0x007c}
0x0a31e…0a332               Head {h00=0x0010, h01=0x0050, text=»ACV140 EQU *«, t00=0x0068, t01=0x00b8}
0x0a332…0a36c               Head {h00=0x0036, h01=0x0050, text=» LDK A4,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x0068, t01=0x00cc}
0x0a36c…0a38a               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x0068, t01=0x0106}
0x0a38a…0a3b0               Head {h00=0x0022, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BIT 9 «, t00=0x0068, t01=0x0124}
0x0a3b0…0a3be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x014a}
0x0a3be…0a3c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0158}
0x0a3c8…0a3e0               Head {h00=0x0014, h01=0x0050, text=»* START WRITING «, t00=0x0068, t01=0x0162}
0x0a3e0…0a414               Head {h00=0x0030, h01=0x0050, text=»* ACCORDING TO ASCII CHARACTERS FROM BUFFER «, t00=0x0068, t01=0x017a}
0x0a414…0a41e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x001e}
0x0a41e…0a432               Head {h00=0x0010, h01=0x0050, text=»ACV150 EQU *«, t00=0x0069, t01=0x0028}
0x0a432…0a470               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x0069, t01=0x003c}
0x0a470…0a49e               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST «, t00=0x0069, t01=0x007a}
0x0a49e…0a4c4               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0069, t01=0x00a8}
0x0a4c4…0a4da               Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0069, t01=0x00ce}
0x0a4da…0a4e8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x00e4}
0x0a4e8…0a4f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00f2}
0x0a4f2…0a528               Head {h00=0x0032, h01=0x0050, text=»* REMOVE ANY TRAILING /20, /11, /12, /1E, /1F «, t00=0x0069, t01=0x00fc}
0x0a528…0a552               Head {h00=0x0026, h01=0x0050, text=»* BY DECREMENTING REQUESTED LENGTH«, t00=0x0069, t01=0x0132}
0x0a552…0a55c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x015c}
0x0a55c…0a586               Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0069, t01=0x0166}
0x0a586…0a5b2               Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0069, t01=0x0190}
0x0a5b2…0a5e2               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 GET ADDRESS TO END OF BUFFER «, t00=0x006a, t01=0x002c}
0x0a5e2…0a610               Head {h00=0x002a, h01=0x0050, text=»ACV160 CWK A2,2 REQUESTED LENGTH < 3 ?«, t00=0x006a, t01=0x005c}
0x0a610…0a642               Head {h00=0x002e, h01=0x0050, text=» RF(NG) ACV200 YES. THEN NO (MORE) ACTION «, t00=0x006a, t01=0x008a}
0x0a642…0a66a               Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR ADDRESS IN BUFFER«, t00=0x006a, t01=0x00bc}
0x0a66a…0a686               Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x006a, t01=0x00e4}
0x0a686…0a6ac               Head {h00=0x0022, h01=0x0050, text=» CCK A4,/2020 TRAILING SPACE ?«, t00=0x006a, t01=0x0100}
0x0a6ac…0a6e8               Head {h00=0x0038, h01=0x0050, text=» RF(NE) ACV180 NO. GO CHECK IF OTHER SKIPPABLE CHAR «, t00=0x006a, t01=0x0126}
0x0a6e8…0a716               Head {h00=0x002a, h01=0x0050, text=»ACV170 SUK A2,1 DECR REQUESTED LENGTH «, t00=0x006a, t01=0x0162}
0x0a716…0a73c               Head {h00=0x0022, h01=0x0050, text=»*   TO SKIP THAT TRAILING CHAR«, t00=0x006a, t01=0x0190}
0x0a73c…0a774               Head {h00=0x0034, h01=0x0050, text=» RB ACV160 GO BACKWARDS TO CHECK PRECEEDING CHAR«, t00=0x006b, t01=0x0026}
0x0a774…0a7a2               Head {h00=0x002a, h01=0x0050, text=»ACV180 CWK A2,4 REQUESTED LENGTH < 5 ?«, t00=0x006b, t01=0x005e}
0x0a7a2…0a7d4               Head {h00=0x002e, h01=0x0050, text=» RF(NG) ACV200 YES. THEN NO (MORE) ACTION «, t00=0x006b, t01=0x008c}
0x0a7d4…0a808               Head {h00=0x0030, h01=0x0050, text=» LC A4,-2,A1 NOW GET THE CHAR 2 BYTES BEFORE«, t00=0x006b, t01=0x00be}
0x0a808…0a838               Head {h00=0x002c, h01=0x0050, text=» CCK A4,/1111 TRAILING TABULATION CHAR ?«, t00=0x006b, t01=0x00f2}
0x0a838…0a874               Head {h00=0x0038, h01=0x0050, text=» RF(NE) ACV190 NO. GO CHECK IF OTHER SKIPPABLE CHAR «, t00=0x006b, t01=0x0122}
0x0a874…0a89c               Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 DECR ADDRESS IN BUFFER«, t00=0x006b, t01=0x015e}
0x0a89c…0a8c4               Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECR REQUESTED LENGTH «, t00=0x006b, t01=0x0186}
0x0a8c4…0a8d8               Head {h00=0x0010, h01=0x0050, text=» RB ACV170  «, t00=0x006c, t01=0x001e}
0x0a8d8…0a908               Head {h00=0x002c, h01=0x0050, text=»ACV190 LCR A4,A1 GET THE CHARACTER AGAIN«, t00=0x006c, t01=0x0032}
0x0a908…0a91c               Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x006c, t01=0x0062}
0x0a91c…0a94a               Head {h00=0x002a, h01=0x0050, text=» SUK A4,/12 TRAILING UNDERLINE START? «, t00=0x006c, t01=0x0076}
0x0a94a…0a96c               Head {h00=0x001e, h01=0x0050, text=» RB(Z) ACV170 YES. SKIP IT«, t00=0x006c, t01=0x00a4}
0x0a96c…0a99c               Head {h00=0x002c, h01=0x0050, text=» SUK A4,/C TRAILING LOW INTENSITY START?«, t00=0x006c, t01=0x00c6}
0x0a99c…0a9be               Head {h00=0x001e, h01=0x0050, text=» RB(Z) ACV170 YES. SKIP IT«, t00=0x006c, t01=0x00f6}
0x0a9be…0a9ec               Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 TRAILING LOW INTENSITY STOP?«, t00=0x006c, t01=0x0118}
0x0a9ec…0aa0e               Head {h00=0x001e, h01=0x0050, text=» RB(Z) ACV170 YES. SKIP IT«, t00=0x006c, t01=0x0146}
0x0aa0e…0aa18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0168}
0x0aa18…0aa52               Head {h00=0x0036, h01=0x0050, text=»ACV200 ST A2,ECBRL,A8 STORE (NEW) REQUESTED LENGTH«, t00=0x006c, t01=0x0172}
0x0aa52…0aa60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x001c}
0x0aa60…0aa6c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x002a}
0x0aa6c…0aa80               Head {h00=0x0010, h01=0x0050, text=»ACV210 EQU *«, t00=0x006d, t01=0x0036}
0x0aa80…0aab0               Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET CHAR FROM ECB BUFFER «, t00=0x006d, t01=0x004a}
0x0aab0…0aad6               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A1 END OF ECB BUFFER ?«, t00=0x006d, t01=0x007a}
0x0aad6…0aaf0               Head {h00=0x0016, h01=0x0050, text=» RF(NP) ACV380 YES«, t00=0x006d, t01=0x00a0}
0x0aaf0…0ab0a               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/7F CLEAN «, t00=0x006d, t01=0x00ba}
0x0ab0a…0ab28               Head {h00=0x001a, h01=0x0050, text=» CWK A2,SPACE < /20 ? «, t00=0x006d, t01=0x00d4}
0x0ab28…0ab60               Head {h00=0x0034, h01=0x0050, text=» RF(L) ACV220 YES. THEN CHECK COMMAND CHARACTER «, t00=0x006d, t01=0x00f2}
0x0ab60…0ab98               Head {h00=0x0034, h01=0x0050, text=» CF A5,CHKOUT CHECK IF LAST COLUMN AND DO OUTPUT«, t00=0x006d, t01=0x012a}
0x0ab98…0abb8               Head {h00=0x001c, h01=0x0050, text=» RB ACV210 GET NEXT CHAR«, t00=0x006d, t01=0x0162}
0x0abb8…0abc6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0182}
0x0abc6…0abd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0190}
0x0abd0…0abf4               Head {h00=0x0020, h01=0x0050, text=»* CHECK OF COMMAND CHARACTER«, t00=0x006e, t01=0x000a}
0x0abf4…0abfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x002e}
0x0abfe…0ac12               Head {h00=0x0010, h01=0x0050, text=»ACV220 EQU *«, t00=0x006e, t01=0x0038}
0x0ac12…0ac3a               Head {h00=0x0024, h01=0x0050, text=» CWK A7,/05 ORDER /05 RUNNING ? «, t00=0x006e, t01=0x004c}
0x0ac3a…0ac74               Head {h00=0x0036, h01=0x0050, text=» ABL(E) ACV480 YES. THEN DIFFERENT CHARACTER CHECK«, t00=0x006e, t01=0x0074}
0x0ac74…0ac94               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/11 TABULATION ?«, t00=0x006e, t01=0x00ae}
0x0ac94…0acae               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV290 YES «, t00=0x006e, t01=0x00ce}
0x0acae…0acd8               Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 START UNDERLINE ? (/12) «, t00=0x006e, t01=0x00e8}
0x0acd8…0acf2               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV230 YES «, t00=0x006e, t01=0x0112}
0x0acf2…0ad1a               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 STOP UNDERLINE ? (/13)«, t00=0x006e, t01=0x012c}
0x0ad1a…0ad34               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV250 YES «, t00=0x006e, t01=0x0154}
0x0ad34…0ad5a               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 FAST OUTPUT ? (/14) «, t00=0x006e, t01=0x016e}
0x0ad5a…0ad74 (111, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV350 YES «, t00=0x006f, t01=0x0004}
0x0ad74…0ada2               Head {h00=0x002a, h01=0x0050, text=» SUK A2,/A START LOW INTENSITY ? (/1E)«, t00=0x006f, t01=0x001e}
0x0ada2…0adbc               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV270 YES «, t00=0x006f, t01=0x004c}
0x0adbc…0ade8               Head {h00=0x0028, h01=0x0050, text=» SUK A2,1 STOP LOW INTENSITY ? (/1F)«, t00=0x006f, t01=0x0066}
0x0ade8…0ae02               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV280 YES «, t00=0x006f, t01=0x0092}
0x0ae02…0ae0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ac}
0x0ae0c…0ae32               Head {h00=0x0022, h01=0x0050, text=»* ILLEGAL (COMMAND) CHARACTER «, t00=0x006f, t01=0x00b6}
0x0ae32…0ae3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00dc}
0x0ae3c…0ae6a               Head {h00=0x002a, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR STATUS «, t00=0x006f, t01=0x00e6}
0x0ae6a…0ae98               Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 INTO ECB RETURN CODE «, t00=0x006f, t01=0x0114}
0x0ae98…0aebc               Head {h00=0x0020, h01=0x0050, text=» RB ACV210 GO GET NEXT CHAR «, t00=0x006f, t01=0x0142}
0x0aebc…0aeca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006f, t01=0x0166}
0x0aeca…0aed4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0174}
0x0aed4…0aeee               Head {h00=0x0016, h01=0x0050, text=»* START UNDERLINE «, t00=0x006f, t01=0x017e}
0x0aeee…0aef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0008}
0x0aef8…0af0c               Head {h00=0x0010, h01=0x0050, text=»ACV230 EQU *«, t00=0x0070, t01=0x0012}
0x0af0c…0af3a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,UNDBIT GET UNDERLINE MODE BIT«, t00=0x0070, t01=0x0026}
0x0af3a…0af4e               Head {h00=0x0010, h01=0x0050, text=»ACV240 EQU *«, t00=0x0070, t01=0x0054}
0x0af4e…0af78               Head {h00=0x0026, h01=0x0050, text=» ORS A2,DWTDEV,A6 SET BIT INTO DWT«, t00=0x0070, t01=0x0068}
0x0af78…0af9c               Head {h00=0x0020, h01=0x0050, text=» RB ACV210 GO GET NEXT CHAR «, t00=0x0070, t01=0x0092}
0x0af9c…0afa6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00b6}
0x0afa6…0afbe               Head {h00=0x0014, h01=0x0050, text=»* STOP UNDERLINE«, t00=0x0070, t01=0x00c0}
0x0afbe…0afc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00d8}
0x0afc8…0afdc               Head {h00=0x0010, h01=0x0050, text=»ACV250 EQU *«, t00=0x0070, t01=0x00e2}
0x0afdc…0b00a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,UNDBIT GET UNDERLINE MODE BIT«, t00=0x0070, t01=0x00f6}
0x0b00a…0b01e               Head {h00=0x0010, h01=0x0050, text=»ACV260 EQU *«, t00=0x0070, t01=0x0124}
0x0b01e…0b03c               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x0070, t01=0x0138}
0x0b03c…0b066               Head {h00=0x0026, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT IN DWT«, t00=0x0070, t01=0x0156}
0x0b066…0b08a               Head {h00=0x0020, h01=0x0050, text=» RB ACV210 GO GET NEXT CHAR «, t00=0x0070, t01=0x0180}
0x0b08a…0b094               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0014}
0x0b094…0b0b6               Head {h00=0x001e, h01=0x0050, text=»* START LOW (!) INTENSITY «, t00=0x0071, t01=0x001e}
0x0b0b6…0b0c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0040}
0x0b0c0…0b0d4               Head {h00=0x0010, h01=0x0050, text=»ACV270 EQU *«, t00=0x0071, t01=0x004a}
0x0b0d4…0b108               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT «, t00=0x0071, t01=0x005e}
0x0b108…0b12e               Head {h00=0x0022, h01=0x0050, text=» RB ACV260 GO RESET BIT IN DWT«, t00=0x0071, t01=0x0092}
0x0b12e…0b138               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00b8}
0x0b138…0b158               Head {h00=0x001c, h01=0x0050, text=»* STOP LOW (!) INTENSITY«, t00=0x0071, t01=0x00c2}
0x0b158…0b162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e2}
0x0b162…0b176               Head {h00=0x0010, h01=0x0050, text=»ACV280 EQU *«, t00=0x0071, t01=0x00ec}
0x0b176…0b1aa               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT «, t00=0x0071, t01=0x0100}
0x0b1aa…0b1d0               Head {h00=0x0022, h01=0x0050, text=» RB ACV240 GO SET BIT INTO DWT«, t00=0x0071, t01=0x0134}
0x0b1d0…0b1de               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x015a}
0x0b1de…0b1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0168}
0x0b1e8…0b216               Head {h00=0x002a, h01=0x0050, text=»* ORDER /06, COMMAND /11 (TABULATION) «, t00=0x0071, t01=0x0172}
0x0b216…0b220               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0010}
0x0b220…0b234               Head {h00=0x0010, h01=0x0050, text=»ACV290 EQU *«, t00=0x0072, t01=0x001a}
0x0b234…0b260               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0072, t01=0x002e}
0x0b260…0b286               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0072, t01=0x005a}
0x0b286…0b2c0               Head {h00=0x0036, h01=0x0050, text=» CF A15,GETCHR GET TAB COLUMN NUMBER (FIRST DIGIT)«, t00=0x0072, t01=0x0080}
0x0b2c0…0b2e4               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE FIRST DIGIT «, t00=0x0072, t01=0x00ba}
0x0b2e4…0b320               Head {h00=0x0038, h01=0x0050, text=» CF A15,GETCHR GET TAB COLUMN NUMBER (SECOND DIGIT) «, t00=0x0072, t01=0x00de}
0x0b320…0b32a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x011a}
0x0b32a…0b352               Head {h00=0x0024, h01=0x0050, text=»* CONVERT FROM DECIMAL INTO HEXA«, t00=0x0072, t01=0x0124}
0x0b352…0b35c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x014c}
0x0b35c…0b378               Head {h00=0x0018, h01=0x0050, text=» ANK A2,/F GET UNITS«, t00=0x0072, t01=0x0156}
0x0b378…0b39c               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/F GET TENTHS. ANY ?«, t00=0x0072, t01=0x0172}
0x0b39c…0b3b4               Head {h00=0x0014, h01=0x0050, text=» RF(Z) ACV310 NO«, t00=0x0073, t01=0x0008}
0x0b3b4…0b3c8               Head {h00=0x0010, h01=0x0050, text=»ACV300 EQU *«, t00=0x0073, t01=0x0020}
0x0b3c8…0b3ee               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A INCR WITH TEN UNITS«, t00=0x0073, t01=0x0034}
0x0b3ee…0b410               Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ONE MORE TIME ? «, t00=0x0073, t01=0x005a}
0x0b410…0b42a               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ACV300 YES«, t00=0x0073, t01=0x007c}
0x0b42a…0b434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0096}
0x0b434…0b460               Head {h00=0x0028, h01=0x0050, text=»* CHECK COLUMN NUMBER TABULATED INTO«, t00=0x0073, t01=0x00a0}
0x0b460…0b46a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00cc}
0x0b46a…0b47e               Head {h00=0x0010, h01=0x0050, text=»ACV310 EQU *«, t00=0x0073, t01=0x00d6}
0x0b47e…0b49e               Head {h00=0x001c, h01=0x0050, text=» LDK A4,0 CLEAR REGISTER«, t00=0x0073, t01=0x00ea}
0x0b49e…0b4e0               Head {h00=0x003e, h01=0x0050, text=» LC A4,DWTCNR+DWTDEV,A6 GET CURRENT NEXT WRITE ROW NUMBER «, t00=0x0073, t01=0x010a}
0x0b4e0…0b50c               Head {h00=0x0028, h01=0x0050, text=» ECR A4,A4 ROW NUMBER INTO LEFT BYTE«, t00=0x0073, t01=0x014c}
0x0b50c…0b520               Head {h00=0x0010, h01=0x0050, text=»ACV320 EQU *«, t00=0x0073, t01=0x0178}
0x0b520…0b552               Head {h00=0x002e, h01=0x0050, text=» CWK A2,1 < COLUMN 1 ? (=COLUMN 'ZERO' ?) «, t00=0x0073, t01=0x018c}
0x0b552…0b56c               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ACV330 NO «, t00=0x0074, t01=0x002e}
0x0b56c…0b59c               Head {h00=0x002c, h01=0x0050, text=» LCK A2,/0101 YES. SET COLUMN 1 INSTEAD «, t00=0x0074, t01=0x0048}
0x0b59c…0b5ae               Head {h00=0x000e, h01=0x0050, text=» RF ACV340«, t00=0x0074, t01=0x0078}
0x0b5ae…0b5c2               Head {h00=0x0010, h01=0x0050, text=»ACV330 EQU *«, t00=0x0074, t01=0x008a}
0x0b5c2…0b5fa               Head {h00=0x0034, h01=0x0050, text=» CCK A2,MAXCOL EXCEEDING MAX NUMBER OF COLUMNS ?«, t00=0x0074, t01=0x009e}
0x0b5fa…0b614               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ACV340 NO «, t00=0x0074, t01=0x00d6}
0x0b614…0b648               Head {h00=0x0030, h01=0x0050, text=» LCK A2,MAXCOL YES. SET LAST COLUMN INSTEAD «, t00=0x0074, t01=0x00f0}
0x0b648…0b652               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0124}
0x0b652…0b672               Head {h00=0x001c, h01=0x0050, text=»* EXECUTE THE TABULATION«, t00=0x0074, t01=0x012e}
0x0b672…0b67c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x014e}
0x0b67c…0b690               Head {h00=0x0010, h01=0x0050, text=»ACV340 EQU *«, t00=0x0074, t01=0x0158}
0x0b690…0b6c2               Head {h00=0x002e, h01=0x0050, text=» ORR A2,A4 COMBINE ROW AND COLUMN NUMBERS «, t00=0x0074, t01=0x016c}
0x0b6c2…0b700               Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 SET CURRENT NEXT WRITE POSITION«, t00=0x0075, t01=0x000e}
0x0b700…0b738               Head {h00=0x0034, h01=0x0050, text=» ABL ACV140 GO RESET BIT 9 IN DWTDEV, DO STAWRI.«, t00=0x0075, t01=0x004c}
0x0b738…0b746               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0084}
0x0b746…0b750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0092}
0x0b750…0b77e               Head {h00=0x002a, h01=0x0050, text=»* ORDER /06, COMMAND /14 (FAST OUTPUT)«, t00=0x0075, t01=0x009c}
0x0b77e…0b788               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00ca}
0x0b788…0b79c               Head {h00=0x0010, h01=0x0050, text=»ACV350 EQU *«, t00=0x0075, t01=0x00d4}
0x0b79c…0b7d2               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0075, t01=0x00e8}
0x0b7d2…0b80c               Head {h00=0x0036, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER FROM ECB BUFFER «, t00=0x0075, t01=0x011e}
0x0b80c…0b838               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0075, t01=0x0158}
0x0b838…0b864               Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBEL,A8 SET EFFECTIVE LENGTH«, t00=0x0075, t01=0x0184}
0x0b864…0b88c               Head {h00=0x0024, h01=0x0050, text=» SUR A4,A3 SUBTRACT BUFFER INDEX«, t00=0x0076, t01=0x0020}
0x0b88c…0b8c6               Head {h00=0x0036, h01=0x0050, text=» LDR A3,A4 SAVE REMAINING LENGTH FOR 'FAST OUTPUT'«, t00=0x0076, t01=0x0048}
0x0b8c6…0b8f4               Head {h00=0x002a, h01=0x0050, text=» RF(Z) ACV370 NO OUTPUT IF ZERO LENGTH«, t00=0x0076, t01=0x0082}
0x0b8f4…0b908               Head {h00=0x0010, h01=0x0050, text=»ACV360 EQU *«, t00=0x0076, t01=0x00b0}
0x0b908…0b946               Head {h00=0x003a, h01=0x0050, text=» CF A5,CHKOUT CHECK LAST COLUMN WRITTEN AND DO OUTPUT «, t00=0x0076, t01=0x00c4}
0x0b946…0b968               Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 ONE MORE TIME ? «, t00=0x0076, t01=0x0102}
0x0b968…0b982               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ACV360 YES«, t00=0x0076, t01=0x0124}
0x0b982…0b996               Head {h00=0x0010, h01=0x0050, text=»ACV370 EQU *«, t00=0x0076, t01=0x013e}
0x0b996…0b9c2               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0076, t01=0x0152}
0x0b9c2…0b9e8               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0076, t01=0x017e}
0x0b9e8…0ba26               Head {h00=0x003a, h01=0x0050, text=» CF A15,RESCN RESTORE SAVED WRITE POS. AS CURRENT NEXT«, t00=0x0077, t01=0x0014}
0x0ba26…0ba4c               Head {h00=0x0022, h01=0x0050, text=» RF ACV390 GO SET CURSOR TO IT«, t00=0x0077, t01=0x0052}
0x0ba4c…0ba5a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0078}
0x0ba5a…0ba64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0086}
0x0ba64…0ba80               Head {h00=0x0018, h01=0x0050, text=»* END OF LKM-REQUEST«, t00=0x0077, t01=0x0090}
0x0ba80…0ba8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ac}
0x0ba8a…0ba9e               Head {h00=0x0010, h01=0x0050, text=»ACV380 EQU *«, t00=0x0077, t01=0x00b6}
0x0ba9e…0baca               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0077, t01=0x00ca}
0x0baca…0baf0               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0077, t01=0x00f6}
0x0baf0…0bb26               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0077, t01=0x011c}
0x0bb26…0bb3a               Head {h00=0x0010, h01=0x0050, text=»ACV390 EQU *«, t00=0x0077, t01=0x0152}
0x0bb3a…0bb5a               Head {h00=0x001c, h01=0x0050, text=» CWK A7,/31 ORDER /31 ? «, t00=0x0077, t01=0x0166}
0x0bb5a…0bb8e               Head {h00=0x0030, h01=0x0050, text=» RF(E) ACV395 YES. THEN DO NOT MODIFY ECBCW.«, t00=0x0077, t01=0x0186}
0x0bb8e…0bba2               Head {h00=0x0010, h01=0x0050, text=»ACV392 EQU *«, t00=0x0078, t01=0x002a}
0x0bba2…0bbe0               Head {h00=0x003a, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE NEXT WRITE POSITION ALSO INTO ECB«, t00=0x0078, t01=0x003e}
0x0bbe0…0bbfa               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x0078, t01=0x007c}
0x0bbfa…0bc1c               Head {h00=0x001e, h01=0x0050, text=» ANK A4,LCWBIT BIT 9 SET ?«, t00=0x0078, t01=0x0096}
0x0bc1c…0bc4e               Head {h00=0x002e, h01=0x0050, text=» RF(Z) ACV395 NO = LAST COLUMN NOT WRITTEN«, t00=0x0078, t01=0x00b8}
0x0bc4e…0bc8c               Head {h00=0x003a, h01=0x0050, text=» IM ECBCW,A8 YES. INDICATE BY RETURNING LAST+1 COLUMN «, t00=0x0078, t01=0x00ea}
0x0bc8c…0bca0               Head {h00=0x0010, h01=0x0050, text=»ACV395 EQU *«, t00=0x0078, t01=0x0128}
0x0bca0…0bcd8               Head {h00=0x0034, h01=0x0050, text=» CF A5,OUTCUR SET CURSOR TO NEXT WRITE POSITION «, t00=0x0078, t01=0x013c}
0x0bcd8…0bcfe               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0078, t01=0x0174}
0x0bcfe…0bd08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x000a}
0x0bd08…0bd30               Head {h00=0x0024, h01=0x0050, text=»* RESET DISPLAY MODE BITS IN DWT«, t00=0x0079, t01=0x0014}
0x0bd30…0bd3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x003c}
0x0bd3a…0bd4e               Head {h00=0x0010, h01=0x0050, text=»ACV400 EQU *«, t00=0x0079, t01=0x0046}
0x0bd4e…0bd7c               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,UNDBIT GET UNDERLINE MODE BIT«, t00=0x0079, t01=0x005a}
0x0bd7c…0bd9a               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x0079, t01=0x0088}
0x0bd9a…0bdc4               Head {h00=0x0026, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT IN DWT«, t00=0x0079, t01=0x00a6}
0x0bdc4…0bdf8               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT «, t00=0x0079, t01=0x00d0}
0x0bdf8…0be22               Head {h00=0x0026, h01=0x0050, text=» ORS A2,DWTDEV,A6 SET BIT INTO DWT«, t00=0x0079, t01=0x0104}
0x0be22…0be36               Head {h00=0x0010, h01=0x0050, text=»ACV410 EQU *«, t00=0x0079, t01=0x012e}
0x0be36…0be5e               Head {h00=0x0024, h01=0x0050, text=» ABL DISEND END I/O AND DISPATCH«, t00=0x0079, t01=0x0142}
0x0be5e…0be6c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x016a}
0x0be6c…0beac               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0079, t01=0x0178}
0x0beac…0bec0               Head {h00=0x0010, h01=0x0050, text=»* ORDER /0B «, t00=0x007a, t01=0x0028}
0x0bec0…0bee0               Head {h00=0x001c, h01=0x0050, text=»* SET CURSOR (AND WRITE)«, t00=0x007a, t01=0x003c}
0x0bee0…0bf22               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007a, t01=0x005c}
0x0bf22…0bf2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x009e}
0x0bf2c…0bf40               Head {h00=0x0010, h01=0x0050, text=»ACV420 EQU *«, t00=0x007a, t01=0x00a8}
0x0bf40…0bf68               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 INITIATE BUFFER INDEX «, t00=0x007a, t01=0x00bc}
0x0bf68…0bf92               Head {h00=0x0026, h01=0x0050, text=»*    (SKIP UNUSED LEADING 2 BYTES)«, t00=0x007a, t01=0x00e4}
0x0bf92…0bfb8               Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 CLEAR WORK REGISTER «, t00=0x007a, t01=0x010e}
0x0bfb8…0bfde               Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 CLEAR WORK REGISTER «, t00=0x007a, t01=0x0134}
0x0bfde…0c00e               Head {h00=0x002c, h01=0x0050, text=» LC A4,ECBCW,A8 GET REQUESTED ROW NUMBER«, t00=0x007a, t01=0x015a}
0x0c00e…0c03a               Head {h00=0x0028, h01=0x0050, text=» CWK A4,1 < ROW 1 ? (=ROW 'ZERO' ?) «, t00=0x007a, t01=0x018a}
0x0c03a…0c054               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ACV430 NO «, t00=0x007b, t01=0x0026}
0x0c054…0c080               Head {h00=0x0028, h01=0x0050, text=» LCK A4,/0101 YES. SET ROW 1 INSTEAD«, t00=0x007b, t01=0x0040}
0x0c080…0c094               Head {h00=0x0010, h01=0x0050, text=» RF ACV440  «, t00=0x007b, t01=0x006c}
0x0c094…0c0a8               Head {h00=0x0010, h01=0x0050, text=»ACV430 EQU *«, t00=0x007b, t01=0x0080}
0x0c0a8…0c0de               Head {h00=0x0032, h01=0x0050, text=» CCK A4,MAXROW EXCEEDING MAX NUMBER OF ROWS ? «, t00=0x007b, t01=0x0094}
0x0c0de…0c0f8               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ACV440 NO «, t00=0x007b, t01=0x00ca}
0x0c0f8…0c128               Head {h00=0x002c, h01=0x0050, text=» LCK A4,MAXROW YES. SET LAST ROW INSTEAD«, t00=0x007b, t01=0x00e4}
0x0c128…0c13c               Head {h00=0x0010, h01=0x0050, text=»ACV440 EQU *«, t00=0x007b, t01=0x0114}
0x0c13c…0c168               Head {h00=0x0028, h01=0x0050, text=» ECR A4,A4 ROW NUMBER INTO LEFT BYTE«, t00=0x007b, t01=0x0128}
0x0c168…0c19e               Head {h00=0x0032, h01=0x0050, text=» LC A2,ECBCW+1,A8 GET REQUESTED COLUMN NUMBER «, t00=0x007b, t01=0x0154}
0x0c19e…0c1d6               Head {h00=0x0034, h01=0x0050, text=» RB ACV320 GO CHECK REQUESTED COLUMN NUMBER ETC.«, t00=0x007b, t01=0x018a}
0x0c1d6…0c1e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x0032}
0x0c1e4…0c224               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007c, t01=0x0040}
0x0c224…0c238               Head {h00=0x0010, h01=0x0050, text=»* ORDER /31 «, t00=0x007c, t01=0x0080}
0x0c238…0c248               Head {h00=0x000c, h01=0x0050, text=»* ERASE «, t00=0x007c, t01=0x0094}
0x0c248…0c288               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007c, t01=0x00a4}
0x0c288…0c292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00e4}
0x0c292…0c2a6               Head {h00=0x0010, h01=0x0050, text=»ACV450 EQU *«, t00=0x007c, t01=0x00ee}
0x0c2a6…0c2e4               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x007c, t01=0x0102}
0x0c2e4…0c31e               Head {h00=0x0036, h01=0x0050, text=» LD A3,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE «, t00=0x007c, t01=0x0140}
0x0c31e…0c350               Head {h00=0x002e, h01=0x0050, text=» RB(Z) ACV395 NO ERASE IF ZERO CHARACTERS,«, t00=0x007c, t01=0x017a}
0x0c350…0c376               Head {h00=0x0022, h01=0x0050, text=»*   BUT THEN GO SET CURSOR ETC«, t00=0x007d, t01=0x001c}
0x0c376…0c38e               Head {h00=0x0014, h01=0x0050, text=»*   + DO ENDIO. «, t00=0x007d, t01=0x0042}
0x0c38e…0c3bc               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST «, t00=0x007d, t01=0x005a}
0x0c3bc…0c3e2               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x007d, t01=0x0088}
0x0c3e2…0c412               Head {h00=0x002c, h01=0x0050, text=» LDK A2,SPACE GET SPACE TO DO ERASE WITH«, t00=0x007d, t01=0x00ae}
0x0c412…0c430               Head {h00=0x001a, h01=0x0050, text=» RB ACV360 GO DO ERASE«, t00=0x007d, t01=0x00de}
0x0c430…0c43e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x00fc}
0x0c43e…0c476               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007d, t01=0x010a}
0x0c476…0c48a               Head {h00=0x0010, h01=0x0050, text=»* ORDER /00 «, t00=0x007d, t01=0x0142}
0x0c48a…0c4a0               Head {h00=0x0012, h01=0x0050, text=»* TEST STATUS «, t00=0x007d, t01=0x0156}
0x0c4a0…0c4da               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007d, t01=0x016c}
0x0c4da…0c4e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0016}
0x0c4e4…0c4f8               Head {h00=0x0010, h01=0x0050, text=»ACV460 EQU *«, t00=0x007e, t01=0x0020}
0x0c4f8…0c536               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x007e, t01=0x0034}
0x0c536…0c570               Head {h00=0x0036, h01=0x0050, text=» RB ACV392 SET ECBCW AND DO (DUMMY) OUTPUT CURSOR «, t00=0x007e, t01=0x0072}
0x0c570…0c57e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x00ac}
0x0c57e…0c5b8               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007e, t01=0x00ba}
0x0c5b8…0c5cc               Head {h00=0x0010, h01=0x0050, text=»* ORDER /05 «, t00=0x007e, t01=0x00f4}
0x0c5cc…0c5e2               Head {h00=0x0012, h01=0x0050, text=»* BASIC WRITE «, t00=0x007e, t01=0x0108}
0x0c5e2…0c61c               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007e, t01=0x011e}
0x0c61c…0c626               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0158}
0x0c626…0c63a               Head {h00=0x0010, h01=0x0050, text=»ACV470 EQU *«, t00=0x007e, t01=0x0162}
0x0c63a…0c662               Head {h00=0x0024, h01=0x0050, text=» LDK A3,0 INITIATE BUFFER INDEX «, t00=0x007e, t01=0x0176}
0x0c662…0c692               Head {h00=0x002c, h01=0x0050, text=» ABL ACV150 GO START WRITE REQUEST ETC. «, t00=0x007f, t01=0x000e}
0x0c692…0c69c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x003e}
0x0c69c…0c6a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0048}
0x0c6a6…0c6b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0052}
0x0c6b0…0c6ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x005c}
0x0c6ba…0c6e8               Head {h00=0x002a, h01=0x0050, text=»* CHECK OF DETECTED COMMAND CHARACTER «, t00=0x007f, t01=0x0066}
0x0c6e8…0c6f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0094}
0x0c6f2…0c706               Head {h00=0x0010, h01=0x0050, text=»ACV480 EQU *«, t00=0x007f, t01=0x009e}
0x0c706…0c72c               Head {h00=0x0022, h01=0x0050, text=» SUK A2,/0A LINE-FEED ? (=/0A)«, t00=0x007f, t01=0x00b2}
0x0c72c…0c746               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ACV490 NO «, t00=0x007f, t01=0x00d8}
0x0c746…0c772               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x007f, t01=0x00f2}
0x0c772…0c798               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x007f, t01=0x011e}
0x0c798…0c7c6               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINE-FEED TO NEXT ROW«, t00=0x007f, t01=0x0144}
0x0c7c6…0c7fa               Head {h00=0x0030, h01=0x0050, text=» ABL ACV150 GO START NEW WRITE REQUEST ETC. «, t00=0x007f, t01=0x0172}
0x0c7fa…0c80e               Head {h00=0x0010, h01=0x0050, text=»ACV490 EQU *«, t00=0x0080, t01=0x0016}
0x0c80e…0c838               Head {h00=0x0026, h01=0x0050, text=» SUK A2,3 CARRIAGE RETURN ? (=/0D)«, t00=0x0080, t01=0x002a}
0x0c838…0c870               Head {h00=0x0034, h01=0x0050, text=» ABL(NZ) ACV210 NO. THEN ILLEGAL COMMAND CHAR ! «, t00=0x0080, t01=0x0054}
0x0c870…0c8a6               Head {h00=0x0032, h01=0x0050, text=»*   NO OUTPUT, NO ERROR STATUS, GET NEXT CHAR «, t00=0x0080, t01=0x008c}
0x0c8a6…0c8d2               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0080, t01=0x00c2}
0x0c8d2…0c8f6               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0080, t01=0x00ee}
0x0c8f6…0c924               Head {h00=0x002a, h01=0x0050, text=» ABL ACV130 GO DO CARRIAGE RETURN ETC.«, t00=0x0080, t01=0x0112}
0x0c924…0c932               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0140}
0x0c932…0c93c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x014e}
0x0c93c…0c980               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0080, t01=0x0158}
0x0c980…0c98a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x000c}
0x0c98a…0c9b0               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0081, t01=0x0016}
0x0c9b0…0c9de               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0081, t01=0x003c}
0x0c9de…0ca02               Head {h00=0x0020, h01=0x0050, text=»* A B O R T   R O U T I N E «, t00=0x0081, t01=0x006a}
0x0ca02…0ca0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x008e}
0x0ca0c…0ca50               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x0098}
0x0ca50…0ca5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00dc}
0x0ca5a…0ca64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00e6}
0x0ca64…0ca8c               Head {h00=0x0024, h01=0x0050, text=»* CALL: CFR A15,A2  (A2 = ABVU) «, t00=0x0081, t01=0x00f0}
0x0ca8c…0ca96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0118}
0x0ca96…0cabc               Head {h00=0x0022, h01=0x0050, text=»* USED BY: ABORT-LKM PROCESSOR«, t00=0x0081, t01=0x0122}
0x0cabc…0caec               Head {h00=0x002c, h01=0x0050, text=»*  AT ABORT OF KEYBOARD INPUT WITH ECHO «, t00=0x0081, t01=0x0148}
0x0caec…0caf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0178}
0x0caf6…0cb34               Head {h00=0x003a, h01=0x0050, text=»* FUNCTION:SAVE CURRENT NEXT WRITE POSITION (DEFINING «, t00=0x0081, t01=0x0182}
0x0cb34…0cb60               Head {h00=0x0028, h01=0x0050, text=»*  END OF REQUEST POSITION) INTO DWT«, t00=0x0082, t01=0x0030}
0x0cb60…0cb6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x005c}
0x0cb6a…0cb9a               Head {h00=0x002c, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS OF ECHO DEVICE«, t00=0x0082, t01=0x0066}
0x0cb9a…0cbc6               Head {h00=0x0028, h01=0x0050, text=»*  A8 = DWT-ADDRESS OF INPUT DEVICE «, t00=0x0082, t01=0x0096}
0x0cbc6…0cbd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00c2}
0x0cbd0…0cbf4               Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: A6,A8 UNCHANGED ! «, t00=0x0082, t01=0x00cc}
0x0cbf4…0cbfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00f0}
0x0cbfe…0cc42               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0082, t01=0x00fa}
0x0cc42…0cc4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x013e}
0x0cc4c…0cc5e               Head {h00=0x000e, h01=0x0050, text=»ABVU EQU *«, t00=0x0082, t01=0x0148}
0x0cc5e…0cc94               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0082, t01=0x015a}
0x0cc94…0ccaa               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0082, t01=0x0190}
0x0ccaa…0ccc4               Head {h00=0x0016, h01=0x0050, text=» ABL IHRTN RETURN «, t00=0x0083, t01=0x0016}
0x0ccc4…0ccd0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x0030}
0x0ccd0…0cce0               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0083, t01=0x003c}
0x0cce0…0ccee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x004c}
0x0ccee…0ccf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x005a}
0x0ccf8…0cd3c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x0064}
0x0cd3c…0cd46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00a8}
0x0cd46…0cd6c               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0083, t01=0x00b2}
0x0cd6c…0cd9a               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0083, t01=0x00d8}
0x0cd9a…0cdc4               Head {h00=0x0026, h01=0x0050, text=»* R E C O V E R Y   R O U T I N E «, t00=0x0083, t01=0x0106}
0x0cdc4…0cdce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0130}
0x0cdce…0ce12               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x013a}
0x0ce12…0ce1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x017e}
0x0ce1c…0ce5e               Head {h00=0x003e, h01=0x0050, text=»* ENTERED: FROM LINE DRIVER PART VIA NETWORK DISTRIBUTOR, «, t00=0x0083, t01=0x0188}
0x0ce5e…0ce74               Head {h00=0x0012, h01=0x0050, text=»*  AT POWER ON«, t00=0x0084, t01=0x003a}
0x0ce74…0ce7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0050}
0x0ce7e…0ce92               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0084, t01=0x005a}
0x0ce92…0ceac               Head {h00=0x0016, h01=0x0050, text=»*  1. SET DWT BUSY«, t00=0x0084, t01=0x006e}
0x0ceac…0cec6               Head {h00=0x0016, h01=0x0050, text=»*  2. CLEAR SCREEN«, t00=0x0084, t01=0x0088}
0x0cec6…0cf00               Head {h00=0x0036, h01=0x0050, text=»*  3. INITIATE CURRENT NEXT WRITE POSITION IN DWT «, t00=0x0084, t01=0x00a2}
0x0cf00…0cf24               Head {h00=0x0020, h01=0x0050, text=»*  4. RESET BITS IN DWT FOR «, t00=0x0084, t01=0x00dc}
0x0cf24…0cf3e               Head {h00=0x0016, h01=0x0050, text=»*   - SCROLL MODE «, t00=0x0084, t01=0x0100}
0x0cf3e…0cf60               Head {h00=0x001e, h01=0x0050, text=»*   - LAST COLUMN WRITTEN «, t00=0x0084, t01=0x011a}
0x0cf60…0cf7c               Head {h00=0x0018, h01=0x0050, text=»*   - UNDERLINE MODE«, t00=0x0084, t01=0x013c}
0x0cf7c…0cf9c               Head {h00=0x001c, h01=0x0050, text=»*  5. SET BIT IN DWT FOR«, t00=0x0084, t01=0x0158}
0x0cf9c…0cfbe               Head {h00=0x001e, h01=0x0050, text=»*   - HIGH INTENSITY MODE «, t00=0x0084, t01=0x0178}
0x0cfbe…0cff8               Head {h00=0x0036, h01=0x0050, text=»*  6. SET RETURN STATUS FOR ECBRC: 'NOT OPERABLE' «, t00=0x0085, t01=0x000a}
0x0cff8…0d01a               Head {h00=0x001e, h01=0x0050, text=»*  7. EXIT: ENDIO+DISPATCH«, t00=0x0085, t01=0x0044}
0x0d01a…0d024               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0066}
0x0d024…0d048               Head {h00=0x0020, h01=0x0050, text=»* INPUT: A4 = RECOVERY CAUSE«, t00=0x0085, t01=0x0070}
0x0d048…0d066               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x0085, t01=0x0094}
0x0d066…0d082               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0085, t01=0x00b2}
0x0d082…0d0aa               Head {h00=0x0024, h01=0x0050, text=»*  A7 = ORDER (IF REQUEST IS ON)«, t00=0x0085, t01=0x00ce}
0x0d0aa…0d0d8               Head {h00=0x002a, h01=0x0050, text=»*  A8 = ECB ADDRESS (IF REQUEST IS ON)«, t00=0x0085, t01=0x00f6}
0x0d0d8…0d100               Head {h00=0x0024, h01=0x0050, text=»*       0 (IF NO REQUEST IS ON) «, t00=0x0085, t01=0x0124}
0x0d100…0d10a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x014c}
0x0d10a…0d12c               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x0085, t01=0x0156}
0x0d12c…0d148               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0085, t01=0x0178}
0x0d148…0d152 (134, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0004}
0x0d152…0d198               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0086, t01=0x000e}
0x0d198…0d1a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0054}
0x0d1a2…0d1b4               Head {h00=0x000e, h01=0x0050, text=»RCVU EQU *«, t00=0x0086, t01=0x005e}
0x0d1b4…0d1d4               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/7FFF READY-BIT«, t00=0x0086, t01=0x0070}
0x0d1d4…0d206               Head {h00=0x002e, h01=0x0050, text=» ANS A2,DWTST,A6 RESET IT (=SET DWT BUSY) «, t00=0x0086, t01=0x0090}
0x0d206…0d242               Head {h00=0x0038, h01=0x0050, text=» CF A5,CLESCR CLEAR SCREEN, RESET WRITE+CURSOR POS. «, t00=0x0086, t01=0x00c2}
0x0d242…0d266               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0086, t01=0x00fe}
0x0d266…0d28a               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/0101 HOME POSITION«, t00=0x0086, t01=0x0122}
0x0d28a…0d2c8               Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 AS CURRENT NEXT WRITE POSITION «, t00=0x0086, t01=0x0146}
0x0d2c8…0d30c               Head {h00=0x0040, h01=0x0050, text=» LDK A4,ROLBIT+LCWBIT BIT 8+9 (SCROLL + LAST COLUMN WRITTEN)«, t00=0x0086, t01=0x0184}
0x0d30c…0d32a               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x0087, t01=0x0038}
0x0d32a…0d356               Head {h00=0x0028, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BITS IN DWT «, t00=0x0087, t01=0x0056}
0x0d356…0d38c               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0087, t01=0x0082}
0x0d38c…0d3c2               Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR STATUS NOT OPERABLE (FOR ECBRC) «, t00=0x0087, t01=0x00b8}
0x0d3c2…0d3f8               Head {h00=0x0032, h01=0x0050, text=» RB ACV400 GO RESET UNDERLINE+INTENSITY MODE, «, t00=0x0087, t01=0x00ee}
0x0d3f8…0d41e               Head {h00=0x0022, h01=0x0050, text=»*   AND EXIT:  ENDIO+DISPATCH «, t00=0x0087, t01=0x0124}
0x0d41e…0d42c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x014a}
0x0d42c…0d436               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0158}
0x0d436…0d47c               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0087, t01=0x0162}
0x0d47c…0d486               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0018}
0x0d486…0d4ac               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0088, t01=0x0022}
0x0d4ac…0d4da               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0088, t01=0x0048}
0x0d4da…0d4fc               Head {h00=0x001e, h01=0x0050, text=»* E C H O   R O U T I N E «, t00=0x0088, t01=0x0076}
0x0d4fc…0d506               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0098}
0x0d506…0d54c               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0088, t01=0x00a2}
0x0d54c…0d556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00e8}
0x0d556…0d560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00f2}
0x0d560…0d5a0               Head {h00=0x003c, h01=0x0050, text=»* ENTERED: FROM KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR,«, t00=0x0088, t01=0x00fc}
0x0d5a0…0d5c6               Head {h00=0x0022, h01=0x0050, text=»*  AT KEYBOARD INPUT WITH ECHO«, t00=0x0088, t01=0x013c}
0x0d5c6…0d5d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0162}
0x0d5d0…0d5e4               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0088, t01=0x016c}
0x0d5e4…0d614               Head {h00=0x002c, h01=0x0050, text=»*  1. ECHOING OF ALPHANUMERIC CHARACTERS«, t00=0x0088, t01=0x0180}
0x0d614…0d642               Head {h00=0x002a, h01=0x0050, text=»*  2. HANDLING OF BACKSPACE-CHARACTER «, t00=0x0089, t01=0x0020}
0x0d642…0d66c               Head {h00=0x0026, h01=0x0050, text=»*  3. HANDLING OF CLEAR-CHARACTER «, t00=0x0089, t01=0x004e}
0x0d66c…0d698               Head {h00=0x0028, h01=0x0050, text=»*  4. HANDLING OF LINEFEED-CHARACTER«, t00=0x0089, t01=0x0078}
0x0d698…0d6cc               Head {h00=0x0030, h01=0x0050, text=»*  5. HANDLING OF CARRIAGE-RETURN-CHARACTER «, t00=0x0089, t01=0x00a4}
0x0d6cc…0d714               Head {h00=0x0044, h01=0x0050, text=»*  6. HANDLING OF END-OF-RECORD-CHARACTER (ALPHANUM., LF OR CR) «, t00=0x0089, t01=0x00d8}
0x0d714…0d752               Head {h00=0x003a, h01=0x0050, text=»*  7. EXIT: TO KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR«, t00=0x0089, t01=0x0120}
0x0d752…0d75c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x015e}
0x0d75c…0d782               Head {h00=0x0022, h01=0x0050, text=»* INPUT: A2 = BITS 0-7 : ZERO «, t00=0x0089, t01=0x0168}
0x0d782…0d7a6               Head {h00=0x0020, h01=0x0050, text=»*       BITS 8-15: CHARACTER«, t00=0x0089, t01=0x018e}
0x0d7a6…0d7c4               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x008a, t01=0x0022}
0x0d7c4…0d7e0               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x008a, t01=0x0040}
0x0d7e0…0d808               Head {h00=0x0024, h01=0x0050, text=»*  A7 = BIT 0  =1 IF END OF ECHO«, t00=0x008a, t01=0x005c}
0x0d808…0d828               Head {h00=0x001c, h01=0x0050, text=»*              =0 IF NOT«, t00=0x008a, t01=0x0084}
0x0d828…0d832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x00a4}
0x0d832…0d854               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A6 = DWT ADDRESS«, t00=0x008a, t01=0x00ae}
0x0d854…0d85e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x00d0}
0x0d85e…0d8a6               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x00da}
0x0d8a6…0d8b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0122}
0x0d8b0…0d8c4               Head {h00=0x0010, h01=0x0050, text=»ECHOVU EQU *«, t00=0x008a, t01=0x012c}
0x0d8c4…0d8f0               Head {h00=0x0028, h01=0x0050, text=» LDR A7,A7 END OF REQUEST FOR ECHO ?«, t00=0x008a, t01=0x0140}
0x0d8f0…0d90a               Head {h00=0x0016, h01=0x0050, text=» RF(N) ECV110 YES «, t00=0x008a, t01=0x016c}
0x0d90a…0d914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0186}
0x0d914…0d93e               Head {h00=0x0026, h01=0x0050, text=»* CHECK IF SPECIAL ECHO CHARACTER «, t00=0x008a, t01=0x0190}
0x0d93e…0d948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x002a}
0x0d948…0d980               Head {h00=0x0034, h01=0x0050, text=» CWK A2,/80 8-BIT SET ? (=EOR-CHARACTER, >=/80) «, t00=0x008b, t01=0x0034}
0x0d980…0d996               Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x008b, t01=0x006c}
0x0d996…0d9c4               Head {h00=0x002a, h01=0x0050, text=» RF(NL) ECV120 YES. NOT TO BE ECHOED. «, t00=0x008b, t01=0x0082}
0x0d9c4…0d9d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x00b0}
0x0d9d0…0d9e6               Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=1 «, t00=0x008b, t01=0x00bc}
0x0d9e6…0da16               Head {h00=0x002c, h01=0x0050, text=» RF(L) ECV080 NO. THEN NOT EOR-CHARACTER«, t00=0x008b, t01=0x00d2}
0x0da16…0da20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0102}
0x0da20…0da40               Head {h00=0x001c, h01=0x0050, text=»* ECHO OF EOR-CHARACTER «, t00=0x008b, t01=0x010c}
0x0da40…0da4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x012c}
0x0da4a…0da64               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/7F CLEAN «, t00=0x008b, t01=0x0136}
0x0da64…0da7e               Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 </20 ?«, t00=0x008b, t01=0x0150}
0x0da7e…0dab8               Head {h00=0x0036, h01=0x0050, text=» RF(L) ECV085 YES. COMMAND CHARACTER AS EOR-CHAR. «, t00=0x008b, t01=0x016a}
0x0dab8…0daee               Head {h00=0x0032, h01=0x0050, text=» RF ECV095 NO. ALPHANUMERIC CHAR AS EOR-CHAR. «, t00=0x008c, t01=0x0014}
0x0daee…0dafa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x004a}
0x0dafa…0db04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0056}
0x0db04…0db28               Head {h00=0x0020, h01=0x0050, text=»* ECHO OF NON-EOR CHARACTER «, t00=0x008c, t01=0x0060}
0x0db28…0db32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0084}
0x0db32…0db46               Head {h00=0x0010, h01=0x0050, text=»ECV080 EQU *«, t00=0x008c, t01=0x008e}
0x0db46…0db60               Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 </20 ?«, t00=0x008c, t01=0x00a2}
0x0db60…0db98               Head {h00=0x0034, h01=0x0050, text=» RF(NL) ECV095 NO. THEN ALPHANUMERIC CHARACTER. «, t00=0x008c, t01=0x00bc}
0x0db98…0dbbe               Head {h00=0x0022, h01=0x0050, text=» SUK A2,/08 BACKSPACE ? (/08) «, t00=0x008c, t01=0x00f4}
0x0dbbe…0dbd8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ECV130 YES «, t00=0x008c, t01=0x011a}
0x0dbd8…0dc04               Head {h00=0x0028, h01=0x0050, text=» SUK A2,/10 CLEAR-CHARACTER ? (/18) «, t00=0x008c, t01=0x0134}
0x0dc04…0dc1e               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ECV160 YES «, t00=0x008c, t01=0x0160}
0x0dc1e…0dc44               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/18 RESTORE CHARACTER «, t00=0x008c, t01=0x017a}
0x0dc44…0dc58               Head {h00=0x0010, h01=0x0050, text=»ECV085 EQU *«, t00=0x008d, t01=0x0010}
0x0dc58…0dc7c               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/0A LINEFEED ? (/0A)«, t00=0x008d, t01=0x0024}
0x0dc7c…0dc96               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ECV090 NO «, t00=0x008d, t01=0x0048}
0x0dc96…0dca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0062}
0x0dca0…0dcba               Head {h00=0x0016, h01=0x0050, text=»* ECHO OF LINEFEED«, t00=0x008d, t01=0x006c}
0x0dcba…0dcc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0086}
0x0dcc4…0dcf2               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINEFEED TO NEXT ROW «, t00=0x008d, t01=0x0090}
0x0dcf2…0dd12               Head {h00=0x001c, h01=0x0050, text=» RF ECV100 GO SET CURSOR«, t00=0x008d, t01=0x00be}
0x0dd12…0dd26               Head {h00=0x0010, h01=0x0050, text=»ECV090 EQU *«, t00=0x008d, t01=0x00de}
0x0dd26…0dd50               Head {h00=0x0026, h01=0x0050, text=» SUK A2,3 CARRIAGE RETURN ? (/0D) «, t00=0x008d, t01=0x00f2}
0x0dd50…0dd88               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) ECV120 NO. THEN ILLEGAL ECHO CHARACTER! «, t00=0x008d, t01=0x011c}
0x0dd88…0dd92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0154}
0x0dd92…0ddb4               Head {h00=0x001e, h01=0x0050, text=»* ECHO OF CARRIAGE RETURN «, t00=0x008d, t01=0x015e}
0x0ddb4…0ddbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0180}
0x0ddbe…0dde6               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/01 FIRST COLUMN OF ROW «, t00=0x008d, t01=0x018a}
0x0dde6…0de22               Head {h00=0x0038, h01=0x0050, text=» SC A2,DWTCNC+DWTDEV,A6 AS CURRENT NEXT WRITE COLUMN«, t00=0x008e, t01=0x0022}
0x0de22…0de5c               Head {h00=0x0036, h01=0x0050, text=» LDK A4,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x008e, t01=0x005e}
0x0de5c…0de7a               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x008e, t01=0x0098}
0x0de7a…0dea0               Head {h00=0x0022, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BIT 9 «, t00=0x008e, t01=0x00b6}
0x0dea0…0dec0               Head {h00=0x001c, h01=0x0050, text=» RF ECV100 GO SET CURSOR«, t00=0x008e, t01=0x00dc}
0x0dec0…0deca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x00fc}
0x0deca…0def6               Head {h00=0x0028, h01=0x0050, text=»* DO ECHO OF ALPHANUMERIC CHARACTER «, t00=0x008e, t01=0x0106}
0x0def6…0df00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0132}
0x0df00…0df14               Head {h00=0x0010, h01=0x0050, text=»ECV095 EQU *«, t00=0x008e, t01=0x013c}
0x0df14…0df3c               Head {h00=0x0024, h01=0x0050, text=» CF A5,ECHOUT ECHO THE CHARACTER«, t00=0x008e, t01=0x0150}
0x0df3c…0df78               Head {h00=0x0038, h01=0x0050, text=» CF A15,NXTCOL UPDATE COLUMN COUNTER TO NEXT COLUMN «, t00=0x008e, t01=0x0178}
0x0df78…0df8c               Head {h00=0x0010, h01=0x0050, text=»ECV100 EQU *«, t00=0x008f, t01=0x0024}
0x0df8c…0dfca               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x008f, t01=0x0038}
0x0dfca…0dff4               Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTCUR OUTPUT CURSOR IN IT «, t00=0x008f, t01=0x0076}
0x0dff4…0e018               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x008f, t01=0x00a0}
0x0e018…0e032               Head {h00=0x0016, h01=0x0050, text=» RF ECV120 RETURN «, t00=0x008f, t01=0x00c4}
0x0e032…0e03c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00de}
0x0e03c…0e05a               Head {h00=0x001a, h01=0x0050, text=»* END THE ECHO REQUEST«, t00=0x008f, t01=0x00e8}
0x0e05a…0e064               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0106}
0x0e064…0e078               Head {h00=0x0010, h01=0x0050, text=»ECV110 EQU *«, t00=0x008f, t01=0x0110}
0x0e078…0e0ae               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x008f, t01=0x0124}
0x0e0ae…0e0e0               Head {h00=0x002e, h01=0x0050, text=» CF A15,TENDIO END ECHO-OUTPUT I/O-REQUEST«, t00=0x008f, t01=0x015a}
0x0e0e0…0e0ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x018c}
0x0e0ea…0e10e               Head {h00=0x0020, h01=0x0050, text=»* RETURN FROM ECHO HANDLING «, t00=0x0090, t01=0x0008}
0x0e10e…0e118               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x002c}
0x0e118…0e12c               Head {h00=0x0010, h01=0x0050, text=»ECV120 EQU *«, t00=0x0090, t01=0x0036}
0x0e12c…0e15e               Head {h00=0x002e, h01=0x0050, text=» ABL ECHRTN RETURN FROM ECHO TO KB-DRIVER «, t00=0x0090, t01=0x004a}
0x0e15e…0e16c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x007c}
0x0e16c…0e176               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x008a}
0x0e176…0e1a2               Head {h00=0x0028, h01=0x0050, text=»* HANDLING OF A BACKSPACE-CHARACTER «, t00=0x0090, t01=0x0094}
0x0e1a2…0e1ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00c0}
0x0e1ac…0e1c0               Head {h00=0x0010, h01=0x0050, text=»ECV130 EQU *«, t00=0x0090, t01=0x00ca}
0x0e1c0…0e1da               Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTDEV,A6  «, t00=0x0090, t01=0x00de}
0x0e1da…0e1fa               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A2 SAVE INTO A4 «, t00=0x0090, t01=0x00f8}
0x0e1fa…0e23c               Head {h00=0x003e, h01=0x0050, text=» ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN ALREADY WRITTEN «, t00=0x0090, t01=0x0118}
0x0e23c…0e25c               Head {h00=0x001c, h01=0x0050, text=»*   BY PREVIOUS REQUEST)«, t00=0x0090, t01=0x015a}
0x0e25c…0e288               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) ECV120 YES. THEN NO RUBOUT !«, t00=0x0090, t01=0x017a}
0x0e288…0e2aa               Head {h00=0x001e, h01=0x0050, text=» ANK A2,LCWBIT BIT 9 SET ?«, t00=0x0091, t01=0x0016}
0x0e2aa…0e2ea               Head {h00=0x003c, h01=0x0050, text=» RF(NZ) ECV140 YES.LAST COLUMN WRITTEN (DURING REQUEST) «, t00=0x0091, t01=0x0038}
0x0e2ea…0e32c               Head {h00=0x003e, h01=0x0050, text=» LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER«, t00=0x0091, t01=0x0078}
0x0e32c…0e348               Head {h00=0x0018, h01=0x0050, text=»*   PREVIOUS REQUEST«, t00=0x0091, t01=0x00ba}
0x0e348…0e386               Head {h00=0x003a, h01=0x0050, text=» CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITION ?«, t00=0x0091, t01=0x00d6}
0x0e386…0e3b2               Head {h00=0x0028, h01=0x0050, text=» RB(E) ECV120 YES. THEN NO RUB-OUT !«, t00=0x0091, t01=0x0114}
0x0e3b2…0e3c6               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0091, t01=0x0140}
0x0e3c6…0e406               Head {h00=0x003c, h01=0x0050, text=» ADS A4,DWTCN+DWTDEV,A6 DECR CURRENT NEXT WRITE POSITION«, t00=0x0091, t01=0x0154}
0x0e406…0e418 (146, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF ECV150«, t00=0x0092, t01=0x0004}
0x0e418…0e42c               Head {h00=0x0010, h01=0x0050, text=»ECV140 EQU *«, t00=0x0092, t01=0x0016}
0x0e42c…0e472               Head {h00=0x0042, h01=0x0050, text=» XRS A2,DWTDEV,A6 RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) «, t00=0x0092, t01=0x002a}
0x0e472…0e486               Head {h00=0x0010, h01=0x0050, text=»ECV150 EQU *«, t00=0x0092, t01=0x0070}
0x0e486…0e4bc               Head {h00=0x0032, h01=0x0050, text=» LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN«, t00=0x0092, t01=0x0084}
0x0e4bc…0e4ec               Head {h00=0x002c, h01=0x0050, text=» CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT«, t00=0x0092, t01=0x00ba}
0x0e4ec…0e50c               Head {h00=0x001c, h01=0x0050, text=» RB ECV100 GO SET CURSOR«, t00=0x0092, t01=0x00ea}
0x0e50c…0e51a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0092, t01=0x010a}
0x0e51a…0e524               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0118}
0x0e524…0e54c               Head {h00=0x0024, h01=0x0050, text=»* HANDLING OF A CLEAR-CHARACTER «, t00=0x0092, t01=0x0122}
0x0e54c…0e556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x014a}
0x0e556…0e56a               Head {h00=0x0010, h01=0x0050, text=»ECV160 EQU *«, t00=0x0092, t01=0x0154}
0x0e56a…0e584               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x0092, t01=0x0168}
0x0e584…0e5a4               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 ALSO INTO A2 «, t00=0x0092, t01=0x0182}
0x0e5a4…0e5de               Head {h00=0x0036, h01=0x0050, text=» ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN «, t00=0x0093, t01=0x0012}
0x0e5de…0e606               Head {h00=0x0024, h01=0x0050, text=»*   ALREADY BY PREVIOUS REQUEST)«, t00=0x0093, t01=0x004c}
0x0e606…0e632               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) ECV120 YES. THEN NO RUBOUT !«, t00=0x0093, t01=0x0074}
0x0e632…0e63c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00a0}
0x0e63c…0e658               Head {h00=0x0018, h01=0x0050, text=»* PREPARE THE RUBOUT«, t00=0x0093, t01=0x00aa}
0x0e658…0e662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00c6}
0x0e662…0e6a0               Head {h00=0x003a, h01=0x0050, text=» LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x0093, t01=0x00d0}
0x0e6a0…0e6e0               Head {h00=0x003c, h01=0x0050, text=» SU A3,DWTSN+DWTDEV,A6 SUBTRACT WITH NEXT WRITE POSITION«, t00=0x0093, t01=0x010e}
0x0e6e0…0e708               Head {h00=0x0024, h01=0x0050, text=»*   SAVED AFTER PREVIOUS REQUEST«, t00=0x0093, t01=0x014e}
0x0e708…0e742               Head {h00=0x0036, h01=0x0050, text=» ANK A2,LCWBIT BIT 9 SET ? (=LAST COLUMN WRITTEN, «, t00=0x0093, t01=0x0176}
0x0e742…0e760               Head {h00=0x001a, h01=0x0050, text=»*   DURING REQUEST !) «, t00=0x0094, t01=0x0020}
0x0e760…0e778               Head {h00=0x0014, h01=0x0050, text=» RF(Z) ECV170 NO«, t00=0x0094, t01=0x003e}
0x0e778…0e7b0               Head {h00=0x0034, h01=0x0050, text=» ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN«, t00=0x0094, t01=0x0056}
0x0e7b0…0e7c4               Head {h00=0x0010, h01=0x0050, text=»ECV170 EQU *«, t00=0x0094, t01=0x008e}
0x0e7c4…0e7f8               Head {h00=0x0030, h01=0x0050, text=» ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? «, t00=0x0094, t01=0x00a2}
0x0e7f8…0e810               Head {h00=0x0014, h01=0x0050, text=» RB(Z) ECV120 NO«, t00=0x0094, t01=0x00d6}
0x0e810…0e81a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00ee}
0x0e81a…0e832               Head {h00=0x0014, h01=0x0050, text=»* DO THE RUBOUT «, t00=0x0094, t01=0x00f8}
0x0e832…0e83c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0110}
0x0e83c…0e87a               Head {h00=0x003a, h01=0x0050, text=» CF A15,RESCN RESTORE SAVED WRITE POS. AS CURRENT NEXT«, t00=0x0094, t01=0x011a}
0x0e87a…0e8b4               Head {h00=0x0036, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST TO DO RUBOUT«, t00=0x0094, t01=0x0158}
0x0e8b4…0e8d8 (149, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0095, t01=0x0004}
0x0e8d8…0e8ec               Head {h00=0x0010, h01=0x0050, text=»ECV180 EQU *«, t00=0x0095, t01=0x0028}
0x0e8ec…0e91e               Head {h00=0x002e, h01=0x0050, text=» LDK A2,SPACE GET SPACE TO DO RUBOUT WITH «, t00=0x0095, t01=0x003c}
0x0e91e…0e93e               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x0095, t01=0x006e}
0x0e93e…0e962               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0095, t01=0x008e}
0x0e962…0e98e               Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 ONE MORE CHAR TO RUBOUT ? «, t00=0x0095, t01=0x00b2}
0x0e98e…0e9a8               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ECV180 YES«, t00=0x0095, t01=0x00de}
0x0e9a8…0e9d4               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0095, t01=0x00f8}
0x0e9d4…0e9f8               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0095, t01=0x0124}
0x0e9f8…0ea18               Head {h00=0x001c, h01=0x0050, text=» RB ECV100 GO SET CURSOR«, t00=0x0095, t01=0x0148}
0x0ea18…0ea26               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0168}
0x0ea26…0ea30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0176}
0x0ea30…0ea70               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0095, t01=0x0180}
0x0ea70…0ea7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0030}
0x0ea7a…0eaa0               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0096, t01=0x003a}
0x0eaa0…0eace               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0096, t01=0x0060}
0x0eace…0eaf2               Head {h00=0x0020, h01=0x0050, text=»* E R R O R   R O U T I N E «, t00=0x0096, t01=0x008e}
0x0eaf2…0eafc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x00b2}
0x0eafc…0eb3c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0096, t01=0x00bc}
0x0eb3c…0eb46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x00fc}
0x0eb46…0eb50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0106}
0x0eb50…0eb7c               Head {h00=0x0028, h01=0x0050, text=»* ENTERED: FROM DEVICE DRIVER PART, «, t00=0x0096, t01=0x0110}
0x0eb7c…0ebb6               Head {h00=0x0036, h01=0x0050, text=»*  AT ERROR STATUS AT RETURN FROM LINE DRIVER PART«, t00=0x0096, t01=0x013c}
0x0ebb6…0ebc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0176}
0x0ebc0…0ec00               Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: 1. INDICATE STATUS 'NOT OPERABLE' FOR ECBRC «, t00=0x0096, t01=0x0180}
0x0ec00…0ec20               Head {h00=0x001c, h01=0x0050, text=»*   2. EXIT FROM DRIVER «, t00=0x0097, t01=0x0030}
0x0ec20…0ec2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0050}
0x0ec2a…0ec4c               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS «, t00=0x0097, t01=0x005a}
0x0ec4c…0ec56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x007c}
0x0ec56…0ec8e               Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: A1 = BIT 15  =1 (STATUS NOT OPERABLE) «, t00=0x0097, t01=0x0086}
0x0ec8e…0ecaa               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0097, t01=0x00be}
0x0ecaa…0ecb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00da}
0x0ecb4…0ecf6               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0097, t01=0x00e4}
0x0ecf6…0ed00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0126}
0x0ed00…0ed14               Head {h00=0x0010, h01=0x0050, text=»DEVERR EQU *«, t00=0x0097, t01=0x0130}
0x0ed14…0ed4a               Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR STATUS NOT OPERABLE (FOR ECBRC) «, t00=0x0097, t01=0x0144}
0x0ed4a…0ed76               Head {h00=0x0028, h01=0x0050, text=» ABL ACV410 EXIT: ENDIO AND DISPATCH«, t00=0x0097, t01=0x017a}
0x0ed76…0ed84               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0016}
0x0ed84…0ed8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0024}
0x0ed8e…0edd8               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0098, t01=0x002e}
0x0edd8…0ede2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0078}
0x0ede2…0ee08               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0098, t01=0x0082}
0x0ee08…0ee36               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0098, t01=0x00a8}
0x0ee36…0ee58               Head {h00=0x001e, h01=0x0050, text=»* S U B - R O U T I N E S «, t00=0x0098, t01=0x00d6}
0x0ee58…0ee62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x00f8}
0x0ee62…0eeac               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0098, t01=0x0102}
0x0eeac…0eeb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x014c}
0x0eeb6…0eec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0156}
0x0eec0…0eeca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0160}
0x0eeca…0ef12               Head {h00=0x0044, h01=0x0050, text=»* -CHKOUT CHECK IF LAST COLUMN WRITTEN, AND OUTPUT ONE CHARACTER«, t00=0x0098, t01=0x016a}
0x0ef12…0ef46               Head {h00=0x0030, h01=0x0050, text=»* -ECHOUT OUTPUT ONE CHARACTER IN ECHO MODE «, t00=0x0099, t01=0x0022}
0x0ef46…0ef78               Head {h00=0x002e, h01=0x0050, text=»* -NXTROW UPDATE ROW COUNTER TO NEXT ROW, «, t00=0x0099, t01=0x0056}
0x0ef78…0efa2               Head {h00=0x0026, h01=0x0050, text=»*  AND IF NECESSARY HANDLE SCROLL.«, t00=0x0099, t01=0x0088}
0x0efa2…0efde               Head {h00=0x0038, h01=0x0050, text=»* -NXTCOL CALLED AFTER WRITE IN CURRENT COLUMN, SO: «, t00=0x0099, t01=0x00b2}
0x0efde…0f00e               Head {h00=0x002c, h01=0x0050, text=»*  UPDATE COLUMN COUNTER TO NEXT COLUMN,«, t00=0x0099, t01=0x00ee}
0x0f00e…0f046               Head {h00=0x0034, h01=0x0050, text=»*  AND IF NECESSARY HANDLE LAST-COLUMN-WRITTEN. «, t00=0x0099, t01=0x011e}
0x0f046…0f078               Head {h00=0x002e, h01=0x0050, text=»* -SAVCN SAVE CURRENT NEXT WRITE POSITION «, t00=0x0099, t01=0x0156}
0x0f078…0f0bc               Head {h00=0x0040, h01=0x0050, text=»* -RESCN RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT«, t00=0x0099, t01=0x0188}
0x0f0bc…0f0c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x003c}
0x0f0c6…0f0d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0046}
0x0f0d0…0f0da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0050}
0x0f0da…0f0e8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x005a}
0x0f0e8…0f0f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0068}
0x0f0f2…0f132               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x009a, t01=0x0072}
0x0f132…0f13c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00b2}
0x0f13c…0f152               Head {h00=0x0012, h01=0x0050, text=»* C H K O U T «, t00=0x009a, t01=0x00bc}
0x0f152…0f15c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00d2}
0x0f15c…0f19e               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009a, t01=0x00dc}
0x0f19e…0f1a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x011e}
0x0f1a8…0f1b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0128}
0x0f1b2…0f1ce               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,CHKOUT«, t00=0x009a, t01=0x0132}
0x0f1ce…0f1d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x014e}
0x0f1d8…0f20e               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x009a, t01=0x0158}
0x0f20e…0f218               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x018e}
0x0f218…0f24e               Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: 1. CHECK IF LAST COLUMN WRITTTEN, «, t00=0x009b, t01=0x0008}
0x0f24e…0f290               Head {h00=0x003e, h01=0x0050, text=»*    AND IF SO END THE WRITE REQUEST AND START A NEW ONE. «, t00=0x009b, t01=0x003e}
0x0f290…0f2b2               Head {h00=0x001e, h01=0x0050, text=»*  2. OUTPUT ONE CHARACTER«, t00=0x009b, t01=0x0080}
0x0f2b2…0f2e4               Head {h00=0x002e, h01=0x0050, text=»*  3. UPDATE COLUMN COUNTER TO NEXT COLUMN«, t00=0x009b, t01=0x00a2}
0x0f2e4…0f2ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00d4}
0x0f2ee…0f31a               Head {h00=0x0028, h01=0x0050, text=»* INPUT: A2 = CHARACTER TO BE OUTPUT«, t00=0x009b, t01=0x00de}
0x0f31a…0f33c               Head {h00=0x001e, h01=0x0050, text=»*  A5 = DWT STACK POINTER «, t00=0x009b, t01=0x010a}
0x0f33c…0f358               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x009b, t01=0x012c}
0x0f358…0f362               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0148}
0x0f362…0f384               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 = UNCHANGED !«, t00=0x009b, t01=0x0152}
0x0f384…0f39c               Head {h00=0x0014, h01=0x0050, text=»*  A4 = CHANGED «, t00=0x009b, t01=0x0174}
0x0f39c…0f3ba               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x009b, t01=0x018c}
0x0f3ba…0f3d6               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x009c, t01=0x001a}
0x0f3d6…0f3e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0036}
0x0f3e0…0f42a               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x009c, t01=0x0040}
0x0f42a…0f434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x008a}
0x0f434…0f448               Head {h00=0x0010, h01=0x0050, text=»CHKOUT EQU *«, t00=0x009c, t01=0x0094}
0x0f448…0f478               Head {h00=0x002c, h01=0x0050, text=» LDR A4,A2  SAVE CHARACTER TO BE OUTPUT «, t00=0x009c, t01=0x00a8}
0x0f478…0f492               Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTDEV,A6  «, t00=0x009c, t01=0x00d8}
0x0f492…0f4cc               Head {h00=0x0036, h01=0x0050, text=» ANK A2,LCWBIT BIT 9 SET ? (=LAST COLUMN WRITTEN) «, t00=0x009c, t01=0x00f2}
0x0f4cc…0f4e4               Head {h00=0x0014, h01=0x0050, text=» RF(Z) CHKO10 NO«, t00=0x009c, t01=0x012c}
0x0f4e4…0f510               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x009c, t01=0x0144}
0x0f510…0f534               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x009c, t01=0x0170}
0x0f534…0f574 (157, 0, 400) Head {h00=0x003c, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 NOW ALSO NEXT CHAR IN LAST COLUMN«, t00=0x009d, t01=0x0004}
0x0f574…0f5a2               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST «, t00=0x009d, t01=0x0044}
0x0f5a2…0f5c6               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x009d, t01=0x0072}
0x0f5c6…0f5da               Head {h00=0x0010, h01=0x0050, text=»CHKO10 EQU *«, t00=0x009d, t01=0x0096}
0x0f5da…0f606               Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE  SAVED CHARACTER «, t00=0x009d, t01=0x00aa}
0x0f606…0f626               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x009d, t01=0x00d6}
0x0f626…0f64a               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x009d, t01=0x00f6}
0x0f64a…0f66e               Head {h00=0x0020, h01=0x0050, text=» LDR A2,A4 RESTORE A2 AGAIN «, t00=0x009d, t01=0x011a}
0x0f66e…0f6aa               Head {h00=0x0038, h01=0x0050, text=» CF A15,NXTCOL UPDATE COLUMN COUNTER TO NEXT COLUMN «, t00=0x009d, t01=0x013e}
0x0f6aa…0f6d0               Head {h00=0x0022, h01=0x0050, text=» ABL NDRET RETURN VIA A5-STACK«, t00=0x009d, t01=0x017a}
0x0f6d0…0f6de               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x0010}
0x0f6de…0f6e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x001e}
0x0f6e8…0f72c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009e, t01=0x0028}
0x0f72c…0f736               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x006c}
0x0f736…0f74c               Head {h00=0x0012, h01=0x0050, text=»* E C H O U T «, t00=0x009e, t01=0x0076}
0x0f74c…0f756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x008c}
0x0f756…0f79a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009e, t01=0x0096}
0x0f79a…0f7a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00da}
0x0f7a4…0f7ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x00e4}
0x0f7ae…0f7ca               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,ECHOUT«, t00=0x009e, t01=0x00ee}
0x0f7ca…0f7d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x010a}
0x0f7d4…0f80a               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x009e, t01=0x0114}
0x0f80a…0f814               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x014a}
0x0f814…0f84a               Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: OUTPUT ONE CHARACTER IN ECHO MODE «, t00=0x009e, t01=0x0154}
0x0f84a…0f878               Head {h00=0x002a, h01=0x0050, text=»*  OBS: COLUMN COUNTER IS NOT UPDATED «, t00=0x009e, t01=0x018a}
0x0f878…0f882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0028}
0x0f882…0f8a6               Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 = ECHO CHARACTER«, t00=0x009f, t01=0x0032}
0x0f8a6…0f8c8               Head {h00=0x001e, h01=0x0050, text=»*  A5 = DWT STACK POINTER «, t00=0x009f, t01=0x0056}
0x0f8c8…0f8e4               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x009f, t01=0x0078}
0x0f8e4…0f8ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0094}
0x0f8ee…0f90c               Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A2 = CHANGED«, t00=0x009f, t01=0x009e}
0x0f90c…0f924               Head {h00=0x0014, h01=0x0050, text=»*  A4 = CHANGED «, t00=0x009f, t01=0x00bc}
0x0f924…0f942               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x009f, t01=0x00d4}
0x0f942…0f95e               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x009f, t01=0x00f2}
0x0f95e…0f968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x010e}
0x0f968…0f9a8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x009f, t01=0x0118}
0x0f9a8…0f9b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0158}
0x0f9b2…0f9c6               Head {h00=0x0010, h01=0x0050, text=»ECHOUT EQU *«, t00=0x009f, t01=0x0162}
0x0f9c6…0f9f4               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE CHARACTER TO BE OUTPUT«, t00=0x009f, t01=0x0176}
0x0f9f4…0fa32               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00a0, t01=0x0014}
0x0fa32…0fa60               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START THE WRITE REQUEST «, t00=0x00a0, t01=0x0052}
0x0fa60…0fa84               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a0, t01=0x0080}
0x0fa84…0faae               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 RESTORE SAVED CHARACTER«, t00=0x00a0, t01=0x00a4}
0x0faae…0face               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x00a0, t01=0x00ce}
0x0face…0faf2               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a0, t01=0x00ee}
0x0faf2…0fb1e               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x00a0, t01=0x0112}
0x0fb1e…0fb42               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a0, t01=0x013e}
0x0fb42…0fb68               Head {h00=0x0022, h01=0x0050, text=» ABL NDRET RETURN VIA A5-STACK«, t00=0x00a0, t01=0x0162}
0x0fb68…0fb76               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x0188}
0x0fb76…0fb80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0008}
0x0fb80…0fbc2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a1, t01=0x0012}
0x0fbc2…0fbcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0054}
0x0fbcc…0fbe2               Head {h00=0x0012, h01=0x0050, text=»* N X T R O W «, t00=0x00a1, t01=0x005e}
0x0fbe2…0fbec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0074}
0x0fbec…0fc2e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a1, t01=0x007e}
0x0fc2e…0fc38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x00c0}
0x0fc38…0fc42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x00ca}
0x0fc42…0fc60               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A5, NXTROW «, t00=0x00a1, t01=0x00d4}
0x0fc60…0fc6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x00f2}
0x0fc6a…0fca0               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00a1, t01=0x00fc}
0x0fca0…0fcaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0132}
0x0fcaa…0fcde               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION: UPDATE ROW COUNTER TO NEXT ROW, «, t00=0x00a1, t01=0x013c}
0x0fcde…0fd08               Head {h00=0x0026, h01=0x0050, text=»*   AND IF NECESSARY HANDLE SCROLL«, t00=0x00a1, t01=0x0170}
0x0fd08…0fd12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x000a}
0x0fd12…0fd3a               Head {h00=0x0024, h01=0x0050, text=»* INPUT: A5 = DWT STACK POINTER «, t00=0x00a2, t01=0x0014}
0x0fd3a…0fd56               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x00a2, t01=0x003c}
0x0fd56…0fd60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0058}
0x0fd60…0fd7e               Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A2 = CHANGED«, t00=0x00a2, t01=0x0062}
0x0fd7e…0fd96               Head {h00=0x0014, h01=0x0050, text=»*  A4 = CHANGED «, t00=0x00a2, t01=0x0080}
0x0fd96…0fdb4               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x00a2, t01=0x0098}
0x0fdb4…0fdd0               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x00a2, t01=0x00b6}
0x0fdd0…0fdda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x00d2}
0x0fdda…0fe1c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a2, t01=0x00dc}
0x0fe1c…0fe26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x011e}
0x0fe26…0fe3a               Head {h00=0x0010, h01=0x0050, text=»NXTROW EQU *«, t00=0x00a2, t01=0x0128}
0x0fe3a…0fe70               Head {h00=0x0032, h01=0x0050, text=» LC A4,DWTCNR+DWTDEV,A6 GET CURRENT ROW NUMBER«, t00=0x00a2, t01=0x013c}
0x0fe70…0fe94               Head {h00=0x0020, h01=0x0050, text=» CCK A4,MAXROW = LAST ROW ? «, t00=0x00a2, t01=0x0172}
0x0fe94…0febe               Head {h00=0x0026, h01=0x0050, text=» RF(E) NXTR10 YES. START SCROLLING«, t00=0x00a3, t01=0x0008}
0x0febe…0fef4               Head {h00=0x0032, h01=0x0050, text=» LDKL A2,/0100 POSITION DISPLACEMENT = ONE ROW«, t00=0x00a3, t01=0x0032}
0x0fef4…0ff2c               Head {h00=0x0034, h01=0x0050, text=» ADS A2,DWTCNR+DWTDEV,A6 INCR CURRENT ROW NUMBER«, t00=0x00a3, t01=0x0068}
0x0ff2c…0ff46               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00a3, t01=0x00a0}
0x0ff46…0ff82               Head {h00=0x0038, h01=0x0050, text=» ANK A4,ROLBIT BIT 8 SET ? (=ALREADY IN SCROLL MODE)«, t00=0x00a3, t01=0x00ba}
0x0ff82…0ffa8               Head {h00=0x0022, h01=0x0050, text=» RF(Z) NXTR40 NO. THEN RETURN «, t00=0x00a3, t01=0x00f6}
0x0ffa8…0ffb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x011c}
0x0ffb2…0ffce               Head {h00=0x0018, h01=0x0050, text=»* CONTINUE SCROLLING«, t00=0x00a3, t01=0x0126}
0x0ffce…0ffd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0142}
0x0ffd8…10018               Head {h00=0x003c, h01=0x0050, text=» LC A4,DWTCNR+DWTDEV,A6 GET CURRENT ROW NUMBER AFTER LF «, t00=0x00a3, t01=0x014c}
0x10018…1003c               Head {h00=0x0020, h01=0x0050, text=» CCK A4,MAXROW = LAST ROW ? «, t00=0x00a3, t01=0x018c}
0x1003c…10078               Head {h00=0x0038, h01=0x0050, text=» RF(E) NXTR40 YES. THE NO RUBOUT ONE ROW IN ADVANCE.«, t00=0x00a4, t01=0x0020}
0x10078…10082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x005c}
0x10082…1009c               Head {h00=0x0016, h01=0x0050, text=»* CONTINUE RUBOUT «, t00=0x00a4, t01=0x0066}
0x1009c…100a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0080}
0x100a6…100e4               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00a4, t01=0x008a}
0x100e4…10114               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,/0100 RUBOUT ONE ROW IN ADVANCE«, t00=0x00a4, t01=0x00c8}
0x10114…1014a               Head {h00=0x0032, h01=0x0050, text=» LDK A4,/50 ONE ROW CONTAINS 80 CHAR TO RUBOUT«, t00=0x00a4, t01=0x00f8}
0x1014a…1016a               Head {h00=0x001c, h01=0x0050, text=» RF NXTR20 GO DO RUBOUT «, t00=0x00a4, t01=0x012e}
0x1016a…10174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x014e}
0x10174…10198               Head {h00=0x0020, h01=0x0050, text=»* START SCROLLING AND RUBOUT«, t00=0x00a4, t01=0x0158}
0x10198…101a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x017c}
0x101a2…101b6               Head {h00=0x0010, h01=0x0050, text=»NXTR10 EQU *«, t00=0x00a4, t01=0x0186}
0x101b6…101e4               Head {h00=0x002a, h01=0x0050, text=» LDK A4,ROLBIT SET BIT 8 (SCROLL MODE)«, t00=0x00a5, t01=0x000a}
0x101e4…10206               Head {h00=0x001e, h01=0x0050, text=» ORS A4,DWTDEV,A6 INTO DWT«, t00=0x00a5, t01=0x0038}
0x10206…10228               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/01 SET FIRST ROW «, t00=0x00a5, t01=0x005a}
0x10228…1025c               Head {h00=0x0030, h01=0x0050, text=» SC A2,DWTCNR+DWTDEV,A6 AS CURRENT WRITE ROW«, t00=0x00a5, t01=0x007c}
0x1025c…10294               Head {h00=0x0034, h01=0x0050, text=» LDK A4,/A0 TWO ROWS CONTAIN 160 CHAR TO RUBOUT «, t00=0x00a5, t01=0x00b0}
0x10294…102d2               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00a5, t01=0x00e8}
0x102d2…102e6               Head {h00=0x0010, h01=0x0050, text=»NXTR20 EQU *«, t00=0x00a5, t01=0x0126}
0x102e6…10318               Head {h00=0x002e, h01=0x0050, text=» ANKL A2,/FF00 RUB FROM BEGIN OF THAT ROW «, t00=0x00a5, t01=0x013a}
0x10318…10350               Head {h00=0x0034, h01=0x0050, text=» ADK A2,1 BEGIN OF ROW IS COLUMN 1 (NOT 'ZERO') «, t00=0x00a5, t01=0x016c}
0x10350…10388               Head {h00=0x0034, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST TO RUBOUT «, t00=0x00a6, t01=0x0014}
0x10388…103ac               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a6, t01=0x004c}
0x103ac…103c0               Head {h00=0x0010, h01=0x0050, text=»NXTR30 EQU *«, t00=0x00a6, t01=0x0070}
0x103c0…103f2               Head {h00=0x002e, h01=0x0050, text=» LDK A2,SPACE GET SPACE TO DO RUBOUT WITH «, t00=0x00a6, t01=0x0084}
0x103f2…10412               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x00a6, t01=0x00b6}
0x10412…10436               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a6, t01=0x00d6}
0x10436…10458               Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ONE MORE TIME ? «, t00=0x00a6, t01=0x00fa}
0x10458…10472               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) NXTR30 YES«, t00=0x00a6, t01=0x011c}
0x10472…1049e               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x00a6, t01=0x0136}
0x1049e…104c2               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a6, t01=0x0162}
0x104c2…104d6               Head {h00=0x0010, h01=0x0050, text=»NXTR40 EQU *«, t00=0x00a6, t01=0x0186}
0x104d6…104fc               Head {h00=0x0022, h01=0x0050, text=» ABL NDRET RETURN VIA A5 STACK«, t00=0x00a7, t01=0x000a}
0x104fc…1050a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a7, t01=0x0030}
0x1050a…10514               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x003e}
0x10514…10556               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00a7, t01=0x0048}
0x10556…10560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x008a}
0x10560…10576               Head {h00=0x0012, h01=0x0050, text=»* N X T C O L «, t00=0x00a7, t01=0x0094}
0x10576…10580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x00aa}
0x10580…105c2               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00a7, t01=0x00b4}
0x105c2…105cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x00f6}
0x105cc…105d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0100}
0x105d6…105f4               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,NXTCOL «, t00=0x00a7, t01=0x010a}
0x105f4…105fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0128}
0x105fe…10634               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00a7, t01=0x0132}
0x10634…1063e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0168}
0x1063e…1067c               Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: CALLED AFTER WRITE IN CURRENT COLUMN, SO: «, t00=0x00a7, t01=0x0172}
0x1067c…106a6               Head {h00=0x0026, h01=0x0050, text=»*  1. IF LAST COLUMN NOT WRITTEN, «, t00=0x00a8, t01=0x0020}
0x106a6…106da               Head {h00=0x0030, h01=0x0050, text=»*     UPDATE COLUMN COUNTER TO NEXT COLUMN. «, t00=0x00a8, t01=0x004a}
0x106da…10700               Head {h00=0x0022, h01=0x0050, text=»*  2. IF LAST COLUMN WRITTEN, «, t00=0x00a8, t01=0x007e}
0x10700…10722               Head {h00=0x001e, h01=0x0050, text=»*     SET BIT 9 IN DWTDEV.«, t00=0x00a8, t01=0x00a4}
0x10722…1072c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00c6}
0x1072c…10742               Head {h00=0x0012, h01=0x0050, text=»* INPUT: NONE.«, t00=0x00a8, t01=0x00d0}
0x10742…1074c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00e6}
0x1074c…1076a               Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A4 CHANGED. «, t00=0x00a8, t01=0x00f0}
0x1076a…10774               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x010e}
0x10774…107b8               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00a8, t01=0x0118}
0x107b8…107c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x015c}
0x107c2…107d6               Head {h00=0x0010, h01=0x0050, text=»NXTCOL EQU *«, t00=0x00a8, t01=0x0166}
0x107d6…107f0               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00a8, t01=0x017a}
0x107f0…10812 (169, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ANK A4,LCWBIT BIT 9 SET ?«, t00=0x00a9, t01=0x0004}
0x10812…10844               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) NXTC20 YES. LAST COLUMN IS WRITTEN«, t00=0x00a9, t01=0x0026}
0x10844…10882               Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTCNC+DWTDEV,A6 GET CURRENT NEXT WRITE COLUMN «, t00=0x00a9, t01=0x0058}
0x10882…108a8               Head {h00=0x0022, h01=0x0050, text=» CCK A4,MAXCOL = LAST COLUMN ?«, t00=0x00a9, t01=0x0096}
0x108a8…108c2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) NXTC10 NO «, t00=0x00a9, t01=0x00bc}
0x108c2…108ec               Head {h00=0x0026, h01=0x0050, text=» LDK A4,LCWBIT LAST COLUMN WRITTEN«, t00=0x00a9, t01=0x00d6}
0x108ec…10910               Head {h00=0x0020, h01=0x0050, text=» ORS A4,DWTDEV,A6 SET BIT 9 «, t00=0x00a9, t01=0x0100}
0x10910…10924               Head {h00=0x0010, h01=0x0050, text=» RF NXTC20  «, t00=0x00a9, t01=0x0124}
0x10924…10938               Head {h00=0x0010, h01=0x0050, text=»NXTC10 EQU *«, t00=0x00a9, t01=0x0138}
0x10938…10972               Head {h00=0x0036, h01=0x0050, text=» IM DWTCN+DWTDEV,A6 INCR CURRENT NEXT WRITE COLUMN«, t00=0x00a9, t01=0x014c}
0x10972…10986               Head {h00=0x0010, h01=0x0050, text=»NXTC20 EQU *«, t00=0x00a9, t01=0x0186}
0x10986…1099e               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00aa, t01=0x000a}
0x1099e…109ac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x0022}
0x109ac…109b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0030}
0x109b6…109f8               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00aa, t01=0x003a}
0x109f8…10a02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x007c}
0x10a02…10a16               Head {h00=0x0010, h01=0x0050, text=»* S A V C N «, t00=0x00aa, t01=0x0086}
0x10a16…10a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x009a}
0x10a20…10a62               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00aa, t01=0x00a4}
0x10a62…10a6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x00e6}
0x10a6c…10a76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x00f0}
0x10a76…10a92               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF 15,SAVCN «, t00=0x00aa, t01=0x00fa}
0x10a92…10a9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0116}
0x10a9c…10ad2               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00aa, t01=0x0120}
0x10ad2…10adc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0156}
0x10adc…10b26               Head {h00=0x0046, h01=0x0050, text=»* FUNCTION: 1. SAVE DWTCN (CURRENT NEXT WRITE POSITION) INTO DWTSN«, t00=0x00aa, t01=0x0160}
0x10b26…10b52               Head {h00=0x0028, h01=0x0050, text=»*   2. SAVE DWTDEV BIT 9 INTO BIT 10«, t00=0x00ab, t01=0x001a}
0x10b52…10b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0046}
0x10b5c…10b72               Head {h00=0x0012, h01=0x0050, text=»* INPUT: NONE «, t00=0x00ab, t01=0x0050}
0x10b72…10b7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0066}
0x10b7c…10b9c               Head {h00=0x001c, h01=0x0050, text=»* OUTPUT: A2,A4 CHANGED «, t00=0x00ab, t01=0x0070}
0x10b9c…10ba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0090}
0x10ba6…10bee               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00ab, t01=0x009a}
0x10bee…10bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00e2}
0x10bf8…10c0c               Head {h00=0x0010, h01=0x0050, text=»SAVCN EQU * «, t00=0x00ab, t01=0x00ec}
0x10c0c…10c34               Head {h00=0x0024, h01=0x0050, text=»* COPY DWTDEV BIT 9 INTO BIT 10 «, t00=0x00ab, t01=0x0100}
0x10c34…10c4e               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00ab, t01=0x0128}
0x10c4e…10c6e               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 SAVE INTO A2 «, t00=0x00ab, t01=0x0142}
0x10c6e…10cac               Head {h00=0x003a, h01=0x0050, text=» ANK A4,LCWBIT GET BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x00ab, t01=0x0162}
0x10cac…10ce6               Head {h00=0x0036, h01=0x0050, text=» LDK A2,LCPBIT BIT 10 (SET IF LAST COLUMN WRITTEN «, t00=0x00ac, t01=0x0010}
0x10ce6…10d0e               Head {h00=0x0024, h01=0x0050, text=»*   ALREADY BY PREVIOUS REQUEST)«, t00=0x00ac, t01=0x004a}
0x10d0e…10d2c               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x00ac, t01=0x0072}
0x10d2c…10d52               Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT 10«, t00=0x00ac, t01=0x0090}
0x10d52…10d7c               Head {h00=0x0026, h01=0x0050, text=» SRL A4,1 SHIFT BIT 9 INTO BIT 10 «, t00=0x00ac, t01=0x00b6}
0x10d7c…10da4               Head {h00=0x0024, h01=0x0050, text=» ORS A4,DWTDEV,A6 STORE INTO DWT«, t00=0x00ac, t01=0x00e0}
0x10da4…10dc4               Head {h00=0x001c, h01=0x0050, text=»* COPY DWTCN INTO DWTSN «, t00=0x00ac, t01=0x0108}
0x10dc4…10e02               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00ac, t01=0x0128}
0x10e02…10e3a               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTSN+DWTDEV,A6 SET SAVED WRITE POSITION «, t00=0x00ac, t01=0x0166}
0x10e3a…10e52               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00ad, t01=0x000e}
0x10e52…10e60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0026}
0x10e60…10e6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0034}
0x10e6a…10eae               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00ad, t01=0x003e}
0x10eae…10eb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0082}
0x10eb8…10ecc               Head {h00=0x0010, h01=0x0050, text=»* R E S C N «, t00=0x00ad, t01=0x008c}
0x10ecc…10ed6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x00a0}
0x10ed6…10f1a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00ad, t01=0x00aa}
0x10f1a…10f24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x00ee}
0x10f24…10f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x00f8}
0x10f2e…10f4a               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A15,RESCN«, t00=0x00ad, t01=0x0102}
0x10f4a…10f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x011e}
0x10f54…10f88               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION,DEVICE DRIVER PART«, t00=0x00ad, t01=0x0128}
0x10f88…10f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x015c}
0x10f92…10fc8               Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: 1. RESTORE, FROM DWTSN INTO DWTCN,«, t00=0x00ad, t01=0x0166}
0x10fc8…11002               Head {h00=0x0036, h01=0x0050, text=»*    SAVED WRITE POSITION TO BECOME CURRENT NEXT. «, t00=0x00ae, t01=0x000c}
0x11002…11032               Head {h00=0x002c, h01=0x0050, text=»*  2. RESTORE DWTDEV BIT 9 FROM BIT 10. «, t00=0x00ae, t01=0x0046}
0x11032…1103c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0076}
0x1103c…11052               Head {h00=0x0012, h01=0x0050, text=»* INPUT: NONE.«, t00=0x00ae, t01=0x0080}
0x11052…1105c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0096}
0x1105c…1107c               Head {h00=0x001c, h01=0x0050, text=»* OUTPUT: A2,A4 CHANGED.«, t00=0x00ae, t01=0x00a0}
0x1107c…11086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00c0}
0x11086…110cc               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00ae, t01=0x00ca}
0x110cc…110d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0110}
0x110d6…110ea               Head {h00=0x0010, h01=0x0050, text=»RESCN EQU * «, t00=0x00ae, t01=0x011a}
0x110ea…11112               Head {h00=0x0024, h01=0x0050, text=»* COPY DWTDEV BIT 10 INTO BIT 9 «, t00=0x00ae, t01=0x012e}
0x11112…1112c               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00ae, t01=0x0156}
0x1112c…1116a               Head {h00=0x003a, h01=0x0050, text=» ANK A4,LCPBIT GET BIT 10 (SET IF LAST COLUMN WRITTEN «, t00=0x00ae, t01=0x0170}
0x1116a…11192               Head {h00=0x0024, h01=0x0050, text=»*   ALREADY BY PREVIOUS REQUEST)«, t00=0x00af, t01=0x001e}
0x11192…111cc               Head {h00=0x0036, h01=0x0050, text=» LDK A2,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x00af, t01=0x0046}
0x111cc…111ea               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x00af, t01=0x0080}
0x111ea…11210               Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT 9 «, t00=0x00af, t01=0x009e}
0x11210…1123a               Head {h00=0x0026, h01=0x0050, text=» SLL A4,1 SHIFT BIT 10 INTO BIT 9 «, t00=0x00af, t01=0x00c4}
0x1123a…11262               Head {h00=0x0024, h01=0x0050, text=» ORS A4,DWTDEV,A6 STORE INTO DWT«, t00=0x00af, t01=0x00ee}
0x11262…11282               Head {h00=0x001c, h01=0x0050, text=»* COPY DWTSN INTO DWTCN «, t00=0x00af, t01=0x0116}
0x11282…112be               Head {h00=0x0038, h01=0x0050, text=» LD A2,DWTSN+DWTDEV,A6 GET SAVED NEXT WRITE POSITION«, t00=0x00af, t01=0x0136}
0x112be…11300               Head {h00=0x003e, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 RESTORE CURRENT NEXT WRITE POSITION«, t00=0x00af, t01=0x0172}
0x11300…11318               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00b0, t01=0x0024}
0x11318…11326               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b0, t01=0x003c}
0x11326…11330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x004a}
0x11330…11372               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00b0, t01=0x0054}
0x11372…1137c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0096}
0x1137c…113a2               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00b0, t01=0x00a0}
0x113a2…113cc               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00b0, t01=0x00c6}
0x113cc…113fc               Head {h00=0x002c, h01=0x0050, text=»* A C T I V A T I O N   R O U T I N E S «, t00=0x00b0, t01=0x00f0}
0x113fc…11406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0120}
0x11406…11448               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00b0, t01=0x012a}
0x11448…11452               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x016c}
0x11452…1145c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0176}
0x1145c…11494               Head {h00=0x0034, h01=0x0050, text=»* THEESE ACTIVATION ROUTINES ARE CALLED DIRECTLY«, t00=0x00b0, t01=0x0180}
0x11494…114d8               Head {h00=0x0040, h01=0x0050, text=»* FROM THE SCREEN SECTION DEVICE DRIVER PART OF THIS DRIVER.«, t00=0x00b1, t01=0x0028}
0x114d8…11524               Head {h00=0x0048, h01=0x0050, text=»* RETURN TO DEVICE DRIVER PART IS MADE VIA THE NETWORK DISTRIBUTOR. «, t00=0x00b1, t01=0x006c}
0x11524…1152e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00b8}
0x1152e…11538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00c2}
0x11538…11546               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x00cc}
0x11546…11550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00da}
0x11550…1158e               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00b1, t01=0x00e4}
0x1158e…11598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0122}
0x11598…115ae               Head {h00=0x0012, h01=0x0050, text=»* S T A W R I «, t00=0x00b1, t01=0x012c}
0x115ae…115b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0142}
0x115b8…115f6               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00b1, t01=0x014c}
0x115f6…11600               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x018a}
0x11600…1160a (178, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0004}
0x1160a…11628               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A5, STAWRI «, t00=0x00b2, t01=0x000e}
0x11628…11632               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x002c}
0x11632…11668               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00b2, t01=0x0036}
0x11668…11672               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x006c}
0x11672…116a6               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION:TO DEFINE, FOR THIS CIO-REQUEST, «, t00=0x00b2, t01=0x0076}
0x116a6…116d4               Head {h00=0x002a, h01=0x0050, text=»*  THE START WRITE POSITION ON SCREEN.«, t00=0x00b2, t01=0x00aa}
0x116d4…116de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x00d8}
0x116de…1170c               Head {h00=0x002a, h01=0x0050, text=»* INPUT: A2 = WRITE POSITION ON SCREEN«, t00=0x00b2, t01=0x00e2}
0x1170c…11726               Head {h00=0x0016, h01=0x0050, text=»*  ( /0101-/1850 )«, t00=0x00b2, t01=0x0110}
0x11726…11742               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00b2, t01=0x012a}
0x11742…1174c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0146}
0x1174c…1176e               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00b2, t01=0x0150}
0x1176e…11790               Head {h00=0x001e, h01=0x0050, text=»*  0 IF OK, NOT 0 IF ERROR«, t00=0x00b2, t01=0x0172}
0x11790…117aa (179, 0, 400) Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00b3, t01=0x0004}
0x117aa…117b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x001e}
0x117b4…117f2               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00b3, t01=0x0028}
0x117f2…117fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0066}
0x117fc…11810               Head {h00=0x0010, h01=0x0050, text=»STAWRI EQU *«, t00=0x00b3, t01=0x0070}
0x11810…11842               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00b3, t01=0x0084}
0x11842…11870               Head {h00=0x002a, h01=0x0050, text=» CF A15,CONPOS CONVERT SCREEN POSITION«, t00=0x00b3, t01=0x00b6}
0x11870…1189c               Head {h00=0x0028, h01=0x0050, text=»*   INTO SCREEN MEMORY DISPLACEMENT «, t00=0x00b3, t01=0x00e4}
0x1189c…118dc               Head {h00=0x003c, h01=0x0050, text=» CF A15,IXTERM INDEX SCREEN MEMORY DISPL. WITH TERM. NBR«, t00=0x00b3, t01=0x0110}
0x118dc…11910               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTLD1,A6 SAVE SCREEN MEMORY LOCATION«, t00=0x00b3, t01=0x0150}
0x11910…11930               Head {h00=0x001c, h01=0x0050, text=»*   (=BIO FOR CIO START)«, t00=0x00b3, t01=0x0184}
0x11930…11958               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00b4, t01=0x0014}
0x11958…11964               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00b4, t01=0x003c}
0x11964…119a0               Head {h00=0x0038, h01=0x0050, text=» LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x00b4, t01=0x0048}
0x119a0…119b8               Head {h00=0x0014, h01=0x0050, text=» RF(Z) STAWR2 NO«, t00=0x00b4, t01=0x0084}
0x119b8…119cc               Head {h00=0x0010, h01=0x0050, text=»STAWR1 EQU *«, t00=0x00b4, t01=0x009c}
0x119cc…11a08               Head {h00=0x0038, h01=0x0050, text=» CF A15,PUTQUE PUT REQUESTING DWT INTO SCREEN QUEUE «, t00=0x00b4, t01=0x00b0}
0x11a08…11a24               Head {h00=0x0018, h01=0x0050, text=» ABL TDISP DISPATCH «, t00=0x00b4, t01=0x00ec}
0x11a24…11a38               Head {h00=0x0010, h01=0x0050, text=»STAWR2 EQU *«, t00=0x00b4, t01=0x0108}
0x11a38…11a72               Head {h00=0x0036, h01=0x0050, text=» ST A6,CWTDOS,A5 OCCUPY SCREEN SECTION OF VCCU1/4 «, t00=0x00b4, t01=0x011c}
0x11a72…11a84               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00b4, t01=0x0156}
0x11a84…11aa4               Head {h00=0x001c, h01=0x0050, text=» RF CLESC2 DO CIO START «, t00=0x00b4, t01=0x0168}
0x11aa4…11ab0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x0188}
0x11ab0…11ac2 (181, 0, 400) Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00b5, t01=0x0004}
0x11ac2…11af2               Head {h00=0x002c, h01=0x0050, text=» CM CWTBIN,A5 RESET INDEX IN IOP-BUFFER «, t00=0x00b5, t01=0x0016}
0x11af2…11b2e               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00b5, t01=0x0046}
0x11b2e…11b3a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x0082}
0x11b3a…11b48               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b5, t01=0x008e}
0x11b48…11b52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x009c}
0x11b52…11b8e               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00b5, t01=0x00a6}
0x11b8e…11b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x00e2}
0x11b98…11bae               Head {h00=0x0012, h01=0x0050, text=»* O U T C H A «, t00=0x00b5, t01=0x00ec}
0x11bae…11bb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0102}
0x11bb8…11bf4               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00b5, t01=0x010c}
0x11bf4…11bfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0148}
0x11bfe…11c08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0152}
0x11c08…11c24               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,OUTCHA«, t00=0x00b5, t01=0x015c}
0x11c24…11c2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0178}
0x11c2e…11c64               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00b5, t01=0x0182}
0x11c64…11c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0028}
0x11c6e…11c9e               Head {h00=0x002c, h01=0x0050, text=»* FUNCTION:TO OUTPUT ONE VIDEO CHARACTER«, t00=0x00b6, t01=0x0032}
0x11c9e…11ca8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0062}
0x11ca8…11cd8               Head {h00=0x002c, h01=0x0050, text=»* INPUT: A2 = ASCII-CHARACTER (/20-/7F) «, t00=0x00b6, t01=0x006c}
0x11cd8…11cf4               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00b6, t01=0x009c}
0x11cf4…11cfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x00b8}
0x11cfe…11d20               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00b6, t01=0x00c2}
0x11d20…11d48               Head {h00=0x0024, h01=0x0050, text=»*        0 IF OK, NOT 0 IF ERROR«, t00=0x00b6, t01=0x00e4}
0x11d48…11d62               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00b6, t01=0x010c}
0x11d62…11d6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0126}
0x11d6c…11daa               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00b6, t01=0x0130}
0x11daa…11db4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x016e}
0x11db4…11dc8               Head {h00=0x0010, h01=0x0050, text=»OUTCHA EQU *«, t00=0x00b6, t01=0x0178}
0x11dc8…11dfa               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00b6, t01=0x018c}
0x11dfa…11e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x002e}
0x11e04…11e2e               Head {h00=0x0026, h01=0x0050, text=»* A 7-BIT ASCII-CHAR IS CONVERTED,«, t00=0x00b7, t01=0x0038}
0x11e2e…11e7c               Head {h00=0x004a, h01=0x0050, text=»* ACCORDING TO CHARACTER GENERATOR IN SYSTEM AND CURRENT DISPLAY MODE,«, t00=0x00b7, t01=0x0062}
0x11e7c…11ea4               Head {h00=0x0024, h01=0x0050, text=»* INTO A 11-BIT VIDEO-CHARACTER.«, t00=0x00b7, t01=0x00b0}
0x11ea4…11eae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00d8}
0x11eae…11eda               Head {h00=0x0028, h01=0x0050, text=» ANK A2,/7F CLEAR INSIGNIFICANT BITS«, t00=0x00b7, t01=0x00e2}
0x11eda…11f12               Head {h00=0x0034, h01=0x0050, text=» LDK A4,CODOUT-CODINP LENGTH OF CONVERSION TABLE«, t00=0x00b7, t01=0x010e}
0x11f12…11f26               Head {h00=0x0010, h01=0x0050, text=»OUTCH1 EQU *«, t00=0x00b7, t01=0x0146}
0x11f26…11f5c               Head {h00=0x0032, h01=0x0050, text=» SUK A4,1 DECR INDEX IN TABLE. END OF TABLE ? «, t00=0x00b7, t01=0x015a}
0x11f5c…11f76               Head {h00=0x0016, h01=0x0050, text=» RF(N) OUTCH2 YES «, t00=0x00b7, t01=0x0190}
0x11f76…11fae               Head {h00=0x0034, h01=0x0050, text=» CC A2,CODINP,A4 COMPARE CHAR WITH TABLE ELEMENT«, t00=0x00b8, t01=0x001a}
0x11fae…11fce               Head {h00=0x001c, h01=0x0050, text=» RB(NE) OUTCH1 NOT EQUAL«, t00=0x00b8, t01=0x0052}
0x11fce…11ff8               Head {h00=0x0026, h01=0x0050, text=» LC A2,CODOUT,A4 CONVERT CHARACTER«, t00=0x00b8, t01=0x0072}
0x11ff8…1200c               Head {h00=0x0010, h01=0x0050, text=»OUTCH2 EQU *«, t00=0x00b8, t01=0x009c}
0x1200c…12036               Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTDEV,A6 GET DISPLAY-MODE «, t00=0x00b8, t01=0x00b0}
0x12036…1205a               Head {h00=0x0020, h01=0x0050, text=» ANKL A3,INTBIT+UNDBIT BITS «, t00=0x00b8, t01=0x00da}
0x1205a…12076               Head {h00=0x0018, h01=0x0050, text=» ORR A2,A3 INTO BIO «, t00=0x00b8, t01=0x00fe}
0x12076…12080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x011a}
0x12080…1208a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0124}
0x1208a…120b2               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00b8, t01=0x012e}
0x120b2…120c6               Head {h00=0x0010, h01=0x0050, text=»OUTCH3 EQU *«, t00=0x00b8, t01=0x0156}
0x120c6…120d2               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00b8, t01=0x016a}
0x120d2…120e4               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00b8, t01=0x0176}
0x120e4…12122               Head {h00=0x003a, h01=0x0050, text=» EX CWTOTS,A5 EXECUTE OTR ON SCREEN SECTION OF VCCU1/4«, t00=0x00b8, t01=0x0188}
0x12122…12150               Head {h00=0x002a, h01=0x0050, text=» ABL(NA) LINER1 ERROR IF NOT ACCEPTED «, t00=0x00b9, t01=0x0036}
0x12150…1216c               Head {h00=0x0018, h01=0x0050, text=» ABL TDISP DISPATCH «, t00=0x00b9, t01=0x0064}
0x1216c…12178               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x0080}
0x12178…1218a               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00b9, t01=0x008c}
0x1218a…121c0               Head {h00=0x0032, h01=0x0050, text=» LD A3,CWTBIN,A5 GET WORD-INDEX IN IOP-BUFFER «, t00=0x00b9, t01=0x009e}
0x121c0…121f4               Head {h00=0x0030, h01=0x0050, text=» ADR A3,A3 CONVERT TO DISPLACEMENT IN BYTES «, t00=0x00b9, t01=0x00d4}
0x121f4…12226               Head {h00=0x002e, h01=0x0050, text=» LDKL A4,CWTBUF GET ADDRESS TO IOP-BUFFER «, t00=0x00b9, t01=0x0108}
0x12226…12240               Head {h00=0x0016, h01=0x0050, text=» ADR A4,A5 IN CWT «, t00=0x00b9, t01=0x013a}
0x12240…12266               Head {h00=0x0022, h01=0x0050, text=» ADR A4,A3 INDEXING IN BUFFER «, t00=0x00b9, t01=0x0154}
0x12266…1229a               Head {h00=0x0030, h01=0x0050, text=» STR A2,A4 STORE VIDEO-CHAR INTO IOP-BUFFER «, t00=0x00b9, t01=0x017a}
0x1229a…122c2               Head {h00=0x0024, h01=0x0050, text=» IM CWTBIN,A5 INCR BUFFER INDEX «, t00=0x00ba, t01=0x001e}
0x122c2…122fe               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00ba, t01=0x0046}
0x122fe…1230a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x0082}
0x1230a…12318               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x008e}
0x12318…12322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x009c}
0x12322…1235e               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00ba, t01=0x00a6}
0x1235e…12368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x00e2}
0x12368…1237e               Head {h00=0x0012, h01=0x0050, text=»* E N D W R I «, t00=0x00ba, t01=0x00ec}
0x1237e…12388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0102}
0x12388…123c6               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00ba, t01=0x010c}
0x123c6…123d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x014a}
0x123d0…123da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0154}
0x123da…123f6               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,ENDWRI«, t00=0x00ba, t01=0x015e}
0x123f6…12400               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x017a}
0x12400…12436               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00ba, t01=0x0184}
0x12436…12440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x002a}
0x12440…12474               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION:TO END CURRENT CIO-WRITE-REQUEST «, t00=0x00bb, t01=0x0034}
0x12474…1247e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0068}
0x1247e…124a0               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS «, t00=0x00bb, t01=0x0072}
0x124a0…124aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0094}
0x124aa…124cc               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00bb, t01=0x009e}
0x124cc…124f4               Head {h00=0x0024, h01=0x0050, text=»*       0 IF OK, NOT O IF ERROR «, t00=0x00bb, t01=0x00c0}
0x124f4…1250e               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00bb, t01=0x00e8}
0x1250e…12518               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0102}
0x12518…12552               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00bb, t01=0x010c}
0x12552…1255c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0146}
0x1255c…12570               Head {h00=0x0010, h01=0x0050, text=»ENDWRI EQU *«, t00=0x00bb, t01=0x0150}
0x12570…125a2               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00bb, t01=0x0164}
0x125a2…125ca               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00bc, t01=0x0008}
0x125ca…125d6               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00bc, t01=0x0030}
0x125d6…125e8               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00bc, t01=0x003c}
0x125e8…1261a               Head {h00=0x002e, h01=0x0050, text=» LDKL A4,HLTFLA FLAG HALT-ACTION REQUESTED«, t00=0x00bc, t01=0x004e}
0x1261a…12646               Head {h00=0x0028, h01=0x0050, text=» ORS A4,DWTST,A6 INTO DEVICE STATUS «, t00=0x00bc, t01=0x0080}
0x12646…12666               Head {h00=0x001c, h01=0x0050, text=» ABL IHS125 DO CIO HALT «, t00=0x00bc, t01=0x00ac}
0x12666…12672               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x00cc}
0x12672…12684               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00bc, t01=0x00d8}
0x12684…12698               Head {h00=0x0010, h01=0x0050, text=»ENDWR1 EQU *«, t00=0x00bc, t01=0x00ea}
0x12698…126ce               Head {h00=0x0032, h01=0x0050, text=» LD A2,CWTBIN,A5 GET WORD-INDEX IN IOP-BUFFER «, t00=0x00bc, t01=0x00fe}
0x126ce…126f4               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ENDWR2 INDEX NOT ZERO «, t00=0x00bc, t01=0x0134}
0x126f4…1271e               Head {h00=0x0026, h01=0x0050, text=»* IF INDEX IS ZERO, THEN NO OUTPUT«, t00=0x00bc, t01=0x015a}
0x1271e…12756               Head {h00=0x0034, h01=0x0050, text=» CM CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPIED «, t00=0x00bc, t01=0x0184}
0x12756…12792               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00bd, t01=0x002c}
0x12792…127a6               Head {h00=0x0010, h01=0x0050, text=»ENDWR2 EQU *«, t00=0x00bd, t01=0x0068}
0x127a6…127de               Head {h00=0x0034, h01=0x0050, text=» ORKL A2,IOPPAR WORD-MODE + READ-MEMORY TRANSFER«, t00=0x00bd, t01=0x007c}
0x127de…12810               Head {h00=0x002e, h01=0x0050, text=» EX CWTWE1,A5 WRITE BUFFER LENGTH INTO IOP«, t00=0x00bd, t01=0x00b4}
0x12810…12842               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,CWTBUF GET ADDRESS TO IOP-BUFFER «, t00=0x00bd, t01=0x00e6}
0x12842…1285c               Head {h00=0x0016, h01=0x0050, text=» ADR A2,A5 IN CWT «, t00=0x00bd, t01=0x0118}
0x1285c…12890               Head {h00=0x0030, h01=0x0050, text=» EX CWTWE2,A5 WRITE BUFFER ADDRESS INTO IOP «, t00=0x00bd, t01=0x0132}
0x12890…128ca               Head {h00=0x0036, h01=0x0050, text=» LDKL A3,SSTFLA FLAG SST-ACTION AT NEXT INTERRUPT «, t00=0x00bd, t01=0x0166}
0x128ca…128f6               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00be, t01=0x0010}
0x128f6…12916               Head {h00=0x001c, h01=0x0050, text=» RF CLESC2 DO CIO START «, t00=0x00be, t01=0x003c}
0x12916…12922               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00be, t01=0x005c}
0x12922…12930               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00be, t01=0x0068}
0x12930…1293a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0076}
0x1293a…12976               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00be, t01=0x0080}
0x12976…12980               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x00bc}
0x12980…12996               Head {h00=0x0012, h01=0x0050, text=»* O U T C U R «, t00=0x00be, t01=0x00c6}
0x12996…129a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x00dc}
0x129a0…129dc               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00be, t01=0x00e6}
0x129dc…129e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0122}
0x129e6…129f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x012c}
0x129f0…12a0c               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,OUTCUR«, t00=0x00be, t01=0x0136}
0x12a0c…12a16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0152}
0x12a16…12a4c               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00be, t01=0x015c}
0x12a4c…12a56 (191, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0004}
0x12a56…12a84               Head {h00=0x002a, h01=0x0050, text=»* FUNCTION:TO OUTPUT THE VISUAL CURSOR«, t00=0x00bf, t01=0x000e}
0x12a84…12a8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x003c}
0x12a8e…12ac8               Head {h00=0x0036, h01=0x0050, text=»* INPUT: A2 = REQUESTED  CURSOR POSITION ON SCREEN«, t00=0x00bf, t01=0x0046}
0x12ac8…12aea               Head {h00=0x001e, h01=0x0050, text=»*        ( /0101 - /1850 )«, t00=0x00bf, t01=0x0080}
0x12aea…12b06               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00bf, t01=0x00a2}
0x12b06…12b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00be}
0x12b10…12b32               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00bf, t01=0x00c8}
0x12b32…12b5a               Head {h00=0x0024, h01=0x0050, text=»*        0 IF OK, NOT 0 IF ERROR«, t00=0x00bf, t01=0x00ea}
0x12b5a…12b74               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00bf, t01=0x0112}
0x12b74…12b7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x012c}
0x12b7e…12bba               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00bf, t01=0x0136}
0x12bba…12bc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0172}
0x12bc4…12bd8               Head {h00=0x0010, h01=0x0050, text=»OUTCUR EQU *«, t00=0x00bf, t01=0x017c}
0x12bd8…12c0a               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00bf, t01=0x0190}
0x12c0a…12c38               Head {h00=0x002a, h01=0x0050, text=» CF A15,CONPOS CONVERT SCREEN POSITION«, t00=0x00c0, t01=0x0032}
0x12c38…12c64               Head {h00=0x0028, h01=0x0050, text=»*   INTO SCREEN MEMORY DISPLACEMENT «, t00=0x00c0, t01=0x0060}
0x12c64…12ca4               Head {h00=0x003c, h01=0x0050, text=» CF A15,IXTERM INDEX SCREEN MEMORY DISPL. WITH TERM. NBR«, t00=0x00c0, t01=0x008c}
0x12ca4…12cd8               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTLD2,A6 SAVE SCREEN MEMORY LOCATION«, t00=0x00c0, t01=0x00cc}
0x12cd8…12cf2               Head {h00=0x0016, h01=0x0050, text=»*   (=BIO FOR OTR)«, t00=0x00c0, t01=0x0100}
0x12cf2…12d2e               Head {h00=0x0038, h01=0x0050, text=» LDKL A2,SMLCUR SCREEN MEM.LOC. HOLDING CURSOR POS. «, t00=0x00c0, t01=0x011a}
0x12d2e…12d6a               Head {h00=0x0038, h01=0x0050, text=» CF A15,IXTERM INDEX SCREEN MEMORY WITH TERMINAL NBR«, t00=0x00c0, t01=0x0156}
0x12d6a…12d9e (193, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTLD1,A6 SAVE SCREEN MEMORY LOCATION«, t00=0x00c1, t01=0x0004}
0x12d9e…12dbe               Head {h00=0x001c, h01=0x0050, text=»*   (=BIO FOR CIO-START)«, t00=0x00c1, t01=0x0038}
0x12dbe…12df8               Head {h00=0x0036, h01=0x0050, text=» LDKL A3,OTRFLA FLAG OTR-ACTION AT NEXT INTERRUPT «, t00=0x00c1, t01=0x0058}
0x12df8…12e24               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00c1, t01=0x0092}
0x12e24…12e4c               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00c1, t01=0x00be}
0x12e4c…12e58               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c1, t01=0x00e6}
0x12e58…12e94               Head {h00=0x0038, h01=0x0050, text=» LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x00c1, t01=0x00f2}
0x12e94…12ec4               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) STAWR1 YES. QUEUE REQUESTING DWT«, t00=0x00c1, t01=0x012e}
0x12ec4…12ed8               Head {h00=0x0010, h01=0x0050, text=»OUTCU1 EQU *«, t00=0x00c1, t01=0x015e}
0x12ed8…12f12               Head {h00=0x0036, h01=0x0050, text=» ST A6,CWTDOS,A5 OCCUPY SCREEN SECTION OF VCCU1/4 «, t00=0x00c1, t01=0x0172}
0x12f12…12f24               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00c2, t01=0x001c}
0x12f24…12f44               Head {h00=0x001c, h01=0x0050, text=» RF CLESC2 DO CIO START «, t00=0x00c2, t01=0x002e}
0x12f44…12f50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c2, t01=0x004e}
0x12f50…12f62               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00c2, t01=0x005a}
0x12f62…12f90               Head {h00=0x002a, h01=0x0050, text=» LDKL A3,OTRFLA IF THEN RESET OTR-FLAG«, t00=0x00c2, t01=0x006c}
0x12f90…12fba               Head {h00=0x0026, h01=0x0050, text=» XRS A3,DWTST,A6 IN DEVICE STATUS «, t00=0x00c2, t01=0x009a}
0x12fba…12ff4               Head {h00=0x0036, h01=0x0050, text=» LD A3,DWTLD2,A6 GET SCREEN MEMORY CURSOR POSITION«, t00=0x00c2, t01=0x00c4}
0x12ff4…13008               Head {h00=0x0010, h01=0x0050, text=»OUTCU2 EQU *«, t00=0x00c2, t01=0x00fe}
0x13008…13036               Head {h00=0x002a, h01=0x0050, text=» ST A3,CWTBUF,A5 STORE INTO IOP-BUFFER«, t00=0x00c2, t01=0x0112}
0x13036…13066               Head {h00=0x002c, h01=0x0050, text=» CM CWTBIN,A5 RESET INDEX IN IOP-BUFFER «, t00=0x00c2, t01=0x0140}
0x13066…1308e               Head {h00=0x0024, h01=0x0050, text=» IM CWTBIN,A5 INCR BUFFER INDEX «, t00=0x00c2, t01=0x0170}
0x1308e…130aa               Head {h00=0x0018, h01=0x0050, text=» RB ENDWR1 DO WER:S «, t00=0x00c3, t01=0x0008}
0x130aa…130b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c3, t01=0x0024}
0x130b6…130c4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x0030}
0x130c4…130ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x003e}
0x130ce…1310a               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00c3, t01=0x0048}
0x1310a…13114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0084}
0x13114…1312a               Head {h00=0x0012, h01=0x0050, text=»* C L E S C R «, t00=0x00c3, t01=0x008e}
0x1312a…13134               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x00a4}
0x13134…13170               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00c3, t01=0x00ae}
0x13170…1317a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x00ea}
0x1317a…13184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x00f4}
0x13184…131a0               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,CLESCR«, t00=0x00c3, t01=0x00fe}
0x131a0…131aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x011a}
0x131aa…131e0               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00c3, t01=0x0124}
0x131e0…131ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x015a}
0x131ea…1321e               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION:TO CLEAR SCREEN, RESET CURSOR AND«, t00=0x00c3, t01=0x0164}
0x1321e…13244               Head {h00=0x0022, h01=0x0050, text=»*  RESET START WRITE POSITION.«, t00=0x00c4, t01=0x0008}
0x13244…1324e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x002e}
0x1324e…13270               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS «, t00=0x00c4, t01=0x0038}
0x13270…1327a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x005a}
0x1327a…1329c               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00c4, t01=0x0064}
0x1329c…132c6               Head {h00=0x0026, h01=0x0050, text=»*         0 IF OK, NOT 0 OF ERROR «, t00=0x00c4, t01=0x0086}
0x132c6…132e0               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00c4, t01=0x00b0}
0x132e0…132ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x00ca}
0x132ea…13326               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00c4, t01=0x00d4}
0x13326…13330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0110}
0x13330…13344               Head {h00=0x0010, h01=0x0050, text=»CLESCR EQU *«, t00=0x00c4, t01=0x011a}
0x13344…13376               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00c4, t01=0x012e}
0x13376…133a4               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,AUTCLE SET BIO FOR AUTO-CLEAR«, t00=0x00c4, t01=0x0160}
0x133a4…133d6               Head {h00=0x002e, h01=0x0050, text=» CF A15,IXTERM INDEX WITH TERMINAL NUMBER «, t00=0x00c4, t01=0x018e}
0x133d6…13406               Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTLD1,A6 SAVE BIO FOR CIO START «, t00=0x00c5, t01=0x0030}
0x13406…13440               Head {h00=0x0036, h01=0x0050, text=» LDKL A3,HLTFLA FLAG HALT-ACTION AT NEXT INTERRUPT«, t00=0x00c5, t01=0x0060}
0x13440…1346c               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00c5, t01=0x009a}
0x1346c…13494               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00c5, t01=0x00c6}
0x13494…134a0               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c5, t01=0x00ee}
0x134a0…134dc               Head {h00=0x0038, h01=0x0050, text=» LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x00c5, t01=0x00fa}
0x134dc…1350c               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) STAWR1 YES. QUEUE REQUESTING DWT«, t00=0x00c5, t01=0x0136}
0x1350c…13520               Head {h00=0x0010, h01=0x0050, text=»CLESC1 EQU *«, t00=0x00c5, t01=0x0166}
0x13520…1355a               Head {h00=0x0036, h01=0x0050, text=» ST A6,CWTDOS,A5 OCCUPY SCREEN SECTION OF VCCU1/4 «, t00=0x00c5, t01=0x017a}
0x1355a…1356c               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00c6, t01=0x0024}
0x1356c…13594               Head {h00=0x0024, h01=0x0050, text=» LDKL A3,HLTFLA RESET HALT-FLAG «, t00=0x00c6, t01=0x0036}
0x13594…135be               Head {h00=0x0026, h01=0x0050, text=» XRS A3,DWTST,A6 IN DEVICE STATUS «, t00=0x00c6, t01=0x005e}
0x135be…135f0               Head {h00=0x002e, h01=0x0050, text=» LDKL A3,/0120 SPACE (HIGH-INTENSITY MODE)«, t00=0x00c6, t01=0x0088}
0x135f0…13626               Head {h00=0x0032, h01=0x0050, text=» RB OUTCU2 STORE INTO IOP-BUFFER AND DO WER:S «, t00=0x00c6, t01=0x00ba}
0x13626…13632               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c6, t01=0x00f0}
0x13632…13646               Head {h00=0x0010, h01=0x0050, text=»CLESC2 EQU *«, t00=0x00c6, t01=0x00fc}
0x13646…13680               Head {h00=0x0036, h01=0x0050, text=» LD A3,PFPOST GET POWER FAIL POST PROCESSING FLAG «, t00=0x00c6, t01=0x0110}
0x13680…136c0               Head {h00=0x003c, h01=0x0050, text=» ABL(NZ) LINER5 FLAG SET: I/O-INSTRUCTIONS NOT ALLOWED. «, t00=0x00c6, t01=0x014a}
0x136c0…136ee               Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD1,A6 GET BIO FOR CIO START«, t00=0x00c6, t01=0x018a}
0x136ee…1372a               Head {h00=0x0038, h01=0x0050, text=» EX CWTCSS,A5 CIO START ON SCREEN SECTION OF VCCU1/4«, t00=0x00c7, t01=0x0028}
0x1372a…13758               Head {h00=0x002a, h01=0x0050, text=» ABL(NA) LINER0 ERROR IF NOT ACCEPTED «, t00=0x00c7, t01=0x0064}
0x13758…1376c               Head {h00=0x0010, h01=0x0050, text=»CLESC3 EQU *«, t00=0x00c7, t01=0x0092}
0x1376c…13798               Head {h00=0x0028, h01=0x0050, text=» LD A6,CWTSRD,A5 ANY SST-READY DWT ?«, t00=0x00c7, t01=0x00a6}
0x13798…137ba               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) TDISP NO. DISPATCH«, t00=0x00c7, t01=0x00d2}
0x137ba…137e4               Head {h00=0x0026, h01=0x0050, text=» CM CWTSRD,A5 YES. RESET SAVE-AREA«, t00=0x00c7, t01=0x00f4}
0x137e4…13820               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00c7, t01=0x011e}
0x13820…1382e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c7, t01=0x015a}
0x1382e…13838               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0168}
0x13838…13876               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00c7, t01=0x0172}
0x13876…13880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0020}
0x13880…138a6               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00c8, t01=0x002a}
0x138a6…138d0               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00c8, t01=0x0050}
0x138d0…138fe               Head {h00=0x002a, h01=0x0050, text=»* I N T E R R U P T   R O U T I N E S «, t00=0x00c8, t01=0x007a}
0x138fe…13908               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x00a8}
0x13908…13946               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00c8, t01=0x00b2}
0x13946…13950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x00f0}
0x13950…1395a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x00fa}
0x1395a…13986               Head {h00=0x0028, h01=0x0050, text=»* ENTERED: VIA THE INTERRUPT VECTOR «, t00=0x00c8, t01=0x0104}
0x13986…13990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0130}
0x13990…139c0               Head {h00=0x002c, h01=0x0050, text=»* FUNCTIONS FOR EACH INTERRUPT ROUTINE: «, t00=0x00c8, t01=0x013a}
0x139c0…139ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x016a}
0x139ca…13a08               Head {h00=0x003a, h01=0x0050, text=»* 1. SAVE START ADDRESS OF ENTERED INTERRUPT ROUTINE. «, t00=0x00c8, t01=0x0174}
0x13a08…13a2c               Head {h00=0x0020, h01=0x0050, text=»* 2. SAVE A1-A8 ONTO STACK. «, t00=0x00c9, t01=0x0022}
0x13a2c…13a68               Head {h00=0x0038, h01=0x0050, text=»* 3. GET CWT-ADDRESS FOR ENTERED INTERRUPT ROUTINE. «, t00=0x00c9, t01=0x0046}
0x13a68…13aaa               Head {h00=0x003e, h01=0x0050, text=»* 4. GET THE DWT OCCUPYING THE SCREEN SECTION OF THIS CWT.«, t00=0x00c9, t01=0x0082}
0x13aaa…13ad0               Head {h00=0x0022, h01=0x0050, text=»* 5. TEST CHANNEL UNIT STATUS.«, t00=0x00c9, t01=0x00c4}
0x13ad0…13b04               Head {h00=0x0030, h01=0x0050, text=»* 6. TEST AND UPDATE INTERRUPT-ACTION-FLAGS,«, t00=0x00c9, t01=0x00ea}
0x13b04…13b2a               Head {h00=0x0022, h01=0x0050, text=»*    GO TO ERROR ROUTINE, OR: «, t00=0x00c9, t01=0x011e}
0x13b2a…13b5c               Head {h00=0x002e, h01=0x0050, text=»* 7. GO TO APROPRIATE ACTIVATION ROUTINE, «, t00=0x00c9, t01=0x0144}
0x13b5c…13b8c               Head {h00=0x002c, h01=0x0050, text=»*    IN SCREEN SECTION LINE DRIVER PART,«, t00=0x00c9, t01=0x0176}
0x13b8c…13b9c               Head {h00=0x000c, h01=0x0050, text=»*    OR «, t00=0x00ca, t01=0x0016}
0x13b9c…13bc4               Head {h00=0x0024, h01=0x0050, text=»*    GET DWT FROM OUTPUT QUEUE, «, t00=0x00ca, t01=0x0026}
0x13bc4…13bfa               Head {h00=0x0032, h01=0x0050, text=»*    AND GO TO APROPRIATE ACTIVATION ROUTINE. «, t00=0x00ca, t01=0x004e}
0x13bfa…13c04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0084}
0x13c04…13c0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x008e}
0x13c0e…13c18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0098}
0x13c18…13c3c               Head {h00=0x0020, h01=0x0050, text=»* ON EXIT: A5 = CWT-ADDRESS «, t00=0x00ca, t01=0x00a2}
0x13c3c…13c58               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00ca, t01=0x00c6}
0x13c58…13c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x00e2}
0x13c62…13ca6               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00ca, t01=0x00ec}
0x13ca6…13cb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0130}
0x13cb0…13cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x013a}
0x13cba…13cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0144}
0x13cc4…13cd2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ca, t01=0x014e}
0x13cd2…13cdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x015c}
0x13cdc…13ce6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0166}
0x13ce6…13d20               Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 1 «, t00=0x00ca, t01=0x0170}
0x13d20…13d2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x001a}
0x13d2a…13d3e               Head {h00=0x0010, h01=0x0050, text=»IHSVU1 EQU *«, t00=0x00cb, t01=0x0024}
0x13d3e…13d54               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=1 «, t00=0x00cb, t01=0x0038}
0x13d54…13d68               Head {h00=0x0010, h01=0x0050, text=»IHSVU2 EQU *«, t00=0x00cb, t01=0x004e}
0x13d68…13d7c               Head {h00=0x0010, h01=0x0050, text=»IHSVU3 EQU *«, t00=0x00cb, t01=0x0062}
0x13d7c…13d90               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00cb, t01=0x0076}
0x13d90…13da4               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00cb, t01=0x008a}
0x13da4…13db8               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00cb, t01=0x009e}
0x13db8…13dcc               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00cb, t01=0x00b2}
0x13dcc…13de0               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00cb, t01=0x00c6}
0x13de0…13dec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cb, t01=0x00da}
0x13dec…13e14               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00cb, t01=0x00e6}
0x13e14…13e2a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00cb, t01=0x010e}
0x13e2a…13e54               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00cb, t01=0x0124}
0x13e54…13e60               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cb, t01=0x014e}
0x13e60…13e6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x015a}
0x13e6a…13e80               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00cb, t01=0x0164}
0x13e80…13ea6               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00cb, t01=0x017a}
0x13ea6…13eb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x0010}
0x13eb2…13ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x001c}
0x13ebc…13ef4               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU1 SET CWT-ADDRESS FOR VCCU1/4 NO 1«, t00=0x00cc, t01=0x0026}
0x13ef4…13f0a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cc, t01=0x005e}
0x13f0a…13f1c               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00cc, t01=0x0074}
0x13f1c…13f26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x0086}
0x13f26…13f60               Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 2 «, t00=0x00cc, t01=0x0090}
0x13f60…13f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x00ca}
0x13f6a…13f7e               Head {h00=0x0010, h01=0x0050, text=»IHSVU2 EQU *«, t00=0x00cc, t01=0x00d4}
0x13f7e…13f8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x00e8}
0x13f8a…13fa0               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x00cc, t01=0x00f4}
0x13fa0…13fb4               Head {h00=0x0010, h01=0x0050, text=»IHSVU3 EQU *«, t00=0x00cc, t01=0x010a}
0x13fb4…13fc8               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00cc, t01=0x011e}
0x13fc8…13fdc               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00cc, t01=0x0132}
0x13fdc…13ff0               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00cc, t01=0x0146}
0x13ff0…14004               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00cc, t01=0x015a}
0x14004…14018               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00cc, t01=0x016e}
0x14018…14024               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x0182}
0x14024…1403a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cc, t01=0x018e}
0x1403a…14062               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00cd, t01=0x0014}
0x14062…14078               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00cd, t01=0x003c}
0x14078…140a2               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00cd, t01=0x0052}
0x140a2…140ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x007c}
0x140ae…140b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x0088}
0x140b8…140ce               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cd, t01=0x0092}
0x140ce…140e4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00cd, t01=0x00a8}
0x140e4…1410a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00cd, t01=0x00be}
0x1410a…14116               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x00e4}
0x14116…14120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x00f0}
0x14120…14136               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cd, t01=0x00fa}
0x14136…1416e               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU2 SET CWT-ADDRESS FOR VCCU1/4 NO 2«, t00=0x00cd, t01=0x0110}
0x1416e…1417a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x0148}
0x1417a…14190               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x00cd, t01=0x0154}
0x14190…141a4               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00cd, t01=0x016a}
0x141a4…141ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x017e}
0x141ae…141ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x0188}
0x141ba…141c4 (206, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0004}
0x141c4…141da               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00ce, t01=0x000e}
0x141da…141f0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00ce, t01=0x0024}
0x141f0…14202               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00ce, t01=0x003a}
0x14202…1420c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x004c}
0x1420c…14246               Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 3 «, t00=0x00ce, t01=0x0056}
0x14246…14250               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0090}
0x14250…14264               Head {h00=0x0010, h01=0x0050, text=»IHSVU3 EQU *«, t00=0x00ce, t01=0x009a}
0x14264…14270               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ce, t01=0x00ae}
0x14270…14286               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x00ce, t01=0x00ba}
0x14286…1429a               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00ce, t01=0x00d0}
0x1429a…142ae               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00ce, t01=0x00e4}
0x142ae…142c2               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00ce, t01=0x00f8}
0x142c2…142d6               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00ce, t01=0x010c}
0x142d6…142ea               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00ce, t01=0x0120}
0x142ea…142f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ce, t01=0x0134}
0x142f6…1430c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00ce, t01=0x0140}
0x1430c…14322               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00ce, t01=0x0156}
0x14322…1434a               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00ce, t01=0x016c}
0x1434a…14360 (207, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00cf, t01=0x0004}
0x14360…1438a               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00cf, t01=0x001a}
0x1438a…14396               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x0044}
0x14396…143a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0050}
0x143a0…143b6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cf, t01=0x005a}
0x143b6…143cc               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00cf, t01=0x0070}
0x143cc…143e2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00cf, t01=0x0086}
0x143e2…14408               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00cf, t01=0x009c}
0x14408…14414               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x00c2}
0x14414…1441e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x00ce}
0x1441e…14434               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cf, t01=0x00d8}
0x14434…1444a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00cf, t01=0x00ee}
0x1444a…14482               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU3 SET CWT-ADDRESS FOR VCCU1/4 NO 3«, t00=0x00cf, t01=0x0104}
0x14482…1448e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x013c}
0x1448e…144a4               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x00cf, t01=0x0148}
0x144a4…144b8               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00cf, t01=0x015e}
0x144b8…144c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0172}
0x144c2…144ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x017c}
0x144ce…144e4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cf, t01=0x0188}
0x144e4…144fa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d0, t01=0x000e}
0x144fa…14510               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d0, t01=0x0024}
0x14510…14522               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d0, t01=0x003a}
0x14522…1452c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x004c}
0x1452c…14566               Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 4 «, t00=0x00d0, t01=0x0056}
0x14566…14570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0090}
0x14570…14584               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00d0, t01=0x009a}
0x14584…14590               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x00ae}
0x14590…145a6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x00d0, t01=0x00ba}
0x145a6…145ba               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00d0, t01=0x00d0}
0x145ba…145ce               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00d0, t01=0x00e4}
0x145ce…145e2               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d0, t01=0x00f8}
0x145e2…145f6               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d0, t01=0x010c}
0x145f6…14602               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x0120}
0x14602…14618               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d0, t01=0x012c}
0x14618…1462e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d0, t01=0x0142}
0x1462e…14644               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d0, t01=0x0158}
0x14644…1466c               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d0, t01=0x016e}
0x1466c…14682               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d1, t01=0x0008}
0x14682…146ac               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00d1, t01=0x001e}
0x146ac…146b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x0048}
0x146b8…146c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0054}
0x146c2…146d8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d1, t01=0x005e}
0x146d8…146ee               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d1, t01=0x0074}
0x146ee…14704               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d1, t01=0x008a}
0x14704…1471a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d1, t01=0x00a0}
0x1471a…14740               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00d1, t01=0x00b6}
0x14740…1474c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x00dc}
0x1474c…14756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x00e8}
0x14756…1476c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d1, t01=0x00f2}
0x1476c…14782               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d1, t01=0x0108}
0x14782…14798               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d1, t01=0x011e}
0x14798…147d0               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU4 SET CWT-ADDRESS FOR VCCU1/4 NO 4«, t00=0x00d1, t01=0x0134}
0x147d0…147dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x016c}
0x147dc…147f2               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x00d1, t01=0x0178}
0x147f2…14806               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d1, t01=0x018e}
0x14806…14812               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x0012}
0x14812…14828               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d2, t01=0x001e}
0x14828…1483e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d2, t01=0x0034}
0x1483e…14854               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d2, t01=0x004a}
0x14854…1486a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d2, t01=0x0060}
0x1486a…1487c               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d2, t01=0x0076}
0x1487c…14886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0088}
0x14886…148be               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 5 «, t00=0x00d2, t01=0x0092}
0x148be…148c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00ca}
0x148c8…148dc               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00d2, t01=0x00d4}
0x148dc…148e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x00e8}
0x148e8…148fe               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x00d2, t01=0x00f4}
0x148fe…14912               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00d2, t01=0x010a}
0x14912…14926               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d2, t01=0x011e}
0x14926…1493a               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d2, t01=0x0132}
0x1493a…14946               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x0146}
0x14946…1495c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d2, t01=0x0152}
0x1495c…14972               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d2, t01=0x0168}
0x14972…14988               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d2, t01=0x017e}
0x14988…1499e (211, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d3, t01=0x0004}
0x1499e…149c6               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d3, t01=0x001a}
0x149c6…149dc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d3, t01=0x0042}
0x149dc…14a08               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00d3, t01=0x0058}
0x14a08…14a14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x0084}
0x14a14…14a1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0090}
0x14a1e…14a34               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d3, t01=0x009a}
0x14a34…14a4a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d3, t01=0x00b0}
0x14a4a…14a60               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d3, t01=0x00c6}
0x14a60…14a76               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d3, t01=0x00dc}
0x14a76…14a8c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d3, t01=0x00f2}
0x14a8c…14ab4               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00d3, t01=0x0108}
0x14ab4…14ac0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x0130}
0x14ac0…14aca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x013c}
0x14aca…14ae0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d3, t01=0x0146}
0x14ae0…14af6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d3, t01=0x015c}
0x14af6…14b0c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d3, t01=0x0172}
0x14b0c…14b22               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d3, t01=0x0188}
0x14b22…14b5a               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU5 SET CWT-ADDRESS FOR VCCU1/4 NO 5«, t00=0x00d4, t01=0x000e}
0x14b5a…14b66               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x0046}
0x14b66…14b7c               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x00d4, t01=0x0052}
0x14b7c…14b90               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d4, t01=0x0068}
0x14b90…14b9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x007c}
0x14b9c…14bb2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d4, t01=0x0088}
0x14bb2…14bc8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d4, t01=0x009e}
0x14bc8…14bde               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d4, t01=0x00b4}
0x14bde…14bf4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d4, t01=0x00ca}
0x14bf4…14c0a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d4, t01=0x00e0}
0x14c0a…14c1c               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d4, t01=0x00f6}
0x14c1c…14c26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0108}
0x14c26…14c5e               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 6 «, t00=0x00d4, t01=0x0112}
0x14c5e…14c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x014a}
0x14c68…14c7c               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00d4, t01=0x0154}
0x14c7c…14c88               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x0168}
0x14c88…14c9e               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x00d4, t01=0x0174}
0x14c9e…14cb2               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d4, t01=0x018a}
0x14cb2…14cc6               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d5, t01=0x000e}
0x14cc6…14cd2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x0022}
0x14cd2…14ce8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d5, t01=0x002e}
0x14ce8…14cfe               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d5, t01=0x0044}
0x14cfe…14d14               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d5, t01=0x005a}
0x14d14…14d2a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d5, t01=0x0070}
0x14d2a…14d40               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d5, t01=0x0086}
0x14d40…14d68               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d5, t01=0x009c}
0x14d68…14d7e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d5, t01=0x00c4}
0x14d7e…14daa               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00d5, t01=0x00da}
0x14daa…14db6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x0106}
0x14db6…14dc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0112}
0x14dc0…14dd6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d5, t01=0x011c}
0x14dd6…14dec               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d5, t01=0x0132}
0x14dec…14e02               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d5, t01=0x0148}
0x14e02…14e18               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d5, t01=0x015e}
0x14e18…14e2e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d5, t01=0x0174}
0x14e2e…14e44               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d5, t01=0x018a}
0x14e44…14e6c               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00d6, t01=0x0010}
0x14e6c…14e78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d6, t01=0x0038}
0x14e78…14e82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0044}
0x14e82…14e98               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d6, t01=0x004e}
0x14e98…14eae               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d6, t01=0x0064}
0x14eae…14ec4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d6, t01=0x007a}
0x14ec4…14eda               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d6, t01=0x0090}
0x14eda…14ef0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d6, t01=0x00a6}
0x14ef0…14f28               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6«, t00=0x00d6, t01=0x00bc}
0x14f28…14f34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d6, t01=0x00f4}
0x14f34…14f4a               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x00d6, t01=0x0100}
0x14f4a…14f5e               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d6, t01=0x0116}
0x14f5e…14f6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d6, t01=0x012a}
0x14f6a…14f80               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d6, t01=0x0136}
0x14f80…14f96               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d6, t01=0x014c}
0x14f96…14fac               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d6, t01=0x0162}
0x14fac…14fc2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d6, t01=0x0178}
0x14fc2…14fd8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d6, t01=0x018e}
0x14fd8…14fee               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d7, t01=0x0014}
0x14fee…15000               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d7, t01=0x002a}
0x15000…1500a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x003c}
0x1500a…15042               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 7 «, t00=0x00d7, t01=0x0046}
0x15042…1504c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x007e}
0x1504c…15060               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d7, t01=0x0088}
0x15060…1506c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x009c}
0x1506c…15082               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x00d7, t01=0x00a8}
0x15082…15096               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d7, t01=0x00be}
0x15096…150a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x00d2}
0x150a2…150b8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d7, t01=0x00de}
0x150b8…150ce               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d7, t01=0x00f4}
0x150ce…150e4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d7, t01=0x010a}
0x150e4…150fa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d7, t01=0x0120}
0x150fa…15110               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d7, t01=0x0136}
0x15110…15126               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d7, t01=0x014c}
0x15126…1514e               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d7, t01=0x0162}
0x1514e…15164               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d7, t01=0x018a}
0x15164…15190               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00d8, t01=0x0010}
0x15190…1519c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d8, t01=0x003c}
0x1519c…151a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0048}
0x151a6…151bc               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d8, t01=0x0052}
0x151bc…151d2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d8, t01=0x0068}
0x151d2…151e8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d8, t01=0x007e}
0x151e8…151fe               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d8, t01=0x0094}
0x151fe…15214               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d8, t01=0x00aa}
0x15214…1522a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d8, t01=0x00c0}
0x1522a…15240               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d8, t01=0x00d6}
0x15240…15268               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00d8, t01=0x00ec}
0x15268…15274               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d8, t01=0x0114}
0x15274…1527e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0120}
0x1527e…15294               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d8, t01=0x012a}
0x15294…152aa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d8, t01=0x0140}
0x152aa…152c0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d8, t01=0x0156}
0x152c0…152d6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d8, t01=0x016c}
0x152d6…152ec               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d8, t01=0x0182}
0x152ec…15302               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d9, t01=0x0008}
0x15302…1533a               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU7 SET CWT-ADDRESS FOR VCCU1/4 NO 7«, t00=0x00d9, t01=0x001e}
0x1533a…15346               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0056}
0x15346…1535c               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x00d9, t01=0x0062}
0x1535c…15370               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d9, t01=0x0078}
0x15370…1537c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x008c}
0x1537c…15392               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x00d9, t01=0x0098}
0x15392…153a4               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d9, t01=0x00ae}
0x153a4…153ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x00c0}
0x153ae…153e6               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 8 «, t00=0x00d9, t01=0x00ca}
0x153e6…153f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0102}
0x153f0…15404               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d9, t01=0x010c}
0x15404…1542c               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d9, t01=0x0120}
0x1542c…15442               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d9, t01=0x0148}
0x15442…1546e               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00d9, t01=0x015e}
0x1546e…1547a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x018a}
0x1547a…15484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0008}
0x15484…1549a               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x00da, t01=0x0012}
0x1549a…154b0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00da, t01=0x0028}
0x154b0…154d8               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00da, t01=0x003e}
0x154d8…154e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x0066}
0x154e4…154ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0072}
0x154ee…15504               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x00da, t01=0x007c}
0x15504…1553c               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8«, t00=0x00da, t01=0x0092}
0x1553c…15550               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00da, t01=0x00ca}
0x15550…1555c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x00de}
0x1555c…1556a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x00ea}
0x1556a…15574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00f8}
0x15574…1557e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0102}
0x1557e…15588               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x010c}
0x15588…155d4               Head {h00=0x0048, h01=0x0050, text=»* COMMON PART FOR ALL SCREEN SECTION LINE DRIVER INTERRUPT ROUTINES «, t00=0x00da, t01=0x0116}
0x155d4…155de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0162}
0x155de…155e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x016c}
0x155e8…15628               Head {h00=0x003c, h01=0x0050, text=» LD A6,CWTDOS,A5 GET DWT OCCUPYING SCREEN SECTION OF CWT«, t00=0x00da, t01=0x0176}
0x15628…15666               Head {h00=0x003a, h01=0x0050, text=» ABL(Z) LINER4 IF NOT OCCUPYED: CIO HALT+SST+DISPATCH «, t00=0x00db, t01=0x0026}
0x15666…1567a               Head {h00=0x0010, h01=0x0050, text=»IHS110 EQU *«, t00=0x00db, t01=0x0064}
0x1567a…156b8               Head {h00=0x003a, h01=0x0050, text=» EX CWTSST,A5 EXECUTE SST ON SCREEN SECTION OF VCCU1/4«, t00=0x00db, t01=0x0078}
0x156b8…156dc               Head {h00=0x0020, h01=0x0050, text=» RF(NA) IHS120 NOT ACCEPTED «, t00=0x00db, t01=0x00b6}
0x156dc…15706               Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A6 GET DEVICE STATUS «, t00=0x00db, t01=0x00da}
0x15706…15732               Head {h00=0x0028, h01=0x0050, text=» ANKL A3,SSTFLA TEST SST-ACTION FLAG«, t00=0x00db, t01=0x0104}
0x15732…1575a               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) LINER3 ERROR IF NOT SET «, t00=0x00db, t01=0x0130}
0x1575a…15764               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0158}
0x15764…15780               Head {h00=0x0018, h01=0x0050, text=»* END OF CIO-REQUEST«, t00=0x00db, t01=0x0162}
0x15780…1578a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x017e}
0x1578a…157b8               Head {h00=0x002a, h01=0x0050, text=» XRS A3,DWTST,A6 RESET SST-ACTION FLAG«, t00=0x00db, t01=0x0188}
0x157b8…157e4               Head {h00=0x0028, h01=0x0050, text=» ST A6,CWTSRD,A5 SAVE SST-READY DWT «, t00=0x00dc, t01=0x0026}
0x157e4…1581c               Head {h00=0x0034, h01=0x0050, text=» CM CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPYED «, t00=0x00dc, t01=0x0052}
0x1581c…15826               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x008a}
0x15826…15848               Head {h00=0x001e, h01=0x0050, text=»* GET AND CHECK QUEUED DWT«, t00=0x00dc, t01=0x0094}
0x15848…15852               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x00b6}
0x15852…1588a               Head {h00=0x0034, h01=0x0050, text=» CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE «, t00=0x00dc, t01=0x00c0}
0x1588a…158ac               Head {h00=0x001e, h01=0x0050, text=» ADK A6,0 ANY QUEUED DWT ?«, t00=0x00dc, t01=0x00f8}
0x158ac…158de               Head {h00=0x002e, h01=0x0050, text=» RB(Z) CLESC3 NO. GET SAVED SST-READY DWT «, t00=0x00dc, t01=0x011a}
0x158de…1590c               Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTST,A6 YES. GET DEVICE STATUS«, t00=0x00dc, t01=0x014c}
0x1590c…15920               Head {h00=0x0010, h01=0x0050, text=» LDR A4,A3  «, t00=0x00dc, t01=0x017a}
0x15920…1594e               Head {h00=0x002a, h01=0x0050, text=» ANKL A4,HLTFLA TEST HALT-ACTION FLAG «, t00=0x00dc, t01=0x018e}
0x1594e…1597e               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) CLESC1 IF SET: CLEAR WAS QUEUED «, t00=0x00dd, t01=0x002c}
0x1597e…159aa               Head {h00=0x0028, h01=0x0050, text=» ANKL A3,OTRFLA TEST OTR-ACTION FLAG«, t00=0x00dd, t01=0x005c}
0x159aa…159e2               Head {h00=0x0034, h01=0x0050, text=» ABL(NZ) OUTCU1 IF SET: OUTPUT CURSOR WAS QUEUED«, t00=0x00dd, t01=0x0088}
0x159e2…15a14               Head {h00=0x002e, h01=0x0050, text=» ABL STAWR2 ELSE: WRITE SCREEN WAS QUEUED «, t00=0x00dd, t01=0x00c0}
0x15a14…15a22               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dd, t01=0x00f2}
0x15a22…15a2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0100}
0x15a2c…15a46               Head {h00=0x0016, h01=0x0050, text=»* SST NOT ACCEPTED«, t00=0x00dd, t01=0x010a}
0x15a46…15a50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0124}
0x15a50…15a64               Head {h00=0x0010, h01=0x0050, text=»IHS120 EQU *«, t00=0x00dd, t01=0x012e}
0x15a64…15a8e               Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A6 GET DEVICE STATUS «, t00=0x00dd, t01=0x0142}
0x15a8e…15aa2               Head {h00=0x0010, h01=0x0050, text=» LDR A4,A3  «, t00=0x00dd, t01=0x016c}
0x15aa2…15ace               Head {h00=0x0028, h01=0x0050, text=» ANKL A4,SSTFLA TEST SST-ACTION FLAG«, t00=0x00dd, t01=0x0180}
0x15ace…15af2               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) LINER2 ERROR IF SET«, t00=0x00de, t01=0x001c}
0x15af2…15b06               Head {h00=0x0010, h01=0x0050, text=» LDR A4,A3  «, t00=0x00de, t01=0x0040}
0x15b06…15b34               Head {h00=0x002a, h01=0x0050, text=» ANKL A4,HLTFLA TEST HALT-ACTION FLAG «, t00=0x00de, t01=0x0054}
0x15b34…15b52               Head {h00=0x001a, h01=0x0050, text=» RF(Z) IHS130 NOT SET «, t00=0x00de, t01=0x0082}
0x15b52…15b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00a0}
0x15b5c…15b84               Head {h00=0x0024, h01=0x0050, text=»* HALT-FLAG IS SET. DO CIO HALT.«, t00=0x00de, t01=0x00aa}
0x15b84…15b8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00d2}
0x15b8e…15ba2               Head {h00=0x0010, h01=0x0050, text=»IHS125 EQU *«, t00=0x00de, t01=0x00dc}
0x15ba2…15bd2               Head {h00=0x002c, h01=0x0050, text=» XRS A4,DWTST,A6 RESET HALT-ACTION FLAG «, t00=0x00de, t01=0x00f0}
0x15bd2…15c0e               Head {h00=0x0038, h01=0x0050, text=» EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 «, t00=0x00de, t01=0x0120}
0x15c0e…15c40               Head {h00=0x002e, h01=0x0050, text=» LDKL A3,SSTFLA FLAG SST-ACTION REQUESTED «, t00=0x00de, t01=0x015c}
0x15c40…15c6c               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00de, t01=0x018e}
0x15c6c…15c86               Head {h00=0x0016, h01=0x0050, text=» RB IHS110 DO SST «, t00=0x00df, t01=0x002a}
0x15c86…15c9a               Head {h00=0x0010, h01=0x0050, text=»IHS130 EQU *«, t00=0x00df, t01=0x0044}
0x15c9a…15cc6               Head {h00=0x0028, h01=0x0050, text=» ANKL A3,OTRFLA TEST OTR-ACTION FLAG«, t00=0x00df, t01=0x0058}
0x15cc6…15d04               Head {h00=0x003a, h01=0x0050, text=» ABL(Z) NDREPO POP REGISTERS, SET OK-STATUS AND RETURN«, t00=0x00df, t01=0x0084}
0x15d04…15d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00c2}
0x15d0e…15d38               Head {h00=0x0026, h01=0x0050, text=»* OTR-FLAG IS SET: DO OTR-CURSOR. «, t00=0x00df, t01=0x00cc}
0x15d38…15d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00f6}
0x15d42…15d70               Head {h00=0x002a, h01=0x0050, text=» XRS A3,DWTST,A6 RESET OTR-ACTION FLAG«, t00=0x00df, t01=0x0100}
0x15d70…15daa               Head {h00=0x0036, h01=0x0050, text=» LDKL A3,HLTFLA FLAG HALT-ACTION AT NEXT INTERRUPT«, t00=0x00df, t01=0x012e}
0x15daa…15dd6               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00df, t01=0x0168}
0x15dd6…15e06 (224, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTLD2,A6 GET BIO FOR OTR-CURSOR «, t00=0x00e0, t01=0x0004}
0x15e06…15e28               Head {h00=0x001e, h01=0x0050, text=» ABL OUTCH3 DO OTR-CURSOR «, t00=0x00e0, t01=0x0034}
0x15e28…15e36               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e0, t01=0x0056}
0x15e36…15e40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0064}
0x15e40…15e7c               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00e0, t01=0x006e}
0x15e7c…15e86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00aa}
0x15e86…15eac               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00e0, t01=0x00b4}
0x15eac…15ed6               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00e0, t01=0x00da}
0x15ed6…15efc               Head {h00=0x0022, h01=0x0050, text=»* E R R O R   R O U T I N E S «, t00=0x00e0, t01=0x0104}
0x15efc…15f06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x012a}
0x15f06…15f44               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00e0, t01=0x0134}
0x15f44…15f4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0172}
0x15f4e…15f58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x017c}
0x15f58…15f80               Head {h00=0x0024, h01=0x0050, text=»* -LINER0 CIO START NOT ACCEPTED«, t00=0x00e0, t01=0x0186}
0x15f80…15fa2               Head {h00=0x001e, h01=0x0050, text=»* -LINER1 OTR NOT ACCEPTED«, t00=0x00e1, t01=0x001e}
0x15fa2…15fc6               Head {h00=0x0020, h01=0x0050, text=»* -LINER2 SST NOT ACCEEPTED «, t00=0x00e1, t01=0x0040}
0x15fc6…1600a               Head {h00=0x0040, h01=0x0050, text=»* -LINER3 SST UNEXPECTEDLY ACCEPTED (AFTER CIO START OR OTR,«, t00=0x00e1, t01=0x0064}
0x1600a…1602a               Head {h00=0x001c, h01=0x0050, text=»*  BUT BEFORE CIO HALT) «, t00=0x00e1, t01=0x00a8}
0x1602a…16050               Head {h00=0x0022, h01=0x0050, text=»* -LINER4 UNEXPECTED INTERRUPT«, t00=0x00e1, t01=0x00c8}
0x16050…1609a               Head {h00=0x0046, h01=0x0050, text=»* -LINER5 I/O-INSTRUCTIONS TRIED DURING POWER FAIL POST PROCESSING«, t00=0x00e1, t01=0x00ee}
0x1609a…160a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0138}
0x160a4…160ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0142}
0x160ae…160bc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e1, t01=0x014c}
0x160bc…160c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x015a}
0x160c6…16100               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00e1, t01=0x0164}
0x16100…1610a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x000e}
0x1610a…16136               Head {h00=0x0028, h01=0x0050, text=»* L I N E R X   ( X = 0,1,2,3,4,5 ) «, t00=0x00e2, t01=0x0018}
0x16136…16140               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0044}
0x16140…1617a               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00e2, t01=0x004e}
0x1617a…16184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0088}
0x16184…1618e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0092}
0x1618e…161be               Head {h00=0x002c, h01=0x0050, text=»* CALL: ABL LINERX  ( X = 0,1,2,3,4,5 ) «, t00=0x00e2, t01=0x009c}
0x161be…161c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00cc}
0x161c8…161fc               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00e2, t01=0x00d6}
0x161fc…16206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x010a}
0x16206…16248               Head {h00=0x003e, h01=0x0050, text=»* FUNCTION:1.TO RESET VCCU1/4 CONTROL UNIT SCREEN SECTION «, t00=0x00e2, t01=0x0114}
0x16248…16270               Head {h00=0x0024, h01=0x0050, text=»*   AFTER I/O-ERROR, (LINER0-4) «, t00=0x00e2, t01=0x0156}
0x16270…162a4               Head {h00=0x0030, h01=0x0050, text=»*  2. INDICATE THE ERROR IN THE RETURN CODE «, t00=0x00e2, t01=0x017e}
0x162a4…162d0               Head {h00=0x0028, h01=0x0050, text=»*  AND RETURN TO DEVICE DRIVER PART «, t00=0x00e3, t01=0x0022}
0x162d0…16306               Head {h00=0x0032, h01=0x0050, text=»*   VIA NETWORK DISTRIBUTOR (LINER0-3, LINER5)«, t00=0x00e3, t01=0x004e}
0x16306…16326               Head {h00=0x001c, h01=0x0050, text=»*  3. DISPATCH. (LINER4)«, t00=0x00e3, t01=0x0084}
0x16326…16330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x00a4}
0x16330…16352               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A5 = CWT-ADDRESS «, t00=0x00e3, t01=0x00ae}
0x16352…1637c               Head {h00=0x0026, h01=0x0050, text=»*  A6 = DWT-ADDRESS (IF LINER0-3) «, t00=0x00e3, t01=0x00d0}
0x1637c…16386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x00fa}
0x16386…163be               Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE (IF LINER0-3, LINER5)«, t00=0x00e3, t01=0x0104}
0x163be…163de               Head {h00=0x001c, h01=0x0050, text=»*        /8000 IF LINER0«, t00=0x00e3, t01=0x013c}
0x163de…163fe               Head {h00=0x001c, h01=0x0050, text=»*        /4000 IF LINER1«, t00=0x00e3, t01=0x015c}
0x163fe…1641e               Head {h00=0x001c, h01=0x0050, text=»*        /2000 IF LINER2«, t00=0x00e3, t01=0x017c}
0x1641e…1643e               Head {h00=0x001c, h01=0x0050, text=»*        /1000 IF LINER3«, t00=0x00e4, t01=0x000c}
0x1643e…1645e               Head {h00=0x001c, h01=0x0050, text=»*        /0800 IF LINER5«, t00=0x00e4, t01=0x002c}
0x1645e…16468               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x004c}
0x16468…164a0               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00e4, t01=0x0056}
0x164a0…164aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x008e}
0x164aa…164be               Head {h00=0x0010, h01=0x0050, text=»LINER0 EQU *«, t00=0x00e4, t01=0x0098}
0x164be…164e6               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,CIOERR SET STATUS BIT 0«, t00=0x00e4, t01=0x00ac}
0x164e6…164fa               Head {h00=0x0010, h01=0x0050, text=»LINERR EQU *«, t00=0x00e4, t01=0x00d4}
0x164fa…16536               Head {h00=0x0038, h01=0x0050, text=» EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 «, t00=0x00e4, t01=0x00e8}
0x16536…1656c               Head {h00=0x0032, h01=0x0050, text=» EX CWTSST,A5 SST ON SCREEN SECTION OF VCCU1/4«, t00=0x00e4, t01=0x0124}
0x1656c…16580               Head {h00=0x0010, h01=0x0050, text=»LINERP EQU *«, t00=0x00e4, t01=0x015a}
0x16580…165b8               Head {h00=0x0034, h01=0x0050, text=» CM CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPYED «, t00=0x00e4, t01=0x016e}
0x165b8…165e8               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,OTRFLA+HLTFLA GET ACTION-FLAGS «, t00=0x00e5, t01=0x0016}
0x165e8…16610               Head {h00=0x0024, h01=0x0050, text=» ADKL A3,SSTFLA ALL ACTION-FLAGS«, t00=0x00e5, t01=0x0046}
0x16610…1662e               Head {h00=0x001a, h01=0x0050, text=» C1R A3,A3 COMPLEMENT «, t00=0x00e5, t01=0x006e}
0x1662e…1665e               Head {h00=0x002c, h01=0x0050, text=» ANS A3,DWTST,A6 RESET ALL ACTION-FLAGS «, t00=0x00e5, t01=0x008c}
0x1665e…16698               Head {h00=0x0036, h01=0x0050, text=» ABL NDREP POP REGISTERS AND RETURN WITH A1=STATUS«, t00=0x00e5, t01=0x00bc}
0x16698…166a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x00f6}
0x166a2…166b6               Head {h00=0x0010, h01=0x0050, text=»LINER1 EQU *«, t00=0x00e5, t01=0x0100}
0x166b6…166de               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,OTRERR SET STATUS BIT 1«, t00=0x00e5, t01=0x0114}
0x166de…166f2               Head {h00=0x0010, h01=0x0050, text=» RB LINERR  «, t00=0x00e5, t01=0x013c}
0x166f2…166fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x0150}
0x166fc…16710               Head {h00=0x0010, h01=0x0050, text=»LINER2 EQU *«, t00=0x00e5, t01=0x015a}
0x16710…16738               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,SSTERR SET STATUS BIT 2«, t00=0x00e5, t01=0x016e}
0x16738…1674c               Head {h00=0x0010, h01=0x0050, text=» RB LINERR  «, t00=0x00e6, t01=0x0008}
0x1674c…16756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x001c}
0x16756…1676a               Head {h00=0x0010, h01=0x0050, text=»LINER3 EQU *«, t00=0x00e6, t01=0x0026}
0x1676a…16792               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,SSTER2 SET STATUS BIT 3«, t00=0x00e6, t01=0x003a}
0x16792…167a6               Head {h00=0x0010, h01=0x0050, text=» RB LINERR  «, t00=0x00e6, t01=0x0062}
0x167a6…167b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0076}
0x167b0…167da               Head {h00=0x0026, h01=0x0050, text=»LINER4 EQU * UNEXPECTED INTERRUPT «, t00=0x00e6, t01=0x0080}
0x167da…16816               Head {h00=0x0038, h01=0x0050, text=» EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 «, t00=0x00e6, t01=0x00aa}
0x16816…1684c               Head {h00=0x0032, h01=0x0050, text=» EX CWTSST,A5 SST ON SCREEN SECTION OF VCCU1/4«, t00=0x00e6, t01=0x00e6}
0x1684c…16868               Head {h00=0x0018, h01=0x0050, text=» ABL TDISP DISPATCH «, t00=0x00e6, t01=0x011c}
0x16868…16872               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0138}
0x16872…168ac               Head {h00=0x0036, h01=0x0050, text=»LINER5 EQU * I/O-INSTRUCTIONS TRIED DURING PFPOST «, t00=0x00e6, t01=0x0142}
0x168ac…168d4               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PFERR SET STATUS BIT 4 «, t00=0x00e6, t01=0x017c}
0x168d4…168e6               Head {h00=0x000e, h01=0x0050, text=» RB LINERP«, t00=0x00e7, t01=0x0014}
0x168e6…168f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e7, t01=0x0026}
0x168f4…168fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0034}
0x168fe…16938               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00e7, t01=0x003e}
0x16938…16942               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0078}
0x16942…16968               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00e7, t01=0x0082}
0x16968…16992               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00e7, t01=0x00a8}
0x16992…169b4               Head {h00=0x001e, h01=0x0050, text=»* S U B - R O U T I N E S «, t00=0x00e7, t01=0x00d2}
0x169b4…169be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00f4}
0x169be…169f6               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00e7, t01=0x00fe}
0x169f6…16a00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0136}
0x16a00…16a0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0140}
0x16a0a…16a54               Head {h00=0x0046, h01=0x0050, text=»* -CONPOS CONVERT SCREEN POSITION INTO SCREEN MEMORY DISPLACEMENT «, t00=0x00e7, t01=0x014a}
0x16a54…16a9c (232, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* -IXTERM INDEX SCREEN MEMORY DISPLACEMENT WITH TERMINAL NUMBER «, t00=0x00e8, t01=0x0004}
0x16a9c…16ace               Head {h00=0x002e, h01=0x0050, text=»* -CWTDWT GET CWT-ADDRESS FROM DWT-ADDRESS«, t00=0x00e8, t01=0x004c}
0x16ace…16b00               Head {h00=0x002e, h01=0x0050, text=»* -PUTQUE PUT DWT INTO SCREEN OUTPUT QUEUE«, t00=0x00e8, t01=0x007e}
0x16b00…16b32               Head {h00=0x002e, h01=0x0050, text=»* -GETQUE GET DWT FROM SCREEN OUTPUT QUEUE«, t00=0x00e8, t01=0x00b0}
0x16b32…16b3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00e2}
0x16b3c…16b46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00ec}
0x16b46…16b54               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e8, t01=0x00f6}
0x16b54…16b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0104}
0x16b5e…16ba0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00e8, t01=0x010e}
0x16ba0…16baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0150}
0x16baa…16bc0               Head {h00=0x0012, h01=0x0050, text=»* C O N P O S «, t00=0x00e8, t01=0x015a}
0x16bc0…16bca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0170}
0x16bca…16c0c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00e8, t01=0x017a}
0x16c0c…16c16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x002c}
0x16c16…16c20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0036}
0x16c20…16c3e               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,CONPOS «, t00=0x00e9, t01=0x0040}
0x16c3e…16c48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x005e}
0x16c48…16c7c               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00e9, t01=0x0068}
0x16c7c…16c86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x009c}
0x16c86…16cb6               Head {h00=0x002c, h01=0x0050, text=»* FUNCTION:TO CONVERT A SCREEN POSITION «, t00=0x00e9, t01=0x00a6}
0x16cb6…16ce2               Head {h00=0x0028, h01=0x0050, text=»*  INTO A SCREEN MEMORY DISPLACEMENT«, t00=0x00e9, t01=0x00d6}
0x16ce2…16cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0102}
0x16cec…16d38               Head {h00=0x0048, h01=0x0050, text=»* INPUT: A2 = BITS 0-7: SCREEN POSITION ROW NUMBER 1-24 HEXADECIMAL «, t00=0x00e9, t01=0x010c}
0x16d38…16d82               Head {h00=0x0046, h01=0x0050, text=»*        BITS 8-15: SCREEN POSITION COLUMN NUMBER 1-80 HEXADECIMAL«, t00=0x00e9, t01=0x0158}
0x16d82…16d8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0012}
0x16d8c…16dd2               Head {h00=0x0042, h01=0x0050, text=»* OBS: NO CHECK IS MADE HERE, THAT INPUT IS WITHIN /0101-/1850«, t00=0x00ea, t01=0x001c}
0x16dd2…16ddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0062}
0x16ddc…16e1a               Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 = SCREEN MEMORY DISPLACEMENT /0000-/077F «, t00=0x00ea, t01=0x006c}
0x16e1a…16e34               Head {h00=0x0016, h01=0x0050, text=»*  A3 = DESTROYED «, t00=0x00ea, t01=0x00aa}
0x16e34…16e3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00c4}
0x16e3e…16e80               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ea, t01=0x00ce}
0x16e80…16e8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0110}
0x16e8a…16e9e               Head {h00=0x0010, h01=0x0050, text=»CONPOS EQU *«, t00=0x00ea, t01=0x011a}
0x16e9e…16eda               Head {h00=0x0038, h01=0x0050, text=» SUKL A2,/0101 SCREEN HOME POSITION IS DEFINED /0101«, t00=0x00ea, t01=0x012e}
0x16eda…16ef8               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 SAVE INPUT «, t00=0x00ea, t01=0x016a}
0x16ef8…16f1a               Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF GET MODULO 80 «, t00=0x00ea, t01=0x0188}
0x16f1a…16f4c               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLY (LINENUMBER-1) WITH 80 (=64+16)«, t00=0x00eb, t01=0x001a}
0x16f4c…16f7e               Head {h00=0x002e, h01=0x0050, text=» ANKL A3,/FF00 ALREADY MULTIPLIED WITH 256«, t00=0x00eb, t01=0x004c}
0x16f7e…16fac               Head {h00=0x002a, h01=0x0050, text=» SRL A3,2 NOW ONLY MULTIPLIED WITH 64 «, t00=0x00eb, t01=0x007e}
0x16fac…16fc2               Head {h00=0x0012, h01=0x0050, text=» ADR A2,A3 ADD«, t00=0x00eb, t01=0x00ac}
0x16fc2…16ff0               Head {h00=0x002a, h01=0x0050, text=» SRL A3,2 NOW ONLY MULTIPLIED WITH 16 «, t00=0x00eb, t01=0x00c2}
0x16ff0…17006               Head {h00=0x0012, h01=0x0050, text=» ADR A2,A3 ADD«, t00=0x00eb, t01=0x00f0}
0x17006…1701e               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00eb, t01=0x0106}
0x1701e…1702c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00eb, t01=0x011e}
0x1702c…17036               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x012c}
0x17036…17078               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00eb, t01=0x0136}
0x17078…17082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0178}
0x17082…17098               Head {h00=0x0012, h01=0x0050, text=»* I X T E R M «, t00=0x00eb, t01=0x0182}
0x17098…170a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0008}
0x170a2…170e4               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ec, t01=0x0012}
0x170e4…170ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0054}
0x170ee…170f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x005e}
0x170f8…17116               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,IXTERM «, t00=0x00ec, t01=0x0068}
0x17116…17120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0086}
0x17120…17154               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00ec, t01=0x0090}
0x17154…1715e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x00c4}
0x1715e…17196               Head {h00=0x0034, h01=0x0050, text=»* FUNCTION:TO INDEX A SCREEN MEMORY DISPLACEMENT«, t00=0x00ec, t01=0x00ce}
0x17196…171c8               Head {h00=0x002e, h01=0x0050, text=»*  WITH THE TERMINAL NUMBER OF CURRENT DWT«, t00=0x00ec, t01=0x0106}
0x171c8…171d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0138}
0x171d2…17202               Head {h00=0x002c, h01=0x0050, text=»* INPUT: A2 = SCREEN MEMORY DISPLACEMENT«, t00=0x00ec, t01=0x0142}
0x17202…1721e               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00ec, t01=0x0172}
0x1721e…17228               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x018e}
0x17228…17256               Head {h00=0x002a, h01=0x0050, text=»* OUTPUT: A2 = SCREEN MEMORY LOCATION «, t00=0x00ed, t01=0x0008}
0x17256…17270               Head {h00=0x0016, h01=0x0050, text=»*  A3 = DESTROYED «, t00=0x00ed, t01=0x0036}
0x17270…1727a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0050}
0x1727a…172ba               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00ed, t01=0x005a}
0x172ba…172c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x009a}
0x172c4…172d8               Head {h00=0x0010, h01=0x0050, text=»IXTERM EQU *«, t00=0x00ed, t01=0x00a4}
0x172d8…1730a               Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTCP2,A6 GET CHANNEL PARAMETERS 2 «, t00=0x00ed, t01=0x00b8}
0x1730a…1733a               Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/300 GET TERMINAL NUMBER (0-3) «, t00=0x00ed, t01=0x00ea}
0x1733a…1735e               Head {h00=0x0020, h01=0x0050, text=» SLL A3,3 INTO BITS 3 AND 4 «, t00=0x00ed, t01=0x011a}
0x1735e…17398               Head {h00=0x0036, h01=0x0050, text=» ORR A2,A3 COMBINE WITH SCREEN MEMORY DISPLACEMENT«, t00=0x00ed, t01=0x013e}
0x17398…173b0               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00ed, t01=0x0178}
0x173b0…173be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ed, t01=0x0190}
0x173be…173c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x000e}
0x173c8…1740a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ee, t01=0x0018}
0x1740a…17414               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x005a}
0x17414…1742a               Head {h00=0x0012, h01=0x0050, text=»* C W T D W T «, t00=0x00ee, t01=0x0064}
0x1742a…17434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x007a}
0x17434…17476               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ee, t01=0x0084}
0x17476…17480               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x00c6}
0x17480…1748a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x00d0}
0x1748a…174a8               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,CWTDWT «, t00=0x00ee, t01=0x00da}
0x174a8…174b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x00f8}
0x174b2…174e6               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00ee, t01=0x0102}
0x174e6…174f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0136}
0x174f0…1753a               Head {h00=0x0046, h01=0x0050, text=»* FUNCTION:TO GET THE CWT-ADDRESS FOR THE CWT USED BY CURRENT DWT «, t00=0x00ee, t01=0x0140}
0x1753a…17544               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x018a}
0x17544…17566 (239, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS «, t00=0x00ef, t01=0x0004}
0x17566…17570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0026}
0x17570…17592               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A5 = CWT-ADDRESS«, t00=0x00ef, t01=0x0030}
0x17592…175b4               Head {h00=0x001e, h01=0x0050, text=»*  NO DESTROYED REGISTERS «, t00=0x00ef, t01=0x0052}
0x175b4…175be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0074}
0x175be…17604               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x00ef, t01=0x007e}
0x17604…1760e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x00c4}
0x1760e…17622               Head {h00=0x0010, h01=0x0050, text=»CWTDWT EQU *«, t00=0x00ef, t01=0x00ce}
0x17622…1764a               Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A6 GET DWTCHP-CONTENTS «, t00=0x00ef, t01=0x00e2}
0x1764a…1767c               Head {h00=0x002e, h01=0x0050, text=» ANK A5,/F BITS 12-15 = CHANNEL UNIT INDEX«, t00=0x00ef, t01=0x010a}
0x1767c…176b2               Head {h00=0x0032, h01=0x0050, text=» ADR A5,A5 GET CWTTAB-DISPLACEMENT FROM INDEX «, t00=0x00ef, t01=0x013c}
0x176b2…176da               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 SKIP TABLE LENGTH ITEM«, t00=0x00ef, t01=0x0172}
0x176da…1770a               Head {h00=0x002c, h01=0x0050, text=» LD A5,CWTTAB,A5 GET CWT-ADDRESS INTO A5«, t00=0x00f0, t01=0x000a}
0x1770a…17722               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00f0, t01=0x003a}
0x17722…17730               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f0, t01=0x0052}
0x17730…1773a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0060}
0x1773a…17780               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00f0, t01=0x006a}
0x17780…1778a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00b0}
0x1778a…177a0               Head {h00=0x0012, h01=0x0050, text=»* P U T Q U E «, t00=0x00f0, t01=0x00ba}
0x177a0…177aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00d0}
0x177aa…177f0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x00f0, t01=0x00da}
0x177f0…177fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0120}
0x177fa…17804               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x012a}
0x17804…17822               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,PUTQUE «, t00=0x00f0, t01=0x0134}
0x17822…1782c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0152}
0x1782c…17860               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00f0, t01=0x015c}
0x17860…1786a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0190}
0x1786a…178ae               Head {h00=0x0040, h01=0x0050, text=»* FUNCTION:TO QUEUE A DWT LAST IN SCREEN ECHO OUTPUT QUEUE, «, t00=0x00f1, t01=0x000a}
0x178ae…178f4               Head {h00=0x0042, h01=0x0050, text=»*  IF DWT IN ECHO MODE, ELSE LAST IN SCREEN LKM OUTPUT QUEUE. «, t00=0x00f1, t01=0x004e}
0x178f4…178fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0094}
0x178fe…17920               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A5 = CWT-ADDRESS «, t00=0x00f1, t01=0x009e}
0x17920…1793a               Head {h00=0x0016, h01=0x0050, text=»*  A6 =DWT-ADDRESS«, t00=0x00f1, t01=0x00c0}
0x1793a…17944               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x00da}
0x17944…1796a               Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A3,A4,A7 = DESTROYED«, t00=0x00f1, t01=0x00e4}
0x1796a…17974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x010a}
0x17974…179b8               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f1, t01=0x0114}
0x179b8…179c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0158}
0x179c2…179d6               Head {h00=0x0010, h01=0x0050, text=»PUTQUE EQU *«, t00=0x00f1, t01=0x0162}
0x179d6…179e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0176}
0x179e0…17a04               Head {h00=0x0020, h01=0x0050, text=»* SELECT ECHO- OR LKM-QUEUE «, t00=0x00f1, t01=0x0180}
0x17a04…17a0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0014}
0x17a0e…17a38               Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTST,A6 GET DEVICE STATUS «, t00=0x00f2, t01=0x001e}
0x17a38…17a64               Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/2000 DEVICE IN ECHO MODE ?«, t00=0x00f2, t01=0x0048}
0x17a64…17a7c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) PUTQ05 NO«, t00=0x00f2, t01=0x0074}
0x17a7c…17ab0               Head {h00=0x0030, h01=0x0050, text=» LDKL A7,CWTSEQ GET SCREEN ECHO OUTPUT QUEUE«, t00=0x00f2, t01=0x008c}
0x17ab0…17ac4               Head {h00=0x0010, h01=0x0050, text=» RF PUTQ07  «, t00=0x00f2, t01=0x00c0}
0x17ac4…17ad8               Head {h00=0x0010, h01=0x0050, text=»PUTQ05 EQU *«, t00=0x00f2, t01=0x00d4}
0x17ad8…17b0c               Head {h00=0x0030, h01=0x0050, text=» LDKL A7,CWTSLQ GET SCREEN LKM OUTPUT QUEUE «, t00=0x00f2, t01=0x00e8}
0x17b0c…17b20               Head {h00=0x0010, h01=0x0050, text=»PUTQ07 EQU *«, t00=0x00f2, t01=0x011c}
0x17b20…17b3a               Head {h00=0x0016, h01=0x0050, text=» ADR A7,A5 ANCHOR «, t00=0x00f2, t01=0x0130}
0x17b3a…17b44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x014a}
0x17b44…17b6c               Head {h00=0x0024, h01=0x0050, text=»* QUEUE DWT INTO SELECTED QUEUE «, t00=0x00f2, t01=0x0154}
0x17b6c…17b76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x017c}
0x17b76…17bae               Head {h00=0x0034, h01=0x0050, text=» LDR* A4,A7 GET FIRST QUEUED DWT. QUEUE EMPTY ? «, t00=0x00f2, t01=0x0186}
0x17bae…17bc8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) PUTQ20 YES «, t00=0x00f3, t01=0x002e}
0x17bc8…17bdc               Head {h00=0x0010, h01=0x0050, text=»PUTQ10 EQU *«, t00=0x00f3, t01=0x0048}
0x17bdc…17c0e               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A4 CURRENT DWT ALREADY IN QUEUE ? «, t00=0x00f3, t01=0x005c}
0x17c0e…17c28               Head {h00=0x0016, h01=0x0050, text=» RF(E) PUTQ60 YES «, t00=0x00f3, t01=0x008e}
0x17c28…17c56               Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTOTQ,A4 GET DWT NEXT IN QUEUE«, t00=0x00f3, t01=0x00a8}
0x17c56…17c7e               Head {h00=0x0024, h01=0x0050, text=» RF(Z) PUTQ30 END OF QUEUE FOUND«, t00=0x00f3, t01=0x00d6}
0x17c7e…17ca2               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 FOLLOW THE QUEUE «, t00=0x00f3, t01=0x00fe}
0x17ca2…17cb4               Head {h00=0x000e, h01=0x0050, text=» RB PUTQ10«, t00=0x00f3, t01=0x0122}
0x17cb4…17cc8               Head {h00=0x0010, h01=0x0050, text=»PUTQ20 EQU *«, t00=0x00f3, t01=0x0134}
0x17cc8…17cf8               Head {h00=0x002c, h01=0x0050, text=» STR A6,A7 QUEUE DWT, IF QUEUE WAS EMPTY«, t00=0x00f3, t01=0x0148}
0x17cf8…17d0c               Head {h00=0x0010, h01=0x0050, text=» RF PUTQ40  «, t00=0x00f3, t01=0x0178}
0x17d0c…17d20               Head {h00=0x0010, h01=0x0050, text=»PUTQ30 EQU *«, t00=0x00f3, t01=0x018c}
0x17d20…17d5a               Head {h00=0x0036, h01=0x0050, text=» ST A6,DWTOTQ,A4 QUEUE DWT, IF QUEUE WAS NOT EMPTY«, t00=0x00f4, t01=0x0010}
0x17d5a…17d6e               Head {h00=0x0010, h01=0x0050, text=»PUTQ40 EQU *«, t00=0x00f4, t01=0x004a}
0x17d6e…17d94               Head {h00=0x0022, h01=0x0050, text=» CM DWTOTQ,A6 SET END OF QUEUE«, t00=0x00f4, t01=0x005e}
0x17d94…17da8               Head {h00=0x0010, h01=0x0050, text=»PUTQ60 EQU *«, t00=0x00f4, t01=0x0084}
0x17da8…17dbe               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00f4, t01=0x0098}
0x17dbe…17de8               Head {h00=0x0026, h01=0x0050, text=» ABL IHRTN RETURN IN INHIBIT MODE «, t00=0x00f4, t01=0x00ae}
0x17de8…17df4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f4, t01=0x00d8}
0x17df4…17e0a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00f4, t01=0x00e4}
0x17e0a…17e22               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00f4, t01=0x00fa}
0x17e22…17e2e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f4, t01=0x0112}
0x17e2e…17e3c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f4, t01=0x011e}
0x17e3c…17e46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x012c}
0x17e46…17e84               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00f4, t01=0x0136}
0x17e84…17e8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x0174}
0x17e8e…17ea4               Head {h00=0x0012, h01=0x0050, text=»* G E T Q U E «, t00=0x00f4, t01=0x017e}
0x17ea4…17eae (245, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0004}
0x17eae…17eec               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00f5, t01=0x000e}
0x17eec…17ef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x004c}
0x17ef6…17f00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0056}
0x17f00…17f1e               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,GETQUE «, t00=0x00f5, t01=0x0060}
0x17f1e…17f28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x007e}
0x17f28…17f5c               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00f5, t01=0x0088}
0x17f5c…17f66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x00bc}
0x17f66…17fa8               Head {h00=0x003e, h01=0x0050, text=»* FUNCTION:TO GET FIRST DWT FROM SCREEN ECHO OUTPUT QUEUE,«, t00=0x00f5, t01=0x00c6}
0x17fa8…17fd6               Head {h00=0x002a, h01=0x0050, text=»*  OR, IF ECHO OUTPUT QUEUE IS EMPTY, «, t00=0x00f5, t01=0x0108}
0x17fd6…17ffe               Head {h00=0x0024, h01=0x0050, text=»*  FROM SCREEN LKM OUTPUT QUEUE.«, t00=0x00f5, t01=0x0136}
0x17ffe…18008               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x015e}
0x18008…1802a               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A5 = CWT-ADDRESS «, t00=0x00f5, t01=0x0168}
0x1802a…18034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x018a}
0x18034…18072 (246, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A6 = DWT-ADDRESS (OR 0 IF NO DWT IN QUEUES) «, t00=0x00f6, t01=0x0004}
0x18072…1808c               Head {h00=0x0016, h01=0x0050, text=»*  A3 = DESTROYED «, t00=0x00f6, t01=0x0042}
0x1808c…18096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x005c}
0x18096…180d4               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00f6, t01=0x0066}
0x180d4…180de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x00a4}
0x180de…180f2               Head {h00=0x0010, h01=0x0050, text=»GETQUE EQU *«, t00=0x00f6, t01=0x00ae}
0x180f2…18130               Head {h00=0x003a, h01=0x0050, text=» LD A6,CWTSEQ,A5 GET FIRST DWT FROM ECHO OUTPUT QUEUE «, t00=0x00f6, t01=0x00c2}
0x18130…18156               Head {h00=0x0022, h01=0x0050, text=» RF(Z) GETQ10 ECHO QUEUE EMPTY«, t00=0x00f6, t01=0x0100}
0x18156…1817e               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOTQ,A6 GET QUEUE LINK «, t00=0x00f6, t01=0x0126}
0x1817e…181a8               Head {h00=0x0026, h01=0x0050, text=» ST A3,CWTSEQ,A5 STORE IT INTO CWT«, t00=0x00f6, t01=0x014e}
0x181a8…181bc               Head {h00=0x0010, h01=0x0050, text=» RF GETQ30  «, t00=0x00f6, t01=0x0178}
0x181bc…181d0               Head {h00=0x0010, h01=0x0050, text=»GETQ10 EQU *«, t00=0x00f6, t01=0x018c}
0x181d0…1820c               Head {h00=0x0038, h01=0x0050, text=» LD A6,CWTSLQ,A5 GET FIRST DWT FROM LKM OUTPUT QUEUE«, t00=0x00f7, t01=0x0010}
0x1820c…18236               Head {h00=0x0026, h01=0x0050, text=» RF(Z) GETQ30 ALSO LKM QUEUE EMPTY«, t00=0x00f7, t01=0x004c}
0x18236…1825e               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOTQ,A6 GET QUEUE LINK «, t00=0x00f7, t01=0x0076}
0x1825e…18288               Head {h00=0x0026, h01=0x0050, text=» ST A3,CWTSLQ,A5 STORE IT INTO CWT«, t00=0x00f7, t01=0x009e}
0x18288…1829c               Head {h00=0x0010, h01=0x0050, text=»GETQ30 EQU *«, t00=0x00f7, t01=0x00c8}
0x1829c…182b2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00f7, t01=0x00dc}
0x182b2…182dc               Head {h00=0x0026, h01=0x0050, text=» ABL IHRTN RETURN IN INHIBIT MODE «, t00=0x00f7, t01=0x00f2}
0x182dc…182e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x011c}
0x182e8…182fe               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00f7, t01=0x0128}
0x182fe…18316               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00f7, t01=0x013e}
0x18316…18322               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x0156}
0x18322…18330               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f7, t01=0x0162}
0x18330…1833a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0170}
0x1833a…18376               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00f7, t01=0x017a}
0x18376…18380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0026}
0x18380…183ae               Head {h00=0x002a, h01=0x0050, text=»* P E R I P H E R A L   S E C T I O N «, t00=0x00f8, t01=0x0030}
0x183ae…183d8               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00f8, t01=0x005e}
0x183d8…18408               Head {h00=0x002c, h01=0x0050, text=»* A C T I V A T I O N   R O U T I N E S «, t00=0x00f8, t01=0x0088}
0x18408…18412               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x00b8}
0x18412…18454               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00f8, t01=0x00c2}
0x18454…1845e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0104}
0x1845e…18492               Head {h00=0x0030, h01=0x0050, text=»* FOR THE PERIPHERAL SECTION OF THE VCCU1/4 «, t00=0x00f8, t01=0x010e}
0x18492…184be               Head {h00=0x0028, h01=0x0050, text=»* THIS DRIVER IS A LINE-DRIVER ONLY,«, t00=0x00f8, t01=0x0142}
0x184be…184fa               Head {h00=0x0038, h01=0x0050, text=»* WHICH IS USED BY SEPARATE TERMINAL DEVICE DRIVERS.«, t00=0x00f8, t01=0x016e}
0x184fa…18540               Head {h00=0x0042, h01=0x0050, text=»* BELOW APPEARS THOSE ACTIVATION ROUTINES WHICH ARE USING THE «, t00=0x00f9, t01=0x001a}
0x18540…1856c               Head {h00=0x0028, h01=0x0050, text=»* PERIPHERAL SECTION OF THE VCCU1/4.«, t00=0x00f9, t01=0x0060}
0x1856c…185b6               Head {h00=0x0046, h01=0x0050, text=»* THE ACTIVATION ROUTINES ARE CALLED FROM TERMINAL DEVICE DRIVERS «, t00=0x00f9, t01=0x008c}
0x185b6…185dc               Head {h00=0x0022, h01=0x0050, text=»* VIA THE NETWORK DISTRIBUTOR.«, t00=0x00f9, t01=0x00d6}
0x185dc…185e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00fc}
0x185e6…185f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0106}
0x185f0…18630               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00f9, t01=0x0110}
0x18630…1863a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0150}
0x1863a…18656               Head {h00=0x0018, h01=0x0050, text=»*   CHARACTER INPUT «, t00=0x00f9, t01=0x015a}
0x18656…18660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0176}
0x18660…18674               Head {h00=0x0010, h01=0x0050, text=»VUCHRI EQU *«, t00=0x00f9, t01=0x0180}
0x18674…18688 (250, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x00fa, t01=0x0004}
0x18688…186bc               Head {h00=0x0030, h01=0x0050, text=» ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT «, t00=0x00fa, t01=0x0018}
0x186bc…186ec               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x00fa, t01=0x004c}
0x186ec…18710               Head {h00=0x0020, h01=0x0050, text=» RF VUDISP VIDEO DISPATCHER «, t00=0x00fa, t01=0x007c}
0x18710…1871a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00a0}
0x1871a…18736               Head {h00=0x0018, h01=0x0050, text=»*   START OF A BLOCK«, t00=0x00fa, t01=0x00aa}
0x18736…18740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00c6}
0x18740…18754               Head {h00=0x0010, h01=0x0050, text=»VUSTBL EQU *«, t00=0x00fa, t01=0x00d0}
0x18754…1875e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00e4}
0x1875e…18778               Head {h00=0x0016, h01=0x0050, text=»*   END OF A BLOCK«, t00=0x00fa, t01=0x00ee}
0x18778…18782               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0108}
0x18782…18796               Head {h00=0x0010, h01=0x0050, text=»VUENBL EQU *«, t00=0x00fa, t01=0x0112}
0x18796…187d0               Head {h00=0x0036, h01=0x0050, text=» ABL NDRETO RETURN TO DEVICE DRIVER. STATUS = OK. «, t00=0x00fa, t01=0x0126}
0x187d0…187da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0160}
0x187da…187f6               Head {h00=0x0018, h01=0x0050, text=»*   VIDEO DISPATCHER«, t00=0x00fa, t01=0x016a}
0x187f6…18800               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0186}
0x18800…18814               Head {h00=0x0010, h01=0x0050, text=»VUDISP EQU *«, t00=0x00fa, t01=0x0190}
0x18814…18838               Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x00fb, t01=0x0014}
0x18838…18842               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0038}
0x18842…1884c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0042}
0x1884c…18868               Head {h00=0x0018, h01=0x0050, text=»*   CHARACTER OUTPUT«, t00=0x00fb, t01=0x004c}
0x18868…18872               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0068}
0x18872…18886               Head {h00=0x0010, h01=0x0050, text=»VUCHRO EQU *«, t00=0x00fb, t01=0x0072}
0x18886…18894               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x0086}
0x18894…1889e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0094}
0x1889e…188de               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00fb, t01=0x009e}
0x188de…188e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x00de}
0x188e8…188f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x00e8}
0x188f2…1890a               Head {h00=0x0014, h01=0x0050, text=»*    FUNCTIONS: «, t00=0x00fb, t01=0x00f2}
0x1890a…18914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x010a}
0x18914…18936               Head {h00=0x001e, h01=0x0050, text=»* 1. SAVE A1-A8 ONTO STACK«, t00=0x00fb, t01=0x0114}
0x18936…18956               Head {h00=0x001c, h01=0x0050, text=»* 2. INHIBIT INTERRUPTS «, t00=0x00fb, t01=0x0136}
0x18956…18978               Head {h00=0x001e, h01=0x0050, text=»* 3. COMPUTE CWT FROM DWT «, t00=0x00fb, t01=0x0156}
0x18978…189b6               Head {h00=0x003a, h01=0x0050, text=»* 4. TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY «, t00=0x00fb, t01=0x0178}
0x189b6…18a00               Head {h00=0x0046, h01=0x0050, text=»* 5.      IF NOT THEN TEST IF DWT IS ALREADY IN CWT OUTPUT QUEUE, «, t00=0x00fc, t01=0x0026}
0x18a00…18a38               Head {h00=0x0034, h01=0x0050, text=»*                         FOR PERIPHERAL SECTION«, t00=0x00fc, t01=0x0070}
0x18a38…18a84               Head {h00=0x0048, h01=0x0050, text=»*                          IF NOT THEN QUEUE THE DWT LAST IN QUEUE, «, t00=0x00fc, t01=0x00a8}
0x18a84…18ad0               Head {h00=0x0048, h01=0x0050, text=»*                           STORE OUTPUT-CHARACTER INTO QUEUED DWT, «, t00=0x00fc, t01=0x00f4}
0x18ad0…18b06               Head {h00=0x0032, h01=0x0050, text=»*                           AND THEN DISPATCH.«, t00=0x00fc, t01=0x0140}
0x18b06…18b30               Head {h00=0x0026, h01=0x0050, text=»*                           ELSE: «, t00=0x00fc, t01=0x0176}
0x18b30…18b7e               Head {h00=0x004a, h01=0x0050, text=»* 7.                        STORE OUTPUT-CHAR INTO ALREADY QUEUED DWT,«, t00=0x00fd, t01=0x0010}
0x18b7e…18bb4               Head {h00=0x0032, h01=0x0050, text=»*                           AND THEN DISPATCH.«, t00=0x00fd, t01=0x005e}
0x18bb4…18bd2               Head {h00=0x001a, h01=0x0050, text=»*                ELSE:«, t00=0x00fd, t01=0x0094}
0x18bd2…18c12               Head {h00=0x003c, h01=0x0050, text=»* 8.             PREPARE TO SEND THE CHAR TO THE CHANNEL«, t00=0x00fd, t01=0x00b2}
0x18c12…18c56               Head {h00=0x0040, h01=0x0050, text=»* 9.             TEST IF THE DWT IS FOR DEVICE ON PERIPHERAL«, t00=0x00fd, t01=0x00f2}
0x18c56…18c82               Head {h00=0x0028, h01=0x0050, text=»*                SECTION ON CHANNEL.«, t00=0x00fd, t01=0x0136}
0x18c82…18cb6               Head {h00=0x0030, h01=0x0050, text=»*                     IF NOT THEN NO OUTPUT,«, t00=0x00fd, t01=0x0162}
0x18cb6…18ce0               Head {h00=0x0026, h01=0x0050, text=»*                            ELSE:«, t00=0x00fe, t01=0x0008}
0x18ce0…18d1a               Head {h00=0x0036, h01=0x0050, text=»* 10.                           OUTPUT CHARACTER. «, t00=0x00fe, t01=0x0032}
0x18d1a…18d42               Head {h00=0x0024, h01=0x0050, text=»* 11.           IF OTR ACCEPTED «, t00=0x00fe, t01=0x006c}
0x18d42…18d86               Head {h00=0x0040, h01=0x0050, text=»*                      STORE INTO DWT THE CHAR BEING OUTPUT «, t00=0x00fe, t01=0x0094}
0x18d86…18dc4               Head {h00=0x003a, h01=0x0050, text=»*                         AND RETURN TO DEVICE DRIVER.«, t00=0x00fe, t01=0x00d8}
0x18dc4…18e02               Head {h00=0x003a, h01=0x0050, text=»* 12.            IF CHAR NOT ACCEPTED BY CHANNEL THEN «, t00=0x00fe, t01=0x0116}
0x18e02…18e46               Head {h00=0x0040, h01=0x0050, text=»*                         TEST IF CWT OUTPUT QUEUE IS EMPTY.«, t00=0x00fe, t01=0x0154}
0x18e46…18e74               Head {h00=0x002a, h01=0x0050, text=»*                         IF SO THEN: «, t00=0x00ff, t01=0x0008}
0x18e74…18e82               Head {h00=0x000a, h01=0x0050, text=»* 13. «, t00=0x00ff, t01=0x0036}
0x18e82…18eae               Head {h00=0x0028, h01=0x0050, text=»*                        START TIMER«, t00=0x00ff, t01=0x0044}
0x18eae…18efe               Head {h00=0x004c, h01=0x0050, text=»*                            AND SET OUTPUT QUEUE TIMER POINTER IN CWT. «, t00=0x00ff, t01=0x0070}
0x18efe…18f46               Head {h00=0x0044, h01=0x0050, text=»* 14.                        GO QUEUE DWT INTO CWT OUTPUT QUEUE «, t00=0x00ff, t01=0x00c0}
0x18f46…18f7e               Head {h00=0x0034, h01=0x0050, text=»*                            AND DISPATCH.(5-7) «, t00=0x00ff, t01=0x0108}
0x18f7e…18f88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0140}
0x18f88…18f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x014a}
0x18f92…18f9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0154}
0x18f9c…18fb4               Head {h00=0x0014, h01=0x0050, text=»*     ON ENTRY: «, t00=0x00ff, t01=0x015e}
0x18fb4…18fbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0176}
0x18fbe…18ff0               Head {h00=0x002e, h01=0x0050, text=»*     A2 = OUTPUT CHARACTER IN RIGHT BYTE «, t00=0x00ff, t01=0x0180}
0x18ff0…1900e               Head {h00=0x001a, h01=0x0050, text=»*     A6 = DWT-ADDRESS«, t00=0x0100, t01=0x0022}
0x1900e…19052               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0100, t01=0x0040}
0x19052…1905c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0084}
0x1905c…19066               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x008e}
0x19066…19070               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0098}
0x19070…1907e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0100, t01=0x00a2}
0x1907e…19092               Head {h00=0x0010, h01=0x0050, text=»OUTPER EQU *«, t00=0x0100, t01=0x00b0}
0x19092…190c2               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x0100, t01=0x00c4}
0x190c2…190cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x00f4}
0x190cc…190ea               Head {h00=0x001a, h01=0x0050, text=»* GET CWT FOR THIS DWT«, t00=0x0100, t01=0x00fe}
0x190ea…190f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x011c}
0x190f4…19114               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPT «, t00=0x0100, t01=0x0126}
0x19114…1913a               Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0100, t01=0x0146}
0x1913a…1915a               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/F CHANNEL INDEX«, t00=0x0100, t01=0x016c}
0x1915a…1916c               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0100, t01=0x018c}
0x1916c…1917e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0101, t01=0x000e}
0x1917e…191ae               Head {h00=0x002c, h01=0x0050, text=» LD A5,CWTTAB,A1 GET CWT-ADDRESS INTO A5«, t00=0x0101, t01=0x0020}
0x191ae…191d8               Head {h00=0x0026, h01=0x0050, text=» RB(Z) VUDISP  IF NO CWT: DISPATCH«, t00=0x0101, t01=0x0050}
0x191d8…191e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x007a}
0x191e2…1921c               Head {h00=0x0036, h01=0x0050, text=»* TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY«, t00=0x0101, t01=0x0084}
0x1921c…19226               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x00be}
0x19226…19256               Head {h00=0x002c, h01=0x0050, text=» LD A4,CWTPQ,A5 IS OUTPUT QUEUE EMPTY ? «, t00=0x0101, t01=0x00c8}
0x19256…1928c               Head {h00=0x0032, h01=0x0050, text=» RF(NZ) PER560 NO. THEN QUEUE DWT AND DISPATCH«, t00=0x0101, t01=0x00f8}
0x1928c…1929a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0101, t01=0x012e}
0x1929a…192a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x013c}
0x192a4…192ca               Head {h00=0x0022, h01=0x0050, text=»*    PREPARE TO SEND CHARACTER«, t00=0x0101, t01=0x0146}
0x192ca…192d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x016c}
0x192d4…192e8               Head {h00=0x0010, h01=0x0050, text=»PER500 EQU *«, t00=0x0101, t01=0x0176}
0x192e8…1931a               Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTCP2,A6 GET CHANNEL PARAMETERS 2 «, t00=0x0101, t01=0x018a}
0x1931a…1932c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0102, t01=0x002c}
0x1932c…1934e               Head {h00=0x001e, h01=0x0050, text=» ANK A3,/3 DEVICE ADDRESS «, t00=0x0102, t01=0x003e}
0x1934e…19358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0060}
0x19358…1939c               Head {h00=0x0040, h01=0x0050, text=»* TEST IF THE DEVICE IS ON THE PERIPHERAL SECTION OF CHANNEL«, t00=0x0102, t01=0x006a}
0x1939c…193a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00ae}
0x193a6…193cc               Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 DEVICE-ADDRESS = 0 ?«, t00=0x0102, t01=0x00b8}
0x193cc…193f2               Head {h00=0x0022, h01=0x0050, text=» RF(N) PER520 IF SO, NO OUTPUT«, t00=0x0102, t01=0x00de}
0x193f2…19418               Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 DEVICE-ADDRESS = 3 ?«, t00=0x0102, t01=0x0104}
0x19418…1943e               Head {h00=0x0022, h01=0x0050, text=» RF(Z) PER520 IF SO, NO OUTPUT«, t00=0x0102, t01=0x012a}
0x1943e…19448               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0150}
0x19448…1947a               Head {h00=0x002e, h01=0x0050, text=»* IF NOT POWER FAIL POST PROCESSING, THEN «, t00=0x0102, t01=0x015a}
0x1947a…1949e               Head {h00=0x0020, h01=0x0050, text=»* SEND CHARACTER TO CHANNEL «, t00=0x0102, t01=0x018c}
0x1949e…194a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x0020}
0x194a8…194d8               Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 COMPUTE DEVICE-ADDRESS FOR BIO«, t00=0x0103, t01=0x002a}
0x194d8…194ea               Head {h00=0x000e, h01=0x0050, text=» SRC A3,6 «, t00=0x0103, t01=0x005a}
0x194ea…19510               Head {h00=0x0022, h01=0x0050, text=» ANKL A4,/300 TERMINAL NUMBER «, t00=0x0103, t01=0x006c}
0x19510…19548               Head {h00=0x0034, h01=0x0050, text=» ORR A3,A4 COMBINE DEV.ADDR. AND TERMINAL NUMBER«, t00=0x0103, t01=0x0092}
0x19548…1955c               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0103, t01=0x00ca}
0x1955c…19580               Head {h00=0x0020, h01=0x0050, text=» ORR A2,A3 BIO IS READY-MADE«, t00=0x0103, t01=0x00de}
0x19580…195ba               Head {h00=0x0036, h01=0x0050, text=» LD A3,PFPOST GET POWER FAIL POST PROCESSING FLAG «, t00=0x0103, t01=0x0102}
0x195ba…195f8               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) PER510 FLAG SET: I/O-INSTRUCTIONS NOT ALLOWED.«, t00=0x0103, t01=0x013c}
0x195f8…19630               Head {h00=0x0034, h01=0x0050, text=» EX CWTOTP,A5 EXECUTE OTR ON PERIPHERAL SECTION «, t00=0x0103, t01=0x017a}
0x19630…19658               Head {h00=0x0024, h01=0x0050, text=» RF(NA) PER510 OTR NOT ACCEPTED «, t00=0x0104, t01=0x0022}
0x19658…19662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x004a}
0x19662…1967c               Head {h00=0x0016, h01=0x0050, text=»* OTR IS ACCEPTED.«, t00=0x0104, t01=0x0054}
0x1967c…196a6               Head {h00=0x0026, h01=0x0050, text=»* SAVE OUTPUT CHARACTER INTO DWT, «, t00=0x0104, t01=0x006e}
0x196a6…196ce               Head {h00=0x0024, h01=0x0050, text=»* THEN RETURN TO DEVICE DRIVER. «, t00=0x0104, t01=0x0098}
0x196ce…196d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x00c0}
0x196d8…196fc               Head {h00=0x0020, h01=0x0050, text=» SC A2,DWTOCH,A6 SAVE OUTPUT«, t00=0x0104, t01=0x00ca}
0x196fc…19736               Head {h00=0x0036, h01=0x0050, text=» ABL NDREPO POP REGISTERS,SET OK-STATUS AND RETURN«, t00=0x0104, t01=0x00ee}
0x19736…19740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x0128}
0x19740…1975e               Head {h00=0x001a, h01=0x0050, text=»* OTR IS NOT ACCEPTED.«, t00=0x0104, t01=0x0132}
0x1975e…1979a               Head {h00=0x0038, h01=0x0050, text=»* TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY. «, t00=0x0104, t01=0x0150}
0x1979a…197a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x018c}
0x197a4…197b8               Head {h00=0x0010, h01=0x0050, text=»PER510 EQU *«, t00=0x0105, t01=0x0008}
0x197b8…197e8               Head {h00=0x002c, h01=0x0050, text=» LD A4,CWTPQ,A5 IS OUTPUT QUEUE EMPTY ? «, t00=0x0105, t01=0x001c}
0x197e8…19826               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) PER560 NO. THEN ONLY QUEUE DWT, AND DISPATCH. «, t00=0x0105, t01=0x004c}
0x19826…19830               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x008a}
0x19830…19856               Head {h00=0x0022, h01=0x0050, text=»* OUTPUT QUEUE IS EMPTY, THEN «, t00=0x0105, t01=0x0094}
0x19856…19886               Head {h00=0x002c, h01=0x0050, text=»* 1.START TIMER (AND SET TIMER POINTER).«, t00=0x0105, t01=0x00ba}
0x19886…1989c               Head {h00=0x0012, h01=0x0050, text=»* 2.QUEUE DWT.«, t00=0x0105, t01=0x00ea}
0x1989c…198b0               Head {h00=0x0010, h01=0x0050, text=»* 3.DISPATCH«, t00=0x0105, t01=0x0100}
0x198b0…198ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0114}
0x198ba…198c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x011e}
0x198c4…198d8               Head {h00=0x0010, h01=0x0050, text=»PER520 EQU *«, t00=0x0105, t01=0x0128}
0x198d8…198fc               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,CWTTP TIMER POINTER«, t00=0x0105, t01=0x013c}
0x198fc…19924               Head {h00=0x0024, h01=0x0050, text=» ADR A4,A5 ADD WITH CWT-ADDRESS «, t00=0x0105, t01=0x0160}
0x19924…19958               Head {h00=0x0030, h01=0x0050, text=» LDR A1,A5 PARAMETER (=CWT-ADDRESS) INTO A1 «, t00=0x0105, t01=0x0188}
0x19958…1997e               Head {h00=0x0022, h01=0x0050, text=» CF A15,SETIMP GET TIMER BLOCK«, t00=0x0106, t01=0x002c}
0x1997e…199c0               Head {h00=0x003e, h01=0x0050, text=» DATA TIMOUT,QUETIM ADDRESS TO TIME-OUT ROUTINE AND DELAY «, t00=0x0106, t01=0x0052}
0x199c0…199f2               Head {h00=0x002e, h01=0x0050, text=» RF PER570 QUEUE DWT WHEN QUEUE WAS EMPTY «, t00=0x0106, t01=0x0094}
0x199f2…19a00               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x00c6}
0x19a00…19a0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00d4}
0x19a0a…19a24               Head {h00=0x0016, h01=0x0050, text=»*    QUEUE OUTPUT «, t00=0x0106, t01=0x00de}
0x19a24…19a62               Head {h00=0x003a, h01=0x0050, text=»* WHEN QUEUE NOT EMPTY (A4 POINTS TO FIRST QUEUED DWT)«, t00=0x0106, t01=0x00f8}
0x19a62…19a6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0136}
0x19a6c…19a84               Head {h00=0x0014, h01=0x0050, text=»PER560 CWR A6,A4«, t00=0x0106, t01=0x0140}
0x19a84…19ac2               Head {h00=0x003a, h01=0x0050, text=» RF(E) PER600 THIS DWT IS ALREADY IN PERIPHERAL QUEUE «, t00=0x0106, t01=0x0158}
0x19ac2…19afc               Head {h00=0x0036, h01=0x0050, text=» LD A3,DWTOTQ,A4 GET DWT NEXT IN PERIPHERAL QUEUE «, t00=0x0107, t01=0x0008}
0x19afc…19b24               Head {h00=0x0024, h01=0x0050, text=» RF(Z) PER580 END OF QUEUE FOUND«, t00=0x0107, t01=0x0042}
0x19b24…19b48               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 FOLLOW THE QUEUE «, t00=0x0107, t01=0x006a}
0x19b48…19b5a               Head {h00=0x000e, h01=0x0050, text=» RB PER560«, t00=0x0107, t01=0x008e}
0x19b5a…19b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00a0}
0x19b64…19b8e               Head {h00=0x0026, h01=0x0050, text=»* QUEUE OUTPUT WHEN QUEUE IS EMPTY«, t00=0x0107, t01=0x00aa}
0x19b8e…19b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00d4}
0x19b98…19bd4               Head {h00=0x0038, h01=0x0050, text=»PER570 ST A6,CWTPQ,A5 QUEUE DWT, IF QUEUE WAS EMPTY «, t00=0x0107, t01=0x00de}
0x19bd4…19be6               Head {h00=0x000e, h01=0x0050, text=» RF PER590«, t00=0x0107, t01=0x011a}
0x19be6…19c26               Head {h00=0x003c, h01=0x0050, text=»PER580 ST A6,DWTOTQ,A4 QUEUE DWT, IF QUEUE WAS NOT EMPTY«, t00=0x0107, t01=0x012c}
0x19c26…19c52               Head {h00=0x0028, h01=0x0050, text=»PER590 CM DWTOTQ,A6 SET END OF QUEUE«, t00=0x0107, t01=0x016c}
0x19c52…19c66               Head {h00=0x0010, h01=0x0050, text=»PER600 EQU *«, t00=0x0108, t01=0x0008}
0x19c66…19c98               Head {h00=0x002e, h01=0x0050, text=» SC A2,DWTOCH,A6 STORE CHARACTER INTO DWT «, t00=0x0108, t01=0x001c}
0x19c98…19cb4               Head {h00=0x0018, h01=0x0050, text=» RB VUDISP DISPATCH «, t00=0x0108, t01=0x004e}
0x19cb4…19cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x006a}
0x19cbe…19ccc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x0074}
0x19ccc…19cd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0082}
0x19cd6…19d0a               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0108, t01=0x008c}
0x19d0a…19d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x00c0}
0x19d14…19d42               Head {h00=0x002a, h01=0x0050, text=»* P E R I P H E R A L   S E C T I O N «, t00=0x0108, t01=0x00ca}
0x19d42…19d6c               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x0108, t01=0x00f8}
0x19d6c…19d98               Head {h00=0x0028, h01=0x0050, text=»* I N T E R R U P T   H A N D L E R «, t00=0x0108, t01=0x0122}
0x19d98…19da2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x014e}
0x19da2…19dd6               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0108, t01=0x0158}
0x19dd6…19de0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x018c}
0x19de0…19e14               Head {h00=0x0030, h01=0x0050, text=»* FOR THE PERIPHERAL SECTION OF THE VCCU1/4 «, t00=0x0109, t01=0x0008}
0x19e14…19e52               Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER IS A LINE DRIVER ONLY, WHICH IS USED BY «, t00=0x0109, t01=0x003c}
0x19e52…19e7e               Head {h00=0x0028, h01=0x0050, text=»* SEPARATE TERMINAL DEVICE DRIVERS. «, t00=0x0109, t01=0x007a}
0x19e7e…19eb6               Head {h00=0x0034, h01=0x0050, text=»* BELOW APPEARS THE INTERRUPT HANDLING ROUTINES,«, t00=0x0109, t01=0x00a6}
0x19eb6…19eec               Head {h00=0x0032, h01=0x0050, text=»* USING THE PERIPHERAL SECTION OF THE VCCU1/4.«, t00=0x0109, t01=0x00de}
0x19eec…19f14               Head {h00=0x0024, h01=0x0050, text=»* THE ROUTINES ARE OF TWO KINDS:«, t00=0x0109, t01=0x0114}
0x19f14…19f1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x013c}
0x19f1e…19f4c               Head {h00=0x002a, h01=0x0050, text=»* 1. INTERRUPT HANDLER FOR DATA INPUT.«, t00=0x0109, t01=0x0146}
0x19f4c…19f98               Head {h00=0x0048, h01=0x0050, text=»*    THEESE INTERRUPT ROUTINES ARE ENTERED VIA THE INTERRUPT VECTOR.«, t00=0x0109, t01=0x0174}
0x19f98…19fa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0030}
0x19fa2…19fd2               Head {h00=0x002c, h01=0x0050, text=»* 2. INTERRUPT HANDLER FOR DATA OUTPUT. «, t00=0x010a, t01=0x003a}
0x19fd2…1a020               Head {h00=0x004a, h01=0x0050, text=»*    THIS INTERRUPT ROUTINE IS ENTERED FROM THE MONITOR CLOCK ROUTINE,«, t00=0x010a, t01=0x006a}
0x1a020…1a042               Head {h00=0x001e, h01=0x0050, text=»*    AT SOFTWARE TIME-OUT.«, t00=0x010a, t01=0x00b8}
0x1a042…1a04c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x00da}
0x1a04c…1a05a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x00e4}
0x1a05a…1a064               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x00f2}
0x1a064…1a06e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x00fc}
0x1a06e…1a0aa               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x010a, t01=0x0106}
0x1a0aa…1a0d8               Head {h00=0x002a, h01=0x0050, text=»*   THIS IS THE INTERRUPT HANDLER FOR «, t00=0x010a, t01=0x0142}
0x1a0d8…1a114               Head {h00=0x0038, h01=0x0050, text=»*   DATA INPUT TO THE PERIPHERAL SECTION OF VCCU1/4.«, t00=0x010a, t01=0x0170}
0x1a114…1a154               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x010b, t01=0x001c}
0x1a154…1a15e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x005c}
0x1a15e…1a168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x0066}
0x1a168…1a172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x0070}
0x1a172…1a188               Head {h00=0x0012, h01=0x0050, text=»*    ENTERED: «, t00=0x010b, t01=0x007a}
0x1a188…1a1b0               Head {h00=0x0024, h01=0x0050, text=»*     VIA THE INTERRUPT VECTOR. «, t00=0x010b, t01=0x0090}
0x1a1b0…1a1ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x00b8}
0x1a1ba…1a1c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x00c2}
0x1a1c4…1a1f6               Head {h00=0x002e, h01=0x0050, text=»*    FUNCTIONS FOR EACH INTERRUPT ROUTINE:«, t00=0x010b, t01=0x00cc}
0x1a1f6…1a200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x00fe}
0x1a200…1a232               Head {h00=0x002e, h01=0x0050, text=»* 1. SAVE START ADDRESS OF ENTERED ROUTINE«, t00=0x010b, t01=0x0108}
0x1a232…1a254               Head {h00=0x001e, h01=0x0050, text=»* 2. SAVE A1-A8 ONTO STACK«, t00=0x010b, t01=0x013a}
0x1a254…1a28e               Head {h00=0x0036, h01=0x0050, text=»* 3. GET CWT-ADDRESS FOR ENTERED INTERRUPT ROUTINE«, t00=0x010b, t01=0x015c}
0x1a28e…1a2c0               Head {h00=0x002e, h01=0x0050, text=»* 4. GET THE DATA INPUT FROM CHANNEL UNIT «, t00=0x010c, t01=0x0008}
0x1a2c0…1a2e8               Head {h00=0x0024, h01=0x0050, text=»* 5. COMPUTE DWT FROM DATA INPUT«, t00=0x010c, t01=0x003a}
0x1a2e8…1a30e               Head {h00=0x0022, h01=0x0050, text=»*  IF NO DWT EXISTS THEN EXIT,«, t00=0x010c, t01=0x0062}
0x1a30e…1a31e               Head {h00=0x000c, h01=0x0050, text=»*  ELSE:«, t00=0x010c, t01=0x0088}
0x1a31e…1a348               Head {h00=0x0026, h01=0x0050, text=»* 6. TEST IF STATUS- OR DATA-INPUT«, t00=0x010c, t01=0x0098}
0x1a348…1a398               Head {h00=0x004c, h01=0x0050, text=»*    IF STATUS-INPUT: INCREMENT ERROR ACKUMULATOR IN CWT AND THEN EXIT, «, t00=0x010c, t01=0x00c2}
0x1a398…1a3aa               Head {h00=0x000e, h01=0x0050, text=»*    ELSE «, t00=0x010c, t01=0x0112}
0x1a3aa…1a3dc               Head {h00=0x002e, h01=0x0050, text=»* 7. TEST IF DWT BELONGS TO INPUT-DEVICE. «, t00=0x010c, t01=0x0124}
0x1a3dc…1a400               Head {h00=0x0020, h01=0x0050, text=»*         IF NOT THEN EXIT, «, t00=0x010c, t01=0x0156}
0x1a400…1a418               Head {h00=0x0014, h01=0x0050, text=»*         ELSE: «, t00=0x010c, t01=0x017a}
0x1a418…1a448 (269, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* 8.      TEST IF INPUT REQUESTED OR NOT«, t00=0x010d, t01=0x0004}
0x1a448…1a498               Head {h00=0x004c, h01=0x0050, text=»*    IF INPUT REQUESTED: RETURN TO DEVICE DRIVER VIA NETWORK DISTRIBUTOR«, t00=0x010d, t01=0x0034}
0x1a498…1a4b0               Head {h00=0x0014, h01=0x0050, text=»*         ELSE: «, t00=0x010d, t01=0x0084}
0x1a4b0…1a4f8               Head {h00=0x0044, h01=0x0050, text=»* 9.      TEST IF ANY INTERRUPT ROUTINE DEFINED FOR THIS DEVICE «, t00=0x010d, t01=0x009c}
0x1a4f8…1a520               Head {h00=0x0024, h01=0x0050, text=»*              IF NOT THEN EXIT «, t00=0x010d, t01=0x00e4}
0x1a520…1a53c               Head {h00=0x0018, h01=0x0050, text=»*             ELSE: «, t00=0x010d, t01=0x010c}
0x1a53c…1a574               Head {h00=0x0034, h01=0x0050, text=»*     ENTER DEVICE DEPENDANT INTERRUPT HANDLER. «, t00=0x010d, t01=0x0128}
0x1a574…1a57e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0160}
0x1a57e…1a588               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x016a}
0x1a588…1a592               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0174}
0x1a592…1a5a4               Head {h00=0x000e, h01=0x0050, text=»* ON EXIT:«, t00=0x010d, t01=0x017e}
0x1a5a4…1a5d8               Head {h00=0x0030, h01=0x0050, text=»*         A2 = INPUT CHARACTER IN RIGHT BYTE«, t00=0x010d, t01=0x0190}
0x1a5d8…1a5fa               Head {h00=0x001e, h01=0x0050, text=»*         A6 = DWT ADDRESS«, t00=0x010e, t01=0x0034}
0x1a5fa…1a604               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0056}
0x1a604…1a640               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x010e, t01=0x0060}
0x1a640…1a64a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x009c}
0x1a64a…1a654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x00a6}
0x1a654…1a692               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 1 «, t00=0x010e, t01=0x00b0}
0x1a692…1a69c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x00ee}
0x1a69c…1a6b0               Head {h00=0x0010, h01=0x0050, text=»IHPVU1 EQU *«, t00=0x010e, t01=0x00f8}
0x1a6b0…1a6c6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=1 «, t00=0x010e, t01=0x010c}
0x1a6c6…1a6da               Head {h00=0x0010, h01=0x0050, text=»IHPVU2 EQU *«, t00=0x010e, t01=0x0122}
0x1a6da…1a6ee               Head {h00=0x0010, h01=0x0050, text=»IHPVU3 EQU *«, t00=0x010e, t01=0x0136}
0x1a6ee…1a702               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x010e, t01=0x014a}
0x1a702…1a716               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x010e, t01=0x015e}
0x1a716…1a72a               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x010e, t01=0x0172}
0x1a72a…1a73e               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x010e, t01=0x0186}
0x1a73e…1a752               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x010f, t01=0x000a}
0x1a752…1a75e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010f, t01=0x001e}
0x1a75e…1a786               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x010f, t01=0x002a}
0x1a786…1a79c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x010f, t01=0x0052}
0x1a79c…1a7c6               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x010f, t01=0x0068}
0x1a7c6…1a7d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010f, t01=0x0092}
0x1a7d2…1a7dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x009e}
0x1a7dc…1a7f2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x010f, t01=0x00a8}
0x1a7f2…1a818               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x010f, t01=0x00be}
0x1a818…1a824               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010f, t01=0x00e4}
0x1a824…1a82e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x00f0}
0x1a82e…1a866               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU1 SET CWT-ADDRESS FOR VCCU1/4 NO 1«, t00=0x010f, t01=0x00fa}
0x1a866…1a87c               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=1 «, t00=0x010f, t01=0x0132}
0x1a87c…1a8aa               Head {h00=0x002a, h01=0x0050, text=» EX CWTINR,A5 EXECUTE INR INSTRUCTION «, t00=0x010f, t01=0x0148}
0x1a8aa…1a8b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x0176}
0x1a8b4…1a8c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010f, t01=0x0180}
0x1a8c0…1a8d6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x010f, t01=0x018c}
0x1a8d6…1a8e8               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0110, t01=0x0012}
0x1a8e8…1a8f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0024}
0x1a8f2…1a930               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 2 «, t00=0x0110, t01=0x002e}
0x1a930…1a93a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x006c}
0x1a93a…1a94e               Head {h00=0x0010, h01=0x0050, text=»IHPVU2 EQU *«, t00=0x0110, t01=0x0076}
0x1a94e…1a95a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0110, t01=0x008a}
0x1a95a…1a970               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x0110, t01=0x0096}
0x1a970…1a984               Head {h00=0x0010, h01=0x0050, text=»IHPVU3 EQU *«, t00=0x0110, t01=0x00ac}
0x1a984…1a998               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x0110, t01=0x00c0}
0x1a998…1a9ac               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0110, t01=0x00d4}
0x1a9ac…1a9c0               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0110, t01=0x00e8}
0x1a9c0…1a9d4               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0110, t01=0x00fc}
0x1a9d4…1a9e8               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0110, t01=0x0110}
0x1a9e8…1a9f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0110, t01=0x0124}
0x1a9f4…1aa0a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0110, t01=0x0130}
0x1aa0a…1aa32               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0110, t01=0x0146}
0x1aa32…1aa48               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0110, t01=0x016e}
0x1aa48…1aa72               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0110, t01=0x0184}
0x1aa72…1aa7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x001e}
0x1aa7e…1aa88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x002a}
0x1aa88…1aa9e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0111, t01=0x0034}
0x1aa9e…1aab4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0111, t01=0x004a}
0x1aab4…1aada               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0111, t01=0x0060}
0x1aada…1aae6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x0086}
0x1aae6…1aaf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0092}
0x1aaf0…1ab06               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0111, t01=0x009c}
0x1ab06…1ab3e               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU2 SET CWT-ADDRESS FOR VCCU1/4 NO 2«, t00=0x0111, t01=0x00b2}
0x1ab3e…1ab4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x00ea}
0x1ab4a…1ab60               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x0111, t01=0x00f6}
0x1ab60…1ab94               Head {h00=0x0030, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR-INSTRUCTION «, t00=0x0111, t01=0x010c}
0x1ab94…1ab9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0140}
0x1ab9e…1abaa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x014a}
0x1abaa…1abb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0156}
0x1abb4…1abca               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0111, t01=0x0160}
0x1abca…1abe0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0111, t01=0x0176}
0x1abe0…1abf2               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0111, t01=0x018c}
0x1abf2…1abfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x000e}
0x1abfc…1ac3a               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 3 «, t00=0x0112, t01=0x0018}
0x1ac3a…1ac44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0056}
0x1ac44…1ac58               Head {h00=0x0010, h01=0x0050, text=»IHPVU3 EQU *«, t00=0x0112, t01=0x0060}
0x1ac58…1ac64               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x0074}
0x1ac64…1ac7a               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x0112, t01=0x0080}
0x1ac7a…1ac8e               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x0112, t01=0x0096}
0x1ac8e…1aca2               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0112, t01=0x00aa}
0x1aca2…1acb6               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0112, t01=0x00be}
0x1acb6…1acca               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0112, t01=0x00d2}
0x1acca…1acde               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0112, t01=0x00e6}
0x1acde…1acea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x00fa}
0x1acea…1ad00               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0112, t01=0x0106}
0x1ad00…1ad16               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0112, t01=0x011c}
0x1ad16…1ad3e               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0112, t01=0x0132}
0x1ad3e…1ad54               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0112, t01=0x015a}
0x1ad54…1ad7e               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0112, t01=0x0170}
0x1ad7e…1ad8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x000a}
0x1ad8a…1ad94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0016}
0x1ad94…1adaa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0113, t01=0x0020}
0x1adaa…1adc0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0113, t01=0x0036}
0x1adc0…1add6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0113, t01=0x004c}
0x1add6…1adfc               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0113, t01=0x0062}
0x1adfc…1ae08               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x0088}
0x1ae08…1ae12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0094}
0x1ae12…1ae28               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0113, t01=0x009e}
0x1ae28…1ae3e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0113, t01=0x00b4}
0x1ae3e…1ae76               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU3 SET CWT-ADDRESS FOR VCCU1/4 NO 3«, t00=0x0113, t01=0x00ca}
0x1ae76…1ae82               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x0102}
0x1ae82…1ae98               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x0113, t01=0x010e}
0x1ae98…1aec0               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x0113, t01=0x0124}
0x1aec0…1aeca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x014c}
0x1aeca…1aed6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x0156}
0x1aed6…1aeec               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0113, t01=0x0162}
0x1aeec…1af02               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0113, t01=0x0178}
0x1af02…1af18               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0113, t01=0x018e}
0x1af18…1af2a               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0114, t01=0x0014}
0x1af2a…1af68               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 4 «, t00=0x0114, t01=0x0026}
0x1af68…1af72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x0064}
0x1af72…1af86               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x0114, t01=0x006e}
0x1af86…1af92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0114, t01=0x0082}
0x1af92…1afa8               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x0114, t01=0x008e}
0x1afa8…1afbc               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0114, t01=0x00a4}
0x1afbc…1afd0               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0114, t01=0x00b8}
0x1afd0…1afe4               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0114, t01=0x00cc}
0x1afe4…1aff8               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0114, t01=0x00e0}
0x1aff8…1b004               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0114, t01=0x00f4}
0x1b004…1b01a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0114, t01=0x0100}
0x1b01a…1b030               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0114, t01=0x0116}
0x1b030…1b046               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0114, t01=0x012c}
0x1b046…1b06e               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0114, t01=0x0142}
0x1b06e…1b084               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0114, t01=0x016a}
0x1b084…1b0ae               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0114, t01=0x0180}
0x1b0ae…1b0ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x001a}
0x1b0ba…1b0c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0026}
0x1b0c4…1b0da               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0115, t01=0x0030}
0x1b0da…1b0f0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0115, t01=0x0046}
0x1b0f0…1b106               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0115, t01=0x005c}
0x1b106…1b11c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0115, t01=0x0072}
0x1b11c…1b142               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0115, t01=0x0088}
0x1b142…1b14e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x00ae}
0x1b14e…1b158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x00ba}
0x1b158…1b16e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0115, t01=0x00c4}
0x1b16e…1b184               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0115, t01=0x00da}
0x1b184…1b19a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0115, t01=0x00f0}
0x1b19a…1b1d2               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU4 SET CWT-ADDRESS FOR VCCU1/4 NO 4«, t00=0x0115, t01=0x0106}
0x1b1d2…1b1de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x013e}
0x1b1de…1b1f4               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x0115, t01=0x014a}
0x1b1f4…1b21c               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x0115, t01=0x0160}
0x1b21c…1b228               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x0188}
0x1b228…1b23e (278, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0116, t01=0x0004}
0x1b23e…1b254               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0116, t01=0x001a}
0x1b254…1b26a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0116, t01=0x0030}
0x1b26a…1b280               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0116, t01=0x0046}
0x1b280…1b292               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0116, t01=0x005c}
0x1b292…1b29c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x006e}
0x1b29c…1b2d8               Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OV VCCU1/4 NO 5 «, t00=0x0116, t01=0x0078}
0x1b2d8…1b2e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x00b4}
0x1b2e2…1b2f6               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0116, t01=0x00be}
0x1b2f6…1b302               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0116, t01=0x00d2}
0x1b302…1b318               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x0116, t01=0x00de}
0x1b318…1b32c               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0116, t01=0x00f4}
0x1b32c…1b340               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0116, t01=0x0108}
0x1b340…1b354               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0116, t01=0x011c}
0x1b354…1b360               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0116, t01=0x0130}
0x1b360…1b376               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0116, t01=0x013c}
0x1b376…1b38c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0116, t01=0x0152}
0x1b38c…1b3a2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0116, t01=0x0168}
0x1b3a2…1b3b8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0116, t01=0x017e}
0x1b3b8…1b3e0 (279, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0117, t01=0x0004}
0x1b3e0…1b3f6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0117, t01=0x002c}
0x1b3f6…1b422               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x0117, t01=0x0042}
0x1b422…1b42e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x006e}
0x1b42e…1b438               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x007a}
0x1b438…1b44e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0117, t01=0x0084}
0x1b44e…1b464               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0117, t01=0x009a}
0x1b464…1b47a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0117, t01=0x00b0}
0x1b47a…1b490               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0117, t01=0x00c6}
0x1b490…1b4a6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0117, t01=0x00dc}
0x1b4a6…1b4ce               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x0117, t01=0x00f2}
0x1b4ce…1b4da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x011a}
0x1b4da…1b4e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0126}
0x1b4e4…1b4fa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0117, t01=0x0130}
0x1b4fa…1b510               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0117, t01=0x0146}
0x1b510…1b526               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0117, t01=0x015c}
0x1b526…1b53c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0117, t01=0x0172}
0x1b53c…1b574               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU5 SET CWT-ADDRESS FOR VCCU1/4 NO 5«, t00=0x0117, t01=0x0188}
0x1b574…1b580               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x0030}
0x1b580…1b596               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x0118, t01=0x003c}
0x1b596…1b5be               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x0118, t01=0x0052}
0x1b5be…1b5ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x007a}
0x1b5ca…1b5e0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0118, t01=0x0086}
0x1b5e0…1b5f6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0118, t01=0x009c}
0x1b5f6…1b60c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0118, t01=0x00b2}
0x1b60c…1b622               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0118, t01=0x00c8}
0x1b622…1b638               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0118, t01=0x00de}
0x1b638…1b64a               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0118, t01=0x00f4}
0x1b64a…1b654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x0106}
0x1b654…1b690               Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 6 «, t00=0x0118, t01=0x0110}
0x1b690…1b69a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x014c}
0x1b69a…1b6ae               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0118, t01=0x0156}
0x1b6ae…1b6ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x016a}
0x1b6ba…1b6d0               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x0118, t01=0x0176}
0x1b6d0…1b6e4               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0118, t01=0x018c}
0x1b6e4…1b6f8               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0119, t01=0x0010}
0x1b6f8…1b704               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x0024}
0x1b704…1b71a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0119, t01=0x0030}
0x1b71a…1b730               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0119, t01=0x0046}
0x1b730…1b746               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0119, t01=0x005c}
0x1b746…1b75c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0119, t01=0x0072}
0x1b75c…1b772               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0119, t01=0x0088}
0x1b772…1b79a               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0119, t01=0x009e}
0x1b79a…1b7b0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0119, t01=0x00c6}
0x1b7b0…1b7dc               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x0119, t01=0x00dc}
0x1b7dc…1b7e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x0108}
0x1b7e8…1b7f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0114}
0x1b7f2…1b808               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0119, t01=0x011e}
0x1b808…1b81e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0119, t01=0x0134}
0x1b81e…1b834               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0119, t01=0x014a}
0x1b834…1b84a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0119, t01=0x0160}
0x1b84a…1b860               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0119, t01=0x0176}
0x1b860…1b876               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0119, t01=0x018c}
0x1b876…1b89e               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x011a, t01=0x0012}
0x1b89e…1b8aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011a, t01=0x003a}
0x1b8aa…1b8b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x0046}
0x1b8b4…1b8ca               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011a, t01=0x0050}
0x1b8ca…1b8e0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011a, t01=0x0066}
0x1b8e0…1b8f6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011a, t01=0x007c}
0x1b8f6…1b90c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011a, t01=0x0092}
0x1b90c…1b922               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011a, t01=0x00a8}
0x1b922…1b95a               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6«, t00=0x011a, t01=0x00be}
0x1b95a…1b966               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011a, t01=0x00f6}
0x1b966…1b97c               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x011a, t01=0x0102}
0x1b97c…1b9a4               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x011a, t01=0x0118}
0x1b9a4…1b9b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011a, t01=0x0140}
0x1b9b0…1b9c6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011a, t01=0x014c}
0x1b9c6…1b9dc               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011a, t01=0x0162}
0x1b9dc…1b9f2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011a, t01=0x0178}
0x1b9f2…1ba08               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011a, t01=0x018e}
0x1ba08…1ba1e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011b, t01=0x0014}
0x1ba1e…1ba34               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011b, t01=0x002a}
0x1ba34…1ba46               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x011b, t01=0x0040}
0x1ba46…1ba50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0052}
0x1ba50…1ba8c               Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 7 «, t00=0x011b, t01=0x005c}
0x1ba8c…1ba96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0098}
0x1ba96…1baaa               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x011b, t01=0x00a2}
0x1baaa…1bab6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x00b6}
0x1bab6…1bacc               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x011b, t01=0x00c2}
0x1bacc…1bae0               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x011b, t01=0x00d8}
0x1bae0…1baec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x00ec}
0x1baec…1bb02               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011b, t01=0x00f8}
0x1bb02…1bb18               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011b, t01=0x010e}
0x1bb18…1bb2e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011b, t01=0x0124}
0x1bb2e…1bb44               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011b, t01=0x013a}
0x1bb44…1bb5a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011b, t01=0x0150}
0x1bb5a…1bb70               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011b, t01=0x0166}
0x1bb70…1bb98               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x011b, t01=0x017c}
0x1bb98…1bbae               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x011c, t01=0x0014}
0x1bbae…1bbda               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x011c, t01=0x002a}
0x1bbda…1bbe6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x0056}
0x1bbe6…1bbf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x0062}
0x1bbf0…1bc06               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011c, t01=0x006c}
0x1bc06…1bc1c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011c, t01=0x0082}
0x1bc1c…1bc32               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011c, t01=0x0098}
0x1bc32…1bc48               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011c, t01=0x00ae}
0x1bc48…1bc5e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011c, t01=0x00c4}
0x1bc5e…1bc74               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011c, t01=0x00da}
0x1bc74…1bc8a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x011c, t01=0x00f0}
0x1bc8a…1bcb2               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x011c, t01=0x0106}
0x1bcb2…1bcbe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x012e}
0x1bcbe…1bcc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x013a}
0x1bcc8…1bcde               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011c, t01=0x0144}
0x1bcde…1bcf4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011c, t01=0x015a}
0x1bcf4…1bd0a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011c, t01=0x0170}
0x1bd0a…1bd20               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011c, t01=0x0186}
0x1bd20…1bd36               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011d, t01=0x000c}
0x1bd36…1bd4c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011d, t01=0x0022}
0x1bd4c…1bd84               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU7 SET CWT-ADDRESS FOR VCCU1/4 NO 7«, t00=0x011d, t01=0x0038}
0x1bd84…1bd90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x0070}
0x1bd90…1bda6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x011d, t01=0x007c}
0x1bda6…1bdce               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x011d, t01=0x0092}
0x1bdce…1bdda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x00ba}
0x1bdda…1bdf0               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x011d, t01=0x00c6}
0x1bdf0…1be02               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x011d, t01=0x00dc}
0x1be02…1be0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00ee}
0x1be0c…1be48               Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 8 «, t00=0x011d, t01=0x00f8}
0x1be48…1be52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x0134}
0x1be52…1be66               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x011d, t01=0x013e}
0x1be66…1be8e               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x011d, t01=0x0152}
0x1be8e…1bea4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x011d, t01=0x017a}
0x1bea4…1bed0               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x011d, t01=0x0190}
0x1bed0…1bedc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011e, t01=0x002c}
0x1bedc…1bee6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0038}
0x1bee6…1befc               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x011e, t01=0x0042}
0x1befc…1bf12               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x011e, t01=0x0058}
0x1bf12…1bf3a               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x011e, t01=0x006e}
0x1bf3a…1bf46               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011e, t01=0x0096}
0x1bf46…1bf50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x00a2}
0x1bf50…1bf66               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x011e, t01=0x00ac}
0x1bf66…1bf9e               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8«, t00=0x011e, t01=0x00c2}
0x1bf9e…1bfc6               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x011e, t01=0x00fa}
0x1bfc6…1bfd2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011e, t01=0x0122}
0x1bfd2…1bfe0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x012e}
0x1bfe0…1bfea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x013c}
0x1bfea…1bff4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0146}
0x1bff4…1c036               Head {h00=0x003e, h01=0x0050, text=»* DETERMINE FROM INPUT: TERMINAL NUMBER AND DEVICE ADDRESS«, t00=0x011e, t01=0x0150}
0x1c036…1c058 (287, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* THEN COMPUTE DWT-ADDRESS«, t00=0x011f, t01=0x0004}
0x1c058…1c062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x0026}
0x1c062…1c08a               Head {h00=0x0024, h01=0x0050, text=» LDR A6,A2 GET INPUT-WORD (BIO) «, t00=0x011f, t01=0x0030}
0x1c08a…1c0c2               Head {h00=0x0034, h01=0x0050, text=» ANKL A6,TERMNR GET TERMINAL NBR WITHIN CHANNEL «, t00=0x011f, t01=0x0058}
0x1c0c2…1c0d4               Head {h00=0x000e, h01=0x0050, text=» SRL A6,8 «, t00=0x011f, t01=0x0090}
0x1c0d4…1c0f6               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A2 GET INPUT WORD «, t00=0x011f, t01=0x00a2}
0x1c0f6…1c12e               Head {h00=0x0034, h01=0x0050, text=» ANKL A7,DEVADR GET DEVICE ADDR WITHIN TERMINAL «, t00=0x011f, t01=0x00c4}
0x1c12e…1c142               Head {h00=0x0010, h01=0x0050, text=» SRL A7,/A  «, t00=0x011f, t01=0x00fc}
0x1c142…1c154               Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x011f, t01=0x0110}
0x1c154…1c18c               Head {h00=0x0034, h01=0x0050, text=» LD* A1,CWTITA,A5 GET ADDR TO WORKSTATION TABLE «, t00=0x011f, t01=0x0122}
0x1c18c…1c1ba               Head {h00=0x002a, h01=0x0050, text=» CF A15,NDGEDW GET DWT ADDRESS INTO A6«, t00=0x011f, t01=0x015a}
0x1c1ba…1c1e0               Head {h00=0x0022, h01=0x0050, text=» ADK A6,0 DWT ADDRESS FOUND ? «, t00=0x011f, t01=0x0188}
0x1c1e0…1c204               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) VUDISP NO. THEN EXIT«, t00=0x0120, t01=0x001e}
0x1c204…1c20e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0042}
0x1c20e…1c236               Head {h00=0x0024, h01=0x0050, text=»* TEST IF STATUS- OR DATA-INPUT «, t00=0x0120, t01=0x004c}
0x1c236…1c240               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0074}
0x1c240…1c262               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE INPUT-WORD«, t00=0x0120, t01=0x007e}
0x1c262…1c28a               Head {h00=0x0024, h01=0x0050, text=» ANK A2,INDATA CLEAN INPUT-WORD «, t00=0x0120, t01=0x00a0}
0x1c28a…1c2b0               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,INSTAT STATUS INPUT ?«, t00=0x0120, t01=0x00c8}
0x1c2b0…1c2c8               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IHP150 NO«, t00=0x0120, t01=0x00ee}
0x1c2c8…1c2d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0106}
0x1c2d2…1c2ea               Head {h00=0x0014, h01=0x0050, text=»* STATUS  INPUT «, t00=0x0120, t01=0x0110}
0x1c2ea…1c2f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0128}
0x1c2f4…1c320               Head {h00=0x0028, h01=0x0050, text=» IM CWTACK,A5 INCR ERROR ACKUMULATOR«, t00=0x0120, t01=0x0132}
0x1c320…1c338               Head {h00=0x0014, h01=0x0050, text=» ABL VUDISP EXIT«, t00=0x0120, t01=0x015e}
0x1c338…1c342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0176}
0x1c342…1c356               Head {h00=0x0010, h01=0x0050, text=»* DATA INPUT«, t00=0x0120, t01=0x0180}
0x1c356…1c360 (289, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0004}
0x1c360…1c374               Head {h00=0x0010, h01=0x0050, text=»IHP150 EQU *«, t00=0x0121, t01=0x000e}
0x1c374…1c39a               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTST,A6 DEVICE STATUS «, t00=0x0121, t01=0x0022}
0x1c39a…1c3cc               Head {h00=0x002e, h01=0x0050, text=» ANK A7,/60 MASK INPUT DEV. AND INPUT REQ.«, t00=0x0121, t01=0x0048}
0x1c3cc…1c3e0               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/40 «, t00=0x0121, t01=0x007a}
0x1c3e0…1c418               Head {h00=0x0034, h01=0x0050, text=» RF(Z) IHP160 INPUT DEV. BUT NO INPUT REQUESTED «, t00=0x0121, t01=0x008e}
0x1c418…1c44a               Head {h00=0x002e, h01=0x0050, text=» ABL(N) VUDISP NO INPUT-DEVICE. THEN EXIT.«, t00=0x0121, t01=0x00c6}
0x1c44a…1c454               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00f8}
0x1c454…1c47e               Head {h00=0x0026, h01=0x0050, text=»* INPUT DEV. WITH INPUT REQUESTED «, t00=0x0121, t01=0x0102}
0x1c47e…1c488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x012c}
0x1c488…1c49e               Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/FFDF«, t00=0x0121, t01=0x0136}
0x1c49e…1c4d4               Head {h00=0x0032, h01=0x0050, text=» ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' «, t00=0x0121, t01=0x014c}
0x1c4d4…1c50a               Head {h00=0x0032, h01=0x0050, text=» LDK A1,0 RESET INDICATOR OF MORE THAN 1 CHAR «, t00=0x0121, t01=0x0182}
0x1c50a…1c534               Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x0122, t01=0x0028}
0x1c534…1c53e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0052}
0x1c53e…1c548               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x005c}
0x1c548…1c57c               Head {h00=0x0030, h01=0x0050, text=»*   GO TO INTERRUPT ROUTINE OF DEVICE DRIVER«, t00=0x0122, t01=0x0066}
0x1c57c…1c586               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x009a}
0x1c586…1c59a               Head {h00=0x0010, h01=0x0050, text=»IHP160 EQU *«, t00=0x0122, t01=0x00a4}
0x1c59a…1c5c0               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS BLOCK«, t00=0x0122, t01=0x00b8}
0x1c5c0…1c5f2               Head {h00=0x002e, h01=0x0050, text=» LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? «, t00=0x0122, t01=0x00de}
0x1c5f2…1c61c               Head {h00=0x0026, h01=0x0050, text=» ABL(Z) VUDISP NO, SKIP CHARACTER «, t00=0x0122, t01=0x0110}
0x1c61c…1c63a               Head {h00=0x001a, h01=0x0050, text=» LDR A5,A6 DWT ADDRESS«, t00=0x0122, t01=0x013a}
0x1c63a…1c65c               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x0122, t01=0x0158}
0x1c65c…1c68a               Head {h00=0x002a, h01=0x0050, text=» ABR A1 DEVICE DRIVER INTERRUPT ENTRY «, t00=0x0122, t01=0x017a}
0x1c68a…1c698               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0123, t01=0x0018}
0x1c698…1c6a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0026}
0x1c6a2…1c6d4               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0123, t01=0x0030}
0x1c6d4…1c702               Head {h00=0x002a, h01=0x0050, text=»*   THIS IS THE INTERRUPT HANDLER FOR «, t00=0x0123, t01=0x0062}
0x1c702…1c744               Head {h00=0x003e, h01=0x0050, text=»*   DATA OUTPUT TO THE PERIPHERAL SECTION OF THE VCCU1/4. «, t00=0x0123, t01=0x0090}
0x1c744…1c782               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0123, t01=0x00d2}
0x1c782…1c78c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0110}
0x1c78c…1c796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x011a}
0x1c796…1c7a8               Head {h00=0x000e, h01=0x0050, text=»* ENTERED:«, t00=0x0123, t01=0x0124}
0x1c7a8…1c7e6               Head {h00=0x003a, h01=0x0050, text=»*              VIA THE MONITOR CLOCK TIME-OUT ROUTINE.«, t00=0x0123, t01=0x0136}
0x1c7e6…1c7f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0174}
0x1c7f0…1c7fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x017e}
0x1c7fa…1c812               Head {h00=0x0014, h01=0x0050, text=»*    FUNCTIONS: «, t00=0x0123, t01=0x0188}
0x1c812…1c81c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x0010}
0x1c81c…1c86c               Head {h00=0x004c, h01=0x0050, text=»* 1. GET FIRST QUEUED DWT FOR PERIPHERAL SECTION OUTPUT PART OF THIS CWT«, t00=0x0124, t01=0x001a}
0x1c86c…1c88e               Head {h00=0x001e, h01=0x0050, text=»*    IF QUEUE EMPTY THEN: «, t00=0x0124, t01=0x006a}
0x1c88e…1c8c4               Head {h00=0x0032, h01=0x0050, text=»* 2. RESET OUTPUT QUEUE TIMER POINTER IN CWT, «, t00=0x0124, t01=0x008c}
0x1c8c4…1c8e6               Head {h00=0x001e, h01=0x0050, text=»*            AND DISPATCH.«, t00=0x0124, t01=0x00c2}
0x1c8e6…1c904               Head {h00=0x001a, h01=0x0050, text=»*                ELSE:«, t00=0x0124, t01=0x00e4}
0x1c904…1c954               Head {h00=0x004c, h01=0x0050, text=»* 3.             GET,FROM THAT FIRST QUEUED DWT, THE CHAR TO BE OUTPUT, «, t00=0x0124, t01=0x0102}
0x1c954…1c9a4               Head {h00=0x004c, h01=0x0050, text=»*                REMOVE THE DWT FROM CWT PERIPHERAL SECTION OUTPUT QUEUE«, t00=0x0124, t01=0x0152}
0x1c9a4…1c9de               Head {h00=0x0036, h01=0x0050, text=»*               IF OUTPUT QUEUE IS STILL NOT EMPTY«, t00=0x0125, t01=0x0012}
0x1c9de…1ca08               Head {h00=0x0026, h01=0x0050, text=»*             THEN:  RESTART TIMER«, t00=0x0125, t01=0x004c}
0x1ca08…1ca26               Head {h00=0x001a, h01=0x0050, text=»*               ELSE: «, t00=0x0125, t01=0x0076}
0x1ca26…1ca32               Head {h00=0x0008, h01=0x0050, text=»* 4.«, t00=0x0125, t01=0x0094}
0x1ca32…1ca74               Head {h00=0x003e, h01=0x0050, text=»*                 RESET OUTPUT QUEUE TIMER POINTER IN CWT.«, t00=0x0125, t01=0x00a0}
0x1ca74…1ca9a               Head {h00=0x0022, h01=0x0050, text=»* 5.      GO OUTPUT CHARACTER.«, t00=0x0125, t01=0x00e2}
0x1ca9a…1caa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0108}
0x1caa4…1caae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0112}
0x1caae…1cac4               Head {h00=0x0012, h01=0x0050, text=»*   ON ENTRY: «, t00=0x0125, t01=0x011c}
0x1cac4…1caf4               Head {h00=0x002c, h01=0x0050, text=»*  A1 = TIME-OUT PARAMETER (CWT-ADDRESS)«, t00=0x0125, t01=0x0132}
0x1caf4…1cafe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0162}
0x1cafe…1cb14               Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x0125, t01=0x016c}
0x1cb14…1cb3a               Head {h00=0x0022, h01=0x0050, text=»* A2 = CHARACTER TO BE OUTPUT «, t00=0x0125, t01=0x0182}
0x1cb3a…1cb54               Head {h00=0x0016, h01=0x0050, text=»* A5 = CWT ADDRESS«, t00=0x0126, t01=0x0018}
0x1cb54…1cb6e               Head {h00=0x0016, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0126, t01=0x0032}
0x1cb6e…1cb78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x004c}
0x1cb78…1cbae               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0126, t01=0x0056}
0x1cbae…1cbb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x008c}
0x1cbb8…1cbcc               Head {h00=0x0010, h01=0x0050, text=»TIMOUT EQU *«, t00=0x0126, t01=0x0096}
0x1cbcc…1cbf2               Head {h00=0x0022, h01=0x0050, text=» LDR A5,A1 CWT-ADDRESS INTO A5«, t00=0x0126, t01=0x00aa}
0x1cbf2…1cbfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00d0}
0x1cbfc…1cc3c               Head {h00=0x003c, h01=0x0050, text=»*    CHECK PERIPHERAL SECTION  OUTPUT QUEUE FOR THIS CWT«, t00=0x0126, t01=0x00da}
0x1cc3c…1cc46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x011a}
0x1cc46…1cc7c               Head {h00=0x0032, h01=0x0050, text=» LD A6,CWTPQ,A5 GET NEXT DWT FROM OUTPUT QUEUE«, t00=0x0126, t01=0x0124}
0x1cc7c…1cca2               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TIM200 QUEUE NOT EMPTY«, t00=0x0126, t01=0x015a}
0x1cca2…1ccac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0180}
0x1ccac…1ccee               Head {h00=0x003e, h01=0x0050, text=»* PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY AT THE TIMEOUT!«, t00=0x0126, t01=0x018a}
0x1ccee…1ccf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x003c}
0x1ccf8…1cd2a               Head {h00=0x002e, h01=0x0050, text=» CM CWTTP,A5 RESET POINTER TO TIMER BLOCK «, t00=0x0127, t01=0x0046}
0x1cd2a…1cd46               Head {h00=0x0018, h01=0x0050, text=» ABL VUDISP DISPATCH«, t00=0x0127, t01=0x0078}
0x1cd46…1cd50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0094}
0x1cd50…1cd96               Head {h00=0x0042, h01=0x0050, text=»* PERIPHERAL SECTION OUTPUT QUEUE IS NOT EMPTY AT THE TIMEOUT.«, t00=0x0127, t01=0x009e}
0x1cd96…1cdce               Head {h00=0x0034, h01=0x0050, text=»* GET QUEUED DWT AND TEST IF QUEUE IS EMPTY NOW.«, t00=0x0127, t01=0x00e4}
0x1cdce…1cdd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x011c}
0x1cdd8…1cdec               Head {h00=0x0010, h01=0x0050, text=»TIM200 EQU *«, t00=0x0127, t01=0x0126}
0x1cdec…1ce14               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOTQ,A6 GET QUEUE LINK «, t00=0x0127, t01=0x013a}
0x1ce14…1ce3e               Head {h00=0x0026, h01=0x0050, text=» ST A3,CWTPQ,A5 STORE IT INTO CWT «, t00=0x0127, t01=0x0162}
0x1ce3e…1ce66               Head {h00=0x0024, h01=0x0050, text=» RF(Z) TIM210 NOW QUEUE IS EMPTY«, t00=0x0127, t01=0x018c}
0x1ce66…1ce70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0024}
0x1ce70…1cea0               Head {h00=0x002c, h01=0x0050, text=»* QUEUE STILL NOT EMPTY: RESTART TIMER. «, t00=0x0128, t01=0x002e}
0x1cea0…1ceaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x005e}
0x1ceaa…1ced0               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,-QUETIM TIMEOUT VALUE«, t00=0x0128, t01=0x0068}
0x1ced0…1cefa               Head {h00=0x0026, h01=0x0050, text=» ST* A3,CWTTP,A5 INTO TIMER BLOCK «, t00=0x0128, t01=0x008e}
0x1cefa…1cf24               Head {h00=0x0026, h01=0x0050, text=» RF TIM220 GO OUTPUT ONE CHARACTER«, t00=0x0128, t01=0x00b8}
0x1cf24…1cf2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00e2}
0x1cf2e…1cf4a               Head {h00=0x0018, h01=0x0050, text=»* NOW QUEUE IS EMPTY«, t00=0x0128, t01=0x00ec}
0x1cf4a…1cf54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0108}
0x1cf54…1cf68               Head {h00=0x0010, h01=0x0050, text=»TIM210 EQU *«, t00=0x0128, t01=0x0112}
0x1cf68…1cf9a               Head {h00=0x002e, h01=0x0050, text=» CM CWTTP,A5 RESET POINTER TO TIMER BLOCK «, t00=0x0128, t01=0x0126}
0x1cf9a…1cfa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0158}
0x1cfa4…1cfc8               Head {h00=0x0020, h01=0x0050, text=»* GET AND SEND ONE CHARACTER«, t00=0x0128, t01=0x0162}
0x1cfc8…1cfd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0186}
0x1cfd2…1cfe6               Head {h00=0x0010, h01=0x0050, text=»TIM220 EQU *«, t00=0x0128, t01=0x0190}
0x1cfe6…1d016               Head {h00=0x002c, h01=0x0050, text=» LC A2,DWTOCH,A6 GET CHARACTER FROM DWT «, t00=0x0129, t01=0x0014}
0x1d016…1d03c               Head {h00=0x0022, h01=0x0050, text=» ABL PER500 GO SEND CHARACTER «, t00=0x0129, t01=0x0044}
0x1d03c…1d04a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0129, t01=0x006a}
0x1d04a…1d054               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0078}
0x1d054…1d09c               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0129, t01=0x0082}
0x1d09c…1d0a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x00ca}
0x1d0a6…1d0e8               Head {h00=0x003e, h01=0x0050, text=»* L I N E   D R I V E R   R E C O V E R Y   R O U T I  N E«, t00=0x0129, t01=0x00d4}
0x1d0e8…1d104               Head {h00=0x0018, h01=0x0050, text=»* C O M M O N   T O «, t00=0x0129, t01=0x0116}
0x1d104…1d14c               Head {h00=0x0044, h01=0x0050, text=»* S C R E E N   A N D   P E R I P H E R A L   S E C T I O N S . «, t00=0x0129, t01=0x0132}
0x1d14c…1d156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x017a}
0x1d156…1d1a0               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0129, t01=0x0184}
0x1d1a0…1d1aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x003e}
0x1d1aa…1d1be               Head {h00=0x0010, h01=0x0050, text=»*   V U O N «, t00=0x012a, t01=0x0048}
0x1d1be…1d1c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x005c}
0x1d1c8…1d20c               Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINE TO RESTART THE VIDEO CHANNEL UNITS AT POWER ON «, t00=0x012a, t01=0x0066}
0x1d20c…1d248               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x012a, t01=0x00aa}
0x1d248…1d252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x00e6}
0x1d252…1d25c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x00f0}
0x1d25c…1d278               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A15,VUON «, t00=0x012a, t01=0x00fa}
0x1d278…1d282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0116}
0x1d282…1d28c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0120}
0x1d28c…1d2a8               Head {h00=0x0018, h01=0x0050, text=»* USED BY: 'PFINIT' «, t00=0x012a, t01=0x012a}
0x1d2a8…1d2b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0146}
0x1d2b2…1d2c6               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x012a, t01=0x0150}
0x1d2c6…1d2d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0164}
0x1d2d0…1d304               Head {h00=0x0030, h01=0x0050, text=»* 1. SWITCH TO LEVEL 8, RUN-MODE, INH-MODE. «, t00=0x012a, t01=0x016e}
0x1d304…1d342               Head {h00=0x003a, h01=0x0050, text=»* 2. TEST IF ALL CHANNELS IN SYSTEM HAVE BEEN TREATED.«, t00=0x012b, t01=0x0012}
0x1d342…1d388               Head {h00=0x0042, h01=0x0050, text=»*    IF SO THEN ENABLE INTERRUPTS AND RETURN FROM SUBROUTINE, «, t00=0x012b, t01=0x0050}
0x1d388…1d39a               Head {h00=0x000e, h01=0x0050, text=»*    ELSE:«, t00=0x012b, t01=0x0096}
0x1d39a…1d3c0               Head {h00=0x0022, h01=0x0050, text=»* 3. GET CWT FOR NEXT CHANNEL.«, t00=0x012b, t01=0x00a8}
0x1d3c0…1d3f2               Head {h00=0x002e, h01=0x0050, text=»*   IF NO CWT DEFINED THEN CONTINUE IN 2, «, t00=0x012b, t01=0x00ce}
0x1d3f2…1d404               Head {h00=0x000e, h01=0x0050, text=»*   ELSE: «, t00=0x012b, t01=0x0100}
0x1d404…1d442               Head {h00=0x003a, h01=0x0050, text=»* 4. CIO START INPUT ON PERIPHERAL SECTION OF CHANNEL «, t00=0x012b, t01=0x0112}
0x1d442…1d488               Head {h00=0x0042, h01=0x0050, text=»* 5. RESET DATA AREAS USED BY SCREEN AND PERIPHERAL SECTIONS, «, t00=0x012b, t01=0x0150}
0x1d488…1d4a6               Head {h00=0x001a, h01=0x0050, text=»*    LINE DRIVER PART.«, t00=0x012c, t01=0x0008}
0x1d4a6…1d4d4               Head {h00=0x002a, h01=0x0050, text=»* 6. FOR EACH TERMINAL ON THE CHANNEL «, t00=0x012c, t01=0x0026}
0x1d4d4…1d50c               Head {h00=0x0034, h01=0x0050, text=»*         CALL DEVICE DEPENDANT RECOVERY ROUTINE«, t00=0x012c, t01=0x0054}
0x1d50c…1d546               Head {h00=0x0036, h01=0x0050, text=»*                          VIA NETWORK DISTRIBUTOR«, t00=0x012c, t01=0x008c}
0x1d546…1d562               Head {h00=0x0018, h01=0x0050, text=»* 7. CONTINUE IN 2. «, t00=0x012c, t01=0x00c6}
0x1d562…1d56c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00e2}
0x1d56c…1d5ac               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x012c, t01=0x00ec}
0x1d5ac…1d5b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x012c}
0x1d5b6…1d5c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0136}
0x1d5c0…1d608               Head {h00=0x0044, h01=0x0050, text=»* SWITCH TO LEVEL 8 (LOWER THAN LEVEL OF ANY VCCU1/4 ON ANY CPU,«, t00=0x012c, t01=0x0140}
0x1d608…1d63a               Head {h00=0x002e, h01=0x0050, text=»*  HIGHER THAN LEVEL OF POWER FAIL OR DC) «, t00=0x012c, t01=0x0188}
0x1d63a…1d644               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x002a}
0x1d644…1d656               Head {h00=0x000e, h01=0x0050, text=»VUON EQU *«, t00=0x012d, t01=0x0034}
0x1d656…1d688               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,VUON05 GET LEVEL 8 START ADDRESS «, t00=0x012d, t01=0x0046}
0x1d688…1d6b0               Head {h00=0x0024, h01=0x0050, text=» STR A2,A15 STORE ONTO A15-STACK«, t00=0x012d, t01=0x0078}
0x1d6b0…1d6d4               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PONPSW GET NEW PSW «, t00=0x012d, t01=0x00a0}
0x1d6d4…1d6fc               Head {h00=0x0024, h01=0x0050, text=» STR A2,A15 STORE ONTO A15-STACK«, t00=0x012d, t01=0x00c4}
0x1d6fc…1d71a               Head {h00=0x001a, h01=0x0050, text=» RTN A15 ENTER LEVEL 8«, t00=0x012d, t01=0x00ec}
0x1d71a…1d72e               Head {h00=0x0010, h01=0x0050, text=»VUON05 EQU *«, t00=0x012d, t01=0x010a}
0x1d72e…1d744               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x012d, t01=0x011e}
0x1d744…1d750               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x012d, t01=0x0134}
0x1d750…1d75c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x0140}
0x1d75c…1d766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x014c}
0x1d766…1d78e               Head {h00=0x0024, h01=0x0050, text=»* LOOP OVER ALL CWT:S IN CWTTAB «, t00=0x012d, t01=0x0156}
0x1d78e…1d798               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x017e}
0x1d798…1d7ae               Head {h00=0x0012, h01=0x0050, text=» LD A1,CWTTAB «, t00=0x012d, t01=0x0188}
0x1d7ae…1d7da               Head {h00=0x0028, h01=0x0050, text=»VUON10 SUK A1,2 ALL CWT:S TREATED ? «, t00=0x012e, t01=0x000e}
0x1d7da…1d7fe               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) VUON20 NO TAKE NEXT «, t00=0x012e, t01=0x003a}
0x1d7fe…1d808               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x005e}
0x1d808…1d84a               Head {h00=0x003e, h01=0x0050, text=»* RETURN AND ENABLE INTERRUPTS AND SWITCH BACK TO LEVEL 0.«, t00=0x012e, t01=0x0068}
0x1d84a…1d854               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x00aa}
0x1d854…1d87c               Head {h00=0x0024, h01=0x0050, text=» LDK A1,/40 BIT FOR ENABLE MODE «, t00=0x012e, t01=0x00b4}
0x1d87c…1d8a4               Head {h00=0x0024, h01=0x0050, text=» ORS A1,2,A15 INTO PSW ON STACK «, t00=0x012e, t01=0x00dc}
0x1d8a4…1d8bc               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x012e, t01=0x0104}
0x1d8bc…1d8c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x011c}
0x1d8c6…1d8d8               Head {h00=0x000e, h01=0x0050, text=»* GET CWT «, t00=0x012e, t01=0x0126}
0x1d8d8…1d8e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0138}
0x1d8e2…1d912               Head {h00=0x002c, h01=0x0050, text=»VUON20 LD A5,CWTTAB,A1 LOAD CWT-ADDRESS «, t00=0x012e, t01=0x0142}
0x1d912…1d936               Head {h00=0x0020, h01=0x0050, text=» RB(Z) VUON10 NO CWT ADDRESS«, t00=0x012e, t01=0x0172}
0x1d936…1d940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0008}
0x1d940…1d95a               Head {h00=0x0016, h01=0x0050, text=»* CIO START INPUT «, t00=0x012f, t01=0x0012}
0x1d95a…1d964               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x002c}
0x1d964…1d99e               Head {h00=0x0036, h01=0x0050, text=» EX CWTCSP,A5 EXECUTE CIO-START PERIPHERAL (INPUT)«, t00=0x012f, t01=0x0036}
0x1d99e…1d9ac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012f, t01=0x0070}
0x1d9ac…1d9b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x007e}
0x1d9b6…1d9d0               Head {h00=0x0016, h01=0x0050, text=»* RESET DATA AREAS«, t00=0x012f, t01=0x0088}
0x1d9d0…1da00               Head {h00=0x002c, h01=0x0050, text=»* USED BY SCREEN AND PERIPHERAL SECTIONS«, t00=0x012f, t01=0x00a2}
0x1da00…1da1a               Head {h00=0x0016, h01=0x0050, text=»* LINE DRIVER PART«, t00=0x012f, t01=0x00d2}
0x1da1a…1da24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x00ec}
0x1da24…1da52               Head {h00=0x002a, h01=0x0050, text=» LDK A4,OTRFLA+HLTFLA GET ACTION-FLAGS«, t00=0x012f, t01=0x00f6}
0x1da52…1da7a               Head {h00=0x0024, h01=0x0050, text=» ADKL A4,SSTFLA ALL ACTION FLAGS«, t00=0x012f, t01=0x0124}
0x1da7a…1da98               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x012f, t01=0x014c}
0x1da98…1dad4               Head {h00=0x0038, h01=0x0050, text=» LD A6,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x012f, t01=0x016a}
0x1dad4…1db0e               Head {h00=0x0036, h01=0x0050, text=» RF(NZ) VUON25 YES. GO RESET DWTST BITS 11,12,13. «, t00=0x0130, t01=0x0016}
0x1db0e…1db22               Head {h00=0x0010, h01=0x0050, text=»VUON22 EQU *«, t00=0x0130, t01=0x0050}
0x1db22…1db5a               Head {h00=0x0034, h01=0x0050, text=» CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE «, t00=0x0130, t01=0x0064}
0x1db5a…1db84               Head {h00=0x0026, h01=0x0050, text=» ADK A6,0 ANY (MORE) QUEUED DWT ? «, t00=0x0130, t01=0x009c}
0x1db84…1dbb0               Head {h00=0x0028, h01=0x0050, text=» RF(Z) VUON27 NO. SCREEN QUEUE EMPTY«, t00=0x0130, t01=0x00c6}
0x1dbb0…1dbc4               Head {h00=0x0010, h01=0x0050, text=»VUON25 EQU *«, t00=0x0130, t01=0x00f2}
0x1dbc4…1dbf4               Head {h00=0x002c, h01=0x0050, text=» ANS A4,DWTST,A6 RESET ALL ACTION-FLAGS «, t00=0x0130, t01=0x0106}
0x1dbf4…1dc1c               Head {h00=0x0024, h01=0x0050, text=» RB VUON22 GET NEXT (QUEUED) DWT«, t00=0x0130, t01=0x0136}
0x1dc1c…1dc30               Head {h00=0x0010, h01=0x0050, text=»VUON27 EQU *«, t00=0x0130, t01=0x015e}
0x1dc30…1dc6e               Head {h00=0x003a, h01=0x0050, text=» CM CWTDOS,A5 RESET INDICATOR OF DWT OCCUPYING SCREEN «, t00=0x0130, t01=0x0172}
0x1dc6e…1dcaa               Head {h00=0x0038, h01=0x0050, text=» CM CWTSRD,A5 RESET INDICATOR SST-READY DWT (SCREEN)«, t00=0x0131, t01=0x0020}
0x1dcaa…1dce4               Head {h00=0x0036, h01=0x0050, text=» CM CWTPQ,A5 RESET OUTPUT QUEUE ON PERIPH. SECTION«, t00=0x0131, t01=0x005c}
0x1dce4…1dcee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x0096}
0x1dcee…1dcf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00a0}
0x1dcf8…1dd30               Head {h00=0x0034, h01=0x0050, text=»* PREPARE LOOP OVER ALL TERMINALS ON THE CHANNEL«, t00=0x0131, t01=0x00aa}
0x1dd30…1dd3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00e2}
0x1dd3a…1dd76               Head {h00=0x0038, h01=0x0050, text=» LD* A3,CWTITA,A5 GET ADDRESS TO WORK-STATION TABLE «, t00=0x0131, t01=0x00ec}
0x1dd76…1dda8               Head {h00=0x002e, h01=0x0050, text=» RB(Z) VUON10 NO ADDRESS DEFINED IN TABLE «, t00=0x0131, t01=0x0128}
0x1dda8…1ddd0               Head {h00=0x0024, h01=0x0050, text=» LDK A6,0 RESET TERMINAL NUMBER «, t00=0x0131, t01=0x015a}
0x1ddd0…1ddda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x0182}
0x1ddda…1de22               Head {h00=0x0044, h01=0x0050, text=»* START DEVICE DRIVER RECOVERY FOR ALL TERMINALS ON THE CHANNEL «, t00=0x0131, t01=0x018c}
0x1de22…1de2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0044}
0x1de2c…1de40               Head {h00=0x0010, h01=0x0050, text=»VUON30 EQU *«, t00=0x0132, t01=0x004e}
0x1de40…1de6e               Head {h00=0x002a, h01=0x0050, text=» LDK A4,TCPON INDICATE RECOVERY CAUSE «, t00=0x0132, t01=0x0062}
0x1de6e…1dea8               Head {h00=0x0036, h01=0x0050, text=» CF A15,NDREWS CALL RECOVERY FOR THIS WORK-STATION«, t00=0x0132, t01=0x0090}
0x1dea8…1dec0               Head {h00=0x0014, h01=0x0050, text=»*   (=TERMINAL) «, t00=0x0132, t01=0x00ca}
0x1dec0…1dee0               Head {h00=0x001c, h01=0x0050, text=» ADK A6,1 NEXT TERMINAL «, t00=0x0132, t01=0x00e2}
0x1dee0…1df1a               Head {h00=0x0036, h01=0x0050, text=» CWK A6,MAXTVU ANY MORE TERMINAL ON THIS CHANNEL ?«, t00=0x0132, t01=0x0102}
0x1df1a…1df34               Head {h00=0x0016, h01=0x0050, text=» RB(L) VUON30 YES «, t00=0x0132, t01=0x013c}
0x1df34…1df4a               Head {h00=0x0012, h01=0x0050, text=» RB VUON10 NO «, t00=0x0132, t01=0x0156}
0x1df4a…1df54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x016c}
0x1df54…1df5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0176}
0x1df5e…1df68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0180}
0x1df68…1df74               Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0132, t01=0x018a}
0x1df74…1df78               Head {h00=0x4004, h01=0x0000}
0x1df78…1df7c               01 33 00 08                                                                                                                                                                                                                                       ┆ 3  ┆
0x1df7c…1df84 (308, 1, 8)   20 04 00 00 01 34 00 04                                                                                                                                                                                                                           ┆     4  ┆

DataMuseum.dk

Philips Data Systems

⟦9fd819d7c⟧

Derivation

PTS(SC)

HexDump

Reduced view