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

⟦688133137⟧ 

    Length: 55650 (0xd962)
    Notes: pts_type(SC)
    Names: »START.SC«

Derivation

└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/START.SC«

PTS(SC)

	IDENT	START	DK7 821005/GF

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


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

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

HexDump

0x0000…0022 (0, 0, 400)   Head {h00=0x001e, h01=0x0050, text=» IDENT START DK7 821005/GF«, t00=0x0000, t01=0x0004}
0x0022…002a               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0026}
0x002a…004e               Head {h00=0x0020, h01=0x0050, text=»   DK7,READ MODIFIED, 821002«, t00=0x0000, t01=0x002e}
0x004e…0070               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0052}
0x0070…008c               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0074}
0x008c…00a6               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0090}
0x00a6…00c2               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00aa}
0x00c2…00e0               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00c6}
0x00e0…00fc               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00e4}
0x00fc…012e               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x0100}
0x012e…014a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0132}
0x014a…016e               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x014e}
0x016e…018a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0172}
0x018a…01b0               Head {h00=0x0022, h01=0x0050, text=»   DK6 DUP FIELD, LENGTH=1 DK6«, t00=0x0000, t01=0x018e}
0x01b0…01da               Head {h00=0x0026, h01=0x0050, text=»   DK5 - LMPVDU=1, 6272 ON VDU DK5«, t00=0x0001, t01=0x0024}
0x01da…0204               Head {h00=0x0026, h01=0x0050, text=»   DK4 - FIELD SEPARATOR 6234 DK4 «, t00=0x0001, t01=0x004e}
0x0204…0220               Head {h00=0x0018, h01=0x0050, text=»   DK3 - PA 4-9 DK3 «, t00=0x0001, t01=0x0078}
0x0220…0246               Head {h00=0x0022, h01=0x0050, text=»   DK2 - LAMPMODULE, 6272 DK2 «, t00=0x0001, t01=0x0094}
0x0246…0264               Head {h00=0x001a, h01=0x0050, text=»   DK1 - NUM COMMA DK1«, t00=0x0001, t01=0x00ba}
0x0264…02aa               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x00d8}
0x02aa…02b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b4…0300               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x0128}
0x0300…034c               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x0174}
0x034c…0392               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0002, t01=0x0030}
0x0392…039c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039c…03ee               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0002, t01=0x0080}
0x03ee…03f6               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00d2}
0x03f6…03fe               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00da}
0x03fe…0406               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00e2}
0x0406…040e               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ea}
0x040e…0418               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0002, t01=0x00f2}
0x0418…0422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…042c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…0446               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x0110}
0x0446…0450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…045a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0464               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0488               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x0148}
0x0488…04a4               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x016c}
0x04a4…04b8               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x0188}
0x04b8…04e2               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0003, t01=0x000c}
0x04e2…050e               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0003, t01=0x0036}
0x050e…0532               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0003, t01=0x0062}
0x0532…0548               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0003, t01=0x0086}
0x0548…055e               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0003, t01=0x009c}
0x055e…0574               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0003, t01=0x00b2}
0x0574…059c               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0003, t01=0x00c8}
0x059c…05b2               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x00f0}
0x05b2…05cc               Head {h00=0x0016, h01=0x0050, text=» ENTRY READMY  DK7«, t00=0x0003, t01=0x0106}
0x05cc…05d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0120}
0x05d6…05e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012a}
0x05e0…05ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05ea…060c               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x013e}
0x060c…0616               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x0616…0620               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x0620…062a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x062a…063e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x017e}
0x063e…0654 (4, 0, 400)   Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0004, t01=0x0004}
0x0654…066a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0004, t01=0x001a}
0x066a…0680               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0004, t01=0x0030}
0x0680…0696               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0004, t01=0x0046}
0x0696…06b2               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0004, t01=0x005c}
0x06b2…06c6               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0004, t01=0x0078}
0x06c6…06dc               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0004, t01=0x008c}
0x06dc…06f0               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0004, t01=0x00a2}
0x06f0…0704               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0004, t01=0x00b6}
0x0704…071a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0004, t01=0x00ca}
0x071a…072e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0004, t01=0x00e0}
0x072e…0744               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0004, t01=0x00f4}
0x0744…074e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010a}
0x074e…0782               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x0114}
0x0782…0798               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x0148}
0x0798…07a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a2…07d2               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x0168}
0x07d2…07fc               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0005, t01=0x0008}
0x07fc…0806               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0005, t01=0x0032}
0x0806…080e               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x003c}
0x080e…0816               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0044}
0x0816…0858               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x004c}
0x0858…0862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0862…0882               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x0098}
0x0882…088c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b8}
0x088c…08b6               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0005, t01=0x00c2}
0x08b6…08be               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00ec}
0x08be…08c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f4}
0x08c8…0912               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 1 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0005, t01=0x00fe}
0x0912…0946               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x0148}
0x0946…097a               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x017c}
0x097a…098e               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0006, t01=0x0020}
0x098e…09c0               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0006, t01=0x0034}
0x09c0…09d2               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0006, t01=0x0066}
0x09d2…09e4               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0006, t01=0x0078}
0x09e4…0a10               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0006, t01=0x008a}
0x0a10…0a4c               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0006, t01=0x00b6}
0x0a4c…0a70               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0006, t01=0x00f2}
0x0a70…0a9a               Head {h00=0x0026, h01=0x0050, text=»LMPVDU EQU 0 =1, 6272 ON 6346 DK5 «, t00=0x0006, t01=0x0116}
0x0a9a…0abe               Head {h00=0x0020, h01=0x0050, text=»   =0, 6272 ON SELECTOR DK5 «, t00=0x0006, t01=0x0140}
0x0abe…0ae6               Head {h00=0x0024, h01=0x0050, text=»PA49 EQU 1 =1, PA4-9 ALLOWED DK3«, t00=0x0006, t01=0x0164}
0x0ae6…0af0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0006, t01=0x018c}
0x0af0…0afa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afa…0b04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0012}
0x0b04…0b1a               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0007, t01=0x001c}
0x0b1a…0b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b24…0b42               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0007, t01=0x003c}
0x0b42…0b68               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x005a}
0x0b68…0b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0080}
0x0b72…0b7a               Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x008a}
0x0b7a…0b8e               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x0092}
0x0b8e…0ba2               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x00a6}
0x0ba2…0bb6               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x00ba}
0x0bb6…0bca               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x00ce}
0x0bca…0bde               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x00e2}
0x0bde…0be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f6}
0x0be8…0bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0100}
0x0bf2…0c0c               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x010a}
0x0c0c…0c16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c16…0c20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c20…0c3c               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0138}
0x0c3c…0c46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c46…0c50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c50…0c62               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0168}
0x0c62…0c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c6c…0c86               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0184}
0x0c86…0c9a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x000e}
0x0c9a…0cb0               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0022}
0x0cb0…0ccc               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x0038}
0x0ccc…0cea               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x0054}
0x0cea…0d08               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0072}
0x0d08…0d14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0090}
0x0d14…0d28               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x009c}
0x0d28…0d3e               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x00b0}
0x0d3e…0d5a               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x00c6}
0x0d5a…0d78               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x00e2}
0x0d78…0d84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0100}
0x0d84…0d98               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x010c}
0x0d98…0dae               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0120}
0x0dae…0dca               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0136}
0x0dca…0de8               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0152}
0x0de8…0df4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0170}
0x0df4…0e08               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x017c}
0x0e08…0e1e               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0190}
0x0e1e…0e3a               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0009, t01=0x0016}
0x0e3a…0e46               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0032}
0x0e46…0e64               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0009, t01=0x003e}
0x0e64…0e80               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x005c}
0x0e80…0e9c               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x0078}
0x0e9c…0ea6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0009, t01=0x0094}
0x0ea6…0eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb0…0eba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0eba…0ee0               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x00b2}
0x0ee0…0eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eea…0f00               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x00e2}
0x0f00…0f1a               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x00f8}
0x0f1a…0f24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f24…0f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011c}
0x0f2e…0f4a               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x0126}
0x0f4a…0f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0142}
0x0f54…0f68               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x014c}
0x0f68…0f84               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0160}
0x0f84…0fb0               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x017c}
0x0fb0…0fe4               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x000a, t01=0x0018}
0x0fe4…1012               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x004c}
0x1012…102e               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x007a}
0x102e…1058               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x0096}
0x1058…108a               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x00c0}
0x108a…10b2               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x00f2}
0x10b2…10e6               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x011a}
0x10e6…111c               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x014e}
0x111c…114c               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0184}
0x114c…1174               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000b, t01=0x0024}
0x1174…11a0               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x004c}
0x11a0…11ce               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x0078}
0x11ce…11f0               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x00a6}
0x11f0…121a               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x00c8}
0x121a…1242               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x00f2}
0x1242…1274               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x011a}
0x1274…12aa               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x014c}
0x12aa…12e2               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0182}
0x12e2…1316               Head {h00=0x0030, h01=0x0050, text=»LAMSAV EQU RDMORE+2 SAVE AREA FOR LAMPS DK2 «, t00=0x000c, t01=0x002a}
0x1316…1320               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000c, t01=0x005e}
0x1320…1344               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000c, t01=0x0068}
0x1344…135a               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000c, t01=0x008c}
0x135a…136e               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000c, t01=0x00a2}
0x136e…139c               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000c, t01=0x00b6}
0x139c…13c2               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x00e4}
0x13c2…13f0               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x010a}
0x13f0…13fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fa…1424               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x0142}
0x1424…142e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016c}
0x142e…1454               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0176}
0x1454…147e               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000d, t01=0x000c}
0x147e…1488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x1488…14be               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x0040}
0x14be…14f4               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x0076}
0x14f4…1508               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00ac}
0x1508…1524               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x00c0}
0x1524…1540               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x00dc}
0x1540…154c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00f8}
0x154c…1556               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000d, t01=0x0104}
0x1556…1560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1560…1592               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000d, t01=0x0118}
0x1592…159c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014a}
0x159c…15b0               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000d, t01=0x0154}
0x15b0…15c8               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000d, t01=0x0168}
0x15c8…15dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000d, t01=0x0180}
0x15dc…15f0 (14, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000e, t01=0x0004}
0x15f0…1604               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000e, t01=0x0018}
0x1604…1618               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000e, t01=0x002c}
0x1618…162c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000e, t01=0x0040}
0x162c…1640               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x000e, t01=0x0054}
0x1640…1654               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000e, t01=0x0068}
0x1654…1668               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000e, t01=0x007c}
0x1668…167c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000e, t01=0x0090}
0x167c…1690               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000e, t01=0x00a4}
0x1690…16a4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000e, t01=0x00b8}
0x16a4…16ba               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000e, t01=0x00cc}
0x16ba…16ce               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000e, t01=0x00e2}
0x16ce…16e2               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000e, t01=0x00f6}
0x16e2…16f6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000e, t01=0x010a}
0x16f6…1700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011e}
0x1700…1712               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000e, t01=0x0128}
0x1712…1726               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000e, t01=0x013a}
0x1726…173a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000e, t01=0x014e}
0x173a…174e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000e, t01=0x0162}
0x174e…1762               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000e, t01=0x0176}
0x1762…1776               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000e, t01=0x018a}
0x1776…178a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000f, t01=0x000e}
0x178a…179e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000f, t01=0x0022}
0x179e…17b2               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000f, t01=0x0036}
0x17b2…17c6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000f, t01=0x004a}
0x17c6…17da               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000f, t01=0x005e}
0x17da…17ee               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000f, t01=0x0072}
0x17ee…1802               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000f, t01=0x0086}
0x1802…1816               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000f, t01=0x009a}
0x1816…182a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000f, t01=0x00ae}
0x182a…183e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000f, t01=0x00c2}
0x183e…1848               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d6}
0x1848…185e               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000f, t01=0x00e0}
0x185e…1872               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000f, t01=0x00f6}
0x1872…1886               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000f, t01=0x010a}
0x1886…189a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000f, t01=0x011e}
0x189a…18ae               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000f, t01=0x0132}
0x18ae…18c2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000f, t01=0x0146}
0x18c2…18d6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000f, t01=0x015a}
0x18d6…18ea               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000f, t01=0x016e}
0x18ea…18fe               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000f, t01=0x0182}
0x18fe…1912               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x0010, t01=0x0008}
0x1912…1926               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x0010, t01=0x001c}
0x1926…193a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x0010, t01=0x0030}
0x193a…194e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x0010, t01=0x0044}
0x194e…1962               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x0010, t01=0x0058}
0x1962…1976               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x0010, t01=0x006c}
0x1976…198a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x0010, t01=0x0080}
0x198a…1994               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1994…19a8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x0010, t01=0x009e}
0x19a8…19bc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x0010, t01=0x00b2}
0x19bc…19d0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x0010, t01=0x00c6}
0x19d0…19e4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x0010, t01=0x00da}
0x19e4…19f8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x0010, t01=0x00ee}
0x19f8…1a0c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x0010, t01=0x0102}
0x1a0c…1a20               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x0010, t01=0x0116}
0x1a20…1a34               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x0010, t01=0x012a}
0x1a34…1a48               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x0010, t01=0x013e}
0x1a48…1a5c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x0010, t01=0x0152}
0x1a5c…1a70               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x0010, t01=0x0166}
0x1a70…1a84               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x0010, t01=0x017a}
0x1a84…1aa2               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x0010, t01=0x018e}
0x1aa2…1ab6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0011, t01=0x001c}
0x1ab6…1ad4               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0011, t01=0x0030}
0x1ad4…1af0               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0011, t01=0x004e}
0x1af0…1afa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006a}
0x1afa…1b22               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0011, t01=0x0074}
0x1b22…1b40               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0011, t01=0x009c}
0x1b40…1b52               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00ba}
0x1b52…1b64               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00cc}
0x1b64…1b76               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00de}
0x1b76…1b88               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00f0}
0x1b88…1b9a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0102}
0x1b9a…1bac               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0114}
0x1bac…1bbe               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0126}
0x1bbe…1bd0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0138}
0x1bd0…1be2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x014a}
0x1be2…1bf4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x015c}
0x1bf4…1c06               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x016e}
0x1c06…1c18               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0180}
0x1c18…1c2a (18, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0004}
0x1c2a…1c3c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0016}
0x1c3c…1c46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0028}
0x1c46…1c5c               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0012, t01=0x0032}
0x1c5c…1c76               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0012, t01=0x0048}
0x1c76…1c88               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0062}
0x1c88…1c9a               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0074}
0x1c9a…1cac               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0086}
0x1cac…1cbe               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0098}
0x1cbe…1cd0               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00aa}
0x1cd0…1ce2               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00bc}
0x1ce2…1cf4               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00ce}
0x1cf4…1d00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00e0}
0x1d00…1d16               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0012, t01=0x00ec}
0x1d16…1d2a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0102}
0x1d2a…1d3e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0116}
0x1d3e…1d52               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x012a}
0x1d52…1d66               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x013e}
0x1d66…1d7a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0152}
0x1d7a…1d8e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0166}
0x1d8e…1da2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x017a}
0x1da2…1db6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x018e}
0x1db6…1dc2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0012}
0x1dc2…1de2               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0013, t01=0x001e}
0x1de2…1df4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x003e}
0x1df4…1e06               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x0050}
0x1e06…1e32               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0013, t01=0x0062}
0x1e32…1e46               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x008e}
0x1e46…1e5a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00a2}
0x1e5a…1e6e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00b6}
0x1e6e…1e82               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00ca}
0x1e82…1e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00de}
0x1e8c…1e9e               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0013, t01=0x00e8}
0x1e9e…1eb0               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0013, t01=0x00fa}
0x1eb0…1ebc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x010c}
0x1ebc…1ece               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0013, t01=0x0118}
0x1ece…1ee2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x012a}
0x1ee2…1eee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x013e}
0x1eee…1f00               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0013, t01=0x014a}
0x1f00…1f12               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0013, t01=0x015c}
0x1f12…1f24               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0013, t01=0x016e}
0x1f24…1f4e               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0013, t01=0x0180}
0x1f4e…1f62               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x001a}
0x1f62…1f76               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x002e}
0x1f76…1f8a               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0042}
0x1f8a…1f9e               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0056}
0x1f9e…1fb2               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x006a}
0x1fb2…1fc6               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x007e}
0x1fc6…1fda               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0014, t01=0x0092}
0x1fda…1fec               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0014, t01=0x00a6}
0x1fec…1ffe               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0014, t01=0x00b8}
0x1ffe…200a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00ca}
0x200a…201c               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0014, t01=0x00d6}
0x201c…2030               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00e8}
0x2030…203c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00fc}
0x203c…204e               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0014, t01=0x0108}
0x204e…2060               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0014, t01=0x011a}
0x2060…2072               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0014, t01=0x012c}
0x2072…207c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013e}
0x207c…208e               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0014, t01=0x0148}
0x208e…20a0               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0014, t01=0x015a}
0x20a0…20b2               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0014, t01=0x016c}
0x20b2…20c4               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0014, t01=0x017e}
0x20c4…20d6               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0014, t01=0x0190}
0x20d6…20e8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0015, t01=0x0012}
0x20e8…20fc               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0015, t01=0x0024}
0x20fc…2110               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0015, t01=0x0038}
0x2110…2124               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0015, t01=0x004c}
0x2124…2156               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0015, t01=0x0060}
0x2156…216a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0092}
0x216a…217e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00a6}
0x217e…2192               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00ba}
0x2192…21a6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00ce}
0x21a6…21ba               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00e2}
0x21ba…21ce               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00f6}
0x21ce…21d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010a}
0x21d8…21ec               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0114}
0x21ec…2200               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0128}
0x2200…2214               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x013c}
0x2214…2228               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0150}
0x2228…223c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0164}
0x223c…2250               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0015, t01=0x0178}
0x2250…2262               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0015, t01=0x018c}
0x2262…2276               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0016, t01=0x000e}
0x2276…228a               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0016, t01=0x0022}
0x228a…229e               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0016, t01=0x0036}
0x229e…22b2               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0016, t01=0x004a}
0x22b2…22c4               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0016, t01=0x005e}
0x22c4…22d6               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0016, t01=0x0070}
0x22d6…22ea               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0016, t01=0x0082}
0x22ea…22fe               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0016, t01=0x0096}
0x22fe…2312               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0016, t01=0x00aa}
0x2312…231c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00be}
0x231c…2330               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0016, t01=0x00c8}
0x2330…2344               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0016, t01=0x00dc}
0x2344…2358               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0016, t01=0x00f0}
0x2358…2364               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0104}
0x2364…2378               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0016, t01=0x0110}
0x2378…238c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0124}
0x238c…23a0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0138}
0x23a0…23ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x014c}
0x23ac…23c0               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0016, t01=0x0158}
0x23c0…23d2               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0016, t01=0x016c}
0x23d2…23e6               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0016, t01=0x017e}
0x23e6…23f8 (23, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0017, t01=0x0004}
0x23f8…240c               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0017, t01=0x0016}
0x240c…2420               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0017, t01=0x002a}
0x2420…242c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x003e}
0x242c…2440               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0017, t01=0x004a}
0x2440…2454               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x005e}
0x2454…2460               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0072}
0x2460…2474               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0017, t01=0x007e}
0x2474…2488               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0017, t01=0x0092}
0x2488…2494               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00a6}
0x2494…24a8               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0017, t01=0x00b2}
0x24a8…24bc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00c6}
0x24bc…24c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00da}
0x24c8…24dc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00e6}
0x24dc…24f0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00fa}
0x24f0…2504               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0017, t01=0x010e}
0x2504…2518               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0017, t01=0x0122}
0x2518…252c               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0017, t01=0x0136}
0x252c…2540               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x014a}
0x2540…2554               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x015e}
0x2554…2568               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0172}
0x2568…2572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0186}
0x2572…25ac               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0017, t01=0x0190}
0x25ac…25c0               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x003a}
0x25c0…25d4               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x004e}
0x25d4…25e8               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0062}
0x25e8…25fc               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0076}
0x25fc…2610               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x008a}
0x2610…2624               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x009e}
0x2624…2638               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00b2}
0x2638…2642               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0018, t01=0x00c6}
0x2642…2688               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x00d0}
0x2688…2692               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0116}
0x2692…26b6               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0018, t01=0x0120}
0x26b6…26fc               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x0144}
0x26fc…2704               Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x018a}
0x2704…2718 (25, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0019, t01=0x0004}
0x2718…272e               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0019, t01=0x0018}
0x272e…2758               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0019, t01=0x002e}
0x2758…276e               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x0058}
0x276e…2784               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x006e}
0x2784…279c               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0019, t01=0x0084}
0x279c…27c4               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x009c}
0x27c4…27d0               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00c4}
0x27d0…27e0               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x00d0}
0x27e0…27f4               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0019, t01=0x00e0}
0x27f4…2826               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0019, t01=0x00f4}
0x2826…2832               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x0126}
0x2832…2842               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x0132}
0x2842…286c               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0019, t01=0x0142}
0x286c…2882               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x016c}
0x2882…2898               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x0182}
0x2898…28ae               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x001a, t01=0x0008}
0x28ae…28c6               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x001a, t01=0x001e}
0x28c6…28ec               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x001a, t01=0x0036}
0x28ec…28fe               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x001a, t01=0x005c}
0x28fe…2908               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001a, t01=0x006e}
0x2908…2912               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0078}
0x2912…291c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0082}
0x291c…2948               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x001a, t01=0x008c}
0x2948…2952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b8}
0x2952…295c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c2}
0x295c…2970               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x001a, t01=0x00cc}
0x2970…2996               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x001a, t01=0x00e0}
0x2996…29be               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x001a, t01=0x0106}
0x29be…29e6               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x001a, t01=0x012e}
0x29e6…29f2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0156}
0x29f2…2a02               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x0162}
0x2a02…2a12               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0172}
0x2a12…2a1c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001a, t01=0x0182}
0x2a1c…2a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018c}
0x2a26…2a64               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001b, t01=0x0008}
0x2a64…2a6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0046}
0x2a6e…2a82               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001b, t01=0x0050}
0x2a82…2a8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0064}
0x2a8c…2ab2               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001b, t01=0x006e}
0x2ab2…2abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0094}
0x2abc…2afc               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001b, t01=0x009e}
0x2afc…2b10               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001b, t01=0x00de}
0x2b10…2b26               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001b, t01=0x00f2}
0x2b26…2b50               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001b, t01=0x0108}
0x2b50…2b58               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0132}
0x2b58…2b6c               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001b, t01=0x013a}
0x2b6c…2b74               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x014e}
0x2b74…2b7c               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0156}
0x2b7c…2bb4               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001b, t01=0x015e}
0x2bb4…2bca               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001c, t01=0x0008}
0x2bca…2bf2               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001c, t01=0x001e}
0x2bf2…2c0c               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001c, t01=0x0046}
0x2c0c…2c3c               Head {h00=0x002c, h01=0x0050, text=» CM LAMSAV,TCABAS CLEAR LAMP STATUS DK2 «, t00=0x001c, t01=0x0060}
0x2c3c…2c6a               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001c, t01=0x0090}
0x2c6a…2c76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00be}
0x2c76…2c7e               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00ca}
0x2c7e…2c88               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001c, t01=0x00d2}
0x2c88…2cce               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001c, t01=0x00dc}
0x2cce…2cd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0122}
0x2cd8…2d08               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001c, t01=0x012c}
0x2d08…2d12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x015c}
0x2d12…2d58               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x0166}
0x2d58…2d60               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x001c}
0x2d60…2d84               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001d, t01=0x0024}
0x2d84…2daa               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001d, t01=0x0048}
0x2daa…2dd4               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001d, t01=0x006e}
0x2dd4…2de8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0098}
0x2de8…2dfe               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001d, t01=0x00ac}
0x2dfe…2e14               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x00c2}
0x2e14…2e1c               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00d8}
0x2e1c…2e30               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001d, t01=0x00e0}
0x2e30…2e76               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x00f4}
0x2e76…2e80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013a}
0x2e80…2eb0               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001d, t01=0x0144}
0x2eb0…2eba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0174}
0x2eba…2f00               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x017e}
0x2f00…2f08               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0034}
0x2f08…2f32               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001e, t01=0x003c}
0x2f32…2f46               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x0066}
0x2f46…2f5e               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001e, t01=0x007a}
0x2f5e…2f74               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001e, t01=0x0092}
0x2f74…2f80               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00a8}
0x2f80…2f8a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001e, t01=0x00b4}
0x2f8a…2f9e               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001e, t01=0x00be}
0x2f9e…2fc0               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001e, t01=0x00d2}
0x2fc0…2fc8               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00f4}
0x2fc8…2fda               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x00fc}
0x2fda…2ff2               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001e, t01=0x010e}
0x2ff2…302c               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001e, t01=0x0126}
0x302c…3042               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001e, t01=0x0160}
0x3042…3072               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001e, t01=0x0176}
0x3072…307c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001f, t01=0x0016}
0x307c…3086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0020}
0x3086…30a6               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001f, t01=0x002a}
0x30a6…30b6               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001f, t01=0x004a}
0x30b6…30c8               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001f, t01=0x005a}
0x30c8…30dc               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x006c}
0x30dc…30f2               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x0080}
0x30f2…3104               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x0096}
0x3104…3116               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001f, t01=0x00a8}
0x3116…312a               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001f, t01=0x00ba}
0x312a…3136               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ce}
0x3136…314a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x00da}
0x314a…3160               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001f, t01=0x00ee}
0x3160…3172               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x0104}
0x3172…3186               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x0116}
0x3186…3192               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x012a}
0x3192…31a6               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001f, t01=0x0136}
0x31a6…31bc               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x014a}
0x31bc…31ce               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001f, t01=0x0160}
0x31ce…31e2               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x0172}
0x31e2…31ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0186}
0x31ee…3202 (32, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0020, t01=0x0004}
0x3202…3218               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0020, t01=0x0018}
0x3218…322c               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x0020, t01=0x002e}
0x322c…3238               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0042}
0x3238…3242               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004e}
0x3242…3258               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x0020, t01=0x0058}
0x3258…3274               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x0020, t01=0x006e}
0x3274…3288               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x0020, t01=0x008a}
0x3288…32a8               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x0020, t01=0x009e}
0x32a8…32c6               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x0020, t01=0x00be}
0x32c6…32fa               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x0020, t01=0x00dc}
0x32fa…330e               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x0020, t01=0x0110}
0x330e…3322               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0020, t01=0x0124}
0x3322…3342               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0020, t01=0x0138}
0x3342…3360               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x0020, t01=0x0158}
0x3360…339a               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0020, t01=0x0176}
0x339a…33a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0020}
0x33a6…33ba               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0021, t01=0x002c}
0x33ba…33d0               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0040}
0x33d0…33f0               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x0056}
0x33f0…340e               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0021, t01=0x0076}
0x340e…342c               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0021, t01=0x0094}
0x342c…344c               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0021, t01=0x00b2}
0x344c…3468               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0021, t01=0x00d2}
0x3468…347e               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0021, t01=0x00ee}
0x347e…349e               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x0104}
0x349e…34aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0124}
0x34aa…34be               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0021, t01=0x0130}
0x34be…34de               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x0144}
0x34de…34fc               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0021, t01=0x0164}
0x34fc…3528               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0021, t01=0x0182}
0x3528…353c               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0022, t01=0x001e}
0x353c…3554               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0022, t01=0x0032}
0x3554…356a               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0022, t01=0x004a}
0x356a…3576               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0022, t01=0x0060}
0x3576…3594               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0022, t01=0x006c}
0x3594…35b4               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x008a}
0x35b4…35dc               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0022, t01=0x00aa}
0x35dc…35f2               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x00d2}
0x35f2…3612               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0022, t01=0x00e8}
0x3612…363e               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0022, t01=0x0108}
0x363e…364a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0134}
0x364a…3688               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0022, t01=0x0140}
0x3688…36ac               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0022, t01=0x017e}
0x36ac…36be               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0023, t01=0x0012}
0x36be…36c8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0023, t01=0x0024}
0x36c8…36d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002e}
0x36d2…36f6               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0023, t01=0x0038}
0x36f6…3700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005c}
0x3700…3714               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0023, t01=0x0066}
0x3714…372a               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0023, t01=0x007a}
0x372a…3740               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x0090}
0x3740…3752               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0023, t01=0x00a6}
0x3752…3778               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0023, t01=0x00b8}
0x3778…37a6               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0023, t01=0x00de}
0x37a6…37c6               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0023, t01=0x010c}
0x37c6…37d8               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0023, t01=0x012c}
0x37d8…37e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013e}
0x37e2…3802               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0023, t01=0x0148}
0x3802…380c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0168}
0x380c…3820               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0023, t01=0x0172}
0x3820…3836               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0023, t01=0x0186}
0x3836…384c               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x000c}
0x384c…386c               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0024, t01=0x0022}
0x386c…3880               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0024, t01=0x0042}
0x3880…3892               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x0056}
0x3892…38a8               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0024, t01=0x0068}
0x38a8…38ba               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0024, t01=0x007e}
0x38ba…38ce               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0024, t01=0x0090}
0x38ce…38da               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x00a4}
0x38da…38ea               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x00b0}
0x38ea…38fa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x00c0}
0x38fa…390e               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0024, t01=0x00d0}
0x390e…3922               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0024, t01=0x00e4}
0x3922…393a               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0024, t01=0x00f8}
0x393a…3950               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x0110}
0x3950…3970               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0024, t01=0x0126}
0x3970…3982               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0024, t01=0x0146}
0x3982…398e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0158}
0x398e…39a4               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x0164}
0x39a4…39ae               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0024, t01=0x017a}
0x39ae…39b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0184}
0x39b8…39de               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0024, t01=0x018e}
0x39de…39e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0024}
0x39e8…39fc               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0025, t01=0x002e}
0x39fc…3a1a               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0025, t01=0x0042}
0x3a1a…3a36               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0025, t01=0x0060}
0x3a36…3a56               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0025, t01=0x007c}
0x3a56…3a6a               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0025, t01=0x009c}
0x3a6a…3a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b0}
0x3a74…3a90               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0025, t01=0x00ba}
0x3a90…3a9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d6}
0x3a9a…3aac               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0025, t01=0x00e0}
0x3aac…3ac0               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0025, t01=0x00f2}
0x3ac0…3ad4               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0025, t01=0x0106}
0x3ad4…3af4               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0025, t01=0x011a}
0x3af4…3b00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x013a}
0x3b00…3b16               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0146}
0x3b16…3b4a               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0025, t01=0x015c}
0x3b4a…3b6e               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0025, t01=0x0190}
0x3b6e…3b90               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0026, t01=0x0024}
0x3b90…3ba6               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0026, t01=0x0046}
0x3ba6…3bc2               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x005c}
0x3bc2…3bee               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0026, t01=0x0078}
0x3bee…3c0a               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0026, t01=0x00a4}
0x3c0a…3c1c               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x00c0}
0x3c1c…3c28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00d2}
0x3c28…3c32               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0026, t01=0x00de}
0x3c32…3c4c               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0026, t01=0x00e8}
0x3c4c…3c56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0102}
0x3c56…3c6a               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0026, t01=0x010c}
0x3c6a…3c86               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0026, t01=0x0120}
0x3c86…3c9e               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0026, t01=0x013c}
0x3c9e…3cbe               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0026, t01=0x0154}
0x3cbe…3cd6               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0026, t01=0x0174}
0x3cd6…3cec               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0026, t01=0x018c}
0x3cec…3d00               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0027, t01=0x0012}
0x3d00…3d28               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0027, t01=0x0026}
0x3d28…3d34               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x004e}
0x3d34…3d44               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x005a}
0x3d44…3d56               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0027, t01=0x006a}
0x3d56…3d6a               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0027, t01=0x007c}
0x3d6a…3d86               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x0090}
0x3d86…3db6               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0027, t01=0x00ac}
0x3db6…3dd0               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0027, t01=0x00dc}
0x3dd0…3dfc               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0027, t01=0x00f6}
0x3dfc…3e16               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0027, t01=0x0122}
0x3e16…3e40               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0027, t01=0x013c}
0x3e40…3e52               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0027, t01=0x0166}
0x3e52…3e6e               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x0178}
0x3e6e…3e94 (40, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0028, t01=0x0004}
0x3e94…3eac               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0028, t01=0x002a}
0x3eac…3ecc               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0028, t01=0x0042}
0x3ecc…3ee6               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0028, t01=0x0062}
0x3ee6…3efa               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0028, t01=0x007c}
0x3efa…3f22               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0028, t01=0x0090}
0x3f22…3f3c               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0028, t01=0x00b8}
0x3f3c…3f5e               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x00d2}
0x3f5e…3f72               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0028, t01=0x00f4}
0x3f72…3f94               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x0108}
0x3f94…3fcc               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0028, t01=0x012a}
0x3fcc…3fde               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0028, t01=0x0162}
0x3fde…4018               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0028, t01=0x0174}
0x4018…4038               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0029, t01=0x001e}
0x4038…4042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x003e}
0x4042…405a               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0029, t01=0x0048}
0x405a…4070               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x0060}
0x4070…408c               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0029, t01=0x0076}
0x408c…40a2               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0029, t01=0x0092}
0x40a2…40ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a8}
0x40ac…40c0               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0029, t01=0x00b2}
0x40c0…40d4               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x00c6}
0x40d4…40de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00da}
0x40de…40f2               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0029, t01=0x00e4}
0x40f2…4130               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0029, t01=0x00f8}
0x4130…4144               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x0136}
0x4144…414e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0029, t01=0x014a}
0x414e…4158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0154}
0x4158…4182               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0029, t01=0x015e}
0x4182…418c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0188}
0x418c…41a0 (42, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x002a, t01=0x0004}
0x41a0…41b2               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002a, t01=0x0018}
0x41b2…41c8               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x002a, t01=0x002a}
0x41c8…41dc               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x0040}
0x41dc…41f6               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x002a, t01=0x0054}
0x41f6…420c               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x002a, t01=0x006e}
0x420c…4218               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0084}
0x4218…4236               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x002a, t01=0x0090}
0x4236…424a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x00ae}
0x424a…425c               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x002a, t01=0x00c2}
0x425c…4270               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x002a, t01=0x00d4}
0x4270…428e               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x002a, t01=0x00e8}
0x428e…42a6               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x002a, t01=0x0106}
0x42a6…42ba               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002a, t01=0x011e}
0x42ba…42c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0132}
0x42c6…42dc               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x002a, t01=0x013e}
0x42dc…42e8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0154}
0x42e8…42f8               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x0160}
0x42f8…4308               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0170}
0x4308…4312               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002a, t01=0x0180}
0x4312…431c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x018a}
0x431c…4338 (43, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x002b, t01=0x0004}
0x4338…4356               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002b, t01=0x0020}
0x4356…4370               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002b, t01=0x003e}
0x4370…437a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0058}
0x437a…438e               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002b, t01=0x0062}
0x438e…43a6               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002b, t01=0x0076}
0x43a6…43ba               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002b, t01=0x008e}
0x43ba…43c6               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x00a2}
0x43c6…43d6               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002b, t01=0x00ae}
0x43d6…43e6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x00be}
0x43e6…43f0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002b, t01=0x00ce}
0x43f0…43f8               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00d8}
0x43f8…4402               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x4402…440c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ea}
0x440c…444e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002b, t01=0x00f4}
0x444e…4458               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0136}
0x4458…4468               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002b, t01=0x0140}
0x4468…4472               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0150}
0x4472…44b8               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002b, t01=0x015a}
0x44b8…44c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0010}
0x44c2…44d8               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002c, t01=0x001a}
0x44d8…44e2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002c, t01=0x0030}
0x44e2…44ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x003a}
0x44ec…452c               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0044}
0x452c…4536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0084}
0x4536…454a               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002c, t01=0x008e}
0x454a…4554               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a2}
0x4554…458e               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002c, t01=0x00ac}
0x458e…4598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e6}
0x4598…45d8               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x00f0}
0x45d8…45e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0130}
0x45e2…45f6               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002c, t01=0x013a}
0x45f6…4624               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x014e}
0x4624…4636               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002c, t01=0x017c}
0x4636…465e               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002c, t01=0x018e}
0x465e…4676               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002d, t01=0x0026}
0x4676…468e               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002d, t01=0x003e}
0x468e…4698               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0056}
0x4698…46d8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0060}
0x46d8…46e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a0}
0x46e2…46f6               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002d, t01=0x00aa}
0x46f6…4700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00be}
0x4700…4740               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002d, t01=0x00c8}
0x4740…474a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0108}
0x474a…478a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0112}
0x478a…4794               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0152}
0x4794…47aa               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002d, t01=0x015c}
0x47aa…47b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0172}
0x47b4…47c8               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002d, t01=0x017c}
0x47c8…47f6               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002d, t01=0x0190}
0x47f6…4808               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002e, t01=0x002e}
0x4808…482c               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002e, t01=0x0040}
0x482c…4844               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002e, t01=0x0064}
0x4844…4856               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002e, t01=0x007c}
0x4856…486e               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002e, t01=0x008e}
0x486e…4878               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002e, t01=0x00a6}
0x4878…4882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b0}
0x4882…48c6               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002e, t01=0x00ba}
0x48c6…48d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fe}
0x48d0…48e0               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002e, t01=0x0108}
0x48e0…48ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0118}
0x48ea…492a               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002e, t01=0x0122}
0x492a…4934               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0162}
0x4934…4978               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x016c}
0x4978…4982               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0020}
0x4982…4996               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002f, t01=0x002a}
0x4996…49c0               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002f, t01=0x003e}
0x49c0…49d6               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002f, t01=0x0068}
0x49d6…49f6               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002f, t01=0x007e}
0x49f6…4a0e               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002f, t01=0x009e}
0x4a0e…4a24               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002f, t01=0x00b6}
0x4a24…4a3c               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002f, t01=0x00cc}
0x4a3c…4a46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e4}
0x4a46…4a8c               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x00ee}
0x4a8c…4a96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0134}
0x4a96…4aa4               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002f, t01=0x013e}
0x4aa4…4aae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014c}
0x4aae…4ada               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002f, t01=0x0156}
0x4ada…4ae4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0182}
0x4ae4…4b2a               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x018c}
0x4b2a…4b34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0042}
0x4b34…4b46               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x0030, t01=0x004c}
0x4b46…4b74               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x005e}
0x4b74…4b8a               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x0030, t01=0x008c}
0x4b8a…4bac               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x0030, t01=0x00a2}
0x4bac…4bc2               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x0030, t01=0x00c4}
0x4bc2…4bda               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x0030, t01=0x00da}
0x4bda…4be4               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0030, t01=0x00f2}
0x4be4…4bee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00fc}
0x4bee…4c2c               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x0106}
0x4c2c…4c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0144}
0x4c36…4c46               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x0030, t01=0x014e}
0x4c46…4c50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015e}
0x4c50…4c74               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x0030, t01=0x0168}
0x4c74…4c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018c}
0x4c7e…4cbc               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x0008}
0x4cbc…4cc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0046}
0x4cc6…4cda               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0031, t01=0x0050}
0x4cda…4cec               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0031, t01=0x0064}
0x4cec…4d00               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0031, t01=0x0076}
0x4d00…4d2e               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0031, t01=0x008a}
0x4d2e…4d52               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0031, t01=0x00b8}
0x4d52…4d78               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0031, t01=0x00dc}
0x4d78…4d88               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0102}
0x4d88…4d92               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0031, t01=0x0112}
0x4d92…4d9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011c}
0x4d9c…4dda               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x0126}
0x4dda…4de4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0164}
0x4de4…4df2               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0031, t01=0x016e}
0x4df2…4dfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017c}
0x4dfc…4e32               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0031, t01=0x0186}
0x4e32…4e3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x002c}
0x4e3c…4e7a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0036}
0x4e7a…4e84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0074}
0x4e84…4e96               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0032, t01=0x007e}
0x4e96…4ec0               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0032, t01=0x0090}
0x4ec0…4ee0               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0032, t01=0x00ba}
0x4ee0…4ef6               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0032, t01=0x00da}
0x4ef6…4f0c               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0032, t01=0x00f0}
0x4f0c…4f2a               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0032, t01=0x0106}
0x4f2a…4f34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0124}
0x4f34…4f52               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0032, t01=0x012e}
0x4f52…4f5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x014c}
0x4f5c…4f74               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0032, t01=0x0156}
0x4f74…4f90               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0032, t01=0x016e}
0x4f90…4fa6               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0032, t01=0x018a}
0x4fa6…4fbc               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0033, t01=0x0010}
0x4fbc…4fce               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0033, t01=0x0026}
0x4fce…5004               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0033, t01=0x0038}
0x5004…500e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0033, t01=0x006e}
0x500e…5016               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0078}
0x5016…5060               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0033, t01=0x0080}
0x5060…5072               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0033, t01=0x00ca}
0x5072…50a4               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0033, t01=0x00dc}
0x50a4…50b6               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0033, t01=0x010e}
0x50b6…50de               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0033, t01=0x0120}
0x50de…50f2               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0033, t01=0x0148}
0x50f2…5116               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0033, t01=0x015c}
0x5116…5148               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0033, t01=0x0180}
0x5148…5164               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0034, t01=0x0022}
0x5164…5190               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0034, t01=0x003e}
0x5190…51ac               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0034, t01=0x006a}
0x51ac…51c6               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0034, t01=0x0086}
0x51c6…51de               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0034, t01=0x00a0}
0x51de…51fa               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0034, t01=0x00b8}
0x51fa…5226               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0034, t01=0x00d4}
0x5226…5236               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0100}
0x5236…5282               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0034, t01=0x0110}
0x5282…528c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0034, t01=0x015c}
0x528c…5296               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0166}
0x5296…52d2               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x0170}
0x52d2…52dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x001c}
0x52dc…52ea               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0035, t01=0x0026}
0x52ea…52f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0034}
0x52f4…532a               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0035, t01=0x003e}
0x532a…5356               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0035, t01=0x0074}
0x5356…5360               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a0}
0x5360…539c               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x00aa}
0x539c…53a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e6}
0x53a6…53dc               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0035, t01=0x00f0}
0x53dc…53ee               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0035, t01=0x0126}
0x53ee…540e               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0035, t01=0x0138}
0x540e…5430               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0035, t01=0x0158}
0x5430…5446               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0035, t01=0x017a}
0x5446…5450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0190}
0x5450…5462               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0036, t01=0x000a}
0x5462…5474               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0036, t01=0x001c}
0x5474…549e               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0036, t01=0x002e}
0x549e…54cc               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0036, t01=0x0058}
0x54cc…54ec               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0036, t01=0x0086}
0x54ec…5506               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0036, t01=0x00a6}
0x5506…5518               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0036, t01=0x00c0}
0x5518…553e               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0036, t01=0x00d2}
0x553e…5558               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0036, t01=0x00f8}
0x5558…5578               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0036, t01=0x0112}
0x5578…559a               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0036, t01=0x0132}
0x559a…55c4               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0036, t01=0x0154}
0x55c4…55d4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x017e}
0x55d4…55ec               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0036, t01=0x018e}
0x55ec…561c               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0037, t01=0x0016}
0x561c…5626               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0037, t01=0x0046}
0x5626…5666               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0050}
0x5666…5682               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0037, t01=0x0090}
0x5682…56ae               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0037, t01=0x00ac}
0x56ae…56ca               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0037, t01=0x00d8}
0x56ca…56de               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0037, t01=0x00f4}
0x56de…5700               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0037, t01=0x0108}
0x5700…5714               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0037, t01=0x012a}
0x5714…5754               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x013e}
0x5754…577c               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0037, t01=0x017e}
0x577c…5794               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0038, t01=0x0016}
0x5794…57c8               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0038, t01=0x002e}
0x57c8…57e0               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0038, t01=0x0062}
0x57e0…57f2               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0038, t01=0x007a}
0x57f2…57fc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0038, t01=0x008c}
0x57fc…5806               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0096}
0x5806…584a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0038, t01=0x00a0}
0x584a…5854               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e4}
0x5854…5862               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0038, t01=0x00ee}
0x5862…586c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00fc}
0x586c…5884               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0038, t01=0x0106}
0x5884…58c2               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0038, t01=0x011e}
0x58c2…5900               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0038, t01=0x015c}
0x5900…592c               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0039, t01=0x000a}
0x592c…5936               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0036}
0x5936…597a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0039, t01=0x0040}
0x597a…5984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0084}
0x5984…5996               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0039, t01=0x008e}
0x5996…59c0               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0039, t01=0x00a0}
0x59c0…59fa               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0039, t01=0x00ca}
0x59fa…5a10               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0039, t01=0x0104}
0x5a10…5a44               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0039, t01=0x011a}
0x5a44…5a56               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0039, t01=0x014e}
0x5a56…5a6a               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0039, t01=0x0160}
0x5a6a…5a7e               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0039, t01=0x0174}
0x5a7e…5a8e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0188}
0x5a8e…5a98               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003a, t01=0x0008}
0x5a98…5aa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0012}
0x5aa2…5ae6               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x001c}
0x5ae6…5af0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0060}
0x5af0…5b0a               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x003a, t01=0x006a}
0x5b0a…5b14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0084}
0x5b14…5b58               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x003a, t01=0x008e}
0x5b58…5b98               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x003a, t01=0x00d2}
0x5b98…5bc8               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x003a, t01=0x0112}
0x5bc8…5bd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0142}
0x5bd2…5c14               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x014c}
0x5c14…5c1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018e}
0x5c1e…5c32               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003b, t01=0x0008}
0x5c32…5c5a               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003b, t01=0x001c}
0x5c5a…5c94               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003b, t01=0x0044}
0x5c94…5ca8               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003b, t01=0x007e}
0x5ca8…5cde               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003b, t01=0x0092}
0x5cde…5cf0               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003b, t01=0x00c8}
0x5cf0…5d04               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003b, t01=0x00da}
0x5d04…5d14               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00ee}
0x5d14…5d1e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003b, t01=0x00fe}
0x5d1e…5d28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0108}
0x5d28…5d6a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0112}
0x5d6a…5d74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0154}
0x5d74…5d8a               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003b, t01=0x015e}
0x5d8a…5d94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0174}
0x5d94…5db2               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003b, t01=0x017e}
0x5db2…5dee               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003c, t01=0x000c}
0x5dee…5e2c               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003c, t01=0x0048}
0x5e2c…5e4a               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003c, t01=0x0086}
0x5e4a…5e54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a4}
0x5e54…5e94               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x00ae}
0x5e94…5e9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ee}
0x5e9e…5eba               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003c, t01=0x00f8}
0x5eba…5ee4               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003c, t01=0x0114}
0x5ee4…5f14               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003c, t01=0x013e}
0x5f14…5f28               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x016e}
0x5f28…5f3c               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003c, t01=0x0182}
0x5f3c…5f52               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003d, t01=0x0008}
0x5f52…5f66               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003d, t01=0x001e}
0x5f66…5f8e               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003d, t01=0x0032}
0x5f8e…5fac               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003d, t01=0x005a}
0x5fac…5fdc               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003d, t01=0x0078}
0x5fdc…5fec               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x00a8}
0x5fec…5ff6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003d, t01=0x00b8}
0x5ff6…6000               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00c2}
0x6000…603e               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003d, t01=0x00cc}
0x603e…6048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x010a}
0x6048…6058               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003d, t01=0x0114}
0x6058…6062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0124}
0x6062…609c               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003d, t01=0x012e}
0x609c…60d2               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003d, t01=0x0168}
0x60d2…60dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x000e}
0x60dc…6118               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003e, t01=0x0018}
0x6118…6122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0054}
0x6122…6144               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003e, t01=0x005e}
0x6144…615a               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003e, t01=0x0080}
0x615a…616e               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003e, t01=0x0096}
0x616e…6180               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003e, t01=0x00aa}
0x6180…61aa               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003e, t01=0x00bc}
0x61aa…61d0               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003e, t01=0x00e6}
0x61d0…61f2               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003e, t01=0x010c}
0x61f2…620c               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003e, t01=0x012e}
0x620c…6232               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x0148}
0x6232…624c               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003e, t01=0x016e}
0x624c…625e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003e, t01=0x0188}
0x625e…628a               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003f, t01=0x000a}
0x628a…62a4               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x0036}
0x62a4…62bc               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003f, t01=0x0050}
0x62bc…62e4               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003f, t01=0x0068}
0x62e4…6328               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003f, t01=0x0090}
0x6328…633a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003f, t01=0x00d4}
0x633a…635c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003f, t01=0x00e6}
0x635c…6394               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003f, t01=0x0108}
0x6394…63c8               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x003f, t01=0x0140}
0x63c8…63da               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x003f, t01=0x0174}
0x63da…63ee               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x003f, t01=0x0186}
0x63ee…6430               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0040, t01=0x000a}
0x6430…644e               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x004c}
0x644e…6468               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x0040, t01=0x006a}
0x6468…647a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0040, t01=0x0084}
0x647a…649c               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x0040, t01=0x0096}
0x649c…64be               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x0040, t01=0x00b8}
0x64be…64ce               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x00da}
0x64ce…64fc               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x0040, t01=0x00ea}
0x64fc…6516               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0040, t01=0x0118}
0x6516…6542               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0040, t01=0x0132}
0x6542…6568               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0040, t01=0x015e}
0x6568…658c               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0040, t01=0x0184}
0x658c…65a4               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0041, t01=0x0018}
0x65a4…65c2               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0041, t01=0x0030}
0x65c2…65dc               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0041, t01=0x004e}
0x65dc…660e               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0041, t01=0x0068}
0x660e…662a               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0041, t01=0x009a}
0x662a…6672               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0041, t01=0x00b6}
0x6672…6684               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0041, t01=0x00fe}
0x6684…66cc               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0041, t01=0x0110}
0x66cc…66d6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0041, t01=0x0158}
0x66d6…66e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0162}
0x66e0…6722               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x016c}
0x6722…672c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x001e}
0x672c…673a               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0042, t01=0x0028}
0x673a…6744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0036}
0x6744…6782               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0042, t01=0x0040}
0x6782…678c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x007e}
0x678c…67ce               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x0088}
0x67ce…67d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ca}
0x67d8…67ec               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0042, t01=0x00d4}
0x67ec…681c               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0042, t01=0x00e8}
0x681c…683e               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0042, t01=0x0118}
0x683e…6848               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x013a}
0x6848…685a               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0042, t01=0x0144}
0x685a…6884               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0042, t01=0x0156}
0x6884…68b6               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0042, t01=0x0180}
0x68b6…68da               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0043, t01=0x0022}
0x68da…68f4               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0043, t01=0x0046}
0x68f4…692a               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0043, t01=0x0060}
0x692a…693c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0043, t01=0x0096}
0x693c…6962               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0043, t01=0x00a8}
0x6962…697c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0043, t01=0x00ce}
0x697c…6994               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0043, t01=0x00e8}
0x6994…69b6               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0043, t01=0x0100}
0x69b6…69ce               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0043, t01=0x0122}
0x69ce…69fe               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0043, t01=0x013a}
0x69fe…6a08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x016a}
0x6a08…6a1a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0174}
0x6a1a…6a40               Head {h00=0x0022, h01=0x0050, text=»* UPDATING OF FIELD SEPARATOR «, t00=0x0043, t01=0x0186}
0x6a40…6a50               Head {h00=0x000c, h01=0x0050, text=»*    DK4«, t00=0x0044, t01=0x001c}
0x6a50…6a5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x002c}
0x6a5a…6a74               Head {h00=0x0016, h01=0x0050, text=»CHARFS EQU *  DK4 «, t00=0x0044, t01=0x0036}
0x6a74…6a8e               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK4«, t00=0x0044, t01=0x0050}
0x6a8e…6ab6               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/26 LOAD CHARACTER & DK4«, t00=0x0044, t01=0x006a}
0x6ab6…6af8               Head {h00=0x003e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS RESTORE CHARACTER IN BUFFER DK4«, t00=0x0044, t01=0x0092}
0x6af8…6b0a               Head {h00=0x000e, h01=0x0050, text=» XIF   DK4«, t00=0x0044, t01=0x00d4}
0x6b0a…6b2c               Head {h00=0x001e, h01=0x0050, text=» RB CHAR  DISPLAY CHAR DK4«, t00=0x0044, t01=0x00e6}
0x6b2c…6b36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0108}
0x6b36…6b40               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0044, t01=0x0112}
0x6b40…6b88               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0044, t01=0x011c}
0x6b88…6b92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0164}
0x6b92…6bbc               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0044, t01=0x016e}
0x6bbc…6be8               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0045, t01=0x0008}
0x6be8…6bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0034}
0x6bf2…6c2c               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0045, t01=0x003e}
0x6c2c…6c34               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x0078}
0x6c34…6c48               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0045, t01=0x0080}
0x6c48…6c6c               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x0094}
0x6c6c…6ca8               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x00b8}
0x6ca8…6cce               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0045, t01=0x00f4}
0x6cce…6cd6               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x011a}
0x6cd6…6cea               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0045, t01=0x0122}
0x6cea…6d0e               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x0136}
0x6d0e…6d4a               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x015a}
0x6d4a…6d70               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x0008}
0x6d70…6d96               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x002e}
0x6d96…6dae               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0046, t01=0x0054}
0x6dae…6db8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x006c}
0x6db8…6dfa               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x0076}
0x6dfa…6e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b8}
0x6e04…6e12               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0046, t01=0x00c2}
0x6e12…6e1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00d0}
0x6e1c…6e42               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0046, t01=0x00da}
0x6e42…6e4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0100}
0x6e4c…6e8e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x010a}
0x6e8e…6e98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x014c}
0x6e98…6eac               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0046, t01=0x0156}
0x6eac…6ec0               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0046, t01=0x016a}
0x6ec0…6ee2               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0046, t01=0x017e}
0x6ee2…6eec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0010}
0x6eec…6efe               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0047, t01=0x001a}
0x6efe…6f28               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0047, t01=0x002c}
0x6f28…6f5a               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0047, t01=0x0056}
0x6f5a…6f82               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0047, t01=0x0088}
0x6f82…6f9c               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0047, t01=0x00b0}
0x6f9c…6fd2               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0047, t01=0x00ca}
0x6fd2…6fe4               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0047, t01=0x0100}
0x6fe4…7008               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0047, t01=0x0112}
0x7008…7020               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0047, t01=0x0136}
0x7020…7050               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0047, t01=0x014e}
0x7050…705a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0047, t01=0x017e}
0x705a…7064               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0188}
0x7064…70a6 (72, 0, 400)  Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x0004}
0x70a6…70b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0046}
0x70b0…70c0               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0048, t01=0x0050}
0x70c0…70ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0060}
0x70ca…710a               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0048, t01=0x006a}
0x710a…711c               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0048, t01=0x00aa}
0x711c…7126               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00bc}
0x7126…7168               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x00c6}
0x7168…7172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0108}
0x7172…7186               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0048, t01=0x0112}
0x7186…71ac               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0048, t01=0x0126}
0x71ac…71c0               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0048, t01=0x014c}
0x71c0…71d6               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0048, t01=0x0160}
0x71d6…71ec               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0048, t01=0x0176}
0x71ec…71fe               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0048, t01=0x018c}
0x71fe…7206               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x000e}
0x7206…7230               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0049, t01=0x0016}
0x7230…724c               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0049, t01=0x0040}
0x724c…726e               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0049, t01=0x005c}
0x726e…729c               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0049, t01=0x007e}
0x729c…72b8               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0049, t01=0x00ac}
0x72b8…72e4               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0049, t01=0x00c8}
0x72e4…72fe               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0049, t01=0x00f4}
0x72fe…7322               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0049, t01=0x010e}
0x7322…7340               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x0049, t01=0x0132}
0x7340…7370               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0049, t01=0x0150}
0x7370…738c               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x0049, t01=0x0180}
0x738c…739e               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x004a, t01=0x000c}
0x739e…73b2               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x004a, t01=0x001e}
0x73b2…73ca               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x004a, t01=0x0032}
0x73ca…73f4               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x004a, t01=0x004a}
0x73f4…740e               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x004a, t01=0x0074}
0x740e…7442               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x004a, t01=0x008e}
0x7442…7456               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x004a, t01=0x00c2}
0x7456…7472               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x004a, t01=0x00d6}
0x7472…748e               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x004a, t01=0x00f2}
0x748e…74b6               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x004a, t01=0x010e}
0x74b6…74c8               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x004a, t01=0x0136}
0x74c8…74dc               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x004a, t01=0x0148}
0x74dc…74e4               Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x015c}
0x74e4…751a               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x004a, t01=0x0164}
0x751a…753e               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x004b, t01=0x000a}
0x753e…7556               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x004b, t01=0x002e}
0x7556…756a               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x004b, t01=0x0046}
0x756a…7584               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x004b, t01=0x005a}
0x7584…75b0               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x004b, t01=0x0074}
0x75b0…75c2               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x004b, t01=0x00a0}
0x75c2…75ea               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x004b, t01=0x00b2}
0x75ea…7604               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x004b, t01=0x00da}
0x7604…762e               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x004b, t01=0x00f4}
0x762e…7648               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004b, t01=0x011e}
0x7648…7666               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004b, t01=0x0138}
0x7666…7688               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004b, t01=0x0156}
0x7688…76b4               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004b, t01=0x0178}
0x76b4…76d6               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004c, t01=0x0014}
0x76d6…7702               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004c, t01=0x0036}
0x7702…7736               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004c, t01=0x0062}
0x7736…7760               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004c, t01=0x0096}
0x7760…778e               Head {h00=0x002a, h01=0x0050, text=» CWK A4,DUPCH  DONT ADD IF IN DUP DK6 «, t00=0x004c, t01=0x00c0}
0x778e…77a8               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC252  DK6«, t00=0x004c, t01=0x00ee}
0x77a8…77ba               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004c, t01=0x0108}
0x77ba…77ce               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004c, t01=0x011a}
0x77ce…77e4               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004c, t01=0x012e}
0x77e4…77fa               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004c, t01=0x0144}
0x77fa…780c               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004c, t01=0x015a}
0x780c…7820               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004c, t01=0x016c}
0x7820…783c               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004c, t01=0x0180}
0x783c…7862               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004d, t01=0x000c}
0x7862…7886               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004d, t01=0x0032}
0x7886…789e               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004d, t01=0x0056}
0x789e…78a6               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x006e}
0x78a6…78d2               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004d, t01=0x0076}
0x78d2…78e6               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004d, t01=0x00a2}
0x78e6…790a               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004d, t01=0x00b6}
0x790a…792e               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004d, t01=0x00da}
0x792e…795a               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004d, t01=0x00fe}
0x795a…7976               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004d, t01=0x012a}
0x7976…79b4               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004d, t01=0x0146}
0x79b4…79c8               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004d, t01=0x0184}
0x79c8…79d8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0008}
0x79d8…79ec               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004e, t01=0x0018}
0x79ec…79f6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x004e, t01=0x002c}
0x79f6…79fe               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0036}
0x79fe…7a3a               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004e, t01=0x003e}
0x7a3a…7a44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x007a}
0x7a44…7a84               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004e, t01=0x0084}
0x7a84…7ab6               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004e, t01=0x00c4}
0x7ab6…7ac0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f6}
0x7ac0…7b04               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004e, t01=0x0100}
0x7b04…7b0c               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0144}
0x7b0c…7b20               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004e, t01=0x014c}
0x7b20…7b34               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004e, t01=0x0160}
0x7b34…7b5e               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004e, t01=0x0174}
0x7b5e…7b8a               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004f, t01=0x000e}
0x7b8a…7bbc               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004f, t01=0x003a}
0x7bbc…7be4               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004f, t01=0x006c}
0x7be4…7bec               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0094}
0x7bec…7c1a               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004f, t01=0x009c}
0x7c1a…7c3e               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004f, t01=0x00ca}
0x7c3e…7c58               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004f, t01=0x00ee}
0x7c58…7c8a               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004f, t01=0x0108}
0x7c8a…7ca6               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x004f, t01=0x013a}
0x7ca6…7cc6               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x004f, t01=0x0156}
0x7cc6…7cd8               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004f, t01=0x0176}
0x7cd8…7cf0               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x004f, t01=0x0188}
0x7cf0…7cf8               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0010}
0x7cf8…7d00               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0018}
0x7d00…7d14               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x0050, t01=0x0020}
0x7d14…7d42               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x0050, t01=0x0034}
0x7d42…7d66               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x0050, t01=0x0062}
0x7d66…7d92               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x0050, t01=0x0086}
0x7d92…7d9a               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x00b2}
0x7d9a…7dcc               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x0050, t01=0x00ba}
0x7dcc…7de8               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x0050, t01=0x00ec}
0x7de8…7e0a               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x0050, t01=0x0108}
0x7e0a…7e2e               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0050, t01=0x012a}
0x7e2e…7e5c               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x0050, t01=0x014e}
0x7e5c…7e6e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0050, t01=0x017c}
0x7e6e…7e94               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x0050, t01=0x018e}
0x7e94…7e9c               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0024}
0x7e9c…7ea4               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x002c}
0x7ea4…7ed2               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x0051, t01=0x0034}
0x7ed2…7f00               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x0051, t01=0x0062}
0x7f00…7f26               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x0051, t01=0x0090}
0x7f26…7f4e               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x0051, t01=0x00b6}
0x7f4e…7f56               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00de}
0x7f56…7f8c               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x0051, t01=0x00e6}
0x7f8c…7fba               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x0051, t01=0x011c}
0x7fba…7fd6               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0051, t01=0x014a}
0x7fd6…7fec               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0051, t01=0x0166}
0x7fec…801e               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0051, t01=0x017c}
0x801e…8044               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0052, t01=0x001e}
0x8044…806e               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0052, t01=0x0044}
0x806e…8078               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0052, t01=0x006e}
0x8078…8080               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0078}
0x8080…80c6               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x0080}
0x80c6…80d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00c6}
0x80d0…8114               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0052, t01=0x00d0}
0x8114…8154               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0052, t01=0x0114}
0x8154…815e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0154}
0x815e…819a               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0052, t01=0x015e}
0x819a…81a2               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x000a}
0x81a2…81b6               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0053, t01=0x0012}
0x81b6…81de               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0053, t01=0x0026}
0x81de…8210               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0053, t01=0x004e}
0x8210…8220               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x0080}
0x8220…8228               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0090}
0x8228…8230               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0098}
0x8230…824a               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0053, t01=0x00a0}
0x824a…825e               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0053, t01=0x00ba}
0x825e…828a               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0053, t01=0x00ce}
0x828a…82a6               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0053, t01=0x00fa}
0x82a6…82be               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0053, t01=0x0116}
0x82be…82d0               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0053, t01=0x012e}
0x82d0…82d8               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0140}
0x82d8…82e0               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0148}
0x82e0…8314               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0053, t01=0x0150}
0x8314…831c               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0184}
0x831c…8324               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x018c}
0x8324…8348 (84, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0054, t01=0x0004}
0x8348…8362               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0054, t01=0x0028}
0x8362…8374               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0054, t01=0x0042}
0x8374…837c               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0054}
0x837c…8398               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0054, t01=0x005c}
0x8398…83d2               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0054, t01=0x0078}
0x83d2…8404               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0054, t01=0x00b2}
0x8404…8436               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0054, t01=0x00e4}
0x8436…8452               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0054, t01=0x0116}
0x8452…8474               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0054, t01=0x0132}
0x8474…8498               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0054, t01=0x0154}
0x8498…84c6               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0054, t01=0x0178}
0x84c6…84d8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0055, t01=0x0016}
0x84d8…84fe               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0055, t01=0x0028}
0x84fe…8506               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x004e}
0x8506…850e               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0056}
0x850e…853a               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0055, t01=0x005e}
0x853a…856c               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0055, t01=0x008a}
0x856c…859e               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0055, t01=0x00bc}
0x859e…85b2               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0055, t01=0x00ee}
0x85b2…85e0               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0055, t01=0x0102}
0x85e0…860c               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0055, t01=0x0130}
0x860c…861e               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0055, t01=0x015c}
0x861e…862a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x016e}
0x862a…8634               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0055, t01=0x017a}
0x8634…863c               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0184}
0x863c…867e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0055, t01=0x018c}
0x867e…8688               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x003e}
0x8688…86c0               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0056, t01=0x0048}
0x86c0…86ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0080}
0x86ca…8708               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0056, t01=0x008a}
0x8708…8710               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00c8}
0x8710…8724               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0056, t01=0x00d0}
0x8724…8736               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0056, t01=0x00e4}
0x8736…873e               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00f6}
0x873e…8756               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0056, t01=0x00fe}
0x8756…876c               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0056, t01=0x0116}
0x876c…878c               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0056, t01=0x012c}
0x878c…87b6               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0056, t01=0x014c}
0x87b6…87da               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0056, t01=0x0176}
0x87da…87f6               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0057, t01=0x000a}
0x87f6…8808               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0057, t01=0x0026}
0x8808…8836               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0057, t01=0x0038}
0x8836…883e               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0066}
0x883e…886c               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0057, t01=0x006e}
0x886c…8882               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0057, t01=0x009c}
0x8882…888c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0057, t01=0x00b2}
0x888c…8896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00bc}
0x8896…88d8               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0057, t01=0x00c6}
0x88d8…88e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0108}
0x88e2…88f2               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0057, t01=0x0112}
0x88f2…88fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0122}
0x88fc…893a               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0057, t01=0x012c}
0x893a…8962               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0057, t01=0x016a}
0x8962…896c (88, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0004}
0x896c…89ae               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0058, t01=0x000e}
0x89ae…89b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0050}
0x89b8…89cc               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0058, t01=0x005a}
0x89cc…89de               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0058, t01=0x006e}
0x89de…89fc               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0058, t01=0x0080}
0x89fc…8a10               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0058, t01=0x009e}
0x8a10…8a38               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0058, t01=0x00b2}
0x8a38…8a4c               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0058, t01=0x00da}
0x8a4c…8a7e               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0058, t01=0x00ee}
0x8a7e…8aaa               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0058, t01=0x0120}
0x8aaa…8aba               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x014c}
0x8aba…8ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x015c}
0x8ac4…8acc               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0166}
0x8acc…8ade               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0058, t01=0x016e}
0x8ade…8ae6               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0180}
0x8ae6…8af0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0188}
0x8af0…8afa (89, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0004}
0x8afa…8b44               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0059, t01=0x000e}
0x8b44…8b82               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0059, t01=0x0058}
0x8b82…8b8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0096}
0x8b8c…8b96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a0}
0x8b96…8ba8               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0059, t01=0x00aa}
0x8ba8…8bbe               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0059, t01=0x00bc}
0x8bbe…8bda               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0059, t01=0x00d2}
0x8bda…8bea               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x00ee}
0x8bea…8bfe               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0059, t01=0x00fe}
0x8bfe…8c18               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0059, t01=0x0112}
0x8c18…8c3c               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0059, t01=0x012c}
0x8c3c…8c5e               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0059, t01=0x0150}
0x8c5e…8c82               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0059, t01=0x0172}
0x8c82…8c9a               Head {h00=0x0014, h01=0x0050, text=» IFF PA49=1  DK3«, t00=0x005a, t01=0x0008}
0x8c9a…8cbc               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x005a, t01=0x0020}
0x8cbc…8cce               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x0042}
0x8cce…8ce6               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005a, t01=0x0054}
0x8ce6…8d06               Head {h00=0x001c, h01=0x0050, text=» RF(G) PAEXB PA 4-9? DK3«, t00=0x005a, t01=0x006c}
0x8d06…8d18               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x008c}
0x8d18…8d2a               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x005a, t01=0x009e}
0x8d2a…8d3c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x005a, t01=0x00b0}
0x8d3c…8d4e               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x005a, t01=0x00c2}
0x8d4e…8d5e               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x005a, t01=0x00d4}
0x8d5e…8d88               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x005a, t01=0x00e4}
0x8d88…8d90               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x010e}
0x8d90…8d9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0116}
0x8d9c…8da6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x005a, t01=0x0122}
0x8da6…8dae               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x012c}
0x8dae…8db8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0134}
0x8db8…8de2               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x005a, t01=0x013e}
0x8de2…8dec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0168}
0x8dec…8df6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0172}
0x8df6…8e08               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x005a, t01=0x017c}
0x8e08…8e24               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x005a, t01=0x018e}
0x8e24…8e36               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x001a}
0x8e36…8e40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x002c}
0x8e40…8e4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0036}
0x8e4a…8e72               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x005b, t01=0x0040}
0x8e72…8e7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0068}
0x8e7c…8e86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0072}
0x8e86…8e98               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x005b, t01=0x007c}
0x8e98…8eb4               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x005b, t01=0x008e}
0x8eb4…8ec6               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x00aa}
0x8ec6…8ed0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00bc}
0x8ed0…8ef0               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x005b, t01=0x00c6}
0x8ef0…8f08               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005b, t01=0x00e6}
0x8f08…8f20               Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU *  DK3«, t00=0x005b, t01=0x00fe}
0x8f20…8f38               Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6  DK3 «, t00=0x005b, t01=0x0116}
0x8f38…8f52               Head {h00=0x0016, h01=0x0050, text=» RF(G) PFERR  DK3 «, t00=0x005b, t01=0x012e}
0x8f52…8f74               Head {h00=0x001e, h01=0x0050, text=» ADK A2,/69 SET PA4-9 DK3 «, t00=0x005b, t01=0x0148}
0x8f74…8f8c               Head {h00=0x0014, h01=0x0050, text=» RB CAN200  DK3 «, t00=0x005b, t01=0x016a}
0x8f8c…8f9e               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005b, t01=0x0182}
0x8f9e…8fa8 (92, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0004}
0x8fa8…8fbc               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x005c, t01=0x000e}
0x8fbc…8fd0               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x005c, t01=0x0022}
0x8fd0…8fe2               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x005c, t01=0x0036}
0x8fe2…8fec               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x005c, t01=0x0048}
0x8fec…8ff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0052}
0x8ff6…9036               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x005c}
0x9036…9040               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x009c}
0x9040…9050               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x005c, t01=0x00a6}
0x9050…905a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00b6}
0x905a…9096               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x005c, t01=0x00c0}
0x9096…90d6               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005c, t01=0x00fc}
0x90d6…9112               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005c, t01=0x013c}
0x9112…9130               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005c, t01=0x0178}
0x9130…913a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0008}
0x913a…917c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005d, t01=0x0012}
0x917c…9186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0054}
0x9186…91ac               Head {h00=0x0022, h01=0x0050, text=»* READ MODIFIED HANDLING  DK7 «, t00=0x005d, t01=0x005e}
0x91ac…91c6               Head {h00=0x0016, h01=0x0050, text=»READMY EQU *  DK7 «, t00=0x005d, t01=0x0084}
0x91c6…91ee               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/20 NO AID GENERATED DK7«, t00=0x005d, t01=0x009e}
0x91ee…920a               Head {h00=0x0018, h01=0x0050, text=» RF ENT100 DO IT DK7«, t00=0x005d, t01=0x00c6}
0x920a…921e               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005d, t01=0x00e2}
0x921e…923c               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005d, t01=0x00f6}
0x923c…9250               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005d, t01=0x0114}
0x9250…927a               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005d, t01=0x0128}
0x927a…92ac               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005d, t01=0x0152}
0x92ac…92de               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005d, t01=0x0184}
0x92de…92f2               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005e, t01=0x0026}
0x92f2…9302               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x003a}
0x9302…930c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x004a}
0x930c…9314               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0054}
0x9314…9326               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005e, t01=0x005c}
0x9326…932e               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x006e}
0x932e…9338               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0076}
0x9338…9342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0080}
0x9342…938c               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005e, t01=0x008a}
0x938c…93c0               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005e, t01=0x00d4}
0x93c0…93ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0108}
0x93ca…93d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0112}
0x93d4…93e6               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005e, t01=0x011c}
0x93e6…93fc               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005e, t01=0x012e}
0x93fc…940e               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005e, t01=0x0144}
0x940e…9422               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005e, t01=0x0156}
0x9422…943c               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005e, t01=0x016a}
0x943c…945c               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005e, t01=0x0184}
0x945c…948c               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005f, t01=0x0014}
0x948c…94b6               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005f, t01=0x0044}
0x94b6…94d8               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005f, t01=0x006e}
0x94d8…94fa               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005f, t01=0x0090}
0x94fa…9510               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005f, t01=0x00b2}
0x9510…9522               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005f, t01=0x00c8}
0x9522…9534               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005f, t01=0x00da}
0x9534…954e               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005f, t01=0x00ec}
0x954e…956e               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005f, t01=0x0106}
0x956e…959e               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x0126}
0x959e…95bc               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005f, t01=0x0156}
0x95bc…95ec               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x0174}
0x95ec…960c               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x0060, t01=0x0014}
0x960c…961e               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0060, t01=0x0034}
0x961e…9626               Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x0046}
0x9626…9638               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x0060, t01=0x004e}
0x9638…964e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x0060, t01=0x0060}
0x964e…9662               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x0060, t01=0x0076}
0x9662…967e               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0060, t01=0x008a}
0x967e…968e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00a6}
0x968e…96a0               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x0060, t01=0x00b6}
0x96a0…96ba               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0060, t01=0x00c8}
0x96ba…96da               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x0060, t01=0x00e2}
0x96da…970a               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x0102}
0x970a…9728               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x0060, t01=0x0132}
0x9728…9758               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x0150}
0x9758…9776               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x0060, t01=0x0180}
0x9776…9788               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x000e}
0x9788…9794               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0020}
0x9794…97a8               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x0061, t01=0x002c}
0x97a8…97d6               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x0061, t01=0x0040}
0x97d6…97fe               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x0061, t01=0x006e}
0x97fe…9806               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0096}
0x9806…980e               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x009e}
0x980e…981e               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x0061, t01=0x00a6}
0x981e…9832               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x0061, t01=0x00b6}
0x9832…9844               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x00ca}
0x9844…9858               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x00dc}
0x9858…9862               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0061, t01=0x00f0}
0x9862…98a6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x00fa}
0x98a6…98b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x013e}
0x98b0…98c0               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x0061, t01=0x0148}
0x98c0…9900               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x0061, t01=0x0158}
0x9900…993c               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x0062, t01=0x0008}
0x993c…9946               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0044}
0x9946…998c               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0062, t01=0x004e}
0x998c…99a0               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0062, t01=0x0094}
0x99a0…99b6               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x00a8}
0x99b6…99ca               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x0062, t01=0x00be}
0x99ca…99e0               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0062, t01=0x00d2}
0x99e0…99f4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0062, t01=0x00e8}
0x99f4…9a0e               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x0062, t01=0x00fc}
0x9a0e…9a20               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x0062, t01=0x0116}
0x9a20…9a3a               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x0062, t01=0x0128}
0x9a3a…9a6e               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x0062, t01=0x0142}
0x9a6e…9a7a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0176}
0x9a7a…9a8e               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0062, t01=0x0182}
0x9a8e…9ac8               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0063, t01=0x0008}
0x9ac8…9ae6               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0063, t01=0x0042}
0x9ae6…9b10               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x0060}
0x9b10…9b24               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0063, t01=0x008a}
0x9b24…9b42               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0063, t01=0x009e}
0x9b42…9b6c               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x00bc}
0x9b6c…9b78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00e6}
0x9b78…9b8c               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0063, t01=0x00f2}
0x9b8c…9ba2               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0063, t01=0x0106}
0x9ba2…9bb8               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0063, t01=0x011c}
0x9bb8…9bce               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0063, t01=0x0132}
0x9bce…9bfa               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0063, t01=0x0148}
0x9bfa…9c24               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0063, t01=0x0174}
0x9c24…9c4c               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0064, t01=0x000e}
0x9c4c…9c7a               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0064, t01=0x0036}
0x9c7a…9c90               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0064, t01=0x0064}
0x9c90…9cb8               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0064, t01=0x007a}
0x9cb8…9ce6               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0064, t01=0x00a2}
0x9ce6…9cee               Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x00d0}
0x9cee…9cfa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00d8}
0x9cfa…9d0e               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0064, t01=0x00e4}
0x9d0e…9d18               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0064, t01=0x00f8}
0x9d18…9d5c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0064, t01=0x0102}
0x9d5c…9d66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0146}
0x9d66…9d80               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0064, t01=0x0150}
0x9d80…9dcc               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0064, t01=0x016a}
0x9dcc…9dea               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0065, t01=0x0026}
0x9dea…9df4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0044}
0x9df4…9e42               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0065, t01=0x004e}
0x9e42…9e4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x009c}
0x9e4c…9e60               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0065, t01=0x00a6}
0x9e60…9e76               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0065, t01=0x00ba}
0x9e76…9e8a               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0065, t01=0x00d0}
0x9e8a…9ea0               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0065, t01=0x00e4}
0x9ea0…9eb6               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0065, t01=0x00fa}
0x9eb6…9ecc               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0065, t01=0x0110}
0x9ecc…9ee2               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0065, t01=0x0126}
0x9ee2…9efc               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0065, t01=0x013c}
0x9efc…9f0e               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0065, t01=0x0156}
0x9f0e…9f24               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0065, t01=0x0168}
0x9f24…9f3a               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0065, t01=0x017e}
0x9f3a…9f4c (102, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0066, t01=0x0004}
0x9f4c…9f60               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0066, t01=0x0016}
0x9f60…9f76               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0066, t01=0x002a}
0x9f76…9f8a               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0066, t01=0x0040}
0x9f8a…9fa4               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0066, t01=0x0054}
0x9fa4…9fb4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x006e}
0x9fb4…9fc0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x007e}
0x9fc0…9fca               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0066, t01=0x008a}
0x9fca…9fd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0094}
0x9fd4…a014               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0066, t01=0x009e}
0xa014…a01e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00de}
0xa01e…a02e               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0066, t01=0x00e8}
0xa02e…a038               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00f8}
0xa038…a076               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0066, t01=0x0102}
0xa076…a0b2               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0066, t01=0x0140}
0xa0b2…a0f0               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0066, t01=0x017c}
0xa0f0…a102               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0067, t01=0x002a}
0xa102…a10c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x003c}
0xa10c…a14c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0067, t01=0x0046}
0xa14c…a156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0086}
0xa156…a16a               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0067, t01=0x0090}
0xa16a…a18e               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0067, t01=0x00a4}
0xa18e…a1a6               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0067, t01=0x00c8}
0xa1a6…a1d8               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0067, t01=0x00e0}
0xa1d8…a204               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0067, t01=0x0112}
0xa204…a22e               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0067, t01=0x013e}
0xa22e…a23e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x0168}
0xa23e…a248               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0067, t01=0x0178}
0xa248…a252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0182}
0xa252…a296               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0067, t01=0x018c}
0xa296…a2a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0040}
0xa2a0…a2b0               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0068, t01=0x004a}
0xa2b0…a2ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x005a}
0xa2ba…a2da               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0068, t01=0x0064}
0xa2da…a2e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0084}
0xa2e4…a328               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x008e}
0xa328…a332               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00d2}
0xa332…a346               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0068, t01=0x00dc}
0xa346…a358               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0068, t01=0x00f0}
0xa358…a382               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0068, t01=0x0102}
0xa382…a3a2               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0068, t01=0x012c}
0xa3a2…a3bc               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0068, t01=0x014c}
0xa3bc…a3ce               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0068, t01=0x0166}
0xa3ce…a3f0               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0068, t01=0x0178}
0xa3f0…a3f8               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x000a}
0xa3f8…a424               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x0012}
0xa424…a42c               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x003e}
0xa42c…a462               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0069, t01=0x0046}
0xa462…a490               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0069, t01=0x007c}
0xa490…a498               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00aa}
0xa498…a4c4               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x00b2}
0xa4c4…a4cc               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00de}
0xa4cc…a4f8               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0069, t01=0x00e6}
0xa4f8…a51a               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0069, t01=0x0112}
0xa51a…a532               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0069, t01=0x0134}
0xa532…a54a               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0069, t01=0x014c}
0xa54a…a566               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0069, t01=0x0164}
0xa566…a57a               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0069, t01=0x0180}
0xa57a…a590 (106, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x006a, t01=0x0004}
0xa590…a5a6               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x006a, t01=0x001a}
0xa5a6…a5b8               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x006a, t01=0x0030}
0xa5b8…a5ec               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x006a, t01=0x0042}
0xa5ec…a618               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x006a, t01=0x0076}
0xa618…a622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00a2}
0xa622…a64e               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x006a, t01=0x00ac}
0xa64e…a658               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00d8}
0xa658…a660               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x00e2}
0xa660…a67c               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x006a, t01=0x00ea}
0xa67c…a694               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x006a, t01=0x0106}
0xa694…a6bc               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x006a, t01=0x011e}
0xa6bc…a6c4               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0146}
0xa6c4…a6d8               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x006a, t01=0x014e}
0xa6d8…a70a               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x006a, t01=0x0162}
0xa70a…a72a (107, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x006b, t01=0x0004}
0xa72a…a748               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x006b, t01=0x0024}
0xa748…a75a               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x006b, t01=0x0042}
0xa75a…a76e               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x006b, t01=0x0054}
0xa76e…a77e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0068}
0xa77e…a7aa               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x006b, t01=0x0078}
0xa7aa…a7c4               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x006b, t01=0x00a4}
0xa7c4…a7d6               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x00be}
0xa7d6…a7ee               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x006b, t01=0x00d0}
0xa7ee…a81c               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x006b, t01=0x00e8}
0xa81c…a832               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x006b, t01=0x0116}
0xa832…a850               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x006b, t01=0x012c}
0xa850…a862               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x006b, t01=0x014a}
0xa862…a86c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006b, t01=0x015c}
0xa86c…a876               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0166}
0xa876…a8b6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006b, t01=0x0170}
0xa8b6…a8c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0020}
0xa8c0…a8d0               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x006c, t01=0x002a}
0xa8d0…a8da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x003a}
0xa8da…a918               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x006c, t01=0x0044}
0xa918…a956               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x006c, t01=0x0082}
0xa956…a97c               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x006c, t01=0x00c0}
0xa97c…a986               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00e6}
0xa986…a9c6               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x006c, t01=0x00f0}
0xa9c6…a9d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0130}
0xa9d0…a9e4               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006c, t01=0x013a}
0xa9e4…aa10               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006c, t01=0x014e}
0xaa10…aa26               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006c, t01=0x017a}
0xaa26…aa42               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006c, t01=0x0190}
0xaa42…aa58               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006d, t01=0x001c}
0xaa58…aa9a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006d, t01=0x0032}
0xaa9a…aaac               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006d, t01=0x0074}
0xaaac…aad4               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006d, t01=0x0086}
0xaad4…ab08               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006d, t01=0x00ae}
0xab08…ab36               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006d, t01=0x00e2}
0xab36…ab4a               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006d, t01=0x0110}
0xab4a…ab8c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006d, t01=0x0124}
0xab8c…ab9e               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006d, t01=0x0166}
0xab9e…aba6               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0178}
0xaba6…abba               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006d, t01=0x0180}
0xabba…abd6 (110, 0, 398) Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006e, t01=0x0004}
0xabd6…abe6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x0020}
0xabe6…abf0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006e, t01=0x0030}
0xabf0…abfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x003a}
0xabfa…ac3e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x0044}
0xac3e…ac48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0088}
0xac48…ac58               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006e, t01=0x0092}
0xac58…ac62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00a2}
0xac62…ac94               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006e, t01=0x00ac}
0xac94…ac9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00de}
0xac9e…ace2               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006e, t01=0x00e8}
0xace2…acec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x012c}
0xacec…ad00               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006e, t01=0x0136}
0xad00…ad2c               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006e, t01=0x014a}
0xad2c…ad48               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006e, t01=0x0176}
0xad48…ad80 (111, 0, 398) Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006f, t01=0x0004}
0xad80…ad9c               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006f, t01=0x003c}
0xad9c…ada4               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x0058}
0xada4…adae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0060}
0xadae…adce               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006f, t01=0x006a}
0xadce…add8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x008a}
0xadd8…ade0               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x0094}
0xade0…adf8               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006f, t01=0x009c}
0xadf8…ae1e               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006f, t01=0x00b4}
0xae1e…ae44               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006f, t01=0x00da}
0xae44…ae6c               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006f, t01=0x0100}
0xae6c…ae80               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006f, t01=0x0128}
0xae80…aea4               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006f, t01=0x013c}
0xaea4…aeb8               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006f, t01=0x0160}
0xaeb8…aeda               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006f, t01=0x0174}
0xaeda…aef2               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0070, t01=0x0008}
0xaef2…af14               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x0070, t01=0x0020}
0xaf14…af20               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0070, t01=0x0042}
0xaf20…af30               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0070, t01=0x004e}
0xaf30…af38               Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x005e}
0xaf38…af48               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0066}
0xaf48…af5e               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0070, t01=0x0076}
0xaf5e…af68               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0070, t01=0x008c}
0xaf68…afb2               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x0096}
0xafb2…afbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00e0}
0xafbc…afe8               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x0070, t01=0x00ea}
0xafe8…b018               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x0070, t01=0x0116}
0xb018…b022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0146}
0xb022…b06c               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x0150}
0xb06c…b076               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x000a}
0xb076…b088               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0071, t01=0x0014}
0xb088…b0b2               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x0071, t01=0x0026}
0xb0b2…b0d8               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x0071, t01=0x0050}
0xb0d8…b0ec               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0071, t01=0x0076}
0xb0ec…b100               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0071, t01=0x008a}
0xb100…b112               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0071, t01=0x009e}
0xb112…b132               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0071, t01=0x00b0}
0xb132…b148               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0071, t01=0x00d0}
0xb148…b16c               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0071, t01=0x00e6}
0xb16c…b18a               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0071, t01=0x010a}
0xb18a…b1a4               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0071, t01=0x0128}
0xb1a4…b1ce               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0071, t01=0x0142}
0xb1ce…b1e8               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0071, t01=0x016c}
0xb1e8…b204               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0071, t01=0x0186}
0xb204…b216               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0072, t01=0x0012}
0xb216…b23e               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0072, t01=0x0024}
0xb23e…b25a               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x0072, t01=0x004c}
0xb25a…b274               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x0072, t01=0x0068}
0xb274…b294               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0072, t01=0x0082}
0xb294…b2c0               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x0072, t01=0x00a2}
0xb2c0…b2ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00ce}
0xb2ca…b2ea               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0072, t01=0x00d8}
0xb2ea…b338               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0072, t01=0x00f8}
0xb338…b366               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0072, t01=0x0146}
0xb366…b392               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0072, t01=0x0174}
0xb392…b39c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0010}
0xb39c…b3ca               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0073, t01=0x001a}
0xb3ca…b3d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0048}
0xb3d4…b3e8               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0073, t01=0x0052}
0xb3e8…b3f8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0066}
0xb3f8…b404               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x0076}
0xb404…b40e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0073, t01=0x0082}
0xb40e…b418               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x008c}
0xb418…b458               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x0096}
0xb458…b462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00d6}
0xb462…b476               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0073, t01=0x00e0}
0xb476…b480               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00f4}
0xb480…b48a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00fe}
0xb48a…b4ca               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x0108}
0xb4ca…b4d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0148}
0xb4d4…b4e8               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0073, t01=0x0152}
0xb4e8…b4fc               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0073, t01=0x0166}
0xb4fc…b512               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0073, t01=0x017a}
0xb512…b526               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0073, t01=0x0190}
0xb526…b53a               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0074, t01=0x0014}
0xb53a…b552               Head {h00=0x0014, h01=0x0050, text=»LIOL EQU 1  DK2 «, t00=0x0074, t01=0x0028}
0xb552…b56a               Head {h00=0x0014, h01=0x0050, text=»LINH EQU 8  DK2 «, t00=0x0074, t01=0x0040}
0xb56a…b582               Head {h00=0x0014, h01=0x0050, text=»LERR EQU 4  DK2 «, t00=0x0074, t01=0x0058}
0xb582…b59c               Head {h00=0x0016, h01=0x0050, text=»LSAV EQU /10  DK2 «, t00=0x0074, t01=0x0070}
0xb59c…b5a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x008a}
0xb5a8…b5be               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0074, t01=0x0096}
0xb5be…b5d4               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0074, t01=0x00ac}
0xb5d4…b5ea               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0074, t01=0x00c2}
0xb5ea…b600               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0074, t01=0x00d8}
0xb600…b616               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0074, t01=0x00ee}
0xb616…b62c               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0074, t01=0x0104}
0xb62c…b642               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0074, t01=0x011a}
0xb642…b64e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x0130}
0xb64e…b668               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0074, t01=0x013c}
0xb668…b67a               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0074, t01=0x0156}
0xb67a…b694               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0074, t01=0x0168}
0xb694…b6a6               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0074, t01=0x0182}
0xb6a6…b6c0 (117, 0, 400) Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0075, t01=0x0004}
0xb6c0…b6d2               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x001e}
0xb6d2…b6ec               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0075, t01=0x0030}
0xb6ec…b6fe               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x004a}
0xb6fe…b718               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0075, t01=0x005c}
0xb718…b72a               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0076}
0xb72a…b744               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0075, t01=0x0088}
0xb744…b756               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x00a2}
0xb756…b770               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0075, t01=0x00b4}
0xb770…b782               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x00ce}
0xb782…b79c               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0075, t01=0x00e0}
0xb79c…b7ae               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x00fa}
0xb7ae…b7c8               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0075, t01=0x010c}
0xb7c8…b7da               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0126}
0xb7da…b7f4               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0075, t01=0x0138}
0xb7f4…b806               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0152}
0xb806…b820               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0075, t01=0x0164}
0xb820…b832               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x017e}
0xb832…b84c               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0075, t01=0x0190}
0xb84c…b85e               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0076, t01=0x001a}
0xb85e…b868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x002c}
0xb868…b882               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK2«, t00=0x0076, t01=0x0036}
0xb882…b89a               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0076, t01=0x0050}
0xb89a…b8ac               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x0068}
0xb8ac…b8c4               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0076, t01=0x007a}
0xb8c4…b8d6               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x0092}
0xb8d6…b8e8               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0076, t01=0x00a4}
0xb8e8…b90a               Head {h00=0x001e, h01=0x0050, text=» IFT KB6272+LMPVDU=1  DK5 «, t00=0x0076, t01=0x00b6}
0xb90a…b928               Head {h00=0x001a, h01=0x0050, text=»LMPON LDK A7,LON  DK5 «, t00=0x0076, t01=0x00d8}
0xb928…b93e               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x00f6}
0xb93e…b95c               Head {h00=0x001a, h01=0x0050, text=»LMPOF LDK A7,LOF  DK5 «, t00=0x0076, t01=0x010c}
0xb95c…b972               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x012a}
0xb972…b984               Head {h00=0x000e, h01=0x0050, text=» XIF   DK5«, t00=0x0076, t01=0x0140}
0xb984…b9a8               Head {h00=0x0020, h01=0x0050, text=» IFT KB6272+LMPVDU=2  DK2+5 «, t00=0x0076, t01=0x0152}
0xb9a8…b9d0               Head {h00=0x0024, h01=0x0050, text=»LMPON ORS A3,LAMSAV,TCABAS  DK2 «, t00=0x0076, t01=0x0176}
0xb9d0…b9e6               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x000e}
0xb9e6…ba02               Head {h00=0x0018, h01=0x0050, text=»LMPOF C1R A3,A3  DK2«, t00=0x0077, t01=0x0024}
0xba02…ba24               Head {h00=0x001e, h01=0x0050, text=» ANS A3,LAMSAV,TCABAS  DK2«, t00=0x0077, t01=0x0040}
0xba24…ba3a               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x0062}
0xba3a…ba4c               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0077, t01=0x0078}
0xba4c…ba56               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0077, t01=0x008a}
0xba56…ba5e               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0094}
0xba5e…ba68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x009c}
0xba68…baa8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x00a6}
0xbaa8…bab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00e6}
0xbab2…bac2               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0077, t01=0x00f0}
0xbac2…bacc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0100}
0xbacc…baf4               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0077, t01=0x010a}
0xbaf4…bafe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0132}
0xbafe…bb3e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x013c}
0xbb3e…bb48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x017c}
0xbb48…bb50               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0186}
0xbb50…bb6a               Head {h00=0x0016, h01=0x0050, text=»SDISP EQU *  DK2+5«, t00=0x0077, t01=0x018e}
0xbb6a…bb86               Head {h00=0x0018, h01=0x0050, text=» LDKL A8,ECBSD DK2+5«, t00=0x0078, t01=0x0018}
0xbb86…bba4               Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS  DK2+5 «, t00=0x0078, t01=0x0034}
0xbba4…bbc0               Head {h00=0x0018, h01=0x0050, text=» IFF KB6272=1  DK2+5«, t00=0x0078, t01=0x0052}
0xbbc0…bbde               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x006e}
0xbbde…bbf2               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x008c}
0xbbf2…bc16               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=1  DK2+5 «, t00=0x0078, t01=0x00a0}
0xbc16…bc34               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x00c4}
0xbc34…bc48               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x00e2}
0xbc48…bc6c               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=2  DK2+5 «, t00=0x0078, t01=0x00f6}
0xbc6c…bc88               Head {h00=0x0018, h01=0x0050, text=» CM* ECBBA,A8  DK2+5«, t00=0x0078, t01=0x011a}
0xbc88…bca2               Head {h00=0x0016, h01=0x0050, text=» LDK A3,/1C  DK2+5«, t00=0x0078, t01=0x0136}
0xbca2…bcc2               Head {h00=0x001c, h01=0x0050, text=» SC* A3,ECBBA,A8  DK2+5 «, t00=0x0078, t01=0x0150}
0xbcc2…bce6               Head {h00=0x0020, h01=0x0050, text=» LD A3,LAMSAV,TCABAS  DK2+5 «, t00=0x0078, t01=0x0170}
0xbce6…bd06 (121, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ORS* A3,ECBBA,A8  DK2+5«, t00=0x0079, t01=0x0004}
0xbd06…bd1e               Head {h00=0x0014, h01=0x0050, text=» LDK A3,2  DK2+5«, t00=0x0079, t01=0x0024}
0xbd1e…bd3c               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBRL,A8  DK2+5«, t00=0x0079, t01=0x003c}
0xbd3c…bd56               Head {h00=0x0016, h01=0x0050, text=» LDK A7,/85  DK2+5«, t00=0x0079, t01=0x005a}
0xbd56…bd6a               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0079, t01=0x0074}
0xbd6a…bd7e               Head {h00=0x0010, h01=0x0050, text=» LKM   DK2+5«, t00=0x0079, t01=0x0088}
0xbd7e…bd94               Head {h00=0x0012, h01=0x0050, text=» DATA 1  DK2+5«, t00=0x0079, t01=0x009c}
0xbd94…bdac               Head {h00=0x0014, h01=0x0050, text=» RTN A14  DK2+5 «, t00=0x0079, t01=0x00b2}
0xbdac…bdb6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0079, t01=0x00ca}
0xbdb6…bdc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00d4}
0xbdc0…be00               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x00de}
0xbe00…be0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x011e}
0xbe0a…be1e               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0079, t01=0x0128}
0xbe1e…be28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x013c}
0xbe28…be66               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0079, t01=0x0146}
0xbe66…be70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0184}
0xbe70…beb0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x018e}
0xbeb0…beba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x003e}
0xbeba…bee0               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007a, t01=0x0048}
0xbee0…bf08               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007a, t01=0x006e}
0xbf08…bf3a               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x007a, t01=0x0096}
0xbf3a…bf66               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x007a, t01=0x00c8}
0xbf66…bf70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00f4}
0xbf70…bf84               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x007a, t01=0x00fe}
0xbf84…bf96               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007a, t01=0x0112}
0xbf96…bfaa               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x007a, t01=0x0124}
0xbfaa…bfd0               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007a, t01=0x0138}
0xbfd0…bff2               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x007a, t01=0x015e}
0xbff2…c00a               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x007a, t01=0x0180}
0xc00a…c02c               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x007b, t01=0x0008}
0xc02c…c05c               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007b, t01=0x002a}
0xc05c…c06c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x005a}
0xc06c…c090               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x007b, t01=0x006a}
0xc090…c0a8               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x007b, t01=0x008e}
0xc0a8…c0ba               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x007b, t01=0x00a6}
0xc0ba…c0d0               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x007b, t01=0x00b8}
0xc0d0…c0e4               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x007b, t01=0x00ce}
0xc0e4…c0ee               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007b, t01=0x00e2}
0xc0ee…c0f6               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x00ec}
0xc0f6…c130               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007b, t01=0x00f4}
0xc130…c158               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x007b, t01=0x012e}
0xc158…c182               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x007b, t01=0x0156}
0xc182…c1a6               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x007b, t01=0x0180}
0xc1a6…c1c8               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x007c, t01=0x0014}
0xc1c8…c1e4               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x007c, t01=0x0036}
0xc1e4…c208               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x007c, t01=0x0052}
0xc208…c23e               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007c, t01=0x0076}
0xc23e…c246               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x00ac}
0xc246…c268               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x007c, t01=0x00b4}
0xc268…c282               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x007c, t01=0x00d6}
0xc282…c29a               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x007c, t01=0x00f0}
0xc29a…c2d2               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x007c, t01=0x0108}
0xc2d2…c2e2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0140}
0xc2e2…c2ec               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007c, t01=0x0150}
0xc2ec…c2f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x015a}
0xc2f6…c336               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007c, t01=0x0164}
0xc336…c340               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0014}
0xc340…c354               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x007d, t01=0x001e}
0xc354…c35e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0032}
0xc35e…c39c               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x007d, t01=0x003c}
0xc39c…c3a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x007a}
0xc3a6…c3e8               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007d, t01=0x0084}
0xc3e8…c3f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00c6}
0xc3f2…c408               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007d, t01=0x00d0}
0xc408…c42e               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007d, t01=0x00e6}
0xc42e…c456               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007d, t01=0x010c}
0xc456…c488               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x007d, t01=0x0134}
0xc488…c4ae               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x007d, t01=0x0166}
0xc4ae…c4b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x018c}
0xc4b8…c4c0               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0008}
0xc4c0…c4c8               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0010}
0xc4c8…c4dc               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x007e, t01=0x0018}
0xc4dc…c4f8               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x002c}
0xc4f8…c514               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x007e, t01=0x0048}
0xc514…c544               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007e, t01=0x0064}
0xc544…c560               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x0094}
0xc560…c57c               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x007e, t01=0x00b0}
0xc57c…c58c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x00cc}
0xc58c…c594               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x00dc}
0xc594…c5a8               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x007e, t01=0x00e4}
0xc5a8…c5ba               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007e, t01=0x00f8}
0xc5ba…c5ce               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x007e, t01=0x010a}
0xc5ce…c5f4               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007e, t01=0x011e}
0xc5f4…c614               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x007e, t01=0x0144}
0xc614…c62c               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x007e, t01=0x0164}
0xc62c…c670               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007e, t01=0x017c}
0xc670…c6a0               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007f, t01=0x0030}
0xc6a0…c6e4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x0060}
0xc6e4…c6fc               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007f, t01=0x00a4}
0xc6fc…c70e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007f, t01=0x00bc}
0xc70e…c730               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007f, t01=0x00ce}
0xc730…c760               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007f, t01=0x00f0}
0xc760…c770               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0120}
0xc770…c79c               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007f, t01=0x0130}
0xc79c…c7b4               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007f, t01=0x015c}
0xc7b4…c7c6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x007f, t01=0x0174}
0xc7c6…c7d6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0186}
0xc7d6…c7ec               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x0080, t01=0x0008}
0xc7ec…c7fe               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x0080, t01=0x001e}
0xc7fe…c808               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0080, t01=0x0030}
0xc808…c812               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x003a}
0xc812…c84c               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x0044}
0xc84c…c856               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x007e}
0xc856…c866               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x0080, t01=0x0088}
0xc866…c870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0098}
0xc870…c8aa               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x0080, t01=0x00a2}
0xc8aa…c8b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00dc}
0xc8b4…c8ee               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x00e6}
0xc8ee…c8f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0120}
0xc8f8…c918               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x0080, t01=0x012a}
0xc918…c92e               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0080, t01=0x014a}
0xc92e…c938               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0160}
0xc938…c942               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x016a}
0xc942…c956               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x0080, t01=0x0174}
0xc956…c968               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0080, t01=0x0188}
0xc968…c97e               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0081, t01=0x000a}
0xc97e…c9a4               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x0081, t01=0x0020}
0xc9a4…c9b6               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0081, t01=0x0046}
0xc9b6…c9e0               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x0081, t01=0x0058}
0xc9e0…c9f0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0082}
0xc9f0…c9fa               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0081, t01=0x0092}
0xc9fa…ca04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x009c}
0xca04…ca48               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0081, t01=0x00a6}
0xca48…ca52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00ea}
0xca52…ca62               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x0081, t01=0x00f4}
0xca62…ca6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0104}
0xca6c…caa8               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x0081, t01=0x010e}
0xcaa8…cae4               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x0081, t01=0x014a}
0xcae4…cb0c               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x0081, t01=0x0186}
0xcb0c…cb42               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x0082, t01=0x001e}
0xcb42…cb82               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x0082, t01=0x0054}
0xcb82…cba8               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x0094}
0xcba8…cbd6               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x00ba}
0xcbd6…cbe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00e8}
0xcbe0…cc1e               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x0082, t01=0x00f2}
0xcc1e…cc46               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x0082, t01=0x0130}
0xcc46…cc50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0158}
0xcc50…cc94               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0162}
0xcc94…cc9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0016}
0xcc9e…ccb2               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0083, t01=0x0020}
0xccb2…ccdc               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x0083, t01=0x0034}
0xccdc…cd0a               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x0083, t01=0x005e}
0xcd0a…cd34               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x0083, t01=0x008c}
0xcd34…cd60               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x0083, t01=0x00b6}
0xcd60…cd98               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0083, t01=0x00e2}
0xcd98…cda8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x011a}
0xcda8…cdb2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0083, t01=0x012a}
0xcdb2…cdba               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x0134}
0xcdba…cdc2               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x013c}
0xcdc2…ce0a               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0083, t01=0x0144}
0xce0a…ce14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x018c}
0xce14…ce4c               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x0084, t01=0x0008}
0xce4c…ce74               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x0084, t01=0x0040}
0xce74…ce7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0068}
0xce7e…cec2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0084, t01=0x0072}
0xcec2…ceca               Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x00b6}
0xceca…cedc               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x0084, t01=0x00be}
0xcedc…cef8               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x0084, t01=0x00d0}
0xcef8…cf0e               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x0084, t01=0x00ec}
0xcf0e…cf2a               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0084, t01=0x0102}
0xcf2a…cf4c               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x0084, t01=0x011e}
0xcf4c…cf6e               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0084, t01=0x0140}
0xcf6e…cf9e               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x0084, t01=0x0162}
0xcf9e…cfa8 (133, 0, 400) Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0085, t01=0x0004}
0xcfa8…cfb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x000e}
0xcfb2…cfda               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0085, t01=0x0018}
0xcfda…cfe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0040}
0xcfe4…d002               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0085, t01=0x004a}
0xd002…d016               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0085, t01=0x0068}
0xd016…d02e               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0085, t01=0x007c}
0xd02e…d048               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0085, t01=0x0094}
0xd048…d052               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00ae}
0xd052…d066               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0085, t01=0x00b8}
0xd066…d07e               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0085, t01=0x00cc}
0xd07e…d094               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0085, t01=0x00e4}
0xd094…d0a8               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0085, t01=0x00fa}
0xd0a8…d0d6               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0085, t01=0x010e}
0xd0d6…d0f8               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0085, t01=0x013c}
0xd0f8…d11a               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0085, t01=0x015e}
0xd11a…d132               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0085, t01=0x0180}
0xd132…d14a               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0086, t01=0x0008}
0xd14a…d156               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0086, t01=0x0020}
0xd156…d166               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0086, t01=0x002c}
0xd166…d176               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0086, t01=0x003c}
0xd176…d182               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0086, t01=0x004c}
0xd182…d186               Head {h00=0x4004, h01=0x0000}
0xd186…d18a               00 86 00 58                                                                                                                                                                                                                                       ┆   X┆
0xd18a…d192 (135, 1, 8)   20 04 00 00 00 87 00 04                                                                                                                                                                                                                           ┆        ┆
0xd192…d1e2 (136, 0, 400) 11 22 82 17 10 01 55 82 78 5f 0d 04 84 18 5e 25 00 82 10 5f 17 34 00 00 83 11 01 84 28 00 58 4c 80 05 1a 7c 58 84 83 01 84 8c 68 58 84 12 4c 10 12 50 0e 80 06 02 83 11 1b 83 88 22 01 52 88 57 23 00 84 10 68 58 84 12 4c 10 12 54 12 04 83 11   ┆ "    U x_    ^%   _ 4      ( XL   |X     hX  L  P         " R W#   hX  L  T    ┆
0xd1e2…d232               50 0d 01 84 28 00 58 4c 80 05 1a 7c 58 84 83 00 52 83 80 06 34 00 01 80 10 30 0b 9d 00 80 41 28 40 94 49 89 19 48 8d 16 28 41 10 12 41 90 00 95 12 31 09 ad 80 0a 36 91 03 02 02 04 5f 28 57 58 01 80 8b 30 0b 9d 00 80 41 90 31 09 b3 80 0a 36   ┆P   ( XL   |X   R   4    0    A(@ I  H  (A  A    1    6     _(WX   0    A 1    6┆
0xd232…d282               91 03 02 02 04 5f 0f 5f 43 05 45 79 80 0b 45 03 45 79 80 04 18 7a 4d 43 5c 54 80 0c 15 12 80 0d 54 1b 80 0e 2c 80 0f 54 12 80 10 5c 08 80 11 58 0f 80 12 80 0e 2c 80 13 12 5f 16 80 14 01 3e 33 01 80 10 30 0b 9d 00 80 40 28 41 94 80 0e 2c 3f   ┆     _ _C Ey  E Ey   zMC T      T   ,  T       X     ,   _    >3   0    @(A   ,?┆
0xd282…d2d2               05 00 80 15 01 81 25 01 3e 34 61 3e b1 68 3e 80 81 4c 10 12 00 81 80 49 13 15 80 15 54 1a 80 16 01 af 9d 00 80 10 68 3e 80 81 af 10 17 54 09 31 0c 95 aa 06 10 10 34 00 00 93 29 01 8e a4 01 ae 9f 01 8d a3 80 07 80 17 1e 06 10 11 34 00 80 18   ┆      % >4a> h>  L     I    T         h>     T 1      4   )                 4   ┆
0xd2d2…d322               12 00 43 11 01 45 79 80 13 2b 80 13 27 80 13 23 80 13 20 80 19 40 cf 36 81 0a 0c 0a 0a 49 3f 2a 0a 0a 0a 02 5f 13 41 cf 31 0c 93 b2 57 20 5f 1d 80 0e 2c 80 13 12 41 90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆  C  Ey  +  '  #     @ 6     I?*    _ A 1   W _   ,   A                         ┆
0xd322…d372 (137, 0, 400) 31 09 b3 80 0a 36 91 03 00 00 02 5f 47 80 0d 5c 4b 80 0e 2c 5f 50 80 0e 2c 80 1a 12 50 05 80 13 12 5f 5d 80 13 27 06 10 10 34 00 80 0e 2c 80 1b 11 5c 6d 57 0a 80 0e 2c 80 1b 12 5c 77 57 00 80 0e 2c 06 10 11 34 00 80 0e 2c 80 13 27 00 85 11   ┆1    6     _G   K  ,_P  ,   P    _]  '   4   ,    mW   ,    wW   ,   4   ,  '   ┆
0xd372…d3c2               01 80 28 80 05 18 7a 4d 80 85 54 2d 21 8d 7c 29 80 0c 15 11 00 85 10 01 80 24 00 af 4c 62 4d 80 28 af 85 01 3e 34 61 3e a9 01 81 89 80 15 54 09 80 1c 54 05 06 10 10 34 00 06 10 11 34 00 00 43 11 00 82 10 02 43 11 01 80 28 80 05 18 7a 4d 80   ┆  (   zM  T-! |)         $  LbM (   >4a>      T   T    4    4  C     C   (   zM ┆
0xd3c2…d412               43 54 d1 07 8d 7c 50 cc 48 cf 18 01 af 98 00 84 13 68 4d 84 13 af 10 13 54 09 01 af 99 6a 4d 84 13 af 10 01 af 50 00 84 10 68 af 84 15 4d 10 15 50 62 01 ae 93 00 83 10 01 84 28 68 4d 83 84 ae 10 11 50 05 01 ae 91 5f 14 02 83 82 2b 83 8d 05   ┆CT   |P H        hM     T    jM      P   h   M  Pb        (hM     P    _    +   ┆
0xd412…d462               04 43 11 57 23 04 83 82 02 83 11 21 83 28 13 01 af 33 01 84 28 64 4d 83 28 af 10 04 84 28 12 84 83 0d 6d 3e 82 ac 5f 84 00 81 82 01 90 8f 00 c5 43 30 0b 95 06 90 31 0c 15 ae 80 15 54 46 80 1c 54 42 5f a3 20 82 10 0b 00 81 82 80 15 54 35 80   ┆ C W#      ! (   3  (dM (    (    m>  _         C0    1     TF  TB_          T5 ┆
0xd462…d4b2               1c 54 31 00 82 10 01 3e 34 6d 3e 82 ac 00 81 26 80 15 54 20 80 0c 15 12 80 16 49 13 12 01 ae 9a 00 80 10 01 81 8a 68 3e 80 81 ae 10 14 54 05 06 10 10 34 00 06 11 10 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆ T1    >4m>    &  T       I           h>     T    4    4                        ┆
0xd4b2…d502 (138, 0, 400) 00 00 82 10 01 3e 34 01 4d a0 00 82 10 6d 3e 82 a9 00 81 22 80 15 54 02 80 16 34 00 00 82 10 01 3e 34 01 4d 9b 6d 3e 82 a9 00 81 19 80 15 54 05 49 13 04 80 16 34 00 06 10 10 34 00 49 13 34 01 84 8e 30 12 9d 3e 81 84 54 0e 01 81 8d 01 84 8e   ┆     >4 M    m>    "  T   4     >4 M m>       T I    4    4 I 4   0  >  T       ┆
0xd502…d552               30 13 9d 3e 81 84 50 16 80 1d 1d 00 93 29 01 8e a4 01 ae 9f 80 07 80 17 1e 06 10 11 34 00 06 10 10 34 00 00 81 28 01 3e 92 30 0e 81 06 10 10 34 00 00 82 10 01 ae 92 68 3e 82 81 ae 10 11 54 0b 00 81 10 01 3e 34 06 10 10 34 00 06 10 11 34 00   ┆0  >  P      )              4    4   ( > 0     4       h>     T     >4   4    4 ┆
0xd552…d5a2               30 0a 14 24 81 11 5c 23 81 8d 58 01 ae 97 00 80 10 68 3e 80 81 ae 10 13 50 4b 01 ae 90 00 80 10 68 3e 80 81 ae 10 11 54 3a 02 80 13 00 83 80 04 81 83 24 81 11 2d 01 4d 33 68 3e 83 81 ae 10 11 54 1f 04 83 80 62 4d 10 83 3e 80 31 0c 93 a8 02   ┆0  $   #  X      h>     PK      h>     T:         $  - M3h>     T    bM  > 1    ┆
0xd5a2…d5f2               83 13 04 81 83 02 83 80 00 80 83 12 81 13 29 57 02 57 2b 34 00 04 81 80 25 81 8a 22 01 83 22 68 3e 83 81 4c 10 11 54 16 01 4d 33 04 83 80 62 4d 10 83 3e 80 31 0c 93 a8 04 81 83 02 80 83 01 4d 33 25 81 8a 03 01 81 8a 62 4d 10 81 3e 80 31 0c   ┆              )W W+4    %  "  "h>  L  T  M3   bM  > 1          M3%      bM  > 1 ┆
0xd5f2…d642               93 a8 34 00 00 05 00 02 01 9e 00 02 01 9c 00 02 00 2e 00 02 00 1d 00 00 0c 06 00 1d 00 04 00 0e 00 02 02 16 00 04 00 2a 00 05 04 3c 00 05 03 c4 00 02 02 a7 00 04 00 38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆  4              .                     *   <           8                        ┆
0xd642…d692 (139, 0, 400) 00 00 00 76 00 03 07 66 00 04 00 1c 00 00 0d 17 00 03 08 b3 00 02 03 e1 00 00 0c bf 00 02 04 2e 00 02 04 af 00 02 04 f6 00 02 05 e1 00 00 0c b5 00 02 05 fc 00 02 06 1c 00 02 06 80 00 03 06 c7 00 03 09 b8 00 00 0c c9 00 03 09 6a 00 00 0d 2a   ┆   v   f                       .                                           j   *┆
0xd692…d6e2               00 02 06 61 00 05 04 1a 00 15 00 1f 00 34 00 41 00 78 01 f8 02 58 03 01 11 21 35 7f 11 20 20 27 20 20 42 46 4f 44 46 48 47 30 31 52 30 31 30 30 30 32 43 53 53 46 20 44 41 54 41 53 5b 54 44 46 48 33 35 30 34 44 49 53 43 46 45 4a 4c 20 54 52   ┆   a         4 A x   X   !5    '  BFODFHG01R010002CSSF DATAS[TDFH3504DISCFEJL TR┆
0xd6e2…d732               41 4e 53 4d 49 54 20 54 45 52 4d 49 4e 41 54 45 20 44 41 54 41 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 b0 04 b0 16 b0 60 42 42 5a 39 54 54 54 39 5a 5a 5a 5a 5a 39 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 39 82 20 c0 4d 82 20   ┆ANSMIT TERMINATE DATATRANSMISSION      `BBZ9TTT9ZZZZZ9AAAAAAAAAAAAAAAAAAA9   M  ┆
0xd732…d782               c1 95 c0 4d 82 31 c1 a1 81 07 82 31 48 8b 68 88 82 20 d4 82 04 82 20 c1 95 c1 94 c0 4d e0 c1 a1 81 3f 81 07 e1 f0 01 00 00 00 11 cd 82 20 c3 0e 41 4e 54 41 4c 20 52 45 43 4f 52 44 53 3a 6a c5 df b0 da a3 05 f0 01 8a 0a 81 48 8b db a3 08 f2   ┆   M 1     1H h             M    ?              ANTAL RECORDS:j           H     ┆
0xd782…d7d2               0d 6a 81 01 00 10 88 e0 c1 48 e1 c1 9c 81 20 c1 65 82 20 e1 c1 58 85 20 c1 96 82 20 e1 e1 82 20 c1 95 c3 08 43 53 53 4e 20 50 53 3d 22 c5 c3 06 2c 4e 41 4d 45 3d 6b c6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆ j       H      e    X              CSSN PS="   ,NAME=k                         ┆
0xd7d2…d822 (140, 0, 400) 82 20 c3 24 46 4c 47 2e 20 44 49 53 4b 45 54 54 45 20 53 45 4e 44 45 53 20 54 49 4c 20 4c 4f 4b 41 4c 53 59 53 54 45 4d e8 82 20 e0 c1 a1 e1 c3 0a 42 52 55 47 45 52 4e 41 56 4e f0 0c 81 0d 00 6b c6 e1 c3 08 4b 45 4e 44 45 4f 52 44 f0 0c 81   ┆   $FLG. DISKETTE SENDES TIL LOKALSYSTEM         BRUGERNAVN     k    KENDEORD   ┆
0xd822…d872               04 00 69 c5 81 07 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 20 02 00 0a 20 02 00 0c 20 02 00 0e 00 01 00 10 00 01 00 11 00 01 00 12 00 01 00 13 00 03 00 14 00 03 00 17 00 03 00 1a 00 03 00 1d 00 03 00 20 00 03 00 23 00 04   ┆  i                                                                          #  ┆
0xd872…d8c2               00 26 00 05 00 2a 00 07 00 2f 00 07 00 36 00 09 00 3d 00 09 00 46 00 0a 00 4f 00 11 00 59 30 02 00 6a 30 02 00 6c 30 02 00 6e 10 04 00 00 10 04 00 04 10 06 00 08 10 14 00 0e 00 04 00 00 00 06 00 04 00 06 00 0a 00 08 00 10 00 0b 00 18 00 0f   ┆ &   *   /   6   =   F   O   Y0  j0  l0  n                                      ┆
0xd8c2…d912               00 23 00 14 00 32 00 17 00 46 00 17 00 5d 00 1a 00 74 00 2b 00 8e 00 2b 00 b9 09 26 07 b0 09 9a 08 20 09 aa 08 42 54 16 01 4d 33 04 83 80 62 4d 10 83 3e 80 31 0c 93 a8 04 81 83 02 80 83 01 4d 33 25 81 8a 03 01 81 8a 62 4d 10 81 3e 80 31 0c   ┆ #   2   F   ]   t +   +   &         BT  M3   bM  > 1          M3%      bM  > 1 ┆
0xd912…d962               93 a8 34 00 00 05 00 02 01 9e 00 02 01 9c 00 02 00 2e 00 02 00 1d 00 00 0c 06 00 1d 00 04 00 0e 00 02 02 16 00 04 00 2a 00 05 04 3c 00 05 03 c4 00 02 02 a7 00 04 00 38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆  4              .                     *   <           8                        ┆

Reduced view