DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

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

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦4d09f213e⟧

    Length: 35760 (0x8bb0)
    Notes: pts_type(SC)
    Names: »DRDY01.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/DRDY01.SC« 

PTS(SC)

	IDENT DRDY01 	9.2DK 1 80-02-12  870105040921 

			*DK,POS 80 ON VDU
			REL 9.2 80-02-12 
			=4,ABORT ROUTINE INCLUDED
			REL 9.1 79-05-23 
			=3,STEADY CURSOR PROBLEM CORRECTED 
			PRR 9.1 79-04-06 
			=2,ERASE ONLY TO LAST POS. OF SCREEN 
			PRR 9.1 79-01-31 
			=1   DRIVER ADAPTAD TO HANDLE PTS 6385 
			PRR 9.1 79-01-12 

* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY 
* 
* 
* 
* 
* 
* 
**************************************************
* 
* 
*    THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS 
*    PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 
*    AND PTS 6386 
*    THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM 
*    VIA CHLT OR CHRT.
* 
*    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 DRKB01.
* 
* 
*    THE DRIVER CONSISTS OF FOLLOWING PARTS:
* 
*    A C D Y       ACTIVATION PART
* 
*    I H D Y       INTERRUPT HANDLER
* 
*    R C D Y       RECOVERY ROUTINE 
* 
*    E C H O D Y   ECHO FUNCTIONS 
* 



* 
*    THE FOLLOWING ORDERS ARE TREATED:
* 
*    ORDER 00: TEST STATUS
*          05: BASIC WRITE
*          06: STANDARD WRITE 
*          07: WRITE GRAPHIC DISPLAY
*          0B: CURSOR POSITIONING 
*          31: ERASE
* 
*    NORMAL REGISTER USAGE
* 
*    REGISTER A1 = RETURN CODE
*             A2 = OUTPUT CHARACTER 
*             A3 = BUFFER INDEX 
*             A4 = WORK REGISTER
*             A5 = STACK BASE 
*             A6 = DWT-ADDRESS
*             A7 = ORDER
*             A8 = ECB-ADDRESS
* 
	EJECT
* 
* 
*    SYSTEM ADAPTATION
* 
*    DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. 
* 
*   --------------------------------- 
*   BIT:   10   11
*   --------------
*           0    0    PTS 6344
*           0    1    PTS 6351 & 6342 
*           1    0    PTS 6386 & 6385 
*   --------------------------------- 
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: 
*   -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT 
*   -IS ADAPTED TO CONTROL ONLY PTS 6344
*   -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7
*   -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER
*   -CAN SUPPRESS TRAILING BLANKS 
*    AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)
	EJECT
* 
* 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
* 
	ENTRY	DYAD	ADDRESS TO ADDRESSBLOCK 
	ENTRY	ECHODY	DEVICE-DEPENDENT ECHO-ROUTINE 
* 
* 
* 
* 
***************************************** 
*    EXTERNAL TOSS MODULE ENTRIES       * 
***************************************** 
* 
* 
	EXTRN	DISIOE	I/O REQUEST ERROR 
	EXTRN	OUTPUT	SUBROUTINE TO SEND CHARACTER
	EXTRN	TDISP	DISPATCHER 
	EXTRN	LDREG	LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN 
	EXTRN	TENDIO	END I/O 
	EXTRN	SAVE8	SAVE 8 REGISTERS ON A15 STACK
	EXTRN	ECHRTN	RETURN TO KEYBOARD AFTER ECHO 
	EXTRN	GETCHR	GET CHARACTER FROM ECB-BUFFER 
	EJECT
* 
************************
*    DWT PARAMETERS    *
************************
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTBC	BYTE COUNTER 
	EXTRN	DWTOR	ORDER
* 
	EJECT
************* 
* CONSTANTS * 
************* 
* 
FASTO	EQU	/14	FAST OUTPUT 
SCADD	EQU	/11	SET CURSOR ADDRESS
ULSTAR	EQU	/12	UNDERLINE START
ULSTOP	EQU	/13	UNDERLINE STOP 
LISTAR	EQU	/1E	LOW INTENSITY START
LISTOP	EQU	/1F	LOW INTENSITY STOP 
BACKSP	EQU	/08	BACKSPACE
LF	EQU	/0A	LINE FEED
HOME	EQU	/0B	CURSOR HOME
CLEHOM	EQU	/0C	CLEAR AND CURSOR HOME
CR	EQU	/0D	CARRIAGE RETURN
CURRIG	EQU	/10	CURSOR RIGHT 
SPACE	EQU	/20	SPACE 
STX	EQU	/82	START OF MESSAGE
ETB	EQU	/97	END OF MESSAGE
ETX	EQU	/03	LAST DUMMY
RETURN	EQU	/12	RETURN TO ALPHANUMERIC MODE
ESCAPE	EQU	/11	ESCAPE TO GRAPHIC MODE 
POINT	EQU	/2E	POINT CHARACTER 
EQU	EQU	6	THRESHOLD FOR AUTOMATIC FAST OUTPUT 
STILL	EQU	/18	CURSOR STEADY 
CTYCOD	EQU	/1B	SET COUNTRY CODE 
* 
********************
*    RETURN CODES  *
********************
* 
CCERR	EQU	/4	CODE CHECK ERROR 
OPERR	EQU	/1	NOT OPERABLE, POWER OFF
* 
	EJECT
* 
* 
***************************************** 
*    CONDITIONAL ASSEMBLY               * 
***************************************** 
* 
* 
*    BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 
* 
X:A	EQU	0 
GRAFIC	EQU	X:A
* 
*    BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344
* 
X:B	EQU	1 
WHATDY	EQU	X:B
* 
* 
*    BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR 
*    (COLUMNS 6 AND 7) CAN BE USED
X:C	EQU	0 
LOWCHA	EQU	X:C
* 
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE
*    TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.
*    THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 
* 
X:D	EQU	0 
EORECH	EQU	X:D
* 
*   BY SETTING THE CONSTANT TRASPA = 1 IT IS
*   POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. 
* 
X:E	EQU	0 
TRASPA	EQU	X:E
	EJECT
* 
*   BY SETTING X:F = 1, CURSOR WILL BE STEADY 
*   INSTEAD OF BLINKING 
X:F	EQU	0 
STEADY	EQU	X:F
* 
*   THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT
*   BY SETTING MMUPAG = 1 
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
*   BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 
*   TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.


*	CODE	COUNTRY

*	0	GB/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
X:G	EQU	0 
COUNTRY	EQU	X:G 
* 
*   MEMORY MANAGEMENT BUFFER SIZE 
* 
* 
X:H	EQU	64
DVBLEN	EQU	X:H
* 
	EJECT
* 
* 
********************************
*    DWT-DISPLACEMENT          *
********************************
* 
* 
DWTDRD	EQU	/10	START OF DRIVER DEFINED PART 
* 
	IFT	MMUPAG=0 
START	EQU	DWTDRD
	XIF
* 
	IFT	MMUPAG=1 
START	EQU	DWTDRD+4
	XIF
* 
DWTAP	EQU	START+/12	HEAD POSITION POINTER 
DWTPOS	EQU	START+/15	POSITIONS
DWTLIN	EQU	START+/14	LINES
DWTBIN	EQU	START+/16	BUFFER INDEX 
* 
	EJECT
* 
* 
**********
* TABLES *
**********
* 
* 
	DATA	DVBLEN	BUFFER LENGTH
	DATA	2	DEVICE INDEX
DYAD	EQU	*	ADDRESS BLOCK
	DATA	ACDY	ACTIVATION DRIVER
	DATA	ABDY	ABORT ROUTINE ADDRESS
	DATA	IHDY	INTERRUPT HANDLER
	DATA	RCDY	RECOVERY ROUTINE 
	DATA	ECHODY	DEVICE-DEPENDENT ECHO-ROUTINE
* 
* 
TABSPE	EQU	*	TABLE OF SPECIAL CHARACTERS
	DATA	/0712,/131E,/1F14 
	EJECT
* 
*    A C D Y
* 
*    ACDY = ACTIVATION DRIVER DISPLAY 
* 
*    ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE
*              IS SET IF DISPLAY NOT OPERABLE 
* 
* 
*    ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY 
*              FROM ECB-BUFFER WITHOUT ANY CHECK. 
* 
*    ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM
*               ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. 
* 
*              IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')
*              ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER
*              OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>
* 
	IFT	GRAFIC=1 
*    ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED 
*              TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER
*              IS SENT TO THE DISPLAY.
* 
	XIF
*    ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. 
*              THE CURSOR IS SENT TO THE POSITION GIVEN 
*              IN CONTROL WORD. NO INFORMATION ON DISPLAY 
*              IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) 
*              IS EXECUTED. 
* 
*    ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE 
*              WHERE THE CURSOR IS POSITIONED THE NUMBER
*              OF CHARACTERS THAT ARE DEFINED IN THE CONTROL
*              WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS 
*              IN THE CURSOR POSITION. THE CURSOR RE- 
*              MAINS IN THAT POSITION.
ACDY	EQU	*
	LDK	A3,0	START BUFFER INDEX
	LDK	A4,0	COUNTER 
	LDR	A7,A7	ORDER 0 ?
	ABL(E)	ADY410	YES
	LDK	A2,STX	START OF MESSAGE
	CF	A5,OUTPUT	SEND
	IFT	WHATDY=0 
	LDR*	A1,A6	CHANNEL PARAMETER 
	ANK	A1,/10	GRAPHIC DISPLAY 
	RF(E)	ACDY02	NO
	IFT	GRAFIC=1 
	CWK	A7,7	ORDER ' ? 
	ABL(E)	ADY500
	XIF
	IFT	WHATDY=0 
	LDK	A2,/12	INDICATE SWITCH TO ALPHA MODE 
	CF	A5,OUTPUT 
* 
	XIF
* 
ACDY02	EQU	*
	CWK	A7,5	ORDER 5 
	RF(E)	ACDY90	YES 
	SUK	A7,6	ORDER 6 ? 
	RF(E)	ACDY20	YES 
	SUK	A7,5	ORDER /B ?
	ABL(E)	ADY200	YES
	SUK	A7,/26	ORDER ERASE ? 
	ABL(E)	ADY160	YES
* 
DYERR	ABL	DISIOE	I/O REQUEST ERROR
	EJECT
*    ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER
*    ARE CARRIED OUT. 
*    /2B            NO MOVING OF PRINT HEAD 
*    /30            CR, LF, LF
*    /31            ERASE DISPLAY AND WRITE FROM HOME POSITION
*    OTHER VALUE    CR, LF
* 
ACDY20	EQU	*
	LD	A2,4,A8	GET REQUESTED LENGTH
	RF(E)	ACDY25 
	LDK	A3,2	START BUFFER INDEX
	LD	A2,2,A8	GET BUFFER ADDRESS
	LC	A2,1,A2	GET CONTROL CHARACTER 
	ANK	A2,/FF 
ACDY25	EQU	*
	SUK	A2,/2B	POSITIONING BEFORE WRITE ?
	RF(E)	ACDY90 
	SUK	A2,6	/31 ? 
	RF(E)	ACDY65 
	LDK	A4,1	INDICATE LINE FEED
	ADK	A2,1	DOUBLE LINE FEEED ? 
	RF(NE)	ACDY30
	ADK	A4,1	INDICATE DOUBLE LINE FEED 


ACDY30	LDK	A2,CR	CARRIAGE RETURN
ACDY35	LDK	A1,1 
	SC	A1,DWTAP+1,A6	RESET HEAD POSITION COUNTER 
*    SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS 
* 
ACDY50	EQU	*
	CF	A5,OUTPUT	SEND CHARACTER
ACDY52	SUK	A4,1 
	RF(N)	ACDY90	START SECTION ENDED?
	LC	A1,DWTLIN,A6	LINES
	CC	A1,DWTAP,A6	LAST LINE ? 
	RF(L)	ACDY55 
	LDKL	A2,/100	INCREMENT LINE COUNTER
	ADS	A2,DWTAP,A6
ACDY55	LDK	A2,LF	LINE FEED TO SEND
	RB	ACDY50
ACDY65	LDK	A2,CLEHOM	CLEAR AND HOME 
	LDK	A1,1 
	SC	A1,DWTAP,A6	RESET LINE COUNTER
	RB	ACDY35
	EJECT
* 
*    GET, CHECK AND SEND CHARACTER
*    (IF ORDER 5 NO CHECK)
* 
ACDY70	EQU	*
	IFT	WHATDY=0 
	LDR*	A4,A6	GET CHANNEL PARAMETER 
	ANK	A4,/10 
	RF(NZ)	ACDY75	NOT 6344 OR 6386 
	XIF
	LD	A4,2,A8 
	ADR	A4,A3	GET ADDRESS TO NEXT CHAR IN BUFFER 
	CCR	A2,A4	CHAR EQU TO CURRENT? 
	ABL(E)	CHECK	YES!
ACDY75	EQU	*
	CF	A5,OUTPUT 
ACDY80	CF	A15,POSUPD	POSITION COUNTER UPDATING
	IFT	TRASPA=1 
	LD	A1,2,A8	GET BUFFER ADDRESS (BA) 
	LD	A2,4,A8	GET REQUESTED LENGTH(RL)
	ADR	A1,A2	GET ADD END OF BUFFER
SKIP05	CWK	A2,2 
	RF(NG)	SKIP30	RL < 3 
	SUK	A1,1	DECR. BA
	LCR	A4,A1	GET CHAR 
	CCK	A4,/2020	SPACE ? 
	RF(NE)	SKIP20	NO 
SKIP07	SUK	A2,1	DECR RL 
	RB	SKIP05	GET NEXT 
SKIP20	CWK	A2,4 
	RF(NG)	SKIP30	RL < 5 
	LC	A4,-2,A1	GET CHAR 
	CCK	A4,/1111	TABULATION CHAR ? 
	RF(NE)	SKIP25	NO!
	SUK	A1,2	DECR BA 
	SUK	A2,2	DECR RL 
	RB	SKIP07	GET NEXT 
SKIP25	LCR	A4,A1	GET CHARACTER AGAIN
	ANK	A4,/FF 
	SUK	A4,/12	UNDER LINE START? 
	RB(Z)	SKIP07	YES! SKIP IT! 
	SUK	A4,/C	LOW INT. START?
	RB(Z)	SKIP07	YES!
	SUK	A4,1	LOW INT. STOP?
	RB(Z)	SKIP07	YES!
* 
SKIP30	ST	A2,4,A8	STORE NEW RL
	XIF
ACDY90	LDK	A4,0 
ADY100	CF	A15,GETCHR	GET CHARACTER FROM ECB-BUFFER
	LDR	A1,A1	LAST CHARACTER?
	ABL(NP)	ADY405 
	SUK	A7,5	ORDER 5?
	RB(E)	ACDY75 
	ANK	A2,/7F 
	LDK	A1,5	SET TABLE POINTER 
	CC	A2,TABSPE,A1	FAST	OUTPUT? 
	RF(E)	ADY125 
	SUK	A1,1	NO! 
	LDR*	A7,A6	CHANNEL PARAMETER 
	ANK	A7,/30	GRAFIC DISPLAY ?
	RF(E)	ADY110	NO
	LDK	A1,0	SET TABLE PONTER
ADY110	CC	A2,TABSPE,A1	CHARACTER FOUND
	RF(NE)	ADY128
	CCK	A2,/1E1E	LOW INTENSITY ? 
	RF(NE)	ADY122	NO 
	LDK	A4,/80 
ADY120	ORRS	A4,A6	SET LOW INTENSITY MODE
	LDK	A4,0 
	RB	ACDY50
ADY122	CCK	A2,/1212	UNDERLINE ? 
	RF(NE)	ADY125
	LDK	A4,/40	SET UNDERLINE MODE
	RB	ADY120
ADY125	CCK	A2,/1414	FAST OUTPUT ? 
	LDK	A4,0 
	RB(NE)	ACDY50	NO 
	LDR	A4,A2
	CF	A15,GETCHR	GET OUTPUT CHARACTER 
	LDR	A1,A2
	LDR	A2,A4
	LD	A4,4,A8	REQ LENGTH
	SUR	A4,A3	NUMBER OF CHARS
	RF(Z)	ADY127	NONE
* 
	IFT	WHATDY=0 
	LDR*	A7,A6	GET CHANNEL PARAMETER 
	ANK	A7,/10 
	RF(NZ)	OTHER	OTHER DISPLAY THAN 6344 OR 6386?
	XIF
	LDR	A3,A1	NO!
	CF	A5,FASTER 
ADY127	EQU	*
	LD	A3,4,A8	REQ LENGTH
	ST	A3,6,A8	EFF LENGTH
	ABL	ADY405 
ADY128	EQU	*
	SUK	A1,1	GET NEXT
	RB(NN)	ADY110	NOT AT END 
	LDR	A1,A2	MOVE CHARACTER 
	SUK	A1,/11	TAB CHAR?  (11) 
	RF(E)	ADY140 
	SUK	A1,/F	LESS THAN /20 ?
	RF(N)	ADY130	CODE CHECK ERROR
	SUK	A1,/3F	GREATER THAN /5F
	RB(NP)	ACDY70
	IFT	LOWCHA=0 
	SUK	A2,/20	TRANSFORM CHARACTER BETWEEN /60 TO /7F
			TO CHARACTER BETWEEN /40 TO /5F
	XIF
	RB	ACDY70
* 
* 
	IFT	WHATDY=0 
OTHER	EQU	* 
************************
* A3 = INDEX
* A1 = CHARACTER
* A4 = NUMBER 
************************
	LC	A2,DWTBC,A6 
	AD	A2,DWTAP,A6	GET POSITION
	ANK	A2,/FF 
	ADR	A2,A4	ADD LENGTH OF REQUEST
	LD	A3,DWTPOS,A6	GET MAX-POS AND
	ANK	A3,/FF 
	ST	A4,10,A8	SAVE LENGTH
	SUR	A3,A2	COMPARE
	RF(NN)	OT030	LENGTH OK 
	ADR	A4,A3
	ST	A4,10,A8	SAVE LENGTH
	ADK	A4,1	ADJUST NUMBER OF OUTPUT CHARACTERS
OT030	EQU	* 
	LDR	A3,A1	SAVE CHARACTER TO SEND 
OT010	LDR	A2,A3 
	CF	A5,OUTPUT	SENT CHAR (IN A2) 
	SUK	A4,1	DECREMENT COUNTER 
	RB(P)	OT010
	LD	A4,10,A8	GET ACT. LENGTH
OT040	LDK	A2,BACKSP 
	CF	A5,OUTPUT	SENDBACKSPACE 
	SUK	A4,1	DECREMENT LENGTH
	RB(P)	OT040
	RB	ADY127
	XIF
	EJECT
* 
*    CODE CHECK ERROR 
* 
ADY130	EQU	*
	LDK	A1,CCERR 
	ORS	A1,8,A8	RETURN CODE
	RB	ADY100
	EJECT
* 
*    TABULATION 
* 
ADY140	EQU	*
	CF	A15,GETCHR	GET FIRST ASCII CHARACTER
	LDR	A4,A2
	CF	A15,GETCHR	GET SECOND ASCII CHARACTER 
	ANK	A2,/F
	ANK	A4,/F
	RF(E)	ADY144 
ADY143	ADK	A2,/A	FROM DECIMAL TO HEXADECIMAL
	SUK	A4,1 
	RB(NE)	ADY143
ADY144	LC	A4,DWTAP+1,A6 
	SUR	A2,A4	SUBTRACT HEAD POSITION POINTER 
	LC	A4,DWTBC,A6 
	SUR	A2,A4	AND REQUESTS POSITION COUNTER
			TO GET NUMBER OF SPACES TO SEND
	RB(NP)	ADY100
	LDR	A4,A2
ADY145	LDK	A2,CURRIG	CURSOR RIGHT 
ADY146	CF	A5,OUTPUT 
	CF	A15,POSUPD	POSITION COUNTER UPDATING
	SUK	A4,1	READY ? 
	RB(NE)	ADY145	NO 
	ABL	ADY100 
	EJECT
* 
*    ERASE  ORDER /31 
* 
ADY160	LD	A4,10,A8	GET NUMBER OF CHAR TO ERASE
	IFT	WHATDY=0 
	LDR*	A1,A6	CHANNEL PARAMETER 
	ANK	A1,/10	GRAFIC DISPLAY? 
	RF(NE)	ADY166	YES	=2 
	XIF
	CF	A5,ERA	GET LENGTH TO ERASE	=2 
	LDK	A3,/20 
	CF	A5,FASTER	FAST OUTPUT 
ADY165	LDK	A2,ETB 
	CF	A5,OUTPUT 
	ABL	ADY410	END OF REQUEST
	IFT	WHATDY=0 
ADY166	EQU	*	YES	=2 
	CF	A5,ERA	GET LENGTH TO ERASE	=2 
* 
ADY170	SUK	A4,1	DECR NO OF CHAR 
	RF(N)	ADY180	ERASE READY 
	LDK	A2,/20	SPACE 
	CF	A5,OUTPUT	SEND IT 
	RB	ADY170
ADY180	LD	A4,10,A8
	CF	A5,ERA	GET LENGTH TO ERASE	=2 
	LDR	A3,A3	OVER EDGE	=2 
	RF(NN)	ADY186	NO	=2
	SUK	A4,1	ADJUST LENGTH 
ADY186	EQU	*
	SUK	A4,1	DECREMENT	=2
	RB(N)	ADY165	CURSOR IN ORIGIN POSITION 
	LDK	A2,BACKSP	CURSOR LEFT
	CF	A5,OUTPUT	SEND IT 
	RB	ADY186	AGAIN
	XIF
	EJECT
* 
*    ORDER /B CURSOR POSITIONING PART 
* 
ADY200	EQU	*
* 
	IFT	WHATDY=0 
	LDR*	A1,A6	CHANNEL PARAMETER 
	ANK	A1,/10	GRAFIC DISPLAY? 
	RF(NE)	ADY205	YES
*    IF VIDEO (6344) SET CURSOR ADDRESS DIRECT
	XIF
	LD	A4,10,A8	GET REQUESTED CURSOR POS 
	ST	A4,DWTAP,A6	UPDATE LINE & POS COUNTER 
	CF	A5,CURPOS	SET CURSOR
	RF	ADY380
	IFT	WHATDY=0 
*    GET LINE 
ADY205	LC	A4,10,A8	GET REQUESTED LINE 
	CC	A4,DWTLIN,A6	OUTSIDE SCREEN?
	RF(NG)	ADY207	NO!
	LC	A4,DWTLIN,A6	YES! SET CURSOR AT END OF LINE 
ADY207	EQU	*
	LC	A3,DWTAP,A6	GET ACTUAL LINE 
ADY210	CWR	A4,A3
	RF(N)	ADY250	REQUESTED LINE ABOVE ACTUAL 
	RF(E)	ADY300	SAME LINE 
	LDK	A2,LF	LINE FEED
	ADK	A3,1	INCREMENT ACTUAL LINE NUMBER
ADY230	CF	A5,OUTPUT	SEND
	LDR	A4,A4	REQUESTED LINE 
	RB(NZ)	ADY210	NOT EQUAL ZERO 
	LDK	A4,1 
	RF	ADY300
ADY250	LDK	A2,HOME	HOME 
	LDK	A3,1	RESET ACTUAL LINE NUMBER
	ST	A3,DWTAP,A6	RESET POSITION
	RB	ADY230
* 
*    GET POSITION 
* 
ADY300	SC	A4,DWTAP,A6	UPDATE HEAD LINE COUNTER
	LC	A4,11,A8	GET REQUESTED POSITION 
	CC	A4,DWTPOS,A6	OUTSIDE SCREEN?
	RF(NG)	ADY303	NO!
	LC	A4,DWTPOS,A6	SET LAST LINE
ADY303	EQU	*
	CWK	A4,1	FIRST POSITION ?
	RF(NE)	ADY305	NO 
	CWR	A4,A3	FIRST LINE ? 
	RF(NE)	ADY305	NO 
	LDK	A2,HOME	CURSOR GO HOME 
	RF	ADY330
ADY305	RF(NL)	ADY307	REQ. POS NOT ZERO
	LDK	A4,1 
ADY307	LC	A3,DWTAP+1,A6	GET ACTUAL POSITION 
	CC	A3,DWTPOS,A6	MAX-POS? 
	RF(NG)	ADY310	NO!
	SUK	A3,1 
ADY310	CWR	A4,A3	FORWARDS OR BACKWARDS
	RF(E)	ADY370	POSITION FOUND
	RF(N)	ADY340	BACK
	LDK	A2,CURRIG	CURSOR RIGHT 
	ADK	A3,1	UPDATE POSITION COUNTER 
ADY330	CF	A5,OUTPUT	SEND
	RB	ADY310
ADY340	SUR	A3,A4	ACTUAL POS. - WANTED POS.
	CWR	A3,A4	COMPARE BACKSTEPS WITH CR-WAY
	RF(L)	ADY345	BACKSPACE WAY 
	LDK	A2,CR	CARRIAGE RETURN
	LDK	A3,1	INDICATE FIRST POSITION 
	RB	ADY330
ADY345	LDK	A2,BACKSP	BACKSPACE
	CF	A5,OUTPUT	SEND
	SUK	A3,1	LAST BACKSPACE ?
	RB(NE)	ADY345
ADY370	SC	A4,DWTAP+1,A6	UPDATE HEAD POSITION POINTER
	XIF
ADY380	LDK	A3,2	START BUFFER INDEX
	ABL	ACDY90 
	IFT	WHATDY=0 
* 
ADY400	LDK	A2,/22	START CHARACTER 
	CF	A5,OUTPUT 
* 
	XIF
* 
	EJECT
* 
* 
*    SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL
*    WORD, LOAD A1 WITH RETURN CODE AND END I/0.
* 
ADY405	EQU	*
	LDR*	A1,A6	GET CHANNEL PARAMETER 
	ANK	A1,/30	6344 ?
	RF(NE)	ADY407	NO 
	LDR*	A1,A6 
	LDR	A4,A1
	ANK	A1,/40	UNDERLINE MODE ?
	RF(E)	ADY406	NO
	LDK	A2,ULSTOP	UNDERLINE STOP 
	CF	A5,OUTPUT 
ADY406	ANK	A4,/80	LOW INTENSITY MODE ?
	RF(E)	ADY407 
	LDK	A2,LISTOP	LOW INTENSITY STOP 
	CF	A5,OUTPUT 
ADY407	EQU	*
	LDK	A2,ETB	END OF TEXT MESSAGE 
	CF	A5,OUTPUT	SEND CHARACTER
	CF	A15,UPDAPP	UPDATE HEAD POSITION COUNTER 
ADY410	LDK	A2,ETX	LAST DUMMY
	CF	A5,OUTPUT	SEND DUMMY
ADY415	EQU	*
	SUK	A7,5	ORDER 5 ? 
	RF(NE)	ADY420
	LDKL	A4,/101	HOME POSITION 
	ST	A4,DWTAP,A6 
ADY420	EQU	*
	SUK	A7,6	ORDER B ?	*DK 
	RF(NE)	ENDIO	NO	*DK
	LD	A4,DWTAP,A6	GET CURSOR POSITION.	*DK
	ST	A4,10,A8	PUT IN ECBCW	*DK 
ENDIO	CF	A15,TENDIO	END I/O 
EXIT	ABL	TDISP	GO TO DISPATCHER 
* 
	IFT	GRAFIC=1 
* 
	EJECT
* 
*    GRAPHIC PART 
* 
ADY500	EQU	*
	LDK	A2,/11 
	CF	A5,OUTPUT	SWITCH TO GRAFIC MODE 
ADY510	CF	A15,GETCHR	GET CHARACTER
	LDR	A1,A1	BUFFER EMPTY 
	RB(E)	ADY400 
	LDR	A4,A2
	CF	A15,GETCHR	GET NEXT CHARACTER 
	LDR	A1,A4
	ANK	A4,/80	ADDRESS OR DATA 
	RF(E)	ADY530	DATA MESSAGE
* 
*    ADDRESS MESSAGE
* 
*    SET FIRST OUT PUT IN A2
*    AND SECOND IN A4 
* 
	SLL	A1,4 
	LDR	A4,A2
	SRL	A4,4 
	ORR	A4,A1
	ANK	A2,/F
	ANK	A4,/7F 
	ORK	A2,/20 
ADY515	CF	A5,OUTPUT	SEND FIRST CHARACTER
	LDR	A2,A4	GET SECOND CHARACTER 
	CF	A5,OUTPUT	SEND SECOND CHARACTER 
	RB	ADY510
	EJECT
* 
*    DATA MESSAGE 
* 
*    FIRST OUTPUT IS SET IN A2
*    AND SECOND IN A4 
* 
ADY530	SLL	A1,13
	LDR	A4,A2
	SLL	A2,5 
	ORR	A1,A2
	LDK	A7,10
	LDK	A2,0 
ADY540	SLL	A1,1 
	RF(NN)	ADY550
	ORKL	A2,/200 
ADY550	SUK	A7,1 
	RF(E)	ADY560 
	SRL	A2,1 
	RB	ADY540
ADY560	LDR	A4,A2
	SRL	A4,4 
	ANK	A4,/3F 
	ANK	A2,/F
	ORK	A2,/60 
	RB	ADY515
* 
	XIF
* 
	EJECT
* 
*    UPDAPP = SUBROUTINE TO UPDATE HEAD 
*             POSITION POINTER WHEN END 
*             OF REQUEST IS REACHED 
UPDAPP	EQU	*
	LC	A3,DWTBC,A6	GET POSITION COUNTER
	ADS	A3,DWTAP,A6	UPDATE HEAD POSITION POINTER 
	LDK	A3,0 
	SC	A3,DWTBC,A6	RESET  POSITION COUNTER 
	RTN	A15
* 
*    POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION
*             POINTER WHEN REQUEST RUNNING. 
*             A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE 
* 
POSUPD	EQU	*
	LC	A2,DWTBC,A6	GET POSITION POINTER
	ANK	A2,/FF 
	AD	A2,DWTAP,A6	INCLUDE HEAD POSITION POINTER 
	ANK	A2,/FF 
	CC	A2,DWTPOS,A6	END OF ROW ? 
	RF(P)	POSU10 
	IM	DWTST,A6	INCREMENT POSITION COUNTER 
POSU10	RTN	A15
	EJECT
* 
*    I H D Y
* 
*    INTERRUPT
* 
IHDY	EQU	*
	LD	A4,DWTST,A6	BUSY? 
	RB(N)	EXIT	NO
	SLL	A4,2	ECHO MODE ? 
	RF(N)	IHDY10 
	LDR	A1,A1	RETURN CODE FROM CHANNEL UNIT ?
	RB(NE)	ADY420	YES
IHDY10	ABL	LDREG	RELOAD A3-A5 AND RETURN VIA A5 
	EJECT
* 
*    R C D Y
* 
*    RCDY = RECOVERY ROUTINE DISPLAY
* 
* 
*    RECOVERY IS CARRIED OUT ONLY IF
*    ORDER 6 IS RUNNING 
* 
*    AT ENTRY:
* 
*    A6 = DWT-ADDRESS 
*    A7 = ORDER 
*    A8 = ECB-ADDRESS 
RCDY	EQU	*
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
				=3
	LDKL	A2,/7FFF
	ANS	A2,DWTST,A6	SET BUSY 
				=1
				=1
				=1
				=1
				=1
				=1
				=1
				=1
* 
	IFT	WHATDY=0 
* 
	LDR*	A2,A6	CHANNEL PARAMETER 
	ANK	A2,/10	GRAPHIC DISPLAY ? 
	RF(E)	RCDY10	NO
	LDK	A2,RETURN	RETURN TO ALPHANUMERIC MODE
	CF	A5,OUTPUT 
* 
	XIF
* 
	EJECT
RCDY10	EQU	*
	LDK	A2,/00	DUMMY TO SEND 
	CF	A5,OUTPUT 
	LDR	A4,A4	LRC-ERROR IN BLOCK ? 
	RF(NE)	RCDY20
	IFT	WHATDY=0		=1 
	IFF	STEADY+COUNTRY=0		=1 
	LDR*	A2,A6	GET CHANNEL PARAMETERS	=1 
	ANK	A2,/20	PTS 6385/6386 ?	=1
	RF(Z)	RCDY14	NO	=3 
	LDK	A3,100	SET UP TRANSFER COUNTER	=3
RCDY12	LDK	A2,STILL-1	SET UP CURSOR BLINKING	=3 
	ADK	A2,STEADY	ADJUST TO STEADY IF SO	=3
	CF	A5,OUTPUT	SEND CURSOR INF	=3
	SUK	A3,1	DEC TRANSFER COUNTER	=3 
	RB(P)	RCDY12	NOT ENOUGH OF TRANSFERS	=3
	LDK	A2,CTYCOD	SEND 'SET COUNTRY CODE'	=1 
	CF	A5,OUTPUT		=1 
	LDK	A2,COUNTRY	SEND 'COUNTRY CODE'	=1
	ORK	A2,/30		=1 
	CF	A5,OUTPUT		=1 
				=3
				=3
RCDY14	EQU	*		=3
	XIF			=1 
	LD	A3,DWTST,A6	SAVE STATUS WORD	=3 
	LDK	A2,CLEHOM	CLEAR AND HOME 
	CF	A5,OUTPUT	SEND
	LDKL	A2,/101 
	ST	A2,DWTAP,A6	SET HEAD LINE-AND-POSITION COUNTER
	LDR	A3,A3	GET OLD STATUS 
	RB(N)	ENDIO	NOT BUSY 
	LDK	A1,OPERR	SET RETURN CODE 
RCDY15	ABL	ADY420 
	EJECT
* 
*    LRC-ERROR IN BLOCK SENT REMOTE 
* 
RCDY20	EQU	*
	SUK	A7,5	ORDER 5 ? 
	RF(NE)	RCDY25	NO 
	LDK	A1,2	INDICATE THROUGHPUT ERROR 
	RB	RCDY15
RCDY25	LDK	A2,STX	START OF MESSAGE
	CF	A5,OUTPUT 
	LC	A4,DWTBC,A6	GET NUMBER OF POSITIONS TO BACK 
	ANK	A4,/FF 
	RF(E)	RCDY30 
	CF	A5,BACCAN	SEND BACKSPACES AND RUB OUT 
	LDK	A3,2	START BUFFER INDEX
RCDY30	ABL	ACDY90 
	EJECT
* 
*    E C H O D Y
* 
*    ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE 
* 
ECHODY	EQU	*
	LDR	A7,A7	EOR? 
	RF(N)	ECDY17	YES 
	LDR	A3,A2	SAVE CHARACTER 
* 
	IFT	EORECH=0 
* 
	SUK	A2,/80 
	RF(NN)	ECDY20	NOT TO BE ECHOED 
	ADK	A2,/80 
* 
	XIF
* 
	SUK	A3,/8
	RF(E)	ECDY40	BACKSPACE 
	SUK	A3,/10 
	RF(E)	ECDY50	CLEAR 
ECDY10	CF	A5,OUTPUT	SEND CHARACTER
	CF	A15,POSUPD	POSITION COUNTER UPDATING
	RF	ECDY20
ECDY17	CF	A15,UPDAPP	UPDATE HEAD CURSOR POINTER 
ECDY20	ABL	ECHRTN	RETURN TO KEYBOARD
* 
*    BACKSPACE
* 
ECDY40	EQU	*
	LC	A4,DWTBC,A6	GET POSITION COUNTER
	ANK	A4,/FF 
	RB(E)	ECDY20	FIRST POSITION
	LDK	A4,1	INDICATE ONE BACKSTEP 
	CF	A5,BACCAN	BACK
	RB	ECDY20
	EJECT
* 
*    CLEAR
* 
ECDY50	EQU	*
	LC	A4,DWTBC,A6	GET POSITION COUNTER
	ANK	A4,/FF 
	RB(E)	ECDY20	FIRST POSITION
	IFT	WHATDY=0 
	LDR*	A1,A6	GET CHANNEL PARAMETER 
	ANK	A1,/10	GRAFIC DISPLAY
	RF(E)	ECDY60	N 
	CF	A5,BACCAN	BACK
	RB	ECDY20
	XIF
ECDY60	LDR	A3,A4	SAVE POSITION COUNTER
	LD	A4,DWTAP,A6	GET HEAD LINE-AND-POSITION COUNTER
	CF	A5,CURPOS	SET CURSOR
	LDR	A4,A3	GET POS COUNTER
	ADK	A4,1	UPDATE POS COUNTER
	LDK	A3,/20 
	CF	A5,FASTER	FAST OUTPUT 
	LDK	A2,0 
	SC	A2,DWTBC,A6	RESET POSITION COUNTER
	RB	ECDY20
	EJECT
* 
* 
*    BACCAN = SUBROUTINE TO POSITION CURSOR 
*             AT THE PLACE BEFORE REQUEST IF
*             CLEAR OR BACKWARDS ONE STEP IF
*             BACKSPACE.
* 
BACCAN	EQU	*
	LDR	A3,A4
	LC	A2,DWTBC,A6	GET POSITION COUNTER
	ANK	A2,/FF 
	AD	A2,DWTAP,A6	ADD HEAD POSITION COUNTER 
	ANK	A2,/FF 
	CC	A2,DWTPOS,A6	LAST POSITION
	RF(NP)	BACA10	NO 
	LDK	A2,SPACE	DESTRUCTIVE SPACE 
	RF	BACA20
BACA10	LDK	A2,BACKSP	BACKSPACE
	CF	A5,OUTPUT	SEND
	LDK	A2,SPACE	DESTRUCTIVE SPACE 
	CF	A5,OUTPUT	SEND
	LDK	A2,BACKSP	BACKSPACE
BACA20	CF	A5,OUTPUT	SEND
	SUK	A4,1 
	RB(NE)	BACA10
	NGR	A3,A3	NEGATE REGISTER
	ADS	A3,DWTST,A6	UPDATE POSITION COUNTER
	RTN	A5 
	EJECT
*********************************************** 
*   CHECK = SUBROUTIN TO CHECK USER BUFFER IN * 
*           ORDER TO GET A REASON FOR USING   * 
*           'FAST OUTPUT FACILITY' ON 6344    * 
*            AND 6386                          *
*********************************************** 
CHECK	EQU	* 
* 
* 
	LD	A1,4,A8 
	SUR	A1,A3	END OF BUFFER? 
	ABL(NP)	ACDY75	YES!
	LDR	A7,A2	SAVE CHER TO SEND (AND CHECK)
	LDR	A2,A4	SAVE BUFFER ADDRESS+INDEX
	LDK	A4,1	RESET COUNTER 
NEXT	ADK	A4,1	INCREMENT COUNTER 
	SUK	A1,1	END OF BUFFER?
	RF(NP)	OUT	YES!
	ADK	A2,1	INCREMENT POINTER 
	CCR	A7,A2	CHAR EQU TO PREVIUS? 
	RB(E)	NEXT	YES!
OUT	EQU	* 
	CWK	A4,EQU	CONDITION FOR FAST OUTPUT FULLFILLED? 
	RF(L)	NOFAST	NO! 
**********************************
* UPDATE ACTUAL POSITION POINTER *
FASTOK	LC	A2,DWTBC,A6	GET HEAD POSITION 
	AD	A2,DWTAP,A6 
	ANK	A2,/FF 
	ADR	A3,A4	UPDATE BUFFER-INDEX
	ST	A3,DWTBIN,A6	SAVE INDEX 
	LC	A3,DWTPOS,A6	GET MAXNUMBER OF CHAR/LINE 
	SUR	A3,A2	AND COMPARE
	SUR	A3,A4
	RF(NN)	HIT 
	ADR	A4,A3
	ADK	A4,1 
HIT	ADS	A4,DWTST,A6	UPDATE POSITION 
*********************** 
* EXECUTE FAST OUTPUT * 
	LDR	A3,A7	GET CHAR TO SEND 
	CF	A5,FASTER 
**************
* SET CURSOR *
	LD	A4,DWTST,A6	GET ACTUAL POS
	ANK	A4,/FF 
	AD	A4,DWTAP,A6	INC HEAD POS POINTER
	CF	A5,CURPOS 
***************************** 
* RESTORE A3 (BUFFER INDEX) * 
	LD	A3,DWTBIN,A6	RESTORE BUFFER INDEX 
	SUK	A3,1 
	ABL	ACDY90	READ NEXT CHAR
* 
NOFAST	LDR	A2,A7	RESTORE OUTPUT CHARACTER 
	ABL	ACDY75 
	EJECT
* 
* 
*    FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT 
*             AT ENTRY A4 = NUMBER OF CHARACTERS
* 
FASTER	EQU	*
	CWK	A4,/60 
	RF(L)	FAS010	NUMBER OF CHAR NOT TOO LONG 
	LDK	A4,/59 
FAS010	EQU	*
	ADK	A4,/20	ADD CONSTANT
	LDK	A2,FASTO	FAST OUTPUT 
	CF	A5,OUTPUT	SEND
	LDR	A2,A4	NO OF CHAR 
	CF	A5,OUTPUT	SEND
	LDR	A2,A3
	CF	A5,OUTPUT	SEND
	RTN	A5 
	EJECT
* 
* 
*    CURPOS = SUBROUTINE TO SET CURSOR
*             AT ENTRY A4 = CURSOR POS (POSITION AND LINE)
* 
CURPOS	EQU	*
	ADKL	A4,/1F1F	CONVERT
	LDK	A2,SCADD	SET CURSOR
	CF	A5,OUTPUT	SEND
	ECR	A2,A4	POS. X < /80?
	LDR	A2,A2
	RF(NN)	CURR05	YES! 
	LCK	A4,/7F00 
CURR05	EQU	*
	LDR	A2,A4
	CF	A5,OUTPUT	OUTPUT POSITION (X) 
	LDR	A2,A4
	RF(NN)	CURR10	Y < /80! 
	LDK	A2,/7F 
	RF	CURR15
CURR10	EQU	*
	SRL	A2,8	SHIFT RIGHT 
CURR15	EQU	*
	CF	A5,OUTPUT	OUTPUT LINE(Y)
	RTN	A5 
	EJECT
*			=2
*			=2
*			=2
*	  ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT		=2
*			=2
*			=2
*	AT ENTRY A4 = CHAR TO ERASE FROM USER		=2 
*	AT EXIT  A4 = CHAR TO END OF SCREEN		=2 
*			=2
ERA	EQU	*		=2 
	LD	A2,DWTPOS,A6	MAX CHAR.	=2 
	ANK	A2,/FF	GET MAX CHAR.	=2
	LC	A3,DWTAP+1,A6	CURRENT POS. ON SCREEN	=2 
	ANK	A3,/FF		=2 
	SUR	A2,A3	NUMBER OF CHAR. TO END OF SCREEN	=2
	ADK	A2,1	ADJUST LENGTH 	=2 
	CWR	A4,A2	OUTSIDE SCREEN	=2
	RF(L)	ERAEND	NO	=2 
	LDR	A4,A2	OUTSIDE SCREEN MODIFY LENGTH	=2
	LDKL	A3,/FFFF	SET OVER EDGE
ERAEND	EQU	*	END SUBROUTINE	=2
	RTN	A5	RETURN	=2 
ABDY	EQU	*	ABORT ROUTINE	=4 
	CF	A15,UPDAPP	UPDATE CURSOR POSITION	=4
	RTN	A15	RETURN TO CALLER	=4
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY01  9.2DK 1 80-02-12  870105040921 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005a              Head {h00=0x0018, h01=0x0050, text=»   *DK,POS 80 ON VDU«, t00=0x0000, t01=0x0042}
0x005a…0076              Head {h00=0x0018, h01=0x0050, text=»   REL 9.2 80-02-12 «, t00=0x0000, t01=0x005e}
0x0076…009a              Head {h00=0x0020, h01=0x0050, text=»   =4,ABORT ROUTINE INCLUDED«, t00=0x0000, t01=0x007a}
0x009a…00b6              Head {h00=0x0018, h01=0x0050, text=»   REL 9.1 79-05-23 «, t00=0x0000, t01=0x009e}
0x00b6…00e4              Head {h00=0x002a, h01=0x0050, text=»   =3,STEADY CURSOR PROBLEM CORRECTED «, t00=0x0000, t01=0x00ba}
0x00e4…0100              Head {h00=0x0018, h01=0x0050, text=»   PRR 9.1 79-04-06 «, t00=0x0000, t01=0x00e8}
0x0100…0130              Head {h00=0x002c, h01=0x0050, text=»   =2,ERASE ONLY TO LAST POS. OF SCREEN «, t00=0x0000, t01=0x0104}
0x0130…014c              Head {h00=0x0018, h01=0x0050, text=»   PRR 9.1 79-01-31 «, t00=0x0000, t01=0x0134}
0x014c…017e              Head {h00=0x002e, h01=0x0050, text=»   =1   DRIVER ADAPTAD TO HANDLE PTS 6385 «, t00=0x0000, t01=0x0150}
0x017e…019a              Head {h00=0x0018, h01=0x0050, text=»   PRR 9.1 79-01-12 «, t00=0x0000, t01=0x0182}
0x019a…01a2              Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x000e}
0x01a2…01ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0016}
0x01ac…01e6              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0020}
0x01e6…01f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005a}
0x01f0…0218              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x0064}
0x0218…0222              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x0222…0258              Head {h00=0x0032, h01=0x0050, text=»*   DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY «, t00=0x0001, t01=0x0096}
0x0258…0262              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0262…026c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…0276              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0276…0280              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…028a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…0294              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02ce              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0108}
0x02ce…02d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…0320              Head {h00=0x003a, h01=0x0050, text=»*    THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS «, t00=0x0001, t01=0x0156}
0x0320…0364 (2, 0, 400)  Head {h00=0x0040, h01=0x0050, text=»*    PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 «, t00=0x0002, t01=0x0004}
0x0364…037e              Head {h00=0x0016, h01=0x0050, text=»*    AND PTS 6386 «, t00=0x0002, t01=0x0048}
0x037e…03b8              Head {h00=0x0036, h01=0x0050, text=»*    THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM «, t00=0x0002, t01=0x0062}
0x03b8…03d6              Head {h00=0x001a, h01=0x0050, text=»*    VIA CHLT OR CHRT.«, t00=0x0002, t01=0x009c}
0x03d6…03e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…0420              Head {h00=0x003c, h01=0x0050, text=»*    THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0002, t01=0x00c4}
0x0420…045e              Head {h00=0x003a, h01=0x0050, text=»*    WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0002, t01=0x0104}
0x045e…049c              Head {h00=0x003a, h01=0x0050, text=»*    ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0002, t01=0x0142}
0x049c…04c8              Head {h00=0x0028, h01=0x0050, text=»*    GENERAL KEYBOARD DRIVER DRKB01.«, t00=0x0002, t01=0x0180}
0x04c8…04d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001c}
0x04d2…04dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0026}
0x04dc…0510              Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x0030}
0x0510…051a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x051a…0544              Head {h00=0x0026, h01=0x0050, text=»*    A C D Y       ACTIVATION PART«, t00=0x0003, t01=0x006e}
0x0544…054e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0098}
0x054e…057a              Head {h00=0x0028, h01=0x0050, text=»*    I H D Y       INTERRUPT HANDLER«, t00=0x0003, t01=0x00a2}
0x057a…0584              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ce}
0x0584…05b0              Head {h00=0x0028, h01=0x0050, text=»*    R C D Y       RECOVERY ROUTINE «, t00=0x0003, t01=0x00d8}
0x05b0…05ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05ba…05e4              Head {h00=0x0026, h01=0x0050, text=»*    E C H O D Y   ECHO FUNCTIONS «, t00=0x0003, t01=0x010e}
0x05e4…05ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ee…05f6              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0142}
0x05f6…05fe              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x014a}
0x05fe…0606              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0152}
0x0606…0610              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x0610…063e              Head {h00=0x002a, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0003, t01=0x0164}
0x063e…0648 (4, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x0648…066a              Head {h00=0x001e, h01=0x0050, text=»*    ORDER 00: TEST STATUS«, t00=0x0004, t01=0x000e}
0x066a…068c              Head {h00=0x001e, h01=0x0050, text=»*          05: BASIC WRITE«, t00=0x0004, t01=0x0030}
0x068c…06b2              Head {h00=0x0022, h01=0x0050, text=»*          06: STANDARD WRITE «, t00=0x0004, t01=0x0052}
0x06b2…06de              Head {h00=0x0028, h01=0x0050, text=»*          07: WRITE GRAPHIC DISPLAY«, t00=0x0004, t01=0x0078}
0x06de…0708              Head {h00=0x0026, h01=0x0050, text=»*          0B: CURSOR POSITIONING «, t00=0x0004, t01=0x00a4}
0x0708…0724              Head {h00=0x0018, h01=0x0050, text=»*          31: ERASE«, t00=0x0004, t01=0x00ce}
0x0724…072e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ea}
0x072e…0750              Head {h00=0x001e, h01=0x0050, text=»*    NORMAL REGISTER USAGE«, t00=0x0004, t01=0x00f4}
0x0750…075a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075a…0780              Head {h00=0x0022, h01=0x0050, text=»*    REGISTER A1 = RETURN CODE«, t00=0x0004, t01=0x0120}
0x0780…07ac              Head {h00=0x0028, h01=0x0050, text=»*             A2 = OUTPUT CHARACTER «, t00=0x0004, t01=0x0146}
0x07ac…07d4              Head {h00=0x0024, h01=0x0050, text=»*             A3 = BUFFER INDEX «, t00=0x0004, t01=0x0172}
0x07d4…07fc              Head {h00=0x0024, h01=0x0050, text=»*             A4 = WORK REGISTER«, t00=0x0005, t01=0x000a}
0x07fc…0822              Head {h00=0x0022, h01=0x0050, text=»*             A5 = STACK BASE «, t00=0x0005, t01=0x0032}
0x0822…0848              Head {h00=0x0022, h01=0x0050, text=»*             A6 = DWT-ADDRESS«, t00=0x0005, t01=0x0058}
0x0848…0868              Head {h00=0x001c, h01=0x0050, text=»*             A7 = ORDER«, t00=0x0005, t01=0x007e}
0x0868…088e              Head {h00=0x0022, h01=0x0050, text=»*             A8 = ECB-ADDRESS«, t00=0x0005, t01=0x009e}
0x088e…0898              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c4}
0x0898…08a6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ce}
0x08a6…08b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00dc}
0x08b0…08ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08ba…08d8              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0005, t01=0x00f0}
0x08d8…08e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010e}
0x08e2…0922              Head {h00=0x003c, h01=0x0050, text=»*    DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0005, t01=0x0118}
0x0922…092c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x092c…095a              Head {h00=0x002a, h01=0x0050, text=»*   --------------------------------- «, t00=0x0005, t01=0x0162}
0x095a…0974              Head {h00=0x0016, h01=0x0050, text=»*   BIT:   10   11«, t00=0x0005, t01=0x0190}
0x0974…098e              Head {h00=0x0016, h01=0x0050, text=»*   --------------«, t00=0x0006, t01=0x001a}
0x098e…09b4              Head {h00=0x0022, h01=0x0050, text=»*           0    0    PTS 6344«, t00=0x0006, t01=0x0034}
0x09b4…09e2              Head {h00=0x002a, h01=0x0050, text=»*           0    1    PTS 6351 & 6342 «, t00=0x0006, t01=0x005a}
0x09e2…0a10              Head {h00=0x002a, h01=0x0050, text=»*           1    0    PTS 6386 & 6385 «, t00=0x0006, t01=0x0088}
0x0a10…0a3e              Head {h00=0x002a, h01=0x0050, text=»*   --------------------------------- «, t00=0x0006, t01=0x00b6}
0x0a3e…0a48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x0a48…0a82              Head {h00=0x0036, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0006, t01=0x00ee}
0x0a82…0aba              Head {h00=0x0034, h01=0x0050, text=»*   -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0006, t01=0x0128}
0x0aba…0aea              Head {h00=0x002c, h01=0x0050, text=»*   -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0006, t01=0x0160}
0x0aea…0b28              Head {h00=0x003a, h01=0x0050, text=»*   -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0006, t01=0x0190}
0x0b28…0b64              Head {h00=0x0038, h01=0x0050, text=»*   -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x003e}
0x0b64…0b8e              Head {h00=0x0026, h01=0x0050, text=»*   -CAN SUPPRESS TRAILING BLANKS «, t00=0x0007, t01=0x007a}
0x0b8e…0bd8              Head {h00=0x0046, h01=0x0050, text=»*    AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0007, t01=0x00a4}
0x0bd8…0be6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00ee}
0x0be6…0bf0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fc}
0x0bf0…0bfa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bfa…0c04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c04…0c0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c0e…0c22              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0124}
0x0c22…0c36              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x0138}
0x0c36…0c4a              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x014c}
0x0c4a…0c54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0160}
0x0c54…0c5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016a}
0x0c5e…0c68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0174}
0x0c68…0c94              Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0007, t01=0x017e}
0x0c94…0cc8              Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x001a}
0x0cc8…0cd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd2…0cdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cdc…0ce6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce6…0cf0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cf0…0d22              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0076}
0x0d22…0d54              Head {h00=0x002e, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES       * «, t00=0x0008, t01=0x00a8}
0x0d54…0d86              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x00da}
0x0d86…0d90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0d9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0116}
0x0d9a…0dc2              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0008, t01=0x0120}
0x0dc2…0df4              Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0008, t01=0x0148}
0x0df4…0e14              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0008, t01=0x017a}
0x0e14…0e56              Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0009, t01=0x000a}
0x0e56…0e74              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x004c}
0x0e74…0ea6              Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0009, t01=0x006a}
0x0ea6…0eda              Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x009c}
0x0eda…0f0e              Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x00d0}
0x0f0e…0f1c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0104}
0x0f1c…0f26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f26…0f46              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x011c}
0x0f46…0f66              Head {h00=0x001c, h01=0x0050, text=»*    DWT PARAMETERS    *«, t00=0x0009, t01=0x013c}
0x0f66…0f86              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x015c}
0x0f86…0f90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017c}
0x0f90…0fac              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x0186}
0x0fac…0fce              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x0012}
0x0fce…0fe8              Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x0034}
0x0fe8…0ff2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004e}
0x0ff2…1000              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0058}
0x1000…1016              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0066}
0x1016…102c              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x007c}
0x102c…1042              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0092}
0x1042…104c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104c…106e              Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000a, t01=0x00b2}
0x106e…1096              Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000a, t01=0x00d4}
0x1096…10bc              Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000a, t01=0x00fc}
0x10bc…10e2              Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000a, t01=0x0122}
0x10e2…110c              Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000a, t01=0x0148}
0x110c…1136              Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000a, t01=0x0172}
0x1136…1156              Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x000c}
0x1156…1172              Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x002c}
0x1172…1192              Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x0048}
0x1192…11be              Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000b, t01=0x0068}
0x11be…11e0              Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x0094}
0x11e0…1204              Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x00b6}
0x1204…1220              Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x00da}
0x1220…1244              Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000b, t01=0x00f6}
0x1244…1266              Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000b, t01=0x011a}
0x1266…1284              Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000b, t01=0x013c}
0x1284…12b6              Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000b, t01=0x015a}
0x12b6…12e4              Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000b, t01=0x018c}
0x12e4…130a              Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x002a}
0x130a…1340              Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x0050}
0x1340…1364              Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000c, t01=0x0086}
0x1364…138c              Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000c, t01=0x00aa}
0x138c…1396              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d2}
0x1396…13b2              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x00dc}
0x13b2…13ce              Head {h00=0x0018, h01=0x0050, text=»*    RETURN CODES  *«, t00=0x000c, t01=0x00f8}
0x13ce…13ea              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0114}
0x13ea…13f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f4…141a              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000c, t01=0x013a}
0x141a…1446              Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000c, t01=0x0160}
0x1446…1450              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018c}
0x1450…145e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x145e…1468              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x1468…1472              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0020}
0x1472…14a4              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x002a}
0x14a4…14d6              Head {h00=0x002e, h01=0x0050, text=»*    CONDITIONAL ASSEMBLY               * «, t00=0x000d, t01=0x005c}
0x14d6…1508              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x008e}
0x1508…1512              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x1512…151c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ca}
0x151c…1568              Head {h00=0x0048, h01=0x0050, text=»*    BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000d, t01=0x00d4}
0x1568…1572              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0120}
0x1572…1584              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000d, t01=0x012a}
0x1584…159a              Head {h00=0x0012, h01=0x0050, text=»GRAFIC EQU X:A«, t00=0x000d, t01=0x013c}
0x159a…15a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0152}
0x15a4…15e4              Head {h00=0x003c, h01=0x0050, text=»*    BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000d, t01=0x015c}
0x15e4…15ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000c}
0x15ee…1600              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x0016}
0x1600…1616              Head {h00=0x0012, h01=0x0050, text=»WHATDY EQU X:B«, t00=0x000e, t01=0x0028}
0x1616…1620              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003e}
0x1620…162a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x162a…1666              Head {h00=0x0038, h01=0x0050, text=»*    BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x0052}
0x1666…1690              Head {h00=0x0026, h01=0x0050, text=»*    (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x008e}
0x1690…16a2              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x00b8}
0x16a2…16b8              Head {h00=0x0012, h01=0x0050, text=»LOWCHA EQU X:C«, t00=0x000e, t01=0x00ca}
0x16b8…16c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e0}
0x16c2…16cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ea}
0x16cc…1708              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x00f4}
0x1708…1744              Head {h00=0x0038, h01=0x0050, text=»*    TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x0130}
0x1744…1780              Head {h00=0x0038, h01=0x0050, text=»*    THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000e, t01=0x016c}
0x1780…178a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0018}
0x178a…179c              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x0022}
0x179c…17b2              Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:D«, t00=0x000f, t01=0x0034}
0x17b2…17bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x004a}
0x17bc…17f0              Head {h00=0x0030, h01=0x0050, text=»*   BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x0054}
0x17f0…1834              Head {h00=0x0040, h01=0x0050, text=»*   POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x0088}
0x1834…183e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00cc}
0x183e…1850              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x00d6}
0x1850…1866              Head {h00=0x0012, h01=0x0050, text=»TRASPA EQU X:E«, t00=0x000f, t01=0x00e8}
0x1866…1874              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00fe}
0x1874…187e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x187e…18b4              Head {h00=0x0032, h01=0x0050, text=»*   BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000f, t01=0x0116}
0x18b4…18d4              Head {h00=0x001c, h01=0x0050, text=»*   INSTEAD OF BLINKING «, t00=0x000f, t01=0x014c}
0x18d4…18e6              Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x016c}
0x18e6…18fc              Head {h00=0x0012, h01=0x0050, text=»STEADY EQU X:F«, t00=0x000f, t01=0x017e}
0x18fc…1906 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1906…1946              Head {h00=0x003c, h01=0x0050, text=»*   THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x000e}
0x1946…1968              Head {h00=0x001e, h01=0x0050, text=»*   BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x004e}
0x1968…1972              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0070}
0x1972…1986              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0010, t01=0x007a}
0x1986…1990              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008e}
0x1990…199a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x199a…19d4              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x00a2}
0x19d4…1a06              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x00dc}
0x1a06…1a10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010e}
0x1a10…1a24              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0010, t01=0x0118}
0x1a24…1a2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012c}
0x1a2e…1a6a              Head {h00=0x0038, h01=0x0050, text=»*   BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0010, t01=0x0136}
0x1a6a…1aaa              Head {h00=0x003c, h01=0x0050, text=»*   TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0010, t01=0x0172}
0x1aaa…1ab2              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0022}
0x1ab2…1aba              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x002a}
0x1aba…1ad0              Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x0032}
0x1ad0…1ad8              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0048}
0x1ad8…1aec              Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x0050}
0x1aec…1b00              Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x0064}
0x1b00…1b14              Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0011, t01=0x0078}
0x1b14…1b22              Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0011, t01=0x008c}
0x1b22…1b32              Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0011, t01=0x009a}
0x1b32…1b42              Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0011, t01=0x00aa}
0x1b42…1b52              Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0011, t01=0x00ba}
0x1b52…1b60              Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0011, t01=0x00ca}
0x1b60…1b6e              Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0011, t01=0x00d8}
0x1b6e…1b7c              Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0011, t01=0x00e6}
0x1b7c…1b8e              Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x00f4}
0x1b8e…1ba6              Head {h00=0x0014, h01=0x0050, text=»COUNTRY EQU X:G «, t00=0x0011, t01=0x0106}
0x1ba6…1bb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011e}
0x1bb0…1bda              Head {h00=0x0026, h01=0x0050, text=»*   MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0011, t01=0x0128}
0x1bda…1be4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0152}
0x1be4…1bee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015c}
0x1bee…1c00              Head {h00=0x000e, h01=0x0050, text=»X:H EQU 64«, t00=0x0011, t01=0x0166}
0x1c00…1c16              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x0011, t01=0x0178}
0x1c16…1c20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018e}
0x1c20…1c2e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0008}
0x1c2e…1c38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0016}
0x1c38…1c42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0020}
0x1c42…1c6a              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x002a}
0x1c6a…1c92              Head {h00=0x0024, h01=0x0050, text=»*    DWT-DISPLACEMENT          *«, t00=0x0012, t01=0x0052}
0x1c92…1cba              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x007a}
0x1cba…1cc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a2}
0x1cc4…1cce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ac}
0x1cce…1d02              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x00b6}
0x1d02…1d0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ea}
0x1d0c…1d22              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x00f4}
0x1d22…1d3a              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0012, t01=0x010a}
0x1d3a…1d46              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0122}
0x1d46…1d50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012e}
0x1d50…1d66              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0138}
0x1d66…1d80              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0012, t01=0x014e}
0x1d80…1d8c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0168}
0x1d8c…1d96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0174}
0x1d96…1dc8              Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0012, t01=0x017e}
0x1dc8…1dee              Head {h00=0x0022, h01=0x0050, text=»DWTPOS EQU START+/15 POSITIONS«, t00=0x0013, t01=0x0020}
0x1dee…1e10              Head {h00=0x001e, h01=0x0050, text=»DWTLIN EQU START+/14 LINES«, t00=0x0013, t01=0x0046}
0x1e10…1e3a              Head {h00=0x0026, h01=0x0050, text=»DWTBIN EQU START+/16 BUFFER INDEX «, t00=0x0013, t01=0x0068}
0x1e3a…1e44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0092}
0x1e44…1e52              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x009c}
0x1e52…1e5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00aa}
0x1e5c…1e66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b4}
0x1e66…1e78              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00be}
0x1e78…1e8a              Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x00d0}
0x1e8a…1e9c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00e2}
0x1e9c…1ea6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f4}
0x1ea6…1eb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fe}
0x1eb0…1ed2              Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0013, t01=0x0108}
0x1ed2…1eee              Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0013, t01=0x012a}
0x1eee…1f0e              Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0146}
0x1f0e…1f32              Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0013, t01=0x0166}
0x1f32…1f5a              Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0013, t01=0x018a}
0x1f5a…1f7e              Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x0022}
0x1f7e…1fa2              Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x0046}
0x1fa2…1fd4              Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x006a}
0x1fd4…1fde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009c}
0x1fde…1fe8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a6}
0x1fe8…2018              Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0014, t01=0x00b0}
0x2018…2038              Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0014, t01=0x00e0}
0x2038…2046              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0100}
0x2046…2050              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010e}
0x2050…2064              Head {h00=0x0010, h01=0x0050, text=»*    A C D Y«, t00=0x0014, t01=0x0118}
0x2064…206e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x012c}
0x206e…209c              Head {h00=0x002a, h01=0x0050, text=»*    ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0014, t01=0x0136}
0x209c…20a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0164}
0x20a6…20f2              Head {h00=0x0048, h01=0x0050, text=»*    ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0014, t01=0x016e}
0x20f2…2128              Head {h00=0x0032, h01=0x0050, text=»*              IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x002a}
0x2128…2132              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0060}
0x2132…213c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006a}
0x213c…217e              Head {h00=0x003e, h01=0x0050, text=»*    ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0015, t01=0x0074}
0x217e…21b8              Head {h00=0x0036, h01=0x0050, text=»*              FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0015, t01=0x00b6}
0x21b8…21c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f0}
0x21c2…220c              Head {h00=0x0046, h01=0x0050, text=»*    ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0015, t01=0x00fa}
0x220c…224c              Head {h00=0x003c, h01=0x0050, text=»*               ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0015, t01=0x0144}
0x224c…2256              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x2256…22a6              Head {h00=0x004c, h01=0x0050, text=»*              IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0015, t01=0x018e}
0x22a6…22f4              Head {h00=0x004a, h01=0x0050, text=»*              ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x004e}
0x22f4…233e              Head {h00=0x0046, h01=0x0050, text=»*              OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0016, t01=0x009c}
0x233e…2348              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2348…235e              Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x00f0}
0x235e…23a4              Head {h00=0x0042, h01=0x0050, text=»*    ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0016, t01=0x0106}
0x23a4…23e8              Head {h00=0x0040, h01=0x0050, text=»*              TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0016, t01=0x014c}
0x23e8…2416              Head {h00=0x002a, h01=0x0050, text=»*              IS SENT TO THE DISPLAY.«, t00=0x0016, t01=0x0190}
0x2416…2420              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002e}
0x2420…242c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0038}
0x242c…246a              Head {h00=0x003a, h01=0x0050, text=»*    ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x0044}
0x246a…24aa              Head {h00=0x003c, h01=0x0050, text=»*              THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0017, t01=0x0082}
0x24aa…24ec              Head {h00=0x003e, h01=0x0050, text=»*              IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0017, t01=0x00c2}
0x24ec…2530              Head {h00=0x0040, h01=0x0050, text=»*              IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0017, t01=0x0104}
0x2530…2554              Head {h00=0x0020, h01=0x0050, text=»*              IS EXECUTED. «, t00=0x0017, t01=0x0148}
0x2554…255e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x255e…259e              Head {h00=0x003c, h01=0x0050, text=»*    ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0017, t01=0x0176}
0x259e…25de              Head {h00=0x003c, h01=0x0050, text=»*              WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x0026}
0x25de…2622              Head {h00=0x0040, h01=0x0050, text=»*              OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x0066}
0x2622…2666              Head {h00=0x0040, h01=0x0050, text=»*              WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0018, t01=0x00aa}
0x2666…26a4              Head {h00=0x003a, h01=0x0050, text=»*              IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0018, t01=0x00ee}
0x26a4…26d2              Head {h00=0x002a, h01=0x0050, text=»*              MAINS IN THAT POSITION.«, t00=0x0018, t01=0x012c}
0x26d2…26e4              Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0018, t01=0x015a}
0x26e4…2708              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0018, t01=0x016c}
0x2708…2722              Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0018, t01=0x0190}
0x2722…273e              Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x001a}
0x273e…2758              Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x0036}
0x2758…277c              Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0019, t01=0x0050}
0x277c…2796              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x0074}
0x2796…27ac              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x008e}
0x27ac…27d2              Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0019, t01=0x00a4}
0x27d2…27f6              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0019, t01=0x00ca}
0x27f6…280e              Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0019, t01=0x00ee}
0x280e…2824              Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0019, t01=0x0106}
0x2824…2840              Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x0019, t01=0x011c}
0x2840…2856              Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x0019, t01=0x0138}
0x2856…2862              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x014e}
0x2862…2878              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x015a}
0x2878…28aa              Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x0019, t01=0x0170}
0x28aa…28c0              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x0012}
0x28c0…28ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28ca…28d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0032}
0x28d6…28e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003e}
0x28e0…28f4              Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001a, t01=0x0048}
0x28f4…290e              Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001a, t01=0x005c}
0x290e…2928              Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001a, t01=0x0076}
0x2928…2944              Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x001a, t01=0x0090}
0x2944…295e              Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001a, t01=0x00ac}
0x295e…297a              Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x001a, t01=0x00c6}
0x297a…2994              Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001a, t01=0x00e2}
0x2994…29b6              Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x001a, t01=0x00fc}
0x29b6…29d0              Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001a, t01=0x011e}
0x29d0…29da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0138}
0x29da…2a04              Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x001a, t01=0x0142}
0x2a04…2a12              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x016c}
0x2a12…2a50              Head {h00=0x003a, h01=0x0050, text=»*    ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001a, t01=0x017a}
0x2a50…2a6e              Head {h00=0x001a, h01=0x0050, text=»*    ARE CARRIED OUT. «, t00=0x001b, t01=0x0028}
0x2a6e…2aa2              Head {h00=0x0030, h01=0x0050, text=»*    /2B            NO MOVING OF PRINT HEAD «, t00=0x001b, t01=0x0046}
0x2aa2…2ac8              Head {h00=0x0022, h01=0x0050, text=»*    /30            CR, LF, LF«, t00=0x001b, t01=0x007a}
0x2ac8…2b0e              Head {h00=0x0042, h01=0x0050, text=»*    /31            ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001b, t01=0x00a0}
0x2b0e…2b30              Head {h00=0x001e, h01=0x0050, text=»*    OTHER VALUE    CR, LF«, t00=0x001b, t01=0x00e6}
0x2b30…2b3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0108}
0x2b3a…2b4e              Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001b, t01=0x0112}
0x2b4e…2b76              Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x0126}
0x2b76…2b8c              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001b, t01=0x014e}
0x2b8c…2bb0              Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001b, t01=0x0164}
0x2bb0…2bd6              Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001b, t01=0x0188}
0x2bd6…2c00              Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x001e}
0x2c00…2c14              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x0048}
0x2c14…2c28              Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001c, t01=0x005c}
0x2c28…2c56              Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001c, t01=0x0070}
0x2c56…2c6c              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001c, t01=0x009e}
0x2c6c…2c84              Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001c, t01=0x00b4}
0x2c84…2c9a              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001c, t01=0x00cc}
0x2c9a…2cbe              Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001c, t01=0x00e2}
0x2cbe…2ce4              Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001c, t01=0x0106}
0x2ce4…2cfa              Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001c, t01=0x012c}
0x2cfa…2d26              Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001c, t01=0x0142}
0x2d26…2d2e              Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x016e}
0x2d2e…2d36              Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0176}
0x2d36…2d5e              Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001c, t01=0x017e}
0x2d5e…2d76              Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001d, t01=0x0016}
0x2d76…2dac              Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x001d, t01=0x002e}
0x2dac…2de8              Head {h00=0x0038, h01=0x0050, text=»*    SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001d, t01=0x0064}
0x2de8…2df2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a0}
0x2df2…2e06              Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001d, t01=0x00aa}
0x2e06…2e2a              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001d, t01=0x00be}
0x2e2a…2e42              Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001d, t01=0x00e2}
0x2e42…2e6c              Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001d, t01=0x00fa}
0x2e6c…2e8a              Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001d, t01=0x0124}
0x2e8a…2eae              Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001d, t01=0x0142}
0x2eae…2ec4              Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001d, t01=0x0166}
0x2ec4…2ef0              Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001d, t01=0x017c}
0x2ef0…2f08              Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001e, t01=0x0018}
0x2f08…2f32              Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001e, t01=0x0030}
0x2f32…2f44              Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001e, t01=0x005a}
0x2f44…2f70              Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001e, t01=0x006c}
0x2f70…2f82              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x0098}
0x2f82…2fac              Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001e, t01=0x00aa}
0x2fac…2fbe              Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001e, t01=0x00d4}
0x2fbe…2fcc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00e6}
0x2fcc…2fd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f4}
0x2fd6…3000              Head {h00=0x0026, h01=0x0050, text=»*    GET, CHECK AND SEND CHARACTER«, t00=0x001e, t01=0x00fe}
0x3000…3022              Head {h00=0x001e, h01=0x0050, text=»*    (IF ORDER 5 NO CHECK)«, t00=0x001e, t01=0x0128}
0x3022…302c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014a}
0x302c…3040              Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001e, t01=0x0154}
0x3040…3056              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001e, t01=0x0168}
0x3056…3080              Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001e, t01=0x017e}
0x3080…3094              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001f, t01=0x0018}
0x3094…30bc              Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001f, t01=0x002c}
0x30bc…30c8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0054}
0x30c8…30dc              Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001f, t01=0x0060}
0x30dc…3112              Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001f, t01=0x0074}
0x3112…313a              Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001f, t01=0x00aa}
0x313a…3154              Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001f, t01=0x00d2}
0x3154…3168              Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x001f, t01=0x00ec}
0x3168…317e              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001f, t01=0x0100}
0x317e…31b4              Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x001f, t01=0x0116}
0x31b4…31ca              Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x001f, t01=0x014c}
0x31ca…31f6              Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x001f, t01=0x0162}
0x31f6…3222              Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x001f, t01=0x018e}
0x3222…324a              Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x002a}
0x324a…3262              Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x0052}
0x3262…3280              Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x006a}
0x3280…329a              Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0020, t01=0x0088}
0x329a…32b6              Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0020, t01=0x00a2}
0x32b6…32d4              Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0020, t01=0x00be}
0x32d4…32ee              Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0020, t01=0x00dc}
0x32ee…330e              Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0020, t01=0x00f6}
0x330e…332a              Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0020, t01=0x0116}
0x332a…3342              Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0020, t01=0x0132}
0x3342…3360              Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0020, t01=0x014a}
0x3360…337e              Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0020, t01=0x0168}
0x337e…33a6              Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0020, t01=0x0186}
0x33a6…33c0              Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0021, t01=0x001e}
0x33c0…33da              Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x0038}
0x33da…33f4              Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x0052}
0x33f4…3410              Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x006c}
0x3410…343c              Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0021, t01=0x0088}
0x343c…3450              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0021, t01=0x00b4}
0x3450…3476              Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0021, t01=0x00c8}
0x3476…349a              Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0021, t01=0x00ee}
0x349a…34bc              Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0021, t01=0x0112}
0x34bc…34d6              Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0021, t01=0x0134}
0x34d6…34f6              Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0021, t01=0x014e}
0x34f6…3510              Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0021, t01=0x016e}
0x3510…351a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0188}
0x351a…3540 (34, 0, 400) Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x0004}
0x3540…354c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x002a}
0x354c…3564              Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0022, t01=0x0036}
0x3564…359e              Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0022, t01=0x004e}
0x359e…35c0              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0022, t01=0x0088}
0x35c0…35d8              Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0022, t01=0x00aa}
0x35d8…35f2              Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0022, t01=0x00c2}
0x35f2…3608              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0022, t01=0x00dc}
0x3608…361c              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x00f2}
0x361c…3640              Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0022, t01=0x0106}
0x3640…3666              Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0022, t01=0x012a}
0x3666…367c              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0022, t01=0x0150}
0x367c…3692              Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0022, t01=0x0166}
0x3692…36b8              Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0022, t01=0x017c}
0x36b8…36dc              Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0023, t01=0x0012}
0x36dc…36f4              Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0023, t01=0x0036}
0x36f4…3716              Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET TABLE PONTER«, t00=0x0023, t01=0x004e}
0x3716…3744              Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0023, t01=0x0070}
0x3744…375a              Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0023, t01=0x009e}
0x375a…3780              Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0023, t01=0x00b4}
0x3780…379a              Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0023, t01=0x00da}
0x379a…37ae              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0023, t01=0x00f4}
0x37ae…37de              Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0023, t01=0x0108}
0x37de…37f0              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0023, t01=0x0138}
0x37f0…3802              Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0023, t01=0x014a}
0x3802…382a              Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0023, t01=0x015c}
0x382a…3840              Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0023, t01=0x0184}
0x3840…3866              Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0024, t01=0x000a}
0x3866…3878              Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0024, t01=0x0030}
0x3878…38a2              Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0024, t01=0x0042}
0x38a2…38b4              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x006c}
0x38b4…38ce              Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0024, t01=0x007e}
0x38ce…38e0              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0024, t01=0x0098}
0x38e0…390c              Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0024, t01=0x00aa}
0x390c…391e              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x00d6}
0x391e…3930              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0024, t01=0x00e8}
0x3930…394e              Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0024, t01=0x00fa}
0x394e…3970              Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0024, t01=0x0118}
0x3970…398a              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0024, t01=0x013a}
0x398a…3994              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0154}
0x3994…39aa              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0024, t01=0x015e}
0x39aa…39d4              Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0024, t01=0x0174}
0x39d4…39e8              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0025, t01=0x000e}
0x39e8…3a1e              Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0025, t01=0x0022}
0x3a1e…3a2a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0058}
0x3a2a…3a40              Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0025, t01=0x0064}
0x3a40…3a56              Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x007a}
0x3a56…3a6a              Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0025, t01=0x0090}
0x3a6a…3a88              Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0025, t01=0x00a4}
0x3a88…3aa6              Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0025, t01=0x00c2}
0x3aa6…3aba              Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0025, t01=0x00e0}
0x3aba…3ace              Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0025, t01=0x00f4}
0x3ace…3ae8              Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0025, t01=0x0108}
0x3ae8…3b0a              Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0025, t01=0x0122}
0x3b0a…3b2c              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0025, t01=0x0144}
0x3b2c…3b50              Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR?  (11) «, t00=0x0025, t01=0x0166}
0x3b50…3b66              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0025, t01=0x018a}
0x3b66…3b88              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0026, t01=0x0010}
0x3b88…3bae              Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0026, t01=0x0032}
0x3bae…3bd2              Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0026, t01=0x0058}
0x3bd2…3be8              Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0026, t01=0x007c}
0x3be8…3bfe              Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0026, t01=0x0092}
0x3bfe…3c38              Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0026, t01=0x00a8}
0x3c38…3c62              Head {h00=0x0026, h01=0x0050, text=»   TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0026, t01=0x00e2}
0x3c62…3c6e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x010c}
0x3c6e…3c80              Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0026, t01=0x0118}
0x3c80…3c8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012a}
0x3c8a…3c94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0134}
0x3c94…3caa              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0026, t01=0x013e}
0x3caa…3cbe              Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0026, t01=0x0154}
0x3cbe…3cde              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0026, t01=0x0168}
0x3cde…3cf2              Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0026, t01=0x0188}
0x3cf2…3d0a              Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0027, t01=0x000c}
0x3d0a…3d20              Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0027, t01=0x0024}
0x3d20…3d40              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x003a}
0x3d40…3d58              Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0027, t01=0x005a}
0x3d58…3d7c              Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0027, t01=0x0072}
0x3d7c…3d90              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x0096}
0x3d90…3db8              Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0027, t01=0x00aa}
0x3db8…3de0              Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0027, t01=0x00d2}
0x3de0…3df4              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0027, t01=0x00fa}
0x3df4…3e14              Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0027, t01=0x010e}
0x3e14…3e2e              Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0027, t01=0x012e}
0x3e2e…3e4e              Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0027, t01=0x0148}
0x3e4e…3e60              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0027, t01=0x0168}
0x3e60…3e80              Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0027, t01=0x017a}
0x3e80…3eb4              Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0028, t01=0x000a}
0x3eb4…3ec8              Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0028, t01=0x003e}
0x3ec8…3ef2              Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0028, t01=0x0052}
0x3ef2…3f0a              Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0028, t01=0x007c}
0x3f0a…3f32              Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0028, t01=0x0094}
0x3f32…3f56              Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0028, t01=0x00bc}
0x3f56…3f6a              Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0028, t01=0x00e0}
0x3f6a…3f8e              Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0028, t01=0x00f4}
0x3f8e…3faa              Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0028, t01=0x0118}
0x3faa…3fce              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0028, t01=0x0134}
0x3fce…3ff0              Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0028, t01=0x0158}
0x3ff0…4004              Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0028, t01=0x017a}
0x4004…4016              Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0028, t01=0x018e}
0x4016…4022              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0010}
0x4022…4030              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x001c}
0x4030…403a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002a}
0x403a…4058              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0029, t01=0x0034}
0x4058…4062              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0052}
0x4062…4076              Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0029, t01=0x005c}
0x4076…408c              Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0029, t01=0x0070}
0x408c…40ac              Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0029, t01=0x0086}
0x40ac…40be              Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0029, t01=0x00a6}
0x40be…40cc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00b8}
0x40cc…40d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c6}
0x40d6…40ee              Head {h00=0x0014, h01=0x0050, text=»*    TABULATION «, t00=0x0029, t01=0x00d0}
0x40ee…40f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x40f8…410c              Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x0029, t01=0x00f2}
0x410c…413c              Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x0029, t01=0x0106}
0x413c…414e              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0029, t01=0x0136}
0x414e…4180              Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x0029, t01=0x0148}
0x4180…4192              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0029, t01=0x017a}
0x4192…41a4              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0029, t01=0x018c}
0x41a4…41ba              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002a, t01=0x000e}
0x41ba…41ee              Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002a, t01=0x0024}
0x41ee…4200              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x0058}
0x4200…4216              Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002a, t01=0x006a}
0x4216…4236              Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x002a, t01=0x0080}
0x4236…4268              Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002a, t01=0x00a0}
0x4268…4280              Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x002a, t01=0x00d2}
0x4280…42b0              Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002a, t01=0x00ea}
0x42b0…42da              Head {h00=0x0026, h01=0x0050, text=»   TO GET NUMBER OF SPACES TO SEND«, t00=0x002a, t01=0x011a}
0x42da…42f0              Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x002a, t01=0x0144}
0x42f0…4302              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x015a}
0x4302…432c              Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002a, t01=0x016c}
0x432c…4348              Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002b, t01=0x0008}
0x4348…4378              Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002b, t01=0x0024}
0x4378…4392              Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002b, t01=0x0054}
0x4392…43ac              Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002b, t01=0x006e}
0x43ac…43c0              Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002b, t01=0x0088}
0x43c0…43ce              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x009c}
0x43ce…43d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00aa}
0x43d8…43f6              Head {h00=0x001a, h01=0x0050, text=»*    ERASE  ORDER /31 «, t00=0x002b, t01=0x00b4}
0x43f6…4400              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d2}
0x4400…4436              Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002b, t01=0x00dc}
0x4436…444c              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002b, t01=0x0112}
0x444c…4472              Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002b, t01=0x0128}
0x4472…4496              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002b, t01=0x014e}
0x4496…44b4              Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002b, t01=0x0172}
0x44b4…44c0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0190}
0x44c0…44ea              Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x000c}
0x44ea…44fe              Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002c, t01=0x0036}
0x44fe…4520              Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002c, t01=0x004a}
0x4520…453a              Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x002c, t01=0x006c}
0x453a…4550              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002c, t01=0x0086}
0x4550…4572              Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002c, t01=0x009c}
0x4572…4588              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x00be}
0x4588…45a4              Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002c, t01=0x00d4}
0x45a4…45ce              Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x00f0}
0x45ce…45d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x011a}
0x45d8…4600              Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002c, t01=0x0124}
0x4600…4622              Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002c, t01=0x014c}
0x4622…463c              Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002c, t01=0x016e}
0x463c…465a              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002c, t01=0x0188}
0x465a…466c              Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002d, t01=0x0016}
0x466c…4686              Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002d, t01=0x0028}
0x4686…46b0              Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x0042}
0x46b0…46d0              Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =2 «, t00=0x002d, t01=0x006c}
0x46d0…46ec              Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =2«, t00=0x002d, t01=0x008c}
0x46ec…470c              Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH «, t00=0x002d, t01=0x00a8}
0x470c…4720              Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002d, t01=0x00c8}
0x4720…473e              Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002d, t01=0x00dc}
0x473e…476e              Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002d, t01=0x00fa}
0x476e…4790              Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002d, t01=0x012a}
0x4790…47ae              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x014c}
0x47ae…47c6              Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002d, t01=0x016a}
0x47c6…47d2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0182}
0x47d2…47e0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x018e}
0x47e0…47ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x000c}
0x47ea…4818              Head {h00=0x002a, h01=0x0050, text=»*    ORDER /B CURSOR POSITIONING PART «, t00=0x002e, t01=0x0016}
0x4818…4822              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0044}
0x4822…4836              Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002e, t01=0x004e}
0x4836…4840              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0062}
0x4840…4856              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002e, t01=0x006c}
0x4856…487c              Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002e, t01=0x0082}
0x487c…48a0              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002e, t01=0x00a8}
0x48a0…48ba              Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002e, t01=0x00cc}
0x48ba…48f0              Head {h00=0x0032, h01=0x0050, text=»*    IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002e, t01=0x00e6}
0x48f0…48fc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x011c}
0x48fc…492a              Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002e, t01=0x0128}
0x492a…495c              Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002e, t01=0x0156}
0x495c…497c              Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002e, t01=0x0188}
0x497c…498e              Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002f, t01=0x0018}
0x498e…49a4              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x002a}
0x49a4…49ba              Head {h00=0x0012, h01=0x0050, text=»*    GET LINE «, t00=0x002f, t01=0x0040}
0x49ba…49e8              Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002f, t01=0x0056}
0x49e8…4a10              Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002f, t01=0x0084}
0x4a10…4a2a              Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002f, t01=0x00ac}
0x4a2a…4a62              Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002f, t01=0x00c6}
0x4a62…4a76              Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x002f, t01=0x00fe}
0x4a76…4a9e              Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x002f, t01=0x0112}
0x4a9e…4ab6              Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x002f, t01=0x013a}
0x4ab6…4ae8              Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x002f, t01=0x0152}
0x4ae8…4b08              Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x002f, t01=0x0184}
0x4b08…4b24              Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0030, t01=0x0014}
0x4b24…4b52              Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0030, t01=0x0030}
0x4b52…4b72              Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0030, t01=0x005e}
0x4b72…4b94              Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0030, t01=0x007e}
0x4b94…4bba              Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0030, t01=0x00a0}
0x4bba…4bcc              Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0030, t01=0x00c6}
0x4bcc…4bde              Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0030, t01=0x00d8}
0x4bde…4bfe              Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0030, t01=0x00ea}
0x4bfe…4c28              Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0030, t01=0x010a}
0x4c28…4c4e              Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x0030, t01=0x0134}
0x4c4e…4c60              Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0030, t01=0x015a}
0x4c60…4c6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016c}
0x4c6a…4c84              Head {h00=0x0016, h01=0x0050, text=»*    GET POSITION «, t00=0x0030, t01=0x0176}
0x4c84…4c8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0190}
0x4c8e…4cc4              Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x0031, t01=0x000a}
0x4cc4…4cf0              Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0031, t01=0x0040}
0x4cf0…4d18              Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x0031, t01=0x006c}
0x4d18…4d32              Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0031, t01=0x0094}
0x4d32…4d58              Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x0031, t01=0x00ae}
0x4d58…4d6c              Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0031, t01=0x00d4}
0x4d6c…4d8e              Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0031, t01=0x00e8}
0x4d8e…4da8              Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0031, t01=0x010a}
0x4da8…4dc8              Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0031, t01=0x0124}
0x4dc8…4de2              Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0031, t01=0x0144}
0x4de2…4e06              Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0031, t01=0x015e}
0x4e06…4e18              Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0031, t01=0x0182}
0x4e18…4e46 (50, 0, 400) Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0032, t01=0x0004}
0x4e46…4e58              Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x0032}
0x4e58…4e8c              Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x0032, t01=0x0044}
0x4e8c…4eae              Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x0032, t01=0x0078}
0x4eae…4ec8              Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0032, t01=0x009a}
0x4ec8…4eda              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0032, t01=0x00b4}
0x4eda…4f08              Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0032, t01=0x00c6}
0x4f08…4f2c              Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0032, t01=0x00f4}
0x4f2c…4f46              Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0032, t01=0x0118}
0x4f46…4f6a              Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0032, t01=0x0132}
0x4f6a…4f94              Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0032, t01=0x0156}
0x4f94…4fb4              Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0032, t01=0x0180}
0x4fb4…4fc6              Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0033, t01=0x0010}
0x4fc6…4ff8              Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0033, t01=0x0022}
0x4ff8…5028              Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0033, t01=0x0054}
0x5028…504c              Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0033, t01=0x0084}
0x504c…506e              Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0033, t01=0x00a8}
0x506e…5098              Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0033, t01=0x00ca}
0x5098…50aa              Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0033, t01=0x00f4}
0x50aa…50d0              Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0033, t01=0x0106}
0x50d0…50ea              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0033, t01=0x012c}
0x50ea…510c              Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0033, t01=0x0146}
0x510c…5122              Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0033, t01=0x0168}
0x5122…515e              Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0033, t01=0x017e}
0x515e…516a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x002a}
0x516a…5194              Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0034, t01=0x0036}
0x5194…51a8              Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0034, t01=0x0060}
0x51a8…51be              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0034, t01=0x0074}
0x51be…51c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x008a}
0x51c8…51f2              Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0034, t01=0x0094}
0x51f2…5208              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0034, t01=0x00be}
0x5208…5212              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d4}
0x5212…521e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00de}
0x521e…5228              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ea}
0x5228…5236              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00f4}
0x5236…5240              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0102}
0x5240…524a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x010c}
0x524a…5286              Head {h00=0x0038, h01=0x0050, text=»*    SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0034, t01=0x0116}
0x5286…52be              Head {h00=0x0034, h01=0x0050, text=»*    WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0034, t01=0x0152}
0x52be…52c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x018a}
0x52c8…52dc (53, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0035, t01=0x0004}
0x52dc…5306              Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0035, t01=0x0018}
0x5306…5320              Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0035, t01=0x0042}
0x5320…533a              Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0035, t01=0x005c}
0x533a…534e              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0035, t01=0x0076}
0x534e…5360              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0035, t01=0x008a}
0x5360…5384              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0035, t01=0x009c}
0x5384…539c              Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0035, t01=0x00c0}
0x539c…53c2              Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0035, t01=0x00d8}
0x53c2…53d8              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x00fe}
0x53d8…5406              Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0035, t01=0x0114}
0x5406…541c              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0035, t01=0x0142}
0x541c…5446              Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0035, t01=0x0158}
0x5446…545c              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x0182}
0x545c…5470              Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0036, t01=0x0008}
0x5470…5498              Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0036, t01=0x001c}
0x5498…54bc              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x0044}
0x54bc…54f0              Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0036, t01=0x0068}
0x54f0…5514              Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0036, t01=0x009c}
0x5514…5534              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0036, t01=0x00c0}
0x5534…5548              Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0036, t01=0x00e0}
0x5548…5564              Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0036, t01=0x00f4}
0x5564…557a              Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY420«, t00=0x0036, t01=0x0110}
0x557a…559e              Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0036, t01=0x0126}
0x559e…55b6              Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0036, t01=0x014a}
0x55b6…55ca              Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0036, t01=0x0162}
0x55ca…55ea              Head {h00=0x001c, h01=0x0050, text=» SUK A7,6 ORDER B ? *DK «, t00=0x0036, t01=0x0176}
0x55ea…5606              Head {h00=0x0018, h01=0x0050, text=» RF(NE) ENDIO NO *DK«, t00=0x0037, t01=0x0008}
0x5606…5636              Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTAP,A6 GET CURSOR POSITION. *DK«, t00=0x0037, t01=0x0024}
0x5636…565c              Head {h00=0x0022, h01=0x0050, text=» ST A4,10,A8 PUT IN ECBCW *DK «, t00=0x0037, t01=0x0054}
0x565c…5680              Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0037, t01=0x007a}
0x5680…56a8              Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0037, t01=0x009e}
0x56a8…56b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c6}
0x56b2…56c8              Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0037, t01=0x00d0}
0x56c8…56d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00e6}
0x56d2…56e0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00f0}
0x56e0…56ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fe}
0x56ea…5704              Head {h00=0x0016, h01=0x0050, text=»*    GRAPHIC PART «, t00=0x0037, t01=0x0108}
0x5704…570e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0122}
0x570e…5722              Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0037, t01=0x012c}
0x5722…5736              Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0037, t01=0x0140}
0x5736…5762              Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0037, t01=0x0154}
0x5762…578c              Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0037, t01=0x0180}
0x578c…57ac              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0038, t01=0x001a}
0x57ac…57c2              Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0038, t01=0x003a}
0x57c2…57d4              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x0050}
0x57d4…57fe              Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0038, t01=0x0062}
0x57fe…5810              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x008c}
0x5810…5834              Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0038, t01=0x009e}
0x5834…5856              Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0038, t01=0x00c2}
0x5856…5860              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e4}
0x5860…587c              Head {h00=0x0018, h01=0x0050, text=»*    ADDRESS MESSAGE«, t00=0x0038, t01=0x00ee}
0x587c…5886              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x010a}
0x5886…58aa              Head {h00=0x0020, h01=0x0050, text=»*    SET FIRST OUT PUT IN A2«, t00=0x0038, t01=0x0114}
0x58aa…58c8              Head {h00=0x001a, h01=0x0050, text=»*    AND SECOND IN A4 «, t00=0x0038, t01=0x0138}
0x58c8…58d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0156}
0x58d2…58e4              Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0038, t01=0x0160}
0x58e4…58f6              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x0172}
0x58f6…5908              Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0038, t01=0x0184}
0x5908…591a              Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0039, t01=0x0008}
0x591a…592c              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0039, t01=0x001a}
0x592c…5940              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0039, t01=0x002c}
0x5940…5954              Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0039, t01=0x0040}
0x5954…5984              Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0039, t01=0x0054}
0x5984…59ac              Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x0039, t01=0x0084}
0x59ac…59d8              Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x0039, t01=0x00ac}
0x59d8…59ea              Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x0039, t01=0x00d8}
0x59ea…59f8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00ea}
0x59f8…5a02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f8}
0x5a02…5a1c              Head {h00=0x0016, h01=0x0050, text=»*    DATA MESSAGE «, t00=0x0039, t01=0x0102}
0x5a1c…5a26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x011c}
0x5a26…5a4c              Head {h00=0x0022, h01=0x0050, text=»*    FIRST OUTPUT IS SET IN A2«, t00=0x0039, t01=0x0126}
0x5a4c…5a6a              Head {h00=0x001a, h01=0x0050, text=»*    AND SECOND IN A4 «, t00=0x0039, t01=0x014c}
0x5a6a…5a74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x016a}
0x5a74…5a8c              Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x0039, t01=0x0174}
0x5a8c…5a9e              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x018c}
0x5a9e…5ab0              Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003a, t01=0x000e}
0x5ab0…5ac2              Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003a, t01=0x0020}
0x5ac2…5ad4              Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003a, t01=0x0032}
0x5ad4…5ae6              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x0044}
0x5ae6…5afe              Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003a, t01=0x0056}
0x5afe…5b14              Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003a, t01=0x006e}
0x5b14…5b2a              Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003a, t01=0x0084}
0x5b2a…5b42              Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003a, t01=0x009a}
0x5b42…5b58              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003a, t01=0x00b2}
0x5b58…5b6a              Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003a, t01=0x00c8}
0x5b6a…5b7c              Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003a, t01=0x00da}
0x5b7c…5b94              Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003a, t01=0x00ec}
0x5b94…5ba6              Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003a, t01=0x0104}
0x5ba6…5bba              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003a, t01=0x0116}
0x5bba…5bcc              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003a, t01=0x012a}
0x5bcc…5be0              Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003a, t01=0x013c}
0x5be0…5bf2              Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003a, t01=0x0150}
0x5bf2…5bfc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0162}
0x5bfc…5c08              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x016c}
0x5c08…5c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0178}
0x5c12…5c20              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0182}
0x5c20…5c2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0190}
0x5c2a…5c5a              Head {h00=0x002c, h01=0x0050, text=»*    UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003b, t01=0x000a}
0x5c5a…5c8a              Head {h00=0x002c, h01=0x0050, text=»*             POSITION POINTER WHEN END «, t00=0x003b, t01=0x003a}
0x5c8a…5cb6              Head {h00=0x0028, h01=0x0050, text=»*             OF REQUEST IS REACHED «, t00=0x003b, t01=0x006a}
0x5cb6…5cca              Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003b, t01=0x0096}
0x5cca…5cf6              Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x003b, t01=0x00aa}
0x5cf6…5d2c              Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x003b, t01=0x00d6}
0x5d2c…5d3e              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003b, t01=0x010c}
0x5d3e…5d6e              Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET  POSITION COUNTER «, t00=0x003b, t01=0x011e}
0x5d6e…5d7e              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003b, t01=0x014e}
0x5d7e…5d88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015e}
0x5d88…5dc2              Head {h00=0x0036, h01=0x0050, text=»*    POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003b, t01=0x0168}
0x5dc2…5df6              Head {h00=0x0030, h01=0x0050, text=»*             POINTER WHEN REQUEST RUNNING. «, t00=0x003c, t01=0x0012}
0x5df6…5e38              Head {h00=0x003e, h01=0x0050, text=»*             A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003c, t01=0x0046}
0x5e38…5e42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0088}
0x5e42…5e56              Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003c, t01=0x0092}
0x5e56…5e82              Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x003c, t01=0x00a6}
0x5e82…5e96              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003c, t01=0x00d2}
0x5e96…5ecc              Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x003c, t01=0x00e6}
0x5ecc…5ee0              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003c, t01=0x011c}
0x5ee0…5f06              Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x003c, t01=0x0130}
0x5f06…5f1c              Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003c, t01=0x0156}
0x5f1c…5f4c              Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x003c, t01=0x016c}
0x5f4c…5f62              Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003d, t01=0x000c}
0x5f62…5f70              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0022}
0x5f70…5f7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0030}
0x5f7a…5f8e              Head {h00=0x0010, h01=0x0050, text=»*    I H D Y«, t00=0x003d, t01=0x003a}
0x5f8e…5f98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x004e}
0x5f98…5fae              Head {h00=0x0012, h01=0x0050, text=»*    INTERRUPT«, t00=0x003d, t01=0x0058}
0x5fae…5fb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x006e}
0x5fb8…5fca              Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003d, t01=0x0078}
0x5fca…5fe8              Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003d, t01=0x008a}
0x5fe8…5ffe              Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003d, t01=0x00a8}
0x5ffe…601c              Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003d, t01=0x00be}
0x601c…6032              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003d, t01=0x00dc}
0x6032…6064              Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003d, t01=0x00f2}
0x6064…607e              Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003d, t01=0x0124}
0x607e…60b6              Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003d, t01=0x013e}
0x60b6…60c4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0176}
0x60c4…60ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0184}
0x60ce…60e2              Head {h00=0x0010, h01=0x0050, text=»*    R C D Y«, t00=0x003d, t01=0x018e}
0x60e2…60ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0012}
0x60ec…6118              Head {h00=0x0028, h01=0x0050, text=»*    RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003e, t01=0x001c}
0x6118…6122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0048}
0x6122…612c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0052}
0x612c…6158              Head {h00=0x0028, h01=0x0050, text=»*    RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003e, t01=0x005c}
0x6158…6178              Head {h00=0x001c, h01=0x0050, text=»*    ORDER 6 IS RUNNING «, t00=0x003e, t01=0x0088}
0x6178…6182              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a8}
0x6182…6198              Head {h00=0x0012, h01=0x0050, text=»*    AT ENTRY:«, t00=0x003e, t01=0x00b2}
0x6198…61a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00c8}
0x61a2…61c0              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x003e, t01=0x00d2}
0x61c0…61d8              Head {h00=0x0014, h01=0x0050, text=»*    A7 = ORDER «, t00=0x003e, t01=0x00f0}
0x61d8…61f6              Head {h00=0x001a, h01=0x0050, text=»*    A8 = ECB-ADDRESS «, t00=0x003e, t01=0x0108}
0x61f6…6208              Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003e, t01=0x0126}
0x6208…621e              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003e, t01=0x0138}
0x621e…6248              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003e, t01=0x014e}
0x6248…6254              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0178}
0x6254…625e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0184}
0x625e…6274              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003e, t01=0x018e}
0x6274…629a              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x003f, t01=0x0014}
0x629a…62a6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x003a}
0x62a6…62b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0046}
0x62b0…62be              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x003f, t01=0x0050}
0x62be…62d4              Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003f, t01=0x005e}
0x62d4…62f6              Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x003f, t01=0x0074}
0x62f6…6304              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x0096}
0x6304…6312              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x00a4}
0x6312…6320              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x00b2}
0x6320…632e              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x00c0}
0x632e…633c              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x00ce}
0x633c…634a              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x00dc}
0x634a…6358              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x00ea}
0x6358…6366              Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x003f, t01=0x00f8}
0x6366…6370              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0106}
0x6370…6386              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x003f, t01=0x0110}
0x6386…6390              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0126}
0x6390…63b6              Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x003f, t01=0x0130}
0x63b6…63dc              Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x003f, t01=0x0156}
0x63dc…63f4              Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x003f, t01=0x017c}
0x63f4…6426 (64, 0, 400) Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0040, t01=0x0004}
0x6426…643c              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0036}
0x643c…6446              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x004c}
0x6446…6452              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0056}
0x6452…645c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0062}
0x645c…646a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x006c}
0x646a…647e              Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0040, t01=0x007a}
0x647e…64a0              Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0040, t01=0x008e}
0x64a0…64b6              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x00b0}
0x64b6…64de              Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x0040, t01=0x00c6}
0x64de…64f4              Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x0040, t01=0x00ee}
0x64f4…650e              Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0  =1 «, t00=0x0040, t01=0x0104}
0x650e…6530              Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0  =1 «, t00=0x0040, t01=0x011e}
0x6530…655e              Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0040, t01=0x0140}
0x655e…6584              Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0040, t01=0x016e}
0x6584…65a0 (65, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0041, t01=0x0004}
0x65a0…65ce              Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0041, t01=0x0020}
0x65ce…6606              Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0041, t01=0x004e}
0x6606…6636              Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0041, t01=0x0086}
0x6636…665e              Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0041, t01=0x00b6}
0x665e…6688              Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0041, t01=0x00de}
0x6688…66b8              Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0041, t01=0x0108}
0x66b8…66ea              Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0041, t01=0x0138}
0x66ea…6704              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT  =1 «, t00=0x0041, t01=0x016a}
0x6704…6732              Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0041, t01=0x0184}
0x6732…674a              Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30  =1 «, t00=0x0042, t01=0x0022}
0x674a…6764              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT  =1 «, t00=0x0042, t01=0x003a}
0x6764…6772              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0042, t01=0x0054}
0x6772…6780              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0042, t01=0x0062}
0x6780…6798              Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU *  =3«, t00=0x0042, t01=0x0070}
0x6798…67aa              Head {h00=0x000e, h01=0x0050, text=» XIF   =1 «, t00=0x0042, t01=0x0088}
0x67aa…67d6              Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0042, t01=0x009a}
0x67d6…67fc              Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0042, t01=0x00c6}
0x67fc…6816              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0042, t01=0x00ec}
0x6816…682c              Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0042, t01=0x0106}
0x682c…6866              Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x0042, t01=0x011c}
0x6866…6888              Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0042, t01=0x0156}
0x6888…68a6              Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0042, t01=0x0178}
0x68a6…68cc              Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0043, t01=0x0008}
0x68cc…68e6              Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0043, t01=0x002e}
0x68e6…68f4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0048}
0x68f4…68fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0056}
0x68fe…692a              Head {h00=0x0028, h01=0x0050, text=»*    LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0043, t01=0x0060}
0x692a…6934              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x008c}
0x6934…6948              Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0043, t01=0x0096}
0x6948…6964              Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0043, t01=0x00aa}
0x6964…697e              Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0043, t01=0x00c6}
0x697e…69aa              Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0043, t01=0x00e0}
0x69aa…69bc              Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0043, t01=0x010c}
0x69bc…69e6              Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x0043, t01=0x011e}
0x69e6…69fc              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0043, t01=0x0148}
0x69fc…6a34              Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x0043, t01=0x015e}
0x6a34…6a48              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0044, t01=0x0008}
0x6a48…6a5e              Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0044, t01=0x001c}
0x6a5e…6a90              Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0044, t01=0x0032}
0x6a90…6ab4              Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0044, t01=0x0064}
0x6ab4…6ace              Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0044, t01=0x0088}
0x6ace…6adc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00a2}
0x6adc…6ae6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b0}
0x6ae6…6afe              Head {h00=0x0014, h01=0x0050, text=»*    E C H O D Y«, t00=0x0044, t01=0x00ba}
0x6afe…6b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00d2}
0x6b08…6b3c              Head {h00=0x0030, h01=0x0050, text=»*    ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0044, t01=0x00dc}
0x6b3c…6b46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0110}
0x6b46…6b5a              Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0044, t01=0x011a}
0x6b5a…6b72              Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0044, t01=0x012e}
0x6b72…6b8c              Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0044, t01=0x0146}
0x6b8c…6bae              Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0044, t01=0x0160}
0x6bae…6bb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0182}
0x6bb8…6bce              Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0044, t01=0x018c}
0x6bce…6bd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0012}
0x6bd8…6bec              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0045, t01=0x001c}
0x6bec…6c14              Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0045, t01=0x0030}
0x6c14…6c28              Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0045, t01=0x0058}
0x6c28…6c32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x006c}
0x6c32…6c3e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0076}
0x6c3e…6c48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0082}
0x6c48…6c5a              Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0045, t01=0x008c}
0x6c5a…6c7a              Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0045, t01=0x009e}
0x6c7a…6c8e              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0045, t01=0x00be}
0x6c8e…6caa              Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0045, t01=0x00d2}
0x6caa…6cd4              Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0045, t01=0x00ee}
0x6cd4…6d04              Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0045, t01=0x0118}
0x6d04…6d16              Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0045, t01=0x0148}
0x6d16…6d4e              Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0045, t01=0x015a}
0x6d4e…6d7a (70, 0, 400) Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0046, t01=0x0004}
0x6d7a…6d84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0030}
0x6d84…6d9a              Head {h00=0x0012, h01=0x0050, text=»*    BACKSPACE«, t00=0x0046, t01=0x003a}
0x6d9a…6da4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0050}
0x6da4…6db8              Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0046, t01=0x005a}
0x6db8…6de4              Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x006e}
0x6de4…6df8              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0046, t01=0x009a}
0x6df8…6e1c              Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0046, t01=0x00ae}
0x6e1c…6e44              Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0046, t01=0x00d2}
0x6e44…6e5e              Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0046, t01=0x00fa}
0x6e5e…6e70              Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0046, t01=0x0114}
0x6e70…6e7e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0126}
0x6e7e…6e88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0134}
0x6e88…6e9a              Head {h00=0x000e, h01=0x0050, text=»*    CLEAR«, t00=0x0046, t01=0x013e}
0x6e9a…6ea4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0150}
0x6ea4…6eb8              Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0046, t01=0x015a}
0x6eb8…6ee4              Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x016e}
0x6ee4…6ef8              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x000a}
0x6ef8…6f1c              Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x001e}
0x6f1c…6f32              Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0047, t01=0x0042}
0x6f32…6f5c              Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0047, t01=0x0058}
0x6f5c…6f7e              Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0047, t01=0x0082}
0x6f7e…6f96              Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0047, t01=0x00a4}
0x6f96…6fb0              Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x00bc}
0x6fb0…6fc2              Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x00d6}
0x6fc2…6fce              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00e8}
0x6fce…6ffc              Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0047, t01=0x00f4}
0x6ffc…7036              Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0047, t01=0x0122}
0x7036…7056              Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0047, t01=0x015c}
0x7056…7078              Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0047, t01=0x017c}
0x7078…709c              Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0048, t01=0x000e}
0x709c…70b0              Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0048, t01=0x0032}
0x70b0…70d2              Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0048, t01=0x0046}
0x70d2…70e4              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x0068}
0x70e4…7112              Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0048, t01=0x007a}
0x7112…7124              Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x00a8}
0x7124…7132              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x00ba}
0x7132…713c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c8}
0x713c…7146              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00d2}
0x7146…717a              Head {h00=0x0030, h01=0x0050, text=»*    BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0048, t01=0x00dc}
0x717a…71ae              Head {h00=0x0030, h01=0x0050, text=»*             AT THE PLACE BEFORE REQUEST IF«, t00=0x0048, t01=0x0110}
0x71ae…71e2              Head {h00=0x0030, h01=0x0050, text=»*             CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0048, t01=0x0144}
0x71e2…7202              Head {h00=0x001c, h01=0x0050, text=»*             BACKSPACE.«, t00=0x0048, t01=0x0178}
0x7202…720c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0008}
0x720c…7220              Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0049, t01=0x0012}
0x7220…7232              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0049, t01=0x0026}
0x7232…725e              Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0049, t01=0x0038}
0x725e…7272              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0064}
0x7272…72a4              Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x0049, t01=0x0078}
0x72a4…72b8              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x00aa}
0x72b8…72de              Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x0049, t01=0x00be}
0x72de…72f8              Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x0049, t01=0x00e4}
0x72f8…7320              Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0049, t01=0x00fe}
0x7320…7332              Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x0049, t01=0x0126}
0x7332…7358              Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x0049, t01=0x0138}
0x7358…7372              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0049, t01=0x015e}
0x7372…739a              Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0049, t01=0x0178}
0x739a…73b4              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0010}
0x73b4…73d4              Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x002a}
0x73d4…73f4              Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004a, t01=0x004a}
0x73f4…7406              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004a, t01=0x006a}
0x7406…741c              Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004a, t01=0x007c}
0x741c…743e              Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004a, t01=0x0092}
0x743e…746e              Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x004a, t01=0x00b4}
0x746e…747e              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004a, t01=0x00e4}
0x747e…748c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x00f4}
0x748c…74c4              Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004a, t01=0x0102}
0x74c4…74fc              Head {h00=0x0034, h01=0x0050, text=»*   CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004a, t01=0x013a}
0x74fc…7534              Head {h00=0x0034, h01=0x0050, text=»*           ORDER TO GET A REASON FOR USING   * «, t00=0x004a, t01=0x0172}
0x7534…756c              Head {h00=0x0034, h01=0x0050, text=»*           'FAST OUTPUT FACILITY' ON 6344    * «, t00=0x004b, t01=0x001a}
0x756c…75a4              Head {h00=0x0034, h01=0x0050, text=»*            AND 6386                          *«, t00=0x004b, t01=0x0052}
0x75a4…75dc              Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x008a}
0x75dc…75f0              Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004b, t01=0x00c2}
0x75f0…75fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d6}
0x75fa…7604              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e0}
0x7604…7618              Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004b, t01=0x00ea}
0x7618…763a              Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004b, t01=0x00fe}
0x763a…7656              Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004b, t01=0x0120}
0x7656…7686              Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004b, t01=0x013c}
0x7686…76b2              Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004b, t01=0x016c}
0x76b2…76d2              Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004c, t01=0x0008}
0x76d2…76fa              Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004c, t01=0x0028}
0x76fa…771a              Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004c, t01=0x0050}
0x771a…7732              Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004c, t01=0x0070}
0x7732…7756              Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004c, t01=0x0088}
0x7756…777e              Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004c, t01=0x00ac}
0x777e…7796              Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004c, t01=0x00d4}
0x7796…77a8              Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004c, t01=0x00ec}
0x77a8…77e2              Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004c, t01=0x00fe}
0x77e2…77fc              Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004c, t01=0x0138}
0x77fc…7826              Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004c, t01=0x0152}
0x7826…7850              Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x004c, t01=0x017c}
0x7850…7880              Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x004d, t01=0x0016}
0x7880…7898              Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x004d, t01=0x0046}
0x7898…78ac              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x005e}
0x78ac…78d2              Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x004d, t01=0x0072}
0x78d2…78f6              Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTBIN,A6 SAVE INDEX «, t00=0x004d, t01=0x0098}
0x78f6…792a              Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x004d, t01=0x00bc}
0x792a…7948              Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x004d, t01=0x00f0}
0x7948…795a              Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x004d, t01=0x010e}
0x795a…796e              Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x004d, t01=0x0120}
0x796e…7980              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x004d, t01=0x0134}
0x7980…7992              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004d, t01=0x0146}
0x7992…79be              Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x004d, t01=0x0158}
0x79be…79de              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004d, t01=0x0184}
0x79de…79fe              Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x004e, t01=0x0014}
0x79fe…7a22              Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x004e, t01=0x0034}
0x7a22…7a38              Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x004e, t01=0x0058}
0x7a38…7a4e              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004e, t01=0x006e}
0x7a4e…7a64              Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x004e, t01=0x0084}
0x7a64…7a8a              Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x004e, t01=0x009a}
0x7a8a…7a9e              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004e, t01=0x00c0}
0x7a9e…7aca              Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x004e, t01=0x00d4}
0x7aca…7ae0              Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x004e, t01=0x0100}
0x7ae0…7b06              Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x004e, t01=0x0116}
0x7b06…7b2c              Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x004e, t01=0x013c}
0x7b2c…7b5a              Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTBIN,A6 RESTORE BUFFER INDEX «, t00=0x004e, t01=0x0162}
0x7b5a…7b6c              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004e, t01=0x0190}
0x7b6c…7b8e              Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x004f, t01=0x0012}
0x7b8e…7b98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0034}
0x7b98…7bca              Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x004f, t01=0x003e}
0x7bca…7bde              Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x004f, t01=0x0070}
0x7bde…7bec              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0084}
0x7bec…7bf6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0092}
0x7bf6…7c00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x009c}
0x7c00…7c40              Head {h00=0x003c, h01=0x0050, text=»*    FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x004f, t01=0x00a6}
0x7c40…7c78              Head {h00=0x0034, h01=0x0050, text=»*             AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x004f, t01=0x00e6}
0x7c78…7c82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x011e}
0x7c82…7c96              Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x004f, t01=0x0128}
0x7c96…7caa              Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x004f, t01=0x013c}
0x7caa…7cdc              Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x004f, t01=0x0150}
0x7cdc…7cf0              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x004f, t01=0x0182}
0x7cf0…7d04              Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0050, t01=0x0008}
0x7d04…7d24              Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0050, t01=0x001c}
0x7d24…7d46              Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0050, t01=0x003c}
0x7d46…7d60              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x005e}
0x7d60…7d7e              Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0050, t01=0x0078}
0x7d7e…7d98              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x0096}
0x7d98…7daa              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x00b0}
0x7daa…7dc4              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x00c2}
0x7dc4…7dd4              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x00dc}
0x7dd4…7de2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x00ec}
0x7de2…7dec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00fa}
0x7dec…7df6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0104}
0x7df6…7e24              Head {h00=0x002a, h01=0x0050, text=»*    CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0050, t01=0x010e}
0x7e24…7e66              Head {h00=0x003e, h01=0x0050, text=»*             AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0050, t01=0x013c}
0x7e66…7e70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x017e}
0x7e70…7e84              Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0050, t01=0x0188}
0x7e84…7ea2              Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0051, t01=0x000c}
0x7ea2…7ec2              Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0051, t01=0x002a}
0x7ec2…7edc              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x004a}
0x7edc…7efc              Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0051, t01=0x0064}
0x7efc…7f0e              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0051, t01=0x0084}
0x7f0e…7f2a              Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0051, t01=0x0096}
0x7f2a…7f40              Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0051, t01=0x00b2}
0x7f40…7f54              Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0051, t01=0x00c8}
0x7f54…7f66              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0051, t01=0x00dc}
0x7f66…7f90              Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0051, t01=0x00ee}
0x7f90…7fa2              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0051, t01=0x0118}
0x7fa2…7fc2              Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0051, t01=0x012a}
0x7fc2…7fd6              Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0051, t01=0x014a}
0x7fd6…7fe8              Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0051, t01=0x015e}
0x7fe8…7ffc              Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0051, t01=0x0170}
0x7ffc…801a              Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0051, t01=0x0184}
0x801a…802e              Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0052, t01=0x0012}
0x802e…8052              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0052, t01=0x0026}
0x8052…8062              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x004a}
0x8062…8070              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x005a}
0x8070…807e              Head {h00=0x000a, h01=0x0050, text=»*   =2«, t00=0x0052, t01=0x0068}
0x807e…808c              Head {h00=0x000a, h01=0x0050, text=»*   =2«, t00=0x0052, t01=0x0076}
0x808c…809a              Head {h00=0x000a, h01=0x0050, text=»*   =2«, t00=0x0052, t01=0x0084}
0x809a…80d6              Head {h00=0x0038, h01=0x0050, text=»*   ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT  =2«, t00=0x0052, t01=0x0092}
0x80d6…80e4              Head {h00=0x000a, h01=0x0050, text=»*   =2«, t00=0x0052, t01=0x00ce}
0x80e4…80f2              Head {h00=0x000a, h01=0x0050, text=»*   =2«, t00=0x0052, t01=0x00dc}
0x80f2…8126              Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER  =2 «, t00=0x0052, t01=0x00ea}
0x8126…8158              Head {h00=0x002e, h01=0x0050, text=»* AT EXIT  A4 = CHAR TO END OF SCREEN  =2 «, t00=0x0052, t01=0x011e}
0x8158…8166              Head {h00=0x000a, h01=0x0050, text=»*   =2«, t00=0x0052, t01=0x0150}
0x8166…817c              Head {h00=0x0012, h01=0x0050, text=»ERA EQU *  =2 «, t00=0x0052, t01=0x015e}
0x817c…81a2              Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTPOS,A6 MAX CHAR. =2 «, t00=0x0052, t01=0x0174}
0x81a2…81c6              Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0053, t01=0x000a}
0x81c6…81fa              Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 «, t00=0x0053, t01=0x002e}
0x81fa…8212              Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF  =2 «, t00=0x0053, t01=0x0062}
0x8212…8248              Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0053, t01=0x007a}
0x8248…826c              Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH  =2 «, t00=0x0053, t01=0x00b0}
0x826c…8290              Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0053, t01=0x00d4}
0x8290…82ac              Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0053, t01=0x00f8}
0x82ac…82de              Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0053, t01=0x0114}
0x82de…8302              Head {h00=0x0020, h01=0x0050, text=» LDKL A3,/FFFF SET OVER EDGE«, t00=0x0053, t01=0x0146}
0x8302…8328              Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0053, t01=0x016a}
0x8328…8342              Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0053, t01=0x0190}
0x8342…8366              Head {h00=0x0020, h01=0x0050, text=»ABDY EQU * ABORT ROUTINE =4 «, t00=0x0054, t01=0x001a}
0x8366…8396              Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =4«, t00=0x0054, t01=0x003e}
0x8396…83ba              Head {h00=0x0020, h01=0x0050, text=» RTN A15 RETURN TO CALLER =4«, t00=0x0054, t01=0x006e}
0x83ba…83c6              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0054, t01=0x0092}
0x83c6…83ca              Head {h00=0x4004, h01=0x0000}
0x83ca…83ce              00 54 00 9e                                                                                                                                                                                                                                       ┆ T  ┆
0x83ce…83d6 (85, 1, 8)   20 04 00 00 00 55 00 04                                                                                                                                                                                                                           ┆     U  ┆
0x83d6…8426 (86, 2, 400) a8 52 45 47 47 4f 00 04 02 1d c8 44 43 54 41 53 4b 44 c8 47 45 54 54 49 44 41 a8 50 52 49 4e 54 88 54 31 47 4f 2d c8 54 3a 44 53 43 30 31 c8 54 3a 50 41 55 53 2e c8 54 3a 52 53 54 52 31 a8 56 44 55 4b 42 07 04 00 00 00 58 00 5b 00 00 01 3e   ┆ REGGO     DCTASKD GETTIDA PRINT T1GO- T:DSC01 T:PAUS. T:RSTR1 VDUKB     X [   >┆
0x8426…8476              41 44 4d 36 20 20 02 a6 00 0e 00 0e 38 30 30 32 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 00 05 1e c8 41 44 4d 36 30 30 4d 00 00 c8 43 48 4e 47 44 4b 44 00 b1 c8 45 58 43 48 41 4e 2d 02 74 c8 53 45 4e 44 52 43 31 01 69 c8 53 49 47 4e 4f   ┆ADM6        800205       $$$TRA    ADM600M   CHNGDKD   EXCHAN- t SENDRC1 i SIGNO┆
0x8476…84c6              46 58 02 54 c8 53 49 47 4e 4f 4e 20 00 64 05 12 c8 53 54 52 54 52 43 00 01 22 c8 54 45 52 4d 49 4e 45 02 39 a8 54 52 4e 4f 4b 02 b9 88 57 4a 44 43 53 02 d8 02 1f c8 41 44 4d 52 45 54 4d c8 41 53 47 56 4f 4c 44 a8 42 43 4b 55 50 c8 43 4c 53   ┆FX T SIGNON  d   STRTRC  " TERMINE 9 TRNOK   WJDCS     ADMRETM ASGVOLD BCKUP CLS┆
0x84c6…8516              56 4f 4c 74 c8 47 45 54 42 49 54 31 c8 4c 41 4d 50 4f 46 4f c8 4c 41 4d 50 4f 4e 47 c8 52 41 52 45 41 44 20 02 1e c8 52 41 57 52 49 54 00 c8 53 4c 55 54 49 44 49 a8 53 4f 50 52 44 c8 53 50 43 4c 52 53 57 a8 53 50 45 52 52 c8 54 3a 41 54 54   ┆VOLt GETBIT1 LAMPOFO LAMPONG RAREAD    RAWRIT  SLUTIDI SOPRD SPCLRSW SPERR T:ATT┆
0x8516…8566              46 47 c8 54 3a 44 43 52 45 52 c8 54 3a 44 43 57 52 00 02 18 c8 54 3a 44 45 4c 41 4d c8 54 3a 44 53 43 31 44 c8 54 3a 45 44 57 52 43 c8 54 3a 57 41 49 54 47 c8 57 52 49 54 49 44 4c c8 57 52 49 54 4a 54 4c 07 04 00 00 00 20 03 7c 00 00 ff fe   ┆FG T:DCRER T:DCWR    T:DELAM T:DSC1D T:EDWRC T:WAITG WRITIDL WRITJTL       |    ┆
0x8566…8568 (87, 0, 2)   1a 18                                                                                                                                                                                                                                             ┆  ┆
0x8568…8570 (88, 1, 8)   20 04 00 00 00 00 00 04                                                                                                                                                                                                                           ┆        ┆
0x8570…85c0 (89, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 10 01 74 00 2a 00 26 03 12 00 00 00 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 00 12 00 2a 00 26 03 12 00 00 00 97 00 00 00 00 00 00 00 00 00 00   ┆             t * &     y                                     * &                ┆
0x85c0…8610              00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 00 40 00 2a 00 26 03 12 00 00 00 b5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 00 6e 00 2a 00 26 03 12 00 00   ┆                         @ * &                                         n * &    ┆
0x8610…8660              00 d3 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4a 2d 41 4d 54 00 11 00 9c 00 12 00 26 03 12 00 00 00 f1 00 00 b0 02 01 08 02 20 00 11 00 ca 00 0c 00 26 03 12 00 00 01 0f 00 00 00 11 00 e0 00 0c 00 26   ┆                            NJ-AMT       &                     &               &┆
0x8660…86b0              03 12 00 00 01 2d 00 00 00 11 00 f0 00 0c 00 26 03 12 00 00 01 4b 00 00 00 11 01 00 00 2a 00 26 03 12 00 00 01 69 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 30 30 38 39 39 20 20 20 20 20 30 b0 01 00 11 01 10 00 2a 00 26 03 12   ┆     -         &     K       * &     i                 0000899     0       * &  ┆
0x86b0…8700              00 00 01 87 00 00 d0 01 b0 02 d0 01 b0 03 d0 01 b0 04 d0 01 b0 05 d0 01 b0 06 d0 01 b0 07 d0 01 b0 08 d0 01 00 11 01 3e 00 2a 00 26 03 12 00 00 01 a5 00 00 b0 09 d0 01 b0 10 d0 01 b0 12 d0 01 b0 40 d0 01 b0 41 d0 01 b0 42 d0 01 b0 45 d0 01   ┆                                       > * &                     @   A   B   E  ┆
0x8700…8750 (90, 0, 400) b0 46 00 11 01 6c 00 2a 00 26 03 12 00 00 01 c3 00 00 d0 01 b0 47 d0 01 b0 48 d0 01 b0 49 d0 01 b0 50 d0 01 b0 51 d0 01 b0 52 d0 01 b0 53 d0 01 00 12 00 0a 00 14 00 10 03 07 00 00 01 e1 00 00 b0 54 d0 01 d0 01 d0 01 00 12 00 38 00 10 00 0c   ┆ F   l * &           G   H   I   P   Q   R   S                   T         8    ┆
0x8750…87a0              04 05 00 00 00 01 01 e8 00 03 00 00 00 12 00 50 00 0e 00 0a 07 04 00 00 01 e1 01 e8 00 00 00 12 00 64 00 3a 00 48 20 49 44 45 4e 54 20 44 3a 43 42 34 30 20 20 54 52 41 20 34 2e 31 20 20 38 30 2d 30 31 2d 32 32 20 46 31 20 4f 31 31 31 31 20   ┆               P                 d : H IDENT D:CB40  TRA 4.1  80-01-22 F1 O1111 ┆
0x87a0…87f0              20 30 32 2e 30 31 2e 58 58 58 2e 31 00 12 00 76 00 0e 00 0a 01 04 c8 44 3a 43 42 34 30 00 00 12 00 b4 00 10 00 0c 05 05 c8 44 3a 43 42 34 30 43 00 02 00 12 00 c6 00 2a 00 26 03 12 00 00 00 01 00 00 00 46 20 02 00 00 20 02 00 02 20 02 00 04   ┆ 02.01.XXX.1   v       D:CB40            D:CB40C       * &         F            ┆
0x87f0…8840              20 02 00 06 00 c7 00 08 30 03 00 cf 30 02 00 d2 00 12 00 da 00 2a 00 26 03 12 00 00 00 1f 00 00 00 04 00 d4 00 06 00 d8 00 08 00 de 00 06 00 e6 30 05 00 ec 00 02 00 f1 00 80 00 f3 00 0d 00 12 01 08 00 16 00 12 03 08 00 00 00 3d 00 00 01 73   ┆        0   0        * &                        0                          =   s┆
0x8840…8890              f0 02 01 80 02 19 00 00 00 12 01 36 00 0e 00 0a 07 04 00 00 00 1f 00 46 00 00 00 12 01 50 00 3a 00 48 20 49 44 45 4e 54 20 43 3a 43 42 36 30 20 20 54 52 41 20 34 2e 31 20 20 38 30 2d 30 31 2d 32 32 20 46 31 20 4f 31 31 31 31 20 20 30 32 2e   ┆           6           F     P : H IDENT C:CB60  TRA 4.1  80-01-22 F1 O1111  02.┆
0x8890…88e0 (91, 0, 400) 30 31 2e 58 58 58 2e 31 00 12 01 62 00 0e 00 0a 01 04 c8 43 3a 43 42 36 30 00 00 13 00 10 00 10 00 0c 05 05 c8 43 3a 43 42 36 30 43 00 04 00 13 00 22 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 1e 00 00 05 78 00 00 00 00 00 00 00 00   ┆01.XXX.1   b       C:CB60            C:CB60C     " * &                 x        ┆
0x88e0…8930              00 00 00 00 00 00 00 00 00 00 00 00 00 13 00 36 00 2a 00 26 03 12 00 00 00 1f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 00 64 00 0e 00 26 03 12 00 00 00 3d 00 00 00 20 00 13 00 92   ┆               6 * &                                         d   &     =        ┆
0x8930…8980              00 0c 00 26 03 12 00 00 00 5b 00 00 00 13 00 a4 00 0c 00 26 03 12 00 00 00 79 00 00 00 13 00 b4 00 0c 00 26 03 12 00 00 00 97 00 00 00 13 00 c4 00 0c 00 26 03 12 00 00 00 b5 00 00 00 13 00 d4 00 0c 00 26 03 12 00 00 00 d3 00 00 00 13 00 e4   ┆   &     [         &     y         &               &               &            ┆
0x8980…89d0              00 0c 00 26 03 12 00 00 00 f1 00 00 00 13 00 f4 00 0c 00 26 03 12 00 00 01 0f 00 00 00 13 01 04 00 20 00 26 03 12 00 00 01 2d 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b0 01 20 00 13 01 14 00 1a 00 16 03 0a 00 00 01 4b 00 00   ┆   &               &               &     -                                   K  ┆
0x89d0…8a20              20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 13 01 38 00 10 00 0c 04 05 00 00 00 01 01 58 00 03 00 00 00 13 01 56 00 0e 00 0a 07 04 00 00 01 4b 01 58 00 00 00 13 01 6a 00 3a 00 48 20 49 44 45 4e 54 20 44 3a 43 42 36 30 20 20 54 52 41 20 34   ┆             *   8           X       V         K X     j : H IDENT D:CB60  TRA 4┆
0x8a20…8a70 (92, 0, 400) 2e 31 20 20 38 30 2d 30 31 2d 32 32 20 46 31 20 4f 31 31 31 31 20 20 30 32 2e 30 31 2e 58 58 58 2e 31 00 13 01 7c 00 0e 00 0a 01 04 c8 44 3a 43 42 36 30 00 00 14 00 2a 00 10 00 0c 05 05 c8 44 3a 43 42 36 30 43 00 02 00 14 00 3c 00 2a 00 26   ┆.1  80-01-22 F1 O1111  02.01.XXX.1   |       D:CB60    *       D:CB60C     < * &┆
0x8a70…8ac0              03 12 00 00 00 01 00 00 00 2e 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 b0 07 00 08 00 07 00 00 00 80 00 39 00 14 00 50 00 1c 00 18 03 0b 00 00 00 1f 00 00 00 80 00 b9 30 02 01 39 80 02 01 3b 00 0c 00 00 00 14 00 7e 00 0e 00 0a 07 04   ┆         .                           9   P                0  9   ;       ~      ┆
0x8ac0…8b10              00 00 00 01 00 2e 00 00 00 14 00 9e 00 3a 00 48 20 49 44 45 4e 54 20 5a 3a 54 42 31 30 20 20 54 52 41 20 34 2e 31 20 20 38 30 2d 30 31 2d 32 32 20 46 31 20 4f 31 31 31 31 20 20 30 32 2e 30 31 2e 58 58 58 2e 31 00 14 00 b0 00 0e 00 0a 01 04   ┆     .       : H IDENT Z:TB10  TRA 4.1  80-01-22 F1 O1111  02.01.XXX.1          ┆
0x8b10…8b60              c8 5a 3a 54 42 31 30 00 00 14 00 ee 00 10 00 0c 05 05 c8 5a 3a 54 42 31 30 54 00 04 00 14 01 00 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 01 14 00 2a   ┆ Z:TB10            Z:TB10T       * &                                           *┆
0x8b60…8bb0              00 26 03 12 00 00 00 1f 00 00 00 00 00 00 00 00 00 00 00 b0 09 99 ff ff ff ff 00 20 f0 00 00 00 00 00 00 00 f0 00 00 00 00 14 01 42 00 2a 00 26 03 12 00 00 00 3d 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00   ┆ &                                         B * &     =                          ┆

Reduced view