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

⟦32059e568⟧

    Length: 55816 (0xda08)
    Notes: pts_type(SC)
    Names: »START.SC«

Derivation

└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
    └─⟦this⟧ »NJ-AMT/START.SC« 
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
    └─⟦this⟧ »NJ-AMT/START.SC« 

	IDENT	START	DK8 831107/EV
			DK8 SECOND HARDCOPY KEY/EV/831107

			DK7,READ MODIFIED, 821002
			=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 
			DK6 DUP FIELD, LENGTH=1	DK6
			DK5 - LMPVDU=1, 6272 ON VDU	DK5
			DK4 - FIELD SEPARATOR 6234	DK4 
			DK3 - PA 4-9	DK3 
			DK2 - LAMPMODULE, 6272	DK2 
			DK1 - NUM COMMA	DK1
************************************************************* 
* 
*   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.
* 
**************************************************************************




	 
* 
* 
*	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 
	ENTRY	READMY		DK7
* 
* 
* 
*     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
	 


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

* 
KB6272	EQU	1	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
LMPVDU	EQU	0	=1, 6272 ON 6346	DK5 
			=0, 6272 ON SELECTOR	DK5 
PA49	EQU	1	=1, PA4-9 ALLOWED	DK3
	 
* 
* 
*     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 
	 
* 
* 
*	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
LAMSAV	EQU	RDMORE+2	SAVE AREA FOR LAMPS	DK2 

COPY2	EQU	/44	SECOND HC TASK ID	DK8 
	 
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
	 
* 
*	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	COPY02	SECOND HARDCOPY	DK8
* 
	DATA	LCASPW	LOWER CASE P - W (BECAUSE OF KEYLOCK)
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	 
************************************************************* 
* 
*	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
	 
* 
* 
*	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
	 
* 
***************************************************** 
* 
*     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 
	CM	LAMSAV,TCABAS	CLEAR LAMP STATUS	DK2 
	CF	A14,LIOLOF	TURN OFF OFF LINE LAMP 
	XIF

	 
**************************************************************
* 
*   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
	 
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 
	 
* 
*	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
	 
* 
*	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 
	 
* 
*	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
	 
**	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 
	 
* 
*	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
	 
* 
*	SET REQUEST TIMER 
*	A1 = TIME OUT VALUE 
*	A8 = ECB ADDRESS
* 
REQTIM	EQU	*
	ST	A1,ECBCW,A8 
	LDK	A7,/B9 
	LKM
	DATA	1 
	RTN	A14
	 

* 
* 
**********************************************************
* 
*	RETURN
* 
**************************************************************
* 
RETURN	RTN	A14
	 
* 
******************************************************* 
* 
*     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
	 
* 
*********************************************************** 
* 
*	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
	 
* 
******************************************************
* 
*	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
	 
* 
***************************************************** 
* 
*	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
	 

******************************************************************
	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
******************************************************************* 
	 
* 
****************************************************
* 
*	TAB 
* 
*	MOVE THE CURSOR TO THE FIRST CHAR. LOCATION 
*	OF THE NEXT UNPROTECTED DATA FIELD
* 
****************************************************
* 
*	A1=END OF BUFFER PAREM.   	0=EOB NOT REACHED
*			2=EOB 
*			3=ATTRIB. IN EOB POS
*	A2=CURSOR BINARY ADDRESS
*	A3=CHARACTGR
* 
TAB	EQU	* 
	LDK	A5,1 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
TAB100	CF	A14,ATMASF	SEARCH ATTRIBUTE 
	CWK	A1,0	END OF BUFFER?
	RF(G)	TAB300	YES 
	ADK	A2,1 
TAB150	ANK	A3,/10	UNPROTECTED?
	RF(E)	TAB200	YES 
	RB	TAB100	NEXT ATTRIB. 
TAB200	ST	A2,PCURS,TCABAS	
	CF	A14,SETCUR	DISPLAY NEW CURSOR 
	RTN	A14
TAB300	LDK	A2,0 
	CWK	A1,3	ATTRIBUTE IN LAST POSITION ?? 
	 
********************************************************
	RF(NE)	TAB350	NO!! 
	ANK	A5,1	WHOLE BUFFER CONTROLLED ??
	RB(Z)	TAB200	YES!! 
	SUR	A5,A5	 
	RB	TAB150	CHECK ATTRIBUTE
TAB350	EQU	*
********************************************************
	ANK	A5,1	WHOLE BUFF. CONTROLED?
	RF(G)	TAB400	NO
	RB	TAB200	ALL PROT. OR NON-FORMATTED BUFF. 
TAB400	LDK	A5,0 
	RB	TAB100
	 
* 
*********************************************************** 
* 
*	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
	 
* 
*********************************************************** 
* 
*       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
	 
* 
**********************************************************
* 
*       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
	 
* 
***************************************************** 
* 
*	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
****************************************************************
	 
* 
********************************************************* 
* 
*	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
* 
**********
*	UPDATING OF FIELD SEPARATOR 
*				DK4
* 
CHARFS	EQU	*		DK4 
	IFF	KB6272=1		DK4
	LDK	A2,/26	LOAD CHARACTER &	DK4
	SC*	A2,ECBKB+ECBBA,CREBAS	RESTORE CHARACTER IN BUFFER	DK4
	XIF			DK4
	RB	CHAR		DISPLAY CHAR	DK4
* 
	 
*************************************************************** 
* 
*   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
	 
* 
**********************************************************
* 
*	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
	CWK	A4,DUPCH	 DONT ADD IF IN DUP	DK6 
	RF(E)	ANC252		DK6
	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
	 

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

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

**********************************************************
* 
*   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
	 
* 
********************************************************* 
* 
*	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 
	IFF	PA49=1		DK3
	RF(G)	PFERR	ILLEGAL CHAR.
	XIF			DK3
	IFT	PA49=1		DK3
	RF(G)	PAEXB	PA 4-9?	DK3
	XIF			DK3
	RF(Z)	PA3
	ADK	A2,1 
	RB(Z)	PA2
	RF	PA1 
	RTN	A14	RETURN TO MAIN READ LOOP 

	XIF
	 

* 
*    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) 
	IFT	PA49=1		DK3
PAEXB	EQU	*		DK3
	SUK	A2,/6		DK3 
	RF(G)	PFERR		DK3 
	ADK	A2,/69	SET PA4-9	DK3 
	RB	CAN200		DK3 
	XIF			DK3
* 
PA410	EQU	* 
	SUK	A2,/20 
	RB	CAN200
	 
* 
********************************************************
* 
*	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 
* 
********************************************************* 
* 
*	READ MODIFIED HANDLING		DK7 
READMY	EQU	*		DK7 
	LDK	A2,/20	NO AID GENERATED	DK7
	RF	ENT100	DO IT	DK7
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
	 
************************************************************
* 
*	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
	 
*********************************************************** 
* 
*	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
	 
* 
********************************************************
* 
*	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
	 
* 
************************************************************
* 
*	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
	 
* 
********************************************************
* 
*	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
	 
* 
************************************************************
* 
*	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 
	 
******************************************************************
* 
*   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
	 
* 
********************************************************
* 
*	LAMPMODULE
* 
* 
********************************************************
* 
LON	EQU	/B7 
LOF	EQU	/B8 
	IFT	KB6272=1 
LMF1	EQU	/20
LMF2	EQU	/10
LIOL	EQU	1		DK2 
LINH	EQU	8		DK2 
LERR	EQU	4		DK2 
LSAV	EQU	/10		DK2 
	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 
* 
	IFF	KB6272=1		DK2
LMPON	LDK	A7,LON
	RF	SDISP 
LMPOF	LDK	A7,LOF
	RF	SDISP 
	XIF			DK2
	IFT	KB6272+LMPVDU=1		DK5 
LMPON	LDK	A7,LON		DK5 
	RF	SDISP		DK5
LMPOF	LDK	A7,LOF		DK5 
	RF	SDISP		DK5
	XIF			DK5
	IFT	KB6272+LMPVDU=2		DK2+5 
LMPON	ORS	A3,LAMSAV,TCABAS		DK2 
	RF	SDISP		DK2
LMPOF	C1R	A3,A3		DK2
	ANS	A3,LAMSAV,TCABAS		DK2
	RF	SDISP		DK2
	XIF			DK2
	 

* 
********************************************************
* 
*	SDISP 
* 
*	SIGNAL DISPLAY MONITOR REQUEST
* 
********************************************************
* 

SDISP	EQU	*		DK2+5
	LDKL	A8,ECBSD	DK2+5
	ADR	A8,CREBAS		DK2+5 
	IFF	KB6272=1		DK2+5
	ST	A3,ECBCW,A8		DK2+5
	XIF			DK2+5
	IFT	LMPVDU+KB6272=1		DK2+5 
	ST	A3,ECBCW,A8		DK2+5
	XIF			DK2+5
	IFT	LMPVDU+KB6272=2		DK2+5 
	CM*	ECBBA,A8		DK2+5
	LDK	A3,/1C		DK2+5
	SC*	A3,ECBBA,A8		DK2+5 
	LD	A3,LAMSAV,TCABAS		DK2+5 
	ORS*	A3,ECBBA,A8		DK2+5
	LDK	A3,2		DK2+5
	ST	A3,ECBRL,A8		DK2+5
	LDK	A7,/85		DK2+5
	XIF			DK2+5
	LKM			DK2+5
	DATA	1		DK2+5
	RTN	A14		DK2+5 
	 
* 
********************************************************
* 
*     ATMASB
* 
*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT 
* 
********************************************************
* 
*     A2=CURSOR BINARY ADDRESS
*     A1=BUFFER SCANNING PARAM. 
*	0=ATTRIB FOUND     1=END OF BUFFER LEFT 
*      2= ATTRIBUTE IN LAST POSITION
* 
ATMASB	EQU	*
	LDK	A1,0 
ASB05	EQU	* 
	CF	A14,GBUFFC	GET BUFFER CHAR
	CWK	A3,/1F	ATTRIB. CHAR. 
	RF(G)	ASB10	NO 
ASB08	ST	A3,ATTRIB,TCABAS 
	ST	A2,CURATT,TCABAS	CURSOR ON ATTRIBUTE
	RTN	A14
ASB10	CWK	A2,0	END OF BUFFER
	RF(E)	ASB20	YES
	SUK	A2,1 
	RB	ASB05	NEXT
ASB20	EQU	* 
	 

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

	LDK	A1,1	END BUFFER LEFT 
	CM	ATTRIB,TCABAS 
	LDKL	A7,LBVDU+1
	ST	A7,CURATT,TCABAS	POSSIBLY UNFORMATTED SCREEN
	RTN	A14
	 
* 
********************************************************
* 
*     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 
	 
* 
**************************************************
* 
*	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
	 
* 
************************************************************
* 
*	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



************************
* 
*    SECOND HARDCOPY KEY        DK8 
* 
************************* 

COPY02	EQU	*		DK8 
	LD	A3,6,CREBAS BASE 'CB9'	DK8
	LD	A5,COPY2,A3		DK8
	SUKL	A5,'GA'		DK8
	ABL(N)	ERROR	NOT VALID TASK ID	DK8 
	ADKL	A5,'GA'	RESET TASK ID	DK8 
	RF	COPY09	HARDCOPY	DK8 
* 
* 
	 


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

COPY	EQU	*
	LD	A5,COPNO,TCABAS 
	ABL(Z)	ERROR 
COPY09	EQU	*	HARDCOPY	DK8 
	LDKL	A3,BVDU	BUFFER
	ADR	A3,TCABAS	  ADDRESSS 
	LDKL	A6,LBVDU	REQ LENGTH 
	LDK	A4,/8B	ORDER = WRITE ADDRESSED WAIT
	 
* 
*	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

0x0000…0022 (0, 0, 400)   Head {h00=0x001e, h01=0x0050, text=» IDENT START DK8 831107/EV«, t00=0x0000, t01=0x0004}
0x0022…004e               Head {h00=0x0028, h01=0x0050, text=»   DK8 SECOND HARDCOPY KEY/EV/831107«, t00=0x0000, t01=0x0026}
0x004e…0056               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0052}
0x0056…007a               Head {h00=0x0020, h01=0x0050, text=»   DK7,READ MODIFIED, 821002«, t00=0x0000, t01=0x005a}
0x007a…009c               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x007e}
0x009c…00b8               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00a0}
0x00b8…00d2               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x00bc}
0x00d2…00ee               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00d6}
0x00ee…010c               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00f2}
0x010c…0128               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0110}
0x0128…015a               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x012c}
0x015a…0176               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x015e}
0x0176…019a               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x017a}
0x019a…01b6               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0001, t01=0x000e}
0x01b6…01dc               Head {h00=0x0022, h01=0x0050, text=»   DK6 DUP FIELD, LENGTH=1 DK6«, t00=0x0001, t01=0x002a}
0x01dc…0206               Head {h00=0x0026, h01=0x0050, text=»   DK5 - LMPVDU=1, 6272 ON VDU DK5«, t00=0x0001, t01=0x0050}
0x0206…0230               Head {h00=0x0026, h01=0x0050, text=»   DK4 - FIELD SEPARATOR 6234 DK4 «, t00=0x0001, t01=0x007a}
0x0230…024c               Head {h00=0x0018, h01=0x0050, text=»   DK3 - PA 4-9 DK3 «, t00=0x0001, t01=0x00a4}
0x024c…0272               Head {h00=0x0022, h01=0x0050, text=»   DK2 - LAMPMODULE, 6272 DK2 «, t00=0x0001, t01=0x00c0}
0x0272…0290               Head {h00=0x001a, h01=0x0050, text=»   DK1 - NUM COMMA DK1«, t00=0x0001, t01=0x00e6}
0x0290…02d6               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x0104}
0x02d6…02e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…032c               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x0154}
0x032c…0378               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0002, t01=0x0010}
0x0378…03be               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0002, t01=0x005c}
0x03be…03c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a2}
0x03c8…041a               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0002, t01=0x00ac}
0x041a…0422               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00fe}
0x0422…042a               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0106}
0x042a…0432               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x010e}
0x0432…043a               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0116}
0x043a…0444               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0002, t01=0x011e}
0x0444…044e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0128}
0x044e…0458               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0132}
0x0458…0472               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x013c}
0x0472…047c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047c…0486               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0160}
0x0486…0490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…04b4               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x0174}
0x04b4…04d0               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0003, t01=0x0008}
0x04d0…04e4               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0003, t01=0x0024}
0x04e4…050e               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0003, t01=0x0038}
0x050e…053a               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0003, t01=0x0062}
0x053a…055e               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0003, t01=0x008e}
0x055e…0574               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0003, t01=0x00b2}
0x0574…058a               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0003, t01=0x00c8}
0x058a…05a0               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0003, t01=0x00de}
0x05a0…05c8               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0003, t01=0x00f4}
0x05c8…05de               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x011c}
0x05de…05f8               Head {h00=0x0016, h01=0x0050, text=» ENTRY READMY  DK7«, t00=0x0003, t01=0x0132}
0x05f8…0602               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014c}
0x0602…060c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0156}
0x060c…0616               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x0616…0638               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x016a}
0x0638…0642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018c}
0x0642…064c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064c…0656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0656…066a               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0004, t01=0x001c}
0x066a…0680               Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0004, t01=0x0030}
0x0680…0696               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0004, t01=0x0046}
0x0696…06ac               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0004, t01=0x005c}
0x06ac…06c2               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0004, t01=0x0072}
0x06c2…06de               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0004, t01=0x0088}
0x06de…06f2               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0004, t01=0x00a4}
0x06f2…0708               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0004, t01=0x00b8}
0x0708…071c               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0004, t01=0x00ce}
0x071c…0730               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0004, t01=0x00e2}
0x0730…0746               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0004, t01=0x00f6}
0x0746…075a               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0004, t01=0x010c}
0x075a…0770               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0004, t01=0x0120}
0x0770…077a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0136}
0x077a…07ae               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x0140}
0x07ae…07c4               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x0174}
0x07c4…07ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018a}
0x07ce…07fe (5, 0, 400)   Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0005, t01=0x0004}
0x07fe…0828               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0005, t01=0x0034}
0x0828…0832               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0005, t01=0x005e}
0x0832…083a               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0068}
0x083a…0842               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0070}
0x0842…0884               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x0078}
0x0884…088e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x088e…08ae               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x00c4}
0x08ae…08b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e4}
0x08b8…08e2               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0005, t01=0x00ee}
0x08e2…08ea               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0118}
0x08ea…08f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0120}
0x08f4…093e               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 1 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0005, t01=0x012a}
0x093e…0972               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x0174}
0x0972…09a6               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0006, t01=0x0018}
0x09a6…09ba               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0006, t01=0x004c}
0x09ba…09ec               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0006, t01=0x0060}
0x09ec…09fe               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0006, t01=0x0092}
0x09fe…0a10               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0006, t01=0x00a4}
0x0a10…0a3c               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0006, t01=0x00b6}
0x0a3c…0a78               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0006, t01=0x00e2}
0x0a78…0a9c               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0006, t01=0x011e}
0x0a9c…0ac6               Head {h00=0x0026, h01=0x0050, text=»LMPVDU EQU 0 =1, 6272 ON 6346 DK5 «, t00=0x0006, t01=0x0142}
0x0ac6…0aea               Head {h00=0x0020, h01=0x0050, text=»   =0, 6272 ON SELECTOR DK5 «, t00=0x0006, t01=0x016c}
0x0aea…0b12               Head {h00=0x0024, h01=0x0050, text=»PA49 EQU 1 =1, PA4-9 ALLOWED DK3«, t00=0x0006, t01=0x0190}
0x0b12…0b1c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0007, t01=0x0028}
0x0b1c…0b26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b26…0b30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003c}
0x0b30…0b46               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0007, t01=0x0046}
0x0b46…0b50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b50…0b6e               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0007, t01=0x0066}
0x0b6e…0b94               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x0084}
0x0b94…0b9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00aa}
0x0b9e…0ba6               Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00b4}
0x0ba6…0bba               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x00bc}
0x0bba…0bce               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x00d0}
0x0bce…0be2               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x00e4}
0x0be2…0bf6               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x00f8}
0x0bf6…0c0a               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x010c}
0x0c0a…0c14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0120}
0x0c14…0c1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012a}
0x0c1e…0c38               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x0134}
0x0c38…0c42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014e}
0x0c42…0c4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4c…0c68               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0162}
0x0c68…0c72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017e}
0x0c72…0c7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0188}
0x0c7c…0c8e (8, 0, 400)   Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0008, t01=0x0004}
0x0c8e…0c98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c98…0cb2               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0008, t01=0x0020}
0x0cb2…0cc6               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x003a}
0x0cc6…0cdc               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x004e}
0x0cdc…0cf8               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x0064}
0x0cf8…0d16               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x0080}
0x0d16…0d34               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x009e}
0x0d34…0d40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00bc}
0x0d40…0d54               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x00c8}
0x0d54…0d6a               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x00dc}
0x0d6a…0d86               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x00f2}
0x0d86…0da4               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x010e}
0x0da4…0db0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x012c}
0x0db0…0dc4               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0138}
0x0dc4…0dda               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x014c}
0x0dda…0df6               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0162}
0x0df6…0e14               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x017e}
0x0e14…0e20               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x000c}
0x0e20…0e34               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0009, t01=0x0018}
0x0e34…0e4a               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0009, t01=0x002c}
0x0e4a…0e66               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0009, t01=0x0042}
0x0e66…0e72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x005e}
0x0e72…0e90               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0009, t01=0x006a}
0x0e90…0eac               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x0088}
0x0eac…0ec8               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x00a4}
0x0ec8…0ed2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0009, t01=0x00c0}
0x0ed2…0edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ca}
0x0edc…0ee6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d4}
0x0ee6…0f0c               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x00de}
0x0f0c…0f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0104}
0x0f16…0f2c               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x010e}
0x0f2c…0f46               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x0124}
0x0f46…0f50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013e}
0x0f50…0f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0148}
0x0f5a…0f76               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x0152}
0x0f76…0f80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016e}
0x0f80…0f94               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x0178}
0x0f94…0fb0               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x018c}
0x0fb0…0fdc               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x000a, t01=0x0018}
0x0fdc…1010               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x000a, t01=0x0044}
0x1010…103e               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x0078}
0x103e…105a               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x00a6}
0x105a…1084               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x00c2}
0x1084…10b6               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x00ec}
0x10b6…10de               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x011e}
0x10de…1112               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x0146}
0x1112…1148               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x017a}
0x1148…1178               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000b, t01=0x0020}
0x1178…11a0               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000b, t01=0x0050}
0x11a0…11cc               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x0078}
0x11cc…11fa               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x00a4}
0x11fa…121c               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x00d2}
0x121c…1246               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x00f4}
0x1246…126e               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x011e}
0x126e…12a0               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x0146}
0x12a0…12d6               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x0178}
0x12d6…130e               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000c, t01=0x001e}
0x130e…1342               Head {h00=0x0030, h01=0x0050, text=»LAMSAV EQU RDMORE+2 SAVE AREA FOR LAMPS DK2 «, t00=0x000c, t01=0x0056}
0x1342…134a               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x008a}
0x134a…1376               Head {h00=0x0028, h01=0x0050, text=»COPY2 EQU /44 SECOND HC TASK ID DK8 «, t00=0x000c, t01=0x0092}
0x1376…1380               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000c, t01=0x00be}
0x1380…13a4               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000c, t01=0x00c8}
0x13a4…13ba               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000c, t01=0x00ec}
0x13ba…13ce               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000c, t01=0x0102}
0x13ce…13fc               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000c, t01=0x0116}
0x13fc…1422               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x0144}
0x1422…1450               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x016a}
0x1450…145a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x145a…1484               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000d, t01=0x0012}
0x1484…148e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003c}
0x148e…14b4               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000d, t01=0x0046}
0x14b4…14de               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000d, t01=0x006c}
0x14de…14e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0096}
0x14e8…151e               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x00a0}
0x151e…1554               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x00d6}
0x1554…1568               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x010c}
0x1568…1584               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x0120}
0x1584…15a0               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x013c}
0x15a0…15ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0158}
0x15ac…15b6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000d, t01=0x0164}
0x15b6…15c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016e}
0x15c0…15f2               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000d, t01=0x0178}
0x15f2…15fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001a}
0x15fc…1610               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000e, t01=0x0024}
0x1610…1628               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000e, t01=0x0038}
0x1628…163c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000e, t01=0x0050}
0x163c…1650               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000e, t01=0x0064}
0x1650…1664               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000e, t01=0x0078}
0x1664…1678               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000e, t01=0x008c}
0x1678…168c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000e, t01=0x00a0}
0x168c…16a0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x000e, t01=0x00b4}
0x16a0…16b4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000e, t01=0x00c8}
0x16b4…16c8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000e, t01=0x00dc}
0x16c8…16dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000e, t01=0x00f0}
0x16dc…16f0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000e, t01=0x0104}
0x16f0…1704               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000e, t01=0x0118}
0x1704…171a               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000e, t01=0x012c}
0x171a…172e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000e, t01=0x0142}
0x172e…1742               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000e, t01=0x0156}
0x1742…1756               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000e, t01=0x016a}
0x1756…1760               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017e}
0x1760…1772               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000e, t01=0x0188}
0x1772…1786               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000f, t01=0x000a}
0x1786…179a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000f, t01=0x001e}
0x179a…17ae               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000f, t01=0x0032}
0x17ae…17c2               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000f, t01=0x0046}
0x17c2…17d6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000f, t01=0x005a}
0x17d6…17ea               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000f, t01=0x006e}
0x17ea…17fe               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000f, t01=0x0082}
0x17fe…1812               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000f, t01=0x0096}
0x1812…1826               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000f, t01=0x00aa}
0x1826…183a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000f, t01=0x00be}
0x183a…184e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000f, t01=0x00d2}
0x184e…1862               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000f, t01=0x00e6}
0x1862…1876               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000f, t01=0x00fa}
0x1876…188a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000f, t01=0x010e}
0x188a…189e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000f, t01=0x0122}
0x189e…18a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0136}
0x18a8…18be               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000f, t01=0x0140}
0x18be…18d2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000f, t01=0x0156}
0x18d2…18e6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000f, t01=0x016a}
0x18e6…18fa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000f, t01=0x017e}
0x18fa…190e (16, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x0010, t01=0x0004}
0x190e…1922               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x0010, t01=0x0018}
0x1922…1936               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x0010, t01=0x002c}
0x1936…194a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x0010, t01=0x0040}
0x194a…195e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x0010, t01=0x0054}
0x195e…1972               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x0010, t01=0x0068}
0x1972…1986               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x0010, t01=0x007c}
0x1986…199a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x0010, t01=0x0090}
0x199a…19ae               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x0010, t01=0x00a4}
0x19ae…19c2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x0010, t01=0x00b8}
0x19c2…19d6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x0010, t01=0x00cc}
0x19d6…19ea               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x0010, t01=0x00e0}
0x19ea…19f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f4}
0x19f4…1a08               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x0010, t01=0x00fe}
0x1a08…1a1c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x0010, t01=0x0112}
0x1a1c…1a30               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x0010, t01=0x0126}
0x1a30…1a44               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x0010, t01=0x013a}
0x1a44…1a58               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x0010, t01=0x014e}
0x1a58…1a6c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x0010, t01=0x0162}
0x1a6c…1a80               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x0010, t01=0x0176}
0x1a80…1a94               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x0010, t01=0x018a}
0x1a94…1aa8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x0011, t01=0x000e}
0x1aa8…1abc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x0011, t01=0x0022}
0x1abc…1ad0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x0011, t01=0x0036}
0x1ad0…1ae4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x0011, t01=0x004a}
0x1ae4…1b02               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x0011, t01=0x005e}
0x1b02…1b16               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0011, t01=0x007c}
0x1b16…1b34               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0011, t01=0x0090}
0x1b34…1b50               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0011, t01=0x00ae}
0x1b50…1b5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b5a…1b82               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0011, t01=0x00d4}
0x1b82…1ba0               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0011, t01=0x00fc}
0x1ba0…1bb2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x011a}
0x1bb2…1bc4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x012c}
0x1bc4…1bd6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x013e}
0x1bd6…1be8               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0150}
0x1be8…1bfa               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0162}
0x1bfa…1c0c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0174}
0x1c0c…1c1e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0186}
0x1c1e…1c30               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0008}
0x1c30…1c42               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x001a}
0x1c42…1c54               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x002c}
0x1c54…1c66               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x003e}
0x1c66…1c78               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0050}
0x1c78…1c8a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0062}
0x1c8a…1c9c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0074}
0x1c9c…1ca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0086}
0x1ca6…1cbc               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0012, t01=0x0090}
0x1cbc…1cd6               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0012, t01=0x00a6}
0x1cd6…1ce8               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00c0}
0x1ce8…1cfa               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00d2}
0x1cfa…1d0c               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00e4}
0x1d0c…1d1e               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00f6}
0x1d1e…1d30               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0108}
0x1d30…1d42               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x011a}
0x1d42…1d54               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x012c}
0x1d54…1d60               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x013e}
0x1d60…1d76               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0012, t01=0x014a}
0x1d76…1d8a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0160}
0x1d8a…1d9e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0174}
0x1d9e…1db2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0188}
0x1db2…1dc6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x000c}
0x1dc6…1dda               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0020}
0x1dda…1dee               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0034}
0x1dee…1e02               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0048}
0x1e02…1e16               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x005c}
0x1e16…1e22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0070}
0x1e22…1e42               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0013, t01=0x007c}
0x1e42…1e54               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x009c}
0x1e54…1e66               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x00ae}
0x1e66…1e92               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0013, t01=0x00c0}
0x1e92…1ea6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00ec}
0x1ea6…1eba               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0100}
0x1eba…1ece               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0114}
0x1ece…1ee2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0128}
0x1ee2…1eec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013c}
0x1eec…1efe               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0013, t01=0x0146}
0x1efe…1f10               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0013, t01=0x0158}
0x1f10…1f1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x016a}
0x1f1c…1f2e               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0013, t01=0x0176}
0x1f2e…1f42               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0188}
0x1f42…1f4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x000c}
0x1f4e…1f60               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0014, t01=0x0018}
0x1f60…1f72               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0014, t01=0x002a}
0x1f72…1f84               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0014, t01=0x003c}
0x1f84…1fae               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0014, t01=0x004e}
0x1fae…1fc2               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0078}
0x1fc2…1fd6               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x008c}
0x1fd6…1fea               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x00a0}
0x1fea…1ffe               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x00b4}
0x1ffe…2012               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x00c8}
0x2012…2026               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x00dc}
0x2026…203a               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0014, t01=0x00f0}
0x203a…204c               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0014, t01=0x0104}
0x204c…205e               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0014, t01=0x0116}
0x205e…206a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0128}
0x206a…207c               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0014, t01=0x0134}
0x207c…2090               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0146}
0x2090…209c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x015a}
0x209c…20ae               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0014, t01=0x0166}
0x20ae…20c0               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0014, t01=0x0178}
0x20c0…20d2               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0014, t01=0x018a}
0x20d2…20dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000c}
0x20dc…20ee               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0015, t01=0x0016}
0x20ee…2100               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0015, t01=0x0028}
0x2100…2112               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0015, t01=0x003a}
0x2112…2124               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0015, t01=0x004c}
0x2124…2136               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0015, t01=0x005e}
0x2136…2148               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0015, t01=0x0070}
0x2148…215c               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0015, t01=0x0082}
0x215c…2170               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0015, t01=0x0096}
0x2170…2184               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0015, t01=0x00aa}
0x2184…21b6               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0015, t01=0x00be}
0x21b6…21ca               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00f0}
0x21ca…21de               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0104}
0x21de…21f2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0118}
0x21f2…2206               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x012c}
0x2206…221a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0140}
0x221a…222e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0154}
0x222e…2238               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0168}
0x2238…224c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0172}
0x224c…2260               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0186}
0x2260…2274               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x000a}
0x2274…2288               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x001e}
0x2288…229c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0032}
0x229c…22b0               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0016, t01=0x0046}
0x22b0…22c2               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0016, t01=0x005a}
0x22c2…22d6               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0016, t01=0x006c}
0x22d6…22ea               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0016, t01=0x0080}
0x22ea…22fe               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0016, t01=0x0094}
0x22fe…2312               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0016, t01=0x00a8}
0x2312…2324               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0016, t01=0x00bc}
0x2324…2336               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0016, t01=0x00ce}
0x2336…234a               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0016, t01=0x00e0}
0x234a…235e               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0016, t01=0x00f4}
0x235e…2372               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0016, t01=0x0108}
0x2372…237c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011c}
0x237c…2390               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0016, t01=0x0126}
0x2390…23a4               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0016, t01=0x013a}
0x23a4…23b8               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0016, t01=0x014e}
0x23b8…23c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0162}
0x23c4…23d8               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0016, t01=0x016e}
0x23d8…23ec               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0182}
0x23ec…2400               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0008}
0x2400…240c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x001c}
0x240c…2420               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0017, t01=0x0028}
0x2420…2432               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0017, t01=0x003c}
0x2432…2446               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0017, t01=0x004e}
0x2446…2458               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0017, t01=0x0062}
0x2458…246c               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0017, t01=0x0074}
0x246c…2480               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0017, t01=0x0088}
0x2480…248c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x009c}
0x248c…24a0               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0017, t01=0x00a8}
0x24a0…24b4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00bc}
0x24b4…24c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00d0}
0x24c0…24d4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0017, t01=0x00dc}
0x24d4…24e8               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0017, t01=0x00f0}
0x24e8…24f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0104}
0x24f4…2508               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0017, t01=0x0110}
0x2508…251c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0124}
0x251c…2528               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0138}
0x2528…253c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0144}
0x253c…2550               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0158}
0x2550…2564               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0017, t01=0x016c}
0x2564…2578               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0017, t01=0x0180}
0x2578…258c (24, 0, 398)  Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0018, t01=0x0004}
0x258c…25a0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0018, t01=0x0018}
0x25a0…25b4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0018, t01=0x002c}
0x25b4…25dc               Head {h00=0x0024, h01=0x0050, text=» DATA COPY02 SECOND HARDCOPY DK8«, t00=0x0018, t01=0x0040}
0x25dc…25e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0068}
0x25e6…2620               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0018, t01=0x0072}
0x2620…2634               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00ac}
0x2634…2648               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00c0}
0x2648…265c               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00d4}
0x265c…2670               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00e8}
0x2670…2684               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00fc}
0x2684…2698               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0110}
0x2698…26ac               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0124}
0x26ac…26b6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0018, t01=0x0138}
0x26b6…26fc               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x0142}
0x26fc…2706               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0188}
0x2706…272a (25, 0, 400)  Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0019, t01=0x0004}
0x272a…2770               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0019, t01=0x0028}
0x2770…2778               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x006e}
0x2778…278c               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0019, t01=0x0076}
0x278c…27a2               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0019, t01=0x008a}
0x27a2…27cc               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0019, t01=0x00a0}
0x27cc…27e2               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x00ca}
0x27e2…27f8               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x00e0}
0x27f8…2810               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0019, t01=0x00f6}
0x2810…2838               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x010e}
0x2838…2844               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x0136}
0x2844…2854               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x0142}
0x2854…2868               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0019, t01=0x0152}
0x2868…289a               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0019, t01=0x0166}
0x289a…28a6               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0008}
0x28a6…28b6               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x0014}
0x28b6…28e0               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x001a, t01=0x0024}
0x28e0…28f6               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001a, t01=0x004e}
0x28f6…290c               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001a, t01=0x0064}
0x290c…2922               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x001a, t01=0x007a}
0x2922…293a               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x001a, t01=0x0090}
0x293a…2960               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x001a, t01=0x00a8}
0x2960…2972               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x001a, t01=0x00ce}
0x2972…297c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001a, t01=0x00e0}
0x297c…2986               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ea}
0x2986…2990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f4}
0x2990…29bc               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x001a, t01=0x00fe}
0x29bc…29c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012a}
0x29c6…29d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0134}
0x29d0…29e4               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x001a, t01=0x013e}
0x29e4…2a0a               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x001a, t01=0x0152}
0x2a0a…2a32               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x001a, t01=0x0178}
0x2a32…2a5a               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x001b, t01=0x0010}
0x2a5a…2a66               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0038}
0x2a66…2a76               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x0044}
0x2a76…2a86               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0054}
0x2a86…2a90               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001b, t01=0x0064}
0x2a90…2a9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006e}
0x2a9a…2ad8               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001b, t01=0x0078}
0x2ad8…2ae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b6}
0x2ae2…2af6               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001b, t01=0x00c0}
0x2af6…2b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d4}
0x2b00…2b26               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001b, t01=0x00de}
0x2b26…2b30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0104}
0x2b30…2b70               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001b, t01=0x010e}
0x2b70…2b84               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001b, t01=0x014e}
0x2b84…2b9a               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001b, t01=0x0162}
0x2b9a…2bc4               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001b, t01=0x0178}
0x2bc4…2bcc               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0012}
0x2bcc…2be0               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001c, t01=0x001a}
0x2be0…2be8               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x002e}
0x2be8…2bf0               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0036}
0x2bf0…2c28               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001c, t01=0x003e}
0x2c28…2c3e               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001c, t01=0x0076}
0x2c3e…2c66               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001c, t01=0x008c}
0x2c66…2c80               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001c, t01=0x00b4}
0x2c80…2cb0               Head {h00=0x002c, h01=0x0050, text=» CM LAMSAV,TCABAS CLEAR LAMP STATUS DK2 «, t00=0x001c, t01=0x00ce}
0x2cb0…2cde               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001c, t01=0x00fe}
0x2cde…2cea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x012c}
0x2cea…2cf2               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0138}
0x2cf2…2cfc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001c, t01=0x0140}
0x2cfc…2d42               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001c, t01=0x014a}
0x2d42…2d4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0190}
0x2d4c…2d7c               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001d, t01=0x000a}
0x2d7c…2d86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x003a}
0x2d86…2dcc               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x0044}
0x2dcc…2dd4               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x008a}
0x2dd4…2df8               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001d, t01=0x0092}
0x2df8…2e1e               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001d, t01=0x00b6}
0x2e1e…2e48               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001d, t01=0x00dc}
0x2e48…2e5c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0106}
0x2e5c…2e72               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001d, t01=0x011a}
0x2e72…2e88               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x0130}
0x2e88…2e90               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0146}
0x2e90…2ea4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001d, t01=0x014e}
0x2ea4…2eea               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x0162}
0x2eea…2ef4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0018}
0x2ef4…2f24               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001e, t01=0x0022}
0x2f24…2f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0052}
0x2f2e…2f74               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001e, t01=0x005c}
0x2f74…2f7c               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00a2}
0x2f7c…2fa6               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001e, t01=0x00aa}
0x2fa6…2fba               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x00d4}
0x2fba…2fd2               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001e, t01=0x00e8}
0x2fd2…2fe8               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001e, t01=0x0100}
0x2fe8…2ff4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0116}
0x2ff4…2ffe               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001e, t01=0x0122}
0x2ffe…3012               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001e, t01=0x012c}
0x3012…3034               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001e, t01=0x0140}
0x3034…303c               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0162}
0x303c…304e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x016a}
0x304e…3066               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001e, t01=0x017c}
0x3066…30a0 (31, 0, 400)  Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001f, t01=0x0004}
0x30a0…30b6               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001f, t01=0x003e}
0x30b6…30e6               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001f, t01=0x0054}
0x30e6…30f0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001f, t01=0x0084}
0x30f0…30fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008e}
0x30fa…311a               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001f, t01=0x0098}
0x311a…312a               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001f, t01=0x00b8}
0x312a…313c               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001f, t01=0x00c8}
0x313c…3150               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x00da}
0x3150…3166               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x00ee}
0x3166…3178               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x0104}
0x3178…318a               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001f, t01=0x0116}
0x318a…319e               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001f, t01=0x0128}
0x319e…31aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x013c}
0x31aa…31be               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x0148}
0x31be…31d4               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001f, t01=0x015c}
0x31d4…31e6               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x0172}
0x31e6…31fa               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x0184}
0x31fa…3206               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0008}
0x3206…321a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0020, t01=0x0014}
0x321a…3230               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0020, t01=0x0028}
0x3230…3242               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x0020, t01=0x003e}
0x3242…3256               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x0020, t01=0x0050}
0x3256…3262               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0064}
0x3262…3276               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0020, t01=0x0070}
0x3276…328c               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0020, t01=0x0084}
0x328c…32a0               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x0020, t01=0x009a}
0x32a0…32ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00ae}
0x32ac…32b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ba}
0x32b6…32cc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x0020, t01=0x00c4}
0x32cc…32e8               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x0020, t01=0x00da}
0x32e8…32fc               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x0020, t01=0x00f6}
0x32fc…331c               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x0020, t01=0x010a}
0x331c…333a               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x0020, t01=0x012a}
0x333a…336e               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x0020, t01=0x0148}
0x336e…3382               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x0020, t01=0x017c}
0x3382…3396               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0020, t01=0x0190}
0x3396…33b6               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0021, t01=0x0014}
0x33b6…33d4               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x0021, t01=0x0034}
0x33d4…340e               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0021, t01=0x0052}
0x340e…341a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x008c}
0x341a…342e               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0021, t01=0x0098}
0x342e…3444               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x00ac}
0x3444…3464               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x00c2}
0x3464…3482               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0021, t01=0x00e2}
0x3482…34a0               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0021, t01=0x0100}
0x34a0…34c0               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0021, t01=0x011e}
0x34c0…34dc               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0021, t01=0x013e}
0x34dc…34f2               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0021, t01=0x015a}
0x34f2…3512               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x0170}
0x3512…351e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0190}
0x351e…3532               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0022, t01=0x000c}
0x3532…3552               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x0020}
0x3552…3570               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0022, t01=0x0040}
0x3570…359c               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0022, t01=0x005e}
0x359c…35b0               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0022, t01=0x008a}
0x35b0…35c8               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0022, t01=0x009e}
0x35c8…35de               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0022, t01=0x00b6}
0x35de…35ea               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0022, t01=0x00cc}
0x35ea…3608               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0022, t01=0x00d8}
0x3608…3628               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x00f6}
0x3628…3650               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0022, t01=0x0116}
0x3650…3666               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x013e}
0x3666…3686               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0022, t01=0x0154}
0x3686…36b2               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0022, t01=0x0174}
0x36b2…36be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0010}
0x36be…36fc               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0023, t01=0x001c}
0x36fc…3720               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0023, t01=0x005a}
0x3720…3732               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0023, t01=0x007e}
0x3732…373c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0023, t01=0x0090}
0x373c…3746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009a}
0x3746…376a               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0023, t01=0x00a4}
0x376a…3774               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c8}
0x3774…3788               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0023, t01=0x00d2}
0x3788…379e               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0023, t01=0x00e6}
0x379e…37b4               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x00fc}
0x37b4…37c6               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0023, t01=0x0112}
0x37c6…37ec               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0023, t01=0x0124}
0x37ec…381a               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0023, t01=0x014a}
0x381a…383a               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0023, t01=0x0178}
0x383a…384c               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0024, t01=0x0008}
0x384c…3856               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001a}
0x3856…3876               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0024, t01=0x0024}
0x3876…3880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0044}
0x3880…3894               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0024, t01=0x004e}
0x3894…38aa               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0024, t01=0x0062}
0x38aa…38c0               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x0078}
0x38c0…38e0               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0024, t01=0x008e}
0x38e0…38f4               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0024, t01=0x00ae}
0x38f4…3906               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x00c2}
0x3906…391c               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0024, t01=0x00d4}
0x391c…392e               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0024, t01=0x00ea}
0x392e…3942               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0024, t01=0x00fc}
0x3942…394e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x0110}
0x394e…395e               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x011c}
0x395e…396e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x012c}
0x396e…3982               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0024, t01=0x013c}
0x3982…3996               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0024, t01=0x0150}
0x3996…39ae               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0024, t01=0x0164}
0x39ae…39c4               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x017c}
0x39c4…39e4 (37, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0025, t01=0x0004}
0x39e4…39f6               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0025, t01=0x0024}
0x39f6…3a02               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0036}
0x3a02…3a18               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0042}
0x3a18…3a22               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0025, t01=0x0058}
0x3a22…3a2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0062}
0x3a2c…3a52               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0025, t01=0x006c}
0x3a52…3a5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0092}
0x3a5c…3a70               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0025, t01=0x009c}
0x3a70…3a8e               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0025, t01=0x00b0}
0x3a8e…3aaa               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0025, t01=0x00ce}
0x3aaa…3aca               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0025, t01=0x00ea}
0x3aca…3ade               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0025, t01=0x010a}
0x3ade…3ae8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011e}
0x3ae8…3b04               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0025, t01=0x0128}
0x3b04…3b0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0144}
0x3b0e…3b20               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0025, t01=0x014e}
0x3b20…3b34               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0025, t01=0x0160}
0x3b34…3b48               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0025, t01=0x0174}
0x3b48…3b68               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0025, t01=0x0188}
0x3b68…3b74               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0018}
0x3b74…3b8a               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0026, t01=0x0024}
0x3b8a…3bbe               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0026, t01=0x003a}
0x3bbe…3be2               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0026, t01=0x006e}
0x3be2…3c04               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0026, t01=0x0092}
0x3c04…3c1a               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0026, t01=0x00b4}
0x3c1a…3c36               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x00ca}
0x3c36…3c62               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0026, t01=0x00e6}
0x3c62…3c7e               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0026, t01=0x0112}
0x3c7e…3c90               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x012e}
0x3c90…3c9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0140}
0x3c9c…3ca6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0026, t01=0x014c}
0x3ca6…3cc0               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0026, t01=0x0156}
0x3cc0…3cca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0170}
0x3cca…3cde               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0026, t01=0x017a}
0x3cde…3cfa               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0026, t01=0x018e}
0x3cfa…3d12               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0027, t01=0x001a}
0x3d12…3d32               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0027, t01=0x0032}
0x3d32…3d4a               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0027, t01=0x0052}
0x3d4a…3d60               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0027, t01=0x006a}
0x3d60…3d74               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0027, t01=0x0080}
0x3d74…3d9c               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0027, t01=0x0094}
0x3d9c…3da8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x00bc}
0x3da8…3db8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x00c8}
0x3db8…3dca               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0027, t01=0x00d8}
0x3dca…3dde               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0027, t01=0x00ea}
0x3dde…3dfa               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x00fe}
0x3dfa…3e2a               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0027, t01=0x011a}
0x3e2a…3e44               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0027, t01=0x014a}
0x3e44…3e70               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0027, t01=0x0164}
0x3e70…3e8a               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0027, t01=0x0190}
0x3e8a…3eb4               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0028, t01=0x001a}
0x3eb4…3ec6               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0028, t01=0x0044}
0x3ec6…3ee2               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0028, t01=0x0056}
0x3ee2…3f08               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0028, t01=0x0072}
0x3f08…3f20               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0028, t01=0x0098}
0x3f20…3f40               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0028, t01=0x00b0}
0x3f40…3f5a               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0028, t01=0x00d0}
0x3f5a…3f6e               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0028, t01=0x00ea}
0x3f6e…3f96               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0028, t01=0x00fe}
0x3f96…3fb0               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0028, t01=0x0126}
0x3fb0…3fd2               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x0140}
0x3fd2…3fe6               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0028, t01=0x0162}
0x3fe6…4008               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x0176}
0x4008…4040               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0029, t01=0x0008}
0x4040…4052               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0029, t01=0x0040}
0x4052…408c               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0029, t01=0x0052}
0x408c…40ac               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0029, t01=0x008c}
0x40ac…40b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ac}
0x40b6…40ce               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0029, t01=0x00b6}
0x40ce…40e4               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x00ce}
0x40e4…4100               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0029, t01=0x00e4}
0x4100…4116               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0029, t01=0x0100}
0x4116…4120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0116}
0x4120…4134               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0029, t01=0x0120}
0x4134…4148               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x0134}
0x4148…4152               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0148}
0x4152…4166               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0029, t01=0x0152}
0x4166…41a4               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0029, t01=0x0166}
0x41a4…41b8               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x002a, t01=0x0014}
0x41b8…41c2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002a, t01=0x0028}
0x41c2…41cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0032}
0x41cc…41f6               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x002a, t01=0x003c}
0x41f6…4200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0066}
0x4200…4214               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x002a, t01=0x0070}
0x4214…4226               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002a, t01=0x0084}
0x4226…423c               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x002a, t01=0x0096}
0x423c…4250               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x00ac}
0x4250…426a               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x002a, t01=0x00c0}
0x426a…4280               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x002a, t01=0x00da}
0x4280…428c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00f0}
0x428c…42aa               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x002a, t01=0x00fc}
0x42aa…42be               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x011a}
0x42be…42d0               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x002a, t01=0x012e}
0x42d0…42e4               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x002a, t01=0x0140}
0x42e4…4302               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x002a, t01=0x0154}
0x4302…431a               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x002a, t01=0x0172}
0x431a…432e               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002a, t01=0x018a}
0x432e…433a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x000e}
0x433a…4350               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x002b, t01=0x001a}
0x4350…435c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x0030}
0x435c…436c               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002b, t01=0x003c}
0x436c…437c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x004c}
0x437c…4386               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002b, t01=0x005c}
0x4386…4390               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0066}
0x4390…43ac               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x002b, t01=0x0070}
0x43ac…43ca               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002b, t01=0x008c}
0x43ca…43e4               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002b, t01=0x00aa}
0x43e4…43ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c4}
0x43ee…4402               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002b, t01=0x00ce}
0x4402…441a               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002b, t01=0x00e2}
0x441a…442e               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002b, t01=0x00fa}
0x442e…443a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x010e}
0x443a…444a               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002b, t01=0x011a}
0x444a…445a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x012a}
0x445a…4464               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002b, t01=0x013a}
0x4464…446c               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0144}
0x446c…4476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x014c}
0x4476…4480               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0156}
0x4480…44c2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002b, t01=0x0160}
0x44c2…44cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0012}
0x44cc…44dc               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002c, t01=0x001c}
0x44dc…44e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x002c}
0x44e6…452c               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002c, t01=0x0036}
0x452c…4536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x007c}
0x4536…454c               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002c, t01=0x0086}
0x454c…4556               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002c, t01=0x009c}
0x4556…4560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a6}
0x4560…45a0               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x00b0}
0x45a0…45aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f0}
0x45aa…45be               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002c, t01=0x00fa}
0x45be…45c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x010e}
0x45c8…4602               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002c, t01=0x0118}
0x4602…460c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0152}
0x460c…464c               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x015c}
0x464c…4656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000c}
0x4656…466a               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002d, t01=0x0016}
0x466a…4698               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002d, t01=0x002a}
0x4698…46aa               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002d, t01=0x0058}
0x46aa…46d2               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002d, t01=0x006a}
0x46d2…46ea               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002d, t01=0x0092}
0x46ea…4702               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002d, t01=0x00aa}
0x4702…470c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c2}
0x470c…474c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x00cc}
0x474c…4756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010c}
0x4756…476a               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002d, t01=0x0116}
0x476a…4774               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x012a}
0x4774…47b4               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002d, t01=0x0134}
0x47b4…47be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x47be…47fe               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x017e}
0x47fe…4808               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x002e}
0x4808…481e               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002e, t01=0x0038}
0x481e…4828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x004e}
0x4828…483c               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002e, t01=0x0058}
0x483c…486a               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002e, t01=0x006c}
0x486a…487c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002e, t01=0x009a}
0x487c…48a0               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002e, t01=0x00ac}
0x48a0…48b8               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002e, t01=0x00d0}
0x48b8…48ca               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002e, t01=0x00e8}
0x48ca…48e2               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002e, t01=0x00fa}
0x48e2…48ec               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002e, t01=0x0112}
0x48ec…48f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x011c}
0x48f6…493a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002e, t01=0x0126}
0x493a…4944               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x016a}
0x4944…4954               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002e, t01=0x0174}
0x4954…495e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0184}
0x495e…499e               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002e, t01=0x018e}
0x499e…49a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003e}
0x49a8…49ec               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x0048}
0x49ec…49f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008c}
0x49f6…4a0a               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002f, t01=0x0096}
0x4a0a…4a34               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002f, t01=0x00aa}
0x4a34…4a4a               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002f, t01=0x00d4}
0x4a4a…4a6a               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002f, t01=0x00ea}
0x4a6a…4a82               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002f, t01=0x010a}
0x4a82…4a98               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002f, t01=0x0122}
0x4a98…4ab0               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002f, t01=0x0138}
0x4ab0…4aba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0150}
0x4aba…4b00               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x015a}
0x4b00…4b0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0010}
0x4b0a…4b18               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x0030, t01=0x001a}
0x4b18…4b22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0028}
0x4b22…4b4e               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x0030, t01=0x0032}
0x4b4e…4b58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005e}
0x4b58…4b9e               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0030, t01=0x0068}
0x4b9e…4ba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ae}
0x4ba8…4bba               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x0030, t01=0x00b8}
0x4bba…4be8               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x00ca}
0x4be8…4bfe               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x0030, t01=0x00f8}
0x4bfe…4c20               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x0030, t01=0x010e}
0x4c20…4c36               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x0030, t01=0x0130}
0x4c36…4c4e               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x0030, t01=0x0146}
0x4c4e…4c58               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0030, t01=0x015e}
0x4c58…4c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0168}
0x4c62…4ca0               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x0172}
0x4ca0…4caa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0020}
0x4caa…4cba               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x0031, t01=0x002a}
0x4cba…4cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003a}
0x4cc4…4ce8               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x0031, t01=0x0044}
0x4ce8…4cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0068}
0x4cf2…4d30               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x0072}
0x4d30…4d3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b0}
0x4d3a…4d4e               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0031, t01=0x00ba}
0x4d4e…4d60               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0031, t01=0x00ce}
0x4d60…4d74               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0031, t01=0x00e0}
0x4d74…4da2               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0031, t01=0x00f4}
0x4da2…4dc6               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0031, t01=0x0122}
0x4dc6…4dec               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0031, t01=0x0146}
0x4dec…4dfc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x016c}
0x4dfc…4e06               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0031, t01=0x017c}
0x4e06…4e10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0186}
0x4e10…4e4e               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x0190}
0x4e4e…4e58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003e}
0x4e58…4e66               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0032, t01=0x0048}
0x4e66…4e70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0056}
0x4e70…4ea6               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0032, t01=0x0060}
0x4ea6…4eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0096}
0x4eb0…4eee               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x00a0}
0x4eee…4ef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00de}
0x4ef8…4f0a               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0032, t01=0x00e8}
0x4f0a…4f34               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0032, t01=0x00fa}
0x4f34…4f54               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0032, t01=0x0124}
0x4f54…4f6a               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0032, t01=0x0144}
0x4f6a…4f80               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0032, t01=0x015a}
0x4f80…4f9e               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0032, t01=0x0170}
0x4f9e…4fa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x018e}
0x4fa8…4fc6               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0033, t01=0x0008}
0x4fc6…4fd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0026}
0x4fd0…4fe8               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0033, t01=0x0030}
0x4fe8…5004               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0033, t01=0x0048}
0x5004…501a               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0033, t01=0x0064}
0x501a…5030               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0033, t01=0x007a}
0x5030…5042               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0033, t01=0x0090}
0x5042…5078               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0033, t01=0x00a2}
0x5078…5082               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0033, t01=0x00d8}
0x5082…508a               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00e2}
0x508a…50d4               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0033, t01=0x00ea}
0x50d4…50e6               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0033, t01=0x0134}
0x50e6…5118               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0033, t01=0x0146}
0x5118…512a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0033, t01=0x0178}
0x512a…5152               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0033, t01=0x018a}
0x5152…5166               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0034, t01=0x0022}
0x5166…518a               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0034, t01=0x0036}
0x518a…51bc               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0034, t01=0x005a}
0x51bc…51d8               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0034, t01=0x008c}
0x51d8…5204               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0034, t01=0x00a8}
0x5204…5220               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0034, t01=0x00d4}
0x5220…523a               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0034, t01=0x00f0}
0x523a…5252               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0034, t01=0x010a}
0x5252…526e               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0034, t01=0x0122}
0x526e…529a               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0034, t01=0x013e}
0x529a…52aa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x016a}
0x52aa…52f6               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0034, t01=0x017a}
0x52f6…5300               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0035, t01=0x0036}
0x5300…530a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0040}
0x530a…5346               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x004a}
0x5346…5350               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0086}
0x5350…535e               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0035, t01=0x0090}
0x535e…5368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x009e}
0x5368…539e               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0035, t01=0x00a8}
0x539e…53ca               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0035, t01=0x00de}
0x53ca…53d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x010a}
0x53d4…5410               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x0114}
0x5410…541a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0150}
0x541a…5450               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0035, t01=0x015a}
0x5450…5462               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0035, t01=0x0190}
0x5462…5482               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0036, t01=0x0012}
0x5482…54a4               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0036, t01=0x0032}
0x54a4…54ba               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0036, t01=0x0054}
0x54ba…54c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006a}
0x54c4…54d6               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0036, t01=0x0074}
0x54d6…54e8               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0036, t01=0x0086}
0x54e8…5512               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0036, t01=0x0098}
0x5512…5540               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0036, t01=0x00c2}
0x5540…5560               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0036, t01=0x00f0}
0x5560…557a               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0036, t01=0x0110}
0x557a…558c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0036, t01=0x012a}
0x558c…55b2               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0036, t01=0x013c}
0x55b2…55cc               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0036, t01=0x0162}
0x55cc…55ec               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0036, t01=0x017c}
0x55ec…560e               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0037, t01=0x000c}
0x560e…5638               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0037, t01=0x002e}
0x5638…5648               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x0058}
0x5648…5660               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0037, t01=0x0068}
0x5660…5690               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0037, t01=0x0080}
0x5690…569a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0037, t01=0x00b0}
0x569a…56da               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x00ba}
0x56da…56f6               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0037, t01=0x00fa}
0x56f6…5722               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0037, t01=0x0116}
0x5722…573e               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0037, t01=0x0142}
0x573e…5752               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0037, t01=0x015e}
0x5752…5774               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0037, t01=0x0172}
0x5774…5788 (56, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0038, t01=0x0004}
0x5788…57c8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0038, t01=0x0018}
0x57c8…57f0               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0038, t01=0x0058}
0x57f0…5808               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0038, t01=0x0080}
0x5808…583c               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0038, t01=0x0098}
0x583c…5854               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0038, t01=0x00cc}
0x5854…5866               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0038, t01=0x00e4}
0x5866…5870               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0038, t01=0x00f6}
0x5870…587a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0100}
0x587a…58be               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0038, t01=0x010a}
0x58be…58c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x014e}
0x58c8…58d6               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0038, t01=0x0158}
0x58d6…58e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0166}
0x58e0…58f8               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0038, t01=0x0170}
0x58f8…5936               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0038, t01=0x0188}
0x5936…5974               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0039, t01=0x0036}
0x5974…59a0               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0039, t01=0x0074}
0x59a0…59aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a0}
0x59aa…59ee               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0039, t01=0x00aa}
0x59ee…59f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ee}
0x59f8…5a0a               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0039, t01=0x00f8}
0x5a0a…5a34               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0039, t01=0x010a}
0x5a34…5a6e               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0039, t01=0x0134}
0x5a6e…5a84               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0039, t01=0x016e}
0x5a84…5ab8               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0039, t01=0x0184}
0x5ab8…5aca               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003a, t01=0x0028}
0x5aca…5ade               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003a, t01=0x003a}
0x5ade…5af2               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x003a, t01=0x004e}
0x5af2…5b02               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0062}
0x5b02…5b0c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003a, t01=0x0072}
0x5b0c…5b16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007c}
0x5b16…5b5a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x0086}
0x5b5a…5b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ca}
0x5b64…5b7e               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x003a, t01=0x00d4}
0x5b7e…5b88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ee}
0x5b88…5bcc               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x003a, t01=0x00f8}
0x5bcc…5c0c               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x003a, t01=0x013c}
0x5c0c…5c3c               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x003a, t01=0x017c}
0x5c3c…5c46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x001c}
0x5c46…5c88               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0026}
0x5c88…5c92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0068}
0x5c92…5ca6               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003b, t01=0x0072}
0x5ca6…5cce               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003b, t01=0x0086}
0x5cce…5d08               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003b, t01=0x00ae}
0x5d08…5d1c               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003b, t01=0x00e8}
0x5d1c…5d52               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003b, t01=0x00fc}
0x5d52…5d64               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003b, t01=0x0132}
0x5d64…5d78               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003b, t01=0x0144}
0x5d78…5d88               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0158}
0x5d88…5d92               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003b, t01=0x0168}
0x5d92…5d9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0172}
0x5d9c…5dde               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x017c}
0x5dde…5de8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x002e}
0x5de8…5dfe               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003c, t01=0x0038}
0x5dfe…5e08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x004e}
0x5e08…5e26               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003c, t01=0x0058}
0x5e26…5e62               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003c, t01=0x0076}
0x5e62…5ea0               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003c, t01=0x00b2}
0x5ea0…5ebe               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003c, t01=0x00f0}
0x5ebe…5ec8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x010e}
0x5ec8…5f08               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x0118}
0x5f08…5f12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0158}
0x5f12…5f2e               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003c, t01=0x0162}
0x5f2e…5f58               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003c, t01=0x017e}
0x5f58…5f88               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003d, t01=0x0018}
0x5f88…5f9c               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003d, t01=0x0048}
0x5f9c…5fb0               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003d, t01=0x005c}
0x5fb0…5fc6               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003d, t01=0x0070}
0x5fc6…5fda               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003d, t01=0x0086}
0x5fda…6002               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003d, t01=0x009a}
0x6002…6020               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003d, t01=0x00c2}
0x6020…6050               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003d, t01=0x00e0}
0x6050…6060               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x0110}
0x6060…606a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003d, t01=0x0120}
0x606a…6074               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x012a}
0x6074…60b2               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003d, t01=0x0134}
0x60b2…60bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0172}
0x60bc…60cc               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003d, t01=0x017c}
0x60cc…60d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x018c}
0x60d6…6110               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003e, t01=0x0008}
0x6110…6146               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003e, t01=0x0042}
0x6146…6150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0078}
0x6150…618c               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003e, t01=0x0082}
0x618c…6196               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00be}
0x6196…61b8               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003e, t01=0x00c8}
0x61b8…61ce               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003e, t01=0x00ea}
0x61ce…61e2               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003e, t01=0x0100}
0x61e2…61f4               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003e, t01=0x0114}
0x61f4…621e               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003e, t01=0x0126}
0x621e…6244               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003e, t01=0x0150}
0x6244…6266               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003e, t01=0x0176}
0x6266…6280               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003f, t01=0x0008}
0x6280…62a6               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003f, t01=0x0022}
0x62a6…62c0               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x0048}
0x62c0…62d2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003f, t01=0x0062}
0x62d2…62fe               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003f, t01=0x0074}
0x62fe…6318               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x00a0}
0x6318…6330               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003f, t01=0x00ba}
0x6330…6358               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003f, t01=0x00d2}
0x6358…639c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003f, t01=0x00fa}
0x639c…63ae               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003f, t01=0x013e}
0x63ae…63d0               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003f, t01=0x0150}
0x63d0…6408               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003f, t01=0x0172}
0x6408…643c               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x0040, t01=0x001a}
0x643c…644e               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x0040, t01=0x004e}
0x644e…6462               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x0040, t01=0x0060}
0x6462…64a4               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0040, t01=0x0074}
0x64a4…64c2               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x00b6}
0x64c2…64dc               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x0040, t01=0x00d4}
0x64dc…64ee               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0040, t01=0x00ee}
0x64ee…6510               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x0040, t01=0x0100}
0x6510…6532               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x0040, t01=0x0122}
0x6532…6542               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0144}
0x6542…6570               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x0040, t01=0x0154}
0x6570…658a               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0040, t01=0x0182}
0x658a…65b6               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0041, t01=0x000c}
0x65b6…65dc               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0041, t01=0x0038}
0x65dc…6600               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0041, t01=0x005e}
0x6600…6618               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0041, t01=0x0082}
0x6618…6636               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0041, t01=0x009a}
0x6636…6650               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0041, t01=0x00b8}
0x6650…6682               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0041, t01=0x00d2}
0x6682…669e               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0041, t01=0x0104}
0x669e…66e6               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0041, t01=0x0120}
0x66e6…66f8               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0041, t01=0x0168}
0x66f8…6740               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0041, t01=0x017a}
0x6740…674a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0042, t01=0x0032}
0x674a…6754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x003c}
0x6754…6796               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x0046}
0x6796…67a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0088}
0x67a0…67ae               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0042, t01=0x0092}
0x67ae…67b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00a0}
0x67b8…67f6               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0042, t01=0x00aa}
0x67f6…6800               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e8}
0x6800…6842               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x00f2}
0x6842…684c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0134}
0x684c…6860               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0042, t01=0x013e}
0x6860…6890               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0042, t01=0x0152}
0x6890…68b2               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0042, t01=0x0182}
0x68b2…68bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0014}
0x68bc…68ce               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0043, t01=0x001e}
0x68ce…68f8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0043, t01=0x0030}
0x68f8…692a               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0043, t01=0x005a}
0x692a…694e               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0043, t01=0x008c}
0x694e…6968               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0043, t01=0x00b0}
0x6968…699e               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0043, t01=0x00ca}
0x699e…69b0               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0043, t01=0x0100}
0x69b0…69d6               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0043, t01=0x0112}
0x69d6…69f0               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0043, t01=0x0138}
0x69f0…6a08               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0043, t01=0x0152}
0x6a08…6a2a               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0043, t01=0x016a}
0x6a2a…6a42               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0043, t01=0x018c}
0x6a42…6a72               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0044, t01=0x0014}
0x6a72…6a7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0044}
0x6a7c…6a8e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x004e}
0x6a8e…6ab4               Head {h00=0x0022, h01=0x0050, text=»* UPDATING OF FIELD SEPARATOR «, t00=0x0044, t01=0x0060}
0x6ab4…6ac4               Head {h00=0x000c, h01=0x0050, text=»*    DK4«, t00=0x0044, t01=0x0086}
0x6ac4…6ace               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0096}
0x6ace…6ae8               Head {h00=0x0016, h01=0x0050, text=»CHARFS EQU *  DK4 «, t00=0x0044, t01=0x00a0}
0x6ae8…6b02               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK4«, t00=0x0044, t01=0x00ba}
0x6b02…6b2a               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/26 LOAD CHARACTER & DK4«, t00=0x0044, t01=0x00d4}
0x6b2a…6b6c               Head {h00=0x003e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS RESTORE CHARACTER IN BUFFER DK4«, t00=0x0044, t01=0x00fc}
0x6b6c…6b7e               Head {h00=0x000e, h01=0x0050, text=» XIF   DK4«, t00=0x0044, t01=0x013e}
0x6b7e…6ba0               Head {h00=0x001e, h01=0x0050, text=» RB CHAR  DISPLAY CHAR DK4«, t00=0x0044, t01=0x0150}
0x6ba0…6baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0172}
0x6baa…6bb4               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0044, t01=0x017c}
0x6bb4…6bfc               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0044, t01=0x0186}
0x6bfc…6c06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x003e}
0x6c06…6c30               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0045, t01=0x0048}
0x6c30…6c5c               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0045, t01=0x0072}
0x6c5c…6c66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x009e}
0x6c66…6ca0               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0045, t01=0x00a8}
0x6ca0…6ca8               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x00e2}
0x6ca8…6cbc               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0045, t01=0x00ea}
0x6cbc…6ce0               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x00fe}
0x6ce0…6d1c               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x0122}
0x6d1c…6d42               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0045, t01=0x015e}
0x6d42…6d4a               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x0184}
0x6d4a…6d5e               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0045, t01=0x018c}
0x6d5e…6d82               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0046, t01=0x0010}
0x6d82…6dbe               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0046, t01=0x0034}
0x6dbe…6de4               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x0070}
0x6de4…6e0a               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x0096}
0x6e0a…6e22               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0046, t01=0x00bc}
0x6e22…6e2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00d4}
0x6e2c…6e6e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x00de}
0x6e6e…6e78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0120}
0x6e78…6e86               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0046, t01=0x012a}
0x6e86…6e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0138}
0x6e90…6eb6               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0046, t01=0x0142}
0x6eb6…6ec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0168}
0x6ec0…6f02               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x0172}
0x6f02…6f0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0024}
0x6f0c…6f20               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0047, t01=0x002e}
0x6f20…6f34               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0047, t01=0x0042}
0x6f34…6f56               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0047, t01=0x0056}
0x6f56…6f60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0078}
0x6f60…6f72               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0047, t01=0x0082}
0x6f72…6f9c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0047, t01=0x0094}
0x6f9c…6fce               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0047, t01=0x00be}
0x6fce…6ff6               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0047, t01=0x00f0}
0x6ff6…7010               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0047, t01=0x0118}
0x7010…7046               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0047, t01=0x0132}
0x7046…7058               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0047, t01=0x0168}
0x7058…707c               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0047, t01=0x017a}
0x707c…7094               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0048, t01=0x000e}
0x7094…70c4               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0048, t01=0x0026}
0x70c4…70ce               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0048, t01=0x0056}
0x70ce…70d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0060}
0x70d8…711a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x006a}
0x711a…7124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ac}
0x7124…7134               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0048, t01=0x00b6}
0x7134…713e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c6}
0x713e…717e               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0048, t01=0x00d0}
0x717e…7190               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0048, t01=0x0110}
0x7190…719a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0122}
0x719a…71dc               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x012c}
0x71dc…71e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x016e}
0x71e6…71fa               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0048, t01=0x0178}
0x71fa…7220               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0048, t01=0x018c}
0x7220…7234               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0049, t01=0x0022}
0x7234…724a               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0049, t01=0x0036}
0x724a…7260               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0049, t01=0x004c}
0x7260…7272               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0049, t01=0x0062}
0x7272…727a               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0074}
0x727a…72a4               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0049, t01=0x007c}
0x72a4…72c0               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0049, t01=0x00a6}
0x72c0…72e2               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0049, t01=0x00c2}
0x72e2…7310               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0049, t01=0x00e4}
0x7310…732c               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0049, t01=0x0112}
0x732c…7358               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0049, t01=0x012e}
0x7358…7372               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0049, t01=0x015a}
0x7372…7396               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0049, t01=0x0174}
0x7396…73b4               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x004a, t01=0x0008}
0x73b4…73e4               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x004a, t01=0x0026}
0x73e4…7400               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x004a, t01=0x0056}
0x7400…7412               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x004a, t01=0x0072}
0x7412…7426               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x004a, t01=0x0084}
0x7426…743e               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x004a, t01=0x0098}
0x743e…7468               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x004a, t01=0x00b0}
0x7468…7482               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x004a, t01=0x00da}
0x7482…74b6               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x004a, t01=0x00f4}
0x74b6…74ca               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x004a, t01=0x0128}
0x74ca…74e6               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x004a, t01=0x013c}
0x74e6…7502               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x004a, t01=0x0158}
0x7502…752a               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x004a, t01=0x0174}
0x752a…753c               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x004b, t01=0x000c}
0x753c…7550               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x004b, t01=0x001e}
0x7550…7558               Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0032}
0x7558…758e               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x004b, t01=0x003a}
0x758e…75b2               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x004b, t01=0x0070}
0x75b2…75ca               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x004b, t01=0x0094}
0x75ca…75de               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x004b, t01=0x00ac}
0x75de…75f8               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x004b, t01=0x00c0}
0x75f8…7624               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x004b, t01=0x00da}
0x7624…7636               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x004b, t01=0x0106}
0x7636…765e               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x004b, t01=0x0118}
0x765e…7678               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x004b, t01=0x0140}
0x7678…76a2               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x004b, t01=0x015a}
0x76a2…76bc               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004b, t01=0x0184}
0x76bc…76da               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004c, t01=0x000e}
0x76da…76fc               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004c, t01=0x002c}
0x76fc…7728               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004c, t01=0x004e}
0x7728…774a               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004c, t01=0x007a}
0x774a…7776               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004c, t01=0x009c}
0x7776…77aa               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004c, t01=0x00c8}
0x77aa…77d4               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004c, t01=0x00fc}
0x77d4…7802               Head {h00=0x002a, h01=0x0050, text=» CWK A4,DUPCH  DONT ADD IF IN DUP DK6 «, t00=0x004c, t01=0x0126}
0x7802…781c               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC252  DK6«, t00=0x004c, t01=0x0154}
0x781c…782e               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004c, t01=0x016e}
0x782e…7842               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004c, t01=0x0180}
0x7842…7858 (77, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004d, t01=0x0004}
0x7858…786e               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004d, t01=0x001a}
0x786e…7880               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004d, t01=0x0030}
0x7880…7894               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004d, t01=0x0042}
0x7894…78b0               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004d, t01=0x0056}
0x78b0…78d6               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004d, t01=0x0072}
0x78d6…78fa               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004d, t01=0x0098}
0x78fa…7912               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004d, t01=0x00bc}
0x7912…791a               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00d4}
0x791a…7946               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004d, t01=0x00dc}
0x7946…795a               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004d, t01=0x0108}
0x795a…797e               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004d, t01=0x011c}
0x797e…79a2               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004d, t01=0x0140}
0x79a2…79ce               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004d, t01=0x0164}
0x79ce…79ea               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004d, t01=0x0190}
0x79ea…7a28               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004e, t01=0x001c}
0x7a28…7a3c               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004e, t01=0x005a}
0x7a3c…7a4c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x006e}
0x7a4c…7a60               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004e, t01=0x007e}
0x7a60…7a6a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x004e, t01=0x0092}
0x7a6a…7a72               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x009c}
0x7a72…7aae               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004e, t01=0x00a4}
0x7aae…7ab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e0}
0x7ab8…7af8               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004e, t01=0x00ea}
0x7af8…7b2a               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004e, t01=0x012a}
0x7b2a…7b34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x015c}
0x7b34…7b78               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004e, t01=0x0166}
0x7b78…7b80               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x001a}
0x7b80…7b94               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004f, t01=0x0022}
0x7b94…7ba8               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004f, t01=0x0036}
0x7ba8…7bd2               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004f, t01=0x004a}
0x7bd2…7bfe               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004f, t01=0x0074}
0x7bfe…7c30               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004f, t01=0x00a0}
0x7c30…7c58               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004f, t01=0x00d2}
0x7c58…7c60               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00fa}
0x7c60…7c8e               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004f, t01=0x0102}
0x7c8e…7cb2               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004f, t01=0x0130}
0x7cb2…7ccc               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004f, t01=0x0154}
0x7ccc…7cfe               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004f, t01=0x016e}
0x7cfe…7d1a               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x0050, t01=0x0010}
0x7d1a…7d3a               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x0050, t01=0x002c}
0x7d3a…7d4c               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x0050, t01=0x004c}
0x7d4c…7d64               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x0050, t01=0x005e}
0x7d64…7d6c               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0076}
0x7d6c…7d74               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x007e}
0x7d74…7d88               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x0050, t01=0x0086}
0x7d88…7db6               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x0050, t01=0x009a}
0x7db6…7dda               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x0050, t01=0x00c8}
0x7dda…7e06               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x0050, t01=0x00ec}
0x7e06…7e0e               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0118}
0x7e0e…7e40               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x0050, t01=0x0120}
0x7e40…7e5c               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x0050, t01=0x0152}
0x7e5c…7e7e               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x0050, t01=0x016e}
0x7e7e…7ea2               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0050, t01=0x0190}
0x7ea2…7ed0               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x0051, t01=0x0024}
0x7ed0…7ee2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0051, t01=0x0052}
0x7ee2…7f08               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x0051, t01=0x0064}
0x7f08…7f10               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x008a}
0x7f10…7f18               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0092}
0x7f18…7f46               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x0051, t01=0x009a}
0x7f46…7f74               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x0051, t01=0x00c8}
0x7f74…7f9a               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x0051, t01=0x00f6}
0x7f9a…7fc2               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x0051, t01=0x011c}
0x7fc2…7fca               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0144}
0x7fca…8000               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x0051, t01=0x014c}
0x8000…802e               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x0051, t01=0x0182}
0x802e…804a               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0052, t01=0x0020}
0x804a…8060               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0052, t01=0x003c}
0x8060…8092               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0052, t01=0x0052}
0x8092…80b8               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0052, t01=0x0084}
0x80b8…80e2               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0052, t01=0x00aa}
0x80e2…80ec               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0052, t01=0x00d4}
0x80ec…80f4               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00de}
0x80f4…813a               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x00e6}
0x813a…8144               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x012c}
0x8144…8188               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0052, t01=0x0136}
0x8188…81c8               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0052, t01=0x017a}
0x81c8…81d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x002a}
0x81d2…820e               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0053, t01=0x0034}
0x820e…8216               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0070}
0x8216…822a               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0053, t01=0x0078}
0x822a…8252               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0053, t01=0x008c}
0x8252…8284               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0053, t01=0x00b4}
0x8284…8294               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x00e6}
0x8294…829c               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00f6}
0x829c…82a4               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00fe}
0x82a4…82be               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0053, t01=0x0106}
0x82be…82d2               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0053, t01=0x0120}
0x82d2…82fe               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0053, t01=0x0134}
0x82fe…831a               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0053, t01=0x0160}
0x831a…8332               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0053, t01=0x017c}
0x8332…8344 (84, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0054, t01=0x0004}
0x8344…834c               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0016}
0x834c…8354               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x001e}
0x8354…8388               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0054, t01=0x0026}
0x8388…8390               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x005a}
0x8390…8398               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0062}
0x8398…83bc               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0054, t01=0x006a}
0x83bc…83d6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0054, t01=0x008e}
0x83d6…83e8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0054, t01=0x00a8}
0x83e8…83f0               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00ba}
0x83f0…840c               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0054, t01=0x00c2}
0x840c…8446               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0054, t01=0x00de}
0x8446…8478               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0054, t01=0x0118}
0x8478…84aa               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0054, t01=0x014a}
0x84aa…84c6               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0054, t01=0x017c}
0x84c6…84e8               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0055, t01=0x0008}
0x84e8…850c               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0055, t01=0x002a}
0x850c…853a               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0055, t01=0x004e}
0x853a…854c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0055, t01=0x007c}
0x854c…8572               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0055, t01=0x008e}
0x8572…857a               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00b4}
0x857a…8582               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00bc}
0x8582…85ae               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0055, t01=0x00c4}
0x85ae…85e0               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0055, t01=0x00f0}
0x85e0…8612               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0055, t01=0x0122}
0x8612…8626               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0055, t01=0x0154}
0x8626…8654               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0055, t01=0x0168}
0x8654…8680               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0056, t01=0x0008}
0x8680…8692               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0056, t01=0x0034}
0x8692…869e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0046}
0x869e…86a8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0056, t01=0x0052}
0x86a8…86b0               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x005c}
0x86b0…86f2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0056, t01=0x0064}
0x86f2…86fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00a6}
0x86fc…8734               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0056, t01=0x00b0}
0x8734…873e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00e8}
0x873e…877c               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0056, t01=0x00f2}
0x877c…8784               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0130}
0x8784…8798               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0056, t01=0x0138}
0x8798…87aa               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0056, t01=0x014c}
0x87aa…87b2               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x015e}
0x87b2…87ca               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0056, t01=0x0166}
0x87ca…87e0               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0056, t01=0x017e}
0x87e0…8800 (87, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0057, t01=0x0004}
0x8800…882a               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0057, t01=0x0024}
0x882a…884e               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0057, t01=0x004e}
0x884e…886a               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0057, t01=0x0072}
0x886a…887c               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0057, t01=0x008e}
0x887c…88aa               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0057, t01=0x00a0}
0x88aa…88b2               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00ce}
0x88b2…88e0               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0057, t01=0x00d6}
0x88e0…88f6               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0057, t01=0x0104}
0x88f6…8900               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0057, t01=0x011a}
0x8900…890a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0124}
0x890a…894c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0057, t01=0x012e}
0x894c…8956               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0170}
0x8956…8966               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0057, t01=0x017a}
0x8966…8970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x018a}
0x8970…89ae (88, 0, 400)  Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0058, t01=0x0004}
0x89ae…89d6               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0058, t01=0x0042}
0x89d6…89e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x006a}
0x89e0…8a22               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0058, t01=0x0074}
0x8a22…8a2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b6}
0x8a2c…8a40               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0058, t01=0x00c0}
0x8a40…8a52               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0058, t01=0x00d4}
0x8a52…8a70               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0058, t01=0x00e6}
0x8a70…8a84               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0058, t01=0x0104}
0x8a84…8aac               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0058, t01=0x0118}
0x8aac…8ac0               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0058, t01=0x0140}
0x8ac0…8af2               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0058, t01=0x0154}
0x8af2…8b1e               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0058, t01=0x0186}
0x8b1e…8b2e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x0022}
0x8b2e…8b38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0032}
0x8b38…8b40               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x003c}
0x8b40…8b52               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0059, t01=0x0044}
0x8b52…8b5a               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0056}
0x8b5a…8b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x005e}
0x8b64…8b6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0068}
0x8b6e…8bb8               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0059, t01=0x0072}
0x8bb8…8bf6               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0059, t01=0x00bc}
0x8bf6…8c00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00fa}
0x8c00…8c0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0104}
0x8c0a…8c1c               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0059, t01=0x010e}
0x8c1c…8c32               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0059, t01=0x0120}
0x8c32…8c4e               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0059, t01=0x0136}
0x8c4e…8c5e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x0152}
0x8c5e…8c72               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0059, t01=0x0162}
0x8c72…8c8c               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0059, t01=0x0176}
0x8c8c…8cb0               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0059, t01=0x0190}
0x8cb0…8cd2               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x005a, t01=0x0024}
0x8cd2…8cf6               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x005a, t01=0x0046}
0x8cf6…8d0e               Head {h00=0x0014, h01=0x0050, text=» IFF PA49=1  DK3«, t00=0x005a, t01=0x006a}
0x8d0e…8d30               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x005a, t01=0x0082}
0x8d30…8d42               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x00a4}
0x8d42…8d5a               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005a, t01=0x00b6}
0x8d5a…8d7a               Head {h00=0x001c, h01=0x0050, text=» RF(G) PAEXB PA 4-9? DK3«, t00=0x005a, t01=0x00ce}
0x8d7a…8d8c               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x00ee}
0x8d8c…8d9e               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x005a, t01=0x0100}
0x8d9e…8db0               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x005a, t01=0x0112}
0x8db0…8dc2               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x005a, t01=0x0124}
0x8dc2…8dd2               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x005a, t01=0x0136}
0x8dd2…8dfc               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x005a, t01=0x0146}
0x8dfc…8e04               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0170}
0x8e04…8e10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0178}
0x8e10…8e1a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x005a, t01=0x0184}
0x8e1a…8e22               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x018e}
0x8e22…8e2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0008}
0x8e2c…8e56               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x005b, t01=0x0012}
0x8e56…8e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x003c}
0x8e60…8e6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0046}
0x8e6a…8e7c               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x005b, t01=0x0050}
0x8e7c…8e98               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x005b, t01=0x0062}
0x8e98…8eaa               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x007e}
0x8eaa…8eb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0090}
0x8eb4…8ebe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x009a}
0x8ebe…8ee6               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x005b, t01=0x00a4}
0x8ee6…8ef0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00cc}
0x8ef0…8efa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00d6}
0x8efa…8f0c               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x005b, t01=0x00e0}
0x8f0c…8f28               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x005b, t01=0x00f2}
0x8f28…8f3a               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x010e}
0x8f3a…8f44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0120}
0x8f44…8f64               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x005b, t01=0x012a}
0x8f64…8f7c               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005b, t01=0x014a}
0x8f7c…8f94               Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU *  DK3«, t00=0x005b, t01=0x0162}
0x8f94…8fac               Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6  DK3 «, t00=0x005b, t01=0x017a}
0x8fac…8fc6 (92, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» RF(G) PFERR  DK3 «, t00=0x005c, t01=0x0004}
0x8fc6…8fe8               Head {h00=0x001e, h01=0x0050, text=» ADK A2,/69 SET PA4-9 DK3 «, t00=0x005c, t01=0x001e}
0x8fe8…9000               Head {h00=0x0014, h01=0x0050, text=» RB CAN200  DK3 «, t00=0x005c, t01=0x0040}
0x9000…9012               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005c, t01=0x0058}
0x9012…901c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x006a}
0x901c…9030               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x005c, t01=0x0074}
0x9030…9044               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x005c, t01=0x0088}
0x9044…9056               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x005c, t01=0x009c}
0x9056…9060               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x005c, t01=0x00ae}
0x9060…906a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00b8}
0x906a…90aa               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x00c2}
0x90aa…90b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0102}
0x90b4…90c4               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x005c, t01=0x010c}
0x90c4…90ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x011c}
0x90ce…910a               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x005c, t01=0x0126}
0x910a…914a               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005c, t01=0x0162}
0x914a…9186               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005d, t01=0x0012}
0x9186…91a4               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005d, t01=0x004e}
0x91a4…91ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x006c}
0x91ae…91f0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005d, t01=0x0076}
0x91f0…91fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00b8}
0x91fa…9220               Head {h00=0x0022, h01=0x0050, text=»* READ MODIFIED HANDLING  DK7 «, t00=0x005d, t01=0x00c2}
0x9220…923a               Head {h00=0x0016, h01=0x0050, text=»READMY EQU *  DK7 «, t00=0x005d, t01=0x00e8}
0x923a…9262               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/20 NO AID GENERATED DK7«, t00=0x005d, t01=0x0102}
0x9262…927e               Head {h00=0x0018, h01=0x0050, text=» RF ENT100 DO IT DK7«, t00=0x005d, t01=0x012a}
0x927e…9292               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005d, t01=0x0146}
0x9292…92b0               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005d, t01=0x015a}
0x92b0…92c4               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005d, t01=0x0178}
0x92c4…92ee               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005d, t01=0x018c}
0x92ee…9320               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005e, t01=0x0026}
0x9320…9352               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005e, t01=0x0058}
0x9352…9366               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005e, t01=0x008a}
0x9366…9376               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x009e}
0x9376…9380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00ae}
0x9380…9388               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00b8}
0x9388…939a               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005e, t01=0x00c0}
0x939a…93a2               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00d2}
0x93a2…93ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00da}
0x93ac…93b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00e4}
0x93b6…9400               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005e, t01=0x00ee}
0x9400…9434               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005e, t01=0x0138}
0x9434…943e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x016c}
0x943e…9448               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0176}
0x9448…945a               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005e, t01=0x0180}
0x945a…9470 (95, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005f, t01=0x0004}
0x9470…9482               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005f, t01=0x001a}
0x9482…9496               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005f, t01=0x002c}
0x9496…94b0               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005f, t01=0x0040}
0x94b0…94d0               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005f, t01=0x005a}
0x94d0…9500               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005f, t01=0x007a}
0x9500…952a               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005f, t01=0x00aa}
0x952a…954c               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005f, t01=0x00d4}
0x954c…956e               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005f, t01=0x00f6}
0x956e…9584               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005f, t01=0x0118}
0x9584…9596               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005f, t01=0x012e}
0x9596…95a8               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005f, t01=0x0140}
0x95a8…95c2               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005f, t01=0x0152}
0x95c2…95e2               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005f, t01=0x016c}
0x95e2…9612               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x018c}
0x9612…9630               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x0060, t01=0x002c}
0x9630…9660               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x004a}
0x9660…9680               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x0060, t01=0x007a}
0x9680…9692               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0060, t01=0x009a}
0x9692…969a               Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00ac}
0x969a…96ac               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x0060, t01=0x00b4}
0x96ac…96c2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x0060, t01=0x00c6}
0x96c2…96d6               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x0060, t01=0x00dc}
0x96d6…96f2               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0060, t01=0x00f0}
0x96f2…9702               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x010c}
0x9702…9714               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x0060, t01=0x011c}
0x9714…972e               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0060, t01=0x012e}
0x972e…974e               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x0060, t01=0x0148}
0x974e…977e               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x0168}
0x977e…979c               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x0061, t01=0x0008}
0x979c…97cc               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0061, t01=0x0026}
0x97cc…97ea               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x0061, t01=0x0056}
0x97ea…97fc               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x0074}
0x97fc…9808               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0086}
0x9808…981c               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x0061, t01=0x0092}
0x981c…984a               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x0061, t01=0x00a6}
0x984a…9872               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x0061, t01=0x00d4}
0x9872…987a               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x00fc}
0x987a…9882               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0104}
0x9882…9892               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x0061, t01=0x010c}
0x9892…98a6               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x0061, t01=0x011c}
0x98a6…98b8               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x0130}
0x98b8…98cc               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x0142}
0x98cc…98d6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0061, t01=0x0156}
0x98d6…991a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x0160}
0x991a…9924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0014}
0x9924…9934               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x0062, t01=0x001e}
0x9934…9974               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x0062, t01=0x002e}
0x9974…99b0               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x0062, t01=0x006e}
0x99b0…99ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00aa}
0x99ba…9a00               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0062, t01=0x00b4}
0x9a00…9a14               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0062, t01=0x00fa}
0x9a14…9a2a               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x010e}
0x9a2a…9a3e               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x0062, t01=0x0124}
0x9a3e…9a54               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0062, t01=0x0138}
0x9a54…9a68               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0062, t01=0x014e}
0x9a68…9a82               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x0062, t01=0x0162}
0x9a82…9a94               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x0062, t01=0x017c}
0x9a94…9aae               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x0062, t01=0x018e}
0x9aae…9ae2               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x0063, t01=0x0018}
0x9ae2…9aee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x004c}
0x9aee…9b02               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0063, t01=0x0058}
0x9b02…9b3c               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0063, t01=0x006c}
0x9b3c…9b5a               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0063, t01=0x00a6}
0x9b5a…9b84               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x00c4}
0x9b84…9b98               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0063, t01=0x00ee}
0x9b98…9bb6               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0063, t01=0x0102}
0x9bb6…9be0               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x0120}
0x9be0…9bec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x014a}
0x9bec…9c00               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0063, t01=0x0156}
0x9c00…9c16               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0063, t01=0x016a}
0x9c16…9c2c               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0063, t01=0x0180}
0x9c2c…9c42               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0064, t01=0x0008}
0x9c42…9c6e               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0064, t01=0x001e}
0x9c6e…9c98               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0064, t01=0x004a}
0x9c98…9cc0               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0064, t01=0x0074}
0x9cc0…9cee               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0064, t01=0x009c}
0x9cee…9d04               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0064, t01=0x00ca}
0x9d04…9d2c               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0064, t01=0x00e0}
0x9d2c…9d5a               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0064, t01=0x0108}
0x9d5a…9d62               Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0136}
0x9d62…9d6e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x013e}
0x9d6e…9d82               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0064, t01=0x014a}
0x9d82…9d8c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0064, t01=0x015e}
0x9d8c…9dd0               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0064, t01=0x0168}
0x9dd0…9dda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x001c}
0x9dda…9df4               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0065, t01=0x0026}
0x9df4…9e40               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0065, t01=0x0040}
0x9e40…9e5e               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0065, t01=0x008c}
0x9e5e…9e68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00aa}
0x9e68…9eb6               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0065, t01=0x00b4}
0x9eb6…9ec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0102}
0x9ec0…9ed4               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0065, t01=0x010c}
0x9ed4…9eea               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0065, t01=0x0120}
0x9eea…9efe               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0065, t01=0x0136}
0x9efe…9f14               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0065, t01=0x014a}
0x9f14…9f2a               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0065, t01=0x0160}
0x9f2a…9f40               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0065, t01=0x0176}
0x9f40…9f56               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0065, t01=0x018c}
0x9f56…9f70               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0066, t01=0x0012}
0x9f70…9f82               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0066, t01=0x002c}
0x9f82…9f98               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0066, t01=0x003e}
0x9f98…9fae               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0066, t01=0x0054}
0x9fae…9fc0               Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0066, t01=0x006a}
0x9fc0…9fd4               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0066, t01=0x007c}
0x9fd4…9fea               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0066, t01=0x0090}
0x9fea…9ffe               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0066, t01=0x00a6}
0x9ffe…a018               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0066, t01=0x00ba}
0xa018…a028               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00d4}
0xa028…a034               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x00e4}
0xa034…a03e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0066, t01=0x00f0}
0xa03e…a048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00fa}
0xa048…a088               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0066, t01=0x0104}
0xa088…a092               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0144}
0xa092…a0a2               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0066, t01=0x014e}
0xa0a2…a0ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x015e}
0xa0ac…a0ea               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0066, t01=0x0168}
0xa0ea…a126               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0067, t01=0x0016}
0xa126…a164               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0067, t01=0x0052}
0xa164…a176               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0067, t01=0x0090}
0xa176…a180               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00a2}
0xa180…a1c0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0067, t01=0x00ac}
0xa1c0…a1ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00ec}
0xa1ca…a1de               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0067, t01=0x00f6}
0xa1de…a202               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0067, t01=0x010a}
0xa202…a21a               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0067, t01=0x012e}
0xa21a…a24c               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0067, t01=0x0146}
0xa24c…a278               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0067, t01=0x0178}
0xa278…a2a2               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0068, t01=0x0014}
0xa2a2…a2b2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x003e}
0xa2b2…a2bc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0068, t01=0x004e}
0xa2bc…a2c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0058}
0xa2c6…a30a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x0062}
0xa30a…a314               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00a6}
0xa314…a324               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0068, t01=0x00b0}
0xa324…a32e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00c0}
0xa32e…a34e               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0068, t01=0x00ca}
0xa34e…a358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00ea}
0xa358…a39c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x00f4}
0xa39c…a3a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0138}
0xa3a6…a3ba               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0068, t01=0x0142}
0xa3ba…a3cc               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0068, t01=0x0156}
0xa3cc…a3f6               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0068, t01=0x0168}
0xa3f6…a416 (105, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0069, t01=0x0004}
0xa416…a430               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0069, t01=0x0024}
0xa430…a442               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0069, t01=0x003e}
0xa442…a464               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0069, t01=0x0050}
0xa464…a46c               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0072}
0xa46c…a498               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x007a}
0xa498…a4a0               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00a6}
0xa4a0…a4d6               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0069, t01=0x00ae}
0xa4d6…a504               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0069, t01=0x00e4}
0xa504…a50c               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0112}
0xa50c…a538               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x011a}
0xa538…a540               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0146}
0xa540…a56c               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0069, t01=0x014e}
0xa56c…a58e               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0069, t01=0x017a}
0xa58e…a5a6               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x006a, t01=0x000c}
0xa5a6…a5be               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x006a, t01=0x0024}
0xa5be…a5da               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x006a, t01=0x003c}
0xa5da…a5ee               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x006a, t01=0x0058}
0xa5ee…a604               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x006a, t01=0x006c}
0xa604…a61a               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x006a, t01=0x0082}
0xa61a…a62c               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x006a, t01=0x0098}
0xa62c…a660               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x006a, t01=0x00aa}
0xa660…a68c               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x006a, t01=0x00de}
0xa68c…a696               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x010a}
0xa696…a6c2               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x006a, t01=0x0114}
0xa6c2…a6cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0140}
0xa6cc…a6d4               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x014a}
0xa6d4…a6f0               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x006a, t01=0x0152}
0xa6f0…a708               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x006a, t01=0x016e}
0xa708…a730               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x006a, t01=0x0186}
0xa730…a738               Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x001e}
0xa738…a74c               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x006b, t01=0x0026}
0xa74c…a77e               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x006b, t01=0x003a}
0xa77e…a79e               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x006b, t01=0x006c}
0xa79e…a7bc               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x006b, t01=0x008c}
0xa7bc…a7ce               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x006b, t01=0x00aa}
0xa7ce…a7e2               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x006b, t01=0x00bc}
0xa7e2…a7f2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x00d0}
0xa7f2…a81e               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x006b, t01=0x00e0}
0xa81e…a838               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x006b, t01=0x010c}
0xa838…a84a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x0126}
0xa84a…a862               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x006b, t01=0x0138}
0xa862…a890               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x006b, t01=0x0150}
0xa890…a8a6               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x006b, t01=0x017e}
0xa8a6…a8c4 (108, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x006c, t01=0x0004}
0xa8c4…a8d6               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x006c, t01=0x0022}
0xa8d6…a8e0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006c, t01=0x0034}
0xa8e0…a8ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x003e}
0xa8ea…a92a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006c, t01=0x0048}
0xa92a…a934               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0088}
0xa934…a944               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x006c, t01=0x0092}
0xa944…a94e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00a2}
0xa94e…a98c               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x006c, t01=0x00ac}
0xa98c…a9ca               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x006c, t01=0x00ea}
0xa9ca…a9f0               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x006c, t01=0x0128}
0xa9f0…a9fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x014e}
0xa9fa…aa3a               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x006c, t01=0x0158}
0xaa3a…aa44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0008}
0xaa44…aa58               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006d, t01=0x0012}
0xaa58…aa84               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006d, t01=0x0026}
0xaa84…aa9a               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006d, t01=0x0052}
0xaa9a…aab6               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006d, t01=0x0068}
0xaab6…aacc               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006d, t01=0x0084}
0xaacc…ab0e               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006d, t01=0x009a}
0xab0e…ab20               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006d, t01=0x00dc}
0xab20…ab48               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006d, t01=0x00ee}
0xab48…ab7c               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006d, t01=0x0116}
0xab7c…abaa               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006d, t01=0x014a}
0xabaa…abbe               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006d, t01=0x0178}
0xabbe…ac00               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006d, t01=0x018c}
0xac00…ac12               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006e, t01=0x003e}
0xac12…ac1a               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x0050}
0xac1a…ac2e               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006e, t01=0x0058}
0xac2e…ac4a               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006e, t01=0x006c}
0xac4a…ac5a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x0088}
0xac5a…ac64               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006e, t01=0x0098}
0xac64…ac6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00a2}
0xac6e…acb2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x00ac}
0xacb2…acbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00f0}
0xacbc…accc               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006e, t01=0x00fa}
0xaccc…acd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x010a}
0xacd6…ad08               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006e, t01=0x0114}
0xad08…ad12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0146}
0xad12…ad56               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006e, t01=0x0150}
0xad56…ad60 (111, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0004}
0xad60…ad74               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006f, t01=0x000e}
0xad74…ada0               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006f, t01=0x0022}
0xada0…adbc               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006f, t01=0x004e}
0xadbc…adf4               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006f, t01=0x006a}
0xadf4…ae10               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006f, t01=0x00a2}
0xae10…ae18               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x00be}
0xae18…ae22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00c6}
0xae22…ae42               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006f, t01=0x00d0}
0xae42…ae4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00f0}
0xae4c…ae54               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x00fa}
0xae54…ae6c               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006f, t01=0x0102}
0xae6c…ae92               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006f, t01=0x011a}
0xae92…aeb8               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006f, t01=0x0140}
0xaeb8…aee0               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006f, t01=0x0166}
0xaee0…aef4               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006f, t01=0x018e}
0xaef4…af18               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x0070, t01=0x0012}
0xaf18…af2c               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x0070, t01=0x0036}
0xaf2c…af4e               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x0070, t01=0x004a}
0xaf4e…af66               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0070, t01=0x006c}
0xaf66…af88               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x0070, t01=0x0084}
0xaf88…af94               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0070, t01=0x00a6}
0xaf94…afa4               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0070, t01=0x00b2}
0xafa4…afac               Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x00c2}
0xafac…afbc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x00ca}
0xafbc…afd2               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0070, t01=0x00da}
0xafd2…afdc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0070, t01=0x00f0}
0xafdc…b026               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x00fa}
0xb026…b030               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0144}
0xb030…b05c               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x0070, t01=0x014e}
0xb05c…b08c               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x0070, t01=0x017a}
0xb08c…b096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x001a}
0xb096…b0e0               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0071, t01=0x0024}
0xb0e0…b0ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x006e}
0xb0ea…b0fc               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0071, t01=0x0078}
0xb0fc…b126               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x0071, t01=0x008a}
0xb126…b14c               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x0071, t01=0x00b4}
0xb14c…b160               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0071, t01=0x00da}
0xb160…b174               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0071, t01=0x00ee}
0xb174…b186               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0071, t01=0x0102}
0xb186…b1a6               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0071, t01=0x0114}
0xb1a6…b1bc               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0071, t01=0x0134}
0xb1bc…b1e0               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0071, t01=0x014a}
0xb1e0…b1fe               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0071, t01=0x016e}
0xb1fe…b218               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0071, t01=0x018c}
0xb218…b242               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0072, t01=0x0016}
0xb242…b25c               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0072, t01=0x0040}
0xb25c…b278               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0072, t01=0x005a}
0xb278…b28a               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0072, t01=0x0076}
0xb28a…b2b2               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0072, t01=0x0088}
0xb2b2…b2ce               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x0072, t01=0x00b0}
0xb2ce…b2e8               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x0072, t01=0x00cc}
0xb2e8…b308               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0072, t01=0x00e6}
0xb308…b334               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x0072, t01=0x0106}
0xb334…b33e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0132}
0xb33e…b35e               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0072, t01=0x013c}
0xb35e…b3ac               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0072, t01=0x015c}
0xb3ac…b3da               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0073, t01=0x001a}
0xb3da…b406               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0073, t01=0x0048}
0xb406…b410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0074}
0xb410…b43e               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0073, t01=0x007e}
0xb43e…b448               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ac}
0xb448…b45c               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0073, t01=0x00b6}
0xb45c…b46c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x00ca}
0xb46c…b478               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x00da}
0xb478…b482               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0073, t01=0x00e6}
0xb482…b48c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00f0}
0xb48c…b4cc               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x00fa}
0xb4cc…b4d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x013a}
0xb4d6…b4ea               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0073, t01=0x0144}
0xb4ea…b4f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0158}
0xb4f4…b4fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0162}
0xb4fe…b53e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x016c}
0xb53e…b548               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x001c}
0xb548…b55c               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0074, t01=0x0026}
0xb55c…b570               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0074, t01=0x003a}
0xb570…b586               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0074, t01=0x004e}
0xb586…b59a               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0074, t01=0x0064}
0xb59a…b5ae               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0074, t01=0x0078}
0xb5ae…b5c6               Head {h00=0x0014, h01=0x0050, text=»LIOL EQU 1  DK2 «, t00=0x0074, t01=0x008c}
0xb5c6…b5de               Head {h00=0x0014, h01=0x0050, text=»LINH EQU 8  DK2 «, t00=0x0074, t01=0x00a4}
0xb5de…b5f6               Head {h00=0x0014, h01=0x0050, text=»LERR EQU 4  DK2 «, t00=0x0074, t01=0x00bc}
0xb5f6…b610               Head {h00=0x0016, h01=0x0050, text=»LSAV EQU /10  DK2 «, t00=0x0074, t01=0x00d4}
0xb610…b61c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x00ee}
0xb61c…b632               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0074, t01=0x00fa}
0xb632…b648               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0074, t01=0x0110}
0xb648…b65e               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0074, t01=0x0126}
0xb65e…b674               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0074, t01=0x013c}
0xb674…b68a               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0074, t01=0x0152}
0xb68a…b6a0               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0074, t01=0x0168}
0xb6a0…b6b6               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0074, t01=0x017e}
0xb6b6…b6c2 (117, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x0004}
0xb6c2…b6dc               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0075, t01=0x0010}
0xb6dc…b6ee               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x002a}
0xb6ee…b708               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0075, t01=0x003c}
0xb708…b71a               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0056}
0xb71a…b734               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0075, t01=0x0068}
0xb734…b746               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0082}
0xb746…b760               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0075, t01=0x0094}
0xb760…b772               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x00ae}
0xb772…b78c               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0075, t01=0x00c0}
0xb78c…b79e               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x00da}
0xb79e…b7b8               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0075, t01=0x00ec}
0xb7b8…b7ca               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0106}
0xb7ca…b7e4               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0075, t01=0x0118}
0xb7e4…b7f6               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0132}
0xb7f6…b810               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0075, t01=0x0144}
0xb810…b822               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x015e}
0xb822…b83c               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0075, t01=0x0170}
0xb83c…b84e               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x018a}
0xb84e…b868               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0076, t01=0x000c}
0xb868…b87a               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0076, t01=0x0026}
0xb87a…b894               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0076, t01=0x0038}
0xb894…b8a6               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0076, t01=0x0052}
0xb8a6…b8c0               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0076, t01=0x0064}
0xb8c0…b8d2               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0076, t01=0x007e}
0xb8d2…b8dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0090}
0xb8dc…b8f6               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK2«, t00=0x0076, t01=0x009a}
0xb8f6…b90e               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0076, t01=0x00b4}
0xb90e…b920               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x00cc}
0xb920…b938               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0076, t01=0x00de}
0xb938…b94a               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x00f6}
0xb94a…b95c               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0076, t01=0x0108}
0xb95c…b97e               Head {h00=0x001e, h01=0x0050, text=» IFT KB6272+LMPVDU=1  DK5 «, t00=0x0076, t01=0x011a}
0xb97e…b99c               Head {h00=0x001a, h01=0x0050, text=»LMPON LDK A7,LON  DK5 «, t00=0x0076, t01=0x013c}
0xb99c…b9b2               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x015a}
0xb9b2…b9d0               Head {h00=0x001a, h01=0x0050, text=»LMPOF LDK A7,LOF  DK5 «, t00=0x0076, t01=0x0170}
0xb9d0…b9e6               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x018e}
0xb9e6…b9f8               Head {h00=0x000e, h01=0x0050, text=» XIF   DK5«, t00=0x0077, t01=0x0014}
0xb9f8…ba1c               Head {h00=0x0020, h01=0x0050, text=» IFT KB6272+LMPVDU=2  DK2+5 «, t00=0x0077, t01=0x0026}
0xba1c…ba44               Head {h00=0x0024, h01=0x0050, text=»LMPON ORS A3,LAMSAV,TCABAS  DK2 «, t00=0x0077, t01=0x004a}
0xba44…ba5a               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x0072}
0xba5a…ba76               Head {h00=0x0018, h01=0x0050, text=»LMPOF C1R A3,A3  DK2«, t00=0x0077, t01=0x0088}
0xba76…ba98               Head {h00=0x001e, h01=0x0050, text=» ANS A3,LAMSAV,TCABAS  DK2«, t00=0x0077, t01=0x00a4}
0xba98…baae               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x00c6}
0xbaae…bac0               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0077, t01=0x00dc}
0xbac0…baca               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0077, t01=0x00ee}
0xbaca…bad2               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x00f8}
0xbad2…badc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0100}
0xbadc…bb1c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x010a}
0xbb1c…bb26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x014a}
0xbb26…bb36               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0077, t01=0x0154}
0xbb36…bb40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0164}
0xbb40…bb68               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0077, t01=0x016e}
0xbb68…bb72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0008}
0xbb72…bbb2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0078, t01=0x0012}
0xbbb2…bbbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0052}
0xbbbc…bbc4               Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x005c}
0xbbc4…bbde               Head {h00=0x0016, h01=0x0050, text=»SDISP EQU *  DK2+5«, t00=0x0078, t01=0x0064}
0xbbde…bbfa               Head {h00=0x0018, h01=0x0050, text=» LDKL A8,ECBSD DK2+5«, t00=0x0078, t01=0x007e}
0xbbfa…bc18               Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS  DK2+5 «, t00=0x0078, t01=0x009a}
0xbc18…bc34               Head {h00=0x0018, h01=0x0050, text=» IFF KB6272=1  DK2+5«, t00=0x0078, t01=0x00b8}
0xbc34…bc52               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x00d4}
0xbc52…bc66               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x00f2}
0xbc66…bc8a               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=1  DK2+5 «, t00=0x0078, t01=0x0106}
0xbc8a…bca8               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x012a}
0xbca8…bcbc               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x0148}
0xbcbc…bce0               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=2  DK2+5 «, t00=0x0078, t01=0x015c}
0xbce0…bcfc               Head {h00=0x0018, h01=0x0050, text=» CM* ECBBA,A8  DK2+5«, t00=0x0078, t01=0x0180}
0xbcfc…bd16               Head {h00=0x0016, h01=0x0050, text=» LDK A3,/1C  DK2+5«, t00=0x0079, t01=0x000c}
0xbd16…bd36               Head {h00=0x001c, h01=0x0050, text=» SC* A3,ECBBA,A8  DK2+5 «, t00=0x0079, t01=0x0026}
0xbd36…bd5a               Head {h00=0x0020, h01=0x0050, text=» LD A3,LAMSAV,TCABAS  DK2+5 «, t00=0x0079, t01=0x0046}
0xbd5a…bd7a               Head {h00=0x001c, h01=0x0050, text=» ORS* A3,ECBBA,A8  DK2+5«, t00=0x0079, t01=0x006a}
0xbd7a…bd92               Head {h00=0x0014, h01=0x0050, text=» LDK A3,2  DK2+5«, t00=0x0079, t01=0x008a}
0xbd92…bdb0               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBRL,A8  DK2+5«, t00=0x0079, t01=0x00a2}
0xbdb0…bdca               Head {h00=0x0016, h01=0x0050, text=» LDK A7,/85  DK2+5«, t00=0x0079, t01=0x00c0}
0xbdca…bdde               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0079, t01=0x00da}
0xbdde…bdf2               Head {h00=0x0010, h01=0x0050, text=» LKM   DK2+5«, t00=0x0079, t01=0x00ee}
0xbdf2…be08               Head {h00=0x0012, h01=0x0050, text=» DATA 1  DK2+5«, t00=0x0079, t01=0x0102}
0xbe08…be20               Head {h00=0x0014, h01=0x0050, text=» RTN A14  DK2+5 «, t00=0x0079, t01=0x0118}
0xbe20…be2a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0079, t01=0x0130}
0xbe2a…be34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x013a}
0xbe34…be74               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x0144}
0xbe74…be7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0184}
0xbe7e…be92               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0079, t01=0x018e}
0xbe92…be9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0012}
0xbe9c…beda               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x007a, t01=0x001c}
0xbeda…bee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x005a}
0xbee4…bf24               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x0064}
0xbf24…bf2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00a4}
0xbf2e…bf54               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007a, t01=0x00ae}
0xbf54…bf7c               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007a, t01=0x00d4}
0xbf7c…bfae               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x007a, t01=0x00fc}
0xbfae…bfda               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x007a, t01=0x012e}
0xbfda…bfe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x015a}
0xbfe4…bff8               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x007a, t01=0x0164}
0xbff8…c00a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007a, t01=0x0178}
0xc00a…c01e               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x007a, t01=0x018a}
0xc01e…c044               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007b, t01=0x000e}
0xc044…c066               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x007b, t01=0x0034}
0xc066…c07e               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x007b, t01=0x0056}
0xc07e…c0a0               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x007b, t01=0x006e}
0xc0a0…c0d0               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007b, t01=0x0090}
0xc0d0…c0e0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x00c0}
0xc0e0…c104               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x007b, t01=0x00d0}
0xc104…c11c               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x007b, t01=0x00f4}
0xc11c…c12e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x007b, t01=0x010c}
0xc12e…c144               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x007b, t01=0x011e}
0xc144…c158               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x007b, t01=0x0134}
0xc158…c162               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007b, t01=0x0148}
0xc162…c16a               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x0152}
0xc16a…c1a4               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007b, t01=0x015a}
0xc1a4…c1cc (124, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x007c, t01=0x0004}
0xc1cc…c1f6               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x007c, t01=0x002c}
0xc1f6…c21a               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x007c, t01=0x0056}
0xc21a…c23c               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x007c, t01=0x007a}
0xc23c…c258               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x007c, t01=0x009c}
0xc258…c27c               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x007c, t01=0x00b8}
0xc27c…c2b2               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007c, t01=0x00dc}
0xc2b2…c2ba               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x0112}
0xc2ba…c2dc               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x007c, t01=0x011a}
0xc2dc…c2f6               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x007c, t01=0x013c}
0xc2f6…c30e               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x007c, t01=0x0156}
0xc30e…c346               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x007c, t01=0x016e}
0xc346…c356               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007d, t01=0x0016}
0xc356…c360               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007d, t01=0x0026}
0xc360…c36a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0030}
0xc36a…c3aa               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007d, t01=0x003a}
0xc3aa…c3b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x007a}
0xc3b4…c3c8               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x007d, t01=0x0084}
0xc3c8…c3d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0098}
0xc3d2…c410               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x007d, t01=0x00a2}
0xc410…c41a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00e0}
0xc41a…c45c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007d, t01=0x00ea}
0xc45c…c466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x012c}
0xc466…c47c               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007d, t01=0x0136}
0xc47c…c4a2               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007d, t01=0x014c}
0xc4a2…c4ca               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007d, t01=0x0172}
0xc4ca…c4fc               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x007e, t01=0x000a}
0xc4fc…c522               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x007e, t01=0x003c}
0xc522…c52c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0062}
0xc52c…c534               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x006c}
0xc534…c53c               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0074}
0xc53c…c550               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x007e, t01=0x007c}
0xc550…c56c               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x0090}
0xc56c…c588               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x007e, t01=0x00ac}
0xc588…c5b8               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007e, t01=0x00c8}
0xc5b8…c5d4               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x00f8}
0xc5d4…c5f0               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x007e, t01=0x0114}
0xc5f0…c600               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x0130}
0xc600…c608               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0140}
0xc608…c61c               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x007e, t01=0x0148}
0xc61c…c62e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007e, t01=0x015c}
0xc62e…c642               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x007e, t01=0x016e}
0xc642…c668               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007e, t01=0x0182}
0xc668…c688               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x007f, t01=0x0018}
0xc688…c6a0               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x007f, t01=0x0038}
0xc6a0…c6e4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x0050}
0xc6e4…c714               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007f, t01=0x0094}
0xc714…c758               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x00c4}
0xc758…c770               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007f, t01=0x0108}
0xc770…c782               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007f, t01=0x0120}
0xc782…c7a4               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007f, t01=0x0132}
0xc7a4…c7d4               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007f, t01=0x0154}
0xc7d4…c7e4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0184}
0xc7e4…c810 (128, 0, 400) Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x0080, t01=0x0004}
0xc810…c828               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x0080, t01=0x0030}
0xc828…c83a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0080, t01=0x0048}
0xc83a…c84a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0080, t01=0x005a}
0xc84a…c860               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x0080, t01=0x006a}
0xc860…c872               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x0080, t01=0x0080}
0xc872…c87c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0080, t01=0x0092}
0xc87c…c886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x009c}
0xc886…c8c0               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x00a6}
0xc8c0…c8ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00e0}
0xc8ca…c8da               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x0080, t01=0x00ea}
0xc8da…c8e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00fa}
0xc8e4…c91e               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x0080, t01=0x0104}
0xc91e…c928               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x013e}
0xc928…c962               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x0148}
0xc962…c96c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0182}
0xc96c…c98c               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x0080, t01=0x018c}
0xc98c…c9a2               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0081, t01=0x001c}
0xc9a2…c9ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0032}
0xc9ac…c9b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x003c}
0xc9b6…c9ca               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x0081, t01=0x0046}
0xc9ca…c9dc               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0081, t01=0x005a}
0xc9dc…c9f2               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0081, t01=0x006c}
0xc9f2…ca18               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x0081, t01=0x0082}
0xca18…ca2a               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0081, t01=0x00a8}
0xca2a…ca54               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x0081, t01=0x00ba}
0xca54…ca64               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x00e4}
0xca64…ca6e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0081, t01=0x00f4}
0xca6e…ca78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00fe}
0xca78…cabc               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0081, t01=0x0108}
0xcabc…cac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x014c}
0xcac6…cad6               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x0081, t01=0x0156}
0xcad6…cae0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0166}
0xcae0…cb1c               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x0081, t01=0x0170}
0xcb1c…cb58               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x0082, t01=0x001c}
0xcb58…cb80               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x0082, t01=0x0058}
0xcb80…cbb6               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x0082, t01=0x0080}
0xcbb6…cbf6               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x0082, t01=0x00b6}
0xcbf6…cc1c               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x00f6}
0xcc1c…cc4a               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x011c}
0xcc4a…cc54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x014a}
0xcc54…cc92               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x0082, t01=0x0154}
0xcc92…ccba (131, 0, 398) Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x0083, t01=0x0004}
0xccba…ccc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x002c}
0xccc4…cd08               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0083, t01=0x0036}
0xcd08…cd12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x007a}
0xcd12…cd26               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0083, t01=0x0084}
0xcd26…cd50               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x0083, t01=0x0098}
0xcd50…cd7e               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x0083, t01=0x00c2}
0xcd7e…cda8               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x0083, t01=0x00f0}
0xcda8…cdd4               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x0083, t01=0x011a}
0xcdd4…ce0c               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0083, t01=0x0146}
0xce0c…ce1c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x017e}
0xce1c…ce24               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x018e}
0xce24…ce2c               Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x0008}
0xce2c…ce34               Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x0010}
0xce34…ce54               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0084, t01=0x0018}
0xce54…ce5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0038}
0xce5e…ce8a               Head {h00=0x0028, h01=0x0050, text=»*    SECOND HARDCOPY KEY        DK8 «, t00=0x0084, t01=0x0042}
0xce8a…ce94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x006e}
0xce94…ceb6               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0084, t01=0x0078}
0xceb6…cebe               Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x009a}
0xcebe…ced8               Head {h00=0x0016, h01=0x0050, text=»COPY02 EQU *  DK8 «, t00=0x0084, t01=0x00a2}
0xced8…cefe               Head {h00=0x0022, h01=0x0050, text=» LD A3,6,CREBAS BASE 'CB9' DK8«, t00=0x0084, t01=0x00bc}
0xcefe…cf1a               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPY2,A3  DK8«, t00=0x0084, t01=0x00e2}
0xcf1a…cf34               Head {h00=0x0016, h01=0x0050, text=» SUKL A5,'GA'  DK8«, t00=0x0084, t01=0x00fe}
0xcf34…cf60               Head {h00=0x0028, h01=0x0050, text=» ABL(N) ERROR NOT VALID TASK ID DK8 «, t00=0x0084, t01=0x0118}
0xcf60…cf88               Head {h00=0x0024, h01=0x0050, text=» ADKL A5,'GA' RESET TASK ID DK8 «, t00=0x0084, t01=0x0144}
0xcf88…cfa8               Head {h00=0x001c, h01=0x0050, text=» RF COPY09 HARDCOPY DK8 «, t00=0x0084, t01=0x016c}
0xcfa8…cfb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x018c}
0xcfb2…cfbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0008}
0xcfbc…cfc6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0085, t01=0x0012}
0xcfc6…cfce               Head {h00=0x0004, h01=0x0050, t00=0x0085, t01=0x001c}
0xcfce…cfd6               Head {h00=0x0004, h01=0x0050, t00=0x0085, t01=0x0024}
0xcfd6…d01e               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0085, t01=0x002c}
0xd01e…d028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0074}
0xd028…d060               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x0085, t01=0x007e}
0xd060…d088               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x0085, t01=0x00b6}
0xd088…d092               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00de}
0xd092…d0d6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0085, t01=0x00e8}
0xd0d6…d0de               Head {h00=0x0004, h01=0x0050, t00=0x0085, t01=0x012c}
0xd0de…d0f0               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x0085, t01=0x0134}
0xd0f0…d10c               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x0085, t01=0x0146}
0xd10c…d122               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x0085, t01=0x0162}
0xd122…d144               Head {h00=0x001e, h01=0x0050, text=»COPY09 EQU * HARDCOPY DK8 «, t00=0x0085, t01=0x0178}
0xd144…d160               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0086, t01=0x000a}
0xd160…d182               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x0086, t01=0x0026}
0xd182…d1a4               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0086, t01=0x0048}
0xd1a4…d1d4               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x0086, t01=0x006a}
0xd1d4…d1de               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0086, t01=0x009a}
0xd1de…d1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00a4}
0xd1e8…d210               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0086, t01=0x00ae}
0xd210…d21a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00d6}
0xd21a…d238               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0086, t01=0x00e0}
0xd238…d24c               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0086, t01=0x00fe}
0xd24c…d264               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0086, t01=0x0112}
0xd264…d27e               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0086, t01=0x012a}
0xd27e…d288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0144}
0xd288…d29c               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0086, t01=0x014e}
0xd29c…d2b4               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0086, t01=0x0162}
0xd2b4…d2ca               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0086, t01=0x017a}
0xd2ca…d2de               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0086, t01=0x0190}
0xd2de…d30c               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0087, t01=0x0014}
0xd30c…d32e               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0087, t01=0x0042}
0xd32e…d350               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0087, t01=0x0064}
0xd350…d368               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0087, t01=0x0086}
0xd368…d380               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0087, t01=0x009e}
0xd380…d38c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0087, t01=0x00b6}
0xd38c…d39c               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0087, t01=0x00c2}
0xd39c…d3ac               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0087, t01=0x00d2}
0xd3ac…d3b8               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0087, t01=0x00e2}
0xd3b8…d3bc               Head {h00=0x4004, h01=0x0000}
0xd3bc…d3c0               00 87 00 ee                                                                                                                                                                                                                                       ┆    ┆
0xd3c0…d3c8 (136, 1, 8)   20 04 00 00 00 88 00 04                                                                                                                                                                                                                           ┆        ┆
0xd3c8…d418 (137, 0, 400) bc 6a 82 41 bc 62 82 40 bc 6c 82 41 bc 64 82 40 bc 6e 82 41 bc 66 82 40 bc 70 82 41 bc 68 5f fe f0 a1 c8 2c 86 41 bc 76 83 40 bc 72 56 04 f0 a1 c8 48 f0 a1 bd b0 f0 22 82 40 bc 78 54 02 f0 22 82 40 bc 7a 83 40 bc 7c 50 02 9a 09 92 41 bc 6c   ┆ j A b @ l A d @ n A f @ p A h_    , A v @ rV    H     " @ xT  " @ z @ |P    A l┆
0xd418…d468               90 41 bc 6a f0 22 88 20 bc 48 82 40 bc 6c f0 a1 ca 78 8f 20 bb b4 54 20 84 40 ba ac 84 41 bc 6c 81 40 ba b2 81 41 bc 76 81 40 ba b8 81 41 bc 72 81 40 ba be 81 41 bc 74 84 40 bc 6c 84 41 c9 76 81 40 bc 72 81 41 ba b8 81 40 bc 74 81 41 ba be   ┆ A j "   H @ l   x    T  @   A l @   A v @   A r @   A t @ l A v @ r A   @ t A  ┆
0xd468…d4b8               81 40 bc 76 81 41 ba b2 50 0c a4 20 ff fe f0 a1 c9 24 84 04 57 10 81 40 bc 74 54 0a 81 40 bc 72 5a 18 f0 a1 c1 76 a4 20 ff fe 81 40 c9 76 81 41 ba ac f0 a1 ca cc f0 a1 c0 5a 57 06 f0 a1 ca bc 57 10 82 30 f0 a1 ca b2 82 41 c9 76 f0 a1 ca a8   ┆ @ v A  P        $  W  @ tT  @ rZ    v     @ v A         ZW     W  0     A v    ┆
0xd4b8…d508               57 10 f0 a1 ca a8 90 41 c9 76 90 41 c9 76 82 40 c9 76 84 08 f0 a1 ca 78 01 57 f0 a1 ca ce 81 40 ba b8 81 41 bc 72 81 40 ba b2 81 41 bc 76 5f 78 85 20 ba 42 85 41 ba a6 82 08 50 5a 87 04 86 40 bc 6c 26 0f 84 14 94 18 94 18 f0 a1 ca cc 82 30   ┆W      A v A v @ v     x W     @   A r @   A v_x   B A    PZ   @ l&            0┆
0xd508…d558               f0 a1 ca 78 82 50 00 20 50 10 f0 a1 ca c4 02 02 83 20 00 20 93 10 f0 a1 ca 58 82 50 00 40 52 08 f0 a1 ca c8 f0 a1 ca 92 f0 a1 c0 60 5f 8c 16 01 f0 a1 ca bc f0 a1 ca a8 aa aa 54 a4 51 4a a5 55 55 55 50 89 22 a9 15 2a 92 aa 50 82 42 08 54 55   ┆   x P  P                X P @R            `_             T QJ UUUP "  *  P B TU┆
0xd558…d5a8 (138, 0, 400) 81 18 f0 a1 ca 9c 81 1c f0 a1 ca ce 5f 54 07 02 f0 a1 ca b2 f0 a1 ca a8 81 a0 ff f8 f0 a1 bf 18 1f 01 5c 14 8f 20 bb b4 82 34 f0 a1 ca 78 86 54 00 20 50 12 f0 a1 ca c4 02 02 83 20 00 20 93 14 f0 a1 ca 58 57 18 82 54 00 40 52 0a f0 a1 ca c8   ┆            _T                           4   x T  P                XW  T @R     ┆
0xd5a8…d5f8               f0 a1 ca 92 57 08 f0 a1 ca a8 f0 a1 ca ae f0 a1 ca ae 15 02 91 a0 00 01 5c 42 f0 22 54 22 85 40 ba aa 85 41 bc 6c 86 40 ba b0 86 41 bc 76 86 40 ba b6 86 41 bc 72 86 40 ba bc 86 41 bc 74 57 10 82 40 bc 62 54 06 85 40 bc 6c 57 04 85 40 bc 64   ┆    W                    B "T" @   A l @   A v @   A r @   A tW  @ bT  @ lW  @ d┆
0xd5f8…d648               86 40 bc 6c 82 40 bc 72 52 08 04 00 f0 a1 c1 76 96 10 3e 61 a5 20 ff fe 85 41 c9 76 82 41 ba b6 82 40 bc 74 82 41 ba bc f0 a1 ca b2 82 40 bc 76 82 41 ba b0 50 08 f0 a1 c9 24 85 04 57 1c 84 40 bc 74 54 16 84 40 bc 72 5a 14 04 00 f0 a1 c1 76   ┆ @ l @ rR      v  >a     A v A   @ t A       @ v A  P    $  W  @ tT  @ rZ      v┆
0xd648…d698               a5 20 ff fe 85 41 c9 76 95 10 a5 20 ff fe 81 40 cb ec 8a 20 bb b4 82 40 c9 76 82 41 ba aa f0 a1 ca a8 f0 a1 ca 78 f0 a1 ca a8 f0 a1 c8 b4 f0 a1 ca a8 f0 a1 ca a8 02 10 83 20 c9 14 f0 a1 ca 58 98 41 ca 56 8c 20 bb b4 83 14 81 40 bc 72 52 04   ┆     A v       @       @ v A         x                         X A V       @ rR ┆
0xd698…d6e8               93 56 ff f4 3b 61 eb 18 51 06 f0 a1 ca b2 5f 84 f0 a1 ca e2 31 0a 8c 20 bb b4 f0 a1 ca bc 82 40 c9 76 85 08 82 41 ba aa 5f 9e 82 30 f0 a1 ca 78 f0 a1 ca ae 86 41 c0 ac 24 51 12 10 41 4a 80 aa aa 49 51 05 55 48 91 10 aa aa a5 52 02 4a 91 5c   ┆ V  ;a  Q     _     1          @ v   A  _  0   x     A  $Q  AJ   IQ UH     R J  ┆
0xd6e8…d738 (139, 0, 400) f0 a1 bc 7e 82 04 1a 0d 50 12 1a 33 50 0e 9a 20 ff ca 8c 20 bc 48 03 02 93 43 00 04 83 40 bc 6a 50 1c 83 40 bc 6c 83 31 82 40 ba a6 50 10 82 40 bc 72 82 51 00 40 82 40 bc 76 82 51 00 20 19 0d 50 06 86 20 00 00 f0 22 8f 20 bb b4 54 20 84 40   ┆   ~    P  3P        H   C   @ jP  @ l 1 @  P  @ r Q @ @ v Q    P      "    T  @┆
0xd738…d788               ba a8 84 41 bc 6c 82 40 ba ae 82 41 bc 76 82 40 ba b4 82 41 bc 72 82 40 ba ba 82 41 bc 74 84 40 bc 6c 84 41 c9 76 82 40 bc 72 82 41 ba b4 82 40 bc 74 82 41 ba ba 82 40 bc 76 82 41 ba ae 50 08 f0 a1 c9 24 84 04 57 14 82 40 bc 74 54 0e 82 10   ┆   A l @   A v @   A r @   A t @ l A v @ r A   @ t A   @ v A  P    $  W  @ tT   ┆
0xd788…d7d8               f0 a1 c1 76 81 40 bc 72 56 02 84 08 82 40 c9 76 82 41 ba a8 e2 30 f0 a1 ca 92 f0 a1 ca ae f0 a1 bc 7e e9 20 00 0a 50 08 e9 20 00 0d 8c 20 bc 48 82 40 bc 6a 50 06 82 40 bc 6c e2 31 19 0d 88 20 bb b4 f0 a1 ca bc f0 a1 ca a8 90 41 c9 76 82 40   ┆   v @ rV    @ v A   0           ~    P        H @ jP  @ l 1               A v @┆
0xd7d8…d828               c9 76 84 08 f0 a1 ca 78 f0 a1 ca cc 82 40 ba b4 82 41 bc 72 82 40 ba ae 82 41 bc 76 5f 80 85 a0 ba 4c 87 40 ba a2 50 14 87 40 bc 72 56 04 87 40 b9 70 28 04 00 09 17 00 8a 20 bc 48 94 56 ff f4 f0 22 86 40 bc 76 54 04 86 40 b9 6e f0 a1 c7 e2   ┆ v     x     @   A r @   A v_    L @  P  @ rV  @ p(        H V   " @ vT  @ n    ┆
0xd828…d878               54 50 81 40 bc 6a 50 1a 84 40 bc 6c 94 1c 84 41 c9 76 86 41 ba b2 81 20 80 00 81 41 ba b8 8f 20 be 3e f0 a1 ca cc 84 5c 00 02 1c 02 e1 30 21 03 f0 a1 ca 9c f0 a1 ca ae 40 21 24 88 04 aa aa aa aa 44 51 4a 81 48 aa 95 54 a4 84 25 24 a2 a0 55   ┆TP @ jP  @ l   A v A       A     >           0!         @!$      DQJ H  T  %$  U┆
0xd878…d8c8 (140, 0, 400) f0 a1 bc 7e 19 0d 54 12 81 40 bc 6a 50 08 82 40 bc 6c 22 03 e2 31 8f 20 bb b4 8f 20 bc 48 50 78 83 a0 00 01 83 40 bc 6c 84 40 bc 6e 85 40 bc 70 86 40 bc 76 54 04 86 40 b9 6e f0 a1 c6 ac 52 58 84 06 84 41 c9 76 81 2a 39 6c 21 03 50 32 19 02   ┆   ~  T  @ jP  @ l"  1       HPx     @ l @ n @ p @ vT  @ n    RX   A v *9l! P2  ┆
0xd8c8…d918               88 20 be 3e f0 a1 c2 7c e1 26 39 64 21 0f 29 20 f0 a1 c2 aa 57 12 91 a0 00 01 9b a0 00 01 50 24 e1 26 39 64 f0 a1 c2 9e e1 26 f0 a1 c2 9e 5f 1a f0 a1 c2 7c e1 26 f0 a1 c2 aa 91 a0 00 01 9b a0 00 01 5c 10 8f 20 bb b4 8f 20 bc 48 81 41 c2 98   ┆   >   | &9d! )     W         P$ &9d     &    _    | &                     H A  ┆
0xd918…d968               81 20 ff b6 81 41 c2 9c f0 a1 ca b2 81 40 cb ec 5a 1e f0 a1 ca a8 81 20 00 00 f0 22 00 00 21 0f e9 20 00 09 55 02 01 cf 11 30 90 41 c2 9c 55 06 f0 a1 c2 7c 5f 0c f0 a1 ca 66 f0 22 50 60 83 40 bc 6c 9b 8e 04 00 86 40 bc 76 54 04 86 40 b9 6e   ┆     A       @  Z          "  !     U    0 A  U    |_    f "P` @ l     @ vT  @ n┆
0xd968…d9b8               f0 a1 c6 ac 82 8a 50 46 85 0c 87 52 00 02 1f 02 25 0f 84 3c ad 20 3c e0 f0 15 f0 a1 ca cc 81 10 21 01 f0 a1 ca 9c f0 a1 ca ae f0 a1 bc 7e 19 0d 54 1c 81 40 bc 6a 50 12 81 40 bc 6c 21 01 a4 20 ff fe ac 04 35 20 f0 15 84 3d 8f 20 bb b4 8f 20   ┆      PF   R    %  <  <         !            ~  T  @ jP  @ l!       5    =      ┆
0xd9b8…da08               bc 48 88 20 bc 48 f0 a1 c5 36 8f 20 bb b4 50 0e 81 40 bc 6c 88 20 bc 48 f0 a1 c5 a8 57 22 81 20 b8 5e f0 a1 c5 da 81 20 b8 5e 82 24 91 20 00 42 83 20 80 00 11 04 83 25 44 8a 15 4a 20 50 40 12 48 15 15 20 02 48 89 40 02 2a 24 02 aa 54 a8 0c   ┆ H   H   6    P  @ l   H    W"   ^       ^ $   B       %D  J P@ H    H @ *$  T  ┆

Reduced view