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

⟦b1bf1d59c⟧

    Length: 52588 (0xcd6c)
    Notes: pts_type(SC)
    Names: »VDU.SC«

Derivation

└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
    └─⟦this⟧ »PT3272/VDU.SC« 
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »PT3272/VDU.SC« 

PTS(SC)

	IDENT VDU	REL 11.0 82-09-28 870150541100 

			=22, BLOCK OUTPUT
			MOVE TO UNPROT, ONLY FOR P&T 

			=37 DUP OR FM CHAR ON PRINTER
			=21 LOOP WHEN VDU NOT OPERABLE 
			82-05-17 
			=2 LOOP IN ERASUA
			82-03-10 
			DK1 BAD CHECK ON ATTRIBUTE 
			DK BAD TEST ON INTESITY
			=1, LINFLG AT UNFORM.
			81-01-26 
****************************************************************
*                                                              *
*        MODULE    VDU                                         *
*                  MODULE HANDLING THE DISPLAY SCREEN AND      *
*                  BUFFER                                      *
*                  (EMULATION 3270 SNA/SDLC, BSC)              *
*                                                              *
****************************************************************
	EJECT
*********************************************************** 
* 
*	LIST OF ROUTINES
* 
*        DISMOD       DISPLAY MODIFIED FIELDS 
*        DISLIN       DISPLAY LINE
*        SPACES       MOVE SPACES INTO ECB BUFFER 
*        INTCHK       GET INTENSITY CHAR. 
*        SETIND       SET DISPLAY INDICATOR 
*        INSMOD       INSERT CHAR.
*        UPDCNT       UPDATE COUNTERS 
*        GETVDU       GET CHAR. IN VDU BUFFER 
*        STOVDU       STORE CHAR IN VDU BUFFER
*        SCRINF       GET SCREEN INFORMATION
*        STOINF       STORE SCREEN INFORMATION
*        SOUND        SOUND ALARM 
*        WRAP         CHECK IF WRAP AROUND
*        LINWRP       CHECK IF LINE WRAP
*        LINE         UPDATE LINE FLAG
*        LINATT       UPDATE LINFLG AT ATTRIBUTE CHANGE 
*        NLROUT       NEW LINE ROUTINE
*        ERASE        ERASE ENTIRE SCREEN 
*        ERASUP       ERASE ALL UNPROTECTED 
*        ERASUA       ERASE UNPROTECTED TO ADDRESS
*        POSUNP       MOVE CURSOR TO NEXT UNPRO. POS
*        DISID        DISPLAY HARDCOPY TASKID 
*        DISSTA       DISPLAY STATISTICS
*        MOVTXT       MOVE TEXT 
*        CONASC       CONVERT TO ASCII
*        ATMASF       SEARCH ATTRIBUTE FORWARD
*        ATMASB       SEARCH ATTRIBUTE BACKWARD 
*        SNULL        SEARCH FIRST NULL CHAR. 
*        WCHAR        DISPLAY CHAR. AND CURSOR
*        RFMDUP       REPLACE FM OR DUP CHAR. IF ANY
*        DISCHA       DISPLAY CHAR. 
* 
***************************************************************** 
	EJECT
********************************************************************
*                                                                  *
*        ENTRY POINTS                                              *
*                                                                  *
********************************************************************

	ENTRY	INSMOD	INSERT CHARACTER
	ENTRY	GETVDU	GET CHAR. FROM VDU BUFFER 
	ENTRY	STOVDU	STORE CHAR. IN VDU BUFFER 
	ENTRY	SCRINF	GET SCREEN INFORMATION
	ENTRY	STOINF	SAVE SCREEN INFORMATION 
	ENTRY	POSUNP	MOVE TO NEXT UNPROTECTED POS. 
	ENTRY	ATMASB	SEARCH ATTRIBUTE BACKWARDS
	ENTRY	ATMASF	SEARCH ATTRIBUTE FOREWARD 
	ENTRY	DISCHA	DISPLAY CHAR. 
	ENTRY	WCHAR	DISPLAY CHAR. AND CURSOR 
	ENTRY	DISMOD	DISPLAY MODIFIED FIELDS 
	ENTRY	DISID	DISPLAY HARDCOPY TASKID
	ENTRY	ERASUA	ERASE UNPROTECTED TO ADDRESS
	ENTRY	ERASE	ERASE ENTIRE SCREEN
	ENTRY	SOUND	SOUND ALARM ON VDU 
	ENTRY	ERASUP	ERASE ALL UNPROTECTED 
	ENTRY	WRAP	CHECK IF WRAP AROUND
	ENTRY	NLROUT	NEW LINE ROUTINE
	ENTRY	LINWRP	CHECK LINE WRAP 
	ENTRY	LINE	UPDATE LINE FLAG
	ENTRY	LINATT	UPADTE
	ENTRY	DISSTA	DISPLAY STATISTICS
	ENTRY	RFMDUP	REPLACE FM OR DUP CHAR	=37

	EJECT
********************************************************************
*                                                                  *
*        EXTERNAL REFERENCES                                       *
*                                                                  *
********************************************************************

	EXTRN	TAB	TAB UNPROCTECTED FOREWARD (KEYB) 
	EXTRN	CRDOWN	MOVE CURSOR UNPROTECTED NEXT LINE (KEYB)
	EXTRN	RDHOME UNPROTECTED FIRST ON SCREEN (KEYB)
	EXTRN	SAVE1	SAVE REGISTERS (PAD) 
	EXTRN	REST1	RESTORE REGISTERS (PAD)
	EJECT


********************************************************************* 
*                                                                   * 
*        CONDITIONAL ASSEMBLY PARAMETERS                            * 
*                                                                   * 
********************************************************************* 

X:I	EQU	1	INSERT/DELETE HANDLING
IN:DL	EQU	1 
X:O	EQU	0	TEST INCLUDED IF:=1 
TEST	EQU	0
	EJECT
*************************************************************** 
*                                                             * 
*	DECLARATIONS OF DATA AND EQUATES
*                                                             * 
*************************************************************** 

* 
*       EQUATES FOR ECB HANDLING
* 
ECBBA	EQU	2	BUFFER ADDRESS
ECBRL	EQU	4	REQUESTED LENGTH
ECBEL	EQU	6	EFFECTIVE LENGTH
ECBRC	EQU	8	RETURN CODE 
ECBCW	EQU	10	CONTROL WORD 
* 
*	SPECIAL CHARACTERS
* 
NULL	EQU	0	NULL CHAR. 
NEWLIN	EQU	/0A	NEW LINE CHAR. 
FORMFD	EQU	/0C	FORM FEED CHAR.
ENDMES	EQU	/19	END MESSAGE CHAR.
DUPCH	EQU	/1C	DUPLICATE CHAR. 
FMCH	EQU	/1E	FIELD MARK CHAR. 
* 
*	TASK IDENTIFICATION CODE
* 
VDUCOD	EQU	'VV'	VDU KB TASK 
* 
*	INTERNAL STATUS 
* 
LINUPD	EQU	/0001	LINE UPDATED 
ATTREC	EQU	/0002	ATTRIBUTE RECEIVED 
* 
*	VDU SCREEN SIZE 
* 
LLINE	EQU	80	LINE LENGTH
LBVDU	EQU	1920	TOTAL SIZE 
	IFT	TEST=1 
* 
*	STAT. LAYOUT
* 
NUMLIN	EQU	13	NUMBER OF LINES YO DISPLAY
STALIN	EQU	5	STARTING LINE OF DISPLAY 
STAPOS	EQU	5	STARTTING POS ON LINE
TXTSIZ	EQU	15	SIZE OF PERMANENT TEXT
INDEX	DATA	/0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00
	XIF
	EJECT
* 
*	RELATIVE ADDRESSES IN 
*	TERMINAL WORKBLOCK
* 
TCT01	EQU	0	TASK IDENTIFICATION 
BVDU	EQU	TCT01+2	SCREEN BUFFER
LINFLG	EQU	BVDU+1920	INTERNAL LINE FLAGS
PCURS	EQU	LINFLG+24	CURSOR ADDRESS
ATTRIB	EQU	PCURS+2	LAST ATTRIBUTE CHAR
CURATT	EQU	ATTRIB+2 
WCC	EQU	CURATT+2	WCC/CCC CHARACTER
INTATT	EQU	WCC+8	INTENSITY ATTRIBUTE
REGI	EQU	INTATT+32	WORK REGISTER
ECBVDU	EQU	REGI+40
* 
*	RELATIVE ADDRESSES IN 
*	COMMON WORKBLOCK
* 
IDTEXT	EQU	2	IDENT TEXT LAYOUT
	IFT	TEST=1 
STATXT	EQU	IDTEXT+22	STATISTIC TEXT LAYOUT
	XIF
	EJECT
********************************************************* 
*                                                       * 
*        DISMOD       DISPLAY MODIFIED FIELDS           * 
*                                                       * 
********************************************************* 
*		REGISTERS
* 
*	A2= CHAR. 
*	A3= ADDRESS IN VDU-BUFFER 
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ADDRESS IN ECB
*	A7= INDEX IN ECB
*	A8= VDU ECB 
*	A9= INTENSITY COUNTER 
*	A10= INDICATOR
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
***************************************************** 
DISMOD	EQU	*
	LD	A8,ECBVDU,A11 
	LDK	A7,/BD	START BLOCK	=22 
	LKM			=22
	DATA	1		=22
	LDKL	A1,/101	LINE 1 POS. 1 
	ST	A1,ECBCW,A8 
	SUR	A9,A9	RESET INTENSITY COUNTER
	SUR	A10,A10
	LDKL	A3,BVDU 
	ADR	A3,A11 
	CF	A14,SCRINF
	LDK	A4,0	FIRST SCREEN POS.	DK
	CF	A14,SPACES	SPACES IN ECB BUFFER 
	ST	A5,REGI,A11 
	LDKL	A1,LBVDU+1
	LDR	A5,A11 
	CW	A1,REGI,A11 
	RF(NE)	DIS100	NO 
	LDK	A2,0	LOW INTENSITY 
	ST	A2,INTATT,A11 
DIS100	EQU	*
	LDR	A10,A10
	RF(NZ)	DIS900
	CF	A14,INTCHK	CHECK INTENSITY CHAR.
	LDR	A1,A10 
	SUR	A10,A10
	LDR	A1,A1
	RF(N)	DIS800	NONDISPLAY
	RF(NZ)	DIS400	DISPLAY LINE 
	LD	A2,ECBCW,A8	NO MODIFICATION 
	CWK	A2,/1901	ALLDISPLAYED
	RB(NE)	DIS100	NO 
	RF	DIS900
DIS400	EQU	*
	CWK	A7,LLINE	LINE COMPLETED? 
	RF(L)	DIS500	NO
	CF	A14,DISLIN	DISPLAY LINE 
	RB	DIS100
DIS500	EQU	*
	LCR	A2,A3	GET CHAR. IN VDU-BUFFER
	CF	A14,SETIND	SET SPACE INDICATOR
	CCK	A2,/8000	ATTRIBUTE?
	RF(NL)	DIS700	YES
	CF	A14,UPDCNT	UPDATE COUNTERS
	CWK	A2,NULL	NULL CHAR.?
	RB(E)	DIS400	YES 
	CWK	A2,NEWLIN	NEW LINE CHAR.?
	RB(E)	DIS400	YES 
	CWK	A2,ENDMES	END MESSAGE CHAR.? 
	RB(E)	DIS400	YES 
	CWK	A2,FORMFD	FORM FEED CHAR.? 
	RB(E)	DIS400	YES 
	CF	A14,RFMDUP	REPLACE DUP AND FM CHAR. 
	SC	A2,-1,A6	STORE CHAR. IN ECB BUFFER
	RB	DIS400
DIS700	EQU	*
	ST	A2,INTATT,A11 
	LDR	A1,A2
	ANK	A1,8	LOW INTENSITY?
	RF(Z)	DIS725	YES 
	ANK	A2,4	HIGH INTENSITY? 
	RF(Z)	DIS715	YES 
	CF	A14,UPDCNT	UPDATE COUNTERS
	RF	DIS800	NONDISPLAY 
DIS715	EQU	*
	LDK	A2,/1F	HIGH
	RF	DIS750
DIS725	EQU	*
	LDK	A2,/1E	LOW 
DIS750	EQU	*
	SCR	A2,A6	SAVE CHAR. IN ECB BUFFER 
	ADKL	A9,1
	CF	A14,UPDCNT	UPDATE COUNTERS
	ADK	A6,1 
	RB	DIS400
DIS800	EQU	*
	CWK	A7,LLINE	LINE COMPLETED? 
	RF(L)	DIS850	NO
	CF	A14,DISLIN	DISPLAY LINE 
	RB	DIS100
DIS850	EQU	*
	LCR	A2,A3	GET CHAR. IN VDU-BUFFER
	CCK	A2,/8000	ATTRIBUTE?
	RB(NL)	DIS700	YES
	CF	A14,UPDCNT	UPDATE COUNTERS
	RB	DIS800
DIS900	EQU	*
	CF	A14,SCRINF	GET SCREEN INFORMATION 
	LDK	A1,2	REQ. LENGTH 
	CF	A14,DISCHA	SET CURSOR 
	LDK	A7,/BE	END OF BLOCK	=22
	LKM			=22
	DATA	1		=22
	RTN	A14
	EJECT
*********************************************************** 
*                                                         * 
*        DISLIN       DISPLAY LINE ON VDU                 * 
*                                                         * 
*********************************************************** 
*		REGISTERS
* 
*	A3= RESERVED
*	A4= RESERVED
*	A5= RESERVED
*	A6= RESERVED
*	A8= ECB VDU 
*	A9= INTENSITY COUNTER 
*	A10= INDICATOR
*	A11= RESERVED 
*	A13= RESERVED 
* 
*********************************************************** 
DISLIN	EQU	*
	LDK	A7,2	REQ. LENGTH 
	LDR	A1,A10 
	ANKL	A1,1	ONLY SPACES? 
	RF(Z)	DISL10	YES 
	LDKL	A7,LLINE+2	REQ. LENGTH
	ADR	A7,A9	ADD NUMBER OF INTENSITY CHAR.
DISL10	EQU	*
	ST	A7,ECBRL,A8 
	LD	A2,ECBCW,A8	SAVE CURSOR POS	=21 
	LDKL	A7,/8B	SET CURSOR AND WRITE 
	LKM
	DATA	1 
	LD	A1,ECBRC,A8	.	=21 
	ANK	A1,1	NOT OPERABLE?	=21 
	RF(Z)	DISL20	VDU OPERABLE	=21
	ST	A2,ECBCW,A8	NOT OP. REST CURSOR POS	=21 
	RF	DISL90	TERMINATE VDU LINE	=21 
DISL20	EQU	*	.	=21
	LD	A1,ECBCW,A8	GET CURSOR POS. 
	ANK	A1,/FF 
	SUK	A1,81	LAST POS. ON LINE DISPLAYED? 
	RF(Z)	DISL90	YES 
	LD	A6,ECBBA,A8 
	LDK	A2,/2B 
	SC	A2,1,A6 
	LDKL	A2,/1420
	SC	A2,3,A6 
	SRL	A2,8 
	SC	A2,2,A6 
	LDK	A2,84
	ST	A2,ECBRL,A8 
	LDK	A7,/86	WRITE 
	LKM
	DATA	1 
DISL90	EQU	*
	ADK	A5,1 
	LDK	A2,1	FIRST POS. ON LINE
	SC	A2,ECBCW+1,A8 
	LDKL	A2,/100	MOVE ONE LINE DOWN
	ADS	A2,ECBCW,A8
	SUR	A10,A10
	LD	A2,ECBCW,A8 
	CWK	A2,/1901	END OF SCREEN 
	RF(NE)	DISL95	NO 
	LDKL	A10,1 
DISL95	EQU	*
	CF	A14,SPACES	MOVE SPACES TO ECB BUFFER
	RTN	A14
	EJECT
************************************************************
*                                                          *
*        SPACES       MOVE SPACES TO ECB BUFFER            *
*                                                          *
************************************************************
*		REGISTERS
* 
*	A2= CHAR. 
*	A3= RESERVED
*	A4= RESERVED
*	A5= RESERVED
*	A6= ADDRESS IN ECB BUFFER 
*	A7= INDEX IN ECB
*	A8= VDU ECB 
*	A9= INTENSITY COUNTER 
*	A10= INDICATOR
*	A11= RESERVED 
*	A13= RESERVED 
* 
************************************************************
SPACES	EQU	*
	LD	A6,ECBBA,A8	GET BUFFER ADDRESS
	ADK	A6,2 
	LDK	A7,LLINE	LINE LENGTH 
	ADR	A7,A7	BUFFER LENGTH
	LDKL	A2,'  '	SPACES
SPAC10	EQU	*
	SCR	A2,A6
	SC	A2,1,A6 
	ADK	A6,2 
	SUK	A7,2	WHOLE BUFFER SPACED?
	RB(P)	SPAC10	NO
	LDK	A2,0	CHAR. 
	LD	A6,ECBBA,A8	BUFFER ADDRESS
	ADK	A6,2 
	LDK	A7,0	RESET CHAR. COUNTER 
	RTN	A14
	EJECT
********************************************************* 
*                                                       * 
*        INTCHK       GET INTENSITY CHAR.               * 
*                                                       * 
********************************************************* 
*		REGISTERS
* 
*	A2= CHAR. 
*	A3= RESERVED
*	A4= RESERVED
*	A5= RESERVED
*	A6= ADDRESS IN ECB BUFFER 
*	A7= RESERVED
*	A8= RESERVED
*	A9= INTENSITY COUNTER 
*	A10= INDICATOR
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
************************************************
INTCHK	EQU	*
	SUR	A9,A9	RESET INTENSITY COUNTER
	LC	A2,LINFLG,A5	GET LINE FLAG	 
	ANK	A2,1	MODIFIED? 
	RF(NZ)	INT100	YES
	ADK	A3,LLINE	NEXT LINE 
	ADK	A4,LLINE 
	ADK	A5,1 
	LDK	A2,1 
	SC	A2,ECBCW+1,A8 
	LDKL	A2,/100 
	ADS	A2,ECBCW,A8
	LDKL	A10,0 
	RF	INT900
INT100	EQU	*
	LC	A2,LINFLG,A5
	ANK	A2,2 
	SC	A2,LINFLG,A5
	LDKL	A10,1 
	LD	A2,REGI,A11 
	CWK	A2,LBVDU+1	UNFORMATTED SCREEN? 
	RF(E)	INT200	YES 
	CF	A14,SAVE1 
	LDR	A1,A4
	CF	A14,SCRINF
	LDR	A2,A5
	LDR	A3,A6
	CF	A14,ATMASB	GET CURRENT ATTRIBUTE
	ST	A6,INTATT,A11 
	LDR	A5,A2
	LDR	A6,A3
	CF	A14,STOINF
	CF	A14,REST1 
	LDK	A7,0 
INT200	EQU	*
	LD	A2,INTATT,A11 
	LDR	A1,A2
	ANK	A1,8	LOW INTENSITY?
	RF(Z)	INT300	YES 
	ANK	A2,4	HIGH INTENSITY? 
	RF(NZ)	INT800	NO, NONDISPLAY 
	LDK	A2,/1F	HIGH
	RF	INT400
INT300	EQU	*
	LDK	A2,/1E	LOW 
INT400	EQU	*
	SCR	A2,A6	SAVE IN ECB BUFFER 
	ADK	A6,1 
	ADKL	A9,1
	RF	INT900
INT800	EQU	*
	LDKL	A10,/8000 
INT900	EQU	*
	RTN	A14
	EJECT
************************************************
*                                              *
*        SETIND       SET DISPLAY INDICATOR    *
*                                              *
************************************************
*		REGISTERS
* 
*	A2= CHAR
*	A3= RESERVED
*	A4= RESERVED
*	A5= RESERVED
*	A6= RESERVED
*	A7= RESERVED
*	A8= RESERVED
*	A9= RESERVED
*	A10= DISPLAY INDICATOR
*	A11= RESERVED 
*	A13= RESERVED 
* 
**********************************
SETIND	EQU	*
	CWK	A2,NULL	NULL CHAR? 
	RF(E)	SETI90	YES 
	ORKL	A10,1	INDICATE NOT ONLY SPACES
SETI90	EQU	*
	RTN	A14
	EJECT
****************************************************************
*                                                              *
*        INSMOD       INSERT CHARACTER                         *
*                                                              *
****************************************************************
*		REGISTERS
* 
*	A1= AT RETURN  0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED 
*	A2= RESERVED
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ATTRIBUTE CHAR. 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
*************************************************************** 
INSMOD	EQU	*
	IFT	IN:DL=1
	LDR	A1,A4
	CF	A14,GETVDU	GET CHAR. IN VDU BUFFER
	CCK	A7,NULL	NULL CHAR.?
	RF(NE)	INS100	NO 
	LDK	A1,0	INDICATE NULL IN CURSOR POS.
	RF	INS900
INS100	EQU	*
	LDR	A3,A4
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN? 
	RF(E)	INS200	YES 
	LDR	A8,A6	SAVE OLD 
	LDR	A9,A5	SAVE OLD 
	CF	A14,ATMASF	SEARCH ATTRIBUTE FORWARD 
	LDR	A3,A5
	ST	A8,ATTRIB,A11	RESTORE 
	ST	A9,CURATT,A11	RESTORE 
	LDR	A6,A8
	LDR	A5,A9
INS200	EQU	*
	CF	A14,SNULL	SEARCH FIRST NULL 
	ANK	A1,2	NULL FOUND? 
	RF(Z)	INS300	YES 
	LDK	A1,2	INDICATE ERROR
	RF	INS900
INS300	EQU	*
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN? 
	RF(E)	INS350	YES 
	ORK	A6,1	SET MDT-BIT ON IN ATTRIBUTE 
	ST	A6,ATTRIB,A11 
	LDR	A1,A5
	LDR	A7,A6
	CF	A14,STOVDU	SAVE NEW ATTRIBUTE IN VDU-BUFFER 
INS350	EQU	*
	LDR	A1,A3
	ST	A4,REGI,A11 
	LDR	A4,A1
	LDK	A5,LLINE 
	LDR	A6,A11 
	SUR	A10,A10
	LDR	A9,A1
	CF	A14,LINE	UPDATE LINE FLAG 
	LDR	A1,A9
INS400	EQU	*
	CWK	A1,0	CHAR TO MOVE IN LAST SCREEN POS?
	RF(E)	INS500	YES 
	SUK	A1,1 
	CF	A14,GETVDU	GET CHAR IN VDU BUFFER 
	ADK	A1,1 
	LDR	A9,A1
	LDK	A5,LLINE 
	LDR	A6,A11 
	CF	A14,LINE
	LDR	A1,A9
	LC	A9,LINFLG,A6
	ORKL	A9,1
	SC	A9,LINFLG,A6
	CF	A14,STOVDU	STORE CHAR IN VDU BUFFER 
	SUK	A1,1 
	SUK	A4,1 
INS450	EQU	*
	CW	A1,REGI,A11	ALL SHIFTED?
	RF(E)	INS600	YES 
	RB	INS400
INS500	EQU	*
	LDKL	A1,LBVDU-1	GET LAST CHAR
	CF	A14,GETVDU	GET CHAR IN VDU BUFFER 
	LDK	A1,0 
	LDK	A4,0 
	LDR	A9,A1
	LDK	A5,LLINE 
	LDR	A6,A11 
	CF	A14,LINE
	LDR	A1,A9
	LC	A9,LINFLG,A6
	ORKL	A9,1
	SC	A9,LINFLG,A6
	CF	A14,STOVDU	STORE CHAR IN VDU BUFFER 
	LDKL	A1,LBVDU-1	LAST SCREEN POS. 
	LDKL	A4,LBVDU-1
	RB	INS450
INS600	EQU	*
	LDR	A7,A2	GET KEY-CHAR 
	CF	A14,STOVDU	STORE CHAR IN VDU BUFFER 
	LDK	A5,LLINE 
	LDR	A6,A11 
	CF	A14,LINE
	LC	A9,LINFLG,A6
	ORKL	A9,1
	SC	A9,LINFLG,A6
	IM	PCURS,A11	MOVE CURSOR 
	LD	A4,REGI,A11 
	ADK	A4,1 
	CWK	A4,LBVDU-1	WRAP AROUND?
	RF(NG)	INS700	NO 
	LDK	A4,0	FIRST POS. ON SCREEN
	CM	PCURS,A11 
INS700	EQU	*
	CF	A14,DISMOD	DISPLAY MODIFIED FIELD 
	LDK	A1,1	INDICATE NORMAL INSERT
INS900	EQU	*
	RTN	A14
	XIF
	EJECT
********************************************************* 
*                                                       * 
*        UPDCNT       UPDATE COUNTERS                    *
*                                                       * 
********************************************************* 
*          REGISTERS
* 
*	A3= ADDRESS IN VDU BUFFER 
*	A4= REL CURSOR POS
*	A5= RESERVED
*	A6= ADDRESS IN ECB
*	A7= INDEX IN ECB
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= RESERVED 
*	A13= RESERVED 
* 
********************************************************* 
UPDCNT	EQU	*
	ADK	A3,1 
	ADK	A4,1 
	ADK	A6,1 
	ADK	A7,1 
	RTN	A14
	EJECT
****************************************************************
*                                                              *
*        GETVDU       GET CHAR. IN VDU BUFFER                  *
*                                                              *
****************************************************************
*		REGISTERS
* 
*	A1= REL. POS IN VDU BUFFER
*	A2= RESERVED
*	A3= RESERVED
*	A4= RESERVED
*	A5= RESERVED
*	A6= RESERVED
*	A7= CHAR. FROM VDU BUFFER 
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
********************************************************
GETVDU	EQU	*
	LDKL	A7,BVDU 
	ADR	A7,A11 
	ADR	A7,A1
	LCR	A7,A7
	ANK	A7,/FF 
	RTN	A14
	EJECT
**************************************************************
*                                                            *
*        STOVDU       STORE CHAR. IN VDU BUFFER              *
*                                                            *
**************************************************************
*		REGISTERS
* 
*	A1= REL. POS. IN VDU BUFFER 
*	A2= RESERVED
*	A3= RESERVED
*	A4= RESERVED
*	A5= RESERVED
*	A6= RESERVED
*	A7= CHAR. TO STORE IN VDU BUFFER
*	A9= RESERVED
*	A10= RESERVED 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
********************************************************
STOVDU	EQU	*
	LDKL	A8,BVDU 
	ADR	A8,A11 
	ADR	A8,A1
	SCR	A7,A8
	RTN	A14
	EJECT
********************************************************
*                                                      *
*        SCRINF       GET SCREEN INFORMATION           *
*                                                      *
********************************************************
*		REGISTERS
* 
*	A2= RESERVED
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ATTRIBUTE CHAR. 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
******************************************************* 
SCRINF	EQU	*
	LD	A4,PCURS,A11	GET CURSOR POS.
	LD	A5,CURATT,A11	GET ATTRIBUTE POS.
	LD	A6,ATTRIB,A11	GET ATTRIBUTE CHAR. 
	RTN	A14
	EJECT
********************************************************
*                                                      *
*        STOINF       STORE SCREEN INFORMATION         *
*                                                      *
********************************************************
*		REGISTERS
* 
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ATTRIBUTE CHAR. 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
********************************************************
STOINF	EQU	*
	ST	A4,PCURS,A11
	ST	A5,CURATT,A11 
	ST	A6,ATTRIB,A11 
	RTN	A14
	EJECT
******************************************************* 
*                                                     * 
*        SOUND       SOUND ALARM ON VDU               * 
*                                                     * 
******************************************************* 
*		REGISTERS
* 
*	A1= RETURN CODE 
*	A8= ECBVDU
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
******************************************************* 
SOUND	EQU	* 
	LD	A8,ECBVDU,A11 
	LD	A1,ECBBA,A8 
	LDK	A2,/2B	CONTROL CHAR. 
	SC	A2,1,A1 
	LDK	A2,/07	BELL CHAR.
	SC	A2,2,A1 
	LDK	A2,3	REQ. LENGTH 
	ST	A2,ECBRL,A8 
	LDK	A7,/86 
	LKM
	DATA	1 
	LD	A1,ECBRC,A8	GET RETURN CODE 
	RTN	A14
	EJECT
***************************************************** 
*                                                   * 
*        WRAP       CHECK IF WRAP AROUND            * 
*                                                   * 
***************************************************** 
*		REGISTERS
* 
*	A2= RESERVED
*	A3= ADDRESS IN VDU BUFFER 
*	A4= REL. CURSOR POS.
*	A5= RESERVED
*	A6= RESERVED
*	A7= RESERVED
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
***************************************************** 
WRAP	EQU	*
	CWK	A4,LBVDU	WRAP AROUND 
	RF(L)	WRAP90	NO
	LDK	A4,0	FIRST SCREEN POS. 
	LDKL	A3,BVDU 
	ADR	A3,A11 
WRAP90	EQU	*
	RTN	A14
	EJECT
************************************************************
*                                                          *
*        LINWRP       CHECK LINE WRAP                       * 
*                                                          *
************************************************************
*		REGISTERS
* 
*	A3= RESERVED
*	A4= REL CURSOR POS
*	A5= LAST IN ROW REL POS 
*	A6= RESERVED
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= RESERVED 
*	A13= RESERVED 
* 
*********************************************************** 
LINWRP	EQU	*
	CWR	A5,A4	END OF LINE? 
	RF(G)	LINW10	NO
	CF	A14,LINE	UPDATE LINE FLAG 
LINW10	EQU	*
	RTN	A14
	EJECT
************************************************************
*                                                          *
*        LINE       UPDATE LINE FLAG                       *
*                                                          *
************************************************************* 
*		REGISTERS
* 
*	A3= ADDRESS IN VDU BUFFER 
*	A4= REL CURSOR POS
*	A5= LAST IN ROW REL POS 
*	A6= INTERNAL LINE FLAG ADDRESS
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERFED 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
*********************************************************** 
LINE	EQU	*
	CWR	A5,A4	THIS LINE? 
	RF(G)	LIN400	YES,MAYBE 
	LDR	A1,A10 
	ANK	A1,ATTREC	ATTRIBUTE RECEIVED?
	RF(Z)	LIN100	NO
	LC	A1,LINFLG,A6
	ORK	A1,2 
	SC	A1,LINFLG,A6
LIN100	EQU	*
	SUR	A6,A11 
	ADK	A6,1	UPDATE ADDRESS
	CWK	A6,23	WRAP SCREEN? 
	RF(G)	LIN300	YES 
	ADK	A5,LLINE 
	ADR	A6,A11 
	RB	LINE
LIN300	EQU	*
	LDK	A4,0	FIRST SCREEN POS. 
	LDKL	A3,BVDU 
	ADR	A3,A11 
	LDR	A6,A11 
	LDK	A5,LLINE 
LIN400	EQU	*
	SUR	A5,A4	 
	CWK	A5,81
	RF(L)	LIN500	THIS LINE 
	LDK	A5,LLINE 
	LDR	A6,A11 
	RB	LINE
LIN500	EQU	*
	ADR	A5,A4	RESTORE
	RTN	A14
	EJECT
************************************************************* 
*                                                           * 
*        LINATT       UPADTE LINFLG AT ATTRIBUTE CHANGE     * 
*                                                           * 
************************************************************* 
*		REGISTERS
* 
*	A3= ADDRESS IN VDU BUFFER 
*	A4= REL CURSOR POS
*	A5= LAST IN ROW REL POS 
*	A6= INTERNAL LINE FLAG ADDRESS
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
**************************************************************
LINATT	EQU	*
	CF	A14,SAVE1 
	SUR	A6,A11 
	LDK	A2,0 
	LDR	A10,A4	.	=1
LINA10	EQU	*
	ADK	A4,1 
	ADK	A3,1 
	CWR	A5,A4	END OF LINE? 
	RF(G)	LINA30	NO
	ADR	A6,A11 
	LC	A1,LINFLG,A6
	ORK	A1,1 
	SC	A1,LINFLG,A6
	SUR	A6,A11 
	ADK	A6,1 
	CWK	A6,23	WRAP AROUND? 
	RF(G)	LINA20	YES 
	ADK	A5,LLINE 
	RF	LINA30
LINA20	EQU	*
	LDK	A6,0 
	LDK	A4,0 
	LDKL	A3,BVDU 
	ADR	A3,A11 
	LDK	A5,LLINE 
LINA30	EQU	*
	CWR	A4,A10	ALL CHECKED?	=1 
	RF(E)	LINA40	YES	=1
	LCR	A2,A3
	CWK	A2,/80	ATTRIBUTE 
	RB(NG)	LINA10	YES
LINA40	EQU	*	.	=1 
	CF	A14,REST1 
	RTN	A14
	EJECT
*********************************************************** 
*                                                         * 
*        NLROUT       NEW LINE ROUTINE                    * 
*                                                         * 
*********************************************************** 
*		REGISTERS
* 
*	A3= ADDRES IN VDU BUFFER
*	A4= REL CURSOR POS
*	A5= RESERVED
*	A6= RESERVED
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= RESERVED 
*	A13= RESERVED 
* 
*********************************************************** 
NLROUT	EQU	*
	LDR	A1,A4	SAVE CURSOR POS. 
	CF	A14,CRDOWN	MOVE CURSOR ON E LINE DOWN 
	LDK	A7,0 
NLR100	EQU	*
	SUK	A4,LLINE	COMPUTE LEFTMOST POS. 
	RF(N)	NLR200 
	ADK	A7,LLINE 
	RB	NLR100
NLR200	EQU	*
	LDR	A4,A1
	LDK	A2,NULL
NLR300	EQU	*
	CWR	A7,A4	ALL NULLED?
	RF(E)	NLR900	YES 
	SCR	A2,A3	NULL IN VDU BUFFER 
	LC	A1,LINFLG,A6
	ORKL	A1,1
	SC	A1,LINFLG,A6
	ADK	A3,1 
	ADK	A4,1 
	CF	A14,LINWRP
	RB	NLR300
NLR900	EQU	*
	RTN	A14
	EJECT
********************************************************************
*                                                                 * 
*        ERASE       ERASE ENTIRE SCREEN                          * 
*                                                                 * 
******************************************************************* 
*		REGISTERS
* 
*	A2= CHAR. 
*	A3= ADDRESS IN VDU-BUFFER 
*	A4= REL. CURSOR ADDRESS 
*	A5= REL ATTRIBUTE POS 
*	A6= ATTRIBUTE CHAR
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
********************************************************* 
ERASE	EQU	* 
	LDK	A4,0	FIRST SCREEN POS. 
	LDKL	A3,BVDU 
	ADR	A3,A11 
	LDK	A2,NULL	STORE NULL CHAR. 
ERAS10	EQU	*
	CWK	A4,LBVDU+24	WHOLE SCREEN NULLED? 
	RF(NL)	ERAS20	YES
	SCR	A2,A3	STORE CHAR.
	ADK	A3,1 
	ADK	A4,1 
	RB	ERAS10
ERAS20	EQU	*
	LDK	A4,0	FIRST SCREEN POS. 
	LDKL	A5,LBVDU+1	UNFORMATTED SCREEN 
	LDK	A6,0 
	CF	A14,STOINF	SAVE SCREEN INFORMATION
	LC	A1,TCT01,A11
	CCK	A1,VDUCOD	PRINTER UNPACK?
	RF(NE)	ERAS30	YES
	LD	A8,ECBVDU,A11 
	LDK	A2,'1'	ERASE CHAR. 
	LD	A1,ECBBA,A8 
	SC	A2,1,A1 
	LDK	A1,2	REQ. LENGTH 
	ST	A1,ECBRL,A8 
	LDK	A7,/86	WRITE 
	LKM
	DATA	1 
ERAS30	EQU	*
	RTN	A14
	EJECT
********************************************************* 
*                                                       * 
*        ERASUP       ERASE ALL UNPROTECTED             * 
*                                                       * 
********************************************************* 
*		REGISTERS
* 
*	A2= CHAR. 
*	A3= ADDRESS IN VDU-BUFFER 
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= INTERNAL LINE FLAG ADDRESS
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
********************************************************* 
ERASUP	EQU	*
	LDK	A1,2	RESTORE KEYBOARD-BIT
	ST	A1,WCC,A11
	LDK	A4,0	FIRST SCREEN POS. 
	LDKL	A3,BVDU 
	ADR	A3,A11 
	LDK	A7,NULL	STORE NULL CHAR. 
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN? 
	RF(NE)	ERUP10	NO 
	CF	A14,ERASE 
	RF	ERUP90
ERUP10	EQU	*
	LCR	A2,A3	GET CHAR.
	CCK	A2,/8000	ATTRIBUTE?
	RF(NL)	ERUP20	YES
	ADK	A3,1 
	ADK	A4,1 
	RB	ERUP10
ERUP20	EQU	*
	LDR	A9,A4	FIRST ATTRIBUTE POS. 
	LDK	A5,LLINE 
	LDR	A6,A11 
	SUR	A10,A10
	CF	A14,LINE
	RF	ERUP47
ERUP30	EQU	*
	ADK	A3,1 
	ADK	A4,1 
	CF	A14,LINWRP	CHECK IF LINWRP AROUND 
	LCR	A2,A3	GET CHAR.
	CCK	A2,/8000	ATTRIBUTE?
	RB(L)	ERUP30	NO
ERUP45	EQU	*
	CWR	A9,A4	ALL SCANNED? 
	RF(E)	ERUP70	YES 
ERUP47	EQU	*
	LDR	A1,A2
	ANK	A1,/20	PROTECTED?
	RB(NZ)	ERUP30	YES
	ANK	A2,/FE	RESET MDT-BIT 
	SCR	A2,A3	SAVE ATTRIBUTE 
	LC	A1,LINFLG,A6
	ORK	A1,1 
	SC	A1,LINFLG,A6
	ADK	A3,1 
	ADK	A4,1 
ERUP50	EQU	*
	CF	A14,LINWRP	CHECK IF LINWRP AROUND 
	LCR	A2,A3	GET CHAR.
	CCK	A2,/8000	ATTRIBUTE?
	RB(NL)	ERUP45	YES
	SCR	A7,A3	STORE NULL CHAR. IN VDU BUFFER 
	LC	A1,LINFLG,A6
	ORK	A1,1 
	SC	A1,LINFLG,A6
	ADK	A3,1 
	ADK	A4,1 
	RB	ERUP50
ERUP70	EQU	*
	CF	A14,RDHOME	TAB. UNPROTECTED FIRST ON SCREEN 
ERUP90	EQU	*
	RTN	A14
	EJECT
****************************************************************
* 
*        ERASUA       ERASE UNPROTECTED TO ADDRESS             *
*                                                              *
****************************************************************
*		REGISTERS
* 
*	A1= STOP ADDRESS
*	A2= CHAR. 
*	A3= ADDRESS IN VDU-BUFFER 
*	A4= REL. CURSOR POS.
*	A5= REL ATTRIBUTE POS.
*	A6= ATTRIBUTE CHAR. 
*	A7= NULL CHAR.
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
****************************************************************
ERASUA	EQU	*
	LDK	A7,NULL	STORE NULL CHAR. 
	LDKL	A3,BVDU 
	ADR	A3,A11 
	ADR	A3,A4	BUFFER POS.
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN? 
	RF(E)	ERUA47	YES 
	LDR	A2,A6	GET CURRENT ATTRIBUTE
	CWR	A5,A4	STANDING ON ATTRIBUTE? 
	RF(NE)	ERUA10	NO 
	ADK	A3,1 
	ADK	A4,1 
	CWR	A1,A4	ALL NULLED?
	RF(E)	ERUA70	YES 
	CF	A14,WRAP	CHECK IF WRAP AROUND 
ERUA10	EQU	*
	ANK	A2,/20	PROTECTED FIELD?
	RF(Z)	ERUA47	NO
ERUA30	EQU	*
	CF	A14,WRAP	CHECK IF WRAP AROUND 
	CWR	A1,A4	ALL NULLED?	=2 
	RF(E)	ERUA70	YES	=2
	LCR	A2,A3	GET CHAR.
	ADK	A3,1 
	ADK	A4,1 
			.	=2 
	CCK	A2,/8000	ATTRIBUTE?
	RB(L)	ERUA30	NO
ERUA45	EQU	*
	LDR	A8,A2
	ANKL	A8,/20	PROTECTED? 
	RB(NZ)	ERUA30	YES
ERUA47	EQU	*
	LDR	A6,A11 
	LDK	A5,LLINE 
	LDR	A8,A1
	CF	A14,LINE
	LDR	A1,A8
	RF	ERUA60
ERUA50	EQU	*
	LDR	A8,A1
	CF	A14,LINWRP
	LDR	A1,A8
	CWR	A1,A4	ALL NULLED?
	RF(E)	ERUA70	YES 
ERUA60	EQU	*
	LCR	A2,A3	GET CHAR.
	CCK	A2,/8000	ATTRIBUTE?
	RF(L)	ERUA62	NO	=3 
	ANK	A2,/20	PROTECTED?	=3 
	RB(NZ)	ERUA30	YES	=3 
	RF	ERUA64		=3
ERUA62	EQU	*		=3
	SCR	A7,A3	STORE NULL CHAR, IN VDU-BUFFER 
	LC	A8,LINFLG,A6
	ORKL	A8,1
	SC	A8,LINFLG,A6
ERUA64	EQU	*		=3
	ADK	A3,1 
	ADK	A4,1 
	RB	ERUA50
ERUA70	EQU	*
	RTN	A14
	EJECT
**********************************************************
*                                                        *
*        POSUNP       MOVE CURSOR TO NEXT UNPR. POS.     *
*                                                        *
**********************************************************
*		REGISTERS
* 
*	A2= RESERVED
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ATTRIBUTE CHAR
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
*********************************************************** 
POSUNP	EQU	*
	CWK	A4,LBVDU-1	WRAP AROUND?
	RF(NG)	POSU20	NO 
	LDK	A4,0	FIRST POS. ON SCREEN
	ST	A4,PCURS,A11
POSU20	EQU	*
	LDR	A1,A4
	CF	A14,GETVDU	GET CHAR IN VDU BUFFER 
	CCK	A7,/8000	ATTRIBUTE?
	RF(L)	POSU30	NO
	LDR	A6,A7
	ANK	A7,/20 
	CWK	A7,/20	PROTECTED?	DKPT 
	RF(E)	POSU25	YES 
	LDR	A5,A1
	IM	PCURS,A11	MOVE CURSOR 
	ADK	A4,1 
	CWK	A4,LBVDU-1	WRAP AROUND?
	RF(NG)	POSU23	NO 
	LDK	A4,0 
POSU23	EQU	*
	CF	A14,STOINF	SAVE SCREEN INFORMATION
	LDK	A1,2	REQ. LENGTH 
	CF	A14,DISCHA	SET CURSOR 
	RF	POSU30
POSU25	EQU	*
	CF	A14,TAB	TAB NEXT UNPROTECTED FIELD
POSU30	EQU	*
	LD	A8,ECBVDU,A11 
	LD	A1,ECBCW,A8 
	ANK	A1,/FF	LINE POS. 
	SUK	A1,81	LAST POS. ON LINE? 
	RF(NZ)	POSU90	NO 
	LDK	A1,2	REQ. LENGTH 
	CF	A14,DISCHA	SET CURSOR 
POSU90	EQU	*
	RTN	A14
	EJECT
************************************************************
*                                                          *
*       DISID      DISPLAY HARDCOPY TASKID                 *
*                                                          *
************************************************************
*              REGISTERS
* 
* 
************************************************************
DISID	EQU	* 
	LD	A8,ECBVDU,A11 
	CF	A14,SPACES	SPACE IN ECB BUFFER
	LD	A3,6,A13	GET COMMON BLOCK BASE
	LDR	A1,A5	SAVE TASK ID 
	LDK	A5,IDTEXT
	ADR	A5,A3	POINT ON IDBUFFER
	ADK	A6,46
	LDK	A3,6 
	ANK	A4,1	PRINTER OPERABLE? 
	RF(Z)	DISI10	YES 
	ADK	A3,16
DISI10	EQU	*
	SUK	A3,2	MOVE INTO ECBBUFFER 
	RF(N)	DISI20	COMPLETED 
	LDR*	A2,A5 
	STR	A2,A6
	ADK	A5,2 
	ADK	A6,2 
	RB	DISI10
DISI20	EQU	*
	LD	A6,ECBBA,A8 
	ST	A1,ECBBA+52,A6	SAVE TASK ID IN BUFFER 
	LC	A2,X'1F'	HIGH INTENSITY CHAR. 
	SC	A2,ECBBA+45,A6
	LDKL	A10,1	INDICATE NOT ONLY SPACES
	LDKL	A9,1	1 INTENSITY CHAR.
	LDKL	A2,X'1801'	DISPLAY ON LAST ROW
	ST	A2,ECBCW,A8 
	CF	A14,DISLIN	DISPLAY IDENT TEXT 
	RTN	A14
	EJECT
**************************************************************
* 
*	DISSTA	DISPLAY STATISTICS 
* 
*************************************************************** 
*        REGISTERS
* 
* 
*************************************************************** 
DISSTA	EQU	*
	IFT	TEST=1 
	LD	A8,ECBVDU,A11 
	LDK	A1,STALIN	WHERE TO START 
	SLL	A1,8 
	LDK	A2,1 
	ORR	A2,A1	FIRST POS. ON THAT LINE
	ST	A2,ECBCW,A8 
	CF	A14,SPACES	CLEAN THE BUFFER 
	LDK	A5,0	RESET INDEX 
	LD	A3,6,A13
	ADK	A3,STATXT	POINT TO TEXT
DISS10	EQU	*
	LDK	A2,/1F	HIGH INTENSITY
	SCR	A2,A6
	ADK	A6,1 
	LDKL	A9,1
	LDK	A1,TXTSIZ	GET SIZE OF TEXT PER LINE
	CF	A14,MOVTXT	MOVE IT IN TO BUFFER 
	ADK	A6,5+STAPOS	MAKE SOME ROOM 
	LC	A1,INDEX,A5 
	SLL	A1,1 
	ADR	A1,A12	POINT OUT STAT VALUE
	LCR	A2,A1
	CF	A14,CONASC	MAKE IT VISABLE
	LDR	A4,A2
	LCR	A2,A1
	SRL	A2,4 
	CF	A14,CONASC
	SLL	A2,8 
	ORR	A2,A4
	SC	A2,+1,A6
	SRL	A2,8 
	SCR	A2,A6
	ADK	A6,2 
	LC	A2,+1,A1
	CF	A14,CONASC	AS ABOVE 
	LDR	A4,A2
	LC	A2,+1,A1
	SRL	A2,4 
	CF	A14,CONASC
	SLL	A2,8 
	ORR	A2,A4
	SC	A2,+1,A6
	SRL	A2,8 
	SCR	A2,A6
	LDKL	A10,1	NOT ONLY SPACES 
	CF	A14,DISLIN	DISPLAY STAT.
	CWK	A5,NUMLIN	LIMIT REACHED? 
	RB(NE)	DISS10	NO 
	XIF
	RTN	A14
	IFT	TEST=1 
	EJECT
*********************************************************** 
* 
*	MOVTXT	MOVE TEXT
* 
*********************************************************** 
*       REGISTERS 
* 
* 
**********************************************************

MOVTXT	EQU	*
	LCR	A2,A3
	ADK	A3,1 
	SC	A2,STAPOS,A6
	ADK	A6,1 
	SUK	A1,1 
	RB(NZ)	MOVTXT
	RTN	A14
	EJECT
**********************************************************
* 
*	CONASC	CONVERT TO ASCII 
* 
********************************************************
*    REGISTERS
* 
* 
********************************************************
CONASC	EQU	*
	ANK	A2,/0F 
	CCK	A2,/0909 
	RF(G)	CONA10 
	ORK	A2,/30 
	RF	CONA90
CONA10	EQU	*
	ADK	A2,/37 
CONA90	EQU	*
	RTN	A14
	XIF
	EJECT
********************************************************* 
*                                                       * 
*        ATMASF       SEARCH ATTRIBUTE FORWARD          * 
*                                                       * 
********************************************************* 
*		REGISTERS
* 
*	A1= AT ENTRY START SEARCH ADDRESS 
*	A2= RESERVED
*	A3= RESERVED
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ATTRIBUTE CHAR. 
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
********************************************************* 
ATMASF	EQU	*
	ST	A1,REGI,A11 
ASF100	EQU	*
	ADK	A1,1 
	CWK	A1,LBVDU-1	WRAP AROUND?
	RF(NG)	ASF200	NO 
	LDK	A1,0	FIRST POS. ON SCREEN
ASF200	EQU	*
	CW	A1,REGI,A11	WHOLE SCREEN SEARCHED?
	RF(E)	ASF900	YES 
	CF	A14,GETVDU	GET CHAR. IN VDU BUFFER
	CCK	A7,/8000	ATTRIBUTE?
	RB(L)	ASF100	NO
	LDR	A6,A7
	LDR	A5,A1
	CF	A14,STOINF	SAVE NEW SCREEN INFORMATION
ASF900	EQU	*
	RTN	A14
	EJECT
*********************************************************************** 
*                                                                     * 
*        ATMASB       SEARCH ATTRIBUTE BACKWARD                       * 
*                                                                     * 
*********************************************************************** 
*		REGISTERS
* 
*	A1= ATENTRY START SEARCH ADDR.
*	A2= RESERVED
*	A3= RESERVED
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ATTRIBUTE CHAR. 
*	A8= RESERVED
*	A9= RESERVED
*	A10= RESERVED 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
************************************************************************
ATMASB	EQU	*
	ST	A1,REGI,A11 
ASB100	EQU	*
	CF	A14,GETVDU	GET CHAR. IN VDU BUFFER
	CCK	A7,/8000	ATTRIBUTE?
	RF(NL)	ASB300	YES
	SUK	A1,1 
	RF(NN)	ASB200	NOT WRAP AROUND
	LDKL	A1,LBVDU-1	LAST POS. ON SCREEN
ASB200	EQU	*
	CW	A1,REGI,A11	WHOLE SCREEN SEARCHED?
	RF(E)	ASB900	YES 
	RB	ASB100
ASB300	EQU	*
	LDR	A6,A7
	LDR	A5,A1
	CF	A14,STOINF	SAVE SCREEN INFORMATION
ASB900	EQU	*
	RTN	A14
	EJECT
*************************************************************** 
*                                                             * 
*        SNULL       SEARCH FIRST NULL CHAR.                  * 
*                                                             * 
*************************************************************** 
*		REGISTERS
* 
*	A1= AT RETURN  1=NULL FOUND, 2=NO NULL FOUND
*	A2= RESERVED
*	A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY 
*	A4= REL. CURSOR POS.
*	A5= RESERVED
*	A6= RESERVED
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
****************************************************************
SNULL	EQU	* 
	LDR	A1,A4
SNU100	EQU	*
	ADK	A1,1 
	CWK	A1,LBVDU-1	WRAP AROUND?
	RF(NG)	SNU200	NO 
	LDK	A1,0	FIRST SCREEN POS. 
SNU200	EQU	*
	CWR	A1,A3	ALL SEARCHED?
	RF(E)	SNU300	YES 
	CF	A14,GETVDU	GET CHAR IN VDU BUFFER 
	CCK	A7,NULL	NULL CHAR? 
	RB(NE)	SNU100	NO 
	LDR	A3,A1
	LDK	A1,1	INDICATE NULL FOUND 
	RF	SNU900
SNU300	EQU	*
	LDK	A1,2 
SNU900	EQU	*
	RTN	A14
	EJECT
************************************************************
*                                                          *
*        WCHAR       DISPLAY CHAR. AND CURSOR              *
*                                                          *
************************************************************
*		REGISTERS
* 
*	A2= KEY-CHAR
*	A4= REL. CURSOR POS.
*	A5= REL. ATTRIBUTE POS. 
*	A6= ATTRIBUTE CHAR. 
*	A8= VDU-ECB 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
************************************************************* 
WCHAR	EQU	* 
	LD	A8,ECBVDU,A11 
	LDK	A1,/1E	LOW INTENSITY CHAR. 
	LDR	A7,A6
	ANK	A7,/8	STANDARD DISPLAY?
	RF(Z)	WCH300	YES 
	LDR	A7,A6
	ANK	A7,/4	INTENSIFIED DISPLAY? 
	RF(NZ)	WCH200	NO 
	LDK	A1,/1F	HIGH INTENSITY CHAR.
	RF	WCH300
WCH200	EQU	*
	LDK	A2,/20	NONDISPLAY
WCH300	EQU	*
	LD	A7,ECBBA,A8	GET BUFFER ADDRESS
	SC	A1,2,A7	SAVE INTENSITY CHAR.
	CF	A14,RFMDUP	REPLACE FM OR DUP CHAR.
	SC	A2,3,A7	STORE CHAR. IN VDU BUFFER 
	LDK	A1,4	REQ. LENGTH 
	CF	A14,DISCHA	DISPLAY
	ADK	A4,1 
	IM	PCURS,A11 
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN? 
	RF(E)	WCH900	YES 
	ORK	A6,1	SET MDT-BITS IN ATTRIBUTE 
	ST	A6,ATTRIB,A11 
	LDR	A1,A5
	LDR	A7,A6
	CF	A14,STOVDU	STORE CHAR. IN VDU BUFFER
WCH900	EQU	*
	RTN	A14
	EJECT
********************************************************* 
*                                                       * 
*        RFMDUP       REPLACE FM OR DUP CHAR IF PRESENT * 
*                                                       * 
********************************************************* 
*		REGISTERS
*	A2= KEY-CHAR
*	A4= RESERVED
*	A5= RESERVED
*	A6= RESERVED
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
*********************************************** 
RFMDUP	EQU	*
	CWK	A2,DUPCH	DUP CHAR? 
	RF(NE)	RFMD10	NO 
	LDK	A2,/2A	REPLACE 
	RF	RFMD90
RFMD10	EQU	*
	CWK	A2,FMCH	FM CHAR? 
	RF(NE)	RFMD90	NO 
	LDK	A2,/3B	REPLACE 
RFMD90	EQU	*
	RTN	A14
	EJECT
************************************************
*                                              *
*        DISCHA       DISPLAY CHAR             *
*                                              *
************************************************
*		REGISTERS
* 
*	A1= REQ. LENGTH 
*	A2= RESERVED
*	A4= RESERVED
*	A5= RESERVED
*	A6= RESERVED
*	A8= VDU-ECB 
*	A11= CREDIT WORK AREA 
*	A13= RESERVED 
* 
************************************************* 
DISCHA	EQU	*
	LC	A2,TCT01,A11
	CCK	A2,VDUCOD	PRINTER UNPACK?
	RF(NE)	DISC95	YES
	LD	A8,ECBVDU,A11 
	ST	A1,ECBRL,A8 
	LDKL	A1,/101	START AT LINE 1 POS. 1
	ST	A1,ECBCW,A8 
	LDKL	A1,/100 
	LDR	A7,A4	CURSOR POS.
DISC10	EQU	*
	CWK	A7,LLINE	NEXT LINE?
	RF(L)	DISC90	NO
	ADS	A1,ECBCW,A8	MOVE TO NEXT LINE
	SUKL	A7,LLINE
	RB	DISC10
DISC90	EQU	*
	ADS	A7,ECBCW,A8	POSITION IN LINE 
	LDK	A7,/8B	SET CURSOR AND WRITE
	LKM
	DATA	1 
DISC95	EQU	*
	RTN	A14

	END

HexDump

0x0000…0032 (0, 0, 400)   Head {h00=0x002e, h01=0x0050, text=» IDENT VDU REL 11.0 82-09-28 870150541100 «, t00=0x0000, t01=0x0004}
0x0032…003a               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…0056               Head {h00=0x0018, h01=0x0050, text=»   =22, BLOCK OUTPUT«, t00=0x0000, t01=0x003e}
0x0056…007e               Head {h00=0x0024, h01=0x0050, text=»   MOVE TO UNPROT, ONLY FOR P&T «, t00=0x0000, t01=0x005a}
0x007e…0086               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0082}
0x0086…00ae               Head {h00=0x0024, h01=0x0050, text=»   =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x008a}
0x00ae…00d8               Head {h00=0x0026, h01=0x0050, text=»   =21 LOOP WHEN VDU NOT OPERABLE «, t00=0x0000, t01=0x00b2}
0x00d8…00ec               Head {h00=0x0010, h01=0x0050, text=»   82-05-17 «, t00=0x0000, t01=0x00dc}
0x00ec…0108               Head {h00=0x0018, h01=0x0050, text=»   =2 LOOP IN ERASUA«, t00=0x0000, t01=0x00f0}
0x0108…011c               Head {h00=0x0010, h01=0x0050, text=»   82-03-10 «, t00=0x0000, t01=0x010c}
0x011c…0142               Head {h00=0x0022, h01=0x0050, text=»   DK1 BAD CHECK ON ATTRIBUTE «, t00=0x0000, t01=0x0120}
0x0142…0164               Head {h00=0x001e, h01=0x0050, text=»   DK BAD TEST ON INTESITY«, t00=0x0000, t01=0x0146}
0x0164…0184               Head {h00=0x001c, h01=0x0050, text=»   =1, LINFLG AT UNFORM.«, t00=0x0000, t01=0x0168}
0x0184…0198               Head {h00=0x0010, h01=0x0050, text=»   81-01-26 «, t00=0x0000, t01=0x0188}
0x0198…01e0               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x000c}
0x01e0…0228               Head {h00=0x0044, h01=0x0050, text=»*                                                              *«, t00=0x0001, t01=0x0054}
0x0228…0270               Head {h00=0x0044, h01=0x0050, text=»*        MODULE    VDU                                         *«, t00=0x0001, t01=0x009c}
0x0270…02b8               Head {h00=0x0044, h01=0x0050, text=»*                  MODULE HANDLING THE DISPLAY SCREEN AND      *«, t00=0x0001, t01=0x00e4}
0x02b8…0300               Head {h00=0x0044, h01=0x0050, text=»*                  BUFFER                                      *«, t00=0x0001, t01=0x012c}
0x0300…0348               Head {h00=0x0044, h01=0x0050, text=»*                  (EMULATION 3270 SNA/SDLC, BSC)              *«, t00=0x0001, t01=0x0174}
0x0348…0390               Head {h00=0x0044, h01=0x0050, text=»*                                                              *«, t00=0x0002, t01=0x002c}
0x0390…03d8               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0002, t01=0x0074}
0x03d8…03e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00bc}
0x03e6…042a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0002, t01=0x00ca}
0x042a…0434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0434…044e               Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x0118}
0x044e…0458               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0132}
0x0458…048e               Head {h00=0x0032, h01=0x0050, text=»*        DISMOD       DISPLAY MODIFIED FIELDS «, t00=0x0002, t01=0x013c}
0x048e…04b8               Head {h00=0x0026, h01=0x0050, text=»*        DISLIN       DISPLAY LINE«, t00=0x0002, t01=0x0172}
0x04b8…04f2               Head {h00=0x0036, h01=0x0050, text=»*        SPACES       MOVE SPACES INTO ECB BUFFER «, t00=0x0003, t01=0x000c}
0x04f2…0524               Head {h00=0x002e, h01=0x0050, text=»*        INTCHK       GET INTENSITY CHAR. «, t00=0x0003, t01=0x0046}
0x0524…0558               Head {h00=0x0030, h01=0x0050, text=»*        SETIND       SET DISPLAY INDICATOR «, t00=0x0003, t01=0x0078}
0x0558…0582               Head {h00=0x0026, h01=0x0050, text=»*        INSMOD       INSERT CHAR.«, t00=0x0003, t01=0x00ac}
0x0582…05b0               Head {h00=0x002a, h01=0x0050, text=»*        UPDCNT       UPDATE COUNTERS «, t00=0x0003, t01=0x00d6}
0x05b0…05e6               Head {h00=0x0032, h01=0x0050, text=»*        GETVDU       GET CHAR. IN VDU BUFFER «, t00=0x0003, t01=0x0104}
0x05e6…061c               Head {h00=0x0032, h01=0x0050, text=»*        STOVDU       STORE CHAR IN VDU BUFFER«, t00=0x0003, t01=0x013a}
0x061c…0650               Head {h00=0x0030, h01=0x0050, text=»*        SCRINF       GET SCREEN INFORMATION«, t00=0x0003, t01=0x0170}
0x0650…0686               Head {h00=0x0032, h01=0x0050, text=»*        STOINF       STORE SCREEN INFORMATION«, t00=0x0004, t01=0x0014}
0x0686…06b0               Head {h00=0x0026, h01=0x0050, text=»*        SOUND        SOUND ALARM «, t00=0x0004, t01=0x004a}
0x06b0…06e2               Head {h00=0x002e, h01=0x0050, text=»*        WRAP         CHECK IF WRAP AROUND«, t00=0x0004, t01=0x0074}
0x06e2…0712               Head {h00=0x002c, h01=0x0050, text=»*        LINWRP       CHECK IF LINE WRAP«, t00=0x0004, t01=0x00a6}
0x0712…0740               Head {h00=0x002a, h01=0x0050, text=»*        LINE         UPDATE LINE FLAG«, t00=0x0004, t01=0x00d6}
0x0740…0780               Head {h00=0x003c, h01=0x0050, text=»*        LINATT       UPDATE LINFLG AT ATTRIBUTE CHANGE «, t00=0x0004, t01=0x0104}
0x0780…07ae               Head {h00=0x002a, h01=0x0050, text=»*        NLROUT       NEW LINE ROUTINE«, t00=0x0004, t01=0x0144}
0x07ae…07e0               Head {h00=0x002e, h01=0x0050, text=»*        ERASE        ERASE ENTIRE SCREEN «, t00=0x0004, t01=0x0172}
0x07e0…0814               Head {h00=0x0030, h01=0x0050, text=»*        ERASUP       ERASE ALL UNPROTECTED «, t00=0x0005, t01=0x0014}
0x0814…084e               Head {h00=0x0036, h01=0x0050, text=»*        ERASUA       ERASE UNPROTECTED TO ADDRESS«, t00=0x0005, t01=0x0048}
0x084e…088a               Head {h00=0x0038, h01=0x0050, text=»*        POSUNP       MOVE CURSOR TO NEXT UNPRO. POS«, t00=0x0005, t01=0x0082}
0x088a…08c0               Head {h00=0x0032, h01=0x0050, text=»*        DISID        DISPLAY HARDCOPY TASKID «, t00=0x0005, t01=0x00be}
0x08c0…08f0               Head {h00=0x002c, h01=0x0050, text=»*        DISSTA       DISPLAY STATISTICS«, t00=0x0005, t01=0x00f4}
0x08f0…0918               Head {h00=0x0024, h01=0x0050, text=»*        MOVTXT       MOVE TEXT «, t00=0x0005, t01=0x0124}
0x0918…0946               Head {h00=0x002a, h01=0x0050, text=»*        CONASC       CONVERT TO ASCII«, t00=0x0005, t01=0x014c}
0x0946…097c               Head {h00=0x0032, h01=0x0050, text=»*        ATMASF       SEARCH ATTRIBUTE FORWARD«, t00=0x0005, t01=0x017a}
0x097c…09b4               Head {h00=0x0034, h01=0x0050, text=»*        ATMASB       SEARCH ATTRIBUTE BACKWARD «, t00=0x0006, t01=0x0020}
0x09b4…09ea               Head {h00=0x0032, h01=0x0050, text=»*        SNULL        SEARCH FIRST NULL CHAR. «, t00=0x0006, t01=0x0058}
0x09ea…0a20               Head {h00=0x0032, h01=0x0050, text=»*        WCHAR        DISPLAY CHAR. AND CURSOR«, t00=0x0006, t01=0x008e}
0x0a20…0a5c               Head {h00=0x0038, h01=0x0050, text=»*        RFMDUP       REPLACE FM OR DUP CHAR. IF ANY«, t00=0x0006, t01=0x00c4}
0x0a5c…0a88               Head {h00=0x0028, h01=0x0050, text=»*        DISCHA       DISPLAY CHAR. «, t00=0x0006, t01=0x0100}
0x0a88…0a92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a92…0adc               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0006, t01=0x0136}
0x0adc…0aea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0180}
0x0aea…0b36               Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0006, t01=0x018e}
0x0b36…0b82               Head {h00=0x0048, h01=0x0050, text=»*                                                                  *«, t00=0x0007, t01=0x004a}
0x0b82…0bce               Head {h00=0x0048, h01=0x0050, text=»*        ENTRY POINTS                                              *«, t00=0x0007, t01=0x0096}
0x0bce…0c1a               Head {h00=0x0048, h01=0x0050, text=»*                                                                  *«, t00=0x0007, t01=0x00e2}
0x0c1a…0c66               Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0007, t01=0x012e}
0x0c66…0c6e               Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x017a}
0x0c6e…0c94               Head {h00=0x0022, h01=0x0050, text=» ENTRY INSMOD INSERT CHARACTER«, t00=0x0007, t01=0x0182}
0x0c94…0cc4               Head {h00=0x002c, h01=0x0050, text=» ENTRY GETVDU GET CHAR. FROM VDU BUFFER «, t00=0x0008, t01=0x0018}
0x0cc4…0cf4               Head {h00=0x002c, h01=0x0050, text=» ENTRY STOVDU STORE CHAR. IN VDU BUFFER «, t00=0x0008, t01=0x0048}
0x0cf4…0d20               Head {h00=0x0028, h01=0x0050, text=» ENTRY SCRINF GET SCREEN INFORMATION«, t00=0x0008, t01=0x0078}
0x0d20…0d4e               Head {h00=0x002a, h01=0x0050, text=» ENTRY STOINF SAVE SCREEN INFORMATION «, t00=0x0008, t01=0x00a4}
0x0d4e…0d82               Head {h00=0x0030, h01=0x0050, text=» ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. «, t00=0x0008, t01=0x00d2}
0x0d82…0db2               Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0008, t01=0x0106}
0x0db2…0de2               Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD «, t00=0x0008, t01=0x0136}
0x0de2…0e06               Head {h00=0x0020, h01=0x0050, text=» ENTRY DISCHA DISPLAY CHAR. «, t00=0x0008, t01=0x0166}
0x0e06…0e34               Head {h00=0x002a, h01=0x0050, text=» ENTRY WCHAR DISPLAY CHAR. AND CURSOR «, t00=0x0008, t01=0x018a}
0x0e34…0e62               Head {h00=0x002a, h01=0x0050, text=» ENTRY DISMOD DISPLAY MODIFIED FIELDS «, t00=0x0009, t01=0x0028}
0x0e62…0e8e               Head {h00=0x0028, h01=0x0050, text=» ENTRY DISID DISPLAY HARDCOPY TASKID«, t00=0x0009, t01=0x0056}
0x0e8e…0ec0               Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0009, t01=0x0082}
0x0ec0…0ee8               Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0009, t01=0x00b4}
0x0ee8…0f10               Head {h00=0x0024, h01=0x0050, text=» ENTRY SOUND SOUND ALARM ON VDU «, t00=0x0009, t01=0x00dc}
0x0f10…0f3c               Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0009, t01=0x0104}
0x0f3c…0f64               Head {h00=0x0024, h01=0x0050, text=» ENTRY WRAP CHECK IF WRAP AROUND«, t00=0x0009, t01=0x0130}
0x0f64…0f8a               Head {h00=0x0022, h01=0x0050, text=» ENTRY NLROUT NEW LINE ROUTINE«, t00=0x0009, t01=0x0158}
0x0f8a…0fb0               Head {h00=0x0022, h01=0x0050, text=» ENTRY LINWRP CHECK LINE WRAP «, t00=0x0009, t01=0x017e}
0x0fb0…0fd4               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINE UPDATE LINE FLAG«, t00=0x000a, t01=0x0014}
0x0fd4…0ff0               Head {h00=0x0018, h01=0x0050, text=» ENTRY LINATT UPADTE«, t00=0x000a, t01=0x0038}
0x0ff0…1018               Head {h00=0x0024, h01=0x0050, text=» ENTRY DISSTA DISPLAY STATISTICS«, t00=0x000a, t01=0x0054}
0x1018…1048               Head {h00=0x002c, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x000a, t01=0x007c}
0x1048…1050               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00ac}
0x1050…105e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00b4}
0x105e…10aa               Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x000a, t01=0x00c2}
0x10aa…10f6               Head {h00=0x0048, h01=0x0050, text=»*                                                                  *«, t00=0x000a, t01=0x010e}
0x10f6…1142               Head {h00=0x0048, h01=0x0050, text=»*        EXTERNAL REFERENCES                                       *«, t00=0x000a, t01=0x015a}
0x1142…118e               Head {h00=0x0048, h01=0x0050, text=»*                                                                  *«, t00=0x000b, t01=0x0016}
0x118e…11da               Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x000b, t01=0x0062}
0x11da…11e2               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00ae}
0x11e2…1216               Head {h00=0x0030, h01=0x0050, text=» EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) «, t00=0x000b, t01=0x00b6}
0x1216…1254               Head {h00=0x003a, h01=0x0050, text=» EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB)«, t00=0x000b, t01=0x00ea}
0x1254…128c               Head {h00=0x0034, h01=0x0050, text=» EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB)«, t00=0x000b, t01=0x0128}
0x128c…12b6               Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE REGISTERS (PAD) «, t00=0x000b, t01=0x0160}
0x12b6…12e2               Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 RESTORE REGISTERS (PAD)«, t00=0x000b, t01=0x018a}
0x12e2…12f0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0026}
0x12f0…12f8               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0034}
0x12f8…1300               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x003c}
0x1300…134e               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000c, t01=0x0044}
0x134e…139c               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x000c, t01=0x0092}
0x139c…13ea               Head {h00=0x004a, h01=0x0050, text=»*        CONDITIONAL ASSEMBLY PARAMETERS                            * «, t00=0x000c, t01=0x00e0}
0x13ea…1438               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x000c, t01=0x012e}
0x1438…1486               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000c, t01=0x017c}
0x1486…148e               Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x003a}
0x148e…14b6               Head {h00=0x0024, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING«, t00=0x000d, t01=0x0042}
0x14b6…14ca               Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x000d, t01=0x006a}
0x14ca…14f0               Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000d, t01=0x007e}
0x14f0…1502               Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000d, t01=0x00a4}
0x1502…1510               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00b6}
0x1510…1558               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000d, t01=0x00c4}
0x1558…15a0               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x000d, t01=0x010c}
0x15a0…15ca               Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000d, t01=0x0154}
0x15ca…1612               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x000d, t01=0x017e}
0x1612…165a               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x0036}
0x165a…1662               Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x007e}
0x1662…166c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0086}
0x166c…1694               Head {h00=0x0024, h01=0x0050, text=»*       EQUATES FOR ECB HANDLING«, t00=0x000e, t01=0x0090}
0x1694…169e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x169e…16c0               Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000e, t01=0x00c2}
0x16c0…16e4               Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000e, t01=0x00e4}
0x16e4…1708               Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000e, t01=0x0108}
0x1708…1728               Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000e, t01=0x012c}
0x1728…174a               Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000e, t01=0x014c}
0x174a…1754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016e}
0x1754…1770               Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x000e, t01=0x0178}
0x1770…177a (15, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x177a…1798               Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x000f, t01=0x000e}
0x1798…17be               Head {h00=0x0022, h01=0x0050, text=»NEWLIN EQU /0A NEW LINE CHAR. «, t00=0x000f, t01=0x002c}
0x17be…17e4               Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /0C FORM FEED CHAR.«, t00=0x000f, t01=0x0052}
0x17e4…180c               Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /19 END MESSAGE CHAR.«, t00=0x000f, t01=0x0078}
0x180c…1832               Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x000f, t01=0x00a0}
0x1832…1858               Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x000f, t01=0x00c6}
0x1858…1862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ec}
0x1862…1884               Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000f, t01=0x00f6}
0x1884…188e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0118}
0x188e…18b2               Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x000f, t01=0x0122}
0x18b2…18bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0146}
0x18bc…18d6               Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x000f, t01=0x0150}
0x18d6…18e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016a}
0x18e0…1906               Head {h00=0x0022, h01=0x0050, text=»LINUPD EQU /0001 LINE UPDATED «, t00=0x000f, t01=0x0174}
0x1906…1932               Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0010, t01=0x000a}
0x1932…193c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x193c…1956               Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0010, t01=0x0040}
0x1956…1960               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005a}
0x1960…1980               Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0010, t01=0x0064}
0x1980…19a2               Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0010, t01=0x0084}
0x19a2…19b6               Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0010, t01=0x00a6}
0x19b6…19c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19c0…19d6               Head {h00=0x0012, h01=0x0050, text=»* STAT. LAYOUT«, t00=0x0010, t01=0x00c4}
0x19d6…19e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00da}
0x19e0…1a10               Head {h00=0x002c, h01=0x0050, text=»NUMLIN EQU 13 NUMBER OF LINES YO DISPLAY«, t00=0x0010, t01=0x00e4}
0x1a10…1a3e               Head {h00=0x002a, h01=0x0050, text=»STALIN EQU 5 STARTING LINE OF DISPLAY «, t00=0x0010, t01=0x0114}
0x1a3e…1a68               Head {h00=0x0026, h01=0x0050, text=»STAPOS EQU 5 STARTTING POS ON LINE«, t00=0x0010, t01=0x0142}
0x1a68…1a94               Head {h00=0x0028, h01=0x0050, text=»TXTSIZ EQU 15 SIZE OF PERMANENT TEXT«, t00=0x0010, t01=0x016c}
0x1a94…1ad0               Head {h00=0x0038, h01=0x0050, text=»INDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00«, t00=0x0011, t01=0x0008}
0x1ad0…1adc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0044}
0x1adc…1aea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0050}
0x1aea…1af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005e}
0x1af4…1b14               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0011, t01=0x0068}
0x1b14…1b30               Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0011, t01=0x0088}
0x1b30…1b3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a4}
0x1b3a…1b62               Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0011, t01=0x00ae}
0x1b62…1b88               Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0011, t01=0x00d6}
0x1b88…1bb8               Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0011, t01=0x00fc}
0x1bb8…1be2               Head {h00=0x0026, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS«, t00=0x0011, t01=0x012c}
0x1be2…1c10               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0011, t01=0x0156}
0x1c10…1c2c               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0011, t01=0x0184}
0x1c2c…1c56               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0012, t01=0x0010}
0x1c56…1c82               Head {h00=0x0028, h01=0x0050, text=»INTATT EQU WCC+8 INTENSITY ATTRIBUTE«, t00=0x0012, t01=0x003a}
0x1c82…1caa               Head {h00=0x0024, h01=0x0050, text=»REGI EQU INTATT+32 WORK REGISTER«, t00=0x0012, t01=0x0066}
0x1caa…1cc4               Head {h00=0x0016, h01=0x0050, text=»ECBVDU EQU REGI+40«, t00=0x0012, t01=0x008e}
0x1cc4…1cce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a8}
0x1cce…1cee               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x00b2}
0x1cee…1d08               Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0012, t01=0x00d2}
0x1d08…1d12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ec}
0x1d12…1d38               Head {h00=0x0022, h01=0x0050, text=»IDTEXT EQU 2 IDENT TEXT LAYOUT«, t00=0x0012, t01=0x00f6}
0x1d38…1d4c               Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0012, t01=0x011c}
0x1d4c…1d7e               Head {h00=0x002e, h01=0x0050, text=»STATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT«, t00=0x0012, t01=0x0130}
0x1d7e…1d8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0162}
0x1d8a…1d98               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x016e}
0x1d98…1dda               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0012, t01=0x017c}
0x1dda…1e1c               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0013, t01=0x002e}
0x1e1c…1e5e               Head {h00=0x003e, h01=0x0050, text=»*        DISMOD       DISPLAY MODIFIED FIELDS           * «, t00=0x0013, t01=0x0070}
0x1e5e…1ea0               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0013, t01=0x00b2}
0x1ea0…1ee2               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0013, t01=0x00f4}
0x1ee2…1ef6               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0013, t01=0x0136}
0x1ef6…1f00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014a}
0x1f00…1f14               Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0013, t01=0x0154}
0x1f14…1f38               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0013, t01=0x0168}
0x1f38…1f56               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0013, t01=0x018c}
0x1f56…1f78               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0014, t01=0x001a}
0x1f78…1f94               Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0014, t01=0x003c}
0x1f94…1fae               Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0014, t01=0x0058}
0x1fae…1fc4               Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0014, t01=0x0072}
0x1fc4…1fe4               Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0014, t01=0x0088}
0x1fe4…1ffc               Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0014, t01=0x00a8}
0x1ffc…201c               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0014, t01=0x00c0}
0x201c…2034               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0014, t01=0x00e0}
0x2034…203e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f8}
0x203e…207c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0014, t01=0x0102}
0x207c…2090               Head {h00=0x0010, h01=0x0050, text=»DISMOD EQU *«, t00=0x0014, t01=0x0140}
0x2090…20aa               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0014, t01=0x0154}
0x20aa…20ce               Head {h00=0x0020, h01=0x0050, text=» LDK A7,/BD START BLOCK =22 «, t00=0x0014, t01=0x016e}
0x20ce…20e0 (21, 0, 398)  Head {h00=0x000e, h01=0x0050, text=» LKM   =22«, t00=0x0015, t01=0x0004}
0x20e0…20f4               Head {h00=0x0010, h01=0x0050, text=» DATA 1  =22«, t00=0x0015, t01=0x0016}
0x20f4…2118               Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/101 LINE 1 POS. 1 «, t00=0x0015, t01=0x002a}
0x2118…2130               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0015, t01=0x004e}
0x2130…215a               Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0015, t01=0x0066}
0x215a…216e               Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0015, t01=0x0090}
0x216e…2184               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0015, t01=0x00a4}
0x2184…2198               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0015, t01=0x00ba}
0x2198…21ae               Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0015, t01=0x00ce}
0x21ae…21d4               Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. DK«, t00=0x0015, t01=0x00e4}
0x21d4…2200               Head {h00=0x0028, h01=0x0050, text=» CF A14,SPACES SPACES IN ECB BUFFER «, t00=0x0015, t01=0x010a}
0x2200…2218               Head {h00=0x0014, h01=0x0050, text=» ST A5,REGI,A11 «, t00=0x0015, t01=0x0136}
0x2218…2230               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x0015, t01=0x014e}
0x2230…2244               Head {h00=0x0010, h01=0x0050, text=» LDR A5,A11 «, t00=0x0015, t01=0x0166}
0x2244…225c               Head {h00=0x0014, h01=0x0050, text=» CW A1,REGI,A11 «, t00=0x0015, t01=0x017a}
0x225c…2276 (22, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» RF(NE) DIS100 NO «, t00=0x0016, t01=0x0004}
0x2276…2296               Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 LOW INTENSITY «, t00=0x0016, t01=0x001e}
0x2296…22b0               Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0016, t01=0x003e}
0x22b0…22c4               Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0016, t01=0x0058}
0x22c4…22d8               Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0016, t01=0x006c}
0x22d8…22ee               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIS900«, t00=0x0016, t01=0x0080}
0x22ee…231a               Head {h00=0x0028, h01=0x0050, text=» CF A14,INTCHK CHECK INTENSITY CHAR.«, t00=0x0016, t01=0x0096}
0x231a…232e               Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0016, t01=0x00c2}
0x232e…2342               Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0016, t01=0x00d6}
0x2342…2354               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0016, t01=0x00ea}
0x2354…2374               Head {h00=0x001c, h01=0x0050, text=» RF(N) DIS800 NONDISPLAY«, t00=0x0016, t01=0x00fc}
0x2374…2398               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DIS400 DISPLAY LINE «, t00=0x0016, t01=0x011c}
0x2398…23c0               Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW,A8 NO MODIFICATION «, t00=0x0016, t01=0x0140}
0x23c0…23e2               Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1901 ALLDISPLAYED«, t00=0x0016, t01=0x0168}
0x23e2…23fc               Head {h00=0x0016, h01=0x0050, text=» RB(NE) DIS100 NO «, t00=0x0016, t01=0x018a}
0x23fc…240e               Head {h00=0x000e, h01=0x0050, text=» RF DIS900«, t00=0x0017, t01=0x0014}
0x240e…2422               Head {h00=0x0010, h01=0x0050, text=»DIS400 EQU *«, t00=0x0017, t01=0x0026}
0x2422…2448               Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x0017, t01=0x003a}
0x2448…2460               Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS500 NO«, t00=0x0017, t01=0x0060}
0x2460…2484               Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x0017, t01=0x0078}
0x2484…2496               Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0017, t01=0x009c}
0x2496…24aa               Head {h00=0x0010, h01=0x0050, text=»DIS500 EQU *«, t00=0x0017, t01=0x00ae}
0x24aa…24d4               Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x0017, t01=0x00c2}
0x24d4…24fe               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETIND SET SPACE INDICATOR«, t00=0x0017, t01=0x00ec}
0x24fe…251e               Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x0116}
0x251e…2538               Head {h00=0x0016, h01=0x0050, text=» RF(NL) DIS700 YES«, t00=0x0017, t01=0x0136}
0x2538…255e               Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0017, t01=0x0150}
0x255e…257e               Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0017, t01=0x0176}
0x257e…2598               Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0018, t01=0x0008}
0x2598…25be               Head {h00=0x0022, h01=0x0050, text=» CWK A2,NEWLIN NEW LINE CHAR.?«, t00=0x0018, t01=0x0022}
0x25be…25d8               Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0018, t01=0x0048}
0x25d8…2602               Head {h00=0x0026, h01=0x0050, text=» CWK A2,ENDMES END MESSAGE CHAR.? «, t00=0x0018, t01=0x0062}
0x2602…261c               Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0018, t01=0x008c}
0x261c…2644               Head {h00=0x0024, h01=0x0050, text=» CWK A2,FORMFD FORM FEED CHAR.? «, t00=0x0018, t01=0x00a6}
0x2644…265e               Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0018, t01=0x00ce}
0x265e…268e               Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE DUP AND FM CHAR. «, t00=0x0018, t01=0x00e8}
0x268e…26bc               Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A6 STORE CHAR. IN ECB BUFFER«, t00=0x0018, t01=0x0118}
0x26bc…26ce               Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x0018, t01=0x0146}
0x26ce…26e2               Head {h00=0x0010, h01=0x0050, text=»DIS700 EQU *«, t00=0x0018, t01=0x0158}
0x26e2…26fc               Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0018, t01=0x016c}
0x26fc…270e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x0186}
0x270e…272e               Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0019, t01=0x0008}
0x272e…2748               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS725 YES «, t00=0x0019, t01=0x0028}
0x2748…276a               Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0019, t01=0x0042}
0x276a…2784               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS715 YES «, t00=0x0019, t01=0x0064}
0x2784…27aa               Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0019, t01=0x007e}
0x27aa…27c8               Head {h00=0x001a, h01=0x0050, text=» RF DIS800 NONDISPLAY «, t00=0x0019, t01=0x00a4}
0x27c8…27dc               Head {h00=0x0010, h01=0x0050, text=»DIS715 EQU *«, t00=0x0019, t01=0x00c2}
0x27dc…27f4               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0019, t01=0x00d6}
0x27f4…2806               Head {h00=0x000e, h01=0x0050, text=» RF DIS750«, t00=0x0019, t01=0x00ee}
0x2806…281a               Head {h00=0x0010, h01=0x0050, text=»DIS725 EQU *«, t00=0x0019, t01=0x0100}
0x281a…2832               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0019, t01=0x0114}
0x2832…2846               Head {h00=0x0010, h01=0x0050, text=»DIS750 EQU *«, t00=0x0019, t01=0x012c}
0x2846…2872               Head {h00=0x0028, h01=0x0050, text=» SCR A2,A6 SAVE CHAR. IN ECB BUFFER «, t00=0x0019, t01=0x0140}
0x2872…2884               Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x016c}
0x2884…28aa               Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0019, t01=0x017e}
0x28aa…28bc               Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x001a, t01=0x0014}
0x28bc…28ce               Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x001a, t01=0x0026}
0x28ce…28e2               Head {h00=0x0010, h01=0x0050, text=»DIS800 EQU *«, t00=0x001a, t01=0x0038}
0x28e2…2908               Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x001a, t01=0x004c}
0x2908…2920               Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS850 NO«, t00=0x001a, t01=0x0072}
0x2920…2944               Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x001a, t01=0x008a}
0x2944…2956               Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x001a, t01=0x00ae}
0x2956…296a               Head {h00=0x0010, h01=0x0050, text=»DIS850 EQU *«, t00=0x001a, t01=0x00c0}
0x296a…2994               Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x001a, t01=0x00d4}
0x2994…29b4               Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x001a, t01=0x00fe}
0x29b4…29ce               Head {h00=0x0016, h01=0x0050, text=» RB(NL) DIS700 YES«, t00=0x001a, t01=0x011e}
0x29ce…29f4               Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x001a, t01=0x0138}
0x29f4…2a06               Head {h00=0x000e, h01=0x0050, text=» RB DIS800«, t00=0x001a, t01=0x015e}
0x2a06…2a1a               Head {h00=0x0010, h01=0x0050, text=»DIS900 EQU *«, t00=0x001a, t01=0x0170}
0x2a1a…2a48               Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001a, t01=0x0184}
0x2a48…2a66               Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x001b, t01=0x0022}
0x2a66…2a88               Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x001b, t01=0x0040}
0x2a88…2aac               Head {h00=0x0020, h01=0x0050, text=» LDK A7,/BE END OF BLOCK =22«, t00=0x001b, t01=0x0062}
0x2aac…2abe               Head {h00=0x000e, h01=0x0050, text=» LKM   =22«, t00=0x001b, t01=0x0086}
0x2abe…2ad2               Head {h00=0x0010, h01=0x0050, text=» DATA 1  =22«, t00=0x001b, t01=0x0098}
0x2ad2…2ae2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x00ac}
0x2ae2…2af0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00bc}
0x2af0…2b34               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001b, t01=0x00ca}
0x2b34…2b78               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x001b, t01=0x010e}
0x2b78…2bbc               Head {h00=0x0040, h01=0x0050, text=»*        DISLIN       DISPLAY LINE ON VDU                 * «, t00=0x001b, t01=0x0152}
0x2bbc…2c00               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x001c, t01=0x0008}
0x2c00…2c44               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001c, t01=0x004c}
0x2c44…2c58               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x001c, t01=0x0090}
0x2c58…2c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a4}
0x2c62…2c78               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x001c, t01=0x00ae}
0x2c78…2c8e               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001c, t01=0x00c4}
0x2c8e…2ca4               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001c, t01=0x00da}
0x2ca4…2cba               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001c, t01=0x00f0}
0x2cba…2cd0               Head {h00=0x0012, h01=0x0050, text=»* A8= ECB VDU «, t00=0x001c, t01=0x0106}
0x2cd0…2cf0               Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x001c, t01=0x011c}
0x2cf0…2d08               Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x013c}
0x2d08…2d20               Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x001c, t01=0x0154}
0x2d20…2d38               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x016c}
0x2d38…2d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0184}
0x2d42…2d86               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001c, t01=0x018e}
0x2d86…2d9a               Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x001d, t01=0x0042}
0x2d9a…2db8               Head {h00=0x001a, h01=0x0050, text=» LDK A7,2 REQ. LENGTH «, t00=0x001d, t01=0x0056}
0x2db8…2dcc               Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x001d, t01=0x0074}
0x2dcc…2dec               Head {h00=0x001c, h01=0x0050, text=» ANKL A1,1 ONLY SPACES? «, t00=0x001d, t01=0x0088}
0x2dec…2e06               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL10 YES «, t00=0x001d, t01=0x00a8}
0x2e06…2e2a               Head {h00=0x0020, h01=0x0050, text=» LDKL A7,LLINE+2 REQ. LENGTH«, t00=0x001d, t01=0x00c2}
0x2e2a…2e5a               Head {h00=0x002c, h01=0x0050, text=» ADR A7,A9 ADD NUMBER OF INTENSITY CHAR.«, t00=0x001d, t01=0x00e6}
0x2e5a…2e6e               Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x001d, t01=0x0116}
0x2e6e…2e86               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x001d, t01=0x012a}
0x2e86…2eb2               Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBCW,A8 SAVE CURSOR POS =21 «, t00=0x001d, t01=0x0142}
0x2eb2…2edc               Head {h00=0x0026, h01=0x0050, text=» LDKL A7,/8B SET CURSOR AND WRITE «, t00=0x001d, t01=0x016e}
0x2edc…2ee8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0008}
0x2ee8…2ef8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x0014}
0x2ef8…2f16               Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 . =21 «, t00=0x001e, t01=0x0024}
0x2f16…2f3a               Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 NOT OPERABLE? =21 «, t00=0x001e, t01=0x0042}
0x2f3a…2f60               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL20 VDU OPERABLE =21«, t00=0x001e, t01=0x0066}
0x2f60…2f94               Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 «, t00=0x001e, t01=0x008c}
0x2f94…2fbe               Head {h00=0x0026, h01=0x0050, text=» RF DISL90 TERMINATE VDU LINE =21 «, t00=0x001e, t01=0x00c0}
0x2fbe…2fd8               Head {h00=0x0016, h01=0x0050, text=»DISL20 EQU * . =21«, t00=0x001e, t01=0x00ea}
0x2fd8…3000               Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CURSOR POS. «, t00=0x001e, t01=0x0104}
0x3000…3014               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x012c}
0x3014…3044               Head {h00=0x002c, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE DISPLAYED? «, t00=0x001e, t01=0x0140}
0x3044…305e               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL90 YES «, t00=0x001e, t01=0x0170}
0x305e…3076               Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x001e, t01=0x018a}
0x3076…308a               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2B «, t00=0x001f, t01=0x0012}
0x308a…309e               Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x001f, t01=0x0026}
0x309e…30b4               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1420«, t00=0x001f, t01=0x003a}
0x30b4…30c8               Head {h00=0x0010, h01=0x0050, text=» SC A2,3,A6 «, t00=0x001f, t01=0x0050}
0x30c8…30da               Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x001f, t01=0x0064}
0x30da…30ee               Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A6 «, t00=0x001f, t01=0x0076}
0x30ee…3100               Head {h00=0x000e, h01=0x0050, text=» LDK A2,84«, t00=0x001f, t01=0x008a}
0x3100…3118               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x001f, t01=0x009c}
0x3118…3132               Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x001f, t01=0x00b4}
0x3132…313e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x00ce}
0x313e…314e               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x00da}
0x314e…3162               Head {h00=0x0010, h01=0x0050, text=»DISL90 EQU *«, t00=0x001f, t01=0x00ea}
0x3162…3174               Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x001f, t01=0x00fe}
0x3174…3198               Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 FIRST POS. ON LINE«, t00=0x001f, t01=0x0110}
0x3198…31b2               Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x001f, t01=0x0134}
0x31b2…31da               Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 MOVE ONE LINE DOWN«, t00=0x001f, t01=0x014e}
0x31da…31f2               Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x001f, t01=0x0176}
0x31f2…3206               Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x001f, t01=0x018e}
0x3206…321e               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0020, t01=0x0012}
0x321e…3242               Head {h00=0x0020, h01=0x0050, text=» CWK A2,/1901 END OF SCREEN «, t00=0x0020, t01=0x002a}
0x3242…325c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISL95 NO «, t00=0x0020, t01=0x004e}
0x325c…3270               Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x0020, t01=0x0068}
0x3270…3284               Head {h00=0x0010, h01=0x0050, text=»DISL95 EQU *«, t00=0x0020, t01=0x007c}
0x3284…32b4               Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES MOVE SPACES TO ECB BUFFER«, t00=0x0020, t01=0x0090}
0x32b4…32c4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x00c0}
0x32c4…32d2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00d0}
0x32d2…3316               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x00de}
0x3316…335a               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0020, t01=0x0122}
0x335a…339e               Head {h00=0x0040, h01=0x0050, text=»*        SPACES       MOVE SPACES TO ECB BUFFER            *«, t00=0x0020, t01=0x0166}
0x339e…33e2               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0021, t01=0x001a}
0x33e2…3426               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0021, t01=0x005e}
0x3426…343a               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0021, t01=0x00a2}
0x343a…3444               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b6}
0x3444…3458               Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0021, t01=0x00c0}
0x3458…346e               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0021, t01=0x00d4}
0x346e…3484               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0021, t01=0x00ea}
0x3484…349a               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0021, t01=0x0100}
0x349a…34be               Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0021, t01=0x0116}
0x34be…34d8               Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0021, t01=0x013a}
0x34d8…34ee               Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0021, t01=0x0154}
0x34ee…350e               Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0021, t01=0x016a}
0x350e…3526               Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0021, t01=0x018a}
0x3526…353e               Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0022, t01=0x0012}
0x353e…3556               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0022, t01=0x002a}
0x3556…3560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0042}
0x3560…35a4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0022, t01=0x004c}
0x35a4…35b8               Head {h00=0x0010, h01=0x0050, text=»SPACES EQU *«, t00=0x0022, t01=0x0090}
0x35b8…35e2               Head {h00=0x0026, h01=0x0050, text=» LD A6,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0022, t01=0x00a4}
0x35e2…35f4               Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0022, t01=0x00ce}
0x35f4…3616               Head {h00=0x001e, h01=0x0050, text=» LDK A7,LLINE LINE LENGTH «, t00=0x0022, t01=0x00e0}
0x3616…3636               Head {h00=0x001c, h01=0x0050, text=» ADR A7,A7 BUFFER LENGTH«, t00=0x0022, t01=0x0102}
0x3636…3652               Head {h00=0x0018, h01=0x0050, text=» LDKL A2,'  ' SPACES«, t00=0x0022, t01=0x0122}
0x3652…3666               Head {h00=0x0010, h01=0x0050, text=»SPAC10 EQU *«, t00=0x0022, t01=0x013e}
0x3666…3678               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0022, t01=0x0152}
0x3678…368c               Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x0022, t01=0x0164}
0x368c…369e               Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0022, t01=0x0178}
0x369e…36c4               Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 WHOLE BUFFER SPACED?«, t00=0x0022, t01=0x018a}
0x36c4…36dc               Head {h00=0x0014, h01=0x0050, text=» RB(P) SPAC10 NO«, t00=0x0023, t01=0x0020}
0x36dc…36f4               Head {h00=0x0014, h01=0x0050, text=» LDK A2,0 CHAR. «, t00=0x0023, t01=0x0038}
0x36f4…371a               Head {h00=0x0022, h01=0x0050, text=» LD A6,ECBBA,A8 BUFFER ADDRESS«, t00=0x0023, t01=0x0050}
0x371a…372c               Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0023, t01=0x0076}
0x372c…3752               Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 RESET CHAR. COUNTER «, t00=0x0023, t01=0x0088}
0x3752…3762               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x00ae}
0x3762…3770               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00be}
0x3770…37b2               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0023, t01=0x00cc}
0x37b2…37f4               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0023, t01=0x010e}
0x37f4…3836               Head {h00=0x003e, h01=0x0050, text=»*        INTCHK       GET INTENSITY CHAR.               * «, t00=0x0023, t01=0x0150}
0x3836…3878 (36, 0, 400)  Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0024, t01=0x0004}
0x3878…38ba               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0024, t01=0x0046}
0x38ba…38ce               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0024, t01=0x0088}
0x38ce…38d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x009c}
0x38d8…38ec               Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0024, t01=0x00a6}
0x38ec…3902               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0024, t01=0x00ba}
0x3902…3918               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0024, t01=0x00d0}
0x3918…392e               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0024, t01=0x00e6}
0x392e…3952               Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0024, t01=0x00fc}
0x3952…3968               Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0024, t01=0x0120}
0x3968…397e               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0024, t01=0x0136}
0x397e…399e               Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0024, t01=0x014c}
0x399e…39b6               Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0024, t01=0x016c}
0x39b6…39d6               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0024, t01=0x0184}
0x39d6…39ee               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0025, t01=0x0014}
0x39ee…39f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002c}
0x39f8…3a30               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0025, t01=0x0036}
0x3a30…3a44               Head {h00=0x0010, h01=0x0050, text=»INTCHK EQU *«, t00=0x0025, t01=0x006e}
0x3a44…3a6e               Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0025, t01=0x0082}
0x3a6e…3a96               Head {h00=0x0024, h01=0x0050, text=» LC A2,LINFLG,A5 GET LINE FLAG  «, t00=0x0025, t01=0x00ac}
0x3a96…3ab2               Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 MODIFIED? «, t00=0x0025, t01=0x00d4}
0x3ab2…3acc               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) INT100 YES«, t00=0x0025, t01=0x00f0}
0x3acc…3aec               Head {h00=0x001c, h01=0x0050, text=» ADK A3,LLINE NEXT LINE «, t00=0x0025, t01=0x010a}
0x3aec…3b02               Head {h00=0x0012, h01=0x0050, text=» ADK A4,LLINE «, t00=0x0025, t01=0x012a}
0x3b02…3b14               Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0025, t01=0x0140}
0x3b14…3b26               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0025, t01=0x0152}
0x3b26…3b40               Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x0025, t01=0x0164}
0x3b40…3b56               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0025, t01=0x017e}
0x3b56…3b6e (38, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0026, t01=0x0004}
0x3b6e…3b82               Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0026, t01=0x001c}
0x3b82…3b94               Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0026, t01=0x0030}
0x3b94…3ba8               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0026, t01=0x0042}
0x3ba8…3bc0               Head {h00=0x0014, h01=0x0050, text=» LC A2,LINFLG,A5«, t00=0x0026, t01=0x0056}
0x3bc0…3bd2               Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0026, t01=0x006e}
0x3bd2…3bea               Head {h00=0x0014, h01=0x0050, text=» SC A2,LINFLG,A5«, t00=0x0026, t01=0x0080}
0x3bea…3bfe               Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x0026, t01=0x0098}
0x3bfe…3c16               Head {h00=0x0014, h01=0x0050, text=» LD A2,REGI,A11 «, t00=0x0026, t01=0x00ac}
0x3c16…3c42               Head {h00=0x0028, h01=0x0050, text=» CWK A2,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0026, t01=0x00c4}
0x3c42…3c5c               Head {h00=0x0016, h01=0x0050, text=» RF(E) INT200 YES «, t00=0x0026, t01=0x00f0}
0x3c5c…3c72               Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0026, t01=0x010a}
0x3c72…3c84               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0026, t01=0x0120}
0x3c84…3c9a               Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0026, t01=0x0132}
0x3c9a…3cac               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A5«, t00=0x0026, t01=0x0148}
0x3cac…3cbe               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x0026, t01=0x015a}
0x3cbe…3cea               Head {h00=0x0028, h01=0x0050, text=» CF A14,ATMASB GET CURRENT ATTRIBUTE«, t00=0x0026, t01=0x016c}
0x3cea…3d04               Head {h00=0x0016, h01=0x0050, text=» ST A6,INTATT,A11 «, t00=0x0027, t01=0x0008}
0x3d04…3d16               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0027, t01=0x0022}
0x3d16…3d28               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0027, t01=0x0034}
0x3d28…3d3e               Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0027, t01=0x0046}
0x3d3e…3d54               Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x0027, t01=0x005c}
0x3d54…3d66               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0027, t01=0x0072}
0x3d66…3d7a               Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x0027, t01=0x0084}
0x3d7a…3d94               Head {h00=0x0016, h01=0x0050, text=» LD A2,INTATT,A11 «, t00=0x0027, t01=0x0098}
0x3d94…3da6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0027, t01=0x00b2}
0x3da6…3dc6               Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0027, t01=0x00c4}
0x3dc6…3de0               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT300 YES «, t00=0x0027, t01=0x00e4}
0x3de0…3e02               Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0027, t01=0x00fe}
0x3e02…3e28               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) INT800 NO, NONDISPLAY «, t00=0x0027, t01=0x0120}
0x3e28…3e40               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0027, t01=0x0146}
0x3e40…3e52               Head {h00=0x000e, h01=0x0050, text=» RF INT400«, t00=0x0027, t01=0x015e}
0x3e52…3e66               Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x0027, t01=0x0170}
0x3e66…3e7e               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0027, t01=0x0184}
0x3e7e…3e92               Head {h00=0x0010, h01=0x0050, text=»INT400 EQU *«, t00=0x0028, t01=0x000c}
0x3e92…3eb8               Head {h00=0x0022, h01=0x0050, text=» SCR A2,A6 SAVE IN ECB BUFFER «, t00=0x0028, t01=0x0020}
0x3eb8…3eca               Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0028, t01=0x0046}
0x3eca…3edc               Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0028, t01=0x0058}
0x3edc…3eee               Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0028, t01=0x006a}
0x3eee…3f02               Head {h00=0x0010, h01=0x0050, text=»INT800 EQU *«, t00=0x0028, t01=0x007c}
0x3f02…3f1a               Head {h00=0x0014, h01=0x0050, text=» LDKL A10,/8000 «, t00=0x0028, t01=0x0090}
0x3f1a…3f2e               Head {h00=0x0010, h01=0x0050, text=»INT900 EQU *«, t00=0x0028, t01=0x00a8}
0x3f2e…3f3e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x00bc}
0x3f3e…3f4c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00cc}
0x3f4c…3f84               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0028, t01=0x00da}
0x3f84…3fbc               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x0028, t01=0x0112}
0x3fbc…3ff4               Head {h00=0x0034, h01=0x0050, text=»*        SETIND       SET DISPLAY INDICATOR    *«, t00=0x0028, t01=0x014a}
0x3ff4…402c               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x0028, t01=0x0182}
0x402c…4064               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0029, t01=0x002a}
0x4064…4078               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0029, t01=0x0062}
0x4078…4082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0076}
0x4082…4094               Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x0029, t01=0x0080}
0x4094…40aa               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0029, t01=0x0092}
0x40aa…40c0               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0029, t01=0x00a8}
0x40c0…40d6               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0029, t01=0x00be}
0x40d6…40ec               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0029, t01=0x00d4}
0x40ec…4102               Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0029, t01=0x00ea}
0x4102…4118               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0029, t01=0x0100}
0x4118…412e               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0029, t01=0x0116}
0x412e…414e               Head {h00=0x001c, h01=0x0050, text=»* A10= DISPLAY INDICATOR«, t00=0x0029, t01=0x012c}
0x414e…4166               Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0029, t01=0x014c}
0x4166…417e               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0029, t01=0x0164}
0x417e…4188               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017c}
0x4188…41b2               Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0029, t01=0x0186}
0x41b2…41c6               Head {h00=0x0010, h01=0x0050, text=»SETIND EQU *«, t00=0x002a, t01=0x0020}
0x41c6…41e6               Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x002a, t01=0x0034}
0x41e6…4200               Head {h00=0x0016, h01=0x0050, text=» RF(E) SETI90 YES «, t00=0x002a, t01=0x0054}
0x4200…422c               Head {h00=0x0028, h01=0x0050, text=» ORKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x002a, t01=0x006e}
0x422c…4240               Head {h00=0x0010, h01=0x0050, text=»SETI90 EQU *«, t00=0x002a, t01=0x009a}
0x4240…4250               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x00ae}
0x4250…425e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00be}
0x425e…42a6               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x002a, t01=0x00cc}
0x42a6…42ee               Head {h00=0x0044, h01=0x0050, text=»*                                                              *«, t00=0x002a, t01=0x0114}
0x42ee…4336               Head {h00=0x0044, h01=0x0050, text=»*        INSMOD       INSERT CHARACTER                         *«, t00=0x002a, t01=0x015c}
0x4336…437e               Head {h00=0x0044, h01=0x0050, text=»*                                                              *«, t00=0x002b, t01=0x0014}
0x437e…43c6               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x002b, t01=0x005c}
0x43c6…43da               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x002b, t01=0x00a4}
0x43da…43e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b8}
0x43e4…442c               Head {h00=0x0044, h01=0x0050, text=»* A1= AT RETURN  0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED «, t00=0x002b, t01=0x00c2}
0x442c…4442               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x002b, t01=0x010a}
0x4442…4460               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002b, t01=0x0120}
0x4460…4482               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x002b, t01=0x013e}
0x4482…44a0               Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x002b, t01=0x0160}
0x44a0…44c0               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002b, t01=0x017e}
0x44c0…44d8               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002c, t01=0x000e}
0x44d8…44e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0026}
0x44e2…452a               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x002c, t01=0x0030}
0x452a…453e               Head {h00=0x0010, h01=0x0050, text=»INSMOD EQU *«, t00=0x002c, t01=0x0078}
0x453e…4552               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x002c, t01=0x008c}
0x4552…4564               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x002c, t01=0x00a0}
0x4564…4592               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x002c, t01=0x00b2}
0x4592…45b2               Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR.?«, t00=0x002c, t01=0x00e0}
0x45b2…45cc               Head {h00=0x0016, h01=0x0050, text=» RF(NE) INS100 NO «, t00=0x002c, t01=0x0100}
0x45cc…45fa               Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 INDICATE NULL IN CURSOR POS.«, t00=0x002c, t01=0x011a}
0x45fa…460c               Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002c, t01=0x0148}
0x460c…4620               Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x002c, t01=0x015a}
0x4620…4632               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002c, t01=0x016e}
0x4632…465e               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002c, t01=0x0180}
0x465e…4678               Head {h00=0x0016, h01=0x0050, text=» RF(E) INS200 YES «, t00=0x002d, t01=0x001c}
0x4678…4694               Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x002d, t01=0x0036}
0x4694…46b0               Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x002d, t01=0x0052}
0x46b0…46e0               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x002d, t01=0x006e}
0x46e0…46f2               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x002d, t01=0x009e}
0x46f2…4714               Head {h00=0x001e, h01=0x0050, text=» ST A8,ATTRIB,A11 RESTORE «, t00=0x002d, t01=0x00b0}
0x4714…4736               Head {h00=0x001e, h01=0x0050, text=» ST A9,CURATT,A11 RESTORE «, t00=0x002d, t01=0x00d2}
0x4736…4748               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x002d, t01=0x00f4}
0x4748…475a               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x002d, t01=0x0106}
0x475a…476e               Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x002d, t01=0x0118}
0x476e…4796               Head {h00=0x0024, h01=0x0050, text=» CF A14,SNULL SEARCH FIRST NULL «, t00=0x002d, t01=0x012c}
0x4796…47b4               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 NULL FOUND? «, t00=0x002d, t01=0x0154}
0x47b4…47ce               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS300 YES «, t00=0x002d, t01=0x0172}
0x47ce…47ee               Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 INDICATE ERROR«, t00=0x002d, t01=0x018c}
0x47ee…4800               Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002e, t01=0x001c}
0x4800…4814               Head {h00=0x0010, h01=0x0050, text=»INS300 EQU *«, t00=0x002e, t01=0x002e}
0x4814…4840               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002e, t01=0x0042}
0x4840…485a               Head {h00=0x0016, h01=0x0050, text=» RF(E) INS350 YES «, t00=0x002e, t01=0x006e}
0x485a…4888               Head {h00=0x002a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE «, t00=0x002e, t01=0x0088}
0x4888…48a2               Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x002e, t01=0x00b6}
0x48a2…48b4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x002e, t01=0x00d0}
0x48b4…48c6               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x002e, t01=0x00e2}
0x48c6…48fe               Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER «, t00=0x002e, t01=0x00f4}
0x48fe…4912               Head {h00=0x0010, h01=0x0050, text=»INS350 EQU *«, t00=0x002e, t01=0x012c}
0x4912…4924               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x002e, t01=0x0140}
0x4924…493c               Head {h00=0x0014, h01=0x0050, text=» ST A4,REGI,A11 «, t00=0x002e, t01=0x0152}
0x493c…494e               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x002e, t01=0x016a}
0x494e…4964               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002e, t01=0x017c}
0x4964…4978 (47, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002f, t01=0x0004}
0x4978…498c               Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x002f, t01=0x0018}
0x498c…499e               Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002f, t01=0x002c}
0x499e…49c4               Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x002f, t01=0x003e}
0x49c4…49d6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002f, t01=0x0064}
0x49d6…49ea               Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x002f, t01=0x0076}
0x49ea…4a1c               Head {h00=0x002e, h01=0x0050, text=» CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS?«, t00=0x002f, t01=0x008a}
0x4a1c…4a36               Head {h00=0x0016, h01=0x0050, text=» RF(E) INS500 YES «, t00=0x002f, t01=0x00bc}
0x4a36…4a48               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002f, t01=0x00d6}
0x4a48…4a76               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x002f, t01=0x00e8}
0x4a76…4a88               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002f, t01=0x0116}
0x4a88…4a9a               Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002f, t01=0x0128}
0x4a9a…4ab0               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002f, t01=0x013a}
0x4ab0…4ac4               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002f, t01=0x0150}
0x4ac4…4ad8               Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x002f, t01=0x0164}
0x4ad8…4aea               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002f, t01=0x0178}
0x4aea…4b02               Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x002f, t01=0x018a}
0x4b02…4b14               Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0030, t01=0x0012}
0x4b14…4b2c               Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0030, t01=0x0024}
0x4b2c…4b5c               Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0030, t01=0x003c}
0x4b5c…4b6e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0030, t01=0x006c}
0x4b6e…4b80               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0030, t01=0x007e}
0x4b80…4b94               Head {h00=0x0010, h01=0x0050, text=»INS450 EQU *«, t00=0x0030, t01=0x0090}
0x4b94…4bb8               Head {h00=0x0020, h01=0x0050, text=» CW A1,REGI,A11 ALL SHIFTED?«, t00=0x0030, t01=0x00a4}
0x4bb8…4bd2               Head {h00=0x0016, h01=0x0050, text=» RF(E) INS600 YES «, t00=0x0030, t01=0x00c8}
0x4bd2…4be4               Head {h00=0x000e, h01=0x0050, text=» RB INS400«, t00=0x0030, t01=0x00e2}
0x4be4…4bf8               Head {h00=0x0010, h01=0x0050, text=»INS500 EQU *«, t00=0x0030, t01=0x00f4}
0x4bf8…4c1e               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LBVDU-1 GET LAST CHAR«, t00=0x0030, t01=0x0108}
0x4c1e…4c4c               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x0030, t01=0x012e}
0x4c4c…4c5e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0030, t01=0x015c}
0x4c5e…4c70               Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0030, t01=0x016e}
0x4c70…4c82               Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0030, t01=0x0180}
0x4c82…4c98 (49, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0031, t01=0x0004}
0x4c98…4cac               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0031, t01=0x001a}
0x4cac…4cc0               Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0031, t01=0x002e}
0x4cc0…4cd2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x0031, t01=0x0042}
0x4cd2…4cea               Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x0031, t01=0x0054}
0x4cea…4cfc               Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0031, t01=0x006c}
0x4cfc…4d14               Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0031, t01=0x007e}
0x4d14…4d44               Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0031, t01=0x0096}
0x4d44…4d6e               Head {h00=0x0026, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST SCREEN POS. «, t00=0x0031, t01=0x00c6}
0x4d6e…4d86               Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0031, t01=0x00f0}
0x4d86…4d98               Head {h00=0x000e, h01=0x0050, text=» RB INS450«, t00=0x0031, t01=0x0108}
0x4d98…4dac               Head {h00=0x0010, h01=0x0050, text=»INS600 EQU *«, t00=0x0031, t01=0x011a}
0x4dac…4dcc               Head {h00=0x001c, h01=0x0050, text=» LDR A7,A2 GET KEY-CHAR «, t00=0x0031, t01=0x012e}
0x4dcc…4dfc               Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0031, t01=0x014e}
0x4dfc…4e12               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0031, t01=0x017e}
0x4e12…4e26 (50, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0032, t01=0x0004}
0x4e26…4e3a               Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0032, t01=0x0018}
0x4e3a…4e52               Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x0032, t01=0x002c}
0x4e52…4e64               Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0032, t01=0x0044}
0x4e64…4e7c               Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0032, t01=0x0056}
0x4e7c…4e9e               Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x0032, t01=0x006e}
0x4e9e…4eb6               Head {h00=0x0014, h01=0x0050, text=» LD A4,REGI,A11 «, t00=0x0032, t01=0x0090}
0x4eb6…4ec8               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0032, t01=0x00a8}
0x4ec8…4eec               Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0032, t01=0x00ba}
0x4eec…4f06               Head {h00=0x0016, h01=0x0050, text=» RF(NG) INS700 NO «, t00=0x0032, t01=0x00de}
0x4f06…4f2c               Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0032, t01=0x00f8}
0x4f2c…4f42               Head {h00=0x0012, h01=0x0050, text=» CM PCURS,A11 «, t00=0x0032, t01=0x011e}
0x4f42…4f56               Head {h00=0x0010, h01=0x0050, text=»INS700 EQU *«, t00=0x0032, t01=0x0134}
0x4f56…4f84               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0032, t01=0x0148}
0x4f84…4fac               Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 INDICATE NORMAL INSERT«, t00=0x0032, t01=0x0176}
0x4fac…4fc0               Head {h00=0x0010, h01=0x0050, text=»INS900 EQU *«, t00=0x0033, t01=0x000e}
0x4fc0…4fd0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0022}
0x4fd0…4fdc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0032}
0x4fdc…4fea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x003e}
0x4fea…502c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0033, t01=0x004c}
0x502c…506e               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0033, t01=0x008e}
0x506e…50b0               Head {h00=0x003e, h01=0x0050, text=»*        UPDCNT       UPDATE COUNTERS                    *«, t00=0x0033, t01=0x00d0}
0x50b0…50f2               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0033, t01=0x0112}
0x50f2…5134               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0033, t01=0x0154}
0x5134…5150               Head {h00=0x0018, h01=0x0050, text=»*          REGISTERS«, t00=0x0034, t01=0x0008}
0x5150…515a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0024}
0x515a…517e               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0034, t01=0x002e}
0x517e…519a               Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0034, t01=0x0052}
0x519a…51b0               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0034, t01=0x006e}
0x51b0…51cc               Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0034, t01=0x0084}
0x51cc…51e6               Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0034, t01=0x00a0}
0x51e6…51fc               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0034, t01=0x00ba}
0x51fc…5212               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0034, t01=0x00d0}
0x5212…522a               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0034, t01=0x00e6}
0x522a…5242               Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0034, t01=0x00fe}
0x5242…525a               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0034, t01=0x0116}
0x525a…5264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x012e}
0x5264…52a6               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0034, t01=0x0138}
0x52a6…52ba               Head {h00=0x0010, h01=0x0050, text=»UPDCNT EQU *«, t00=0x0034, t01=0x017a}
0x52ba…52cc               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0034, t01=0x018e}
0x52cc…52de               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x0010}
0x52de…52f0               Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0035, t01=0x0022}
0x52f0…5302               Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0035, t01=0x0034}
0x5302…5312               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0046}
0x5312…5320               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0056}
0x5320…5368               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0035, t01=0x0064}
0x5368…53b0               Head {h00=0x0044, h01=0x0050, text=»*                                                              *«, t00=0x0035, t01=0x00ac}
0x53b0…53f8               Head {h00=0x0044, h01=0x0050, text=»*        GETVDU       GET CHAR. IN VDU BUFFER                  *«, t00=0x0035, t01=0x00f4}
0x53f8…5440               Head {h00=0x0044, h01=0x0050, text=»*                                                              *«, t00=0x0035, t01=0x013c}
0x5440…5488               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0035, t01=0x0184}
0x5488…549c               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0036, t01=0x003c}
0x549c…54a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0050}
0x54a6…54ca               Head {h00=0x0020, h01=0x0050, text=»* A1= REL. POS IN VDU BUFFER«, t00=0x0036, t01=0x005a}
0x54ca…54e0               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0036, t01=0x007e}
0x54e0…54f6               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x0094}
0x54f6…550c               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0036, t01=0x00aa}
0x550c…5522               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0036, t01=0x00c0}
0x5522…5538               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0036, t01=0x00d6}
0x5538…555c               Head {h00=0x0020, h01=0x0050, text=»* A7= CHAR. FROM VDU BUFFER «, t00=0x0036, t01=0x00ec}
0x555c…5572               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0036, t01=0x0110}
0x5572…5588               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0036, t01=0x0126}
0x5588…55a0               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0036, t01=0x013c}
0x55a0…55c0               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x0154}
0x55c0…55d8               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x0174}
0x55d8…55e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x018c}
0x55e2…5622               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0008}
0x5622…5636               Head {h00=0x0010, h01=0x0050, text=»GETVDU EQU *«, t00=0x0037, t01=0x0048}
0x5636…564c               Head {h00=0x0012, h01=0x0050, text=» LDKL A7,BVDU «, t00=0x0037, t01=0x005c}
0x564c…5660               Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0037, t01=0x0072}
0x5660…5672               Head {h00=0x000e, h01=0x0050, text=» ADR A7,A1«, t00=0x0037, t01=0x0086}
0x5672…5684               Head {h00=0x000e, h01=0x0050, text=» LCR A7,A7«, t00=0x0037, t01=0x0098}
0x5684…5698               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0037, t01=0x00aa}
0x5698…56a8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x00be}
0x56a8…56b6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00ce}
0x56b6…56fc               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0037, t01=0x00dc}
0x56fc…5742               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x0037, t01=0x0122}
0x5742…5788               Head {h00=0x0042, h01=0x0050, text=»*        STOVDU       STORE CHAR. IN VDU BUFFER              *«, t00=0x0037, t01=0x0168}
0x5788…57ce               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x0038, t01=0x001e}
0x57ce…5814               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0038, t01=0x0064}
0x5814…5828               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0038, t01=0x00aa}
0x5828…5832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00be}
0x5832…5858               Head {h00=0x0022, h01=0x0050, text=»* A1= REL. POS. IN VDU BUFFER «, t00=0x0038, t01=0x00c8}
0x5858…586e               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0038, t01=0x00ee}
0x586e…5884               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0038, t01=0x0104}
0x5884…589a               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0038, t01=0x011a}
0x589a…58b0               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0038, t01=0x0130}
0x58b0…58c6               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0038, t01=0x0146}
0x58c6…58f0               Head {h00=0x0026, h01=0x0050, text=»* A7= CHAR. TO STORE IN VDU BUFFER«, t00=0x0038, t01=0x015c}
0x58f0…5906               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0038, t01=0x0186}
0x5906…591e               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0039, t01=0x000c}
0x591e…593e               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0039, t01=0x0024}
0x593e…5956               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0039, t01=0x0044}
0x5956…5960               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x005c}
0x5960…59a0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0039, t01=0x0066}
0x59a0…59b4               Head {h00=0x0010, h01=0x0050, text=»STOVDU EQU *«, t00=0x0039, t01=0x00a6}
0x59b4…59ca               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,BVDU «, t00=0x0039, t01=0x00ba}
0x59ca…59de               Head {h00=0x0010, h01=0x0050, text=» ADR A8,A11 «, t00=0x0039, t01=0x00d0}
0x59de…59f0               Head {h00=0x000e, h01=0x0050, text=» ADR A8,A1«, t00=0x0039, t01=0x00e4}
0x59f0…5a02               Head {h00=0x000e, h01=0x0050, text=» SCR A7,A8«, t00=0x0039, t01=0x00f6}
0x5a02…5a12               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0108}
0x5a12…5a20               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0118}
0x5a20…5a60               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0039, t01=0x0126}
0x5a60…5aa0               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x0039, t01=0x0166}
0x5aa0…5ae0               Head {h00=0x003c, h01=0x0050, text=»*        SCRINF       GET SCREEN INFORMATION           *«, t00=0x003a, t01=0x0016}
0x5ae0…5b20               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x003a, t01=0x0056}
0x5b20…5b60               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003a, t01=0x0096}
0x5b60…5b74               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x003a, t01=0x00d6}
0x5b74…5b7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ea}
0x5b7e…5b94               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003a, t01=0x00f4}
0x5b94…5bb2               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003a, t01=0x010a}
0x5bb2…5bd4               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x003a, t01=0x0128}
0x5bd4…5bf2               Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003a, t01=0x014a}
0x5bf2…5c12               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003a, t01=0x0168}
0x5c12…5c2a               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003a, t01=0x0188}
0x5c2a…5c34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0010}
0x5c34…5c74               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003b, t01=0x001a}
0x5c74…5c88               Head {h00=0x0010, h01=0x0050, text=»SCRINF EQU *«, t00=0x003b, t01=0x005a}
0x5c88…5cb0               Head {h00=0x0024, h01=0x0050, text=» LD A4,PCURS,A11 GET CURSOR POS.«, t00=0x003b, t01=0x006e}
0x5cb0…5cdc               Head {h00=0x0028, h01=0x0050, text=» LD A5,CURATT,A11 GET ATTRIBUTE POS.«, t00=0x003b, t01=0x0096}
0x5cdc…5d0a               Head {h00=0x002a, h01=0x0050, text=» LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. «, t00=0x003b, t01=0x00c2}
0x5d0a…5d1a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00f0}
0x5d1a…5d28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0100}
0x5d28…5d68               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x010e}
0x5d68…5da8               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x003b, t01=0x014e}
0x5da8…5de8               Head {h00=0x003c, h01=0x0050, text=»*        STOINF       STORE SCREEN INFORMATION         *«, t00=0x003b, t01=0x018e}
0x5de8…5e28               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x003c, t01=0x003e}
0x5e28…5e68               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x007e}
0x5e68…5e7c               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x003c, t01=0x00be}
0x5e7c…5e86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d2}
0x5e86…5ea4               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003c, t01=0x00dc}
0x5ea4…5ec6               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x003c, t01=0x00fa}
0x5ec6…5ee4               Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003c, t01=0x011c}
0x5ee4…5f04               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003c, t01=0x013a}
0x5f04…5f1c               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003c, t01=0x015a}
0x5f1c…5f26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0172}
0x5f26…5f66               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x017c}
0x5f66…5f7a               Head {h00=0x0010, h01=0x0050, text=»STOINF EQU *«, t00=0x003d, t01=0x002c}
0x5f7a…5f92               Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003d, t01=0x0040}
0x5f92…5fac               Head {h00=0x0016, h01=0x0050, text=» ST A5,CURATT,A11 «, t00=0x003d, t01=0x0058}
0x5fac…5fc6               Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x003d, t01=0x0072}
0x5fc6…5fd6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x008c}
0x5fd6…5fe4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x009c}
0x5fe4…6024               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003d, t01=0x00aa}
0x6024…6064               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x003d, t01=0x00ea}
0x6064…60a4               Head {h00=0x003c, h01=0x0050, text=»*        SOUND       SOUND ALARM ON VDU               * «, t00=0x003d, t01=0x012a}
0x60a4…60e4               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x003d, t01=0x016a}
0x60e4…6124               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003e, t01=0x001a}
0x6124…6138               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x003e, t01=0x005a}
0x6138…6142               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x006e}
0x6142…615c               Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003e, t01=0x0078}
0x615c…6170               Head {h00=0x0010, h01=0x0050, text=»* A8= ECBVDU«, t00=0x003e, t01=0x0092}
0x6170…6190               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003e, t01=0x00a6}
0x6190…61a8               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003e, t01=0x00c6}
0x61a8…61b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00de}
0x61b2…61f2               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003e, t01=0x00e8}
0x61f2…6206               Head {h00=0x0010, h01=0x0050, text=»SOUND EQU * «, t00=0x003e, t01=0x0128}
0x6206…6220               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x003e, t01=0x013c}
0x6220…6238               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x003e, t01=0x0156}
0x6238…625a               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2B CONTROL CHAR. «, t00=0x003e, t01=0x016e}
0x625a…626e               Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x003e, t01=0x0190}
0x626e…628c               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/07 BELL CHAR.«, t00=0x003f, t01=0x0014}
0x628c…62a0               Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A1 «, t00=0x003f, t01=0x0032}
0x62a0…62be               Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 REQ. LENGTH «, t00=0x003f, t01=0x0046}
0x62be…62d6               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x003f, t01=0x0064}
0x62d6…62ea               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x003f, t01=0x007c}
0x62ea…62f6               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x0090}
0x62f6…6306               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003f, t01=0x009c}
0x6306…632e               Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x003f, t01=0x00ac}
0x632e…633e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x00d4}
0x633e…634c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x00e4}
0x634c…638a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003f, t01=0x00f2}
0x638a…63c8               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x003f, t01=0x0130}
0x63c8…6406               Head {h00=0x003a, h01=0x0050, text=»*        WRAP       CHECK IF WRAP AROUND            * «, t00=0x003f, t01=0x016e}
0x6406…6444               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0040, t01=0x001c}
0x6444…6482               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0040, t01=0x005a}
0x6482…6496               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0040, t01=0x0098}
0x6496…64a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ac}
0x64a0…64b6               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0040, t01=0x00b6}
0x64b6…64da               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0040, t01=0x00cc}
0x64da…64f8               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0040, t01=0x00f0}
0x64f8…650e               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0040, t01=0x010e}
0x650e…6524               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0040, t01=0x0124}
0x6524…653a               Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0040, t01=0x013a}
0x653a…6550               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0040, t01=0x0150}
0x6550…6566               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0040, t01=0x0166}
0x6566…657e               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0040, t01=0x017c}
0x657e…659e (65, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0041, t01=0x0004}
0x659e…65b6               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0041, t01=0x0024}
0x65b6…65c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x003c}
0x65c0…65fe               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0041, t01=0x0046}
0x65fe…6610               Head {h00=0x000e, h01=0x0050, text=»WRAP EQU *«, t00=0x0041, t01=0x0084}
0x6610…6632               Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU WRAP AROUND «, t00=0x0041, t01=0x0096}
0x6632…664a               Head {h00=0x0014, h01=0x0050, text=» RF(L) WRAP90 NO«, t00=0x0041, t01=0x00b8}
0x664a…666e               Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0041, t01=0x00d0}
0x666e…6684               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0041, t01=0x00f4}
0x6684…6698               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0041, t01=0x010a}
0x6698…66ac               Head {h00=0x0010, h01=0x0050, text=»WRAP90 EQU *«, t00=0x0041, t01=0x011e}
0x66ac…66bc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x0132}
0x66bc…66ca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0142}
0x66ca…670e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0041, t01=0x0150}
0x670e…6752 (66, 0, 400)  Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0042, t01=0x0004}
0x6752…6798               Head {h00=0x0042, h01=0x0050, text=»*        LINWRP       CHECK LINE WRAP                       * «, t00=0x0042, t01=0x0048}
0x6798…67dc               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0042, t01=0x008e}
0x67dc…6820               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0042, t01=0x00d2}
0x6820…6834               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0042, t01=0x0116}
0x6834…683e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012a}
0x683e…6854               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0042, t01=0x0134}
0x6854…6870               Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0042, t01=0x014a}
0x6870…6892               Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0042, t01=0x0166}
0x6892…68a8               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0042, t01=0x0188}
0x68a8…68be               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0043, t01=0x000e}
0x68be…68d4               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0043, t01=0x0024}
0x68d4…68ec               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0043, t01=0x003a}
0x68ec…6904               Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0043, t01=0x0052}
0x6904…691c               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0043, t01=0x006a}
0x691c…6926               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0082}
0x6926…696a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0043, t01=0x008c}
0x696a…697e               Head {h00=0x0010, h01=0x0050, text=»LINWRP EQU *«, t00=0x0043, t01=0x00d0}
0x697e…699e               Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0043, t01=0x00e4}
0x699e…69b6               Head {h00=0x0014, h01=0x0050, text=» RF(G) LINW10 NO«, t00=0x0043, t01=0x0104}
0x69b6…69dc               Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x0043, t01=0x011c}
0x69dc…69f0               Head {h00=0x0010, h01=0x0050, text=»LINW10 EQU *«, t00=0x0043, t01=0x0142}
0x69f0…6a00               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x0156}
0x6a00…6a0e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0166}
0x6a0e…6a52               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0043, t01=0x0174}
0x6a52…6a96               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0044, t01=0x0028}
0x6a96…6ada               Head {h00=0x0040, h01=0x0050, text=»*        LINE       UPDATE LINE FLAG                       *«, t00=0x0044, t01=0x006c}
0x6ada…6b1e               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0044, t01=0x00b0}
0x6b1e…6b64               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0044, t01=0x00f4}
0x6b64…6b78               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0044, t01=0x013a}
0x6b78…6b82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x014e}
0x6b82…6ba6               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0044, t01=0x0158}
0x6ba6…6bc2               Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0044, t01=0x017c}
0x6bc2…6be4               Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0045, t01=0x0008}
0x6be4…6c0c               Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0045, t01=0x002a}
0x6c0c…6c22               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0045, t01=0x0052}
0x6c22…6c38               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0045, t01=0x0068}
0x6c38…6c50               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERFED «, t00=0x0045, t01=0x007e}
0x6c50…6c70               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0045, t01=0x0096}
0x6c70…6c88               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0045, t01=0x00b6}
0x6c88…6c92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ce}
0x6c92…6cd6               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0045, t01=0x00d8}
0x6cd6…6ce8               Head {h00=0x000e, h01=0x0050, text=»LINE EQU *«, t00=0x0045, t01=0x011c}
0x6ce8…6d06               Head {h00=0x001a, h01=0x0050, text=» CWR A5,A4 THIS LINE? «, t00=0x0045, t01=0x012e}
0x6d06…6d26               Head {h00=0x001c, h01=0x0050, text=» RF(G) LIN400 YES,MAYBE «, t00=0x0045, t01=0x014c}
0x6d26…6d3a               Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0045, t01=0x016c}
0x6d3a…6d64               Head {h00=0x0026, h01=0x0050, text=» ANK A1,ATTREC ATTRIBUTE RECEIVED?«, t00=0x0045, t01=0x0180}
0x6d64…6d7c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) LIN100 NO«, t00=0x0046, t01=0x001a}
0x6d7c…6d94               Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0046, t01=0x0032}
0x6d94…6da6               Head {h00=0x000e, h01=0x0050, text=» ORK A1,2 «, t00=0x0046, t01=0x004a}
0x6da6…6dbe               Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0046, t01=0x005c}
0x6dbe…6dd2               Head {h00=0x0010, h01=0x0050, text=»LIN100 EQU *«, t00=0x0046, t01=0x0074}
0x6dd2…6de6               Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0046, t01=0x0088}
0x6de6…6e06               Head {h00=0x001c, h01=0x0050, text=» ADK A6,1 UPDATE ADDRESS«, t00=0x0046, t01=0x009c}
0x6e06…6e26               Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP SCREEN? «, t00=0x0046, t01=0x00bc}
0x6e26…6e40               Head {h00=0x0016, h01=0x0050, text=» RF(G) LIN300 YES «, t00=0x0046, t01=0x00dc}
0x6e40…6e56               Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x0046, t01=0x00f6}
0x6e56…6e6a               Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x0046, t01=0x010c}
0x6e6a…6e7a               Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0046, t01=0x0120}
0x6e7a…6e8e               Head {h00=0x0010, h01=0x0050, text=»LIN300 EQU *«, t00=0x0046, t01=0x0130}
0x6e8e…6eb2               Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0046, t01=0x0144}
0x6eb2…6ec8               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0046, t01=0x0168}
0x6ec8…6edc               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0046, t01=0x017e}
0x6edc…6ef0 (71, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0047, t01=0x0004}
0x6ef0…6f06               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0047, t01=0x0018}
0x6f06…6f1a               Head {h00=0x0010, h01=0x0050, text=»LIN400 EQU *«, t00=0x0047, t01=0x002e}
0x6f1a…6f2e               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A4  «, t00=0x0047, t01=0x0042}
0x6f2e…6f40               Head {h00=0x000e, h01=0x0050, text=» CWK A5,81«, t00=0x0047, t01=0x0056}
0x6f40…6f60               Head {h00=0x001c, h01=0x0050, text=» RF(L) LIN500 THIS LINE «, t00=0x0047, t01=0x0068}
0x6f60…6f76               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0047, t01=0x0088}
0x6f76…6f8a               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0047, t01=0x009e}
0x6f8a…6f9a               Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0047, t01=0x00b2}
0x6f9a…6fae               Head {h00=0x0010, h01=0x0050, text=»LIN500 EQU *«, t00=0x0047, t01=0x00c2}
0x6fae…6fc8               Head {h00=0x0016, h01=0x0050, text=» ADR A5,A4 RESTORE«, t00=0x0047, t01=0x00d6}
0x6fc8…6fd8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0047, t01=0x00f0}
0x6fd8…6fe6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0100}
0x6fe6…702c               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0047, t01=0x010e}
0x702c…7072               Head {h00=0x0042, h01=0x0050, text=»*                                                           * «, t00=0x0047, t01=0x0154}
0x7072…70b8               Head {h00=0x0042, h01=0x0050, text=»*        LINATT       UPADTE LINFLG AT ATTRIBUTE CHANGE     * «, t00=0x0048, t01=0x000a}
0x70b8…70fe               Head {h00=0x0042, h01=0x0050, text=»*                                                           * «, t00=0x0048, t01=0x0050}
0x70fe…7144               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0048, t01=0x0096}
0x7144…7158               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0048, t01=0x00dc}
0x7158…7162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00f0}
0x7162…7186               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0048, t01=0x00fa}
0x7186…71a2               Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0048, t01=0x011e}
0x71a2…71c4               Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0048, t01=0x013a}
0x71c4…71ec               Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0048, t01=0x015c}
0x71ec…7202               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0048, t01=0x0184}
0x7202…7218               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0049, t01=0x000a}
0x7218…7230               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0049, t01=0x0020}
0x7230…7250               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0049, t01=0x0038}
0x7250…7268               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0049, t01=0x0058}
0x7268…7272               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0070}
0x7272…72b8               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0049, t01=0x007a}
0x72b8…72cc               Head {h00=0x0010, h01=0x0050, text=»LINATT EQU *«, t00=0x0049, t01=0x00c0}
0x72cc…72e2               Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0049, t01=0x00d4}
0x72e2…72f6               Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0049, t01=0x00ea}
0x72f6…7308               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0049, t01=0x00fe}
0x7308…7320               Head {h00=0x0014, h01=0x0050, text=» LDR A10,A4 . =1«, t00=0x0049, t01=0x0110}
0x7320…7334               Head {h00=0x0010, h01=0x0050, text=»LINA10 EQU *«, t00=0x0049, t01=0x0128}
0x7334…7346               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0049, t01=0x013c}
0x7346…7358               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0049, t01=0x014e}
0x7358…7378               Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0049, t01=0x0160}
0x7378…7390               Head {h00=0x0014, h01=0x0050, text=» RF(G) LINA30 NO«, t00=0x0049, t01=0x0180}
0x7390…73a4               Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x004a, t01=0x0008}
0x73a4…73bc               Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004a, t01=0x001c}
0x73bc…73ce               Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004a, t01=0x0034}
0x73ce…73e6               Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004a, t01=0x0046}
0x73e6…73fa               Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x004a, t01=0x005e}
0x73fa…740c               Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x004a, t01=0x0072}
0x740c…742c               Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP AROUND? «, t00=0x004a, t01=0x0084}
0x742c…7446               Head {h00=0x0016, h01=0x0050, text=» RF(G) LINA20 YES «, t00=0x004a, t01=0x00a4}
0x7446…745c               Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x004a, t01=0x00be}
0x745c…746e               Head {h00=0x000e, h01=0x0050, text=» RF LINA30«, t00=0x004a, t01=0x00d4}
0x746e…7482               Head {h00=0x0010, h01=0x0050, text=»LINA20 EQU *«, t00=0x004a, t01=0x00e6}
0x7482…7494               Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x004a, t01=0x00fa}
0x7494…74a6               Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x004a, t01=0x010c}
0x74a6…74bc               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x004a, t01=0x011e}
0x74bc…74d0               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x004a, t01=0x0134}
0x74d0…74e6               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x004a, t01=0x0148}
0x74e6…74fa               Head {h00=0x0010, h01=0x0050, text=»LINA30 EQU *«, t00=0x004a, t01=0x015e}
0x74fa…751e               Head {h00=0x0020, h01=0x0050, text=» CWR A4,A10 ALL CHECKED? =1 «, t00=0x004a, t01=0x0172}
0x751e…753a               Head {h00=0x0018, h01=0x0050, text=» RF(E) LINA40 YES =1«, t00=0x004b, t01=0x0008}
0x753a…754c               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x004b, t01=0x0024}
0x754c…756a               Head {h00=0x001a, h01=0x0050, text=» CWK A2,/80 ATTRIBUTE «, t00=0x004b, t01=0x0036}
0x756a…7584               Head {h00=0x0016, h01=0x0050, text=» RB(NG) LINA10 YES«, t00=0x004b, t01=0x0054}
0x7584…759e               Head {h00=0x0016, h01=0x0050, text=»LINA40 EQU * . =1 «, t00=0x004b, t01=0x006e}
0x759e…75b4               Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x004b, t01=0x0088}
0x75b4…75c4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004b, t01=0x009e}
0x75c4…75d2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x00ae}
0x75d2…7616               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004b, t01=0x00bc}
0x7616…765a               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x004b, t01=0x0100}
0x765a…769e               Head {h00=0x0040, h01=0x0050, text=»*        NLROUT       NEW LINE ROUTINE                    * «, t00=0x004b, t01=0x0144}
0x769e…76e2               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x004b, t01=0x0188}
0x76e2…7726               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004c, t01=0x003c}
0x7726…773a               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x004c, t01=0x0080}
0x773a…7744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0094}
0x7744…7766               Head {h00=0x001e, h01=0x0050, text=»* A3= ADDRES IN VDU BUFFER«, t00=0x004c, t01=0x009e}
0x7766…7782               Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x004c, t01=0x00c0}
0x7782…7798               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004c, t01=0x00dc}
0x7798…77ae               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004c, t01=0x00f2}
0x77ae…77c4               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004c, t01=0x0108}
0x77c4…77da               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004c, t01=0x011e}
0x77da…77f2               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x004c, t01=0x0134}
0x77f2…780a               Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x004c, t01=0x014c}
0x780a…7822               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004c, t01=0x0164}
0x7822…782c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x017c}
0x782c…7870               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004c, t01=0x0186}
0x7870…7884               Head {h00=0x0010, h01=0x0050, text=»NLROUT EQU *«, t00=0x004d, t01=0x003a}
0x7884…78a8               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A4 SAVE CURSOR POS. «, t00=0x004d, t01=0x004e}
0x78a8…78da               Head {h00=0x002e, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN «, t00=0x004d, t01=0x0072}
0x78da…78ec               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x004d, t01=0x00a4}
0x78ec…7900               Head {h00=0x0010, h01=0x0050, text=»NLR100 EQU *«, t00=0x004d, t01=0x00b6}
0x7900…792c               Head {h00=0x0028, h01=0x0050, text=» SUK A4,LLINE COMPUTE LEFTMOST POS. «, t00=0x004d, t01=0x00ca}
0x792c…7942               Head {h00=0x0012, h01=0x0050, text=» RF(N) NLR200 «, t00=0x004d, t01=0x00f6}
0x7942…7958               Head {h00=0x0012, h01=0x0050, text=» ADK A7,LLINE «, t00=0x004d, t01=0x010c}
0x7958…796a               Head {h00=0x000e, h01=0x0050, text=» RB NLR100«, t00=0x004d, t01=0x0122}
0x796a…797e               Head {h00=0x0010, h01=0x0050, text=»NLR200 EQU *«, t00=0x004d, t01=0x0134}
0x797e…7990               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x004d, t01=0x0148}
0x7990…79a4               Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x004d, t01=0x015a}
0x79a4…79b8               Head {h00=0x0010, h01=0x0050, text=»NLR300 EQU *«, t00=0x004d, t01=0x016e}
0x79b8…79d6               Head {h00=0x001a, h01=0x0050, text=» CWR A7,A4 ALL NULLED?«, t00=0x004d, t01=0x0182}
0x79d6…79f0               Head {h00=0x0016, h01=0x0050, text=» RF(E) NLR900 YES «, t00=0x004e, t01=0x0010}
0x79f0…7a16               Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 NULL IN VDU BUFFER «, t00=0x004e, t01=0x002a}
0x7a16…7a2e               Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004e, t01=0x0050}
0x7a2e…7a40               Head {h00=0x000e, h01=0x0050, text=» ORKL A1,1«, t00=0x004e, t01=0x0068}
0x7a40…7a58               Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004e, t01=0x007a}
0x7a58…7a6a               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004e, t01=0x0092}
0x7a6a…7a7c               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x00a4}
0x7a7c…7a92               Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x004e, t01=0x00b6}
0x7a92…7aa4               Head {h00=0x000e, h01=0x0050, text=» RB NLR300«, t00=0x004e, t01=0x00cc}
0x7aa4…7ab8               Head {h00=0x0010, h01=0x0050, text=»NLR900 EQU *«, t00=0x004e, t01=0x00de}
0x7ab8…7ac8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x00f2}
0x7ac8…7ad6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0102}
0x7ad6…7b22               Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x004e, t01=0x0110}
0x7b22…7b6e               Head {h00=0x0048, h01=0x0050, text=»*                                                                 * «, t00=0x004e, t01=0x015c}
0x7b6e…7bba               Head {h00=0x0048, h01=0x0050, text=»*        ERASE       ERASE ENTIRE SCREEN                          * «, t00=0x004f, t01=0x0018}
0x7bba…7c06               Head {h00=0x0048, h01=0x0050, text=»*                                                                 * «, t00=0x004f, t01=0x0064}
0x7c06…7c52               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004f, t01=0x00b0}
0x7c52…7c66               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x004f, t01=0x00fc}
0x7c66…7c70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0110}
0x7c70…7c84               Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004f, t01=0x011a}
0x7c84…7ca8               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004f, t01=0x012e}
0x7ca8…7cca               Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x004f, t01=0x0152}
0x7cca…7cea               Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS «, t00=0x004f, t01=0x0174}
0x7cea…7d06 (80, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0050, t01=0x0004}
0x7d06…7d26               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0050, t01=0x0020}
0x7d26…7d3e               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0050, t01=0x0040}
0x7d3e…7d48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0058}
0x7d48…7d8a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0050, t01=0x0062}
0x7d8a…7d9e               Head {h00=0x0010, h01=0x0050, text=»ERASE EQU * «, t00=0x0050, t01=0x00a4}
0x7d9e…7dc2               Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0050, t01=0x00b8}
0x7dc2…7dd8               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0050, t01=0x00dc}
0x7dd8…7dec               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0050, t01=0x00f2}
0x7dec…7e12               Head {h00=0x0022, h01=0x0050, text=» LDK A2,NULL STORE NULL CHAR. «, t00=0x0050, t01=0x0106}
0x7e12…7e26               Head {h00=0x0010, h01=0x0050, text=»ERAS10 EQU *«, t00=0x0050, t01=0x012c}
0x7e26…7e54               Head {h00=0x002a, h01=0x0050, text=» CWK A4,LBVDU+24 WHOLE SCREEN NULLED? «, t00=0x0050, t01=0x0140}
0x7e54…7e6e               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERAS20 YES«, t00=0x0050, t01=0x016e}
0x7e6e…7e8c               Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0050, t01=0x0188}
0x7e8c…7e9e               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0051, t01=0x0016}
0x7e9e…7eb0               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0051, t01=0x0028}
0x7eb0…7ec2               Head {h00=0x000e, h01=0x0050, text=» RB ERAS10«, t00=0x0051, t01=0x003a}
0x7ec2…7ed6               Head {h00=0x0010, h01=0x0050, text=»ERAS20 EQU *«, t00=0x0051, t01=0x004c}
0x7ed6…7efa               Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0051, t01=0x0060}
0x7efa…7f26               Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x0051, t01=0x0084}
0x7f26…7f38               Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0051, t01=0x00b0}
0x7f38…7f66               Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0051, t01=0x00c2}
0x7f66…7f7e               Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0051, t01=0x00f0}
0x7f7e…7fa4               Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x0051, t01=0x0108}
0x7fa4…7fbe               Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERAS30 YES«, t00=0x0051, t01=0x012e}
0x7fbe…7fd8               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0051, t01=0x0148}
0x7fd8…7ff8               Head {h00=0x001c, h01=0x0050, text=» LDK A2,'1' ERASE CHAR. «, t00=0x0051, t01=0x0162}
0x7ff8…8010               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x0051, t01=0x0182}
0x8010…8024               Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x0052, t01=0x000a}
0x8024…8042               Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0052, t01=0x001e}
0x8042…805a               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0052, t01=0x003c}
0x805a…8074               Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0052, t01=0x0054}
0x8074…8080               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0052, t01=0x006e}
0x8080…8090               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0052, t01=0x007a}
0x8090…80a4               Head {h00=0x0010, h01=0x0050, text=»ERAS30 EQU *«, t00=0x0052, t01=0x008a}
0x80a4…80b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x009e}
0x80b4…80c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00ae}
0x80c2…8104               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0052, t01=0x00bc}
0x8104…8146               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0052, t01=0x00fe}
0x8146…8188               Head {h00=0x003e, h01=0x0050, text=»*        ERASUP       ERASE ALL UNPROTECTED             * «, t00=0x0052, t01=0x0140}
0x8188…81ca               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0052, t01=0x0182}
0x81ca…820c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0053, t01=0x0034}
0x820c…8220               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0053, t01=0x0076}
0x8220…822a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x008a}
0x822a…823e               Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0053, t01=0x0094}
0x823e…8262               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0053, t01=0x00a8}
0x8262…8280               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0053, t01=0x00cc}
0x8280…82a2               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0053, t01=0x00ea}
0x82a2…82ca               Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0053, t01=0x010c}
0x82ca…82ea               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0053, t01=0x0134}
0x82ea…8302               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0053, t01=0x0154}
0x8302…830c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x016c}
0x830c…834e               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0053, t01=0x0176}
0x834e…8362               Head {h00=0x0010, h01=0x0050, text=»ERASUP EQU *«, t00=0x0054, t01=0x0028}
0x8362…8388               Head {h00=0x0022, h01=0x0050, text=» LDK A1,2 RESTORE KEYBOARD-BIT«, t00=0x0054, t01=0x003c}
0x8388…839e               Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x0054, t01=0x0062}
0x839e…83c2               Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0054, t01=0x0078}
0x83c2…83d8               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0054, t01=0x009c}
0x83d8…83ec               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0054, t01=0x00b2}
0x83ec…8412               Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0054, t01=0x00c6}
0x8412…843e               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0054, t01=0x00ec}
0x843e…8458               Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUP10 NO «, t00=0x0054, t01=0x0118}
0x8458…846e               Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0054, t01=0x0132}
0x846e…8480               Head {h00=0x000e, h01=0x0050, text=» RF ERUP90«, t00=0x0054, t01=0x0148}
0x8480…8494               Head {h00=0x0010, h01=0x0050, text=»ERUP10 EQU *«, t00=0x0054, t01=0x015a}
0x8494…84b0               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0054, t01=0x016e}
0x84b0…84d0               Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0054, t01=0x018a}
0x84d0…84ea               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERUP20 YES«, t00=0x0055, t01=0x001a}
0x84ea…84fc               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0055, t01=0x0034}
0x84fc…850e               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0055, t01=0x0046}
0x850e…8520               Head {h00=0x000e, h01=0x0050, text=» RB ERUP10«, t00=0x0055, t01=0x0058}
0x8520…8534               Head {h00=0x0010, h01=0x0050, text=»ERUP20 EQU *«, t00=0x0055, t01=0x006a}
0x8534…855c               Head {h00=0x0024, h01=0x0050, text=» LDR A9,A4 FIRST ATTRIBUTE POS. «, t00=0x0055, t01=0x007e}
0x855c…8572               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0055, t01=0x00a6}
0x8572…8586               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0055, t01=0x00bc}
0x8586…859a               Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0055, t01=0x00d0}
0x859a…85ae               Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0055, t01=0x00e4}
0x85ae…85c0               Head {h00=0x000e, h01=0x0050, text=» RF ERUP47«, t00=0x0055, t01=0x00f8}
0x85c0…85d4               Head {h00=0x0010, h01=0x0050, text=»ERUP30 EQU *«, t00=0x0055, t01=0x010a}
0x85d4…85e6               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0055, t01=0x011e}
0x85e6…85f8               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0055, t01=0x0130}
0x85f8…8626               Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0055, t01=0x0142}
0x8626…8642               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0055, t01=0x0170}
0x8642…8662               Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0055, t01=0x018c}
0x8662…867a               Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUP30 NO«, t00=0x0056, t01=0x001c}
0x867a…868e               Head {h00=0x0010, h01=0x0050, text=»ERUP45 EQU *«, t00=0x0056, t01=0x0034}
0x868e…86ae               Head {h00=0x001c, h01=0x0050, text=» CWR A9,A4 ALL SCANNED? «, t00=0x0056, t01=0x0048}
0x86ae…86c8               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUP70 YES «, t00=0x0056, t01=0x0068}
0x86c8…86dc               Head {h00=0x0010, h01=0x0050, text=»ERUP47 EQU *«, t00=0x0056, t01=0x0082}
0x86dc…86ee               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0056, t01=0x0096}
0x86ee…870c               Head {h00=0x001a, h01=0x0050, text=» ANK A1,/20 PROTECTED?«, t00=0x0056, t01=0x00a8}
0x870c…8726               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUP30 YES«, t00=0x0056, t01=0x00c6}
0x8726…8748               Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x0056, t01=0x00e0}
0x8748…876a               Head {h00=0x001e, h01=0x0050, text=» SCR A2,A3 SAVE ATTRIBUTE «, t00=0x0056, t01=0x0102}
0x876a…8782               Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0056, t01=0x0124}
0x8782…8794               Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0056, t01=0x013c}
0x8794…87ac               Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0056, t01=0x014e}
0x87ac…87be               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0056, t01=0x0166}
0x87be…87d0               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x0178}
0x87d0…87e4               Head {h00=0x0010, h01=0x0050, text=»ERUP50 EQU *«, t00=0x0056, t01=0x018a}
0x87e4…8812               Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0057, t01=0x000e}
0x8812…882e               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0057, t01=0x003c}
0x882e…884e               Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0057, t01=0x0058}
0x884e…8868               Head {h00=0x0016, h01=0x0050, text=» RB(NL) ERUP45 YES«, t00=0x0057, t01=0x0078}
0x8868…889a               Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER «, t00=0x0057, t01=0x0092}
0x889a…88b2               Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0057, t01=0x00c4}
0x88b2…88c4               Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0057, t01=0x00dc}
0x88c4…88dc               Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0057, t01=0x00ee}
0x88dc…88ee               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0057, t01=0x0106}
0x88ee…8900               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0057, t01=0x0118}
0x8900…8912               Head {h00=0x000e, h01=0x0050, text=» RB ERUP50«, t00=0x0057, t01=0x012a}
0x8912…8926               Head {h00=0x0010, h01=0x0050, text=»ERUP70 EQU *«, t00=0x0057, t01=0x013c}
0x8926…895e               Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0057, t01=0x0150}
0x895e…8972               Head {h00=0x0010, h01=0x0050, text=»ERUP90 EQU *«, t00=0x0057, t01=0x0188}
0x8972…8982               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x000c}
0x8982…8990               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x001c}
0x8990…89d8               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0058, t01=0x002a}
0x89d8…89e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0072}
0x89e2…8a2a               Head {h00=0x0044, h01=0x0050, text=»*        ERASUA       ERASE UNPROTECTED TO ADDRESS             *«, t00=0x0058, t01=0x007c}
0x8a2a…8a72               Head {h00=0x0044, h01=0x0050, text=»*                                                              *«, t00=0x0058, t01=0x00c4}
0x8a72…8aba               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0058, t01=0x010c}
0x8aba…8ace               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0058, t01=0x0154}
0x8ace…8ad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0168}
0x8ad8…8af2               Head {h00=0x0016, h01=0x0050, text=»* A1= STOP ADDRESS«, t00=0x0058, t01=0x0172}
0x8af2…8b06               Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0058, t01=0x018c}
0x8b06…8b2a               Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0059, t01=0x0010}
0x8b2a…8b48               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0059, t01=0x0034}
0x8b48…8b68               Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS.«, t00=0x0059, t01=0x0052}
0x8b68…8b86               Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0059, t01=0x0072}
0x8b86…8b9e               Head {h00=0x0014, h01=0x0050, text=»* A7= NULL CHAR.«, t00=0x0059, t01=0x0090}
0x8b9e…8bbe               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0059, t01=0x00a8}
0x8bbe…8bd6               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0059, t01=0x00c8}
0x8bd6…8be0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e0}
0x8be0…8c28               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0059, t01=0x00ea}
0x8c28…8c3c               Head {h00=0x0010, h01=0x0050, text=»ERASUA EQU *«, t00=0x0059, t01=0x0132}
0x8c3c…8c62               Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0059, t01=0x0146}
0x8c62…8c78               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0059, t01=0x016c}
0x8c78…8c8c               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0059, t01=0x0182}
0x8c8c…8caa               Head {h00=0x001a, h01=0x0050, text=» ADR A3,A4 BUFFER POS.«, t00=0x005a, t01=0x0008}
0x8caa…8cd6               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x005a, t01=0x0026}
0x8cd6…8cf0               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA47 YES «, t00=0x005a, t01=0x0052}
0x8cf0…8d18               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A6 GET CURRENT ATTRIBUTE«, t00=0x005a, t01=0x006c}
0x8d18…8d42               Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x005a, t01=0x0094}
0x8d42…8d5c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUA10 NO «, t00=0x005a, t01=0x00be}
0x8d5c…8d6e               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005a, t01=0x00d8}
0x8d6e…8d80               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005a, t01=0x00ea}
0x8d80…8d9e               Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x005a, t01=0x00fc}
0x8d9e…8db8               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x005a, t01=0x011a}
0x8db8…8de2               Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x005a, t01=0x0134}
0x8de2…8df6               Head {h00=0x0010, h01=0x0050, text=»ERUA10 EQU *«, t00=0x005a, t01=0x015e}
0x8df6…8e1a               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/20 PROTECTED FIELD?«, t00=0x005a, t01=0x0172}
0x8e1a…8e32               Head {h00=0x0014, h01=0x0050, text=» RF(Z) ERUA47 NO«, t00=0x005b, t01=0x0008}
0x8e32…8e46               Head {h00=0x0010, h01=0x0050, text=»ERUA30 EQU *«, t00=0x005b, t01=0x0020}
0x8e46…8e70               Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x005b, t01=0x0034}
0x8e70…8e92               Head {h00=0x001e, h01=0x0050, text=» CWR A1,A4 ALL NULLED? =2 «, t00=0x005b, t01=0x005e}
0x8e92…8eae               Head {h00=0x0018, h01=0x0050, text=» RF(E) ERUA70 YES =2«, t00=0x005b, t01=0x0080}
0x8eae…8eca               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x005b, t01=0x009c}
0x8eca…8edc               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005b, t01=0x00b8}
0x8edc…8eee               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005b, t01=0x00ca}
0x8eee…8efe               Head {h00=0x000c, h01=0x0050, text=»   . =2 «, t00=0x005b, t01=0x00dc}
0x8efe…8f1e               Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005b, t01=0x00ec}
0x8f1e…8f36               Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUA30 NO«, t00=0x005b, t01=0x010c}
0x8f36…8f4a               Head {h00=0x0010, h01=0x0050, text=»ERUA45 EQU *«, t00=0x005b, t01=0x0124}
0x8f4a…8f5c               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x005b, t01=0x0138}
0x8f5c…8f7c               Head {h00=0x001c, h01=0x0050, text=» ANKL A8,/20 PROTECTED? «, t00=0x005b, t01=0x014a}
0x8f7c…8f96               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUA30 YES«, t00=0x005b, t01=0x016a}
0x8f96…8faa               Head {h00=0x0010, h01=0x0050, text=»ERUA47 EQU *«, t00=0x005b, t01=0x0184}
0x8faa…8fbe               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x005c, t01=0x0008}
0x8fbe…8fd4               Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x005c, t01=0x001c}
0x8fd4…8fe6               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005c, t01=0x0032}
0x8fe6…8ffa               Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x005c, t01=0x0044}
0x8ffa…900c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005c, t01=0x0058}
0x900c…901e               Head {h00=0x000e, h01=0x0050, text=» RF ERUA60«, t00=0x005c, t01=0x006a}
0x901e…9032               Head {h00=0x0010, h01=0x0050, text=»ERUA50 EQU *«, t00=0x005c, t01=0x007c}
0x9032…9044               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005c, t01=0x0090}
0x9044…905a               Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x005c, t01=0x00a2}
0x905a…906c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005c, t01=0x00b8}
0x906c…908a               Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x005c, t01=0x00ca}
0x908a…90a4               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x005c, t01=0x00e8}
0x90a4…90b8               Head {h00=0x0010, h01=0x0050, text=»ERUA60 EQU *«, t00=0x005c, t01=0x0102}
0x90b8…90d4               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x005c, t01=0x0116}
0x90d4…90f4               Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005c, t01=0x0132}
0x90f4…9110               Head {h00=0x0018, h01=0x0050, text=» RF(L) ERUA62 NO =3 «, t00=0x005c, t01=0x0152}
0x9110…9132               Head {h00=0x001e, h01=0x0050, text=» ANK A2,/20 PROTECTED? =3 «, t00=0x005c, t01=0x016e}
0x9132…9150               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERUA30 YES =3 «, t00=0x005c, t01=0x0190}
0x9150…9166               Head {h00=0x0012, h01=0x0050, text=» RF ERUA64  =3«, t00=0x005d, t01=0x001e}
0x9166…917e               Head {h00=0x0014, h01=0x0050, text=»ERUA62 EQU *  =3«, t00=0x005d, t01=0x0034}
0x917e…91b0               Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER «, t00=0x005d, t01=0x004c}
0x91b0…91c8               Head {h00=0x0014, h01=0x0050, text=» LC A8,LINFLG,A6«, t00=0x005d, t01=0x007e}
0x91c8…91da               Head {h00=0x000e, h01=0x0050, text=» ORKL A8,1«, t00=0x005d, t01=0x0096}
0x91da…91f2               Head {h00=0x0014, h01=0x0050, text=» SC A8,LINFLG,A6«, t00=0x005d, t01=0x00a8}
0x91f2…920a               Head {h00=0x0014, h01=0x0050, text=»ERUA64 EQU *  =3«, t00=0x005d, t01=0x00c0}
0x920a…921c               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005d, t01=0x00d8}
0x921c…922e               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005d, t01=0x00ea}
0x922e…9240               Head {h00=0x000e, h01=0x0050, text=» RB ERUA50«, t00=0x005d, t01=0x00fc}
0x9240…9254               Head {h00=0x0010, h01=0x0050, text=»ERUA70 EQU *«, t00=0x005d, t01=0x010e}
0x9254…9264               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x0122}
0x9264…9272               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0132}
0x9272…92b4               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005d, t01=0x0140}
0x92b4…92f6               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x005d, t01=0x0182}
0x92f6…9338               Head {h00=0x003e, h01=0x0050, text=»*        POSUNP       MOVE CURSOR TO NEXT UNPR. POS.     *«, t00=0x005e, t01=0x0034}
0x9338…937a               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x005e, t01=0x0076}
0x937a…93bc               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005e, t01=0x00b8}
0x93bc…93d0               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x005e, t01=0x00fa}
0x93d0…93da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x010e}
0x93da…93f0               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x005e, t01=0x0118}
0x93f0…940e               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005e, t01=0x012e}
0x940e…9430               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005e, t01=0x014c}
0x9430…944c               Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005e, t01=0x016e}
0x944c…946c               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005e, t01=0x018a}
0x946c…9484               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005f, t01=0x001a}
0x9484…948e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0032}
0x948e…94d2               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x005f, t01=0x003c}
0x94d2…94e6               Head {h00=0x0010, h01=0x0050, text=»POSUNP EQU *«, t00=0x005f, t01=0x0080}
0x94e6…950a               Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x005f, t01=0x0094}
0x950a…9524               Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU20 NO «, t00=0x005f, t01=0x00b8}
0x9524…954a               Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x005f, t01=0x00d2}
0x954a…9562               Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x005f, t01=0x00f8}
0x9562…9576               Head {h00=0x0010, h01=0x0050, text=»POSU20 EQU *«, t00=0x005f, t01=0x0110}
0x9576…9588               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005f, t01=0x0124}
0x9588…95b6               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x005f, t01=0x0136}
0x95b6…95d6               Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x005f, t01=0x0164}
0x95d6…95ee               Head {h00=0x0014, h01=0x0050, text=» RF(L) POSU30 NO«, t00=0x005f, t01=0x0184}
0x95ee…9600               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0060, t01=0x000c}
0x9600…9614               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/20 «, t00=0x0060, t01=0x001e}
0x9614…9638               Head {h00=0x0020, h01=0x0050, text=» CWK A7,/20 PROTECTED? DKPT «, t00=0x0060, t01=0x0032}
0x9638…9652               Head {h00=0x0016, h01=0x0050, text=» RF(E) POSU25 YES «, t00=0x0060, t01=0x0056}
0x9652…9664               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0060, t01=0x0070}
0x9664…9686               Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x0060, t01=0x0082}
0x9686…9698               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0060, t01=0x00a4}
0x9698…96bc               Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0060, t01=0x00b6}
0x96bc…96d6               Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU23 NO «, t00=0x0060, t01=0x00da}
0x96d6…96e8               Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0060, t01=0x00f4}
0x96e8…96fc               Head {h00=0x0010, h01=0x0050, text=»POSU23 EQU *«, t00=0x0060, t01=0x0106}
0x96fc…972a               Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0060, t01=0x011a}
0x972a…9748               Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0060, t01=0x0148}
0x9748…976a               Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0060, t01=0x0166}
0x976a…977c               Head {h00=0x000e, h01=0x0050, text=» RF POSU30«, t00=0x0060, t01=0x0188}
0x977c…9790               Head {h00=0x0010, h01=0x0050, text=»POSU25 EQU *«, t00=0x0061, t01=0x000a}
0x9790…97be               Head {h00=0x002a, h01=0x0050, text=» CF A14,TAB TAB NEXT UNPROTECTED FIELD«, t00=0x0061, t01=0x001e}
0x97be…97d2               Head {h00=0x0010, h01=0x0050, text=»POSU30 EQU *«, t00=0x0061, t01=0x004c}
0x97d2…97ec               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0061, t01=0x0060}
0x97ec…9804               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x0061, t01=0x007a}
0x9804…9822               Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF LINE POS. «, t00=0x0061, t01=0x0092}
0x9822…9848               Head {h00=0x0022, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE? «, t00=0x0061, t01=0x00b0}
0x9848…9862               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) POSU90 NO «, t00=0x0061, t01=0x00d6}
0x9862…9880               Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0061, t01=0x00f0}
0x9880…98a2               Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0061, t01=0x010e}
0x98a2…98b6               Head {h00=0x0010, h01=0x0050, text=»POSU90 EQU *«, t00=0x0061, t01=0x0130}
0x98b6…98c6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0144}
0x98c6…98d4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0154}
0x98d4…9918               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x0162}
0x9918…995c               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0062, t01=0x0016}
0x995c…99a0               Head {h00=0x0040, h01=0x0050, text=»*       DISID      DISPLAY HARDCOPY TASKID                 *«, t00=0x0062, t01=0x005a}
0x99a0…99e4               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0062, t01=0x009e}
0x99e4…9a28               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0062, t01=0x00e2}
0x9a28…9a48               Head {h00=0x001c, h01=0x0050, text=»*              REGISTERS«, t00=0x0062, t01=0x0126}
0x9a48…9a52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0146}
0x9a52…9a5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0150}
0x9a5c…9aa0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0062, t01=0x015a}
0x9aa0…9ab4               Head {h00=0x0010, h01=0x0050, text=»DISID EQU * «, t00=0x0063, t01=0x000e}
0x9ab4…9ace               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0063, t01=0x0022}
0x9ace…9af8               Head {h00=0x0026, h01=0x0050, text=» CF A14,SPACES SPACE IN ECB BUFFER«, t00=0x0063, t01=0x003c}
0x9af8…9b22               Head {h00=0x0026, h01=0x0050, text=» LD A3,6,A13 GET COMMON BLOCK BASE«, t00=0x0063, t01=0x0066}
0x9b22…9b42               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 SAVE TASK ID «, t00=0x0063, t01=0x0090}
0x9b42…9b58               Head {h00=0x0012, h01=0x0050, text=» LDK A5,IDTEXT«, t00=0x0063, t01=0x00b0}
0x9b58…9b7c               Head {h00=0x0020, h01=0x0050, text=» ADR A5,A3 POINT ON IDBUFFER«, t00=0x0063, t01=0x00c6}
0x9b7c…9b8e               Head {h00=0x000e, h01=0x0050, text=» ADK A6,46«, t00=0x0063, t01=0x00ea}
0x9b8e…9ba0               Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0063, t01=0x00fc}
0x9ba0…9bc4               Head {h00=0x0020, h01=0x0050, text=» ANK A4,1 PRINTER OPERABLE? «, t00=0x0063, t01=0x010e}
0x9bc4…9bde               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISI10 YES «, t00=0x0063, t01=0x0132}
0x9bde…9bf0               Head {h00=0x000e, h01=0x0050, text=» ADK A3,16«, t00=0x0063, t01=0x014c}
0x9bf0…9c04               Head {h00=0x0010, h01=0x0050, text=»DISI10 EQU *«, t00=0x0063, t01=0x015e}
0x9c04…9c2a               Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 MOVE INTO ECBBUFFER «, t00=0x0063, t01=0x0172}
0x9c2a…9c4a               Head {h00=0x001c, h01=0x0050, text=» RF(N) DISI20 COMPLETED «, t00=0x0064, t01=0x0008}
0x9c4a…9c5e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0064, t01=0x0028}
0x9c5e…9c70               Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x0064, t01=0x003c}
0x9c70…9c82               Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0064, t01=0x004e}
0x9c82…9c94               Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0064, t01=0x0060}
0x9c94…9ca6               Head {h00=0x000e, h01=0x0050, text=» RB DISI10«, t00=0x0064, t01=0x0072}
0x9ca6…9cba               Head {h00=0x0010, h01=0x0050, text=»DISI20 EQU *«, t00=0x0064, t01=0x0084}
0x9cba…9cd2               Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x0064, t01=0x0098}
0x9cd2…9d04               Head {h00=0x002e, h01=0x0050, text=» ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER «, t00=0x0064, t01=0x00b0}
0x9d04…9d2e               Head {h00=0x0026, h01=0x0050, text=» LC A2,X'1F' HIGH INTENSITY CHAR. «, t00=0x0064, t01=0x00e2}
0x9d2e…9d48               Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBBA+45,A6«, t00=0x0064, t01=0x010c}
0x9d48…9d74               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x0064, t01=0x0126}
0x9d74…9d98               Head {h00=0x0020, h01=0x0050, text=» LDKL A9,1 1 INTENSITY CHAR.«, t00=0x0064, t01=0x0152}
0x9d98…9dc4               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,X'1801' DISPLAY ON LAST ROW«, t00=0x0064, t01=0x0176}
0x9dc4…9ddc               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0065, t01=0x0012}
0x9ddc…9e06               Head {h00=0x0026, h01=0x0050, text=» CF A14,DISLIN DISPLAY IDENT TEXT «, t00=0x0065, t01=0x002a}
0x9e06…9e16               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0054}
0x9e16…9e24               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x0064}
0x9e24…9e6a               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0065, t01=0x0072}
0x9e6a…9e74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00b8}
0x9e74…9e98               Head {h00=0x0020, h01=0x0050, text=»* DISSTA DISPLAY STATISTICS «, t00=0x0065, t01=0x00c2}
0x9e98…9ea2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00e6}
0x9ea2…9eea               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0065, t01=0x00f0}
0x9eea…9f04               Head {h00=0x0016, h01=0x0050, text=»*        REGISTERS«, t00=0x0065, t01=0x0138}
0x9f04…9f0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0152}
0x9f0e…9f18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x015c}
0x9f18…9f60               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0065, t01=0x0166}
0x9f60…9f74               Head {h00=0x0010, h01=0x0050, text=»DISSTA EQU *«, t00=0x0066, t01=0x001e}
0x9f74…9f88               Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0066, t01=0x0032}
0x9f88…9fa2               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0066, t01=0x0046}
0x9fa2…9fc8               Head {h00=0x0022, h01=0x0050, text=» LDK A1,STALIN WHERE TO START «, t00=0x0066, t01=0x0060}
0x9fc8…9fda               Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0066, t01=0x0086}
0x9fda…9fec               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0066, t01=0x0098}
0x9fec…a016               Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 FIRST POS. ON THAT LINE«, t00=0x0066, t01=0x00aa}
0xa016…a02e               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0066, t01=0x00d4}
0xa02e…a056               Head {h00=0x0024, h01=0x0050, text=» CF A14,SPACES CLEAN THE BUFFER «, t00=0x0066, t01=0x00ec}
0xa056…a074               Head {h00=0x001a, h01=0x0050, text=» LDK A5,0 RESET INDEX «, t00=0x0066, t01=0x0114}
0xa074…a088               Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0066, t01=0x0132}
0xa088…a0ac               Head {h00=0x0020, h01=0x0050, text=» ADK A3,STATXT POINT TO TEXT«, t00=0x0066, t01=0x0146}
0xa0ac…a0c0               Head {h00=0x0010, h01=0x0050, text=»DISS10 EQU *«, t00=0x0066, t01=0x016a}
0xa0c0…a0e2               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1F HIGH INTENSITY«, t00=0x0066, t01=0x017e}
0xa0e2…a0f4               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0067, t01=0x0010}
0xa0f4…a106               Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0067, t01=0x0022}
0xa106…a118               Head {h00=0x000e, h01=0x0050, text=» LDKL A9,1«, t00=0x0067, t01=0x0034}
0xa118…a148               Head {h00=0x002c, h01=0x0050, text=» LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE«, t00=0x0067, t01=0x0046}
0xa148…a174               Head {h00=0x0028, h01=0x0050, text=» CF A14,MOVTXT MOVE IT IN TO BUFFER «, t00=0x0067, t01=0x0076}
0xa174…a19c               Head {h00=0x0024, h01=0x0050, text=» ADK A6,5+STAPOS MAKE SOME ROOM «, t00=0x0067, t01=0x00a2}
0xa19c…a1b4               Head {h00=0x0014, h01=0x0050, text=» LC A1,INDEX,A5 «, t00=0x0067, t01=0x00ca}
0xa1b4…a1c6               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0067, t01=0x00e2}
0xa1c6…a1ee               Head {h00=0x0024, h01=0x0050, text=» ADR A1,A12 POINT OUT STAT VALUE«, t00=0x0067, t01=0x00f4}
0xa1ee…a200               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0067, t01=0x011c}
0xa200…a226               Head {h00=0x0022, h01=0x0050, text=» CF A14,CONASC MAKE IT VISABLE«, t00=0x0067, t01=0x012e}
0xa226…a238               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0067, t01=0x0154}
0xa238…a24a               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0067, t01=0x0166}
0xa24a…a25c               Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0067, t01=0x0178}
0xa25c…a272               Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0067, t01=0x018a}
0xa272…a284               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0068, t01=0x0010}
0xa284…a296               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0068, t01=0x0022}
0xa296…a2aa               Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0068, t01=0x0034}
0xa2aa…a2bc               Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0068, t01=0x0048}
0xa2bc…a2ce               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0068, t01=0x005a}
0xa2ce…a2e0               Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0068, t01=0x006c}
0xa2e0…a2f4               Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0068, t01=0x007e}
0xa2f4…a314               Head {h00=0x001c, h01=0x0050, text=» CF A14,CONASC AS ABOVE «, t00=0x0068, t01=0x0092}
0xa314…a326               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0068, t01=0x00b2}
0xa326…a33a               Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0068, t01=0x00c4}
0xa33a…a34c               Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0068, t01=0x00d8}
0xa34c…a362               Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0068, t01=0x00ea}
0xa362…a374               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0068, t01=0x0100}
0xa374…a386               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0068, t01=0x0112}
0xa386…a39a               Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0068, t01=0x0124}
0xa39a…a3ac               Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0068, t01=0x0138}
0xa3ac…a3be               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0068, t01=0x014a}
0xa3be…a3e2               Head {h00=0x0020, h01=0x0050, text=» LDKL A10,1 NOT ONLY SPACES «, t00=0x0068, t01=0x015c}
0xa3e2…a406               Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY STAT.«, t00=0x0068, t01=0x0180}
0xa406…a42c               Head {h00=0x0022, h01=0x0050, text=» CWK A5,NUMLIN LIMIT REACHED? «, t00=0x0069, t01=0x0014}
0xa42c…a446               Head {h00=0x0016, h01=0x0050, text=» RB(NE) DISS10 NO «, t00=0x0069, t01=0x003a}
0xa446…a452               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0054}
0xa452…a462               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x0060}
0xa462…a476               Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0069, t01=0x0070}
0xa476…a484               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0084}
0xa484…a4c8               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0069, t01=0x0092}
0xa4c8…a4d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00d6}
0xa4d2…a4ec               Head {h00=0x0016, h01=0x0050, text=»* MOVTXT MOVE TEXT«, t00=0x0069, t01=0x00e0}
0xa4ec…a4f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00fa}
0xa4f6…a53a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0069, t01=0x0104}
0xa53a…a554               Head {h00=0x0016, h01=0x0050, text=»*       REGISTERS «, t00=0x0069, t01=0x0148}
0xa554…a55e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0162}
0xa55e…a568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x016c}
0xa568…a5aa               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0176}
0xa5aa…a5b2               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0028}
0xa5b2…a5c6               Head {h00=0x0010, h01=0x0050, text=»MOVTXT EQU *«, t00=0x006a, t01=0x0030}
0xa5c6…a5d8               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x006a, t01=0x0044}
0xa5d8…a5ea               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x0056}
0xa5ea…a602               Head {h00=0x0014, h01=0x0050, text=» SC A2,STAPOS,A6«, t00=0x006a, t01=0x0068}
0xa602…a614               Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x006a, t01=0x0080}
0xa614…a626               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006a, t01=0x0092}
0xa626…a63c               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MOVTXT«, t00=0x006a, t01=0x00a4}
0xa63c…a64c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x00ba}
0xa64c…a65a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x00ca}
0xa65a…a69c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x00d8}
0xa69c…a6a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x011a}
0xa6a6…a6c8               Head {h00=0x001e, h01=0x0050, text=»* CONASC CONVERT TO ASCII «, t00=0x006a, t01=0x0124}
0xa6c8…a6d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0146}
0xa6d2…a712               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006a, t01=0x0150}
0xa712…a728               Head {h00=0x0012, h01=0x0050, text=»*    REGISTERS«, t00=0x006a, t01=0x0190}
0xa728…a732               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0016}
0xa732…a73c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0020}
0xa73c…a77c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006b, t01=0x002a}
0xa77c…a790               Head {h00=0x0010, h01=0x0050, text=»CONASC EQU *«, t00=0x006b, t01=0x006a}
0xa790…a7a4               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0F «, t00=0x006b, t01=0x007e}
0xa7a4…a7ba               Head {h00=0x0012, h01=0x0050, text=» CCK A2,/0909 «, t00=0x006b, t01=0x0092}
0xa7ba…a7d0               Head {h00=0x0012, h01=0x0050, text=» RF(G) CONA10 «, t00=0x006b, t01=0x00a8}
0xa7d0…a7e4               Head {h00=0x0010, h01=0x0050, text=» ORK A2,/30 «, t00=0x006b, t01=0x00be}
0xa7e4…a7f6               Head {h00=0x000e, h01=0x0050, text=» RF CONA90«, t00=0x006b, t01=0x00d2}
0xa7f6…a80a               Head {h00=0x0010, h01=0x0050, text=»CONA10 EQU *«, t00=0x006b, t01=0x00e4}
0xa80a…a81e               Head {h00=0x0010, h01=0x0050, text=» ADK A2,/37 «, t00=0x006b, t01=0x00f8}
0xa81e…a832               Head {h00=0x0010, h01=0x0050, text=»CONA90 EQU *«, t00=0x006b, t01=0x010c}
0xa832…a842               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0120}
0xa842…a84e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0130}
0xa84e…a85c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x013c}
0xa85c…a89e               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006b, t01=0x014a}
0xa89e…a8e0               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x006b, t01=0x018c}
0xa8e0…a922               Head {h00=0x003e, h01=0x0050, text=»*        ATMASF       SEARCH ATTRIBUTE FORWARD          * «, t00=0x006c, t01=0x003e}
0xa922…a964               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x006c, t01=0x0080}
0xa964…a9a6               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006c, t01=0x00c2}
0xa9a6…a9ba               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x006c, t01=0x0104}
0xa9ba…a9c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0118}
0xa9c4…a9f0               Head {h00=0x0028, h01=0x0050, text=»* A1= AT ENTRY START SEARCH ADDRESS «, t00=0x006c, t01=0x0122}
0xa9f0…aa06               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x006c, t01=0x014e}
0xaa06…aa1c               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006c, t01=0x0164}
0xaa1c…aa3a               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006c, t01=0x017a}
0xaa3a…aa5c               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006d, t01=0x0008}
0xaa5c…aa7a               Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006d, t01=0x002a}
0xaa7a…aa90               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006d, t01=0x0048}
0xaa90…aaa6               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006d, t01=0x005e}
0xaaa6…aabe               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006d, t01=0x0074}
0xaabe…aade               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006d, t01=0x008c}
0xaade…aaf6               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006d, t01=0x00ac}
0xaaf6…ab00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00c4}
0xab00…ab42               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006d, t01=0x00ce}
0xab42…ab56               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x006d, t01=0x0110}
0xab56…ab6e               Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x006d, t01=0x0124}
0xab6e…ab82               Head {h00=0x0010, h01=0x0050, text=»ASF100 EQU *«, t00=0x006d, t01=0x013c}
0xab82…ab94               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006d, t01=0x0150}
0xab94…abb8               Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x006d, t01=0x0162}
0xabb8…abd2               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ASF200 NO «, t00=0x006d, t01=0x0186}
0xabd2…abf8               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x006e, t01=0x0010}
0xabf8…ac0c               Head {h00=0x0010, h01=0x0050, text=»ASF200 EQU *«, t00=0x006e, t01=0x0036}
0xac0c…ac3a               Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x006e, t01=0x004a}
0xac3a…ac54               Head {h00=0x0016, h01=0x0050, text=» RF(E) ASF900 YES «, t00=0x006e, t01=0x0078}
0xac54…ac82               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006e, t01=0x0092}
0xac82…aca2               Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x006e, t01=0x00c0}
0xaca2…acba               Head {h00=0x0014, h01=0x0050, text=» RB(L) ASF100 NO«, t00=0x006e, t01=0x00e0}
0xacba…accc               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x006e, t01=0x00f8}
0xaccc…acde               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x006e, t01=0x010a}
0xacde…ad10               Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x006e, t01=0x011c}
0xad10…ad24               Head {h00=0x0010, h01=0x0050, text=»ASF900 EQU *«, t00=0x006e, t01=0x014e}
0xad24…ad34               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x0162}
0xad34…ad42               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0172}
0xad42…ad92               Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006e, t01=0x0180}
0xad92…ade2               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x006f, t01=0x0040}
0xade2…ae32               Head {h00=0x004c, h01=0x0050, text=»*        ATMASB       SEARCH ATTRIBUTE BACKWARD                       * «, t00=0x006f, t01=0x0090}
0xae32…ae82               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x006f, t01=0x00e0}
0xae82…aed2               Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006f, t01=0x0130}
0xaed2…aee6               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x006f, t01=0x0180}
0xaee6…aef0 (112, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0004}
0xaef0…af18               Head {h00=0x0024, h01=0x0050, text=»* A1= ATENTRY START SEARCH ADDR.«, t00=0x0070, t01=0x000e}
0xaf18…af2e               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0070, t01=0x0036}
0xaf2e…af44               Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0070, t01=0x004c}
0xaf44…af62               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0070, t01=0x0062}
0xaf62…af84               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0070, t01=0x0080}
0xaf84…afa2               Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0070, t01=0x00a2}
0xafa2…afb8               Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0070, t01=0x00c0}
0xafb8…afce               Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0070, t01=0x00d6}
0xafce…afe6               Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0070, t01=0x00ec}
0xafe6…b006               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0070, t01=0x0104}
0xb006…b01e               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0070, t01=0x0124}
0xb01e…b028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x013c}
0xb028…b078               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0070, t01=0x0146}
0xb078…b08c               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x0071, t01=0x0008}
0xb08c…b0a4               Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0071, t01=0x001c}
0xb0a4…b0b8               Head {h00=0x0010, h01=0x0050, text=»ASB100 EQU *«, t00=0x0071, t01=0x0034}
0xb0b8…b0e6               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x0071, t01=0x0048}
0xb0e6…b106               Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x0071, t01=0x0076}
0xb106…b120               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ASB300 YES«, t00=0x0071, t01=0x0096}
0xb120…b132               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0071, t01=0x00b0}
0xb132…b158               Head {h00=0x0022, h01=0x0050, text=» RF(NN) ASB200 NOT WRAP AROUND«, t00=0x0071, t01=0x00c2}
0xb158…b184               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0071, t01=0x00e8}
0xb184…b198               Head {h00=0x0010, h01=0x0050, text=»ASB200 EQU *«, t00=0x0071, t01=0x0114}
0xb198…b1c6               Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x0071, t01=0x0128}
0xb1c6…b1e0               Head {h00=0x0016, h01=0x0050, text=» RF(E) ASB900 YES «, t00=0x0071, t01=0x0156}
0xb1e0…b1f2               Head {h00=0x000e, h01=0x0050, text=» RB ASB100«, t00=0x0071, t01=0x0170}
0xb1f2…b206               Head {h00=0x0010, h01=0x0050, text=»ASB300 EQU *«, t00=0x0071, t01=0x0182}
0xb206…b218               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0072, t01=0x0008}
0xb218…b22a               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0072, t01=0x001a}
0xb22a…b258               Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0072, t01=0x002c}
0xb258…b26c               Head {h00=0x0010, h01=0x0050, text=»ASB900 EQU *«, t00=0x0072, t01=0x005a}
0xb26c…b27c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x006e}
0xb27c…b28a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x007e}
0xb28a…b2d2               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0072, t01=0x008c}
0xb2d2…b31a               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x0072, t01=0x00d4}
0xb31a…b362               Head {h00=0x0044, h01=0x0050, text=»*        SNULL       SEARCH FIRST NULL CHAR.                  * «, t00=0x0072, t01=0x011c}
0xb362…b3aa               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x0072, t01=0x0164}
0xb3aa…b3f2               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0073, t01=0x001c}
0xb3f2…b406               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0073, t01=0x0064}
0xb406…b410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0078}
0xb410…b446               Head {h00=0x0032, h01=0x0050, text=»* A1= AT RETURN  1=NULL FOUND, 2=NO NULL FOUND«, t00=0x0073, t01=0x0082}
0xb446…b45c               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0073, t01=0x00b8}
0xb45c…b4a2               Head {h00=0x0042, h01=0x0050, text=»* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY «, t00=0x0073, t01=0x00ce}
0xb4a2…b4c0               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0073, t01=0x0114}
0xb4c0…b4d6               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0073, t01=0x0132}
0xb4d6…b4ec               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0073, t01=0x0148}
0xb4ec…b50c               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0073, t01=0x015e}
0xb50c…b524               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x017e}
0xb524…b52e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0008}
0xb52e…b576               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0074, t01=0x0012}
0xb576…b58a               Head {h00=0x0010, h01=0x0050, text=»SNULL EQU * «, t00=0x0074, t01=0x005a}
0xb58a…b59c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0074, t01=0x006e}
0xb59c…b5b0               Head {h00=0x0010, h01=0x0050, text=»SNU100 EQU *«, t00=0x0074, t01=0x0080}
0xb5b0…b5c2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0074, t01=0x0094}
0xb5c2…b5e6               Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x0074, t01=0x00a6}
0xb5e6…b600               Head {h00=0x0016, h01=0x0050, text=» RF(NG) SNU200 NO «, t00=0x0074, t01=0x00ca}
0xb600…b624               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0074, t01=0x00e4}
0xb624…b638               Head {h00=0x0010, h01=0x0050, text=»SNU200 EQU *«, t00=0x0074, t01=0x0108}
0xb638…b658               Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SEARCHED?«, t00=0x0074, t01=0x011c}
0xb658…b672               Head {h00=0x0016, h01=0x0050, text=» RF(E) SNU300 YES «, t00=0x0074, t01=0x013c}
0xb672…b6a0               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x0074, t01=0x0156}
0xb6a0…b6c0               Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR? «, t00=0x0074, t01=0x0184}
0xb6c0…b6da               Head {h00=0x0016, h01=0x0050, text=» RB(NE) SNU100 NO «, t00=0x0075, t01=0x0014}
0xb6da…b6ec               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0075, t01=0x002e}
0xb6ec…b712               Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INDICATE NULL FOUND «, t00=0x0075, t01=0x0040}
0xb712…b724               Head {h00=0x000e, h01=0x0050, text=» RF SNU900«, t00=0x0075, t01=0x0066}
0xb724…b738               Head {h00=0x0010, h01=0x0050, text=»SNU300 EQU *«, t00=0x0075, t01=0x0078}
0xb738…b74a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0075, t01=0x008c}
0xb74a…b75e               Head {h00=0x0010, h01=0x0050, text=»SNU900 EQU *«, t00=0x0075, t01=0x009e}
0xb75e…b76e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0075, t01=0x00b2}
0xb76e…b77c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x00c2}
0xb77c…b7c0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0075, t01=0x00d0}
0xb7c0…b804               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0075, t01=0x0114}
0xb804…b848               Head {h00=0x0040, h01=0x0050, text=»*        WCHAR       DISPLAY CHAR. AND CURSOR              *«, t00=0x0075, t01=0x0158}
0xb848…b88c               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0076, t01=0x000c}
0xb88c…b8d0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0076, t01=0x0050}
0xb8d0…b8e4               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x0076, t01=0x0094}
0xb8e4…b8ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00a8}
0xb8ee…b904               Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0076, t01=0x00b2}
0xb904…b922               Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0076, t01=0x00c8}
0xb922…b944               Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0076, t01=0x00e6}
0xb944…b962               Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0076, t01=0x0108}
0xb962…b978               Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x0076, t01=0x0126}
0xb978…b998               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0076, t01=0x013c}
0xb998…b9b0               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0076, t01=0x015c}
0xb9b0…b9ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0174}
0xb9ba…ba00               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0076, t01=0x017e}
0xba00…ba14               Head {h00=0x0010, h01=0x0050, text=»WCHAR EQU * «, t00=0x0077, t01=0x0034}
0xba14…ba2e               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0077, t01=0x0048}
0xba2e…ba56               Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1E LOW INTENSITY CHAR. «, t00=0x0077, t01=0x0062}
0xba56…ba68               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0077, t01=0x008a}
0xba68…ba8c               Head {h00=0x0020, h01=0x0050, text=» ANK A7,/8 STANDARD DISPLAY?«, t00=0x0077, t01=0x009c}
0xba8c…baa6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) WCH300 YES «, t00=0x0077, t01=0x00c0}
0xbaa6…bab8               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0077, t01=0x00da}
0xbab8…bae0               Head {h00=0x0024, h01=0x0050, text=» ANK A7,/4 INTENSIFIED DISPLAY? «, t00=0x0077, t01=0x00ec}
0xbae0…bafa               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WCH200 NO «, t00=0x0077, t01=0x0114}
0xbafa…bb22               Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1F HIGH INTENSITY CHAR.«, t00=0x0077, t01=0x012e}
0xbb22…bb34               Head {h00=0x000e, h01=0x0050, text=» RF WCH300«, t00=0x0077, t01=0x0156}
0xbb34…bb48               Head {h00=0x0010, h01=0x0050, text=»WCH200 EQU *«, t00=0x0077, t01=0x0168}
0xbb48…bb66               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 NONDISPLAY«, t00=0x0077, t01=0x017c}
0xbb66…bb7a               Head {h00=0x0010, h01=0x0050, text=»WCH300 EQU *«, t00=0x0078, t01=0x000a}
0xbb7a…bba4               Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0078, t01=0x001e}
0xbba4…bbcc               Head {h00=0x0024, h01=0x0050, text=» SC A1,2,A7 SAVE INTENSITY CHAR.«, t00=0x0078, t01=0x0048}
0xbbcc…bbfa               Head {h00=0x002a, h01=0x0050, text=» CF A14,RFMDUP REPLACE FM OR DUP CHAR.«, t00=0x0078, t01=0x0070}
0xbbfa…bc28               Head {h00=0x002a, h01=0x0050, text=» SC A2,3,A7 STORE CHAR. IN VDU BUFFER «, t00=0x0078, t01=0x009e}
0xbc28…bc46               Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 REQ. LENGTH «, t00=0x0078, t01=0x00cc}
0xbc46…bc64               Head {h00=0x001a, h01=0x0050, text=» CF A14,DISCHA DISPLAY«, t00=0x0078, t01=0x00ea}
0xbc64…bc76               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0078, t01=0x0108}
0xbc76…bc8c               Head {h00=0x0012, h01=0x0050, text=» IM PCURS,A11 «, t00=0x0078, t01=0x011a}
0xbc8c…bcb8               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0078, t01=0x0130}
0xbcb8…bcd2               Head {h00=0x0016, h01=0x0050, text=» RF(E) WCH900 YES «, t00=0x0078, t01=0x015c}
0xbcd2…bcfe               Head {h00=0x0028, h01=0x0050, text=» ORK A6,1 SET MDT-BITS IN ATTRIBUTE «, t00=0x0078, t01=0x0176}
0xbcfe…bd18               Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x0079, t01=0x0012}
0xbd18…bd2a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0079, t01=0x002c}
0xbd2a…bd3c               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0079, t01=0x003e}
0xbd3c…bd6c               Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x0079, t01=0x0050}
0xbd6c…bd80               Head {h00=0x0010, h01=0x0050, text=»WCH900 EQU *«, t00=0x0079, t01=0x0080}
0xbd80…bd90               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0094}
0xbd90…bd9e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x00a4}
0xbd9e…bde0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0079, t01=0x00b2}
0xbde0…be22               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0079, t01=0x00f4}
0xbe22…be64               Head {h00=0x003e, h01=0x0050, text=»*        RFMDUP       REPLACE FM OR DUP CHAR IF PRESENT * «, t00=0x0079, t01=0x0136}
0xbe64…bea6               Head {h00=0x003e, h01=0x0050, text=»*                                                       * «, t00=0x0079, t01=0x0178}
0xbea6…bee8               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007a, t01=0x002a}
0xbee8…befc               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x007a, t01=0x006c}
0xbefc…bf12               Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x007a, t01=0x0080}
0xbf12…bf28               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x007a, t01=0x0096}
0xbf28…bf3e               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x007a, t01=0x00ac}
0xbf3e…bf54               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x007a, t01=0x00c2}
0xbf54…bf74               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007a, t01=0x00d8}
0xbf74…bf8c               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x00f8}
0xbf8c…bf96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0110}
0xbf96…bfce               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x007a, t01=0x011a}
0xbfce…bfe2               Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x007a, t01=0x0152}
0xbfe2…c002               Head {h00=0x001c, h01=0x0050, text=» CWK A2,DUPCH DUP CHAR? «, t00=0x007a, t01=0x0166}
0xc002…c01c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD10 NO «, t00=0x007a, t01=0x0186}
0xc01c…c038               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2A REPLACE «, t00=0x007b, t01=0x0010}
0xc038…c04a               Head {h00=0x000e, h01=0x0050, text=» RF RFMD90«, t00=0x007b, t01=0x002c}
0xc04a…c05e               Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x007b, t01=0x003e}
0xc05e…c07c               Head {h00=0x001a, h01=0x0050, text=» CWK A2,FMCH FM CHAR? «, t00=0x007b, t01=0x0052}
0xc07c…c096               Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD90 NO «, t00=0x007b, t01=0x0070}
0xc096…c0b2               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3B REPLACE «, t00=0x007b, t01=0x008a}
0xc0b2…c0c6               Head {h00=0x0010, h01=0x0050, text=»RFMD90 EQU *«, t00=0x007b, t01=0x00a6}
0xc0c6…c0d6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x00ba}
0xc0d6…c0e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x00ca}
0xc0e4…c11c               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007b, t01=0x00d8}
0xc11c…c154               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x007b, t01=0x0110}
0xc154…c18c               Head {h00=0x0034, h01=0x0050, text=»*        DISCHA       DISPLAY CHAR             *«, t00=0x007b, t01=0x0148}
0xc18c…c1c4               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x007b, t01=0x0180}
0xc1c4…c1fc               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007c, t01=0x0028}
0xc1fc…c210               Head {h00=0x0010, h01=0x0050, text=»*  REGISTERS«, t00=0x007c, t01=0x0060}
0xc210…c21a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0074}
0xc21a…c234               Head {h00=0x0016, h01=0x0050, text=»* A1= REQ. LENGTH «, t00=0x007c, t01=0x007e}
0xc234…c24a               Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x007c, t01=0x0098}
0xc24a…c260               Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x007c, t01=0x00ae}
0xc260…c276               Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x007c, t01=0x00c4}
0xc276…c28c               Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x007c, t01=0x00da}
0xc28c…c2a2               Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x007c, t01=0x00f0}
0xc2a2…c2c2               Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007c, t01=0x0106}
0xc2c2…c2da               Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007c, t01=0x0126}
0xc2da…c2e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x013e}
0xc2e4…c31e               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007c, t01=0x0148}
0xc31e…c332               Head {h00=0x0010, h01=0x0050, text=»DISCHA EQU *«, t00=0x007c, t01=0x0182}
0xc332…c34a               Head {h00=0x0014, h01=0x0050, text=» LC A2,TCT01,A11«, t00=0x007d, t01=0x0008}
0xc34a…c370               Head {h00=0x0022, h01=0x0050, text=» CCK A2,VDUCOD PRINTER UNPACK?«, t00=0x007d, t01=0x0020}
0xc370…c38a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISC95 YES«, t00=0x007d, t01=0x0046}
0xc38a…c3a4               Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x007d, t01=0x0060}
0xc3a4…c3bc               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x007d, t01=0x007a}
0xc3bc…c3e8               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/101 START AT LINE 1 POS. 1«, t00=0x007d, t01=0x0092}
0xc3e8…c400               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x007d, t01=0x00be}
0xc400…c416               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x007d, t01=0x00d6}
0xc416…c434               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A4 CURSOR POS.«, t00=0x007d, t01=0x00ec}
0xc434…c448               Head {h00=0x0010, h01=0x0050, text=»DISC10 EQU *«, t00=0x007d, t01=0x010a}
0xc448…c468               Head {h00=0x001c, h01=0x0050, text=» CWK A7,LLINE NEXT LINE?«, t00=0x007d, t01=0x011e}
0xc468…c480               Head {h00=0x0014, h01=0x0050, text=» RF(L) DISC90 NO«, t00=0x007d, t01=0x013e}
0xc480…c4aa               Head {h00=0x0026, h01=0x0050, text=» ADS A1,ECBCW,A8 MOVE TO NEXT LINE«, t00=0x007d, t01=0x0156}
0xc4aa…c4c0               Head {h00=0x0012, h01=0x0050, text=» SUKL A7,LLINE«, t00=0x007d, t01=0x0180}
0xc4c0…c4d2               Head {h00=0x000e, h01=0x0050, text=» RB DISC10«, t00=0x007e, t01=0x0008}
0xc4d2…c4e6               Head {h00=0x0010, h01=0x0050, text=»DISC90 EQU *«, t00=0x007e, t01=0x001a}
0xc4e6…c510               Head {h00=0x0026, h01=0x0050, text=» ADS A7,ECBCW,A8 POSITION IN LINE «, t00=0x007e, t01=0x002e}
0xc510…c538               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x007e, t01=0x0058}
0xc538…c544               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x007e, t01=0x0080}
0xc544…c554               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x007e, t01=0x008c}
0xc554…c568               Head {h00=0x0010, h01=0x0050, text=»DISC95 EQU *«, t00=0x007e, t01=0x009c}
0xc568…c578               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x00b0}
0xc578…c580               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x00c0}
0xc580…c58c               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007e, t01=0x00c8}
0xc58c…c590               Head {h00=0x4004, h01=0x0000}
0xc590…c594               00 7e 00 d4                                                                                                                                                                                                                                       ┆ ~  ┆
0xc594…c59c (127, 1, 8)   20 04 00 00 00 7f 00 04                                                                                                                                                                                                                           ┆        ┆
0xc59c…c5ec (128, 0, 400) 96 da 81 40 64 44 50 04 82 45 00 04 82 58 00 02 52 2e 82 58 00 06 50 06 ea 20 00 02 54 22 80 d8 00 04 83 50 ff fc 83 43 00 06 81 58 00 1a 82 50 ff fe f7 a1 81 ce 81 43 00 0c 01 00 f7 a1 5a 0e e2 50 00 02 22 ff e2 48 96 da 22 08 50 0a 82 58   ┆   @dDP  E   X  R. X  P     T"     P   C   X   P       C      Z  P  "  H  " P  X┆
0xc5ec…c63c               00 02 2a 0a 82 59 00 02 82 58 00 02 56 06 f5 21 5a 98 57 2a 82 58 00 06 ea 20 00 02 54 12 01 00 82 58 00 2a 50 04 a9 20 01 00 f7 a1 17 10 57 0e f5 21 5a 98 82 58 00 06 54 04 f7 a1 17 70 81 58 00 02 21 08 50 06 f5 21 60 b4 57 04 f5 21 60 a6   ┆  *  Y   X  V  !Z W* X      T    X *P         W  !Z  X  T    p X  ! P  !` W  !` ┆
0xc63c…c68c               8f 20 5b a6 a0 41 80 28 86 40 80 22 84 58 00 30 1c 02 83 20 07 82 90 41 80 2e a0 41 80 24 01 01 b1 41 80 30 8f 20 5c da f5 21 5b 4e 81 40 80 26 54 20 a9 40 80 28 50 04 f5 21 60 da 8f 20 5b a6 f5 21 5b 4e 81 40 80 26 54 08 a9 40 80 28 58 14   ┆  [  A ( @ " X 0       A . A $   A 0     ![N @ &T  @ (P  !`   [  ![N @ &T  @ (X ┆
0xc68c…c6dc               57 60 86 40 80 24 81 40 80 2c 8c 20 5c 94 81 40 80 3e 99 40 80 38 81 41 80 3c 8f 20 5c e6 f5 21 5b 4e 81 40 80 26 54 02 5f 3e f5 21 63 8a ea 20 00 18 54 10 81 40 80 30 50 16 f5 21 60 ce f5 21 5b 1a 5f 58 ea 20 00 2f 54 2c 81 40 80 30 58 16   ┆W` @ $ @ ,     @ > @ 8 A <     ![N @ &T _> !c     T  @ 0P  !`  ![ _X   /T, @ 0X ┆
0xc6dc…c72c               81 40 80 2a 50 16 01 00 82 40 80 2c 54 30 f5 21 5f d6 f5 21 60 ca a0 41 80 2e 5f 80 01 01 b1 41 80 30 8f 20 5c e6 ea 20 00 40 5c 42 a0 41 80 26 81 40 80 2a 54 04 01 02 a0 00 00 21 08 00 80 02 42 09 54 0a 55 25 52 2a aa a2 12 82 44 a8 a1 40   ┆ @ *P    @ ,T0 !_  !`  A ._    A 0       @ B A & @ *T      !    B T U%R*    D  @┆
0xc72c…c77c (129, 0, 400) 5f 32 01 00 5f 36 86 40 80 24 f7 a1 5a 90 a0 41 80 2c a0 41 80 26 81 58 00 02 21 04 58 44 81 20 80 00 a1 59 00 02 5f 4e 04 01 83 5c 00 22 50 0e 93 10 ea 2d 50 08 9b 10 83 4c 00 18 5f 10 a3 20 ff fe f0 34 90 41 80 28 a0 41 80 3c e2 48 96 da   ┆_2  _6 @ $  Z  A , A & X  ! XD     Y  _N     "P    -P    L  _      4 A ( A < H  ┆
0xc77c…c7cc               82 45 00 04 90 41 80 2c 86 41 80 22 f0 34 86 40 80 24 50 2a 82 58 00 02 52 24 82 58 00 06 22 ff 1a 06 54 1a 82 58 00 2a 50 04 a9 20 01 00 80 d8 00 04 f7 a1 5a 0e f7 a1 17 70 f7 a1 5a 6e a0 41 80 26 a0 41 80 24 f0 34 84 40 64 44 14 06 03 00   ┆ E   A , A " 4 @ $P* X  R$ X  "   T  X *P           Z    p  Zn A & A $ 4 @dD    ┆
0xc7cc…c81c               81 40 80 2c 54 0a 81 40 80 3e 99 10 81 41 80 3c 94 40 80 3c 84 41 80 3e a0 41 80 2c 98 82 f5 21 63 9a 54 38 ea 20 00 03 50 3a ea 20 00 17 50 4e ea 20 00 1f 50 50 ea 20 00 05 50 20 ea 20 00 ff 50 34 13 00 5c 28 e2 31 14 01 90 41 80 3c 81 40   ┆ @ ,T  @ >   A < @ < A > A ,   !c T8    P:    PN    PP    P     P4   ( 1   A < @┆
0xc81c…c86c               80 3c e9 20 08 fc 5d 3a 03 01 5f 3e 03 01 1a 7f 50 16 5f 46 81 40 64 44 82 40 80 3c 82 45 00 02 f5 21 64 1c 50 02 03 01 f5 21 62 96 f0 34 83 0c 5c 1e 03 02 5f 22 f5 21 64 1c 5c 30 5f 70 02 01 03 2f b2 41 80 30 54 0a 03 18 57 06 03 2c 57 02   ┆ <    ]:  _>    P _F @dD @ < E   !d P    !b  4      _" !d  0_p   / A 0T   W  ,W ┆
0xc86c…c8bc               03 40 02 10 e2 41 80 46 e3 41 80 47 57 14 03 15 57 06 03 04 57 02 03 05 e3 41 80 46 02 ff e2 41 80 47 f5 21 62 66 e2 40 80 46 f5 21 63 98 e2 40 80 47 f5 21 63 98 02 ff 0a a0 00 00 15 14 80 00 2a a4 49 54 80 00 02 80 14 44 08 20 14 04 aa a0   ┆ @   A F A GW   W   W    A F   A G !bf @ F !c  @ G !c           * IT     D      ┆
0xc8bc…c90c (130, 0, 400) f5 21 63 82 02 ff f5 21 63 82 f5 21 62 ae f0 34 f5 21 62 66 02 02 f5 21 63 62 98 82 84 40 80 38 94 40 80 3c 84 41 80 3e 03 00 81 40 80 3c 54 2a 82 3c f5 21 63 98 82 40 80 24 82 28 f5 21 63 98 81 40 80 2e 50 12 02 2d f5 21 63 98 83 78 00 2e   ┆ !c    !c  !b  4 !bf   !cb   @ 8 @ < A >   @ <T* < !c  @ $ ( !c  @ .P  - !c  x .┆
0xc90c…c95c               f5 21 7f 52 03 05 57 02 03 02 e2 30 14 01 22 7f 81 40 80 2e 50 4c ea 20 00 20 52 1a ea 20 00 7e 54 02 02 0a ea 20 00 7d 54 02 02 19 ea 20 00 7f 54 30 1a 01 57 2c 02 1d f5 21 63 98 e2 50 ff ff 22 7f 81 08 21 01 22 1e 3a 41 aa 04 2a 40 e2 48   ┆ ! R  W    0  "  @ .PL    R    ~T      }T       T0  W,   !c  P  "   ! " :A  *@ H┆
0xc95c…c9ac               95 da ea 20 00 18 54 02 02 30 f5 21 63 98 13 01 57 0a ea 20 00 07 52 04 f5 21 63 98 90 41 80 3c 81 40 80 3a e9 40 80 3c 55 48 13 01 eb 20 00 fe 5a 78 01 11 e9 51 ff fe 50 12 e9 51 ff ff 54 16 e2 30 14 01 f5 21 63 98 90 41 80 3c e2 30 f5 21   ┆      T  0 !c   W     R  !c  A < @ : @ <UH      Zx   Q  P  Q  T  0   !c  A < 0 !┆
0xc9ac…c9fc               63 98 90 41 80 3c 02 17 f5 21 63 98 86 02 82 18 22 ff f5 21 63 82 e2 18 22 ff f5 21 63 82 8f 20 60 ee 90 41 80 2a 02 03 5f 22 90 41 80 2c 86 41 80 24 f5 21 62 66 02 01 f5 21 63 62 98 82 02 25 f5 21 63 98 02 52 f5 21 63 98 02 02 f5 21 63 62   ┆c  A <   !c     "  !c   "  !c   `  A *  _" A , A $ !bf   !cb   % !c  R !c    !cb┆
0xc9fc…ca4c               82 3c f5 21 63 98 84 40 80 24 82 30 f5 21 63 98 81 50 00 02 21 06 39 61 e2 44 55 d2 f5 21 63 98 02 20 81 50 00 02 21 05 50 06 21 04 54 02 02 26 f5 21 63 98 5f 64 f5 21 4a 49 52 29 44 40 40 00 04 00 82 05 50 00 14 a4 22 a2 a4 49 29 05 00 40   ┆ < !c  @ $ 0 !c  P  ! 9a DU  !c    P  ! P ! T  & !c _d !JIR)D@@     P   "  I)  @┆
0xca4c…ca9c (131, 0, 400) 62 96 f5 21 62 a4 f5 21 63 8a 03 04 02 16 f5 21 63 62 1b 01 5c 0a f0 34 82 40 10 6c 54 0e f5 21 62 96 85 41 80 4c 82 20 03 32 42 e2 f0 34 42 a2 a0 41 80 4c 4a e2 50 02 02 01 f0 34 82 40 10 6c 54 02 42 f2 f0 34 42 b2 4a f2 f0 34 80 41 13 08   ┆b  !b  !c      !cb     4 @ lT  !b  A L   2B  4B  A LJ P    4 @ lT B  4B J  4 A  ┆
0xca9c…caec               bc 3f f7 a1 5a c6 4a 22 54 30 98 41 80 32 54 06 ea 20 00 32 50 bc 81 40 80 28 50 04 f5 21 63 e0 e2 48 95 da 81 08 a9 20 ff 00 81 41 80 4c a0 41 80 48 01 01 81 5d 00 1c f0 34 f5 21 63 06 8f 20 5b a6 80 41 13 08 bc 3f f7 a1 5a c6 f0 34 4a e2   ┆ ?  Z J"T0 A 2T    2P  @ (P  !c  H         A L A H   ]   4 !c   [  A   ?  Z  4J ┆
0xcaec…cb3c               81 08 22 23 54 10 82 40 80 4c 50 36 52 22 82 20 03 32 42 e2 57 2c 22 20 50 08 82 40 80 4c 50 22 57 0e a0 5d 00 1c 82 04 22 02 50 04 8f 20 5b de 82 04 22 01 50 14 f7 a1 5a ac f7 a1 2a 82 63 4e 00 0a 8f 20 0f 5c f7 a1 5a c6 82 04 22 20 50 04   ┆  "#T  @ LP6R"   2B W," P  @ LP"W  ]    " P   [   " P   Z   * cN        Z   " P ┆
0xcb3c…cb8c               31 20 50 04 81 41 80 48 f0 34 98 41 80 34 50 0e ea 20 00 10 54 14 f5 21 63 92 02 10 57 0c 22 ff ea 20 00 ff 50 04 e2 48 96 da 42 32 50 00 f5 21 63 e0 f7 a1 5a ac 8f 20 0f 5c 42 32 58 0c 5f 0e 5f 38 f5 21 63 8a 01 80 15 04 21 80 31 80 8f 34   ┆1 P  A H 4 A 4P     T  !c   W "     P  H  B2P  !c   Z     B2X _ _8 !c     ! 1  4┆
0xcb8c…cbdc               bc 3f 87 20 7f ae 05 04 86 5c 00 22 50 0e ad 59 00 02 f7 a1 5a 88 86 58 00 18 5f 10 82 5c 00 20 1a 02 8c 20 0f 5c a0 41 80 4c 82 40 80 4a 54 04 f7 a1 5b 0a 8f 20 5b a6 a8 84 a0 41 01 22 09 42 82 a4 08 02 01 0b 28 12 08 08 a8 20 20 20 2a 50   ┆ ?         "P  Y    Z  X  _            A L @ JT   [   [    A " B      (       *P┆
0xcbdc…cc2c (132, 0, 400) 81 41 64 0c 82 41 64 10 83 41 64 14 84 41 64 18 01 08 84 02 83 10 3c 61 b3 08 3a 61 23 01 50 04 b4 20 a0 01 19 01 5c 14 80 90 81 20 00 00 82 20 00 00 83 20 00 00 84 20 00 00 f0 34 80 b5 1d 02 90 41 80 32 f5 21 63 8a 84 40 64 10 f5 21 63 8a   ┆ Ad  Ad  Ad  Ad       <a  :a# P                            4     A 2 !c  @d  !c ┆
0xcc2c…cc7c               a0 41 80 32 82 40 64 10 3a 48 b2 10 15 06 ea 54 ff fc 8f 34 64 46 6d 4a 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ A 2 @d :H     T   4dFmJ                                                        ┆
0xcc7c…cccc               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 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                                                                ┆
                          […0x1…]
0xcd1c…cd6c               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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 00 00 00 55 50 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                                        U   UP0                 ┆

Reduced view