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

⟦5952e80ec⟧ 

    Length: 46336 (0xb500)
    Notes: pts_type(SC)
    Names: »START.SC«

Derivation

└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »IBM3270/START.SC«

PTS(SC)

	IDENT START 	REL 1.2 78-09-15  870150540120

************************************************************* 
* 
*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED 
*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED 
*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.
* 
**************************************************************************




	EJECT
* 
* 
*	ENTRY PARAMETERS
* 
* 
* 
	ENTRY	LMP1ON,LMP1OF,ATMASB 
	ENTRY	LMP3ON,LMP3OF
	ENTRY	EMULA
	ENTRY	OFL:ON	TURN ON OFFLINE LAMP
	ENTRY	OFL:OF	TURN OFF OFFLINE LAMP 
* 
	ENTRY	VDUKB	KB3270 (CREDIT)
	ENTRY	DCTASK 
	ENTRY	SELTAB	SELECT ADDRESS TABLE
* 
* 
* 
*     EXTERNAL REFERENSES 
* 
* 
* 
	EXTRN	ERASE	VDUPRT 
	EXTRN	TRPF 
	EXTRN	SETCUR 
	EXTRN	WCHAR
	EXTRN	TRPA 
	EXTRN	ERASUA 
	EXTRN	DISPL
	EXTRN	ERASUP 
	EXTRN	VDTASK 
	EXTRN	GETT:A 
* 
	EXTRN	HARDCP	PRT 
	EXTRN	DPACK
	EXTRN	BPACK
* 
	EXTRN	I:EVA0	CREDIT EVALUATION ROUTINE 
	EXTRN	I:RT1	RETURN TO CREDIT CODE
	EJECT


**********************************************************
* 
*   CONDITIONAL ASSEMBLY
* 
********************************* 


KB6234	EQU	1
OFLIN	EQU	0	SHOULD ALWAYS BE SET TO ZERO
MZERO	EQU	0 
RDBUF	EQU	0 
PFX	EQU	0 
PAX	EQU	0 
MGTP	EQU	0
EBCDIC	EQU	1


	IFT	KB6234=1 
RSET	EQU	X'BA'	RESET KEY
	XIF
	IFF	KB6234=1 
RSET	EQU	X'3C'	RESET KEY
	XIF

	EJECT
* 
* 
*     EQUATES 
* 
* 
* 
*	COMMON EQU FOR ECB HANDLING 
* 

ECBBA	EQU	2 
ECBRL	EQU	4 
ECBEL	EQU	6 
ECBRC	EQU	8 
ECBCW	EQU	10
* 
* 
*	CREDIT USED EQU 
* 
* 
*	ECB REL. ADDRESSES
* 
* 
DIS	EQU	20
* 
ECB1	EQU	-DIS-8 
ECB2	EQU	ECB1-DIS 
ECB3	EQU	ECB2-DIS 
ECB4	EQU	ECB3-DIS 
ECB5	EQU	ECB4-DIS 
* 
ECBDC	EQU	ECB1
ECBDCT	EQU	ECB2 
ECBVDU	EQU	ECB3 
ECBKB	EQU	ECB4
ECBSD	EQU	ECB5
ECBPR	EQU	ECB3
* 
* 
*	BASE ADDRESS FOR TCA AND ECB
* 
TCABAS	EQU	A11
CREBAS	EQU	A13	ECB
* 
* 
*	TCA REL. ADDRESSES
* 
TCT01	EQU	0 
PRINTER	EQU	TCT01+2 
BVDU	EQU	PRINTER+2	VDU SCREEN BUFFER
PCURS	EQU	BVDU+1920	CURSOR ADDRESS , BINARY 
ATTRIB	EQU	PCURS+2	LAST ATTRIBUTE CHAR
CURATT	EQU	ATTRIB+2 
WCC	EQU	CURATT+2	WCC/CCC CHARACTER
KBINH	EQU	WCC+2	KEYBOARD INHIBIT INDICATOR
LINCNT	EQU	KBINH+2	LINE COUNTER 
DCLENG	EQU	LINCNT+2	DC READ EFFECTIVE LENGTH
DCADDR	EQU	DCLENG+2	DC SUBTERMINAL ADDRESS
TCTGPL	EQU	DCADDR+2 
INTATT	EQU	TCTGPL+2	INTENSITY ATTRIBUTE 
OFFFLG	EQU	INTATT+2	OFFLINE FLAG
LOCK	EQU	OFFFLG+2	COPY LOCK 
VDUBSY	EQU	LOCK+2	LOCK VDU WHEN HARDCOPY
COPNO	EQU	VDUBSY+2	HARDCOPY TASK IDENTITY 
CRE	EQU	COPNO+2	CREDIT ECB:S BASE ADDRESS 
VDUT.A	EQU	CRE+2	T:A BASE ADDRESS 
CCC	EQU	VDUT.A+2	COPY COMMAND CHARACTER 
	EJECT
* 
* 
LBVDU	EQU	1920	1920 CHAR DISPLAY	6344 
LPAGE	EQU	48	LINES ON ONE PAGE
LLINE	EQU	80	80 CHAR PER DISPLAY LINE 
* 
	IFT	EBCDIC=1 
TCADDR	EQU	/6040	TCS & TCP EBCDIC 
	XIF
	IFF	EBCDIC=1 
TCADDR	EQU	/2D20	TCS & TCP  ASCII 
	XIF
* 
SELTAB	EQU	*	SELECT ADDRESSES 
	IFT	EBCDIC=1	EBCDIC DEVICE ADDRESSES 
	DATA	/40 
	DATA	/C1 
	DATA	/C2 
	DATA	/C3 
	DATA	/C4 
	DATA	/C5 
	DATA	/C6 
	DATA	/C7 
	DATA	/C8 
	DATA	/C9 
	DATA	/4A 
	DATA	/4B 
	DATA	/4C 
	DATA	/4D 
	DATA	/4E 
	DATA	/4F 
	DATA	/50 
	DATA	/D1 
	DATA	/D2 
	DATA	/D3 
	DATA	/D4 
	XIF
	IFF	EBCDIC=1	ASCII DEVICE ADDRESSES
	DATA	/20 
	DATA	/41 
	DATA	/42 
	DATA	/43 
	DATA	/44 
	DATA	/45 
	DATA	/46 
	DATA	/47 
	DATA	/48 
	DATA	/49 
	DATA	/5B 
	DATA	/2E 
	DATA	/3C 
	DATA	/28 
	DATA	/2B 
	DATA	/21 
	DATA	/26 
	DATA	/4A 
	DATA	/4B 
	DATA	/4C 
	DATA	/4D 
	XIF
	EJECT
* 
*     KEYTABLES 
* 
KEYTAB	EQU	*
	IFT	KB6234=1 
	DATA	CHAR	SPACE
	DATA	CHAR	!
	DATA	CHAR	"
	DATA	CHAR	#
	DATA	CHAR	$
	DATA	CHAR	%
	DATA	CHAR	&
	DATA	CHAR	'
	DATA	CHAR	(
	DATA	CHAR	)
	DATA	CHAR	*
	DATA	CHAR	+
	DATA	CHAR	,
	DATA	NUM	- 
	DATA	NUM	. 
	DATA	CHAR	/
* 
	DATA	NUM 
	DATA	NUM	1 
	DATA	NUM	2 
	DATA	NUM	3 
	DATA	NUM	4 
	DATA	NUM	5 
	DATA	NUM	6 
	DATA	NUM	7 
	DATA	NUM	8 
	DATA	NUM	9 
	DATA	CHAR	:
	DATA	CHAR	;
	DATA	CHAR	<
	DATA	CHAR	=
	DATA	CHAR	>
	DATA	CHAR	?
* 
	DATA	CHAR	E' 
	DATA	CHAR	A
	DATA	CHAR	B
	DATA	CHAR	C
	DATA	CHAR	D
	DATA	CHAR	E
	DATA	CHAR	F
	DATA	CHAR	G
	DATA	CHAR	H
	DATA	CHAR	I
	DATA	CHAR	J
	DATA	CHAR	K
	DATA	CHAR	L
	DATA	CHAR	M
	DATA	CHAR	N
	DATA	CHAR	O
* 
	DATA	CHAR	P
	DATA	CHAR	Q
	DATA	CHAR	R
	DATA	CHAR	S
	DATA	CHAR	T
	DATA	CHAR	U
	DATA	CHAR	V
	DATA	CHAR	W
	DATA	CHAR	X
	DATA	CHAR	Y
	DATA	CHAR	Z
	DATA	CHAR	POUND SIGN 
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR	// 
	DATA	CHAR	-
* 
	DATA	CHAR	LOWER CASE CHARACTERS
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
* 
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	PF7	PROGRAM FUNCTION
	DATA	CRUP
	DATA	CRRIGT
	DATA	BAKTAB
	DATA	CRLEFT
	DATA	CRNL
	DATA	PA3 
	DATA	TAB 
	DATA	CRDOWN
	DATA	PF1 
	DATA	PF2 
	DATA	PF3 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	CLEAR 
	DATA	ERINPT
	DATA	ENTER 
	DATA	PF8 
	DATA	PF9 
	DATA	PF10
	DATA	EREOF 
	DATA	CANCEL
	DATA	PA1 
	DATA	PF6 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	PF5 
	DATA	PF4 
	DATA	COPY
	DATA	DUP 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RESET 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	XIF


	IFF	KB6234=1 
			CODE SET FOR PTS 6232
	DATA	DUP 
	DATA	COPY
	DATA	PF10
	DATA	PA2 
	DATA	EREOF 
	DATA	ENTER 
	DATA	CLEAR 
	DATA	ERINPT
	DATA	CHAR	SPACE
	DATA	CHAR	!
	DATA	CHAR	"
	DATA	CHAR	#
	DATA	CHAR	$
	DATA	CHAR	%
	DATA	CHAR	&
	DATA	CHAR	'

	DATA	CHAR	(
	DATA	CHAR	)
	DATA	CHAR	*
	DATA	CHAR	+
	DATA	CHAR	,
	DATA	NUM	- 
	DATA	NUM	. 
	DATA	CHAR	/
	DATA	NUM	
	DATA	NUM	1 
	DATA	NUM	2 
	DATA	NUM	3 
	DATA	NUM	4 
	DATA	NUM	5 
	DATA	NUM	6 
	DATA	NUM	7 

	DATA	NUM	8 
	DATA	NUM	9 
	DATA	CHAR	:
	DATA	CHAR	;
	DATA	RESET 
	DATA	CHAR	=
	DATA	CHAR	>
	DATA	CHAR	?
	DATA	CHAR	E' 
	DATA	CHAR	A
	DATA	CHAR	B
	DATA	CHAR	C
	DATA	CHAR	D
	DATA	CHAR	E
	DATA	CHAR	F
	DATA	CHAR	G

	DATA	CHAR	H
	DATA	CHAR	I
	DATA	CHAR	J
	DATA	CHAR	K
	DATA	CHAR	L
	DATA	CHAR	M
	DATA	CHAR	N
	DATA	CHAR	O
	DATA	CHAR	P
	DATA	CHAR	Q
	DATA	CHAR	R
	DATA	CHAR	S
	DATA	CHAR	T
	DATA	CHAR	U
	DATA	CHAR	V
	DATA	CHAR	W

	DATA	CHAR	X
	DATA	CHAR	Y
	DATA	CHAR	Z
	DATA	CHAR	POUND SIGN 
	DATA	RETURN
	DATA	CHAR
	DATA	CHAR	// 
	DATA	CHAR
	DATA	CRNL
	DATA	BAKTAB
	DATA	TAB 
	DATA	PF3 
	DATA	CRUP
	DATA	CRDOWN
	DATA	PF2 
	DATA	CRLEFT

	DATA	CRRIGT
	DATA	PF1 
	DATA	PA3 
	DATA	PF6 
	DATA	PA1 
	DATA	PF7 
	DATA	PF8 
	DATA	PF9 
	DATA	PF4 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN

	DATA	RETURN
	DATA	RETURN
	DATA	PF5 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN

	XIF
	EJECT

	IFT	PFX=1

* 
* 
* 
KEYPF0	EQU	*
	DATA	PF1	PROGRAM FUNCTION
	DATA	PF2 
	DATA	PF3 
	DATA	PF4 
	DATA	PF5 
	DATA	PF6 
	DATA	PF7 
	DATA	PF8 
	DATA	PF9 
KEYPF1	EQU	*
	DATA	PF10
	DATA	PF11
	DATA	PF12


	XIF


	IFT	PAX=1


KEYPA0	EQU	*
	DATA	PA1 
	DATA	CANCEL
	DATA	PA3 


	XIF
	EJECT
* 
* 
*	DC TASK 
* 
* 
DCTASK	EQU	*
	LDKL	A1,TCADDR 
	LDKL	A8,ECBDCX	ECB DC FOR DC TASK
	ST	A1,ECBCW,A8 
	LDK	A7,/B7	TRANSFER PARAMETERS 
	LKM
	DATA	1 
DCT100	LDK	A7,/82	READ FROM DC TASK 
	LKM
	DATA	1 
	LD	A1,ECBRC,A8	GET RETURN CODE 
	ANKL	A1,/2000
	RB(NZ)	DCT100	STATUS CHANGE
	LDK	A7,/A2	MESSAGE: RELEASE READ BUFFER
	LKM
	DATA	1 
	RB	DCT100
* 
* 
ECBDCX	DATA	/60,0,0,0,0,0 
	EJECT
* 
* 
*	SUBROUTINE ACTIVATED BY ALL TASKS 
* 
* 
EMULA	EQU	* 
	LD	A1,DCADDR,TCABAS	ADDRESS TO TCA 
	LDKL	A8,ECBDCT 
	ADR	A8,CREBAS	GET ECB ADDRESS
	ST	A1,ECBCW,A8	STORE IN ECBDCT 


	IFT	RDBUF=1

	LDKL	A2,BVDU 
	ADR	A2,TCABAS	VDU-BUFFER ADDRESS 
	ST	A2,ECBBA,A8 

	LDKL	A3,PCURS
	ADR	A3,TCABAS	CURSOR ADDRESS 
	ST	A3,ECBRL,A8 

	XIF

	ADKL	A8,ECBDC-ECBDCT	RELATIVE ADDRESS	RELATIVE ADDR. TO ECBDC
	ST	A1,ECBCW,A8	STORE IN ECBC 


	IFT	RDBUF=1

	ST	A2,ECBBA,A8	SAVE VDU-BUFFER ADDRESS 
	ST	A3,ECBRL,A8	SAVE CURSOR ADDRESS 

	XIF


	LDK	A7,/B7	TRANSFER PARAMETERS 
	LKM
	DATA	1 
	RTN	A14
	EJECT
* 
***************************************************** 
* 
*     VDUKB 
* 
*	MAIN MODULE FOR KEYBOARD VDU
* 
********************************************************
VDUKB	EQU	* 
	CF	A14,I:EVA0
	LDR	TCABAS,A9	LOAD ASSEM TCA BASE
	CF	A14,I:EVA0	GET TASK INDEX 

	IFT	OFLIN=1


	STR	A12,A14	SAVE REGISTERS A12-A13 ON A14 STACK
	ST	A13,-2,A14
	SUKL	A14,4	UPDATE STACK POINTER


	XIF

	LDR*	A9,A9 
	IFF	MGTP=0 
	LDR	A1,A9	 
	ORKL	A1,'G0'	HARDCOPY TASK IDENTITY
	ST	A1,COPNO,TCABAS	
	XIF
	ADR	A9,A9
	LD	A1,SELTAB,A9	GET SELECT ADDRESS 
	ST	A1,DCADDR,TCABAS
	CF	A14,EMULA 

	IFT	OFLIN=1

	CM	OFFFLG,TCABAS	CLEAR OFFLINE FLAG
	CF	A14,OFL:OF	TURN OFF OFFLINE LAMP
	XIF

	CF	A14,ERASE	ERASE SCREEN
	IFT	MGTP=0 
	LDKL	A1,'G0'	HARDCOPY TASK IDENTITY
	ST	A1,COPNO,TCABAS	SAVE IT IN USER WORK BLOCK
	XIF

	LDK	A1,1 
	LDKL	A8,ECBKB
	ADR	A8,CREBAS
	ST	A1,ECBRL,A8	REQUESTED LEN =1
	LDKL	A1,LBVDU+1
	ST	A1,CURATT,TCABAS	INITIATE WITH UNFORM. SCREEN 
VDU100	CF	A14,READKB	READ KEYBOARD
	IFT	KB6234=1 
	SUK	A2,/20	INDEX TO KEYTABLE 
	XIF
	IFF	KB6234=1 
	SUK	A2,X'18' 
	XIF
	ADR	A2,A2
VDU200	LDKL	A8,ECBVDU 
	ADR	A8,CREBAS
	CFI	A14,KEYTAB,A2	GET KEY MODULE 
	RB	VDU100
	EJECT

* 
* 
**********************************************************
* 
*	RETURN
* 
**************************************************************
* 
RETURN	RTN	A14
	EJECT
* 
******************************************************* 
* 
*     CRLEFT
* 
*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT
* 
******************************************************* 
* 
CRLEFT	EQU	*
	LD	A2,PCURS,TCABAS	GET CURSOR BINARY 
	SUK	A2,1 
	RF(NN)	CRL050	NOT LEFTMOST POS 
	LDKL	A2,LBVDU-1
CRL050	RF	CRH100
* 
********************************************************
* 
*     CRRIGT
* 
*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT
* 
********************************************************
* 
*	A3=CHARACTER
* 
CRRIGT	EQU	*
	LD	A2,PCURS,TCABAS	GET CURSOR BINARY 
	ADK	A2,1 
	CWK	A2,LBVDU	END OF BUFFER?
	RF(L)	CRR050	NO
	LDK	A2,0 
CRR050	RF	CRH100
	EJECT
* 
*********************************************************** 
* 
*	CRDOWN
* 
*	THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. 
* 
************************************************************
* 
CRDOWN	EQU	*
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	ADKL	A2,LLINE
	CWK	A2,LBVDU	LAST LINE?
	RF(L)	CRD050	NO
	SUKL	A2,LBVDU
CRD050	RF	CRH100
* 
**************************************************************
* 
*	CRUP
* 
*	MOVE CURSOR ONE LINE UP. SAME COL.
* 
**************************************************************
* 
CRUP	EQU	*
	LD	A2,PCURS,TCABAS	GET CURSOR BINARY 
	SUKL	A2,LLINE
	RF(NN)	CRU050	UPMOST LINE
	ADKL	A2,LBVDU
CRU050	RF	CRH100
	EJECT
* 
******************************************************
* 
*	CRHOME
* 
*	HOME POSITIONING OF CURSOR
* 
******************************************************
* 
CRHOME	EQU	*
	LDK	A2,0 
CRH100	EQU	*
	ST	A2,PCURS,TCABAS	GET CURSOR BINARY 
	CF	A14,ATMASB	UPDATE ATTRIB
	CF	A14,SETCUR	DISPLAY CURSOR 
	RTN	A14
	EJECT
* 
***************************************************** 
* 
*	CRNL
* 
*	CURSOR IN FIRST UNPROTECTED POS ON NEW LINE 
* 
***************************************************** 
* 
CRNL	EQU	*
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	ADKL	A2,LLINE	NEXT LINE
	CWK	A2,LBVDU 
	RF(L)	CRN050 
	LDK	A2,0	WRAP AROUND 
* 
*	COMPUTE LEFTMOST POS
* 
CRN050	LDK	A1,0 
CRN100	SUKL	A2,LLINE
	RF(N)	CRN120 
	ADKL	A1,LLINE
	RB	CRN100
CRN120	ST	A1,PCURS,TCABAS	STORE CURSOR ADDRESS
	EJECT

******************************************************************
	LDR	A2,A1
	CF	A14,ATMASB	SEARCH ATTRIBUTE BACKWARDS 
	SUK	A1,1 
	RF(Z)	CRN130	NO ATTRIBUTE FOUND
	ANK	A3,/10 
	RF(NZ)	TAB	PROTECTED FIELD 
	CW	A2,PCURS,TCABAS	CURSOR ON ATTRIBUTE ??
	RF(NE)	CRN150	NO!! 
	CWK	A2,1919	LAST SCREEN POSITION?? 
	RF(NE)	CRN140	NO!! 
CRN130	LDKL	A2,-1 
CRN140	ADK	A2,1 
	ST	A2,PCURS,TCABAS	
CRN150	CF	A14,SETCUR	POSITION CURSOR
	RTN	A14
******************************************************************* 
	EJECT
* 
****************************************************
* 
*	TAB 
* 
*	MOVE THE CURSOR TO THE FIRST CHAR. LOCATION 
*	OF THE NEXT UNPROTECTED DATA FIELD
* 
****************************************************
* 
*	A1=END OF BUFFER PAREM.   	0=EOB NOT REACHED
*			2=EOB 
*			3=ATTRIB. IN EOB POS
*	A2=CURSOR BINARY ADDRESS
*	A3=CHARACTGR
* 
TAB	EQU	* 
	LDK	A5,1 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
TAB100	CF	A14,ATMASF	SEARCH ATTRIBUTE 
	CWK	A1,0	END OF BUFFER?
	RF(G)	TAB300	YES 
	ADK	A2,1 
TAB150	ANK	A3,/10	UNPROTECTED?
	RF(E)	TAB200	YES 
	RB	TAB100	NEXT ATTRIB. 
TAB200	ST	A2,PCURS,TCABAS	
	CF	A14,SETCUR	DISPLAY NEW CURSOR 
	RTN	A14
TAB300	LDK	A2,0 
	CWK	A1,3	ATTRIBUTE IN LAST POSITION ?? 
********************************************************
	RF(NE)	TAB350	NO!! 
	ANK	A5,1	WHOLE BUFFER CONTROLLED ??
	RB(Z)	TAB200	YES!! 
	SUR	A5,A5	 
	RB	TAB150	CHECK ATTRIBUTE
TAB350	EQU	*
********************************************************
	ANK	A5,1	WHOLE BUFF. CONTROLED?
	RF(G)	TAB400	NO
	RB	TAB200	ALL PROT. OR NON-FORMATTED BUFF. 
TAB400	LDK	A5,0 
	RB	TAB100
	EJECT
* 
*********************************************************** 
* 
*	DUP 
* 
*	DUPLICATE KEY 
*	OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE
*	TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD
*	TAB KEY OPERATION TO BE PERFORMED 
* 
************************************************************
* 
DUP	EQU	* 
	LDK	A2,/7B 
	LD	A3,ECBKB+ECBBA,CREBAS	GET KB BUFF. ADDR.
	SCR	A2,A3
	CF	A14,CHAR
	CF	A14,TAB 
	RTN	A14
	EJECT
* 
***************************************************** 
* 
*	BAKTAB
* 
*	MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION 
*	OF THE NEXT PRECIDING UNPROTECTED DATA FIELD
* 
****************************************************
* 
*	A2=CURSOR BINARY ADDRESS
*	A3=CHARACTER
BAKTAB	EQU	*
	LDK	A5,1 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	CF	A14,GBUFFC	GET BUFF CHAR. 
	CWK	A3,/1F	ATTRIB. CHAR? 
	RF(NG)	BAK100	YES
	CWK	A2,0	UPPER LEFTMOST POS? 
	RF(E)	BAK400	YES 
	SUK	A2,1 
BAK100	CWK	A2,0	UPPER LEFTMOST POS? 
	RF(E)	BAK400	YES 
BAK200	SUK	A2,1 
	CF	A14,ATMASB	SEARCH ATTRIBUTE 
************************************************************
	SUK	A1,1	
	RF(Z)	BAK400	NO ATTRIBUTE
	RF(N)	BAK250	ATTRIBUTE FOUND. NOT IN LAST POS. 
	SUR	A2,A2	ATTRIBUTE FOUND IN LAST POSITION 
	RF	BAK300
BAK250	EQU	*
********************************************************* 
	ANK	A3,/10	PROTECTED?
	RB(NE)	BAK100	YES
	ADK	A2,1 
BAK300	ST	A2,PCURS,TCABAS 
	CF	A14,SETCUR	SET CURSOR 
	RTN	A14
BAK400	SUK	A5,1	WHOLE BUFF CONTROLLED?
	RB(NZ)	BAK300	YES
	LDKL	A2,LBVDU-1	END BUFFER ADDRESS 
	CF	A14,GBUFFC	GET BUFF CHAR. 
	CWK	A3,/1F	ATTRIBUTE CHAR? 
	RB(G)	BAK200	NO
	ANK	A3,/10	PROTECTED?
	RB(NE)	BAK200	YES
	ST	A3,ATTRIB,TCABAS	UPDATE NEW ATTRIBUTE 
	ST	A2,CURATT,TCABAS
*************************************************************** 
	RB	BAK200
****************************************************************
	EJECT
	EJECT

************************************************************* 
* 
*   CONVERT LOWER CASE CHARACTERS 7B,7C AND 7D TO UPPER 
*   CASE CHARACTERS 5B,5C RESPECTIVLY 5D
* 
*************************************************************** 

CON7B	LDK	A2,/5B
	RF	CON:ST
CON7C	LDK	A2,/5C
	RF	CON:ST
CON7D	LDK	A2,/5D
CON:ST	SC*	A2,ECBBA,A8	SAVE CONVERTED CHARACTER IN ECB BUFFER 
	RF	CHAR
* 
********************************************************* 
* 
*	CHAR
* 
*	ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING 
* 
********************************************************* 
* 
CHAR	EQU	*
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	LD	A3,CURATT,TCABAS	GET ATTRIBUTE ADDRESS
	CWR	A2,A3	CURSOR ON ATTRIB?
	RF(E)	CHA300	YES 
CHA100	LD	A3,ATTRIB,TCABAS	GET ATTRIBUTE CHAR 
	LDR	A4,A3
	ANK	A4,/10	PROTECTRED FIELD? 
	RF(NE)	CHA300	YES
CHA200	LDR	A4,A3
	ANK	A4,/8	NUMERIC FIELD? 
	RF(E)	ANCOMM	NO
CHA300	ABL	ERROR	NOT ALLOWED DISPLAY POS
	EJECT
* 
**********************************************************
* 
*	NUM 
* 
*	DISPLAY AND UPDATE NUMERICS 
* 
**********************************************************
* 
NUM	EQU	* 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	LD	A3,CURATT,TCABAS	GET ATTRIBUTE ADDRESS
	CWR	A2,A3	CURSOR ON ATTRIBUTE? 
	RF(E)	NUM200	YES 
NUM100	LD	A3,ATTRIB,TCABAS	GET ATTRIBUTE CHAR 
	LDR	A4,A3
	ANK	A4,/10	PROTECTED FIELD?
	RF(E)	ANCOMM	NO
NUM200	ABL	ERROR	NOT ALLOWED DISPLAY POS
	EJECT
* 
**********************************************************
* 
*	ANCOMM
* 
*	COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND
*	UPDATING
* 
**********************************************************
* 
ANCOMM	EQU	*
	LD*	A4,ECBKB+ECBBA,CREBAS	GET KEY CODE 
	SRL	A4,8 
	LDKL	A6,BVDU 
	ADR	A6,TCABAS
	ADR	A6,A2
	SCR	A4,A6	UPDATE VDU BUFF
	LD	A5,CURATT,TCABAS
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN? 
	RF(E)	ANC100	YES 
	SUR	A6,A2	BVDU START ADDR. 
	ADR	A6,A5	ATTRIB. POS
	LD	A3,ATTRIB,TCABAS	GET ATTRIBUTE CHAR 
	ORK	A3,1	MDT-BIT ON
	SCR	A3,A6
ANC100	LDK	A5,/2B	CURSOR NOT MOVED BEF. DISPLAY 
	LD	A1,ECBVDU+ECBBA,CREBAS	 
	STR	A5,A1
	LDK	A5,/1E 
	ADK	A1,2	NEXT POS
	SCR	A5,A1	LOW INT, STORE IN BUFFER 
	LDR	A6,A3
	ANK	A3,/4	STANDARD DISPLAYING? 
	RF(Z)	ANC200	YES 
	ANK	A6,/2	INTENSIFIED DISPLAYING?
	RF(Z)	ANC150	YES 
	LDK	A2,/20	LOAD SPACE
	RF	ANC250	NON DISPLAYING 
ANC150	LDK	A5,/1F	SET HIGH INTENSITY
	SCR	A5,A1	STORE IN BUFFER
ANC200	LDR	A2,A4	UPDATE A2 WITH CHAR
ANC250	CF	A14,WCHAR	DISPLAY CHAR AND CURSOR 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	ADK	A2,1 
	CWK	A2,LBVDU 
	RF(NE)	ANC255
	LDKL	A2,0
ANC255	EQU	*
	ST	A2,PCURS,TCABAS 
	CF	A14,GBUFFC	GET BUFFER CHAR
	CWK	A3,/1F	ATTRIBUTE CHAR? 
	RF(G)	ANC300	NO

	CF	A14,TAB	SKIP TO NEXT UNPROTECTED
*******************************************  78-08-15 
ANC300	EQU	*
	LD	A1,ECBCW,A8	CONTROL WORD
	ANK	A1,X'FF'	CHARACTER POSITION
	SUK	A1,81
	RF(NZ)	ANC350	NOT LAST POSITION ON LINE
*******************************************  78-08-15 
	CF	A14,SETCUR	POSITION CURSOR TO 1:ST POS. NEXT LINE 
ANC350	EQU	*
	RTN	A14
	EJECT
* 
********************************************************* 
* 
*	CANCEL
* 
*	PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION 
*	AND GENERATE AN AID CHARACTER 
* 
********************************************************* 
* 
CANCEL	EQU	*
PA2	EQU	* 
	LDK	A2,/3E	CANCEL CHAR CODE
CAN100	EQU	*
	CF	A14,LMP1ON	TURN ON "KEYBOARD INHIBIT" 
	CF	A14,TRPA	UPDATE AID AND TRANSMIT
	RTN	A14
* 

	IFT	PAX=1

* 
* 
*	PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO 
*	DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 
* 
* 
PA	EQU	*
	CF	A14,READKB	READ ONE NUM.CHAR. 
	SUK	A2,/31	CHECK IF NUM.1-3
	RF(L)	PFERR	ILLEGAL CHAR.
	SUK	A2,/2	CHECK IF NUM.1-3 
	RF(G)	PFERR	ILLEGAL CHAR.
	ADK	A2,/2	PREPARE A2 AS INDEX
	ADR	A2,A2
	CFI	A14,KEYPA0,A2	GO TO PA-HANDLING
	RTN	A14	RETURN TO MAIN READ LOOP 

	XIF
	EJECT

* 
*    PA1    PROGRAM ATTENTION KEY 
* 
* 
PA1	EQU	* 
	LDK	A2,/25	PA1 CHAR CODE 
	RB	CAN100
* 
* 
*    PA3   PROGRAM ATTENTION KEY
* 
* 
PA3	EQU	* 
	LDK	A2,/2C	PA3 CHAR CODE 
	RB	CAN100
	EJECT
* 
********************************************************
* 
*	ENTER 
* 
*	PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION
*	AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER
*	ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD
*	NULLS ARE SUPRESSED 
* 
********************************************************* 
* 
ENTER	EQU	* 
	LDK	A2,/27	ENTER CHAR CODE 
ENT100	EQU	*
	CF	A14,LMP1ON	TURN ON "KEYBOARD INHIBIT" 
	CF	A14,TRPF	AID+MODIFIED FIELDS+TRANSMIT 
ENT200	EQU	*
	RTN	A14
* 

	IFT	PFX=1

* 
* 
*	PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO 
*	DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12
* 
* 
PF	EQU	*
	CF	A14,READKB	READ FIRST NUM.
	SUK	A2,/30	LEGAL CHAR ?
	RF(L)	PFERR	ILLEGAL,GO TO ERR.HANDLING 
	RF(Z)	PF0	FIRST NUM. 0 GO TO PF0 
	SUK	A2,/1	FIRST NUM. 1 ? 
	RF(G)	PFERR	ILLEGAL NUM. 
	CF	A14,READKB	READ SEC.NUM.
	SUK	A2,/30	LEGAL NUM.? 
	RF(L)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	SUK	A2,/2	LEGAL NUM ?
	RF(G)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	ADK	A2,/2	PREPARE A2 AS INDEX
	ADR	A2,A2
	CFI	A14,KEYPF1,A2	GO TO PF-HANDLING
	RF	PFRTN 

PF0	EQU	* 
	CF	A14,READKB	READ SEC.NUM.
	SUK	A2,/31	LEGAL NUM ? 
	RF(L)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	SUK	A2,/8	LEGAL NUM ?
	RF(G)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	ADK	A2,/8	PREPARE A2 AS INDEX
	ADR	A2,A2
	CFI	A14,KEYPF0,A2	GO TO PF-HANDLING
PFRTN	EQU	* 
	RTN	A14
PFERR	EQU	* 
	CF	A14,ERROR	GO TO ERR-HANDLING RUTIN
	RTN	A14	GO TO MAIN READ MODULE 

	XIF
* 
*	PF1 
* 
* 
PF1	EQU	* 
	LDK	A2,/31 
	RB	ENT100
	EJECT
* 
* 
*	PF2 
* 
* 
PF2	EQU	* 
	LDK	A2,/32 
	RB	ENT100
* 
* 
*	PF3 
* 
* 
PF3	EQU	* 
	LDK	A2,/33 
	RB	ENT100
* 
* 
*	PF4 
* 
* 
PF4	EQU	* 
	LDK	A2,/34 
	RB	ENT100
	EJECT
* 
* 
*	PF5 
* 
* 
PF5	EQU	* 
	LDK	A2,/35 
	RB	ENT100
* 
*	PF6 
* 
PF6	EQU	* 
	LDK	A2,/36 
	RB	ENT100
* 
*	PF7 
* 
PF7	EQU	* 
	LDK	A2,/37 
	RB	ENT100
* 
*	PF8 
* 
PF8	EQU	* 
	LDK	A2,/38 
	RB	ENT100
* 
*	PF9 
* 
PF9	EQU	* 
	LDK	A2,/39 
	RB	ENT100
* 
*	
*	PF10
* 
PF10	EQU	*
	LDK	A2,/3A 
	RB	ENT100
	EJECT



PF11	EQU	*
	LDK	A2,/23 
	RB	ENT100
* 
* 
* 

PF12	EQU	*
	LDK	A2,/40 
	RB	ENT100


	IFT	OFLIN=1

	EJECT
* 
************************************************************
* 
*	OFLINE
*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND 
*           A BRANCH IS MADE BACK TO CREDIT PROGRAM 
* 
************************************************************* 
* 
OFLINE	EQU	*
	CF	A14,OFL:ON	TURN ON OFFLINE LAMP 
	IM	OFFFLG,TCABAS	SET OFFLINE FLAG
	ADKL	A14,4	SKIP ONE STACK LEVEL
	LD	A13,2,A14	RELOAD REGISTERS A12-A13
	LD	A12,4,A14 
	ADKL	A14,4	UPDATE STACK POINTER
	ABL	I:RT1	RETURN TO "OFFLINE" PROGRAM

	XIF
	EJECT
* 
********************************************************
* 
*	CLEAR 
* 
*	PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION 
*	AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY 
*	BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN 
*	HOME POS
* 
********************************************************
* 
CLEAR	EQU	* 
	LDK	A2,/5F	CLEAR CHAR CODE 
	CF	A14,LMP1ON	TURN ON "KEYBOARD INHIBIT" 
	CF	A14,TRPA	UPDATE AID AND TRANSMIT
	CF	A14,ERASE	ERASE ENTIRE SCREEN 
	RTN	A14
	EJECT
* 
************************************************************
* 
*	EREOF 
* 
*	ERASE TO END OF FIELD 
* 
************************************************************
* 
EREOF	EQU	* 
	LDK	A6,1 
	LD	A3,ATTRIB,TCABAS	GET ATTRIBUTE
	ANK	A3,/10	UNPROTECTED?
	RF(E)	ERE100	YES 
	ABL	ERROR
ERE100	LD	A2,PCURS,TCABAS 

************************   77.06.01 

	CW	A2,CURATT,TCABAS	STANDING ON ATTRIBUTE ?? 
	ABL(E)	ERROR	YES!! TURN ON ERROR LAMP

************************   77.06.01 

ERE150	CF	A14,GBUFFC	GET BUFF. CHAR 
	CWK	A3,/1F	ATTRIBUTE CHAR
	RF(G)	ERE200	NO
ERE160	LDR	A1,A2
	LD	A3,PCURS,TCABAS 
ERE170	EQU	*
	LDKL	A4,BVDU 
	ADR	A4,TCABAS
	ADR	A4,A3
	CF	A14,ERASUA	ERASE AND REPLASE WITH NULLS 
	CF	A14,DISPL	DISPLAY ERASED SCREEN 
* 
*   SET MDT BIT IF FORMATTED SCREEN 
* 

	LD	A2,CURATT,TCABAS
	CWK	A2,LBVDU+1 
	RF(E)	ERE180	UNFORMATTED SCREEN

	ADK	A2,BVDU
	ADR	A2,TCABAS	ABSOLUTE ATTRIBUTE ADDRESS 
	LCR	A1,A2	GET ATTRIBUTE
	ORK	A1,1	SET MDT BIT 
	SCR	A1,A2
ERE180	EQU	*
	RTN	A14
ERE200	CWK	A2,LBVDU-1	END OF BUFFER?
	RF(E)	ERE300	YES 
	ADK	A2,1 
	RB	ERE150	NEXT 
ERE300	SUK	A6,1	WHOLW BUFF CONTROLED? 
	RB(N)	ERE160 
	LDK	A2,0	WRAP AROUND.
	RB	ERE150
	EJECT
* 
********************************************************
* 
*	ERINPT
* 
*	CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS 
*	AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED 
*	CHAR LOCATION ON THE SCREEN 
* 
******************************************************* 
* 
ERINPT	EQU	*
	CF	A14,ERASUP	ERASE ALL UNPROTECTED
	CF	A14,DISPL 
	LD	A2,PCURS,TCABAS 
	CF	A14,ATMASB
********************************************************* 
	SUK	A1,1 
	RF(Z)	ERI:10	NO ATTRIBUTE FOUND
	RF(N)	ERI:5	ATTRIBUTE NOT IN LAST POSITION 
	LDKL	A2,-1	ATTRIBUTE IN LAST POSITION
ERI:5	EQU	* 
**********************************************************
	ADK	A2,1 

ERI:10	EQU	*
	ST	A2,PCURS,TCABAS 
	RTN	A14
	EJECT
* 
************************************************************
* 
*	ERROR 
* 
*	THE MODULE TAKES CARE OF UNALLOWED KEYS 
* 
*********************************************************** 
* 
ERROR	EQU	* 
	CF	A14,LMP2ON	TURN ON 'ERROR' LAMP 
	LD	A5,KBINH,TCABAS 
	ORK	A5,4	BIT 13:=1,ERROR HANDLING.RESET ALLOWED
	ST	A5,KBINH,TCABAS 

* 
*   TURN ON SOUND ALARM 
* 

	LDKL	A8,ECBVDU 
	ADR	A8,CREBAS	VDU-ECB ADDRESS
	LD	A2,ECBBA,A8	BUFFER ADDRESS
	LDK	A7,X'2B'	CONTROL CHARACTER 
	SC	A7,1,A2 
	LDK	A7,X'07'	BELL CHARACTER
	SC	A7,2,A2 
	LDK	A7,3	REQUESTED LENGTH
	ST	A7,ECBRL,A8 

	LDK	A7,X'86'	SOUND ALARM 
	LKM
	DATA	1 

	RTN	A14
	EJECT
* 
********************************************************
* 
*	READKB
* 
*	READ KEYBOARD MONITOR REQUEST 
* 
********************************************************
* 
READKB	EQU	*
	LDK	A7,/81	BASIC READ WITH WAIT
	LDKL	A8,ECBKB
	ADR	A8,CREBAS
	ST	A7,ECBCW,A8	INDICATE NOT POWER OFF
	LKM
	DATA	1 
	LD	A2,ECBCW,A8	POWER OFF ??? 
	RF(Z)	READ05	YES!!!
	LD	A2,ECBRC,A8 
	RF(0)	READ10 
READ05	EQU	*
	LDK	A7,/04	RESET KEYBOARD ECB BUFFER 
	LKM
	DATA	1 
	RB	READKB
READ10	EQU	*
	LD	A1,KBINH,TCABAS 
	ANK	A1,1	RESETTING BY 'RESET' ALLOWED
	RB(NZ)	READ05	NO 
	LC*	A2,ECBBA,A8	GET INPUT CHARACTER
	LD	A1,KBINH,TCABAS 
	ANK	A1,6	MUST BE RESET KEY 
	RF(Z)	READ20	NO
	CWK	A2,RSET	RESET KEY ???
	RB(NE)	READ05	NO 
READ20	EQU	*
	RTN	A14
	EJECT
* 
********************************************************
* 
*	LAMPMODULE
* 
* 
********************************************************
* 
LMP1ON	EQU	*
	LDK	A7,/B7	LIGHT ON
	LDK	A3,2 
	CF	A14,SDISP 
	RTN	A14
LMP1OF	EQU	*
	LDK	A7,/B8	LIGHT OFF 
	LDK	A3,2 
	CF	A14,SDISP 
	RTN	A14
LMP2ON	EQU	*
	LDK	A7,/B7	LIGHT ON
	LDK	A3,4 
	CF	A14,SDISP 
	RTN	A14
LMP2OF	EQU	*
	LDK	A7,/B8	LIGHT OFF 
	LDK	A3,4 
	CF	A14,SDISP 
	RTN	A14
LMP3ON	EQU	*
	LDK	A7,/B8	LIGHT OFF 
	LDK	A3,8 
	CF	A14,SDISP 
	EJECT


	RTN	A14
LMP3OF	EQU	*
	LDK	A7,/B7	LIGHT ON
	LDK	A3,8 
	CF	A14,SDISP 
	RTN	A14

	IFT	OFLIN=1

OFL:ON	LDK	A7,X'B7'	TURN ON "OFFLINE" LAMP
	LDK	A3,1 
	CF	A14,SDISP 
	RTN	A14


OFL:OF	LDK	A7,X'B8'	TURN OFF "OFFLINE" LAMP 
	LDK	A3,1 
	CF	A14,SDISP 
	RTN	A14



	XIF

	IFF	OFLIN=1
OFL:ON	EQU	*
OFL:OF	EQU	*
	RTN	A14
	XIF
	EJECT

* 
********************************************************
* 
*	SDISP 
* 
*	SIGNAL DISPLAY MONITOR REQUEST
* 
********************************************************
* 
SDISP	EQU	* 
	LDKL	A8,ECBSD
	ADR	A8,CREBAS
	ST	A3,ECBCW,A8 
	LKM
	DATA	1 
	RTN	A14
	EJECT
* 
********************************************************
* 
*     ATMASB
* 
*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT 
* 
********************************************************
* 
*     A2=CURSOR BINARY ADDRESS
*     A1=BUFFER SCANNING PARAM. 
*	0=ATTRIB FOUND     1=END OF BUFFER LEFT 
*      2= ATTRIBUTE IN LAST POSITION
* 
ATMASB	EQU	*
	LDK	A1,0 
ASB05	EQU	* 
	CF	A14,GBUFFC	GET BUFFER CHAR
	CWK	A3,/1F	ATTRIB. CHAR. 
	RF(G)	ASB10	NO 
ASB08	ST	A3,ATTRIB,TCABAS 
	ST	A2,CURATT,TCABAS	CURSOR ON ATTRIBUTE
	RTN	A14
ASB10	CWK	A2,0	END OF BUFFER
	RF(E)	ASB20	YES
	SUK	A2,1 
	RB	ASB05	NEXT
ASB20	EQU	* 

************************************************* 
	LDK	A1,2	ATTRIBUTE IN LAST POS.
	LDKL	A2,1919	LAST BUFFER POSITION
	CF	A14,GBUFFC	GET CHARACTER
	CWK	A3,/1F	ATTRIBUTE ??? 
	RB(NG)	ASB08	YES!!!
	SUR	A2,A2	FIRST SCREEN POS.
********************************************* 

	LDK	A1,1	END BUFFER LEFT 
	CM	ATTRIB,TCABAS 
	LDKL	A7,LBVDU+1
	ST	A7,CURATT,TCABAS	POSSIBLY UNFORMATTED SCREEN
	RTN	A14
	EJECT
* 
********************************************************
* 
*     ATMASF
* 
*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT 
* 
********************************************************* 
* 
*	A3=CHARACTER
*     A2=CURSOR BINARY ADDRESS
*     A1=BUFFER SCANNING PARAM. 
*	0=ATTRIB FOUND     2=END OF BUFFER RIGHT
*			A3=ATTRIB IN LAST BUFF POS
* 
ATMASF	EQU	*
	LDK	A1,0 
ASF05	EQU	* 
	CF	A14,GBUFFC	GET BUFFER CHAR
	CWK	A3,/1F	ATTRIB CHAR?
	RF(G)	ASF10	NO 
************************************************************
	CWK	A2,LBVDU-1	EOB +ATTRIB IN LAST POS 
************************************************************
	RF(NE)	ASF08	NO
	LDK	A1,3 
ASF08	ST	A3,ATTRIB,TCABAS 
	ST	A2,CURATT,TCABAS	CURSOR ON ATTRIBUTE
	RTN	A14
ASF10	CWK	A2,LBVDU-1	END OF BUFFER? 
	RF(L)	ASF20	NO 
	LDK	A1,2 
	RTN	A14
ASF20	ADK	A2,1
	RB	ASF05 
	EJECT
* 
**************************************************
* 
*	GBUFFC
* 
*	GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR
* 
**************************************************
* 
*	A2=CURSOR BINARY ADDR 
*	A3=CHARACTER
* 
* 
GBUFFC	EQU	*
	LDK	A3,0 
	LDKL	A4,BVDU 
	ADR	A4,TCABAS	GET VDU BUFFER 
	ADR	A4,A2
	LCR	A3,A4	GET CHARACTER IN BUFF. 
	RTN	A14
	EJECT

	IFT	MZERO=1

*************************************************************** 
* 
*   Z E R O : 3    TRIPLE ZERO KEY
*   Z E R O : 2     DOUBLE ZERO KEY 
* 
************************************************* 

ZERO:3	EQU	*
	LDK	A1,X'30'	CHARACTER ZERO
	SC*	A1,ECBKB+ECBBA,CREBAS	STORE CHARACTER IN BUFFER
	CF	A14,NUM	DISPLAY CHARACTER 

ZERO:2	EQU	*
	LDK	A1,X'30'	CHARACTER ZERO
	SC*	A1,ECBKB+ECBBA,CREBAS	STORE CHARACTER IN BUFFER
	CF	A14,NUM	DISPLAY CHARACTER 
	CF	A14,NUM	DISPLAY CHARACTER 
	RTN	A14	RETURN 

	XIF
	EJECT
* 
************************************************************
* 
*	RESET 
* 
*	RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: 
*	1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING
*		A COMMAND. BIT 14=1 IN KBINH 
*	2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO
*		INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED
*		KEYBOARD. BIT 14=1 IN KBINH
*	3- ERRORSITUATION. BIT 14=1 IN KBINH
* 
*	IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING 
*	UPDATE AND DISPLAY SITUATION. 
* 
*********************************************************** 
* 
RESET	EQU	* 
	CM	KBINH,TCABAS	RESSTORE KEYBOARD
	CF	A14,LMP2OF	TURN OFF 'ERROR' LAMP
	CF	A14,LMP1OF	TURN OFF 'KEYBOARD INHIBIT' LAMP 
	RTN	A14
	EJECT


*************************************************************** 
* 
*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON 
*                HARDCOPY DEVICE
* 
************************************************************

COPY	LD	A9,COPNO,TCABAS	GET HARDCOPY TASK IDENTITY
	RF(NP)	COP:10	NO HARDCOPY DEVICE CONNECTED 

	CF	A14,LMP1ON	TURN ON " KEYBOARD INHIBIT " 
	LDR	A7,A9	HARDCOPY TASK IDENTITY 

	IM	VDUBSY,TCABAS	SET VDU BUSY WHEN HARDCOPY
	LDK	A1,1 
	ORS	A1,KBINH,TCABAS	SET KEYBOARD TOT. INHIBITED


	CF	A14,GETT:A	GET T:A ADDRESS
	ST	A1,CRE,TCABAS	SAVE HARDCP. DEV. TCA ADDRESS 
	ST	CREBAS,VDUT.A,TCABAS	SAVE VDU TASK T:A ADDRESS

	LDR	A1,TCABAS	PASS VDU BUFFER AS PARAMETER 
	LKM		ACTIVATE HARDCOPY TASK
	DATA	-4
	DATA	HARDCP
	EJECT


COP:05	EQU	*
	LD	A1,VDUBSY,TCABAS	HARDCOPY GOING ON ???
	RF(Z)	COP:08	NO!!! ALREADY FINISHED

	LDKL	A8,10	DELAY TASK 1 SEK. 
	LKM
	DATA	6 

	RB	COP:05	CHECK IF HARDCOPY READY

COP:08	CF	A14,LMP1OF	TURN OFF " KEYBOARD INHIBIT "
	RTN	A14	RETURN 


COP:10	CF	A14,ERROR	TURN ON ERROR LAMP
	RTN	A14	RETURN 
	END

HexDump

0x0000…0034 (0, 0, 400)   Head {h00=0x0030, h01=0x0050, text=» IDENT START  REL 1.2 78-09-15  870150540120«, t00=0x0000, t01=0x0004}
0x0034…003c               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0082               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x0040}
0x0082…008c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00d8               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0000, t01=0x0090}
0x00d8…0124               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0000, t01=0x00dc}
0x0124…016a               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0000, t01=0x0128}
0x016a…0174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01c6               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0000, t01=0x0178}
0x01c6…01ce               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x003a}
0x01ce…01d6               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0042}
0x01d6…01de               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x004a}
0x01de…01e6               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0052}
0x01e6…01f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x005a}
0x01f4…01fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…0222               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x007c}
0x0222…022c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x022c…0236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x0236…0240               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…0264               Head {h00=0x0020, h01=0x0050, text=» ENTRY LMP1ON,LMP1OF,ATMASB «, t00=0x0001, t01=0x00b4}
0x0264…0280               Head {h00=0x0018, h01=0x0050, text=» ENTRY LMP3ON,LMP3OF«, t00=0x0001, t01=0x00d8}
0x0280…0294               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0001, t01=0x00f4}
0x0294…02be               Head {h00=0x0026, h01=0x0050, text=» ENTRY OFL:ON TURN ON OFFLINE LAMP«, t00=0x0001, t01=0x0108}
0x02be…02ea               Head {h00=0x0028, h01=0x0050, text=» ENTRY OFL:OF TURN OFF OFFLINE LAMP «, t00=0x0001, t01=0x0132}
0x02ea…02f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015e}
0x02f4…0318               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0001, t01=0x0168}
0x0318…032e               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0001, t01=0x018c}
0x032e…0358               Head {h00=0x0026, h01=0x0050, text=» ENTRY SELTAB SELECT ADDRESS TABLE«, t00=0x0002, t01=0x0012}
0x0358…0362               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0362…036c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x036c…0376               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0050}
0x0376…0398               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0002, t01=0x005a}
0x0398…03a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007c}
0x03a2…03ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0086}
0x03ac…03b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0090}
0x03b6…03d2               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0002, t01=0x009a}
0x03d2…03e6               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0002, t01=0x00b6}
0x03e6…03fc               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0002, t01=0x00ca}
0x03fc…0410               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0002, t01=0x00e0}
0x0410…0424               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0002, t01=0x00f4}
0x0424…043a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0002, t01=0x0108}
0x043a…044e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0002, t01=0x011e}
0x044e…0464               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0002, t01=0x0132}
0x0464…047a               Head {h00=0x0012, h01=0x0050, text=» EXTRN VDTASK «, t00=0x0002, t01=0x0148}
0x047a…0490               Head {h00=0x0012, h01=0x0050, text=» EXTRN GETT:A «, t00=0x0002, t01=0x015e}
0x0490…049a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x049a…04b4               Head {h00=0x0016, h01=0x0050, text=» EXTRN HARDCP PRT «, t00=0x0002, t01=0x017e}
0x04b4…04c8               Head {h00=0x0010, h01=0x0050, text=» EXTRN DPACK«, t00=0x0003, t01=0x0008}
0x04c8…04dc               Head {h00=0x0010, h01=0x0050, text=» EXTRN BPACK«, t00=0x0003, t01=0x001c}
0x04dc…04e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0030}
0x04e6…0516               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0003, t01=0x003a}
0x0516…0540               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0003, t01=0x006a}
0x0540…054e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0094}
0x054e…0556               Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00a2}
0x0556…055e               Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00aa}
0x055e…05a0               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0003, t01=0x00b2}
0x05a0…05aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f4}
0x05aa…05ca               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0003, t01=0x00fe}
0x05ca…05d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011e}
0x05d4…05fe               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0003, t01=0x0128}
0x05fe…0606               Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0152}
0x0606…060e               Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x015a}
0x060e…0622               Head {h00=0x0010, h01=0x0050, text=»KB6234 EQU 1«, t00=0x0003, t01=0x0162}
0x0622…0652               Head {h00=0x002c, h01=0x0050, text=»OFLIN EQU 0 SHOULD ALWAYS BE SET TO ZERO«, t00=0x0003, t01=0x0176}
0x0652…0666               Head {h00=0x0010, h01=0x0050, text=»MZERO EQU 0 «, t00=0x0004, t01=0x0016}
0x0666…067a               Head {h00=0x0010, h01=0x0050, text=»RDBUF EQU 0 «, t00=0x0004, t01=0x002a}
0x067a…068c               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 0 «, t00=0x0004, t01=0x003e}
0x068c…069e               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 0 «, t00=0x0004, t01=0x0050}
0x069e…06b0               Head {h00=0x000e, h01=0x0050, text=»MGTP EQU 0«, t00=0x0004, t01=0x0062}
0x06b0…06c4               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU 1«, t00=0x0004, t01=0x0074}
0x06c4…06cc               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0088}
0x06cc…06d4               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0090}
0x06d4…06ea               Head {h00=0x0012, h01=0x0050, text=» IFT KB6234=1 «, t00=0x0004, t01=0x0098}
0x06ea…070a               Head {h00=0x001c, h01=0x0050, text=»RSET EQU X'BA' RESET KEY«, t00=0x0004, t01=0x00ae}
0x070a…0716               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x00ce}
0x0716…072c               Head {h00=0x0012, h01=0x0050, text=» IFF KB6234=1 «, t00=0x0004, t01=0x00da}
0x072c…074c               Head {h00=0x001c, h01=0x0050, text=»RSET EQU X'3C' RESET KEY«, t00=0x0004, t01=0x00f0}
0x074c…0758               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0110}
0x0758…0760               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x011c}
0x0760…076e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0124}
0x076e…0778               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0132}
0x0778…0782               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013c}
0x0782…0798               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0004, t01=0x0146}
0x0798…07a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015c}
0x07a2…07ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0166}
0x07ac…07b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0170}
0x07b6…07dc               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0004, t01=0x017a}
0x07dc…07e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0010}
0x07e6…07ee               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x001a}
0x07ee…0802               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0005, t01=0x0022}
0x0802…0816               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0005, t01=0x0036}
0x0816…082a               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0005, t01=0x004a}
0x082a…083e               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0005, t01=0x005e}
0x083e…0852               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0005, t01=0x0072}
0x0852…085c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0086}
0x085c…0866               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0090}
0x0866…0880               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0005, t01=0x009a}
0x0880…088a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x088a…0894               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00be}
0x0894…08b0               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0005, t01=0x00c8}
0x08b0…08ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e4}
0x08ba…08c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ee}
0x08c4…08d6               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0005, t01=0x00f8}
0x08d6…08e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x08e0…08f8               Head {h00=0x0014, h01=0x0050, text=»ECB1 EQU -DIS-8 «, t00=0x0005, t01=0x0114}
0x08f8…0912               Head {h00=0x0016, h01=0x0050, text=»ECB2 EQU ECB1-DIS «, t00=0x0005, t01=0x012c}
0x0912…092c               Head {h00=0x0016, h01=0x0050, text=»ECB3 EQU ECB2-DIS «, t00=0x0005, t01=0x0146}
0x092c…0946               Head {h00=0x0016, h01=0x0050, text=»ECB4 EQU ECB3-DIS «, t00=0x0005, t01=0x0160}
0x0946…0960               Head {h00=0x0016, h01=0x0050, text=»ECB5 EQU ECB4-DIS «, t00=0x0005, t01=0x017a}
0x0960…096a (6, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0004}
0x096a…0980               Head {h00=0x0012, h01=0x0050, text=»ECBDC EQU ECB1«, t00=0x0006, t01=0x000e}
0x0980…0998               Head {h00=0x0014, h01=0x0050, text=»ECBDCT EQU ECB2 «, t00=0x0006, t01=0x0024}
0x0998…09b0               Head {h00=0x0014, h01=0x0050, text=»ECBVDU EQU ECB3 «, t00=0x0006, t01=0x003c}
0x09b0…09c6               Head {h00=0x0012, h01=0x0050, text=»ECBKB EQU ECB4«, t00=0x0006, t01=0x0054}
0x09c6…09dc               Head {h00=0x0012, h01=0x0050, text=»ECBSD EQU ECB5«, t00=0x0006, t01=0x006a}
0x09dc…09f2               Head {h00=0x0012, h01=0x0050, text=»ECBPR EQU ECB3«, t00=0x0006, t01=0x0080}
0x09f2…09fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0096}
0x09fc…0a06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a0}
0x0a06…0a2c               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0006, t01=0x00aa}
0x0a2c…0a36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d0}
0x0a36…0a4c               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0006, t01=0x00da}
0x0a4c…0a66               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0006, t01=0x00f0}
0x0a66…0a70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010a}
0x0a70…0a7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0114}
0x0a7a…0a96               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0006, t01=0x011e}
0x0a96…0aa0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013a}
0x0aa0…0ab4               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0006, t01=0x0144}
0x0ab4…0ad0               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0006, t01=0x0158}
0x0ad0…0afc               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0006, t01=0x0174}
0x0afc…0b30               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0007, t01=0x0010}
0x0b30…0b5e               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0007, t01=0x0044}
0x0b5e…0b7a               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0007, t01=0x0072}
0x0b7a…0ba4               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0007, t01=0x008e}
0x0ba4…0bd6               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0007, t01=0x00b8}
0x0bd6…0bfe               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0007, t01=0x00ea}
0x0bfe…0c32               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0007, t01=0x0112}
0x0c32…0c64               Head {h00=0x002e, h01=0x0050, text=»DCADDR EQU DCLENG+2 DC SUBTERMINAL ADDRESS«, t00=0x0007, t01=0x0146}
0x0c64…0c80               Head {h00=0x0018, h01=0x0050, text=»TCTGPL EQU DCADDR+2 «, t00=0x0007, t01=0x0178}
0x0c80…0cb0 (8, 0, 400)   Head {h00=0x002c, h01=0x0050, text=»INTATT EQU TCTGPL+2 INTENSITY ATTRIBUTE «, t00=0x0008, t01=0x0004}
0x0cb0…0cd8               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0008, t01=0x0034}
0x0cd8…0cfc               Head {h00=0x0020, h01=0x0050, text=»LOCK EQU OFFFLG+2 COPY LOCK «, t00=0x0008, t01=0x005c}
0x0cfc…0d2c               Head {h00=0x002c, h01=0x0050, text=»VDUBSY EQU LOCK+2 LOCK VDU WHEN HARDCOPY«, t00=0x0008, t01=0x0080}
0x0d2c…0d5e               Head {h00=0x002e, h01=0x0050, text=»COPNO EQU VDUBSY+2 HARDCOPY TASK IDENTITY «, t00=0x0008, t01=0x00b0}
0x0d5e…0d90               Head {h00=0x002e, h01=0x0050, text=»CRE EQU COPNO+2 CREDIT ECB:S BASE ADDRESS «, t00=0x0008, t01=0x00e2}
0x0d90…0dba               Head {h00=0x0026, h01=0x0050, text=»VDUT.A EQU CRE+2 T:A BASE ADDRESS «, t00=0x0008, t01=0x0114}
0x0dba…0dea               Head {h00=0x002c, h01=0x0050, text=»CCC EQU VDUT.A+2 COPY COMMAND CHARACTER «, t00=0x0008, t01=0x013e}
0x0dea…0df8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x016e}
0x0df8…0e02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0e02…0e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e0c…0e3a               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x0008, t01=0x0190}
0x0e3a…0e60               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x0009, t01=0x002e}
0x0e60…0e8e               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x0009, t01=0x0054}
0x0e8e…0e98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0082}
0x0e98…0eae               Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0009, t01=0x008c}
0x0eae…0ed8               Head {h00=0x0026, h01=0x0050, text=»TCADDR EQU /6040 TCS & TCP EBCDIC «, t00=0x0009, t01=0x00a2}
0x0ed8…0ee4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x00cc}
0x0ee4…0efa               Head {h00=0x0012, h01=0x0050, text=» IFF EBCDIC=1 «, t00=0x0009, t01=0x00d8}
0x0efa…0f24               Head {h00=0x0026, h01=0x0050, text=»TCADDR EQU /2D20 TCS & TCP  ASCII «, t00=0x0009, t01=0x00ee}
0x0f24…0f30               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0118}
0x0f30…0f3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0124}
0x0f3a…0f60               Head {h00=0x0022, h01=0x0050, text=»SELTAB EQU * SELECT ADDRESSES «, t00=0x0009, t01=0x012e}
0x0f60…0f8e               Head {h00=0x002a, h01=0x0050, text=» IFT EBCDIC=1 EBCDIC DEVICE ADDRESSES «, t00=0x0009, t01=0x0154}
0x0f8e…0fa0               Head {h00=0x000e, h01=0x0050, text=» DATA /40 «, t00=0x0009, t01=0x0182}
0x0fa0…0fb2 (10, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA /C1 «, t00=0x000a, t01=0x0004}
0x0fb2…0fc4               Head {h00=0x000e, h01=0x0050, text=» DATA /C2 «, t00=0x000a, t01=0x0016}
0x0fc4…0fd6               Head {h00=0x000e, h01=0x0050, text=» DATA /C3 «, t00=0x000a, t01=0x0028}
0x0fd6…0fe8               Head {h00=0x000e, h01=0x0050, text=» DATA /C4 «, t00=0x000a, t01=0x003a}
0x0fe8…0ffa               Head {h00=0x000e, h01=0x0050, text=» DATA /C5 «, t00=0x000a, t01=0x004c}
0x0ffa…100c               Head {h00=0x000e, h01=0x0050, text=» DATA /C6 «, t00=0x000a, t01=0x005e}
0x100c…101e               Head {h00=0x000e, h01=0x0050, text=» DATA /C7 «, t00=0x000a, t01=0x0070}
0x101e…1030               Head {h00=0x000e, h01=0x0050, text=» DATA /C8 «, t00=0x000a, t01=0x0082}
0x1030…1042               Head {h00=0x000e, h01=0x0050, text=» DATA /C9 «, t00=0x000a, t01=0x0094}
0x1042…1054               Head {h00=0x000e, h01=0x0050, text=» DATA /4A «, t00=0x000a, t01=0x00a6}
0x1054…1066               Head {h00=0x000e, h01=0x0050, text=» DATA /4B «, t00=0x000a, t01=0x00b8}
0x1066…1078               Head {h00=0x000e, h01=0x0050, text=» DATA /4C «, t00=0x000a, t01=0x00ca}
0x1078…108a               Head {h00=0x000e, h01=0x0050, text=» DATA /4D «, t00=0x000a, t01=0x00dc}
0x108a…109c               Head {h00=0x000e, h01=0x0050, text=» DATA /4E «, t00=0x000a, t01=0x00ee}
0x109c…10ae               Head {h00=0x000e, h01=0x0050, text=» DATA /4F «, t00=0x000a, t01=0x0100}
0x10ae…10c0               Head {h00=0x000e, h01=0x0050, text=» DATA /50 «, t00=0x000a, t01=0x0112}
0x10c0…10d2               Head {h00=0x000e, h01=0x0050, text=» DATA /D1 «, t00=0x000a, t01=0x0124}
0x10d2…10e4               Head {h00=0x000e, h01=0x0050, text=» DATA /D2 «, t00=0x000a, t01=0x0136}
0x10e4…10f6               Head {h00=0x000e, h01=0x0050, text=» DATA /D3 «, t00=0x000a, t01=0x0148}
0x10f6…1108               Head {h00=0x000e, h01=0x0050, text=» DATA /D4 «, t00=0x000a, t01=0x015a}
0x1108…1114               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x016c}
0x1114…1140               Head {h00=0x0028, h01=0x0050, text=» IFF EBCDIC=1 ASCII DEVICE ADDRESSES«, t00=0x000a, t01=0x0178}
0x1140…1152               Head {h00=0x000e, h01=0x0050, text=» DATA /20 «, t00=0x000b, t01=0x0014}
0x1152…1164               Head {h00=0x000e, h01=0x0050, text=» DATA /41 «, t00=0x000b, t01=0x0026}
0x1164…1176               Head {h00=0x000e, h01=0x0050, text=» DATA /42 «, t00=0x000b, t01=0x0038}
0x1176…1188               Head {h00=0x000e, h01=0x0050, text=» DATA /43 «, t00=0x000b, t01=0x004a}
0x1188…119a               Head {h00=0x000e, h01=0x0050, text=» DATA /44 «, t00=0x000b, t01=0x005c}
0x119a…11ac               Head {h00=0x000e, h01=0x0050, text=» DATA /45 «, t00=0x000b, t01=0x006e}
0x11ac…11be               Head {h00=0x000e, h01=0x0050, text=» DATA /46 «, t00=0x000b, t01=0x0080}
0x11be…11d0               Head {h00=0x000e, h01=0x0050, text=» DATA /47 «, t00=0x000b, t01=0x0092}
0x11d0…11e2               Head {h00=0x000e, h01=0x0050, text=» DATA /48 «, t00=0x000b, t01=0x00a4}
0x11e2…11f4               Head {h00=0x000e, h01=0x0050, text=» DATA /49 «, t00=0x000b, t01=0x00b6}
0x11f4…1206               Head {h00=0x000e, h01=0x0050, text=» DATA /5B «, t00=0x000b, t01=0x00c8}
0x1206…1218               Head {h00=0x000e, h01=0x0050, text=» DATA /2E «, t00=0x000b, t01=0x00da}
0x1218…122a               Head {h00=0x000e, h01=0x0050, text=» DATA /3C «, t00=0x000b, t01=0x00ec}
0x122a…123c               Head {h00=0x000e, h01=0x0050, text=» DATA /28 «, t00=0x000b, t01=0x00fe}
0x123c…124e               Head {h00=0x000e, h01=0x0050, text=» DATA /2B «, t00=0x000b, t01=0x0110}
0x124e…1260               Head {h00=0x000e, h01=0x0050, text=» DATA /21 «, t00=0x000b, t01=0x0122}
0x1260…1272               Head {h00=0x000e, h01=0x0050, text=» DATA /26 «, t00=0x000b, t01=0x0134}
0x1272…1284               Head {h00=0x000e, h01=0x0050, text=» DATA /4A «, t00=0x000b, t01=0x0146}
0x1284…1296               Head {h00=0x000e, h01=0x0050, text=» DATA /4B «, t00=0x000b, t01=0x0158}
0x1296…12a8               Head {h00=0x000e, h01=0x0050, text=» DATA /4C «, t00=0x000b, t01=0x016a}
0x12a8…12ba               Head {h00=0x000e, h01=0x0050, text=» DATA /4D «, t00=0x000b, t01=0x017c}
0x12ba…12c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x018e}
0x12c6…12d4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x000a}
0x12d4…12de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0018}
0x12de…12f6               Head {h00=0x0014, h01=0x0050, text=»*     KEYTABLES «, t00=0x000c, t01=0x0022}
0x12f6…1300               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x1300…1314               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000c, t01=0x0044}
0x1314…132a               Head {h00=0x0012, h01=0x0050, text=» IFT KB6234=1 «, t00=0x000c, t01=0x0058}
0x132a…1342               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000c, t01=0x006e}
0x1342…1356               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000c, t01=0x0086}
0x1356…136a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000c, t01=0x009a}
0x136a…137e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000c, t01=0x00ae}
0x137e…1392               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000c, t01=0x00c2}
0x1392…13a6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000c, t01=0x00d6}
0x13a6…13ba               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x000c, t01=0x00ea}
0x13ba…13ce               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000c, t01=0x00fe}
0x13ce…13e2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000c, t01=0x0112}
0x13e2…13f6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000c, t01=0x0126}
0x13f6…140a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000c, t01=0x013a}
0x140a…141e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000c, t01=0x014e}
0x141e…1432               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ,«, t00=0x000c, t01=0x0162}
0x1432…1446               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000c, t01=0x0176}
0x1446…145a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000c, t01=0x018a}
0x145a…146e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000d, t01=0x000e}
0x146e…1478               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0022}
0x1478…148a               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000d, t01=0x002c}
0x148a…149e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000d, t01=0x003e}
0x149e…14b2               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000d, t01=0x0052}
0x14b2…14c6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000d, t01=0x0066}
0x14c6…14da               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000d, t01=0x007a}
0x14da…14ee               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000d, t01=0x008e}
0x14ee…1502               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000d, t01=0x00a2}
0x1502…1516               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000d, t01=0x00b6}
0x1516…152a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000d, t01=0x00ca}
0x152a…153e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000d, t01=0x00de}
0x153e…1552               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000d, t01=0x00f2}
0x1552…1566               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000d, t01=0x0106}
0x1566…157a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000d, t01=0x011a}
0x157a…158e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000d, t01=0x012e}
0x158e…15a2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000d, t01=0x0142}
0x15a2…15b6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000d, t01=0x0156}
0x15b6…15c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016a}
0x15c0…15d6               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000d, t01=0x0174}
0x15d6…15ea               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000d, t01=0x018a}
0x15ea…15fe               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000e, t01=0x000e}
0x15fe…1612               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000e, t01=0x0022}
0x1612…1626               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000e, t01=0x0036}
0x1626…163a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000e, t01=0x004a}
0x163a…164e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000e, t01=0x005e}
0x164e…1662               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000e, t01=0x0072}
0x1662…1676               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000e, t01=0x0086}
0x1676…168a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x000e, t01=0x009a}
0x168a…169e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x000e, t01=0x00ae}
0x169e…16b2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x000e, t01=0x00c2}
0x16b2…16c6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x000e, t01=0x00d6}
0x16c6…16da               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x000e, t01=0x00ea}
0x16da…16ee               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x000e, t01=0x00fe}
0x16ee…1702               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x000e, t01=0x0112}
0x1702…170c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0126}
0x170c…1720               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x000e, t01=0x0130}
0x1720…1734               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x000e, t01=0x0144}
0x1734…1748               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x000e, t01=0x0158}
0x1748…175c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x000e, t01=0x016c}
0x175c…1770               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x000e, t01=0x0180}
0x1770…1784 (15, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x000f, t01=0x0004}
0x1784…1798               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x000f, t01=0x0018}
0x1798…17ac               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x000f, t01=0x002c}
0x17ac…17c0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x000f, t01=0x0040}
0x17c0…17d4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x000f, t01=0x0054}
0x17d4…17e8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x000f, t01=0x0068}
0x17e8…1806               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR POUND SIGN «, t00=0x000f, t01=0x007c}
0x1806…1818               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x009a}
0x1818…182a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x00ac}
0x182a…1840               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR // «, t00=0x000f, t01=0x00be}
0x1840…1854               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR -«, t00=0x000f, t01=0x00d4}
0x1854…185e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e8}
0x185e…1886               Head {h00=0x0024, h01=0x0050, text=» DATA CHAR LOWER CASE CHARACTERS«, t00=0x000f, t01=0x00f2}
0x1886…1898               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x011a}
0x1898…18aa               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x012c}
0x18aa…18bc               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x013e}
0x18bc…18ce               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x0150}
0x18ce…18e0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x0162}
0x18e0…18f2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x0174}
0x18f2…1904               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x000f, t01=0x0186}
0x1904…1916               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0008}
0x1916…1928               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x001a}
0x1928…193a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x002c}
0x193a…194c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x003e}
0x194c…195e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0050}
0x195e…1970               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0062}
0x1970…1982               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0074}
0x1982…1994               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0086}
0x1994…199e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x199e…19b0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00a2}
0x19b0…19c2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00b4}
0x19c2…19d4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00c6}
0x19d4…19e6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00d8}
0x19e6…19f8               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00ea}
0x19f8…1a0a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00fc}
0x1a0a…1a1c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x010e}
0x1a1c…1a2e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0120}
0x1a2e…1a40               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0132}
0x1a40…1a52               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0144}
0x1a52…1a64               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0156}
0x1a64…1a78               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0010, t01=0x0168}
0x1a78…1a8c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0010, t01=0x017c}
0x1a8c…1aa0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0010, t01=0x0190}
0x1aa0…1ab4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0014}
0x1ab4…1ac8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0028}
0x1ac8…1ad2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003c}
0x1ad2…1af4               Head {h00=0x001e, h01=0x0050, text=» DATA PF7 PROGRAM FUNCTION«, t00=0x0011, t01=0x0046}
0x1af4…1b06               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0011, t01=0x0068}
0x1b06…1b1a               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0011, t01=0x007a}
0x1b1a…1b2e               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0011, t01=0x008e}
0x1b2e…1b42               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0011, t01=0x00a2}
0x1b42…1b54               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0011, t01=0x00b6}
0x1b54…1b66               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0011, t01=0x00c8}
0x1b66…1b78               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0011, t01=0x00da}
0x1b78…1b8c               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0011, t01=0x00ec}
0x1b8c…1b9e               Head {h00=0x000e, h01=0x0050, text=» DATA PF1 «, t00=0x0011, t01=0x0100}
0x1b9e…1bb0               Head {h00=0x000e, h01=0x0050, text=» DATA PF2 «, t00=0x0011, t01=0x0112}
0x1bb0…1bc2               Head {h00=0x000e, h01=0x0050, text=» DATA PF3 «, t00=0x0011, t01=0x0124}
0x1bc2…1bd6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0136}
0x1bd6…1bea               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x014a}
0x1bea…1bfe               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x015e}
0x1bfe…1c12               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0172}
0x1c12…1c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0186}
0x1c1c…1c30               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0011, t01=0x0190}
0x1c30…1c44               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0012, t01=0x0014}
0x1c44…1c58               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0012, t01=0x0028}
0x1c58…1c6a               Head {h00=0x000e, h01=0x0050, text=» DATA PF8 «, t00=0x0012, t01=0x003c}
0x1c6a…1c7c               Head {h00=0x000e, h01=0x0050, text=» DATA PF9 «, t00=0x0012, t01=0x004e}
0x1c7c…1c8e               Head {h00=0x000e, h01=0x0050, text=» DATA PF10«, t00=0x0012, t01=0x0060}
0x1c8e…1ca2               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0012, t01=0x0072}
0x1ca2…1cb6               Head {h00=0x0010, h01=0x0050, text=» DATA CANCEL«, t00=0x0012, t01=0x0086}
0x1cb6…1cc8               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0012, t01=0x009a}
0x1cc8…1cda               Head {h00=0x000e, h01=0x0050, text=» DATA PF6 «, t00=0x0012, t01=0x00ac}
0x1cda…1cee               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00be}
0x1cee…1d02               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00d2}
0x1d02…1d16               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00e6}
0x1d16…1d2a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00fa}
0x1d2a…1d3e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x010e}
0x1d3e…1d52               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0122}
0x1d52…1d5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0136}
0x1d5c…1d6e               Head {h00=0x000e, h01=0x0050, text=» DATA PF5 «, t00=0x0012, t01=0x0140}
0x1d6e…1d80               Head {h00=0x000e, h01=0x0050, text=» DATA PF4 «, t00=0x0012, t01=0x0152}
0x1d80…1d92               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0012, t01=0x0164}
0x1d92…1da4               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0012, t01=0x0176}
0x1da4…1db8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0188}
0x1db8…1dcc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x000c}
0x1dcc…1de0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0020}
0x1de0…1df4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0034}
0x1df4…1e08               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0048}
0x1e08…1e1c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x005c}
0x1e1c…1e30               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0070}
0x1e30…1e44               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0084}
0x1e44…1e58               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0098}
0x1e58…1e6c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00ac}
0x1e6c…1e80               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00c0}
0x1e80…1e94               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00d4}
0x1e94…1e9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e8}
0x1e9e…1eb2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00f2}
0x1eb2…1ec6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0106}
0x1ec6…1eda               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x011a}
0x1eda…1eee               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x012e}
0x1eee…1f02               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0142}
0x1f02…1f16               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0156}
0x1f16…1f2a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x016a}
0x1f2a…1f3e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x017e}
0x1f3e…1f52 (20, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0004}
0x1f52…1f66               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0018}
0x1f66…1f7a               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0014, t01=0x002c}
0x1f7a…1f8e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0040}
0x1f8e…1fa2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0054}
0x1fa2…1fb6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0068}
0x1fb6…1fca               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x007c}
0x1fca…1fde               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0090}
0x1fde…1fe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a4}
0x1fe8…1ffc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00ae}
0x1ffc…2010               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00c2}
0x2010…2024               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00d6}
0x2024…2038               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00ea}
0x2038…204c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00fe}
0x204c…2060               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0112}
0x2060…2074               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0126}
0x2074…2088               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x013a}
0x2088…209c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x014e}
0x209c…20b0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0162}
0x20b0…20c4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0176}
0x20c4…20d8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x018a}
0x20d8…20ec               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x000e}
0x20ec…2100               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0022}
0x2100…2114               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0036}
0x2114…2128               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x004a}
0x2128…2132               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005e}
0x2132…2146               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0068}
0x2146…215a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x007c}
0x215a…216e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0090}
0x216e…2182               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00a4}
0x2182…2196               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00b8}
0x2196…21aa               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00cc}
0x21aa…21be               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00e0}
0x21be…21d2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00f4}
0x21d2…21e6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0108}
0x21e6…21fa               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x011c}
0x21fa…220e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0130}
0x220e…2222               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0144}
0x2222…2236               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0158}
0x2236…224a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x016c}
0x224a…225e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0180}
0x225e…2272 (22, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0004}
0x2272…227c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0018}
0x227c…2290               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0022}
0x2290…22a4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0036}
0x22a4…22b8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x004a}
0x22b8…22cc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x005e}
0x22cc…22e0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0072}
0x22e0…22f4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0086}
0x22f4…2308               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x009a}
0x2308…231c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00ae}
0x231c…2330               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00c2}
0x2330…2344               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00d6}
0x2344…2358               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00ea}
0x2358…236c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00fe}
0x236c…2380               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0112}
0x2380…2394               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0126}
0x2394…23a8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x013a}
0x23a8…23bc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x014e}
0x23bc…23c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0162}
0x23c6…23da               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x016c}
0x23da…23ee               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0180}
0x23ee…2402 (23, 0, 398)  Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0004}
0x2402…2416               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0018}
0x2416…242a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x002c}
0x242a…243e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0040}
0x243e…2452               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0054}
0x2452…2466               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0068}
0x2466…247a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x007c}
0x247a…248e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0090}
0x248e…24a2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00a4}
0x24a2…24b6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00b8}
0x24b6…24ca               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00cc}
0x24ca…24de               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00e0}
0x24de…24f2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00f4}
0x24f2…2506               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0108}
0x2506…2512               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x011c}
0x2512…251a               Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0128}
0x251a…2522               Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0130}
0x2522…2538               Head {h00=0x0012, h01=0x0050, text=» IFF KB6234=1 «, t00=0x0017, t01=0x0138}
0x2538…2558               Head {h00=0x001c, h01=0x0050, text=»   CODE SET FOR PTS 6232«, t00=0x0017, t01=0x014e}
0x2558…256a               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0017, t01=0x016e}
0x256a…257c               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0017, t01=0x0180}
0x257c…258e (24, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA PF10«, t00=0x0018, t01=0x0004}
0x258e…25a0               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0018, t01=0x0016}
0x25a0…25b4               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0018, t01=0x0028}
0x25b4…25c8               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0018, t01=0x003c}
0x25c8…25dc               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0018, t01=0x0050}
0x25dc…25f0               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0018, t01=0x0064}
0x25f0…2608               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x0018, t01=0x0078}
0x2608…261c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x0018, t01=0x0090}
0x261c…2630               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x0018, t01=0x00a4}
0x2630…2644               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x0018, t01=0x00b8}
0x2644…2658               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x0018, t01=0x00cc}
0x2658…266c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x0018, t01=0x00e0}
0x266c…2680               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x0018, t01=0x00f4}
0x2680…2694               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x0018, t01=0x0108}
0x2694…269c               Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x011c}
0x269c…26b0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x0018, t01=0x0124}
0x26b0…26c4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x0018, t01=0x0138}
0x26c4…26d8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x0018, t01=0x014c}
0x26d8…26ec               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x0018, t01=0x0160}
0x26ec…2700               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ,«, t00=0x0018, t01=0x0174}
0x2700…2714               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x0018, t01=0x0188}
0x2714…2728               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x0019, t01=0x000c}
0x2728…273c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x0019, t01=0x0020}
0x273c…274e               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x0019, t01=0x0034}
0x274e…2762               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x0019, t01=0x0046}
0x2762…2776               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x0019, t01=0x005a}
0x2776…278a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x0019, t01=0x006e}
0x278a…279e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x0019, t01=0x0082}
0x279e…27b2               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x0019, t01=0x0096}
0x27b2…27c6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x0019, t01=0x00aa}
0x27c6…27da               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x0019, t01=0x00be}
0x27da…27e2               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00d2}
0x27e2…27f6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x0019, t01=0x00da}
0x27f6…280a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x0019, t01=0x00ee}
0x280a…281e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x0019, t01=0x0102}
0x281e…2832               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x0019, t01=0x0116}
0x2832…2846               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0019, t01=0x012a}
0x2846…285a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x0019, t01=0x013e}
0x285a…286e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x0019, t01=0x0152}
0x286e…2882               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x0019, t01=0x0166}
0x2882…2898               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x0019, t01=0x017a}
0x2898…28ac               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x0019, t01=0x0190}
0x28ac…28c0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x001a, t01=0x0014}
0x28c0…28d4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x001a, t01=0x0028}
0x28d4…28e8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x001a, t01=0x003c}
0x28e8…28fc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x001a, t01=0x0050}
0x28fc…2910               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x001a, t01=0x0064}
0x2910…2924               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x001a, t01=0x0078}
0x2924…292c               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x008c}
0x292c…2940               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x001a, t01=0x0094}
0x2940…2954               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x001a, t01=0x00a8}
0x2954…2968               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x001a, t01=0x00bc}
0x2968…297c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x001a, t01=0x00d0}
0x297c…2990               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x001a, t01=0x00e4}
0x2990…29a4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x001a, t01=0x00f8}
0x29a4…29b8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x001a, t01=0x010c}
0x29b8…29cc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x001a, t01=0x0120}
0x29cc…29e0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x001a, t01=0x0134}
0x29e0…29f4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x001a, t01=0x0148}
0x29f4…2a08               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x001a, t01=0x015c}
0x2a08…2a1c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x001a, t01=0x0170}
0x2a1c…2a30               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x001a, t01=0x0184}
0x2a30…2a44               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x001b, t01=0x0008}
0x2a44…2a58               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x001b, t01=0x001c}
0x2a58…2a6c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x001b, t01=0x0030}
0x2a6c…2a74               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0044}
0x2a74…2a88               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x001b, t01=0x004c}
0x2a88…2a9c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x001b, t01=0x0060}
0x2a9c…2ab0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x001b, t01=0x0074}
0x2ab0…2ace               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR POUND SIGN «, t00=0x001b, t01=0x0088}
0x2ace…2ae2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001b, t01=0x00a6}
0x2ae2…2af4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x001b, t01=0x00ba}
0x2af4…2b0a               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR // «, t00=0x001b, t01=0x00cc}
0x2b0a…2b1c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x001b, t01=0x00e2}
0x2b1c…2b2e               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x001b, t01=0x00f4}
0x2b2e…2b42               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x001b, t01=0x0106}
0x2b42…2b54               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x001b, t01=0x011a}
0x2b54…2b66               Head {h00=0x000e, h01=0x0050, text=» DATA PF3 «, t00=0x001b, t01=0x012c}
0x2b66…2b78               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x001b, t01=0x013e}
0x2b78…2b8c               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x001b, t01=0x0150}
0x2b8c…2b9e               Head {h00=0x000e, h01=0x0050, text=» DATA PF2 «, t00=0x001b, t01=0x0164}
0x2b9e…2bb2               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x001b, t01=0x0176}
0x2bb2…2bba               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x018a}
0x2bba…2bce (28, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x001c, t01=0x0004}
0x2bce…2be0               Head {h00=0x000e, h01=0x0050, text=» DATA PF1 «, t00=0x001c, t01=0x0018}
0x2be0…2bf2               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x001c, t01=0x002a}
0x2bf2…2c04               Head {h00=0x000e, h01=0x0050, text=» DATA PF6 «, t00=0x001c, t01=0x003c}
0x2c04…2c16               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x001c, t01=0x004e}
0x2c16…2c28               Head {h00=0x000e, h01=0x0050, text=» DATA PF7 «, t00=0x001c, t01=0x0060}
0x2c28…2c3a               Head {h00=0x000e, h01=0x0050, text=» DATA PF8 «, t00=0x001c, t01=0x0072}
0x2c3a…2c4c               Head {h00=0x000e, h01=0x0050, text=» DATA PF9 «, t00=0x001c, t01=0x0084}
0x2c4c…2c5e               Head {h00=0x000e, h01=0x0050, text=» DATA PF4 «, t00=0x001c, t01=0x0096}
0x2c5e…2c72               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x00a8}
0x2c72…2c86               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x00bc}
0x2c86…2c9a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x00d0}
0x2c9a…2cae               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x00e4}
0x2cae…2cc2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x00f8}
0x2cc2…2cd6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x010c}
0x2cd6…2cea               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x0120}
0x2cea…2cf2               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0134}
0x2cf2…2d06               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x013c}
0x2d06…2d1a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x0150}
0x2d1a…2d2c               Head {h00=0x000e, h01=0x0050, text=» DATA PF5 «, t00=0x001c, t01=0x0164}
0x2d2c…2d40               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x0176}
0x2d40…2d54               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001c, t01=0x018a}
0x2d54…2d68               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001d, t01=0x000e}
0x2d68…2d7c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001d, t01=0x0022}
0x2d7c…2d90               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x001d, t01=0x0036}
0x2d90…2d98               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x004a}
0x2d98…2da4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0052}
0x2da4…2db2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x005e}
0x2db2…2dba               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x006c}
0x2dba…2dcc               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x001d, t01=0x0074}
0x2dcc…2dd4               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0086}
0x2dd4…2dde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008e}
0x2dde…2de8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0098}
0x2de8…2df2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a2}
0x2df2…2e06               Head {h00=0x0010, h01=0x0050, text=»KEYPF0 EQU *«, t00=0x001d, t01=0x00ac}
0x2e06…2e28               Head {h00=0x001e, h01=0x0050, text=» DATA PF1 PROGRAM FUNCTION«, t00=0x001d, t01=0x00c0}
0x2e28…2e3a               Head {h00=0x000e, h01=0x0050, text=» DATA PF2 «, t00=0x001d, t01=0x00e2}
0x2e3a…2e4c               Head {h00=0x000e, h01=0x0050, text=» DATA PF3 «, t00=0x001d, t01=0x00f4}
0x2e4c…2e5e               Head {h00=0x000e, h01=0x0050, text=» DATA PF4 «, t00=0x001d, t01=0x0106}
0x2e5e…2e70               Head {h00=0x000e, h01=0x0050, text=» DATA PF5 «, t00=0x001d, t01=0x0118}
0x2e70…2e82               Head {h00=0x000e, h01=0x0050, text=» DATA PF6 «, t00=0x001d, t01=0x012a}
0x2e82…2e94               Head {h00=0x000e, h01=0x0050, text=» DATA PF7 «, t00=0x001d, t01=0x013c}
0x2e94…2ea6               Head {h00=0x000e, h01=0x0050, text=» DATA PF8 «, t00=0x001d, t01=0x014e}
0x2ea6…2eb8               Head {h00=0x000e, h01=0x0050, text=» DATA PF9 «, t00=0x001d, t01=0x0160}
0x2eb8…2ecc               Head {h00=0x0010, h01=0x0050, text=»KEYPF1 EQU *«, t00=0x001d, t01=0x0172}
0x2ecc…2ede               Head {h00=0x000e, h01=0x0050, text=» DATA PF10«, t00=0x001d, t01=0x0186}
0x2ede…2ef0               Head {h00=0x000e, h01=0x0050, text=» DATA PF11«, t00=0x001e, t01=0x0008}
0x2ef0…2f02               Head {h00=0x000e, h01=0x0050, text=» DATA PF12«, t00=0x001e, t01=0x001a}
0x2f02…2f0a               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x002c}
0x2f0a…2f12               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0034}
0x2f12…2f1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x003c}
0x2f1e…2f26               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0048}
0x2f26…2f2e               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0050}
0x2f2e…2f40               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x001e, t01=0x0058}
0x2f40…2f48               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x006a}
0x2f48…2f50               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0072}
0x2f50…2f64               Head {h00=0x0010, h01=0x0050, text=»KEYPA0 EQU *«, t00=0x001e, t01=0x007a}
0x2f64…2f76               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x001e, t01=0x008e}
0x2f76…2f8a               Head {h00=0x0010, h01=0x0050, text=» DATA CANCEL«, t00=0x001e, t01=0x00a0}
0x2f8a…2f9c               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x001e, t01=0x00b4}
0x2f9c…2fa4               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00c6}
0x2fa4…2fac               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00ce}
0x2fac…2fb8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00d6}
0x2fb8…2fc6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00e2}
0x2fc6…2fd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f0}
0x2fd0…2fda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fa}
0x2fda…2fec               Head {h00=0x000e, h01=0x0050, text=»* DC TASK «, t00=0x001e, t01=0x0104}
0x2fec…2ff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0116}
0x2ff6…3000               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0120}
0x3000…3014               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x001e, t01=0x012a}
0x3014…302c               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,TCADDR «, t00=0x001e, t01=0x013e}
0x302c…3056               Head {h00=0x0026, h01=0x0050, text=» LDKL A8,ECBDCX ECB DC FOR DC TASK«, t00=0x001e, t01=0x0156}
0x3056…306e               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x001e, t01=0x0180}
0x306e…3096               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x001f, t01=0x0008}
0x3096…30a2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0030}
0x30a2…30b2               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x003c}
0x30b2…30de               Head {h00=0x0028, h01=0x0050, text=»DCT100 LDK A7,/82 READ FROM DC TASK «, t00=0x001f, t01=0x004c}
0x30de…30ea               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0078}
0x30ea…30fa               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0084}
0x30fa…3122               Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x001f, t01=0x0094}
0x3122…3138               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/2000«, t00=0x001f, t01=0x00bc}
0x3138…315c               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DCT100 STATUS CHANGE«, t00=0x001f, t01=0x00d2}
0x315c…318c               Head {h00=0x002c, h01=0x0050, text=» LDK A7,/A2 MESSAGE: RELEASE READ BUFFER«, t00=0x001f, t01=0x00f6}
0x318c…3198               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0126}
0x3198…31a8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0132}
0x31a8…31ba               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x001f, t01=0x0142}
0x31ba…31c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0154}
0x31c4…31ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015e}
0x31ce…31f0               Head {h00=0x001e, h01=0x0050, text=»ECBDCX DATA /60,0,0,0,0,0 «, t00=0x001f, t01=0x0168}
0x31f0…31fe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x018a}
0x31fe…3208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0008}
0x3208…3212               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0012}
0x3212…323e               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x0020, t01=0x001c}
0x323e…3248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0048}
0x3248…3252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0052}
0x3252…3266               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x0020, t01=0x005c}
0x3266…3292               Head {h00=0x0028, h01=0x0050, text=» LD A1,DCADDR,TCABAS ADDRESS TO TCA «, t00=0x0020, t01=0x0070}
0x3292…32aa               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDCT «, t00=0x0020, t01=0x009c}
0x32aa…32d0               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x0020, t01=0x00b4}
0x32d0…32f8               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x0020, t01=0x00da}
0x32f8…3300               Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0102}
0x3300…3308               Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x010a}
0x3308…331c               Head {h00=0x0010, h01=0x0050, text=» IFT RDBUF=1«, t00=0x0020, t01=0x0112}
0x331c…3324               Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0126}
0x3324…333a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,BVDU «, t00=0x0020, t01=0x012e}
0x333a…3364               Head {h00=0x0026, h01=0x0050, text=» ADR A2,TCABAS VDU-BUFFER ADDRESS «, t00=0x0020, t01=0x0144}
0x3364…337c               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBBA,A8 «, t00=0x0020, t01=0x016e}
0x337c…3384               Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0186}
0x3384…339a               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,PCURS«, t00=0x0020, t01=0x018e}
0x339a…33c0               Head {h00=0x0022, h01=0x0050, text=» ADR A3,TCABAS CURSOR ADDRESS «, t00=0x0021, t01=0x0014}
0x33c0…33d8               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBRL,A8 «, t00=0x0021, t01=0x003a}
0x33d8…33e0               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0052}
0x33e0…33ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x005a}
0x33ec…33f4               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0066}
0x33f4…343a               Head {h00=0x0042, h01=0x0050, text=» ADKL A8,ECBDC-ECBDCT RELATIVE ADDRESS RELATIVE ADDR. TO ECBDC«, t00=0x0021, t01=0x006e}
0x343a…3460               Head {h00=0x0022, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBC «, t00=0x0021, t01=0x00b4}
0x3460…3468               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00da}
0x3468…3470               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00e2}
0x3470…3484               Head {h00=0x0010, h01=0x0050, text=» IFT RDBUF=1«, t00=0x0021, t01=0x00ea}
0x3484…348c               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00fe}
0x348c…34bc               Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBBA,A8 SAVE VDU-BUFFER ADDRESS «, t00=0x0021, t01=0x0106}
0x34bc…34e8               Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBRL,A8 SAVE CURSOR ADDRESS «, t00=0x0021, t01=0x0136}
0x34e8…34f0               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0162}
0x34f0…34fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x016a}
0x34fc…3504               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0176}
0x3504…350c               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x017e}
0x350c…3534               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0021, t01=0x0186}
0x3534…3540               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0022, t01=0x001e}
0x3540…3550               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0022, t01=0x002a}
0x3550…3560               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x003a}
0x3560…356e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x004a}
0x356e…3578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0058}
0x3578…35b6               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0022, t01=0x0062}
0x35b6…35c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a0}
0x35c0…35d4               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x0022, t01=0x00aa}
0x35d4…35de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00be}
0x35de…3604               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x0022, t01=0x00c8}
0x3604…360e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ee}
0x360e…364e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0022, t01=0x00f8}
0x364e…3662               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x0022, t01=0x0138}
0x3662…3678               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0022, t01=0x014c}
0x3678…36a2               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x0022, t01=0x0162}
0x36a2…36c8               Head {h00=0x0022, h01=0x0050, text=» CF A14,I:EVA0 GET TASK INDEX «, t00=0x0022, t01=0x018c}
0x36c8…36d0               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0022}
0x36d0…36e4               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0023, t01=0x002a}
0x36e4…36ec               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x003e}
0x36ec…36f4               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0046}
0x36f4…372c               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x0023, t01=0x004e}
0x372c…3742               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x0023, t01=0x0086}
0x3742…376a               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x0023, t01=0x009c}
0x376a…3772               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00c4}
0x3772…377a               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00cc}
0x377a…3786               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00d4}
0x3786…378e               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00e0}
0x378e…37a2               Head {h00=0x0010, h01=0x0050, text=» LDR* A9,A9 «, t00=0x0023, t01=0x00e8}
0x37a2…37b6               Head {h00=0x0010, h01=0x0050, text=» IFF MGTP=0 «, t00=0x0023, t01=0x00fc}
0x37b6…37ca               Head {h00=0x0010, h01=0x0050, text=» LDR A1,A9  «, t00=0x0023, t01=0x0110}
0x37ca…37f6               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,'G0' HARDCOPY TASK IDENTITY«, t00=0x0023, t01=0x0124}
0x37f6…3812               Head {h00=0x0018, h01=0x0050, text=» ST A1,COPNO,TCABAS «, t00=0x0023, t01=0x0150}
0x3812…381e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x016c}
0x381e…3830               Head {h00=0x000e, h01=0x0050, text=» ADR A9,A9«, t00=0x0023, t01=0x0178}
0x3830…385c               Head {h00=0x0028, h01=0x0050, text=» LD A1,SELTAB,A9 GET SELECT ADDRESS «, t00=0x0023, t01=0x018a}
0x385c…3878               Head {h00=0x0018, h01=0x0050, text=» ST A1,DCADDR,TCABAS«, t00=0x0024, t01=0x0026}
0x3878…388e               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x0024, t01=0x0042}
0x388e…3896               Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0058}
0x3896…38aa               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0024, t01=0x0060}
0x38aa…38b2               Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0074}
0x38b2…38de               Head {h00=0x0028, h01=0x0050, text=» CM OFFFLG,TCABAS CLEAR OFFLINE FLAG«, t00=0x0024, t01=0x007c}
0x38de…390a               Head {h00=0x0028, h01=0x0050, text=» CF A14,OFL:OF TURN OFF OFFLINE LAMP«, t00=0x0024, t01=0x00a8}
0x390a…3916               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00d4}
0x3916…391e               Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00e0}
0x391e…3940               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x0024, t01=0x00e8}
0x3940…3954               Head {h00=0x0010, h01=0x0050, text=» IFT MGTP=0 «, t00=0x0024, t01=0x010a}
0x3954…3980               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,'G0' HARDCOPY TASK IDENTITY«, t00=0x0024, t01=0x011e}
0x3980…39b6               Head {h00=0x0032, h01=0x0050, text=» ST A1,COPNO,TCABAS SAVE IT IN USER WORK BLOCK«, t00=0x0024, t01=0x014a}
0x39b6…39c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0180}
0x39c2…39ca               Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x018c}
0x39ca…39dc (37, 0, 398)  Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0025, t01=0x0004}
0x39dc…39f2               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0025, t01=0x0016}
0x39f2…3a08               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0025, t01=0x002c}
0x3a08…3a30               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQUESTED LEN =1«, t00=0x0025, t01=0x0042}
0x3a30…3a48               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x0025, t01=0x006a}
0x3a48…3a82               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x0025, t01=0x0082}
0x3a82…3aac               Head {h00=0x0026, h01=0x0050, text=»VDU100 CF A14,READKB READ KEYBOARD«, t00=0x0025, t01=0x00bc}
0x3aac…3ac2               Head {h00=0x0012, h01=0x0050, text=» IFT KB6234=1 «, t00=0x0025, t01=0x00e6}
0x3ac2…3ae8               Head {h00=0x0022, h01=0x0050, text=» SUK A2,/20 INDEX TO KEYTABLE «, t00=0x0025, t01=0x00fc}
0x3ae8…3af4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0122}
0x3af4…3b0a               Head {h00=0x0012, h01=0x0050, text=» IFF KB6234=1 «, t00=0x0025, t01=0x012e}
0x3b0a…3b20               Head {h00=0x0012, h01=0x0050, text=» SUK A2,X'18' «, t00=0x0025, t01=0x0144}
0x3b20…3b2c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x015a}
0x3b2c…3b3e               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0025, t01=0x0166}
0x3b3e…3b5c               Head {h00=0x001a, h01=0x0050, text=»VDU200 LDKL A8,ECBVDU «, t00=0x0025, t01=0x0178}
0x3b5c…3b72               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0026, t01=0x0008}
0x3b72…3b9c               Head {h00=0x0026, h01=0x0050, text=» CFI A14,KEYTAB,A2 GET KEY MODULE «, t00=0x0026, t01=0x001e}
0x3b9c…3bae               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x0048}
0x3bae…3bbc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x005a}
0x3bbc…3bc4               Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0068}
0x3bc4…3bce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0070}
0x3bce…3bd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007a}
0x3bd8…3c1a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0026, t01=0x0084}
0x3c1a…3c24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c6}
0x3c24…3c34               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x0026, t01=0x00d0}
0x3c34…3c3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e0}
0x3c3e…3c84               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0026, t01=0x00ea}
0x3c84…3c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0130}
0x3c8e…3ca4               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x0026, t01=0x013a}
0x3ca4…3cb2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0150}
0x3cb2…3cbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x015e}
0x3cbc…3cfc               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0026, t01=0x0168}
0x3cfc…3d06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0018}
0x3d06…3d1a               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x0027, t01=0x0022}
0x3d1a…3d24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0036}
0x3d24…3d5e               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x0027, t01=0x0040}
0x3d5e…3d68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x007a}
0x3d68…3da8               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0027, t01=0x0084}
0x3da8…3db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c4}
0x3db2…3dc6               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x0027, t01=0x00ce}
0x3dc6…3df4               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0027, t01=0x00e2}
0x3df4…3e06               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0027, t01=0x0110}
0x3e06…3e2e               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x0027, t01=0x0122}
0x3e2e…3e46               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0027, t01=0x014a}
0x3e46…3e5e               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x0027, t01=0x0162}
0x3e5e…3e68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017a}
0x3e68…3ea8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0027, t01=0x0184}
0x3ea8…3eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0034}
0x3eb2…3ec6               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x0028, t01=0x003e}
0x3ec6…3ed0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0052}
0x3ed0…3f10               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x0028, t01=0x005c}
0x3f10…3f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009c}
0x3f1a…3f5a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0028, t01=0x00a6}
0x3f5a…3f64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e6}
0x3f64…3f7a               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0028, t01=0x00f0}
0x3f7a…3f84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0106}
0x3f84…3f98               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x0028, t01=0x0110}
0x3f98…3fc6               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0028, t01=0x0124}
0x3fc6…3fd8               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0028, t01=0x0152}
0x3fd8…3ffc               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x0028, t01=0x0164}
0x3ffc…4014               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x0028, t01=0x0188}
0x4014…4026               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0029, t01=0x0010}
0x4026…403e               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x0029, t01=0x0022}
0x403e…404c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x003a}
0x404c…4056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0048}
0x4056…409a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0029, t01=0x0052}
0x409a…40a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0096}
0x40a4…40b4               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x0029, t01=0x00a0}
0x40b4…40be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b0}
0x40be…40fe               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x0029, t01=0x00ba}
0x40fe…4108               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00fa}
0x4108…414c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0029, t01=0x0104}
0x414c…4156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0148}
0x4156…416a               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x0029, t01=0x0152}
0x416a…4194               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0029, t01=0x0166}
0x4194…41aa               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x0029, t01=0x0190}
0x41aa…41ca               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002a, t01=0x0016}
0x41ca…41e2               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002a, t01=0x0036}
0x41e2…41f8               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002a, t01=0x004e}
0x41f8…4210               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002a, t01=0x0064}
0x4210…421a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007c}
0x421a…4260               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002a, t01=0x0086}
0x4260…426a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00cc}
0x426a…4278               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002a, t01=0x00d6}
0x4278…4282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e4}
0x4282…42ae               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002a, t01=0x00ee}
0x42ae…42b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011a}
0x42b8…42fe               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002a, t01=0x0124}
0x42fe…4308               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016a}
0x4308…431a               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x002a, t01=0x0174}
0x431a…4348               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002a, t01=0x0186}
0x4348…435e               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x002b, t01=0x0024}
0x435e…4380               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x002b, t01=0x003a}
0x4380…4396               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x002b, t01=0x005c}
0x4396…43ae               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x002b, t01=0x0072}
0x43ae…43bc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x008a}
0x43bc…43c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0098}
0x43c6…4404               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002b, t01=0x00a2}
0x4404…440e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x440e…441e               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x002b, t01=0x00ea}
0x441e…4428               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00fa}
0x4428…444c               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x002b, t01=0x0104}
0x444c…4456               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0128}
0x4456…4494               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002b, t01=0x0132}
0x4494…449e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0170}
0x449e…44b2               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x002b, t01=0x017a}
0x44b2…44c4               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002b, t01=0x018e}
0x44c4…44d8               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x002c, t01=0x0010}
0x44d8…4506               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x0024}
0x4506…452a               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x002c, t01=0x0052}
0x452a…4550               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x002c, t01=0x0076}
0x4550…4560               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x009c}
0x4560…456e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00ac}
0x456e…4578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ba}
0x4578…45b6               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x002c, t01=0x00c4}
0x45b6…45c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0102}
0x45c0…45ce               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x002c, t01=0x010c}
0x45ce…45d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x011a}
0x45d8…460e               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x002c, t01=0x0124}
0x460e…4618               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x015a}
0x4618…4656               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x002c, t01=0x0164}
0x4656…4660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0012}
0x4660…4672               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x002d, t01=0x001c}
0x4672…469c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002d, t01=0x002e}
0x469c…46bc               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x002d, t01=0x0058}
0x46bc…46d2               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x002d, t01=0x0078}
0x46d2…46e8               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x002d, t01=0x008e}
0x46e8…4706               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x002d, t01=0x00a4}
0x4706…4710               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c2}
0x4710…472e               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x002d, t01=0x00cc}
0x472e…4738               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ea}
0x4738…4750               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x002d, t01=0x00f4}
0x4750…476c               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x002d, t01=0x010c}
0x476c…4782               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x002d, t01=0x0128}
0x4782…4798               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x002d, t01=0x013e}
0x4798…47aa               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x002d, t01=0x0154}
0x47aa…47e0               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x002d, t01=0x0166}
0x47e0…47ee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x000c}
0x47ee…47f6               Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x001a}
0x47f6…4840               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x002e, t01=0x0022}
0x4840…4852               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x002e, t01=0x006c}
0x4852…4884               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x002e, t01=0x007e}
0x4884…4896               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x00b0}
0x4896…48be               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x002e, t01=0x00c2}
0x48be…48d2               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x002e, t01=0x00ea}
0x48d2…48f6               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x002e, t01=0x00fe}
0x48f6…4928               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x002e, t01=0x0122}
0x4928…4944               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x002e, t01=0x0154}
0x4944…4970               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x002e, t01=0x0170}
0x4970…498c               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x002f, t01=0x000c}
0x498c…49a6               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x002f, t01=0x0028}
0x49a6…49be               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x002f, t01=0x0042}
0x49be…49da               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x002f, t01=0x005a}
0x49da…4a06               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x002f, t01=0x0076}
0x4a06…4a16               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x00a2}
0x4a16…4a62               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x002f, t01=0x00b2}
0x4a62…4a70               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00fe}
0x4a70…4a7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010c}
0x4a7a…4ab6               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x002f, t01=0x0116}
0x4ab6…4ac0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0152}
0x4ac0…4ace               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x002f, t01=0x015c}
0x4ace…4ad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x016a}
0x4ad8…4b0e               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x002f, t01=0x0174}
0x4b0e…4b3a               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0030, t01=0x001a}
0x4b3a…4b44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0046}
0x4b44…4b80               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0030, t01=0x0050}
0x4b80…4b8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x008c}
0x4b8a…4bc0               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0030, t01=0x0096}
0x4bc0…4bd2               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0030, t01=0x00cc}
0x4bd2…4bf2               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0030, t01=0x00de}
0x4bf2…4c14               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0030, t01=0x00fe}
0x4c14…4c2a               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0030, t01=0x0120}
0x4c2a…4c34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0136}
0x4c34…4c46               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0030, t01=0x0140}
0x4c46…4c58               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0030, t01=0x0152}
0x4c58…4c82               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0030, t01=0x0164}
0x4c82…4cb0               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0030, t01=0x018e}
0x4cb0…4cd0               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0031, t01=0x002c}
0x4cd0…4cea               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0031, t01=0x004c}
0x4cea…4cfc               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0031, t01=0x0066}
0x4cfc…4d22               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0031, t01=0x0078}
0x4d22…4d3c               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0031, t01=0x009e}
0x4d3c…4d5c               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0031, t01=0x00b8}
0x4d5c…4d7e               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0031, t01=0x00d8}
0x4d7e…4da8               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0031, t01=0x00fa}
0x4da8…4db8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0124}
0x4db8…4dd0               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0031, t01=0x0134}
0x4dd0…4e00               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0031, t01=0x014c}
0x4e00…4e40               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0031, t01=0x017c}
0x4e40…4e5c               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0032, t01=0x002c}
0x4e5c…4e88               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0032, t01=0x0048}
0x4e88…4ea4               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0032, t01=0x0074}
0x4ea4…4eb8               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0032, t01=0x0090}
0x4eb8…4eda               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0032, t01=0x00a4}
0x4eda…4eee               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0032, t01=0x00c6}
0x4eee…4f2e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0032, t01=0x00da}
0x4f2e…4f56               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0032, t01=0x011a}
0x4f56…4f6e               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0032, t01=0x0142}
0x4f6e…4fa2               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0032, t01=0x015a}
0x4fa2…4fba               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0032, t01=0x018e}
0x4fba…4fcc               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0033, t01=0x0016}
0x4fcc…4fda               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0028}
0x4fda…4fe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0036}
0x4fe4…5028               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0033, t01=0x0040}
0x5028…5032               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0084}
0x5032…5040               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0033, t01=0x008e}
0x5040…504a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009c}
0x504a…5062               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0033, t01=0x00a6}
0x5062…50a0               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0033, t01=0x00be}
0x50a0…50de               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0033, t01=0x00fc}
0x50de…510a               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0033, t01=0x013a}
0x510a…5114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0166}
0x5114…5158               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x0170}
0x5158…5162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0024}
0x5162…5174               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0034, t01=0x002e}
0x5174…5188               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7B «, t00=0x0034, t01=0x0040}
0x5188…51bc               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0034, t01=0x0054}
0x51bc…51ce               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0034, t01=0x0088}
0x51ce…51e2               Head {h00=0x0010, h01=0x0050, text=» CF A14,CHAR«, t00=0x0034, t01=0x009a}
0x51e2…51f6               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0034, t01=0x00ae}
0x51f6…5206               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x00c2}
0x5206…5214               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00d2}
0x5214…521e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e0}
0x521e…525c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0034, t01=0x00ea}
0x525c…5266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0128}
0x5266…5276               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x0034, t01=0x0132}
0x5276…5280               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0142}
0x5280…52ba               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x0034, t01=0x014c}
0x52ba…52f0               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x0034, t01=0x0186}
0x52f0…52fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002c}
0x52fa…5336               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x0036}
0x5336…5340               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0072}
0x5340…5362               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0035, t01=0x007c}
0x5362…5378               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0035, t01=0x009e}
0x5378…538c               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x0035, t01=0x00b4}
0x538c…539e               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0035, t01=0x00c8}
0x539e…53c8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0035, t01=0x00da}
0x53c8…53ee               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0035, t01=0x0104}
0x53ee…5410               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x0035, t01=0x012a}
0x5410…542a               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x0035, t01=0x014c}
0x542a…5450               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x0035, t01=0x0166}
0x5450…546a               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x0035, t01=0x018c}
0x546a…547c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0036, t01=0x0016}
0x547c…54a8               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x0036, t01=0x0028}
0x54a8…54c2               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x0036, t01=0x0054}
0x54c2…54da               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x0036, t01=0x006e}
0x54da…5502               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x0036, t01=0x0086}
0x5502…5546               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0036, t01=0x00ae}
0x5546…5558               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0036, t01=0x00f2}
0x5558…557a               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x0036, t01=0x0104}
0x557a…55b2               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x0036, t01=0x0126}
0x55b2…55e6               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x0036, t01=0x015e}
0x55e6…55f8 (55, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x0037, t01=0x0004}
0x55f8…560c               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x0037, t01=0x0016}
0x560c…564e               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0037, t01=0x002a}
0x564e…566c               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0037, t01=0x006c}
0x566c…5686               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x0037, t01=0x008a}
0x5686…5698               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0037, t01=0x00a4}
0x5698…56ba               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x0037, t01=0x00b6}
0x56ba…56dc               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x0037, t01=0x00d8}
0x56dc…56ec               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x00fa}
0x56ec…571a               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x0037, t01=0x010a}
0x571a…5734               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0037, t01=0x0138}
0x5734…5760               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0037, t01=0x0152}
0x5760…5786               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0037, t01=0x017e}
0x5786…57aa               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0038, t01=0x0014}
0x57aa…57c2               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0038, t01=0x0038}
0x57c2…57e0               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0038, t01=0x0050}
0x57e0…57fa               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0038, t01=0x006e}
0x57fa…582c               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0038, t01=0x0088}
0x582c…5848               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0038, t01=0x00ba}
0x5848…5890               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0038, t01=0x00d6}
0x5890…58a2               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0038, t01=0x011e}
0x58a2…58ea               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0038, t01=0x0130}
0x58ea…58f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0178}
0x58f8…5906               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0186}
0x5906…590e (57, 0, 398)  Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x0004}
0x590e…5954               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0039, t01=0x000c}
0x5954…595e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0052}
0x595e…599e               Head {h00=0x003c, h01=0x0050, text=»*   CONVERT LOWER CASE CHARACTERS 7B,7C AND 7D TO UPPER «, t00=0x0039, t01=0x005c}
0x599e…59ce               Head {h00=0x002c, h01=0x0050, text=»*   CASE CHARACTERS 5B,5C RESPECTIVLY 5D«, t00=0x0039, t01=0x009c}
0x59ce…59d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00cc}
0x59d8…5a20               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0039, t01=0x00d6}
0x5a20…5a28               Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x011e}
0x5a28…5a40               Head {h00=0x0014, h01=0x0050, text=»CON7B LDK A2,/5B«, t00=0x0039, t01=0x0126}
0x5a40…5a52               Head {h00=0x000e, h01=0x0050, text=» RF CON:ST«, t00=0x0039, t01=0x013e}
0x5a52…5a6a               Head {h00=0x0014, h01=0x0050, text=»CON7C LDK A2,/5C«, t00=0x0039, t01=0x0150}
0x5a6a…5a7c               Head {h00=0x000e, h01=0x0050, text=» RF CON:ST«, t00=0x0039, t01=0x0168}
0x5a7c…5a94               Head {h00=0x0014, h01=0x0050, text=»CON7D LDK A2,/5D«, t00=0x0039, t01=0x017a}
0x5a94…5ada (58, 0, 400)  Head {h00=0x0042, h01=0x0050, text=»CON:ST SC* A2,ECBBA,A8 SAVE CONVERTED CHARACTER IN ECB BUFFER «, t00=0x003a, t01=0x0004}
0x5ada…5aea               Head {h00=0x000c, h01=0x0050, text=» RF CHAR«, t00=0x003a, t01=0x004a}
0x5aea…5af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x005a}
0x5af4…5b36               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x003a, t01=0x0064}
0x5b36…5b40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00a6}
0x5b40…5b4e               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x003a, t01=0x00b0}
0x5b4e…5b58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00be}
0x5b58…5b96               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x003a, t01=0x00c8}
0x5b96…5ba0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0106}
0x5ba0…5be2               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x003a, t01=0x0110}
0x5be2…5bec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0152}
0x5bec…5bfe               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x003a, t01=0x015c}
0x5bfe…5c28               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003a, t01=0x016e}
0x5c28…5c5a               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x003b, t01=0x0008}
0x5c5a…5c7e               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x003b, t01=0x003a}
0x5c7e…5c98               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x003b, t01=0x005e}
0x5c98…5cce               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x003b, t01=0x0078}
0x5cce…5ce0               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x003b, t01=0x00ae}
0x5ce0…5d06               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x003b, t01=0x00c0}
0x5d06…5d20               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x003b, t01=0x00e6}
0x5d20…5d38               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x003b, t01=0x0100}
0x5d38…5d5a               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x003b, t01=0x0118}
0x5d5a…5d72               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x003b, t01=0x013a}
0x5d72…5da2               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x003b, t01=0x0152}
0x5da2…5db0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0182}
0x5db0…5dba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0190}
0x5dba…5dfc               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x000a}
0x5dfc…5e06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x004c}
0x5e06…5e14               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x003c, t01=0x0056}
0x5e14…5e1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0064}
0x5e1e…5e44               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x003c, t01=0x006e}
0x5e44…5e4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0094}
0x5e4e…5e90               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x009e}
0x5e90…5e9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e0}
0x5e9a…5eac               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x003c, t01=0x00ea}
0x5eac…5ed6               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003c, t01=0x00fc}
0x5ed6…5f08               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x003c, t01=0x0126}
0x5f08…5f30               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x003c, t01=0x0158}
0x5f30…5f4a               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x003c, t01=0x0180}
0x5f4a…5f80               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x003d, t01=0x000a}
0x5f80…5f92               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x003d, t01=0x0040}
0x5f92…5fb6               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x003d, t01=0x0052}
0x5fb6…5fce               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x003d, t01=0x0076}
0x5fce…5ffe               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x003d, t01=0x008e}
0x5ffe…600c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00be}
0x600c…6016               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00cc}
0x6016…6058               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003d, t01=0x00d6}
0x6058…6062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0118}
0x6062…6072               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x003d, t01=0x0122}
0x6072…607c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0132}
0x607c…60bc               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x003d, t01=0x013c}
0x60bc…60ce               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x003d, t01=0x017c}
0x60ce…60d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x018e}
0x60d8…611a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003e, t01=0x0008}
0x611a…6124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x004a}
0x6124…6138               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x003e, t01=0x0054}
0x6138…6168               Head {h00=0x002c, h01=0x0050, text=» LD* A4,ECBKB+ECBBA,CREBAS GET KEY CODE «, t00=0x003e, t01=0x0068}
0x6168…617a               Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x003e, t01=0x0098}
0x617a…6190               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x003e, t01=0x00aa}
0x6190…61a6               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x003e, t01=0x00c0}
0x61a6…61b8               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x003e, t01=0x00d6}
0x61b8…61da               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x003e, t01=0x00e8}
0x61da…61f6               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x003e, t01=0x010a}
0x61f6…6222               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x003e, t01=0x0126}
0x6222…623c               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x003e, t01=0x0152}
0x623c…6260               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x003e, t01=0x016c}
0x6260…627e               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x003e, t01=0x0190}
0x627e…62ae               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x003f, t01=0x001e}
0x62ae…62ca               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x003f, t01=0x004e}
0x62ca…62dc               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x003f, t01=0x006a}
0x62dc…6314               Head {h00=0x0034, h01=0x0050, text=»ANC100 LDK A5,/2B CURSOR NOT MOVED BEF. DISPLAY «, t00=0x003f, t01=0x007c}
0x6314…6338               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x003f, t01=0x00b4}
0x6338…634a               Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x003f, t01=0x00d8}
0x634a…635e               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x003f, t01=0x00ea}
0x635e…6378               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x003f, t01=0x00fe}
0x6378…63a4               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x003f, t01=0x0118}
0x63a4…63b6               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x003f, t01=0x0144}
0x63b6…63de               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x003f, t01=0x0156}
0x63de…63f8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x003f, t01=0x017e}
0x63f8…6422               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x0040, t01=0x0008}
0x6422…643c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x0040, t01=0x0032}
0x643c…645a               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x0040, t01=0x004c}
0x645a…647c               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x0040, t01=0x006a}
0x647c…64a8               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x0040, t01=0x008c}
0x64a8…64ca               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x0040, t01=0x00b8}
0x64ca…64f6               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x0040, t01=0x00da}
0x64f6…652a               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x0040, t01=0x0106}
0x652a…6554               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0040, t01=0x013a}
0x6554…6566               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0040, t01=0x0164}
0x6566…657c               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0040, t01=0x0176}
0x657c…6592               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x0040, t01=0x018c}
0x6592…65a4               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x0041, t01=0x0012}
0x65a4…65b8               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x0041, t01=0x0024}
0x65b8…65d4               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0041, t01=0x0038}
0x65d4…65fa               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0041, t01=0x0054}
0x65fa…661e               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0041, t01=0x007a}
0x661e…6636               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x0041, t01=0x009e}
0x6636…663e               Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x00b6}
0x663e…666a               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x0041, t01=0x00be}
0x666a…66a8               Head {h00=0x003a, h01=0x0050, text=»*******************************************  78-08-15 «, t00=0x0041, t01=0x00ea}
0x66a8…66bc               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x0041, t01=0x0128}
0x66bc…66e0               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x0041, t01=0x013c}
0x66e0…6708               Head {h00=0x0024, h01=0x0050, text=» ANK A1,X'FF' CHARACTER POSITION«, t00=0x0041, t01=0x0160}
0x6708…671a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,81«, t00=0x0041, t01=0x0188}
0x671a…674a               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) ANC350 NOT LAST POSITION ON LINE«, t00=0x0042, t01=0x000a}
0x674a…6788               Head {h00=0x003a, h01=0x0050, text=»*******************************************  78-08-15 «, t00=0x0042, t01=0x003a}
0x6788…67c6               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x0042, t01=0x0078}
0x67c6…67da               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x0042, t01=0x00b6}
0x67da…67ea               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x00ca}
0x67ea…67f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00da}
0x67f8…6802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e8}
0x6802…6844               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x00f2}
0x6844…684e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0134}
0x684e…685e               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0042, t01=0x013e}
0x685e…6868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x014e}
0x6868…68a6               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0042, t01=0x0158}
0x68a6…68ce               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0043, t01=0x0008}
0x68ce…68d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0030}
0x68d8…691a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0043, t01=0x003a}
0x691a…6924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007c}
0x6924…6938               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0043, t01=0x0086}
0x6938…694a               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0043, t01=0x009a}
0x694a…696e               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/3E CANCEL CHAR CODE«, t00=0x0043, t01=0x00ac}
0x696e…6982               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0043, t01=0x00d0}
0x6982…69b4               Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP1ON TURN ON "KEYBOARD INHIBIT" «, t00=0x0043, t01=0x00e4}
0x69b4…69e0               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0043, t01=0x0116}
0x69e0…69f0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x0142}
0x69f0…69fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0152}
0x69fa…6a02               Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x015c}
0x6a02…6a14               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0043, t01=0x0164}
0x6a14…6a1c               Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x0176}
0x6a1c…6a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x017e}
0x6a26…6a30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0188}
0x6a30…6a7a (68, 0, 400)  Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0044, t01=0x0004}
0x6a7a…6ab8               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0044, t01=0x004e}
0x6ab8…6ac2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x008c}
0x6ac2…6acc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0096}
0x6acc…6adc               Head {h00=0x000c, h01=0x0050, text=»PA EQU *«, t00=0x0044, t01=0x00a0}
0x6adc…6b06               Head {h00=0x0026, h01=0x0050, text=» CF A14,READKB READ ONE NUM.CHAR. «, t00=0x0044, t01=0x00b0}
0x6b06…6b2a               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0044, t01=0x00da}
0x6b2a…6b4c               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0044, t01=0x00fe}
0x6b4c…6b70               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0044, t01=0x0120}
0x6b70…6b92               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x0044, t01=0x0144}
0x6b92…6bb8               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/2 PREPARE A2 AS INDEX«, t00=0x0044, t01=0x0166}
0x6bb8…6bca               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0044, t01=0x018c}
0x6bca…6bf6               Head {h00=0x0028, h01=0x0050, text=» CFI A14,KEYPA0,A2 GO TO PA-HANDLING«, t00=0x0045, t01=0x000e}
0x6bf6…6c20               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x0045, t01=0x003a}
0x6c20…6c28               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x0064}
0x6c28…6c34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x006c}
0x6c34…6c42               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0078}
0x6c42…6c4a               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x0086}
0x6c4a…6c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x008e}
0x6c54…6c7e               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x0045, t01=0x0098}
0x6c7e…6c88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00c2}
0x6c88…6c92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00cc}
0x6c92…6ca4               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x0045, t01=0x00d6}
0x6ca4…6cc6               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/25 PA1 CHAR CODE «, t00=0x0045, t01=0x00e8}
0x6cc6…6cd8               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0045, t01=0x010a}
0x6cd8…6ce2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x011c}
0x6ce2…6cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0126}
0x6cec…6d14               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x0045, t01=0x0130}
0x6d14…6d1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0158}
0x6d1e…6d28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0162}
0x6d28…6d3a               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x0045, t01=0x016c}
0x6d3a…6d5c               Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2C PA3 CHAR CODE «, t00=0x0045, t01=0x017e}
0x6d5c…6d6e               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0046, t01=0x0010}
0x6d6e…6d7c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0022}
0x6d7c…6d86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0030}
0x6d86…6dc6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0046, t01=0x003a}
0x6dc6…6dd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x007a}
0x6dd0…6de0               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x0046, t01=0x0084}
0x6de0…6dea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0094}
0x6dea…6e26               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x0046, t01=0x009e}
0x6e26…6e66               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x0046, t01=0x00da}
0x6e66…6ea2               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x0046, t01=0x011a}
0x6ea2…6ec0               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x0046, t01=0x0156}
0x6ec0…6eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0174}
0x6eca…6f0c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0046, t01=0x017e}
0x6f0c…6f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0030}
0x6f16…6f2a               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x0047, t01=0x003a}
0x6f2a…6f4e               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/27 ENTER CHAR CODE «, t00=0x0047, t01=0x004e}
0x6f4e…6f62               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x0047, t01=0x0072}
0x6f62…6f94               Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP1ON TURN ON "KEYBOARD INHIBIT" «, t00=0x0047, t01=0x0086}
0x6f94…6fc6               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x0047, t01=0x00b8}
0x6fc6…6fda               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x0047, t01=0x00ea}
0x6fda…6fea               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0047, t01=0x00fe}
0x6fea…6ff4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x010e}
0x6ff4…6ffc               Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0118}
0x6ffc…700e               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0047, t01=0x0120}
0x700e…7016               Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0132}
0x7016…7020               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x013a}
0x7020…702a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0144}
0x702a…7074               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0047, t01=0x014e}
0x7074…70a8               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x0048, t01=0x0008}
0x70a8…70b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x003c}
0x70b2…70bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0046}
0x70bc…70cc               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x0048, t01=0x0050}
0x70cc…70f2               Head {h00=0x0022, h01=0x0050, text=» CF A14,READKB READ FIRST NUM.«, t00=0x0048, t01=0x0060}
0x70f2…7112               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x0048, t01=0x0086}
0x7112…7142               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x0048, t01=0x00a6}
0x7142…716c               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x0048, t01=0x00d6}
0x716c…718e               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x0048, t01=0x0100}
0x718e…71b0               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x0048, t01=0x0122}
0x71b0…71d4               Head {h00=0x0020, h01=0x0050, text=» CF A14,READKB READ SEC.NUM.«, t00=0x0048, t01=0x0144}
0x71d4…71f4               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x0048, t01=0x0168}
0x71f4…7224               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0048, t01=0x0188}
0x7224…7242               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x0049, t01=0x0028}
0x7242…7272               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0049, t01=0x0046}
0x7272…7298               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/2 PREPARE A2 AS INDEX«, t00=0x0049, t01=0x0076}
0x7298…72aa               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0049, t01=0x009c}
0x72aa…72d6               Head {h00=0x0028, h01=0x0050, text=» CFI A14,KEYPF1,A2 GO TO PF-HANDLING«, t00=0x0049, t01=0x00ae}
0x72d6…72e8               Head {h00=0x000e, h01=0x0050, text=» RF PFRTN «, t00=0x0049, t01=0x00da}
0x72e8…72f0               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x00ec}
0x72f0…7302               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x0049, t01=0x00f4}
0x7302…7326               Head {h00=0x0020, h01=0x0050, text=» CF A14,READKB READ SEC.NUM.«, t00=0x0049, t01=0x0106}
0x7326…7346               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x0049, t01=0x012a}
0x7346…7376               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0049, t01=0x014a}
0x7376…7394               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x0049, t01=0x017a}
0x7394…73c4               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x004a, t01=0x0008}
0x73c4…73ea               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/8 PREPARE A2 AS INDEX«, t00=0x004a, t01=0x0038}
0x73ea…73fc               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x004a, t01=0x005e}
0x73fc…7428               Head {h00=0x0028, h01=0x0050, text=» CFI A14,KEYPF0,A2 GO TO PF-HANDLING«, t00=0x004a, t01=0x0070}
0x7428…743c               Head {h00=0x0010, h01=0x0050, text=»PFRTN EQU * «, t00=0x004a, t01=0x009c}
0x743c…744c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x00b0}
0x744c…7460               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x004a, t01=0x00c0}
0x7460…748e               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x004a, t01=0x00d4}
0x748e…74b6               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x004a, t01=0x0102}
0x74b6…74be               Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x012a}
0x74be…74ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0132}
0x74ca…74d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x013e}
0x74d4…74e2               Head {h00=0x000a, h01=0x0050, text=»* PF1 «, t00=0x004a, t01=0x0148}
0x74e2…74ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0156}
0x74ec…74f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0160}
0x74f6…7508               Head {h00=0x000e, h01=0x0050, text=»PF1 EQU * «, t00=0x004a, t01=0x016a}
0x7508…751c               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/31 «, t00=0x004a, t01=0x017c}
0x751c…752e               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004a, t01=0x0190}
0x752e…753c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0012}
0x753c…7546               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0020}
0x7546…7550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x002a}
0x7550…755e               Head {h00=0x000a, h01=0x0050, text=»* PF2 «, t00=0x004b, t01=0x0034}
0x755e…7568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0042}
0x7568…7572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x004c}
0x7572…7584               Head {h00=0x000e, h01=0x0050, text=»PF2 EQU * «, t00=0x004b, t01=0x0056}
0x7584…7598               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/32 «, t00=0x004b, t01=0x0068}
0x7598…75aa               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004b, t01=0x007c}
0x75aa…75b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x008e}
0x75b4…75be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0098}
0x75be…75cc               Head {h00=0x000a, h01=0x0050, text=»* PF3 «, t00=0x004b, t01=0x00a2}
0x75cc…75d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00b0}
0x75d6…75e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00ba}
0x75e0…75f2               Head {h00=0x000e, h01=0x0050, text=»PF3 EQU * «, t00=0x004b, t01=0x00c4}
0x75f2…7606               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/33 «, t00=0x004b, t01=0x00d6}
0x7606…7618               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004b, t01=0x00ea}
0x7618…7622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00fc}
0x7622…762c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0106}
0x762c…763a               Head {h00=0x000a, h01=0x0050, text=»* PF4 «, t00=0x004b, t01=0x0110}
0x763a…7644               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x011e}
0x7644…764e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0128}
0x764e…7660               Head {h00=0x000e, h01=0x0050, text=»PF4 EQU * «, t00=0x004b, t01=0x0132}
0x7660…7674               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/34 «, t00=0x004b, t01=0x0144}
0x7674…7686               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004b, t01=0x0158}
0x7686…7694               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x016a}
0x7694…769e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0178}
0x769e…76a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0182}
0x76a8…76b6               Head {h00=0x000a, h01=0x0050, text=»* PF5 «, t00=0x004b, t01=0x018c}
0x76b6…76c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x000a}
0x76c0…76ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0014}
0x76ca…76dc               Head {h00=0x000e, h01=0x0050, text=»PF5 EQU * «, t00=0x004c, t01=0x001e}
0x76dc…76f0               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x004c, t01=0x0030}
0x76f0…7702               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004c, t01=0x0044}
0x7702…770c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0056}
0x770c…771a               Head {h00=0x000a, h01=0x0050, text=»* PF6 «, t00=0x004c, t01=0x0060}
0x771a…7724               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x006e}
0x7724…7736               Head {h00=0x000e, h01=0x0050, text=»PF6 EQU * «, t00=0x004c, t01=0x0078}
0x7736…774a               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/36 «, t00=0x004c, t01=0x008a}
0x774a…775c               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004c, t01=0x009e}
0x775c…7766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00b0}
0x7766…7774               Head {h00=0x000a, h01=0x0050, text=»* PF7 «, t00=0x004c, t01=0x00ba}
0x7774…777e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00c8}
0x777e…7790               Head {h00=0x000e, h01=0x0050, text=»PF7 EQU * «, t00=0x004c, t01=0x00d2}
0x7790…77a4               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/37 «, t00=0x004c, t01=0x00e4}
0x77a4…77b6               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004c, t01=0x00f8}
0x77b6…77c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x010a}
0x77c0…77ce               Head {h00=0x000a, h01=0x0050, text=»* PF8 «, t00=0x004c, t01=0x0114}
0x77ce…77d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0122}
0x77d8…77ea               Head {h00=0x000e, h01=0x0050, text=»PF8 EQU * «, t00=0x004c, t01=0x012c}
0x77ea…77fe               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/38 «, t00=0x004c, t01=0x013e}
0x77fe…7810               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004c, t01=0x0152}
0x7810…781a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0164}
0x781a…7828               Head {h00=0x000a, h01=0x0050, text=»* PF9 «, t00=0x004c, t01=0x016e}
0x7828…7832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x017c}
0x7832…7844               Head {h00=0x000e, h01=0x0050, text=»PF9 EQU * «, t00=0x004c, t01=0x0186}
0x7844…7858               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x004d, t01=0x0008}
0x7858…786a               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004d, t01=0x001c}
0x786a…7874               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x002e}
0x7874…787e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0038}
0x787e…788c               Head {h00=0x000a, h01=0x0050, text=»* PF10«, t00=0x004d, t01=0x0042}
0x788c…7896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0050}
0x7896…78a8               Head {h00=0x000e, h01=0x0050, text=»PF10 EQU *«, t00=0x004d, t01=0x005a}
0x78a8…78bc               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/3A «, t00=0x004d, t01=0x006c}
0x78bc…78ce               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004d, t01=0x0080}
0x78ce…78dc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0092}
0x78dc…78e4               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00a0}
0x78e4…78ec               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00a8}
0x78ec…78f4               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00b0}
0x78f4…7906               Head {h00=0x000e, h01=0x0050, text=»PF11 EQU *«, t00=0x004d, t01=0x00b8}
0x7906…791a               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/23 «, t00=0x004d, t01=0x00ca}
0x791a…792c               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004d, t01=0x00de}
0x792c…7936               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00f0}
0x7936…7940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00fa}
0x7940…794a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0104}
0x794a…7952               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x010e}
0x7952…7964               Head {h00=0x000e, h01=0x0050, text=»PF12 EQU *«, t00=0x004d, t01=0x0116}
0x7964…7978               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/40 «, t00=0x004d, t01=0x0128}
0x7978…798a               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x004d, t01=0x013c}
0x798a…7992               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x014e}
0x7992…799a               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0156}
0x799a…79ae               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x004d, t01=0x015e}
0x79ae…79b6               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0172}
0x79b6…79c4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x017a}
0x79c4…79ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0188}
0x79ce…7a12 (78, 0, 400)  Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004e, t01=0x0004}
0x7a12…7a1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0048}
0x7a1c…7a2c               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x004e, t01=0x0052}
0x7a2c…7a6c               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x004e, t01=0x0062}
0x7a6c…7aa8               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x004e, t01=0x00a2}
0x7aa8…7ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00de}
0x7ab2…7af8               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x004e, t01=0x00e8}
0x7af8…7b02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x012e}
0x7b02…7b16               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x004e, t01=0x0138}
0x7b16…7b42               Head {h00=0x0028, h01=0x0050, text=» CF A14,OFL:ON TURN ON OFFLINE LAMP «, t00=0x004e, t01=0x014c}
0x7b42…7b6c               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x004e, t01=0x0178}
0x7b6c…7b94               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x004f, t01=0x0012}
0x7b94…7bc2               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x004f, t01=0x003a}
0x7bc2…7bd8               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x004f, t01=0x0068}
0x7bd8…7c00               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x004f, t01=0x007e}
0x7c00…7c2e               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x004f, t01=0x00a6}
0x7c2e…7c36               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00d4}
0x7c36…7c42               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00dc}
0x7c42…7c50               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00e8}
0x7c50…7c5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00f6}
0x7c5a…7c9a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004f, t01=0x0100}
0x7c9a…7ca4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0140}
0x7ca4…7cb4               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x004f, t01=0x014a}
0x7cb4…7cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x015a}
0x7cbe…7cfc               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x004f, t01=0x0164}
0x7cfc…7d38               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0050, t01=0x0012}
0x7d38…7d76               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0050, t01=0x004e}
0x7d76…7d88               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0050, t01=0x008c}
0x7d88…7d92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x009e}
0x7d92…7dd2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0050, t01=0x00a8}
0x7dd2…7ddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00e8}
0x7ddc…7df0               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0050, t01=0x00f2}
0x7df0…7e14               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/5F CLEAR CHAR CODE «, t00=0x0050, t01=0x0106}
0x7e14…7e46               Head {h00=0x002e, h01=0x0050, text=» CF A14,LMP1ON TURN ON "KEYBOARD INHIBIT" «, t00=0x0050, t01=0x012a}
0x7e46…7e72               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0050, t01=0x015c}
0x7e72…7e9c               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0050, t01=0x0188}
0x7e9c…7eac               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x0022}
0x7eac…7eba               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0032}
0x7eba…7ec4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0040}
0x7ec4…7f08               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0051, t01=0x004a}
0x7f08…7f12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x008e}
0x7f12…7f22               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0051, t01=0x0098}
0x7f22…7f2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00a8}
0x7f2c…7f4c               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0051, t01=0x00b2}
0x7f4c…7f56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00d2}
0x7f56…7f9a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0051, t01=0x00dc}
0x7f9a…7fa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0120}
0x7fa4…7fb8               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0051, t01=0x012a}
0x7fb8…7fca               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0051, t01=0x013e}
0x7fca…7ff4               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0051, t01=0x0150}
0x7ff4…8014               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0051, t01=0x017a}
0x8014…802e               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0052, t01=0x000a}
0x802e…8040               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0052, t01=0x0024}
0x8040…8062               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0052, t01=0x0036}
0x8062…806a               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0058}
0x806a…8096               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0052, t01=0x0060}
0x8096…809e               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x008c}
0x809e…80d4               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0052, t01=0x0094}
0x80d4…8102               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0052, t01=0x00ca}
0x8102…810a               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00f8}
0x810a…8136               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0052, t01=0x0100}
0x8136…813e               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x012c}
0x813e…816a               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0052, t01=0x0134}
0x816a…818c               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0052, t01=0x0160}
0x818c…81a4               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0052, t01=0x0182}
0x81a4…81bc               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0053, t01=0x000a}
0x81bc…81d8               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0053, t01=0x0022}
0x81d8…81ec               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0053, t01=0x003e}
0x81ec…8202               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0053, t01=0x0052}
0x8202…8218               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0053, t01=0x0068}
0x8218…822a               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0053, t01=0x007e}
0x822a…825e               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x0053, t01=0x0090}
0x825e…828a               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x0053, t01=0x00c4}
0x828a…8294               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00f0}
0x8294…82c0               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x0053, t01=0x00fa}
0x82c0…82ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0126}
0x82ca…82d2               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0130}
0x82d2…82ee               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x0053, t01=0x0138}
0x82ee…8306               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x0053, t01=0x0154}
0x8306…832e               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x0053, t01=0x016c}
0x832e…8336 (84, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0004}
0x8336…834a               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x0054, t01=0x000c}
0x834a…837c               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0054, t01=0x0020}
0x837c…839c               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x0054, t01=0x0052}
0x839c…83ba               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x0054, t01=0x0072}
0x83ba…83cc               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0054, t01=0x0090}
0x83cc…83e0               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x0054, t01=0x00a2}
0x83e0…83f0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x00b6}
0x83f0…841c               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x0054, t01=0x00c6}
0x841c…8436               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x0054, t01=0x00f2}
0x8436…8448               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0054, t01=0x010c}
0x8448…8460               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x0054, t01=0x011e}
0x8460…848e               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x0054, t01=0x0136}
0x848e…84a4               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x0054, t01=0x0164}
0x84a4…84c2               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x0054, t01=0x017a}
0x84c2…84d4               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x0055, t01=0x0008}
0x84d4…84e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x001a}
0x84e2…84ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0028}
0x84ec…852c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0055, t01=0x0032}
0x852c…8536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0072}
0x8536…8546               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x0055, t01=0x007c}
0x8546…8550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x008c}
0x8550…858e               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x0055, t01=0x0096}
0x858e…85cc               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x0055, t01=0x00d4}
0x85cc…85f2               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x0055, t01=0x0112}
0x85f2…85fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0138}
0x85fc…863c               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0055, t01=0x0142}
0x863c…8646               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0182}
0x8646…865a               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0055, t01=0x018c}
0x865a…8686               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x0056, t01=0x0010}
0x8686…869c               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x0056, t01=0x003c}
0x869c…86b8               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x0056, t01=0x0052}
0x86b8…86ce               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x0056, t01=0x006e}
0x86ce…8710               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0056, t01=0x0084}
0x8710…8722               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0056, t01=0x00c6}
0x8722…874a               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x0056, t01=0x00d8}
0x874a…877e               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x0056, t01=0x0100}
0x877e…87ac               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x0056, t01=0x0134}
0x87ac…87c0               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x0056, t01=0x0162}
0x87c0…8802               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0056, t01=0x0176}
0x8802…8814               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0057, t01=0x0028}
0x8814…881c               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x003a}
0x881c…8830               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x0057, t01=0x0042}
0x8830…884c               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0057, t01=0x0056}
0x884c…885c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x0072}
0x885c…886a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0082}
0x886a…8874               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0090}
0x8874…88b8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0057, t01=0x009a}
0x88b8…88c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00de}
0x88c2…88d2               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x0057, t01=0x00e8}
0x88d2…88dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00f8}
0x88dc…890e               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x0057, t01=0x0102}
0x890e…8918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0134}
0x8918…895c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0057, t01=0x013e}
0x895c…8966               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0182}
0x8966…897a               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0057, t01=0x018c}
0x897a…89a6               Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP2ON TURN ON 'ERROR' LAMP «, t00=0x0058, t01=0x0010}
0x89a6…89c2               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x0058, t01=0x003c}
0x89c2…89fa               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x0058, t01=0x0058}
0x89fa…8a16               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x0058, t01=0x0090}
0x8a16…8a1e               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x00ac}
0x8a1e…8a28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b4}
0x8a28…8a48               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x0058, t01=0x00be}
0x8a48…8a52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00de}
0x8a52…8a5a               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x00e8}
0x8a5a…8a72               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0058, t01=0x00f0}
0x8a72…8a98               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x0058, t01=0x0108}
0x8a98…8abe               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x0058, t01=0x012e}
0x8abe…8ae6               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x0058, t01=0x0154}
0x8ae6…8afa               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x0058, t01=0x017c}
0x8afa…8b1e               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x0058, t01=0x0190}
0x8b1e…8b32               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x0059, t01=0x0024}
0x8b32…8b54               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x0059, t01=0x0038}
0x8b54…8b6c               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0059, t01=0x005a}
0x8b6c…8b74               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0072}
0x8b74…8b96               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x0059, t01=0x007a}
0x8b96…8ba2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0059, t01=0x009c}
0x8ba2…8bb2               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0059, t01=0x00a8}
0x8bb2…8bba               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x00b8}
0x8bba…8bca               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x00c0}
0x8bca…8bd8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00d0}
0x8bd8…8be2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00de}
0x8be2…8c22               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0059, t01=0x00e8}
0x8c22…8c2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0128}
0x8c2c…8c3c               Head {h00=0x000c, h01=0x0050, text=»* READKB«, t00=0x0059, t01=0x0132}
0x8c3c…8c46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0142}
0x8c46…8c6e               Head {h00=0x0024, h01=0x0050, text=»* READ KEYBOARD MONITOR REQUEST «, t00=0x0059, t01=0x014c}
0x8c6e…8c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0174}
0x8c78…8cb8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0059, t01=0x017e}
0x8cb8…8cc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x002e}
0x8cc2…8cd6               Head {h00=0x0010, h01=0x0050, text=»READKB EQU *«, t00=0x005a, t01=0x0038}
0x8cd6…8cfe               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/81 BASIC READ WITH WAIT«, t00=0x005a, t01=0x004c}
0x8cfe…8d14               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x005a, t01=0x0074}
0x8d14…8d2a               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x005a, t01=0x008a}
0x8d2a…8d58               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x005a, t01=0x00a0}
0x8d58…8d64               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005a, t01=0x00ce}
0x8d64…8d74               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x005a, t01=0x00da}
0x8d74…8d9a               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBCW,A8 POWER OFF ??? «, t00=0x005a, t01=0x00ea}
0x8d9a…8db6               Head {h00=0x0018, h01=0x0050, text=» RF(Z) READ05 YES!!!«, t00=0x005a, t01=0x0110}
0x8db6…8dce               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x005a, t01=0x012c}
0x8dce…8de4               Head {h00=0x0012, h01=0x0050, text=» RF(0) READ10 «, t00=0x005a, t01=0x0144}
0x8de4…8df8               Head {h00=0x0010, h01=0x0050, text=»READ05 EQU *«, t00=0x005a, t01=0x015a}
0x8df8…8e26               Head {h00=0x002a, h01=0x0050, text=» LDK A7,/04 RESET KEYBOARD ECB BUFFER «, t00=0x005a, t01=0x016e}
0x8e26…8e32               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005b, t01=0x000c}
0x8e32…8e42               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x005b, t01=0x0018}
0x8e42…8e54               Head {h00=0x000e, h01=0x0050, text=» RB READKB«, t00=0x005b, t01=0x0028}
0x8e54…8e68               Head {h00=0x0010, h01=0x0050, text=»READ10 EQU *«, t00=0x005b, t01=0x003a}
0x8e68…8e84               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x005b, t01=0x004e}
0x8e84…8eb2               Head {h00=0x002a, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED«, t00=0x005b, t01=0x006a}
0x8eb2…8ecc               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) READ05 NO «, t00=0x005b, t01=0x0098}
0x8ecc…8ef8               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x005b, t01=0x00b2}
0x8ef8…8f14               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x005b, t01=0x00de}
0x8f14…8f38               Head {h00=0x0020, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY «, t00=0x005b, t01=0x00fa}
0x8f38…8f50               Head {h00=0x0014, h01=0x0050, text=» RF(Z) READ20 NO«, t00=0x005b, t01=0x011e}
0x8f50…8f72               Head {h00=0x001e, h01=0x0050, text=» CWK A2,RSET RESET KEY ???«, t00=0x005b, t01=0x0136}
0x8f72…8f8c               Head {h00=0x0016, h01=0x0050, text=» RB(NE) READ05 NO «, t00=0x005b, t01=0x0158}
0x8f8c…8fa0               Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x005b, t01=0x0172}
0x8fa0…8fb0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x0186}
0x8fb0…8fbe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0008}
0x8fbe…8fc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0016}
0x8fc8…9008               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x0020}
0x9008…9012               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0060}
0x9012…9026               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x005c, t01=0x006a}
0x9026…9030               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x007e}
0x9030…903a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0088}
0x903a…907a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x0092}
0x907a…9084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00d2}
0x9084…9098               Head {h00=0x0010, h01=0x0050, text=»LMP1ON EQU *«, t00=0x005c, t01=0x00dc}
0x9098…90b4               Head {h00=0x0018, h01=0x0050, text=» LDK A7,/B7 LIGHT ON«, t00=0x005c, t01=0x00f0}
0x90b4…90c6               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x005c, t01=0x010c}
0x90c6…90dc               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005c, t01=0x011e}
0x90dc…90ec               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0134}
0x90ec…9100               Head {h00=0x0010, h01=0x0050, text=»LMP1OF EQU *«, t00=0x005c, t01=0x0144}
0x9100…911e               Head {h00=0x001a, h01=0x0050, text=» LDK A7,/B8 LIGHT OFF «, t00=0x005c, t01=0x0158}
0x911e…9130               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x005c, t01=0x0176}
0x9130…9146               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005c, t01=0x0188}
0x9146…9156               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x000e}
0x9156…916a               Head {h00=0x0010, h01=0x0050, text=»LMP2ON EQU *«, t00=0x005d, t01=0x001e}
0x916a…9186               Head {h00=0x0018, h01=0x0050, text=» LDK A7,/B7 LIGHT ON«, t00=0x005d, t01=0x0032}
0x9186…9198               Head {h00=0x000e, h01=0x0050, text=» LDK A3,4 «, t00=0x005d, t01=0x004e}
0x9198…91ae               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005d, t01=0x0060}
0x91ae…91be               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x0076}
0x91be…91d2               Head {h00=0x0010, h01=0x0050, text=»LMP2OF EQU *«, t00=0x005d, t01=0x0086}
0x91d2…91f0               Head {h00=0x001a, h01=0x0050, text=» LDK A7,/B8 LIGHT OFF «, t00=0x005d, t01=0x009a}
0x91f0…9202               Head {h00=0x000e, h01=0x0050, text=» LDK A3,4 «, t00=0x005d, t01=0x00b8}
0x9202…9218               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005d, t01=0x00ca}
0x9218…9228               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x00e0}
0x9228…923c               Head {h00=0x0010, h01=0x0050, text=»LMP3ON EQU *«, t00=0x005d, t01=0x00f0}
0x923c…925a               Head {h00=0x001a, h01=0x0050, text=» LDK A7,/B8 LIGHT OFF «, t00=0x005d, t01=0x0104}
0x925a…926c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x005d, t01=0x0122}
0x926c…9282               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005d, t01=0x0134}
0x9282…9290               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x014a}
0x9290…9298               Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0158}
0x9298…92a0               Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0160}
0x92a0…92b0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x0168}
0x92b0…92c4               Head {h00=0x0010, h01=0x0050, text=»LMP3OF EQU *«, t00=0x005d, t01=0x0178}
0x92c4…92e0               Head {h00=0x0018, h01=0x0050, text=» LDK A7,/B7 LIGHT ON«, t00=0x005d, t01=0x018c}
0x92e0…92f2               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x005e, t01=0x0018}
0x92f2…9308               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005e, t01=0x002a}
0x9308…9318               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x0040}
0x9318…9320               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0050}
0x9320…9334               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x005e, t01=0x0058}
0x9334…933c               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x006c}
0x933c…936e               Head {h00=0x002e, h01=0x0050, text=»OFL:ON LDK A7,X'B7' TURN ON "OFFLINE" LAMP«, t00=0x005e, t01=0x0074}
0x936e…9380               Head {h00=0x000e, h01=0x0050, text=» LDK A3,1 «, t00=0x005e, t01=0x00a6}
0x9380…9396               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005e, t01=0x00b8}
0x9396…93a6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x00ce}
0x93a6…93ae               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00de}
0x93ae…93b6               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00e6}
0x93b6…93ea               Head {h00=0x0030, h01=0x0050, text=»OFL:OF LDK A7,X'B8' TURN OFF "OFFLINE" LAMP «, t00=0x005e, t01=0x00ee}
0x93ea…93fc               Head {h00=0x000e, h01=0x0050, text=» LDK A3,1 «, t00=0x005e, t01=0x0122}
0x93fc…9412               Head {h00=0x0012, h01=0x0050, text=» CF A14,SDISP «, t00=0x005e, t01=0x0134}
0x9412…9422               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x014a}
0x9422…942a               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x015a}
0x942a…9432               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0162}
0x9432…943a               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x016a}
0x943a…9446               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0172}
0x9446…944e               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x017e}
0x944e…9462               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x005e, t01=0x0186}
0x9462…9476               Head {h00=0x0010, h01=0x0050, text=»OFL:ON EQU *«, t00=0x005f, t01=0x000a}
0x9476…948a               Head {h00=0x0010, h01=0x0050, text=»OFL:OF EQU *«, t00=0x005f, t01=0x001e}
0x948a…949a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x0032}
0x949a…94a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0042}
0x94a6…94b4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x004e}
0x94b4…94bc               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x005c}
0x94bc…94c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0064}
0x94c6…9506               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005f, t01=0x006e}
0x9506…9510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00ae}
0x9510…9520               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x005f, t01=0x00b8}
0x9520…952a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00c8}
0x952a…9552               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x005f, t01=0x00d2}
0x9552…955c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00fa}
0x955c…959c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005f, t01=0x0104}
0x959c…95a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0144}
0x95a6…95ba               Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x005f, t01=0x014e}
0x95ba…95d0               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBSD«, t00=0x005f, t01=0x0162}
0x95d0…95e6               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x005f, t01=0x0178}
0x95e6…95fe               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBCW,A8 «, t00=0x005f, t01=0x018e}
0x95fe…960a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0060, t01=0x0016}
0x960a…961a               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0060, t01=0x0022}
0x961a…962a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x0032}
0x962a…9638               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0042}
0x9638…9642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0050}
0x9642…9682               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0060, t01=0x005a}
0x9682…968c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x009a}
0x968c…96a0               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0060, t01=0x00a4}
0x96a0…96aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00b8}
0x96aa…96e8               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0060, t01=0x00c2}
0x96e8…96f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0100}
0x96f2…9732               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0060, t01=0x010a}
0x9732…973c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x014a}
0x973c…9762               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0060, t01=0x0154}
0x9762…978a               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0060, t01=0x017a}
0x978a…97bc               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x0061, t01=0x0012}
0x97bc…97e8               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x0061, t01=0x0044}
0x97e8…97f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0070}
0x97f2…9806               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x0061, t01=0x007a}
0x9806…9818               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0061, t01=0x008e}
0x9818…982c               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x0061, t01=0x00a0}
0x982c…9852               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0061, t01=0x00b4}
0x9852…9874               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x0061, t01=0x00da}
0x9874…988c               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x0061, t01=0x00fc}
0x988c…98ae               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x0061, t01=0x0114}
0x98ae…98de               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x0061, t01=0x0136}
0x98de…98ee               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0166}
0x98ee…9912               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x0061, t01=0x0176}
0x9912…992a               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x0062, t01=0x000a}
0x992a…993c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0062, t01=0x0022}
0x993c…9952               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x0062, t01=0x0034}
0x9952…9966               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x0062, t01=0x004a}
0x9966…996e               Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x005e}
0x996e…99a8               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0062, t01=0x0066}
0x99a8…99d0               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x0062, t01=0x00a0}
0x99d0…99fa               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x0062, t01=0x00c8}
0x99fa…9a1e               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x0062, t01=0x00f2}
0x9a1e…9a40               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x0062, t01=0x0116}
0x9a40…9a5c               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x0062, t01=0x0138}
0x9a5c…9a80               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x0062, t01=0x0154}
0x9a80…9ab6               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0062, t01=0x0178}
0x9ab6…9abe               Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x001e}
0x9abe…9ae0               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x0063, t01=0x0026}
0x9ae0…9afa               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x0063, t01=0x0048}
0x9afa…9b12               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x0063, t01=0x0062}
0x9b12…9b4a               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x0063, t01=0x007a}
0x9b4a…9b5a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x00b2}
0x9b5a…9b68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x00c2}
0x9b68…9b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00d0}
0x9b72…9bb2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0063, t01=0x00da}
0x9bb2…9bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x011a}
0x9bbc…9bd0               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x0063, t01=0x0124}
0x9bd0…9bda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0138}
0x9bda…9c18               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x0063, t01=0x0142}
0x9c18…9c22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0180}
0x9c22…9c64               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0063, t01=0x018a}
0x9c64…9c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x003c}
0x9c6e…9c84               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0064, t01=0x0046}
0x9c84…9caa               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0064, t01=0x005c}
0x9caa…9cd2               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0064, t01=0x0082}
0x9cd2…9d04               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x0064, t01=0x00aa}
0x9d04…9d2a               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x0064, t01=0x00dc}
0x9d2a…9d34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0102}
0x9d34…9d48               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x0064, t01=0x010c}
0x9d48…9d5a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0064, t01=0x0120}
0x9d5a…9d6e               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x0064, t01=0x0132}
0x9d6e…9d94               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0064, t01=0x0146}
0x9d94…9db4               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x0064, t01=0x016c}
0x9db4…9dcc               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x0064, t01=0x018c}
0x9dcc…9e10               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x0014}
0x9e10…9e40               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x0065, t01=0x0058}
0x9e40…9e84               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x0088}
0x9e84…9e9c               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x0065, t01=0x00cc}
0x9e9c…9eae               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x0065, t01=0x00e4}
0x9eae…9ed0               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x0065, t01=0x00f6}
0x9ed0…9f00               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x0065, t01=0x0118}
0x9f00…9f10               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0148}
0x9f10…9f3c               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x0065, t01=0x0158}
0x9f3c…9f54               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x0065, t01=0x0184}
0x9f54…9f66               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0066, t01=0x000c}
0x9f66…9f76               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x001e}
0x9f76…9f8c               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x0066, t01=0x002e}
0x9f8c…9f9e               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x0066, t01=0x0044}
0x9f9e…9fac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x0056}
0x9fac…9fb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0064}
0x9fb6…9ff0               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0066, t01=0x006e}
0x9ff0…9ffa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00a8}
0x9ffa…a00a               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x0066, t01=0x00b2}
0xa00a…a014               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00c2}
0xa014…a04e               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x0066, t01=0x00cc}
0xa04e…a058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0106}
0xa058…a092               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0066, t01=0x0110}
0xa092…a09c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x014a}
0xa09c…a0bc               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x0066, t01=0x0154}
0xa0bc…a0d2               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0066, t01=0x0174}
0xa0d2…a0dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x018a}
0xa0dc…a0e6 (103, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0004}
0xa0e6…a0fa               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x0067, t01=0x000e}
0xa0fa…a10c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0067, t01=0x0022}
0xa10c…a122               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0067, t01=0x0034}
0xa122…a148               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x0067, t01=0x004a}
0xa148…a15a               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0067, t01=0x0070}
0xa15a…a184               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x0067, t01=0x0082}
0xa184…a194               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x00ac}
0xa194…a1a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x00bc}
0xa1a2…a1aa               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x00ca}
0xa1aa…a1be               Head {h00=0x0010, h01=0x0050, text=» IFT MZERO=1«, t00=0x0067, t01=0x00d2}
0xa1be…a1c6               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x00e6}
0xa1c6…a20e               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0067, t01=0x00ee}
0xa20e…a218               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0136}
0xa218…a242               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0067, t01=0x0140}
0xa242…a26e               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0067, t01=0x016a}
0xa26e…a278               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0008}
0xa278…a2b2               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0068, t01=0x0012}
0xa2b2…a2ba               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x004c}
0xa2ba…a2ce               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0068, t01=0x0054}
0xa2ce…a2f2               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0068, t01=0x0068}
0xa2f2…a32e               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0068, t01=0x008c}
0xa32e…a354               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0068, t01=0x00c8}
0xa354…a35c               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x00ee}
0xa35c…a370               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0068, t01=0x00f6}
0xa370…a394               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0068, t01=0x010a}
0xa394…a3d0               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0068, t01=0x012e}
0xa3d0…a3f6               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0068, t01=0x016a}
0xa3f6…a41c               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0068, t01=0x0190}
0xa41c…a434               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0069, t01=0x0026}
0xa434…a43c               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x003e}
0xa43c…a448               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0046}
0xa448…a456               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0052}
0xa456…a460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0060}
0xa460…a4a4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0069, t01=0x006a}
0xa4a4…a4ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00ae}
0xa4ae…a4be               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x0069, t01=0x00b8}
0xa4be…a4c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00c8}
0xa4c8…a504               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x0069, t01=0x00d2}
0xa504…a540               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x0069, t01=0x010e}
0xa540…a568               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x0069, t01=0x014a}
0xa568…a59e               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x0069, t01=0x0172}
0xa59e…a5de               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x006a, t01=0x0018}
0xa5de…a604               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x006a, t01=0x0058}
0xa604…a632               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x006a, t01=0x007e}
0xa632…a63c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00ac}
0xa63c…a67a               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x006a, t01=0x00b6}
0xa67a…a6a2               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x006a, t01=0x00f4}
0xa6a2…a6ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x011c}
0xa6ac…a6f0               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006a, t01=0x0126}
0xa6f0…a6fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x016a}
0xa6fa…a70e               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x006a, t01=0x0174}
0xa70e…a738               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x006a, t01=0x0188}
0xa738…a764               Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP2OF TURN OFF 'ERROR' LAMP«, t00=0x006b, t01=0x0022}
0xa764…a79c               Head {h00=0x0034, h01=0x0050, text=» CF A14,LMP1OF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x006b, t01=0x004e}
0xa79c…a7ac               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0086}
0xa7ac…a7ba               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0096}
0xa7ba…a7c2               Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x00a4}
0xa7c2…a7ca               Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x00ac}
0xa7ca…a812               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x006b, t01=0x00b4}
0xa812…a81c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00fc}
0xa81c…a854               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x006b, t01=0x0106}
0xa854…a87c               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x006b, t01=0x013e}
0xa87c…a886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0166}
0xa886…a8ca               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006b, t01=0x0170}
0xa8ca…a8d2               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x0024}
0xa8d2…a90c               Head {h00=0x0036, h01=0x0050, text=»COPY LD A9,COPNO,TCABAS GET HARDCOPY TASK IDENTITY«, t00=0x006c, t01=0x002c}
0xa90c…a940               Head {h00=0x0030, h01=0x0050, text=» RF(NP) COP:10 NO HARDCOPY DEVICE CONNECTED «, t00=0x006c, t01=0x0066}
0xa940…a948               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x009a}
0xa948…a97c               Head {h00=0x0030, h01=0x0050, text=» CF A14,LMP1ON TURN ON " KEYBOARD INHIBIT " «, t00=0x006c, t01=0x00a2}
0xa97c…a9a6               Head {h00=0x0026, h01=0x0050, text=» LDR A7,A9 HARDCOPY TASK IDENTITY «, t00=0x006c, t01=0x00d6}
0xa9a6…a9ae               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x0100}
0xa9ae…a9e2               Head {h00=0x0030, h01=0x0050, text=» IM VDUBSY,TCABAS SET VDU BUSY WHEN HARDCOPY«, t00=0x006c, t01=0x0108}
0xa9e2…a9f4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x006c, t01=0x013c}
0xa9f4…aa2c               Head {h00=0x0034, h01=0x0050, text=» ORS A1,KBINH,TCABAS SET KEYBOARD TOT. INHIBITED«, t00=0x006c, t01=0x014e}
0xaa2c…aa34               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x0186}
0xaa34…aa3c               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x018e}
0xaa3c…aa62               Head {h00=0x0022, h01=0x0050, text=» CF A14,GETT:A GET T:A ADDRESS«, t00=0x006d, t01=0x0008}
0xaa62…aa9a               Head {h00=0x0034, h01=0x0050, text=» ST A1,CRE,TCABAS SAVE HARDCP. DEV. TCA ADDRESS «, t00=0x006d, t01=0x002e}
0xaa9a…aad4               Head {h00=0x0036, h01=0x0050, text=» ST CREBAS,VDUT.A,TCABAS SAVE VDU TASK T:A ADDRESS«, t00=0x006d, t01=0x0066}
0xaad4…aadc               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00a0}
0xaadc…ab10               Head {h00=0x0030, h01=0x0050, text=» LDR A1,TCABAS PASS VDU BUFFER AS PARAMETER «, t00=0x006d, t01=0x00a8}
0xab10…ab34               Head {h00=0x0020, h01=0x0050, text=» LKM  ACTIVATE HARDCOPY TASK«, t00=0x006d, t01=0x00dc}
0xab34…ab44               Head {h00=0x000c, h01=0x0050, text=» DATA -4«, t00=0x006d, t01=0x0100}
0xab44…ab58               Head {h00=0x0010, h01=0x0050, text=» DATA HARDCP«, t00=0x006d, t01=0x0110}
0xab58…ab66               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0124}
0xab66…ab6e               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0132}
0xab6e…ab76               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x013a}
0xab76…ab8a               Head {h00=0x0010, h01=0x0050, text=»COP:05 EQU *«, t00=0x006d, t01=0x0142}
0xab8a…abbc               Head {h00=0x002e, h01=0x0050, text=» LD A1,VDUBSY,TCABAS HARDCOPY GOING ON ???«, t00=0x006d, t01=0x0156}
0xabbc…abe8               Head {h00=0x0028, h01=0x0050, text=» RF(Z) COP:08 NO!!! ALREADY FINISHED«, t00=0x006d, t01=0x0188}
0xabe8…abf0               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x0024}
0xabf0…ac16               Head {h00=0x0022, h01=0x0050, text=» LDKL A8,10 DELAY TASK 1 SEK. «, t00=0x006e, t01=0x002c}
0xac16…ac22               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x006e, t01=0x0052}
0xac22…ac32               Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x006e, t01=0x005e}
0xac32…ac3a               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x006e}
0xac3a…ac64               Head {h00=0x0026, h01=0x0050, text=» RB COP:05 CHECK IF HARDCOPY READY«, t00=0x006e, t01=0x0076}
0xac64…ac6c               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x00a0}
0xac6c…aca6               Head {h00=0x0036, h01=0x0050, text=»COP:08 CF A14,LMP1OF TURN OFF " KEYBOARD INHIBIT "«, t00=0x006e, t01=0x00a8}
0xaca6…acbe               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x006e, t01=0x00e2}
0xacbe…acc6               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x00fa}
0xacc6…acce               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x0102}
0xacce…acfc               Head {h00=0x002a, h01=0x0050, text=»COP:10 CF A14,ERROR TURN ON ERROR LAMP«, t00=0x006e, t01=0x010a}
0xacfc…ad14               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x006e, t01=0x0138}
0xad14…ad20               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x006e, t01=0x0150}
0xad20…ad24               Head {h00=0x4004, h01=0x0000}
0xad24…ad28               00 6e 01 5c                                                                                                                                                                                                                                       ┆ n  ┆
0xad28…ad30 (111, 1, 8)   20 04 00 00 00 6f 00 04                                                                                                                                                                                                                           ┆     o  ┆
0xad30…ad80 (112, 0, 400) f0 3a 83 20 9a d0 82 08 55 0a f6 a1 99 4e 82 20 9b 34 9a 0c f6 a1 99 b0 57 08 82 40 9a cc 12 23 55 2e 83 20 9b 3a 90 41 9a ca 81 40 9a ca f6 a1 a2 12 82 20 ff dc 82 41 9a cc 81 20 9a ce 02 70 83 40 9b 40 f6 a1 98 3e f6 a1 98 54 83 41 9b 40   ┆ :      U    N   4      W  @   #U.   : A   @           A       p @ @   >   T A @┆
0xad80…add0               f0 3a 81 3b 9e a0 00 08 82 5b 00 06 83 5b 00 04 84 5b 00 02 f6 83 82 5a 00 06 83 5a 00 04 84 5a 00 02 96 a0 00 08 81 3a f0 3a 87 1a 17 04 83 3c 82 2c 01 02 91 3d 92 3d 91 0c f6 a1 99 d2 e4 24 e4 2d 11 01 13 01 1a 01 59 0c f0 3a 02 01 f6 a1   ┆ : ;     [   [   [     Z   Z   Z       : :     < ,   = =       $ -      Y  :    ┆
0xadd0…ae20               99 d2 e1 2d f0 3a 02 02 f6 a1 99 d2 82 04 22 ff 3a 64 e2 48 99 86 e2 2d 13 01 82 04 22 0f e2 48 99 86 e2 2d f0 3a 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 02 04 f6 a1 99 d2 e1 41 99 a7 39 68 f6 a1 99 6c 01 aa 13 01 5f 40 f6 a1 99 d2   ┆   - :        " :d H   -    "  H   - :0123456789ABCDEF       A  9h   l    _@    ┆
0xae20…ae70               07 20 e7 2d 13 01 1a 01 59 0a f0 3a 9a 40 9a c8 1a 6e 59 18 f0 3a 92 40 9a cc 55 04 f6 a1 98 e2 f0 3a 83 40 9a c8 92 41 9a c8 52 06 f6 a1 98 60 5f 10 93 20 9a c8 f0 3a 02 06 f6 a1 99 d2 82 0c f6 a1 a2 12 9b 08 1b 06 93 41 9a c8 f0 3a 02 06   ┆   -    Y  : @   nY  : @  U      : @   A  R    `_      :                 A   :  ┆
0xae70…aec0               f6 a1 99 d2 f6 a1 a2 18 f0 3a f6 a1 66 1c 81 02 11 0c 81 43 00 02 01 0a 91 08 81 43 00 04 07 86 28 04 00 01 81 40 9a c8 19 08 81 41 9a c8 87 42 00 08 27 03 8c 20 92 d8 22 92 2a 8a 55 00 00 00 02 00 84 20 80 05 21 01 09 29 22 44 52 00 12 14   ┆         :  f      C       C    (    @     A   B  '     " * U         !  )"DR   ┆
0xaec0…af10 (113, 0, 400) f0 3a 85 08 02 08 f6 a1 99 d2 82 14 04 07 f6 a1 66 b2 f0 3a 80 02 9a 58 00 00 00 00 00 00 00 00 00 20 e1 41 00 00 20 30 4f 4b 3f 20 80 a0 97 5e 81 52 00 04 e2 04 e1 41 97 5f 01 00 22 ff 50 2c e2 41 97 53 07 86 28 04 00 01 a0 41 97 5c 07 c2   ┆ :              f  :   X           A   0OK?    ^ R     A _  " P, A S  (    A    ┆
0xaf10…af60               80 a0 97 52 28 04 00 01 81 40 97 5c 5a 14 e1 60 97 54 19 59 50 06 11 0b 5c 3e 19 01 f0 3a 9e a0 00 08 82 5b 00 02 83 5b 00 04 84 5b 00 06 85 5b 00 08 82 24 ea 20 20 20 50 34 03 01 9a 20 01 90 ff 92 00 00 80 00 00 31 94 0c 11 06 83 24 85 0c   ┆   R(    @  Z  ` T YP    >   :     [   [   [   [   $    P4             1     $  ┆
0xaf60…afb0               eb 10 50 1a 52 0a 9d 10 9b 14 f6 a1 98 1c 5f 08 9c 14 93 10 f6 a1 98 1c 5f 08 96 a0 00 04 82 5a 00 02 83 5a 00 04 84 5a 00 06 85 5a 00 08 96 a0 00 08 f0 3a 83 25 11 0c 1a 0c 58 22 16 0c ee 20 01 9a 52 02 f6 9d 83 24 f0 3a 87 1a 17 04 81 3c   ┆  P R         _         _      Z   Z   Z   Z       : %    X"      R    $ :     <┆
0xafb0…b000               e2 24 22 ff 92 3d 84 40 00 00 81 41 50 41 47 45 3a 20 20 20 20 20 9a 58 00 00 f0 3a 07 02 87 41 00 00 57 00 83 40 00 00 13 6e 13 02 83 41 00 00 83 20 ff 92 83 41 00 00 80 a0 00 00 8f 20 00 00 90 41 00 00 55 00 80 a0 00 00 f6 a1 00 00 80 a0   ┆ $"  = @   APAGE:      X   :   A  W  @   n   A       A           A  U           ┆
0xb000…b050               00 00 28 04 00 02 81 40 00 00 82 40 00 00 83 20 00 00 83 41 00 00 82 41 00 00 f6 a1 00 00 07 86 28 04 00 01 87 42 00 08 27 03 50 00 84 20 00 00 84 41 00 00 8f 20 92 d8 08 90 01 08 42 44 80 00 00 00 02 10 00 00 00 00 10 00 00 00 00 00 00 1c   ┆  (    @   @       A   A        (    B  ' P      A          BD                  ┆
0xb050…b0a0 (114, 0, 400) f0 3a 20 31 00 00 82 08 55 00 f6 a1 00 00 82 20 30 30 9a 0c f6 a1 00 00 57 00 30 30 30 30 30 30 30 30 83 20 03 39 80 96 90 a0 00 24 e1 52 00 09 21 01 50 0e f6 a1 9c 00 e3 41 9b b3 f6 a1 9b fc 57 04 f6 a1 9c 00 90 a0 ff ec f0 3a 07 86 57 02   ┆ : 1    U       00      W 00000000   9     $ R  ! P      A      W          :  W ┆
0xb0a0…b0f0               07 a2 28 04 00 01 86 42 00 08 a6 20 c6 17 8c 20 9d 3c f0 3a 07 06 28 04 00 01 f0 3a 28 04 00 02 81 42 00 08 a1 20 c6 17 50 1c 39 c5 8e 20 9d 3c 03 37 f6 a1 9b d6 07 b8 28 04 00 01 f6 a1 9c 9a f6 a1 9c 14 5f 2a 02 03 81 20 9b cd 57 f2 01 07   ┆  (    B         < :  (    :(    B      P 9    < 7      (           _*      W   ┆
0xb0f0…b140               91 0a 02 07 e3 24 e3 49 9b b8 19 01 1a 01 5e 0c 81 0a 11 21 e2 24 ea 21 20 20 50 02 11 01 02 04 19 01 e3 24 e3 49 9b c2 1a 01 5e 0c 81 0a 11 24 02 02 e3 24 e3 49 9b c7 19 01 1a 01 5e 0c 02 01 81 20 9b c1 f6 a1 9d 5a 57 0e 81 10 f6 d3 00 12   ┆     $ I      ^    ! $ !  P        $ I    ^    $   $ I      ^          ZW       ┆
0xb140…b190               57 04 8f 20 3b ee 84 04 01 31 e1 41 9b b3 01 21 91 12 02 03 e3 24 e3 49 9b b4 19 01 1a 01 5e 0c 02 07 81 20 9b d1 f6 a1 9d 5a 02 01 81 20 9b c1 f6 a1 9d 40 80 96 90 a0 00 24 81 20 80 00 e1 52 00 07 81 23 81 57 00 10 01 01 e2 52 00 0f 22 01   ┆W   ;    1 A   !     $ I      ^          Z         @     $     R   # W     R  " ┆
0xb190…b1e0               99 08 81 43 00 0a 02 1f 92 04 81 20 9b b3 81 43 00 02 82 43 00 04 07 80 28 04 00 01 86 42 00 08 a6 20 04 01 50 10 07 b7 28 04 00 01 86 42 00 08 a6 20 a2 41 54 16 e1 52 00 00 00 15 20 00 80 01 21 44 08 00 10 10 50 22 08 29 40 00 02 00 00 04   ┆   C           C   C    (    B      P   (    B     AT  R        !D    P" )@     ┆
0xb1e0…b230 (115, 0, 400) 00 09 21 01 50 04 f6 a1 9b fc f6 a1 9c 00 90 a0 ff ec f0 3a 8f 20 3b f2 e3 24 23 ff 1b 39 50 06 13 3a e3 25 f0 3a 03 30 e3 25 19 01 1a 01 5e 18 f0 3a 03 30 e3 25 19 01 1a 01 5e 08 f0 3a 50 2c e2 41 97 53 07 86 28 04 00 01 a0 41 97 5c 07 c2   ┆  ! P              :  ;  $#  9P  : % : 0 %    ^  : 0 %    ^  :P, A S  (    A    ┆
0xb230…b280               80 a0 97 52 28 04 00 01 81 40 97 5c 5a 14 e1 60 97 54 19 59 50 06 11 0b 5c 3e 19 01 f0 3a 9e a0 00 08 82 5b 00 02 83 5b 00 04 84 5b 00 06 85 5b 00 08 82 24 ea 20 20 20 50 34 03 01 9a 20 01 90 ff 92 00 00 80 00 00 31 94 0c 11 06 83 24 85 0c   ┆   R(    @  Z  ` T YP    >   :     [   [   [   [   $    P4             1     $  ┆
0xb280…b2d0               eb 10 50 1a 52 0a 9d 10 9b 14 f6 a1 98 1c 5f 08 9c 14 93 10 f6 a1 98 1c 5f 08 96 a0 00 04 82 5a 00 02 83 5a 00 04 84 5a 00 06 85 5a 00 08 96 a0 00 08 f0 3a 83 25 11 0c 1a 0c 58 22 16 0c ee 20 01 9a 52 02 f6 9d 83 24 f0 3a 87 1a 17 04 81 3c   ┆  P R         _         _      Z   Z   Z   Z       : %    X"      R    $ :     <┆
0xb2d0…b320               e2 24 22 ff 92 3d 84 40 00 00 81 41 50 41 47 45 3a 20 20 20 20 20 9a 58 00 00 f0 3a 07 02 87 41 00 00 57 00 83 40 80 00 9e 6e 00 01 00 00 00 00 9e 56 80 00 9e 5c 00 03 00 00 00 00 00 00 02 23 18 00 20 20 20 2b 3a 20 20 2b 3f 07 20 2b 20 2a   ┆ $"  = @   APAGE:      X   :   A  W  @   n       V             #     +:  +?  + *┆
0xb320…b370               43 41 4e 2a 20 20 81 40 00 00 82 40 00 00 83 20 00 00 83 41 00 00 82 41 00 00 f6 a1 00 00 07 86 28 04 00 01 87 42 00 08 27 03 50 00 84 20 00 00 84 41 00 00 8f 20 92 d8 0a 10 00 00 42 44 80 00 00 00 02 10 00 00 00 00 10 08 a0 00 00 00 00 1c   ┆CAN*   @   @       A   A        (    B  ' P      A          BD                  ┆
0xb370…b3c0 (116, 0, 400) f0 3a 20 31 00 00 82 08 55 00 f6 a1 00 00 82 20 30 30 9a 0c f6 a1 00 00 57 00 30 30 30 30 30 30 30 30 83 20 03 39 80 96 90 a0 00 24 e1 52 00 09 21 01 50 00 f6 a1 00 00 e3 41 9b b3 9d 66 9e 6e 9e 6e 20 2b 20 2a 43 4f 4d 54 41 42 20 4f 56 46   ┆ : 1    U       00      W 00000000   9     $ R  ! P      A   f n n + *COMTAB OVF┆
0xb3c0…b410               4c 2a 20 2b 20 2a 54 4f 4f 20 4c 4f 4e 47 2a 20 20 2b 20 2a 53 54 52 54 41 42 20 4f 56 46 4c 2a 20 2b 20 2a 4e 55 4d 20 4f 56 46 4c 2a 20 08 0a 08 08 20 2c 2a 0d 2e 20 27 2f 84 27 91 a0 00 02 e9 a0 9d b6 8e 20 a1 7e f0 3a e7 44 00 02 e7 61   ┆L* + *TOO LONG*  + *STRTAB OVFL* + *NUM OVFL*      ,* . '/ '           ~ : D   a┆
0xb410…b460               9e 40 90 41 9e 40 07 86 57 02 07 85 81 41 9e 4c 82 41 9e 4e 80 a0 9e 4a 28 04 00 01 f0 3a 81 20 9e 56 81 41 9e 48 07 c2 80 a0 9e 3e 28 04 00 01 81 42 00 08 50 14 21 f3 8c 20 a1 82 9d 14 e5 60 9e 40 90 41 9e 40 25 ff 57 2e 81 20 9e 64 02 08   ┆ @ A @  W    A L A N   J(    :   V A H     >(    B  P !        ` @ A @% W.   d  ┆
0xb460…b4b0               f6 a1 9f 46 86 c0 9e 36 01 01 a1 40 9e 3c 50 7e 82 40 9e de 82 41 9e 40 81 20 9e 6c 9a 04 f6 a1 9f 46 81 c0 9e dc 57 84 01 04 82 14 1a 30 52 0c 1a 09 55 30 1a 08 52 04 1a 19 55 2c 02 06 1a 01 52 2e ed 49 9f 22 5c 0a 57 22 ed 41 9f 28 50 22   ┆   F   6   @ <P~ @   A @   l     F    W      0R   U0  R   U,    R. I "  W" A (P"┆
0xb4b0…b500               ed 41 9f 29 57 1c 01 02 19 01 52 16 ed 45 9f 22 50 10 5f 0c 99 04 57 0a 11 00 57 06 19 08 57 02 39 0f f6 81 81 5a 00 02 96 a0 00 04 81 5b 00 02 f0 3a 01 01 81 41 9e 3c 00 00 00 07 80 00 00 00 00 50 a1 50 a4 04 a2 52 54 a0 00 22 41 00 00 14   ┆ A )W     R  E "P _   W   W   W 9    Z       [   :   A <         P P   RT  "A   ┆

Reduced view