⟦33e39eeac⟧

PTS(SC)

	IDENT DRVU01 	REL 11.0 81-07-07 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,/1E11 
	XIF
	IFT	CHASET=2 
	IFT	CHAGEN=1 
	DATA	/2312,/0618,/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,/0618,/1716,/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	/06	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	/02	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	/0E	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	*
	LD	A3,ECBRL,A8	INITIATE BUFFER INDEX(=REQUESTED
			LENGTH IF IT IS < 2) 
	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
* 
*  NO OUTPUT IF NO ASCII CHARACTERS : SET STATUS
* 
	ANK	A2,/7F 
	CWK	A2,SPACE	</20? 
	RF(NL)	ACV360
	LDK	A1,CCERR	CODE CHECK ERROR STATUS 
	ORS	A1,ECBRC,A8	INTO ECB RETURN CODE 
	RF	ACV370
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-07-07 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,/1E11 «, 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,/0618,/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,/0618,/1716,/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 /06 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 /02 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 /0E 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…09d8e               Head {h00=0x0034, h01=0x0050, text=» LD A3,ECBRL,A8 INITIATE BUFFER INDEX(=REQUESTED«, t00=0x0064, t01=0x0130}
0x09d8e…09dae               Head {h00=0x001c, h01=0x0050, text=»   LENGTH IF IT IS < 2) «, t00=0x0064, t01=0x0168}
0x09dae…09dda               Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0064, t01=0x0188}
0x09dda…09dfe               Head {h00=0x0020, h01=0x0050, text=» SUK A2,2 AT LEAST 2 BYTES ?«, t00=0x0065, t01=0x0024}
0x09dfe…09e36               Head {h00=0x0034, h01=0x0050, text=» RF(N) ACV120 NO. THEN NO CONTROL CHARACTER, SO «, t00=0x0065, t01=0x0048}
0x09e36…09e54               Head {h00=0x001a, h01=0x0050, text=»*   DO DEFAULT: LF+CR.«, t00=0x0065, t01=0x0080}
0x09e54…09e5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x009e}
0x09e5e…09e86               Head {h00=0x0024, h01=0x0050, text=»* CHECK BUFFER CONTROL CHARACTER«, t00=0x0065, t01=0x00a8}
0x09e86…09e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00d0}
0x09e90…09eb8               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 INITIATE BUFFER INDEX «, t00=0x0065, t01=0x00da}
0x09eb8…09ee8               Head {h00=0x002c, h01=0x0050, text=»*   TO POINT AFTER 2 CONTROL CHARACTERS «, t00=0x0065, t01=0x0102}
0x09ee8…09f16               Head {h00=0x002a, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECB BUFFER ADDRESS«, t00=0x0065, t01=0x0132}
0x09f16…09f42               Head {h00=0x0028, h01=0x0050, text=» LC A2,1,A2 GET BUFFER CONTROL CHAR «, t00=0x0065, t01=0x0160}
0x09f42…09f66               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF CLEAN LEFT BYTE «, t00=0x0065, t01=0x018c}
0x09f66…09f9c               Head {h00=0x0032, h01=0x0050, text=» SUK A2,/2B WITHOUT POSITIONING BEFORE WRITE ?«, t00=0x0066, t01=0x0020}
0x09f9c…09fb6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV150 YES «, t00=0x0066, t01=0x0056}
0x09fb6…09fda               Head {h00=0x0020, h01=0x0050, text=» SUK A2,5 LF+LF+CR ? (=/30) «, t00=0x0066, t01=0x0070}
0x09fda…09ff4               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV110 YES «, t00=0x0066, t01=0x0094}
0x09ff4…0a02c               Head {h00=0x0034, h01=0x0050, text=» SUK A2,1 CLEAR SCREEN, HOME WRITE POS. ? (=/31)«, t00=0x0066, t01=0x00ae}
0x0a02c…0a068               Head {h00=0x0038, h01=0x0050, text=» RF(NZ) ACV120 NO. THEN FOR ALL OTHER VALUES: LF+CR «, t00=0x0066, t01=0x00e6}
0x0a068…0a072               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0122}
0x0a072…0a08a               Head {h00=0x0014, h01=0x0050, text=»* INITIAL ACTION«, t00=0x0066, t01=0x012c}
0x0a08a…0a0c2               Head {h00=0x0034, h01=0x0050, text=»* ACCORDING TO DETECTED BUFFER CONTROL CHARACTER«, t00=0x0066, t01=0x0144}
0x0a0c2…0a0cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x017c}
0x0a0cc…0a0f6               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/0101 HOME WRITE POSITION«, t00=0x0066, t01=0x0186}
0x0a0f6…0a134               Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 AS CURRENT NEXT WRITE POSITION «, t00=0x0067, t01=0x0020}
0x0a134…0a166               Head {h00=0x002e, h01=0x0050, text=» LDK A4,ROLBIT BIT 8 (SET IF SCROLL MODE) «, t00=0x0067, t01=0x005e}
0x0a166…0a184               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x0067, t01=0x0090}
0x0a184…0a1c2               Head {h00=0x003a, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BIT 8 (NO LONGER SCROLL MODE) «, t00=0x0067, t01=0x00ae}
0x0a1c2…0a1fc               Head {h00=0x0036, h01=0x0050, text=» CF A5,CLESCR CLEAR SCREEN, RESET WRITE+CURSOR POS«, t00=0x0067, t01=0x00ec}
0x0a1fc…0a222               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0067, t01=0x0126}
0x0a222…0a24a               Head {h00=0x0024, h01=0x0050, text=» RF ACV140 GO RESET DWTDEV BIT 9«, t00=0x0067, t01=0x014c}
0x0a24a…0a25e               Head {h00=0x0010, h01=0x0050, text=»ACV110 EQU *«, t00=0x0067, t01=0x0174}
0x0a25e…0a28c               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINE-FEED TO NEXT ROW«, t00=0x0067, t01=0x0188}
0x0a28c…0a2a0               Head {h00=0x0010, h01=0x0050, text=»ACV120 EQU *«, t00=0x0068, t01=0x0026}
0x0a2a0…0a2ce               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINE-FEED TO NEXT ROW«, t00=0x0068, t01=0x003a}
0x0a2ce…0a2de               Head {h00=0x000c, h01=0x0050, text=»* DO CR «, t00=0x0068, t01=0x0068}
0x0a2de…0a2f2               Head {h00=0x0010, h01=0x0050, text=»ACV130 EQU *«, t00=0x0068, t01=0x0078}
0x0a2f2…0a312               Head {h00=0x001c, h01=0x0050, text=» LDK A2,/01 FIRST COLUMN«, t00=0x0068, t01=0x008c}
0x0a312…0a34e               Head {h00=0x0038, h01=0x0050, text=» SC A2,DWTCNC+DWTDEV,A6 AS CURRENT NEXT WRITE COLUMN«, t00=0x0068, t01=0x00ac}
0x0a34e…0a362               Head {h00=0x0010, h01=0x0050, text=»ACV140 EQU *«, t00=0x0068, t01=0x00e8}
0x0a362…0a39c               Head {h00=0x0036, h01=0x0050, text=» LDK A4,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x0068, t01=0x00fc}
0x0a39c…0a3ba               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x0068, t01=0x0136}
0x0a3ba…0a3e0               Head {h00=0x0022, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BIT 9 «, t00=0x0068, t01=0x0154}
0x0a3e0…0a3ee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x017a}
0x0a3ee…0a3f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0188}
0x0a3f8…0a410 (105, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* START WRITING «, t00=0x0069, t01=0x0004}
0x0a410…0a444               Head {h00=0x0030, h01=0x0050, text=»* ACCORDING TO ASCII CHARACTERS FROM BUFFER «, t00=0x0069, t01=0x001c}
0x0a444…0a44e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0050}
0x0a44e…0a462               Head {h00=0x0010, h01=0x0050, text=»ACV150 EQU *«, t00=0x0069, t01=0x005a}
0x0a462…0a4a0               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x0069, t01=0x006e}
0x0a4a0…0a4ce               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST «, t00=0x0069, t01=0x00ac}
0x0a4ce…0a4f4               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0069, t01=0x00da}
0x0a4f4…0a50a               Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0069, t01=0x0100}
0x0a50a…0a518               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0116}
0x0a518…0a522               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0124}
0x0a522…0a558               Head {h00=0x0032, h01=0x0050, text=»* REMOVE ANY TRAILING /20, /11, /12, /1E, /1F «, t00=0x0069, t01=0x012e}
0x0a558…0a582               Head {h00=0x0026, h01=0x0050, text=»* BY DECREMENTING REQUESTED LENGTH«, t00=0x0069, t01=0x0164}
0x0a582…0a58c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x018e}
0x0a58c…0a5b6               Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x006a, t01=0x0008}
0x0a5b6…0a5e2               Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x006a, t01=0x0032}
0x0a5e2…0a612               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 GET ADDRESS TO END OF BUFFER «, t00=0x006a, t01=0x005e}
0x0a612…0a640               Head {h00=0x002a, h01=0x0050, text=»ACV160 CWK A2,2 REQUESTED LENGTH < 3 ?«, t00=0x006a, t01=0x008e}
0x0a640…0a672               Head {h00=0x002e, h01=0x0050, text=» RF(NG) ACV200 YES. THEN NO (MORE) ACTION «, t00=0x006a, t01=0x00bc}
0x0a672…0a69a               Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR ADDRESS IN BUFFER«, t00=0x006a, t01=0x00ee}
0x0a69a…0a6b6               Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x006a, t01=0x0116}
0x0a6b6…0a6dc               Head {h00=0x0022, h01=0x0050, text=» CCK A4,/2020 TRAILING SPACE ?«, t00=0x006a, t01=0x0132}
0x0a6dc…0a718               Head {h00=0x0038, h01=0x0050, text=» RF(NE) ACV180 NO. GO CHECK IF OTHER SKIPPABLE CHAR «, t00=0x006a, t01=0x0158}
0x0a718…0a746 (107, 0, 400) Head {h00=0x002a, h01=0x0050, text=»ACV170 SUK A2,1 DECR REQUESTED LENGTH «, t00=0x006b, t01=0x0004}
0x0a746…0a76c               Head {h00=0x0022, h01=0x0050, text=»*   TO SKIP THAT TRAILING CHAR«, t00=0x006b, t01=0x0032}
0x0a76c…0a7a4               Head {h00=0x0034, h01=0x0050, text=» RB ACV160 GO BACKWARDS TO CHECK PRECEEDING CHAR«, t00=0x006b, t01=0x0058}
0x0a7a4…0a7d2               Head {h00=0x002a, h01=0x0050, text=»ACV180 CWK A2,4 REQUESTED LENGTH < 5 ?«, t00=0x006b, t01=0x0090}
0x0a7d2…0a804               Head {h00=0x002e, h01=0x0050, text=» RF(NG) ACV200 YES. THEN NO (MORE) ACTION «, t00=0x006b, t01=0x00be}
0x0a804…0a838               Head {h00=0x0030, h01=0x0050, text=» LC A4,-2,A1 NOW GET THE CHAR 2 BYTES BEFORE«, t00=0x006b, t01=0x00f0}
0x0a838…0a868               Head {h00=0x002c, h01=0x0050, text=» CCK A4,/1111 TRAILING TABULATION CHAR ?«, t00=0x006b, t01=0x0124}
0x0a868…0a8a4               Head {h00=0x0038, h01=0x0050, text=» RF(NE) ACV190 NO. GO CHECK IF OTHER SKIPPABLE CHAR «, t00=0x006b, t01=0x0154}
0x0a8a4…0a8cc               Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 DECR ADDRESS IN BUFFER«, t00=0x006b, t01=0x0190}
0x0a8cc…0a8f4               Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECR REQUESTED LENGTH «, t00=0x006c, t01=0x0028}
0x0a8f4…0a908               Head {h00=0x0010, h01=0x0050, text=» RB ACV170  «, t00=0x006c, t01=0x0050}
0x0a908…0a938               Head {h00=0x002c, h01=0x0050, text=»ACV190 LCR A4,A1 GET THE CHARACTER AGAIN«, t00=0x006c, t01=0x0064}
0x0a938…0a94c               Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x006c, t01=0x0094}
0x0a94c…0a97a               Head {h00=0x002a, h01=0x0050, text=» SUK A4,/12 TRAILING UNDERLINE START? «, t00=0x006c, t01=0x00a8}
0x0a97a…0a99c               Head {h00=0x001e, h01=0x0050, text=» RB(Z) ACV170 YES. SKIP IT«, t00=0x006c, t01=0x00d6}
0x0a99c…0a9cc               Head {h00=0x002c, h01=0x0050, text=» SUK A4,/C TRAILING LOW INTENSITY START?«, t00=0x006c, t01=0x00f8}
0x0a9cc…0a9ee               Head {h00=0x001e, h01=0x0050, text=» RB(Z) ACV170 YES. SKIP IT«, t00=0x006c, t01=0x0128}
0x0a9ee…0aa1c               Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 TRAILING LOW INTENSITY STOP?«, t00=0x006c, t01=0x014a}
0x0aa1c…0aa3e               Head {h00=0x001e, h01=0x0050, text=» RB(Z) ACV170 YES. SKIP IT«, t00=0x006c, t01=0x0178}
0x0aa3e…0aa48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x000a}
0x0aa48…0aa82               Head {h00=0x0036, h01=0x0050, text=»ACV200 ST A2,ECBRL,A8 STORE (NEW) REQUESTED LENGTH«, t00=0x006d, t01=0x0014}
0x0aa82…0aa90               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x004e}
0x0aa90…0aa9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x005c}
0x0aa9c…0aab0               Head {h00=0x0010, h01=0x0050, text=»ACV210 EQU *«, t00=0x006d, t01=0x0068}
0x0aab0…0aae0               Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET CHAR FROM ECB BUFFER «, t00=0x006d, t01=0x007c}
0x0aae0…0ab06               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A1 END OF ECB BUFFER ?«, t00=0x006d, t01=0x00ac}
0x0ab06…0ab20               Head {h00=0x0016, h01=0x0050, text=» RF(NP) ACV380 YES«, t00=0x006d, t01=0x00d2}
0x0ab20…0ab3a               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/7F CLEAN «, t00=0x006d, t01=0x00ec}
0x0ab3a…0ab58               Head {h00=0x001a, h01=0x0050, text=» CWK A2,SPACE < /20 ? «, t00=0x006d, t01=0x0106}
0x0ab58…0ab90               Head {h00=0x0034, h01=0x0050, text=» RF(L) ACV220 YES. THEN CHECK COMMAND CHARACTER «, t00=0x006d, t01=0x0124}
0x0ab90…0abc8               Head {h00=0x0034, h01=0x0050, text=» CF A5,CHKOUT CHECK IF LAST COLUMN AND DO OUTPUT«, t00=0x006d, t01=0x015c}
0x0abc8…0abe8 (110, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RB ACV210 GET NEXT CHAR«, t00=0x006e, t01=0x0004}
0x0abe8…0abf6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0024}
0x0abf6…0ac00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0032}
0x0ac00…0ac24               Head {h00=0x0020, h01=0x0050, text=»* CHECK OF COMMAND CHARACTER«, t00=0x006e, t01=0x003c}
0x0ac24…0ac2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0060}
0x0ac2e…0ac42               Head {h00=0x0010, h01=0x0050, text=»ACV220 EQU *«, t00=0x006e, t01=0x006a}
0x0ac42…0ac6a               Head {h00=0x0024, h01=0x0050, text=» CWK A7,/05 ORDER /05 RUNNING ? «, t00=0x006e, t01=0x007e}
0x0ac6a…0aca4               Head {h00=0x0036, h01=0x0050, text=» ABL(E) ACV480 YES. THEN DIFFERENT CHARACTER CHECK«, t00=0x006e, t01=0x00a6}
0x0aca4…0acc4               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/11 TABULATION ?«, t00=0x006e, t01=0x00e0}
0x0acc4…0acde               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV290 YES «, t00=0x006e, t01=0x0100}
0x0acde…0ad08               Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 START UNDERLINE ? (/12) «, t00=0x006e, t01=0x011a}
0x0ad08…0ad22               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV230 YES «, t00=0x006e, t01=0x0144}
0x0ad22…0ad4a               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 STOP UNDERLINE ? (/13)«, t00=0x006e, t01=0x015e}
0x0ad4a…0ad64               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV250 YES «, t00=0x006e, t01=0x0186}
0x0ad64…0ad8a               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 FAST OUTPUT ? (/14) «, t00=0x006f, t01=0x0010}
0x0ad8a…0ada4               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV350 YES «, t00=0x006f, t01=0x0036}
0x0ada4…0add2               Head {h00=0x002a, h01=0x0050, text=» SUK A2,/A START LOW INTENSITY ? (/1E)«, t00=0x006f, t01=0x0050}
0x0add2…0adec               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV270 YES «, t00=0x006f, t01=0x007e}
0x0adec…0ae18               Head {h00=0x0028, h01=0x0050, text=» SUK A2,1 STOP LOW INTENSITY ? (/1F)«, t00=0x006f, t01=0x0098}
0x0ae18…0ae32               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACV280 YES «, t00=0x006f, t01=0x00c4}
0x0ae32…0ae3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00de}
0x0ae3c…0ae62               Head {h00=0x0022, h01=0x0050, text=»* ILLEGAL (COMMAND) CHARACTER «, t00=0x006f, t01=0x00e8}
0x0ae62…0ae6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x010e}
0x0ae6c…0ae9a               Head {h00=0x002a, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR STATUS «, t00=0x006f, t01=0x0118}
0x0ae9a…0aec8               Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 INTO ECB RETURN CODE «, t00=0x006f, t01=0x0146}
0x0aec8…0aeec               Head {h00=0x0020, h01=0x0050, text=» RB ACV210 GO GET NEXT CHAR «, t00=0x006f, t01=0x0174}
0x0aeec…0aefa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0008}
0x0aefa…0af04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0016}
0x0af04…0af1e               Head {h00=0x0016, h01=0x0050, text=»* START UNDERLINE «, t00=0x0070, t01=0x0020}
0x0af1e…0af28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x003a}
0x0af28…0af3c               Head {h00=0x0010, h01=0x0050, text=»ACV230 EQU *«, t00=0x0070, t01=0x0044}
0x0af3c…0af6a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,UNDBIT GET UNDERLINE MODE BIT«, t00=0x0070, t01=0x0058}
0x0af6a…0af7e               Head {h00=0x0010, h01=0x0050, text=»ACV240 EQU *«, t00=0x0070, t01=0x0086}
0x0af7e…0afa8               Head {h00=0x0026, h01=0x0050, text=» ORS A2,DWTDEV,A6 SET BIT INTO DWT«, t00=0x0070, t01=0x009a}
0x0afa8…0afcc               Head {h00=0x0020, h01=0x0050, text=» RB ACV210 GO GET NEXT CHAR «, t00=0x0070, t01=0x00c4}
0x0afcc…0afd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00e8}
0x0afd6…0afee               Head {h00=0x0014, h01=0x0050, text=»* STOP UNDERLINE«, t00=0x0070, t01=0x00f2}
0x0afee…0aff8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x010a}
0x0aff8…0b00c               Head {h00=0x0010, h01=0x0050, text=»ACV250 EQU *«, t00=0x0070, t01=0x0114}
0x0b00c…0b03a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,UNDBIT GET UNDERLINE MODE BIT«, t00=0x0070, t01=0x0128}
0x0b03a…0b04e               Head {h00=0x0010, h01=0x0050, text=»ACV260 EQU *«, t00=0x0070, t01=0x0156}
0x0b04e…0b06c               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x0070, t01=0x016a}
0x0b06c…0b096               Head {h00=0x0026, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT IN DWT«, t00=0x0070, t01=0x0188}
0x0b096…0b0ba               Head {h00=0x0020, h01=0x0050, text=» RB ACV210 GO GET NEXT CHAR «, t00=0x0071, t01=0x0022}
0x0b0ba…0b0c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0046}
0x0b0c4…0b0e6               Head {h00=0x001e, h01=0x0050, text=»* START LOW (!) INTENSITY «, t00=0x0071, t01=0x0050}
0x0b0e6…0b0f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0072}
0x0b0f0…0b104               Head {h00=0x0010, h01=0x0050, text=»ACV270 EQU *«, t00=0x0071, t01=0x007c}
0x0b104…0b138               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT «, t00=0x0071, t01=0x0090}
0x0b138…0b15e               Head {h00=0x0022, h01=0x0050, text=» RB ACV260 GO RESET BIT IN DWT«, t00=0x0071, t01=0x00c4}
0x0b15e…0b168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00ea}
0x0b168…0b188               Head {h00=0x001c, h01=0x0050, text=»* STOP LOW (!) INTENSITY«, t00=0x0071, t01=0x00f4}
0x0b188…0b192               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0114}
0x0b192…0b1a6               Head {h00=0x0010, h01=0x0050, text=»ACV280 EQU *«, t00=0x0071, t01=0x011e}
0x0b1a6…0b1da               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT «, t00=0x0071, t01=0x0132}
0x0b1da…0b200               Head {h00=0x0022, h01=0x0050, text=» RB ACV240 GO SET BIT INTO DWT«, t00=0x0071, t01=0x0166}
0x0b200…0b20e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x018c}
0x0b20e…0b218               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x000a}
0x0b218…0b246               Head {h00=0x002a, h01=0x0050, text=»* ORDER /06, COMMAND /11 (TABULATION) «, t00=0x0072, t01=0x0014}
0x0b246…0b250               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0042}
0x0b250…0b264               Head {h00=0x0010, h01=0x0050, text=»ACV290 EQU *«, t00=0x0072, t01=0x004c}
0x0b264…0b290               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0072, t01=0x0060}
0x0b290…0b2b6               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0072, t01=0x008c}
0x0b2b6…0b2f0               Head {h00=0x0036, h01=0x0050, text=» CF A15,GETCHR GET TAB COLUMN NUMBER (FIRST DIGIT)«, t00=0x0072, t01=0x00b2}
0x0b2f0…0b314               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE FIRST DIGIT «, t00=0x0072, t01=0x00ec}
0x0b314…0b350               Head {h00=0x0038, h01=0x0050, text=» CF A15,GETCHR GET TAB COLUMN NUMBER (SECOND DIGIT) «, t00=0x0072, t01=0x0110}
0x0b350…0b35a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x014c}
0x0b35a…0b382               Head {h00=0x0024, h01=0x0050, text=»* CONVERT FROM DECIMAL INTO HEXA«, t00=0x0072, t01=0x0156}
0x0b382…0b38c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x017e}
0x0b38c…0b3a8               Head {h00=0x0018, h01=0x0050, text=» ANK A2,/F GET UNITS«, t00=0x0072, t01=0x0188}
0x0b3a8…0b3cc               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/F GET TENTHS. ANY ?«, t00=0x0073, t01=0x0014}
0x0b3cc…0b3e4               Head {h00=0x0014, h01=0x0050, text=» RF(Z) ACV310 NO«, t00=0x0073, t01=0x0038}
0x0b3e4…0b3f8               Head {h00=0x0010, h01=0x0050, text=»ACV300 EQU *«, t00=0x0073, t01=0x0050}
0x0b3f8…0b41e               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/A INCR WITH TEN UNITS«, t00=0x0073, t01=0x0064}
0x0b41e…0b440               Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ONE MORE TIME ? «, t00=0x0073, t01=0x008a}
0x0b440…0b45a               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ACV300 YES«, t00=0x0073, t01=0x00ac}
0x0b45a…0b464               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00c6}
0x0b464…0b490               Head {h00=0x0028, h01=0x0050, text=»* CHECK COLUMN NUMBER TABULATED INTO«, t00=0x0073, t01=0x00d0}
0x0b490…0b49a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00fc}
0x0b49a…0b4ae               Head {h00=0x0010, h01=0x0050, text=»ACV310 EQU *«, t00=0x0073, t01=0x0106}
0x0b4ae…0b4ce               Head {h00=0x001c, h01=0x0050, text=» LDK A4,0 CLEAR REGISTER«, t00=0x0073, t01=0x011a}
0x0b4ce…0b510               Head {h00=0x003e, h01=0x0050, text=» LC A4,DWTCNR+DWTDEV,A6 GET CURRENT NEXT WRITE ROW NUMBER «, t00=0x0073, t01=0x013a}
0x0b510…0b53c               Head {h00=0x0028, h01=0x0050, text=» ECR A4,A4 ROW NUMBER INTO LEFT BYTE«, t00=0x0073, t01=0x017c}
0x0b53c…0b550               Head {h00=0x0010, h01=0x0050, text=»ACV320 EQU *«, t00=0x0074, t01=0x0018}
0x0b550…0b582               Head {h00=0x002e, h01=0x0050, text=» CWK A2,1 < COLUMN 1 ? (=COLUMN 'ZERO' ?) «, t00=0x0074, t01=0x002c}
0x0b582…0b59c               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ACV330 NO «, t00=0x0074, t01=0x005e}
0x0b59c…0b5cc               Head {h00=0x002c, h01=0x0050, text=» LCK A2,/0101 YES. SET COLUMN 1 INSTEAD «, t00=0x0074, t01=0x0078}
0x0b5cc…0b5de               Head {h00=0x000e, h01=0x0050, text=» RF ACV340«, t00=0x0074, t01=0x00a8}
0x0b5de…0b5f2               Head {h00=0x0010, h01=0x0050, text=»ACV330 EQU *«, t00=0x0074, t01=0x00ba}
0x0b5f2…0b62a               Head {h00=0x0034, h01=0x0050, text=» CCK A2,MAXCOL EXCEEDING MAX NUMBER OF COLUMNS ?«, t00=0x0074, t01=0x00ce}
0x0b62a…0b644               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ACV340 NO «, t00=0x0074, t01=0x0106}
0x0b644…0b678               Head {h00=0x0030, h01=0x0050, text=» LCK A2,MAXCOL YES. SET LAST COLUMN INSTEAD «, t00=0x0074, t01=0x0120}
0x0b678…0b682               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0154}
0x0b682…0b6a2               Head {h00=0x001c, h01=0x0050, text=»* EXECUTE THE TABULATION«, t00=0x0074, t01=0x015e}
0x0b6a2…0b6ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x017e}
0x0b6ac…0b6c0               Head {h00=0x0010, h01=0x0050, text=»ACV340 EQU *«, t00=0x0074, t01=0x0188}
0x0b6c0…0b6f2               Head {h00=0x002e, h01=0x0050, text=» ORR A2,A4 COMBINE ROW AND COLUMN NUMBERS «, t00=0x0075, t01=0x000c}
0x0b6f2…0b730               Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 SET CURRENT NEXT WRITE POSITION«, t00=0x0075, t01=0x003e}
0x0b730…0b768               Head {h00=0x0034, h01=0x0050, text=» ABL ACV140 GO RESET BIT 9 IN DWTDEV, DO STAWRI.«, t00=0x0075, t01=0x007c}
0x0b768…0b776               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x00b4}
0x0b776…0b780               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00c2}
0x0b780…0b7ae               Head {h00=0x002a, h01=0x0050, text=»* ORDER /06, COMMAND /14 (FAST OUTPUT)«, t00=0x0075, t01=0x00cc}
0x0b7ae…0b7b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00fa}
0x0b7b8…0b7cc               Head {h00=0x0010, h01=0x0050, text=»ACV350 EQU *«, t00=0x0075, t01=0x0104}
0x0b7cc…0b802               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0075, t01=0x0118}
0x0b802…0b83c               Head {h00=0x0036, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER FROM ECB BUFFER «, t00=0x0075, t01=0x014e}
0x0b83c…0b868               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0075, t01=0x0188}
0x0b868…0b894               Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBEL,A8 SET EFFECTIVE LENGTH«, t00=0x0076, t01=0x0024}
0x0b894…0b8bc               Head {h00=0x0024, h01=0x0050, text=» SUR A4,A3 SUBTRACT BUFFER INDEX«, t00=0x0076, t01=0x0050}
0x0b8bc…0b8f6               Head {h00=0x0036, h01=0x0050, text=» LDR A3,A4 SAVE REMAINING LENGTH FOR 'FAST OUTPUT'«, t00=0x0076, t01=0x0078}
0x0b8f6…0b924               Head {h00=0x002a, h01=0x0050, text=» RF(Z) ACV370 NO OUTPUT IF ZERO LENGTH«, t00=0x0076, t01=0x00b2}
0x0b924…0b92e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00e0}
0x0b92e…0b966               Head {h00=0x0034, h01=0x0050, text=»*  NO OUTPUT IF NO ASCII CHARACTERS : SET STATUS«, t00=0x0076, t01=0x00ea}
0x0b966…0b970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0122}
0x0b970…0b984               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0076, t01=0x012c}
0x0b984…0b9a0               Head {h00=0x0018, h01=0x0050, text=» CWK A2,SPACE </20? «, t00=0x0076, t01=0x0140}
0x0b9a0…0b9b6               Head {h00=0x0012, h01=0x0050, text=» RF(NL) ACV360«, t00=0x0076, t01=0x015c}
0x0b9b6…0b9e4               Head {h00=0x002a, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR STATUS «, t00=0x0076, t01=0x0172}
0x0b9e4…0ba12               Head {h00=0x002a, h01=0x0050, text=» ORS A1,ECBRC,A8 INTO ECB RETURN CODE «, t00=0x0077, t01=0x0010}
0x0ba12…0ba24               Head {h00=0x000e, h01=0x0050, text=» RF ACV370«, t00=0x0077, t01=0x003e}
0x0ba24…0ba38               Head {h00=0x0010, h01=0x0050, text=»ACV360 EQU *«, t00=0x0077, t01=0x0050}
0x0ba38…0ba76               Head {h00=0x003a, h01=0x0050, text=» CF A5,CHKOUT CHECK LAST COLUMN WRITTEN AND DO OUTPUT «, t00=0x0077, t01=0x0064}
0x0ba76…0ba98               Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 ONE MORE TIME ? «, t00=0x0077, t01=0x00a2}
0x0ba98…0bab2               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ACV360 YES«, t00=0x0077, t01=0x00c4}
0x0bab2…0bac6               Head {h00=0x0010, h01=0x0050, text=»ACV370 EQU *«, t00=0x0077, t01=0x00de}
0x0bac6…0baf2               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0077, t01=0x00f2}
0x0baf2…0bb18               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0077, t01=0x011e}
0x0bb18…0bb56               Head {h00=0x003a, h01=0x0050, text=» CF A15,RESCN RESTORE SAVED WRITE POS. AS CURRENT NEXT«, t00=0x0077, t01=0x0144}
0x0bb56…0bb7c               Head {h00=0x0022, h01=0x0050, text=» RF ACV390 GO SET CURSOR TO IT«, t00=0x0077, t01=0x0182}
0x0bb7c…0bb8a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x0018}
0x0bb8a…0bb94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0026}
0x0bb94…0bbb0               Head {h00=0x0018, h01=0x0050, text=»* END OF LKM-REQUEST«, t00=0x0078, t01=0x0030}
0x0bbb0…0bbba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x004c}
0x0bbba…0bbce               Head {h00=0x0010, h01=0x0050, text=»ACV380 EQU *«, t00=0x0078, t01=0x0056}
0x0bbce…0bbfa               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0078, t01=0x006a}
0x0bbfa…0bc20               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0078, t01=0x0096}
0x0bc20…0bc56               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0078, t01=0x00bc}
0x0bc56…0bc6a               Head {h00=0x0010, h01=0x0050, text=»ACV390 EQU *«, t00=0x0078, t01=0x00f2}
0x0bc6a…0bc8a               Head {h00=0x001c, h01=0x0050, text=» CWK A7,/31 ORDER /31 ? «, t00=0x0078, t01=0x0106}
0x0bc8a…0bcbe               Head {h00=0x0030, h01=0x0050, text=» RF(E) ACV395 YES. THEN DO NOT MODIFY ECBCW.«, t00=0x0078, t01=0x0126}
0x0bcbe…0bcd2               Head {h00=0x0010, h01=0x0050, text=»ACV392 EQU *«, t00=0x0078, t01=0x015a}
0x0bcd2…0bd10               Head {h00=0x003a, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE NEXT WRITE POSITION ALSO INTO ECB«, t00=0x0078, t01=0x016e}
0x0bd10…0bd2a               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x0079, t01=0x001c}
0x0bd2a…0bd4c               Head {h00=0x001e, h01=0x0050, text=» ANK A4,LCWBIT BIT 9 SET ?«, t00=0x0079, t01=0x0036}
0x0bd4c…0bd7e               Head {h00=0x002e, h01=0x0050, text=» RF(Z) ACV395 NO = LAST COLUMN NOT WRITTEN«, t00=0x0079, t01=0x0058}
0x0bd7e…0bdbc               Head {h00=0x003a, h01=0x0050, text=» IM ECBCW,A8 YES. INDICATE BY RETURNING LAST+1 COLUMN «, t00=0x0079, t01=0x008a}
0x0bdbc…0bdd0               Head {h00=0x0010, h01=0x0050, text=»ACV395 EQU *«, t00=0x0079, t01=0x00c8}
0x0bdd0…0be08               Head {h00=0x0034, h01=0x0050, text=» CF A5,OUTCUR SET CURSOR TO NEXT WRITE POSITION «, t00=0x0079, t01=0x00dc}
0x0be08…0be2e               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0079, t01=0x0114}
0x0be2e…0be38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x013a}
0x0be38…0be60               Head {h00=0x0024, h01=0x0050, text=»* RESET DISPLAY MODE BITS IN DWT«, t00=0x0079, t01=0x0144}
0x0be60…0be6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x016c}
0x0be6a…0be7e               Head {h00=0x0010, h01=0x0050, text=»ACV400 EQU *«, t00=0x0079, t01=0x0176}
0x0be7e…0beac               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,UNDBIT GET UNDERLINE MODE BIT«, t00=0x0079, t01=0x018a}
0x0beac…0beca               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x007a, t01=0x0028}
0x0beca…0bef4               Head {h00=0x0026, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT IN DWT«, t00=0x007a, t01=0x0046}
0x0bef4…0bf28               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT «, t00=0x007a, t01=0x0070}
0x0bf28…0bf52               Head {h00=0x0026, h01=0x0050, text=» ORS A2,DWTDEV,A6 SET BIT INTO DWT«, t00=0x007a, t01=0x00a4}
0x0bf52…0bf66               Head {h00=0x0010, h01=0x0050, text=»ACV410 EQU *«, t00=0x007a, t01=0x00ce}
0x0bf66…0bf8e               Head {h00=0x0024, h01=0x0050, text=» ABL DISEND END I/O AND DISPATCH«, t00=0x007a, t01=0x00e2}
0x0bf8e…0bf9c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x010a}
0x0bf9c…0bfdc               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007a, t01=0x0118}
0x0bfdc…0bff0               Head {h00=0x0010, h01=0x0050, text=»* ORDER /0B «, t00=0x007a, t01=0x0158}
0x0bff0…0c010               Head {h00=0x001c, h01=0x0050, text=»* SET CURSOR (AND WRITE)«, t00=0x007a, t01=0x016c}
0x0c010…0c052               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007a, t01=0x018c}
0x0c052…0c05c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x003e}
0x0c05c…0c070               Head {h00=0x0010, h01=0x0050, text=»ACV420 EQU *«, t00=0x007b, t01=0x0048}
0x0c070…0c098               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 INITIATE BUFFER INDEX «, t00=0x007b, t01=0x005c}
0x0c098…0c0c2               Head {h00=0x0026, h01=0x0050, text=»*    (SKIP UNUSED LEADING 2 BYTES)«, t00=0x007b, t01=0x0084}
0x0c0c2…0c0e8               Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 CLEAR WORK REGISTER «, t00=0x007b, t01=0x00ae}
0x0c0e8…0c10e               Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 CLEAR WORK REGISTER «, t00=0x007b, t01=0x00d4}
0x0c10e…0c13e               Head {h00=0x002c, h01=0x0050, text=» LC A4,ECBCW,A8 GET REQUESTED ROW NUMBER«, t00=0x007b, t01=0x00fa}
0x0c13e…0c16a               Head {h00=0x0028, h01=0x0050, text=» CWK A4,1 < ROW 1 ? (=ROW 'ZERO' ?) «, t00=0x007b, t01=0x012a}
0x0c16a…0c184               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ACV430 NO «, t00=0x007b, t01=0x0156}
0x0c184…0c1b0               Head {h00=0x0028, h01=0x0050, text=» LCK A4,/0101 YES. SET ROW 1 INSTEAD«, t00=0x007b, t01=0x0170}
0x0c1b0…0c1c4               Head {h00=0x0010, h01=0x0050, text=» RF ACV440  «, t00=0x007c, t01=0x000c}
0x0c1c4…0c1d8               Head {h00=0x0010, h01=0x0050, text=»ACV430 EQU *«, t00=0x007c, t01=0x0020}
0x0c1d8…0c20e               Head {h00=0x0032, h01=0x0050, text=» CCK A4,MAXROW EXCEEDING MAX NUMBER OF ROWS ? «, t00=0x007c, t01=0x0034}
0x0c20e…0c228               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ACV440 NO «, t00=0x007c, t01=0x006a}
0x0c228…0c258               Head {h00=0x002c, h01=0x0050, text=» LCK A4,MAXROW YES. SET LAST ROW INSTEAD«, t00=0x007c, t01=0x0084}
0x0c258…0c26c               Head {h00=0x0010, h01=0x0050, text=»ACV440 EQU *«, t00=0x007c, t01=0x00b4}
0x0c26c…0c298               Head {h00=0x0028, h01=0x0050, text=» ECR A4,A4 ROW NUMBER INTO LEFT BYTE«, t00=0x007c, t01=0x00c8}
0x0c298…0c2ce               Head {h00=0x0032, h01=0x0050, text=» LC A2,ECBCW+1,A8 GET REQUESTED COLUMN NUMBER «, t00=0x007c, t01=0x00f4}
0x0c2ce…0c306               Head {h00=0x0034, h01=0x0050, text=» RB ACV320 GO CHECK REQUESTED COLUMN NUMBER ETC.«, t00=0x007c, t01=0x012a}
0x0c306…0c314               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x0162}
0x0c314…0c354               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007c, t01=0x0170}
0x0c354…0c368               Head {h00=0x0010, h01=0x0050, text=»* ORDER /31 «, t00=0x007d, t01=0x0020}
0x0c368…0c378               Head {h00=0x000c, h01=0x0050, text=»* ERASE «, t00=0x007d, t01=0x0034}
0x0c378…0c3b8               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007d, t01=0x0044}
0x0c3b8…0c3c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0084}
0x0c3c2…0c3d6               Head {h00=0x0010, h01=0x0050, text=»ACV450 EQU *«, t00=0x007d, t01=0x008e}
0x0c3d6…0c414               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x007d, t01=0x00a2}
0x0c414…0c44e               Head {h00=0x0036, h01=0x0050, text=» LD A3,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE «, t00=0x007d, t01=0x00e0}
0x0c44e…0c480               Head {h00=0x002e, h01=0x0050, text=» RB(Z) ACV395 NO ERASE IF ZERO CHARACTERS,«, t00=0x007d, t01=0x011a}
0x0c480…0c4a6               Head {h00=0x0022, h01=0x0050, text=»*   BUT THEN GO SET CURSOR ETC«, t00=0x007d, t01=0x014c}
0x0c4a6…0c4be               Head {h00=0x0014, h01=0x0050, text=»*   + DO ENDIO. «, t00=0x007d, t01=0x0172}
0x0c4be…0c4ec               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST «, t00=0x007d, t01=0x018a}
0x0c4ec…0c512               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x007e, t01=0x0028}
0x0c512…0c542               Head {h00=0x002c, h01=0x0050, text=» LDK A2,SPACE GET SPACE TO DO ERASE WITH«, t00=0x007e, t01=0x004e}
0x0c542…0c560               Head {h00=0x001a, h01=0x0050, text=» RB ACV360 GO DO ERASE«, t00=0x007e, t01=0x007e}
0x0c560…0c56e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x009c}
0x0c56e…0c5a6               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007e, t01=0x00aa}
0x0c5a6…0c5ba               Head {h00=0x0010, h01=0x0050, text=»* ORDER /00 «, t00=0x007e, t01=0x00e2}
0x0c5ba…0c5d0               Head {h00=0x0012, h01=0x0050, text=»* TEST STATUS «, t00=0x007e, t01=0x00f6}
0x0c5d0…0c60a               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007e, t01=0x010c}
0x0c60a…0c614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0146}
0x0c614…0c628               Head {h00=0x0010, h01=0x0050, text=»ACV460 EQU *«, t00=0x007e, t01=0x0150}
0x0c628…0c666               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x007e, t01=0x0164}
0x0c666…0c6a0               Head {h00=0x0036, h01=0x0050, text=» RB ACV392 SET ECBCW AND DO (DUMMY) OUTPUT CURSOR «, t00=0x007f, t01=0x0012}
0x0c6a0…0c6ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x004c}
0x0c6ae…0c6e8               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007f, t01=0x005a}
0x0c6e8…0c6fc               Head {h00=0x0010, h01=0x0050, text=»* ORDER /05 «, t00=0x007f, t01=0x0094}
0x0c6fc…0c712               Head {h00=0x0012, h01=0x0050, text=»* BASIC WRITE «, t00=0x007f, t01=0x00a8}
0x0c712…0c74c               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007f, t01=0x00be}
0x0c74c…0c756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00f8}
0x0c756…0c76a               Head {h00=0x0010, h01=0x0050, text=»ACV470 EQU *«, t00=0x007f, t01=0x0102}
0x0c76a…0c792               Head {h00=0x0024, h01=0x0050, text=» LDK A3,0 INITIATE BUFFER INDEX «, t00=0x007f, t01=0x0116}
0x0c792…0c7c2               Head {h00=0x002c, h01=0x0050, text=» ABL ACV150 GO START WRITE REQUEST ETC. «, t00=0x007f, t01=0x013e}
0x0c7c2…0c7cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x016e}
0x0c7cc…0c7d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0178}
0x0c7d6…0c7e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0182}
0x0c7e0…0c7ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x018c}
0x0c7ea…0c818               Head {h00=0x002a, h01=0x0050, text=»* CHECK OF DETECTED COMMAND CHARACTER «, t00=0x0080, t01=0x0008}
0x0c818…0c822               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0036}
0x0c822…0c836               Head {h00=0x0010, h01=0x0050, text=»ACV480 EQU *«, t00=0x0080, t01=0x0040}
0x0c836…0c85c               Head {h00=0x0022, h01=0x0050, text=» SUK A2,/0A LINE-FEED ? (=/0A)«, t00=0x0080, t01=0x0054}
0x0c85c…0c876               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ACV490 NO «, t00=0x0080, t01=0x007a}
0x0c876…0c8a2               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0080, t01=0x0094}
0x0c8a2…0c8c8               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DEVERR STATUS NOT OK «, t00=0x0080, t01=0x00c0}
0x0c8c8…0c8f6               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINE-FEED TO NEXT ROW«, t00=0x0080, t01=0x00e6}
0x0c8f6…0c92a               Head {h00=0x0030, h01=0x0050, text=» ABL ACV150 GO START NEW WRITE REQUEST ETC. «, t00=0x0080, t01=0x0114}
0x0c92a…0c93e               Head {h00=0x0010, h01=0x0050, text=»ACV490 EQU *«, t00=0x0080, t01=0x0148}
0x0c93e…0c968               Head {h00=0x0026, h01=0x0050, text=» SUK A2,3 CARRIAGE RETURN ? (=/0D)«, t00=0x0080, t01=0x015c}
0x0c968…0c9a0               Head {h00=0x0034, h01=0x0050, text=» ABL(NZ) ACV210 NO. THEN ILLEGAL COMMAND CHAR ! «, t00=0x0080, t01=0x0186}
0x0c9a0…0c9d6               Head {h00=0x0032, h01=0x0050, text=»*   NO OUTPUT, NO ERROR STATUS, GET NEXT CHAR «, t00=0x0081, t01=0x002e}
0x0c9d6…0ca02               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0081, t01=0x0064}
0x0ca02…0ca26               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0081, t01=0x0090}
0x0ca26…0ca54               Head {h00=0x002a, h01=0x0050, text=» ABL ACV130 GO DO CARRIAGE RETURN ETC.«, t00=0x0081, t01=0x00b4}
0x0ca54…0ca62               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00e2}
0x0ca62…0ca6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00f0}
0x0ca6c…0cab0               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0081, t01=0x00fa}
0x0cab0…0caba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x013e}
0x0caba…0cae0               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0081, t01=0x0148}
0x0cae0…0cb0e               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=0x016e}
0x0cb0e…0cb32               Head {h00=0x0020, h01=0x0050, text=»* A B O R T   R O U T I N E «, t00=0x0082, t01=0x000c}
0x0cb32…0cb3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0030}
0x0cb3c…0cb80               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x003a}
0x0cb80…0cb8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x007e}
0x0cb8a…0cb94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0088}
0x0cb94…0cbbc               Head {h00=0x0024, h01=0x0050, text=»* CALL: CFR A15,A2  (A2 = ABVU) «, t00=0x0082, t01=0x0092}
0x0cbbc…0cbc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00ba}
0x0cbc6…0cbec               Head {h00=0x0022, h01=0x0050, text=»* USED BY: ABORT-LKM PROCESSOR«, t00=0x0082, t01=0x00c4}
0x0cbec…0cc1c               Head {h00=0x002c, h01=0x0050, text=»*  AT ABORT OF KEYBOARD INPUT WITH ECHO «, t00=0x0082, t01=0x00ea}
0x0cc1c…0cc26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x011a}
0x0cc26…0cc64               Head {h00=0x003a, h01=0x0050, text=»* FUNCTION:SAVE CURRENT NEXT WRITE POSITION (DEFINING «, t00=0x0082, t01=0x0124}
0x0cc64…0cc90               Head {h00=0x0028, h01=0x0050, text=»*  END OF REQUEST POSITION) INTO DWT«, t00=0x0082, t01=0x0162}
0x0cc90…0cc9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x018e}
0x0cc9a…0ccca               Head {h00=0x002c, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS OF ECHO DEVICE«, t00=0x0083, t01=0x0008}
0x0ccca…0ccf6               Head {h00=0x0028, h01=0x0050, text=»*  A8 = DWT-ADDRESS OF INPUT DEVICE «, t00=0x0083, t01=0x0038}
0x0ccf6…0cd00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0064}
0x0cd00…0cd24               Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: A6,A8 UNCHANGED ! «, t00=0x0083, t01=0x006e}
0x0cd24…0cd2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0092}
0x0cd2e…0cd72               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0083, t01=0x009c}
0x0cd72…0cd7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00e0}
0x0cd7c…0cd8e               Head {h00=0x000e, h01=0x0050, text=»ABVU EQU *«, t00=0x0083, t01=0x00ea}
0x0cd8e…0cdc4               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0083, t01=0x00fc}
0x0cdc4…0cdda               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0083, t01=0x0132}
0x0cdda…0cdf4               Head {h00=0x0016, h01=0x0050, text=» ABL IHRTN RETURN «, t00=0x0083, t01=0x0148}
0x0cdf4…0ce00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x0162}
0x0ce00…0ce10               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0083, t01=0x016e}
0x0ce10…0ce1e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x017e}
0x0ce1e…0ce28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x018c}
0x0ce28…0ce6c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x0008}
0x0ce6c…0ce76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x004c}
0x0ce76…0ce9c               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0084, t01=0x0056}
0x0ce9c…0ceca               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0084, t01=0x007c}
0x0ceca…0cef4               Head {h00=0x0026, h01=0x0050, text=»* R E C O V E R Y   R O U T I N E «, t00=0x0084, t01=0x00aa}
0x0cef4…0cefe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00d4}
0x0cefe…0cf42               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0084, t01=0x00de}
0x0cf42…0cf4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0122}
0x0cf4c…0cf8e               Head {h00=0x003e, h01=0x0050, text=»* ENTERED: FROM LINE DRIVER PART VIA NETWORK DISTRIBUTOR, «, t00=0x0084, t01=0x012c}
0x0cf8e…0cfa4               Head {h00=0x0012, h01=0x0050, text=»*  AT POWER ON«, t00=0x0084, t01=0x016e}
0x0cfa4…0cfae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0184}
0x0cfae…0cfc2               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0084, t01=0x018e}
0x0cfc2…0cfdc               Head {h00=0x0016, h01=0x0050, text=»*  1. SET DWT BUSY«, t00=0x0085, t01=0x0012}
0x0cfdc…0cff6               Head {h00=0x0016, h01=0x0050, text=»*  2. CLEAR SCREEN«, t00=0x0085, t01=0x002c}
0x0cff6…0d030               Head {h00=0x0036, h01=0x0050, text=»*  3. INITIATE CURRENT NEXT WRITE POSITION IN DWT «, t00=0x0085, t01=0x0046}
0x0d030…0d054               Head {h00=0x0020, h01=0x0050, text=»*  4. RESET BITS IN DWT FOR «, t00=0x0085, t01=0x0080}
0x0d054…0d06e               Head {h00=0x0016, h01=0x0050, text=»*   - SCROLL MODE «, t00=0x0085, t01=0x00a4}
0x0d06e…0d090               Head {h00=0x001e, h01=0x0050, text=»*   - LAST COLUMN WRITTEN «, t00=0x0085, t01=0x00be}
0x0d090…0d0ac               Head {h00=0x0018, h01=0x0050, text=»*   - UNDERLINE MODE«, t00=0x0085, t01=0x00e0}
0x0d0ac…0d0cc               Head {h00=0x001c, h01=0x0050, text=»*  5. SET BIT IN DWT FOR«, t00=0x0085, t01=0x00fc}
0x0d0cc…0d0ee               Head {h00=0x001e, h01=0x0050, text=»*   - HIGH INTENSITY MODE «, t00=0x0085, t01=0x011c}
0x0d0ee…0d128               Head {h00=0x0036, h01=0x0050, text=»*  6. SET RETURN STATUS FOR ECBRC: 'NOT OPERABLE' «, t00=0x0085, t01=0x013e}
0x0d128…0d14a               Head {h00=0x001e, h01=0x0050, text=»*  7. EXIT: ENDIO+DISPATCH«, t00=0x0085, t01=0x0178}
0x0d14a…0d154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x000a}
0x0d154…0d178               Head {h00=0x0020, h01=0x0050, text=»* INPUT: A4 = RECOVERY CAUSE«, t00=0x0086, t01=0x0014}
0x0d178…0d196               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x0086, t01=0x0038}
0x0d196…0d1b2               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0086, t01=0x0056}
0x0d1b2…0d1da               Head {h00=0x0024, h01=0x0050, text=»*  A7 = ORDER (IF REQUEST IS ON)«, t00=0x0086, t01=0x0072}
0x0d1da…0d208               Head {h00=0x002a, h01=0x0050, text=»*  A8 = ECB ADDRESS (IF REQUEST IS ON)«, t00=0x0086, t01=0x009a}
0x0d208…0d230               Head {h00=0x0024, h01=0x0050, text=»*       0 (IF NO REQUEST IS ON) «, t00=0x0086, t01=0x00c8}
0x0d230…0d23a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00f0}
0x0d23a…0d25c               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x0086, t01=0x00fa}
0x0d25c…0d278               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0086, t01=0x011c}
0x0d278…0d282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0138}
0x0d282…0d2c8               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0086, t01=0x0142}
0x0d2c8…0d2d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0188}
0x0d2d2…0d2e4 (135, 0, 400) Head {h00=0x000e, h01=0x0050, text=»RCVU EQU *«, t00=0x0087, t01=0x0004}
0x0d2e4…0d304               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/7FFF READY-BIT«, t00=0x0087, t01=0x0016}
0x0d304…0d336               Head {h00=0x002e, h01=0x0050, text=» ANS A2,DWTST,A6 RESET IT (=SET DWT BUSY) «, t00=0x0087, t01=0x0036}
0x0d336…0d372               Head {h00=0x0038, h01=0x0050, text=» CF A5,CLESCR CLEAR SCREEN, RESET WRITE+CURSOR POS. «, t00=0x0087, t01=0x0068}
0x0d372…0d396               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0087, t01=0x00a4}
0x0d396…0d3ba               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/0101 HOME POSITION«, t00=0x0087, t01=0x00c8}
0x0d3ba…0d3f8               Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 AS CURRENT NEXT WRITE POSITION «, t00=0x0087, t01=0x00ec}
0x0d3f8…0d43c               Head {h00=0x0040, h01=0x0050, text=» LDK A4,ROLBIT+LCWBIT BIT 8+9 (SCROLL + LAST COLUMN WRITTEN)«, t00=0x0087, t01=0x012a}
0x0d43c…0d45a               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x0087, t01=0x016e}
0x0d45a…0d486               Head {h00=0x0028, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BITS IN DWT «, t00=0x0087, t01=0x018c}
0x0d486…0d4bc               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0088, t01=0x0028}
0x0d4bc…0d4f2               Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR STATUS NOT OPERABLE (FOR ECBRC) «, t00=0x0088, t01=0x005e}
0x0d4f2…0d528               Head {h00=0x0032, h01=0x0050, text=» RB ACV400 GO RESET UNDERLINE+INTENSITY MODE, «, t00=0x0088, t01=0x0094}
0x0d528…0d54e               Head {h00=0x0022, h01=0x0050, text=»*   AND EXIT:  ENDIO+DISPATCH «, t00=0x0088, t01=0x00ca}
0x0d54e…0d55c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x00f0}
0x0d55c…0d566               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00fe}
0x0d566…0d5ac               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0088, t01=0x0108}
0x0d5ac…0d5b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x014e}
0x0d5b6…0d5dc               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0088, t01=0x0158}
0x0d5dc…0d60a               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=0x017e}
0x0d60a…0d62c               Head {h00=0x001e, h01=0x0050, text=»* E C H O   R O U T I N E «, t00=0x0089, t01=0x001c}
0x0d62c…0d636               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x003e}
0x0d636…0d67c               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0089, t01=0x0048}
0x0d67c…0d686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x008e}
0x0d686…0d690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0098}
0x0d690…0d6d0               Head {h00=0x003c, h01=0x0050, text=»* ENTERED: FROM KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR,«, t00=0x0089, t01=0x00a2}
0x0d6d0…0d6f6               Head {h00=0x0022, h01=0x0050, text=»*  AT KEYBOARD INPUT WITH ECHO«, t00=0x0089, t01=0x00e2}
0x0d6f6…0d700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0108}
0x0d700…0d714               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x0089, t01=0x0112}
0x0d714…0d744               Head {h00=0x002c, h01=0x0050, text=»*  1. ECHOING OF ALPHANUMERIC CHARACTERS«, t00=0x0089, t01=0x0126}
0x0d744…0d772               Head {h00=0x002a, h01=0x0050, text=»*  2. HANDLING OF BACKSPACE-CHARACTER «, t00=0x0089, t01=0x0156}
0x0d772…0d79c               Head {h00=0x0026, h01=0x0050, text=»*  3. HANDLING OF CLEAR-CHARACTER «, t00=0x0089, t01=0x0184}
0x0d79c…0d7c8               Head {h00=0x0028, h01=0x0050, text=»*  4. HANDLING OF LINEFEED-CHARACTER«, t00=0x008a, t01=0x001e}
0x0d7c8…0d7fc               Head {h00=0x0030, h01=0x0050, text=»*  5. HANDLING OF CARRIAGE-RETURN-CHARACTER «, t00=0x008a, t01=0x004a}
0x0d7fc…0d844               Head {h00=0x0044, h01=0x0050, text=»*  6. HANDLING OF END-OF-RECORD-CHARACTER (ALPHANUM., LF OR CR) «, t00=0x008a, t01=0x007e}
0x0d844…0d882               Head {h00=0x003a, h01=0x0050, text=»*  7. EXIT: TO KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR«, t00=0x008a, t01=0x00c6}
0x0d882…0d88c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0104}
0x0d88c…0d8b2               Head {h00=0x0022, h01=0x0050, text=»* INPUT: A2 = BITS 0-7 : ZERO «, t00=0x008a, t01=0x010e}
0x0d8b2…0d8d6               Head {h00=0x0020, h01=0x0050, text=»*       BITS 8-15: CHARACTER«, t00=0x008a, t01=0x0134}
0x0d8d6…0d8f4               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x008a, t01=0x0158}
0x0d8f4…0d910               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x008a, t01=0x0176}
0x0d910…0d938 (139, 0, 400) Head {h00=0x0024, h01=0x0050, text=»*  A7 = BIT 0  =1 IF END OF ECHO«, t00=0x008b, t01=0x0004}
0x0d938…0d958               Head {h00=0x001c, h01=0x0050, text=»*              =0 IF NOT«, t00=0x008b, t01=0x002c}
0x0d958…0d962               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x004c}
0x0d962…0d984               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A6 = DWT ADDRESS«, t00=0x008b, t01=0x0056}
0x0d984…0d98e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0078}
0x0d98e…0d9d6               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008b, t01=0x0082}
0x0d9d6…0d9e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00ca}
0x0d9e0…0d9f4               Head {h00=0x0010, h01=0x0050, text=»ECHOVU EQU *«, t00=0x008b, t01=0x00d4}
0x0d9f4…0da20               Head {h00=0x0028, h01=0x0050, text=» LDR A7,A7 END OF REQUEST FOR ECHO ?«, t00=0x008b, t01=0x00e8}
0x0da20…0da3a               Head {h00=0x0016, h01=0x0050, text=» RF(N) ECV110 YES «, t00=0x008b, t01=0x0114}
0x0da3a…0da44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x012e}
0x0da44…0da6e               Head {h00=0x0026, h01=0x0050, text=»* CHECK IF SPECIAL ECHO CHARACTER «, t00=0x008b, t01=0x0138}
0x0da6e…0da78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0162}
0x0da78…0dab0               Head {h00=0x0034, h01=0x0050, text=» CWK A2,/80 8-BIT SET ? (=EOR-CHARACTER, >=/80) «, t00=0x008b, t01=0x016c}
0x0dab0…0dac6               Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x008c, t01=0x0014}
0x0dac6…0daf4               Head {h00=0x002a, h01=0x0050, text=» RF(NL) ECV120 YES. NOT TO BE ECHOED. «, t00=0x008c, t01=0x002a}
0x0daf4…0db00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x0058}
0x0db00…0db16               Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=1 «, t00=0x008c, t01=0x0064}
0x0db16…0db46               Head {h00=0x002c, h01=0x0050, text=» RF(L) ECV080 NO. THEN NOT EOR-CHARACTER«, t00=0x008c, t01=0x007a}
0x0db46…0db50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00aa}
0x0db50…0db70               Head {h00=0x001c, h01=0x0050, text=»* ECHO OF EOR-CHARACTER «, t00=0x008c, t01=0x00b4}
0x0db70…0db7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00d4}
0x0db7a…0db94               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/7F CLEAN «, t00=0x008c, t01=0x00de}
0x0db94…0dbae               Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 </20 ?«, t00=0x008c, t01=0x00f8}
0x0dbae…0dbe8               Head {h00=0x0036, h01=0x0050, text=» RF(L) ECV085 YES. COMMAND CHARACTER AS EOR-CHAR. «, t00=0x008c, t01=0x0112}
0x0dbe8…0dc1e               Head {h00=0x0032, h01=0x0050, text=» RF ECV095 NO. ALPHANUMERIC CHAR AS EOR-CHAR. «, t00=0x008c, t01=0x014c}
0x0dc1e…0dc2a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x0182}
0x0dc2a…0dc34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x018e}
0x0dc34…0dc58               Head {h00=0x0020, h01=0x0050, text=»* ECHO OF NON-EOR CHARACTER «, t00=0x008d, t01=0x0008}
0x0dc58…0dc62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x002c}
0x0dc62…0dc76               Head {h00=0x0010, h01=0x0050, text=»ECV080 EQU *«, t00=0x008d, t01=0x0036}
0x0dc76…0dc90               Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 </20 ?«, t00=0x008d, t01=0x004a}
0x0dc90…0dcc8               Head {h00=0x0034, h01=0x0050, text=» RF(NL) ECV095 NO. THEN ALPHANUMERIC CHARACTER. «, t00=0x008d, t01=0x0064}
0x0dcc8…0dcee               Head {h00=0x0022, h01=0x0050, text=» SUK A2,/08 BACKSPACE ? (/08) «, t00=0x008d, t01=0x009c}
0x0dcee…0dd08               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ECV130 YES «, t00=0x008d, t01=0x00c2}
0x0dd08…0dd34               Head {h00=0x0028, h01=0x0050, text=» SUK A2,/10 CLEAR-CHARACTER ? (/18) «, t00=0x008d, t01=0x00dc}
0x0dd34…0dd4e               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ECV160 YES «, t00=0x008d, t01=0x0108}
0x0dd4e…0dd74               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/18 RESTORE CHARACTER «, t00=0x008d, t01=0x0122}
0x0dd74…0dd88               Head {h00=0x0010, h01=0x0050, text=»ECV085 EQU *«, t00=0x008d, t01=0x0148}
0x0dd88…0ddac               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/0A LINEFEED ? (/0A)«, t00=0x008d, t01=0x015c}
0x0ddac…0ddc6               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) ECV090 NO «, t00=0x008d, t01=0x0180}
0x0ddc6…0ddd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x000a}
0x0ddd0…0ddea               Head {h00=0x0016, h01=0x0050, text=»* ECHO OF LINEFEED«, t00=0x008e, t01=0x0014}
0x0ddea…0ddf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x002e}
0x0ddf4…0de22               Head {h00=0x002a, h01=0x0050, text=» CF A5,NXTROW DO LINEFEED TO NEXT ROW «, t00=0x008e, t01=0x0038}
0x0de22…0de42               Head {h00=0x001c, h01=0x0050, text=» RF ECV100 GO SET CURSOR«, t00=0x008e, t01=0x0066}
0x0de42…0de56               Head {h00=0x0010, h01=0x0050, text=»ECV090 EQU *«, t00=0x008e, t01=0x0086}
0x0de56…0de80               Head {h00=0x0026, h01=0x0050, text=» SUK A2,3 CARRIAGE RETURN ? (/0D) «, t00=0x008e, t01=0x009a}
0x0de80…0deb8               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) ECV120 NO. THEN ILLEGAL ECHO CHARACTER! «, t00=0x008e, t01=0x00c4}
0x0deb8…0dec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x00fc}
0x0dec2…0dee4               Head {h00=0x001e, h01=0x0050, text=»* ECHO OF CARRIAGE RETURN «, t00=0x008e, t01=0x0106}
0x0dee4…0deee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0128}
0x0deee…0df16               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/01 FIRST COLUMN OF ROW «, t00=0x008e, t01=0x0132}
0x0df16…0df52               Head {h00=0x0038, h01=0x0050, text=» SC A2,DWTCNC+DWTDEV,A6 AS CURRENT NEXT WRITE COLUMN«, t00=0x008e, t01=0x015a}
0x0df52…0df8c               Head {h00=0x0036, h01=0x0050, text=» LDK A4,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x008f, t01=0x0008}
0x0df8c…0dfaa               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x008f, t01=0x0042}
0x0dfaa…0dfd0               Head {h00=0x0022, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET BIT 9 «, t00=0x008f, t01=0x0060}
0x0dfd0…0dff0               Head {h00=0x001c, h01=0x0050, text=» RF ECV100 GO SET CURSOR«, t00=0x008f, t01=0x0086}
0x0dff0…0dffa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00a6}
0x0dffa…0e026               Head {h00=0x0028, h01=0x0050, text=»* DO ECHO OF ALPHANUMERIC CHARACTER «, t00=0x008f, t01=0x00b0}
0x0e026…0e030               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00dc}
0x0e030…0e044               Head {h00=0x0010, h01=0x0050, text=»ECV095 EQU *«, t00=0x008f, t01=0x00e6}
0x0e044…0e06c               Head {h00=0x0024, h01=0x0050, text=» CF A5,ECHOUT ECHO THE CHARACTER«, t00=0x008f, t01=0x00fa}
0x0e06c…0e0a8               Head {h00=0x0038, h01=0x0050, text=» CF A15,NXTCOL UPDATE COLUMN COUNTER TO NEXT COLUMN «, t00=0x008f, t01=0x0122}
0x0e0a8…0e0bc               Head {h00=0x0010, h01=0x0050, text=»ECV100 EQU *«, t00=0x008f, t01=0x015e}
0x0e0bc…0e0fa               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x008f, t01=0x0172}
0x0e0fa…0e124               Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTCUR OUTPUT CURSOR IN IT «, t00=0x0090, t01=0x0020}
0x0e124…0e148               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0090, t01=0x004a}
0x0e148…0e162               Head {h00=0x0016, h01=0x0050, text=» RF ECV120 RETURN «, t00=0x0090, t01=0x006e}
0x0e162…0e16c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0088}
0x0e16c…0e18a               Head {h00=0x001a, h01=0x0050, text=»* END THE ECHO REQUEST«, t00=0x0090, t01=0x0092}
0x0e18a…0e194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00b0}
0x0e194…0e1a8               Head {h00=0x0010, h01=0x0050, text=»ECV110 EQU *«, t00=0x0090, t01=0x00ba}
0x0e1a8…0e1de               Head {h00=0x0032, h01=0x0050, text=» CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION«, t00=0x0090, t01=0x00ce}
0x0e1de…0e210               Head {h00=0x002e, h01=0x0050, text=» CF A15,TENDIO END ECHO-OUTPUT I/O-REQUEST«, t00=0x0090, t01=0x0104}
0x0e210…0e21a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0136}
0x0e21a…0e23e               Head {h00=0x0020, h01=0x0050, text=»* RETURN FROM ECHO HANDLING «, t00=0x0090, t01=0x0140}
0x0e23e…0e248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0164}
0x0e248…0e25c               Head {h00=0x0010, h01=0x0050, text=»ECV120 EQU *«, t00=0x0090, t01=0x016e}
0x0e25c…0e28e               Head {h00=0x002e, h01=0x0050, text=» ABL ECHRTN RETURN FROM ECHO TO KB-DRIVER «, t00=0x0090, t01=0x0182}
0x0e28e…0e29c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0091, t01=0x0024}
0x0e29c…0e2a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0032}
0x0e2a6…0e2d2               Head {h00=0x0028, h01=0x0050, text=»* HANDLING OF A BACKSPACE-CHARACTER «, t00=0x0091, t01=0x003c}
0x0e2d2…0e2dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0068}
0x0e2dc…0e2f0               Head {h00=0x0010, h01=0x0050, text=»ECV130 EQU *«, t00=0x0091, t01=0x0072}
0x0e2f0…0e30a               Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTDEV,A6  «, t00=0x0091, t01=0x0086}
0x0e30a…0e32a               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A2 SAVE INTO A4 «, t00=0x0091, t01=0x00a0}
0x0e32a…0e36c               Head {h00=0x003e, h01=0x0050, text=» ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN ALREADY WRITTEN «, t00=0x0091, t01=0x00c0}
0x0e36c…0e38c               Head {h00=0x001c, h01=0x0050, text=»*   BY PREVIOUS REQUEST)«, t00=0x0091, t01=0x0102}
0x0e38c…0e3b8               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) ECV120 YES. THEN NO RUBOUT !«, t00=0x0091, t01=0x0122}
0x0e3b8…0e3da               Head {h00=0x001e, h01=0x0050, text=» ANK A2,LCWBIT BIT 9 SET ?«, t00=0x0091, t01=0x014e}
0x0e3da…0e41a               Head {h00=0x003c, h01=0x0050, text=» RF(NZ) ECV140 YES.LAST COLUMN WRITTEN (DURING REQUEST) «, t00=0x0091, t01=0x0170}
0x0e41a…0e45c               Head {h00=0x003e, h01=0x0050, text=» LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER«, t00=0x0092, t01=0x0020}
0x0e45c…0e478               Head {h00=0x0018, h01=0x0050, text=»*   PREVIOUS REQUEST«, t00=0x0092, t01=0x0062}
0x0e478…0e4b6               Head {h00=0x003a, h01=0x0050, text=» CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITION ?«, t00=0x0092, t01=0x007e}
0x0e4b6…0e4e2               Head {h00=0x0028, h01=0x0050, text=» RB(E) ECV120 YES. THEN NO RUB-OUT !«, t00=0x0092, t01=0x00bc}
0x0e4e2…0e4f6               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0092, t01=0x00e8}
0x0e4f6…0e536               Head {h00=0x003c, h01=0x0050, text=» ADS A4,DWTCN+DWTDEV,A6 DECR CURRENT NEXT WRITE POSITION«, t00=0x0092, t01=0x00fc}
0x0e536…0e548               Head {h00=0x000e, h01=0x0050, text=» RF ECV150«, t00=0x0092, t01=0x013c}
0x0e548…0e55c               Head {h00=0x0010, h01=0x0050, text=»ECV140 EQU *«, t00=0x0092, t01=0x014e}
0x0e55c…0e5a2               Head {h00=0x0042, h01=0x0050, text=» XRS A2,DWTDEV,A6 RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) «, t00=0x0092, t01=0x0162}
0x0e5a2…0e5b6               Head {h00=0x0010, h01=0x0050, text=»ECV150 EQU *«, t00=0x0093, t01=0x0018}
0x0e5b6…0e5ec               Head {h00=0x0032, h01=0x0050, text=» LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN«, t00=0x0093, t01=0x002c}
0x0e5ec…0e61c               Head {h00=0x002c, h01=0x0050, text=» CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT«, t00=0x0093, t01=0x0062}
0x0e61c…0e63c               Head {h00=0x001c, h01=0x0050, text=» RB ECV100 GO SET CURSOR«, t00=0x0093, t01=0x0092}
0x0e63c…0e64a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x00b2}
0x0e64a…0e654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00c0}
0x0e654…0e67c               Head {h00=0x0024, h01=0x0050, text=»* HANDLING OF A CLEAR-CHARACTER «, t00=0x0093, t01=0x00ca}
0x0e67c…0e686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00f2}
0x0e686…0e69a               Head {h00=0x0010, h01=0x0050, text=»ECV160 EQU *«, t00=0x0093, t01=0x00fc}
0x0e69a…0e6b4               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x0093, t01=0x0110}
0x0e6b4…0e6d4               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 ALSO INTO A2 «, t00=0x0093, t01=0x012a}
0x0e6d4…0e70e               Head {h00=0x0036, h01=0x0050, text=» ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN «, t00=0x0093, t01=0x014a}
0x0e70e…0e736               Head {h00=0x0024, h01=0x0050, text=»*   ALREADY BY PREVIOUS REQUEST)«, t00=0x0093, t01=0x0184}
0x0e736…0e762               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) ECV120 YES. THEN NO RUBOUT !«, t00=0x0094, t01=0x001c}
0x0e762…0e76c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0048}
0x0e76c…0e788               Head {h00=0x0018, h01=0x0050, text=»* PREPARE THE RUBOUT«, t00=0x0094, t01=0x0052}
0x0e788…0e792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x006e}
0x0e792…0e7d0               Head {h00=0x003a, h01=0x0050, text=» LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x0094, t01=0x0078}
0x0e7d0…0e810               Head {h00=0x003c, h01=0x0050, text=» SU A3,DWTSN+DWTDEV,A6 SUBTRACT WITH NEXT WRITE POSITION«, t00=0x0094, t01=0x00b6}
0x0e810…0e838               Head {h00=0x0024, h01=0x0050, text=»*   SAVED AFTER PREVIOUS REQUEST«, t00=0x0094, t01=0x00f6}
0x0e838…0e872               Head {h00=0x0036, h01=0x0050, text=» ANK A2,LCWBIT BIT 9 SET ? (=LAST COLUMN WRITTEN, «, t00=0x0094, t01=0x011e}
0x0e872…0e890               Head {h00=0x001a, h01=0x0050, text=»*   DURING REQUEST !) «, t00=0x0094, t01=0x0158}
0x0e890…0e8a8               Head {h00=0x0014, h01=0x0050, text=» RF(Z) ECV170 NO«, t00=0x0094, t01=0x0176}
0x0e8a8…0e8e0               Head {h00=0x0034, h01=0x0050, text=» ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN«, t00=0x0094, t01=0x018e}
0x0e8e0…0e8f4               Head {h00=0x0010, h01=0x0050, text=»ECV170 EQU *«, t00=0x0095, t01=0x0036}
0x0e8f4…0e928               Head {h00=0x0030, h01=0x0050, text=» ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? «, t00=0x0095, t01=0x004a}
0x0e928…0e940               Head {h00=0x0014, h01=0x0050, text=» RB(Z) ECV120 NO«, t00=0x0095, t01=0x007e}
0x0e940…0e94a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0096}
0x0e94a…0e962               Head {h00=0x0014, h01=0x0050, text=»* DO THE RUBOUT «, t00=0x0095, t01=0x00a0}
0x0e962…0e96c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00b8}
0x0e96c…0e9aa               Head {h00=0x003a, h01=0x0050, text=» CF A15,RESCN RESTORE SAVED WRITE POS. AS CURRENT NEXT«, t00=0x0095, t01=0x00c2}
0x0e9aa…0e9e4               Head {h00=0x0036, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST TO DO RUBOUT«, t00=0x0095, t01=0x0100}
0x0e9e4…0ea08               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0095, t01=0x013a}
0x0ea08…0ea1c               Head {h00=0x0010, h01=0x0050, text=»ECV180 EQU *«, t00=0x0095, t01=0x015e}
0x0ea1c…0ea4e               Head {h00=0x002e, h01=0x0050, text=» LDK A2,SPACE GET SPACE TO DO RUBOUT WITH «, t00=0x0095, t01=0x0172}
0x0ea4e…0ea6e               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x0096, t01=0x0014}
0x0ea6e…0ea92               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0096, t01=0x0034}
0x0ea92…0eabe               Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 ONE MORE CHAR TO RUBOUT ? «, t00=0x0096, t01=0x0058}
0x0eabe…0ead8               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ECV180 YES«, t00=0x0096, t01=0x0084}
0x0ead8…0eb04               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x0096, t01=0x009e}
0x0eb04…0eb28               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DEVERR STATUS NOT OK«, t00=0x0096, t01=0x00ca}
0x0eb28…0eb48               Head {h00=0x001c, h01=0x0050, text=» RB ECV100 GO SET CURSOR«, t00=0x0096, t01=0x00ee}
0x0eb48…0eb56               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x010e}
0x0eb56…0eb60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x011c}
0x0eb60…0eba0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0096, t01=0x0126}
0x0eba0…0ebaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0166}
0x0ebaa…0ebd0               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0096, t01=0x0170}
0x0ebd0…0ebfe               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0097, t01=0x0008}
0x0ebfe…0ec22               Head {h00=0x0020, h01=0x0050, text=»* E R R O R   R O U T I N E «, t00=0x0097, t01=0x0036}
0x0ec22…0ec2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x005a}
0x0ec2c…0ec6c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0097, t01=0x0064}
0x0ec6c…0ec76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00a4}
0x0ec76…0ec80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00ae}
0x0ec80…0ecac               Head {h00=0x0028, h01=0x0050, text=»* ENTERED: FROM DEVICE DRIVER PART, «, t00=0x0097, t01=0x00b8}
0x0ecac…0ece6               Head {h00=0x0036, h01=0x0050, text=»*  AT ERROR STATUS AT RETURN FROM LINE DRIVER PART«, t00=0x0097, t01=0x00e4}
0x0ece6…0ecf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x011e}
0x0ecf0…0ed30               Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: 1. INDICATE STATUS 'NOT OPERABLE' FOR ECBRC «, t00=0x0097, t01=0x0128}
0x0ed30…0ed50               Head {h00=0x001c, h01=0x0050, text=»*   2. EXIT FROM DRIVER «, t00=0x0097, t01=0x0168}
0x0ed50…0ed5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0188}
0x0ed5a…0ed7c (152, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS «, t00=0x0098, t01=0x0004}
0x0ed7c…0ed86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0026}
0x0ed86…0edbe               Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: A1 = BIT 15  =1 (STATUS NOT OPERABLE) «, t00=0x0098, t01=0x0030}
0x0edbe…0edda               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x0098, t01=0x0068}
0x0edda…0ede4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0084}
0x0ede4…0ee26               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0098, t01=0x008e}
0x0ee26…0ee30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x00d0}
0x0ee30…0ee44               Head {h00=0x0010, h01=0x0050, text=»DEVERR EQU *«, t00=0x0098, t01=0x00da}
0x0ee44…0ee7a               Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR STATUS NOT OPERABLE (FOR ECBRC) «, t00=0x0098, t01=0x00ee}
0x0ee7a…0eea6               Head {h00=0x0028, h01=0x0050, text=» ABL ACV410 EXIT: ENDIO AND DISPATCH«, t00=0x0098, t01=0x0124}
0x0eea6…0eeb4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0150}
0x0eeb4…0eebe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x015e}
0x0eebe…0ef08               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0098, t01=0x0168}
0x0ef08…0ef12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0022}
0x0ef12…0ef38               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x0099, t01=0x002c}
0x0ef38…0ef66               Head {h00=0x002a, h01=0x0050, text=»* D E V I C E   D R I V E R   P A R T «, t00=0x0099, t01=0x0052}
0x0ef66…0ef88               Head {h00=0x001e, h01=0x0050, text=»* S U B - R O U T I N E S «, t00=0x0099, t01=0x0080}
0x0ef88…0ef92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00a2}
0x0ef92…0efdc               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0099, t01=0x00ac}
0x0efdc…0efe6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00f6}
0x0efe6…0eff0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0100}
0x0eff0…0effa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x010a}
0x0effa…0f042               Head {h00=0x0044, h01=0x0050, text=»* -CHKOUT CHECK IF LAST COLUMN WRITTEN, AND OUTPUT ONE CHARACTER«, t00=0x0099, t01=0x0114}
0x0f042…0f076               Head {h00=0x0030, h01=0x0050, text=»* -ECHOUT OUTPUT ONE CHARACTER IN ECHO MODE «, t00=0x0099, t01=0x015c}
0x0f076…0f0a8               Head {h00=0x002e, h01=0x0050, text=»* -NXTROW UPDATE ROW COUNTER TO NEXT ROW, «, t00=0x0099, t01=0x0190}
0x0f0a8…0f0d2               Head {h00=0x0026, h01=0x0050, text=»*  AND IF NECESSARY HANDLE SCROLL.«, t00=0x009a, t01=0x0032}
0x0f0d2…0f10e               Head {h00=0x0038, h01=0x0050, text=»* -NXTCOL CALLED AFTER WRITE IN CURRENT COLUMN, SO: «, t00=0x009a, t01=0x005c}
0x0f10e…0f13e               Head {h00=0x002c, h01=0x0050, text=»*  UPDATE COLUMN COUNTER TO NEXT COLUMN,«, t00=0x009a, t01=0x0098}
0x0f13e…0f176               Head {h00=0x0034, h01=0x0050, text=»*  AND IF NECESSARY HANDLE LAST-COLUMN-WRITTEN. «, t00=0x009a, t01=0x00c8}
0x0f176…0f1a8               Head {h00=0x002e, h01=0x0050, text=»* -SAVCN SAVE CURRENT NEXT WRITE POSITION «, t00=0x009a, t01=0x0100}
0x0f1a8…0f1ec               Head {h00=0x0040, h01=0x0050, text=»* -RESCN RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT«, t00=0x009a, t01=0x0132}
0x0f1ec…0f1f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0176}
0x0f1f6…0f200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0180}
0x0f200…0f20a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x018a}
0x0f20a…0f218 (155, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x0004}
0x0f218…0f222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0012}
0x0f222…0f262               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x009b, t01=0x001c}
0x0f262…0f26c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x005c}
0x0f26c…0f282               Head {h00=0x0012, h01=0x0050, text=»* C H K O U T «, t00=0x009b, t01=0x0066}
0x0f282…0f28c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x007c}
0x0f28c…0f2ce               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x009b, t01=0x0086}
0x0f2ce…0f2d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00c8}
0x0f2d8…0f2e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00d2}
0x0f2e2…0f2fe               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,CHKOUT«, t00=0x009b, t01=0x00dc}
0x0f2fe…0f308               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00f8}
0x0f308…0f33e               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x009b, t01=0x0102}
0x0f33e…0f348               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0138}
0x0f348…0f37e               Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: 1. CHECK IF LAST COLUMN WRITTTEN, «, t00=0x009b, t01=0x0142}
0x0f37e…0f3c0               Head {h00=0x003e, h01=0x0050, text=»*    AND IF SO END THE WRITE REQUEST AND START A NEW ONE. «, t00=0x009b, t01=0x0178}
0x0f3c0…0f3e2               Head {h00=0x001e, h01=0x0050, text=»*  2. OUTPUT ONE CHARACTER«, t00=0x009c, t01=0x002a}
0x0f3e2…0f414               Head {h00=0x002e, h01=0x0050, text=»*  3. UPDATE COLUMN COUNTER TO NEXT COLUMN«, t00=0x009c, t01=0x004c}
0x0f414…0f41e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x007e}
0x0f41e…0f44a               Head {h00=0x0028, h01=0x0050, text=»* INPUT: A2 = CHARACTER TO BE OUTPUT«, t00=0x009c, t01=0x0088}
0x0f44a…0f46c               Head {h00=0x001e, h01=0x0050, text=»*  A5 = DWT STACK POINTER «, t00=0x009c, t01=0x00b4}
0x0f46c…0f488               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x009c, t01=0x00d6}
0x0f488…0f492               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00f2}
0x0f492…0f4b4               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 = UNCHANGED !«, t00=0x009c, t01=0x00fc}
0x0f4b4…0f4cc               Head {h00=0x0014, h01=0x0050, text=»*  A4 = CHANGED «, t00=0x009c, t01=0x011e}
0x0f4cc…0f4ea               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x009c, t01=0x0136}
0x0f4ea…0f506               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x009c, t01=0x0154}
0x0f506…0f510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0170}
0x0f510…0f55a               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x009c, t01=0x017a}
0x0f55a…0f564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0034}
0x0f564…0f578               Head {h00=0x0010, h01=0x0050, text=»CHKOUT EQU *«, t00=0x009d, t01=0x003e}
0x0f578…0f5a8               Head {h00=0x002c, h01=0x0050, text=» LDR A4,A2  SAVE CHARACTER TO BE OUTPUT «, t00=0x009d, t01=0x0052}
0x0f5a8…0f5c2               Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTDEV,A6  «, t00=0x009d, t01=0x0082}
0x0f5c2…0f5fc               Head {h00=0x0036, h01=0x0050, text=» ANK A2,LCWBIT BIT 9 SET ? (=LAST COLUMN WRITTEN) «, t00=0x009d, t01=0x009c}
0x0f5fc…0f614               Head {h00=0x0014, h01=0x0050, text=» RF(Z) CHKO10 NO«, t00=0x009d, t01=0x00d6}
0x0f614…0f640               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x009d, t01=0x00ee}
0x0f640…0f664               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x009d, t01=0x011a}
0x0f664…0f6a4               Head {h00=0x003c, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 NOW ALSO NEXT CHAR IN LAST COLUMN«, t00=0x009d, t01=0x013e}
0x0f6a4…0f6d2               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST «, t00=0x009d, t01=0x017e}
0x0f6d2…0f6f6               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x009e, t01=0x001c}
0x0f6f6…0f70a               Head {h00=0x0010, h01=0x0050, text=»CHKO10 EQU *«, t00=0x009e, t01=0x0040}
0x0f70a…0f736               Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 RESTORE  SAVED CHARACTER «, t00=0x009e, t01=0x0054}
0x0f736…0f756               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x009e, t01=0x0080}
0x0f756…0f77a               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x009e, t01=0x00a0}
0x0f77a…0f79e               Head {h00=0x0020, h01=0x0050, text=» LDR A2,A4 RESTORE A2 AGAIN «, t00=0x009e, t01=0x00c4}
0x0f79e…0f7da               Head {h00=0x0038, h01=0x0050, text=» CF A15,NXTCOL UPDATE COLUMN COUNTER TO NEXT COLUMN «, t00=0x009e, t01=0x00e8}
0x0f7da…0f800               Head {h00=0x0022, h01=0x0050, text=» ABL NDRET RETURN VIA A5-STACK«, t00=0x009e, t01=0x0124}
0x0f800…0f80e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x014a}
0x0f80e…0f818               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0158}
0x0f818…0f85c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009e, t01=0x0162}
0x0f85c…0f866               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0016}
0x0f866…0f87c               Head {h00=0x0012, h01=0x0050, text=»* E C H O U T «, t00=0x009f, t01=0x0020}
0x0f87c…0f886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0036}
0x0f886…0f8ca               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009f, t01=0x0040}
0x0f8ca…0f8d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0084}
0x0f8d4…0f8de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x008e}
0x0f8de…0f8fa               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,ECHOUT«, t00=0x009f, t01=0x0098}
0x0f8fa…0f904               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x00b4}
0x0f904…0f93a               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x009f, t01=0x00be}
0x0f93a…0f944               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x00f4}
0x0f944…0f97a               Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: OUTPUT ONE CHARACTER IN ECHO MODE «, t00=0x009f, t01=0x00fe}
0x0f97a…0f9a8               Head {h00=0x002a, h01=0x0050, text=»*  OBS: COLUMN COUNTER IS NOT UPDATED «, t00=0x009f, t01=0x0134}
0x0f9a8…0f9b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0162}
0x0f9b2…0f9d6               Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 = ECHO CHARACTER«, t00=0x009f, t01=0x016c}
0x0f9d6…0f9f8               Head {h00=0x001e, h01=0x0050, text=»*  A5 = DWT STACK POINTER «, t00=0x009f, t01=0x0190}
0x0f9f8…0fa14               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x00a0, t01=0x0022}
0x0fa14…0fa1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x003e}
0x0fa1e…0fa3c               Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A2 = CHANGED«, t00=0x00a0, t01=0x0048}
0x0fa3c…0fa54               Head {h00=0x0014, h01=0x0050, text=»*  A4 = CHANGED «, t00=0x00a0, t01=0x0066}
0x0fa54…0fa72               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x00a0, t01=0x007e}
0x0fa72…0fa8e               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x00a0, t01=0x009c}
0x0fa8e…0fa98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x00b8}
0x0fa98…0fad8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00a0, t01=0x00c2}
0x0fad8…0fae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0102}
0x0fae2…0faf6               Head {h00=0x0010, h01=0x0050, text=»ECHOUT EQU *«, t00=0x00a0, t01=0x010c}
0x0faf6…0fb24               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE CHARACTER TO BE OUTPUT«, t00=0x00a0, t01=0x0120}
0x0fb24…0fb62               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00a0, t01=0x014e}
0x0fb62…0fb90               Head {h00=0x002a, h01=0x0050, text=» CF A5,STAWRI START THE WRITE REQUEST «, t00=0x00a0, t01=0x018c}
0x0fb90…0fbb4               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a1, t01=0x002a}
0x0fbb4…0fbde               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 RESTORE SAVED CHARACTER«, t00=0x00a1, t01=0x004e}
0x0fbde…0fbfe               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x00a1, t01=0x0078}
0x0fbfe…0fc22               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a1, t01=0x0098}
0x0fc22…0fc4e               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x00a1, t01=0x00bc}
0x0fc4e…0fc72               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a1, t01=0x00e8}
0x0fc72…0fc98               Head {h00=0x0022, h01=0x0050, text=» ABL NDRET RETURN VIA A5-STACK«, t00=0x00a1, t01=0x010c}
0x0fc98…0fca6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0132}
0x0fca6…0fcb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0140}
0x0fcb0…0fcf2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a1, t01=0x014a}
0x0fcf2…0fcfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x018c}
0x0fcfc…0fd12               Head {h00=0x0012, h01=0x0050, text=»* N X T R O W «, t00=0x00a2, t01=0x0008}
0x0fd12…0fd1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x001e}
0x0fd1c…0fd5e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a2, t01=0x0028}
0x0fd5e…0fd68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x006a}
0x0fd68…0fd72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0074}
0x0fd72…0fd90               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A5, NXTROW «, t00=0x00a2, t01=0x007e}
0x0fd90…0fd9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x009c}
0x0fd9a…0fdd0               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00a2, t01=0x00a6}
0x0fdd0…0fdda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x00dc}
0x0fdda…0fe0e               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION: UPDATE ROW COUNTER TO NEXT ROW, «, t00=0x00a2, t01=0x00e6}
0x0fe0e…0fe38               Head {h00=0x0026, h01=0x0050, text=»*   AND IF NECESSARY HANDLE SCROLL«, t00=0x00a2, t01=0x011a}
0x0fe38…0fe42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0144}
0x0fe42…0fe6a               Head {h00=0x0024, h01=0x0050, text=»* INPUT: A5 = DWT STACK POINTER «, t00=0x00a2, t01=0x014e}
0x0fe6a…0fe86               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x00a2, t01=0x0176}
0x0fe86…0fe90 (163, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0004}
0x0fe90…0feae               Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A2 = CHANGED«, t00=0x00a3, t01=0x000e}
0x0feae…0fec6               Head {h00=0x0014, h01=0x0050, text=»*  A4 = CHANGED «, t00=0x00a3, t01=0x002c}
0x0fec6…0fee4               Head {h00=0x001a, h01=0x0050, text=»*  A5 = DWT STACK BASE«, t00=0x00a3, t01=0x0044}
0x0fee4…0ff00               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT ADDRESS «, t00=0x00a3, t01=0x0062}
0x0ff00…0ff0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x007e}
0x0ff0a…0ff4c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00a3, t01=0x0088}
0x0ff4c…0ff56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x00ca}
0x0ff56…0ff6a               Head {h00=0x0010, h01=0x0050, text=»NXTROW EQU *«, t00=0x00a3, t01=0x00d4}
0x0ff6a…0ffa0               Head {h00=0x0032, h01=0x0050, text=» LC A4,DWTCNR+DWTDEV,A6 GET CURRENT ROW NUMBER«, t00=0x00a3, t01=0x00e8}
0x0ffa0…0ffc4               Head {h00=0x0020, h01=0x0050, text=» CCK A4,MAXROW = LAST ROW ? «, t00=0x00a3, t01=0x011e}
0x0ffc4…0ffee               Head {h00=0x0026, h01=0x0050, text=» RF(E) NXTR10 YES. START SCROLLING«, t00=0x00a3, t01=0x0142}
0x0ffee…10024               Head {h00=0x0032, h01=0x0050, text=» LDKL A2,/0100 POSITION DISPLACEMENT = ONE ROW«, t00=0x00a3, t01=0x016c}
0x10024…1005c               Head {h00=0x0034, h01=0x0050, text=» ADS A2,DWTCNR+DWTDEV,A6 INCR CURRENT ROW NUMBER«, t00=0x00a4, t01=0x0012}
0x1005c…10076               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00a4, t01=0x004a}
0x10076…100b2               Head {h00=0x0038, h01=0x0050, text=» ANK A4,ROLBIT BIT 8 SET ? (=ALREADY IN SCROLL MODE)«, t00=0x00a4, t01=0x0064}
0x100b2…100d8               Head {h00=0x0022, h01=0x0050, text=» RF(Z) NXTR40 NO. THEN RETURN «, t00=0x00a4, t01=0x00a0}
0x100d8…100e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00c6}
0x100e2…100fe               Head {h00=0x0018, h01=0x0050, text=»* CONTINUE SCROLLING«, t00=0x00a4, t01=0x00d0}
0x100fe…10108               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00ec}
0x10108…10148               Head {h00=0x003c, h01=0x0050, text=» LC A4,DWTCNR+DWTDEV,A6 GET CURRENT ROW NUMBER AFTER LF «, t00=0x00a4, t01=0x00f6}
0x10148…1016c               Head {h00=0x0020, h01=0x0050, text=» CCK A4,MAXROW = LAST ROW ? «, t00=0x00a4, t01=0x0136}
0x1016c…101a8               Head {h00=0x0038, h01=0x0050, text=» RF(E) NXTR40 YES. THE NO RUBOUT ONE ROW IN ADVANCE.«, t00=0x00a4, t01=0x015a}
0x101a8…101b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0008}
0x101b2…101cc               Head {h00=0x0016, h01=0x0050, text=»* CONTINUE RUBOUT «, t00=0x00a5, t01=0x0012}
0x101cc…101d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x002c}
0x101d6…10214               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00a5, t01=0x0036}
0x10214…10244               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,/0100 RUBOUT ONE ROW IN ADVANCE«, t00=0x00a5, t01=0x0074}
0x10244…1027a               Head {h00=0x0032, h01=0x0050, text=» LDK A4,/50 ONE ROW CONTAINS 80 CHAR TO RUBOUT«, t00=0x00a5, t01=0x00a4}
0x1027a…1029a               Head {h00=0x001c, h01=0x0050, text=» RF NXTR20 GO DO RUBOUT «, t00=0x00a5, t01=0x00da}
0x1029a…102a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x00fa}
0x102a4…102c8               Head {h00=0x0020, h01=0x0050, text=»* START SCROLLING AND RUBOUT«, t00=0x00a5, t01=0x0104}
0x102c8…102d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0128}
0x102d2…102e6               Head {h00=0x0010, h01=0x0050, text=»NXTR10 EQU *«, t00=0x00a5, t01=0x0132}
0x102e6…10314               Head {h00=0x002a, h01=0x0050, text=» LDK A4,ROLBIT SET BIT 8 (SCROLL MODE)«, t00=0x00a5, t01=0x0146}
0x10314…10336               Head {h00=0x001e, h01=0x0050, text=» ORS A4,DWTDEV,A6 INTO DWT«, t00=0x00a5, t01=0x0174}
0x10336…10358               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/01 SET FIRST ROW «, t00=0x00a6, t01=0x0008}
0x10358…1038c               Head {h00=0x0030, h01=0x0050, text=» SC A2,DWTCNR+DWTDEV,A6 AS CURRENT WRITE ROW«, t00=0x00a6, t01=0x002a}
0x1038c…103c4               Head {h00=0x0034, h01=0x0050, text=» LDK A4,/A0 TWO ROWS CONTAIN 160 CHAR TO RUBOUT «, t00=0x00a6, t01=0x005e}
0x103c4…10402               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00a6, t01=0x0096}
0x10402…10416               Head {h00=0x0010, h01=0x0050, text=»NXTR20 EQU *«, t00=0x00a6, t01=0x00d4}
0x10416…10448               Head {h00=0x002e, h01=0x0050, text=» ANKL A2,/FF00 RUB FROM BEGIN OF THAT ROW «, t00=0x00a6, t01=0x00e8}
0x10448…10480               Head {h00=0x0034, h01=0x0050, text=» ADK A2,1 BEGIN OF ROW IS COLUMN 1 (NOT 'ZERO') «, t00=0x00a6, t01=0x011a}
0x10480…104b8               Head {h00=0x0034, h01=0x0050, text=» CF A5,STAWRI START NEW WRITE REQUEST TO RUBOUT «, t00=0x00a6, t01=0x0152}
0x104b8…104dc               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a6, t01=0x018a}
0x104dc…104f0               Head {h00=0x0010, h01=0x0050, text=»NXTR30 EQU *«, t00=0x00a7, t01=0x001e}
0x104f0…10522               Head {h00=0x002e, h01=0x0050, text=» LDK A2,SPACE GET SPACE TO DO RUBOUT WITH «, t00=0x00a7, t01=0x0032}
0x10522…10542               Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTCHA OUTPUT IT «, t00=0x00a7, t01=0x0064}
0x10542…10566               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a7, t01=0x0084}
0x10566…10588               Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ONE MORE TIME ? «, t00=0x00a7, t01=0x00a8}
0x10588…105a2               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) NXTR30 YES«, t00=0x00a7, t01=0x00ca}
0x105a2…105ce               Head {h00=0x0028, h01=0x0050, text=» CF A5,ENDWRI END THE WRITE REQUEST «, t00=0x00a7, t01=0x00e4}
0x105ce…105f2               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DEVERR STATUS NOT OK«, t00=0x00a7, t01=0x0110}
0x105f2…10606               Head {h00=0x0010, h01=0x0050, text=»NXTR40 EQU *«, t00=0x00a7, t01=0x0134}
0x10606…1062c               Head {h00=0x0022, h01=0x0050, text=» ABL NDRET RETURN VIA A5 STACK«, t00=0x00a7, t01=0x0148}
0x1062c…1063a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a7, t01=0x016e}
0x1063a…10644               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x017c}
0x10644…10686               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00a7, t01=0x0186}
0x10686…10690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0038}
0x10690…106a6               Head {h00=0x0012, h01=0x0050, text=»* N X T C O L «, t00=0x00a8, t01=0x0042}
0x106a6…106b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0058}
0x106b0…106f2               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00a8, t01=0x0062}
0x106f2…106fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00a4}
0x106fc…10706               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00ae}
0x10706…10724               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,NXTCOL «, t00=0x00a8, t01=0x00b8}
0x10724…1072e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00d6}
0x1072e…10764               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00a8, t01=0x00e0}
0x10764…1076e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0116}
0x1076e…107ac               Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: CALLED AFTER WRITE IN CURRENT COLUMN, SO: «, t00=0x00a8, t01=0x0120}
0x107ac…107d6               Head {h00=0x0026, h01=0x0050, text=»*  1. IF LAST COLUMN NOT WRITTEN, «, t00=0x00a8, t01=0x015e}
0x107d6…1080a               Head {h00=0x0030, h01=0x0050, text=»*     UPDATE COLUMN COUNTER TO NEXT COLUMN. «, t00=0x00a8, t01=0x0188}
0x1080a…10830               Head {h00=0x0022, h01=0x0050, text=»*  2. IF LAST COLUMN WRITTEN, «, t00=0x00a9, t01=0x002c}
0x10830…10852               Head {h00=0x001e, h01=0x0050, text=»*     SET BIT 9 IN DWTDEV.«, t00=0x00a9, t01=0x0052}
0x10852…1085c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0074}
0x1085c…10872               Head {h00=0x0012, h01=0x0050, text=»* INPUT: NONE.«, t00=0x00a9, t01=0x007e}
0x10872…1087c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0094}
0x1087c…1089a               Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A4 CHANGED. «, t00=0x00a9, t01=0x009e}
0x1089a…108a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00bc}
0x108a4…108e8               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00a9, t01=0x00c6}
0x108e8…108f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x010a}
0x108f2…10906               Head {h00=0x0010, h01=0x0050, text=»NXTCOL EQU *«, t00=0x00a9, t01=0x0114}
0x10906…10920               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00a9, t01=0x0128}
0x10920…10942               Head {h00=0x001e, h01=0x0050, text=» ANK A4,LCWBIT BIT 9 SET ?«, t00=0x00a9, t01=0x0142}
0x10942…10974               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) NXTC20 YES. LAST COLUMN IS WRITTEN«, t00=0x00a9, t01=0x0164}
0x10974…109b2               Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTCNC+DWTDEV,A6 GET CURRENT NEXT WRITE COLUMN «, t00=0x00aa, t01=0x0008}
0x109b2…109d8               Head {h00=0x0022, h01=0x0050, text=» CCK A4,MAXCOL = LAST COLUMN ?«, t00=0x00aa, t01=0x0046}
0x109d8…109f2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) NXTC10 NO «, t00=0x00aa, t01=0x006c}
0x109f2…10a1c               Head {h00=0x0026, h01=0x0050, text=» LDK A4,LCWBIT LAST COLUMN WRITTEN«, t00=0x00aa, t01=0x0086}
0x10a1c…10a40               Head {h00=0x0020, h01=0x0050, text=» ORS A4,DWTDEV,A6 SET BIT 9 «, t00=0x00aa, t01=0x00b0}
0x10a40…10a54               Head {h00=0x0010, h01=0x0050, text=» RF NXTC20  «, t00=0x00aa, t01=0x00d4}
0x10a54…10a68               Head {h00=0x0010, h01=0x0050, text=»NXTC10 EQU *«, t00=0x00aa, t01=0x00e8}
0x10a68…10aa2               Head {h00=0x0036, h01=0x0050, text=» IM DWTCN+DWTDEV,A6 INCR CURRENT NEXT WRITE COLUMN«, t00=0x00aa, t01=0x00fc}
0x10aa2…10ab6               Head {h00=0x0010, h01=0x0050, text=»NXTC20 EQU *«, t00=0x00aa, t01=0x0136}
0x10ab6…10ace               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00aa, t01=0x014a}
0x10ace…10adc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x0162}
0x10adc…10ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0170}
0x10ae6…10b28               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00aa, t01=0x017a}
0x10b28…10b32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x002c}
0x10b32…10b46               Head {h00=0x0010, h01=0x0050, text=»* S A V C N «, t00=0x00ab, t01=0x0036}
0x10b46…10b50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x004a}
0x10b50…10b92               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00ab, t01=0x0054}
0x10b92…10b9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0096}
0x10b9c…10ba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00a0}
0x10ba6…10bc2               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF 15,SAVCN «, t00=0x00ab, t01=0x00aa}
0x10bc2…10bcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00c6}
0x10bcc…10c02               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00ab, t01=0x00d0}
0x10c02…10c0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0106}
0x10c0c…10c56               Head {h00=0x0046, h01=0x0050, text=»* FUNCTION: 1. SAVE DWTCN (CURRENT NEXT WRITE POSITION) INTO DWTSN«, t00=0x00ab, t01=0x0110}
0x10c56…10c82               Head {h00=0x0028, h01=0x0050, text=»*   2. SAVE DWTDEV BIT 9 INTO BIT 10«, t00=0x00ab, t01=0x015a}
0x10c82…10c8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0186}
0x10c8c…10ca2               Head {h00=0x0012, h01=0x0050, text=»* INPUT: NONE «, t00=0x00ab, t01=0x0190}
0x10ca2…10cac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0016}
0x10cac…10ccc               Head {h00=0x001c, h01=0x0050, text=»* OUTPUT: A2,A4 CHANGED «, t00=0x00ac, t01=0x0020}
0x10ccc…10cd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0040}
0x10cd6…10d1e               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00ac, t01=0x004a}
0x10d1e…10d28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0092}
0x10d28…10d3c               Head {h00=0x0010, h01=0x0050, text=»SAVCN EQU * «, t00=0x00ac, t01=0x009c}
0x10d3c…10d64               Head {h00=0x0024, h01=0x0050, text=»* COPY DWTDEV BIT 9 INTO BIT 10 «, t00=0x00ac, t01=0x00b0}
0x10d64…10d7e               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00ac, t01=0x00d8}
0x10d7e…10d9e               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 SAVE INTO A2 «, t00=0x00ac, t01=0x00f2}
0x10d9e…10ddc               Head {h00=0x003a, h01=0x0050, text=» ANK A4,LCWBIT GET BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x00ac, t01=0x0112}
0x10ddc…10e16               Head {h00=0x0036, h01=0x0050, text=» LDK A2,LCPBIT BIT 10 (SET IF LAST COLUMN WRITTEN «, t00=0x00ac, t01=0x0150}
0x10e16…10e3e               Head {h00=0x0024, h01=0x0050, text=»*   ALREADY BY PREVIOUS REQUEST)«, t00=0x00ac, t01=0x018a}
0x10e3e…10e5c               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x00ad, t01=0x0022}
0x10e5c…10e82               Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT 10«, t00=0x00ad, t01=0x0040}
0x10e82…10eac               Head {h00=0x0026, h01=0x0050, text=» SRL A4,1 SHIFT BIT 9 INTO BIT 10 «, t00=0x00ad, t01=0x0066}
0x10eac…10ed4               Head {h00=0x0024, h01=0x0050, text=» ORS A4,DWTDEV,A6 STORE INTO DWT«, t00=0x00ad, t01=0x0090}
0x10ed4…10ef4               Head {h00=0x001c, h01=0x0050, text=»* COPY DWTCN INTO DWTSN «, t00=0x00ad, t01=0x00b8}
0x10ef4…10f32               Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION«, t00=0x00ad, t01=0x00d8}
0x10f32…10f6a               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTSN+DWTDEV,A6 SET SAVED WRITE POSITION «, t00=0x00ad, t01=0x0116}
0x10f6a…10f82               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00ad, t01=0x014e}
0x10f82…10f90               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0166}
0x10f90…10f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0174}
0x10f9a…10fde               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00ad, t01=0x017e}
0x10fde…10fe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0032}
0x10fe8…10ffc               Head {h00=0x0010, h01=0x0050, text=»* R E S C N «, t00=0x00ae, t01=0x003c}
0x10ffc…11006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0050}
0x11006…1104a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00ae, t01=0x005a}
0x1104a…11054               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x009e}
0x11054…1105e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00a8}
0x1105e…1107a               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A15,RESCN«, t00=0x00ae, t01=0x00b2}
0x1107a…11084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00ce}
0x11084…110b8               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION,DEVICE DRIVER PART«, t00=0x00ae, t01=0x00d8}
0x110b8…110c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x010c}
0x110c2…110f8               Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: 1. RESTORE, FROM DWTSN INTO DWTCN,«, t00=0x00ae, t01=0x0116}
0x110f8…11132               Head {h00=0x0036, h01=0x0050, text=»*    SAVED WRITE POSITION TO BECOME CURRENT NEXT. «, t00=0x00ae, t01=0x014c}
0x11132…11162               Head {h00=0x002c, h01=0x0050, text=»*  2. RESTORE DWTDEV BIT 9 FROM BIT 10. «, t00=0x00ae, t01=0x0186}
0x11162…1116c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0026}
0x1116c…11182               Head {h00=0x0012, h01=0x0050, text=»* INPUT: NONE.«, t00=0x00af, t01=0x0030}
0x11182…1118c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0046}
0x1118c…111ac               Head {h00=0x001c, h01=0x0050, text=»* OUTPUT: A2,A4 CHANGED.«, t00=0x00af, t01=0x0050}
0x111ac…111b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0070}
0x111b6…111fc               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00af, t01=0x007a}
0x111fc…11206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x00c0}
0x11206…1121a               Head {h00=0x0010, h01=0x0050, text=»RESCN EQU * «, t00=0x00af, t01=0x00ca}
0x1121a…11242               Head {h00=0x0024, h01=0x0050, text=»* COPY DWTDEV BIT 10 INTO BIT 9 «, t00=0x00af, t01=0x00de}
0x11242…1125c               Head {h00=0x0016, h01=0x0050, text=» LD A4,DWTDEV,A6  «, t00=0x00af, t01=0x0106}
0x1125c…1129a               Head {h00=0x003a, h01=0x0050, text=» ANK A4,LCPBIT GET BIT 10 (SET IF LAST COLUMN WRITTEN «, t00=0x00af, t01=0x0120}
0x1129a…112c2               Head {h00=0x0024, h01=0x0050, text=»*   ALREADY BY PREVIOUS REQUEST)«, t00=0x00af, t01=0x015e}
0x112c2…112fc               Head {h00=0x0036, h01=0x0050, text=» LDK A2,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) «, t00=0x00af, t01=0x0186}
0x112fc…1131a               Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x00b0, t01=0x0030}
0x1131a…11340               Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTDEV,A6 RESET BIT 9 «, t00=0x00b0, t01=0x004e}
0x11340…1136a               Head {h00=0x0026, h01=0x0050, text=» SLL A4,1 SHIFT BIT 10 INTO BIT 9 «, t00=0x00b0, t01=0x0074}
0x1136a…11392               Head {h00=0x0024, h01=0x0050, text=» ORS A4,DWTDEV,A6 STORE INTO DWT«, t00=0x00b0, t01=0x009e}
0x11392…113b2               Head {h00=0x001c, h01=0x0050, text=»* COPY DWTSN INTO DWTCN «, t00=0x00b0, t01=0x00c6}
0x113b2…113ee               Head {h00=0x0038, h01=0x0050, text=» LD A2,DWTSN+DWTDEV,A6 GET SAVED NEXT WRITE POSITION«, t00=0x00b0, t01=0x00e6}
0x113ee…11430               Head {h00=0x003e, h01=0x0050, text=» ST A2,DWTCN+DWTDEV,A6 RESTORE CURRENT NEXT WRITE POSITION«, t00=0x00b0, t01=0x0122}
0x11430…11448               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00b0, t01=0x0164}
0x11448…11456               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b0, t01=0x017c}
0x11456…11460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x018a}
0x11460…114a2 (177, 0, 400) Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00b1, t01=0x0004}
0x114a2…114ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0046}
0x114ac…114d2               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00b1, t01=0x0050}
0x114d2…114fc               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00b1, t01=0x0076}
0x114fc…1152c               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=0x00b1, t01=0x00a0}
0x1152c…11536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00d0}
0x11536…11578               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x00b1, t01=0x00da}
0x11578…11582               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x011c}
0x11582…1158c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0126}
0x1158c…115c4               Head {h00=0x0034, h01=0x0050, text=»* THEESE ACTIVATION ROUTINES ARE CALLED DIRECTLY«, t00=0x00b1, t01=0x0130}
0x115c4…11608               Head {h00=0x0040, h01=0x0050, text=»* FROM THE SCREEN SECTION DEVICE DRIVER PART OF THIS DRIVER.«, t00=0x00b1, t01=0x0168}
0x11608…11654               Head {h00=0x0048, h01=0x0050, text=»* RETURN TO DEVICE DRIVER PART IS MADE VIA THE NETWORK DISTRIBUTOR. «, t00=0x00b2, t01=0x001c}
0x11654…1165e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0068}
0x1165e…11668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0072}
0x11668…11676               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b2, t01=0x007c}
0x11676…11680               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x008a}
0x11680…116be               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00b2, t01=0x0094}
0x116be…116c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x00d2}
0x116c8…116de               Head {h00=0x0012, h01=0x0050, text=»* S T A W R I «, t00=0x00b2, t01=0x00dc}
0x116de…116e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x00f2}
0x116e8…11726               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00b2, t01=0x00fc}
0x11726…11730               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x013a}
0x11730…1173a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0144}
0x1173a…11758               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A5, STAWRI «, t00=0x00b2, t01=0x014e}
0x11758…11762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x016c}
0x11762…11798               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00b2, t01=0x0176}
0x11798…117a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x001c}
0x117a2…117d6               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION:TO DEFINE, FOR THIS CIO-REQUEST, «, t00=0x00b3, t01=0x0026}
0x117d6…11804               Head {h00=0x002a, h01=0x0050, text=»*  THE START WRITE POSITION ON SCREEN.«, t00=0x00b3, t01=0x005a}
0x11804…1180e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0088}
0x1180e…1183c               Head {h00=0x002a, h01=0x0050, text=»* INPUT: A2 = WRITE POSITION ON SCREEN«, t00=0x00b3, t01=0x0092}
0x1183c…11856               Head {h00=0x0016, h01=0x0050, text=»*  ( /0101-/1850 )«, t00=0x00b3, t01=0x00c0}
0x11856…11872               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00b3, t01=0x00da}
0x11872…1187c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x00f6}
0x1187c…1189e               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00b3, t01=0x0100}
0x1189e…118c0               Head {h00=0x001e, h01=0x0050, text=»*  0 IF OK, NOT 0 IF ERROR«, t00=0x00b3, t01=0x0122}
0x118c0…118da               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00b3, t01=0x0144}
0x118da…118e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x015e}
0x118e4…11922               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00b3, t01=0x0168}
0x11922…1192c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0016}
0x1192c…11940               Head {h00=0x0010, h01=0x0050, text=»STAWRI EQU *«, t00=0x00b4, t01=0x0020}
0x11940…11972               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00b4, t01=0x0034}
0x11972…119a0               Head {h00=0x002a, h01=0x0050, text=» CF A15,CONPOS CONVERT SCREEN POSITION«, t00=0x00b4, t01=0x0066}
0x119a0…119cc               Head {h00=0x0028, h01=0x0050, text=»*   INTO SCREEN MEMORY DISPLACEMENT «, t00=0x00b4, t01=0x0094}
0x119cc…11a0c               Head {h00=0x003c, h01=0x0050, text=» CF A15,IXTERM INDEX SCREEN MEMORY DISPL. WITH TERM. NBR«, t00=0x00b4, t01=0x00c0}
0x11a0c…11a40               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTLD1,A6 SAVE SCREEN MEMORY LOCATION«, t00=0x00b4, t01=0x0100}
0x11a40…11a60               Head {h00=0x001c, h01=0x0050, text=»*   (=BIO FOR CIO START)«, t00=0x00b4, t01=0x0134}
0x11a60…11a88               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00b4, t01=0x0154}
0x11a88…11a94               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00b4, t01=0x017c}
0x11a94…11ad0               Head {h00=0x0038, h01=0x0050, text=» LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x00b4, t01=0x0188}
0x11ad0…11ae8               Head {h00=0x0014, h01=0x0050, text=» RF(Z) STAWR2 NO«, t00=0x00b5, t01=0x0034}
0x11ae8…11afc               Head {h00=0x0010, h01=0x0050, text=»STAWR1 EQU *«, t00=0x00b5, t01=0x004c}
0x11afc…11b38               Head {h00=0x0038, h01=0x0050, text=» CF A15,PUTQUE PUT REQUESTING DWT INTO SCREEN QUEUE «, t00=0x00b5, t01=0x0060}
0x11b38…11b54               Head {h00=0x0018, h01=0x0050, text=» ABL TDISP DISPATCH «, t00=0x00b5, t01=0x009c}
0x11b54…11b68               Head {h00=0x0010, h01=0x0050, text=»STAWR2 EQU *«, t00=0x00b5, t01=0x00b8}
0x11b68…11ba2               Head {h00=0x0036, h01=0x0050, text=» ST A6,CWTDOS,A5 OCCUPY SCREEN SECTION OF VCCU1/4 «, t00=0x00b5, t01=0x00cc}
0x11ba2…11bb4               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00b5, t01=0x0106}
0x11bb4…11bd4               Head {h00=0x001c, h01=0x0050, text=» RF CLESC2 DO CIO START «, t00=0x00b5, t01=0x0118}
0x11bd4…11be0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x0138}
0x11be0…11bf2               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00b5, t01=0x0144}
0x11bf2…11c22               Head {h00=0x002c, h01=0x0050, text=» CM CWTBIN,A5 RESET INDEX IN IOP-BUFFER «, t00=0x00b5, t01=0x0156}
0x11c22…11c5e               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00b5, t01=0x0186}
0x11c5e…11c6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b6, t01=0x0032}
0x11c6a…11c78               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b6, t01=0x003e}
0x11c78…11c82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x004c}
0x11c82…11cbe               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00b6, t01=0x0056}
0x11cbe…11cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0092}
0x11cc8…11cde               Head {h00=0x0012, h01=0x0050, text=»* O U T C H A «, t00=0x00b6, t01=0x009c}
0x11cde…11ce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x00b2}
0x11ce8…11d24               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00b6, t01=0x00bc}
0x11d24…11d2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x00f8}
0x11d2e…11d38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0102}
0x11d38…11d54               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,OUTCHA«, t00=0x00b6, t01=0x010c}
0x11d54…11d5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0128}
0x11d5e…11d94               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00b6, t01=0x0132}
0x11d94…11d9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0168}
0x11d9e…11dce               Head {h00=0x002c, h01=0x0050, text=»* FUNCTION:TO OUTPUT ONE VIDEO CHARACTER«, t00=0x00b6, t01=0x0172}
0x11dce…11dd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0012}
0x11dd8…11e08               Head {h00=0x002c, h01=0x0050, text=»* INPUT: A2 = ASCII-CHARACTER (/20-/7F) «, t00=0x00b7, t01=0x001c}
0x11e08…11e24               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00b7, t01=0x004c}
0x11e24…11e2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0068}
0x11e2e…11e50               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00b7, t01=0x0072}
0x11e50…11e78               Head {h00=0x0024, h01=0x0050, text=»*        0 IF OK, NOT 0 IF ERROR«, t00=0x00b7, t01=0x0094}
0x11e78…11e92               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00b7, t01=0x00bc}
0x11e92…11e9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00d6}
0x11e9c…11eda               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00b7, t01=0x00e0}
0x11eda…11ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x011e}
0x11ee4…11ef8               Head {h00=0x0010, h01=0x0050, text=»OUTCHA EQU *«, t00=0x00b7, t01=0x0128}
0x11ef8…11f2a               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00b7, t01=0x013c}
0x11f2a…11f34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x016e}
0x11f34…11f5e               Head {h00=0x0026, h01=0x0050, text=»* A 7-BIT ASCII-CHAR IS CONVERTED,«, t00=0x00b7, t01=0x0178}
0x11f5e…11fac               Head {h00=0x004a, h01=0x0050, text=»* ACCORDING TO CHARACTER GENERATOR IN SYSTEM AND CURRENT DISPLAY MODE,«, t00=0x00b8, t01=0x0012}
0x11fac…11fd4               Head {h00=0x0024, h01=0x0050, text=»* INTO A 11-BIT VIDEO-CHARACTER.«, t00=0x00b8, t01=0x0060}
0x11fd4…11fde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0088}
0x11fde…1200a               Head {h00=0x0028, h01=0x0050, text=» ANK A2,/7F CLEAR INSIGNIFICANT BITS«, t00=0x00b8, t01=0x0092}
0x1200a…12042               Head {h00=0x0034, h01=0x0050, text=» LDK A4,CODOUT-CODINP LENGTH OF CONVERSION TABLE«, t00=0x00b8, t01=0x00be}
0x12042…12056               Head {h00=0x0010, h01=0x0050, text=»OUTCH1 EQU *«, t00=0x00b8, t01=0x00f6}
0x12056…1208c               Head {h00=0x0032, h01=0x0050, text=» SUK A4,1 DECR INDEX IN TABLE. END OF TABLE ? «, t00=0x00b8, t01=0x010a}
0x1208c…120a6               Head {h00=0x0016, h01=0x0050, text=» RF(N) OUTCH2 YES «, t00=0x00b8, t01=0x0140}
0x120a6…120de               Head {h00=0x0034, h01=0x0050, text=» CC A2,CODINP,A4 COMPARE CHAR WITH TABLE ELEMENT«, t00=0x00b8, t01=0x015a}
0x120de…120fe (185, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RB(NE) OUTCH1 NOT EQUAL«, t00=0x00b9, t01=0x0004}
0x120fe…12128               Head {h00=0x0026, h01=0x0050, text=» LC A2,CODOUT,A4 CONVERT CHARACTER«, t00=0x00b9, t01=0x0024}
0x12128…1213c               Head {h00=0x0010, h01=0x0050, text=»OUTCH2 EQU *«, t00=0x00b9, t01=0x004e}
0x1213c…12166               Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTDEV,A6 GET DISPLAY-MODE «, t00=0x00b9, t01=0x0062}
0x12166…1218a               Head {h00=0x0020, h01=0x0050, text=» ANKL A3,INTBIT+UNDBIT BITS «, t00=0x00b9, t01=0x008c}
0x1218a…121a6               Head {h00=0x0018, h01=0x0050, text=» ORR A2,A3 INTO BIO «, t00=0x00b9, t01=0x00b0}
0x121a6…121b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x00cc}
0x121b0…121ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x00d6}
0x121ba…121e2               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00b9, t01=0x00e0}
0x121e2…121f6               Head {h00=0x0010, h01=0x0050, text=»OUTCH3 EQU *«, t00=0x00b9, t01=0x0108}
0x121f6…12202               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00b9, t01=0x011c}
0x12202…12214               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00b9, t01=0x0128}
0x12214…12252               Head {h00=0x003a, h01=0x0050, text=» EX CWTOTS,A5 EXECUTE OTR ON SCREEN SECTION OF VCCU1/4«, t00=0x00b9, t01=0x013a}
0x12252…12280               Head {h00=0x002a, h01=0x0050, text=» ABL(NA) LINER1 ERROR IF NOT ACCEPTED «, t00=0x00b9, t01=0x0178}
0x12280…1229c               Head {h00=0x0018, h01=0x0050, text=» ABL TDISP DISPATCH «, t00=0x00ba, t01=0x0016}
0x1229c…122a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x0032}
0x122a8…122ba               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00ba, t01=0x003e}
0x122ba…122f0               Head {h00=0x0032, h01=0x0050, text=» LD A3,CWTBIN,A5 GET WORD-INDEX IN IOP-BUFFER «, t00=0x00ba, t01=0x0050}
0x122f0…12324               Head {h00=0x0030, h01=0x0050, text=» ADR A3,A3 CONVERT TO DISPLACEMENT IN BYTES «, t00=0x00ba, t01=0x0086}
0x12324…12356               Head {h00=0x002e, h01=0x0050, text=» LDKL A4,CWTBUF GET ADDRESS TO IOP-BUFFER «, t00=0x00ba, t01=0x00ba}
0x12356…12370               Head {h00=0x0016, h01=0x0050, text=» ADR A4,A5 IN CWT «, t00=0x00ba, t01=0x00ec}
0x12370…12396               Head {h00=0x0022, h01=0x0050, text=» ADR A4,A3 INDEXING IN BUFFER «, t00=0x00ba, t01=0x0106}
0x12396…123ca               Head {h00=0x0030, h01=0x0050, text=» STR A2,A4 STORE VIDEO-CHAR INTO IOP-BUFFER «, t00=0x00ba, t01=0x012c}
0x123ca…123f2               Head {h00=0x0024, h01=0x0050, text=» IM CWTBIN,A5 INCR BUFFER INDEX «, t00=0x00ba, t01=0x0160}
0x123f2…1242e               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00ba, t01=0x0188}
0x1242e…1243a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x0034}
0x1243a…12448               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bb, t01=0x0040}
0x12448…12452               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x004e}
0x12452…1248e               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00bb, t01=0x0058}
0x1248e…12498               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0094}
0x12498…124ae               Head {h00=0x0012, h01=0x0050, text=»* E N D W R I «, t00=0x00bb, t01=0x009e}
0x124ae…124b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x00b4}
0x124b8…124f6               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00bb, t01=0x00be}
0x124f6…12500               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x00fc}
0x12500…1250a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0106}
0x1250a…12526               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,ENDWRI«, t00=0x00bb, t01=0x0110}
0x12526…12530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x012c}
0x12530…12566               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00bb, t01=0x0136}
0x12566…12570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x016c}
0x12570…125a4               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION:TO END CURRENT CIO-WRITE-REQUEST «, t00=0x00bb, t01=0x0176}
0x125a4…125ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x001a}
0x125ae…125d0               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS «, t00=0x00bc, t01=0x0024}
0x125d0…125da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0046}
0x125da…125fc               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00bc, t01=0x0050}
0x125fc…12624               Head {h00=0x0024, h01=0x0050, text=»*       0 IF OK, NOT O IF ERROR «, t00=0x00bc, t01=0x0072}
0x12624…1263e               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00bc, t01=0x009a}
0x1263e…12648               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00b4}
0x12648…12682               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00bc, t01=0x00be}
0x12682…1268c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00f8}
0x1268c…126a0               Head {h00=0x0010, h01=0x0050, text=»ENDWRI EQU *«, t00=0x00bc, t01=0x0102}
0x126a0…126d2               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00bc, t01=0x0116}
0x126d2…126fa               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00bc, t01=0x0148}
0x126fa…12706               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00bc, t01=0x0170}
0x12706…12718               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00bc, t01=0x017c}
0x12718…1274a               Head {h00=0x002e, h01=0x0050, text=» LDKL A4,HLTFLA FLAG HALT-ACTION REQUESTED«, t00=0x00bc, t01=0x018e}
0x1274a…12776               Head {h00=0x0028, h01=0x0050, text=» ORS A4,DWTST,A6 INTO DEVICE STATUS «, t00=0x00bd, t01=0x0030}
0x12776…12796               Head {h00=0x001c, h01=0x0050, text=» ABL IHS125 DO CIO HALT «, t00=0x00bd, t01=0x005c}
0x12796…127a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x007c}
0x127a2…127b4               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00bd, t01=0x0088}
0x127b4…127c8               Head {h00=0x0010, h01=0x0050, text=»ENDWR1 EQU *«, t00=0x00bd, t01=0x009a}
0x127c8…127fe               Head {h00=0x0032, h01=0x0050, text=» LD A2,CWTBIN,A5 GET WORD-INDEX IN IOP-BUFFER «, t00=0x00bd, t01=0x00ae}
0x127fe…12824               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ENDWR2 INDEX NOT ZERO «, t00=0x00bd, t01=0x00e4}
0x12824…1284e               Head {h00=0x0026, h01=0x0050, text=»* IF INDEX IS ZERO, THEN NO OUTPUT«, t00=0x00bd, t01=0x010a}
0x1284e…12886               Head {h00=0x0034, h01=0x0050, text=» CM CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPIED «, t00=0x00bd, t01=0x0134}
0x12886…128c2               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00bd, t01=0x016c}
0x128c2…128d6               Head {h00=0x0010, h01=0x0050, text=»ENDWR2 EQU *«, t00=0x00be, t01=0x0018}
0x128d6…1290e               Head {h00=0x0034, h01=0x0050, text=» ORKL A2,IOPPAR WORD-MODE + READ-MEMORY TRANSFER«, t00=0x00be, t01=0x002c}
0x1290e…12940               Head {h00=0x002e, h01=0x0050, text=» EX CWTWE1,A5 WRITE BUFFER LENGTH INTO IOP«, t00=0x00be, t01=0x0064}
0x12940…12972               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,CWTBUF GET ADDRESS TO IOP-BUFFER «, t00=0x00be, t01=0x0096}
0x12972…1298c               Head {h00=0x0016, h01=0x0050, text=» ADR A2,A5 IN CWT «, t00=0x00be, t01=0x00c8}
0x1298c…129c0               Head {h00=0x0030, h01=0x0050, text=» EX CWTWE2,A5 WRITE BUFFER ADDRESS INTO IOP «, t00=0x00be, t01=0x00e2}
0x129c0…129fa               Head {h00=0x0036, h01=0x0050, text=» LDKL A3,SSTFLA FLAG SST-ACTION AT NEXT INTERRUPT «, t00=0x00be, t01=0x0116}
0x129fa…12a26               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00be, t01=0x0150}
0x12a26…12a46               Head {h00=0x001c, h01=0x0050, text=» RF CLESC2 DO CIO START «, t00=0x00be, t01=0x017c}
0x12a46…12a52               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bf, t01=0x000c}
0x12a52…12a60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x0018}
0x12a60…12a6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0026}
0x12a6a…12aa6               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00bf, t01=0x0030}
0x12aa6…12ab0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x006c}
0x12ab0…12ac6               Head {h00=0x0012, h01=0x0050, text=»* O U T C U R «, t00=0x00bf, t01=0x0076}
0x12ac6…12ad0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x008c}
0x12ad0…12b0c               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00bf, t01=0x0096}
0x12b0c…12b16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00d2}
0x12b16…12b20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00dc}
0x12b20…12b3c               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,OUTCUR«, t00=0x00bf, t01=0x00e6}
0x12b3c…12b46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0102}
0x12b46…12b7c               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00bf, t01=0x010c}
0x12b7c…12b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0142}
0x12b86…12bb4               Head {h00=0x002a, h01=0x0050, text=»* FUNCTION:TO OUTPUT THE VISUAL CURSOR«, t00=0x00bf, t01=0x014c}
0x12bb4…12bbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x017a}
0x12bbe…12bf8               Head {h00=0x0036, h01=0x0050, text=»* INPUT: A2 = REQUESTED  CURSOR POSITION ON SCREEN«, t00=0x00bf, t01=0x0184}
0x12bf8…12c1a               Head {h00=0x001e, h01=0x0050, text=»*        ( /0101 - /1850 )«, t00=0x00c0, t01=0x002e}
0x12c1a…12c36               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00c0, t01=0x0050}
0x12c36…12c40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x006c}
0x12c40…12c62               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00c0, t01=0x0076}
0x12c62…12c8a               Head {h00=0x0024, h01=0x0050, text=»*        0 IF OK, NOT 0 IF ERROR«, t00=0x00c0, t01=0x0098}
0x12c8a…12ca4               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00c0, t01=0x00c0}
0x12ca4…12cae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00da}
0x12cae…12cea               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00c0, t01=0x00e4}
0x12cea…12cf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0120}
0x12cf4…12d08               Head {h00=0x0010, h01=0x0050, text=»OUTCUR EQU *«, t00=0x00c0, t01=0x012a}
0x12d08…12d3a               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00c0, t01=0x013e}
0x12d3a…12d68               Head {h00=0x002a, h01=0x0050, text=» CF A15,CONPOS CONVERT SCREEN POSITION«, t00=0x00c0, t01=0x0170}
0x12d68…12d94               Head {h00=0x0028, h01=0x0050, text=»*   INTO SCREEN MEMORY DISPLACEMENT «, t00=0x00c1, t01=0x000e}
0x12d94…12dd4               Head {h00=0x003c, h01=0x0050, text=» CF A15,IXTERM INDEX SCREEN MEMORY DISPL. WITH TERM. NBR«, t00=0x00c1, t01=0x003a}
0x12dd4…12e08               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTLD2,A6 SAVE SCREEN MEMORY LOCATION«, t00=0x00c1, t01=0x007a}
0x12e08…12e22               Head {h00=0x0016, h01=0x0050, text=»*   (=BIO FOR OTR)«, t00=0x00c1, t01=0x00ae}
0x12e22…12e5e               Head {h00=0x0038, h01=0x0050, text=» LDKL A2,SMLCUR SCREEN MEM.LOC. HOLDING CURSOR POS. «, t00=0x00c1, t01=0x00c8}
0x12e5e…12e9a               Head {h00=0x0038, h01=0x0050, text=» CF A15,IXTERM INDEX SCREEN MEMORY WITH TERMINAL NBR«, t00=0x00c1, t01=0x0104}
0x12e9a…12ece               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTLD1,A6 SAVE SCREEN MEMORY LOCATION«, t00=0x00c1, t01=0x0140}
0x12ece…12eee               Head {h00=0x001c, h01=0x0050, text=»*   (=BIO FOR CIO-START)«, t00=0x00c1, t01=0x0174}
0x12eee…12f28 (194, 0, 398) Head {h00=0x0036, h01=0x0050, text=» LDKL A3,OTRFLA FLAG OTR-ACTION AT NEXT INTERRUPT «, t00=0x00c2, t01=0x0004}
0x12f28…12f54               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00c2, t01=0x003e}
0x12f54…12f7c               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00c2, t01=0x006a}
0x12f7c…12f88               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c2, t01=0x0092}
0x12f88…12fc4               Head {h00=0x0038, h01=0x0050, text=» LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x00c2, t01=0x009e}
0x12fc4…12ff4               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) STAWR1 YES. QUEUE REQUESTING DWT«, t00=0x00c2, t01=0x00da}
0x12ff4…13008               Head {h00=0x0010, h01=0x0050, text=»OUTCU1 EQU *«, t00=0x00c2, t01=0x010a}
0x13008…13042               Head {h00=0x0036, h01=0x0050, text=» ST A6,CWTDOS,A5 OCCUPY SCREEN SECTION OF VCCU1/4 «, t00=0x00c2, t01=0x011e}
0x13042…13054               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=0«, t00=0x00c2, t01=0x0158}
0x13054…13074               Head {h00=0x001c, h01=0x0050, text=» RF CLESC2 DO CIO START «, t00=0x00c2, t01=0x016a}
0x13074…13080               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c2, t01=0x018a}
0x13080…13092               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00c3, t01=0x0008}
0x13092…130c0               Head {h00=0x002a, h01=0x0050, text=» LDKL A3,OTRFLA IF THEN RESET OTR-FLAG«, t00=0x00c3, t01=0x001a}
0x130c0…130ea               Head {h00=0x0026, h01=0x0050, text=» XRS A3,DWTST,A6 IN DEVICE STATUS «, t00=0x00c3, t01=0x0048}
0x130ea…13124               Head {h00=0x0036, h01=0x0050, text=» LD A3,DWTLD2,A6 GET SCREEN MEMORY CURSOR POSITION«, t00=0x00c3, t01=0x0072}
0x13124…13138               Head {h00=0x0010, h01=0x0050, text=»OUTCU2 EQU *«, t00=0x00c3, t01=0x00ac}
0x13138…13166               Head {h00=0x002a, h01=0x0050, text=» ST A3,CWTBUF,A5 STORE INTO IOP-BUFFER«, t00=0x00c3, t01=0x00c0}
0x13166…13196               Head {h00=0x002c, h01=0x0050, text=» CM CWTBIN,A5 RESET INDEX IN IOP-BUFFER «, t00=0x00c3, t01=0x00ee}
0x13196…131be               Head {h00=0x0024, h01=0x0050, text=» IM CWTBIN,A5 INCR BUFFER INDEX «, t00=0x00c3, t01=0x011e}
0x131be…131da               Head {h00=0x0018, h01=0x0050, text=» RB ENDWR1 DO WER:S «, t00=0x00c3, t01=0x0146}
0x131da…131e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c3, t01=0x0162}
0x131e6…131f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x016e}
0x131f4…131fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x017c}
0x131fe…1323a               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00c3, t01=0x0186}
0x1323a…13244               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0032}
0x13244…1325a               Head {h00=0x0012, h01=0x0050, text=»* C L E S C R «, t00=0x00c4, t01=0x003c}
0x1325a…13264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0052}
0x13264…132a0               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00c4, t01=0x005c}
0x132a0…132aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0098}
0x132aa…132b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x00a2}
0x132b4…132d0               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A5,CLESCR«, t00=0x00c4, t01=0x00ac}
0x132d0…132da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x00c8}
0x132da…13310               Head {h00=0x0032, h01=0x0050, text=»* USED BY: SCREEN SECTION, DEVICE DRIVER PART «, t00=0x00c4, t01=0x00d2}
0x13310…1331a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0108}
0x1331a…1334e               Head {h00=0x0030, h01=0x0050, text=»* FUNCTION:TO CLEAR SCREEN, RESET CURSOR AND«, t00=0x00c4, t01=0x0112}
0x1334e…13374               Head {h00=0x0022, h01=0x0050, text=»*  RESET START WRITE POSITION.«, t00=0x00c4, t01=0x0146}
0x13374…1337e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x016c}
0x1337e…133a0               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS «, t00=0x00c4, t01=0x0176}
0x133a0…133aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c5, t01=0x0008}
0x133aa…133cc               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE«, t00=0x00c5, t01=0x0012}
0x133cc…133f6               Head {h00=0x0026, h01=0x0050, text=»*         0 IF OK, NOT 0 OF ERROR «, t00=0x00c5, t01=0x0034}
0x133f6…13410               Head {h00=0x0016, h01=0x0050, text=»*  A2 = DESTROYED «, t00=0x00c5, t01=0x005e}
0x13410…1341a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c5, t01=0x0078}
0x1341a…13456               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00c5, t01=0x0082}
0x13456…13460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c5, t01=0x00be}
0x13460…13474               Head {h00=0x0010, h01=0x0050, text=»CLESCR EQU *«, t00=0x00c5, t01=0x00c8}
0x13474…134a6               Head {h00=0x002e, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT «, t00=0x00c5, t01=0x00dc}
0x134a6…134d4               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,AUTCLE SET BIO FOR AUTO-CLEAR«, t00=0x00c5, t01=0x010e}
0x134d4…13506               Head {h00=0x002e, h01=0x0050, text=» CF A15,IXTERM INDEX WITH TERMINAL NUMBER «, t00=0x00c5, t01=0x013c}
0x13506…13536               Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTLD1,A6 SAVE BIO FOR CIO START «, t00=0x00c5, t01=0x016e}
0x13536…13570               Head {h00=0x0036, h01=0x0050, text=» LDKL A3,HLTFLA FLAG HALT-ACTION AT NEXT INTERRUPT«, t00=0x00c6, t01=0x000e}
0x13570…1359c               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00c6, t01=0x0048}
0x1359c…135c4               Head {h00=0x0024, h01=0x0050, text=» CF A15,CWTDWT GET CWT FROM DWT «, t00=0x00c6, t01=0x0074}
0x135c4…135d0               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c6, t01=0x009c}
0x135d0…1360c               Head {h00=0x0038, h01=0x0050, text=» LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x00c6, t01=0x00a8}
0x1360c…1363c               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) STAWR1 YES. QUEUE REQUESTING DWT«, t00=0x00c6, t01=0x00e4}
0x1363c…13650               Head {h00=0x0010, h01=0x0050, text=»CLESC1 EQU *«, t00=0x00c6, t01=0x0114}
0x13650…1368a               Head {h00=0x0036, h01=0x0050, text=» ST A6,CWTDOS,A5 OCCUPY SCREEN SECTION OF VCCU1/4 «, t00=0x00c6, t01=0x0128}
0x1368a…1369c               Head {h00=0x000e, h01=0x0050, text=» IFT IOP=1«, t00=0x00c6, t01=0x0162}
0x1369c…136c4               Head {h00=0x0024, h01=0x0050, text=» LDKL A3,HLTFLA RESET HALT-FLAG «, t00=0x00c6, t01=0x0174}
0x136c4…136ee               Head {h00=0x0026, h01=0x0050, text=» XRS A3,DWTST,A6 IN DEVICE STATUS «, t00=0x00c7, t01=0x000c}
0x136ee…13720               Head {h00=0x002e, h01=0x0050, text=» LDKL A3,/0120 SPACE (HIGH-INTENSITY MODE)«, t00=0x00c7, t01=0x0036}
0x13720…13756               Head {h00=0x0032, h01=0x0050, text=» RB OUTCU2 STORE INTO IOP-BUFFER AND DO WER:S «, t00=0x00c7, t01=0x0068}
0x13756…13762               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x009e}
0x13762…13776               Head {h00=0x0010, h01=0x0050, text=»CLESC2 EQU *«, t00=0x00c7, t01=0x00aa}
0x13776…137b0               Head {h00=0x0036, h01=0x0050, text=» LD A3,PFPOST GET POWER FAIL POST PROCESSING FLAG «, t00=0x00c7, t01=0x00be}
0x137b0…137f0               Head {h00=0x003c, h01=0x0050, text=» ABL(NZ) LINER5 FLAG SET: I/O-INSTRUCTIONS NOT ALLOWED. «, t00=0x00c7, t01=0x00f8}
0x137f0…1381e               Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD1,A6 GET BIO FOR CIO START«, t00=0x00c7, t01=0x0138}
0x1381e…1385a               Head {h00=0x0038, h01=0x0050, text=» EX CWTCSS,A5 CIO START ON SCREEN SECTION OF VCCU1/4«, t00=0x00c7, t01=0x0166}
0x1385a…13888               Head {h00=0x002a, h01=0x0050, text=» ABL(NA) LINER0 ERROR IF NOT ACCEPTED «, t00=0x00c8, t01=0x0012}
0x13888…1389c               Head {h00=0x0010, h01=0x0050, text=»CLESC3 EQU *«, t00=0x00c8, t01=0x0040}
0x1389c…138c8               Head {h00=0x0028, h01=0x0050, text=» LD A6,CWTSRD,A5 ANY SST-READY DWT ?«, t00=0x00c8, t01=0x0054}
0x138c8…138ea               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) TDISP NO. DISPATCH«, t00=0x00c8, t01=0x0080}
0x138ea…13914               Head {h00=0x0026, h01=0x0050, text=» CM CWTSRD,A5 YES. RESET SAVE-AREA«, t00=0x00c8, t01=0x00a2}
0x13914…13950               Head {h00=0x0038, h01=0x0050, text=» ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN «, t00=0x00c8, t01=0x00cc}
0x13950…1395e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x0108}
0x1395e…13968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0116}
0x13968…139a6               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00c8, t01=0x0120}
0x139a6…139b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x015e}
0x139b0…139d6               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00c8, t01=0x0168}
0x139d6…13a00               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00c8, t01=0x018e}
0x13a00…13a2e               Head {h00=0x002a, h01=0x0050, text=»* I N T E R R U P T   R O U T I N E S «, t00=0x00c9, t01=0x0028}
0x13a2e…13a38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x0056}
0x13a38…13a76               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00c9, t01=0x0060}
0x13a76…13a80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x009e}
0x13a80…13a8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x00a8}
0x13a8a…13ab6               Head {h00=0x0028, h01=0x0050, text=»* ENTERED: VIA THE INTERRUPT VECTOR «, t00=0x00c9, t01=0x00b2}
0x13ab6…13ac0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x00de}
0x13ac0…13af0               Head {h00=0x002c, h01=0x0050, text=»* FUNCTIONS FOR EACH INTERRUPT ROUTINE: «, t00=0x00c9, t01=0x00e8}
0x13af0…13afa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x0118}
0x13afa…13b38               Head {h00=0x003a, h01=0x0050, text=»* 1. SAVE START ADDRESS OF ENTERED INTERRUPT ROUTINE. «, t00=0x00c9, t01=0x0122}
0x13b38…13b5c               Head {h00=0x0020, h01=0x0050, text=»* 2. SAVE A1-A8 ONTO STACK. «, t00=0x00c9, t01=0x0160}
0x13b5c…13b98               Head {h00=0x0038, h01=0x0050, text=»* 3. GET CWT-ADDRESS FOR ENTERED INTERRUPT ROUTINE. «, t00=0x00c9, t01=0x0184}
0x13b98…13bda               Head {h00=0x003e, h01=0x0050, text=»* 4. GET THE DWT OCCUPYING THE SCREEN SECTION OF THIS CWT.«, t00=0x00ca, t01=0x0030}
0x13bda…13c00               Head {h00=0x0022, h01=0x0050, text=»* 5. TEST CHANNEL UNIT STATUS.«, t00=0x00ca, t01=0x0072}
0x13c00…13c34               Head {h00=0x0030, h01=0x0050, text=»* 6. TEST AND UPDATE INTERRUPT-ACTION-FLAGS,«, t00=0x00ca, t01=0x0098}
0x13c34…13c5a               Head {h00=0x0022, h01=0x0050, text=»*    GO TO ERROR ROUTINE, OR: «, t00=0x00ca, t01=0x00cc}
0x13c5a…13c8c               Head {h00=0x002e, h01=0x0050, text=»* 7. GO TO APROPRIATE ACTIVATION ROUTINE, «, t00=0x00ca, t01=0x00f2}
0x13c8c…13cbc               Head {h00=0x002c, h01=0x0050, text=»*    IN SCREEN SECTION LINE DRIVER PART,«, t00=0x00ca, t01=0x0124}
0x13cbc…13ccc               Head {h00=0x000c, h01=0x0050, text=»*    OR «, t00=0x00ca, t01=0x0154}
0x13ccc…13cf4               Head {h00=0x0024, h01=0x0050, text=»*    GET DWT FROM OUTPUT QUEUE, «, t00=0x00ca, t01=0x0164}
0x13cf4…13d2a               Head {h00=0x0032, h01=0x0050, text=»*    AND GO TO APROPRIATE ACTIVATION ROUTINE. «, t00=0x00ca, t01=0x018c}
0x13d2a…13d34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0032}
0x13d34…13d3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x003c}
0x13d3e…13d48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0046}
0x13d48…13d6c               Head {h00=0x0020, h01=0x0050, text=»* ON EXIT: A5 = CWT-ADDRESS «, t00=0x00cb, t01=0x0050}
0x13d6c…13d88               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00cb, t01=0x0074}
0x13d88…13d92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0090}
0x13d92…13dd6               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00cb, t01=0x009a}
0x13dd6…13de0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x00de}
0x13de0…13dea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x00e8}
0x13dea…13df4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x00f2}
0x13df4…13e02               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x00fc}
0x13e02…13e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x010a}
0x13e0c…13e16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0114}
0x13e16…13e50               Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 1 «, t00=0x00cb, t01=0x011e}
0x13e50…13e5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0158}
0x13e5a…13e6e               Head {h00=0x0010, h01=0x0050, text=»IHSVU1 EQU *«, t00=0x00cb, t01=0x0162}
0x13e6e…13e84               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=1 «, t00=0x00cb, t01=0x0176}
0x13e84…13e98               Head {h00=0x0010, h01=0x0050, text=»IHSVU2 EQU *«, t00=0x00cb, t01=0x018c}
0x13e98…13eac               Head {h00=0x0010, h01=0x0050, text=»IHSVU3 EQU *«, t00=0x00cc, t01=0x0010}
0x13eac…13ec0               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00cc, t01=0x0024}
0x13ec0…13ed4               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00cc, t01=0x0038}
0x13ed4…13ee8               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00cc, t01=0x004c}
0x13ee8…13efc               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00cc, t01=0x0060}
0x13efc…13f10               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00cc, t01=0x0074}
0x13f10…13f1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x0088}
0x13f1c…13f44               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00cc, t01=0x0094}
0x13f44…13f5a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00cc, t01=0x00bc}
0x13f5a…13f84               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00cc, t01=0x00d2}
0x13f84…13f90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x00fc}
0x13f90…13f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x0108}
0x13f9a…13fb0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00cc, t01=0x0112}
0x13fb0…13fd6               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00cc, t01=0x0128}
0x13fd6…13fe2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x014e}
0x13fe2…13fec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x015a}
0x13fec…14024               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU1 SET CWT-ADDRESS FOR VCCU1/4 NO 1«, t00=0x00cc, t01=0x0164}
0x14024…1403a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cd, t01=0x000c}
0x1403a…1404c               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00cd, t01=0x0022}
0x1404c…14056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x0034}
0x14056…14090               Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 2 «, t00=0x00cd, t01=0x003e}
0x14090…1409a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x0078}
0x1409a…140ae               Head {h00=0x0010, h01=0x0050, text=»IHSVU2 EQU *«, t00=0x00cd, t01=0x0082}
0x140ae…140ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x0096}
0x140ba…140d0               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x00cd, t01=0x00a2}
0x140d0…140e4               Head {h00=0x0010, h01=0x0050, text=»IHSVU3 EQU *«, t00=0x00cd, t01=0x00b8}
0x140e4…140f8               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00cd, t01=0x00cc}
0x140f8…1410c               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00cd, t01=0x00e0}
0x1410c…14120               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00cd, t01=0x00f4}
0x14120…14134               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00cd, t01=0x0108}
0x14134…14148               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00cd, t01=0x011c}
0x14148…14154               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x0130}
0x14154…1416a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cd, t01=0x013c}
0x1416a…14192               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00cd, t01=0x0152}
0x14192…141a8               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00cd, t01=0x017a}
0x141a8…141d2               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00cd, t01=0x0190}
0x141d2…141de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ce, t01=0x002a}
0x141de…141e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0036}
0x141e8…141fe               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00ce, t01=0x0040}
0x141fe…14214               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00ce, t01=0x0056}
0x14214…1423a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00ce, t01=0x006c}
0x1423a…14246               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ce, t01=0x0092}
0x14246…14250               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x009e}
0x14250…14266               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00ce, t01=0x00a8}
0x14266…1429e               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU2 SET CWT-ADDRESS FOR VCCU1/4 NO 2«, t00=0x00ce, t01=0x00be}
0x1429e…142aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ce, t01=0x00f6}
0x142aa…142c0               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x00ce, t01=0x0102}
0x142c0…142d4               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00ce, t01=0x0118}
0x142d4…142de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x012c}
0x142de…142ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ce, t01=0x0136}
0x142ea…142f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0142}
0x142f4…1430a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00ce, t01=0x014c}
0x1430a…14320               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00ce, t01=0x0162}
0x14320…14332               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00ce, t01=0x0178}
0x14332…1433c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x018a}
0x1433c…14376 (207, 0, 400) Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 3 «, t00=0x00cf, t01=0x0004}
0x14376…14380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x003e}
0x14380…14394               Head {h00=0x0010, h01=0x0050, text=»IHSVU3 EQU *«, t00=0x00cf, t01=0x0048}
0x14394…143a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x005c}
0x143a0…143b6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x00cf, t01=0x0068}
0x143b6…143ca               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00cf, t01=0x007e}
0x143ca…143de               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00cf, t01=0x0092}
0x143de…143f2               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00cf, t01=0x00a6}
0x143f2…14406               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00cf, t01=0x00ba}
0x14406…1441a               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00cf, t01=0x00ce}
0x1441a…14426               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x00e2}
0x14426…1443c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00cf, t01=0x00ee}
0x1443c…14452               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00cf, t01=0x0104}
0x14452…1447a               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00cf, t01=0x011a}
0x1447a…14490               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00cf, t01=0x0142}
0x14490…144ba               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00cf, t01=0x0158}
0x144ba…144c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x0182}
0x144c6…144d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x018e}
0x144d0…144e6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d0, t01=0x0008}
0x144e6…144fc               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d0, t01=0x001e}
0x144fc…14512               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d0, t01=0x0034}
0x14512…14538               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00d0, t01=0x004a}
0x14538…14544               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x0070}
0x14544…1454e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x007c}
0x1454e…14564               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d0, t01=0x0086}
0x14564…1457a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d0, t01=0x009c}
0x1457a…145b2               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU3 SET CWT-ADDRESS FOR VCCU1/4 NO 3«, t00=0x00d0, t01=0x00b2}
0x145b2…145be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x00ea}
0x145be…145d4               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x00d0, t01=0x00f6}
0x145d4…145e8               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d0, t01=0x010c}
0x145e8…145f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0120}
0x145f2…145fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x012a}
0x145fe…14614               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d0, t01=0x0136}
0x14614…1462a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d0, t01=0x014c}
0x1462a…14640               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d0, t01=0x0162}
0x14640…14652               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d0, t01=0x0178}
0x14652…1465c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x018a}
0x1465c…14696 (209, 0, 400) Head {h00=0x0036, h01=0x0050, text=»*   INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 4 «, t00=0x00d1, t01=0x0004}
0x14696…146a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x003e}
0x146a0…146b4               Head {h00=0x0010, h01=0x0050, text=»IHSVU4 EQU *«, t00=0x00d1, t01=0x0048}
0x146b4…146c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x005c}
0x146c0…146d6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x00d1, t01=0x0068}
0x146d6…146ea               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00d1, t01=0x007e}
0x146ea…146fe               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00d1, t01=0x0092}
0x146fe…14712               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d1, t01=0x00a6}
0x14712…14726               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d1, t01=0x00ba}
0x14726…14732               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x00ce}
0x14732…14748               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d1, t01=0x00da}
0x14748…1475e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d1, t01=0x00f0}
0x1475e…14774               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d1, t01=0x0106}
0x14774…1479c               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d1, t01=0x011c}
0x1479c…147b2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d1, t01=0x0144}
0x147b2…147dc               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x00d1, t01=0x015a}
0x147dc…147e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x0184}
0x147e8…147f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0190}
0x147f2…14808               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d2, t01=0x000a}
0x14808…1481e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d2, t01=0x0020}
0x1481e…14834               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d2, t01=0x0036}
0x14834…1484a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d2, t01=0x004c}
0x1484a…14870               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x00d2, t01=0x0062}
0x14870…1487c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x0088}
0x1487c…14886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0094}
0x14886…1489c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d2, t01=0x009e}
0x1489c…148b2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d2, t01=0x00b4}
0x148b2…148c8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d2, t01=0x00ca}
0x148c8…14900               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU4 SET CWT-ADDRESS FOR VCCU1/4 NO 4«, t00=0x00d2, t01=0x00e0}
0x14900…1490c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x0118}
0x1490c…14922               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x00d2, t01=0x0124}
0x14922…14936               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d2, t01=0x013a}
0x14936…14942               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d2, t01=0x014e}
0x14942…14958               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d2, t01=0x015a}
0x14958…1496e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d2, t01=0x0170}
0x1496e…14984               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d2, t01=0x0186}
0x14984…1499a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d3, t01=0x000c}
0x1499a…149ac               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d3, t01=0x0022}
0x149ac…149b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0034}
0x149b6…149ee               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 5 «, t00=0x00d3, t01=0x003e}
0x149ee…149f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0076}
0x149f8…14a0c               Head {h00=0x0010, h01=0x0050, text=»IHSVU5 EQU *«, t00=0x00d3, t01=0x0080}
0x14a0c…14a18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x0094}
0x14a18…14a2e               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x00d3, t01=0x00a0}
0x14a2e…14a42               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00d3, t01=0x00b6}
0x14a42…14a56               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d3, t01=0x00ca}
0x14a56…14a6a               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d3, t01=0x00de}
0x14a6a…14a76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x00f2}
0x14a76…14a8c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d3, t01=0x00fe}
0x14a8c…14aa2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d3, t01=0x0114}
0x14aa2…14ab8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d3, t01=0x012a}
0x14ab8…14ace               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d3, t01=0x0140}
0x14ace…14af6               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d3, t01=0x0156}
0x14af6…14b0c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d3, t01=0x017e}
0x14b0c…14b38 (212, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00d4, t01=0x0004}
0x14b38…14b44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x0030}
0x14b44…14b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x003c}
0x14b4e…14b64               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d4, t01=0x0046}
0x14b64…14b7a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d4, t01=0x005c}
0x14b7a…14b90               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d4, t01=0x0072}
0x14b90…14ba6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d4, t01=0x0088}
0x14ba6…14bbc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d4, t01=0x009e}
0x14bbc…14be4               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00d4, t01=0x00b4}
0x14be4…14bf0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x00dc}
0x14bf0…14bfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x00e8}
0x14bfa…14c10               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d4, t01=0x00f2}
0x14c10…14c26               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d4, t01=0x0108}
0x14c26…14c3c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d4, t01=0x011e}
0x14c3c…14c52               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d4, t01=0x0134}
0x14c52…14c8a               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU5 SET CWT-ADDRESS FOR VCCU1/4 NO 5«, t00=0x00d4, t01=0x014a}
0x14c8a…14c96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x0182}
0x14c96…14cac               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x00d4, t01=0x018e}
0x14cac…14cc0               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d5, t01=0x0014}
0x14cc0…14ccc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x0028}
0x14ccc…14ce2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d5, t01=0x0034}
0x14ce2…14cf8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d5, t01=0x004a}
0x14cf8…14d0e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d5, t01=0x0060}
0x14d0e…14d24               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d5, t01=0x0076}
0x14d24…14d3a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d5, t01=0x008c}
0x14d3a…14d4c               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d5, t01=0x00a2}
0x14d4c…14d56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00b4}
0x14d56…14d8e               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 6 «, t00=0x00d5, t01=0x00be}
0x14d8e…14d98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00f6}
0x14d98…14dac               Head {h00=0x0010, h01=0x0050, text=»IHSVU6 EQU *«, t00=0x00d5, t01=0x0100}
0x14dac…14db8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x0114}
0x14db8…14dce               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x00d5, t01=0x0120}
0x14dce…14de2               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d5, t01=0x0136}
0x14de2…14df6               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d5, t01=0x014a}
0x14df6…14e02               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x015e}
0x14e02…14e18               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d5, t01=0x016a}
0x14e18…14e2e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d5, t01=0x0180}
0x14e2e…14e44               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d6, t01=0x0008}
0x14e44…14e5a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d6, t01=0x001e}
0x14e5a…14e70               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d6, t01=0x0034}
0x14e70…14e98               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d6, t01=0x004a}
0x14e98…14eae               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d6, t01=0x0072}
0x14eae…14eda               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00d6, t01=0x0088}
0x14eda…14ee6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d6, t01=0x00b4}
0x14ee6…14ef0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00c0}
0x14ef0…14f06               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d6, t01=0x00ca}
0x14f06…14f1c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d6, t01=0x00e0}
0x14f1c…14f32               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d6, t01=0x00f6}
0x14f32…14f48               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d6, t01=0x010c}
0x14f48…14f5e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d6, t01=0x0122}
0x14f5e…14f74               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d6, t01=0x0138}
0x14f74…14f9c               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00d6, t01=0x014e}
0x14f9c…14fa8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d6, t01=0x0176}
0x14fa8…14fb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0182}
0x14fb2…14fc8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d6, t01=0x018c}
0x14fc8…14fde               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d7, t01=0x0012}
0x14fde…14ff4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d7, t01=0x0028}
0x14ff4…1500a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d7, t01=0x003e}
0x1500a…15020               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d7, t01=0x0054}
0x15020…15058               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6«, t00=0x00d7, t01=0x006a}
0x15058…15064               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x00a2}
0x15064…1507a               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x00d7, t01=0x00ae}
0x1507a…1508e               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00d7, t01=0x00c4}
0x1508e…1509a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x00d8}
0x1509a…150b0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d7, t01=0x00e4}
0x150b0…150c6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d7, t01=0x00fa}
0x150c6…150dc               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d7, t01=0x0110}
0x150dc…150f2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d7, t01=0x0126}
0x150f2…15108               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d7, t01=0x013c}
0x15108…1511e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d7, t01=0x0152}
0x1511e…15130               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00d7, t01=0x0168}
0x15130…1513a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x017a}
0x1513a…15172               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 7 «, t00=0x00d7, t01=0x0184}
0x15172…1517c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x002c}
0x1517c…15190               Head {h00=0x0010, h01=0x0050, text=»IHSVU7 EQU *«, t00=0x00d8, t01=0x0036}
0x15190…1519c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d8, t01=0x004a}
0x1519c…151b2               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x00d8, t01=0x0056}
0x151b2…151c6               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00d8, t01=0x006c}
0x151c6…151d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d8, t01=0x0080}
0x151d2…151e8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d8, t01=0x008c}
0x151e8…151fe               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d8, t01=0x00a2}
0x151fe…15214               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d8, t01=0x00b8}
0x15214…1522a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d8, t01=0x00ce}
0x1522a…15240               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d8, t01=0x00e4}
0x15240…15256               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d8, t01=0x00fa}
0x15256…1527e               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00d8, t01=0x0110}
0x1527e…15294               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00d8, t01=0x0138}
0x15294…152c0               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00d8, t01=0x014e}
0x152c0…152cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d8, t01=0x017a}
0x152cc…152d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0186}
0x152d6…152ec               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d8, t01=0x0190}
0x152ec…15302               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d9, t01=0x0016}
0x15302…15318               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d9, t01=0x002c}
0x15318…1532e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d9, t01=0x0042}
0x1532e…15344               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d9, t01=0x0058}
0x15344…1535a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d9, t01=0x006e}
0x1535a…15370               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00d9, t01=0x0084}
0x15370…15398               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00d9, t01=0x009a}
0x15398…153a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x00c2}
0x153a4…153ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x00ce}
0x153ae…153c4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x00d9, t01=0x00d8}
0x153c4…153da               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x00d9, t01=0x00ee}
0x153da…153f0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x00d9, t01=0x0104}
0x153f0…15406               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x00d9, t01=0x011a}
0x15406…1541c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x00d9, t01=0x0130}
0x1541c…15432               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x00d9, t01=0x0146}
0x15432…1546a               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU7 SET CWT-ADDRESS FOR VCCU1/4 NO 7«, t00=0x00d9, t01=0x015c}
0x1546a…15476 (218, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x0004}
0x15476…1548c               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x00da, t01=0x0010}
0x1548c…154a0               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00da, t01=0x0026}
0x154a0…154ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x003a}
0x154ac…154c2               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x00da, t01=0x0046}
0x154c2…154d4               Head {h00=0x000e, h01=0x0050, text=» RF IHS100«, t00=0x00da, t01=0x005c}
0x154d4…154de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x006e}
0x154de…15516               Head {h00=0x0034, h01=0x0050, text=»* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 8 «, t00=0x00da, t01=0x0078}
0x15516…15520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00b0}
0x15520…15534               Head {h00=0x0010, h01=0x0050, text=»IHSVU8 EQU *«, t00=0x00da, t01=0x00ba}
0x15534…1555c               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x00da, t01=0x00ce}
0x1555c…15572               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00da, t01=0x00f6}
0x15572…1559e               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x00da, t01=0x010c}
0x1559e…155aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x0138}
0x155aa…155b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0144}
0x155b4…155ca               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x00da, t01=0x014e}
0x155ca…155e0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00da, t01=0x0164}
0x155e0…15608               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x00da, t01=0x017a}
0x15608…15614               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00db, t01=0x0012}
0x15614…1561e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x001e}
0x1561e…15634               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x00db, t01=0x0028}
0x15634…1566c               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8«, t00=0x00db, t01=0x003e}
0x1566c…15680               Head {h00=0x0010, h01=0x0050, text=»IHS100 EQU *«, t00=0x00db, t01=0x0076}
0x15680…1568c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00db, t01=0x008a}
0x1568c…1569a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00db, t01=0x0096}
0x1569a…156a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00a4}
0x156a4…156ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00ae}
0x156ae…156b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00b8}
0x156b8…15704               Head {h00=0x0048, h01=0x0050, text=»* COMMON PART FOR ALL SCREEN SECTION LINE DRIVER INTERRUPT ROUTINES «, t00=0x00db, t01=0x00c2}
0x15704…1570e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x010e}
0x1570e…15718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0118}
0x15718…15758               Head {h00=0x003c, h01=0x0050, text=» LD A6,CWTDOS,A5 GET DWT OCCUPYING SCREEN SECTION OF CWT«, t00=0x00db, t01=0x0122}
0x15758…15796               Head {h00=0x003a, h01=0x0050, text=» ABL(Z) LINER4 IF NOT OCCUPYED: CIO HALT+SST+DISPATCH «, t00=0x00db, t01=0x0162}
0x15796…157aa               Head {h00=0x0010, h01=0x0050, text=»IHS110 EQU *«, t00=0x00dc, t01=0x0010}
0x157aa…157e8               Head {h00=0x003a, h01=0x0050, text=» EX CWTSST,A5 EXECUTE SST ON SCREEN SECTION OF VCCU1/4«, t00=0x00dc, t01=0x0024}
0x157e8…1580c               Head {h00=0x0020, h01=0x0050, text=» RF(NA) IHS120 NOT ACCEPTED «, t00=0x00dc, t01=0x0062}
0x1580c…15836               Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A6 GET DEVICE STATUS «, t00=0x00dc, t01=0x0086}
0x15836…15862               Head {h00=0x0028, h01=0x0050, text=» ANKL A3,SSTFLA TEST SST-ACTION FLAG«, t00=0x00dc, t01=0x00b0}
0x15862…1588a               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) LINER3 ERROR IF NOT SET «, t00=0x00dc, t01=0x00dc}
0x1588a…15894               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0104}
0x15894…158b0               Head {h00=0x0018, h01=0x0050, text=»* END OF CIO-REQUEST«, t00=0x00dc, t01=0x010e}
0x158b0…158ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x012a}
0x158ba…158e8               Head {h00=0x002a, h01=0x0050, text=» XRS A3,DWTST,A6 RESET SST-ACTION FLAG«, t00=0x00dc, t01=0x0134}
0x158e8…15914               Head {h00=0x0028, h01=0x0050, text=» ST A6,CWTSRD,A5 SAVE SST-READY DWT «, t00=0x00dc, t01=0x0162}
0x15914…1594c               Head {h00=0x0034, h01=0x0050, text=» CM CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPYED «, t00=0x00dc, t01=0x018e}
0x1594c…15956               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0036}
0x15956…15978               Head {h00=0x001e, h01=0x0050, text=»* GET AND CHECK QUEUED DWT«, t00=0x00dd, t01=0x0040}
0x15978…15982               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0062}
0x15982…159ba               Head {h00=0x0034, h01=0x0050, text=» CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE «, t00=0x00dd, t01=0x006c}
0x159ba…159dc               Head {h00=0x001e, h01=0x0050, text=» ADK A6,0 ANY QUEUED DWT ?«, t00=0x00dd, t01=0x00a4}
0x159dc…15a0e               Head {h00=0x002e, h01=0x0050, text=» RB(Z) CLESC3 NO. GET SAVED SST-READY DWT «, t00=0x00dd, t01=0x00c6}
0x15a0e…15a3c               Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTST,A6 YES. GET DEVICE STATUS«, t00=0x00dd, t01=0x00f8}
0x15a3c…15a50               Head {h00=0x0010, h01=0x0050, text=» LDR A4,A3  «, t00=0x00dd, t01=0x0126}
0x15a50…15a7e               Head {h00=0x002a, h01=0x0050, text=» ANKL A4,HLTFLA TEST HALT-ACTION FLAG «, t00=0x00dd, t01=0x013a}
0x15a7e…15aae               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) CLESC1 IF SET: CLEAR WAS QUEUED «, t00=0x00dd, t01=0x0168}
0x15aae…15ada               Head {h00=0x0028, h01=0x0050, text=» ANKL A3,OTRFLA TEST OTR-ACTION FLAG«, t00=0x00de, t01=0x0008}
0x15ada…15b12               Head {h00=0x0034, h01=0x0050, text=» ABL(NZ) OUTCU1 IF SET: OUTPUT CURSOR WAS QUEUED«, t00=0x00de, t01=0x0034}
0x15b12…15b44               Head {h00=0x002e, h01=0x0050, text=» ABL STAWR2 ELSE: WRITE SCREEN WAS QUEUED «, t00=0x00de, t01=0x006c}
0x15b44…15b52               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x009e}
0x15b52…15b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00ac}
0x15b5c…15b76               Head {h00=0x0016, h01=0x0050, text=»* SST NOT ACCEPTED«, t00=0x00de, t01=0x00b6}
0x15b76…15b80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00d0}
0x15b80…15b94               Head {h00=0x0010, h01=0x0050, text=»IHS120 EQU *«, t00=0x00de, t01=0x00da}
0x15b94…15bbe               Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A6 GET DEVICE STATUS «, t00=0x00de, t01=0x00ee}
0x15bbe…15bd2               Head {h00=0x0010, h01=0x0050, text=» LDR A4,A3  «, t00=0x00de, t01=0x0118}
0x15bd2…15bfe               Head {h00=0x0028, h01=0x0050, text=» ANKL A4,SSTFLA TEST SST-ACTION FLAG«, t00=0x00de, t01=0x012c}
0x15bfe…15c22               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) LINER2 ERROR IF SET«, t00=0x00de, t01=0x0158}
0x15c22…15c36               Head {h00=0x0010, h01=0x0050, text=» LDR A4,A3  «, t00=0x00de, t01=0x017c}
0x15c36…15c64               Head {h00=0x002a, h01=0x0050, text=» ANKL A4,HLTFLA TEST HALT-ACTION FLAG «, t00=0x00de, t01=0x0190}
0x15c64…15c82               Head {h00=0x001a, h01=0x0050, text=» RF(Z) IHS130 NOT SET «, t00=0x00df, t01=0x002e}
0x15c82…15c8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x004c}
0x15c8c…15cb4               Head {h00=0x0024, h01=0x0050, text=»* HALT-FLAG IS SET. DO CIO HALT.«, t00=0x00df, t01=0x0056}
0x15cb4…15cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x007e}
0x15cbe…15cd2               Head {h00=0x0010, h01=0x0050, text=»IHS125 EQU *«, t00=0x00df, t01=0x0088}
0x15cd2…15d02               Head {h00=0x002c, h01=0x0050, text=» XRS A4,DWTST,A6 RESET HALT-ACTION FLAG «, t00=0x00df, t01=0x009c}
0x15d02…15d3e               Head {h00=0x0038, h01=0x0050, text=» EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 «, t00=0x00df, t01=0x00cc}
0x15d3e…15d70               Head {h00=0x002e, h01=0x0050, text=» LDKL A3,SSTFLA FLAG SST-ACTION REQUESTED «, t00=0x00df, t01=0x0108}
0x15d70…15d9c               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00df, t01=0x013a}
0x15d9c…15db6               Head {h00=0x0016, h01=0x0050, text=» RB IHS110 DO SST «, t00=0x00df, t01=0x0166}
0x15db6…15dca               Head {h00=0x0010, h01=0x0050, text=»IHS130 EQU *«, t00=0x00df, t01=0x0180}
0x15dca…15df6 (224, 0, 398) Head {h00=0x0028, h01=0x0050, text=» ANKL A3,OTRFLA TEST OTR-ACTION FLAG«, t00=0x00e0, t01=0x0004}
0x15df6…15e34               Head {h00=0x003a, h01=0x0050, text=» ABL(Z) NDREPO POP REGISTERS, SET OK-STATUS AND RETURN«, t00=0x00e0, t01=0x0030}
0x15e34…15e3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x006e}
0x15e3e…15e68               Head {h00=0x0026, h01=0x0050, text=»* OTR-FLAG IS SET: DO OTR-CURSOR. «, t00=0x00e0, t01=0x0078}
0x15e68…15e72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00a2}
0x15e72…15ea0               Head {h00=0x002a, h01=0x0050, text=» XRS A3,DWTST,A6 RESET OTR-ACTION FLAG«, t00=0x00e0, t01=0x00ac}
0x15ea0…15eda               Head {h00=0x0036, h01=0x0050, text=» LDKL A3,HLTFLA FLAG HALT-ACTION AT NEXT INTERRUPT«, t00=0x00e0, t01=0x00da}
0x15eda…15f06               Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTST,A6 INTO DEVICE STATUS «, t00=0x00e0, t01=0x0114}
0x15f06…15f36               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTLD2,A6 GET BIO FOR OTR-CURSOR «, t00=0x00e0, t01=0x0140}
0x15f36…15f58               Head {h00=0x001e, h01=0x0050, text=» ABL OUTCH3 DO OTR-CURSOR «, t00=0x00e0, t01=0x0170}
0x15f58…15f66 (225, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e1, t01=0x0004}
0x15f66…15f70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0012}
0x15f70…15fac               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00e1, t01=0x001c}
0x15fac…15fb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0058}
0x15fb6…15fdc               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00e1, t01=0x0062}
0x15fdc…16006               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00e1, t01=0x0088}
0x16006…1602c               Head {h00=0x0022, h01=0x0050, text=»* E R R O R   R O U T I N E S «, t00=0x00e1, t01=0x00b2}
0x1602c…16036               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x00d8}
0x16036…16074               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00e1, t01=0x00e2}
0x16074…1607e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0120}
0x1607e…16088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x012a}
0x16088…160b0               Head {h00=0x0024, h01=0x0050, text=»* -LINER0 CIO START NOT ACCEPTED«, t00=0x00e1, t01=0x0134}
0x160b0…160d2               Head {h00=0x001e, h01=0x0050, text=»* -LINER1 OTR NOT ACCEPTED«, t00=0x00e1, t01=0x015c}
0x160d2…160f6               Head {h00=0x0020, h01=0x0050, text=»* -LINER2 SST NOT ACCEEPTED «, t00=0x00e1, t01=0x017e}
0x160f6…1613a               Head {h00=0x0040, h01=0x0050, text=»* -LINER3 SST UNEXPECTEDLY ACCEPTED (AFTER CIO START OR OTR,«, t00=0x00e2, t01=0x0012}
0x1613a…1615a               Head {h00=0x001c, h01=0x0050, text=»*  BUT BEFORE CIO HALT) «, t00=0x00e2, t01=0x0056}
0x1615a…16180               Head {h00=0x0022, h01=0x0050, text=»* -LINER4 UNEXPECTED INTERRUPT«, t00=0x00e2, t01=0x0076}
0x16180…161ca               Head {h00=0x0046, h01=0x0050, text=»* -LINER5 I/O-INSTRUCTIONS TRIED DURING POWER FAIL POST PROCESSING«, t00=0x00e2, t01=0x009c}
0x161ca…161d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00e6}
0x161d4…161de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00f0}
0x161de…161ec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x00fa}
0x161ec…161f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0108}
0x161f6…16230               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00e2, t01=0x0112}
0x16230…1623a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x014c}
0x1623a…16266               Head {h00=0x0028, h01=0x0050, text=»* L I N E R X   ( X = 0,1,2,3,4,5 ) «, t00=0x00e2, t01=0x0156}
0x16266…16270               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0182}
0x16270…162aa               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00e2, t01=0x018c}
0x162aa…162b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0036}
0x162b4…162be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0040}
0x162be…162ee               Head {h00=0x002c, h01=0x0050, text=»* CALL: ABL LINERX  ( X = 0,1,2,3,4,5 ) «, t00=0x00e3, t01=0x004a}
0x162ee…162f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x007a}
0x162f8…1632c               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00e3, t01=0x0084}
0x1632c…16336               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x00b8}
0x16336…16378               Head {h00=0x003e, h01=0x0050, text=»* FUNCTION:1.TO RESET VCCU1/4 CONTROL UNIT SCREEN SECTION «, t00=0x00e3, t01=0x00c2}
0x16378…163a0               Head {h00=0x0024, h01=0x0050, text=»*   AFTER I/O-ERROR, (LINER0-4) «, t00=0x00e3, t01=0x0104}
0x163a0…163d4               Head {h00=0x0030, h01=0x0050, text=»*  2. INDICATE THE ERROR IN THE RETURN CODE «, t00=0x00e3, t01=0x012c}
0x163d4…16400               Head {h00=0x0028, h01=0x0050, text=»*  AND RETURN TO DEVICE DRIVER PART «, t00=0x00e3, t01=0x0160}
0x16400…16436               Head {h00=0x0032, h01=0x0050, text=»*   VIA NETWORK DISTRIBUTOR (LINER0-3, LINER5)«, t00=0x00e3, t01=0x018c}
0x16436…16456               Head {h00=0x001c, h01=0x0050, text=»*  3. DISPATCH. (LINER4)«, t00=0x00e4, t01=0x0032}
0x16456…16460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x0052}
0x16460…16482               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A5 = CWT-ADDRESS «, t00=0x00e4, t01=0x005c}
0x16482…164ac               Head {h00=0x0026, h01=0x0050, text=»*  A6 = DWT-ADDRESS (IF LINER0-3) «, t00=0x00e4, t01=0x007e}
0x164ac…164b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x00a8}
0x164b6…164ee               Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE (IF LINER0-3, LINER5)«, t00=0x00e4, t01=0x00b2}
0x164ee…1650e               Head {h00=0x001c, h01=0x0050, text=»*        /8000 IF LINER0«, t00=0x00e4, t01=0x00ea}
0x1650e…1652e               Head {h00=0x001c, h01=0x0050, text=»*        /4000 IF LINER1«, t00=0x00e4, t01=0x010a}
0x1652e…1654e               Head {h00=0x001c, h01=0x0050, text=»*        /2000 IF LINER2«, t00=0x00e4, t01=0x012a}
0x1654e…1656e               Head {h00=0x001c, h01=0x0050, text=»*        /1000 IF LINER3«, t00=0x00e4, t01=0x014a}
0x1656e…1658e               Head {h00=0x001c, h01=0x0050, text=»*        /0800 IF LINER5«, t00=0x00e4, t01=0x016a}
0x1658e…16598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x018a}
0x16598…165d0 (229, 0, 400) Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00e5, t01=0x0004}
0x165d0…165da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x003c}
0x165da…165ee               Head {h00=0x0010, h01=0x0050, text=»LINER0 EQU *«, t00=0x00e5, t01=0x0046}
0x165ee…16616               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,CIOERR SET STATUS BIT 0«, t00=0x00e5, t01=0x005a}
0x16616…1662a               Head {h00=0x0010, h01=0x0050, text=»LINERR EQU *«, t00=0x00e5, t01=0x0082}
0x1662a…16666               Head {h00=0x0038, h01=0x0050, text=» EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 «, t00=0x00e5, t01=0x0096}
0x16666…1669c               Head {h00=0x0032, h01=0x0050, text=» EX CWTSST,A5 SST ON SCREEN SECTION OF VCCU1/4«, t00=0x00e5, t01=0x00d2}
0x1669c…166b0               Head {h00=0x0010, h01=0x0050, text=»LINERP EQU *«, t00=0x00e5, t01=0x0108}
0x166b0…166e8               Head {h00=0x0034, h01=0x0050, text=» CM CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPYED «, t00=0x00e5, t01=0x011c}
0x166e8…16718               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,OTRFLA+HLTFLA GET ACTION-FLAGS «, t00=0x00e5, t01=0x0154}
0x16718…16740               Head {h00=0x0024, h01=0x0050, text=» ADKL A3,SSTFLA ALL ACTION-FLAGS«, t00=0x00e5, t01=0x0184}
0x16740…1675e               Head {h00=0x001a, h01=0x0050, text=» C1R A3,A3 COMPLEMENT «, t00=0x00e6, t01=0x001c}
0x1675e…1678e               Head {h00=0x002c, h01=0x0050, text=» ANS A3,DWTST,A6 RESET ALL ACTION-FLAGS «, t00=0x00e6, t01=0x003a}
0x1678e…167c8               Head {h00=0x0036, h01=0x0050, text=» ABL NDREP POP REGISTERS AND RETURN WITH A1=STATUS«, t00=0x00e6, t01=0x006a}
0x167c8…167d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00a4}
0x167d2…167e6               Head {h00=0x0010, h01=0x0050, text=»LINER1 EQU *«, t00=0x00e6, t01=0x00ae}
0x167e6…1680e               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,OTRERR SET STATUS BIT 1«, t00=0x00e6, t01=0x00c2}
0x1680e…16822               Head {h00=0x0010, h01=0x0050, text=» RB LINERR  «, t00=0x00e6, t01=0x00ea}
0x16822…1682c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00fe}
0x1682c…16840               Head {h00=0x0010, h01=0x0050, text=»LINER2 EQU *«, t00=0x00e6, t01=0x0108}
0x16840…16868               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,SSTERR SET STATUS BIT 2«, t00=0x00e6, t01=0x011c}
0x16868…1687c               Head {h00=0x0010, h01=0x0050, text=» RB LINERR  «, t00=0x00e6, t01=0x0144}
0x1687c…16886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0158}
0x16886…1689a               Head {h00=0x0010, h01=0x0050, text=»LINER3 EQU *«, t00=0x00e6, t01=0x0162}
0x1689a…168c2               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,SSTER2 SET STATUS BIT 3«, t00=0x00e6, t01=0x0176}
0x168c2…168d6               Head {h00=0x0010, h01=0x0050, text=» RB LINERR  «, t00=0x00e7, t01=0x000e}
0x168d6…168e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0022}
0x168e0…1690a               Head {h00=0x0026, h01=0x0050, text=»LINER4 EQU * UNEXPECTED INTERRUPT «, t00=0x00e7, t01=0x002c}
0x1690a…16946               Head {h00=0x0038, h01=0x0050, text=» EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 «, t00=0x00e7, t01=0x0056}
0x16946…1697c               Head {h00=0x0032, h01=0x0050, text=» EX CWTSST,A5 SST ON SCREEN SECTION OF VCCU1/4«, t00=0x00e7, t01=0x0092}
0x1697c…16998               Head {h00=0x0018, h01=0x0050, text=» ABL TDISP DISPATCH «, t00=0x00e7, t01=0x00c8}
0x16998…169a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00e4}
0x169a2…169dc               Head {h00=0x0036, h01=0x0050, text=»LINER5 EQU * I/O-INSTRUCTIONS TRIED DURING PFPOST «, t00=0x00e7, t01=0x00ee}
0x169dc…16a04               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PFERR SET STATUS BIT 4 «, t00=0x00e7, t01=0x0128}
0x16a04…16a16               Head {h00=0x000e, h01=0x0050, text=» RB LINERP«, t00=0x00e7, t01=0x0150}
0x16a16…16a24               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e7, t01=0x0162}
0x16a24…16a2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0170}
0x16a2e…16a68               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00e7, t01=0x017a}
0x16a68…16a72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0024}
0x16a72…16a98               Head {h00=0x0022, h01=0x0050, text=»* S C R E E N   S E C T I O N «, t00=0x00e8, t01=0x002e}
0x16a98…16ac2               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00e8, t01=0x0054}
0x16ac2…16ae4               Head {h00=0x001e, h01=0x0050, text=»* S U B - R O U T I N E S «, t00=0x00e8, t01=0x007e}
0x16ae4…16aee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00a0}
0x16aee…16b26               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00e8, t01=0x00aa}
0x16b26…16b30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00e2}
0x16b30…16b3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00ec}
0x16b3a…16b84               Head {h00=0x0046, h01=0x0050, text=»* -CONPOS CONVERT SCREEN POSITION INTO SCREEN MEMORY DISPLACEMENT «, t00=0x00e8, t01=0x00f6}
0x16b84…16bcc               Head {h00=0x0044, h01=0x0050, text=»* -IXTERM INDEX SCREEN MEMORY DISPLACEMENT WITH TERMINAL NUMBER «, t00=0x00e8, t01=0x0140}
0x16bcc…16bfe               Head {h00=0x002e, h01=0x0050, text=»* -CWTDWT GET CWT-ADDRESS FROM DWT-ADDRESS«, t00=0x00e8, t01=0x0188}
0x16bfe…16c30               Head {h00=0x002e, h01=0x0050, text=»* -PUTQUE PUT DWT INTO SCREEN OUTPUT QUEUE«, t00=0x00e9, t01=0x002a}
0x16c30…16c62               Head {h00=0x002e, h01=0x0050, text=»* -GETQUE GET DWT FROM SCREEN OUTPUT QUEUE«, t00=0x00e9, t01=0x005c}
0x16c62…16c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x008e}
0x16c6c…16c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0098}
0x16c76…16c84               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e9, t01=0x00a2}
0x16c84…16c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00b0}
0x16c8e…16cd0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00e9, t01=0x00ba}
0x16cd0…16cda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00fc}
0x16cda…16cf0               Head {h00=0x0012, h01=0x0050, text=»* C O N P O S «, t00=0x00e9, t01=0x0106}
0x16cf0…16cfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x011c}
0x16cfa…16d3c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00e9, t01=0x0126}
0x16d3c…16d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0168}
0x16d46…16d50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0172}
0x16d50…16d6e               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,CONPOS «, t00=0x00e9, t01=0x017c}
0x16d6e…16d78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x000a}
0x16d78…16dac               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00ea, t01=0x0014}
0x16dac…16db6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0048}
0x16db6…16de6               Head {h00=0x002c, h01=0x0050, text=»* FUNCTION:TO CONVERT A SCREEN POSITION «, t00=0x00ea, t01=0x0052}
0x16de6…16e12               Head {h00=0x0028, h01=0x0050, text=»*  INTO A SCREEN MEMORY DISPLACEMENT«, t00=0x00ea, t01=0x0082}
0x16e12…16e1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00ae}
0x16e1c…16e68               Head {h00=0x0048, h01=0x0050, text=»* INPUT: A2 = BITS 0-7: SCREEN POSITION ROW NUMBER 1-24 HEXADECIMAL «, t00=0x00ea, t01=0x00b8}
0x16e68…16eb2               Head {h00=0x0046, h01=0x0050, text=»*        BITS 8-15: SCREEN POSITION COLUMN NUMBER 1-80 HEXADECIMAL«, t00=0x00ea, t01=0x0104}
0x16eb2…16ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x014e}
0x16ebc…16f02               Head {h00=0x0042, h01=0x0050, text=»* OBS: NO CHECK IS MADE HERE, THAT INPUT IS WITHIN /0101-/1850«, t00=0x00ea, t01=0x0158}
0x16f02…16f0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x000e}
0x16f0c…16f4a               Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 = SCREEN MEMORY DISPLACEMENT /0000-/077F «, t00=0x00eb, t01=0x0018}
0x16f4a…16f64               Head {h00=0x0016, h01=0x0050, text=»*  A3 = DESTROYED «, t00=0x00eb, t01=0x0056}
0x16f64…16f6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0070}
0x16f6e…16fb0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00eb, t01=0x007a}
0x16fb0…16fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x00bc}
0x16fba…16fce               Head {h00=0x0010, h01=0x0050, text=»CONPOS EQU *«, t00=0x00eb, t01=0x00c6}
0x16fce…1700a               Head {h00=0x0038, h01=0x0050, text=» SUKL A2,/0101 SCREEN HOME POSITION IS DEFINED /0101«, t00=0x00eb, t01=0x00da}
0x1700a…17028               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 SAVE INPUT «, t00=0x00eb, t01=0x0116}
0x17028…1704a               Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FF GET MODULO 80 «, t00=0x00eb, t01=0x0134}
0x1704a…1707c               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLY (LINENUMBER-1) WITH 80 (=64+16)«, t00=0x00eb, t01=0x0156}
0x1707c…170ae               Head {h00=0x002e, h01=0x0050, text=» ANKL A3,/FF00 ALREADY MULTIPLIED WITH 256«, t00=0x00eb, t01=0x0188}
0x170ae…170dc               Head {h00=0x002a, h01=0x0050, text=» SRL A3,2 NOW ONLY MULTIPLIED WITH 64 «, t00=0x00ec, t01=0x002a}
0x170dc…170f2               Head {h00=0x0012, h01=0x0050, text=» ADR A2,A3 ADD«, t00=0x00ec, t01=0x0058}
0x170f2…17120               Head {h00=0x002a, h01=0x0050, text=» SRL A3,2 NOW ONLY MULTIPLIED WITH 16 «, t00=0x00ec, t01=0x006e}
0x17120…17136               Head {h00=0x0012, h01=0x0050, text=» ADR A2,A3 ADD«, t00=0x00ec, t01=0x009c}
0x17136…1714e               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00ec, t01=0x00b2}
0x1714e…1715c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ec, t01=0x00ca}
0x1715c…17166               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x00d8}
0x17166…171a8               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ec, t01=0x00e2}
0x171a8…171b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0124}
0x171b2…171c8               Head {h00=0x0012, h01=0x0050, text=»* I X T E R M «, t00=0x00ec, t01=0x012e}
0x171c8…171d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0144}
0x171d2…17214               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ec, t01=0x014e}
0x17214…1721e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0190}
0x1721e…17228               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x000a}
0x17228…17246               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,IXTERM «, t00=0x00ed, t01=0x0014}
0x17246…17250               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0032}
0x17250…17284               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00ed, t01=0x003c}
0x17284…1728e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0070}
0x1728e…172c6               Head {h00=0x0034, h01=0x0050, text=»* FUNCTION:TO INDEX A SCREEN MEMORY DISPLACEMENT«, t00=0x00ed, t01=0x007a}
0x172c6…172f8               Head {h00=0x002e, h01=0x0050, text=»*  WITH THE TERMINAL NUMBER OF CURRENT DWT«, t00=0x00ed, t01=0x00b2}
0x172f8…17302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x00e4}
0x17302…17332               Head {h00=0x002c, h01=0x0050, text=»* INPUT: A2 = SCREEN MEMORY DISPLACEMENT«, t00=0x00ed, t01=0x00ee}
0x17332…1734e               Head {h00=0x0018, h01=0x0050, text=»*  A6 = DWT-ADDRESS «, t00=0x00ed, t01=0x011e}
0x1734e…17358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x013a}
0x17358…17386               Head {h00=0x002a, h01=0x0050, text=»* OUTPUT: A2 = SCREEN MEMORY LOCATION «, t00=0x00ed, t01=0x0144}
0x17386…173a0               Head {h00=0x0016, h01=0x0050, text=»*  A3 = DESTROYED «, t00=0x00ed, t01=0x0172}
0x173a0…173aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x018c}
0x173aa…173ea               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00ee, t01=0x0008}
0x173ea…173f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0048}
0x173f4…17408               Head {h00=0x0010, h01=0x0050, text=»IXTERM EQU *«, t00=0x00ee, t01=0x0052}
0x17408…1743a               Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTCP2,A6 GET CHANNEL PARAMETERS 2 «, t00=0x00ee, t01=0x0066}
0x1743a…1746a               Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/300 GET TERMINAL NUMBER (0-3) «, t00=0x00ee, t01=0x0098}
0x1746a…1748e               Head {h00=0x0020, h01=0x0050, text=» SLL A3,3 INTO BITS 3 AND 4 «, t00=0x00ee, t01=0x00c8}
0x1748e…174c8               Head {h00=0x0036, h01=0x0050, text=» ORR A2,A3 COMBINE WITH SCREEN MEMORY DISPLACEMENT«, t00=0x00ee, t01=0x00ec}
0x174c8…174e0               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00ee, t01=0x0126}
0x174e0…174ee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ee, t01=0x013e}
0x174ee…174f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x014c}
0x174f8…1753a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ee, t01=0x0156}
0x1753a…17544               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0008}
0x17544…1755a               Head {h00=0x0012, h01=0x0050, text=»* C W T D W T «, t00=0x00ef, t01=0x0012}
0x1755a…17564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0028}
0x17564…175a6               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00ef, t01=0x0032}
0x175a6…175b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0074}
0x175b0…175ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x007e}
0x175ba…175d8               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,CWTDWT «, t00=0x00ef, t01=0x0088}
0x175d8…175e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x00a6}
0x175e2…17616               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00ef, t01=0x00b0}
0x17616…17620               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x00e4}
0x17620…1766a               Head {h00=0x0046, h01=0x0050, text=»* FUNCTION:TO GET THE CWT-ADDRESS FOR THE CWT USED BY CURRENT DWT «, t00=0x00ef, t01=0x00ee}
0x1766a…17674               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0138}
0x17674…17696               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 = DWT-ADDRESS «, t00=0x00ef, t01=0x0142}
0x17696…176a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0164}
0x176a0…176c2               Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A5 = CWT-ADDRESS«, t00=0x00ef, t01=0x016e}
0x176c2…176e4               Head {h00=0x001e, h01=0x0050, text=»*  NO DESTROYED REGISTERS «, t00=0x00ef, t01=0x0190}
0x176e4…176ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0022}
0x176ee…17734               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x00f0, t01=0x002c}
0x17734…1773e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0072}
0x1773e…17752               Head {h00=0x0010, h01=0x0050, text=»CWTDWT EQU *«, t00=0x00f0, t01=0x007c}
0x17752…1777a               Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A6 GET DWTCHP-CONTENTS «, t00=0x00f0, t01=0x0090}
0x1777a…177ac               Head {h00=0x002e, h01=0x0050, text=» ANK A5,/F BITS 12-15 = CHANNEL UNIT INDEX«, t00=0x00f0, t01=0x00b8}
0x177ac…177e2               Head {h00=0x0032, h01=0x0050, text=» ADR A5,A5 GET CWTTAB-DISPLACEMENT FROM INDEX «, t00=0x00f0, t01=0x00ea}
0x177e2…1780a               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 SKIP TABLE LENGTH ITEM«, t00=0x00f0, t01=0x0120}
0x1780a…1783a               Head {h00=0x002c, h01=0x0050, text=» LD A5,CWTTAB,A5 GET CWT-ADDRESS INTO A5«, t00=0x00f0, t01=0x0148}
0x1783a…17852               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00f0, t01=0x0178}
0x17852…17860               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f0, t01=0x0190}
0x17860…1786a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x000e}
0x1786a…178b0               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00f1, t01=0x0018}
0x178b0…178ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x005e}
0x178ba…178d0               Head {h00=0x0012, h01=0x0050, text=»* P U T Q U E «, t00=0x00f1, t01=0x0068}
0x178d0…178da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x007e}
0x178da…17920               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x00f1, t01=0x0088}
0x17920…1792a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x00ce}
0x1792a…17934               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x00d8}
0x17934…17952               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,PUTQUE «, t00=0x00f1, t01=0x00e2}
0x17952…1795c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0100}
0x1795c…17990               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00f1, t01=0x010a}
0x17990…1799a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x013e}
0x1799a…179de               Head {h00=0x0040, h01=0x0050, text=»* FUNCTION:TO QUEUE A DWT LAST IN SCREEN ECHO OUTPUT QUEUE, «, t00=0x00f1, t01=0x0148}
0x179de…17a24               Head {h00=0x0042, h01=0x0050, text=»*  IF DWT IN ECHO MODE, ELSE LAST IN SCREEN LKM OUTPUT QUEUE. «, t00=0x00f1, t01=0x018c}
0x17a24…17a2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0042}
0x17a2e…17a50               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A5 = CWT-ADDRESS «, t00=0x00f2, t01=0x004c}
0x17a50…17a6a               Head {h00=0x0016, h01=0x0050, text=»*  A6 =DWT-ADDRESS«, t00=0x00f2, t01=0x006e}
0x17a6a…17a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0088}
0x17a74…17a9a               Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A3,A4,A7 = DESTROYED«, t00=0x00f2, t01=0x0092}
0x17a9a…17aa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x00b8}
0x17aa4…17ae8               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f2, t01=0x00c2}
0x17ae8…17af2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0106}
0x17af2…17b06               Head {h00=0x0010, h01=0x0050, text=»PUTQUE EQU *«, t00=0x00f2, t01=0x0110}
0x17b06…17b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0124}
0x17b10…17b34               Head {h00=0x0020, h01=0x0050, text=»* SELECT ECHO- OR LKM-QUEUE «, t00=0x00f2, t01=0x012e}
0x17b34…17b3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0152}
0x17b3e…17b68               Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTST,A6 GET DEVICE STATUS «, t00=0x00f2, t01=0x015c}
0x17b68…17b94               Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/2000 DEVICE IN ECHO MODE ?«, t00=0x00f2, t01=0x0186}
0x17b94…17bac               Head {h00=0x0014, h01=0x0050, text=» RF(Z) PUTQ05 NO«, t00=0x00f3, t01=0x0022}
0x17bac…17be0               Head {h00=0x0030, h01=0x0050, text=» LDKL A7,CWTSEQ GET SCREEN ECHO OUTPUT QUEUE«, t00=0x00f3, t01=0x003a}
0x17be0…17bf4               Head {h00=0x0010, h01=0x0050, text=» RF PUTQ07  «, t00=0x00f3, t01=0x006e}
0x17bf4…17c08               Head {h00=0x0010, h01=0x0050, text=»PUTQ05 EQU *«, t00=0x00f3, t01=0x0082}
0x17c08…17c3c               Head {h00=0x0030, h01=0x0050, text=» LDKL A7,CWTSLQ GET SCREEN LKM OUTPUT QUEUE «, t00=0x00f3, t01=0x0096}
0x17c3c…17c50               Head {h00=0x0010, h01=0x0050, text=»PUTQ07 EQU *«, t00=0x00f3, t01=0x00ca}
0x17c50…17c6a               Head {h00=0x0016, h01=0x0050, text=» ADR A7,A5 ANCHOR «, t00=0x00f3, t01=0x00de}
0x17c6a…17c74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x00f8}
0x17c74…17c9c               Head {h00=0x0024, h01=0x0050, text=»* QUEUE DWT INTO SELECTED QUEUE «, t00=0x00f3, t01=0x0102}
0x17c9c…17ca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x012a}
0x17ca6…17cde               Head {h00=0x0034, h01=0x0050, text=» LDR* A4,A7 GET FIRST QUEUED DWT. QUEUE EMPTY ? «, t00=0x00f3, t01=0x0134}
0x17cde…17cf8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) PUTQ20 YES «, t00=0x00f3, t01=0x016c}
0x17cf8…17d0c               Head {h00=0x0010, h01=0x0050, text=»PUTQ10 EQU *«, t00=0x00f3, t01=0x0186}
0x17d0c…17d3e               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A4 CURRENT DWT ALREADY IN QUEUE ? «, t00=0x00f4, t01=0x000a}
0x17d3e…17d58               Head {h00=0x0016, h01=0x0050, text=» RF(E) PUTQ60 YES «, t00=0x00f4, t01=0x003c}
0x17d58…17d86               Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTOTQ,A4 GET DWT NEXT IN QUEUE«, t00=0x00f4, t01=0x0056}
0x17d86…17dae               Head {h00=0x0024, h01=0x0050, text=» RF(Z) PUTQ30 END OF QUEUE FOUND«, t00=0x00f4, t01=0x0084}
0x17dae…17dd2               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 FOLLOW THE QUEUE «, t00=0x00f4, t01=0x00ac}
0x17dd2…17de4               Head {h00=0x000e, h01=0x0050, text=» RB PUTQ10«, t00=0x00f4, t01=0x00d0}
0x17de4…17df8               Head {h00=0x0010, h01=0x0050, text=»PUTQ20 EQU *«, t00=0x00f4, t01=0x00e2}
0x17df8…17e28               Head {h00=0x002c, h01=0x0050, text=» STR A6,A7 QUEUE DWT, IF QUEUE WAS EMPTY«, t00=0x00f4, t01=0x00f6}
0x17e28…17e3c               Head {h00=0x0010, h01=0x0050, text=» RF PUTQ40  «, t00=0x00f4, t01=0x0126}
0x17e3c…17e50               Head {h00=0x0010, h01=0x0050, text=»PUTQ30 EQU *«, t00=0x00f4, t01=0x013a}
0x17e50…17e8a               Head {h00=0x0036, h01=0x0050, text=» ST A6,DWTOTQ,A4 QUEUE DWT, IF QUEUE WAS NOT EMPTY«, t00=0x00f4, t01=0x014e}
0x17e8a…17e9e               Head {h00=0x0010, h01=0x0050, text=»PUTQ40 EQU *«, t00=0x00f4, t01=0x0188}
0x17e9e…17ec4               Head {h00=0x0022, h01=0x0050, text=» CM DWTOTQ,A6 SET END OF QUEUE«, t00=0x00f5, t01=0x000c}
0x17ec4…17ed8               Head {h00=0x0010, h01=0x0050, text=»PUTQ60 EQU *«, t00=0x00f5, t01=0x0032}
0x17ed8…17eee               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00f5, t01=0x0046}
0x17eee…17f18               Head {h00=0x0026, h01=0x0050, text=» ABL IHRTN RETURN IN INHIBIT MODE «, t00=0x00f5, t01=0x005c}
0x17f18…17f24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f5, t01=0x0086}
0x17f24…17f3a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00f5, t01=0x0092}
0x17f3a…17f52               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00f5, t01=0x00a8}
0x17f52…17f5e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f5, t01=0x00c0}
0x17f5e…17f6c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x00cc}
0x17f6c…17f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x00da}
0x17f76…17fb4               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00f5, t01=0x00e4}
0x17fb4…17fbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0122}
0x17fbe…17fd4               Head {h00=0x0012, h01=0x0050, text=»* G E T Q U E «, t00=0x00f5, t01=0x012c}
0x17fd4…17fde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0142}
0x17fde…1801c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00f5, t01=0x014c}
0x1801c…18026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x018a}
0x18026…18030 (246, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0004}
0x18030…1804e               Head {h00=0x001a, h01=0x0050, text=»* CALL: CF A15,GETQUE «, t00=0x00f6, t01=0x000e}
0x1804e…18058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x002c}
0x18058…1808c               Head {h00=0x0030, h01=0x0050, text=»* USED BY: SCREEN SECTION, LINE DRIVER PART «, t00=0x00f6, t01=0x0036}
0x1808c…18096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x006a}
0x18096…180d8               Head {h00=0x003e, h01=0x0050, text=»* FUNCTION:TO GET FIRST DWT FROM SCREEN ECHO OUTPUT QUEUE,«, t00=0x00f6, t01=0x0074}
0x180d8…18106               Head {h00=0x002a, h01=0x0050, text=»*  OR, IF ECHO OUTPUT QUEUE IS EMPTY, «, t00=0x00f6, t01=0x00b6}
0x18106…1812e               Head {h00=0x0024, h01=0x0050, text=»*  FROM SCREEN LKM OUTPUT QUEUE.«, t00=0x00f6, t01=0x00e4}
0x1812e…18138               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x010c}
0x18138…1815a               Head {h00=0x001e, h01=0x0050, text=»* INPUT: A5 = CWT-ADDRESS «, t00=0x00f6, t01=0x0116}
0x1815a…18164               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0138}
0x18164…181a2               Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A6 = DWT-ADDRESS (OR 0 IF NO DWT IN QUEUES) «, t00=0x00f6, t01=0x0142}
0x181a2…181bc               Head {h00=0x0016, h01=0x0050, text=»*  A3 = DESTROYED «, t00=0x00f6, t01=0x0180}
0x181bc…181c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x000a}
0x181c6…18204               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00f7, t01=0x0014}
0x18204…1820e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0052}
0x1820e…18222               Head {h00=0x0010, h01=0x0050, text=»GETQUE EQU *«, t00=0x00f7, t01=0x005c}
0x18222…18260               Head {h00=0x003a, h01=0x0050, text=» LD A6,CWTSEQ,A5 GET FIRST DWT FROM ECHO OUTPUT QUEUE «, t00=0x00f7, t01=0x0070}
0x18260…18286               Head {h00=0x0022, h01=0x0050, text=» RF(Z) GETQ10 ECHO QUEUE EMPTY«, t00=0x00f7, t01=0x00ae}
0x18286…182ae               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOTQ,A6 GET QUEUE LINK «, t00=0x00f7, t01=0x00d4}
0x182ae…182d8               Head {h00=0x0026, h01=0x0050, text=» ST A3,CWTSEQ,A5 STORE IT INTO CWT«, t00=0x00f7, t01=0x00fc}
0x182d8…182ec               Head {h00=0x0010, h01=0x0050, text=» RF GETQ30  «, t00=0x00f7, t01=0x0126}
0x182ec…18300               Head {h00=0x0010, h01=0x0050, text=»GETQ10 EQU *«, t00=0x00f7, t01=0x013a}
0x18300…1833c               Head {h00=0x0038, h01=0x0050, text=» LD A6,CWTSLQ,A5 GET FIRST DWT FROM LKM OUTPUT QUEUE«, t00=0x00f7, t01=0x014e}
0x1833c…18366               Head {h00=0x0026, h01=0x0050, text=» RF(Z) GETQ30 ALSO LKM QUEUE EMPTY«, t00=0x00f7, t01=0x018a}
0x18366…1838e               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOTQ,A6 GET QUEUE LINK «, t00=0x00f8, t01=0x0024}
0x1838e…183b8               Head {h00=0x0026, h01=0x0050, text=» ST A3,CWTSLQ,A5 STORE IT INTO CWT«, t00=0x00f8, t01=0x004c}
0x183b8…183cc               Head {h00=0x0010, h01=0x0050, text=»GETQ30 EQU *«, t00=0x00f8, t01=0x0076}
0x183cc…183e2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00f8, t01=0x008a}
0x183e2…1840c               Head {h00=0x0026, h01=0x0050, text=» ABL IHRTN RETURN IN INHIBIT MODE «, t00=0x00f8, t01=0x00a0}
0x1840c…18418               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x00ca}
0x18418…1842e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x00f8, t01=0x00d6}
0x1842e…18446               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x00f8, t01=0x00ec}
0x18446…18452               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x0104}
0x18452…18460               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f8, t01=0x0110}
0x18460…1846a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x011e}
0x1846a…184a6               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x00f8, t01=0x0128}
0x184a6…184b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0164}
0x184b0…184de               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=0x016e}
0x184de…18508               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x00f9, t01=0x000c}
0x18508…18538               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=0x00f9, t01=0x0036}
0x18538…18542               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0066}
0x18542…18584               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x00f9, t01=0x0070}
0x18584…1858e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00b2}
0x1858e…185c2               Head {h00=0x0030, h01=0x0050, text=»* FOR THE PERIPHERAL SECTION OF THE VCCU1/4 «, t00=0x00f9, t01=0x00bc}
0x185c2…185ee               Head {h00=0x0028, h01=0x0050, text=»* THIS DRIVER IS A LINE-DRIVER ONLY,«, t00=0x00f9, t01=0x00f0}
0x185ee…1862a               Head {h00=0x0038, h01=0x0050, text=»* WHICH IS USED BY SEPARATE TERMINAL DEVICE DRIVERS.«, t00=0x00f9, t01=0x011c}
0x1862a…18670               Head {h00=0x0042, h01=0x0050, text=»* BELOW APPEARS THOSE ACTIVATION ROUTINES WHICH ARE USING THE «, t00=0x00f9, t01=0x0158}
0x18670…1869c               Head {h00=0x0028, h01=0x0050, text=»* PERIPHERAL SECTION OF THE VCCU1/4.«, t00=0x00fa, t01=0x000e}
0x1869c…186e6               Head {h00=0x0046, h01=0x0050, text=»* THE ACTIVATION ROUTINES ARE CALLED FROM TERMINAL DEVICE DRIVERS «, t00=0x00fa, t01=0x003a}
0x186e6…1870c               Head {h00=0x0022, h01=0x0050, text=»* VIA THE NETWORK DISTRIBUTOR.«, t00=0x00fa, t01=0x0084}
0x1870c…18716               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00aa}
0x18716…18720               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00b4}
0x18720…18760               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00fa, t01=0x00be}
0x18760…1876a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00fe}
0x1876a…18786               Head {h00=0x0018, h01=0x0050, text=»*   CHARACTER INPUT «, t00=0x00fa, t01=0x0108}
0x18786…18790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0124}
0x18790…187a4               Head {h00=0x0010, h01=0x0050, text=»VUCHRI EQU *«, t00=0x00fa, t01=0x012e}
0x187a4…187b8               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x00fa, t01=0x0142}
0x187b8…187ec               Head {h00=0x0030, h01=0x0050, text=» ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT «, t00=0x00fa, t01=0x0156}
0x187ec…1881c               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x00fa, t01=0x018a}
0x1881c…18840               Head {h00=0x0020, h01=0x0050, text=» RF VUDISP VIDEO DISPATCHER «, t00=0x00fb, t01=0x002a}
0x18840…1884a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x004e}
0x1884a…18866               Head {h00=0x0018, h01=0x0050, text=»*   START OF A BLOCK«, t00=0x00fb, t01=0x0058}
0x18866…18870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0074}
0x18870…18884               Head {h00=0x0010, h01=0x0050, text=»VUSTBL EQU *«, t00=0x00fb, t01=0x007e}
0x18884…1888e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0092}
0x1888e…188a8               Head {h00=0x0016, h01=0x0050, text=»*   END OF A BLOCK«, t00=0x00fb, t01=0x009c}
0x188a8…188b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x00b6}
0x188b2…188c6               Head {h00=0x0010, h01=0x0050, text=»VUENBL EQU *«, t00=0x00fb, t01=0x00c0}
0x188c6…18900               Head {h00=0x0036, h01=0x0050, text=» ABL NDRETO RETURN TO DEVICE DRIVER. STATUS = OK. «, t00=0x00fb, t01=0x00d4}
0x18900…1890a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x010e}
0x1890a…18926               Head {h00=0x0018, h01=0x0050, text=»*   VIDEO DISPATCHER«, t00=0x00fb, t01=0x0118}
0x18926…18930               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0134}
0x18930…18944               Head {h00=0x0010, h01=0x0050, text=»VUDISP EQU *«, t00=0x00fb, t01=0x013e}
0x18944…18968               Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x00fb, t01=0x0152}
0x18968…18972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0176}
0x18972…1897c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0180}
0x1897c…18998               Head {h00=0x0018, h01=0x0050, text=»*   CHARACTER OUTPUT«, t00=0x00fb, t01=0x018a}
0x18998…189a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x0016}
0x189a2…189b6               Head {h00=0x0010, h01=0x0050, text=»VUCHRO EQU *«, t00=0x00fc, t01=0x0020}
0x189b6…189c4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x0034}
0x189c4…189ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x0042}
0x189ce…18a0e               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00fc, t01=0x004c}
0x18a0e…18a18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x008c}
0x18a18…18a22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x0096}
0x18a22…18a3a               Head {h00=0x0014, h01=0x0050, text=»*    FUNCTIONS: «, t00=0x00fc, t01=0x00a0}
0x18a3a…18a44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x00b8}
0x18a44…18a66               Head {h00=0x001e, h01=0x0050, text=»* 1. SAVE A1-A8 ONTO STACK«, t00=0x00fc, t01=0x00c2}
0x18a66…18a86               Head {h00=0x001c, h01=0x0050, text=»* 2. INHIBIT INTERRUPTS «, t00=0x00fc, t01=0x00e4}
0x18a86…18aa8               Head {h00=0x001e, h01=0x0050, text=»* 3. COMPUTE CWT FROM DWT «, t00=0x00fc, t01=0x0104}
0x18aa8…18ae6               Head {h00=0x003a, h01=0x0050, text=»* 4. TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY «, t00=0x00fc, t01=0x0126}
0x18ae6…18b30               Head {h00=0x0046, h01=0x0050, text=»* 5.      IF NOT THEN TEST IF DWT IS ALREADY IN CWT OUTPUT QUEUE, «, t00=0x00fc, t01=0x0164}
0x18b30…18b68               Head {h00=0x0034, h01=0x0050, text=»*                         FOR PERIPHERAL SECTION«, t00=0x00fd, t01=0x001e}
0x18b68…18bb4               Head {h00=0x0048, h01=0x0050, text=»*                          IF NOT THEN QUEUE THE DWT LAST IN QUEUE, «, t00=0x00fd, t01=0x0056}
0x18bb4…18c00               Head {h00=0x0048, h01=0x0050, text=»*                           STORE OUTPUT-CHARACTER INTO QUEUED DWT, «, t00=0x00fd, t01=0x00a2}
0x18c00…18c36               Head {h00=0x0032, h01=0x0050, text=»*                           AND THEN DISPATCH.«, t00=0x00fd, t01=0x00ee}
0x18c36…18c60               Head {h00=0x0026, h01=0x0050, text=»*                           ELSE: «, t00=0x00fd, t01=0x0124}
0x18c60…18cae               Head {h00=0x004a, h01=0x0050, text=»* 7.                        STORE OUTPUT-CHAR INTO ALREADY QUEUED DWT,«, t00=0x00fd, t01=0x014e}
0x18cae…18ce4               Head {h00=0x0032, h01=0x0050, text=»*                           AND THEN DISPATCH.«, t00=0x00fe, t01=0x000c}
0x18ce4…18d02               Head {h00=0x001a, h01=0x0050, text=»*                ELSE:«, t00=0x00fe, t01=0x0042}
0x18d02…18d42               Head {h00=0x003c, h01=0x0050, text=»* 8.             PREPARE TO SEND THE CHAR TO THE CHANNEL«, t00=0x00fe, t01=0x0060}
0x18d42…18d86               Head {h00=0x0040, h01=0x0050, text=»* 9.             TEST IF THE DWT IS FOR DEVICE ON PERIPHERAL«, t00=0x00fe, t01=0x00a0}
0x18d86…18db2               Head {h00=0x0028, h01=0x0050, text=»*                SECTION ON CHANNEL.«, t00=0x00fe, t01=0x00e4}
0x18db2…18de6               Head {h00=0x0030, h01=0x0050, text=»*                     IF NOT THEN NO OUTPUT,«, t00=0x00fe, t01=0x0110}
0x18de6…18e10               Head {h00=0x0026, h01=0x0050, text=»*                            ELSE:«, t00=0x00fe, t01=0x0144}
0x18e10…18e4a               Head {h00=0x0036, h01=0x0050, text=»* 10.                           OUTPUT CHARACTER. «, t00=0x00fe, t01=0x016e}
0x18e4a…18e72               Head {h00=0x0024, h01=0x0050, text=»* 11.           IF OTR ACCEPTED «, t00=0x00ff, t01=0x0018}
0x18e72…18eb6               Head {h00=0x0040, h01=0x0050, text=»*                      STORE INTO DWT THE CHAR BEING OUTPUT «, t00=0x00ff, t01=0x0040}
0x18eb6…18ef4               Head {h00=0x003a, h01=0x0050, text=»*                         AND RETURN TO DEVICE DRIVER.«, t00=0x00ff, t01=0x0084}
0x18ef4…18f32               Head {h00=0x003a, h01=0x0050, text=»* 12.            IF CHAR NOT ACCEPTED BY CHANNEL THEN «, t00=0x00ff, t01=0x00c2}
0x18f32…18f76               Head {h00=0x0040, h01=0x0050, text=»*                         TEST IF CWT OUTPUT QUEUE IS EMPTY.«, t00=0x00ff, t01=0x0100}
0x18f76…18fa4               Head {h00=0x002a, h01=0x0050, text=»*                         IF SO THEN: «, t00=0x00ff, t01=0x0144}
0x18fa4…18fb2               Head {h00=0x000a, h01=0x0050, text=»* 13. «, t00=0x00ff, t01=0x0172}
0x18fb2…18fde               Head {h00=0x0028, h01=0x0050, text=»*                        START TIMER«, t00=0x00ff, t01=0x0180}
0x18fde…1902e               Head {h00=0x004c, h01=0x0050, text=»*                            AND SET OUTPUT QUEUE TIMER POINTER IN CWT. «, t00=0x0100, t01=0x001c}
0x1902e…19076               Head {h00=0x0044, h01=0x0050, text=»* 14.                        GO QUEUE DWT INTO CWT OUTPUT QUEUE «, t00=0x0100, t01=0x006c}
0x19076…190ae               Head {h00=0x0034, h01=0x0050, text=»*                            AND DISPATCH.(5-7) «, t00=0x0100, t01=0x00b4}
0x190ae…190b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x00ec}
0x190b8…190c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x00f6}
0x190c2…190cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0100}
0x190cc…190e4               Head {h00=0x0014, h01=0x0050, text=»*     ON ENTRY: «, t00=0x0100, t01=0x010a}
0x190e4…190ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0122}
0x190ee…19120               Head {h00=0x002e, h01=0x0050, text=»*     A2 = OUTPUT CHARACTER IN RIGHT BYTE «, t00=0x0100, t01=0x012c}
0x19120…1913e               Head {h00=0x001a, h01=0x0050, text=»*     A6 = DWT-ADDRESS«, t00=0x0100, t01=0x015e}
0x1913e…19182               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0100, t01=0x017c}
0x19182…1918c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0030}
0x1918c…19196               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x003a}
0x19196…191a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0044}
0x191a0…191ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0101, t01=0x004e}
0x191ae…191c2               Head {h00=0x0010, h01=0x0050, text=»OUTPER EQU *«, t00=0x0101, t01=0x005c}
0x191c2…191f2               Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x0101, t01=0x0070}
0x191f2…191fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x00a0}
0x191fc…1921a               Head {h00=0x001a, h01=0x0050, text=»* GET CWT FOR THIS DWT«, t00=0x0101, t01=0x00aa}
0x1921a…19224               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x00c8}
0x19224…19244               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPT «, t00=0x0101, t01=0x00d2}
0x19244…1926a               Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0101, t01=0x00f2}
0x1926a…1928a               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/F CHANNEL INDEX«, t00=0x0101, t01=0x0118}
0x1928a…1929c               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0101, t01=0x0138}
0x1929c…192ae               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0101, t01=0x014a}
0x192ae…192de               Head {h00=0x002c, h01=0x0050, text=» LD A5,CWTTAB,A1 GET CWT-ADDRESS INTO A5«, t00=0x0101, t01=0x015c}
0x192de…19308               Head {h00=0x0026, h01=0x0050, text=» RB(Z) VUDISP  IF NO CWT: DISPATCH«, t00=0x0101, t01=0x018c}
0x19308…19312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0026}
0x19312…1934c               Head {h00=0x0036, h01=0x0050, text=»* TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY«, t00=0x0102, t01=0x0030}
0x1934c…19356               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x006a}
0x19356…19386               Head {h00=0x002c, h01=0x0050, text=» LD A4,CWTPQ,A5 IS OUTPUT QUEUE EMPTY ? «, t00=0x0102, t01=0x0074}
0x19386…193bc               Head {h00=0x0032, h01=0x0050, text=» RF(NZ) PER560 NO. THEN QUEUE DWT AND DISPATCH«, t00=0x0102, t01=0x00a4}
0x193bc…193ca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0102, t01=0x00da}
0x193ca…193d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00e8}
0x193d4…193fa               Head {h00=0x0022, h01=0x0050, text=»*    PREPARE TO SEND CHARACTER«, t00=0x0102, t01=0x00f2}
0x193fa…19404               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0118}
0x19404…19418               Head {h00=0x0010, h01=0x0050, text=»PER500 EQU *«, t00=0x0102, t01=0x0122}
0x19418…1944a               Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTCP2,A6 GET CHANNEL PARAMETERS 2 «, t00=0x0102, t01=0x0136}
0x1944a…1945c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0102, t01=0x0168}
0x1945c…1947e               Head {h00=0x001e, h01=0x0050, text=» ANK A3,/3 DEVICE ADDRESS «, t00=0x0102, t01=0x017a}
0x1947e…19488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x000c}
0x19488…194cc               Head {h00=0x0040, h01=0x0050, text=»* TEST IF THE DEVICE IS ON THE PERIPHERAL SECTION OF CHANNEL«, t00=0x0103, t01=0x0016}
0x194cc…194d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x005a}
0x194d6…194fc               Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 DEVICE-ADDRESS = 0 ?«, t00=0x0103, t01=0x0064}
0x194fc…19522               Head {h00=0x0022, h01=0x0050, text=» RF(N) PER520 IF SO, NO OUTPUT«, t00=0x0103, t01=0x008a}
0x19522…19548               Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 DEVICE-ADDRESS = 3 ?«, t00=0x0103, t01=0x00b0}
0x19548…1956e               Head {h00=0x0022, h01=0x0050, text=» RF(Z) PER520 IF SO, NO OUTPUT«, t00=0x0103, t01=0x00d6}
0x1956e…19578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x00fc}
0x19578…195aa               Head {h00=0x002e, h01=0x0050, text=»* IF NOT POWER FAIL POST PROCESSING, THEN «, t00=0x0103, t01=0x0106}
0x195aa…195ce               Head {h00=0x0020, h01=0x0050, text=»* SEND CHARACTER TO CHANNEL «, t00=0x0103, t01=0x0138}
0x195ce…195d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x015c}
0x195d8…19608               Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 COMPUTE DEVICE-ADDRESS FOR BIO«, t00=0x0103, t01=0x0166}
0x19608…1961a               Head {h00=0x000e, h01=0x0050, text=» SRC A3,6 «, t00=0x0104, t01=0x0008}
0x1961a…19640               Head {h00=0x0022, h01=0x0050, text=» ANKL A4,/300 TERMINAL NUMBER «, t00=0x0104, t01=0x001a}
0x19640…19678               Head {h00=0x0034, h01=0x0050, text=» ORR A3,A4 COMBINE DEV.ADDR. AND TERMINAL NUMBER«, t00=0x0104, t01=0x0040}
0x19678…1968c               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0104, t01=0x0078}
0x1968c…196b0               Head {h00=0x0020, h01=0x0050, text=» ORR A2,A3 BIO IS READY-MADE«, t00=0x0104, t01=0x008c}
0x196b0…196ea               Head {h00=0x0036, h01=0x0050, text=» LD A3,PFPOST GET POWER FAIL POST PROCESSING FLAG «, t00=0x0104, t01=0x00b0}
0x196ea…19728               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) PER510 FLAG SET: I/O-INSTRUCTIONS NOT ALLOWED.«, t00=0x0104, t01=0x00ea}
0x19728…19760               Head {h00=0x0034, h01=0x0050, text=» EX CWTOTP,A5 EXECUTE OTR ON PERIPHERAL SECTION «, t00=0x0104, t01=0x0128}
0x19760…19788               Head {h00=0x0024, h01=0x0050, text=» RF(NA) PER510 OTR NOT ACCEPTED «, t00=0x0104, t01=0x0160}
0x19788…19792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x0188}
0x19792…197ac (261, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* OTR IS ACCEPTED.«, t00=0x0105, t01=0x0004}
0x197ac…197d6               Head {h00=0x0026, h01=0x0050, text=»* SAVE OUTPUT CHARACTER INTO DWT, «, t00=0x0105, t01=0x001e}
0x197d6…197fe               Head {h00=0x0024, h01=0x0050, text=»* THEN RETURN TO DEVICE DRIVER. «, t00=0x0105, t01=0x0048}
0x197fe…19808               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0070}
0x19808…1982c               Head {h00=0x0020, h01=0x0050, text=» SC A2,DWTOCH,A6 SAVE OUTPUT«, t00=0x0105, t01=0x007a}
0x1982c…19866               Head {h00=0x0036, h01=0x0050, text=» ABL NDREPO POP REGISTERS,SET OK-STATUS AND RETURN«, t00=0x0105, t01=0x009e}
0x19866…19870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x00d8}
0x19870…1988e               Head {h00=0x001a, h01=0x0050, text=»* OTR IS NOT ACCEPTED.«, t00=0x0105, t01=0x00e2}
0x1988e…198ca               Head {h00=0x0038, h01=0x0050, text=»* TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY. «, t00=0x0105, t01=0x0100}
0x198ca…198d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x013c}
0x198d4…198e8               Head {h00=0x0010, h01=0x0050, text=»PER510 EQU *«, t00=0x0105, t01=0x0146}
0x198e8…19918               Head {h00=0x002c, h01=0x0050, text=» LD A4,CWTPQ,A5 IS OUTPUT QUEUE EMPTY ? «, t00=0x0105, t01=0x015a}
0x19918…19956               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) PER560 NO. THEN ONLY QUEUE DWT, AND DISPATCH. «, t00=0x0105, t01=0x018a}
0x19956…19960               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0038}
0x19960…19986               Head {h00=0x0022, h01=0x0050, text=»* OUTPUT QUEUE IS EMPTY, THEN «, t00=0x0106, t01=0x0042}
0x19986…199b6               Head {h00=0x002c, h01=0x0050, text=»* 1.START TIMER (AND SET TIMER POINTER).«, t00=0x0106, t01=0x0068}
0x199b6…199cc               Head {h00=0x0012, h01=0x0050, text=»* 2.QUEUE DWT.«, t00=0x0106, t01=0x0098}
0x199cc…199e0               Head {h00=0x0010, h01=0x0050, text=»* 3.DISPATCH«, t00=0x0106, t01=0x00ae}
0x199e0…199ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00c2}
0x199ea…199f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00cc}
0x199f4…19a08               Head {h00=0x0010, h01=0x0050, text=»PER520 EQU *«, t00=0x0106, t01=0x00d6}
0x19a08…19a2c               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,CWTTP TIMER POINTER«, t00=0x0106, t01=0x00ea}
0x19a2c…19a54               Head {h00=0x0024, h01=0x0050, text=» ADR A4,A5 ADD WITH CWT-ADDRESS «, t00=0x0106, t01=0x010e}
0x19a54…19a88               Head {h00=0x0030, h01=0x0050, text=» LDR A1,A5 PARAMETER (=CWT-ADDRESS) INTO A1 «, t00=0x0106, t01=0x0136}
0x19a88…19aae               Head {h00=0x0022, h01=0x0050, text=» CF A15,SETIMP GET TIMER BLOCK«, t00=0x0106, t01=0x016a}
0x19aae…19af0               Head {h00=0x003e, h01=0x0050, text=» DATA TIMOUT,QUETIM ADDRESS TO TIME-OUT ROUTINE AND DELAY «, t00=0x0106, t01=0x0190}
0x19af0…19b22               Head {h00=0x002e, h01=0x0050, text=» RF PER570 QUEUE DWT WHEN QUEUE WAS EMPTY «, t00=0x0107, t01=0x0042}
0x19b22…19b30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x0074}
0x19b30…19b3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0082}
0x19b3a…19b54               Head {h00=0x0016, h01=0x0050, text=»*    QUEUE OUTPUT «, t00=0x0107, t01=0x008c}
0x19b54…19b92               Head {h00=0x003a, h01=0x0050, text=»* WHEN QUEUE NOT EMPTY (A4 POINTS TO FIRST QUEUED DWT)«, t00=0x0107, t01=0x00a6}
0x19b92…19b9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00e4}
0x19b9c…19bb4               Head {h00=0x0014, h01=0x0050, text=»PER560 CWR A6,A4«, t00=0x0107, t01=0x00ee}
0x19bb4…19bf2               Head {h00=0x003a, h01=0x0050, text=» RF(E) PER600 THIS DWT IS ALREADY IN PERIPHERAL QUEUE «, t00=0x0107, t01=0x0106}
0x19bf2…19c2c               Head {h00=0x0036, h01=0x0050, text=» LD A3,DWTOTQ,A4 GET DWT NEXT IN PERIPHERAL QUEUE «, t00=0x0107, t01=0x0144}
0x19c2c…19c54               Head {h00=0x0024, h01=0x0050, text=» RF(Z) PER580 END OF QUEUE FOUND«, t00=0x0107, t01=0x017e}
0x19c54…19c78               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 FOLLOW THE QUEUE «, t00=0x0108, t01=0x0016}
0x19c78…19c8a               Head {h00=0x000e, h01=0x0050, text=» RB PER560«, t00=0x0108, t01=0x003a}
0x19c8a…19c94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x004c}
0x19c94…19cbe               Head {h00=0x0026, h01=0x0050, text=»* QUEUE OUTPUT WHEN QUEUE IS EMPTY«, t00=0x0108, t01=0x0056}
0x19cbe…19cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0080}
0x19cc8…19d04               Head {h00=0x0038, h01=0x0050, text=»PER570 ST A6,CWTPQ,A5 QUEUE DWT, IF QUEUE WAS EMPTY «, t00=0x0108, t01=0x008a}
0x19d04…19d16               Head {h00=0x000e, h01=0x0050, text=» RF PER590«, t00=0x0108, t01=0x00c6}
0x19d16…19d56               Head {h00=0x003c, h01=0x0050, text=»PER580 ST A6,DWTOTQ,A4 QUEUE DWT, IF QUEUE WAS NOT EMPTY«, t00=0x0108, t01=0x00d8}
0x19d56…19d82               Head {h00=0x0028, h01=0x0050, text=»PER590 CM DWTOTQ,A6 SET END OF QUEUE«, t00=0x0108, t01=0x0118}
0x19d82…19d96               Head {h00=0x0010, h01=0x0050, text=»PER600 EQU *«, t00=0x0108, t01=0x0144}
0x19d96…19dc8               Head {h00=0x002e, h01=0x0050, text=» SC A2,DWTOCH,A6 STORE CHARACTER INTO DWT «, t00=0x0108, t01=0x0158}
0x19dc8…19de4               Head {h00=0x0018, h01=0x0050, text=» RB VUDISP DISPATCH «, t00=0x0108, t01=0x018a}
0x19de4…19dee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0016}
0x19dee…19dfc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x0020}
0x19dfc…19e06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x002e}
0x19e06…19e3a               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0109, t01=0x0038}
0x19e3a…19e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x006c}
0x19e44…19e72               Head {h00=0x002a, h01=0x0050, text=»* P E R I P H E R A L   S E C T I O N «, t00=0x0109, t01=0x0076}
0x19e72…19e9c               Head {h00=0x0026, h01=0x0050, text=»* L I N E   D R I V E R   P A R T «, t00=0x0109, t01=0x00a4}
0x19e9c…19ec8               Head {h00=0x0028, h01=0x0050, text=»* I N T E R R U P T   H A N D L E R «, t00=0x0109, t01=0x00ce}
0x19ec8…19ed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x00fa}
0x19ed2…19f06               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0109, t01=0x0104}
0x19f06…19f10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0138}
0x19f10…19f44               Head {h00=0x0030, h01=0x0050, text=»* FOR THE PERIPHERAL SECTION OF THE VCCU1/4 «, t00=0x0109, t01=0x0142}
0x19f44…19f82               Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER IS A LINE DRIVER ONLY, WHICH IS USED BY «, t00=0x0109, t01=0x0176}
0x19f82…19fae               Head {h00=0x0028, h01=0x0050, text=»* SEPARATE TERMINAL DEVICE DRIVERS. «, t00=0x010a, t01=0x0024}
0x19fae…19fe6               Head {h00=0x0034, h01=0x0050, text=»* BELOW APPEARS THE INTERRUPT HANDLING ROUTINES,«, t00=0x010a, t01=0x0050}
0x19fe6…1a01c               Head {h00=0x0032, h01=0x0050, text=»* USING THE PERIPHERAL SECTION OF THE VCCU1/4.«, t00=0x010a, t01=0x0088}
0x1a01c…1a044               Head {h00=0x0024, h01=0x0050, text=»* THE ROUTINES ARE OF TWO KINDS:«, t00=0x010a, t01=0x00be}
0x1a044…1a04e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x00e6}
0x1a04e…1a07c               Head {h00=0x002a, h01=0x0050, text=»* 1. INTERRUPT HANDLER FOR DATA INPUT.«, t00=0x010a, t01=0x00f0}
0x1a07c…1a0c8               Head {h00=0x0048, h01=0x0050, text=»*    THEESE INTERRUPT ROUTINES ARE ENTERED VIA THE INTERRUPT VECTOR.«, t00=0x010a, t01=0x011e}
0x1a0c8…1a0d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x016a}
0x1a0d2…1a102               Head {h00=0x002c, h01=0x0050, text=»* 2. INTERRUPT HANDLER FOR DATA OUTPUT. «, t00=0x010a, t01=0x0174}
0x1a102…1a150               Head {h00=0x004a, h01=0x0050, text=»*    THIS INTERRUPT ROUTINE IS ENTERED FROM THE MONITOR CLOCK ROUTINE,«, t00=0x010b, t01=0x0014}
0x1a150…1a172               Head {h00=0x001e, h01=0x0050, text=»*    AT SOFTWARE TIME-OUT.«, t00=0x010b, t01=0x0062}
0x1a172…1a17c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x0084}
0x1a17c…1a18a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x008e}
0x1a18a…1a194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x009c}
0x1a194…1a19e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x00a6}
0x1a19e…1a1da               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x010b, t01=0x00b0}
0x1a1da…1a208               Head {h00=0x002a, h01=0x0050, text=»*   THIS IS THE INTERRUPT HANDLER FOR «, t00=0x010b, t01=0x00ec}
0x1a208…1a244               Head {h00=0x0038, h01=0x0050, text=»*   DATA INPUT TO THE PERIPHERAL SECTION OF VCCU1/4.«, t00=0x010b, t01=0x011a}
0x1a244…1a284               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x010b, t01=0x0156}
0x1a284…1a28e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x0008}
0x1a28e…1a298               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x0012}
0x1a298…1a2a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x001c}
0x1a2a2…1a2b8               Head {h00=0x0012, h01=0x0050, text=»*    ENTERED: «, t00=0x010c, t01=0x0026}
0x1a2b8…1a2e0               Head {h00=0x0024, h01=0x0050, text=»*     VIA THE INTERRUPT VECTOR. «, t00=0x010c, t01=0x003c}
0x1a2e0…1a2ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x0064}
0x1a2ea…1a2f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x006e}
0x1a2f4…1a326               Head {h00=0x002e, h01=0x0050, text=»*    FUNCTIONS FOR EACH INTERRUPT ROUTINE:«, t00=0x010c, t01=0x0078}
0x1a326…1a330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x00aa}
0x1a330…1a362               Head {h00=0x002e, h01=0x0050, text=»* 1. SAVE START ADDRESS OF ENTERED ROUTINE«, t00=0x010c, t01=0x00b4}
0x1a362…1a384               Head {h00=0x001e, h01=0x0050, text=»* 2. SAVE A1-A8 ONTO STACK«, t00=0x010c, t01=0x00e6}
0x1a384…1a3be               Head {h00=0x0036, h01=0x0050, text=»* 3. GET CWT-ADDRESS FOR ENTERED INTERRUPT ROUTINE«, t00=0x010c, t01=0x0108}
0x1a3be…1a3f0               Head {h00=0x002e, h01=0x0050, text=»* 4. GET THE DATA INPUT FROM CHANNEL UNIT «, t00=0x010c, t01=0x0142}
0x1a3f0…1a418               Head {h00=0x0024, h01=0x0050, text=»* 5. COMPUTE DWT FROM DATA INPUT«, t00=0x010c, t01=0x0174}
0x1a418…1a43e               Head {h00=0x0022, h01=0x0050, text=»*  IF NO DWT EXISTS THEN EXIT,«, t00=0x010d, t01=0x000c}
0x1a43e…1a44e               Head {h00=0x000c, h01=0x0050, text=»*  ELSE:«, t00=0x010d, t01=0x0032}
0x1a44e…1a478               Head {h00=0x0026, h01=0x0050, text=»* 6. TEST IF STATUS- OR DATA-INPUT«, t00=0x010d, t01=0x0042}
0x1a478…1a4c8               Head {h00=0x004c, h01=0x0050, text=»*    IF STATUS-INPUT: INCREMENT ERROR ACKUMULATOR IN CWT AND THEN EXIT, «, t00=0x010d, t01=0x006c}
0x1a4c8…1a4da               Head {h00=0x000e, h01=0x0050, text=»*    ELSE «, t00=0x010d, t01=0x00bc}
0x1a4da…1a50c               Head {h00=0x002e, h01=0x0050, text=»* 7. TEST IF DWT BELONGS TO INPUT-DEVICE. «, t00=0x010d, t01=0x00ce}
0x1a50c…1a530               Head {h00=0x0020, h01=0x0050, text=»*         IF NOT THEN EXIT, «, t00=0x010d, t01=0x0100}
0x1a530…1a548               Head {h00=0x0014, h01=0x0050, text=»*         ELSE: «, t00=0x010d, t01=0x0124}
0x1a548…1a578               Head {h00=0x002c, h01=0x0050, text=»* 8.      TEST IF INPUT REQUESTED OR NOT«, t00=0x010d, t01=0x013c}
0x1a578…1a5c8               Head {h00=0x004c, h01=0x0050, text=»*    IF INPUT REQUESTED: RETURN TO DEVICE DRIVER VIA NETWORK DISTRIBUTOR«, t00=0x010d, t01=0x016c}
0x1a5c8…1a5e0               Head {h00=0x0014, h01=0x0050, text=»*         ELSE: «, t00=0x010e, t01=0x002c}
0x1a5e0…1a628               Head {h00=0x0044, h01=0x0050, text=»* 9.      TEST IF ANY INTERRUPT ROUTINE DEFINED FOR THIS DEVICE «, t00=0x010e, t01=0x0044}
0x1a628…1a650               Head {h00=0x0024, h01=0x0050, text=»*              IF NOT THEN EXIT «, t00=0x010e, t01=0x008c}
0x1a650…1a66c               Head {h00=0x0018, h01=0x0050, text=»*             ELSE: «, t00=0x010e, t01=0x00b4}
0x1a66c…1a6a4               Head {h00=0x0034, h01=0x0050, text=»*     ENTER DEVICE DEPENDANT INTERRUPT HANDLER. «, t00=0x010e, t01=0x00d0}
0x1a6a4…1a6ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0108}
0x1a6ae…1a6b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0112}
0x1a6b8…1a6c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x011c}
0x1a6c2…1a6d4               Head {h00=0x000e, h01=0x0050, text=»* ON EXIT:«, t00=0x010e, t01=0x0126}
0x1a6d4…1a708               Head {h00=0x0030, h01=0x0050, text=»*         A2 = INPUT CHARACTER IN RIGHT BYTE«, t00=0x010e, t01=0x0138}
0x1a708…1a72a               Head {h00=0x001e, h01=0x0050, text=»*         A6 = DWT ADDRESS«, t00=0x010e, t01=0x016c}
0x1a72a…1a734               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x018e}
0x1a734…1a770               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x010f, t01=0x0008}
0x1a770…1a77a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x0044}
0x1a77a…1a784               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x004e}
0x1a784…1a7c2               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 1 «, t00=0x010f, t01=0x0058}
0x1a7c2…1a7cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x0096}
0x1a7cc…1a7e0               Head {h00=0x0010, h01=0x0050, text=»IHPVU1 EQU *«, t00=0x010f, t01=0x00a0}
0x1a7e0…1a7f6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=1 «, t00=0x010f, t01=0x00b4}
0x1a7f6…1a80a               Head {h00=0x0010, h01=0x0050, text=»IHPVU2 EQU *«, t00=0x010f, t01=0x00ca}
0x1a80a…1a81e               Head {h00=0x0010, h01=0x0050, text=»IHPVU3 EQU *«, t00=0x010f, t01=0x00de}
0x1a81e…1a832               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x010f, t01=0x00f2}
0x1a832…1a846               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x010f, t01=0x0106}
0x1a846…1a85a               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x010f, t01=0x011a}
0x1a85a…1a86e               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x010f, t01=0x012e}
0x1a86e…1a882               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x010f, t01=0x0142}
0x1a882…1a88e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010f, t01=0x0156}
0x1a88e…1a8b6               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x010f, t01=0x0162}
0x1a8b6…1a8cc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x010f, t01=0x018a}
0x1a8cc…1a8f6               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0110, t01=0x0010}
0x1a8f6…1a902               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0110, t01=0x003a}
0x1a902…1a90c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0046}
0x1a90c…1a922               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0110, t01=0x0050}
0x1a922…1a948               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0110, t01=0x0066}
0x1a948…1a954               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0110, t01=0x008c}
0x1a954…1a95e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0098}
0x1a95e…1a996               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU1 SET CWT-ADDRESS FOR VCCU1/4 NO 1«, t00=0x0110, t01=0x00a2}
0x1a996…1a9ac               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=1 «, t00=0x0110, t01=0x00da}
0x1a9ac…1a9da               Head {h00=0x002a, h01=0x0050, text=» EX CWTINR,A5 EXECUTE INR INSTRUCTION «, t00=0x0110, t01=0x00f0}
0x1a9da…1a9e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x011e}
0x1a9e4…1a9f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0110, t01=0x0128}
0x1a9f0…1aa06               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0110, t01=0x0134}
0x1aa06…1aa18               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0110, t01=0x014a}
0x1aa18…1aa22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x015c}
0x1aa22…1aa60               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 2 «, t00=0x0110, t01=0x0166}
0x1aa60…1aa6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0014}
0x1aa6a…1aa7e               Head {h00=0x0010, h01=0x0050, text=»IHPVU2 EQU *«, t00=0x0111, t01=0x001e}
0x1aa7e…1aa8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x0032}
0x1aa8a…1aaa0               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x0111, t01=0x003e}
0x1aaa0…1aab4               Head {h00=0x0010, h01=0x0050, text=»IHPVU3 EQU *«, t00=0x0111, t01=0x0054}
0x1aab4…1aac8               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x0111, t01=0x0068}
0x1aac8…1aadc               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0111, t01=0x007c}
0x1aadc…1aaf0               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0111, t01=0x0090}
0x1aaf0…1ab04               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0111, t01=0x00a4}
0x1ab04…1ab18               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0111, t01=0x00b8}
0x1ab18…1ab24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x00cc}
0x1ab24…1ab3a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0111, t01=0x00d8}
0x1ab3a…1ab62               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0111, t01=0x00ee}
0x1ab62…1ab78               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0111, t01=0x0116}
0x1ab78…1aba2               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0111, t01=0x012c}
0x1aba2…1abae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x0156}
0x1abae…1abb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0162}
0x1abb8…1abce               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0111, t01=0x016c}
0x1abce…1abe4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0111, t01=0x0182}
0x1abe4…1ac0a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0112, t01=0x0008}
0x1ac0a…1ac16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x002e}
0x1ac16…1ac20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x003a}
0x1ac20…1ac36               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0112, t01=0x0044}
0x1ac36…1ac6e               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU2 SET CWT-ADDRESS FOR VCCU1/4 NO 2«, t00=0x0112, t01=0x005a}
0x1ac6e…1ac7a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x0092}
0x1ac7a…1ac90               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=2 «, t00=0x0112, t01=0x009e}
0x1ac90…1acc4               Head {h00=0x0030, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR-INSTRUCTION «, t00=0x0112, t01=0x00b4}
0x1acc4…1acce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x00e8}
0x1acce…1acda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x00f2}
0x1acda…1ace4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x00fe}
0x1ace4…1acfa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0112, t01=0x0108}
0x1acfa…1ad10               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0112, t01=0x011e}
0x1ad10…1ad22               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0112, t01=0x0134}
0x1ad22…1ad2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0146}
0x1ad2c…1ad6a               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 3 «, t00=0x0112, t01=0x0150}
0x1ad6a…1ad74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x018e}
0x1ad74…1ad88               Head {h00=0x0010, h01=0x0050, text=»IHPVU3 EQU *«, t00=0x0113, t01=0x0008}
0x1ad88…1ad94               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x001c}
0x1ad94…1adaa               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x0113, t01=0x0028}
0x1adaa…1adbe               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x0113, t01=0x003e}
0x1adbe…1add2               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0113, t01=0x0052}
0x1add2…1ade6               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0113, t01=0x0066}
0x1ade6…1adfa               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0113, t01=0x007a}
0x1adfa…1ae0e               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0113, t01=0x008e}
0x1ae0e…1ae1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x00a2}
0x1ae1a…1ae30               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0113, t01=0x00ae}
0x1ae30…1ae46               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0113, t01=0x00c4}
0x1ae46…1ae6e               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0113, t01=0x00da}
0x1ae6e…1ae84               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0113, t01=0x0102}
0x1ae84…1aeae               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0113, t01=0x0118}
0x1aeae…1aeba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x0142}
0x1aeba…1aec4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x014e}
0x1aec4…1aeda               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0113, t01=0x0158}
0x1aeda…1aef0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0113, t01=0x016e}
0x1aef0…1af06               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0113, t01=0x0184}
0x1af06…1af2c               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0114, t01=0x000a}
0x1af2c…1af38               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0114, t01=0x0030}
0x1af38…1af42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x003c}
0x1af42…1af58               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0114, t01=0x0046}
0x1af58…1af6e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0114, t01=0x005c}
0x1af6e…1afa6               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU3 SET CWT-ADDRESS FOR VCCU1/4 NO 3«, t00=0x0114, t01=0x0072}
0x1afa6…1afb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0114, t01=0x00aa}
0x1afb2…1afc8               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=3 «, t00=0x0114, t01=0x00b6}
0x1afc8…1aff0               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x0114, t01=0x00cc}
0x1aff0…1affa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x00f4}
0x1affa…1b006               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0114, t01=0x00fe}
0x1b006…1b01c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0114, t01=0x010a}
0x1b01c…1b032               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0114, t01=0x0120}
0x1b032…1b048               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0114, t01=0x0136}
0x1b048…1b05a               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0114, t01=0x014c}
0x1b05a…1b098               Head {h00=0x003a, h01=0x0050, text=»*   INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 4 «, t00=0x0114, t01=0x015e}
0x1b098…1b0a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x000c}
0x1b0a2…1b0b6               Head {h00=0x0010, h01=0x0050, text=»IHPVU4 EQU *«, t00=0x0115, t01=0x0016}
0x1b0b6…1b0c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x002a}
0x1b0c2…1b0d8               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x0115, t01=0x0036}
0x1b0d8…1b0ec               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0115, t01=0x004c}
0x1b0ec…1b100               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0115, t01=0x0060}
0x1b100…1b114               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0115, t01=0x0074}
0x1b114…1b128               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0115, t01=0x0088}
0x1b128…1b134               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x009c}
0x1b134…1b14a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0115, t01=0x00a8}
0x1b14a…1b160               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0115, t01=0x00be}
0x1b160…1b176               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0115, t01=0x00d4}
0x1b176…1b19e               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0115, t01=0x00ea}
0x1b19e…1b1b4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0115, t01=0x0112}
0x1b1b4…1b1de               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0115, t01=0x0128}
0x1b1de…1b1ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x0152}
0x1b1ea…1b1f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x015e}
0x1b1f4…1b20a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0115, t01=0x0168}
0x1b20a…1b220               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0115, t01=0x017e}
0x1b220…1b236 (278, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0116, t01=0x0004}
0x1b236…1b24c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0116, t01=0x001a}
0x1b24c…1b272               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0116, t01=0x0030}
0x1b272…1b27e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0116, t01=0x0056}
0x1b27e…1b288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0062}
0x1b288…1b29e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0116, t01=0x006c}
0x1b29e…1b2b4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0116, t01=0x0082}
0x1b2b4…1b2ca               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0116, t01=0x0098}
0x1b2ca…1b302               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU4 SET CWT-ADDRESS FOR VCCU1/4 NO 4«, t00=0x0116, t01=0x00ae}
0x1b302…1b30e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0116, t01=0x00e6}
0x1b30e…1b324               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=4 «, t00=0x0116, t01=0x00f2}
0x1b324…1b34c               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x0116, t01=0x0108}
0x1b34c…1b358               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0116, t01=0x0130}
0x1b358…1b36e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0116, t01=0x013c}
0x1b36e…1b384               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0116, t01=0x0152}
0x1b384…1b39a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0116, t01=0x0168}
0x1b39a…1b3b0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0116, t01=0x017e}
0x1b3b0…1b3c2 (279, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0117, t01=0x0004}
0x1b3c2…1b3cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0016}
0x1b3cc…1b408               Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OV VCCU1/4 NO 5 «, t00=0x0117, t01=0x0020}
0x1b408…1b412               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x005c}
0x1b412…1b426               Head {h00=0x0010, h01=0x0050, text=»IHPVU5 EQU *«, t00=0x0117, t01=0x0066}
0x1b426…1b432               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x007a}
0x1b432…1b448               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x0117, t01=0x0086}
0x1b448…1b45c               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0117, t01=0x009c}
0x1b45c…1b470               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0117, t01=0x00b0}
0x1b470…1b484               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0117, t01=0x00c4}
0x1b484…1b490               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x00d8}
0x1b490…1b4a6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0117, t01=0x00e4}
0x1b4a6…1b4bc               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0117, t01=0x00fa}
0x1b4bc…1b4d2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0117, t01=0x0110}
0x1b4d2…1b4e8               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0117, t01=0x0126}
0x1b4e8…1b510               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0117, t01=0x013c}
0x1b510…1b526               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0117, t01=0x0164}
0x1b526…1b552               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x0117, t01=0x017a}
0x1b552…1b55e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x0016}
0x1b55e…1b568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x0022}
0x1b568…1b57e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0118, t01=0x002c}
0x1b57e…1b594               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0118, t01=0x0042}
0x1b594…1b5aa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0118, t01=0x0058}
0x1b5aa…1b5c0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0118, t01=0x006e}
0x1b5c0…1b5d6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0118, t01=0x0084}
0x1b5d6…1b5fe               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x0118, t01=0x009a}
0x1b5fe…1b60a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x00c2}
0x1b60a…1b614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x00ce}
0x1b614…1b62a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0118, t01=0x00d8}
0x1b62a…1b640               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0118, t01=0x00ee}
0x1b640…1b656               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0118, t01=0x0104}
0x1b656…1b66c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0118, t01=0x011a}
0x1b66c…1b6a4               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU5 SET CWT-ADDRESS FOR VCCU1/4 NO 5«, t00=0x0118, t01=0x0130}
0x1b6a4…1b6b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x0168}
0x1b6b0…1b6c6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=5 «, t00=0x0118, t01=0x0174}
0x1b6c6…1b6ee               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x0118, t01=0x018a}
0x1b6ee…1b6fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x0022}
0x1b6fa…1b710               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0119, t01=0x002e}
0x1b710…1b726               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0119, t01=0x0044}
0x1b726…1b73c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x0119, t01=0x005a}
0x1b73c…1b752               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x0119, t01=0x0070}
0x1b752…1b768               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x0119, t01=0x0086}
0x1b768…1b77a               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x0119, t01=0x009c}
0x1b77a…1b784               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ae}
0x1b784…1b7c0               Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 6 «, t00=0x0119, t01=0x00b8}
0x1b7c0…1b7ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00f4}
0x1b7ca…1b7de               Head {h00=0x0010, h01=0x0050, text=»IHPVU6 EQU *«, t00=0x0119, t01=0x00fe}
0x1b7de…1b7ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x0112}
0x1b7ea…1b800               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x0119, t01=0x011e}
0x1b800…1b814               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x0119, t01=0x0134}
0x1b814…1b828               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x0119, t01=0x0148}
0x1b828…1b834               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x015c}
0x1b834…1b84a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x0119, t01=0x0168}
0x1b84a…1b860               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x0119, t01=0x017e}
0x1b860…1b876 (282, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011a, t01=0x0004}
0x1b876…1b88c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011a, t01=0x001a}
0x1b88c…1b8a2               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011a, t01=0x0030}
0x1b8a2…1b8ca               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x011a, t01=0x0046}
0x1b8ca…1b8e0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x011a, t01=0x006e}
0x1b8e0…1b90c               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x011a, t01=0x0084}
0x1b90c…1b918               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011a, t01=0x00b0}
0x1b918…1b922               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x00bc}
0x1b922…1b938               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011a, t01=0x00c6}
0x1b938…1b94e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011a, t01=0x00dc}
0x1b94e…1b964               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011a, t01=0x00f2}
0x1b964…1b97a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011a, t01=0x0108}
0x1b97a…1b990               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011a, t01=0x011e}
0x1b990…1b9a6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x011a, t01=0x0134}
0x1b9a6…1b9ce               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x011a, t01=0x014a}
0x1b9ce…1b9da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011a, t01=0x0172}
0x1b9da…1b9e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x017e}
0x1b9e4…1b9fa               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011a, t01=0x0188}
0x1b9fa…1ba10               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011b, t01=0x000e}
0x1ba10…1ba26               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011b, t01=0x0024}
0x1ba26…1ba3c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011b, t01=0x003a}
0x1ba3c…1ba52               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011b, t01=0x0050}
0x1ba52…1ba8a               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6«, t00=0x011b, t01=0x0066}
0x1ba8a…1ba96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x009e}
0x1ba96…1baac               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=6 «, t00=0x011b, t01=0x00aa}
0x1baac…1bad4               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x011b, t01=0x00c0}
0x1bad4…1bae0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x00e8}
0x1bae0…1baf6               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011b, t01=0x00f4}
0x1baf6…1bb0c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011b, t01=0x010a}
0x1bb0c…1bb22               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011b, t01=0x0120}
0x1bb22…1bb38               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011b, t01=0x0136}
0x1bb38…1bb4e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011b, t01=0x014c}
0x1bb4e…1bb64               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011b, t01=0x0162}
0x1bb64…1bb76               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x011b, t01=0x0178}
0x1bb76…1bb80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x018a}
0x1bb80…1bbbc (284, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 7 «, t00=0x011c, t01=0x0004}
0x1bbbc…1bbc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x0040}
0x1bbc6…1bbda               Head {h00=0x0010, h01=0x0050, text=»IHPVU7 EQU *«, t00=0x011c, t01=0x004a}
0x1bbda…1bbe6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x005e}
0x1bbe6…1bbfc               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x011c, t01=0x006a}
0x1bbfc…1bc10               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x011c, t01=0x0080}
0x1bc10…1bc1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x0094}
0x1bc1c…1bc32               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011c, t01=0x00a0}
0x1bc32…1bc48               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011c, t01=0x00b6}
0x1bc48…1bc5e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011c, t01=0x00cc}
0x1bc5e…1bc74               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011c, t01=0x00e2}
0x1bc74…1bc8a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011c, t01=0x00f8}
0x1bc8a…1bca0               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011c, t01=0x010e}
0x1bca0…1bcc8               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x011c, t01=0x0124}
0x1bcc8…1bcde               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x011c, t01=0x014c}
0x1bcde…1bd0a               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x011c, t01=0x0162}
0x1bd0a…1bd16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x018e}
0x1bd16…1bd20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x000a}
0x1bd20…1bd36               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011d, t01=0x0014}
0x1bd36…1bd4c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011d, t01=0x002a}
0x1bd4c…1bd62               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011d, t01=0x0040}
0x1bd62…1bd78               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011d, t01=0x0056}
0x1bd78…1bd8e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011d, t01=0x006c}
0x1bd8e…1bda4               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011d, t01=0x0082}
0x1bda4…1bdba               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x011d, t01=0x0098}
0x1bdba…1bde2               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x011d, t01=0x00ae}
0x1bde2…1bdee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x00d6}
0x1bdee…1bdf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00e2}
0x1bdf8…1be0e               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=1 «, t00=0x011d, t01=0x00ec}
0x1be0e…1be24               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=2 «, t00=0x011d, t01=0x0102}
0x1be24…1be3a               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=3 «, t00=0x011d, t01=0x0118}
0x1be3a…1be50               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=4 «, t00=0x011d, t01=0x012e}
0x1be50…1be66               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=5 «, t00=0x011d, t01=0x0144}
0x1be66…1be7c               Head {h00=0x0012, h01=0x0050, text=» IFF VUCHAN=6 «, t00=0x011d, t01=0x015a}
0x1be7c…1beb4               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU7 SET CWT-ADDRESS FOR VCCU1/4 NO 7«, t00=0x011d, t01=0x0170}
0x1beb4…1bec0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011e, t01=0x0018}
0x1bec0…1bed6               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=7 «, t00=0x011e, t01=0x0024}
0x1bed6…1befe               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x011e, t01=0x003a}
0x1befe…1bf0a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011e, t01=0x0062}
0x1bf0a…1bf20               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x011e, t01=0x006e}
0x1bf20…1bf32               Head {h00=0x000e, h01=0x0050, text=» RF IHP100«, t00=0x011e, t01=0x0084}
0x1bf32…1bf3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0096}
0x1bf3c…1bf78               Head {h00=0x0038, h01=0x0050, text=»* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 8 «, t00=0x011e, t01=0x00a0}
0x1bf78…1bf82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x00dc}
0x1bf82…1bf96               Head {h00=0x0010, h01=0x0050, text=»IHPVU8 EQU *«, t00=0x011e, t01=0x00e6}
0x1bf96…1bfbe               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x011e, t01=0x00fa}
0x1bfbe…1bfd4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x011e, t01=0x0122}
0x1bfd4…1c000               Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x011e, t01=0x0138}
0x1c000…1c00c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011e, t01=0x0164}
0x1c00c…1c016               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0170}
0x1c016…1c02c               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x011e, t01=0x017a}
0x1c02c…1c042               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x011e, t01=0x0190}
0x1c042…1c06a               Head {h00=0x0024, h01=0x0050, text=» MSR 8,A15 SAVE A1 - A8 ON STACK«, t00=0x011f, t01=0x0016}
0x1c06a…1c076               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011f, t01=0x003e}
0x1c076…1c080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x004a}
0x1c080…1c096               Head {h00=0x0012, h01=0x0050, text=» IFT VUCHAN=8 «, t00=0x011f, t01=0x0054}
0x1c096…1c0ce               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8«, t00=0x011f, t01=0x006a}
0x1c0ce…1c0f6               Head {h00=0x0024, h01=0x0050, text=»IHP100 EX CWTINR,A5 EXECUTE INR «, t00=0x011f, t01=0x00a2}
0x1c0f6…1c102               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011f, t01=0x00ca}
0x1c102…1c110               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011f, t01=0x00d6}
0x1c110…1c11a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x00e4}
0x1c11a…1c124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x00ee}
0x1c124…1c166               Head {h00=0x003e, h01=0x0050, text=»* DETERMINE FROM INPUT: TERMINAL NUMBER AND DEVICE ADDRESS«, t00=0x011f, t01=0x00f8}
0x1c166…1c188               Head {h00=0x001e, h01=0x0050, text=»* THEN COMPUTE DWT-ADDRESS«, t00=0x011f, t01=0x013a}
0x1c188…1c192               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x015c}
0x1c192…1c1ba               Head {h00=0x0024, h01=0x0050, text=» LDR A6,A2 GET INPUT-WORD (BIO) «, t00=0x011f, t01=0x0166}
0x1c1ba…1c1f2               Head {h00=0x0034, h01=0x0050, text=» ANKL A6,TERMNR GET TERMINAL NBR WITHIN CHANNEL «, t00=0x011f, t01=0x018e}
0x1c1f2…1c204               Head {h00=0x000e, h01=0x0050, text=» SRL A6,8 «, t00=0x0120, t01=0x0036}
0x1c204…1c226               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A2 GET INPUT WORD «, t00=0x0120, t01=0x0048}
0x1c226…1c25e               Head {h00=0x0034, h01=0x0050, text=» ANKL A7,DEVADR GET DEVICE ADDR WITHIN TERMINAL «, t00=0x0120, t01=0x006a}
0x1c25e…1c272               Head {h00=0x0010, h01=0x0050, text=» SRL A7,/A  «, t00=0x0120, t01=0x00a2}
0x1c272…1c284               Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0120, t01=0x00b6}
0x1c284…1c2bc               Head {h00=0x0034, h01=0x0050, text=» LD* A1,CWTITA,A5 GET ADDR TO WORKSTATION TABLE «, t00=0x0120, t01=0x00c8}
0x1c2bc…1c2ea               Head {h00=0x002a, h01=0x0050, text=» CF A15,NDGEDW GET DWT ADDRESS INTO A6«, t00=0x0120, t01=0x0100}
0x1c2ea…1c310               Head {h00=0x0022, h01=0x0050, text=» ADK A6,0 DWT ADDRESS FOUND ? «, t00=0x0120, t01=0x012e}
0x1c310…1c334               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) VUDISP NO. THEN EXIT«, t00=0x0120, t01=0x0154}
0x1c334…1c33e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0178}
0x1c33e…1c366               Head {h00=0x0024, h01=0x0050, text=»* TEST IF STATUS- OR DATA-INPUT «, t00=0x0120, t01=0x0182}
0x1c366…1c370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x001a}
0x1c370…1c392               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE INPUT-WORD«, t00=0x0121, t01=0x0024}
0x1c392…1c3ba               Head {h00=0x0024, h01=0x0050, text=» ANK A2,INDATA CLEAN INPUT-WORD «, t00=0x0121, t01=0x0046}
0x1c3ba…1c3e0               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,INSTAT STATUS INPUT ?«, t00=0x0121, t01=0x006e}
0x1c3e0…1c3f8               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IHP150 NO«, t00=0x0121, t01=0x0094}
0x1c3f8…1c402               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00ac}
0x1c402…1c41a               Head {h00=0x0014, h01=0x0050, text=»* STATUS  INPUT «, t00=0x0121, t01=0x00b6}
0x1c41a…1c424               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00ce}
0x1c424…1c450               Head {h00=0x0028, h01=0x0050, text=» IM CWTACK,A5 INCR ERROR ACKUMULATOR«, t00=0x0121, t01=0x00d8}
0x1c450…1c468               Head {h00=0x0014, h01=0x0050, text=» ABL VUDISP EXIT«, t00=0x0121, t01=0x0104}
0x1c468…1c472               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x011c}
0x1c472…1c486               Head {h00=0x0010, h01=0x0050, text=»* DATA INPUT«, t00=0x0121, t01=0x0126}
0x1c486…1c490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x013a}
0x1c490…1c4a4               Head {h00=0x0010, h01=0x0050, text=»IHP150 EQU *«, t00=0x0121, t01=0x0144}
0x1c4a4…1c4ca               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTST,A6 DEVICE STATUS «, t00=0x0121, t01=0x0158}
0x1c4ca…1c4fc               Head {h00=0x002e, h01=0x0050, text=» ANK A7,/60 MASK INPUT DEV. AND INPUT REQ.«, t00=0x0121, t01=0x017e}
0x1c4fc…1c510               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/40 «, t00=0x0122, t01=0x0020}
0x1c510…1c548               Head {h00=0x0034, h01=0x0050, text=» RF(Z) IHP160 INPUT DEV. BUT NO INPUT REQUESTED «, t00=0x0122, t01=0x0034}
0x1c548…1c57a               Head {h00=0x002e, h01=0x0050, text=» ABL(N) VUDISP NO INPUT-DEVICE. THEN EXIT.«, t00=0x0122, t01=0x006c}
0x1c57a…1c584               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x009e}
0x1c584…1c5ae               Head {h00=0x0026, h01=0x0050, text=»* INPUT DEV. WITH INPUT REQUESTED «, t00=0x0122, t01=0x00a8}
0x1c5ae…1c5b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x00d2}
0x1c5b8…1c5ce               Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/FFDF«, t00=0x0122, t01=0x00dc}
0x1c5ce…1c604               Head {h00=0x0032, h01=0x0050, text=» ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' «, t00=0x0122, t01=0x00f2}
0x1c604…1c63a               Head {h00=0x0032, h01=0x0050, text=» LDK A1,0 RESET INDICATOR OF MORE THAN 1 CHAR «, t00=0x0122, t01=0x0128}
0x1c63a…1c664               Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x0122, t01=0x015e}
0x1c664…1c66e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0188}
0x1c66e…1c678 (291, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0004}
0x1c678…1c6ac               Head {h00=0x0030, h01=0x0050, text=»*   GO TO INTERRUPT ROUTINE OF DEVICE DRIVER«, t00=0x0123, t01=0x000e}
0x1c6ac…1c6b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0042}
0x1c6b6…1c6ca               Head {h00=0x0010, h01=0x0050, text=»IHP160 EQU *«, t00=0x0123, t01=0x004c}
0x1c6ca…1c6f0               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS BLOCK«, t00=0x0123, t01=0x0060}
0x1c6f0…1c722               Head {h00=0x002e, h01=0x0050, text=» LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? «, t00=0x0123, t01=0x0086}
0x1c722…1c74c               Head {h00=0x0026, h01=0x0050, text=» ABL(Z) VUDISP NO, SKIP CHARACTER «, t00=0x0123, t01=0x00b8}
0x1c74c…1c76a               Head {h00=0x001a, h01=0x0050, text=» LDR A5,A6 DWT ADDRESS«, t00=0x0123, t01=0x00e2}
0x1c76a…1c78c               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x0123, t01=0x0100}
0x1c78c…1c7ba               Head {h00=0x002a, h01=0x0050, text=» ABR A1 DEVICE DRIVER INTERRUPT ENTRY «, t00=0x0123, t01=0x0122}
0x1c7ba…1c7c8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0123, t01=0x0150}
0x1c7c8…1c7d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x015e}
0x1c7d2…1c804               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0123, t01=0x0168}
0x1c804…1c832               Head {h00=0x002a, h01=0x0050, text=»*   THIS IS THE INTERRUPT HANDLER FOR «, t00=0x0124, t01=0x000a}
0x1c832…1c874               Head {h00=0x003e, h01=0x0050, text=»*   DATA OUTPUT TO THE PERIPHERAL SECTION OF THE VCCU1/4. «, t00=0x0124, t01=0x0038}
0x1c874…1c8b2               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0124, t01=0x007a}
0x1c8b2…1c8bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00b8}
0x1c8bc…1c8c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00c2}
0x1c8c6…1c8d8               Head {h00=0x000e, h01=0x0050, text=»* ENTERED:«, t00=0x0124, t01=0x00cc}
0x1c8d8…1c916               Head {h00=0x003a, h01=0x0050, text=»*              VIA THE MONITOR CLOCK TIME-OUT ROUTINE.«, t00=0x0124, t01=0x00de}
0x1c916…1c920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x011c}
0x1c920…1c92a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x0126}
0x1c92a…1c942               Head {h00=0x0014, h01=0x0050, text=»*    FUNCTIONS: «, t00=0x0124, t01=0x0130}
0x1c942…1c94c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x0148}
0x1c94c…1c99c               Head {h00=0x004c, h01=0x0050, text=»* 1. GET FIRST QUEUED DWT FOR PERIPHERAL SECTION OUTPUT PART OF THIS CWT«, t00=0x0124, t01=0x0152}
0x1c99c…1c9be               Head {h00=0x001e, h01=0x0050, text=»*    IF QUEUE EMPTY THEN: «, t00=0x0125, t01=0x0012}
0x1c9be…1c9f4               Head {h00=0x0032, h01=0x0050, text=»* 2. RESET OUTPUT QUEUE TIMER POINTER IN CWT, «, t00=0x0125, t01=0x0034}
0x1c9f4…1ca16               Head {h00=0x001e, h01=0x0050, text=»*            AND DISPATCH.«, t00=0x0125, t01=0x006a}
0x1ca16…1ca34               Head {h00=0x001a, h01=0x0050, text=»*                ELSE:«, t00=0x0125, t01=0x008c}
0x1ca34…1ca84               Head {h00=0x004c, h01=0x0050, text=»* 3.             GET,FROM THAT FIRST QUEUED DWT, THE CHAR TO BE OUTPUT, «, t00=0x0125, t01=0x00aa}
0x1ca84…1cad4               Head {h00=0x004c, h01=0x0050, text=»*                REMOVE THE DWT FROM CWT PERIPHERAL SECTION OUTPUT QUEUE«, t00=0x0125, t01=0x00fa}
0x1cad4…1cb0e               Head {h00=0x0036, h01=0x0050, text=»*               IF OUTPUT QUEUE IS STILL NOT EMPTY«, t00=0x0125, t01=0x014a}
0x1cb0e…1cb38               Head {h00=0x0026, h01=0x0050, text=»*             THEN:  RESTART TIMER«, t00=0x0125, t01=0x0184}
0x1cb38…1cb56               Head {h00=0x001a, h01=0x0050, text=»*               ELSE: «, t00=0x0126, t01=0x001e}
0x1cb56…1cb62               Head {h00=0x0008, h01=0x0050, text=»* 4.«, t00=0x0126, t01=0x003c}
0x1cb62…1cba4               Head {h00=0x003e, h01=0x0050, text=»*                 RESET OUTPUT QUEUE TIMER POINTER IN CWT.«, t00=0x0126, t01=0x0048}
0x1cba4…1cbca               Head {h00=0x0022, h01=0x0050, text=»* 5.      GO OUTPUT CHARACTER.«, t00=0x0126, t01=0x008a}
0x1cbca…1cbd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00b0}
0x1cbd4…1cbde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00ba}
0x1cbde…1cbf4               Head {h00=0x0012, h01=0x0050, text=»*   ON ENTRY: «, t00=0x0126, t01=0x00c4}
0x1cbf4…1cc24               Head {h00=0x002c, h01=0x0050, text=»*  A1 = TIME-OUT PARAMETER (CWT-ADDRESS)«, t00=0x0126, t01=0x00da}
0x1cc24…1cc2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x010a}
0x1cc2e…1cc44               Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x0126, t01=0x0114}
0x1cc44…1cc6a               Head {h00=0x0022, h01=0x0050, text=»* A2 = CHARACTER TO BE OUTPUT «, t00=0x0126, t01=0x012a}
0x1cc6a…1cc84               Head {h00=0x0016, h01=0x0050, text=»* A5 = CWT ADDRESS«, t00=0x0126, t01=0x0150}
0x1cc84…1cc9e               Head {h00=0x0016, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0126, t01=0x016a}
0x1cc9e…1cca8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0184}
0x1cca8…1ccde               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0126, t01=0x018e}
0x1ccde…1cce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0034}
0x1cce8…1ccfc               Head {h00=0x0010, h01=0x0050, text=»TIMOUT EQU *«, t00=0x0127, t01=0x003e}
0x1ccfc…1cd22               Head {h00=0x0022, h01=0x0050, text=» LDR A5,A1 CWT-ADDRESS INTO A5«, t00=0x0127, t01=0x0052}
0x1cd22…1cd2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0078}
0x1cd2c…1cd6c               Head {h00=0x003c, h01=0x0050, text=»*    CHECK PERIPHERAL SECTION  OUTPUT QUEUE FOR THIS CWT«, t00=0x0127, t01=0x0082}
0x1cd6c…1cd76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x00c2}
0x1cd76…1cdac               Head {h00=0x0032, h01=0x0050, text=» LD A6,CWTPQ,A5 GET NEXT DWT FROM OUTPUT QUEUE«, t00=0x0127, t01=0x00cc}
0x1cdac…1cdd2               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TIM200 QUEUE NOT EMPTY«, t00=0x0127, t01=0x0102}
0x1cdd2…1cddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0128}
0x1cddc…1ce1e               Head {h00=0x003e, h01=0x0050, text=»* PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY AT THE TIMEOUT!«, t00=0x0127, t01=0x0132}
0x1ce1e…1ce28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0174}
0x1ce28…1ce5a               Head {h00=0x002e, h01=0x0050, text=» CM CWTTP,A5 RESET POINTER TO TIMER BLOCK «, t00=0x0127, t01=0x017e}
0x1ce5a…1ce76               Head {h00=0x0018, h01=0x0050, text=» ABL VUDISP DISPATCH«, t00=0x0128, t01=0x0020}
0x1ce76…1ce80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x003c}
0x1ce80…1cec6               Head {h00=0x0042, h01=0x0050, text=»* PERIPHERAL SECTION OUTPUT QUEUE IS NOT EMPTY AT THE TIMEOUT.«, t00=0x0128, t01=0x0046}
0x1cec6…1cefe               Head {h00=0x0034, h01=0x0050, text=»* GET QUEUED DWT AND TEST IF QUEUE IS EMPTY NOW.«, t00=0x0128, t01=0x008c}
0x1cefe…1cf08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00c4}
0x1cf08…1cf1c               Head {h00=0x0010, h01=0x0050, text=»TIM200 EQU *«, t00=0x0128, t01=0x00ce}
0x1cf1c…1cf44               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOTQ,A6 GET QUEUE LINK «, t00=0x0128, t01=0x00e2}
0x1cf44…1cf6e               Head {h00=0x0026, h01=0x0050, text=» ST A3,CWTPQ,A5 STORE IT INTO CWT «, t00=0x0128, t01=0x010a}
0x1cf6e…1cf96               Head {h00=0x0024, h01=0x0050, text=» RF(Z) TIM210 NOW QUEUE IS EMPTY«, t00=0x0128, t01=0x0134}
0x1cf96…1cfa0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x015c}
0x1cfa0…1cfd0               Head {h00=0x002c, h01=0x0050, text=»* QUEUE STILL NOT EMPTY: RESTART TIMER. «, t00=0x0128, t01=0x0166}
0x1cfd0…1cfda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0008}
0x1cfda…1d000               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,-QUETIM TIMEOUT VALUE«, t00=0x0129, t01=0x0012}
0x1d000…1d02a               Head {h00=0x0026, h01=0x0050, text=» ST* A3,CWTTP,A5 INTO TIMER BLOCK «, t00=0x0129, t01=0x0038}
0x1d02a…1d054               Head {h00=0x0026, h01=0x0050, text=» RF TIM220 GO OUTPUT ONE CHARACTER«, t00=0x0129, t01=0x0062}
0x1d054…1d05e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x008c}
0x1d05e…1d07a               Head {h00=0x0018, h01=0x0050, text=»* NOW QUEUE IS EMPTY«, t00=0x0129, t01=0x0096}
0x1d07a…1d084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x00b2}
0x1d084…1d098               Head {h00=0x0010, h01=0x0050, text=»TIM210 EQU *«, t00=0x0129, t01=0x00bc}
0x1d098…1d0ca               Head {h00=0x002e, h01=0x0050, text=» CM CWTTP,A5 RESET POINTER TO TIMER BLOCK «, t00=0x0129, t01=0x00d0}
0x1d0ca…1d0d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0102}
0x1d0d4…1d0f8               Head {h00=0x0020, h01=0x0050, text=»* GET AND SEND ONE CHARACTER«, t00=0x0129, t01=0x010c}
0x1d0f8…1d102               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0130}
0x1d102…1d116               Head {h00=0x0010, h01=0x0050, text=»TIM220 EQU *«, t00=0x0129, t01=0x013a}
0x1d116…1d146               Head {h00=0x002c, h01=0x0050, text=» LC A2,DWTOCH,A6 GET CHARACTER FROM DWT «, t00=0x0129, t01=0x014e}
0x1d146…1d16c               Head {h00=0x0022, h01=0x0050, text=» ABL PER500 GO SEND CHARACTER «, t00=0x0129, t01=0x017e}
0x1d16c…1d17a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012a, t01=0x0014}
0x1d17a…1d184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0022}
0x1d184…1d1cc               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x012a, t01=0x002c}
0x1d1cc…1d1d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0074}
0x1d1d6…1d218               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=0x012a, t01=0x007e}
0x1d218…1d234               Head {h00=0x0018, h01=0x0050, text=»* C O M M O N   T O «, t00=0x012a, t01=0x00c0}
0x1d234…1d27c               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=0x012a, t01=0x00dc}
0x1d27c…1d286               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0124}
0x1d286…1d2d0               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x012a, t01=0x012e}
0x1d2d0…1d2da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0178}
0x1d2da…1d2ee               Head {h00=0x0010, h01=0x0050, text=»*   V U O N «, t00=0x012a, t01=0x0182}
0x1d2ee…1d2f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0008}
0x1d2f8…1d33c               Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINE TO RESTART THE VIDEO CHANNEL UNITS AT POWER ON «, t00=0x012b, t01=0x0012}
0x1d33c…1d378               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x012b, t01=0x0056}
0x1d378…1d382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0092}
0x1d382…1d38c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x009c}
0x1d38c…1d3a8               Head {h00=0x0018, h01=0x0050, text=»* CALL: CF A15,VUON «, t00=0x012b, t01=0x00a6}
0x1d3a8…1d3b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x00c2}
0x1d3b2…1d3bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x00cc}
0x1d3bc…1d3d8               Head {h00=0x0018, h01=0x0050, text=»* USED BY: 'PFINIT' «, t00=0x012b, t01=0x00d6}
0x1d3d8…1d3e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x00f2}
0x1d3e2…1d3f6               Head {h00=0x0010, h01=0x0050, text=»* FUNCTIONS:«, t00=0x012b, t01=0x00fc}
0x1d3f6…1d400               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0110}
0x1d400…1d434               Head {h00=0x0030, h01=0x0050, text=»* 1. SWITCH TO LEVEL 8, RUN-MODE, INH-MODE. «, t00=0x012b, t01=0x011a}
0x1d434…1d472               Head {h00=0x003a, h01=0x0050, text=»* 2. TEST IF ALL CHANNELS IN SYSTEM HAVE BEEN TREATED.«, t00=0x012b, t01=0x014e}
0x1d472…1d4b8               Head {h00=0x0042, h01=0x0050, text=»*    IF SO THEN ENABLE INTERRUPTS AND RETURN FROM SUBROUTINE, «, t00=0x012b, t01=0x018c}
0x1d4b8…1d4ca               Head {h00=0x000e, h01=0x0050, text=»*    ELSE:«, t00=0x012c, t01=0x0042}
0x1d4ca…1d4f0               Head {h00=0x0022, h01=0x0050, text=»* 3. GET CWT FOR NEXT CHANNEL.«, t00=0x012c, t01=0x0054}
0x1d4f0…1d522               Head {h00=0x002e, h01=0x0050, text=»*   IF NO CWT DEFINED THEN CONTINUE IN 2, «, t00=0x012c, t01=0x007a}
0x1d522…1d534               Head {h00=0x000e, h01=0x0050, text=»*   ELSE: «, t00=0x012c, t01=0x00ac}
0x1d534…1d572               Head {h00=0x003a, h01=0x0050, text=»* 4. CIO START INPUT ON PERIPHERAL SECTION OF CHANNEL «, t00=0x012c, t01=0x00be}
0x1d572…1d5b8               Head {h00=0x0042, h01=0x0050, text=»* 5. RESET DATA AREAS USED BY SCREEN AND PERIPHERAL SECTIONS, «, t00=0x012c, t01=0x00fc}
0x1d5b8…1d5d6               Head {h00=0x001a, h01=0x0050, text=»*    LINE DRIVER PART.«, t00=0x012c, t01=0x0142}
0x1d5d6…1d604               Head {h00=0x002a, h01=0x0050, text=»* 6. FOR EACH TERMINAL ON THE CHANNEL «, t00=0x012c, t01=0x0160}
0x1d604…1d63c               Head {h00=0x0034, h01=0x0050, text=»*         CALL DEVICE DEPENDANT RECOVERY ROUTINE«, t00=0x012c, t01=0x018e}
0x1d63c…1d676               Head {h00=0x0036, h01=0x0050, text=»*                          VIA NETWORK DISTRIBUTOR«, t00=0x012d, t01=0x0036}
0x1d676…1d692               Head {h00=0x0018, h01=0x0050, text=»* 7. CONTINUE IN 2. «, t00=0x012d, t01=0x0070}
0x1d692…1d69c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x008c}
0x1d69c…1d6dc               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x012d, t01=0x0096}
0x1d6dc…1d6e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00d6}
0x1d6e6…1d6f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00e0}
0x1d6f0…1d738               Head {h00=0x0044, h01=0x0050, text=»* SWITCH TO LEVEL 8 (LOWER THAN LEVEL OF ANY VCCU1/4 ON ANY CPU,«, t00=0x012d, t01=0x00ea}
0x1d738…1d76a               Head {h00=0x002e, h01=0x0050, text=»*  HIGHER THAN LEVEL OF POWER FAIL OR DC) «, t00=0x012d, t01=0x0132}
0x1d76a…1d774               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0164}
0x1d774…1d786               Head {h00=0x000e, h01=0x0050, text=»VUON EQU *«, t00=0x012d, t01=0x016e}
0x1d786…1d7b8               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,VUON05 GET LEVEL 8 START ADDRESS «, t00=0x012d, t01=0x0180}
0x1d7b8…1d7e0               Head {h00=0x0024, h01=0x0050, text=» STR A2,A15 STORE ONTO A15-STACK«, t00=0x012e, t01=0x0022}
0x1d7e0…1d804               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PONPSW GET NEW PSW «, t00=0x012e, t01=0x004a}
0x1d804…1d82c               Head {h00=0x0024, h01=0x0050, text=» STR A2,A15 STORE ONTO A15-STACK«, t00=0x012e, t01=0x006e}
0x1d82c…1d84a               Head {h00=0x001a, h01=0x0050, text=» RTN A15 ENTER LEVEL 8«, t00=0x012e, t01=0x0096}
0x1d84a…1d85e               Head {h00=0x0010, h01=0x0050, text=»VUON05 EQU *«, t00=0x012e, t01=0x00b4}
0x1d85e…1d874               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x012e, t01=0x00c8}
0x1d874…1d880               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x012e, t01=0x00de}
0x1d880…1d88c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012e, t01=0x00ea}
0x1d88c…1d896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x00f6}
0x1d896…1d8be               Head {h00=0x0024, h01=0x0050, text=»* LOOP OVER ALL CWT:S IN CWTTAB «, t00=0x012e, t01=0x0100}
0x1d8be…1d8c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0128}
0x1d8c8…1d8de               Head {h00=0x0012, h01=0x0050, text=» LD A1,CWTTAB «, t00=0x012e, t01=0x0132}
0x1d8de…1d90a               Head {h00=0x0028, h01=0x0050, text=»VUON10 SUK A1,2 ALL CWT:S TREATED ? «, t00=0x012e, t01=0x0148}
0x1d90a…1d92e               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) VUON20 NO TAKE NEXT «, t00=0x012e, t01=0x0174}
0x1d92e…1d938               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0008}
0x1d938…1d97a               Head {h00=0x003e, h01=0x0050, text=»* RETURN AND ENABLE INTERRUPTS AND SWITCH BACK TO LEVEL 0.«, t00=0x012f, t01=0x0012}
0x1d97a…1d984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0054}
0x1d984…1d9ac               Head {h00=0x0024, h01=0x0050, text=» LDK A1,/40 BIT FOR ENABLE MODE «, t00=0x012f, t01=0x005e}
0x1d9ac…1d9d4               Head {h00=0x0024, h01=0x0050, text=» ORS A1,2,A15 INTO PSW ON STACK «, t00=0x012f, t01=0x0086}
0x1d9d4…1d9ec               Head {h00=0x0014, h01=0x0050, text=» RTN A15 RETURN «, t00=0x012f, t01=0x00ae}
0x1d9ec…1d9f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x00c6}
0x1d9f6…1da08               Head {h00=0x000e, h01=0x0050, text=»* GET CWT «, t00=0x012f, t01=0x00d0}
0x1da08…1da12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x00e2}
0x1da12…1da42               Head {h00=0x002c, h01=0x0050, text=»VUON20 LD A5,CWTTAB,A1 LOAD CWT-ADDRESS «, t00=0x012f, t01=0x00ec}
0x1da42…1da66               Head {h00=0x0020, h01=0x0050, text=» RB(Z) VUON10 NO CWT ADDRESS«, t00=0x012f, t01=0x011c}
0x1da66…1da70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0140}
0x1da70…1da8a               Head {h00=0x0016, h01=0x0050, text=»* CIO START INPUT «, t00=0x012f, t01=0x014a}
0x1da8a…1da94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0164}
0x1da94…1dace               Head {h00=0x0036, h01=0x0050, text=» EX CWTCSP,A5 EXECUTE CIO-START PERIPHERAL (INPUT)«, t00=0x012f, t01=0x016e}
0x1dace…1dadc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0130, t01=0x0018}
0x1dadc…1dae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0026}
0x1dae6…1db00               Head {h00=0x0016, h01=0x0050, text=»* RESET DATA AREAS«, t00=0x0130, t01=0x0030}
0x1db00…1db30               Head {h00=0x002c, h01=0x0050, text=»* USED BY SCREEN AND PERIPHERAL SECTIONS«, t00=0x0130, t01=0x004a}
0x1db30…1db4a               Head {h00=0x0016, h01=0x0050, text=»* LINE DRIVER PART«, t00=0x0130, t01=0x007a}
0x1db4a…1db54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0094}
0x1db54…1db82               Head {h00=0x002a, h01=0x0050, text=» LDK A4,OTRFLA+HLTFLA GET ACTION-FLAGS«, t00=0x0130, t01=0x009e}
0x1db82…1dbaa               Head {h00=0x0024, h01=0x0050, text=» ADKL A4,SSTFLA ALL ACTION FLAGS«, t00=0x0130, t01=0x00cc}
0x1dbaa…1dbc8               Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 COMPLEMENT «, t00=0x0130, t01=0x00f4}
0x1dbc8…1dc04               Head {h00=0x0038, h01=0x0050, text=» LD A6,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? «, t00=0x0130, t01=0x0112}
0x1dc04…1dc3e               Head {h00=0x0036, h01=0x0050, text=» RF(NZ) VUON25 YES. GO RESET DWTST BITS 11,12,13. «, t00=0x0130, t01=0x014e}
0x1dc3e…1dc52               Head {h00=0x0010, h01=0x0050, text=»VUON22 EQU *«, t00=0x0130, t01=0x0188}
0x1dc52…1dc8a               Head {h00=0x0034, h01=0x0050, text=» CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE «, t00=0x0131, t01=0x000c}
0x1dc8a…1dcb4               Head {h00=0x0026, h01=0x0050, text=» ADK A6,0 ANY (MORE) QUEUED DWT ? «, t00=0x0131, t01=0x0044}
0x1dcb4…1dce0               Head {h00=0x0028, h01=0x0050, text=» RF(Z) VUON27 NO. SCREEN QUEUE EMPTY«, t00=0x0131, t01=0x006e}
0x1dce0…1dcf4               Head {h00=0x0010, h01=0x0050, text=»VUON25 EQU *«, t00=0x0131, t01=0x009a}
0x1dcf4…1dd24               Head {h00=0x002c, h01=0x0050, text=» ANS A4,DWTST,A6 RESET ALL ACTION-FLAGS «, t00=0x0131, t01=0x00ae}
0x1dd24…1dd4c               Head {h00=0x0024, h01=0x0050, text=» RB VUON22 GET NEXT (QUEUED) DWT«, t00=0x0131, t01=0x00de}
0x1dd4c…1dd60               Head {h00=0x0010, h01=0x0050, text=»VUON27 EQU *«, t00=0x0131, t01=0x0106}
0x1dd60…1dd9e               Head {h00=0x003a, h01=0x0050, text=» CM CWTDOS,A5 RESET INDICATOR OF DWT OCCUPYING SCREEN «, t00=0x0131, t01=0x011a}
0x1dd9e…1ddda               Head {h00=0x0038, h01=0x0050, text=» CM CWTSRD,A5 RESET INDICATOR SST-READY DWT (SCREEN)«, t00=0x0131, t01=0x0158}
0x1ddda…1de14 (306, 0, 400) Head {h00=0x0036, h01=0x0050, text=» CM CWTPQ,A5 RESET OUTPUT QUEUE ON PERIPH. SECTION«, t00=0x0132, t01=0x0004}
0x1de14…1de1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x003e}
0x1de1e…1de28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0048}
0x1de28…1de60               Head {h00=0x0034, h01=0x0050, text=»* PREPARE LOOP OVER ALL TERMINALS ON THE CHANNEL«, t00=0x0132, t01=0x0052}
0x1de60…1de6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x008a}
0x1de6a…1dea6               Head {h00=0x0038, h01=0x0050, text=» LD* A3,CWTITA,A5 GET ADDRESS TO WORK-STATION TABLE «, t00=0x0132, t01=0x0094}
0x1dea6…1ded8               Head {h00=0x002e, h01=0x0050, text=» RB(Z) VUON10 NO ADDRESS DEFINED IN TABLE «, t00=0x0132, t01=0x00d0}
0x1ded8…1df00               Head {h00=0x0024, h01=0x0050, text=» LDK A6,0 RESET TERMINAL NUMBER «, t00=0x0132, t01=0x0102}
0x1df00…1df0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x012a}
0x1df0a…1df52               Head {h00=0x0044, h01=0x0050, text=»* START DEVICE DRIVER RECOVERY FOR ALL TERMINALS ON THE CHANNEL «, t00=0x0132, t01=0x0134}
0x1df52…1df5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x017c}
0x1df5c…1df70               Head {h00=0x0010, h01=0x0050, text=»VUON30 EQU *«, t00=0x0132, t01=0x0186}
0x1df70…1df9e               Head {h00=0x002a, h01=0x0050, text=» LDK A4,TCPON INDICATE RECOVERY CAUSE «, t00=0x0133, t01=0x000a}
0x1df9e…1dfd8               Head {h00=0x0036, h01=0x0050, text=» CF A15,NDREWS CALL RECOVERY FOR THIS WORK-STATION«, t00=0x0133, t01=0x0038}
0x1dfd8…1dff0               Head {h00=0x0014, h01=0x0050, text=»*   (=TERMINAL) «, t00=0x0133, t01=0x0072}
0x1dff0…1e010               Head {h00=0x001c, h01=0x0050, text=» ADK A6,1 NEXT TERMINAL «, t00=0x0133, t01=0x008a}
0x1e010…1e04a               Head {h00=0x0036, h01=0x0050, text=» CWK A6,MAXTVU ANY MORE TERMINAL ON THIS CHANNEL ?«, t00=0x0133, t01=0x00aa}
0x1e04a…1e064               Head {h00=0x0016, h01=0x0050, text=» RB(L) VUON30 YES «, t00=0x0133, t01=0x00e4}
0x1e064…1e07a               Head {h00=0x0012, h01=0x0050, text=» RB VUON10 NO «, t00=0x0133, t01=0x00fe}
0x1e07a…1e084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0114}
0x1e084…1e08e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x011e}
0x1e08e…1e098               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0128}
0x1e098…1e0a4               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0133, t01=0x0132}
0x1e0a4…1e0a8               Head {h00=0x4004, h01=0x0000}
0x1e0a8…1e0ac               01 33 01 3e                                                                                                                                                                                                                                       ┆ 3 >┆
0x1e0ac…1e0b4 (308, 1, 8)   20 04 00 00 01 34 00 04                                                                                                                                                                                                                           ┆     4  ┆

DataMuseum.dk

Philips Data Systems

⟦33e39eeac⟧

Derivation

PTS(SC)

HexDump

Reduced view