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

⟦1407d71a2⟧ 

    Length: 52490 (0xcd0a)
    Notes: pts_type(SC)
    Names: »START.SC«

Derivation

└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »DK3270/START.SC« 
    └─⟦this⟧ »REMIT2/START.SC«

PTS(SC)

	IDENT START   	REL 2.1*79-10-20 870150540210 

			=1, ODD BUFFER ADDRESS 
			REL 2.1 79-05-23 
			=2, 6234 LAMPS 
			REL 2.1 79-05-23 
			=3, UNDEFINED LABEL
			REL 2.1 79-05-23 
			=4, CURSOR STOPS AT LAST POS. EACH LINE
			REL 2.1 79-05-23 
			=5, RESET KEY FOR KB6235 
			REL 2.1 79-05-23 
************************************************************* 
* 
*   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	LINHON,LINHOF,ATMASB 
	ENTRY	LSAVOF,LSAVON
	ENTRY	EMULA
	ENTRY	LIOLON	TURN ON OFFLINE LAMP
	ENTRY	LIOLOF	TURN OFF OFFLINE LAMP 
	ENTRY	VDUKB	KB3270 (CREDIT)
	ENTRY	DCTASK 
	ENTRY	DC1INQ 
	ENTRY	DC2INQ 
	ENTRY	REQTIM	SET REQUEST TIMER 
	ENTRY	ICWRTE 
* 
* 
* 
*     EXTERNAL REFERENSES 
* 
* 
* 
	EXTRN	DCINP
	EXTRN	DCGETM 
	EXTRN	ICREAD 
	EXTRN	GTRBUF 
	EXTRN	RLRBUF 
	EXTRN	ERASE	VDUPRT 
	EXTRN	TRPF 
	EXTRN	SETCUR 
	EXTRN	WCHAR
	EXTRN	TRPA 
	EXTRN	ERASUA 
	EXTRN	DISPL
	EXTRN	ERASUP 
* 
	EXTRN	KEYCNV	KEY CONVERSION IF NOT PTS 6272
	EXTRN	TASCII 
* 
	EXTRN	I:EVA0	CREDIT EVALUATION ROUTINE 
	EXTRN	I:RT1	RETURN TO CREDIT CODE
	EJECT


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

* 
KB6272	EQU	0	IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' 
			USE THE KEY CONVERSION TABLE IN 'TB3270' 
KEYLST	EQU	0	KEY LOCK STATUS SAVED IN 'KEYS'
OFLIN	EQU	1 
DCLIN	EQU	1	NUMBER OF MAIN FRAMES (1 OR 2)
PFX	EQU	1 
PAX	EQU	1 
IN:DL	EQU	1	INSERT&DELETE FUNCTIONS 
COPCMD	EQU	1	COPY COMMAND (ONLY TO PRINTER) IF := 1 
COPL	EQU	1	COPY LOCK IF := 1
	EJECT
* 
* 
*     EQUATES 
* 
RSET	EQU	/B2	RESET KEY
*	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
* 
ECBDC	EQU	-DIS-14 
	IFT	DCLIN=2
	IFT	COPCMD=1 
ECBDC2	EQU	ECBDC-DIS
ECBICR	EQU	ECBDC2-DIS 
ECBICW	EQU	ECBICR-DIS 
	XIF
	IFT	DCLIN=2
	IFF	COPCMD=1 
ECBDC2	EQU	ECBDC-DIS
ECBICW	EQU	ECBDC2-DIS 
	XIF
	IFF	DCLIN=2
	IFT	COPCMD=1 
ECBICR	EQU	ECBDC-DIS
ECBICW	EQU	ECBICR-DIS 
	XIF
	IFF	DCLIN=2
	IFF	COPCMD=1 
ECBICW	EQU	ECBDC-DIS
	XIF
ECBVDU	EQU	ECBICW-DIS 
ECBKB	EQU	ECBVDU-DIS
ECBSD	EQU	ECBKB-DIS 
	EJECT
* 
* 
*	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
ICWORK	EQU	DCLENG+2	WORK FIELD INTERTASK COMM 
INTATT	EQU	ICWORK+2	INTENSITY ATTRIBUTE 
OFFFLG	EQU	INTATT+2	OFFLINE FLAG
COPNO	EQU	OFFFLG+2	HARDCOPY TASK ID 
CCC	EQU	COPNO+2	COPY COMMAND CHARACTER
MAIN	EQU	CCC+2	MAIN FRAME 
MODE	EQU	MAIN+2	INSERT MODE SWITCH
KEYS	EQU	MODE+2	KEY LOCK STATUS 
ECBDCC	EQU	KEYS+2	ECB ADDRESS LAST READ DC
ECBBLK	EQU	ECBDCC+2	ECBS FOR MULTIPLE WAIT &C 
RDMORE	EQU	ECBBLK+10	BRANCH ADDRESS NEXT READ KB
	EJECT
NULL	EQU	/7F	NULL CHARACTER 
DUPCH	EQU	/7B 
FMCH	EQU	/60
LBVDU	EQU	1920	1920 CHAR DISPLAY	6344 
LPAGE	EQU	48	LINES ON ONE PAGE
LLINE	EQU	80	80 CHAR PER DISPLAY LINE 
* 
*	CONFIG DATA 'CB1' REL ADDRESSES 
* 
NBRKBV	EQU	0	NUMBER OF KB/VDUS
NBRGTP	EQU	NBRKBV+2	NUMBER OF GTPS
* 
MF1KBV	EQU	NBRGTP+2	DV ADDRESSES KB/VDU MF #1 
MF1GTP	EQU	MF1KBV+16	DV ADDRESSES GTPS MF # 1 
	IFT	DCLIN=2
MF2KBV	EQU	MF1GTP+16
MF2GTP	EQU	MF2KBV+16
	XIF
	EJECT
* 
*	KEY TABLE	FIXED ENTRY FOR EACH FUNCTION 
* 
KEYTAB	EQU	*
	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	NUM	,	DK
	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	[
	DATA	CHAR	BACK SLASH 
	DATA	CHAR	]
	DATA	CHAR	CIRCOMFLEX 
	DATA	CHAR	UNDERLINE
* 
	DATA	RETURN	/60 CANNOT BE USED 
	DATA	CHAR	LOWER CASE 
	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
* 
	IFT	KEYLST=1 
	DATA	KEYL	KEYLOCK
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	XIF
	IFF	KEYLST=1 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	XIF
	DATA	CHAR	LOWER CASE X 
	DATA	CHAR
	DATA	CHAR
	DATA	RETURN	/7B-/7F CANNOT BE USED 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	IFT	PAX=1
	DATA	PAEX
	XIF
	IFF	PAX=1
	DATA	RETURN
	XIF
	DATA	PA1 
	DATA	PA2 
	DATA	PA3 
	DATA	PA410	PA4 - PA10 (ALFASKOP) 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	CLEAR 
	IFT	PFX=1
	DATA	PFEX
	XIF
	IFF	PFX=1
	DATA	RETURN
	XIF
	DATA	PF	1
	DATA	PF	2
	DATA	PF	3
* 
	DATA	PF	4
	DATA	PF	5
	DATA	PF	6
	DATA	PF	7
	DATA	PF	8
	DATA	PF	9
	DATA	PF	10 
	DATA	PF	11 
	DATA	PF	12 
	DATA	RETURN	/99-/A4 RESERVED FOR PF13-24 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	ENTER 
	DATA	CRUP
	DATA	CRLEFT
	DATA	CRRIGT
	DATA	CRDOWN
	DATA	BAKTAB
	DATA	TAB 
	DATA	CRNL
	DATA	RDHOME
	DATA	ERINPT
	DATA	EREOF 
* 
	IFT	IN:DL=1
	DATA	INSERT
	DATA	DELETE
	XIF
	IFF	IN:DL=1
	DATA	RETURN
	DATA	RETURN
	XIF
	DATA	RESET 
	DATA	DUP 
	DATA	FLDMRK
	DATA	COPY
	IFT	OFLIN=1
	DATA	OFLINE
	XIF
	IFF	OFLIN=1
	DATA	RETURN
	XIF
	IFT	DCLIN=2
	DATA	MFCHGE
	XIF
	IFF	DCLIN=2
	DATA	RETURN
	XIF
	DATA	RETURN
	DATA	RETURN
	DATA	ZERO:2
	DATA	ZERO:3
	DATA	NUMCOM
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	LCASPW	LOWER CASE P - W (BECAUSE OF KEYLOCK)
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	EJECT
************************************************************* 
* 
*	START ADDRESS FOR DC TASKS
************************************************************* 

DCTASK	EQU	*
	CF	A14,I:EVA0
	LDR*	A1,A9	POLL & SELECT ADDRESS 
	LDKL	A8,ECBDC
	ADR	A8,CREBAS
	ST	A1,ECBCW,A8 
	LDK	A7,/B7	TRANSFER PARAMETERS 
	LKM
	DATA	1 
DCT100	EQU	*
	LDK	A7,/80	TEST IF ANY MESSAGE WITH WAIT 
	LKM
	DATA	1 
	CF	A14,GTRBUF	GET RECEIVE BUFFER 
	LDKL	A8,ECBDC
	ADR	A8,CREBAS
	CF	A14,DCGETM
	LD	A4,ECBBA,A8 
	CF	A14,RLRBUF	RELEASE BUFFER 
	RB	DCT100
	EJECT
* 
* 
*	SUBROUTINE ACTIVATED BY ALL TASKS 
* 
* 
EMULA	EQU	* 
	ADR	A8,CREBAS	GET ECB ADDRESS
	ST	A1,ECBCW,A8	STORE IN ECBDCT 
	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

	IFT	OFLIN=1


	STR	A12,A14	SAVE REGISTERS A12-A13 ON A14 STACK
	ST	A13,-2,A14
	SUKL	A14,4	UPDATE STACK POINTER
	CM	OFFFLG,TCABAS 
	CF	A14,LIOLOF	TURN OFF OFF LINE LAMP 
	XIF

	EJECT
**************************************************************
* 
*   TRANSFER PARAMETER FOR MAIN FRAME #1
* 
************************************************************* 

	LDR*	A4,TCABAS	REL TASK NO 
	AD	A4,6,CREBAS	'CB1' ADDRESS 
	LC	A1,MF1KBV-1,A4	GET DV-ADDRESS 
	ANK	A1,/FF 
	LDKL	A8,ECBDC
	CF	A14,EMULA 

	IFT	DCLIN=2
************************************************************* 
* 
*   TRANSFER PARAMETER FOR MAIN-FRAME #2
* 
************************************************************* 

	LC	A1,MF2KBV-1,A4	GET DV ADDRESS 
	ANK	A1,/FF 
	LDKL	A8,ECBDC2 
	CF	A14,EMULA 
	XIF
	EJECT
VDU080	EQU	*
	CF	A14,ERASE	ERASE SCREEN

	LDK	A1,1 
	LDKL	A1,LBVDU+1
	ST	A1,CURATT,TCABAS	INITIATE WITH UNFORM. SCREEN 
	CF	A14,LMF1ON
	CM	MAIN,TCABAS	INDICATE MAIN-FRAME # 1 
	EJECT
* 
*	RELATIVE POS IN ECBBLK
KB	EQU	2
DC1	EQU	4 
	IFT	DCLIN=2
	IFT	COPCMD=1 
DC2	EQU	6 
ICR	EQU	8 
ECBBS	EQU	4 
	XIF
	IFT	DCLIN=2
	IFF	COPCMD=1 
DC2	EQU	6 
ECBBS	EQU	3 
	XIF
	IFF	DCLIN=2
	IFT	COPCMD=1 
ICR	EQU	6 
ECBBS	EQU	3 
	XIF
	IFF	DCLIN=2
	IFF	COPCMD=1 
ECBBS	EQU	2 
	XIF
* 
	LDK	A1,ECBBS 
	ST	A1,ECBBLK,TCABAS
VDU100	EQU	*
	LD	A1,ECBBLK+DC1,TCABAS
	RF(NZ)	VDU110	PENDING
	CF	A14,DC1INQ	TEST IF ANY MESSAGE, NO WAIT 
VDU110	EQU	*
	IFT	DCLIN=2
	LD	A1,ECBBLK+DC2,TCABAS
	RF(NZ)	VDU120	PENDING
	CF	A14,DC2INQ	TEST IF ANY MESSAGE MF # 2, NO WAIT
	XIF
VDU120	EQU	*
	IFT	COPCMD=1 
	LD	A1,ECBBLK+ICR,TCABAS
	RF(NZ)	VDU125	PENDING
	LDKL	A3,ICWORK	BUFFER
	ADR	A3,TCABAS	  ADDRESS
	LDK	A6,2	REQ LENGTH
	CF	A14,ICREAD
	ST	A8,ECBBLK+ICR,TCABAS
	XIF
VDU125	EQU	*
	LD	A1,ECBBLK+KB,TCABAS 
	RF(NZ)	VDU150	PENDING
	CF	A14,RDKBNW	READ KEYBOARD NO WAIT
VDU150	EQU	*
	LDKL	A7,ECBBLK 
	ADR	A7,TCABAS
	LKM
	DATA	7	MULTIPLE WAIT 
	CW	A8,ECBBLK+KB,TCABAS 
	RF(E)	KBINP	INPUT FROM KEYBOARD
	IFT	COPCMD=1 
	CW	A8,ECBBLK+ICR,TCABAS
	RF(E)	BUFCOP	SEND BUFFER TO PRINTER
	XIF
	ST	A8,ECBDCC,TCABAS	SAVE ECB ADDRESS FOR CURRENT READ
	CF	A14,DCINP	INPUT FROM DC 
	RB	VDU100
	EJECT
* 
*	READ KEYBOARD WITH NO WAIT
* 
RDKBNW	EQU	*
	LDKL	A8,ECBKB
	ADR	A8,CREBAS
	LDK	A7,1 
	ST	A7,ECBRL,A8	REQ LENGTH = 1
	ST	A7,ECBCW,A8	INDICATE NOT POWER OFF
	ST	A8,ECBBLK+KB,TCABAS 
	RF	DC1I30
* 
*	TEST IF ANY MESSAGE DC
* 
DC1INQ	EQU	*
	LDKL	A8,ECBDC
	ADR	A8,CREBAS
	ST	A8,ECBBLK+DC1,TCABAS
DC1I20	EQU	*
	LDK	A1,0 
	CF	A14,REQTIM
	LDK	A7,0 
DC1I30	EQU	*
	LKM
	DATA	1 
	RTN	A14
DC2INQ	EQU	*
	IFT	DCLIN=2
	LDKL	A8,ECBDC2 
	ADR	A8,CREBAS
	ST	A8,ECBBLK+DC2,TCABAS
	RB	DC1I20
	XIF
	IFT	COPCMD=1 
	EJECT
* 
*	SEND BUFFER TO PRINTER TASK 
* 
BUFCOP	EQU	*
	CM	ECBBLK+ICR,TCABAS 
	LDKL	A3,BVDU	BUFFER
	ADR	A3,TCABAS	  ADDRESS
	IFT	COPL=1 
* 
*	CHECK IF COPY LOCK
* 
	LCR	A2,A3
	ANK	A2,/18 
	XRK	A2,/10 
	RB(Z)	VDU100	DON'T COPY
	XIF
	IFT	COPCMD=1 
	LDK	A4,/8B	ORDER: WRITE ADDRESSED WITH WAIT
	LD	A5,ICWORK,TCABAS	TASK ID
	LDKL	A6,LBVDU	REQ LENGTH 
	CF	A14,ICWRTE
	LD	A1,KBINH,TCABAS 
	ANK	A1,/E	NOT INHIBITED ANY LONGER 
	ST	A1,KBINH,TCABAS 
	RB	VDU100
	XIF
	EJECT
**	KEYBOARD INPUT 
* 
KBINP	EQU	* 
	CM	ECBBLK+KB,TCABAS
	LD	A2,ECBCW,A8 
	RF(Z)	KBIN05	POWER OFF 
	LD	A2,ECBRC,A8 
	RF(0)	KBIN10 
KBIN05	EQU	*
	LDK	A7,4	RESET KEYBOARD BUFFER 
	LKM
	DATA	1 
	RB	VDU100
KBIN10	EQU	*
	LD	A1,KBINH,TCABAS 
	ANK	A1,1	RESETTING BY 'RESET' ALLOWED ?
	RB(NZ)	KBIN05	NO 
	LC*	A2,ECBBA,A8	GET INPUT CHARACTER
	IFF	KB6272=1		=5 
	CF	A14,KEYCNV	CONVERT KEY CODE	=5
	XIF			=5 
	LD	A1,KBINH,TCABAS 
	ANK	A1,6	MUST BE RESET KEY ? 
	RF(Z)	KBIN20	NO
	CWK	A2,RSET	RESET KEY ?
	RB(NE)	KBIN05	NO 
KBIN20	EQU	*
	LDR	A5,A2	COPY INPUT CHARACTER 
	SUK	A5,/20	INDEX 
	RB(N)	VDU100	ILLEGAL CHAR
	CWK	A5,/A7 
	RB(G)	VDU100	ILLEGAL CHAR
	CF	A14,DCABOR	ABORT DC-READ TO ENABLE DC-WRITE 
	LDR	A7,A7
	ABL(NZ)	VDU100	DC COMPLETED, TAKE CARE OF MESSAGE
	ADR	A5,A5	TO KEY TABLE 
* 
	LDKL	A8,ECBVDU 
	ADR	A8,CREBAS
	LD	A1,RDMORE,TCABAS
	RF(Z)	KBIN30 
* 
	CFR	A14,A1 
	ABL	VDU100 
* 
KBIN30	EQU	*
	CFI	A14,KEYTAB,A5	BRANCH TO RESPECTIVE INPUT HANDLER 
	ABL	VDU100 
	EJECT
* 
*	ABORT DC-REQUEST TO ENABLE WRITE
* 
DCABOR	EQU	*
	LDK	A7,0 
	LDKL	A8,ECBDC
	IFT	DCLIN=2
	LD	A1,MAIN,TCABAS
	RF(NZ)	DCAB05
	XIF
	CM	ECBBLK+DC1,TCABAS 
	IFT	DCLIN=2
	RF	DCAB10
DCAB05	EQU	*
	CM	ECBBLK+DC2,TCABAS 
	LDKL	A8,ECBDC2 
DCAB10	EQU	*
	XIF
	ADR	A8,CREBAS
	LKM
	DATA	10
	RTN	A14
	EJECT
* 
*	SET REQUEST TIMER 
*	A1 = TIME OUT VALUE 
*	A8 = ECB ADDRESS
* 
REQTIM	EQU	*
	ST	A1,ECBCW,A8 
	LDK	A7,/B9 
	LKM
	DATA	1 
	RTN	A14
	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 ?? 
	EJECT
********************************************************
	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	* 
	LD	A1,MODE,TCABAS	INSERT MODE ?? 
	ABL(NZ)	ERROR	FUNCTION NOT ALLOWED IN INSERT MODE
	LDK	A2,DUPCH 
	LD	A3,ECBKB+ECBBA,CREBAS	GET KB BUFF. ADDR.
	SCR	A2,A3
	CF	A14,NUM 
	CF	A14,TAB 
	RTN	A14
	EJECT
* 
*********************************************************** 
* 
*       FIELD MARK
* 
*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE
*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION 
*       TO THE DC CHARACTER TRANSMITTED 
* 
**********************************************************
* 
FLDMRK	EQU	*
	LD	A1,MODE,TCABAS	INSERT MODE??
	ABL(NZ)	ERROR	FUNCTION NOT ALLOWED IN INSERT MODE
	LDK	A2,FMCH
	LD	A3,ECBKB+ECBBA,CREBAS	GET KB BUFFER ADDR. 
	SCR	A2,A3
	CF	A14,NUM 
	RTN	A14
	EJECT
* 
**********************************************************
* 
*       RDHOME
* 
*       READY HOME KEY
*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE
*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER
*       ON THE SCREEN 
* 
********************************************************
* 
RDHOME	LDKL	A4,BVDU 
	ADR	A4,TCABAS	VDU BUFFER ADDRESS 
	LC	A2,1919,A4	GET LAST SCREEN CHARACTER
	ANK	A2,/7F 
	CWK	A2,/20 
	RF(NL)	RDH10 
	ANK	A2,/10 
	ABL(Z)	CRHOME	UNPROTECTED FIELD
RDH10	CM	PCURS,TCABAS 
	CF	A14,TAB	SEARCH 1ST UNPROTECTED FIELD
	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
* 
********************************************************* 
* 
*	CHAR
* 
*	ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING 
* 
********************************************************* 
* 
LCASPW	EQU	*
	SUK	A2,/50	CONVERT TO LOWER CASE P - W 
	SC*	A2,ECBKB+ECBBA,CREBAS
* 
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
*************************************************************** 
* 
*   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 
* 
**********************************************************
* 
*	NUM 
* 
*	DISPLAY AND UPDATE NUMERICS 
* 
**********************************************************
* 
NUMCOM	EQU	*
	LDK	A2,/2C 
	SC*	A2,ECBKB+ECBBA,CREBAS
* 
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	*
	LC*	A4,ECBKB+ECBBA,CREBAS		=1
ANC005	EQU	*
	LDKL	A6,BVDU 
	ADR	A6,TCABAS
	ADR	A6,A2

	LD	A1,MODE,TCABAS	INSERT MODE ?? 
	RF(NZ)	ANC010	YES!!
	SCR	A4,A6	UPDATE VDU BUFF
ANC010	LDR	A7,A6	SAVE CURSOR POSITION 
	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	EQU	*
	IFT	IN:DL=1		=3
	LD	A1,MODE,TCABAS	INSERT MODE ?? 
	RF(Z)	ANC120	NO!!
	LCR	A1,A7	GET CHARACTER AT CURSOR POSITION 
	ANK	A1,/7F 
	CWK	A1,NULL	NULL?? 
	RF(NE)	INS:10	NO!! 
	SCR	A4,A7	STORE INPUT CHARACTER
	XIF			=3 
ANC120	EQU	*

	LDK	A5,/2B	CURSOR NOT MOVED BEFORE DISPLAYING
	LD	A1,ECBVDU+ECBBA,CREBAS	 
	SC	A5,1,A1		=1 
	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 
ANC252	EQU	*
	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
ANC300	EQU	*
	LD	A1,ECBCW,A8	CONTROL WORD
	ANK	A1,X'FF'	LINE POSITION 
	SUK	A1,80	LAST POSITION ON LINE ?? 
	RF(NZ)	ANC350	NO!!!
	CF	A14,SETCUR	POSITION CURSOR TO 1:ST POS. NEXT LINE 
ANC350	EQU	*
	RTN	A14
	IFT	IN:DL=1
	EJECT

*************************************************** 
* 
*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS
*   AT SAME LINE ONE POSITION TO THE LEFT 
* 
************************************************************

DELETE	EQU	*
	LDKL	A6,-1 
	LD	A2,PCURS,TCABAS	CURSOR ADDRESS
DEL:10	ADK	A6,80	END OF LINE POINTER
	CWR	A6,A2	LAST POSITION ON CURRENT LINE??
	RB(L)	DEL:10	NO!! TRY NEXT LINE

	CF	A14,S:ATT	SEARCH ATTRIBUTE FORWARD
	SUK	A1,2	ATTRIBUTE FOUND ??
	RF(Z)	DEL:20	NO!!
	CWR	A2,A6	ATTRIBUTE AFTER END OF LINE ?? 
	RF(G)	DEL:20	YES!! 
	SUK	A2,1	SKIP ATTRIBUTE
	LDR	A6,A2
DEL:20	LDR	A2,A6


	LDK	A1,BVDU
	ADR	A1,TCABAS	ABSOLUTE BUFFER ADDRESS
	ADR	A2,A1	END OF FIELD/LINE
	AD	A1,PCURS,TCABAS	CURSOR POSITION 

DEL:30	CWR	A2,A1	ALL CHARACTERS SHIFTED ??
	RF(E)	DEL:40	YES!! 
	LC	A3,1,A1	GET CHARACTER 
	ORK	A3,/80	SET MODIFIED BIT
	SCR	A3,A1	SHIFT CHARACTER 1 POS. LEFT
	ADK	A1,1 
	RB	DEL:30	GET NEXT CHARACTER 


DEL:40	LDK	A3,NULL+/80	NULL CHARACTER 
	SCR	A3,A2	STORE AT END OF FIELD/LINE 
	LD	A3,ATTRIB,TCABAS	ATTRIBUTE
	ORK	A3,1	SET MODIFIED FIELD BIT

	LD	A1,CURATT,TCABAS	CURRENT ATTRIBUTE ADDRESS
	CWK	A1,LBVDU+1	UNFORMATTED SCREEN ???
	RF(E)	INS:60	YES!!!
	ADKL	A1,BVDU 
	ADR	A1,TCABAS	ABSOLUTE ATTRIBUTE ADDRESS 
	SCR	A3,A1	SAVE NEW ATTRIBUTE 
	RF	INS:60	DISPLAY MODIFIED FIELD 
	EJECT

**************************************************************
* 
*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN
*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT
* 
****************************************************

INSERT	EQU	*
	IM	MODE,TCABAS	SET INSERT MODE 
	CF	A14,LIOLON	TURN ON "INSERT MODE" LAMP 
	RTN	A14


INS:10	LDR	A6,A7	 
	LDR	A9,A4	 
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN??
	RF(NE)	INS:20	NO!! 
	LDKL	A2,LBVDU-1
	RF	INS:30


INS:20	CF	A14,S:ATT	SEARCH ATTRIBUTE FORWARD


	SUK	A1,2	ATTRIBUTE FOUND ??
	RF(Z)	INS:30	NO!!
	SUK	A2,1 

INS:30	ADR	A2,TCABAS
	ADK	A2,BVDU	ADD BUFFER DISPLACEMENT IN WORK-BLOCK
	CF	A14,S:NULL	SEARCH FIRST NULL CHARACTER
INS:40	CWR	A2,A6	ALL CHARACTERS SHIFTED ??
	RF(E)	INS:50	YES!! 
	LC	A3,-1,A2	GET CHARACTER
	ORK	A3,/80	SET MODIFIED BIT
	SCR	A3,A2	SHIFT CHAR ONE POS TO RIGHT
	SUK	A2,1 
	RB	INS:40	GET NEXT CHARACTER 


INS:50	ORKL	A9,/80	SET MODIFIED BIT 
	SCR	A9,A6	SAVE INPUT CHARACTER IN BUFFER 
	IM	PCURS,TCABAS	INCREMENT CURSOR POSITION
INS:60	EQU	*
	CF	A14,DISPL	DISPLAY MODIFIED FIELDS 
	LD	A2,PCURS,TCABAS	CURSOR POSITION 
	RB	ANC252
	XIF
	EJECT

**********************************************************
* 
*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS
* 
******************************************************

S:NULL	EQU	*
	LDR	A1,A6

S:NU10	CWR	A1,A2
	RF(E)	S:NU30 
	LCR	A3,A1	GET CHARACTER
	ANK	A3,/7F	MASK AWAY MODIFIED BIT
	CWK	A3,NULL	NULL CHARACTER 
	RF(E)	S:NU20	YES!! 
	ADK	A1,1 
	RB	S:NU10	CHECK NEXT BUFFER CHARACTER

S:NU20	LDR	A2,A1	ADDRESS OF FIRST NULL
S:NU30	RTN	A14
	EJECT
* 
********************************************************* 
* 
*	CANCEL
* 
*	PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION 
*	AND GENERATE AN AID CHARACTER 
* 
********************************************************* 
* 
CANCEL	EQU	*
PA2	EQU	* 
	LDK	A2,/2E	CANCEL POS
CAN100	EQU	*
	LC	A2,TASCII,A2	GET ASCII CODE 
CAN200	EQU	*
	CF	A14,LINHON	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 
* 
* 
PAEX	EQU	*
	LDKL	A1,PAEXA
	ST	A1,RDMORE,TCABAS
	RTN	A14
PAEXA	EQU	* 
	CM	RDMORE,TCABAS 
	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.
	RF(Z)	PA3
	ADK	A2,1 
	RB(Z)	PA2
	RF	PA1 
	RTN	A14	RETURN TO MAIN READ LOOP 

	XIF
	EJECT

* 
*    PA1    PROGRAM ATTENTION KEY 
* 
* 
PA1	EQU	* 
	LDK	A2,/2C	PA1 POS 
	RB	CAN100
* 
* 
*    PA3   PROGRAM ATTENTION KEY
* 
* 
PA3	EQU	* 
	LDK	A2,/2B	PA3 POS 
	RB	CAN100
* 
*	PA4 - PA10 (ALFASKOP) 
* 
PA410	EQU	* 
	SUK	A2,/20 
	RB	CAN200
	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,/3D	ENTER POS 
ENT100	EQU	*
	LC	A2,TASCII,A2	CONVERT TO ASCII 
	CF	A14,LINHON	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
* 
* 
PFEX	EQU	*
	LDKL	A1,PFEXA
	RF	PFNXT 
PFEXA	EQU	* 
	CM	RDMORE,TCABAS 
	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. 
	LDKL	A1,PF1A 
	RF	PFNXT 
PF1A	EQU	*
	CM	RDMORE,TCABAS 
	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,/3C	PF10-12 POS 
	RB	ENT100

PF0	EQU	* 
	LDKL	A1,PF0A 
PFNXT	EQU	* 
	ST	A1,RDMORE,TCABAS
	RTN	A14
PF0A	EQU	*
	CM	RDMORE,TCABAS 
	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,/39	PF1-9 POS 
	RB	ENT100
	XIF
PFERR	EQU	* 
	CF	A14,ERROR	GO TO ERR-HANDLING RUTIN
	RTN	A14	GO TO MAIN READ MODULE 


PF	EQU	*
	SUK	A2,/5C 
	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,CLEAR 
OFLI05	EQU	*
	CF	A14,RESET 
	IFT	DCLIN=2
	LD	A7,MAIN,TCABAS
	XRK	A7,1 
	ST	A7,MAIN,TCABAS
	CF	A14,DCABOR	ABORT REQUEST NOT CURRENT MF 
	XIF
	IFT	OFLIN=1
	LDK	A1,0	DV ADDRESS ::= 0MESSAGES TO VDU IGNORED 
	LDKL	A8,ECBDC	MF # 1 
	CF	A14,EMULA	TRANSFER PARAMETERS 
	IFT	DCLIN=2
	LDKL	A8,ECBDC2	MF # 2
	CF	A14,EMULA	TRANSFER PARAMETERS 
	XIF
	IFT	OFLIN=1
	CF	A14,LMF1OF
	CF	A14,LMF2OF
	CF	A14,LSAVOF
	CF	A14,LIOLON	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
	IFT	DCLIN=2
	EJECT
*********************************************************** 
* 
*	MAINFRAME CHANGE
*	  THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP 
*	      IS TTURNED ON 
* 
********************************************************************* 
* 
MFCHGE	EQU	*
	CF	A14,CLEAR 
MFCH05	EQU	*
	CF	A14,RESET 
	CF	A14,LMF1OF
	CF	A14,LMF2OF
	CF	A14,LSAVOF
	LD	A1,MAIN,TCABAS
	XRK	A1,1 
	RF(NZ)	MFCH10
	CF	A14,LMF1ON
	RF	MFCH90
MFCH10	EQU	*
	CF	A14,LMF2ON
MFCH90	EQU	*
	ST	A1,MAIN,TCABAS
	RTN	A14
	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,/2D	POS FOR 'CLEAR' 
	LC	A2,TASCII,A2
	CF	A14,LINHON	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,LERRON	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
	IFT	KEYLST=1 
	EJECT
******************************************************************
* 
*   KEY LOCK STATUS IS SET IN 'KEYS'
*	ON ENTRY  A2 = KEY LOCK VALUE /70-/77 
* 
******************************************************************
* 
KEYL	EQU	*
	SUK	A2,/78	GET NEG KEY LOCK VALUE
	LD	A3,KEYS,TCABAS	OLD STATUS 
	LDK	A4,/10 
KEYL10	EQU	*
	SRL	A4,1 
	ADK	A2,2	1 = OFF,0 = ON
	RB(N)	KEYL10 
	ANR	A3,A4	CHECK OLD KEY POS
	RF(NZ)	KEYL20	WAS ON 
	LDR	A2,A2	WAS OFF
	RF(NZ)	KEYL99	NOW OFF, NO CHANGE 
	RF	KEYL30	NOW ON 
KEYL20	EQU	*	WAS ON 
	LDR	A2,A2
	RF(Z)	KEYL99	NOW ON, NO CHANGE 
KEYL30	EQU	* 	CHANGE
	LD	A3,KEYS,TCABAS
	XRR	A3,A4	CHANGE STATUS
	ST	A3,KEYS,TCABAS	STORE NEW STATUS 
* 
* KEYLOCK STATUS CHANGED
*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON 
*   A4 = KEYLOCK CHANGED, LAYOUT AS A3
*   A2 = 1, IF CHANGED TO OFF ELSE 0
* 
* INSERT USER ROUTINE BELOW THIS LINE 
* 
KEYL99	EQU	*
	RTN	A14
	XIF
	EJECT
* 
********************************************************
* 
*	LAMPMODULE
* 
* 
********************************************************
* 
LON	EQU	/B7 
LOF	EQU	/B8 
	IFT	KB6272=1 
LMF1	EQU	/20
LMF2	EQU	/10
LIOL	EQU	8
LINH	EQU	4
LERR	EQU	2
LSAV	EQU	1
	XIF
	IFF	KB6272=1 
LMF1	EQU	0		=2
LMF2	EQU	0		=2
LIOL	EQU	1		=2
LINH	EQU	2		=2
LERR	EQU	4		=2
LSAV	EQU	8		=2
	XIF
LMF1ON	LDK	A3,LMF1
	RF	LMPON 
LMF1OF	LDK	A3,LMF1
	RF	LMPOF 
LMF2ON	LDK	A3,LMF2
	RF	LMPON 
LMF2OF	LDK	A3,LMF2
	RF	LMPOF 
LIOLON	LDK	A3,LIOL
	RF	LMPON 
LIOLOF	LDK	A3,LIOL
	RF	LMPOF 
LINHON	LDK	A3,LINH
	RF	LMPON 
LINHOF	LDK	A3,LINH
	RF	LMPOF 
LERRON	LDK	A3,LERR
	RF	LMPON 
LERROF	LDK	A3,LERR
	RF	LMPOF 
LSAVON	LDK	A3,LSAV
	RF	LMPON 
LSAVOF	LDK	A3,LSAV
	RF	LMPOF 
* 
LMPON	LDK	A7,LON
	RF	SDISP 
LMPOF	LDK	A7,LOF
	RF	SDISP 
	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	* 
	EJECT

************************************************* 
	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
* 


S:ATT	EQU	* 
	LD	A7,ATTRIB,TCABAS
	LD	A8,CURATT,TCABAS
	CF	A14,ATMASF	SEARCH ATTRIBUTE FORWARD 
	ST	A7,ATTRIB,TCABAS
	ST	A8,CURATT,TCABAS
	RTN	A14

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
* 
************************************************************
* 
*	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	MODE,TCABAS	RESET INSERT MODE 
	CF	A14,LIOLOF	TURN OFF "INSERT" LAMP 
	CM	KBINH,TCABAS	RESSTORE KEYBOARD
	CF	A14,LERROF	TURN OFF 'ERROR' LAMP
	CF	A14,LINHOF	TURN OFF 'KEYBOARD INHIBIT' LAMP 
	RTN	A14
	EJECT


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

COPY	EQU	*
	LD	A5,COPNO,TCABAS 
	ABL(Z)	ERROR 
	LDKL	A3,BVDU	BUFFER
	ADR	A3,TCABAS	  ADDRESSS 
	LDKL	A6,LBVDU	REQ LENGTH 
	LDK	A4,/8B	ORDER = WRITE ADDRESSED WAIT
	EJECT
* 
*	WRITE INTERTASK COMMUNICATION 
* 
*	A3 = BUFFER ADDRESS 
*	A4 = ORDER
*	A5 = "TO-TID" 
*	A6 = REQ LENGTH 
* 
ICWRTE	EQU	*
	LDKL	A8,ECBICW 
	ADR	A8,CREBAS
	LDKL	A1,-1 
	CF	A14,REQTIM	NO TIME OUT SUPERVISION
	ST	A5,ECBCW,A8	TO TASK ID
	ST	A6,ECBRL,A8	REQ LENGTH
	ST	A3,ECBBA,A8 
	LDR	A7,A4	ORDER
	LKM
	DATA	1 
	RTN	A14
	END

HexDump

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT START    REL 2.1*79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0042}
0x0060…007c               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0064}
0x007c…0096               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0080}
0x0096…00b2               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x009a}
0x00b2…00d0               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00b6}
0x00d0…00ec               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00d4}
0x00ec…011e               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x00f0}
0x011e…013a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0122}
0x013a…015e               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x013e}
0x015e…017a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0162}
0x017a…01c0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x017e}
0x01c0…01ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01ca…0216               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x003e}
0x0216…0262               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x008a}
0x0262…02a8               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0001, t01=0x00d6}
0x02a8…02b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b2…0304               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0001, t01=0x0126}
0x0304…030c               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0178}
0x030c…0314               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0180}
0x0314…031c               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0188}
0x031c…0324               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0190}
0x0324…0332               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0008}
0x0332…033c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0016}
0x033c…0346               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0020}
0x0346…0360               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x002a}
0x0360…036a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0044}
0x036a…0374               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…037e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0058}
0x037e…03a2               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x0062}
0x03a2…03be               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x0086}
0x03be…03d2               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x00a2}
0x03d2…03fc               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0002, t01=0x00b6}
0x03fc…0428               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0002, t01=0x00e0}
0x0428…044c               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0002, t01=0x010c}
0x044c…0462               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0002, t01=0x0130}
0x0462…0478               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0002, t01=0x0146}
0x0478…048e               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0002, t01=0x015c}
0x048e…04b6               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0002, t01=0x0172}
0x04b6…04cc               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x000a}
0x04cc…04d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d6…04e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…04ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04ea…050c               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x003e}
0x050c…0516               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0516…0520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006a}
0x0520…052a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0074}
0x052a…053e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x007e}
0x053e…0554               Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0003, t01=0x0092}
0x0554…056a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0003, t01=0x00a8}
0x056a…0580               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0003, t01=0x00be}
0x0580…0596               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0003, t01=0x00d4}
0x0596…05b2               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0003, t01=0x00ea}
0x05b2…05c6               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0003, t01=0x0106}
0x05c6…05dc               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0003, t01=0x011a}
0x05dc…05f0               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0003, t01=0x0130}
0x05f0…0604               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0003, t01=0x0144}
0x0604…061a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0003, t01=0x0158}
0x061a…062e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0003, t01=0x016e}
0x062e…0644               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0003, t01=0x0182}
0x0644…064e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064e…0682               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x0012}
0x0682…0698               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x0046}
0x0698…06a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005c}
0x06a2…06d2               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x0066}
0x06d2…06fc               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0004, t01=0x0096}
0x06fc…070a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00c0}
0x070a…0712               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ce}
0x0712…071a               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00d6}
0x071a…075c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x00de}
0x075c…0766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0120}
0x0766…0786               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x012a}
0x0786…0790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014a}
0x0790…07ba               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0004, t01=0x0154}
0x07ba…07c2               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x017e}
0x07c2…07cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07cc…0816               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 0 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0004, t01=0x0190}
0x0816…084a               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x004a}
0x084a…087e               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x007e}
0x087e…0892               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0005, t01=0x00b2}
0x0892…08c4               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0005, t01=0x00c6}
0x08c4…08d6               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0005, t01=0x00f8}
0x08d6…08e8               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0005, t01=0x010a}
0x08e8…0914               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0005, t01=0x011c}
0x0914…0950               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x0148}
0x0950…0974               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0005, t01=0x0184}
0x0974…0982               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0018}
0x0982…098c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x098c…0996               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0030}
0x0996…09ac               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0006, t01=0x003a}
0x09ac…09b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0050}
0x09b6…09d4               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0006, t01=0x005a}
0x09d4…09fa               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x0078}
0x09fa…0a04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009e}
0x0a04…0a0c               Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00a8}
0x0a0c…0a20               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x00b0}
0x0a20…0a34               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x00c4}
0x0a34…0a48               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x00d8}
0x0a48…0a5c               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x00ec}
0x0a5c…0a70               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0100}
0x0a70…0a7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0114}
0x0a7a…0a84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a84…0a9e               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x0128}
0x0a9e…0aa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa8…0ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab2…0ace               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0006, t01=0x0156}
0x0ace…0ad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0172}
0x0ad8…0ae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017c}
0x0ae2…0af4               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0006, t01=0x0186}
0x0af4…0afe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afe…0b18               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0012}
0x0b18…0b2c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x002c}
0x0b2c…0b42               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0040}
0x0b42…0b5e               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0056}
0x0b5e…0b7c               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x0072}
0x0b7c…0b9a               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0090}
0x0b9a…0ba6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00ae}
0x0ba6…0bba               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x00ba}
0x0bba…0bd0               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x00ce}
0x0bd0…0bec               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x00e4}
0x0bec…0c0a               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x0100}
0x0c0a…0c16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x011e}
0x0c16…0c2a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0007, t01=0x012a}
0x0c2a…0c40               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x013e}
0x0c40…0c5c               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0007, t01=0x0154}
0x0c5c…0c7a               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0170}
0x0c7a…0c86               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x018e}
0x0c86…0c9a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x000a}
0x0c9a…0cb0               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x001e}
0x0cb0…0ccc               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0034}
0x0ccc…0cd8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0050}
0x0cd8…0cf6               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x005c}
0x0cf6…0d12               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x007a}
0x0d12…0d2e               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x0096}
0x0d2e…0d3c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00b2}
0x0d3c…0d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d50…0d76               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x00d4}
0x0d76…0d80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fa}
0x0d80…0d96               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x0104}
0x0d96…0db0               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x011a}
0x0db0…0dba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0134}
0x0dba…0dc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013e}
0x0dc4…0de0               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0008, t01=0x0148}
0x0de0…0dea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0164}
0x0dea…0dfe               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0008, t01=0x016e}
0x0dfe…0e1a               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0008, t01=0x0182}
0x0e1a…0e46               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x000e}
0x0e46…0e7a               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x003a}
0x0e7a…0ea8               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x006e}
0x0ea8…0ec4               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x009c}
0x0ec4…0eee               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x00b8}
0x0eee…0f20               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x00e2}
0x0f20…0f48               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x0114}
0x0f48…0f7c               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x013c}
0x0f7c…0fb2               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0009, t01=0x0170}
0x0fb2…0fe2               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0016}
0x0fe2…100a               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x0046}
0x100a…1036               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x006e}
0x1036…1064               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x009a}
0x1064…1086               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x00c8}
0x1086…10b0               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x00ea}
0x10b0…10d8               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x0114}
0x10d8…110a               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x013c}
0x110a…1140               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000a, t01=0x016e}
0x1140…1178               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0014}
0x1178…1186               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x004c}
0x1186…11aa               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000b, t01=0x005a}
0x11aa…11c0               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000b, t01=0x007e}
0x11c0…11d4               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000b, t01=0x0094}
0x11d4…1202               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000b, t01=0x00a8}
0x1202…1228               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x00d6}
0x1228…1256               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x00fc}
0x1256…1260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x1260…128a               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000b, t01=0x0134}
0x128a…1294               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1294…12ba               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000b, t01=0x0168}
0x12ba…12e4               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000b, t01=0x018e}
0x12e4…12ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0028}
0x12ee…1324               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x0032}
0x1324…135a               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x0068}
0x135a…136e               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x009e}
0x136e…138a               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x00b2}
0x138a…13a6               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x00ce}
0x13a6…13b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00ea}
0x13b2…13c0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00f6}
0x13c0…13ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13ca…13fc               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000c, t01=0x010e}
0x13fc…1406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0140}
0x1406…141a               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000c, t01=0x014a}
0x141a…1432               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000c, t01=0x015e}
0x1432…1446               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000c, t01=0x0176}
0x1446…145a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000c, t01=0x018a}
0x145a…146e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000d, t01=0x000e}
0x146e…1482               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000d, t01=0x0022}
0x1482…1496               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000d, t01=0x0036}
0x1496…14aa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x000d, t01=0x004a}
0x14aa…14be               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000d, t01=0x005e}
0x14be…14d2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000d, t01=0x0072}
0x14d2…14e6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000d, t01=0x0086}
0x14e6…14fa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000d, t01=0x009a}
0x14fa…150e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000d, t01=0x00ae}
0x150e…1524               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000d, t01=0x00c2}
0x1524…1538               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000d, t01=0x00d8}
0x1538…154c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000d, t01=0x00ec}
0x154c…1560               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000d, t01=0x0100}
0x1560…156a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0114}
0x156a…157c               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000d, t01=0x011e}
0x157c…1590               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000d, t01=0x0130}
0x1590…15a4               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000d, t01=0x0144}
0x15a4…15b8               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000d, t01=0x0158}
0x15b8…15cc               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000d, t01=0x016c}
0x15cc…15e0               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000d, t01=0x0180}
0x15e0…15f4 (14, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000e, t01=0x0004}
0x15f4…1608               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000e, t01=0x0018}
0x1608…161c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000e, t01=0x002c}
0x161c…1630               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000e, t01=0x0040}
0x1630…1644               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000e, t01=0x0054}
0x1644…1658               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000e, t01=0x0068}
0x1658…166c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000e, t01=0x007c}
0x166c…1680               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000e, t01=0x0090}
0x1680…1694               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000e, t01=0x00a4}
0x1694…16a8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000e, t01=0x00b8}
0x16a8…16b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16b2…16c8               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000e, t01=0x00d6}
0x16c8…16dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000e, t01=0x00ec}
0x16dc…16f0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000e, t01=0x0100}
0x16f0…1704               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000e, t01=0x0114}
0x1704…1718               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000e, t01=0x0128}
0x1718…172c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000e, t01=0x013c}
0x172c…1740               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000e, t01=0x0150}
0x1740…1754               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000e, t01=0x0164}
0x1754…1768               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000e, t01=0x0178}
0x1768…177c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x000e, t01=0x018c}
0x177c…1790               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x000f, t01=0x0010}
0x1790…17a4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x000f, t01=0x0024}
0x17a4…17b8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x000f, t01=0x0038}
0x17b8…17cc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x000f, t01=0x004c}
0x17cc…17e0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x000f, t01=0x0060}
0x17e0…17f4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x000f, t01=0x0074}
0x17f4…17fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0088}
0x17fe…1812               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x000f, t01=0x0092}
0x1812…1826               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x000f, t01=0x00a6}
0x1826…183a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x000f, t01=0x00ba}
0x183a…184e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x000f, t01=0x00ce}
0x184e…1862               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x000f, t01=0x00e2}
0x1862…1876               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x000f, t01=0x00f6}
0x1876…188a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x000f, t01=0x010a}
0x188a…189e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x000f, t01=0x011e}
0x189e…18b2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x000f, t01=0x0132}
0x18b2…18c6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x000f, t01=0x0146}
0x18c6…18da               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x000f, t01=0x015a}
0x18da…18ee               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x000f, t01=0x016e}
0x18ee…190c               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x000f, t01=0x0182}
0x190c…1920               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0010, t01=0x0010}
0x1920…193e               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0010, t01=0x0024}
0x193e…195a               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0010, t01=0x0042}
0x195a…1964               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005e}
0x1964…198c               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0010, t01=0x0068}
0x198c…19aa               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0010, t01=0x0090}
0x19aa…19bc               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00ae}
0x19bc…19ce               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00c0}
0x19ce…19e0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00d2}
0x19e0…19f2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00e4}
0x19f2…1a04               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00f6}
0x1a04…1a16               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0108}
0x1a16…1a28               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x011a}
0x1a28…1a3a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x012c}
0x1a3a…1a4c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x013e}
0x1a4c…1a5e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0150}
0x1a5e…1a70               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0162}
0x1a70…1a82               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0174}
0x1a82…1a94               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0186}
0x1a94…1aa6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0008}
0x1aa6…1ab0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001a}
0x1ab0…1ac6               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0011, t01=0x0024}
0x1ac6…1ae0               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0011, t01=0x003a}
0x1ae0…1af2               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x0054}
0x1af2…1b04               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x0066}
0x1b04…1b16               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x0078}
0x1b16…1b28               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x008a}
0x1b28…1b3a               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x009c}
0x1b3a…1b4c               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00ae}
0x1b4c…1b5e               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00c0}
0x1b5e…1b6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00d2}
0x1b6a…1b80               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0011, t01=0x00de}
0x1b80…1b94               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x00f4}
0x1b94…1ba8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0108}
0x1ba8…1bbc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x011c}
0x1bbc…1bd0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0130}
0x1bd0…1be4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0144}
0x1be4…1bf8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0158}
0x1bf8…1c0c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x016c}
0x1c0c…1c20               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0180}
0x1c20…1c2c (18, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0004}
0x1c2c…1c4c               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0012, t01=0x0010}
0x1c4c…1c5e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0030}
0x1c5e…1c70               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0042}
0x1c70…1c9c               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0012, t01=0x0054}
0x1c9c…1cb0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0080}
0x1cb0…1cc4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0094}
0x1cc4…1cd8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00a8}
0x1cd8…1cec               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00bc}
0x1cec…1cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d0}
0x1cf6…1d08               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0012, t01=0x00da}
0x1d08…1d1a               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0012, t01=0x00ec}
0x1d1a…1d26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00fe}
0x1d26…1d38               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0012, t01=0x010a}
0x1d38…1d4c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x011c}
0x1d4c…1d58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0130}
0x1d58…1d6a               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0012, t01=0x013c}
0x1d6a…1d7c               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0012, t01=0x014e}
0x1d7c…1d8e               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0012, t01=0x0160}
0x1d8e…1db8               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0012, t01=0x0172}
0x1db8…1dcc               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x000c}
0x1dcc…1de0               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0020}
0x1de0…1df4               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0034}
0x1df4…1e08               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0048}
0x1e08…1e1c               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x005c}
0x1e1c…1e30               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0070}
0x1e30…1e44               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0013, t01=0x0084}
0x1e44…1e56               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0013, t01=0x0098}
0x1e56…1e68               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0013, t01=0x00aa}
0x1e68…1e74               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00bc}
0x1e74…1e86               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0013, t01=0x00c8}
0x1e86…1e9a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00da}
0x1e9a…1ea6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00ee}
0x1ea6…1eb8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0013, t01=0x00fa}
0x1eb8…1eca               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0013, t01=0x010c}
0x1eca…1edc               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0013, t01=0x011e}
0x1edc…1ee6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0130}
0x1ee6…1ef8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0013, t01=0x013a}
0x1ef8…1f0a               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0013, t01=0x014c}
0x1f0a…1f1c               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0013, t01=0x015e}
0x1f1c…1f2e               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0013, t01=0x0170}
0x1f2e…1f40               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0013, t01=0x0182}
0x1f40…1f52 (20, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0014, t01=0x0004}
0x1f52…1f66               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0014, t01=0x0016}
0x1f66…1f7a               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0014, t01=0x002a}
0x1f7a…1f8e               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0014, t01=0x003e}
0x1f8e…1fc0               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0014, t01=0x0052}
0x1fc0…1fd4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0084}
0x1fd4…1fe8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0098}
0x1fe8…1ffc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00ac}
0x1ffc…2010               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00c0}
0x2010…2024               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00d4}
0x2024…2038               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00e8}
0x2038…2042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fc}
0x2042…2056               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0106}
0x2056…206a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x011a}
0x206a…207e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x012e}
0x207e…2092               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0142}
0x2092…20a6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0156}
0x20a6…20ba               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0014, t01=0x016a}
0x20ba…20cc               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0014, t01=0x017e}
0x20cc…20e0               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0014, t01=0x0190}
0x20e0…20f4               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0015, t01=0x0014}
0x20f4…2108               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0015, t01=0x0028}
0x2108…211c               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0015, t01=0x003c}
0x211c…212e               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0015, t01=0x0050}
0x212e…2140               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0015, t01=0x0062}
0x2140…2154               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0015, t01=0x0074}
0x2154…2168               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0015, t01=0x0088}
0x2168…217c               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0015, t01=0x009c}
0x217c…2186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b0}
0x2186…219a               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0015, t01=0x00ba}
0x219a…21ae               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0015, t01=0x00ce}
0x21ae…21c2               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0015, t01=0x00e2}
0x21c2…21ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00f6}
0x21ce…21e2               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0015, t01=0x0102}
0x21e2…21f6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0116}
0x21f6…220a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x012a}
0x220a…2216               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x013e}
0x2216…222a               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0015, t01=0x014a}
0x222a…223c               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0015, t01=0x015e}
0x223c…2250               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0015, t01=0x0170}
0x2250…2262               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0015, t01=0x0184}
0x2262…2276               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0016, t01=0x0008}
0x2276…228a               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0016, t01=0x001c}
0x228a…2296               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0030}
0x2296…22aa               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0016, t01=0x003c}
0x22aa…22be               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0050}
0x22be…22ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0064}
0x22ca…22de               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0016, t01=0x0070}
0x22de…22f2               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0016, t01=0x0084}
0x22f2…22fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0098}
0x22fe…2312               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0016, t01=0x00a4}
0x2312…2326               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00b8}
0x2326…2332               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00cc}
0x2332…2346               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00d8}
0x2346…235a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00ec}
0x235a…236e               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0016, t01=0x0100}
0x236e…2382               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0016, t01=0x0114}
0x2382…2396               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0016, t01=0x0128}
0x2396…23aa               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x013c}
0x23aa…23be               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0150}
0x23be…23d2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0164}
0x23d2…23dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0178}
0x23dc…2416               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0016, t01=0x0182}
0x2416…242a               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x002c}
0x242a…243e               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0040}
0x243e…2452               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0054}
0x2452…2466               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0068}
0x2466…247a               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x007c}
0x247a…248e               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0090}
0x248e…24a2               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00a4}
0x24a2…24b0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00b8}
0x24b0…24f6               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x00c6}
0x24f6…2500               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010c}
0x2500…2524               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0017, t01=0x0116}
0x2524…256a               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x013a}
0x256a…2572               Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0180}
0x2572…2586               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0017, t01=0x0188}
0x2586…259c               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0018, t01=0x000c}
0x259c…25c6               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0018, t01=0x0022}
0x25c6…25dc               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0018, t01=0x004c}
0x25dc…25f2               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0018, t01=0x0062}
0x25f2…260a               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0018, t01=0x0078}
0x260a…2632               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0018, t01=0x0090}
0x2632…263e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x00b8}
0x263e…264e               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x00c4}
0x264e…2662               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0018, t01=0x00d4}
0x2662…2694               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0018, t01=0x00e8}
0x2694…26a0               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x011a}
0x26a0…26b0               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x0126}
0x26b0…26da               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0018, t01=0x0136}
0x26da…26f0               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0018, t01=0x0160}
0x26f0…2706               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0018, t01=0x0176}
0x2706…271c               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x0018, t01=0x018c}
0x271c…2734               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0019, t01=0x0012}
0x2734…275a               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x0019, t01=0x002a}
0x275a…276c               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x0019, t01=0x0050}
0x276c…277a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0062}
0x277a…2784               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0070}
0x2784…278e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x007a}
0x278e…27ba               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x0019, t01=0x0084}
0x27ba…27c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27c4…27ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27ce…27e2               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x0019, t01=0x00c4}
0x27e2…2808               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x0019, t01=0x00d8}
0x2808…2830               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x0019, t01=0x00fe}
0x2830…2858               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x0126}
0x2858…2864               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x014e}
0x2864…2874               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x015a}
0x2874…2884               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x016a}
0x2884…2892               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x017a}
0x2892…289c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0188}
0x289c…28da (26, 0, 398)  Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001a, t01=0x0004}
0x28da…28e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28e4…28f8               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001a, t01=0x004c}
0x28f8…2902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0060}
0x2902…2928               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001a, t01=0x006a}
0x2928…2932               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0090}
0x2932…2972               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001a, t01=0x009a}
0x2972…2986               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001a, t01=0x00da}
0x2986…299c               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001a, t01=0x00ee}
0x299c…29c6               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001a, t01=0x0104}
0x29c6…29ce               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x012e}
0x29ce…29e2               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001a, t01=0x0136}
0x29e2…29ea               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x014a}
0x29ea…29f2               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0152}
0x29f2…2a2a               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001a, t01=0x015a}
0x2a2a…2a40 (27, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001b, t01=0x0004}
0x2a40…2a68               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001b, t01=0x001a}
0x2a68…2a82               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001b, t01=0x0042}
0x2a82…2ab0               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001b, t01=0x005c}
0x2ab0…2abc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x008a}
0x2abc…2ac4               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0096}
0x2ac4…2ad2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x009e}
0x2ad2…2b18               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001b, t01=0x00ac}
0x2b18…2b22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b22…2b52               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001b, t01=0x00fc}
0x2b52…2b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012c}
0x2b5c…2ba2               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001b, t01=0x0136}
0x2ba2…2baa               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x017c}
0x2baa…2bce               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001b, t01=0x0184}
0x2bce…2bf4               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001c, t01=0x0018}
0x2bf4…2c1e               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001c, t01=0x003e}
0x2c1e…2c32               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001c, t01=0x0068}
0x2c32…2c48               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001c, t01=0x007c}
0x2c48…2c5e               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001c, t01=0x0092}
0x2c5e…2c66               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00a8}
0x2c66…2c7a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001c, t01=0x00b0}
0x2c7a…2cc0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x00c4}
0x2cc0…2cca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x010a}
0x2cca…2cfa               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001c, t01=0x0114}
0x2cfa…2d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0144}
0x2d04…2d4a               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x014e}
0x2d4a…2d52 (29, 0, 398)  Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0004}
0x2d52…2d7c               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001d, t01=0x000c}
0x2d7c…2d90               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0036}
0x2d90…2da8               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001d, t01=0x004a}
0x2da8…2dbe               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x0062}
0x2dbe…2dca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0078}
0x2dca…2dd8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0084}
0x2dd8…2dec               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001d, t01=0x0092}
0x2dec…2e0e               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001d, t01=0x00a6}
0x2e0e…2e16               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00c8}
0x2e16…2e28               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001d, t01=0x00d0}
0x2e28…2e40               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001d, t01=0x00e2}
0x2e40…2e7a               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001d, t01=0x00fa}
0x2e7a…2e90               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001d, t01=0x0134}
0x2e90…2ec0               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001d, t01=0x014a}
0x2ec0…2ece               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x017a}
0x2ece…2ed8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0188}
0x2ed8…2ef8 (30, 0, 398)  Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001e, t01=0x0004}
0x2ef8…2f08               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001e, t01=0x0024}
0x2f08…2f1a               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001e, t01=0x0034}
0x2f1a…2f2e               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x0046}
0x2f2e…2f44               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001e, t01=0x005a}
0x2f44…2f56               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x0070}
0x2f56…2f68               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001e, t01=0x0082}
0x2f68…2f7c               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001e, t01=0x0094}
0x2f7c…2f88               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00a8}
0x2f88…2f9c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x00b4}
0x2f9c…2fb2               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001e, t01=0x00c8}
0x2fb2…2fc4               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x00de}
0x2fc4…2fd8               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001e, t01=0x00f0}
0x2fd8…2fe4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0104}
0x2fe4…2ff8               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001e, t01=0x0110}
0x2ff8…300e               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001e, t01=0x0124}
0x300e…3020               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001e, t01=0x013a}
0x3020…3034               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001e, t01=0x014c}
0x3034…3040               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0160}
0x3040…3054               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001e, t01=0x016c}
0x3054…306a               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001e, t01=0x0180}
0x306a…307e               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x001f, t01=0x0008}
0x307e…308a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x001c}
0x308a…3094               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0028}
0x3094…30aa               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x001f, t01=0x0032}
0x30aa…30c6               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x001f, t01=0x0048}
0x30c6…30da               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x001f, t01=0x0064}
0x30da…30fa               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x001f, t01=0x0078}
0x30fa…3118               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x001f, t01=0x0098}
0x3118…314c               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x001f, t01=0x00b6}
0x314c…3160               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x001f, t01=0x00ea}
0x3160…3174               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x00fe}
0x3174…3194               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x001f, t01=0x0112}
0x3194…31b2               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x001f, t01=0x0132}
0x31b2…31ec               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x001f, t01=0x0150}
0x31ec…31f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x018a}
0x31f8…320c               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0020, t01=0x0008}
0x320c…3222               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0020, t01=0x001c}
0x3222…3242               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x0032}
0x3242…3260               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0020, t01=0x0052}
0x3260…327e               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0020, t01=0x0070}
0x327e…329e               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0020, t01=0x008e}
0x329e…32ba               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0020, t01=0x00ae}
0x32ba…32d0               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0020, t01=0x00ca}
0x32d0…32f0               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x00e0}
0x32f0…32fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0100}
0x32fc…3310               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0020, t01=0x010c}
0x3310…3330               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0020, t01=0x0120}
0x3330…334e               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0020, t01=0x0140}
0x334e…337a               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0020, t01=0x015e}
0x337a…338e               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0020, t01=0x018a}
0x338e…33a6               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0021, t01=0x000e}
0x33a6…33bc               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0021, t01=0x0026}
0x33bc…33c8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x003c}
0x33c8…33e6               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0021, t01=0x0048}
0x33e6…3406               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x0066}
0x3406…342e               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0021, t01=0x0086}
0x342e…3444               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x00ae}
0x3444…3464               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x00c4}
0x3464…3490               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0021, t01=0x00e4}
0x3490…349c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0110}
0x349c…34da               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0021, t01=0x011c}
0x34da…34fe               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0021, t01=0x015a}
0x34fe…3510               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0021, t01=0x017e}
0x3510…351e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0190}
0x351e…3528               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x000e}
0x3528…354c               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0022, t01=0x0018}
0x354c…3556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003c}
0x3556…356a               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0022, t01=0x0046}
0x356a…3580               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0022, t01=0x005a}
0x3580…3596               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0022, t01=0x0070}
0x3596…35a8               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0022, t01=0x0086}
0x35a8…35ce               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0022, t01=0x0098}
0x35ce…35fc               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0022, t01=0x00be}
0x35fc…361c               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x00ec}
0x361c…362e               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0022, t01=0x010c}
0x362e…3638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011e}
0x3638…3658               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0022, t01=0x0128}
0x3658…3662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0148}
0x3662…3676               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0022, t01=0x0152}
0x3676…368c               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0022, t01=0x0166}
0x368c…36a2               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0022, t01=0x017c}
0x36a2…36c2 (35, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0023, t01=0x0004}
0x36c2…36d6               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0023, t01=0x0024}
0x36d6…36e8               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0023, t01=0x0038}
0x36e8…36fe               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0023, t01=0x004a}
0x36fe…3710               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0023, t01=0x0060}
0x3710…3724               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0023, t01=0x0072}
0x3724…3730               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x0086}
0x3730…3740               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x0092}
0x3740…3750               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x00a2}
0x3750…3764               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0023, t01=0x00b2}
0x3764…3778               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0023, t01=0x00c6}
0x3778…3790               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0023, t01=0x00da}
0x3790…37a6               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x00f2}
0x37a6…37c6               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0023, t01=0x0108}
0x37c6…37d8               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0023, t01=0x0128}
0x37d8…37e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x013a}
0x37e4…37fa               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0023, t01=0x0146}
0x37fa…3808               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x015c}
0x3808…3812               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016a}
0x3812…3838               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0023, t01=0x0174}
0x3838…3842               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000a}
0x3842…3856               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0024, t01=0x0014}
0x3856…3874               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0024, t01=0x0028}
0x3874…3890               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0024, t01=0x0046}
0x3890…38b0               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0024, t01=0x0062}
0x38b0…38c4               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0024, t01=0x0082}
0x38c4…38ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0096}
0x38ce…38ea               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0024, t01=0x00a0}
0x38ea…38f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00bc}
0x38f4…3906               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0024, t01=0x00c6}
0x3906…391a               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0024, t01=0x00d8}
0x391a…392e               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0024, t01=0x00ec}
0x392e…394e               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0024, t01=0x0100}
0x394e…395a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0120}
0x395a…3970               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x012c}
0x3970…39a4               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0024, t01=0x0142}
0x39a4…39c8               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0024, t01=0x0176}
0x39c8…39ea               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0025, t01=0x000a}
0x39ea…3a00               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0025, t01=0x002c}
0x3a00…3a1c               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0025, t01=0x0042}
0x3a1c…3a48               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0025, t01=0x005e}
0x3a48…3a64               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0025, t01=0x008a}
0x3a64…3a76               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0025, t01=0x00a6}
0x3a76…3a82               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00b8}
0x3a82…3a90               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00c4}
0x3a90…3aaa               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0025, t01=0x00d2}
0x3aaa…3ab4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ec}
0x3ab4…3ac8               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0025, t01=0x00f6}
0x3ac8…3ae4               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0025, t01=0x010a}
0x3ae4…3afc               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0025, t01=0x0126}
0x3afc…3b1c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0025, t01=0x013e}
0x3b1c…3b34               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0025, t01=0x015e}
0x3b34…3b4a               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0025, t01=0x0176}
0x3b4a…3b5e               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0025, t01=0x018c}
0x3b5e…3b86               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0026, t01=0x0010}
0x3b86…3b92               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0038}
0x3b92…3ba2               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x0044}
0x3ba2…3bb4               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x0054}
0x3bb4…3bc8               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0026, t01=0x0066}
0x3bc8…3be4               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x007a}
0x3be4…3c14               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0026, t01=0x0096}
0x3c14…3c2e               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0026, t01=0x00c6}
0x3c2e…3c5a               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0026, t01=0x00e0}
0x3c5a…3c74               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0026, t01=0x010c}
0x3c74…3c9e               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0026, t01=0x0126}
0x3c9e…3cb0               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0026, t01=0x0150}
0x3cb0…3ccc               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x0162}
0x3ccc…3cf2               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0026, t01=0x017e}
0x3cf2…3d0a               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0027, t01=0x0014}
0x3d0a…3d2a               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0027, t01=0x002c}
0x3d2a…3d44               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0027, t01=0x004c}
0x3d44…3d58               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0027, t01=0x0066}
0x3d58…3d80               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0027, t01=0x007a}
0x3d80…3d9a               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0027, t01=0x00a2}
0x3d9a…3dbc               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x00bc}
0x3dbc…3dd0               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0027, t01=0x00de}
0x3dd0…3df2               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x00f2}
0x3df2…3e2a               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0027, t01=0x0114}
0x3e2a…3e3c               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0027, t01=0x014c}
0x3e3c…3e76               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0027, t01=0x015e}
0x3e76…3e96               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0028, t01=0x0008}
0x3e96…3ea0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0028}
0x3ea0…3eb8               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0028, t01=0x0032}
0x3eb8…3ece               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0028, t01=0x004a}
0x3ece…3eea               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0028, t01=0x0060}
0x3eea…3f00               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0028, t01=0x007c}
0x3f00…3f0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0092}
0x3f0a…3f1e               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0028, t01=0x009c}
0x3f1e…3f32               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0028, t01=0x00b0}
0x3f32…3f3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c4}
0x3f3c…3f50               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0028, t01=0x00ce}
0x3f50…3f8e               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0028, t01=0x00e2}
0x3f8e…3fa2               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0028, t01=0x0120}
0x3fa2…3fb0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0134}
0x3fb0…3fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0142}
0x3fba…3fe4               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0028, t01=0x014c}
0x3fe4…3fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0176}
0x3fee…4002               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x0028, t01=0x0180}
0x4002…4014 (41, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0029, t01=0x0004}
0x4014…402a               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0029, t01=0x0016}
0x402a…403e               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x002c}
0x403e…4058               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0029, t01=0x0040}
0x4058…406e               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x0029, t01=0x005a}
0x406e…407a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0070}
0x407a…4098               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0029, t01=0x007c}
0x4098…40ac               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x009a}
0x40ac…40be               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x0029, t01=0x00ae}
0x40be…40d2               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x0029, t01=0x00c0}
0x40d2…40f0               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0029, t01=0x00d4}
0x40f0…4108               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0029, t01=0x00f2}
0x4108…411c               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x0029, t01=0x010a}
0x411c…4128               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x011e}
0x4128…413e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x012a}
0x413e…414a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0029, t01=0x0140}
0x414a…415a               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0029, t01=0x014c}
0x415a…416a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x015c}
0x416a…4178               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x016c}
0x4178…4182               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017a}
0x4182…419e               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x0029, t01=0x0184}
0x419e…41bc               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002a, t01=0x0010}
0x41bc…41d6               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002a, t01=0x002e}
0x41d6…41e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0048}
0x41e0…41f4               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002a, t01=0x0052}
0x41f4…420c               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002a, t01=0x0066}
0x420c…4220               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002a, t01=0x007e}
0x4220…422c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0092}
0x422c…423c               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x009e}
0x423c…424c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x00ae}
0x424c…425a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00be}
0x425a…4262               Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00cc}
0x4262…426c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d4}
0x426c…4276               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00de}
0x4276…42b8               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x00e8}
0x42b8…42c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012a}
0x42c2…42d2               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002a, t01=0x0134}
0x42d2…42dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0144}
0x42dc…4322               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002a, t01=0x014e}
0x4322…432c (43, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0004}
0x432c…4342               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002b, t01=0x000e}
0x4342…4350               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0024}
0x4350…435a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0032}
0x435a…439a               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x003c}
0x439a…43a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007c}
0x43a4…43b8               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002b, t01=0x0086}
0x43b8…43c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009a}
0x43c2…43fc               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002b, t01=0x00a4}
0x43fc…4406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00de}
0x4406…4446               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00e8}
0x4446…4450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0128}
0x4450…4464               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002b, t01=0x0132}
0x4464…4492               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002b, t01=0x0146}
0x4492…44a4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002b, t01=0x0174}
0x44a4…44cc               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002b, t01=0x0186}
0x44cc…44e4               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002c, t01=0x001e}
0x44e4…44fc               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002c, t01=0x0036}
0x44fc…4506               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004e}
0x4506…4546               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x0058}
0x4546…4550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0098}
0x4550…4564               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002c, t01=0x00a2}
0x4564…456e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b6}
0x456e…45ae               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002c, t01=0x00c0}
0x45ae…45b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0100}
0x45b8…45f8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x010a}
0x45f8…4602               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x014a}
0x4602…4618               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002c, t01=0x0154}
0x4618…4622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x016a}
0x4622…4636               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002c, t01=0x0174}
0x4636…4664               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x0188}
0x4664…4676               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002d, t01=0x0026}
0x4676…469a               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002d, t01=0x0038}
0x469a…46b2               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002d, t01=0x005c}
0x46b2…46c4               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002d, t01=0x0074}
0x46c4…46dc               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002d, t01=0x0086}
0x46dc…46ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x009e}
0x46ea…46f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ac}
0x46f4…4738               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002d, t01=0x00b6}
0x4738…4742               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00fa}
0x4742…4752               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002d, t01=0x0104}
0x4752…475c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0114}
0x475c…479c               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002d, t01=0x011e}
0x479c…47a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x015e}
0x47a6…47ea               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002d, t01=0x0168}
0x47ea…47f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x001c}
0x47f4…4808               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002e, t01=0x0026}
0x4808…4832               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002e, t01=0x003a}
0x4832…4848               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002e, t01=0x0064}
0x4848…4868               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002e, t01=0x007a}
0x4868…4880               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002e, t01=0x009a}
0x4880…4896               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002e, t01=0x00b2}
0x4896…48ae               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002e, t01=0x00c8}
0x48ae…48b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e0}
0x48b8…48fe               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002e, t01=0x00ea}
0x48fe…4908               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0130}
0x4908…4916               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002e, t01=0x013a}
0x4916…4920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0148}
0x4920…494c               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002e, t01=0x0152}
0x494c…4956               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017e}
0x4956…499c               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002e, t01=0x0188}
0x499c…49a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003e}
0x49a6…49b8               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x002f, t01=0x0048}
0x49b8…49e6               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002f, t01=0x005a}
0x49e6…49fc               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x002f, t01=0x0088}
0x49fc…4a1e               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x002f, t01=0x009e}
0x4a1e…4a34               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x002f, t01=0x00c0}
0x4a34…4a4c               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x002f, t01=0x00d6}
0x4a4c…4a5a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00ee}
0x4a5a…4a64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00fc}
0x4a64…4aa2               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002f, t01=0x0106}
0x4aa2…4aac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0144}
0x4aac…4abc               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x002f, t01=0x014e}
0x4abc…4ac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015e}
0x4ac6…4aea               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x002f, t01=0x0168}
0x4aea…4af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x018c}
0x4af4…4b32               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x0008}
0x4b32…4b3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0046}
0x4b3c…4b50               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0030, t01=0x0050}
0x4b50…4b62               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0030, t01=0x0064}
0x4b62…4b76               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0030, t01=0x0076}
0x4b76…4ba4               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x008a}
0x4ba4…4bc8               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0030, t01=0x00b8}
0x4bc8…4bee               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0030, t01=0x00dc}
0x4bee…4bfe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x0102}
0x4bfe…4c0c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0112}
0x4c0c…4c16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0120}
0x4c16…4c54               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0030, t01=0x012a}
0x4c54…4c5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0168}
0x4c5e…4c6c               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0030, t01=0x0172}
0x4c6c…4c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0180}
0x4c76…4cac               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0030, t01=0x018a}
0x4cac…4cb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0030}
0x4cb6…4cf4               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x003a}
0x4cf4…4cfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0078}
0x4cfe…4d10               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0031, t01=0x0082}
0x4d10…4d3a               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0031, t01=0x0094}
0x4d3a…4d5a               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0031, t01=0x00be}
0x4d5a…4d70               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0031, t01=0x00de}
0x4d70…4d86               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0031, t01=0x00f4}
0x4d86…4da4               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0031, t01=0x010a}
0x4da4…4dae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0128}
0x4dae…4dcc               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0031, t01=0x0132}
0x4dcc…4dd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0150}
0x4dd6…4dee               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0031, t01=0x015a}
0x4dee…4e0a               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0031, t01=0x0172}
0x4e0a…4e20               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0031, t01=0x018e}
0x4e20…4e36               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0032, t01=0x0014}
0x4e36…4e48               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0032, t01=0x002a}
0x4e48…4e7e               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0032, t01=0x003c}
0x4e7e…4e8c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0072}
0x4e8c…4e94               Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0080}
0x4e94…4ede               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0032, t01=0x0088}
0x4ede…4ef0               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0032, t01=0x00d2}
0x4ef0…4f22               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0032, t01=0x00e4}
0x4f22…4f34               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0032, t01=0x0116}
0x4f34…4f5c               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0032, t01=0x0128}
0x4f5c…4f70               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0032, t01=0x0150}
0x4f70…4f94               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0032, t01=0x0164}
0x4f94…4fc6               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0032, t01=0x0188}
0x4fc6…4fe2               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0033, t01=0x002a}
0x4fe2…500e               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0033, t01=0x0046}
0x500e…502a               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0033, t01=0x0072}
0x502a…5044               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0033, t01=0x008e}
0x5044…505c               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0033, t01=0x00a8}
0x505c…5078               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0033, t01=0x00c0}
0x5078…50a4               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0033, t01=0x00dc}
0x50a4…50b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0108}
0x50b4…5100               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0033, t01=0x0118}
0x5100…510e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0164}
0x510e…5118               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0172}
0x5118…5154               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0033, t01=0x017c}
0x5154…515e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0028}
0x515e…516c               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0034, t01=0x0032}
0x516c…5176               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0040}
0x5176…51ac               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0034, t01=0x004a}
0x51ac…51d8               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0034, t01=0x0080}
0x51d8…51e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ac}
0x51e2…521e               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x00b6}
0x521e…5228               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f2}
0x5228…525e               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0034, t01=0x00fc}
0x525e…5270               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0034, t01=0x0132}
0x5270…5290               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0034, t01=0x0144}
0x5290…52b2               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0034, t01=0x0164}
0x52b2…52c8               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0034, t01=0x0186}
0x52c8…52d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x000c}
0x52d2…52e4               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0035, t01=0x0016}
0x52e4…52f6               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0035, t01=0x0028}
0x52f6…5320               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0035, t01=0x003a}
0x5320…534e               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0035, t01=0x0064}
0x534e…536e               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0035, t01=0x0092}
0x536e…5388               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0035, t01=0x00b2}
0x5388…539a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0035, t01=0x00cc}
0x539a…53c0               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0035, t01=0x00de}
0x53c0…53da               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0035, t01=0x0104}
0x53da…53fa               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0035, t01=0x011e}
0x53fa…541c               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0035, t01=0x013e}
0x541c…5446               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0035, t01=0x0160}
0x5446…5456               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x018a}
0x5456…546e               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0036, t01=0x000a}
0x546e…549e               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0036, t01=0x0022}
0x549e…54ac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0052}
0x54ac…54ec               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0036, t01=0x0060}
0x54ec…5508               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0036, t01=0x00a0}
0x5508…5534               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0036, t01=0x00bc}
0x5534…5550               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0036, t01=0x00e8}
0x5550…5564               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0036, t01=0x0104}
0x5564…5586               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0036, t01=0x0118}
0x5586…559a               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0036, t01=0x013a}
0x559a…55da               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0036, t01=0x014e}
0x55da…5602               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0036, t01=0x018e}
0x5602…561a               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0037, t01=0x0026}
0x561a…564e               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0037, t01=0x003e}
0x564e…5666               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0037, t01=0x0072}
0x5666…5678               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0037, t01=0x008a}
0x5678…5686               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x009c}
0x5686…5690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00aa}
0x5690…56d4               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x00b4}
0x56d4…56de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f8}
0x56de…56ec               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0037, t01=0x0102}
0x56ec…56f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0110}
0x56f6…570e               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0037, t01=0x011a}
0x570e…574c               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0037, t01=0x0132}
0x574c…578a               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0037, t01=0x0170}
0x578a…57b6               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0038, t01=0x001e}
0x57b6…57c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x004a}
0x57c0…5804               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0038, t01=0x0054}
0x5804…580e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0098}
0x580e…5820               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0038, t01=0x00a2}
0x5820…584a               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0038, t01=0x00b4}
0x584a…5884               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0038, t01=0x00de}
0x5884…589a               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0038, t01=0x0118}
0x589a…58ce               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0038, t01=0x012e}
0x58ce…58e0               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0038, t01=0x0162}
0x58e0…58f4               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0038, t01=0x0174}
0x58f4…5908               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0038, t01=0x0188}
0x5908…5918               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x000c}
0x5918…5926               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x001c}
0x5926…5930               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x002a}
0x5930…5974               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0039, t01=0x0034}
0x5974…597e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0078}
0x597e…5998               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x0039, t01=0x0082}
0x5998…59a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x009c}
0x59a2…59e6               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0039, t01=0x00a6}
0x59e6…5a26               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x0039, t01=0x00ea}
0x5a26…5a56               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x0039, t01=0x012a}
0x5a56…5a60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x015a}
0x5a60…5aa2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0039, t01=0x0164}
0x5aa2…5aac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0016}
0x5aac…5ac0               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003a, t01=0x0020}
0x5ac0…5ae8               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003a, t01=0x0034}
0x5ae8…5b22               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003a, t01=0x005c}
0x5b22…5b36               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003a, t01=0x0096}
0x5b36…5b6c               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003a, t01=0x00aa}
0x5b6c…5b7e               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003a, t01=0x00e0}
0x5b7e…5b92               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003a, t01=0x00f2}
0x5b92…5ba2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0106}
0x5ba2…5bb0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0116}
0x5bb0…5bba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0124}
0x5bba…5bfc               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x012e}
0x5bfc…5c06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0170}
0x5c06…5c1c               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003a, t01=0x017a}
0x5c1c…5c26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0190}
0x5c26…5c44               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003b, t01=0x000a}
0x5c44…5c80               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003b, t01=0x0028}
0x5c80…5cbe               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003b, t01=0x0064}
0x5cbe…5cdc               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003b, t01=0x00a2}
0x5cdc…5ce6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00c0}
0x5ce6…5d26               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x00ca}
0x5d26…5d30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x010a}
0x5d30…5d4c               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003b, t01=0x0114}
0x5d4c…5d76               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003b, t01=0x0130}
0x5d76…5da6               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003b, t01=0x015a}
0x5da6…5dba               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003b, t01=0x018a}
0x5dba…5dce               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003c, t01=0x000e}
0x5dce…5de4               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003c, t01=0x0022}
0x5de4…5df8               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003c, t01=0x0038}
0x5df8…5e20               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003c, t01=0x004c}
0x5e20…5e3e               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003c, t01=0x0074}
0x5e3e…5e6e               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003c, t01=0x0092}
0x5e6e…5e7e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x00c2}
0x5e7e…5e8c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00d2}
0x5e8c…5e96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e0}
0x5e96…5ed4               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003c, t01=0x00ea}
0x5ed4…5ede               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0128}
0x5ede…5eee               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003c, t01=0x0132}
0x5eee…5ef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0142}
0x5ef8…5f32               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003c, t01=0x014c}
0x5f32…5f68               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003c, t01=0x0186}
0x5f68…5f72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x002c}
0x5f72…5fae               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003d, t01=0x0036}
0x5fae…5fb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0072}
0x5fb8…5fda               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003d, t01=0x007c}
0x5fda…5ff0               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003d, t01=0x009e}
0x5ff0…6004               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003d, t01=0x00b4}
0x6004…6016               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003d, t01=0x00c8}
0x6016…6040               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003d, t01=0x00da}
0x6040…6066               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003d, t01=0x0104}
0x6066…6088               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003d, t01=0x012a}
0x6088…60a2               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003d, t01=0x014c}
0x60a2…60c8               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003d, t01=0x0166}
0x60c8…60e2               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003d, t01=0x018c}
0x60e2…60f4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003e, t01=0x0016}
0x60f4…6120               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x0028}
0x6120…613a               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003e, t01=0x0054}
0x613a…6152               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003e, t01=0x006e}
0x6152…617a               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003e, t01=0x0086}
0x617a…61be               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003e, t01=0x00ae}
0x61be…61d0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003e, t01=0x00f2}
0x61d0…61f2               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003e, t01=0x0104}
0x61f2…622a               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003e, t01=0x0126}
0x622a…625e               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x003e, t01=0x015e}
0x625e…6270 (63, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x003f, t01=0x0004}
0x6270…6284               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x003f, t01=0x0016}
0x6284…62c6               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x003f, t01=0x002a}
0x62c6…62e4               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x003f, t01=0x006c}
0x62e4…62fe               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x003f, t01=0x008a}
0x62fe…6310               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x003f, t01=0x00a4}
0x6310…6332               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x003f, t01=0x00b6}
0x6332…6354               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x003f, t01=0x00d8}
0x6354…6364               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x00fa}
0x6364…6392               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x003f, t01=0x010a}
0x6392…63ac               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x003f, t01=0x0138}
0x63ac…63d8               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x003f, t01=0x0152}
0x63d8…63fe               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003f, t01=0x017e}
0x63fe…6422               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0040, t01=0x0014}
0x6422…643a               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0040, t01=0x0038}
0x643a…6458               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x0050}
0x6458…6472               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0040, t01=0x006e}
0x6472…64a4               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0040, t01=0x0088}
0x64a4…64c0               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0040, t01=0x00ba}
0x64c0…6508               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x00d6}
0x6508…651a               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0040, t01=0x011e}
0x651a…6562               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0040, t01=0x0130}
0x6562…6570               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0178}
0x6570…657e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0186}
0x657e…6588 (65, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0004}
0x6588…65ca               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x000e}
0x65ca…65d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0050}
0x65d4…65e2               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0041, t01=0x005a}
0x65e2…65ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0068}
0x65ec…662a               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0041, t01=0x0072}
0x662a…6634               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b0}
0x6634…6676               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x00ba}
0x6676…6680               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00fc}
0x6680…6694               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0041, t01=0x0106}
0x6694…66c4               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0041, t01=0x011a}
0x66c4…66e6               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0041, t01=0x014a}
0x66e6…66f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x016c}
0x66f0…6702               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0041, t01=0x0176}
0x6702…672c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0041, t01=0x0188}
0x672c…675e               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0042, t01=0x0022}
0x675e…6782               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0042, t01=0x0054}
0x6782…679c               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0042, t01=0x0078}
0x679c…67d2               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0042, t01=0x0092}
0x67d2…67e4               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0042, t01=0x00c8}
0x67e4…680a               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0042, t01=0x00da}
0x680a…6824               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0042, t01=0x0100}
0x6824…683c               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0042, t01=0x011a}
0x683c…685e               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0042, t01=0x0132}
0x685e…6876               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0042, t01=0x0154}
0x6876…68a6               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0042, t01=0x016c}
0x68a6…68b4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x000c}
0x68b4…68fc               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0043, t01=0x001a}
0x68fc…6906               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0062}
0x6906…6930               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0043, t01=0x006c}
0x6930…695c               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0043, t01=0x0096}
0x695c…6966               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00c2}
0x6966…69a0               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0043, t01=0x00cc}
0x69a0…69a8               Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x0106}
0x69a8…69bc               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0043, t01=0x010e}
0x69bc…69e0               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0043, t01=0x0122}
0x69e0…6a1c               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0043, t01=0x0146}
0x6a1c…6a42               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0043, t01=0x0182}
0x6a42…6a4a               Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x0018}
0x6a4a…6a5e               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0044, t01=0x0020}
0x6a5e…6a82               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0044, t01=0x0034}
0x6a82…6abe               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0044, t01=0x0058}
0x6abe…6ae4               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x0094}
0x6ae4…6b0a               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x00ba}
0x6b0a…6b22               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0044, t01=0x00e0}
0x6b22…6b2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f8}
0x6b2c…6b6e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0044, t01=0x0102}
0x6b6e…6b78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0144}
0x6b78…6b86               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0044, t01=0x014e}
0x6b86…6b90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x015c}
0x6b90…6bb6               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0044, t01=0x0166}
0x6bb6…6bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x018c}
0x6bc0…6c02               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0045, t01=0x0008}
0x6c02…6c0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x004a}
0x6c0c…6c20               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0045, t01=0x0054}
0x6c20…6c34               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0045, t01=0x0068}
0x6c34…6c56               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0045, t01=0x007c}
0x6c56…6c60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x009e}
0x6c60…6c72               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0045, t01=0x00a8}
0x6c72…6c9c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0045, t01=0x00ba}
0x6c9c…6cce               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0045, t01=0x00e4}
0x6cce…6cf6               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0045, t01=0x0116}
0x6cf6…6d10               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0045, t01=0x013e}
0x6d10…6d46               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0045, t01=0x0158}
0x6d46…6d58               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0045, t01=0x018e}
0x6d58…6d7c               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0046, t01=0x0010}
0x6d7c…6d94               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0046, t01=0x0034}
0x6d94…6dc4               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0046, t01=0x004c}
0x6dc4…6dd2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x007c}
0x6dd2…6ddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008a}
0x6ddc…6e1e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x0094}
0x6e1e…6e28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00d6}
0x6e28…6e38               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0046, t01=0x00e0}
0x6e38…6e42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00f0}
0x6e42…6e82               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0046, t01=0x00fa}
0x6e82…6e94               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0046, t01=0x013a}
0x6e94…6e9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x014c}
0x6e9e…6ee0               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x0156}
0x6ee0…6eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0008}
0x6eea…6efe               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0047, t01=0x0012}
0x6efe…6f24               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0047, t01=0x0026}
0x6f24…6f38               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0047, t01=0x004c}
0x6f38…6f4e               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0047, t01=0x0060}
0x6f4e…6f64               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0047, t01=0x0076}
0x6f64…6f76               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0047, t01=0x008c}
0x6f76…6f7e               Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x009e}
0x6f7e…6fa8               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0047, t01=0x00a6}
0x6fa8…6fc4               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0047, t01=0x00d0}
0x6fc4…6fe6               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0047, t01=0x00ec}
0x6fe6…7014               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0047, t01=0x010e}
0x7014…7030               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0047, t01=0x013c}
0x7030…705c               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0047, t01=0x0158}
0x705c…7076               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0047, t01=0x0184}
0x7076…709a               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0048, t01=0x000e}
0x709a…70b8               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x0048, t01=0x0032}
0x70b8…70e8               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0048, t01=0x0050}
0x70e8…7104               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x0048, t01=0x0080}
0x7104…7116               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x0048, t01=0x009c}
0x7116…712a               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x0048, t01=0x00ae}
0x712a…7142               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x0048, t01=0x00c2}
0x7142…716c               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0048, t01=0x00da}
0x716c…7186               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x0048, t01=0x0104}
0x7186…71ba               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x0048, t01=0x011e}
0x71ba…71ce               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0048, t01=0x0152}
0x71ce…71ea               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x0048, t01=0x0166}
0x71ea…7206               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x0048, t01=0x0182}
0x7206…722e               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x0049, t01=0x000e}
0x722e…7240               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x0049, t01=0x0036}
0x7240…7254               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x0049, t01=0x0048}
0x7254…725c               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x005c}
0x725c…7292               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x0049, t01=0x0064}
0x7292…72b6               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x0049, t01=0x009a}
0x72b6…72ce               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x0049, t01=0x00be}
0x72ce…72e2               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x0049, t01=0x00d6}
0x72e2…72fc               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x0049, t01=0x00ea}
0x72fc…7328               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x0049, t01=0x0104}
0x7328…733a               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0049, t01=0x0130}
0x733a…7362               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x0049, t01=0x0142}
0x7362…737c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x0049, t01=0x016a}
0x737c…73a6               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x0049, t01=0x0184}
0x73a6…73c0               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004a, t01=0x001e}
0x73c0…73de               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004a, t01=0x0038}
0x73de…7400               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004a, t01=0x0056}
0x7400…742c               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004a, t01=0x0078}
0x742c…744e               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004a, t01=0x00a4}
0x744e…747a               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004a, t01=0x00c6}
0x747a…74ae               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004a, t01=0x00f2}
0x74ae…74d8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004a, t01=0x0126}
0x74d8…74ea               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004a, t01=0x0150}
0x74ea…74fe               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004a, t01=0x0162}
0x74fe…7514               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004a, t01=0x0176}
0x7514…752a               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004a, t01=0x018c}
0x752a…753c               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004b, t01=0x0012}
0x753c…7550               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004b, t01=0x0024}
0x7550…756c               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004b, t01=0x0038}
0x756c…7592               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004b, t01=0x0054}
0x7592…75b6               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004b, t01=0x007a}
0x75b6…75ce               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004b, t01=0x009e}
0x75ce…75d6               Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00b6}
0x75d6…7602               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004b, t01=0x00be}
0x7602…7616               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004b, t01=0x00ea}
0x7616…763a               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004b, t01=0x00fe}
0x763a…765e               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004b, t01=0x0122}
0x765e…768a               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004b, t01=0x0146}
0x768a…76a6               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004b, t01=0x0172}
0x76a6…76e4               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004b, t01=0x018e}
0x76e4…76f8               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004c, t01=0x003c}
0x76f8…7708               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004c, t01=0x0050}
0x7708…771c               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004c, t01=0x0060}
0x771c…772a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0074}
0x772a…7732               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x0082}
0x7732…776e               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004c, t01=0x008a}
0x776e…7778               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00c6}
0x7778…77b8               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004c, t01=0x00d0}
0x77b8…77ea               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004c, t01=0x0110}
0x77ea…77f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0142}
0x77f4…7838               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004c, t01=0x014c}
0x7838…7840               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x0190}
0x7840…7854               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004d, t01=0x0008}
0x7854…7868               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004d, t01=0x001c}
0x7868…7892               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004d, t01=0x0030}
0x7892…78be               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004d, t01=0x005a}
0x78be…78f0               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004d, t01=0x0086}
0x78f0…7918               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004d, t01=0x00b8}
0x7918…7920               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00e0}
0x7920…794e               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004d, t01=0x00e8}
0x794e…7972               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004d, t01=0x0116}
0x7972…798c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004d, t01=0x013a}
0x798c…79be               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004d, t01=0x0154}
0x79be…79da               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x004d, t01=0x0186}
0x79da…79fa               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x004e, t01=0x0012}
0x79fa…7a0c               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004e, t01=0x0032}
0x7a0c…7a24               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x004e, t01=0x0044}
0x7a24…7a2c               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x005c}
0x7a2c…7a34               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0064}
0x7a34…7a48               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x004e, t01=0x006c}
0x7a48…7a76               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x004e, t01=0x0080}
0x7a76…7a9a               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x004e, t01=0x00ae}
0x7a9a…7ac6               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x004e, t01=0x00d2}
0x7ac6…7ace               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00fe}
0x7ace…7b00               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x004e, t01=0x0106}
0x7b00…7b1c               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x004e, t01=0x0138}
0x7b1c…7b3e               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x004e, t01=0x0154}
0x7b3e…7b62               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x004e, t01=0x0176}
0x7b62…7b90               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x004f, t01=0x000a}
0x7b90…7ba2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x004f, t01=0x0038}
0x7ba2…7bc8               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x004f, t01=0x004a}
0x7bc8…7bd0               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0070}
0x7bd0…7bd8               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0078}
0x7bd8…7c06               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x004f, t01=0x0080}
0x7c06…7c34               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x004f, t01=0x00ae}
0x7c34…7c5a               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x004f, t01=0x00dc}
0x7c5a…7c82               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x004f, t01=0x0102}
0x7c82…7c8a               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x012a}
0x7c8a…7cc0               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x004f, t01=0x0132}
0x7cc0…7cee               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x004f, t01=0x0168}
0x7cee…7d0a               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0050, t01=0x0008}
0x7d0a…7d20               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0050, t01=0x0024}
0x7d20…7d52               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0050, t01=0x003a}
0x7d52…7d78               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0050, t01=0x006c}
0x7d78…7da2               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0050, t01=0x0092}
0x7da2…7db0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x00bc}
0x7db0…7db8               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x00ca}
0x7db8…7dfe               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0050, t01=0x00d2}
0x7dfe…7e08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0118}
0x7e08…7e4c               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0050, t01=0x0122}
0x7e4c…7e8c               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0050, t01=0x0166}
0x7e8c…7e96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0016}
0x7e96…7ed2               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0051, t01=0x0020}
0x7ed2…7eda               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x005c}
0x7eda…7eee               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0051, t01=0x0064}
0x7eee…7f16               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0051, t01=0x0078}
0x7f16…7f48               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0051, t01=0x00a0}
0x7f48…7f58               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x00d2}
0x7f58…7f60               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00e2}
0x7f60…7f68               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00ea}
0x7f68…7f82               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0051, t01=0x00f2}
0x7f82…7f96               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0051, t01=0x010c}
0x7f96…7fc2               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0051, t01=0x0120}
0x7fc2…7fde               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0051, t01=0x014c}
0x7fde…7ff6               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0051, t01=0x0168}
0x7ff6…8008               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0051, t01=0x0180}
0x8008…8010 (82, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0004}
0x8010…8018               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x000c}
0x8018…804c               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0052, t01=0x0014}
0x804c…8054               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0048}
0x8054…805c               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0050}
0x805c…8080               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0052, t01=0x0058}
0x8080…809a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0052, t01=0x007c}
0x809a…80ac               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0052, t01=0x0096}
0x80ac…80b4               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00a8}
0x80b4…80d0               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0052, t01=0x00b0}
0x80d0…810a               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0052, t01=0x00cc}
0x810a…813c               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0052, t01=0x0106}
0x813c…816e               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0052, t01=0x0138}
0x816e…818a               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0052, t01=0x016a}
0x818a…81ac               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0052, t01=0x0186}
0x81ac…81d0               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0053, t01=0x0018}
0x81d0…81fe               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0053, t01=0x003c}
0x81fe…8210               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0053, t01=0x006a}
0x8210…8236               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0053, t01=0x007c}
0x8236…823e               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00a2}
0x823e…8246               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00aa}
0x8246…8272               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0053, t01=0x00b2}
0x8272…82a4               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0053, t01=0x00de}
0x82a4…82d6               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0053, t01=0x0110}
0x82d6…82ea               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0053, t01=0x0142}
0x82ea…8318               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0053, t01=0x0156}
0x8318…8344               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0053, t01=0x0184}
0x8344…8356               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0054, t01=0x0020}
0x8356…8362               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0032}
0x8362…8370               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x003e}
0x8370…8378               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x004c}
0x8378…83ba               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0054, t01=0x0054}
0x83ba…83c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0096}
0x83c4…83fc               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0054, t01=0x00a0}
0x83fc…8406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00d8}
0x8406…8444               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0054, t01=0x00e2}
0x8444…844c               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0120}
0x844c…8460               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0054, t01=0x0128}
0x8460…8472               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0054, t01=0x013c}
0x8472…847a               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x014e}
0x847a…8492               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0054, t01=0x0156}
0x8492…84a8               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0054, t01=0x016e}
0x84a8…84c8               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0054, t01=0x0184}
0x84c8…84f2               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0055, t01=0x0014}
0x84f2…8516               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0055, t01=0x003e}
0x8516…8532               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0055, t01=0x0062}
0x8532…8544               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0055, t01=0x007e}
0x8544…8572               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0055, t01=0x0090}
0x8572…857a               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00be}
0x857a…85a8               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0055, t01=0x00c6}
0x85a8…85be               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0055, t01=0x00f4}
0x85be…85cc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x010a}
0x85cc…85d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0118}
0x85d6…8618               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0055, t01=0x0122}
0x8618…8622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0164}
0x8622…8632               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0055, t01=0x016e}
0x8632…863c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x017e}
0x863c…867a               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0055, t01=0x0188}
0x867a…86a2               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0056, t01=0x0036}
0x86a2…86ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x005e}
0x86ac…86ee               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0056, t01=0x0068}
0x86ee…86f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00aa}
0x86f8…870c               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0056, t01=0x00b4}
0x870c…871e               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0056, t01=0x00c8}
0x871e…873c               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0056, t01=0x00da}
0x873c…8750               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0056, t01=0x00f8}
0x8750…8778               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0056, t01=0x010c}
0x8778…878c               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0056, t01=0x0134}
0x878c…87be               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0056, t01=0x0148}
0x87be…87ea               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0056, t01=0x017a}
0x87ea…87fa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x0016}
0x87fa…8804               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0026}
0x8804…880c               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0030}
0x880c…881e               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0057, t01=0x0038}
0x881e…8826               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x004a}
0x8826…8830               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0052}
0x8830…883a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x005c}
0x883a…8884               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0057, t01=0x0066}
0x8884…88c2               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0057, t01=0x00b0}
0x88c2…88cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00ee}
0x88cc…88d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00f8}
0x88d6…88e8               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0057, t01=0x0102}
0x88e8…88fe               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0057, t01=0x0114}
0x88fe…891a               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0057, t01=0x012a}
0x891a…892a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x0146}
0x892a…893e               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0057, t01=0x0156}
0x893e…8958               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0057, t01=0x016a}
0x8958…897c               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0057, t01=0x0184}
0x897c…899e               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0058, t01=0x0018}
0x899e…89c2               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0058, t01=0x003a}
0x89c2…89e4               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x0058, t01=0x005e}
0x89e4…89f6               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x0058, t01=0x0080}
0x89f6…8a08               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0058, t01=0x0092}
0x8a08…8a1a               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x0058, t01=0x00a4}
0x8a1a…8a2a               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x0058, t01=0x00b6}
0x8a2a…8a54               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x0058, t01=0x00c6}
0x8a54…8a5c               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x00f0}
0x8a5c…8a68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x00f8}
0x8a68…8a76               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x0104}
0x8a76…8a7e               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0112}
0x8a7e…8a88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x011a}
0x8a88…8ab2               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x0058, t01=0x0124}
0x8ab2…8abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x014e}
0x8abc…8ac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0158}
0x8ac6…8ad8               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x0058, t01=0x0162}
0x8ad8…8af4               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x0058, t01=0x0174}
0x8af4…8b06               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0058, t01=0x0190}
0x8b06…8b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0012}
0x8b10…8b1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x001c}
0x8b1a…8b42               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x0059, t01=0x0026}
0x8b42…8b4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x004e}
0x8b4c…8b56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0058}
0x8b56…8b68               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x0059, t01=0x0062}
0x8b68…8b84               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x0059, t01=0x0074}
0x8b84…8b96               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0059, t01=0x0090}
0x8b96…8ba0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a2}
0x8ba0…8bc0               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x0059, t01=0x00ac}
0x8bc0…8bca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00cc}
0x8bca…8bde               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x0059, t01=0x00d6}
0x8bde…8bf2               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0059, t01=0x00ea}
0x8bf2…8c04               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x0059, t01=0x00fe}
0x8c04…8c12               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0110}
0x8c12…8c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x011e}
0x8c1c…8c5c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0059, t01=0x0128}
0x8c5c…8c66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0168}
0x8c66…8c76               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x0059, t01=0x0172}
0x8c76…8c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0182}
0x8c80…8cbc               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x0059, t01=0x018c}
0x8cbc…8cfc               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005a, t01=0x0038}
0x8cfc…8d38               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005a, t01=0x0078}
0x8d38…8d56               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005a, t01=0x00b4}
0x8d56…8d60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00d2}
0x8d60…8da2               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005a, t01=0x00dc}
0x8da2…8dac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x011e}
0x8dac…8dc0               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005a, t01=0x0128}
0x8dc0…8dde               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005a, t01=0x013c}
0x8dde…8df2               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005a, t01=0x015a}
0x8df2…8e1c               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005a, t01=0x016e}
0x8e1c…8e4e               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005b, t01=0x0008}
0x8e4e…8e80               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005b, t01=0x003a}
0x8e80…8e94               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005b, t01=0x006c}
0x8e94…8ea4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x0080}
0x8ea4…8eae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0090}
0x8eae…8eb6               Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x009a}
0x8eb6…8ec8               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005b, t01=0x00a2}
0x8ec8…8ed0               Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00b4}
0x8ed0…8eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00bc}
0x8eda…8ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00c6}
0x8ee4…8f2e               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005b, t01=0x00d0}
0x8f2e…8f62               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005b, t01=0x011a}
0x8f62…8f6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x014e}
0x8f6c…8f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0158}
0x8f76…8f88               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005b, t01=0x0162}
0x8f88…8f9e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005b, t01=0x0174}
0x8f9e…8fb0               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005b, t01=0x018a}
0x8fb0…8fc4               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005c, t01=0x000c}
0x8fc4…8fde               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005c, t01=0x0020}
0x8fde…8ffe               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005c, t01=0x003a}
0x8ffe…902e               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005c, t01=0x005a}
0x902e…9058               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005c, t01=0x008a}
0x9058…907a               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005c, t01=0x00b4}
0x907a…909c               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005c, t01=0x00d6}
0x909c…90b2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005c, t01=0x00f8}
0x90b2…90c4               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005c, t01=0x010e}
0x90c4…90d6               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005c, t01=0x0120}
0x90d6…90f0               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005c, t01=0x0132}
0x90f0…9110               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005c, t01=0x014c}
0x9110…9140               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005c, t01=0x016c}
0x9140…915e               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005d, t01=0x000c}
0x915e…918e               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005d, t01=0x002a}
0x918e…91ae               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x005d, t01=0x005a}
0x91ae…91c0               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005d, t01=0x007a}
0x91c0…91c8               Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x008c}
0x91c8…91da               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x005d, t01=0x0094}
0x91da…91f0               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x005d, t01=0x00a6}
0x91f0…9204               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x005d, t01=0x00bc}
0x9204…9220               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x005d, t01=0x00d0}
0x9220…9230               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x00ec}
0x9230…9242               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x005d, t01=0x00fc}
0x9242…925c               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005d, t01=0x010e}
0x925c…927c               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x005d, t01=0x0128}
0x927c…92ac               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005d, t01=0x0148}
0x92ac…92ca               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x005d, t01=0x0178}
0x92ca…92fa               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005e, t01=0x0008}
0x92fa…9318               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x005e, t01=0x0038}
0x9318…932a               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005e, t01=0x0056}
0x932a…9336               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0068}
0x9336…934a               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x005e, t01=0x0074}
0x934a…9378               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x005e, t01=0x0088}
0x9378…93a0               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x005e, t01=0x00b6}
0x93a0…93a8               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00de}
0x93a8…93b0               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00e6}
0x93b0…93c0               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x005e, t01=0x00ee}
0x93c0…93d4               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x005e, t01=0x00fe}
0x93d4…93e6               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005e, t01=0x0112}
0x93e6…93fa               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x005e, t01=0x0124}
0x93fa…9408               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x0138}
0x9408…944c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005e, t01=0x0146}
0x944c…9456               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x018a}
0x9456…9466 (95, 0, 400)  Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x005f, t01=0x0004}
0x9466…94a6               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x005f, t01=0x0014}
0x94a6…94e2               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x005f, t01=0x0054}
0x94e2…94ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0090}
0x94ec…9532               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x009a}
0x9532…9546               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x005f, t01=0x00e0}
0x9546…955c               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x005f, t01=0x00f4}
0x955c…9570               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x005f, t01=0x010a}
0x9570…9586               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x005f, t01=0x011e}
0x9586…959a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x005f, t01=0x0134}
0x959a…95b4               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x005f, t01=0x0148}
0x95b4…95c6               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x005f, t01=0x0162}
0x95c6…95e0               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x005f, t01=0x0174}
0x95e0…9614               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x005f, t01=0x018e}
0x9614…9620               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0032}
0x9620…9634               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0060, t01=0x003e}
0x9634…966e               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0060, t01=0x0052}
0x966e…968c               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0060, t01=0x008c}
0x968c…96b6               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0060, t01=0x00aa}
0x96b6…96ca               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0060, t01=0x00d4}
0x96ca…96e8               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0060, t01=0x00e8}
0x96e8…9712               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0060, t01=0x0106}
0x9712…971e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0130}
0x971e…9732               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0060, t01=0x013c}
0x9732…9748               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0060, t01=0x0150}
0x9748…975e               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0060, t01=0x0166}
0x975e…9774               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0060, t01=0x017c}
0x9774…97a0 (97, 0, 398)  Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0061, t01=0x0004}
0x97a0…97ca               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0061, t01=0x0030}
0x97ca…97f2               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0061, t01=0x005a}
0x97f2…9820               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0061, t01=0x0082}
0x9820…9836               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0061, t01=0x00b0}
0x9836…985e               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0061, t01=0x00c6}
0x985e…988c               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0061, t01=0x00ee}
0x988c…9894               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x011c}
0x9894…98a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0124}
0x98a0…98b4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0061, t01=0x0130}
0x98b4…98c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0144}
0x98c2…9906               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0061, t01=0x0152}
0x9906…9910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0008}
0x9910…992a               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0062, t01=0x0012}
0x992a…9976               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0062, t01=0x002c}
0x9976…9994               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0062, t01=0x0078}
0x9994…999e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0096}
0x999e…99ec               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0062, t01=0x00a0}
0x99ec…99f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00ee}
0x99f6…9a0a               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0062, t01=0x00f8}
0x9a0a…9a20               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x010c}
0x9a20…9a34               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0062, t01=0x0122}
0x9a34…9a4a               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0062, t01=0x0136}
0x9a4a…9a60               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0062, t01=0x014c}
0x9a60…9a76               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0062, t01=0x0162}
0x9a76…9a8c               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0062, t01=0x0178}
0x9a8c…9aa6               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0062, t01=0x018e}
0x9aa6…9ab8               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0063, t01=0x0018}
0x9ab8…9ace               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0063, t01=0x002a}
0x9ace…9ae4               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0063, t01=0x0040}
0x9ae4…9af6               Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0063, t01=0x0056}
0x9af6…9b0a               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0063, t01=0x0068}
0x9b0a…9b20               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0063, t01=0x007c}
0x9b20…9b34               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0063, t01=0x0092}
0x9b34…9b4e               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0063, t01=0x00a6}
0x9b4e…9b5e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x00c0}
0x9b5e…9b6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00d0}
0x9b6a…9b78               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x00dc}
0x9b78…9b82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00ea}
0x9b82…9bc2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0063, t01=0x00f4}
0x9bc2…9bcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0134}
0x9bcc…9bdc               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0063, t01=0x013e}
0x9bdc…9be6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x014e}
0x9be6…9c24               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0063, t01=0x0158}
0x9c24…9c60               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0064, t01=0x0008}
0x9c60…9c9e               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0064, t01=0x0044}
0x9c9e…9cb0               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0064, t01=0x0082}
0x9cb0…9cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0094}
0x9cba…9cfa               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0064, t01=0x009e}
0x9cfa…9d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00de}
0x9d04…9d18               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0064, t01=0x00e8}
0x9d18…9d3c               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0064, t01=0x00fc}
0x9d3c…9d54               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0064, t01=0x0120}
0x9d54…9d86               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0064, t01=0x0138}
0x9d86…9db2               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0064, t01=0x016a}
0x9db2…9ddc               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0065, t01=0x0008}
0x9ddc…9dec               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0032}
0x9dec…9dfa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x0042}
0x9dfa…9e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0050}
0x9e04…9e48               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x005a}
0x9e48…9e52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x009e}
0x9e52…9e62               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0065, t01=0x00a8}
0x9e62…9e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00b8}
0x9e6c…9e8c               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0065, t01=0x00c2}
0x9e8c…9e96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00e2}
0x9e96…9eda               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x00ec}
0x9eda…9ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0130}
0x9ee4…9ef8               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0065, t01=0x013a}
0x9ef8…9f0a               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0065, t01=0x014e}
0x9f0a…9f34               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0065, t01=0x0160}
0x9f34…9f54               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0065, t01=0x018a}
0x9f54…9f6e               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0066, t01=0x001a}
0x9f6e…9f80               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0066, t01=0x0034}
0x9f80…9fa2               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0066, t01=0x0046}
0x9fa2…9faa               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0068}
0x9faa…9fd6               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0066, t01=0x0070}
0x9fd6…9fde               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x009c}
0x9fde…a014               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0066, t01=0x00a4}
0xa014…a042               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0066, t01=0x00da}
0xa042…a04a               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0108}
0xa04a…a076               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0066, t01=0x0110}
0xa076…a07e               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x013c}
0xa07e…a0aa               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0066, t01=0x0144}
0xa0aa…a0cc               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0066, t01=0x0170}
0xa0cc…a0e4 (103, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0067, t01=0x0004}
0xa0e4…a0fc               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0067, t01=0x001c}
0xa0fc…a118               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0067, t01=0x0034}
0xa118…a12c               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0067, t01=0x0050}
0xa12c…a142               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0067, t01=0x0064}
0xa142…a158               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0067, t01=0x007a}
0xa158…a16a               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0067, t01=0x0090}
0xa16a…a19e               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x0067, t01=0x00a2}
0xa19e…a1ca               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x0067, t01=0x00d6}
0xa1ca…a1d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0102}
0xa1d4…a200               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x0067, t01=0x010c}
0xa200…a20a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0138}
0xa20a…a212               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0142}
0xa212…a22e               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x0067, t01=0x014a}
0xa22e…a246               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x0067, t01=0x0166}
0xa246…a26e               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x0067, t01=0x017e}
0xa26e…a276               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0016}
0xa276…a28a               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x0068, t01=0x001e}
0xa28a…a2bc               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0068, t01=0x0032}
0xa2bc…a2dc               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x0068, t01=0x0064}
0xa2dc…a2fa               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x0068, t01=0x0084}
0xa2fa…a30c               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0068, t01=0x00a2}
0xa30c…a320               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x0068, t01=0x00b4}
0xa320…a330               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x00c8}
0xa330…a35c               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x0068, t01=0x00d8}
0xa35c…a376               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x0068, t01=0x0104}
0xa376…a388               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0068, t01=0x011e}
0xa388…a3a0               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x0068, t01=0x0130}
0xa3a0…a3ce               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x0068, t01=0x0148}
0xa3ce…a3e4               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x0068, t01=0x0176}
0xa3e4…a402               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x0068, t01=0x018c}
0xa402…a414               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x0069, t01=0x001a}
0xa414…a422               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x002c}
0xa422…a42c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x003a}
0xa42c…a46c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0069, t01=0x0044}
0xa46c…a476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0084}
0xa476…a486               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x0069, t01=0x008e}
0xa486…a490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x009e}
0xa490…a4ce               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x0069, t01=0x00a8}
0xa4ce…a50c               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x0069, t01=0x00e6}
0xa50c…a532               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x0069, t01=0x0124}
0xa532…a53c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x014a}
0xa53c…a57c               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0069, t01=0x0154}
0xa57c…a586 (106, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0004}
0xa586…a59a               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006a, t01=0x000e}
0xa59a…a5c6               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006a, t01=0x0022}
0xa5c6…a5dc               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006a, t01=0x004e}
0xa5dc…a5f8               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006a, t01=0x0064}
0xa5f8…a60e               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006a, t01=0x0080}
0xa60e…a650               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006a, t01=0x0096}
0xa650…a662               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006a, t01=0x00d8}
0xa662…a68a               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006a, t01=0x00ea}
0xa68a…a6be               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006a, t01=0x0112}
0xa6be…a6ec               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006a, t01=0x0146}
0xa6ec…a700               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006a, t01=0x0174}
0xa700…a742               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x0188}
0xa742…a754               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x003a}
0xa754…a75c               Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x004c}
0xa75c…a770               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006b, t01=0x0054}
0xa770…a78c               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006b, t01=0x0068}
0xa78c…a79c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0084}
0xa79c…a7aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0094}
0xa7aa…a7b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00a2}
0xa7b4…a7f8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006b, t01=0x00ac}
0xa7f8…a802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00f0}
0xa802…a812               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006b, t01=0x00fa}
0xa812…a81c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x010a}
0xa81c…a84e               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006b, t01=0x0114}
0xa84e…a858               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0146}
0xa858…a89c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006b, t01=0x0150}
0xa89c…a8a6 (108, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0004}
0xa8a6…a8ba               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006c, t01=0x000e}
0xa8ba…a8e6               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006c, t01=0x0022}
0xa8e6…a902               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006c, t01=0x004e}
0xa902…a93a               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006c, t01=0x006a}
0xa93a…a956               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006c, t01=0x00a2}
0xa956…a95e               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00be}
0xa95e…a968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00c6}
0xa968…a988               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006c, t01=0x00d0}
0xa988…a992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00f0}
0xa992…a99a               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00fa}
0xa99a…a9b2               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006c, t01=0x0102}
0xa9b2…a9d8               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006c, t01=0x011a}
0xa9d8…a9fe               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006c, t01=0x0140}
0xa9fe…aa26               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006c, t01=0x0166}
0xaa26…aa3a               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006c, t01=0x018e}
0xaa3a…aa5e               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006d, t01=0x0012}
0xaa5e…aa72               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006d, t01=0x0036}
0xaa72…aa94               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006d, t01=0x004a}
0xaa94…aaac               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x006d, t01=0x006c}
0xaaac…aace               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x006d, t01=0x0084}
0xaace…aada               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x006d, t01=0x00a6}
0xaada…aaea               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x006d, t01=0x00b2}
0xaaea…aaf2               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00c2}
0xaaf2…ab02               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x00ca}
0xab02…ab18               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x006d, t01=0x00da}
0xab18…ab26               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x00f0}
0xab26…ab70               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006d, t01=0x00fe}
0xab70…ab7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0148}
0xab7a…aba6               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x006d, t01=0x0152}
0xaba6…abd6               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x006d, t01=0x017e}
0xabd6…abe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x001e}
0xabe0…ac2a               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006e, t01=0x0028}
0xac2a…ac34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0072}
0xac34…ac46               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x006e, t01=0x007c}
0xac46…ac70               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x006e, t01=0x008e}
0xac70…ac96               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x006e, t01=0x00b8}
0xac96…acaa               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x006e, t01=0x00de}
0xacaa…acbe               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x006e, t01=0x00f2}
0xacbe…acd0               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x006e, t01=0x0106}
0xacd0…acf0               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x006e, t01=0x0118}
0xacf0…ad06               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x006e, t01=0x0138}
0xad06…ad2a               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x006e, t01=0x014e}
0xad2a…ad48               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x006e, t01=0x0172}
0xad48…ad62               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x006e, t01=0x0190}
0xad62…ad8c               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x006f, t01=0x001a}
0xad8c…ada6               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x006f, t01=0x0044}
0xada6…adc2               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x006f, t01=0x005e}
0xadc2…add4               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x006f, t01=0x007a}
0xadd4…adfc               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x006f, t01=0x008c}
0xadfc…ae18               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x006f, t01=0x00b4}
0xae18…ae32               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x006f, t01=0x00d0}
0xae32…ae52               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x006f, t01=0x00ea}
0xae52…ae7e               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x006f, t01=0x010a}
0xae7e…ae88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0136}
0xae88…aea8               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x006f, t01=0x0140}
0xaea8…aef6               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x006f, t01=0x0160}
0xaef6…af24               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0070, t01=0x001e}
0xaf24…af50               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0070, t01=0x004c}
0xaf50…af5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0078}
0xaf5a…af88               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0070, t01=0x0082}
0xaf88…af92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00b0}
0xaf92…afa6               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0070, t01=0x00ba}
0xafa6…afb6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x00ce}
0xafb6…afc2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00de}
0xafc2…afd0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x00ea}
0xafd0…afda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00f8}
0xafda…b01a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x0102}
0xb01a…b024               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0142}
0xb024…b038               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0070, t01=0x014c}
0xb038…b042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0160}
0xb042…b04c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x016a}
0xb04c…b08c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x0174}
0xb08c…b096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0024}
0xb096…b0aa               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0071, t01=0x002e}
0xb0aa…b0be               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0071, t01=0x0042}
0xb0be…b0d4               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0071, t01=0x0056}
0xb0d4…b0e8               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0071, t01=0x006c}
0xb0e8…b0fc               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0071, t01=0x0080}
0xb0fc…b10e               Head {h00=0x000e, h01=0x0050, text=»LIOL EQU 8«, t00=0x0071, t01=0x0094}
0xb10e…b120               Head {h00=0x000e, h01=0x0050, text=»LINH EQU 4«, t00=0x0071, t01=0x00a6}
0xb120…b132               Head {h00=0x000e, h01=0x0050, text=»LERR EQU 2«, t00=0x0071, t01=0x00b8}
0xb132…b144               Head {h00=0x000e, h01=0x0050, text=»LSAV EQU 1«, t00=0x0071, t01=0x00ca}
0xb144…b150               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x00dc}
0xb150…b166               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0071, t01=0x00e8}
0xb166…b17c               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0071, t01=0x00fe}
0xb17c…b192               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0071, t01=0x0114}
0xb192…b1a8               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0071, t01=0x012a}
0xb1a8…b1be               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0071, t01=0x0140}
0xb1be…b1d4               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0071, t01=0x0156}
0xb1d4…b1ea               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0071, t01=0x016c}
0xb1ea…b1f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x0182}
0xb1f6…b210               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0071, t01=0x018e}
0xb210…b222               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x0018}
0xb222…b23c               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0072, t01=0x002a}
0xb23c…b24e               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x0044}
0xb24e…b268               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0072, t01=0x0056}
0xb268…b27a               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x0070}
0xb27a…b294               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0072, t01=0x0082}
0xb294…b2a6               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x009c}
0xb2a6…b2c0               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0072, t01=0x00ae}
0xb2c0…b2d2               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x00c8}
0xb2d2…b2ec               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0072, t01=0x00da}
0xb2ec…b2fe               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x00f4}
0xb2fe…b318               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0072, t01=0x0106}
0xb318…b32a               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x0120}
0xb32a…b344               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0072, t01=0x0132}
0xb344…b356               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x014c}
0xb356…b370               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0072, t01=0x015e}
0xb370…b382               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x0178}
0xb382…b39c               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0072, t01=0x018a}
0xb39c…b3ae               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x0014}
0xb3ae…b3c8               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0073, t01=0x0026}
0xb3c8…b3da               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x0040}
0xb3da…b3f4               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0073, t01=0x0052}
0xb3f4…b406               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x006c}
0xb406…b410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x007e}
0xb410…b428               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0073, t01=0x0088}
0xb428…b43a               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0073, t01=0x00a0}
0xb43a…b452               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0073, t01=0x00b2}
0xb452…b464               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0073, t01=0x00ca}
0xb464…b472               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x00dc}
0xb472…b47a               Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x00ea}
0xb47a…b484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00f2}
0xb484…b4c4               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x00fc}
0xb4c4…b4ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x013c}
0xb4ce…b4de               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0073, t01=0x0146}
0xb4de…b4e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0156}
0xb4e8…b510               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0073, t01=0x0160}
0xb510…b51a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0188}
0xb51a…b55a (116, 0, 400) Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0074, t01=0x0004}
0xb55a…b564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0044}
0xb564…b578               Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0074, t01=0x004e}
0xb578…b58e               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBSD«, t00=0x0074, t01=0x0062}
0xb58e…b5a4               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0074, t01=0x0078}
0xb5a4…b5bc               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBCW,A8 «, t00=0x0074, t01=0x008e}
0xb5bc…b5c8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0074, t01=0x00a6}
0xb5c8…b5d8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0074, t01=0x00b2}
0xb5d8…b5e8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0074, t01=0x00c2}
0xb5e8…b5f6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x00d2}
0xb5f6…b600               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00e0}
0xb600…b640               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0074, t01=0x00ea}
0xb640…b64a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x012a}
0xb64a…b65e               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0074, t01=0x0134}
0xb65e…b668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0148}
0xb668…b6a6               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0074, t01=0x0152}
0xb6a6…b6b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0190}
0xb6b0…b6f0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0075, t01=0x000a}
0xb6f0…b6fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x004a}
0xb6fa…b720               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0075, t01=0x0054}
0xb720…b748               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0075, t01=0x007a}
0xb748…b77a               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x0075, t01=0x00a2}
0xb77a…b7a6               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x0075, t01=0x00d4}
0xb7a6…b7b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0100}
0xb7b0…b7c4               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x0075, t01=0x010a}
0xb7c4…b7d6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0075, t01=0x011e}
0xb7d6…b7ea               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x0075, t01=0x0130}
0xb7ea…b810               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0075, t01=0x0144}
0xb810…b832               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x0075, t01=0x016a}
0xb832…b84a               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x0075, t01=0x018c}
0xb84a…b86c               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x0076, t01=0x0014}
0xb86c…b89c               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x0076, t01=0x0036}
0xb89c…b8ac               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0066}
0xb8ac…b8d0               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x0076, t01=0x0076}
0xb8d0…b8e8               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x0076, t01=0x009a}
0xb8e8…b8fa               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0076, t01=0x00b2}
0xb8fa…b910               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x0076, t01=0x00c4}
0xb910…b924               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x0076, t01=0x00da}
0xb924…b932               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x00ee}
0xb932…b93a               Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x00fc}
0xb93a…b974               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0076, t01=0x0104}
0xb974…b99c               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x0076, t01=0x013e}
0xb99c…b9c6               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x0076, t01=0x0166}
0xb9c6…b9ea               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x0076, t01=0x0190}
0xb9ea…ba0c               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x0077, t01=0x0024}
0xba0c…ba28               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x0077, t01=0x0046}
0xba28…ba4c               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x0077, t01=0x0062}
0xba4c…ba82               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0077, t01=0x0086}
0xba82…ba8a               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x00bc}
0xba8a…baac               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x0077, t01=0x00c4}
0xbaac…bac6               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x0077, t01=0x00e6}
0xbac6…bade               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x0077, t01=0x0100}
0xbade…bb16               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x0077, t01=0x0118}
0xbb16…bb26               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x0150}
0xbb26…bb34               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0160}
0xbb34…bb3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x016e}
0xbb3e…bb7e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x0178}
0xbb7e…bb88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0028}
0xbb88…bb9c               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x0078, t01=0x0032}
0xbb9c…bba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0046}
0xbba6…bbe4               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x0078, t01=0x0050}
0xbbe4…bbee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x008e}
0xbbee…bc30               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0078, t01=0x0098}
0xbc30…bc3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00da}
0xbc3a…bc50               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0078, t01=0x00e4}
0xbc50…bc76               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0078, t01=0x00fa}
0xbc76…bc9e               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0078, t01=0x0120}
0xbc9e…bcd0               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x0078, t01=0x0148}
0xbcd0…bcf6               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x0078, t01=0x017a}
0xbcf6…bd00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0010}
0xbd00…bd08               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x001a}
0xbd08…bd10               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x0022}
0xbd10…bd24               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x0079, t01=0x002a}
0xbd24…bd40               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x0079, t01=0x003e}
0xbd40…bd5c               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x0079, t01=0x005a}
0xbd5c…bd8c               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0079, t01=0x0076}
0xbd8c…bda8               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x0079, t01=0x00a6}
0xbda8…bdc4               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x0079, t01=0x00c2}
0xbdc4…bdd4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x00de}
0xbdd4…bddc               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x00ee}
0xbddc…bdf0               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x0079, t01=0x00f6}
0xbdf0…be02               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0079, t01=0x010a}
0xbe02…be16               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x0079, t01=0x011c}
0xbe16…be3c               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0079, t01=0x0130}
0xbe3c…be5c               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x0079, t01=0x0156}
0xbe5c…be74               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x0079, t01=0x0176}
0xbe74…beb8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0079, t01=0x018e}
0xbeb8…bee8               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007a, t01=0x0042}
0xbee8…bf2c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007a, t01=0x0072}
0xbf2c…bf44               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007a, t01=0x00b6}
0xbf44…bf56               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007a, t01=0x00ce}
0xbf56…bf78               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007a, t01=0x00e0}
0xbf78…bfa8               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007a, t01=0x0102}
0xbfa8…bfb8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0132}
0xbfb8…bfe4               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007a, t01=0x0142}
0xbfe4…bffc               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007a, t01=0x016e}
0xbffc…c00e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x007a, t01=0x0186}
0xc00e…c01e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x0008}
0xc01e…c034               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x007b, t01=0x0018}
0xc034…c046               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x007b, t01=0x002e}
0xc046…c054               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x0040}
0xc054…c05e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x004e}
0xc05e…c098               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007b, t01=0x0058}
0xc098…c0a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0092}
0xc0a2…c0b2               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x007b, t01=0x009c}
0xc0b2…c0bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ac}
0xc0bc…c0f6               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x007b, t01=0x00b6}
0xc0f6…c100               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00f0}
0xc100…c13a               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007b, t01=0x00fa}
0xc13a…c144               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0134}
0xc144…c164               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x007b, t01=0x013e}
0xc164…c17a               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007b, t01=0x015e}
0xc17a…c184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0174}
0xc184…c18e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x017e}
0xc18e…c1a2               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x007b, t01=0x0188}
0xc1a2…c1b4               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x007c, t01=0x000c}
0xc1b4…c1ca               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x007c, t01=0x001e}
0xc1ca…c1f0               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x007c, t01=0x0034}
0xc1f0…c202               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x007c, t01=0x005a}
0xc202…c22c               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x007c, t01=0x006c}
0xc22c…c23c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0096}
0xc23c…c24a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x00a6}
0xc24a…c254               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00b4}
0xc254…c298               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007c, t01=0x00be}
0xc298…c2a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0102}
0xc2a2…c2b2               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x007c, t01=0x010c}
0xc2b2…c2bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x011c}
0xc2bc…c2f8               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x007c, t01=0x0126}
0xc2f8…c334               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x007c, t01=0x0162}
0xc334…c35c               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x007d, t01=0x000e}
0xc35c…c392               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x007d, t01=0x0036}
0xc392…c3d2               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x007d, t01=0x006c}
0xc3d2…c3f8               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x007d, t01=0x00ac}
0xc3f8…c426               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x007d, t01=0x00d2}
0xc426…c430               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0100}
0xc430…c46e               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x007d, t01=0x010a}
0xc46e…c496               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x007d, t01=0x0148}
0xc496…c4a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0170}
0xc4a0…c4e4               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x007d, t01=0x017a}
0xc4e4…c4ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x002e}
0xc4ee…c502               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x007e, t01=0x0038}
0xc502…c52c               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x007e, t01=0x004c}
0xc52c…c55a               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x007e, t01=0x0076}
0xc55a…c584               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x007e, t01=0x00a4}
0xc584…c5b0               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x007e, t01=0x00ce}
0xc5b0…c5e8               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x007e, t01=0x00fa}
0xc5e8…c5f8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x0132}
0xc5f8…c606               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x0142}
0xc606…c60e               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0150}
0xc60e…c616               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0158}
0xc616…c65e               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007e, t01=0x0160}
0xc65e…c668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0018}
0xc668…c6a0               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x007f, t01=0x0022}
0xc6a0…c6c8               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x007f, t01=0x005a}
0xc6c8…c6d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0082}
0xc6d2…c716               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x008c}
0xc716…c71e               Head {h00=0x0004, h01=0x0050, t00=0x007f, t01=0x00d0}
0xc71e…c730               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x007f, t01=0x00d8}
0xc730…c74c               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x007f, t01=0x00ea}
0xc74c…c762               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x007f, t01=0x0106}
0xc762…c77e               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x007f, t01=0x011c}
0xc77e…c7a0               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x007f, t01=0x0138}
0xc7a0…c7c2               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x007f, t01=0x015a}
0xc7c2…c7f2               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x007f, t01=0x017c}
0xc7f2…c800               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x001c}
0xc800…c80a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x002a}
0xc80a…c832               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0080, t01=0x0034}
0xc832…c83c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x005c}
0xc83c…c85a               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0080, t01=0x0066}
0xc85a…c86e               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0080, t01=0x0084}
0xc86e…c886               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0080, t01=0x0098}
0xc886…c8a0               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0080, t01=0x00b0}
0xc8a0…c8aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00ca}
0xc8aa…c8be               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0080, t01=0x00d4}
0xc8be…c8d6               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0080, t01=0x00e8}
0xc8d6…c8ec               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0080, t01=0x0100}
0xc8ec…c900               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0080, t01=0x0116}
0xc900…c92e               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0080, t01=0x012a}
0xc92e…c950               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0080, t01=0x0158}
0xc950…c972               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0080, t01=0x017a}
0xc972…c98a               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0081, t01=0x000c}
0xc98a…c9a2               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0081, t01=0x0024}
0xc9a2…c9ae               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0081, t01=0x003c}
0xc9ae…c9be               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0081, t01=0x0048}
0xc9be…c9ce               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0058}
0xc9ce…c9da               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0081, t01=0x0068}
0xc9da…c9de               Head {h00=0x4004, h01=0x0000}
0xc9de…c9e0               00 81                                                                                                                                                                                                                                             ┆  ┆
0xc9e0…c9e2               00 74                                                                                                                                                                                                                                             ┆ t┆
0xc9e2…c9ea (130, 1, 8)   20 04 00 00 00 82 00 04                                                                                                                                                                                                                           ┆        ┆
0xc9ea…ca3a (131, 0, 400) 00 2a 39 68 e9 20 00 0b 50 28 82 08 50 0e ea 20 00 04 50 0c 1a 01 e2 59 00 2b 57 5e f6 a1 86 98 07 80 02 02 e2 59 00 2b f6 a1 86 8a f6 a1 88 08 57 4c 82 08 54 0a f6 a1 86 8a f6 a1 86 4c 57 3e ea 20 00 08 51 04 03 02 57 04 03 00 1a 08 e3 59   ┆ *9h    P(  P     P    Y +W^         Y +        WL  T        LW>    Q   W      Y┆
0xca3a…ca8a               00 2b 03 00 ea 20 00 03 55 04 1a 03 03 80 ea 20 00 02 51 0e 50 06 ab 20 01 00 57 0a ab 20 03 00 57 04 ab 20 02 00 ab 59 00 28 f6 a1 88 04 a0 43 00 10 f6 a1 8f 90 e1 58 00 2a 21 ff e9 20 00 0c 50 0e 83 56 00 02 e1 4c ff fe 21 03 8c 20 8f 8c   ┆ +      U         Q P     W     W      Y (     C       X *!     P  V   L  !     ┆
0xca8a…cada               8f 20 98 a4 82 58 00 30 82 59 00 38 f6 a1 86 7a 01 50 f6 a1 8f ac 90 59 00 30 81 58 00 30 e9 58 00 32 5d 18 82 58 00 38 82 59 00 30 f6 a1 86 7a f0 3a 82 58 00 30 01 00 3a 48 2a 01 f6 a1 8f 98 f0 3a 82 58 00 32 54 06 02 18 82 59 00 32 f0 3a   ┆     X 0 Y 8   z P     Y 0 X 0 X 2]  X 8 Y 0   z : X 0  :H*      : X 2T    Y 2 :┆
0xcada…cb2a               80 d8 00 0a 01 02 81 43 00 04 01 31 87 42 00 02 e1 5d 00 01 07 86 f6 a1 94 be f0 3a 01 06 f6 a1 86 d8 e1 58 00 2b 21 ff 19 02 55 0c 39 4b a9 59 00 28 01 00 e1 59 00 2b f6 a1 88 04 8f 20 89 24 f6 a1 8f 90 39 48 81 59 00 2a e1 32 94 a0 00 01   ┆       C   1 B   ]         :       X +!   U 9K Y (   Y +       $    9H Y * 2    ┆
0xcb2a…cb7a               a0 59 00 28 e1 59 00 2b f6 a1 9b 0a 81 d9 00 34 81 a6 81 d9 00 30 f6 a1 9a 60 81 d9 00 36 81 a6 81 d9 00 32 f0 3a 07 86 81 43 00 04 9c d6 ff f4 28 04 00 01 f6 a1 8f c0 00 01 05 0a 00 00 00 02 20 01 41 20 01 01 00 00 08 80 05 40 04 08 00 11   ┆ Y ( Y +       4     0   `   6     2 :   C      (                 A        @    ┆
0xcb7a…cbca (132, 0, 400) 94 d6 ff f4 85 43 00 02 f0 3a 01 00 07 8b 80 d8 00 0a 82 43 00 0a 85 42 00 02 5f 2c 07 b1 82 0c 5f 14 82 58 00 0e f6 a1 87 2a f6 a1 87 60 ec 0c 50 04 f6 a1 87 3c 14 02 81 10 85 42 00 02 5f 52 80 98 9c d6 ff f4 84 d9 00 28 84 d8 00 02 f6 a1   ┆     C   :         C   B  _,    _  X     *   `  P    <     B  _R         (      ┆
0xcbca…cc1a               90 02 81 58 00 0a 84 44 00 02 83 10 93 44 00 0c 82 a0 00 3a 92 98 83 4b ff fe 01 2b e1 51 00 01 14 02 e1 32 19 c0 50 2e 19 02 50 38 f6 a1 9a 6c f6 a1 a7 5c 86 02 80 d8 00 0a 84 d8 00 28 f6 a1 90 0c 9c 42 00 02 1c 02 83 58 00 10 23 7f eb 10   ┆   X   D     D     :   K   + Q     2  P.  P8   l             (     B     X  #   ┆
0xcc1a…cc6a               56 02 83 10 f0 3a 94 a0 00 01 f6 a1 9b 0a f6 a1 a6 e4 5f 30 94 a0 00 01 f6 a1 9c b4 5f 3e a9 8c a9 8a 9b 0a a9 8a a9 8a a9 8a a9 50 a9 78 a9 74 a7 40 a6 9a a7 40 a6 36 89 60 8a 62 8a 62 a9 8a 89 54 a9 8a 01 02 57 14 01 04 57 02 01 08 82 58   ┆V    :            _0        _>             P x t @   @ 6 ` b b   T    W   W    X┆
0xcc6a…ccba               00 30 51 08 f6 a1 88 e6 8f 20 88 e4 a9 59 00 28 01 0c e9 59 00 2a 50 04 80 d8 00 0a 07 80 f6 a1 94 a6 84 20 a5 4c a0 59 00 2c a0 59 00 2e 82 20 87 de 87 58 00 3c 83 58 00 06 86 58 00 04 f6 a1 a5 82 f6 a1 8f 90 e3 58 00 2a 23 ff 82 58 00 28   ┆ 0Q          Y (   Y *P              L Y , Y .     X < X   X           X *#  X (┆
0xccba…cd0a               81 08 22 01 51 68 82 04 22 02 50 0e 82 58 00 30 50 32 eb 20 00 0a 56 68 5f 66 82 04 22 08 50 2c eb 20 00 02 54 06 f6 a1 8d 82 57 54 82 04 22 10 50 12 82 20 ff ff 92 59 00 00 0a 20 00 80 00 01 40 80 02 85 ff ff c0 14 00 a0 80 a0 00 00 08 08   ┆  " Qh  " P  X 0P2    Vh_f  " P,    T     WT  " P      Y        @               ┆

Reduced view